| 1 | YSPP7 ;ALB/ASF-PATIENT PROFILE PHY EXAM ;4/20/92 13:06 ;
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | 1 ;
|
|---|
| 4 | S (YSIDT,YSYDT)=0,YSPE="PE",P="," F S YSIDT=$O(^MR(YSDFN,"PE","B",YSIDT)) Q:'YSIDT S YSYDT=YSIDT
|
|---|
| 5 | S YSFHDR="Last Physical Exam <<section 8>>" I YSYDT=0 D:'$D(YSNOFORM) ENHD^YSFORM W !!!!!?5,"NO PHYSICALS ON FILE" G E
|
|---|
| 6 | S YSIDT=9999999-YSYDT,DA=YSIDT,YSX="^YTX(3,1,"
|
|---|
| 7 | D EN1^YSPROSE G:YSLFT END S YSX="^MR(YSDFN,YSPE,YSIDT,20," I $D(@(YSX_"1,0)")) D:$Y+4>YSPPL H G:YSLFT END W !!,"Impressions:",! D EN1^YSPROSE G:YSLFT END
|
|---|
| 8 | S YSX="^MR(YSDFN,YSPE,YSIDT,19," I $D(@(YSX_"1,0)")) D:$Y+4>YSPPL H G:YSLFT END W !!,"Comments:",! D EN1^YSPROSE G:YSLFT END
|
|---|
| 9 | D:$Y+4>YSPPL H G:YSLFT END W !!!! S X=$P(^MR(YSDFN,"PE",YSIDT,0),U,10) D PSIG^YSUTL W Y
|
|---|
| 10 | E ;
|
|---|
| 11 | Q:$D(YSNOFORM) D WAIT1^YSUTL:'YST&'YSLFT,ENFT^YSFORM:YST
|
|---|
| 12 | END ;
|
|---|
| 13 | F I=1:1:18 S X="V"_I K @X
|
|---|
| 14 | K I,L,P,X,Y,YSAC,YSBLN,YSCC,YSCD,YSDOT,YSIDT,YSPE,YSPI,YSPPL,YSPST,YSPSV,YSPY,YSPZ,YSX,YSYDT,YSYN,Z S DA=YSDFN Q
|
|---|
| 15 | H ;
|
|---|
| 16 | I $D(YSNOFORM) D:'YST WAIT Q:YSLFT W @IOF Q
|
|---|
| 17 | S:YST YSCON=1 D ENFT^YSFORM:YST,WAIT:'YST Q:YSLFT D:YST ENHD^YSFORM Q
|
|---|
| 18 | WAIT ;
|
|---|
| 19 | F I0=1:1:IOSL-$Y-2 W !
|
|---|
| 20 | W:$Y+1<IOSL !
|
|---|
| 21 | N DTOUT,DUOUT,DIRUT
|
|---|
| 22 | S DIR(0)="E" D ^DIR K DIR S YSTOUT=$D(DTOUT),YSUOUT=$D(DUOUT),YSLFT=$D(DIRUT) W @IOF Q
|
|---|
| 23 | ;
|
|---|
| 24 | ENCE ; Called indirectly from YSCEN31
|
|---|
| 25 | ;
|
|---|
| 26 | S YST=$S(IOST?1"P".E:1,1:0),YSPPL=$S(YST:6,1:3),YSLFT=0 D ENPT^YSUTL G 1
|
|---|
