AMQQCMPL.m

AMQQCMPL ; IHS/CMI/THL - SETS SEARCH CODE ; 21 Mar 2011  11:54 AM

 ;;2.0;IHS PCC SUITE;**6**;MAY 14, 2009;Build 11

 ;-----

 K AMQQKGNO,AMQQUSQN,AMQQUQQN,AMQQSQAA,AMQQUSQL,AMQQXSQF S AMQQTOT=0

 I '$D(AMQQNOET) S X="ERR^AMQQCMPL",@^%ZOSF("TRAP")

 I $$VERSION^%ZOSV(1)["Cache" S:'$D(AMQQNOET) AMQQETRP=$ZT,X="ERR^AMQQ",@^%ZOSF("TRAP")

 I $$VERSION^%ZOSV(1)'["Cache" S:'$D(AMQQNOET) AMQQETRP=$ZT,X="ERR^AMQQ",@^%ZOSF("TRAP")

 I $D(^UTILITY("AMQQ OR",$J)) D ^AMQQCMPK

 I $D(AMQQXX) D ^AMQQCMP1 G:$D(AMQQQUIT) EXIT D ^AMQQCMP2,@AMQV("OPTION") G EXIT

RUN K AMQQRERF,AMQQQUIT

 D OUT^AMQQOPT

 I $D(AMQQQUIT) G EXIT

 I '$D(AMQQCPLF) D ^AMQQCMP1 G:$D(AMQQQUIT) EXIT D ^AMQQCMP2

DOIT ; ENTRY POINT FROM AMQQQE1

 D @AMQV("OPTION")

 I $D(AMQQCPLF)!$D(AMQQQUIT),$G(AMQV("OPTION"))'="LIST" G RUN

EXIT K Q,AMQQHOLD,AMQQLINO,AMQQFVAR,AMQQVALU,AMQQVSIT,AMQQTOT,AMQQSF,AMQQAG,AMQT,AMQP,X,X1,X2,N,G,AMQQCPLF,AMQQMULL,AMQQMUNV,AMQQMUFV,AMQQOV,AMQQXX,AMQQDIBT,AMQQSQFN,AMQQSQ1,AMQQAFNN,%,%Y,AMQQFFF,AMQQ("BP COHORT FLG")

 I $G(AMQQETRP)]"" S $ZT=AMQQETRP K AMQQETRP

 Q

 ;

LIST ; ENTRY POINT FROM AMQQCMP0

 I $D(AMQQYY(0)) X AMQV(0) Q

 I '$D(AMQQXX),$E(IOST,1,2)'="P-",AMQV("OPTION")'="COUNT" W !! D WAIT^DICD I $G(AMQQCCLS)="P" D

 .I '$G(AMQQDLIM) W !!!,"Please note:  Patients whose names are marked with an ""*"" may have aliases.",!!! H 2

 I $G(AMQQDLIM) D

 .W !!!,"Please turn on your screen capture capability",!,"to capture '^' (up hat) delimited output.",!!

 .K DIR

 .S DIR(0)="E"

 .D ^DIR

 .K DUOUR,DTOUT,DIRUT,DIR

 .;CMI/GRL  prompt for device with HOME default

 .;D PRINT^AMQQSEC E  W "  <= Not a secure device!!",*7 G DEV

 .W !!

 .S %ZIS="M"  ;force prompt for Rt margin

 .S %ZIS("B")="HOME"

 .D ^%ZIS

 .S AMQQIOP=IO

 .I POP S AMQQQUIT="" Q

 X AMQV(0)

LISTEND ; ENTRY POINT FROM AMQQQE1

 K AMQQCPLF

 I $D(AMQQQUIT) Q

 I $E(IOST,1,2)'="P-" D  Q

 .W:'$G(AMQQDLIM) !,"Total: ",+$G(AMQQTOT)

 .W:$G(AMQQDLIM) !!,"Screen capture content completed.",!,"Please turn off screen capture.",!

 .S DIR(0)="E"

 .D ^DIR

 .K DUOUT,DTOUT,DIRUT,DIR,AMQQDLIM

 W @IOF,@IOF

 D ^%ZISC

 Q

 ;

COHORT I '$D(AMQQNOET),$D(^%ZOSF("TRAP")) S X="ERRC^AMQQCMPL",@^%ZOSF("TRAP")

 I $D(AMQQEN31) D ^AMQQCMPC Q

 D ^AMQQCMP0

 Q

 ;

PRINT D ^AMQQCMPP

 K AMQQCPLF

 Q

 ;

COUNT D COUNT^AMQQCMPP

 K AMQQCPLF

 Q

 ;

SAVE D ^AMQQCMPS

 Q

 ;

OUTPUT ; ENTRY POINT FROM AMQQENQ

 D OUT^AMQQOPT I $D(AMQQQUIT) Q

 D @AMQV("OPTION")

 Q

 ;

ERRC I $D(AMQQDIBT) K ^DIBT(AMQQDIBT,1)

ERR I '$D(AMQQNOET) X "I $P($ZE,"">"")=""<INTERRUPT""!($ZE[""-CTRAP"")" I  D ^%ZISC W !!,"Session terminated...",!! H 2 S AMQQQUIT="" D EXIT S AMQQQUIT="" Q

 I '$D(AMQQNOET) X "I $P($ZE,"">"")=""<INRPT""!($ZE[""-CTRAP"")" I  D ^%ZISC W !!,"Session terminated...",!! H 2 S AMQQQUIT="" D EXIT S AMQQQUIT="" Q

 I $E(IOST,1,2)="C-" W !!,"ERROR DETECTED...SESSION ABORTED...SUSPECT MISSING DATA...NOTIFY SITE MANAGER",!!,*7 H 3 D ^%ZISC,@^%ZOSF("ERRTN")

 I $E(IOST,1,2)'="C-" D ^%ZISC

 D EXIT,EXIT^AMQQ Q

 Q

 ;

STORE D STORE^AMQQQE

 I $D(AMQQQUIT) Q

 D ^AMQQCMPS

 S AMQQCPLF=""

 K AMQV("OPTION")

 Q

 ;

MAIL D MAILX^AMQQRML

 Q

AGE D BUCKET^AMQQRMA

 Q

WORK D WORK^AMQQRMD

 Q

MONTH D MON^AMQQRMM

 Q

TIME D TIME^AMQQRMT

 Q

HSUM D HSUM^AMQQRMH

 Q

EMAN D ^AMQQEMAN

 Q

AMQQCMPL  ; IHS/CMI/THL - SETS SEARCH CODE ; 21 Mar 2011  11:54 AM

 +1       ;;2.0;IHS PCC SUITE;**6**;MAY 14, 2009;Build 11

 +2       ;-----

 +3        KILL AMQQKGNO,AMQQUSQN,AMQQUQQN,AMQQSQAA,AMQQUSQL,AMQQXSQF

           SET AMQQTOT=0

 +4        IF '$DATA(AMQQNOET)

               SET X="ERR^AMQQCMPL"

               SET @^%ZOSF("TRAP")

 +5        IF $$VERSION^%ZOSV(1)["Cache"

               IF '$DATA(AMQQNOET)

                   SET AMQQETRP=$ZT

                   SET X="ERR^AMQQ"

                   SET @^%ZOSF("TRAP")

 +6        IF $$VERSION^%ZOSV(1)'["Cache"

               IF '$DATA(AMQQNOET)

                   SET AMQQETRP=$ZT

                   SET X="ERR^AMQQ"

                   SET @^%ZOSF("TRAP")

 +7        IF $DATA(^UTILITY("AMQQ OR",$JOB))

               DO ^AMQQCMPK

 +8        IF $DATA(AMQQXX)

               DO ^AMQQCMP1

               IF $DATA(AMQQQUIT)

                   GOTO EXIT

               DO ^AMQQCMP2

               DO @AMQV("OPTION")

               GOTO EXIT

RUN        KILL AMQQRERF,AMQQQUIT

 +1        DO OUT^AMQQOPT

 +2        IF $DATA(AMQQQUIT)

               GOTO EXIT

 +3        IF '$DATA(AMQQCPLF)

               DO ^AMQQCMP1

               IF $DATA(AMQQQUIT)

                   GOTO EXIT

               DO ^AMQQCMP2

DOIT      ; ENTRY POINT FROM AMQQQE1

 +1        DO @AMQV("OPTION")

 +2        IF $DATA(AMQQCPLF)!$DATA(AMQQQUIT)

               IF $GET(AMQV("OPTION"))'="LIST"

                   GOTO RUN

EXIT       KILL Q,AMQQHOLD,AMQQLINO,AMQQFVAR,AMQQVALU,AMQQVSIT,AMQQTOT,AMQQSF,AMQQAG,AMQT,AMQP,X,X1,X2,N,G,AMQQCPLF,AMQQMULL,AMQQMUNV,AMQQMUFV,AMQQOV,AMQQXX,AMQQDIBT,AMQQSQFN,AMQQSQ1,AMQQAFNN,%,%Y,AMQQFFF,AMQQ("BP COHORT FLG")

 +1        IF $GET(AMQQETRP)]""

               SET $ZT=AMQQETRP

               KILL AMQQETRP

 +2        QUIT 

 +3       ;

LIST      ; ENTRY POINT FROM AMQQCMP0

 +1        IF $DATA(AMQQYY(0))

               XECUTE AMQV(0)

               QUIT 

 +2        IF '$DATA(AMQQXX)

               IF $EXTRACT(IOST,1,2)'="P-"

                   IF AMQV("OPTION")'="COUNT"

                       WRITE !!

                       DO WAIT^DICD

                       IF $GET(AMQQCCLS)="P"

                           Begin DoDot:1

 +3                            IF '$GET(AMQQDLIM)

                                   WRITE !!!,"Please note:  Patients whose names are marked with an ""*"" may have aliases.",!!!

                                   HANG 2

                           End DoDot:1

 +4        IF $GET(AMQQDLIM)

               Begin DoDot:1

 +5                WRITE !!!,"Please turn on your screen capture capability",!,"to capture '^' (up hat) delimited output.",!!

 +6                KILL DIR

 +7                SET DIR(0)="E"

 +8                DO ^DIR

 +9                KILL DUOUR,DTOUT,DIRUT,DIR

 +10      ;CMI/GRL  prompt for device with HOME default

 +11      ;D PRINT^AMQQSEC E  W "  <= Not a secure device!!",*7 G DEV

 +12               WRITE !!

 +13      ;force prompt for Rt margin

                   SET %ZIS="M"

 +14               SET %ZIS("B")="HOME"

 +15               DO ^%ZIS

 +16               SET AMQQIOP=IO

 +17               IF POP

                       SET AMQQQUIT=""

                       QUIT 

               End DoDot:1

 +18       XECUTE AMQV(0)

LISTEND   ; ENTRY POINT FROM AMQQQE1

 +1        KILL AMQQCPLF

 +2        IF $DATA(AMQQQUIT)

               QUIT 

 +3        IF $EXTRACT(IOST,1,2)'="P-"

               Begin DoDot:1

 +4                IF '$GET(AMQQDLIM)

                       WRITE !,"Total: ",+$GET(AMQQTOT)

 +5                IF $GET(AMQQDLIM)

                       WRITE !!,"Screen capture content completed.",!,"Please turn off screen capture.",!

 +6                SET DIR(0)="E"

 +7                DO ^DIR

 +8                KILL DUOUT,DTOUT,DIRUT,DIR,AMQQDLIM

               End DoDot:1

               QUIT 

 +9        WRITE @IOF,@IOF

 +10       DO ^%ZISC

 +11       QUIT 

 +12      ;

COHORT     IF '$DATA(AMQQNOET)

               IF $DATA(^%ZOSF("TRAP"))

                   SET X="ERRC^AMQQCMPL"

                   SET @^%ZOSF("TRAP")

 +1        IF $DATA(AMQQEN31)

               DO ^AMQQCMPC

               QUIT 

 +2        DO ^AMQQCMP0

 +3        QUIT 

 +4       ;

PRINT      DO ^AMQQCMPP

 +1        KILL AMQQCPLF

 +2        QUIT 

 +3       ;

COUNT      DO COUNT^AMQQCMPP

 +1        KILL AMQQCPLF

 +2        QUIT 

 +3       ;

SAVE       DO ^AMQQCMPS

 +1        QUIT 

 +2       ;

OUTPUT    ; ENTRY POINT FROM AMQQENQ

 +1        DO OUT^AMQQOPT

           IF $DATA(AMQQQUIT)

               QUIT 

 +2        DO @AMQV("OPTION")

 +3        QUIT 

 +4       ;

ERRC       IF $DATA(AMQQDIBT)

               KILL ^DIBT(AMQQDIBT,1)

ERR        IF '$DATA(AMQQNOET)

               XECUTE "I $P($ZE,"">"")=""<INTERRUPT""!($ZE[""-CTRAP"")"

              IF $TEST

                   DO ^%ZISC

                   WRITE !!,"Session terminated...",!!

                   HANG 2

                   SET AMQQQUIT=""

                   DO EXIT

                   SET AMQQQUIT=""

                   QUIT 

 +1        IF '$DATA(AMQQNOET)

               XECUTE "I $P($ZE,"">"")=""<INRPT""!($ZE[""-CTRAP"")"

              IF $TEST

                   DO ^%ZISC

                   WRITE !!,"Session terminated...",!!

                   HANG 2

                   SET AMQQQUIT=""

                   DO EXIT

                   SET AMQQQUIT=""

                   QUIT 

 +2        IF $EXTRACT(IOST,1,2)="C-"

               WRITE !!,"ERROR DETECTED...SESSION ABORTED...SUSPECT MISSING DATA...NOTIFY SITE MANAGER",!!,*7

               HANG 3

               DO ^%ZISC

               DO @^%ZOSF("ERRTN")

 +3        IF $EXTRACT(IOST,1,2)'="C-"

               DO ^%ZISC

 +4        DO EXIT

           DO EXIT^AMQQ

           QUIT 

 +5        QUIT 

 +6       ;

STORE      DO STORE^AMQQQE

 +1        IF $DATA(AMQQQUIT)

               QUIT 

 +2        DO ^AMQQCMPS

 +3        SET AMQQCPLF=""

 +4        KILL AMQV("OPTION")

 +5        QUIT 

 +6       ;

MAIL       DO MAILX^AMQQRML

 +1        QUIT 

AGE        DO BUCKET^AMQQRMA

 +1        QUIT 

WORK       DO WORK^AMQQRMD

 +1        QUIT 

MONTH      DO MON^AMQQRMM

 +1        QUIT 

TIME       DO TIME^AMQQRMT

 +1        QUIT 

HSUM       DO HSUM^AMQQRMH

 +1        QUIT 

EMAN       DO ^AMQQEMAN

 +1        QUIT