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 | Pointer To FileMan Files | Fields | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^IBE(352.3

Package: Integrated Billing

Global: ^IBE(352.3

Information

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 and Third Party Billing. It may also be used to flag billable stops so the Third Party auto biller will not create bills for them. 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.

Directly Accessed By Routines, Total: 5

Package	Total	Routines
Integrated Billing	4	IBEFUNC ^IBE(352.3 ^IBE(399.6 IBYJPT

Accessed By FileMan Db Calls, Total: 2

Package	Total	Routines
Integrated Billing	2	IB20PT51 IBYJPT

Pointer To FileMan Files, Total: 1

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

Fields, Total: 6

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: `JAN 30, 1996` 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.` 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 $P($G(^IBE(352.3,DA,0)),"^",4)=1,$P(^(0),"^",2) S ^IBE(352.3,"AIVDT",X,-$P(^(0),"^",2),DA)=""` `2)= I $P($G(^IBE(352.3,DA,0)),"^",4)=1,$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. Entries created only for Means` `Test billing.` CROSS-REFERENCE: `352.3^AIVDTT^MUMPS` `1)= I $P($G(^IBE(352.3,DA,0)),"^",4)>1,$P(^(0),"^",2) S ^IBE(352.3,"AIVDTT"_$P(^(0),"^",4),X,-$P(^(0),"^",2),DA)=""` `2)= I $P($G(^IBE(352.3,DA,0)),"^",4)>1,$P(^(0),"^",2) K ^IBE(352.3,"AIVDTT"_$P(^(0),"^",4),X,-$P(^(0),"^",2),DA)` `Cross-reference on CLINIC STOP CODE (.01) and EFFECTIVE DATE (.02) for quick reference to a clinics Third Party status on any given 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: `JAN 30, 1996` HELP-PROMPT: `Please enter an effective date.` DESCRIPTION: `This is the date on which billing for this clinic stop code should be activated or ignored.` CROSS-REFERENCE: `352.3^AIVDT1^MUMPS` `1)= I $P($G(^IBE(352.3,DA,0)),"^",4)=1,+^(0) S ^IBE(352.3,"AIVDT",+^(0),-X,DA)=""` `2)= I $P($G(^IBE(352.3,DA,0)),"^",4)=1,+^(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. Entries created only for Means` `Test billing.` CROSS-REFERENCE: `352.3^AIVDTT1^MUMPS` `1)= I $P($G(^IBE(352.3,DA,0)),"^",4)>1,+^(0) S ^IBE(352.3,"AIVDTT"_$P(^(0),"^",4),+^(0),-X,DA)=""` `2)= I $P($G(^IBE(352.3,DA,0)),"^",4)>1,+^(0) K ^IBE(352.3,"AIVDTT"_$P(^(0),"^",4),+^(0),-X,DA)` `Cross-reference on CLINIC STOP CODE (.01) and EFFECTIVE DATE (.02) for quick reference to a stops Third Party status on any given 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.`
.04	TYPE	0;4	SET	**********************REQUIRED FIELD********************** '1' FOR MEANS TEST; '2' FOR THIRD PARTY; LAST EDITED: `FEB 28, 1996` HELP-PROMPT: `Enter the type of billing this entry applies to.` DESCRIPTION: `This specifies the type of billing this bill/not bill Stop Code flag applies to.` CROSS-REFERENCE: `352.3^AIVDT2^MUMPS` `1)= I X=1,+$G(^IBE(352.3,DA,0)),$P(^(0),"^",2) S ^IBE(352.3,"AIVDT",+^(0),-$P(^(0),"^",2),DA)=""` `2)= I X=1,+$G(^IBE(352.3,DA,0)),$P(^(0),"^",2) K ^IBE(352.3,"AIVDT",+^(0),-$P(^(0),"^",2),DA)` `Cross-reference on CLINIC STOP CODE (.01) and EFFECTIVE DATE (.02) for quick reference to a stops Means Test status on any given date.` CROSS-REFERENCE: `352.3^AIVDTT2^MUMPS` `1)= I X>1,+$G(^IBE(352.3,DA,0)),$P(^(0),"^",2) S ^IBE(352.3,"AIVDTT"_X,+^(0),-$P(^(0),"^",2),DA)=""` `2)= I X>1,+$G(^IBE(352.3,DA,0)),$P(^(0),"^",2) K ^IBE(352.3,"AIVDTT"_X,+^(0),-$P(^(0),"^",2),DA)` `Cross-reference on CLINIC STOP CODE (.01) and EFFECTIVE DATE (.02) for quick reference to a stops Third Party status on any given date.`
.05	THIRD PARTY NON-BILLABLE	0;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 30, 1996` HELP-PROMPT: `Enter 'Yes' if this stop code is not billable to a third party.` DESCRIPTION: `This field is used to determine if the stop code should be billed to a Third Party payer.` CROSS-REFERENCE: `^^TRIGGER^352.3^.06` `1)= X ^DD(352.3,.05,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBE(352.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(352.3,.05,1,1,1.4)` `1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(352.3,.06,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^IBE(352.3,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_":",2),$C(59),1)="NO"` `1.4)= S DIH=$S($D(^IBE(352.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=352.3,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= X ^DD(352.3,.05,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^IBE(352.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(352.3,.05,1,1,2.4)` `2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(352.3,.06,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^IBE(352.3,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_":",2),$C(59),1)="NO"` `2.4)= S DIH=$S($D(^IBE(352.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=352.3,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE CONDITION)= THIRD PARTY AUTO BILL="NO"` `CREATE VALUE)= @` `DELETE CONDITION)= THIRD PARTY AUTO BILL="NO"` `DELETE VALUE)= @` `FIELD)= THIRD PARTY AUTO BILL` `Deletes the flag that stops auto billing for this stop code whenever the non-billable status of the stop code changes.`
.06	THIRD PARTY AUTO BILL	0;6	SET	'1' FOR NO; '0' FOR YES; LAST EDITED: `JAN 30, 1996` HELP-PROMPT: `Should visits with this stop code be automatically billed?` DESCRIPTION: `Enter 'No' if the Third Party auto biller should NOT create bills for visits with this stop code. This should only be set for stops that are billable.` NOTES: `TRIGGERED by the THIRD PARTY NON-BILLABLE field of the NON-BILLABLE CLINIC STOP CODES File`

Found Entries, Total: 31

CLINIC STOP CODE: 40.7^294^TELEPHONE TRIAGE	CLINIC STOP CODE: 40.7^296^TELEPHONE/MEDICINE	CLINIC STOP CODE: 40.7^297^TELEPHONE/SURGERY	CLINIC STOP CODE: 40.7^298^TELEPHONE/SPECIAL PSYCHIATRY	CLINIC STOP CODE: 40.7^299^TELEPHONE MH	CLINIC STOP CODE: 40.7^300^TELEPHONE/PTSD	CLINIC STOP CODE: 40.7^301^TELEPHONE/ALCOHOL DEPENDENCE	CLINIC STOP CODE: 40.7^302^TELEPHONE/DRUG DEPENDENCE
CLINIC STOP CODE: 40.7^303^TELEPHONE SUD	CLINIC STOP CODE: 40.7^304^TELEPHONE/ANCILLARY	CLINIC STOP CODE: 40.7^305^TELEPHONE/REHAB AND SUPPORT	CLINIC STOP CODE: 40.7^306^TELEPHONE/DIAGNOSTIC	CLINIC STOP CODE: 40.7^307^TELEPHONE/PROSTHETICS/ORTHOTIC	CLINIC STOP CODE: 40.7^308^TELEPHONE/DENTAL	CLINIC STOP CODE: 40.7^309^TELEPHONE/DIALYSIS	CLINIC STOP CODE: 40.7^294^TELEPHONE TRIAGE
CLINIC STOP CODE: 40.7^296^TELEPHONE/MEDICINE	CLINIC STOP CODE: 40.7^297^TELEPHONE/SURGERY	CLINIC STOP CODE: 40.7^298^TELEPHONE/SPECIAL PSYCHIATRY	CLINIC STOP CODE: 40.7^299^TELEPHONE MH	CLINIC STOP CODE: 40.7^300^TELEPHONE/PTSD	CLINIC STOP CODE: 40.7^301^TELEPHONE/ALCOHOL DEPENDENCE	CLINIC STOP CODE: 40.7^302^TELEPHONE/DRUG DEPENDENCE	CLINIC STOP CODE: 40.7^303^TELEPHONE SUD
CLINIC STOP CODE: 40.7^304^TELEPHONE/ANCILLARY	CLINIC STOP CODE: 40.7^305^TELEPHONE/REHAB AND SUPPORT	CLINIC STOP CODE: 40.7^306^TELEPHONE/DIAGNOSTIC	CLINIC STOP CODE: 40.7^307^TELEPHONE/PROSTHETICS/ORTHOTIC	CLINIC STOP CODE: 40.7^308^TELEPHONE/DENTAL	CLINIC STOP CODE: 40.7^309^TELEPHONE/DIALYSIS	CLINIC STOP CODE: 40.7^437^TRANSITIONAL PHARMACY BENEFIT

External References

Name	Field # of Occurrence
^%DT	.02+1
^DICR	.05(XREF 1n1.4), .05(XREF 1n2.4)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.05(XREF 1n1.4), .05(XREF 1n2.4)
^DD(352.3	.05(XREF 1S), .05(XREF 1n1.3), .05(XREF 1K), .05(XREF 1n2.3)
^IBE(352.3 - [#352.3]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K) , .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .05(XREF 1S), .05(XREF 1n1.3), .05(XREF 1n1.4), .05(XREF 1K), .05(XREF 1n2.3), .05(XREF 1n2.4)

Naked Globals

Name	Field # of Occurrence
^(0	.01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .04(XREF 1S), .04(XREF 1K) , .04(XREF 2S), .04(XREF 2K), .05(XREF 1S), .05(XREF 1n1.3), .05(XREF 1n1.4), .05(XREF 1K), .05(XREF 1n2.3), .05(XREF 1n2.4)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.02+1*
>> D0	.05(XREF 1S), .05(XREF 1n1.3), .05(XREF 1K), .05(XREF 1n2.3)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K) , .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .05(XREF 1n1.3), .05(XREF 1n2.3)
>> DIG	.05(XREF 1n1.4), .05(XREF 1n2.4)
>> DIH	.05(XREF 1n1.4), .05(XREF 1n2.4)
>> DIU	.05(XREF 1S), .05(XREF 1K)
DIV	.05(XREF 1S), .05(XREF 1n1.3), .05(XREF 1n1.4), .05(XREF 1K), .05(XREF 1n2.3), .05(XREF 1n2.4)
DIV(0	.05(XREF 1n1.3), .05(XREF 1n1.4), .05(XREF 1n2.3), .05(XREF 1n2.4)
U	.05(XREF 1S), .05(XREF 1n1.3), .05(XREF 1n1.4), .05(XREF 1K), .05(XREF 1n2.3), .05(XREF 1n2.4)
X	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02+1*!, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S) , .02(XREF 2K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .05(XREF 1S), .05(XREF 1n1.3), .05(XREF 1n1.4), .05(XREF 1K), .05(XREF 1n2.3) , .05(XREF 1n2.4)
Y	.02+1, .05(XREF 1S), .05(XREF 1K)
Y(0	.05(XREF 1n1.3), .05(XREF 1n2.3)
Y(1	.05(XREF 1S), .05(XREF 1n1.3), .05(XREF 1K), .05(XREF 1n2.3)
Y(2	.05(XREF 1n1.3), .05(XREF 1n2.3)

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All