source: FOIAVistA/trunk/r/AUTO_REPLENISHMENT_WARD_STOCK-PSGW/PSGWFIL.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 431 bytes
Line 
1PSGWFIL ;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
7DONE 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.