source: WorldVistAEHR/trunk/r/AUTO_REPLENISHMENT_WARD_STOCK-PSGW/PSGWKINV.m@ 634

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

initial load of WorldVistAEHR

File size: 346 bytes
Line 
1PSGWKINV ;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
5COMPARE 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.