Global: ^IBE(352.4

FileMan FileNo	FileMan Filename	Package
352.4	NON-BILLABLE CLINICS	Integrated Billing

FileMan FileNo

FileMan Filename

Package

352.4

NON-BILLABLE CLINICS

Integrated Billing

Description

This file shall be used to flag clinics in the HOSPITAL LOCATION (#44) file as either billable or non-billable for Means Test Billing. The flagging of clinics is date-sensitive, so the ability to not bill may be turned on or off. Please note that the default billing action IS TO BILL all clinics; thus, it is only necessary to add entries in this file for clinics where Means Test billing is NOT desired. The routine IBEFUNC contains the function call to determine if a clinic should be not billed on a specific date. Per VHA Directive 10-93-142, this file definition should not be modified.

Package	Total	Routines
Integrated Billing	2	IBEFUNC ^IBE(352.4

Package

Total

Routines

Integrated Billing

IBEFUNC ^IBE(352.4

Package	Total	FileMan Files
Scheduling	1	HOSPITAL LOCATION(#44)[.01]

Package

Total

FileMan Files

Scheduling

HOSPITAL LOCATION(#44)[.01]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CLINIC	0;1	POINTER TO HOSPITAL LOCATION FILE (#44)	**********************REQUIRED FIELD********************** HOSPITAL LOCATION(#44) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 20, 1993` HELP-PROMPT: `Please enter a clinic.` DESCRIPTION: This field is a pointer to the HOSPITAL LOCATION (#44) file and identifies the clinic which is being flagged as billable or non-billable for Means Test billing. SCREEN: `S DIC("S")="I $P(^(0),U,3)=""C"""` EXPLANATION: `This screen is used to assure that only clinics in file #44 are selected.` CROSS-REFERENCE: `352.4^B` 1)= S ^IBE(352.4,"B",$E(X,1,30),DA)="" 2)= K ^IBE(352.4,"B",$E(X,1,30),DA) CROSS-REFERENCE: `352.4^AIVDT^MUMPS` 1)= I $D(^IBE(352.4,DA,0)),$P(^(0),"^",2) S ^IBE(352.4,"AIVDT",X,-$P(^(0),"^",2),DA)="" 2)= I $D(^IBE(352.4,DA,0)),$P(^(0),"^",2) K ^IBE(352.4,"AIVDT",X,-$P(^(0),"^",2),DA) This cross-reference on the CLINIC (#.01) field and the EFFECTIVE DATE (#.02) field is used to locate the appropriate record for a clinic on a specific effective date.
.02	EFFECTIVE DATE	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 20, 1993` HELP-PROMPT: `Please enter the effective date.` DESCRIPTION: This is the date on which Means Test billing for this clinic should be ignored or activated. CROSS-REFERENCE: `352.4^AIVDT1^MUMPS` 1)= I $D(^IBE(352.4,DA,0)),+^(0) S ^IBE(352.4,"AIVDT",+^(0),-X,DA)="" 2)= I $D(^IBE(352.4,DA,0)),+^(0) K ^IBE(352.4,"AIVDT",+^(0),-X,DA) This cross-reference on the CLINIC (#.01) field and the EFFECTIVE DATE (#.02) field is used to locate the appropriate record for a clinic on a specific effective date.
.03	IGNORE MEANS TEST BILLING?	0;3	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 20, 1993` HELP-PROMPT: `Please enter 'YES' or 'NO.'` DESCRIPTION: `This field is used to determine whether Means Test billing should be ignored or activated, as of the EFFECTIVE DATE (field #.02).` Please note that you only need an entry in this file for a clinic for which you would like Means Test billing to be IGNORED.

.01

CLINIC

0;1

POINTER TO HOSPITAL LOCATION FILE (#44)

************************REQUIRED FIELD************************

HOSPITAL LOCATION(#44)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 20, 1993
HELP-PROMPT: Please enter a clinic.

DESCRIPTION:

This field is a pointer to the HOSPITAL LOCATION (#44) file and identifies the clinic which is being flagged as billable or non-billable for Means Test billing.

SCREEN: S DIC("S")="I $P(^(0),U,3)=""C"""
EXPLANATION: This screen is used to assure that only clinics in file #44 are selected.

CROSS-REFERENCE: 352.4^B

1)= S ^IBE(352.4,"B",$E(X,1,30),DA)=""

2)= K ^IBE(352.4,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 352.4^AIVDT^MUMPS

1)= I $D(^IBE(352.4,DA,0)),$P(^(0),"^",2) S ^IBE(352.4,"AIVDT",X,-$P(^(0),"^",2),DA)=""

2)= I $D(^IBE(352.4,DA,0)),$P(^(0),"^",2) K ^IBE(352.4,"AIVDT",X,-$P(^(0),"^",2),DA)

This cross-reference on the CLINIC (#.01) field and the EFFECTIVE DATE (#.02) field is used to locate the appropriate record for a clinic on a specific effective date.

.02

EFFECTIVE DATE

0;2

DATE

************************REQUIRED FIELD************************

INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 20, 1993
HELP-PROMPT: Please enter the effective date.

DESCRIPTION:

This is the date on which Means Test billing for this clinic should be ignored or activated.

CROSS-REFERENCE: 352.4^AIVDT1^MUMPS

1)= I $D(^IBE(352.4,DA,0)),+^(0) S ^IBE(352.4,"AIVDT",+^(0),-X,DA)=""

2)= I $D(^IBE(352.4,DA,0)),+^(0) K ^IBE(352.4,"AIVDT",+^(0),-X,DA)

This cross-reference on the CLINIC (#.01) field and the EFFECTIVE DATE (#.02) field is used to locate the appropriate record for a clinic on a specific effective date.

.03

IGNORE MEANS TEST BILLING?

0;3

SET

************************REQUIRED FIELD************************

'1' FOR YES;
'0' FOR NO;

LAST EDITED: JUL 20, 1993
HELP-PROMPT: Please enter 'YES' or 'NO.'
DESCRIPTION: This field is used to determine whether Means Test billing should be ignored or activated, as of the EFFECTIVE DATE (field #.02).
```
Please note that you only need an entry in this file for a clinic for which you would like Means Test billing to be IGNORED.
```

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

Name

Field # of Occurrence

^%DT

.02+1

^DIC

.01+1

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

Name

Line Occurrences (* Changed, ! Killed)

^IBE(352.4 - [#352.4]

.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)

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

Name

Field # of Occurrence

^(0

.01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.02+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)
DIC	.01+1!*
DIC("S"	.01+1, .01SCR+1
>> DIE	.01+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1!, .02(XREF 1S), .02(XREF 1K)
>> Y	.01+1, .02+1

Customize PDF page

Package: Integrated Billing

Global: ^IBE(352.4

Information

Description

Directly Accessed By Routines, Total: 2

Pointer To FileMan Files, Total: 1

Fields, Total: 3

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: