|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
