AMQQSQT.m

AMQQSQT ; IHS/CMI/THL - TRAVERSES SUBQUERY TREE ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;-----

TREE ; NAVIGATES THRU SUBQUERY TREES ; ENTRY POINT FROM NUMEROUS ROUTINES ; SENDS AMQQSQN1 (AMQQUSQN) AND AMQQSQN2 (AMQQSQSQ) TO THE SUBROUTINE IN @AMQQJOB

 N AMQQUATN,AMQQUSQN,AMQQX,AMQQY,AMQQSQSQ,AMQQTLVL

 S AMQQX="^UTILITY(""AMQQ"",$J,""SQXQ"")"

 S AMQQY="^UTILITY(""AMQQ"",$J,""SQXS"")"

 F AMQQUATN=0:0 S AMQQUATN=$O(@AMQQX@(AMQQUATN)) Q:'AMQQUATN  F AMQQUSQN=0:0 S AMQQUSQN=$O(@AMQQX@(AMQQUATN,AMQQUSQN)) Q:'AMQQUSQN  D TOP

 Q

 ;

TREE1 ; ATTRIBUTE SPECIFIC SUBQUERY TREE NAVIGATOR

 N AMQQY,AMQQUSQN,AMQQSQSQ,AMQQTLVL

 S AMQQY="^UTILITY(""AMQQ"",$J,""SQXS"")"

 F AMQQUSQN=0:0 S AMQQUSQN=$O(^UTILITY("AMQQ",$J,"SQXQ",AMQQUATN,AMQQUSQN)) Q:'AMQQUSQN  D TOP

 Q

 ;

TREE2 ; ENTRY POINT FROM AMQQSQ

 N AMQQY,AMQQSQSQ,AMQQTLVL

 S AMQQY="^UTILITY(""AMQQ"",$J,""SQXS"")"

 D TOP

 F AMQQY=1:1:9 K AMQQUSQN(AMQQY)

 Q

 ;

TOP S AMQQSQN1=AMQQUATN

 S AMQQSQN2=AMQQUSQN

 S AMQQTLVL=1

 D @AMQQSQJ1

 K AMQQSQN1,AMQQSQN2

 I '$D(@AMQQY@(AMQQUSQN)) Q

 S AMQQUSQN(1)=AMQQUSQN

 S AMQQSQSQ(1)=0

INC S AMQQSQSQ(AMQQTLVL)=$O(@AMQQY@(AMQQUSQN(AMQQTLVL),AMQQSQSQ(AMQQTLVL)))

 I 'AMQQSQSQ(AMQQTLVL) Q:AMQQTLVL=1  S AMQQTLVL=AMQQTLVL-1 G INC

 I $D(@AMQQY@(AMQQSQSQ(AMQQTLVL))) S AMQQUSQN(AMQQTLVL+1)=AMQQSQSQ(AMQQTLVL),AMQQTLVL=AMQQTLVL+1,AMQQSQSQ(AMQQTLVL)=0 G INC

 S AMQQSQN1=AMQQUSQN(AMQQTLVL)

 S AMQQSQN2=AMQQSQSQ(AMQQTLVL)

 D @AMQQSQJ2

 K AMQQSQN1,AMQQSQN2

 G INC

 ;

AMQQSQT   ; IHS/CMI/THL - TRAVERSES SUBQUERY TREE ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;-----

TREE      ; NAVIGATES THRU SUBQUERY TREES ; ENTRY POINT FROM NUMEROUS ROUTINES ; SENDS AMQQSQN1 (AMQQUSQN) AND AMQQSQN2 (AMQQSQSQ) TO THE SUBROUTINE IN @AMQQJOB

 +1        NEW AMQQUATN,AMQQUSQN,AMQQX,AMQQY,AMQQSQSQ,AMQQTLVL

 +2        SET AMQQX="^UTILITY(""AMQQ"",$J,""SQXQ"")"

 +3        SET AMQQY="^UTILITY(""AMQQ"",$J,""SQXS"")"

 +4        FOR AMQQUATN=0:0

               SET AMQQUATN=$ORDER(@AMQQX@(AMQQUATN))

               IF 'AMQQUATN

                   QUIT 

               FOR AMQQUSQN=0:0

                   SET AMQQUSQN=$ORDER(@AMQQX@(AMQQUATN,AMQQUSQN))

                   IF 'AMQQUSQN

                       QUIT 

                   DO TOP

 +5        QUIT 

 +6       ;

TREE1     ; ATTRIBUTE SPECIFIC SUBQUERY TREE NAVIGATOR

 +1        NEW AMQQY,AMQQUSQN,AMQQSQSQ,AMQQTLVL

 +2        SET AMQQY="^UTILITY(""AMQQ"",$J,""SQXS"")"

 +3        FOR AMQQUSQN=0:0

               SET AMQQUSQN=$ORDER(^UTILITY("AMQQ",$JOB,"SQXQ",AMQQUATN,AMQQUSQN))

               IF 'AMQQUSQN

                   QUIT 

               DO TOP

 +4        QUIT 

 +5       ;

TREE2     ; ENTRY POINT FROM AMQQSQ

 +1        NEW AMQQY,AMQQSQSQ,AMQQTLVL

 +2        SET AMQQY="^UTILITY(""AMQQ"",$J,""SQXS"")"

 +3        DO TOP

 +4        FOR AMQQY=1:1:9

               KILL AMQQUSQN(AMQQY)

 +5        QUIT 

 +6       ;

TOP        SET AMQQSQN1=AMQQUATN

 +1        SET AMQQSQN2=AMQQUSQN

 +2        SET AMQQTLVL=1

 +3        DO @AMQQSQJ1

 +4        KILL AMQQSQN1,AMQQSQN2

 +5        IF '$DATA(@AMQQY@(AMQQUSQN))

               QUIT 

 +6        SET AMQQUSQN(1)=AMQQUSQN

 +7        SET AMQQSQSQ(1)=0

INC        SET AMQQSQSQ(AMQQTLVL)=$ORDER(@AMQQY@(AMQQUSQN(AMQQTLVL),AMQQSQSQ(AMQQTLVL)))

 +1        IF 'AMQQSQSQ(AMQQTLVL)

               IF AMQQTLVL=1

                   QUIT 

               SET AMQQTLVL=AMQQTLVL-1

               GOTO INC

 +2        IF $DATA(@AMQQY@(AMQQSQSQ(AMQQTLVL)))

               SET AMQQUSQN(AMQQTLVL+1)=AMQQSQSQ(AMQQTLVL)

               SET AMQQTLVL=AMQQTLVL+1

               SET AMQQSQSQ(AMQQTLVL)=0

               GOTO INC

 +3        SET AMQQSQN1=AMQQUSQN(AMQQTLVL)

 +4        SET AMQQSQN2=AMQQSQSQ(AMQQTLVL)

 +5        DO @AMQQSQJ2

 +6        KILL AMQQSQN1,AMQQSQN2

 +7        GOTO INC

 +8       ;