source:
WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSPP9.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
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.