- PSGWKINV ;BHAM ISC/MPH,CML-Purge ^PSI(58.19,"AINV") Global of Inventory Over 100 days Old ; 14 Feb 1989 1:53 PM
- ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
- F QQ=0:0 S QQ=$O(^PSI(58.19,"AINV",QQ)) Q:'QQ D COMPARE
- K QQ,X Q
- COMPARE S X1=DT,X2=$S($D(^PSI(58.19,QQ,0))#2:$P(^(0),"^",1),1:"") D ^%DTC
- I X'<100 K ^PSI(58.19,"AINV",QQ)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSGWKINV 353 printed Feb 18, 2025@23:05:53 Page 2
- 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
- +2 FOR QQ=0:0
- SET QQ=$ORDER(^PSI(58.19,"AINV",QQ))
- if 'QQ
- QUIT
- DO COMPARE
- +3 KILL QQ,X
- QUIT
- COMPARE SET X1=DT
- SET X2=$SELECT($DATA(^PSI(58.19,QQ,0))#2:$PIECE(^(0),"^",1),1:"")
- DO ^%DTC
- +1 IF X'<100
- KILL ^PSI(58.19,"AINV",QQ)
- +2 QUIT