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 ;
