|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
