Global: ^IBA(362.3

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

Directly Accessed By Routines, Total: 8

Package	Total	Routines
Integrated Billing	8	IBCCC3 ^IBA(362.3 IB20PT62 IBCSC4D IBCSC4E IBCSC5 IBCSC5C IBCU1

Accessed By FileMan Db Calls, Total: 4

Package	Total	Routines
Integrated Billing	4	IBCCC3 IBCD3 IBCSC4D IBCSC5C

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: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DIAGNOSIS	0;1	POINTER TO ICD DIAGNOSIS FILE (#80)	**********************REQUIRED FIELD********************** ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="I '$P(^(0),U,9),'$$DXDUP^IBCU1(+Y,$G(DA)),$$DXBSTAT^IBCU1($G(DA))<3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 23, 1993` 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 '$P(^(0),U,9),'$$DXDUP^IBCU1(+Y,$G(DA)),$$DXBSTAT^IBCU1($G(DA))<3"` EXPLANATION: `Only active diagnosis, no duplicates for a bill, and bill must not be authorized or cancelled.` EXECUTABLE HELP: `D HELP^IBCSC4D` 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)<3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 12, 1994` HELP-PROMPT: `The bill that this diagnosis is related to.` SCREEN: `S DIC("S")="I $P(^(0),U,13)<3"` EXPLANATION: `Diagnosis can only be added to open bills.` 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)>2)!($$ORDDUP^IBCU1(+X,DA)) X` LAST EDITED: `NOV 23, 1993` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits. This is the order that 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.

.01

DIAGNOSIS

0;1

POINTER TO ICD DIAGNOSIS FILE (#80)

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

ICD DIAGNOSIS(#80)

INPUT TRANSFORM: S DIC("S")="I '$P(^(0),U,9),'$$DXDUP^IBCU1(+Y,$G(DA)),$$DXBSTAT^IBCU1($G(DA))<3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 23, 1993
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 '$P(^(0),U,9),'$$DXDUP^IBCU1(+Y,$G(DA)),$$DXBSTAT^IBCU1($G(DA))<3"
EXPLANATION: Only active diagnosis, no duplicates for a bill, and bill must not be authorized or cancelled.
EXECUTABLE HELP: D HELP^IBCSC4D

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)<3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 12, 1994
HELP-PROMPT: The bill that this diagnosis is related to.
SCREEN: S DIC("S")="I $P(^(0),U,13)<3"
EXPLANATION: Diagnosis can only be added to open bills.

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)>2)!($$ORDDUP^IBCU1(+X,DA)) X
LAST EDITED: NOV 23, 1993
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits. This is the order that 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.

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)
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)
^DD(362.3	.02(XREF 3S)
^IBA(362.3 - [#362.3]	.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)

Naked Globals

Name	Field # of Occurrence
^(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)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Integrated Billing