source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSPP3.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 795 bytes
Line 
1YSPP3 ;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
5VIET ;
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")
8AO ;
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)
13DEN ;
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
Note: See TracBrowser for help on using the repository browser.