AMQQCMP1.m

AMQQCMP1 ; IHS/CMI/THL - PRELIMINARY QUERY COMPILE ;

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

 ;-----

 I $D(AMQQMULX) D ^AMQQCMPM I $D(AMQQQUIT) G EXIT

VAR S AMQQ="^UTILITY(""AMQQ"",$J,""WEIGHT"")"

 K AMQQRED

 I AMQQOPT="FAST",'$D(^UTILITY("AMQQ",$J)) S AMQQFAIL=4 D FAIL^AMQQN S AMQQQUIT=1 Q

 S AMQQLINO=1

 S AMQQVAR=9

 S (%,AMQQSER)=$O(@AMQQ@(-9999))

 S AMQQUATN=$O(@AMQQ@(+%,""))

 S AMQQTURB=^(AMQQUATN)

 S Q=^UTILITY("AMQQ",$J,"Q",AMQQUATN)

 I $P(Q,U,17)!($P(Q,U,3)="I") S %=$P(Q,U,9),%=$P(%,";",5) I %="NULL"!(%="INVERSE")!(%="ANY") D @("START"_AMQQCCLS) G EXIT

 I Q[";ALL^",$P(Q,U,3)="L" D @("START"_AMQQCCLS) G EXIT

 I $D(AMQQRAND) D @("RAND"_AMQQCCLS) K AMQQRAND G EXIT

 I $D(AMQQCHRT) D @("COH"_AMQQCCLS) K AMQQCHRT G EXIT

 S %=$P(Q,U,9)

 I %[";NULL"!(%[";ANY") D @("START"_AMQQCCLS) G EXIT

 I $D(^UTILITY("AMQQ",$J,"Q",AMQQUATN,1)),$P(^(1),U,2)="NULL" D @("START"_AMQQCCLS) G EXIT

 I %'["EXIST",'$P(Q,U,4),(($P(Q,U,8)["'><")!($P(Q,U,8)["'=")) D @("START"_AMQQCCLS) G EXIT

 I AMQQSER>1 G EXIT

 S %=$P(Q,U,15)

 S %=$P(%,";",4,5)

 I +%>$P(%,";",2) G EXIT

GT I AMQQTURB["AQ" D @(AMQQTURB_"^AMQQCMPT") G EXIT

 I AMQQTURB S %=$P(Q,U,15),%=$P(%,";",4) I %'["*" D @("TURB"_AMQQTURB_U_$S(AMQQTURB<5:"AMQQCMPT",1:"AMQQCMPZ"))

EXIT S AMQQSER=-9999

 K X,AMQQTURB,Q

 Q

 ;

STARTH S ^UTILITY("AMQQ",$J,"Q",.1)="211^NAME (PROVIDER)^F^^^^^^^^^^^^'=;|||||;;;"

 G ST1

STARTP S ^UTILITY("AMQQ",$J,"Q",.1)="3^NAME^F^^^^^^^^^^^^'=;|||||;;;"

 G ST1

NOALPHA S ^UTILITY("AMQQ",$J,"Q",.1)="164^POV NUMBER^N^^^^^^^^^^^^0;999999999;"

 G ST1

STARTV S ^UTILITY("AMQQ",$J,"Q",.1)="133^DATE OF VISIT^D^^^^^^^^^^^^0;99999999;"

 G ST1

ST1 S ^UTILITY("AMQQ",$J,"WEIGHT",-99,.1)=""

 Q

 ;

RANDP S ^UTILITY("AMQQ",$J,"Q",.1)="37^RANDOM^R^^^^^^^^^^^1^"_AMQQRAND

 G RA1

RANDV S ^UTILITY("AMQQ",$J,"Q",.1)="140^RANDOM^R^^^^^^^^^^^1^"_AMQQRAND

 G RA1

RA1 S ^UTILITY("AMQQ",$J,"WEIGHT",-99,.1)=""

 Q

 ;

COHP S ^UTILITY("AMQQ",$J,"Q",.1)="40^COHORT^C^^^^^^^^^^^1^"_AMQQCHRT

 G CO1

COHV S ^UTILITY("AMQQ",$J,"Q",.1)="141^COHORT^C^^^^^^^^^^^1^"_AMQQCHRT

 G CO1

CO1 S ^UTILITY("AMQQ",$J,"WEIGHT",-99,.1)=""

 Q

 ;

AMQQCMP1  ; IHS/CMI/THL - PRELIMINARY QUERY COMPILE ;

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

 +2       ;-----

 +3        IF $DATA(AMQQMULX)

               DO ^AMQQCMPM

               IF $DATA(AMQQQUIT)

                   GOTO EXIT

VAR        SET AMQQ="^UTILITY(""AMQQ"",$J,""WEIGHT"")"

 +1        KILL AMQQRED

 +2        IF AMQQOPT="FAST"

               IF '$DATA(^UTILITY("AMQQ",$JOB))

                   SET AMQQFAIL=4

                   DO FAIL^AMQQN

                   SET AMQQQUIT=1

                   QUIT 

 +3        SET AMQQLINO=1

 +4        SET AMQQVAR=9

 +5        SET (%,AMQQSER)=$ORDER(@AMQQ@(-9999))

 +6        SET AMQQUATN=$ORDER(@AMQQ@(+%,""))

 +7        SET AMQQTURB=^(AMQQUATN)

 +8        SET Q=^UTILITY("AMQQ",$JOB,"Q",AMQQUATN)

 +9        IF $PIECE(Q,U,17)!($PIECE(Q,U,3)="I")

               SET %=$PIECE(Q,U,9)

               SET %=$PIECE(%,";",5)

               IF %="NULL"!(%="INVERSE")!(%="ANY")

                   DO @("START"_AMQQCCLS)

                   GOTO EXIT

 +10       IF Q[";ALL^"

               IF $PIECE(Q,U,3)="L"

                   DO @("START"_AMQQCCLS)

                   GOTO EXIT

 +11       IF $DATA(AMQQRAND)

               DO @("RAND"_AMQQCCLS)

               KILL AMQQRAND

               GOTO EXIT

 +12       IF $DATA(AMQQCHRT)

               DO @("COH"_AMQQCCLS)

               KILL AMQQCHRT

               GOTO EXIT

 +13       SET %=$PIECE(Q,U,9)

 +14       IF %[";NULL"!(%[";ANY")

               DO @("START"_AMQQCCLS)

               GOTO EXIT

 +15       IF $DATA(^UTILITY("AMQQ",$JOB,"Q",AMQQUATN,1))

               IF $PIECE(^(1),U,2)="NULL"

                   DO @("START"_AMQQCCLS)

                   GOTO EXIT

 +16       IF %'["EXIST"

               IF '$PIECE(Q,U,4)

                   IF (($PIECE(Q,U,8)["'><")!($PIECE(Q,U,8)["'="))

                       DO @("START"_AMQQCCLS)

                       GOTO EXIT

 +17       IF AMQQSER>1

               GOTO EXIT

 +18       SET %=$PIECE(Q,U,15)

 +19       SET %=$PIECE(%,";",4,5)

 +20       IF +%>$PIECE(%,";",2)

               GOTO EXIT

GT         IF AMQQTURB["AQ"

               DO @(AMQQTURB_"^AMQQCMPT")

               GOTO EXIT

 +1        IF AMQQTURB

               SET %=$PIECE(Q,U,15)

               SET %=$PIECE(%,";",4)

               IF %'["*"

                   DO @("TURB"_AMQQTURB_U_$SELECT(AMQQTURB<5:"AMQQCMPT",1:"AMQQCMPZ"))

EXIT       SET AMQQSER=-9999

 +1        KILL X,AMQQTURB,Q

 +2        QUIT 

 +3       ;

STARTH     SET ^UTILITY("AMQQ",$JOB,"Q",.1)="211^NAME (PROVIDER)^F^^^^^^^^^^^^'=;|||||;;;"

 +1        GOTO ST1

STARTP     SET ^UTILITY("AMQQ",$JOB,"Q",.1)="3^NAME^F^^^^^^^^^^^^'=;|||||;;;"

 +1        GOTO ST1

NOALPHA    SET ^UTILITY("AMQQ",$JOB,"Q",.1)="164^POV NUMBER^N^^^^^^^^^^^^0;999999999;"

 +1        GOTO ST1

STARTV     SET ^UTILITY("AMQQ",$JOB,"Q",.1)="133^DATE OF VISIT^D^^^^^^^^^^^^0;99999999;"

 +1        GOTO ST1

ST1        SET ^UTILITY("AMQQ",$JOB,"WEIGHT",-99,.1)=""

 +1        QUIT 

 +2       ;

RANDP      SET ^UTILITY("AMQQ",$JOB,"Q",.1)="37^RANDOM^R^^^^^^^^^^^1^"_AMQQRAND

 +1        GOTO RA1

RANDV      SET ^UTILITY("AMQQ",$JOB,"Q",.1)="140^RANDOM^R^^^^^^^^^^^1^"_AMQQRAND

 +1        GOTO RA1

RA1        SET ^UTILITY("AMQQ",$JOB,"WEIGHT",-99,.1)=""

 +1        QUIT 

 +2       ;

COHP       SET ^UTILITY("AMQQ",$JOB,"Q",.1)="40^COHORT^C^^^^^^^^^^^1^"_AMQQCHRT

 +1        GOTO CO1

COHV       SET ^UTILITY("AMQQ",$JOB,"Q",.1)="141^COHORT^C^^^^^^^^^^^1^"_AMQQCHRT

 +1        GOTO CO1

CO1        SET ^UTILITY("AMQQ",$JOB,"WEIGHT",-99,.1)=""

 +1        QUIT 

 +2       ;