Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
463 bytes
|
Rev | Line | |
---|
[613] | 1 | YIPROB ;SLC/DKG-INTERVIEW PROBLEM SCREEN ; 10/18/88 13:42 ;
|
---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
---|
| 3 | S YSLFT=0,X=^YTD(601.2,YSDFN,1,YSET,1,YSED,1) D HDR^YIHIST W !!?25,^YTT(601,YSTEST,"G",1,1,1,0)
|
---|
| 4 | S K=7 F L=2:1:4 S K=K-1 D:IOST?1"C-".E WAIT^YSUTL:$Y+4>IOSL Q:YSLFT W !!,^YTT(601,YSTEST,"G",L,1,1,0) D CK
|
---|
| 5 | W ! K J,K,L,X Q
|
---|
| 6 | CK ;
|
---|
| 7 | I X'[K W !,"NONE INDICATED",! Q
|
---|
| 8 | F J=1:1:27 D:IOST?1"C-".E WAIT^YSUTL:$Y+3>IOSL Q:YSLFT W:$E(X,J)=K !,^YTT(601,YSTEST,"G",J+4,1,1,0)
|
---|
| 9 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.