PSGWI024 ; ; 04-JAN-1994
;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
Q:'DIFQ(58.5) 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.51,3,3)
;;=Type a whole number between 1 and 999999
;;^DD(58.51,3,21,0)
;;=^^1^1^2890619^^
;;^DD(58.51,3,21,1,0)
;;=DOSES RETURNED = QUANTITY RETURNED * AMIS CONVERSION NUMBER
;;^DD(58.51,4,0)
;;=RETURNS COST^NJ14,6^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."7N.N) X
;;^DD(58.51,4,3)
;;=Type a Number between 0 and 9999999, 6 Decimal Digits
;;^DD(58.51,4,21,0)
;;=^^1^1^2890705^^^
;;^DD(58.51,4,21,1,0)
;;=RETURNS COST = QUANTITY RETURNED * PRICE PER DISPENSE UNIT
;;^DD(58.51,4,"DT")
;;=2891102
;;^DD(58.52,0)
;;=RECALCULATE AMIS SUB-FIELD^^2^3
;;^DD(58.52,0,"IX","B",58.52,.01)
;;=
;;^DD(58.52,0,"NM","RECALCULATE AMIS")
;;=
;;^DD(58.52,0,"UP")
;;=58.501
;;^DD(58.52,.01,0)
;;=DRUG^MP50'^PSDRUG(^0;1^Q
;;^DD(58.52,.01,1,0)
;;=^.1
;;^DD(58.52,.01,1,1,0)
;;=58.52^B
;;^DD(58.52,.01,1,1,1)
;;=S ^PSI(58.5,DA(2),"S",DA(1),"DRG","B",$E(X,1,30),DA)=""
;;^DD(58.52,.01,1,1,2)
;;=K ^PSI(58.5,DA(2),"S",DA(1),"DRG","B",$E(X,1,30),DA)
;;^DD(58.52,.01,1,2,0)
;;=58.5^D
;;^DD(58.52,.01,1,2,1)
;;=S ^PSI(58.5,"D",$E(X,1,30),DA(2),DA(1),DA)=""
;;^DD(58.52,.01,1,2,2)
;;=K ^PSI(58.5,"D",$E(X,1,30),DA(2),DA(1),DA)
;;^DD(58.52,.01,21,0)
;;=^^3^3^2890619^^^
;;^DD(58.52,.01,21,1,0)
;;=This contains the internal drug number of the drug being dispensed or
;;^DD(58.52,.01,21,2,0)
;;=returned. Thus, if cost data is found to be inaccurate, the AMIS may be
;;^DD(58.52,.01,21,3,0)
;;=recalculated.
;;^DD(58.52,1,0)
;;=CATEGORY^58.53SA^^CAT;0
;;^DD(58.52,2,0)
;;=MISSING DATA^S^1:YES;0:NO;^0;2^Q
;;^DD(58.52,2,1,0)
;;=^.1
;;^DD(58.52,2,1,1,0)
;;=58.5^AEX^MUMPS
;;^DD(58.52,2,1,1,1)
;;=I X=1 S ^PSI(58.5,"AEX",DA(2),DA(1),DA)=""
;;^DD(58.52,2,1,1,2)
;;=K ^PSI(58.5,"AEX",DA(2),DA(1),DA)
;;^DD(58.52,2,1,1,"%D",0)
;;=^^3^3^2930827^
;;^DD(58.52,2,1,1,"%D",1,0)
;;=This cross-reference is used to sort drugs with missing AMIS data by
;;^DD(58.52,2,1,1,"%D",2,0)
;;=Date/Inpatient Site/Drug. It is used by the options "Inventory Outline",
;;^DD(58.52,2,1,1,"%D",3,0)
;;="Print AMIS Report","Incomplete AMIS Data", and "Recalculate AMIS".
;;^DD(58.52,2,21,0)
;;=^^4^4^2890906^^^^
;;^DD(58.52,2,21,1,0)
;;=This flag is set if data needed to calculate the AMIS is missing at the
;;^DD(58.52,2,21,2,0)
;;=time the quantity is dispensed or returned. Also, an "exceptions"
;;^DD(58.52,2,21,3,0)
;;=cross-reference is created. Before the AMIS will print, this missing data
;;^DD(58.52,2,21,4,0)
;;=must be supplied, the cross-reference deleted, and the flag reset.
;;^DD(58.53,0)
;;=CATEGORY SUB-FIELD^^1^2
;;^DD(58.53,0,"NM","CATEGORY")
;;=
;;^DD(58.53,0,"UP")
;;=58.52
;;^DD(58.53,.01,0)
;;=CATEGORY^S^A:AUTOMATIC REPLENISHMENT;W:WARD STOCK;RA:RETURNS - AUTO REPLENISHED;RW:RETURNS - WARD STOCKED;^0;1^Q
;;^DD(58.53,.01,21,0)
;;=^^3^3^2890619^^
;;^DD(58.53,.01,21,1,0)
;;=Category identifies how the quantity dispensed or returned was originally
;;^DD(58.53,.01,21,2,0)
;;=ordered: Automatic Replenishment, On-Demand, returned from Automatic
;;^DD(58.53,.01,21,3,0)
;;=Replenishment, or returned from On-Demand.
;;^DD(58.53,1,0)
;;=QUANTITY DISPENSED^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"."1N.N) X
;;^DD(58.53,1,3)
;;=Type a Number between -99999 and 99999, 0 Decimal Digits
;;^DD(58.53,1,21,0)
;;=^^1^1^2890619^^
;;^DD(58.53,1,21,1,0)
;;=This amount identifies the quantity dispensed or returned.
;;^DD(58.53,1,"DT")
;;=2891101
PSGWI024 ; ; 04-JAN-1994
+1 ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
+2 IF 'DIFQ(58.5)
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.51,3,3)
+2 ;;=Type a whole number between 1 and 999999
+3 ;;^DD(58.51,3,21,0)
+4 ;;=^^1^1^2890619^^
+5 ;;^DD(58.51,3,21,1,0)
+6 ;;=DOSES RETURNED = QUANTITY RETURNED * AMIS CONVERSION NUMBER
+7 ;;^DD(58.51,4,0)
+8 ;;=RETURNS COST^NJ14,6^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."7N.N) X
+9 ;;^DD(58.51,4,3)
+10 ;;=Type a Number between 0 and 9999999, 6 Decimal Digits
+11 ;;^DD(58.51,4,21,0)
+12 ;;=^^1^1^2890705^^^
+13 ;;^DD(58.51,4,21,1,0)
+14 ;;=RETURNS COST = QUANTITY RETURNED * PRICE PER DISPENSE UNIT
+15 ;;^DD(58.51,4,"DT")
+16 ;;=2891102
+17 ;;^DD(58.52,0)
+18 ;;=RECALCULATE AMIS SUB-FIELD^^2^3
+19 ;;^DD(58.52,0,"IX","B",58.52,.01)
+20 ;;=
+21 ;;^DD(58.52,0,"NM","RECALCULATE AMIS")
+22 ;;=
+23 ;;^DD(58.52,0,"UP")
+24 ;;=58.501
+25 ;;^DD(58.52,.01,0)
+26 ;;=DRUG^MP50'^PSDRUG(^0;1^Q
+27 ;;^DD(58.52,.01,1,0)
+28 ;;=^.1
+29 ;;^DD(58.52,.01,1,1,0)
+30 ;;=58.52^B
+31 ;;^DD(58.52,.01,1,1,1)
+32 ;;=S ^PSI(58.5,DA(2),"S",DA(1),"DRG","B",$E(X,1,30),DA)=""
+33 ;;^DD(58.52,.01,1,1,2)
+34 ;;=K ^PSI(58.5,DA(2),"S",DA(1),"DRG","B",$E(X,1,30),DA)
+35 ;;^DD(58.52,.01,1,2,0)
+36 ;;=58.5^D
+37 ;;^DD(58.52,.01,1,2,1)
+38 ;;=S ^PSI(58.5,"D",$E(X,1,30),DA(2),DA(1),DA)=""
+39 ;;^DD(58.52,.01,1,2,2)
+40 ;;=K ^PSI(58.5,"D",$E(X,1,30),DA(2),DA(1),DA)
+41 ;;^DD(58.52,.01,21,0)
+42 ;;=^^3^3^2890619^^^
+43 ;;^DD(58.52,.01,21,1,0)
+44 ;;=This contains the internal drug number of the drug being dispensed or
+45 ;;^DD(58.52,.01,21,2,0)
+46 ;;=returned. Thus, if cost data is found to be inaccurate, the AMIS may be
+47 ;;^DD(58.52,.01,21,3,0)
+48 ;;=recalculated.
+49 ;;^DD(58.52,1,0)
+50 ;;=CATEGORY^58.53SA^^CAT;0
+51 ;;^DD(58.52,2,0)
+52 ;;=MISSING DATA^S^1:YES;0:NO;^0;2^Q
+53 ;;^DD(58.52,2,1,0)
+54 ;;=^.1
+55 ;;^DD(58.52,2,1,1,0)
+56 ;;=58.5^AEX^MUMPS
+57 ;;^DD(58.52,2,1,1,1)
+58 ;;=I X=1 S ^PSI(58.5,"AEX",DA(2),DA(1),DA)=""
+59 ;;^DD(58.52,2,1,1,2)
+60 ;;=K ^PSI(58.5,"AEX",DA(2),DA(1),DA)
+61 ;;^DD(58.52,2,1,1,"%D",0)
+62 ;;=^^3^3^2930827^
+63 ;;^DD(58.52,2,1,1,"%D",1,0)
+64 ;;=This cross-reference is used to sort drugs with missing AMIS data by
+65 ;;^DD(58.52,2,1,1,"%D",2,0)
+66 ;;=Date/Inpatient Site/Drug. It is used by the options "Inventory Outline",
+67 ;;^DD(58.52,2,1,1,"%D",3,0)
+68 ;;="Print AMIS Report","Incomplete AMIS Data", and "Recalculate AMIS".
+69 ;;^DD(58.52,2,21,0)
+70 ;;=^^4^4^2890906^^^^
+71 ;;^DD(58.52,2,21,1,0)
+72 ;;=This flag is set if data needed to calculate the AMIS is missing at the
+73 ;;^DD(58.52,2,21,2,0)
+74 ;;=time the quantity is dispensed or returned. Also, an "exceptions"
+75 ;;^DD(58.52,2,21,3,0)
+76 ;;=cross-reference is created. Before the AMIS will print, this missing data
+77 ;;^DD(58.52,2,21,4,0)
+78 ;;=must be supplied, the cross-reference deleted, and the flag reset.
+79 ;;^DD(58.53,0)
+80 ;;=CATEGORY SUB-FIELD^^1^2
+81 ;;^DD(58.53,0,"NM","CATEGORY")
+82 ;;=
+83 ;;^DD(58.53,0,"UP")
+84 ;;=58.52
+85 ;;^DD(58.53,.01,0)
+86 ;;=CATEGORY^S^A:AUTOMATIC REPLENISHMENT;W:WARD STOCK;RA:RETURNS - AUTO REPLENISHED;RW:RETURNS - WARD STOCKED;^0;1^Q
+87 ;;^DD(58.53,.01,21,0)
+88 ;;=^^3^3^2890619^^
+89 ;;^DD(58.53,.01,21,1,0)
+90 ;;=Category identifies how the quantity dispensed or returned was originally
+91 ;;^DD(58.53,.01,21,2,0)
+92 ;;=ordered: Automatic Replenishment, On-Demand, returned from Automatic
+93 ;;^DD(58.53,.01,21,3,0)
+94 ;;=Replenishment, or returned from On-Demand.
+95 ;;^DD(58.53,1,0)
+96 ;;=QUANTITY DISPENSED^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"."1N.N) X
+97 ;;^DD(58.53,1,3)
+98 ;;=Type a Number between -99999 and 99999, 0 Decimal Digits
+99 ;;^DD(58.53,1,21,0)
+100 ;;=^^1^1^2890619^^
+101 ;;^DD(58.53,1,21,1,0)
+102 ;;=This amount identifies the quantity dispensed or returned.
+103 ;;^DD(58.53,1,"DT")
+104 ;;=2891101
