Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
346 bytes
|
Line | |
---|
1 | PSGWKINV ;BHAM ISC/MPH,CML-Purge ^PSI(58.19,"AINV") Global of Inventory Over 100 days Old ; 14 Feb 1989 1:53 PM
|
---|
2 | ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
|
---|
3 | F QQ=0:0 S QQ=$O(^PSI(58.19,"AINV",QQ)) Q:'QQ D COMPARE
|
---|
4 | K QQ,X Q
|
---|
5 | COMPARE S X1=DT,X2=$S($D(^PSI(58.19,QQ,0))#2:$P(^(0),"^",1),1:"") D ^%DTC
|
---|
6 | I X'<100 K ^PSI(58.19,"AINV",QQ)
|
---|
7 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.