PSGWI003.m

PSGWI003 ; ; 04-JAN-1994

 ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94

 Q:'DIFQ(50)  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(50,301,3)

 ;;=Enter the category that this drug is to be classified as for AMIS statistics in Automatic Replenishment/Ward Stock.

 ;;^DD(50,301,20,0)

 ;;=^.3LA^1^1

 ;;^DD(50,301,20,1,0)

 ;;=PSGW

 ;;^DD(50,301,21,0)

 ;;=^^2^2^2901030^

 ;;^DD(50,301,21,1,0)

 ;;=This refers to the category that this drug is to be classified as for AMIS 

 ;;^DD(50,301,21,2,0)

 ;;=statistics in Automatic Replenishment/Ward Stock.

 ;;^DD(50,301,"DT")

 ;;=2881213

 ;;^DD(50,302,0)

 ;;=AR/WS AMIS CONVERSION NUMBER^NJ4,0^^PSG;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X

 ;;^DD(50,302,3)

 ;;=Enter a whole number between 1 and 9999, 0 Decimal Digits.

 ;;^DD(50,302,20,0)

 ;;=^.3LA^1^1

 ;;^DD(50,302,20,1,0)

 ;;=PSGW

 ;;^DD(50,302,21,0)

 ;;=^^8^8^2910221^^^^

 ;;^DD(50,302,21,1,0)

 ;;=This number reflects the number of doses/units contained in the dispensed

 ;;^DD(50,302,21,2,0)

 ;;=drug for Automatic Replenishment/Ward Stock AMIS statistics.

 ;;^DD(50,302,21,3,0)

 ;;=For example:  For a 20cc vial, the quantity dispensed is 1, and

 ;;^DD(50,302,21,4,0)

 ;;=              the conversion number is 20.

 ;;^DD(50,302,21,5,0)

 ;;=              For 5 oz. antacid, the quantity dispensed is 1, and

 ;;^DD(50,302,21,6,0)

 ;;=              the conversion number is 1.

 ;;^DD(50,302,21,7,0)

 ;;=              For a bottle of 100 aspirin, the quantity dispensed is 1,

 ;;^DD(50,302,21,8,0)

 ;;=              and the conversion number is 100.

 ;;^DD(50,302,"DT")

 ;;=2870501

PSGWI003  ; ; 04-JAN-1994

 +1       ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94

 +2        IF 'DIFQ(50)

               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(50,301,3)

 +2       ;;=Enter the category that this drug is to be classified as for AMIS statistics in Automatic Replenishment/Ward Stock.

 +3       ;;^DD(50,301,20,0)

 +4       ;;=^.3LA^1^1

 +5       ;;^DD(50,301,20,1,0)

 +6       ;;=PSGW

 +7       ;;^DD(50,301,21,0)

 +8       ;;=^^2^2^2901030^

 +9       ;;^DD(50,301,21,1,0)

 +10      ;;=This refers to the category that this drug is to be classified as for AMIS 

 +11      ;;^DD(50,301,21,2,0)

 +12      ;;=statistics in Automatic Replenishment/Ward Stock.

 +13      ;;^DD(50,301,"DT")

 +14      ;;=2881213

 +15      ;;^DD(50,302,0)

 +16      ;;=AR/WS AMIS CONVERSION NUMBER^NJ4,0^^PSG;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X

 +17      ;;^DD(50,302,3)

 +18      ;;=Enter a whole number between 1 and 9999, 0 Decimal Digits.

 +19      ;;^DD(50,302,20,0)

 +20      ;;=^.3LA^1^1

 +21      ;;^DD(50,302,20,1,0)

 +22      ;;=PSGW

 +23      ;;^DD(50,302,21,0)

 +24      ;;=^^8^8^2910221^^^^

 +25      ;;^DD(50,302,21,1,0)

 +26      ;;=This number reflects the number of doses/units contained in the dispensed

 +27      ;;^DD(50,302,21,2,0)

 +28      ;;=drug for Automatic Replenishment/Ward Stock AMIS statistics.

 +29      ;;^DD(50,302,21,3,0)

 +30      ;;=For example:  For a 20cc vial, the quantity dispensed is 1, and

 +31      ;;^DD(50,302,21,4,0)

 +32      ;;=              the conversion number is 20.

 +33      ;;^DD(50,302,21,5,0)

 +34      ;;=              For 5 oz. antacid, the quantity dispensed is 1, and

 +35      ;;^DD(50,302,21,6,0)

 +36      ;;=              the conversion number is 1.

 +37      ;;^DD(50,302,21,7,0)

 +38      ;;=              For a bottle of 100 aspirin, the quantity dispensed is 1,

 +39      ;;^DD(50,302,21,8,0)

 +40      ;;=              and the conversion number is 100.

 +41      ;;^DD(50,302,"DT")

 +42      ;;=2870501