source:
WorldVistAEHR/tag/Release_6_08/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 |
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.