17 lines
795 B
Mathematica
17 lines
795 B
Mathematica
YSPP3 ;ALB/ASF-PATIENT INQUIRY-PART 3 VT,DENTAL ; 10/7/88 10:48 ;
|
|
;;5.01;MENTAL HEALTH;**37**;Dec 30, 1994
|
|
;
|
|
; Called by routine YSPP2
|
|
VIET ;
|
|
S C=$P(A(.321),U),L=$S(C="Y":"YES",C="N":"NO",1:"UNK") W !," VIETNAM: ",L S L=$P(A(.321),U,4),L1=$P(A(.321),U,5) W ?24,"FROM: " W:L>0 $$FMTE^XLFDT(L,"5ZD")
|
|
W ?45,"TO: " W:L1>0 $$FMTE^XLFDT(L,"5ZD")
|
|
AO ;
|
|
W !," A/O EXPOS: " S L=$S($P(A(.321),U,2)="Y":"YES",1:"NO") W L G DEN:L="NO"
|
|
S L=$P(A(.321),U,7) W ?22,"AO REG: ",$$FMTE^XLFDT(L,"5ZD")
|
|
S L=$P(A(.321),U,9) I +L>0 W ?40,"AO EXAM: ",$$FMTE^XLFDT(L,"5ZD")
|
|
W ?60,"AO #: ",$P(A(.321),U,10)
|
|
DEN ;
|
|
W !!," DENTAL INJURY IN SERV: ",$S($P(A(.36),U,8)="Y":"YES",1:"NO")
|
|
W !,"TEETH EXTRACTED IN SERVICE: ",$S($P(A(.36),U,9)="Y":"YES",1:"NO")
|
|
Q:$D(YSNOFORM) D WAIT1^YSUTL:'YST,ENFT^YSFORM:YST Q
|