Routine: IBCE837ACC4

Package	Total	Call Graph
Integrated Billing	12	ADDPREVACT^IBACCWLUTIL $$ICD9^IBACSV CL^IBACV ($$IBREG,UP,USERUP)^IBCE837ACC ($$EX1,$$MNB,$$NB)^IBCE837ACC3 $$VAL^IBCE837ACCU $$CS^IBCE837ACCU3 $$FT^IBCEF $$PRCD^IBCEF1 $$GETNPI^IBCEF73A SET^IBCSC4D $$GETSPEC^IBEFUNC
VA FileMan	4	$$FIND1^DIC FILE^DICN ^DIE $$GET1^DIQ
Kernel	1	DUZ^XUP
Master Patient Index VistA	1	$$GETDFN^MPIF001

Package	Total	Caller Graph
Integrated Billing	7	IBCE837ACC IBCE837ACC1 IBCE837ACC2 IBCE837ACC3 IBCE837ACCU IBCE837ACCU1 IBCE837ACCU2

Name	Comments	DBIA/ICR reference
D	; file dental service lines
PS	; perform procedure swap when Medicare Primary
FINAL(IBIFN,IBX12)	; final exception checking
GETMOD(MOD)	;
PAT	;set patient name values
USER(IBX12)	; determine which user group gets the claim initially
CHKDUP(IBX12,IBPATIEN,IBDOS,IBFT)	;JWS;EBILL-4022;check for VistA claim / CC Encounter duplicates
CHKDUP2	; build array of procedures to check
SCRUB(IBIFN)	; execute DSS scrubber
WL(IBX12,IBWL)	;EBILL-4921;IB2.0770v19;update failure reason code multiple with worklist to display on / for conditional RUR vs FRT ; IBWL = worklist designation
EXTRACT	;loop thru all encounters and setup for extract to SQL for powerBI reporting
REPROCESS	;reprocess all open encounters that do not have a k# already

Name	Field # of Occurrence
$$FIND1^DIC	D+7, D+8, D+36, PAT+8
FILE^DICN	D+28, D+37, D+41, D+50
^DIE	WL+8, EXTRACT+11
$$GET1^DIQ	FINAL+4, PAT+25, PAT+26, PAT+28, USER+3, REPROCESS+7, REPROCESS+9
ADDPREVACT^IBACCWLUTIL	REPROCESS+11
$$ICD9^IBACSV	CHKDUP+10
CL^IBACV	PAT+13
$$IBREG^IBCE837ACC	REPROCESS+3
UP^IBCE837ACC	FINAL+13, PAT+10, PAT+14, PAT+15, PAT+16, PAT+17, PAT+18, PAT+19, PAT+20, PAT+21
USERUP^IBCE837ACC	FINAL+14
$$EX1^IBCE837ACC3	PS+38
$$MNB^IBCE837ACC3	PS+38
$$NB^IBCE837ACC3	PS+31
$$VAL^IBCE837ACCU	REPROCESS+8
$$CS^IBCE837ACCU3	SCRUB+2
$$FT^IBCEF	CHKDUP+8
$$PRCD^IBCEF1	CHKDUP+18
$$GETNPI^IBCEF73A	CHKDUP+12, CHKDUP+14
SET^IBCSC4D	CHKDUP+10
$$GETSPEC^IBEFUNC	D+35
$$GETDFN^MPIF001	PAT+6
DUZ^XUP	REPROCESS+4

FileNo	Call Tags
^DPT - [#2]	FIND1^DIC, GET1^DIQ
^IBE(353.1 - [#353.1]	FIND1^DIC
^IBA(364.9 - [#364.9]	Classic Fileman Calls, GET1^DIQ
^IBA(364.91 - [#364.91]	GET1^DIQ
399.042	GET1^DIQ
^DGCR(399.1 - [#399.1]	FIND1^DIC
^ICPT - [#81]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	D+34, D+35, D+38*, FINAL+2, FINAL+10, CHKDUP+4, CHKDUP+6, CHKDUP+12, CHKDUP+14, CHKDUP+18
^DIC(81.3 - [#81.3]	GETMOD+2
^IBA(364.9 - [#364.9]	PAT+12, USER+3, CHKDUP+10, WL+5, EXTRACT+4, EXTRACT+6, REPROCESS+6
^IBA(364.91 - [#364.91]	EXTRACT+2
^TMP("IB837ACC"	D+2, D+3, D+4, D+8, D+9, D+43, D+45, PS+2, PS+5, PS+7 , PS+12, PS+13, PS+15, PS+16, PS+17, PS+20, PS+25, PS+26, PS+28, PS+33* , PS+34, PS+39, PS+40, PAT+22, CHKDUP+12, CHKDUP+14, CHKDUP+20, CHKDUP2+2, CHKDUP2+3

Name	Line Occurrences
$$GETMOD	D+34, D+36
CHKDUP2	CHKDUP+16

Name	Field # of Occurrence
^(	D+45, FINAL+3, USER+3, CHKDUP+12, CHKDUP+14, CHKDUP+18, WL+5, EXTRACT+4, REPROCESS+6
^(0	D+2, PS+40*, REPROCESS+6
^(2	REPROCESS+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ARG(	PAT+3, PAT+4
CT	FINAL+1~, FINAL+5*
D	WL+2~, EXTRACT+1~
D0	WL+2~, EXTRACT+7~
DA	D+1~, D+30!, D+37!, D+39!, D+42!, D+46!, D+51!, WL+2~, WL+6, EXTRACT+7~ , EXTRACT+8
DA(1	D+28, D+34, D+35, D+36, D+40, D+47, WL+6*
DA(2	D+34, D+35, D+47
DD	D+1~, D+28!, D+30!, D+37!, D+39!, D+42!, D+46!, D+51!, WL+2~, EXTRACT+7~
DI	WL+2~, EXTRACT+7~
DIC	D+1~, D+28, D+30!, D+36, D+37!, D+39!, D+40, D+42!, D+46!, D+47 , D+51!, EXTRACT+7~
DIC("DR"	D+10, D+13, D+18, D+21, D+22, D+23, D+24, D+25, D+26, D+27 , D+36, D+49
DIC("P"	D+35*
DIC(0	D+28, D+36, D+40, D+47, WL+6*
DIE	D+1~, D+30!, WL+2~, WL+6, EXTRACT+7~, EXTRACT+10
DINUM	D+39!, D+40*, D+42!, D+46!, D+51!, WL+2~, EXTRACT+7~
DLAYG	D+37!
DLAYGO	D+28!, D+36, D+39!, D+40, D+42!, D+46!, D+47, D+51!, EXTRACT+7~
DO	D+1~, D+28!, D+30!, D+37!, D+39!, D+42!, D+46!, D+51!
DQ	WL+2~, EXTRACT+7~
DR	D+1~, D+30!, WL+2~, WL+7, EXTRACT+7~, EXTRACT+9
DTOUT	EXTRACT+7~
DUOUT	EXTRACT+7~
DUZ	REPROCESS+2~, REPROCESS+11
I	D+13, D+17~, D+18, D+44~, USER+24, USER+39, USER+45, USER+53, USER+73*
IBA	EXTRACT+1~, EXTRACT+3, EXTRACT+4, EXTRACT+6, EXTRACT+8, REPROCESS+2~, REPROCESS+5, REPROCESS+6, REPROCESS+7, REPROCESS+8 , REPROCESS+9, REPROCESS+11
IBD	CHKDUP+2~, CHKDUP+10*
IBDIAG	D+1~, D+13*
>> IBDIG(	D+13
>> IBDIV	D+10
>> IBDOB	PAT+26*
IBDOS	CHKDUP~, CHKDUP+6, CHKDUP+10, CHKDUP+18
IBFT	PS+6, PS+19, CHKDUP~, CHKDUP+8, CHKDUP+12, CHKDUP+14, CHKDUP+22, CHKDUP+25, CHKDUP2+3
IBGEN	PAT+1~
IBIFN	D+28, D+34, D+36, D+38, D+40, D+47, FINAL~, FINAL+2, FINAL+4, FINAL+10 , SCRUB~, SCRUB+2
IBL	D+1~
IBM	D+30!, D+34*, D+36, CHKDUP+2~
IBM("AP"	CHKDUP+14*, CHKDUP+25
IBM("RP"	CHKDUP+12*, CHKDUP+22
IBMOD	D+30!, D+32, D+34, PS+1~, PS+10, PS+11, PS+23*, PS+24
IBNDC	D+1~
IBNDCU	D+1~
IBNDCUM	D+1~
IBNOTE	FINAL+1~
IBNOTE(	FINAL+5*
>> IBPATFN	PAT+3, PAT+10, PAT+31
IBPATIEN	PAT+6, PAT+8, PAT+10, PAT+13, PAT+22, PAT+25, PAT+26, PAT+28, CHKDUP~, CHKDUP+4
>> IBPATLN	PAT+3, PAT+10, PAT+31
>> IBPATMN	PAT+3, PAT+10, PAT+31
>> IBPATSSN	PAT+25*
IBPIEN	D+1~, D+29*, D+34, D+47
IBPROC	CHKDUP+2~, CHKDUP+23, CHKDUP+26
IBPROC(	CHKDUP+18, CHKDUP+20!, CHKDUP2+4*
IBREG	REPROCESS+2~, REPROCESS+3*, REPROCESS+4
IBRESLT	PAT+1~, PAT+13
IBRESLT(1	PAT+14
IBRESLT(2	PAT+15
IBRESLT(3	PAT+16
IBRESLT(4	PAT+17
IBRESLT(5	PAT+18
IBRESLT(6	PAT+19
IBRESLT(7	PAT+20
IBRESLT(8	PAT+21
IBS	D+30!, D+34*
>> IBSEG	PAT+3, PAT+4
>> IBSPID	PAT+4*, PAT+6, PAT+8
IBWL	WL~, WL+7
IBX	D+1~, D+38, D+40, EXTRACT+1~, EXTRACT+2, EXTRACT+6
IBX12	FINAL~, FINAL+13, FINAL+14, PAT+10, PAT+12, PAT+14, PAT+15, PAT+16, PAT+17, PAT+18 , PAT+19, PAT+20, PAT+21, USER~, USER+3, CHKDUP~, CHKDUP+10, WL~, WL+5, WL+6
J	FINAL+9~, FINAL+10*, FINAL+11
LN	CHKDUP2+1~, CHKDUP2+2*, CHKDUP2+3, CHKDUP2+4
MOD	GETMOD~, GETMOD+2
NOTE	REPROCESS+2~, REPROCESS+11
NOTE(1	REPROCESS+10*
OK	FINAL+1~, FINAL+4, FINAL+8, FINAL+11, FINAL+12, FINAL+15, CHKDUP+2~, CHKDUP+3, CHKDUP+22, CHKDUP+23* , CHKDUP+25, CHKDUP+26*, CHKDUP+27
PROC	PS+1~, PS+10, PS+15, PS+16, PS+17, PS+23, PS+28, PS+31, PS+38
PROCD	PS+1~, PS+10, PS+15, PS+16, PS+17, PS+23, PS+28
RET	FINAL+1~, SCRUB+1~, SCRUB+2*, SCRUB+4, REPROCESS+2~, REPROCESS+11
RT	USER+1~, USER+2, USER+24, USER+26, USER+39, USER+40, USER+45, USER+46, USER+53, USER+56 , USER+73, USER+74
STR	USER+1~, USER+2, USER+3, USER+9, USER+24, USER+31, USER+39, USER+45, USER+53, USER+73
X	D+17~, D+18, D+28, D+34, D+40, D+44~, D+48, GETMOD+1~, GETMOD+2, GETMOD+3* , GETMOD+4, PAT+1~, PAT+25, PAT+26, PAT+28, PAT+31, USER+1~, USER+2, USER+3, CHKDUP+2~ , CHKDUP+4, CHKDUP+6, CHKDUP+8, CHKDUP+10, CHKDUP+12, CHKDUP+14, CHKDUP+18, WL+2~, REPROCESS+2~, REPROCESS+8*
X1	CHKDUP+2~, CHKDUP+10, WL+2~, WL+3, WL+5*, WL+6
X2	CHKDUP+2~, CHKDUP+12, CHKDUP+14, CHKDUP+18*
X2D	CHKDUP+2~, CHKDUP+12, CHKDUP+14, CHKDUP+18*
>> X3	CHKDUP+20*
XAG	REPROCESS+2~, REPROCESS+7*, REPROCESS+11
XATG	REPROCESS+2~, REPROCESS+9*, REPROCESS+11
XD	D+2, D+5, D+10, D+13, D+16, D+21, D+22, D+32, CHKDUP2+1~, CHKDUP2+3
XD0	D+1~, D+2*
XDATA	D+44~, D+45*, D+48, D+49
XDL	D+1~, D+4*, D+23, D+24, D+25, D+26, D+27
XDOS	D+1~, D+3*, D+10
XDOS(	D+3*, D+38
XED	PS+1~, PS+2*, PS+12, PS+13, PS+14, PS+25, PS+26, PS+27, PS+33, PS+34 , PS+35
XES	PS+29~, PS+38*, PS+40
XI	FINAL+1~, FINAL+2*, FINAL+11
XL	PS+1~, PS+5*, PS+7, PS+12, PS+13, PS+15, PS+16, PS+17, PS+20, PS+25 , PS+26, PS+28, PS+33, PS+34, PS+39, PS+40
XLD	PS+1~, PS+7, PS+10, PS+20, PS+23
XNB	PS+29~, PS+31, PS+32, PS+38, PS+39*, PS+40
XOC	D+1~, D+16*, D+18
XP	D+2, D+4, D+9, D+10, D+43, D+45, FINAL+1~, FINAL+2, FINAL+3, FINAL+4 , FINAL+10
XPAY	D+1~, D+9*, D+10
XPC	D+1~, D+5, D+7, CHKDUP2+1~, CHKDUP2+3, CHKDUP2+4
XPCPTR	D+1~, D+7*, D+28
XPOS	D+1~, D+8*, D+10
XPROC	CHKDUP+2~, CHKDUP+18*, CHKDUP+20
XPTR	USER+1~, USER+3*
XREV	FINAL+1~, FINAL+4*, FINAL+5
XTOO	D+44~, D+45*
XX	CHKDUP+2~, CHKDUP+10
XX(1	CHKDUP+10
Y	D+1~, D+29

Customize PDF page

Package: Integrated Billing

Routine: IBCE837ACC4

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: