AZHDKAUT.m

AZHDKAUT ;;DEC 10, 1992  [ 12/10/92  1:33 PM ]

 ;;93.1;AHZD UTILITY;;DEC 10, 1992

 ;DSM/RFD

 ;THIS ROUTINE WILL KILL OFF THE GLOBALS FOR THIS DISTRIBUTION

 ;93.1 WHICH HAS FIVE GLOBALS THAT WILL BE REPLACED ON YOUR SYSTEMS

KILL W !,"I WILL NOW REMOVE GLOBALS FROM THIS UCI"

 K ^AUTTPCT,^AUTTSSN,^AUTTDXPR,^AUTTRCD,^AUTTCHA

END ;

 W !!,"OK I'M FINISHED, YOU CAN NOW DO THE RESTORE FOR EACH GLOBAL"

 Q

AZHDKAUT  ;;DEC 10, 1992  [ 12/10/92  1:33 PM ]

 +1       ;;93.1;AHZD UTILITY;;DEC 10, 1992

 +2       ;DSM/RFD

 +3       ;THIS ROUTINE WILL KILL OFF THE GLOBALS FOR THIS DISTRIBUTION

 +4       ;93.1 WHICH HAS FIVE GLOBALS THAT WILL BE REPLACED ON YOUR SYSTEMS

KILL       WRITE !,"I WILL NOW REMOVE GLOBALS FROM THIS UCI"

 +1        KILL ^AUTTPCT,^AUTTSSN,^AUTTDXPR,^AUTTRCD,^AUTTCHA

END       ;

 +1        WRITE !!,"OK I'M FINISHED, YOU CAN NOW DO THE RESTORE FOR EACH GLOBAL"

 +2        QUIT