Global: ^IBT(356.399

Information

FileMan FileNo	FileMan Filename	Package
356.399	CLAIMS TRACKING/BILL	Integrated Billing

Description

This file serves as a bridge between Claims Tracking and the Bill Claims file. An entry is created automatically by the billing module to link the events being billed to the claims tracking entry. It serves as a cross-reference in a many to many relationship for the entries in these two files. Entries should not normally be added or edited manualy in this file. It should be maintained by the Billing Module. Per VHA Directive 10-93-142, this file definition should not be modified.

Package	Total	Routines
Integrated Billing	5	IBCDC IBCU8 IBPU2 IBTRED1 ^IBT(356.399

Package	Total	Routines
Integrated Billing	2	IBCDC IBPU2

Package	Total	FileMan Files
Integrated Billing	2	BILL/CLAIMS(#399)[.02] CLAIMS TRACKING(#356)[.01]

Fields, Total: 2

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CLAIM TRACKING ID	0;1	POINTER TO CLAIMS TRACKING FILE (#356)	**********************REQUIRED FIELD********************** CLAIMS TRACKING(#356) LAST EDITED: `AUG 02, 1993` HELP-PROMPT: `The Claims Tracking ID to cross-reference with Bill Numbers.` DESCRIPTION: This is the Claims Tracking entry that is associated with this bill. CROSS-REFERENCE: `356.399^B` 1)= S ^IBT(356.399,"B",$E(X,1,30),DA)="" 2)= K ^IBT(356.399,"B",$E(X,1,30),DA) CROSS-REFERENCE: `356.399^ACB1^MUMPS` 1)= S:$P(^IBT(356.399,DA,0),U,2) ^IBT(356.399,"ACB",X,$P(^(0),U,2),DA)="" 2)= K:$P(^IBT(356.399,DA,0),U,2) ^IBT(356.399,"ACB",X,$P(^(0),U,2),DA) Cross reference of bills and claims tracking entries. Used to find all bills associated with a claims tracking entry.
.02	BILL NUMBER	0;2	POINTER TO BILL/CLAIMS FILE (#399)	**********************REQUIRED FIELD********************** BILL/CLAIMS(#399) LAST EDITED: `OCT 29, 1993` HELP-PROMPT: `The bill number associated with this Claims Tracking ID.` DESCRIPTION: This is the Bill associated with this Claims Tracking Entry. CROSS-REFERENCE: `356.399^ACB^MUMPS` 1)= S:$P(^IBT(356.399,DA,0),U,1) ^IBT(356.399,"ACB",+^(0),X,DA)="" 2)= K:$P(^IBT(356.399,DA,0),U,1) ^IBT(356.399,"ACB",+^(0),X,DA) Cross-reference of claims events and bills. CROSS-REFERENCE: `356.399^C` 1)= S ^IBT(356.399,"C",$E(X,1,30),DA)="" 2)= K ^IBT(356.399,"C",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^356^.11` 1)= X ^DD(356.399,.02,1,3,1.3) I X S X=DIV X ^DD(356.399,.02,1,3,89.2) S X=$S('$D(^DGCR(399,+$P(Y(101),U,11),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S DIU=X K Y X ^DD(356.399,.02,1,3,1.1) X ^DD(356.399,.02,1,3,1.4) 1.1)= S X=DIV S X=$P(^IBT(356.399,DA,0),U,2) 1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(356.399,.02,1,3,69.2) S X=$S('$D(^DGCR(399,+$P(Y(101),U,11),0)):"",1:$P(^(0),U,1))="" S D0=I(0,0) 1.4)= S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,11)=DIV,DIH=356,DIG=.11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 2)= X ^DD(356.399,.02,1,3,2.3) I X S X=DIV X ^DD(356.399,.02,1,3,89.2) S X=$S('$D(^DGCR(399,+$P(Y(101),U,11),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S DIU=X K Y S X="" X ^DD(356.399,.02,1,3,2.4) 2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(356.399,.02,1,3,79.2) S X=$S('$D(^DGCR(399,+$P(Y(101),U,11),0)):"",1:$P(^(0),U,1))=$S('$D(^DGCR(399,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) 2.4)= S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,11)=DIV,DIH=356,DIG=.11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBT(356.399,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^IBT(356,+D0,0)) D0=-1 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"") 79.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBT(356.399,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^IBT(356,+D0,0)) D0=-1 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"") 89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBT(356.399,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^IBT(356,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"") CREATE CONDITION)= CLAIM TRACKING ID:INITIAL BILL NUMBER="" CREATE VALUE)= S X=$P(^IBT(356.399,DA,0),U,2) DELETE CONDITION)= CLAIM TRACKING ID:INITIAL BILL NUMBER=BILL NUMBER DELETE VALUE)= @ FIELD)= CLAIM TRACKING ID:INITIAL BILL NUMBER Sets the events Initial Bill Number (356,.11) if that field does not already have a value. Deletes the Initial Bill Number if that bill is being deleted from this entry.

.01

CLAIM TRACKING ID

0;1

POINTER TO CLAIMS TRACKING FILE (#356)

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

CLAIMS TRACKING(#356)

LAST EDITED: AUG 02, 1993
HELP-PROMPT: The Claims Tracking ID to cross-reference with Bill Numbers.

DESCRIPTION:

This is the Claims Tracking entry that is associated with this bill.

CROSS-REFERENCE: 356.399^B

1)= S ^IBT(356.399,"B",$E(X,1,30),DA)=""

2)= K ^IBT(356.399,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 356.399^ACB1^MUMPS

1)= S:$P(^IBT(356.399,DA,0),U,2) ^IBT(356.399,"ACB",X,$P(^(0),U,2),DA)=""

2)= K:$P(^IBT(356.399,DA,0),U,2) ^IBT(356.399,"ACB",X,$P(^(0),U,2),DA)

Cross reference of bills and claims tracking entries.  Used to find all bills associated with a claims tracking entry.

.02

BILL NUMBER

0;2

POINTER TO BILL/CLAIMS FILE (#399)

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

BILL/CLAIMS(#399)

LAST EDITED: OCT 29, 1993
HELP-PROMPT: The bill number associated with this Claims Tracking ID.

DESCRIPTION:

This is the Bill associated with this Claims Tracking Entry.

CROSS-REFERENCE: 356.399^ACB^MUMPS

1)= S:$P(^IBT(356.399,DA,0),U,1) ^IBT(356.399,"ACB",+^(0),X,DA)=""

2)= K:$P(^IBT(356.399,DA,0),U,1) ^IBT(356.399,"ACB",+^(0),X,DA)

Cross-reference of claims events and bills.

CROSS-REFERENCE: 356.399^C

1)= S ^IBT(356.399,"C",$E(X,1,30),DA)=""

2)= K ^IBT(356.399,"C",$E(X,1,30),DA)

CROSS-REFERENCE: ^^TRIGGER^356^.11

1)= X ^DD(356.399,.02,1,3,1.3) I X S X=DIV X ^DD(356.399,.02,1,3,89.2) S X=$S('$D(^DGCR(399,+$P(Y(101),U,11),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S DIU=X K Y X ^DD(356.399,.02,1,3,1.1) X ^DD(356.399,.02,1,3,1.4)

1.1)= S X=DIV S X=$P(^IBT(356.399,DA,0),U,2)

1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(356.399,.02,1,3,69.2) S X=$S('$D(^DGCR(399,+$P(Y(101),U,11),0)):"",1:$P(^(0),U,1))="" S D0=I(0,0)

1.4)= S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,11)=DIV,DIH=356,DIG=.11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0

2)= X ^DD(356.399,.02,1,3,2.3) I X S X=DIV X ^DD(356.399,.02,1,3,89.2) S X=$S('$D(^DGCR(399,+$P(Y(101),U,11),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S DIU=X K Y S X="" X ^DD(356.399,.02,1,3,2.4)

2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(356.399,.02,1,3,79.2) S X=$S('$D(^DGCR(399,+$P(Y(101),U,11),0)):"",1:$P(^(0),U,1))=$S('$D(^DGCR(399,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1)) S D0=I(0,0)

2.4)= S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,11)=DIV,DIH=356,DIG=.11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0

69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBT(356.399,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^IBT(356,+D0,0)) D0=-1 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"")

79.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBT(356.399,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^IBT(356,+D0,0)) D0=-1 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"")

89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBT(356.399,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^IBT(356,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"")

CREATE CONDITION)= CLAIM TRACKING ID:INITIAL BILL NUMBER=""

CREATE VALUE)= S X=$P(^IBT(356.399,DA,0),U,2)

DELETE CONDITION)= CLAIM TRACKING ID:INITIAL BILL NUMBER=BILL NUMBER

DELETE VALUE)= @

FIELD)= CLAIM TRACKING ID:INITIAL BILL NUMBER

Sets the events Initial Bill Number (356,.11) if that field does not already have a value.  Deletes the Initial Bill Number if that bill is being deleted from this entry.

External References

Name	Field # of Occurrence
^DICR	.02(XREF 3n1.4), .02(XREF 3n2.4)
Y^DIQ	ID.02+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.02(XREF 3n1.4), .02(XREF 3n2.4)
^DD(356.399	.02(XREF 3S), .02(XREF 3n1.3), .02(XREF 3K), .02(XREF 3n2.3)
^DD(399	ID.02+1
^DGCR(399 - [#399]	ID.02+1, .02(XREF 3S), .02(XREF 3n1.3), .02(XREF 3K), .02(XREF 3n2.3)
^IBT(356 - [#356]	.02(XREF 3n1.4), .02(XREF 3n2.4), .02(XREF 3n69.2), .02(XREF 3n79.2), .02(XREF 3n89.2)
^IBT(356.399 - [#356.399]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3n1.1), .02(XREF 3n69.2) , .02(XREF 3n79.2), .02(XREF 3n89.2)

Naked Globals

Name	Field # of Occurrence
^(0	ID.02+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 3S), .02(XREF 3n1.3), .02(XREF 3n1.4), .02(XREF 3K), .02(XREF 3n2.3) , .02(XREF 3n2.4), .02(XREF 3n69.2), .02(XREF 3n79.2), .02(XREF 3n89.2)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%I	ID.02+1*!
>> C	ID.02+1*
>> D0	.02(XREF 3S), .02(XREF 3n1.3), .02(XREF 3K), .02(XREF 3n2.3), .02(XREF 3n69.2), .02(XREF 3n79.2), .02(XREF 3n89.2)
>> 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), .02(XREF 3n1.1), .02(XREF 3n1.3) , .02(XREF 3n2.3)
>> DIC	ID.02+1
>> DIG	.02(XREF 3n1.4), .02(XREF 3n2.4)
>> DIH	.02(XREF 3n1.4), .02(XREF 3n2.4)
>> DIU	.02(XREF 3S), .02(XREF 3K)
DIV	.02(XREF 3S), .02(XREF 3n1.1), .02(XREF 3n1.3), .02(XREF 3n1.4), .02(XREF 3K), .02(XREF 3n2.3), .02(XREF 3n2.4)
DIV(0	.02(XREF 3n1.3), .02(XREF 3n1.4), .02(XREF 3n2.3), .02(XREF 3n2.4), .02(XREF 3n89.2)
>> I(0	.02(XREF 3S), .02(XREF 3n1.3), .02(XREF 3K), .02(XREF 3n2.3), .02(XREF 3n69.2), .02(XREF 3n79.2), .02(XREF 3n89.2)
U	ID.02+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 3S), .02(XREF 3n1.1), .02(XREF 3n1.3), .02(XREF 3n1.4), .02(XREF 3K) , .02(XREF 3n2.3), .02(XREF 3n2.4), .02(XREF 3n69.2), .02(XREF 3n79.2), .02(XREF 3n89.2)
>> X	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3n1.1) , .02(XREF 3n1.3), .02(XREF 3n1.4), .02(XREF 3K), .02(XREF 3n2.3), .02(XREF 3n2.4)
Y	ID.02+1*, .02(XREF 3S), .02(XREF 3K)
Y(0	.02(XREF 3n1.3), .02(XREF 3n2.3)
Y(1	.02(XREF 3n2.3), .02(XREF 3n69.2), .02(XREF 3n79.2), .02(XREF 3n89.2)
Y(101	.02(XREF 3S), .02(XREF 3n1.3), .02(XREF 3K), .02(XREF 3n2.3), .02(XREF 3n69.2), .02(XREF 3n79.2), .02(XREF 3n89.2)

Customize PDF page

Package: Integrated Billing