YIPROB.m

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 ---YIPROB   472     printed  Apr 09, 2024@21:16:45                                                                                                                                                                                                       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