Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSGWKINV

PSGWKINV.m

Go to the documentation of this file.
  1. PSGWKINV ;BHAM ISC/MPH,CML-Purge ^PSI(58.19,"AINV") Global of Inventory Over 100 days Old ; 14 Feb 1989 1:53 PM
  1. ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
  1. F QQ=0:0 S QQ=$O(^PSI(58.19,"AINV",QQ)) Q:'QQ D COMPARE
  1. K QQ,X Q
  1. COMPARE S X1=DT,X2=$S($D(^PSI(58.19,QQ,0))#2:$P(^(0),"^",1),1:"") D ^%DTC
  1. I X'<100 K ^PSI(58.19,"AINV",QQ)
  1. Q