| [613] | 1 | YSPP6 ;ALB/ASF-PATIENT PSYCHIATRIC DATA ;4/26/90 11:56 ;
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | ENPR ;Entry to core of print program.
|
|---|
| 5 | S YSPPF=1,A="D",YSTY="ALL",YSFHDR="Diagnosis List <<section 7>>",YSFHDR(1)="W !!,""DSM/ICD9 TITLE"" X YSFHDR(2),YSFHDR(3)",YSFHDR(2)="I YSTY=""ACT"" W ""Only Active Diagnosis""",YSFHDR(3)="W !,""STATUS"",?10,""DATE""" S YSPP=0
|
|---|
| 6 | PR ;
|
|---|
| 7 | U IO D:'$D(YSNOFORM) ENHD^YSFORM S Y1=0,YST=$S(IOST?1"P".E:1,1:0),YSSL=$S(YST:8,1:3),YSLFT=0
|
|---|
| 8 | D DXLS^YSDX3RUA,DX^YSDX3RU:"Dd"[A,CHR^YSDX3RU:"Cc"[A I $D(YSLFT) G:YSLFT=1 CLN
|
|---|
| 9 | Q:$G(YSLFT)=1 D AX5^YSDX3RUA
|
|---|
| 10 | I '$D(YSCENN) D:$D(PROFILE)&(IOST?1"C-".E) WAIT1^YSUTL
|
|---|
| 11 | CLN ;
|
|---|
| 12 | K YSAX4,YSD3FLG,YSDIFLG,YSDXNN,YSDXN,YSML,YSMOD,YSDXDT,TOTSET,SUBSET,YSAUTH,YSCD,YSCOND,YSDXS,YSFTR,YSGAF,YSLC,YSPP,YSPS,YSSL,YSSTOP,YSTM,YSTOP1,YSTOP2,YSTY,YSQT,Z,YSFHDR,YSPPF Q
|
|---|
| 13 | ;
|
|---|
| 14 | ENCE ; Called indirectly from YSCEN31
|
|---|
| 15 | ;
|
|---|
| 16 | S YSNOFORM=1 D ENPR K YSNOFORM
|
|---|
