Routine: IBCEMU1

Package	Total	Call Graph
VA FileMan	4	^DIC $$EXTERNAL^DILFD $$GET1^DIQ ^DIR
Integrated Billing	3	($$COBN,$$INPAT,$$INSPRF,F)^IBCEF MRA^IBCEMRAA ($$MCRONBIL,$$WNRBILL)^IBEFUNC
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Integrated Billing	26	IB20P375 IBCAPP1 IBCAPP2 IBCAPR2 IBCB1 IBCC IBCCC2 IBCCCB IBCCCB0 IBCECOB IBCECOB1 IBCECOB2 IBCECSA4 IBCEF4 IBCEMCA3 IBCEMQC IBCEMRAX IBCEMSR IBCEMU2 IBCEMVU IBCEOB IBCEOB1 IBCEOB21 IBCESRV3 IBCEU1 IBOSTUS1

Entry Points

Name	Comments	DBIA/ICR reference
MRAUSR()	;; Function ; Returns IEN (Internal Entry Number) from file #200 for ; the Bill Authorizer of acceptable MRA secondary claims, ; namely, AUTHORIZER,IB MRA
MRA(IBIFN)	; Utility driver procedure - this is what gets called
MRAX	;
MRAEXIST(IBIFN)	; This function determines if any MRA exists for the ; passed bill (IBIFN).
MRAEX	;
CHK(IBIFN)	; This function returns 1 if there is at least 1 MRA EOB for ; this bill# in file 361.1.
CHKX	;
PRINTMRA(IBIFN)	; This procedure is called when the user is printing bills ; and we know that one or more MRA's exist for this bill. We ask the ; user if the MRA(s) should be printed at this time too.
PRMRAX	;
MRACNT(IBIFN,IBMRANOT)	; This function counts up the number of MRA EOB's in file ;WCJ IB2.0432 ; 361.1 for this bill#
MRACNTX	;
SPLTMRA(IBIFN,IBMRARET)	; This function returns the number of Split MRA's for a ; given bill#. ; IBIFN = claim number ; IBMRARET = if passed in, return the 361.1 IENs
SPLTX	;
SPLIT(IBEOB)	; This function returns whether or not the given EOB is a ; split EOB as indicated in the claim level remark code. ; Check the remittance advice remark codes looking for code MA15. This ; code indicates that the claim has been separated to expedite ; handling. This means that this is an incomplete EOB.
SPLITX	;
SPLIT2(IBEOB,IBALLORONE)	; All lines Covered? aka SPLIT2
EOBLST(IBEOB)	; Standard FileMan lister code for entries in the EOB file ; Input parameter IBEOB is the IEN into file 361.1 ; This can be used by setting DIC("W")="D EOBLST^IBCEMU1(Y)" prior ; to FileMan lister calls.
EOBLSTX	;
SEL(IBIFN,MRAONLY,IBDA)	; Function to display and allow user selection ; of an EOB/MRA on file in 361.1 for the given bill.
SELX	;
CHKSUM(IBARRAY)	; Incoming 835 checksum calculation ; This function calculates the checksum of the raw 835 data from ; the data in array IBARRAY. This is done to prevent duplicates. ; Input parameter IBARRAY is the array reference where the data exists ; at @IBARRAY@(n,0) where n is a sequential # ; For file 364.2, IBARRAY = "^IBA(364.2,IBIEN,2)" where IBIEN = the ien ; of the entry in file 364.2 being evaluated
EXT(DATA)	; Extracts from the text in DATA if the text contains ; "##RAW DATA: "

External References

Name	Field # of Occurrence
^DIC	MRAUSR+11
$$EXTERNAL^DILFD	EOBLST+11, EOBLST+12, EOBLST+15, SEL+18, SEL+19, SEL+22
$$GET1^DIQ	SPLIT+14, SPLIT2+31, SPLIT2+34, SPLIT2+43, SPLIT2+49, SPLIT2+60, SPLIT2+70, SPLIT2+71, SPLIT2+72
^DIR	PRINTMRA+17, SEL+46
$$COBN^IBCEF	MRAEXIST+18
$$INPAT^IBCEF	SPLIT2+45
$$INSPRF^IBCEF	SPLIT2+45
F^IBCEF	SPLIT2+55, SPLIT2+56, SPLIT2+57
MRA^IBCEMRAA	PRINTMRA+21
$$MCRONBIL^IBEFUNC	MRAEXIST+20
$$WNRBILL^IBEFUNC	MRAEXIST+23, MRAEXIST+26, MRAEXIST+29
$$FMTE^XLFDT	EOBLST+13, SEL+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: PRINTMRA+16
Function Call: WRITE	Prompt: $E(PATNAME,1,19)," (",$E(SEQ),")",$E(INSCO,1,17),?56,EOBDT Line Location: EOBLST+16
Function Call: WRITE	Prompt: ?66,EOBTYP,?70,CLMSTAT Line Location: EOBLST+17
Function Call: WRITE	Prompt: !!,"The selected bill has multiple ",J," on file. Please choose one." Line Location: SEL+34
Function Call: WRITE	Prompt: !!?7,"#",?11,"Seq",?17,"Insurance Company",?40,"EOB Date" Line Location: SEL+35
Function Call: WRITE	Prompt: ?51,"Type",?57,"Claim Status" Line Location: SEL+36
Function Call: WRITE	Prompt: !?5,$J(J,3),?11,"(",$P(A,U,2),")",?17,$E($P(A,U,3),1,20) Line Location: SEL+38
Function Call: WRITE	Prompt: ?40,$P(A,U,4),?51,$P(A,U,5),?57,$P(A,U,6) Line Location: SEL+39
Function Call: WRITE	Prompt: ! Line Location: SEL+43
Routine Call	DIC Line Location: MRAUSR+11
Routine Call	DIR Line Location: PRINTMRA+17 SEL+46

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^IBM(361.1 - [#361.1]	EXTERNAL^DILFD, GET1^DIQ
^DGCR(399 - [#399]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	MRAEXIST+17, MRAEXIST+30, EOBLST+9
^DPT - [#2]	EOBLST+10
^IBM(361.1 - [#361.1]	CHK+4, CHK+5, MRACNT+4, MRACNT+5, SPLTMRA+8, SPLIT+8, SPLIT+9, SPLIT2+37, SPLIT2+40, SPLIT2+68 , SPLIT2+75, SPLIT2+78, EOBLST+7, SEL+12, SEL+14, SEL+15, SEL+52, SEL+53
^TMP("IBCECOB"	SEL+55, SEL+56, SEL+57
^TMP("IBCECOB1"	SEL+60, SEL+61, SEL+62, SEL+63, SEL+64, SEL+65*

Label References

Name	Line Occurrences
$$CHK	MRAEXIST+23, MRAEXIST+26, MRAEXIST+31
$$EXT	CHKSUM+12
$$MRACNT	PRINTMRA+6
$$MRAEXIST	MRA+1
$$SPLIT	SPLTMRA+8
MRAEX	MRAEXIST+17, MRAEXIST+19, MRAEXIST+20, MRAEXIST+23, MRAEXIST+26, MRAEXIST+29
PRINTMRA	MRA+1
PRMRAX	PRINTMRA+5, PRINTMRA+6, PRINTMRA+18
SELX	SEL+28, SEL+47, SEL+52
SPLITX	SPLIT+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	SEL+10~, SEL+37*, SEL+38, SEL+39
CLMSTAT	EOBLST+6~, EOBLST+15, EOBLST+17, SEL+9~, SEL+22, SEL+24
CNT	PRINTMRA+4~, PRINTMRA+6, PRINTMRA+11, PRINTMRA+12, MRACNT+2~, MRACNT+3, MRACNT+6*, MRACNTX+1
COUNT	SEL+9~, SEL+11, SEL+23, SEL+24, SEL+28, SEL+34, SEL+37, SEL+43
DATA	CHKSUM+8~, CHKSUM+12*, CHKSUM+13, CHKSUM+17, EXT~, EXT+2
DIC	MRAUSR+8~, MRAUSR+9*
DIC(0	MRAUSR+9*
DIR	PRINTMRA+4~, PRINTMRA+17!, SEL+10~, SEL+46!
DIR("?"	PRINTMRA+15*
DIR("A"	PRINTMRA+9, PRINTMRA+10, PRINTMRA+12, PRINTMRA+13, SEL+43, SEL+45
DIR("B"	PRINTMRA+8*
DIR(0	PRINTMRA+8, SEL+43
DIROUT	PRINTMRA+4~, SEL+10~
DIRUT	PRINTMRA+4~, SEL+10~
DTOUT	PRINTMRA+4~, SEL+10~
DUOUT	PRINTMRA+4~, SEL+10~
EOBDATE	SEL+9~, SEL+11, SEL+12, SEL+14
EOBDT	EOBLST+6~, EOBLST+13, EOBLST+16, SEL+9~, SEL+20, SEL+24
EOBFLG	CHKSUM+8~, CHKSUM+9, CHKSUM+14, CHKSUM+20
EOBTYP	EOBLST+6~, EOBLST+14, EOBLST+17, SEL+9~, SEL+21, SEL+24
IB	EOBLST+5~, EOBLST+9*, EOBLST+10
IBALLORONE	SPLIT2~, SPLIT2+69
IBARRAY	CHKSUM~, CHKSUM+11, CHKSUM+12
IBCOB	MRAEXIST+14~, MRAEXIST+18*, MRAEXIST+19, MRAEXIST+23, MRAEXIST+26, MRAEXIST+29
IBDA	SEL~, SEL+11*, SEL+55, SEL+56, SEL+57, SEL+60, SEL+61, SEL+62, SEL+63, SEL+64 , SEL+65
IBEOB	SPLIT~, SPLIT+7, SPLIT+8, SPLIT+9, SPLIT+14, SPLIT2~, SPLIT2+28, SPLIT2+31, SPLIT2+34, SPLIT2+37 , SPLIT2+40, SPLIT2+43, SPLIT2+60, SPLIT2+69, EOBLST~, EOBLST+7, SEL+9~, SEL+11, SEL+48*, SEL+52 , SEL+53, SEL+57, SEL+61, SELX+1
IBFT	SPLIT2+23~, SPLIT2+24~, SPLIT2+49*, SPLIT2+50, SPLIT2+53, SPLIT2+55, SPLIT2+56, SPLIT2+57
IBIFN	MRA~, MRA+1, MRAEXIST~, MRAEXIST+15, MRAEXIST+17, MRAEXIST+18, MRAEXIST+20, MRAEXIST+23, MRAEXIST+26, MRAEXIST+29 , MRAEXIST+30, CHK~, CHK+4, PRINTMRA~, PRINTMRA+5, PRINTMRA+6, PRINTMRA+21, MRACNT~, MRACNT+4, SPLTMRA~ , SPLTMRA+8, SPLIT2+23~, SPLIT2+43, SPLIT2+44, SPLIT2+45, SPLIT2+49, SPLIT2+55, SPLIT2+56, SPLIT2+57, SPLIT2+68 , EOBLST+5~, EOBLST+8, EOBLST+9, SEL~, SEL+11*, SEL+12, SEL+14, SEL+55
IBLINE	SPLIT2+24~, SPLIT2+76, SPLIT2+77, SPLIT2+78
IBLOOP	SPLIT2+23~
IBLOOPEOB	SPLIT2+24~, SPLIT2+67, SPLIT2+68, SPLIT2+69, SPLIT2+70, SPLIT2+71, SPLIT2+72, SPLIT2+75, SPLIT2+78
IBM	EOBLST+5~, EOBLST+7, EOBLST+8, EOBLST+11, EOBLST+12, EOBLST+13, EOBLST+14, EOBLST+15, SEL+9~, SEL+15 , SEL+16, SEL+17, SEL+18, SEL+19, SEL+20, SEL+21, SEL+22, SEL+52*, SEL+56, SEL+62 , SEL+63, SEL+64
IBM1	SEL+10~, SEL+53*, SEL+65
IBM3	SPLIT+6~, SPLIT+8*, SPLIT+10
IBM5	SPLIT+6~, SPLIT+9*, SPLIT+12
IBMRAF	SPLIT2+25~
IBMRANOT	MRACNT~, MRACNT+5, SEL+16, SEL+17, SEL+33, SEL+45
IBMRARET	SPLTMRA~
IBMRARET(	SPLTMRA+8*
IBPAYSEQ	SPLIT2+24~, SPLIT2+60*, SPLIT2+61, SPLIT2+72
IBRC	SPLIT2+25~
IBREC	CHKSUM+8~, CHKSUM+13*, CHKSUM+14, CHKSUM+15, CHKSUM+16
IBXARRAY	SPLIT2+25~
IBXARRY	SPLIT2+25~
IBXERR	SPLIT2+25~
IBXSAVE	SPLIT2+25~
IBZDATA	SPLIT2+23~, SPLIT2+24~
IBZDATA(	SPLIT2+77, SPLIT2+78!
IBZDATA(0	SPLIT2+64, SPLIT2+86
IEN	CHK+2~, CHK+3, CHK+4, CHK+5, MRACNT+2~, MRACNT+3, MRACNT+4, MRACNT+5, SPLTMRA+5~, SPLTMRA+6* , SPLTMRA+8, SEL+9~, SEL+13, SEL+14*, SEL+15, SEL+24
INSCO	EOBLST+5~, EOBLST+11, EOBLST+16, SEL+9~, SEL+18, SEL+24
J	SEL+10~, SEL+31, SEL+33, SEL+34, SEL+37*, SEL+38
LIST	SEL+9~
LIST(	SEL+24*, SEL+37, SEL+48
LN	CHKSUM+8~, CHKSUM+10, CHKSUM+11, CHKSUM+12
MRAONLY	SEL~, SEL+16, SEL+17
NUM	SPLTMRA+5~, SPLTMRA+6, SPLTMRA+8, SPLTX+1
OK	MRAEXIST+14~, MRAEXIST+16, MRAEXIST+23, MRAEXIST+26, MRAEXIST+31, MRAEX+1, CHK+2~, CHK+3, CHK+4, CHK+5 , CHKX+1
PATNAME	EOBLST+5~, EOBLST+10*, EOBLST+16
PCE	SPLIT+6~, SPLIT+10, SPLIT+12
POS	CHKSUM+8~, CHKSUM+17*
PRIMBILL	MRAEXIST+14~, MRAEXIST+30*, MRAEXIST+31
REMC	SPLIT+6~, SPLIT+10, SPLIT+12
RESULT	SPLIT2+23~, SPLIT2+27, SPLIT2+28, SPLIT2+31, SPLIT2+34, SPLIT2+37, SPLIT2+40, SPLIT2+44, SPLIT2+45, SPLIT2+50 , SPLIT2+53, SPLIT2+61, SPLIT2+63, SPLIT2+64, SPLIT2+68, SPLIT2+75*, SPLIT2+81, SPLIT2+86
SEQ	EOBLST+5~, EOBLST+12, EOBLST+16, SEL+9~, SEL+19, SEL+24
SPLIT	SPLIT+6~, SPLIT+7, SPLIT+10, SPLIT+11, SPLIT+12, SPLIT+14, SPLITX+1
U	MRAEXIST+30, CHK+5, MRACNT+5, SPLIT+10, SPLIT+12, EOBLST+10, EOBLST+11, EOBLST+12, EOBLST+13, EOBLST+14 , EOBLST+15, SEL+16, SEL+17, SEL+18, SEL+19, SEL+20, SEL+21, SEL+22, SEL+24, SEL+38 , SEL+39, SEL+55, SEL+56, SEL+57, SEL+61, SEL+62, SEL+63, SEL+64, SEL+65, CHKSUM+13
X	MRAUSR+8~, MRAUSR+9*, PRINTMRA+4~, SEL+10~
Y	MRAUSR+8~, MRAUSR+14, PRINTMRA+4~, PRINTMRA+18, SEL+10~, SEL+47, SEL+48, CHKSUM+8~, CHKSUM+9, CHKSUM+17 , CHKSUM+20*, CHKSUM+21

Customize PDF page

Package: Integrated Billing

Routine: IBCEMU1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 26

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: