AMQQMGR5.m

AMQQMGR5 ; IHS/CMI/THL - SECURE DEVICES ;

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

 ;-----

 I $P($G(^AMQQ(8,DUZ(2),0)),U,10)'="" D OLD G EXIT

 D M2

EXIT K X,DIRUT,DIRDT,DUOUT,DTOUT,DISYS,C,DG,%,%Y

 Q

 ;

M2 W @IOF,!!,?15,"*****  IDENTIFY SECURE DEVICES FOR Q-MAN  *****",!!

 W !!,"You may want to define a group of ""secure devices"" for Q-Man.  If you choose"

 W !,"this option, Q-Man reports can only be displayed or printed on the devices you"

 W !,"specify.  First tell me if the set is ""inclusionary"" (all devices on your list"

 W !,"are secure) or ""exclusionary"" (all devices are secure unless they appear on"

 W !,"your list).  You may assign ""secure status"" to all devices or just the printers."

 W !,"Finally, I will ask you to enter the devices one at a time.",!

 S DIR(0)="SO^1:INCLUSIONARY (secure devices in list);2:EXCLUSIONARY (non-secure devices in list);0:EXIT (no device security requested)"

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

 D ^DIR

 K DIR

 I Y=0 Q

 I Y=U Q

 D CHK

 I $D(AMQQQUIT) K AMQQQUIT Q

 I Y=2 G M2EX

 S DIR(0)="SO^1:ALL devices outside of your set are not secure;2:ONLY printers outside of your set are not secure;0:EXIT"

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

 D ^DIR

 K DIR

 I Y=0!(Y=U) G M2

 D CHK

 I $D(AMQQQUIT) K AMQQQUIT G M2

 S AMQQMGRS=$S(Y=1:1,1:2)

 W !!

 G SECURE

M2EX S DIR(0)="SO^1:ALL devices outside of your set are secure;2:ONLY printers outside of your set are secure;0:EXIT"

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

 D ^DIR

 K DIR

 I Y=0!(Y=U) G M2

 D CHK

 I $D(AMQQQUIT) K AMQQQUIT G M2

 S AMQQMGRS=$S(Y=1:3,1:4)

 W !!

SECURE S DR=".1////"_$S(AMQQMGRS<3:"I",1:"E")_";.09////"_$S(AMQQMGRS#2:"A",1:"P")

 S DA=DUZ(2)

 S DIE="^AMQQ(8,"

 D ^DIE

 K DIE,DA,DR,DIC

 D ED

 Q

 ;

OLD ;

 W @IOF,!!,?20,"*****  DEVICE MANAGEMENT  *****",!!!,"Current status =>",!!

 S %=^AMQQ(8,DUZ(2),0)

 I $P(%,U,10)="I" W !,"INCLUSIONARY PROTOCOL (All devices on the list are secure)",!

 E  W !,"EXCLUSIONARY PROTOCOL (All devices on the list are NOT secure)",!

 I $P(%,U,9)="A" W !,"ALL DEVICES (terminals and printers) NEED SECURITY CLEARANCE",!

 E  W !,"ONLY PRINTERS NEED SECURITY CLEARANCE",!

 W !,"CURRENT LIST OF ",$S($P(%,U,10)="I":"",1:"NON-"),"SECURE DEVICES: ",!

 S N=0

 F X=0:0 S X=$O(^AMQQ(8,DUZ(2),1,X)) Q:'X  D STOP S (Y,%)=^(X,0),%=$P(^%ZIS(1,%,0),U) W ?3,%,?20,$P(^%ZIS(2,^%ZIS(1,Y,"SUBTYPE"),0),U),?48,$P($G(^%ZIS(1,Y,1)),U)

 S DIR(0)="SO^1:CLEAR the device list and start over;2:EDIT the device list;0:EXIT"

 S DIR("A")="What do you want to do now"

 S DIR("B")="EXIT"

 D ^DIR

 K DIR

 I $D(DIRUT)+$D(DUOUT)+$D(DTOUT)+'Y K DIRUT,DTOUT,DUOUT G EXIT

 I Y=1 D CLEAR Q

 I Y=2 D EDIT

 Q

 ;

CLEAR D WAIT^DICD

 S DA(1)=DUZ(2)

 S DIK="^AMQQ(8,"_DA(1)_",1,"

 F DA=0:0 S DA=$O(^AMQQ(8,DA(1),1,DA)) Q:'DA  D ^DIK W "."

 S DR=".1///@;.09///@"

 S DIE="^AMQQ(8,"

 S DA=DUZ(2)

 D ^DIE

 K DIK,DA,DR,DIC,D,D0,DI,DIE,DQ

 Q

 ;

EDIT I '$O(^AMQQ(8,DUZ(2),1,0)) W !!,"Sorry, there are no devices in the file to edit.",!!,*7 Q

ED S DA(1)=DUZ(2)

 S DIC("P")=$P(^DD(9009078,1,0),U,2)

 S DIC="^AMQQ(8,"_DA(1)_",1,"

 S DIC(0)="AEQLM"

 D ^DIC

 K DIC,DA

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

 I $P(Y,U,3) D SCREEN G ED

 W !,?3,"This device is already in the file.  Want to remove it"

 S %=2

 D YN^DICN

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

 I "Nn"[$E(%Y) G ED

 S DA=+Y

 S DA(1)=DUZ(2)

 S DIK="^AMQQ(8,"_DA(1)_",1,"

 D ^DIK

 W !!,"DEVICE REMOVED FROM LIST"

 K %Y,Y,X,DIK,DA,DIC,D0,DI,DISYS

 G ED

 ;

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

 Q

 ;

STOP N X

 S N=N+1

 W !

 I N=15 S N=0 R "<>",X:DTIME W $C(13),?79,$C(13)

 Q

 ;

SCREEN I $P(^AMQQ(8,DUZ(2),0),U,9)'="P" Q

 I $P(^%ZIS(2,^%ZIS(1,$P(Y,U,2),"SUBTYPE"),0),U)["P-" Q

 W !!,"SORRY...This device must be a printer!",!!,*7

 S DA(1)=DUZ(2)

 S DA=+Y

 S DIK="^AMQQ(8,"_DA(1)_",1,"

 D ^DIK

 K DIK,DA,DIC,D0,DI,DQ

 S Y=-1

 Q

 ;

AMQQMGR5  ; IHS/CMI/THL - SECURE DEVICES ;

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

 +2       ;-----

 +3        IF $PIECE($GET(^AMQQ(8,DUZ(2),0)),U,10)'=""

               DO OLD

               GOTO EXIT

 +4        DO M2

EXIT       KILL X,DIRUT,DIRDT,DUOUT,DTOUT,DISYS,C,DG,%,%Y

 +1        QUIT 

 +2       ;

M2         WRITE @IOF,!!,?15,"*****  IDENTIFY SECURE DEVICES FOR Q-MAN  *****",!!

 +1        WRITE !!,"You may want to define a group of ""secure devices"" for Q-Man.  If you choose"

 +2        WRITE !,"this option, Q-Man reports can only be displayed or printed on the devices you"

 +3        WRITE !,"specify.  First tell me if the set is ""inclusionary"" (all devices on your list"

 +4        WRITE !,"are secure) or ""exclusionary"" (all devices are secure unless they appear on"

 +5        WRITE !,"your list).  You may assign ""secure status"" to all devices or just the printers."

 +6        WRITE !,"Finally, I will ask you to enter the devices one at a time.",!

 +7        SET DIR(0)="SO^1:INCLUSIONARY (secure devices in list);2:EXCLUSIONARY (non-secure devices in list);0:EXIT (no device security requested)"

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

 +9        DO ^DIR

 +10       KILL DIR

 +11       IF Y=0

               QUIT 

 +12       IF Y=U

               QUIT 

 +13       DO CHK

 +14       IF $DATA(AMQQQUIT)

               KILL AMQQQUIT

               QUIT 

 +15       IF Y=2

               GOTO M2EX

 +16       SET DIR(0)="SO^1:ALL devices outside of your set are not secure;2:ONLY printers outside of your set are not secure;0:EXIT"

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

 +18       DO ^DIR

 +19       KILL DIR

 +20       IF Y=0!(Y=U)

               GOTO M2

 +21       DO CHK

 +22       IF $DATA(AMQQQUIT)

               KILL AMQQQUIT

               GOTO M2

 +23       SET AMQQMGRS=$SELECT(Y=1:1,1:2)

 +24       WRITE !!

 +25       GOTO SECURE

M2EX       SET DIR(0)="SO^1:ALL devices outside of your set are secure;2:ONLY printers outside of your set are secure;0:EXIT"

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

 +2        DO ^DIR

 +3        KILL DIR

 +4        IF Y=0!(Y=U)

               GOTO M2

 +5        DO CHK

 +6        IF $DATA(AMQQQUIT)

               KILL AMQQQUIT

               GOTO M2

 +7        SET AMQQMGRS=$SELECT(Y=1:3,1:4)

 +8        WRITE !!

SECURE     SET DR=".1////"_$SELECT(AMQQMGRS<3:"I",1:"E")_";.09////"_$SELECT(AMQQMGRS#2:"A",1:"P")

 +1        SET DA=DUZ(2)

 +2        SET DIE="^AMQQ(8,"

 +3        DO ^DIE

 +4        KILL DIE,DA,DR,DIC

 +5        DO ED

 +6        QUIT 

 +7       ;

OLD       ;

 +1        WRITE @IOF,!!,?20,"*****  DEVICE MANAGEMENT  *****",!!!,"Current status =>",!!

 +2        SET %=^AMQQ(8,DUZ(2),0)

 +3        IF $PIECE(%,U,10)="I"

               WRITE !,"INCLUSIONARY PROTOCOL (All devices on the list are secure)",!

 +4       IF '$TEST

               WRITE !,"EXCLUSIONARY PROTOCOL (All devices on the list are NOT secure)",!

 +5        IF $PIECE(%,U,9)="A"

               WRITE !,"ALL DEVICES (terminals and printers) NEED SECURITY CLEARANCE",!

 +6       IF '$TEST

               WRITE !,"ONLY PRINTERS NEED SECURITY CLEARANCE",!

 +7        WRITE !,"CURRENT LIST OF ",$SELECT($PIECE(%,U,10)="I":"",1:"NON-"),"SECURE DEVICES: ",!

 +8        SET N=0

 +9        FOR X=0:0

               SET X=$ORDER(^AMQQ(8,DUZ(2),1,X))

               IF 'X

                   QUIT 

               DO STOP

               SET (Y,%)=^(X,0)

               SET %=$PIECE(^%ZIS(1,%,0),U)

               WRITE ?3,%,?20,$PIECE(^%ZIS(2,^%ZIS(1,Y,"SUBTYPE"),0),U),?48,$PIECE($GET(^%ZIS(1,Y,1)),U)

 +10       SET DIR(0)="SO^1:CLEAR the device list and start over;2:EDIT the device list;0:EXIT"

 +11       SET DIR("A")="What do you want to do now"

 +12       SET DIR("B")="EXIT"

 +13       DO ^DIR

 +14       KILL DIR

 +15       IF $DATA(DIRUT)+$DATA(DUOUT)+$DATA(DTOUT)+'Y

               KILL DIRUT,DTOUT,DUOUT

               GOTO EXIT

 +16       IF Y=1

               DO CLEAR

               QUIT 

 +17       IF Y=2

               DO EDIT

 +18       QUIT 

 +19      ;

CLEAR      DO WAIT^DICD

 +1        SET DA(1)=DUZ(2)

 +2        SET DIK="^AMQQ(8,"_DA(1)_",1,"

 +3        FOR DA=0:0

               SET DA=$ORDER(^AMQQ(8,DA(1),1,DA))

               IF 'DA

                   QUIT 

               DO ^DIK

               WRITE "."

 +4        SET DR=".1///@;.09///@"

 +5        SET DIE="^AMQQ(8,"

 +6        SET DA=DUZ(2)

 +7        DO ^DIE

 +8        KILL DIK,DA,DR,DIC,D,D0,DI,DIE,DQ

 +9        QUIT 

 +10      ;

EDIT       IF '$ORDER(^AMQQ(8,DUZ(2),1,0))

               WRITE !!,"Sorry, there are no devices in the file to edit.",!!,*7

               QUIT 

ED         SET DA(1)=DUZ(2)

 +1        SET DIC("P")=$PIECE(^DD(9009078,1,0),U,2)

 +2        SET DIC="^AMQQ(8,"_DA(1)_",1,"

 +3        SET DIC(0)="AEQLM"

 +4        DO ^DIC

 +5        KILL DIC,DA

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

               KILL DUOUT,DTOUT

               QUIT 

 +7        IF $PIECE(Y,U,3)

               DO SCREEN

               GOTO ED

 +8        WRITE !,?3,"This device is already in the file.  Want to remove it"

 +9        SET %=2

 +10       DO YN^DICN

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

               KILL DTOUT,DUOUT

               QUIT 

 +12       IF "Nn"[$EXTRACT(%Y)

               GOTO ED

 +13       SET DA=+Y

 +14       SET DA(1)=DUZ(2)

 +15       SET DIK="^AMQQ(8,"_DA(1)_",1,"

 +16       DO ^DIK

 +17       WRITE !!,"DEVICE REMOVED FROM LIST"

 +18       KILL %Y,Y,X,DIK,DA,DIC,D0,DI,DISYS

 +19       GOTO ED

 +20      ;

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

               KILL DIRUT,DUOUT,DTOUT

               SET AMQQQUIT=""

               QUIT 

 +1        QUIT 

 +2       ;

STOP       NEW X

 +1        SET N=N+1

 +2        WRITE !

 +3        IF N=15

               SET N=0

               READ "<>",X:DTIME

               WRITE $CHAR(13),?79,$CHAR(13)

 +4        QUIT 

 +5       ;

SCREEN     IF $PIECE(^AMQQ(8,DUZ(2),0),U,9)'="P"

               QUIT 

 +1        IF $PIECE(^%ZIS(2,^%ZIS(1,$PIECE(Y,U,2),"SUBTYPE"),0),U)["P-"

               QUIT 

 +2        WRITE !!,"SORRY...This device must be a printer!",!!,*7

 +3        SET DA(1)=DUZ(2)

 +4        SET DA=+Y

 +5        SET DIK="^AMQQ(8,"_DA(1)_",1,"

 +6        DO ^DIK

 +7        KILL DIK,DA,DIC,D0,DI,DQ

 +8        SET Y=-1

 +9        QUIT 

 +10      ;