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:
389 bytes
|
Line | |
---|
1 | PSGWCCE ;BHAM/CML-Input AOU 'LOCATION' field ; 29 Dec 93 / 2:09 PM
|
---|
2 | ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
|
---|
3 | START ;
|
---|
4 | I '$O(^PSI(58.1,0)) W *7,!!,"There are no AOUs defined!!" Q
|
---|
5 | EDIT F JJ=0:0 S DIC="^PSI(58.1,",DIC(0)="QEA",DIC("S")="I $P(^(0),""^"",5)" W ! D ^DIC K DIC Q:Y<0 S DA=+Y,DIE="^PSI(58.1,",DR=7 D ^DIE K DIE Q:$D(Y)
|
---|
6 | QUIT K %,JJ,D,D0,DA,DI,DIC,DISYS,DQ,DR,JJ,X,Y Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.