Global: ^IBE(354.3

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

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

FileMan FileNo	FileMan Filename	Package
354.3	BILLING THRESHOLDS	Integrated Billing

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.

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

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.

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

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)

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

Local Variables

>>	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

Customize PDF page

Package: Integrated Billing

Global: ^IBE(354.3

Information

Description

Directly Accessed By Routines, Total: 3

Accessed By FileMan Db Calls, Total: 1

Fields, Total: 12

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: