AMQQOPT.m

AMQQOPT ;IHS/CMI/THL - QUERY OPTIONS ;

 ;;2.0;IHS PCC SUITE;**2,4,5**;MAY 14, 2009

 ;-----

ADAM I $D(AMQQADAM) D SEL G EXIT

 I $D(AMQQAGIN) D SEL G EXIT

HELLO W @IOF,!!,?12,"*****  WELCOME TO Q-MAN: THE PCC QUERY UTILITY  *****"

RUN D WARN

 D SEC

 I $D(AMQQQUIT) G EXIT

 S DIR(0)="E"

 D ^DIR

 K DIR

 I $D(DUOUT)+$D(DTOUT) K DTOUT,DIRUT,DUOUT S AMQQQUIT="" G EXIT

 D SEL

EXIT K X,%,Y

 Q

 ;

WARN S X=""

 S $P(X,"*",80)=""

 W !!!,X,!

W1 W "**         WARNING...Q-Man produces confidential patient information.        **"

 W !,"**     View only in private.  Keep all printed reports in a secure area.     **",!

 W "**          Ask your site manager for the current Q-Man Users Guide.         **",!,X,!!!

 Q

 ;

SEC I '($D(DUZ)#2) D NOUSER Q

 I 'DUZ D NOUSER Q

 I '$D(DUZ(2)) D NOSITE Q

 I 'DUZ(2) D NOSITE Q

 W !,"Query utility: IHS PCC SUITE Q-MAN Ver. ",AMQQVER

 S %=$P(@AMQQ200(3)@(DUZ,0),U)

 S %=$P(%,",",2,9)_" "_$P(%,",")

 W !,"Current user: ",%

 W !,"Chart numbers will be displayed for: ",$P(^DIC(4,DUZ(2),0),U)

 W !,"Access to demographic data: PERMITTED"

 W !,"Access to clinical data: "

 S %=$$KEYCHECK^AMQQUTIL("AMQQZCLIN")

 W $S(%:"PERMITTED",1:"DENIED"),!

 S %=$$KEYCHECK^AMQQUTIL("AMQQZPROG")

 W "Programmer privileges: ",$S(%:"YES",1:"NO"),!!!

 Q

 ;

NOUSER W !!,"USER NOT IDENTIFIED...SESSION ABORTED",!!,*7 G NO1

NOSITE W !!,"LOCATION NOT IDENTIFIED...SESSION ABORTED",!!,*7

NO1 S AMQQQUIT=""

 H 3

 Q

 ;

CHECK Q  ;S %=$$KEYCHECK^AMQQUTIL("AMQQZPROG") ;IHS/CMI/THL PATCH XXX

 I '% K AMQQOPT W "Sorry...Programmer privileges are required for this option",!!,*7 H 3 W @IOF

 Q

 ;

SEL W @IOF,!!?25,"*****  Q-MAN OPTIONS  *****",!!!

SEL1 S DIR(0)="SO^1:SEARCH PCC Database (dialogue interface);2:FAST Facts (natural language interface);3:RUN Search Logic;4:VIEW/DELETE Taxonomies and Search Templates;5:FILEMAN Print;9:HELP;0:EXIT"

 S DIR("A")=$C(10)_"     Your choice"

 S DIR("B")="SEARCH"

 S DIR("?")="Select an option or type '??' for more information"

 S DIR("??")="AMQQMENU"

 D ^DIR

 K DIR,AMQQDLIM

 I $G(DUOUT)+$G(DTOUT)+'Y K DTOUT,DIRUT,DUOUT S AMQQQUIT="" Q

OUT1 W !!

 I Y=1 S AMQQOPT="SEARCH" Q

 I Y=2 S AMQQOPT="FAST" Q

 I Y=3 S AMQQOPT="SAVE" D CHECK G:'$D(AMQQOPT) SEL1 Q

 I Y=4 S AMQQOPT="VIEW" D VIEW G SEL

 I Y=5 S %=$$KEYCHECK^AMQQUTIL("AMQQZCLIN") I '% W "Sorry...Clinical privileges are required for this option",!!,*7 H 3 G SEL

 I Y=5 D ^DIP G SEL

 I Y=9 S XQH=$O(^DIC(9.2,"B","AMQQMENU","")),DIC(0)="X" D EN^XQH G SEL

 Q

 ;

OUT ; ENTRY POINT FROM AMQQCMPL

 I $D(AMQQEN31) S AMQV("OPTION")="COHORT" Q

 K AMQV("OPTION")

 D OUTPUT

 I $D(AMQQQUIT) G OUTEXIT

 I Y=-1 D  Q

 .I $D(AMQV("OPTION")),$D(AMQQQUIT),"AGEHSUMMAILMONTHTIMEWORK"[AMQV("OPTION") S AMQQOPT("SPEC")=""

 S AMQV("OPTION")=$P("LIST^PRINT^COUNT^COHORT^STORE^RMAN",U,Y)

OUTEXIT K X,POP,DTOUT

 S AMQQ("AGIN")=""

 Q

 ;

OUTPUT ; - EP - FROM AMQQQE1

 K AMQQDVQU

 I $D(AMQQOPT("ASCII")) S Y=6 K AMQQOPT("ASCII") G RMAN

 I $D(AMQQOPT("SPEC")) S Y=6 G RMAN

 W @IOF,!!,?20,"*****  Q-MAN OUTPUT OPTIONS  *****",!!

OS S DIR(0)="SO^1:DISPLAY results on the screen;2:PRINT results on paper;3:COUNT 'hits';4:STORE results of a search in a FM search template;5:SAVE search logic for future use;6:R-MAN special report generator"

 S DIR(0)=DIR(0)_";7:DELIMITED file via screen capture;9:HELP;0:EXIT"

 S DIR("??")="AMQQOUTPUT"

 S DIR("?")="Enter a code from the list or '??' for more information on each choice"

 S DIR("A")=$C(10)_"     Your choice"

 S DIR("B")="DISPLAY"

 D ^DIR

 K DIR

 I $D(DUOUT)+$D(DTOUT) K DIRUT,DUOUT,DTOUT S AMQQQUIT="" Q

 I Y=9 S XQH="AMQQOUTPUT",DIC(0)="X" D EN^XQH G OUTPUT

 I 'Y S AMQQQUIT="" Q

 I Y=7 S AMQQDLIM=1 S Y=1

 I Y=5,$D(AMQQCPLF) W "  (Already selected...try again)",*7,! G OS

RMAN I Y=6 D RMAN^AMQQOPT1 G:'$D(AMQV("OPTION")) OS I '$D(AMQQQUIT) D @(AMQV("OPTION")_"^AMQQRMAN") S Y=-1 I $D(AMQQRERF) K AMQQRERF D  G OUTPUT

 .I $D(AMQV("OPTION")),$D(AMQQQUIT),"AGEHSUMMAILMONTHTIMEWORK"[AMQV("OPTION") S AMQQOPT("SPEC")=""

 Q

 ;

VIEW D VIEW^AMQQOPT1

 Q

 ;

AMQQOPT   ;IHS/CMI/THL - QUERY OPTIONS ;

 +1       ;;2.0;IHS PCC SUITE;**2,4,5**;MAY 14, 2009

 +2       ;-----

ADAM       IF $DATA(AMQQADAM)

               DO SEL

               GOTO EXIT

 +1        IF $DATA(AMQQAGIN)

               DO SEL

               GOTO EXIT

HELLO      WRITE @IOF,!!,?12,"*****  WELCOME TO Q-MAN: THE PCC QUERY UTILITY  *****"

RUN        DO WARN

 +1        DO SEC

 +2        IF $DATA(AMQQQUIT)

               GOTO EXIT

 +3        SET DIR(0)="E"

 +4        DO ^DIR

 +5        KILL DIR

 +6        IF $DATA(DUOUT)+$DATA(DTOUT)

               KILL DTOUT,DIRUT,DUOUT

               SET AMQQQUIT=""

               GOTO EXIT

 +7        DO SEL

EXIT       KILL X,%,Y

 +1        QUIT 

 +2       ;

WARN       SET X=""

 +1        SET $PIECE(X,"*",80)=""

 +2        WRITE !!!,X,!

W1         WRITE "**         WARNING...Q-Man produces confidential patient information.        **"

 +1        WRITE !,"**     View only in private.  Keep all printed reports in a secure area.     **",!

 +2        WRITE "**          Ask your site manager for the current Q-Man Users Guide.         **",!,X,!!!

 +3        QUIT 

 +4       ;

SEC        IF '($DATA(DUZ)#2)

               DO NOUSER

               QUIT 

 +1        IF 'DUZ

               DO NOUSER

               QUIT 

 +2        IF '$DATA(DUZ(2))

               DO NOSITE

               QUIT 

 +3        IF 'DUZ(2)

               DO NOSITE

               QUIT 

 +4        WRITE !,"Query utility: IHS PCC SUITE Q-MAN Ver. ",AMQQVER

 +5        SET %=$PIECE(@AMQQ200(3)@(DUZ,0),U)

 +6        SET %=$PIECE(%,",",2,9)_" "_$PIECE(%,",")

 +7        WRITE !,"Current user: ",%

 +8        WRITE !,"Chart numbers will be displayed for: ",$PIECE(^DIC(4,DUZ(2),0),U)

 +9        WRITE !,"Access to demographic data: PERMITTED"

 +10       WRITE !,"Access to clinical data: "

 +11       SET %=$$KEYCHECK^AMQQUTIL("AMQQZCLIN")

 +12       WRITE $SELECT(%:"PERMITTED",1:"DENIED"),!

 +13       SET %=$$KEYCHECK^AMQQUTIL("AMQQZPROG")

 +14       WRITE "Programmer privileges: ",$SELECT(%:"YES",1:"NO"),!!!

 +15       QUIT 

 +16      ;

NOUSER     WRITE !!,"USER NOT IDENTIFIED...SESSION ABORTED",!!,*7

           GOTO NO1

NOSITE     WRITE !!,"LOCATION NOT IDENTIFIED...SESSION ABORTED",!!,*7

NO1        SET AMQQQUIT=""

 +1        HANG 3

 +2        QUIT 

 +3       ;

CHECK     ;S %=$$KEYCHECK^AMQQUTIL("AMQQZPROG") ;IHS/CMI/THL PATCH XXX

           QUIT 

 +1        IF '%

               KILL AMQQOPT

               WRITE "Sorry...Programmer privileges are required for this option",!!,*7

               HANG 3

               WRITE @IOF

 +2        QUIT 

 +3       ;

SEL        WRITE @IOF,!!?25,"*****  Q-MAN OPTIONS  *****",!!!

SEL1       SET DIR(0)="SO^1:SEARCH PCC Database (dialogue interface);2:FAST Facts (natural language interface);3:RUN Search Logic;4:VIEW/DELETE Taxonomies and Search Templates;5:FILEMAN Print;9:HELP;0:EXIT"

 +1        SET DIR("A")=$CHAR(10)_"     Your choice"

 +2        SET DIR("B")="SEARCH"

 +3        SET DIR("?")="Select an option or type '??' for more information"

 +4        SET DIR("??")="AMQQMENU"

 +5        DO ^DIR

 +6        KILL DIR,AMQQDLIM

 +7        IF $GET(DUOUT)+$GET(DTOUT)+'Y

               KILL DTOUT,DIRUT,DUOUT

               SET AMQQQUIT=""

               QUIT 

OUT1       WRITE !!

 +1        IF Y=1

               SET AMQQOPT="SEARCH"

               QUIT 

 +2        IF Y=2

               SET AMQQOPT="FAST"

               QUIT 

 +3        IF Y=3

               SET AMQQOPT="SAVE"

               DO CHECK

               IF '$DATA(AMQQOPT)

                   GOTO SEL1

               QUIT 

 +4        IF Y=4

               SET AMQQOPT="VIEW"

               DO VIEW

               GOTO SEL

 +5        IF Y=5

               SET %=$$KEYCHECK^AMQQUTIL("AMQQZCLIN")

               IF '%

                   WRITE "Sorry...Clinical privileges are required for this option",!!,*7

                   HANG 3

                   GOTO SEL

 +6        IF Y=5

               DO ^DIP

               GOTO SEL

 +7        IF Y=9

               SET XQH=$ORDER(^DIC(9.2,"B","AMQQMENU",""))

               SET DIC(0)="X"

               DO EN^XQH

               GOTO SEL

 +8        QUIT 

 +9       ;

OUT       ; ENTRY POINT FROM AMQQCMPL

 +1        IF $DATA(AMQQEN31)

               SET AMQV("OPTION")="COHORT"

               QUIT 

 +2        KILL AMQV("OPTION")

 +3        DO OUTPUT

 +4        IF $DATA(AMQQQUIT)

               GOTO OUTEXIT

 +5        IF Y=-1

               Begin DoDot:1

 +6                IF $DATA(AMQV("OPTION"))

                       IF $DATA(AMQQQUIT)

                           IF "AGEHSUMMAILMONTHTIMEWORK"[AMQV("OPTION")

                               SET AMQQOPT("SPEC")=""

               End DoDot:1

               QUIT 

 +7        SET AMQV("OPTION")=$PIECE("LIST^PRINT^COUNT^COHORT^STORE^RMAN",U,Y)

OUTEXIT    KILL X,POP,DTOUT

 +1        SET AMQQ("AGIN")=""

 +2        QUIT 

 +3       ;

OUTPUT    ; - EP - FROM AMQQQE1

 +1        KILL AMQQDVQU

 +2        IF $DATA(AMQQOPT("ASCII"))

               SET Y=6

               KILL AMQQOPT("ASCII")

               GOTO RMAN

 +3        IF $DATA(AMQQOPT("SPEC"))

               SET Y=6

               GOTO RMAN

 +4        WRITE @IOF,!!,?20,"*****  Q-MAN OUTPUT OPTIONS  *****",!!

OS         SET DIR(0)="SO^1:DISPLAY results on the screen;2:PRINT results on paper;3:COUNT 'hits';4:STORE results of a search in a FM search template;5:SAVE search logic for future use;6:R-MAN special report generator"

 +1        SET DIR(0)=DIR(0)_";7:DELIMITED file via screen capture;9:HELP;0:EXIT"

 +2        SET DIR("??")="AMQQOUTPUT"

 +3        SET DIR("?")="Enter a code from the list or '??' for more information on each choice"

 +4        SET DIR("A")=$CHAR(10)_"     Your choice"

 +5        SET DIR("B")="DISPLAY"

 +6        DO ^DIR

 +7        KILL DIR

 +8        IF $DATA(DUOUT)+$DATA(DTOUT)

               KILL DIRUT,DUOUT,DTOUT

               SET AMQQQUIT=""

               QUIT 

 +9        IF Y=9

               SET XQH="AMQQOUTPUT"

               SET DIC(0)="X"

               DO EN^XQH

               GOTO OUTPUT

 +10       IF 'Y

               SET AMQQQUIT=""

               QUIT 

 +11       IF Y=7

               SET AMQQDLIM=1

               SET Y=1

 +12       IF Y=5

               IF $DATA(AMQQCPLF)

                   WRITE "  (Already selected...try again)",*7,!

                   GOTO OS

RMAN       IF Y=6

               DO RMAN^AMQQOPT1

               IF '$DATA(AMQV("OPTION"))

                   GOTO OS

               IF '$DATA(AMQQQUIT)

                   DO @(AMQV("OPTION")_"^AMQQRMAN")

                   SET Y=-1

                   IF $DATA(AMQQRERF)

                       KILL AMQQRERF

                       Begin DoDot:1

 +1                        IF $DATA(AMQV("OPTION"))

                               IF $DATA(AMQQQUIT)

                                   IF "AGEHSUMMAILMONTHTIMEWORK"[AMQV("OPTION")

                                       SET AMQQOPT("SPEC")=""

                       End DoDot:1

                       GOTO OUTPUT

 +2        QUIT 

 +3       ;

VIEW       DO VIEW^AMQQOPT1

 +1        QUIT 

 +2       ;