INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0)!(X?.E1"."3.N) X
LAST EDITED: AUG 17, 2011
HELP-PROMPT: Type a dollar amount between 0 and 999999, 2 decimal digits.
DESCRIPTION:
This will be used for NCPDP field 480-H9 (Other Claim Amount Submitted), which holds the dollar amount that represents the additional incurred costs for a dispensed prescription.
CROSS-REFERENCE: 9002313.3124^B
1)= S ^BPS(9002313.31,DA(2),2,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^BPS(9002313.31,DA(2),2,DA(1),4,"B",$E(X,1,30),DA)