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 09, 2011
HELP-PROMPT: Type a dollar amount between 0 and 999999, 2 decimal digits.
DESCRIPTION:
This will be used for NCPDP field 394-MW (Benefit Stage Amount), which is the amount of claim allocated to the Medicare stage identified by field 393-MV (Benefit Stage Qualifier).
CROSS-REFERENCE: 9002313.31234^B
1)= S ^BPS(9002313.31,DA(3),2,DA(2),3,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^BPS(9002313.31,DA(3),2,DA(2),3,DA(1),4,"B",$E(X,1,30),DA)