AMQQOPT1.m

AMQQOPT1 ; IHS/CMI/THL - OVERFLOW FROM AMQQOPT ;

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

 ;-----

 Q

CHK I $D(DTOUT)+$D(DUOUT)+(Y=-1)+(Y="")+(Y=U) K AMQQOPT,DIRUT,DUOUT,DTOUT S AMQQQUIT="" Q

 Q

 ;

VIEW ; ENTRY POINT FROM AMQQOPT

 W @IOF,!!!,?15,"*****  VIEW Q-MAN TAXONOMIES AND TEMPLATES  *****",!!!

V1 S DIR(0)="SO^1:LIST Fileman/Q-Man search templates;2:VIEW taxonomies;3:ERASE a search template;4:REMOVE a taxonomy;9:HELP;0:EXIT"

 S DIR("??")="AMQQVIEW"

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

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

 D ^DIR

 K DIR

 D CHK

 I  K:$G(Y)'="^" AMQQQUIT W @IOF Q

 I Y=9 S XQH=$O(^DIC(9.2,"B","AMQQVIEW","")) D EN1^XQH G VIEW

 I Y=0 K AMQQOPT G EXIT

 I Y=1 D TMP^AMQQVIEW G VIEW

 I Y=2 D TAX^AMQQVIEW G VIEW

 I Y=3 D KTMP G VIEW

 I Y=4 D KTAX G VIEW

EXIT K X,%

 W @IOF

 Q

 ;

KTMP W !!!,"You can only erase your own templates...",!!

 S DIC("A")="TEMPLATE NAME: "

 S DIC(0)="AEQ"

 S DIC="^DIBT("

 S DIC("S")="I $P(^(0),U,5)=DUZ,$D(^(1))"

 D ^DIC

 I $D(DUOUT)+$D(DTOUT)+(Y=-1) K DUOUT,DTOUT Q

ASK W !,"Are you sure you want to do this"

 S %=0

 D YN^DICN

 I $D(DUOUT)+$D(DTOUT) Q

 I %Y["?" W !,"If you say yes, your search template will be deleted.",! G ASK

 I %=-1!(%=2)!'% Q

 S DA=+Y

 S DIK="^DIBT("

 D ^DIK

 W !!,"OK, the template has been erased",!

 H 2

 Q

 ;

KTAX W !!!,"You can only erase your own taxonomies created within Q-MAN...",!!

 S DIC("A")="TAXONOMY NAME: "

 S DIC(0)="AEQ"

 S DIC="^ATXAX("

 S DIC("S")="I $P(^(0),U,5)=DUZ,'$P(^(0),U,8),'$P(^(0),U,22),$P(^(0),U,4)="""""

 D ^DIC

 I $D(DUOUT)+$D(DTOUT)+(Y=-1) K DUOUT,DTOUT Q

ASK1 W !,"Are you sure you want to do this"

 S %=0

 D YN^DICN

 I $D(DUOUT)+$D(DTOUT) Q

 I %Y["?" W !,"If you say yes, your taxonomy will be deleted.",! G ASK1

 I %=-1!(%=2)!'% Q

 S DA=+Y

 S DIK="^ATXAX("

 D ^DIK

 K DIK,DIC,DA

 W !!,"OK, the taxonomy has been removed",!

 H 2

 Q

 ;

RMAN ; ENTRY POINT FROM AMQQCMPL

 I $D(AMQQOPT("SPEC")) K AMQQOPT("SPEC") S Y=5 G JUMP

 W @IOF,!!,?15,"*****  R-MAN   CUSTOM REPORT GENERATOR  *****"

 W !!!

 S DIR(0)="SO^1:CUSTOM configured reports;2:E-MAN data export manager;5:SPECIAL reports ('Age Distr Rpt', health summaries, etc.);9:HELP;0:EXIT"

 S DIR("??")="AMQQRMAN"

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

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

 D ^DIR

 K DIR

 D CHK

 I  W @IOF K AMQQQUIT Q

 I Y=9 S XQH="AMQQRMAN" D EN1^XQH G RMAN

 I Y=0 G EXIT

EMAN I Y=2 D PROG G:'% RMAN S AMQV("OPTION")="EMAN" Q

 I Y<5 W !!,"Sorry, this option is not available in Q-Man Ver. 2",!!,*7 H 3 G RMAN

JUMP I Y=5 D SPEC I '$D(AMQV("OPTION")) K AMQQQUIT G RMAN

 Q

 ;

SPEC W @IOF,!!,?15,"*****  R-MAN    SPECIAL REPORTS  *****"

 K DIR

 K AMQV("OPTION"),AMQQQUIT

 S DIR(0)="SO^1:Age Distribution Report;2:Health summaries;3:Mailing labels;4:Month Distribution Report;5:Time series;6:Workload Distribution Report;9:HELP"

 S DIR("??")="AMQQSPECIAL"

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

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

 D ^DIR

 K DIR

 D CHK

 I  W @IOF Q

 I Y=9 S XQH=$O(^DIC(9.2,"B","AMQQSPECIAL","")) D EN1^XQH G SPEC

 I Y=0 Q

 I Y S AMQV("OPTION")=$P("AGE^HSUM^MAIL^MONTH^TIME^WORK",U,Y) Q

 S AMQQOPT="SEARCH"

 Q

 ;

PROG ;

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

 I '% W !,"Sorry.  This option require a Q-Man E-MAN Access Key.  Check with your site manager.",!!,*7 H 2

 Q

 ;

AMQQOPT1  ; IHS/CMI/THL - OVERFLOW FROM AMQQOPT ;

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

 +2       ;-----

 +3        QUIT 

CHK        IF $DATA(DTOUT)+$DATA(DUOUT)+(Y=-1)+(Y="")+(Y=U)

               KILL AMQQOPT,DIRUT,DUOUT,DTOUT

               SET AMQQQUIT=""

               QUIT 

 +1        QUIT 

 +2       ;

VIEW      ; ENTRY POINT FROM AMQQOPT

 +1        WRITE @IOF,!!!,?15,"*****  VIEW Q-MAN TAXONOMIES AND TEMPLATES  *****",!!!

V1         SET DIR(0)="SO^1:LIST Fileman/Q-Man search templates;2:VIEW taxonomies;3:ERASE a search template;4:REMOVE a taxonomy;9:HELP;0:EXIT"

 +1        SET DIR("??")="AMQQVIEW"

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

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

 +4        DO ^DIR

 +5        KILL DIR

 +6        DO CHK

 +7       IF $TEST

               IF $GET(Y)'="^"

                   KILL AMQQQUIT

               WRITE @IOF

               QUIT 

 +8        IF Y=9

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

               DO EN1^XQH

               GOTO VIEW

 +9        IF Y=0

               KILL AMQQOPT

               GOTO EXIT

 +10       IF Y=1

               DO TMP^AMQQVIEW

               GOTO VIEW

 +11       IF Y=2

               DO TAX^AMQQVIEW

               GOTO VIEW

 +12       IF Y=3

               DO KTMP

               GOTO VIEW

 +13       IF Y=4

               DO KTAX

               GOTO VIEW

EXIT       KILL X,%

 +1        WRITE @IOF

 +2        QUIT 

 +3       ;

KTMP       WRITE !!!,"You can only erase your own templates...",!!

 +1        SET DIC("A")="TEMPLATE NAME: "

 +2        SET DIC(0)="AEQ"

 +3        SET DIC="^DIBT("

 +4        SET DIC("S")="I $P(^(0),U,5)=DUZ,$D(^(1))"

 +5        DO ^DIC

 +6        IF $DATA(DUOUT)+$DATA(DTOUT)+(Y=-1)

               KILL DUOUT,DTOUT

               QUIT 

ASK        WRITE !,"Are you sure you want to do this"

 +1        SET %=0

 +2        DO YN^DICN

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

               QUIT 

 +4        IF %Y["?"

               WRITE !,"If you say yes, your search template will be deleted.",!

               GOTO ASK

 +5        IF %=-1!(%=2)!'%

               QUIT 

 +6        SET DA=+Y

 +7        SET DIK="^DIBT("

 +8        DO ^DIK

 +9        WRITE !!,"OK, the template has been erased",!

 +10       HANG 2

 +11       QUIT 

 +12      ;

KTAX       WRITE !!!,"You can only erase your own taxonomies created within Q-MAN...",!!

 +1        SET DIC("A")="TAXONOMY NAME: "

 +2        SET DIC(0)="AEQ"

 +3        SET DIC="^ATXAX("

 +4        SET DIC("S")="I $P(^(0),U,5)=DUZ,'$P(^(0),U,8),'$P(^(0),U,22),$P(^(0),U,4)="""""

 +5        DO ^DIC

 +6        IF $DATA(DUOUT)+$DATA(DTOUT)+(Y=-1)

               KILL DUOUT,DTOUT

               QUIT 

ASK1       WRITE !,"Are you sure you want to do this"

 +1        SET %=0

 +2        DO YN^DICN

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

               QUIT 

 +4        IF %Y["?"

               WRITE !,"If you say yes, your taxonomy will be deleted.",!

               GOTO ASK1

 +5        IF %=-1!(%=2)!'%

               QUIT 

 +6        SET DA=+Y

 +7        SET DIK="^ATXAX("

 +8        DO ^DIK

 +9        KILL DIK,DIC,DA

 +10       WRITE !!,"OK, the taxonomy has been removed",!

 +11       HANG 2

 +12       QUIT 

 +13      ;

RMAN      ; ENTRY POINT FROM AMQQCMPL

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

               KILL AMQQOPT("SPEC")

               SET Y=5

               GOTO JUMP

 +2        WRITE @IOF,!!,?15,"*****  R-MAN   CUSTOM REPORT GENERATOR  *****"

 +3        WRITE !!!

 +4        SET DIR(0)="SO^1:CUSTOM configured reports;2:E-MAN data export manager;5:SPECIAL reports ('Age Distr Rpt', health summaries, etc.);9:HELP;0:EXIT"

 +5        SET DIR("??")="AMQQRMAN"

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

 +7        SET DIR("?")="Enter a code from the list or type '??' for more information"

 +8        DO ^DIR

 +9        KILL DIR

 +10       DO CHK

 +11      IF $TEST

               WRITE @IOF

               KILL AMQQQUIT

               QUIT 

 +12       IF Y=9

               SET XQH="AMQQRMAN"

               DO EN1^XQH

               GOTO RMAN

 +13       IF Y=0

               GOTO EXIT

EMAN       IF Y=2

               DO PROG

               IF '%

                   GOTO RMAN

               SET AMQV("OPTION")="EMAN"

               QUIT 

 +1        IF Y<5

               WRITE !!,"Sorry, this option is not available in Q-Man Ver. 2",!!,*7

               HANG 3

               GOTO RMAN

JUMP       IF Y=5

               DO SPEC

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

                   KILL AMQQQUIT

                   GOTO RMAN

 +1        QUIT 

 +2       ;

SPEC       WRITE @IOF,!!,?15,"*****  R-MAN    SPECIAL REPORTS  *****"

 +1        KILL DIR

 +2        KILL AMQV("OPTION"),AMQQQUIT

 +3        SET DIR(0)="SO^1:Age Distribution Report;2:Health summaries;3:Mailing labels;4:Month Distribution Report;5:Time series;6:Workload Distribution Report;9:HELP"

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

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

 +6        SET DIR("?")="Enter a code from the list or type '??' for more information"

 +7        DO ^DIR

 +8        KILL DIR

 +9        DO CHK

 +10      IF $TEST

               WRITE @IOF

               QUIT 

 +11       IF Y=9

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

               DO EN1^XQH

               GOTO SPEC

 +12       IF Y=0

               QUIT 

 +13       IF Y

               SET AMQV("OPTION")=$PIECE("AGE^HSUM^MAIL^MONTH^TIME^WORK",U,Y)

               QUIT 

 +14       SET AMQQOPT="SEARCH"

 +15       QUIT 

 +16      ;

PROG      ;

 +1        SET %=$$KEYCHECK^AMQQUTIL("AMQQZEMAN")

 +2        IF '%

               WRITE !,"Sorry.  This option require a Q-Man E-MAN Access Key.  Check with your site manager.",!!,*7

               HANG 2

 +3        QUIT 

 +4       ;