Routine: IBCEOB

Package	Total	Call Graph
Integrated Billing	13	PUTONWL^IBCAPP $$COBN^IBCEF $$LOCK^IBCEM ($$CHKSUM,$$SPLIT2)^IBCEMU1 (30,40,41,42,45,46)^IBCEOB0 ($$15,$$20,$$35,$$37,ICN)^IBCEOB00 UPD^IBCEOB01 ($$HDR,$$STORE)^IBCEOB1 DELMSG^IBCESRV2 $$DATE^IBCEU $$EOB^IBCNSBL2 $$WNRBILL^IBEFUNC $$ARSTATA^IBJTU4
VA FileMan	3	FILE^DICN (,FILE,WP)^DIE CLEAN^DILF
Accounts Receivable	1	$$TPR^PRCAFN
MailMan	1	$$NET^XMRENT
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Integrated Billing	5	IBCEOB0 IBCEOB00 IBCEOB01 IBCEOB1 IBCESRV3
Accounts Receivable	4	RCDPESR2 RCDPESR6 RCDPEX32 RCDPEX4

Entry Points

Name	Comments	DBIA/ICR reference
UPDEOB(IBTDA)	; Update EXPLANATION OF BENEFITS file (#361.1) from return msg ; IBTDA = ien of return message ; Function returns ien of EOB file entry or "" if errors found ; the data. Any errors found are ; stored in array ^TMP("IBCERR-EOB",$J,n) in text format ; n = seq # and are stored with the EOB in a wp field
UPDQ
835(IB0,IBEGBL,IBEOB)	; Store header
5(IB0,IBEGBL,IBEOB)	; Record '05'
6(IB0,IBEGBL,IBEOB)	; Record '06' - corrected patient name and/or ID# ; This data is not going to be filed into file 361.1 so the value of this function will always be a 1 so as to ; not interrupt the filing process of the EOB/MRA data into file 361.1.
Q6	; exit point for $$6 function
10(IB0,IBEGBL,IBEOB)	; Record '10'
Q10
12(IB0,IBEGL,IBEOB)	; Record '12'
Q12
13(IB0,IBEGL,IBEOB)	; Record '13'
Q13
15(IB0,IBEGBL,IBEOB)	; Record '15' ; Moved due to space constraints
Q15
17(IB0,IBEGBL,IBEOB)	; Record '17'
Q17
20(IB0,IBEGBL,IBEOB)	; Record '20' ; Moved due to space constraints
Q20
30(IB0,IBEGBL,IBEOB)	; Record '30'
Q30
35(IB0,IBEGBL,IBEOB)	; Record '35' ; Moved due to space constraints
Q35
37(IB0,IBEGBL,IBEOB)	; Record '37' ; Moved due to space constraints
Q37
40(IB0,IBEGBL,IBEOB)	; Record '40'
Q40
41(IB0,IBEGBL,IBEOB)	; Record '41'
Q41
42(IB0,IBEGBL,IBEOB)	; Record '42'
Q42
45(IB0,IBEGBL,IBEOB)	; Record '45'
46(IB0,IBEGBL,IBEOB)	; Record '46'
Q46
MSG(IBEOB,MSG)	; procedure to file message into field 6.03 ; Results of processing of the "06" record type
MSGX	;
DOLLAR(X)	; Convert value in X to dollar format XXX.XX
ADD3611(IBMNUM,IBTBILL,IBBATCH,X,IBAR,IBFILE)	; Add stub record to file 361.1 ; X = the ien of the referenced bill in file 399 ; IBTBILL = ien of transmitted bill (optional) ; IBBATCH = ien of batch # the transmitted bill was in (optional) ; IBMNUM = the message # from which this record originally came ; IBAR = 1 only if called from AR ; IBFILE = array reference of raw EOB data	ICR #4042 Status: Active Usage: Private
UPD3611(IBEOB,IBTDA,IBAR)	; From flat file 835 format, add EOB record ; IBEOB = the ien of the entry in file 361.1 being updated ; IBTDA = the ien in the source file ; IBAR = 1 if being called from AR	ICR #4042 Status: Active Usage: Private
ERRUPD(IBEOB,IBEGBL)	; Update error text in entry, if needed	ICR #4042 Status: Active Usage: Private
DUP(IBARRAY,IBIFN)	; Duplicate Check ; This function determines if the EOB data already exists in file ; 361.1 by comparing the checksums of the raw 835 data.	ICR #4042 Status: Active Usage: Private
DUPX	;
ERADET(IBEOB,ERADET)	; EP - Update EOB with reference to ERA detail - Subroutine added for IB2.0639 ; Input: IBEOB - Internal entry number to file 361.1 ; ERADET - IENS reference to ERA detail in the format "nnn,nnnnnn," ; Output: None

Name	Field # of Occurrence
FILE^DICN	ADD3611+18
^DIE	5+11, 6+7, 10+13, 12+10, 13+10, MSG+9, UPD3611+24
FILE^DIE	ERADET+7
WP^DIE	ERRUPD+1
CLEAN^DILF	UPDQ+3
PUTONWL^IBCAPP	UPD3611+40
$$COBN^IBCEF	6+15
$$LOCK^IBCEM	UPDEOB+21
$$CHKSUM^IBCEMU1	ADD3611+17, DUP+20
$$SPLIT2^IBCEMU1	UPD3611+22
30^IBCEOB0	30+3
40^IBCEOB0	40+3
41^IBCEOB0	41+3
42^IBCEOB0	42+3
45^IBCEOB0	45+3
46^IBCEOB0	46+4
$$15^IBCEOB00	Q15
$$20^IBCEOB00	Q20
$$35^IBCEOB00	Q35
$$37^IBCEOB00	Q37
ICN^IBCEOB00	10+18
UPD^IBCEOB01	6+20
$$HDR^IBCEOB1	835+2, UPD3611+9
$$STORE^IBCEOB1	17+13
DELMSG^IBCESRV2	UPDEOB+19
$$DATE^IBCEU	5+7, 5+8, 5+9, 10+11
$$EOB^IBCNSBL2	UPD3611+39
$$WNRBILL^IBEFUNC	6+16
$$ARSTATA^IBJTU4	UPD3611+35
$$TPR^PRCAFN	UPD3611+37
$$SITE^VASITE	6+14
$$NET^XMRENT	ADD3611+14

FileNo	Call Tags
^IBM(361.1 - [#361.1]	Classic Fileman Calls, WP^DIE

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	6+12, 6+17, ADD3611+12, UPD3611+39
^IBA(364 - [#364]	UPDEOB+13
^IBA(364.2 - [#364.2]	UPDEOB+11, UPDEOB+23
^IBM(361.1 - [#361.1]	6+9, 10+18, MSG+5, ADD3611+9, ADD3611+19, UPD3611+32, UPD3611+37, DUP+19, DUP+23, DUP+24
^TMP(	5+12, 10+15, 12+12, 13+12, 17+14, UPD3611+15, UPD3611+22, UPD3611+29
^TMP("IBCERR-EOB"	UPDEOB+8!, UPDQ, UPDQ+2!
^TMP($J	UPDEOB+8!, UPDQ+2!, UPD3611+9, UPD3611+13!

Name	Line Occurrences
$$ADD3611	UPDEOB+22
$$DOLLAR	10+8
$$DUP	UPDEOB+19
DUPX	DUP+18, DUP+19, DUP+21
ERRUPD	UPDQ
MSG	6+8, 6+10, 6+13, 6+14, 6+16, 6+18
MSGX	MSG+4
Q10	10+15
Q12	12+3
Q13	13+3, 13+5
Q46	46+3
Q6	6+8, 6+10, 6+13, 6+14, 6+16, 6+18
UPD3611	UPDEOB+26
UPDQ	UPDEOB+15, UPDEOB+19, UPDEOB+21, UPDEOB+25

Name	Field # of Occurrence
^(	UPD3611+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	17+1~, 17+12*, 17+13
BS	ADD3611+8~, ADD3611+12*, ADD3611+13
CHKSUM1	DUP+16~, DUP+20*, DUP+21, DUP+26
CHKSUM2	DUP+16~, DUP+24*, DUP+25, DUP+26
CLM	6+6~, 6+8*, 6+12, 6+13
CNT	17+6~, 17+7, 17+8, 17+9*, 17+10
DA	5+2~, 5+5, 6+6~, 6+7, 10+2~, 10+3, 12+2~, 12+4, 13+2~, 13+4* , MSG+2~, MSG+3, MSG+5, ADD3611+8~, UPD3611+23~, UPD3611+24
DASHES	UPD3611+4~, UPD3611+7*, UPD3611+15
DATA	17+1~, 17+3, 17+7, 17+8, 17+9, 17+10*, 17+13
DD	UPDEOB+7~, ADD3611+8~
DFN	6+6~, 6+17*, 6+18, 6+20
DIC	UPDEOB+7~, ADD3611+8~, ADD3611+15*, UPD3611+23~
DIC("DR"	ADD3611+16, ADD3611+17
DIC(0	ADD3611+15*
DIE	5+2~, 5+5, 6+6~, 6+7, 10+2~, 10+3, 12+2~, 12+4, 13+2~, 13+4* , MSG+2~, MSG+3, UPD3611+23~, UPD3611+24
DLAYGO	UPDEOB+7~, ADD3611+8~, ADD3611+15*
DO	UPDEOB+7~, ADD3611+8~
DR	5+2~, 5+4, 5+7, 5+8, 5+9, 5+10, 5+11, 6+6~, 6+7, 10+2~ , 10+7, 10+8, 10+9, 10+10, 10+11, 12+2~, 12+4, 12+5, 12+6, 12+7* , 12+8, 13+2~, 13+8, MSG+2~, MSG+8, ADD3611+8~, UPD3611+23~, UPD3611+24
DUP	DUP+16~, DUP+17, DUP+23, DUP+26, DUPX+1
ERADET	ERADET~, ERADET+6
FDA	ERADET+5~
FDA(	ERADET+6*
HIPAA	835+2, 10+11, 12+3, 13+3, 17+5, 46+3, UPD3611+4~, UPD3611+8*, UPD3611+9
IB	UPDEOB+7~, UPD3611+15*
IB0	UPDEOB+7~, UPDEOB+11, UPDEOB+12, UPDEOB+13, UPDEOB+22, 835~, 835+2, 5~, 5+7, 5+8 , 5+9, 6~, 6+8, 6+20, 10~, 10+7, 10+8, 10+9, 10+10, 10+11 , 10+18, 12~, 12+5, 12+6, 12+7, 13~, 13+5, 13+6, 13+7, 15~ , Q15, 17~, 17+3, 17+8, 17+9, 17+10, 20~, Q20, 30~, 30+3 , 35~, Q35, 37~, Q37, 40~, 40+3, 41~, 41+3, 42~, 42+3 , 45~, 45+3, 46~, 46+4, UPD3611+11, UPD3611+12
IB100	UPDEOB+7~
IB361	10+2~, UPD3611+30~, UPD3611+32*, UPD3611+33, UPD3611+34, UPD3611+40
IBA1	UPDEOB+7~, UPD3611+4~, UPD3611+10, UPD3611+11
IBAR	ADD3611~, ADD3611+16, UPD3611~, UPD3611+5, UPD3611+6, UPD3611+9, UPD3611+11
IBARRAY	DUP~, DUP+18, DUP+20
IBBAD	UPDEOB+7~, UPDEOB+10*
IBBATCH	ADD3611~, ADD3611+16
IBBTCH	UPDEOB+7~
IBE	UPDEOB+7~
IBEGBL	835~, 835+2, 5~, 5+12, 6~, 10~, 10+15, 12+12, 13+12, 15~ , Q15, 17~, 17+14, 20~, Q20, 30~, 35~, Q35, 37~, Q37 , 40~, 41~, 42~, 45~, 46~, UPD3611+4~, UPD3611+6*, UPD3611+9, UPD3611+15, UPD3611+22 , UPD3611+29, ERRUPD~
IBEGL	12~, 13~
IBEOB	UPDEOB+7~, UPDEOB+10, UPDEOB+22, UPDEOB+25, UPDEOB+26, UPDQ, UPDQ+4, 835~, 835+2, 5~ , 5+5, 6~, 6+7, 6+8, 6+9, 6+10, 6+13, 6+14, 6+16, 6+18 , 6+20, 10~, 10+3, 10+18, 12~, 12+4, 13~, 13+4, 15~, Q15 , 17~, 17+13, 20~, Q20, 30~, 30+3, 35~, Q35, 37~, Q37 , 40~, 40+3, 41~, 41+3, 42~, 42+3, 45~, 45+3, 46~, 46+4 , MSG~, MSG+3, UPD3611~, UPD3611+9, UPD3611+22, UPD3611+24, UPD3611+29, UPD3611+32, UPD3611+37, ERRUPD~ , ERRUPD+1, DUP+16~, DUP+22, DUP+23*, DUP+24, DUP+26, ERADET~, ERADET+6
IBFILE	UPDEOB+7~, UPDEOB+18, UPDEOB+19, UPDEOB+22, ADD3611~, ADD3611+17, UPD3611+4~, UPD3611+5, UPD3611+11
IBIFN	UPDEOB+7~, 6+6~, 6+11, 6+13, 6+15, 6+16, 6+17, 6+20, UPD3611+30~, UPD3611+32 , UPD3611+35, UPD3611+37, UPD3611+39, DUP~, DUP+17*, DUP+18, DUP+19, DUP+23
IBIFN1	6+6~, 6+12*, 6+13
IBM	6+6~, 6+9*, 6+10, 6+11
IBMNUM	UPDEOB+7~, UPDEOB+12*, UPDEOB+15, UPDEOB+22, ADD3611~, ADD3611+14, ADD3611+16
IBOK	UPDEOB+7~, 5+2~, 5+4, 5+11, 5+12, 5+13, 10+2~, 10+14, 10+15, 10+18 , Q10, 12+2~, 12+3, 12+11, 12+12, Q12, 13+2~, 13+3, 13+5, 13+11 , 13+12, Q13, 17+1~, 17+13, 17+14, Q17, 30+2~, 30+3, Q30, 40+2~ , 40+3, Q40, 41+2~, 41+3, Q41, 42+2~, 42+3, Q42, 45+2~, 45+3 , 45+4, 46+2~, 46+3, 46+4, Q46, UPD3611+15
IBPYMT	UPD3611+30~, UPD3611+37*, UPD3611+39
IBREC	UPD3611+4~, UPD3611+12*, UPD3611+13, UPD3611+15
IBT	UPDEOB+7~
IBTBILL	ADD3611~, ADD3611+16
IBTDA	UPDEOB~, UPDEOB+11, UPDEOB+18, UPDEOB+19, UPDEOB+21, UPDEOB+23, UPDEOB+26, UPD3611~, UPD3611+5
IBTXT	UPD3611+30~, UPD3611+39
IBX	UPD3611+30~, UPD3611+39*
IBZDATA	5+3!
MMI	ADD3611+8~, ADD3611+14*
MSG	MSG~, MSG+4, MSG+6, MSG+7
NAME	13+2~, 13+5, 13+6, 13+7*, 13+8
Q	UPD3611+4~, UPD3611+15*
REVSTAT	ADD3611+8~, ADD3611+13*, ADD3611+16
SEQ	6+6~, 6+15*, 6+16, 6+20
SITE	6+6~, 6+8*, 6+14
U	UPDEOB+12, UPDEOB+13, UPDEOB+22, 5+7, 5+8, 5+9, 6+8, 6+10, 6+11, 6+14 , 6+17, 10+7, 10+8, 10+9, 10+10, 10+11, 10+18, 12+5, 12+6, 12+7 , 13+5, 13+6, 13+7, 17+7, 17+8, 17+9, 17+10, MSG+5, ADD3611+12, UPD3611+32 , UPD3611+33, UPD3611+34, UPD3611+35, UPD3611+40, DUP+24
VAL	10+2~, 12+2~, 13+2~
X	UPDEOB+7~, UPDEOB+13*, UPDEOB+15, UPDEOB+19, UPDEOB+22, 5+2~, 10+2~, 12+2~, 13+2~, DOLLAR~ , DOLLAR+1, ADD3611~, ADD3611+12
Y	UPDEOB+7~, 5+2~, 5+11, 10+2~, 10+14, 12+2~, 12+11, 13+2~, 13+11, ADD3611+8~ , ADD3611+20
Z	UPDEOB+7~, MSG+2~, MSG+5*, MSG+6, UPD3611+4~
Z0	UPDEOB+7~
Z1	UPDEOB+7~

Customize PDF page

Package: Integrated Billing

Routine: IBCEOB

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 9

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items