source:
WorldVistAEHR/trunk/r/AUTO_REPLENISHMENT_WARD_STOCK-PSGW/PSGWFIX.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 420 bytes |
Line | |
---|---|
1 | PSGWFIX ;BHAM ISC/KKA - Patch to Remove Lock from PSGWMGR ; 21 Dec 94 / 1:56 PM |
2 | ;;2.3; Automatic Replenishment/Ward Stock ;**4**;4 JAN 94 |
3 | K DIC,DIE,DR,DA S DIC="^DIC(19,",DIC(0)="MZ",X="PSGWMGR" D ^DIC S DA=+Y I +Y'<0 D |
4 | .W !,"Now deleting the PSGWMGR key from the PSGWMGR menu....." |
5 | .S DIE="^DIC(19,",DR="3///@" D ^DIE |
6 | .W !!,"Deletion complete.",!!!,"You may now delete the routine PSGWFIX." |
7 | K DIC,DIE,DR,DA,X,Y Q |
Note:
See TracBrowser
for help on using the repository browser.