Routine: IBACCWLEE2

Information

IBACCWLEE2 ;EDE/TPF - ACC (Automated Community Care) Encounters - Action Item Expand Encounter Display (Cont.) ; 12-SEP-2023 ; 12-SEP-2023

Package	Total	Call Graph
Integrated Billing	10	$$INPAT^IBCEF ($$ISPROS,$$ISRX)^IBCEF1 ($$BOX24D,$$RCBOX)^IBCEF11 $$BILLN^IBCEFG0 SET^IBCSC5A ($$PINB,SET)^IBCSC5B ($$LOS,$$LOS1)^IBCU64 SHEOB^IBJTBA1 $$DAT1^IBOUTL ZERO^IBRXUTL
List Manager	2	$$SETSTR^VALM1 SET^VALM10
Accounts Receivable	1	$$BN1^PRCAFN

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Integrated Billing	1	IBACCWLEE

Entry Points

Name	Comments	DBIA/ICR reference
BLD(IBIFN,IBLN,VALMCNT)	; charges, as they would display on the bill
H1500(IBLN,VALMCNT)	; block 24
H1500Q
UB04(IBLN,VALMCNT)
UB04Q
SETLN(STR,IBX,COL,WD)	;
SET(STR,LN)	; set up TMP array with screen data (allows 2 blank lines, if not at end of array)
SETQ
COB	; if there is an offset or a secondary/tertiary payer add it to the display, with ins co, and prior bill # ; IBIFN and IBLN must exist upon entry, IBLN is updated with new line count
RX	;RX refill info for CMS-1500 TPJI display
PROS	;prosthetic info for CMS-1500 TPJI display
MRA	; -- mra/eob

External References

Name	Field # of Occurrence
$$INPAT^IBCEF	UB04+18
$$ISPROS^IBCEF1	H1500+17
$$ISRX^IBCEF1	H1500+16
$$BOX24D^IBCEF11	H1500+4
$$RCBOX^IBCEF11	UB04+4
$$BILLN^IBCEFG0	H1500+7, UB04+11
SET^IBCSC5A	RX+4
$$PINB^IBCSC5B	PROS+5
SET^IBCSC5B	PROS+3
$$LOS^IBCU64	UB04+25
$$LOS1^IBCU64	UB04+25
SHEOB^IBJTBA1	MRA+10
$$DAT1^IBOUTL	RX+6, PROS+5
ZERO^IBRXUTL	RX+12
$$BN1^PRCAFN	COB+11
$$SETSTR^VALM1	SETLN+1
SET^VALM10	SET+2, SET+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	BLD+3, BLD+5, UB04+19, COB+3, COB+4, COB+5
^DIC(36 - [#36]	COB+9
^IBE(353 - [#353]	H1500+6, UB04+6
^IBM(361.1 - [#361.1]	MRA+3, MRA+4
^TMP("IBXDISP"	H1500+5!, H1500+8, H1500+9!, H1500+11, H1500+12, H1500+13, H1500+14!, UB04+5!, UB04+15, UB04+16 , UB04+17*, UB04+27, UB04+29, UB04+32!
^TMP("IBXSAVE"	BLD+8!, H1500+3!, UB04+3!
^TMP($J	RX+13, RX+14!

Label References

Name	Line Occurrences
$$SET	H1500+13, UB04+23, UB04+29, COB+6, COB+7, COB+12, COB+13, RX+7, RX+9, RX+15 , RX+17, PROS+6, PROS+8, PROS+11, MRA+7
$$SETLN	COB+8, COB+9, COB+10, COB+11, COB+14, COB+15, COB+16, COB+17, RX+9, RX+15 , RX+17, PROS+8, PROS+11, MRA+6
COB	H1500+15, UB04+30
H1500	BLD+5
H1500Q	H1500+11
MRA	H1500+15, UB04+34
PROS	H1500+17
RX	H1500+16
SETQ	SET+1
UB04	BLD+7
UB04Q	UB04+15

Naked Globals

Name	Field # of Occurrence
^(	H1500+9, UB04+16!, MRA+3
^(0	BLD+5
^(2	H1500+6, UB04+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COL	SETLN~, SETLN+1
DIR	UB04+2~
IBARRAY	RX+1~, RX+4, RX+5, PROS+1~, PROS+3, PROS+4
IBARRAY(	RX+6, PROS+5
IBCBILL	UB04+2~, UB04+19*, UB04+25
IBCT	MRA+1~, MRA+2, MRA+3, MRA+4*, MRA+5, MRA+8, MRA+10
IBCU1	COB+2~, COB+4*, COB+12, COB+15, COB+16, COB+17
IBCU2	COB+2~, COB+4*, COB+10
IBD	COB+2~, COB+8, COB+9, COB+10, COB+11, COB+14, COB+15, COB+16, COB+17, RX+1~ , RX+7, RX+8, RX+9, RX+13, RX+15, RX+16, RX+17, PROS+1~, PROS+6, PROS+7 , PROS+8, PROS+10*, PROS+11
IBEOBDET	BLD+1~, BLD+3*
IBFT	BLD+1~, BLD+3*
IBI	H1500+2~, H1500+8, H1500+9, H1500+11, H1500+12, H1500+13, UB04+2~, UB04+27, UB04+29, SET+1~ , SET+2, COB+2~, COB+6, COB+8, COB+9, COB+10, COB+11, RX+1~, RX+10, RX+11 , PROS+1~, PROS+9, PROS+10, MRA+1~, MRA+3, MRA+4, MRA+10
IBIFN	BLD~, BLD+3, BLD+5, H1500+5, H1500+7, H1500+16, H1500+17, UB04+5, UB04+11, UB04+18 , UB04+19, UB04+25, COB+2, COB+3, COB+4, COB+5, RX+4, PROS+3, MRA+3, MRA+4
IBINPAT	UB04+2~, UB04+18*, UB04+23
IBJ	H1500+2~, H1500+9, H1500+12, H1500+13, UB04+2~, UB04+27, UB04+29, COB+2~, COB+5, COB+6
IBLC	UB04+2~, UB04+5*
IBLIN	H1500+2~, H1500+4, H1500+7, UB04+2~, UB04+4, UB04+11
IBLKLN	H1500+2~, H1500+4, UB04+22, SET+1, SET+2, SET+4
IBLN	BLD~, BLD+5, BLD+7, H1500~, H1500+13, H1500+18, UB04~, UB04+9, UB04+13, UB04+23* , UB04+29, UB04+35, COB+6, COB+7, COB+12, COB+13, RX+2, RX+7, RX+9, RX+15 , RX+17, PROS+2, PROS+6, PROS+8, PROS+11, MRA+7*
IBM	COB+2~, COB+3*, COB+6, COB+9
IBM1	COB+2~, COB+3*, COB+11
IBOK	BLD+1~, BLD+3*
IBPFORM	H1500+2~, H1500+6, H1500+7, UB04+2~, UB04+6, UB04+11
IBQ	UB04+2~, UB04+5*
IBRXX	RX+1~, RX+11*, RX+12, RX+13, RX+16
IBSHEOB	MRA+1~
IBSHEOB(	MRA+3, MRA+4, MRA+10
IBSPC	RX+1~, RX+3, RX+13, PROS+1~, PROS+2, PROS+10
IBSTATE	UB04+2~, UB04+19*, UB04+24, UB04+25
IBSTR	H1500+2~, UB04+23, UB04+24, UB04+25, COB+2~, COB+5, COB+6, COB+7, COB+8, COB+9* , COB+10, COB+11, COB+12, COB+13, COB+14, COB+15, COB+16, COB+17, RX+1~, RX+9* , RX+15, RX+17, PROS+1~, PROS+8, PROS+11, MRA+1~, MRA+6*, MRA+7
IBX	H1500+2~, H1500+7, H1500+13, UB04+2~, UB04+11, UB04+24, UB04+25, UB04+29, UB04+30, SETLN~ , SETLN+1*, SETLN+2, SET+1~
IBXDATA	BLD+1~
IBXDATA(	RX+6, RX+10, RX+11, PROS+5, PROS+9, PROS+10
IBXSAVE	BLD+1~
LN	SET~, SET+2, SET+3, SET+4, SETQ
STR	SETLN~, SETLN+1, SET~, SET+1, SET+3
TEMPIBLN	UB04+9~*, UB04+13
U	BLD+3, BLD+5, H1500+6, UB04+6, UB04+24, UB04+25, COB+5, COB+6, COB+9, COB+10 , COB+11, COB+12, COB+15, COB+16, COB+17, RX+6, RX+12, RX+13, RX+16, PROS+5 , PROS+10
VALMCNT	BLD~, BLD+5, BLD+7, H1500~, H1500+18, UB04~, UB04+35
>> VALMSG	H1500+11, UB04+15
WD	SETLN~, SETLN+1
X	H1500+2~, UB04+2~
Y	UB04+2~
Z	UB04+2~, UB04+16, UB04+17, RX+1~, RX+6, PROS+1~, PROS+5, MRA+1~, MRA+3, MRA+9* , MRA+10*
Z0	UB04+2~, UB04+16, RX+1~, RX+6, PROS+1~, PROS+5*
Z1	RX+1~, RX+6, PROS+1~, PROS+5

Customize PDF page

Package: Integrated Billing