AKMOFIXK.m

AKMOFIXK ;BRJ/TUCSON/IHS;FIX SECURITY KEY FILE [ 06/21/91  9:10 AM ]

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

 W !,*7,"Please use correct entry label to run this program.",!!,"  Thanks. . No action occurred!",! Q

EN ;

 W !,"This routine will correct entries in your Security Key File.",!!,"Fixing."

 S AKMO("X")=0

 F  S AKMO("X")=$O(^DIC(19.1,AKMO("X"))) Q:'+AKMO("X")  D

 . S AKMO("Y")=0

 . F  S AKMO("Y")=$O(^DIC(19.1,AKMO("X"),2,AKMO("Y"))) Q:'+AKMO("Y")  D:$P(^(AKMO("Y"),0),"^",2)?1A.E

 .. S $P(^DIC(19.1,AKMO("X"),2,AKMO("Y"),0),"^",2)=$O(^DIC(3,"B",$P(^DIC(19.1,AKMO("X"),2,AKMO("Y"),0),"^",2),""))

 .. W "."

 W !!,*7,"Done fixing your Security Key File.   B y e. . ."

 Q

AKMOFIXK  ;BRJ/TUCSON/IHS;FIX SECURITY KEY FILE [ 06/21/91  9:10 AM ]

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

 +2        WRITE !,*7,"Please use correct entry label to run this program.",!!,"  Thanks. . No action occurred!",!

           QUIT 

EN        ;

 +1        WRITE !,"This routine will correct entries in your Security Key File.",!!,"Fixing."

 +2        SET AKMO("X")=0

 +3        FOR 

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

               IF '+AKMO("X")

                   QUIT 

               Begin DoDot:1

 +4                SET AKMO("Y")=0

 +5                FOR 

                       SET AKMO("Y")=$ORDER(^DIC(19.1,AKMO("X"),2,AKMO("Y")))

                       IF '+AKMO("Y")

                           QUIT 

                       IF $PIECE(^(AKMO("Y"),0),"^",2)?1A.E

                           Begin DoDot:2

 +6                            SET $PIECE(^DIC(19.1,AKMO("X"),2,AKMO("Y"),0),"^",2)=$ORDER(^DIC(3,"B",$PIECE(^DIC(19.1,AKMO("X"),2,AKMO("Y"),0),"^",2),""))

 +7                            WRITE "."

                           End DoDot:2

               End DoDot:1

 +8        WRITE !!,*7,"Done fixing your Security Key File.   B y e. . ."

 +9        QUIT