AMQQAT1.m

AMQQAT1 ; IHS/CMI/THL - GETS INFO FOR RANDOM SAMPLE COLLECTION ;

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

 ;-----

 I $D(AMQQCHRT) W !!,"You cannot select a RANDOM SAMPLE and a SEARCH COHORT in the same query",!!,*7 K AMQQRAND Q

VAR S %=$S(AMQQCCLS="P":"^DPT",1:"^AUPNVSIT")

 S AMQQRNDN=$P(@%@(0),U,4)\2

 S AMQQRCNM=$S(AMQQCCLS="P":"PATIENT",1:"VISIT")

 D NP

EXIT K AMQQRNDN,AMQQRCNM,%,I

 Q

 ;

NP W !!,"There are ",(AMQQRNDN*2)," ",AMQQRCNM,"S in the database"

 W !!?5,"1) Select a certain number of ",AMQQRCNM,"S for the sample"

 W !?5,"2) Select a certain percentage of ",AMQQRCNM,"S for the sample",!

GET ; ENTRY POINT FROM AMQQAT11

 R !,"YOUR CHOICE (1-2): 1// ",X:DTIME E  S X=U

 I X?1."?" W !!,"Enter 1 or 2.  You may enter '^' to exit.",!! G GET

 I X=U S AMQQQUIT="" Q

 I X="" S X=1 W "  (1)"

 I X,X<3,$D(AMQQCRFL) K AMQQCRFL Q

 I X,X<3 D SET Q

 W "  ??",*7 G GET

 Q

 ;

SET D @("S"_X)

 I Y=-1 Q

 S ^UTILITY("AMQQ",$J,"LIST",.2)="W ?6,""A RANDOM SAMPLE OF "_$S(AMQQCNAM'["RANDOM":AMQQCNAM,1:$P(AMQQCNAM," ",4))_" WILL BE USED"""

 S AMQQRAND=(AMQQRNDN*2)_";"_Y

 S AMQQRNDF=""

 D LIST^AMQQ

 Q

 ;

S1 ; ENTRY POINT FROM AMQQAT11

 W !!,"How many ",AMQQRCNM,"S do you want in the sample: "

 R X:DTIME E  S X=U

 I X=U S Y=-1,AMQQQUIT="" Q

 I X="" S Y=-1 Q

 I X?1."?" W !!,"Enter a number between 1 and ",AMQQRNDN,!! G S1

 I X,X'>(AMQQRNDN),X?1.9N S Y=X Q

 W "  ??",*7

 G S1

 ;

S2 ; ENTRY POINT FROM AMQQAT11

 W !!,"What percent of the patients do you want in the sample: "

 R X:DTIME E  S X=U

 I X=U S Y=-1,AMQQQUIT="" Q

 I X="" S Y=-1 Q

 I X?1."?" W !!,"Enter a number between 1 and 50" G S2

 I X?1.2N,X,X<51 Q:$D(AMQQRCFL)  S Y=AMQQRNDN*X\50 W "%" Q

 W "  ??",*7

 G S2

 ;

COHORT ; ENTRY POINT FOR SEARCH TEMPLATE COHORTS

 S AMQQRCNM=$S(AMQQCCLS="P":"PATIENT",1:"VISIT")

 I AMQQATNM="FILE ENTRY" D ^AMQQAT2 Q

 I $D(AMQQRAND) W !!,"You cannot select a RANDOM SAMPLE and a SEARCH COHORT in the same query",!!,*7 K AMQQCHRT Q

 I '$D(AMQQCHRT),'$D(AMQQYYYY) S DIC="^DIBT(",DIC(0)="AEQ" G CODIC

 I $D(AMQQYYYY) S AMQQCHRT=$P(AMQQYYYY,";",3)

 S X=$E(AMQQCHRT,2,99)

 I $E(X,$L(X))="]" S X=$E(X,1,$L(X)-1)

 S DIC="^DIBT("

 S DIC(0)="EQ"

 K AMQQCHRT

 I $D(AMQQXX) S DIC(0)=""

CODIC S DIC("S")="S %=$P(^(0),U,4) I %=2!(%=9000001)"

 S %=$P(^AMQQ(1,AMQQLINK,0),U,2)

 I %'=2 S DIC("S")="I $P(^(0),U,4)="_%

 D ^DIC

 K DIC

 I Y=-1,X=U S AMQQQUIT="" Q

 I Y=-1 Q

 S AMQQCHRT=+Y,X=$P(Y,U,2)

 D COEX

 Q

 ;

COEX I $D(AMQQXX) S X=1 Q

 I '$D(^DIBT(AMQQCHRT,1)) W !!,"Sorry, this template is empty!!",!!,*7 S AMQQQUIT="" H 3 Q

 W !!,"Select one of the following =>",!!?5

 W "1) ",AMQQCNAM," must be a member of the ",X," cohort",!?5

 W "2) ",AMQQCNAM," must NOT be a member of the ",X," cohort",!?5

 W "3) Select a random sample of the ",X," cohort",!?5

 W "4) Count the number of entries in the ",X," cohort",!!

CQ W "Your choice (1-4): 1// " R X:DTIME E  S X=U

 I X=4 D COUNT^AMQQAT11 G COEX

 I X="" S X=1

 I $E(X)=U S AMQQQUIT="" Q

 I X?1N,X,X<5 G CQ1

 W "  ??",*7,!

 G CQ

CQ1 I X=2 S AMQQLINK=$S(AMQQCCLS="P":151,1:85) Q

 I X=1 Q

 D CNP

 Q

 ;

CNP S AMQQCRFG=""

 D COUNT^AMQQAT11

 K AMQQCRFG

 S AMQQCHTT=I

 S AMQQRNDN=AMQQCHTT\2

CNP1 ; ENTRY POINT FROM AMQQAT2

 D ^AMQQAT11

 Q

 ;

AMQQAT1   ; IHS/CMI/THL - GETS INFO FOR RANDOM SAMPLE COLLECTION ;

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

 +2       ;-----

 +3        IF $DATA(AMQQCHRT)

               WRITE !!,"You cannot select a RANDOM SAMPLE and a SEARCH COHORT in the same query",!!,*7

               KILL AMQQRAND

               QUIT 

VAR        SET %=$SELECT(AMQQCCLS="P":"^DPT",1:"^AUPNVSIT")

 +1        SET AMQQRNDN=$PIECE(@%@(0),U,4)\2

 +2        SET AMQQRCNM=$SELECT(AMQQCCLS="P":"PATIENT",1:"VISIT")

 +3        DO NP

EXIT       KILL AMQQRNDN,AMQQRCNM,%,I

 +1        QUIT 

 +2       ;

NP         WRITE !!,"There are ",(AMQQRNDN*2)," ",AMQQRCNM,"S in the database"

 +1        WRITE !!?5,"1) Select a certain number of ",AMQQRCNM,"S for the sample"

 +2        WRITE !?5,"2) Select a certain percentage of ",AMQQRCNM,"S for the sample",!

GET       ; ENTRY POINT FROM AMQQAT11

 +1        READ !,"YOUR CHOICE (1-2): 1// ",X:DTIME

          IF '$TEST

               SET X=U

 +2        IF X?1."?"

               WRITE !!,"Enter 1 or 2.  You may enter '^' to exit.",!!

               GOTO GET

 +3        IF X=U

               SET AMQQQUIT=""

               QUIT 

 +4        IF X=""

               SET X=1

               WRITE "  (1)"

 +5        IF X

               IF X<3

                   IF $DATA(AMQQCRFL)

                       KILL AMQQCRFL

                       QUIT 

 +6        IF X

               IF X<3

                   DO SET

                   QUIT 

 +7        WRITE "  ??",*7

           GOTO GET

 +8        QUIT 

 +9       ;

SET        DO @("S"_X)

 +1        IF Y=-1

               QUIT 

 +2        SET ^UTILITY("AMQQ",$JOB,"LIST",.2)="W ?6,""A RANDOM SAMPLE OF "_$SELECT(AMQQCNAM'["RANDOM":AMQQCNAM,1:$PIECE(AMQQCNAM," ",4))_" WILL BE USED"""

 +3        SET AMQQRAND=(AMQQRNDN*2)_";"_Y

 +4        SET AMQQRNDF=""

 +5        DO LIST^AMQQ

 +6        QUIT 

 +7       ;

S1        ; ENTRY POINT FROM AMQQAT11

 +1        WRITE !!,"How many ",AMQQRCNM,"S do you want in the sample: "

 +2        READ X:DTIME

          IF '$TEST

               SET X=U

 +3        IF X=U

               SET Y=-1

               SET AMQQQUIT=""

               QUIT 

 +4        IF X=""

               SET Y=-1

               QUIT 

 +5        IF X?1."?"

               WRITE !!,"Enter a number between 1 and ",AMQQRNDN,!!

               GOTO S1

 +6        IF X

               IF X'>(AMQQRNDN)

                   IF X?1.9N

                       SET Y=X

                       QUIT 

 +7        WRITE "  ??",*7

 +8        GOTO S1

 +9       ;

S2        ; ENTRY POINT FROM AMQQAT11

 +1        WRITE !!,"What percent of the patients do you want in the sample: "

 +2        READ X:DTIME

          IF '$TEST

               SET X=U

 +3        IF X=U

               SET Y=-1

               SET AMQQQUIT=""

               QUIT 

 +4        IF X=""

               SET Y=-1

               QUIT 

 +5        IF X?1."?"

               WRITE !!,"Enter a number between 1 and 50"

               GOTO S2

 +6        IF X?1.2N

               IF X

                   IF X<51

                       IF $DATA(AMQQRCFL)

                           QUIT 

                       SET Y=AMQQRNDN*X\50

                       WRITE "%"

                       QUIT 

 +7        WRITE "  ??",*7

 +8        GOTO S2

 +9       ;

COHORT    ; ENTRY POINT FOR SEARCH TEMPLATE COHORTS

 +1        SET AMQQRCNM=$SELECT(AMQQCCLS="P":"PATIENT",1:"VISIT")

 +2        IF AMQQATNM="FILE ENTRY"

               DO ^AMQQAT2

               QUIT 

 +3        IF $DATA(AMQQRAND)

               WRITE !!,"You cannot select a RANDOM SAMPLE and a SEARCH COHORT in the same query",!!,*7

               KILL AMQQCHRT

               QUIT 

 +4        IF '$DATA(AMQQCHRT)

               IF '$DATA(AMQQYYYY)

                   SET DIC="^DIBT("

                   SET DIC(0)="AEQ"

                   GOTO CODIC

 +5        IF $DATA(AMQQYYYY)

               SET AMQQCHRT=$PIECE(AMQQYYYY,";",3)

 +6        SET X=$EXTRACT(AMQQCHRT,2,99)

 +7        IF $EXTRACT(X,$LENGTH(X))="]"

               SET X=$EXTRACT(X,1,$LENGTH(X)-1)

 +8        SET DIC="^DIBT("

 +9        SET DIC(0)="EQ"

 +10       KILL AMQQCHRT

 +11       IF $DATA(AMQQXX)

               SET DIC(0)=""

CODIC      SET DIC("S")="S %=$P(^(0),U,4) I %=2!(%=9000001)"

 +1        SET %=$PIECE(^AMQQ(1,AMQQLINK,0),U,2)

 +2        IF %'=2

               SET DIC("S")="I $P(^(0),U,4)="_%

 +3        DO ^DIC

 +4        KILL DIC

 +5        IF Y=-1

               IF X=U

                   SET AMQQQUIT=""

                   QUIT 

 +6        IF Y=-1

               QUIT 

 +7        SET AMQQCHRT=+Y

           SET X=$PIECE(Y,U,2)

 +8        DO COEX

 +9        QUIT 

 +10      ;

COEX       IF $DATA(AMQQXX)

               SET X=1

               QUIT 

 +1        IF '$DATA(^DIBT(AMQQCHRT,1))

               WRITE !!,"Sorry, this template is empty!!",!!,*7

               SET AMQQQUIT=""

               HANG 3

               QUIT 

 +2        WRITE !!,"Select one of the following =>",!!?5

 +3        WRITE "1) ",AMQQCNAM," must be a member of the ",X," cohort",!?5

 +4        WRITE "2) ",AMQQCNAM," must NOT be a member of the ",X," cohort",!?5

 +5        WRITE "3) Select a random sample of the ",X," cohort",!?5

 +6        WRITE "4) Count the number of entries in the ",X," cohort",!!

CQ         WRITE "Your choice (1-4): 1// "

           READ X:DTIME

          IF '$TEST

               SET X=U

 +1        IF X=4

               DO COUNT^AMQQAT11

               GOTO COEX

 +2        IF X=""

               SET X=1

 +3        IF $EXTRACT(X)=U

               SET AMQQQUIT=""

               QUIT 

 +4        IF X?1N

               IF X

                   IF X<5

                       GOTO CQ1

 +5        WRITE "  ??",*7,!

 +6        GOTO CQ

CQ1        IF X=2

               SET AMQQLINK=$SELECT(AMQQCCLS="P":151,1:85)

               QUIT 

 +1        IF X=1

               QUIT 

 +2        DO CNP

 +3        QUIT 

 +4       ;

CNP        SET AMQQCRFG=""

 +1        DO COUNT^AMQQAT11

 +2        KILL AMQQCRFG

 +3        SET AMQQCHTT=I

 +4        SET AMQQRNDN=AMQQCHTT\2

CNP1      ; ENTRY POINT FROM AMQQAT2

 +1        DO ^AMQQAT11

 +2        QUIT 

 +3       ;