PSGWI013 ; ; 04-JAN-1994
;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
Q:'DIFQ(58.1) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^DD(58.28,4,21,1,0)
;;=This points to file #200 (New Person file). It contains the pointer number to
;;^DD(58.28,4,21,2,0)
;;=the user who LAST EDITED this request.
;;^DD(58.28,4,"DT")
;;=2900712
;;^DD(58.28,5,0)
;;=DATE/TIME LAST EDITED^D^^0;6^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
;;^DD(58.28,5,21,0)
;;=^^1^1^2890531^
;;^DD(58.28,5,21,1,0)
;;=This field contains the date/time this on-demand request was last edited.
;;^DD(58.28,5,"DT")
;;=2881027
PSGWI013 ; ; 04-JAN-1994
+1 ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
+2 IF 'DIFQ(58.1)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^DD(58.28,4,21,1,0)
+2 ;;=This points to file #200 (New Person file). It contains the pointer number to
+3 ;;^DD(58.28,4,21,2,0)
+4 ;;=the user who LAST EDITED this request.
+5 ;;^DD(58.28,4,"DT")
+6 ;;=2900712
+7 ;;^DD(58.28,5,0)
+8 ;;=DATE/TIME LAST EDITED^D^^0;6^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
+9 ;;^DD(58.28,5,21,0)
+10 ;;=^^1^1^2890531^
+11 ;;^DD(58.28,5,21,1,0)
+12 ;;=This field contains the date/time this on-demand request was last edited.
+13 ;;^DD(58.28,5,"DT")
+14 ;;=2881027