source: WorldVistAEHR/trunk/r/AUTO_REPLENISHMENT_WARD_STOCK-PSGW/PSGWFIX.m@ 1732

Last change on this file since 1732 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 420 bytes
Line 
1PSGWFIX ;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.