AUGKILL.m

AUGKILL ;TRANSFER TO "MGR" AND REMOVE THIS LINE [ 06/28/85  10:31 AM ]

%GKILL ;GLOBAL KILL UTILITY [ 06/28/85  10:26 AM ]

 W *7,!!!,"GLOBAL KILL UTILITY .....OK? " R X:30 G END:X'?1"Y".E

 D ^%ZUCI

 D ^%GSEL G END:'$D(%GO),END:'%GO

 S %G="" F I=1:1 S %G=$O(^UTILITY($J,%G)) Q:%G=""  I %G'="UTILITY" K @("^"_%G),^UTILITY($J,%G) W $J(%G,10) I $X>69 W !

 W !,"DONE"

END Q

AUGKILL   ;TRANSFER TO "MGR" AND REMOVE THIS LINE [ 06/28/85  10:31 AM ]

%GKILL    ;GLOBAL KILL UTILITY [ 06/28/85  10:26 AM ]

 +1        WRITE *7,!!!,"GLOBAL KILL UTILITY .....OK? "

           READ X:30

           IF X'?1"Y".E

               GOTO END

 +2        DO ^%ZUCI

 +3        DO ^%GSEL

           IF '$DATA(%GO)

               GOTO END

           IF '%GO

               GOTO END

 +4        SET %G=""

           FOR I=1:1

               SET %G=$ORDER(^UTILITY($JOB,%G))

               IF %G=""

                   QUIT 

               IF %G'="UTILITY"

                   KILL @("^"_%G),^UTILITY($JOB,%G)

                   WRITE $JUSTIFY(%G,10)

                   IF $X>69

                       WRITE !

 +5        WRITE !,"DONE"

END        QUIT