Last change
on this file since 1523 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
431 bytes
|
Rev | Line | |
---|
[613] | 1 | PSGWFIL ;BHAM ISC/MPH,CML-Fill Backorder ; 14 Feb 1989 1:49 PM
|
---|
| 2 | ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
|
---|
| 3 | S DIC="^PSI(58.3,",DIC(0)="QEAOM" D ^DIC K DIC G:Y'>0 DONE S DA(2)=+Y
|
---|
| 4 | S DIC="^PSI(58.3,"_DA(2)_",1,",DIC(0)="QEAM" D ^DIC K DIC G:Y'>0 DONE S DA(1)=+Y
|
---|
| 5 | S DIC="^PSI(58.3,"_DA(2)_",1,"_DA(1)_",1,",DIC(0)="QEAM" D ^DIC G:Y'>0 DONE S DA=+Y
|
---|
| 6 | S DIE=DIC,DR="4" D ^DIE
|
---|
| 7 | DONE K DIC,DIE,DA,DR,X,Y,%DT,%X,C,D0,DI,DIYS,DQ Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.