source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSPP9.m@ 1736

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

initial load of WorldVistAEHR

File size: 385 bytes
RevLine 
[613]1YSPP9 ;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
5ENCE ; 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.