STANDARD DATA DICTIONARY #354.3 -- BILLING THRESHOLDS FILE 6/27/25 PAGE 1 STORED IN ^IBE(354.3, (30 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- This file contains the threshold amounts for the Medication Copayment Income Exemption. The Medication Copayment Income Exemption legislation was effective on 30-Oct-92. The thresholds are normally effective on December 1. To simplify implementation VACO has determined that the threshold effective 1-Dec-92 would be used for the period from 30-Oct-92 to 1-Dec-92. The Medication Copayment Income Exemption from 1992 thru 11/30/96 was based on veterans making less than the VBA rate for pension plus Aid and Attendence. With the filing of the 1996 thresholds, the directive was changed to reflect that the Medication Copayment Income Exemption was to be based on veterans making less than the VBA rate for Basic Pension. This is the directive that is still in effect for current rates. 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: TYPE (#.02)[R], BASE RATE FOR VETERAN (#.03)[R], BASE RATE WITH 1 DEPENDENT (#.04)[R], ADDITIONAL DEPENDENT AMOUNT (#.12)[R] CROSS REFERENCED BY: TYPE(AC), DATE(AIVDT), TYPE(AIVDT1), DATE(B) 354.3,.01 DATE 0;1 DATE (Required) INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: DEC 11, 1992 DESCRIPTION: This is the effective date of this threshold. CROSS-REFERENCE: 354.3^B 1)= S ^IBE(354.3,"B",$E(X,1,30),DA)="" 2)= K ^IBE(354.3,"B",$E(X,1,30),DA) CROSS-REFERENCE: 354.3^AIVDT^MUMPS 1)= I $P(^IBE(354.3,DA,0),"^",2) S ^IBE(354.3,"AIVDT",$P(^(0),"^",2),-X,DA)="" 2)= K ^IBE(354.3,"AIVDT",+$P(^IBE(354.3,DA,0),"^",2),-X,DA) Inverse date cross reference to rapidly retrieve the proper threshold prior to date x. 354.3,.02 TYPE 0;2 SET (Required) '1' FOR BASIC PENSION; '2' FOR PENSION PLUS A&A; LAST EDITED: APR 11, 2000 DESCRIPTION: These are the types of Thresholds that this entry is for. The Medication Copayment exemption based on income uses the Basic Pension entry from 1996 to the present and uses Pension plus A&A threshold for years prior to 1996.. CROSS-REFERENCE: 354.3^AC 1)= S ^IBE(354.3,"AC",$E(X,1,30),DA)="" 2)= K ^IBE(354.3,"AC",$E(X,1,30),DA) CROSS-REFERENCE: 354.3^AIVDT1^MUMPS 1)= I +^IBE(354.3,DA,0) S ^IBE(354.3,"AIVDT",X,-$P(^(0),"^"),DA)="" 2)= K ^IBE(354.3,"AIVDT",X,-$P(^IBE(354.3,DA,0),"^"),DA) 3)= DON'T DELETE Inverse date cross reference used to quickly retrieve threshold immediately prior to date x. 354.3,.03 BASE RATE FOR VETERAN 0;3 NUMBER (Required) INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X LAST EDITED: APR 05, 1993 HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits DESCRIPTION: This is the rate for a single veteran. 354.3,.04 BASE RATE WITH 1 DEPENDENT 0;4 NUMBER (Required) INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X LAST EDITED: APR 05, 1993 HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits DESCRIPTION: This is the amount for the Veteran with 1 Dependent. 354.3,.05 BASE RATE WITH 2 DEPENDENTS 0;5 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: This is the amount for the Veteran with 2 Dependents. If this rate is the same as the rate for Veteran with 1 dependent plus an additional dependent amount, it can be left null and computed. 354.3,.06 BASE RATE WITH 3 DEPENDENTS 0;6 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: This is the amount for the Veteran with 3 Dependents. If this rate is the same as the rate for Veteran with 1 dependent plus an additional dependent amount for each dependent, it can be left null and computed. 354.3,.07 BASE RATE WITH 4 DEPENDENTS 0;7 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: This is the amount for the Veteran with 4 Dependents. If this rate is the same as the rate for Veteran with 1 dependent plus an additional dependent amount for each dependent, it can be left null and computed. 354.3,.08 BASE RATE WITH 5 DEPENDENTS 0;8 NUMBER INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X LAST EDITED: JAN 20, 1993 HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits DESCRIPTION: This is the amount for the Veteran with 5 Dependents. If this rate is the same as the rate for Veteran with 1 dependent plus an additional dependent amount for each dependent, it can be left null and computed. 354.3,.09 BASE RATE WITH 6 DEPENDENTS 0;9 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: This is the amount for the Veteran with 6 Dependents. If this rate is the same as the rate for Veteran with 1 dependent plus an additional dependent amount for each dependent, it can be left null and computed. 354.3,.1 BASE RATE WITH 7 DEPENDENTS 0;10 NUMBER INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X LAST EDITED: JAN 20, 1993 HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits DESCRIPTION: This is the amount for the Veteran with 7 Dependents. If this rate is the same as the rate for Veteran with 1 dependent plus an additional dependent amount for each dependent, it can be left null and computed. 354.3,.11 BASE RATE WITH 8 DEPENDENTS 0;11 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: This is the amount for the Veteran with 8 Dependents. If this rate is the same as the rate for Veteran with 1 dependent plus an additional dependent amount for each dependent, it can be left null and computed. 354.3,.12 ADDITIONAL DEPENDENT AMOUNT 0;12 NUMBER (Required) INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X LAST EDITED: APR 05, 1993 HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits DESCRIPTION: This is the rate for each additional dependent. TECHNICAL DESCR: Calculation of the threshold amount will be based on the number of dependents a veteran has. First the base rate will be determined. Second, look at the rate for the veteran with the correct number of dependents. Third, if the entry for the veteran and the number of dependents is null, then the threshold will be the base rate plus the rate for each additional dependent times the number of dependents. INPUT TEMPLATE(S): IB ENTER THRESHOLD APR 11, 2000@09:55 USER #0 PRINT TEMPLATE(S): IB PRINT THRESHOLD JAN 20, 1993@10:40 USER #1453 BILLING THRESHOLDS LIST SORT TEMPLATE(S): IB PRINT THRESHOLD MAY 06, 1993@09:33 USER #1453 SORT BY: TYPE;S1// WITHIN TYPE, SORT BY: DATE// (User is asked range) FORM(S)/BLOCK(S):