Routine: IBCRBH1

Package	Total	Call Graph
Integrated Billing	9	(CPT,INPTBS,OPTVST,PI,RX)^IBCRBC1 INPTDRG^IBCRBC11 PTF^IBCRBG $$NODRG^IBCRBG2 $$EMUTL^IBCRU1 ($$BILLRATE,RT)^IBCRU3 ($$RCDV,$$VERSDT)^IBCRU8 $$NAME^IBCSC61 $$GETMOD^IBEFUNC
CPT HCPCS Codes	1	$$CPT^ICPTCOD
Kernel	1	$$FMTE^XLFDT
VA FileMan	1	^DIR

Package	Total	Caller Graph
Integrated Billing	4	IBCSC5A IBCSCH IBCU1 IBCU65

Entry Points

Name	Comments	DBIA/ICR reference
DISPCHG(IBIFN)	; display a bills items and their charges, display only, does not change the charges on the bill
BILL(IBIFN,IBAA,IBRSARR)	; given a bill number calculate charges using schedules that match the auto add flag ; if IBRSARR is defined it will be used to create charges rather than the standard set for the bills Rate Type ; Output: ^TMP($J,"IBCRCC" - same as would be calculated if the charges were being added to bill
END
SORTCI(IBIFN)	; process charge array - create new array in sorted order with items combined, if possible ; if bs, rv cd, charge, cpt, div, item type, item ptr and component all match then charge is combined ; Input: TMP($J,"IBCRCC",X) = ... (from IBCRBC2) ; Output: TMP($J,"IBCRCSX",X) = ; RV CD ^ BS ^ CHG ^ UNITS ^ CPT ^ DIV ^ ITM TYPE ^ ITM PTR ^ CHRG CMPNT ^ CHRG SET ^ EVNT DT ^ ITM NAME ; TMP($J,"IBCRCSX",X,"CC",Y) = charge adjustment messages ; TMP($J,"IBCRCSXR",BS,RV CD,X) = "" ; TMP($J,"IBCRCSXN",DATE,ITEM NAME,X) = ""
DSPCHRG(AA)	; display charges ; Input: TMP($J,"IBCRCSx",...) = ... (from SORTCI)
DSPHDR(AA)	;
DSPLN(LN)	;
DISPLNC(LN)	; display charge adjustment commenmts
DATE(X)	;
PAUSE(CNT)	;
ITMNM(IBIFN,IBBS,IBIT,IBIP,IBCPT)	; return external form of the item name
CPTNM(IBIFN,TYPE,ITEM)	; retrurn external name of the charge item if it is a CPT item (type=399,42,.1)
NOTES(IBIFN,PAUSE)	; compile and print charge notes for a bill

External References

Name	Field # of Occurrence
^DIR	PAUSE+2
CPT^IBCRBC1	BILL+23
INPTBS^IBCRBC1	BILL+18
OPTVST^IBCRBC1	BILL+20
PI^IBCRBC1	BILL+22
RX^IBCRBC1	BILL+21
INPTDRG^IBCRBC11	BILL+19
PTF^IBCRBG	NOTES+21
$$NODRG^IBCRBG2	NOTES+27
$$EMUTL^IBCRU1	BILL+16, ITMNM+5
$$BILLRATE^IBCRU3	NOTES+10
RT^IBCRU3	BILL+11
$$RCDV^IBCRU8	NOTES+13
$$VERSDT^IBCRU8	NOTES+13
$$NAME^IBCSC61	ITMNM+2
$$GETMOD^IBEFUNC	CPTNM+4
$$CPT^ICPTCOD	ITMNM+4, CPTNM+3
$$FMTE^XLFDT	NOTES+29

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?72,"--------",!,?70,$J(IBTOTAL,10,2) Line Location: DSPCHRG+25
Function Call: WRITE	Prompt: !,"Item",?18,"Date",?28,"Charge Set",?40,"Div",?47,"Type",?52,"RvCd",?57,"Units",?64,"Charge",?75,"Total" Line Location: DSPHDR+2
Function Call: WRITE	Prompt: !,"--------------------------------------------------------------------------------" Line Location: DSPHDR+3
Function Call: WRITE	Prompt: !,$E(ITM,1,15),?18,$$DATE($P(LN,U,6)),?28,$E(CS,1,7),?40,DIV,?47,CMP,?52,RVCD,?57,$J(UNIT,3),?62,$J(CHG,8,2),?71,$J((UNIT*CHG),9,2) Line Location: DSPLN+7
Function Call: WRITE	Prompt: !,?18,$G(LN) Line Location: DISPLNC+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: ! Line Location: NOTES+34
Function Call: WRITE	Prompt: !,IBMSG(IBX) Line Location: NOTES+34
Routine Call	DIR Line Location: PAUSE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	DSPLN+3
^DGCR(399 - [#399]	BILL+7, CPTNM+2, NOTES+8
^DGCR(399.2 - [#399.2]	DSPLN+5
^IBE(363.1 - [#363.1]	BILL+16, DSPLN+2
^TMP($J	DISPCHG+3!, DISPCHG+5!, BILL+5!, SORTCI+10!, SORTCI+12, SORTCI+14, SORTCI+20, SORTCI+21, SORTCI+22, SORTCI+29* , SORTCI+30, SORTCI+31, SORTCI+32*, DSPCHRG+7, DSPCHRG+8, DSPCHRG+9, DSPCHRG+10, DSPCHRG+19, DSPCHRG+20, DSPCHRG+21 , NOTES+7!, NOTES+23, NOTES+26, NOTES+35!

Label References

Name	Line Occurrences
$$CPTNM	ITMNM+3
$$DATE	DSPLN+7
$$ITMNM	SORTCI+17
$$PAUSE	DSPCHRG+23, DSPCHRG+26, NOTES+33
BILL	DISPCHG+2, DISPCHG+4
DISPLNC	DSPCHRG+20, DSPCHRG+21
DSPCHRG	DISPCHG+2, DISPCHG+4
DSPHDR	DSPCHRG+5, DSPCHRG+23
DSPLN	DSPCHRG+17
END	BILL+11
NOTES	DISPCHG+6
SORTCI	DISPCHG+2, DISPCHG+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AA	DSPCHRG~, DSPCHRG+5, DSPCHRG+23, DSPHDR~, DSPHDR+1
BEG	NOTES+7~, NOTES+19*, NOTES+23, NOTES+24
CHG	DSPLN+1~, DSPLN+6*, DSPLN+7
CMP	DSPLN+1~, DSPLN+4*, DSPLN+7
CNT	PAUSE~, PAUSE+1
CS	DSPLN+1~, DSPLN+2*, DSPLN+7
DIR	PAUSE+2~!
DIR(0	PAUSE+2*
DIRUT	PAUSE+2~
DIV	DSPLN+1~, DSPLN+3*, DSPLN+7
DT	ITMNM+4, CPTNM+3, NOTES+19
DTOUT	PAUSE+2~
DUOUT	PAUSE+2~
END	NOTES+7~, NOTES+19*, NOTES+23, NOTES+24
IB0	BILL+4~, BILL+7, BILL+8, NOTES+7~, NOTES+8, NOTES+10, NOTES+13, NOTES+17, NOTES+19
IBAA	BILL~, BILL+15
>> IBAUTO	NOTES+6
IBBEVNT	BILL+4~, BILL+16*, BILL+18, BILL+19, BILL+20, BILL+21, BILL+22, BILL+23
IBBRT	BILL+4~, BILL+8*, BILL+11
IBBS	SORTCI+9~, SORTCI+15, SORTCI+17, SORTCI+20, SORTCI+29, SORTCI+31, ITMNM~, ITMNM+1, ITMNM+5
IBBTYPE	BILL+4~, BILL+8*, BILL+11
IBCHG	SORTCI+9~, SORTCI+15, SORTCI+23, SORTCI+31, DSPCHRG+3~, DSPCHRG+13, DSPCHRG+15, DSPCHRG+17
IBCMPT	SORTCI+9~, SORTCI+16, SORTCI+23, SORTCI+31, DSPCHRG+3~, DSPCHRG+14, DSPCHRG+17
IBCNT	DSPCHRG+3~, DSPCHRG+5, DSPCHRG+15, DSPCHRG+20, DSPCHRG+21, DSPCHRG+23, DSPCHRG+25, DSPCHRG+26
IBCPT	SORTCI+9~, SORTCI+16, SORTCI+17, SORTCI+23, SORTCI+31, ITMNM~, ITMNM+1, ITMNM+4
IBCS	BILL+4~, BILL+15, BILL+16, BILL+18, BILL+19, BILL+20, BILL+21, BILL+22, BILL+23, SORTCI+9~ , SORTCI+17, SORTCI+31, DSPCHRG+3~, DSPCHRG+14*, DSPCHRG+17
IBCTYPE	BILL+4~, BILL+8*, BILL+11
IBDT	SORTCI+9~, SORTCI+17, SORTCI+24, SORTCI+30, SORTCI+31, DSPCHRG+3~, DSPCHRG+14*, DSPCHRG+17
IBDV	SORTCI+9~, SORTCI+16, SORTCI+23, SORTCI+31, DSPCHRG+3~, DSPCHRG+13, DSPCHRG+17
IBENDDT	NOTES+7~, NOTES+23*, NOTES+24, NOTES+26, NOTES+29
IBFND	NOTES+7~, NOTES+14, NOTES+29, NOTES+31, NOTES+33
IBI	SORTCI+9~, SORTCI+12, SORTCI+14, SORTCI+21, SORTCI+26, SORTCI+32, DSPCHRG+3~, DSPCHRG+7, DSPCHRG+8, DSPCHRG+9 , PAUSE+1~*
IBIFN	DISPCHG~, DISPCHG+2, DISPCHG+4, DISPCHG+6, BILL~, BILL+4, BILL+7, BILL+18, BILL+19, BILL+20 , BILL+21, BILL+22, BILL+23, SORTCI~, SORTCI+17, ITMNM~, ITMNM+3, CPTNM~, CPTNM+2, CPTNM+4 , NOTES~, NOTES+8
IBIP	SORTCI+9~, SORTCI+16, SORTCI+17, SORTCI+23, SORTCI+31, ITMNM~, ITMNM+1, ITMNM+2, ITMNM+3
IBIT	SORTCI+9~, SORTCI+16, SORTCI+17, SORTCI+23, SORTCI+31, ITMNM~, ITMNM+1, ITMNM+2, ITMNM+3
IBJ	SORTCI+9~, SORTCI+20, SORTCI+22, DSPCHRG+3~, DSPCHRG+8, DSPCHRG+9
IBK	SORTCI+9~, SORTCI+20, SORTCI+26, SORTCI+29, SORTCI+30, SORTCI+31, SORTCI+32, DSPCHRG+3~, DSPCHRG+9*, DSPCHRG+10 , DSPCHRG+19, DSPCHRG+20, DSPCHRG+21
IBLN	SORTCI+9~, SORTCI+14, SORTCI+15, SORTCI+16, SORTCI+17, DSPCHRG+3~, DSPCHRG+10, DSPCHRG+13, DSPCHRG+14
IBMDRG	NOTES+7~, NOTES+27*, NOTES+29, NOTES+30
IBMSG	NOTES+7~
IBMSG(	NOTES+14, NOTES+31, NOTES+34
IBMVLN	NOTES+7~, NOTES+26*, NOTES+27
IBNM	SORTCI+9~, SORTCI+17, SORTCI+30, SORTCI+31, DSPCHRG+3~, DSPCHRG+14, DSPCHRG+17
IBQUIT	DSPCHRG+3~, DSPCHRG+7, DSPCHRG+8, DSPCHRG+9, DSPCHRG+23, DSPCHRG+26*
IBRS	BILL+4~, BILL+14*, BILL+15, BILL+18, BILL+19, BILL+20, BILL+21, BILL+22, BILL+23
IBRSARR	BILL~, BILL+11
IBRSARR(	BILL+14, BILL+15
IBRVCD	SORTCI+9~, SORTCI+15, SORTCI+20, SORTCI+29, SORTCI+31, DSPCHRG+3~, DSPCHRG+13, DSPCHRG+17
IBTOTAL	DSPCHRG+3~, DSPCHRG+15, DSPCHRG+25
IBTUNITS	SORTCI+9~, SORTCI+20, SORTCI+24, SORTCI+26, SORTCI+27*, SORTCI+31
IBU	BILL+4~, BILL+7, BILL+11, NOTES+7~, NOTES+8, NOTES+19
IBUNITS	SORTCI+9~, SORTCI+15, SORTCI+27, DSPCHRG+3~, DSPCHRG+13, DSPCHRG+15, DSPCHRG+17
IBX	SORTCI+9~, SORTCI+22, SORTCI+23, SORTCI+24, DSPCHRG+3~, DSPCHRG+17, DSPCHRG+20, PAUSE+2~, PAUSE+3, CPTNM+1~* , CPTNM+2, CPTNM+3, CPTNM+4, NOTES+7~, NOTES+14, NOTES+29, NOTES+30, NOTES+31, NOTES+34
IBY	SORTCI+9~, SORTCI+32, DSPCHRG+3~, DSPCHRG+19, DSPCHRG+20
IOF	DSPHDR+1
ITEM	CPTNM~, CPTNM+2, CPTNM+4
ITM	DSPLN+1~, DSPLN+6, DSPLN+7, ITMNM+1~, ITMNM+2, ITMNM+3, ITMNM+4, ITMNM+5, ITMNM+6
LN	DSPLN~, DSPLN+1*, DSPLN+2, DSPLN+3, DSPLN+4, DSPLN+5, DSPLN+6, DSPLN+7, DISPLNC~, DISPLNC+1
NAME	CPTNM+1~, CPTNM+3, CPTNM+4*, CPTNM+5
PAUSE	NOTES~, NOTES+33
PTF	NOTES+7~, NOTES+19*, NOTES+21
RVCD	DSPLN+1~, DSPLN+5*, DSPLN+7
TYPE	CPTNM~, CPTNM+2
U	BILL+8, BILL+11, BILL+16, SORTCI+15, SORTCI+16, SORTCI+17, SORTCI+23, SORTCI+24, SORTCI+31, DSPCHRG+13 , DSPCHRG+14, DSPCHRG+17, DSPLN+2, DSPLN+3, DSPLN+4, DSPLN+5, DSPLN+6, DSPLN+7, ITMNM+4, CPTNM+3 , NOTES+10, NOTES+13, NOTES+17, NOTES+19, NOTES+26, NOTES+29
UNIT	DSPLN+1~, DSPLN+6*, DSPLN+7
X	DATE~, DATE+1*, DATE+2, PAUSE+2~
Y	PAUSE+2~
>> ZTQUEUED	NOTES+6

Customize PDF page

Package: Integrated Billing

Routine: IBCRBH1

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: