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

Print Page as PDF

Global: ^IBA(362.3

Package: Integrated Billing

Global: ^IBA(362.3

Information

FileMan FileNo	FileMan Filename	Package
362.3	IB BILL/CLAIMS DIAGNOSIS	Integrated Billing

Description

This file contains all diagnoses for bills in the Bill/Claims file. Per VHA Directive 10-93-142, this file definition should not be modified.

Directly Accessed By Routines, Total: 19

Package	Total	Routines
Integrated Billing	18	IB20PT62 IBCCC3 IBCCPT1 IBCEF11 IBCEF2 IBCEU4 IBCNSMR IBCSC4D IBCSC4E IBCSC4F IBCSC5 IBCSC5B IBCSC5C IBCU1 IBCU7 ^IBA(362.3 ^IBE(399.6 IBCU74
Accounts Receivable	1	RCXVDC4

Accessed By FileMan Db Calls, Total: 8

Package	Total	Routines
Integrated Billing	8	IBCCC3 IBCCPT1 IBCD3 IBCSC4D IBCSC4E IBCSC5B IBCSC5C IBCU74

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Integrated Billing	1	BILL/CLAIMS(#399)[#399.0304(10), #399.0304(11), #399.0304(12), #399.0304(13)]

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
DRG Grouper	1	ICD DIAGNOSIS(#80)[.01]
Integrated Billing	1	BILL/CLAIMS(#399)[.02]

Fields, Total: 4

Field #	Name	Loc	Type	Details
.01	DIAGNOSIS	0;1	POINTER TO ICD DIAGNOSIS FILE (#80)	**********************REQUIRED FIELD********************** ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S ICDVDT=$$BDATE^IBACSV(+$P($G(^IBA(362.3,+$G(DA),0)),U,2)),DIC("S")="I $$ICD9ACT^IBACSV(+Y,ICDVDT),'$$DXDUP^IBCU1(+Y,$G(DA)),$$DXBSTAT^IBCU1($G(DA))=1" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `OCT 13, 2008` HELP-PROMPT: `Enter a diagnosis for this bill. Duplicates are not allowed.` DESCRIPTION: `Enter an active diagnosis for this bill.` TECHNICAL DESCR: `All diagnosis for a bill are stored here, beginning with IB v2.0.` SCREEN: `S DIC("S")="I $$ICD9ACT^IBACSV(+Y,ICDVDT),'$$DXDUP^IBCU1(+Y,$G(DA)),$$DXBSTAT^IBCU1($G(DA))=1"` EXPLANATION: `Only active diagnosis, no duplicates for a bill, and bill must not be authorized or cancelled.` EXECUTABLE HELP: `D HELP^IBCSC4D` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `362.3^B` `1)= S ^IBA(362.3,"B",$E(X,1,30),DA)=""` `2)= K ^IBA(362.3,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `362.3^AIFN^MUMPS` `1)= S:+$P(^IBA(362.3,DA,0),U,2) ^IBA(362.3,"AIFN"_+$P(^(0),U,2),+X,DA)=""` `2)= K:+$P(^IBA(362.3,DA,0),U,2) ^IBA(362.3,"AIFN"_+$P(^(0),U,2),+X,DA)` `Special x-ref set up specifically to provide a regular x-ref of a bill and all it's diagnoses for easy look-up.`
.02	BILL NUMBER	0;2	POINTER TO BILL/CLAIMS FILE (#399)	**********************REQUIRED FIELD********************** BILL/CLAIMS(#399) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,13)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 13, 2008` HELP-PROMPT: `The bill that this diagnosis is related to.` SCREEN: `S DIC("S")="I $P(^(0),U,13)=1"` EXPLANATION: `Diagnosis can only be added to open bills.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `362.3^AIFN1^MUMPS` `1)= S ^IBA(362.3,"AIFN"_X,+^IBA(362.3,DA,0),DA)=""` `2)= K ^IBA(362.3,"AIFN"_X,+^IBA(362.3,DA,0),DA)` `Special x-ref set up specifically to provide a regular x-ref of a bill and all it's diagnoses for easy look-up.` CROSS-REFERENCE: `362.3^AO^MUMPS` `1)= S:+$P(^IBA(362.3,DA,0),U,3) ^IBA(362.3,"AO",+X,+$P(^(0),U,3),DA)=""` `2)= K:+$P(^IBA(362.3,DA,0),U,3) ^IBA(362.3,"AO",+X,+$P(^(0),U,3),DA)` `Print order by bill, used to prevent duplicate print orders for a bill.` CROSS-REFERENCE: `^^TRIGGER^362.3^.03` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(362.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,3)="" I X S X=DIV S Y(1)=$S($D(^IBA(362.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$ORDNXT^IBCU1(+X)` `X ^DD(362.3,.02,1,3,1.4)` `1.4)= S DIH=$S($D(^IBA(362.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=362.3,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE CONDITION)= ORDER=""` `CREATE VALUE)= S X=$$ORDNXT^IBCU1(+X)` `DELETE VALUE)= NO EFFECT` `FIELD)= ORDER` `Sets default value for print order.`
.03	ORDER	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N)!($$DXBSTAT^IBCU1(DA)'=1)!($$ORDDUP^IBCU1(+X,DA)) X` LAST EDITED: `OCT 13, 2008` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits. This is the number that represents the order in which the diagnoses will be printed on a bill. Each number must be unique for a bill.` DESCRIPTION: `This is the number that represents the order in which the diagnoses will be printed on a bill. Each number must be unique for a bill.` EXECUTABLE HELP: `D HELP^IBCSC4D` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the BILL NUMBER field of the IB BILL/CLAIMS DIAGNOSIS File` CROSS-REFERENCE: `362.3^AO1^MUMPS` `1)= S:+$P(^IBA(362.3,DA,0),U,2) ^IBA(362.3,"AO",+$P(^(0),U,2),+X,DA)=""` `2)= K:+$P(^IBA(362.3,DA,0),U,2) ^IBA(362.3,"AO",+$P(^(0),U,2),+X,DA)` `Print order by bill, used to prevent duplicate print orders for a bill.` CROSS-REFERENCE: `^^TRIGGER^399^215` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$$FIRSTDX^IBCSC4D(DA) I X S X=DIV X ^DD(362.3,.03,1,2,89.2) S X=$S('$D(^ICD9(+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S DIU=X K Y X ^DD(362.3,.03,1,2,1.1) X ^DD(362.` `3,.03,1,2,1.4)` `1.1)= S X=DIV S Y(1)=$S($D(^IBA(362.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X` `1.4)= S DIH=$S($D(^DGCR(399,DIV(0),"U2")):^("U2"),1:""),DIV=X I $D(^(0)) S $P(^("U2"),U,1)=DIV,DIH=399,DIG=215 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `3)= Do not delete` `89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBA(362.3,D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^DGCR(399,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DGCR(399,D0,"U2")):^("U2"),1:"")` `CREATE CONDITION)= S X=$$FIRSTDX^IBCSC4D(DA)` `CREATE VALUE)= INTERNAL(DIAGNOSIS)` `DELETE VALUE)= NO EFFECT` `FIELD)= BILL NUMBER:ADMITTING DIAGNOSIS` `This trigger sets the admitting diagnosis on the bill record to the diagnosis entered for the bill if admitting dx is not already on the bill and there is no other diagnosis with a lower numbered order already on the bill.` `This will only fire for inpatient episode bills.`
.04	POA INDICATOR	0;4	SET	'Y' FOR Yes; 'N' FOR No; 'U' FOR No Information; 'W' FOR Clinically Undetermined; '1' FOR Blank/Exempt from POA Reporting; LAST EDITED: `JUN 30, 2015` HELP-PROMPT: `Enter the value that correctly indicates if this condition was present at the time the patient was admitted.` DESCRIPTION: `Enter the value that correctly indicates if this condition was present at the time the patient was admitted.` TECHNICAL DESCR: `This is "Present On Admission" indicator.` `Value of "1" instead of the actual blank is no longer required for 837 transmissions (ID1^IBCEF2). Value of "1" from the QuadraMed interface is converted to a blank when stored into this file (SETPOA^IBCSC4F).` SCREEN: `S DIC("S")="I Y'=1"` EXPLANATION: `Blank/Exempt from POA Reporting is no longer an available option.`

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #3824	Accounts Receivable	DIAGNOSIS (.01). Access: Direct Global Read & w/Fileman BILL NUMBER (.02). Access: Direct Global Read & w/Fileman ORDER (.03). Access: Direct Global Read & w/Fileman

External References

Name	Field # of Occurrence
^DIC	.01+1, .02+1
^DICR	.02(XREF 3n1.4), .03(XREF 2n1.4)
$$BDATE^IBACSV	.01+1
$$FIRSTDX^IBCSC4D	.03(XREF 2S)
HELP^IBCSC4D	.01(HELP ), .03(HELP )
$$DXBSTAT^IBCU1	.03+1
$$ORDDUP^IBCU1	.03+1
$$ORDNXT^IBCU1	.02(XREF 3S)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.02(XREF 3n1.4), .03(XREF 2n1.4)
^DD(362.3	.02(XREF 3S), .03(XREF 2S)
^DGCR(399 - [#399]	.03(XREF 2n1.4), .03(XREF 2n89.2)
^IBA(362.3 - [#362.3]	.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), .02(XREF 3S) , .02(XREF 3n1.4), .03(XREF 1S), .03(XREF 1K), .03(XREF 2n1.1), .03(XREF 2n89.2)
^ICD9 - [#80]	.03(XREF 2S)

Naked Globals

Name	Field # of Occurrence
^("U2"	.03(XREF 2n1.4), .03(XREF 2n89.2)
^(0	.01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3n1.4), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2n1.1) , .03(XREF 2n1.4), .03(XREF 2n89.2)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	.02(XREF 3S), .03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2n89.2)
>> DA	.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), .02(XREF 3S) , .03+1, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S)
DIC	.01+1!, .02+1!
DIC("S"	.01+1, .01SCR+1, .02+1, .02SCR+1, .04SCR+1*
>> DIE	.01+1, .02+1
>> DIG	.02(XREF 3n1.4), .03(XREF 2n1.4)
>> DIH	.02(XREF 3n1.4), .03(XREF 2n1.4)
>> DIU	.02(XREF 3S), .03(XREF 2S)
DIV	.02(XREF 3S), .02(XREF 3n1.4), .03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2n1.4)
DIV(0	.02(XREF 3S), .02(XREF 3n1.4), .03(XREF 2S), .03(XREF 2n1.4), .03(XREF 2n89.2)
>> I(0	.03(XREF 2S), .03(XREF 2n89.2)
>> ICDVDT	.01+1*
U	.01+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3n1.4), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S) , .03(XREF 2n1.1), .03(XREF 2n1.4), .03(XREF 2n89.2)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1!, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K) , .02(XREF 3S), .02(XREF 3n1.4), .03+1!, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2n1.4)
Y	.01+1, .02+1, .02(XREF 3S), .03(XREF 2S)
Y(0	.02(XREF 3S), .03(XREF 2S)
Y(1	.02(XREF 3S), .03(XREF 2n1.1), .03(XREF 2n89.2)
Y(101	.03(XREF 2S), .03(XREF 2n89.2)

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