PSGWFIX.m

PSGWFIX ;BHAM ISC/KKA - Patch to Remove Lock from PSGWMGR ; 21 Dec 94 / 1:56 PM

 ;;2.3; Automatic Replenishment/Ward Stock ;**4**;4 JAN 94

 K DIC,DIE,DR,DA S DIC="^DIC(19,",DIC(0)="MZ",X="PSGWMGR" D ^DIC S DA=+Y I +Y'<0 D

 .W !,"Now deleting the PSGWMGR key from the PSGWMGR menu....."

 .S DIE="^DIC(19,",DR="3///@" D ^DIE

 .W !!,"Deletion complete.",!!!,"You may now delete the routine PSGWFIX."

 K DIC,DIE,DR,DA,X,Y Q

PSGWFIX   ;BHAM ISC/KKA - Patch to Remove Lock from PSGWMGR ; 21 Dec 94 / 1:56 PM

 +1       ;;2.3; Automatic Replenishment/Ward Stock ;**4**;4 JAN 94

 +2        KILL DIC,DIE,DR,DA

           SET DIC="^DIC(19,"

           SET DIC(0)="MZ"

           SET X="PSGWMGR"

           DO ^DIC

           SET DA=+Y

           IF +Y'<0

               Begin DoDot:1

 +3                WRITE !,"Now deleting the PSGWMGR key from the PSGWMGR menu....."

 +4                SET DIE="^DIC(19,"

                   SET DR="3///@"

                   DO ^DIE

 +5                WRITE !!,"Deletion complete.",!!!,"You may now delete the routine PSGWFIX."

               End DoDot:1

 +6        KILL DIC,DIE,DR,DA,X,Y

           QUIT