Routine: AKMOSKEY

AKMOSKEY ;OHPD-TUCSON/BRJ ASSIGN NAMESPACE SECURITY KEYS TO USERS [ 04/22/93  10:41 AM ]

 ;;2.0;IHS KERNEL UTILITIES;;JUN 28, 1993

EN ; ENTRY TO PROGRAM

 X "ZL @""XUS"" S AKMO(""KERNEL VERSION"")=$P($T(+2),"";"",3)"

 I AKMO("KERNEL VERSION")<7 W !!,*7,"You are running Kernel ",AKMO("KERNEL VERSION"),".  This program requires Kernel 7.0 or later version!",!!,"No action taken!!",! K AKMO Q

 D ^XBKSET

 W !,"I'm ready to assign security keys but. . .",!,"Please note - the POSTMASTER will be the assignee.",!

 S DUZ(0)="@"

 S X="T",%DT="" D ^%DT S AKMO("DATE")=Y

GETNSP ; Get security key namespaces

 F  D  Q:AKMO("NO MORE KEYS")

 . S AKMO("NO MORE KEYS")=1

 . F  R !,?10,"Enter Security Key namespace : // ",AKMO("KEYNSP") Q:"^"[AKMO("KEYNSP")  D  Q:$D(AKMO("KEY TBL","*"))

 .. I AKMO("KEYNSP")?1"?".E W !!,?5,"Enter the leading characters of the package namespace.",!,?15,"Ex: APCD for PCC Data Entry ",!,?5,"OR - to select all keys, enter an asterisk (*).",! Q

 .. I AKMO("KEYNSP")?1"*".E D  Q

 ... W !!,"Selecting ALL security keys supercedes previously selected namespace, if any, for this iteration."

 ... W !!,*7,"Do you really want to assign all security keys at this time"

 ... S %=1 D YN^DICN

 ... Q:%'=1

 ... W !!,"O.K.",!

 ... K AKMO("KEY TBL")

 ... S AKMO("KEY TBL","*")=""

 ... S AKMO("NO MORE KEYS")=0

 .. S AKMO("KEY")=$O(^DIC(19.1,"B",AKMO("KEYNSP")))

 .. I AKMO("KEYNSP")'=$E(AKMO("KEY"),1,$L(AKMO("KEYNSP"))) W !,*7,?10,"The ",AKMO("KEYNSP")," namespace does not have any security keys!",! Q

 .. S AKMO("KEY TBL",AKMO("KEYNSP"))=""

 .. S AKMO("NO MORE KEYS")=0

GETUSER . ;

 . Q:AKMO("NO MORE KEYS")

 . S DIC="^VA(200,"

 . S DIC("A")="Enter User Name to be assigned keys: // "

 . S DIC(0)="AEMQ"

 . F  W ! D ^DIC Q:"^"[X  D

 .. S AKMO("KEYNSP")=""

 .. F  S AKMO("KEYNSP")=$O(AKMO("KEY TBL",AKMO("KEYNSP"))) Q:AKMO("KEYNSP")=""  S AKMO("KEY TBL",AKMO("KEYNSP"),X,$P(Y,U))=""

 . S AKMO("NO MORE KEYS")=1

ASSGNLP ; LOOP DOWN AKMO("KEY TBL","KEYNSP",holder) and assign the security keys

;Q

 W !!,"Assigning security keys. . . ",!

 S AKMO("KEYNSP")=""

 F  S AKMO("KEYNSP")=$O(AKMO("KEY TBL",AKMO("KEYNSP"))) Q:AKMO("KEYNSP")=""  D

 . S AKMO("HOLDER")=""

 . F  S AKMO("HOLDER")=$O(AKMO("KEY TBL",AKMO("KEYNSP"),AKMO("HOLDER"))) Q:AKMO("HOLDER")=""  D

 .. S AKMO("HOLDER DFN")=$O(AKMO("KEY TBL",AKMO("KEYNSP"),AKMO("HOLDER"),""))

 .. S AKMO("KEY")=AKMO("KEYNSP")

 .. F  S AKMO("KEY")=$O(^DIC(19.1,"B",AKMO("KEY"))) D  Q:AKMO("KEY")=""

 ... Q:AKMO("KEY")=""

 ... I AKMO("KEYNSP")'="*",$E(AKMO("KEY"),1,$L(AKMO("KEYNSP")))'=AKMO("KEYNSP") S AKMO("KEY")="" Q

 ... S AKMO("KEY DFN")=$O(^DIC(19.1,"B",AKMO("KEY"),""))

 ... I $D(^VA(200,AKMO("HOLDER DFN"),51,AKMO("KEY DFN"))) W !,AKMO("KEY"),?34,"already assigned to <",AKMO("HOLDER"),">." Q

 ... ; I '$D(^DIC(19.1,"D",DUZ,AKMO("KEY DFN"))) W !,AKMO("KEY"),?30,"Denied!  You are not allowed to assign this key." Q

ASSGNKEY ... ; ASSIGN KEY USING DIC AND DIE CALLS

 ... S DIE="^VA(200,",DA=AKMO("HOLDER DFN"),DR="51///`"_AKMO("KEY DFN")

 ... S DR(2,200.051)="1////.5;2////"_AKMO("DATE")_";3////"_AKMO("DATE")

 ... D ^DIE

 ... K DIE,DR,DA

 ... I $D(Y) W !!,*7,"FileManager error condition returned from ^DIE call while updating",!,?3,AKMO("KEY")," security key for ",AKMO("HOLDER"),!,?3,"Security key was not assigned." Q

 ... W !,AKMO("KEY"),?42,"assigned to <",AKMO("HOLDER"),">."

XIT ;

 I '$D(AKMO("KEY TBL")) W !!,*7,"No selection of security keys made.  B y e . . . .",!

 W !!,*7,?12,"<DONE>"

KILL ; KILL VARIABLES

 K AKMO,Y,%DT,DIC,DIE,DUZ,DA,DR,DT,X

AKMOSKEY  ;OHPD-TUCSON/BRJ ASSIGN NAMESPACE SECURITY KEYS TO USERS [ 04/22/93  10:41 AM ]

 +1       ;;2.0;IHS KERNEL UTILITIES;;JUN 28, 1993

EN        ; ENTRY TO PROGRAM

 +1        XECUTE "ZL @""XUS"" S AKMO(""KERNEL VERSION"")=$P($T(+2),"";"",3)"

 +2        IF AKMO("KERNEL VERSION")<7

               WRITE !!,*7,"You are running Kernel ",AKMO("KERNEL VERSION"),".  This program requires Kernel 7.0 or later version!",!!,"No action taken!!",!

               KILL AKMO

               QUIT

 +3        DO ^XBKSET

 +4        WRITE !,"I'm ready to assign security keys but. . .",!,"Please note - the POSTMASTER will be the assignee.",!

 +5        SET DUZ(0)="@"

 +6        SET X="T"

           SET %DT=""

           DO ^%DT

           SET AKMO("DATE")=Y

GETNSP    ; Get security key namespaces

 +1        FOR

               Begin DoDot:1

 +2                SET AKMO("NO MORE KEYS")=1

 +3                FOR

                       READ !,?10,"Enter Security Key namespace : // ",AKMO("KEYNSP")

                       IF "^"[AKMO("KEYNSP")

                           QUIT

                       Begin DoDot:2

 +4                        IF AKMO("KEYNSP")?1"?".E

                               WRITE !!,?5,"Enter the leading characters of the package namespace.",!,?15,"Ex: APCD for PCC Data Entry ",!,?5,"OR - to select all keys, enter an asterisk (*).",!

                               QUIT

 +5                        IF AKMO("KEYNSP")?1"*".E

                               Begin DoDot:3

 +6                                WRITE !!,"Selecting ALL security keys supercedes previously selected namespace, if any, for this iteration."

 +7                                WRITE !!,*7,"Do you really want to assign all security keys at this time"

 +8                                SET %=1

                                   DO YN^DICN

 +9                                IF %'=1

                                       QUIT

 +10                               WRITE !!,"O.K.",!

 +11                               KILL AKMO("KEY TBL")

 +12                               SET AKMO("KEY TBL","*")=""

 +13                               SET AKMO("NO MORE KEYS")=0

                               End DoDot:3

                               QUIT

 +14                       SET AKMO("KEY")=$ORDER(^DIC(19.1,"B",AKMO("KEYNSP")))

 +15                       IF AKMO("KEYNSP")'=$EXTRACT(AKMO("KEY"),1,$LENGTH(AKMO("KEYNSP")))

                               WRITE !,*7,?10,"The ",AKMO("KEYNSP")," namespace does not have any security keys!",!

                               QUIT

 +16                       SET AKMO("KEY TBL",AKMO("KEYNSP"))=""

 +17                       SET AKMO("NO MORE KEYS")=0

                       End DoDot:2

                       IF $DATA(AKMO("KEY TBL","*"))

                           QUIT

GETUSER   ;

 +1                IF AKMO("NO MORE KEYS")

                       QUIT

 +2                SET DIC="^VA(200,"

 +3                SET DIC("A")="Enter User Name to be assigned keys: // "

 +4                SET DIC(0)="AEMQ"

 +5                FOR

                       WRITE !

                       DO ^DIC

                       IF "^"[X

                           QUIT

                       Begin DoDot:2

 +6                        SET AKMO("KEYNSP")=""

 +7                        FOR

                               SET AKMO("KEYNSP")=$ORDER(AKMO("KEY TBL",AKMO("KEYNSP")))

                               IF AKMO("KEYNSP")=""

                                   QUIT

                               SET AKMO("KEY TBL",AKMO("KEYNSP"),X,$PIECE(Y,U))=""

                       End DoDot:2

 +8                SET AKMO("NO MORE KEYS")=1

               End DoDot:1

               IF AKMO("NO MORE KEYS")

                   QUIT

ASSGNLP   ; LOOP DOWN AKMO("KEY TBL","KEYNSP",holder) and assign the security keys

 +1       ;Q

 +2        WRITE !!,"Assigning security keys. . . ",!

 +3        SET AKMO("KEYNSP")=""

 +4        FOR

               SET AKMO("KEYNSP")=$ORDER(AKMO("KEY TBL",AKMO("KEYNSP")))

               IF AKMO("KEYNSP")=""

                   QUIT

               Begin DoDot:1

 +5                SET AKMO("HOLDER")=""

 +6                FOR

                       SET AKMO("HOLDER")=$ORDER(AKMO("KEY TBL",AKMO("KEYNSP"),AKMO("HOLDER")))

                       IF AKMO("HOLDER")=""

                           QUIT

                       Begin DoDot:2

 +7                        SET AKMO("HOLDER DFN")=$ORDER(AKMO("KEY TBL",AKMO("KEYNSP"),AKMO("HOLDER"),""))

 +8                        SET AKMO("KEY")=AKMO("KEYNSP")

 +9                        FOR

                               SET AKMO("KEY")=$ORDER(^DIC(19.1,"B",AKMO("KEY")))

                               Begin DoDot:3

 +10                               IF AKMO("KEY")=""

                                       QUIT

 +11                               IF AKMO("KEYNSP")'="*"

                                       IF $EXTRACT(AKMO("KEY"),1,$LENGTH(AKMO("KEYNSP")))'=AKMO("KEYNSP")

                                           SET AKMO("KEY")=""

                                           QUIT

 +12                               SET AKMO("KEY DFN")=$ORDER(^DIC(19.1,"B",AKMO("KEY"),""))

 +13                               IF $DATA(^VA(200,AKMO("HOLDER DFN"),51,AKMO("KEY DFN")))

                                       WRITE !,AKMO("KEY"),?34,"already assigned to <",AKMO("HOLDER"),">."

                                       QUIT

 +14      ; I '$D(^DIC(19.1,"D",DUZ,AKMO("KEY DFN"))) W !,AKMO("KEY"),?30,"Denied!  You are not allowed to assign this key." Q

ASSGNKEY  ; ASSIGN KEY USING DIC AND DIE CALLS

 +1                                SET DIE="^VA(200,"

                                   SET DA=AKMO("HOLDER DFN")

                                   SET DR="51///`"_AKMO("KEY DFN")

 +2                                SET DR(2,200.051)="1////.5;2////"_AKMO("DATE")_";3////"_AKMO("DATE")

 +3                                DO ^DIE

 +4                                KILL DIE,DR,DA

 +5                                IF $DATA(Y)

                                       WRITE !!,*7,"FileManager error condition returned from ^DIE call while updating",!,?3,AKMO("KEY")," security key for ",AKMO("HOLDER"),!,?3,"Security key was not assigned."

                                       QUIT

 +6                                WRITE !,AKMO("KEY"),?42,"assigned to <",AKMO("HOLDER"),">."

                               End DoDot:3

                               IF AKMO("KEY")=""

                                   QUIT

                       End DoDot:2

               End DoDot:1

XIT       ;

 +1        IF '$DATA(AKMO("KEY TBL"))

               WRITE !!,*7,"No selection of security keys made.  B y e . . . .",!

 +2        WRITE !!,*7,?12,"<DONE>"

KILL      ; KILL VARIABLES

 +1        KILL AKMO,Y,%DT,DIC,DIE,DUZ,DA,DR,DT,X

 +2        QUIT

AKMOSKEY.m