YTQGMTS.m

YTQGMTS ;SLC/KCM - MHA Health Summary APIs ; 9/15/2015

 ;;5.01;MENTAL HEALTH;**119**;Dec 30, 1994;Build 40

 ;

 ; Usage of SEL():

 ;   I GMTSFI=601.71 D SEL^YTQGMTS(GMTSRT,GMTSI,GMTSCNT,GMTSDIR) Q

 ;

SEL(YTQROOT,YTQFROM,YTQMAX,YTQDIR) ; Get instrument list for health summary

 I '$L($G(YTQROOT)) Q

 S YTQMAX=$G(YTQMAX,44),YTQDIR=$G(YTQDIR,1)

 ;

 N NM,IEN,CNT

 S NM=$G(YTQFROM),CNT=0

 F  Q:CNT'<YTQMAX  S NM=$O(^YTT(601.71,"B",NM),YTQDIR) Q:NM=""  D

 . S IEN=0 F  S IEN=$O(^YTT(601.71,"B",NM,IEN)) Q:'IEN  I $$VALID(IEN) D

 . . S CNT=CNT+1,@YTQROOT@(CNT)=IEN_"^"_NM

 Q

 ;

 ; Usage of $$ITER:

 ;   S GMTSI=0_U_GMTSFM

 ;   F  S GMTSI=$$ITER^YTQGMTS(.GMTSI,DIR) Q:'GMTSI  D

 ;   .  S GMTSC=GMTSC+1,^TMP("ORDATA",$J,1,GMTSC)=GMTSI

 ;

ITER(YTQITER,YTQDIR) ; pass in iterator to get next instrument

 ; YTQITER=fromIEN^fromName

 N IEN,FROM,ITER

 S IEN=+$P(YTQITER,U),FROM=$P(YTQITER,U,2),ITER=""

 S YTQDIR=$G(YTQDIR,1)

 F  D  Q:$$VALID(ITER)

 . ; see if another IEN for this FROM

 . I $L(FROM),IEN S IEN=$O(^YTT(601.71,"B",FROM,IEN))

 . I IEN S ITER=IEN_U_FROM Q

 . ; move to next/previous FROM

 . S FROM=$O(^YTT(601.71,"B",FROM),YTQDIR)

 . I '$L(FROM) S ITER="" Q

 . S ITER=+$O(^YTT(601.71,"B",FROM,0))_U_FROM

 Q ITER

 ;

VALID(ITER) ; return true if valid iterator (if instrument should be shown)

 I ITER="" Q 1                                            ; end of list

 I '$D(^YTT(601.71,+ITER,0)) Q 0                          ; bad IEN

 I $P($G(^YTT(601.71,+ITER,9)),U,1,2)="DLL^YTSCORE" Q 0  ; complex instrument

 I $P($G(^YTT(601.71,+ITER,2)),U,5)'="Y" Q 0              ; never used

 Q 1

 ;

 ; Tests:

 ;

TESTSEL(DIR) ; test SEL tag

 N ROOT,I

 K ^TMP("YTQGMTS",$J)

 S ROOT=$NA(^TMP("YTQGMTS",$J,1))

 W !,"FORWARD -------------"

 D SEL(ROOT,"",100)

 S I=0 F  S I=$O(@ROOT@(I)) Q:'I  W !,I,?10,@ROOT@(I)

 K @ROOT

 W !!,"REVERSE ------------"

 D SEL(ROOT,"MMPI",20,-1)

 S I=0 F  S I=$O(@ROOT@(I)) Q:'I  W !,I,?10,@ROOT@(I)

 K @ROOT

 Q

 ;

TESTFWD ; test forward iteration

 D TESTLOOP(1)

 Q

TESTREV ; test reverse iteration

 D TESTLOOP(-1)

 Q

TESTLOOP(DIR) ;

 N GMTSI,GMTSC

 S GMTSI="",GMTSC=0

 F  S GMTSI=$$ITER^YTQGMTS(.GMTSI,DIR) Q:'GMTSI  S GMTSC=GMTSC+1 D

 . W !,GMTSC,?10,GMTSI

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---YTQGMTS   2248     printed  Feb 18, 2025@23:44:45                                                                                                                                                                                                     Page 2

YTQGMTS   ;SLC/KCM - MHA Health Summary APIs ; 9/15/2015

 +1       ;;5.01;MENTAL HEALTH;**119**;Dec 30, 1994;Build 40

 +2       ;

 +3       ; Usage of SEL():

 +4       ;   I GMTSFI=601.71 D SEL^YTQGMTS(GMTSRT,GMTSI,GMTSCNT,GMTSDIR) Q

 +5       ;

SEL(YTQROOT,YTQFROM,YTQMAX,YTQDIR) ; Get instrument list for health summary

 +1        IF '$LENGTH($GET(YTQROOT))

               QUIT 

 +2        SET YTQMAX=$GET(YTQMAX,44)

           SET YTQDIR=$GET(YTQDIR,1)

 +3       ;

 +4        NEW NM,IEN,CNT

 +5        SET NM=$GET(YTQFROM)

           SET CNT=0

 +6        FOR 

               if CNT'<YTQMAX

                   QUIT 

               SET NM=$ORDER(^YTT(601.71,"B",NM),YTQDIR)

               if NM=""

                   QUIT 

               Begin DoDot:1

 +7                SET IEN=0

                   FOR 

                       SET IEN=$ORDER(^YTT(601.71,"B",NM,IEN))

                       if 'IEN

                           QUIT 

                       IF $$VALID(IEN)

                           Begin DoDot:2

 +8                            SET CNT=CNT+1

                               SET @YTQROOT@(CNT)=IEN_"^"_NM

                           End DoDot:2

               End DoDot:1

 +9        QUIT 

 +10      ;

 +11      ; Usage of $$ITER:

 +12      ;   S GMTSI=0_U_GMTSFM

 +13      ;   F  S GMTSI=$$ITER^YTQGMTS(.GMTSI,DIR) Q:'GMTSI  D

 +14      ;   .  S GMTSC=GMTSC+1,^TMP("ORDATA",$J,1,GMTSC)=GMTSI

 +15      ;

ITER(YTQITER,YTQDIR) ; pass in iterator to get next instrument

 +1       ; YTQITER=fromIEN^fromName

 +2        NEW IEN,FROM,ITER

 +3        SET IEN=+$PIECE(YTQITER,U)

           SET FROM=$PIECE(YTQITER,U,2)

           SET ITER=""

 +4        SET YTQDIR=$GET(YTQDIR,1)

 +5        FOR 

               Begin DoDot:1

 +6       ; see if another IEN for this FROM

 +7                IF $LENGTH(FROM)

                       IF IEN

                           SET IEN=$ORDER(^YTT(601.71,"B",FROM,IEN))

 +8                IF IEN

                       SET ITER=IEN_U_FROM

                       QUIT 

 +9       ; move to next/previous FROM

 +10               SET FROM=$ORDER(^YTT(601.71,"B",FROM),YTQDIR)

 +11               IF '$LENGTH(FROM)

                       SET ITER=""

                       QUIT 

 +12               SET ITER=+$ORDER(^YTT(601.71,"B",FROM,0))_U_FROM

               End DoDot:1

               if $$VALID(ITER)

                   QUIT 

 +13       QUIT ITER

 +14      ;

VALID(ITER) ; return true if valid iterator (if instrument should be shown)

 +1       ; end of list

           IF ITER=""

               QUIT 1

 +2       ; bad IEN

           IF '$DATA(^YTT(601.71,+ITER,0))

               QUIT 0

 +3       ; complex instrument

           IF $PIECE($GET(^YTT(601.71,+ITER,9)),U,1,2)="DLL^YTSCORE"

               QUIT 0

 +4       ; never used

           IF $PIECE($GET(^YTT(601.71,+ITER,2)),U,5)'="Y"

               QUIT 0

 +5        QUIT 1

 +6       ;

 +7       ; Tests:

 +8       ;

TESTSEL(DIR) ; test SEL tag

 +1        NEW ROOT,I

 +2        KILL ^TMP("YTQGMTS",$JOB)

 +3        SET ROOT=$NAME(^TMP("YTQGMTS",$JOB,1))

 +4        WRITE !,"FORWARD -------------"

 +5        DO SEL(ROOT,"",100)

 +6        SET I=0

           FOR 

               SET I=$ORDER(@ROOT@(I))

               if 'I

                   QUIT 

               WRITE !,I,?10,@ROOT@(I)

 +7        KILL @ROOT

 +8        WRITE !!,"REVERSE ------------"

 +9        DO SEL(ROOT,"MMPI",20,-1)

 +10       SET I=0

           FOR 

               SET I=$ORDER(@ROOT@(I))

               if 'I

                   QUIT 

               WRITE !,I,?10,@ROOT@(I)

 +11       KILL @ROOT

 +12       QUIT 

 +13      ;

TESTFWD   ; test forward iteration

 +1        DO TESTLOOP(1)

 +2        QUIT 

TESTREV   ; test reverse iteration

 +1        DO TESTLOOP(-1)

 +2        QUIT 

TESTLOOP(DIR) ;

 +1        NEW GMTSI,GMTSC

 +2        SET GMTSI=""

           SET GMTSC=0

 +3        FOR 

               SET GMTSI=$$ITER^YTQGMTS(.GMTSI,DIR)

               if 'GMTSI

                   QUIT 

               SET GMTSC=GMTSC+1

               Begin DoDot:1

 +4                WRITE !,GMTSC,?10,GMTSI

               End DoDot:1

 +5        QUIT