YIPROB ;SLC/DKG-INTERVIEW PROBLEM SCREEN ; 10/18/88 13:42 ;
;;5.01;MENTAL HEALTH;;Dec 30, 1994
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)
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
W ! K J,K,L,X Q
CK ;
I X'[K W !,"NONE INDICATED",! Q
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)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYIPROB 472 printed Dec 13, 2024@02:11:59 Page 2
YIPROB ;SLC/DKG-INTERVIEW PROBLEM SCREEN ; 10/18/88 13:42 ;
+1 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
+2 SET YSLFT=0
SET X=^YTD(601.2,YSDFN,1,YSET,1,YSED,1)
DO HDR^YIHIST
WRITE !!?25,^YTT(601,YSTEST,"G",1,1,1,0)
+3 SET K=7
FOR L=2:1:4
SET K=K-1
if IOST?1"C-".E
if $Y+4>IOSL
DO WAIT^YSUTL
if YSLFT
QUIT
WRITE !!,^YTT(601,YSTEST,"G",L,1,1,0)
DO CK
+4 WRITE !
KILL J,K,L,X
QUIT
CK ;
+1 IF X'[K
WRITE !,"NONE INDICATED",!
QUIT
+2 FOR J=1:1:27
if IOST?1"C-".E
if $Y+3>IOSL
DO WAIT^YSUTL
if YSLFT
QUIT
if $EXTRACT(X,J)=K
WRITE !,^YTT(601,YSTEST,"G",J+4,1,1,0)
+3 QUIT
