- PSGWI028 ; ; 04-JAN-1994
- ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
- Q:'DIFQ(59.7) 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(59.7,59.02,21,0)
- ;;=^^1^1^2891027^^
- ;;^DD(59.7,59.02,21,1,0)
- ;;=This field will contain the date the current version of AR/WS was installed.
- ;;^DD(59.7,59.02,"DT")
- ;;=2890620
- ;;^DD(59.7,59.1,0)
- ;;=BACKORDER CONVERSION^D^^59.99;3^S %DT="EX" D ^%DT S X=Y K:Y<1 X
- ;;^DD(59.7,59.1,3)
- ;;=Enter Date the BACKORDER CONVERSION was completed.
- ;;^DD(59.7,59.1,8.5)
- ;;=^
- ;;^DD(59.7,59.1,9)
- ;;=^
- ;;^DD(59.7,59.1,20,0)
- ;;=^.3LA^1^1
- ;;^DD(59.7,59.1,20,1,0)
- ;;=PSGW
- ;;^DD(59.7,59.1,21,0)
- ;;=^^2^2^2901107^^^
- ;;^DD(59.7,59.1,21,1,0)
- ;;=This field will contain the date the BACKORDER CONVERSION for AR/WS V2.04
- ;;^DD(59.7,59.1,21,2,0)
- ;;=was completed.
- ;;^DD(59.7,59.1,"DT")
- ;;=2890620
- ;;^DD(59.7,59.2,0)
- ;;=MULTI-DIVISION CONVERSION^D^^59.99;4^S %DT="EX" D ^%DT S X=Y K:Y<1 X
- ;;^DD(59.7,59.2,3)
- ;;=Enter Date the MULTI-DIVISION CONVERSION was completed.
- ;;^DD(59.7,59.2,8.5)
- ;;=^
- ;;^DD(59.7,59.2,9)
- ;;=^
- ;;^DD(59.7,59.2,20,0)
- ;;=^.3LA^1^1
- ;;^DD(59.7,59.2,20,1,0)
- ;;=PSGW
- ;;^DD(59.7,59.2,21,0)
- ;;=^^2^2^2901107^^^
- ;;^DD(59.7,59.2,21,1,0)
- ;;=This field will contain the date the MULTI-DIVISION CONVERSION for
- ;;^DD(59.7,59.2,21,2,0)
- ;;=AR/WS V2.04 was completed.
- ;;^DD(59.7,59.2,"DT")
- ;;=2890620
- ;;^DD(59.7,59.3,0)
- ;;=WARD (for %) CONVERSION^D^^59.99;5^S %DT="EX" D ^%DT S X=Y K:Y<1 X
- ;;^DD(59.7,59.3,3)
- ;;=Enter Date the WARD (for %) CONVERSION was completed
- ;;^DD(59.7,59.3,8.5)
- ;;=^
- ;;^DD(59.7,59.3,9)
- ;;=^
- ;;^DD(59.7,59.3,20,0)
- ;;=^.3LA^1^1
- ;;^DD(59.7,59.3,20,1,0)
- ;;=PSGW
- ;;^DD(59.7,59.3,21,0)
- ;;=^^2^2^2901107^^^^
- ;;^DD(59.7,59.3,21,1,0)
- ;;=This field contains the date the WARD (for %) pointer conversion for
- ;;^DD(59.7,59.3,21,2,0)
- ;;=AR/WS V2.04 was completed.
- ;;^DD(59.7,59.3,"DT")
- ;;=2891002
- ;;^DD(59.7,59.4,0)
- ;;=RETURN REASON CONVERSION^D^^59.99;6^S %DT="EX" D ^%DT S X=Y K:Y<1 X
- ;;^DD(59.7,59.4,3)
- ;;=Enter Date the RETURN REASON CONVERSION was completed.
- ;;^DD(59.7,59.4,8.5)
- ;;=^
- ;;^DD(59.7,59.4,9)
- ;;=^
- ;;^DD(59.7,59.4,20,0)
- ;;=^.3LA^1^1
- ;;^DD(59.7,59.4,20,1,0)
- ;;=PSGW
- ;;^DD(59.7,59.4,21,0)
- ;;=^^2^2^2901107^^^^
- ;;^DD(59.7,59.4,21,1,0)
- ;;=This field will contain the date the RETURN REASON CONVERSION for
- ;;^DD(59.7,59.4,21,2,0)
- ;;=AR/WS V2.2 was completed.
- ;;^DD(59.7,59.4,"DT")
- ;;=2900709
- PSGWI028 ; ; 04-JAN-1994
- +1 ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
- +2 IF 'DIFQ(59.7)
- 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(59.7,59.02,21,0)
- +2 ;;=^^1^1^2891027^^
- +3 ;;^DD(59.7,59.02,21,1,0)
- +4 ;;=This field will contain the date the current version of AR/WS was installed.
- +5 ;;^DD(59.7,59.02,"DT")
- +6 ;;=2890620
- +7 ;;^DD(59.7,59.1,0)
- +8 ;;=BACKORDER CONVERSION^D^^59.99;3^S %DT="EX" D ^%DT S X=Y K:Y<1 X
- +9 ;;^DD(59.7,59.1,3)
- +10 ;;=Enter Date the BACKORDER CONVERSION was completed.
- +11 ;;^DD(59.7,59.1,8.5)
- +12 ;;=^
- +13 ;;^DD(59.7,59.1,9)
- +14 ;;=^
- +15 ;;^DD(59.7,59.1,20,0)
- +16 ;;=^.3LA^1^1
- +17 ;;^DD(59.7,59.1,20,1,0)
- +18 ;;=PSGW
- +19 ;;^DD(59.7,59.1,21,0)
- +20 ;;=^^2^2^2901107^^^
- +21 ;;^DD(59.7,59.1,21,1,0)
- +22 ;;=This field will contain the date the BACKORDER CONVERSION for AR/WS V2.04
- +23 ;;^DD(59.7,59.1,21,2,0)
- +24 ;;=was completed.
- +25 ;;^DD(59.7,59.1,"DT")
- +26 ;;=2890620
- +27 ;;^DD(59.7,59.2,0)
- +28 ;;=MULTI-DIVISION CONVERSION^D^^59.99;4^S %DT="EX" D ^%DT S X=Y K:Y<1 X
- +29 ;;^DD(59.7,59.2,3)
- +30 ;;=Enter Date the MULTI-DIVISION CONVERSION was completed.
- +31 ;;^DD(59.7,59.2,8.5)
- +32 ;;=^
- +33 ;;^DD(59.7,59.2,9)
- +34 ;;=^
- +35 ;;^DD(59.7,59.2,20,0)
- +36 ;;=^.3LA^1^1
- +37 ;;^DD(59.7,59.2,20,1,0)
- +38 ;;=PSGW
- +39 ;;^DD(59.7,59.2,21,0)
- +40 ;;=^^2^2^2901107^^^
- +41 ;;^DD(59.7,59.2,21,1,0)
- +42 ;;=This field will contain the date the MULTI-DIVISION CONVERSION for
- +43 ;;^DD(59.7,59.2,21,2,0)
- +44 ;;=AR/WS V2.04 was completed.
- +45 ;;^DD(59.7,59.2,"DT")
- +46 ;;=2890620
- +47 ;;^DD(59.7,59.3,0)
- +48 ;;=WARD (for %) CONVERSION^D^^59.99;5^S %DT="EX" D ^%DT S X=Y K:Y<1 X
- +49 ;;^DD(59.7,59.3,3)
- +50 ;;=Enter Date the WARD (for %) CONVERSION was completed
- +51 ;;^DD(59.7,59.3,8.5)
- +52 ;;=^
- +53 ;;^DD(59.7,59.3,9)
- +54 ;;=^
- +55 ;;^DD(59.7,59.3,20,0)
- +56 ;;=^.3LA^1^1
- +57 ;;^DD(59.7,59.3,20,1,0)
- +58 ;;=PSGW
- +59 ;;^DD(59.7,59.3,21,0)
- +60 ;;=^^2^2^2901107^^^^
- +61 ;;^DD(59.7,59.3,21,1,0)
- +62 ;;=This field contains the date the WARD (for %) pointer conversion for
- +63 ;;^DD(59.7,59.3,21,2,0)
- +64 ;;=AR/WS V2.04 was completed.
- +65 ;;^DD(59.7,59.3,"DT")
- +66 ;;=2891002
- +67 ;;^DD(59.7,59.4,0)
- +68 ;;=RETURN REASON CONVERSION^D^^59.99;6^S %DT="EX" D ^%DT S X=Y K:Y<1 X
- +69 ;;^DD(59.7,59.4,3)
- +70 ;;=Enter Date the RETURN REASON CONVERSION was completed.
- +71 ;;^DD(59.7,59.4,8.5)
- +72 ;;=^
- +73 ;;^DD(59.7,59.4,9)
- +74 ;;=^
- +75 ;;^DD(59.7,59.4,20,0)
- +76 ;;=^.3LA^1^1
- +77 ;;^DD(59.7,59.4,20,1,0)
- +78 ;;=PSGW
- +79 ;;^DD(59.7,59.4,21,0)
- +80 ;;=^^2^2^2901107^^^^
- +81 ;;^DD(59.7,59.4,21,1,0)
- +82 ;;=This field will contain the date the RETURN REASON CONVERSION for
- +83 ;;^DD(59.7,59.4,21,2,0)
- +84 ;;=AR/WS V2.2 was completed.
- +85 ;;^DD(59.7,59.4,"DT")
- +86 ;;=2900709
