source:
WorldVistAEHR/trunk/r/AUTO_REPLENISHMENT_WARD_STOCK-PSGW/PSGWKINV.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 346 bytes |
Rev | Line | |
---|---|---|
[613] | 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.