Global: ^IBE(352.3

FileMan FileNo	FileMan Filename	Package
352.3	NON-BILLABLE CLINIC STOP CODES	Integrated Billing

FileMan FileNo

FileMan Filename

Package

352.3

NON-BILLABLE CLINIC STOP CODES

Integrated Billing

Description

This file shall be used to flag clinic stop codes in the CLINIC STOP (#40.7) file as either billable or non-billable for Means Test Billing. The flagging of the stop codes is date-sensitive, so the ability to not bill can be turned on or off. The default billing action is TO BILL ALL stop codes; thus, it is only necessary to add entries to this file if billing of a particular clinic stop code is not desired. The routine IBEFUNC contains the function call to determine if a clinic stop code should not be billed on a specific date. Per VHA Directive 10-93-142, this file definition should not be modified.

Package	Total	Routines
Integrated Billing	2	^IBE(352.3 IBEFUNC

Package

Total

Routines

Integrated Billing

^IBE(352.3 IBEFUNC

Package	Total	Routines
Integrated Billing	1	IB20PT51

Package

Total

Routines

Integrated Billing

IB20PT51

Package	Total	FileMan Files
Scheduling	1	CLINIC STOP(#40.7)[.01]

Package

Total

FileMan Files

Scheduling

CLINIC STOP(#40.7)[.01]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CLINIC STOP CODE	0;1	POINTER TO CLINIC STOP FILE (#40.7)	**********************REQUIRED FIELD********************** CLINIC STOP(#40.7) LAST EDITED: `JUL 20, 1993` HELP-PROMPT: `Please enter a clinic stop code.` DESCRIPTION: This field is a pointer to the CLINIC STOP (#40.7) file and identifies the clinic stop code which is being established as either billable or non-billable for Means Test billing. CROSS-REFERENCE: `352.3^B` 1)= S ^IBE(352.3,"B",$E(X,1,30),DA)="" 2)= K ^IBE(352.3,"B",$E(X,1,30),DA) CROSS-REFERENCE: `352.3^AIVDT^MUMPS` 1)= I $D(^IBE(352.3,DA,0)),$P(^(0),"^",2) S ^IBE(352.3,"AIVDT",X,-$P(^(0),"^",2),DA)="" 2)= I $D(^IBE(352.3,DA,0)),$P(^(0),"^",2) K ^IBE(352.3,"AIVDT",X,-$P(^(0),"^",2),DA) This cross-reference on the CLINIC STOP CODE (#.01) field and the EFFECTIVE DATE (#.02) field is used to locate the appropriate record for a clinic stop code 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 an effective date.` DESCRIPTION: This is the date on which Means Test billing for this clinic stop code should be activated or ignored. CROSS-REFERENCE: `352.3^AIVDT1^MUMPS` 1)= I $D(^IBE(352.3,DA,0)),+^(0) S ^IBE(352.3,"AIVDT",+^(0),-X,DA)="" 2)= I $D(^IBE(352.3,DA,0)),+^(0) K ^IBE(352.3,"AIVDT",+^(0),-X,DA) This cross-reference on the CLINIC STOP CODE (#.01) field and the EFFECTIVE DATE (#.02) field is used to locate the appropriate record for a clinic stop code on a specific effective date.
.03	IGNORE MEANS TEST BILLING?	0;3	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `AUG 05, 1993` HELP-PROMPT: `Please enter 'YES' or 'NO.'` DESCRIPTION: `This field is used to determine whether Means Test billing should be activated or ignored, as of the EFFECTIVE DATE (field #.02).` Please note that you only need an entry in this file for a clinic stop code for which you would like Means Test billing to be IGNORED.

.01

CLINIC STOP CODE

0;1

POINTER TO CLINIC STOP FILE (#40.7)

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

CLINIC STOP(#40.7)

LAST EDITED: JUL 20, 1993
HELP-PROMPT: Please enter a clinic stop code.

DESCRIPTION:

This field is a pointer to the CLINIC STOP (#40.7) file and identifies the clinic stop code which is being established as either billable or non-billable for Means Test billing.

CROSS-REFERENCE: 352.3^B

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

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

CROSS-REFERENCE: 352.3^AIVDT^MUMPS

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

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

This cross-reference on the CLINIC STOP CODE (#.01) field and the EFFECTIVE DATE (#.02) field is used to locate the appropriate record for a clinic stop code 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 an effective date.

DESCRIPTION:

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

CROSS-REFERENCE: 352.3^AIVDT1^MUMPS

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

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

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

.03

IGNORE MEANS TEST BILLING?

0;3

SET

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

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

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

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

Name

Field # of Occurrence

^%DT

.02+1

Name	Line Occurrences (* Changed, ! Killed)
^IBE(352.3 - [#352.3]	.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.3 - [#352.3]

.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)
X	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1*!, .02(XREF 1S), .02(XREF 1K)
>> Y	.02+1

Customize PDF page

Package: Integrated Billing

Global: ^IBE(352.3

Information

Description

Directly Accessed By Routines, Total: 2

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 1

Fields, Total: 3

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: