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. It may contain other types of thresholds in the future. 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 is based on veterans making less than the VBA rate for pension plus Aid and Attendence. Per VHA Directive 10-93-142, this file definition should not be modified.

Directly Accessed By Routines, Total: 3

Package	Total	Routines
Integrated Billing	3	IBARXET IBARXEU1 ^IBE(354.3

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Integrated Billing	1	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	'2' FOR PENSION PLUS A&A; LAST EDITED: `MAR 19, 1993` DESCRIPTION: `This is the type of Threshold that this entry is for.` The Medication Copayment exemption based on income uses the Pension plus A&A threshold for income. 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