STANDARD DATA DICTIONARY #350.2 -- IB ACTION CHARGE FILE 3/24/25 PAGE 1
STORED IN ^IBE(350.2, (177 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the unit charges for an IB ACTION TYPE by the effective date of the charge. The "AIVDT" cross-reference can be
used to quickly ascertain the most recent charge for an action type.
Per VHA Directive 10-93-142, this file definition should not be modified.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: EFFECTIVE DATE (#.02)
CROSS
REFERENCED BY: EFFECTIVE DATE(AIVDT), IB TRANSACTION TYPE(AIVDT1), KEY(B), EFFECTIVE DATE(C)
INDEXED BY: IB TRANSACTION TYPE & COPAYMENT TIER & EFFECTIVE DATE (AC)
LAST MODIFIED: DEC 20,2016@15:22:52
350.2,.01 KEY 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
DESCRIPTION: This is a description unique name for this entry that identifies it. It is not used in the
calculation of the charge but rather for editing purposes.
CROSS-REFERENCE: 350.2^B
1)= S ^IBE(350.2,"B",$E(X,1,30),DA)=""
2)= K ^IBE(350.2,"B",$E(X,1,30),DA)
350.2,.02 EFFECTIVE DATE 0;2 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 06, 1991
DESCRIPTION:
This is the date the charge rate for this entry became effective.
CROSS-REFERENCE: 350.2^C
1)= S ^IBE(350.2,"C",$E(X,1,30),DA)=""
2)= K ^IBE(350.2,"C",$E(X,1,30),DA)
CROSS-REFERENCE: 350.2^AIVDT^MUMPS
1)= I $P(^IBE(350.2,DA,0),U,3) S ^IBE(350.2,"AIVDT",$P(^(0),U,3),-X,DA)=""
2)= I $P(^IBE(350.2,DA,0),U,3) K ^IBE(350.2,"AIVDT",$P(^(0),U,3),-X,DA)
RECORD INDEXES: AC (#1409)
350.2,.03 IB TRANSACTION TYPE 0;3 POINTER TO IB ACTION TYPE FILE (#350.1)
LAST EDITED: FEB 06, 1991
DESCRIPTION:
This is the IB TRANSACTION TYPE that this rate is for.
CROSS-REFERENCE: 350.2^AIVDT1^MUMPS
1)= I $P(^IBE(350.2,DA,0),U,2) S ^IBE(350.2,"AIVDT",X,-$P(^(0),U,2),DA)=""
2)= I $P(^IBE(350.2,DA,0),U,2) K ^IBE(350.2,"AIVDT",X,-$P(^(0),U,2),DA)
RECORD INDEXES: AC (#1409)
350.2,.04 UNIT CHARGE, FIXED 0;4 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION:
If this charge is a fixed amount, this field contains the fixed amount.
350.2,.05 INACTIVATION DATE 0;5 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
DESCRIPTION: If this charge is inactive put in the inactive date. If the charge is not to be used the inactive
date should equal the active date. If the charge was effective for a time period but that charge
no longer is valid then enter the date that this is inactive. No entry is necessary in this field
if a more recent active date is added for an IB ACTION TYPE.
350.2,.06 ADDITIONAL AMOUNT 0;6 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: This is a fixed additional dollar amount that will be added to the basic charge after it has been
computed. An example of this would be the additional charge of $200 added to HCFA Ambulatory
Surgery rate groups for inter-ocular lens implants.
350.2,.07 COPAYMENT TIER 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1.N) X
LAST EDITED: MAR 17, 2016
HELP-PROMPT: Enter a tier for this charge, whole number between 1 and 999.
DESCRIPTION: This is the tier related to this copayment charge. The value is used to determine if the
associated charge amount should be used.
RECORD INDEXES: AC (#1409)
350.2,10 UNIT CHARGE LOGIC 10;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
HELP-PROMPT: This is Standard MUMPS code.
DESCRIPTION: If this charge is not fixed (ie an exact cost) the field contains the logic to calculate the cost
per unit. It may need to use the logic in the IB transaction type file to find this cost.
350.2,20 ADDITIONAL AMOUNT LOGIC 20;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: JAN 13, 2010
HELP-PROMPT: M code to determine if additional amount should be added.
DESCRIPTION: This is M code to be executed which returns the $T value to determine if the Additional Amount
(#.06) field should be added to the charge value.
WRITE AUTHORITY: @
FILES POINTED TO FIELDS
IB ACTION TYPE (#350.1) IB TRANSACTION TYPE (#.03)
File #350.2
Record Indexes:
AC (#1409) RECORD REGULAR IR SORTING ONLY
Short Descr: Cross reference to find entry based on date, type and tier.
Description: This cross reference will be used to quickly lookup the appropriate IB ACTION CHARGE based on the IB
TRANSACTION TYPE (#.03), COPAYMENT TIER (#.07) and the negative (-) value of the EFFECTIVE DATE (#.02) fields.
Set Logic: S ^IBE(350.2,"AC",X(1),X(2),X(3),DA)=""
Kill Logic: K ^IBE(350.2,"AC",X(1),X(2),X(3),DA)
Whole Kill: K ^IBE(350.2,"AC")
X(1): IB TRANSACTION TYPE (350.2,.03) (Subscr 1) (forwards)
X(2): COPAYMENT TIER (350.2,.07) (Subscr 2) (forwards)
X(3): EFFECTIVE DATE (350.2,.02) (Subscr 3) (forwards)
Transform (Storage): S X=-X
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):