Last change
on this file since 699 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
385 bytes
|
Line | |
---|
1 | YSPP9 ;ALB/ASF-PROBLEM LIST ;10/4/89 14:09 ;
|
---|
2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
---|
3 | ;
|
---|
4 | S YSFHDR="Short Problem List <<section 10>>",YSLFT=0 D:'$D(YSNOFORM) ENHD^YSFORM
|
---|
5 | ENCE ; Called indirectly from YSCEN31
|
---|
6 | ;
|
---|
7 | S YST=$S(IOST?1"C-".E:0,1:1),YSSL=$S(YST:8,1:3),P4="PL",YSLFT=0
|
---|
8 | D EN1^YSPROB5 K DX,DXS,N2,P4,YSDS,YSDXN,YSSL,Z Q:$D(YSNOFORM)!$D(YSCENN) D WAIT1^YSUTL:'YST,ENFT^YSFORM:YST Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.