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 | ICR | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^IBA(363.2

Package: Integrated Billing

Global: ^IBA(363.2

Information

FileMan FileNo	FileMan Filename	Package
363.2	CHARGE ITEM	Integrated Billing

Description

Individual billable items and their charges. Each item that may be billed should have an entry. For the item to be automatically charged it must be an item defined on a bill. The items are grouped into Charge Sets which correspond to rates.

Directly Accessed By Routines, Total: 86

Package	Total	Routines
Integrated Billing	86	^IBE(399.6 IB20P139 IB20P418 IB20P555 IB20P625 IB20P738 IB20P800 IBCRCU1 IBCRED IBCREF IBCRETP IBCREU1 IBCRHBRA IBCRHRS IBCROI1 IBCU73 IBYP412 IBYP427 IBYP445 IBYP468 IBYP484 IBYP491 IBYP508 IBYP513 IBYP536 IBYP542 IBYP556 IBYP559 IBYP600 IBYP634 IBYP658 IBYP744 IBYPPM IBYPSA2 IBYPSB IBYPSD IBYPSG IBYPSH IBYPSI IBYPSL IBYPSN ^IBA(363.21 ^IBE(363.1 IB20P539 IB20P561 IB20P570 IB20P572 IB20P580 IB20P603 IB20P655 IB20P679 IB20P708 IB20P773 IBCRCC IBCRCI IBCREC IBCREE IBCREE1 IBCREQ IBCRHBRV IBCRLI IBCROE IBCRU4 IBCRU5 IBYP439 IBYP462 IBYP520 IBYP573 IBYP584 IBYP612 IBYP628 IBYP667 IBYP683 IBYP693 IBYP719 IBYP724 IBYP755 IBYP783 IBYPPC1 IBYPSE ^IBA(363.2 IBYPPL IBYPSF IBYPSJ IBYPSM IBYPSO

Accessed By FileMan Db Calls, Total: 68

Package	Total	Routines
Integrated Billing	68	IB20P139 IB20P418 IB20P539 IB20P555 IB20P561 IB20P570 IB20P572 IB20P580 IB20P603 IB20P625 IB20P655 IB20P679 IB20P708 IB20P738 IB20P773 IB20P800 IBCRED IBCREE1 IBCREF IBCRETP IBCRHBRA IBCRHRS IBYP412 IBYP427 IBYP439 IBYP445 IBYP462 IBYP468 IBYP484 IBYP491 IBYP508 IBYP513 IBYP520 IBYP536 IBYP542 IBYP556 IBYP559 IBYP573 IBYP584 IBYP600 IBYP612 IBYP628 IBYP634 IBYP658 IBYP667 IBYP683 IBYP693 IBYP719 IBYP724 IBYP744 IBYP755 IBYP783 IBYPPC1 IBYPPL IBYPPM IBYPSA2 IBYPSB IBYPSD IBYPSE IBYPSF IBYPSG IBYPSH IBYPSI IBYPSJ IBYPSL IBYPSM IBYPSN IBYPSO

Pointer To FileMan Files, Total: 7

Package	Total	FileMan Files
Integrated Billing	4	MCCR UTILITY(#399.1)[.01] REVENUE CODE(#399.2)[.06] BILLING ITEMS(#363.21)[.01] CHARGE SET(#363.1)[.02]
CPT HCPCS Codes	2	CPT MODIFIER(#81.3)[.07] CPT(#81)[.01]
DRG Grouper	1	DRG(#80.2)[.01]

Fields, Total: 8

Field #	Name	Loc	Type	Details
.01	NAME	0;1	VARIABLE POINTER	**********************REQUIRED FIELD********************** MCCR UTILITY(#399.1) CPT(#81) BILLING ITEMS(#363.21) DRG(#80.2) BILLING ITEMS(#363.21) EXPLANATION: `Billable Bedsections Only!` `SCREEN ON FILE 81: S DIC("S")="I '$P(^(0),U,4)"` EXPLANATION: `Active CPTs Only!` `SCREEN ON FILE 363.21: S DIC("S")="I $P(^(0),U,2)=1"` EXPLANATION: `NDC #'s Only!` `SCREEN ON FILE 363.21: S DIC("S")="I $P(^(0),U,2)=9"` EXPLANATION: `Miscellaneous items only!` LAST EDITED: `JUL 02, 1996` HELP-PROMPT: `Enter the Item that is billable.` DESCRIPTION: `The billable Item that may be charged on a bill.` CROSS-REFERENCE: `363.2^B` `1)= S ^IBA(363.2,"B",$E(X,1,30),DA)=""` `2)= K ^IBA(363.2,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `363.2^AIVDTS^MUMPS` `1)= I +$P($G(^IBA(363.2,DA,0)),U,2),+$P(^(0),U,3) S ^IBA(363.2,"AIVDTS"_+$P(^(0),U,2),+X,-$P(^(0),U,3),DA)=""` `2)= I +$P($G(^IBA(363.2,DA,0)),U,2),+$P(^(0),U,3) K ^IBA(363.2,"AIVDTS"_+$P(^(0),U,2),+X,-$P(^(0),U,3),DA)` `Cross reference by Set, Item, and Effective Date for lookup.`
.02	CHARGE SET	0;2	POINTER TO CHARGE SET FILE (#363.1)	**********************REQUIRED FIELD********************** CHARGE SET(#363.1) LAST EDITED: `JUL 02, 1996` HELP-PROMPT: `Enter the Charge Set this item/charge applies to.` DESCRIPTION: `This is the Charge Set that defines this item and the rate the charge is apart of.` CROSS-REFERENCE: `363.2^AIVDTS1^MUMPS` `1)= I +X,+$G(^IBA(363.2,DA,0)),+$P(^(0),U,3) S ^IBA(363.2,"AIVDTS"_+X,+$P(^(0),U,1),-$P(^(0),U,3),DA)=""` `2)= I +X,+$G(^IBA(363.2,DA,0)),+$P(^(0),U,3) K ^IBA(363.2,"AIVDTS"_+X,+$P(^(0),U,1),-$P(^(0),U,3),DA)` `Cross reference by Set, Item, and Effective Date for quick lookup.`
.03	EFFECTIVE DATE	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 02, 1996` HELP-PROMPT: `The first date this charge amount should be billed to a payer for the item.` DESCRIPTION: `The first date this charge amount should be applied to this item for this Charge Set.` `This item charge will override any other Charge Item with a previous effective date.` `The Charge Item with the most recent effective date will be used as the charge for the item and will be used as the implied inactive date for any previous charges for the item.` CROSS-REFERENCE: `363.2^AIVDTS2^MUMPS` `1)= I +X,+$G(^IBA(363.2,DA,0)),+$P(^(0),U,2) S ^IBA(363.2,"AIVDTS"_+$P(^(0),U,2),+^(0),-X,DA)=""` `2)= I +X,+$G(^IBA(363.2,DA,0)),+$P(^(0),U,2) K ^IBA(363.2,"AIVDTS"_+$P(^(0),U,2),+^(0),-X,DA)` `Cross reference by Set, Item, and Effective Date for quick lookup.`
.04	INACTIVE DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 01, 1996` HELP-PROMPT: `Enter the last date this item is billable.` DESCRIPTION: `This is the last date this item is billable for this Charge Set. If the item is still billable but for a different amount add a new Charge Item entry for the item with the correct amount and effective date, it is not` `necessary to inactivate the old amount.` `The Charge Item with the most recent effective date will be used as the charge for the item and will be used as the implied inactive date for any previous charges for the item.`
.05	UNIT CHARGE	0;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X` LAST EDITED: `JUL 01, 1996` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999, 2 Decimal Digits. Enter the charge per unit for this item.` DESCRIPTION: `The dollar amount to be added to a bill for each of this item on the bill.`
.06	REVENUE CODE	0;6	POINTER TO REVENUE CODE FILE (#399.2)	REVENUE CODE(#399.2) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 01, 1996` HELP-PROMPT: `Enter the revenue code to be added to the bills for this charge.` DESCRIPTION: `This is the revenue code that will be added to a bill for the charge of this item. If no revenue code is entered the Charge Set's Default Revenue Code will be used.` SCREEN: `S DIC("S")="I $P(^(0),U,3)=1"` EXPLANATION: `Active Revenue Codes Only!`
.07	CPT MODIFIER	0;7	POINTER TO CPT MODIFIER FILE (#81.3)	CPT MODIFIER(#81.3) INPUT TRANSFORM: `S DIC("S")="N IBXZ S IBXZ=$G(^IBA(363.2,+$G(DA),0)) I $$MODP^ICPTMOD(+IBXZ,+Y,""I"",+$P(IBXZ,U,3))>0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 14, 1999` HELP-PROMPT: `Enter the modifier for this CPT that fully defines the charge.` DESCRIPTION: `A CPT charge may be broken into multiple charges by using the modifier.` `If a modifier is added this charge will only be added to bills that have both the CPT and modifier combination on the bill.` `If no modifier is added then the charge will only be added to bills that have the CPT but no modifier.` SCREEN: `S DIC("S")="N IBXZ S IBXZ=$G(^IBA(363.2,+$G(DA),0)) I $$MODP^ICPTMOD(+IBXZ,+Y,""I"",+$P(IBXZ,U,3))>0"` EXPLANATION: `Certain modifiers may only be used with certain CPT codes. Only a modifier assignable to this CPT may be used.`
.08	BASE CHARGE	0;8	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X` LAST EDITED: `DEC 03, 2003` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999, 2 Decimal Digits` DESCRIPTION: `Enter the Base Charge associated with the item. This amount will be added once for the item on the bill, instead of once for each unit of the item. Base Charge is appropriate for only specific types of charges where the` `total charge for the item is an incremental Unit charge plus a single Base charge, such as Minutes and Hours.`

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #4700	E Claims Management Engine	NAME (.01). Access: Pointed to

External References

Name	Field # of Occurrence
^%DT	.03+1, .04+1
^DIC	.06+1, .07+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBA(363.2 - [#363.2]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^(0	.01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.03+1, .04+1
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
DIC	.06+1!, .07+1!
DIC("S"	.01VPSCR1+1, .01VPSCR2+1, .01VPSCR3+1, .01VPSCR5+1, .06+1, .06SCR+1, .07+1, .07SCR+1
>> DIE	.06+1, .07+1
U	.01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
X	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03+1!, .03(XREF 1S), .03(XREF 1K), .04+1! , .05+1!, .06+1!, .07+1!, .08+1!
>> Y	.03+1, .04+1, .06+1, .07+1

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