Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^IBE(354.3

Package: Integrated Billing

Global: ^IBE(354.3

Information

FileMan FileNo	FileMan Filename	Package
354.3	BILLING THRESHOLDS	Integrated Billing

Description

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.

Directly Accessed By Routines, Total: 28

Package	Total	Routines
Integrated Billing	28	IB ENTER THRESHOLD IB20P253 IB20P331 IB20P362 IB20P379 IB20P410 IB20P425 IB20P441 IB20P465 IB20P485 IB20P514 IB20P540 IB20P557 IB20P583 IB20P611 IB20P620 IB20P635 IB20P661 IB20P692 IB20P723 IB20P753 IB20P780 ^IBE(399.6 IB20P74E IB20P74P ^IBE(354.3 IBARXET IBARXEU1

Accessed By FileMan Db Calls, Total: 22

Package	Total	Routines
Integrated Billing	22	IB20P253 IB20P331 IB20P362 IB20P379 IB20P410 IB20P425 IB20P441 IB20P465 IB20P485 IB20P514 IB20P540 IB20P557 IB20P583 IB20P611 IB20P620 IB20P635 IB20P661 IB20P692 IB20P723 IB20P753 IB20P780 IBARXET

Fields, Total: 12

Field #	Name	Loc	Type	Details
.01	DATE	0;1	DATE	**********************REQUIRED FIELD********************** 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.`
.02	TYPE	0;2	SET	**********************REQUIRED FIELD********************** '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.`
.03	BASE RATE FOR VETERAN	0;3	NUMBER	**********************REQUIRED FIELD********************** 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.`
.04	BASE RATE WITH 1 DEPENDENT	0;4	NUMBER	**********************REQUIRED FIELD********************** 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.`
.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.`
.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.`
.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.`
.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.`
.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.`
.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.`
.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.`
.12	ADDITIONAL DEPENDENT AMOUNT	0;12	NUMBER	**********************REQUIRED FIELD********************** 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.`

External References

Name	Field # of Occurrence
^%DT	.01+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBE(354.3 - [#354.3]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)

Naked Globals

Name	Field # of Occurrence
^(0	ID.03+1, .01(XREF 2S), .02(XREF 2S)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
>> DIC	ID.02+1
U	ID.03+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03+1! , .04+1!, .05+1!, .06+1!, .07+1!, .08+1!, .09+1!, .1+1!, .11+1!, .12+1*!
>> Y	.01+1

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All