| [613] | 1 | YSPP3 ;ALB/ASF-PATIENT INQUIRY-PART 3 VT,DENTAL ; 10/7/88 10:48 ;
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;**37**;Dec 30, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | ; Called by routine YSPP2
|
|---|
| 5 | VIET ;
|
|---|
| 6 | 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")
|
|---|
| 7 | W ?45,"TO: " W:L1>0 $$FMTE^XLFDT(L,"5ZD")
|
|---|
| 8 | AO ;
|
|---|
| 9 | W !," A/O EXPOS: " S L=$S($P(A(.321),U,2)="Y":"YES",1:"NO") W L G DEN:L="NO"
|
|---|
| 10 | S L=$P(A(.321),U,7) W ?22,"AO REG: ",$$FMTE^XLFDT(L,"5ZD")
|
|---|
| 11 | S L=$P(A(.321),U,9) I +L>0 W ?40,"AO EXAM: ",$$FMTE^XLFDT(L,"5ZD")
|
|---|
| 12 | W ?60,"AO #: ",$P(A(.321),U,10)
|
|---|
| 13 | DEN ;
|
|---|
| 14 | W !!," DENTAL INJURY IN SERV: ",$S($P(A(.36),U,8)="Y":"YES",1:"NO")
|
|---|
| 15 | W !,"TEETH EXTRACTED IN SERVICE: ",$S($P(A(.36),U,9)="Y":"YES",1:"NO")
|
|---|
| 16 | Q:$D(YSNOFORM) D WAIT1^YSUTL:'YST,ENFT^YSFORM:YST Q
|
|---|
