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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSGWFIX 427 printed Nov 22, 2024@16:49:35 Page 2
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
