Routine: IBCNBAR

Package	Total	Call Graph
Integrated Billing	23	(GRP,INS,POLICY)^IBCNBCD SBDISP^IBCNBCD4 DELDATA^IBCNBED STATUS^IBCNBEE $$HOLD^IBCNBLL (GRP,INS,PAT,POLICY,SUB)^IBCNBMI ($$NEWGRP,$$NEWINS,$$NEWPOL)^IBCNBMN $$BUFFER^IBCNBU1 WAIT^IBCNBUH (EBFILE,GRPFILE)^IBCNEHL1 UPDIREC^IBCNEHL3 MSG003^IBCNEMS1 ($$MGRP,MSG)^IBCNEUT5 UPDPOL^IBCNICB $$VALIDDT^IBCNINSU LOC^IBCNIUF ALL^IBCNS1 (,AFTER,BEFORE)^IBCNSEVT COVERED^IBCNSM31 ($$DUPCO,$$DUPPOL)^IBCNSOK1 $$PLCOV^IBCNSU3 POL^IBCNSU41 ($$PTHLD,RELEASE)^IBOHCR
VA FileMan	4	$$FIND1^DIC (FILE,UPDATE)^DIE $$GET1^DIQ ^DIR
Income Verification Match	1	$$UPDATE^IVMLINS4
Kernel	1	$$NOW^XLFDT

Package	Total	Caller Graph
Integrated Billing	3	IBCNBAA IBCNBLA1 IBCNICB

Entry Points

Name	Comments	DBIA/ICR reference
ACCEPT(IBBUFDA,DFN,IBINSDA,IBGRPDA,IBPOLDA,IBMVINS,IBMVGRP,IBMVPOL,IBMVSUB,IBNEWINS,IBNEWGRP,IBNEWPOL,IBELIG,IBSEL,IBRIEN,IBSIEN,IBFNAM,IBVAL,IBHOLD,IBXHOLD)	; move buffer data into Insurance files then cleanup ; 1) data moved into insurance files, new records created if needed or edit existing ones ; 2) complete some general functions that are executed whenever insurance is entered/edited ; 3) allow user to view buffer entry and new/updated insurance records ; 4) buffer ins/group/policy data deleted ; 5) buffer entry status updated
PROCESS	; process all changes selected by user, add/edit insurance files based ; on buffer data. Entry point for ACCEPAPI^IBCNICB (patch 413)
CLEANUP	; general updates and checks done whenever insurance is added/edited and clean up buffer file
ACCPTQ
REJECT(IBBUFDA)	; process a buffer entry reject ; 1) update/notify IVM ; 2) buffer ins/group/policy data deleted ; 3) buffer entry status updated ; 4) if patient has no other active insurance then release any patient bills On Hold
REJPROC	;Entry point for REJECAPI^IBCNICB (Patch 413)
IVM(AR,IBBUFDA,IVMREPTR,IBSUPRES)	; IVM must be notified whenever a buffer entry ; that originated in IVM is accepted or rejected. This lets IVM clean up ; its files since IVM also has a buffer type file of insurance uploaded ; from the IVM center. ; If rejected and Interactive Reads not suppressed, IVM then ask the ; user for a reason it was rejected ; input: AR = 1 if accepted, 0 if rejected ; IBBUFDA = Internal Entry Number to 355.33 file ; IVMREPTR = Internal Entry Number to 301.91 file (Optional) ; IBSUPRES = If equals 1, suppress writes and interactive reads
RELHLD(DFN)	;Check if need to release copay on hold
CHKREL(DFN,IBINDT,IBN,IBCAT)	; -- release copay ; --Input DFN = patient ; IBINDT = date to check ; IBN = ien of copay on hold ; IBCAT = category of hold ; will determine if hold should be released
TRACK	;Build CREATION TO PROCESSING TRACKING File (#355.36)
EFFDTCHK(IBBUFDA,IBSIEN,IBMVPOL)	;
EFFDTCHKQ	;

Name	Field # of Occurrence
$$FIND1^DIC	CLEANUP+46
FILE^DIE	PROCESS+41
UPDATE^DIE	TRACK+24
$$GET1^DIQ	PROCESS+32, PROCESS+33, CLEANUP+43, CHKREL+18, CHKREL+19, TRACK+4, TRACK+5, TRACK+6, TRACK+11, TRACK+12 , TRACK+14, EFFDTCHK+26, EFFDTCHK+27, EFFDTCHK+28, EFFDTCHK+29
^DIR	CLEANUP+28
GRP^IBCNBCD	CLEANUP+32
INS^IBCNBCD	CLEANUP+31
POLICY^IBCNBCD	CLEANUP+33
SBDISP^IBCNBCD4	CLEANUP+35
DELDATA^IBCNBED	CLEANUP+49, REJPROC+11
STATUS^IBCNBEE	CLEANUP+48, REJPROC+11
$$HOLD^IBCNBLL	CLEANUP+22, CLEANUP+52, REJPROC+14
GRP^IBCNBMI	PROCESS+27
INS^IBCNBMI	PROCESS+25
PAT^IBCNBMI	CLEANUP+5
POLICY^IBCNBMI	PROCESS+43
SUB^IBCNBMI	PROCESS+47
$$NEWGRP^IBCNBMN	PROCESS+15
$$NEWINS^IBCNBMN	PROCESS+12
$$NEWPOL^IBCNBMN	PROCESS+18
$$BUFFER^IBCNBU1	CLEANUP+52, REJPROC+14
WAIT^IBCNBUH	CLEANUP+31, CLEANUP+32, CLEANUP+33, CLEANUP+35
EBFILE^IBCNEHL1	PROCESS+49
GRPFILE^IBCNEHL1	PROCESS+49
UPDIREC^IBCNEHL3	CLEANUP+46
MSG003^IBCNEMS1	TRACK+27
$$MGRP^IBCNEUT5	TRACK+28
MSG^IBCNEUT5	TRACK+28
UPDPOL^IBCNICB	PROCESS+52
$$VALIDDT^IBCNINSU	EFFDTCHK+33, EFFDTCHK+35
LOC^IBCNIUF	CLEANUP+43
ALL^IBCNS1	CHKREL+11
^IBCNSEVT	CLEANUP+59
AFTER^IBCNSEVT	CLEANUP+59
BEFORE^IBCNSEVT	PROCESS+3
COVERED^IBCNSM31	CLEANUP+7
$$DUPCO^IBCNSOK1	CLEANUP+10
$$DUPPOL^IBCNSOK1	CLEANUP+14
$$PLCOV^IBCNSU3	CHKREL+22
POL^IBCNSU41	CLEANUP+6
$$PTHLD^IBOHCR	CLEANUP+18
RELEASE^IBOHCR	CHKREL+13, CHKREL+24, CHKREL+26, CHKREL+28
$$UPDATE^IVMLINS4	IVM+16
$$NOW^XLFDT	TRACK+16

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: CLEANUP+28
Function Call: WRITE	Prompt: !! Line Location: CLEANUP+30
Function Call: WRITE	Prompt: !!,"Patient has no other active Insurance.",!,"All patient bills On Hold waiting for Insurance to be released." Line Location: CLEANUP+56
Function Call: WRITE	Prompt: !!,"Patient has no other active Insurance.",!,"All patient bills On Hold waiting for Insurance to be released." Line Location: REJPROC+18
Routine Call	DIC Line Location: CLEANUP+46
Routine Call	DIE Line Location: PROCESS+41
Routine Call	DIE Line Location: TRACK+24
Routine Call	DIR Line Location: CLEANUP+28

FileNo	Call Tags
2.312	GET1^DIQ
^IBE(355.12 - [#355.12]	FIND1^DIC
^IBA(355.3 - [#355.3]	GET1^DIQ
^IBA(355.33 - [#355.33]	GET1^DIQ
^DIC(36 - [#36]	GET1^DIQ
^IBCN(365 - [#365]	GET1^DIQ
^IBCN(365.1 - [#365.1]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^IB - [#350]	RELHLD+5
^IB("AH"	RELHLD+4
^IBA(355.33 - [#355.33]	CLEANUP+1, CLEANUP+46, REJPROC+2, REJPROC+5, IVM+11, IVM+13, IVM+14
^IBCN(365 - [#365]	PROCESS+49, CLEANUP+46, TRACK+3
^IBCN(365.1 - [#365.1]	TRACK+9
^IBE(350.1 - [#350.1]	RELHLD+9
^IBE(355.31 - [#355.31]	RELHLD+11
^TMP($J	EFFDTCHK+46, EFFDTCHK+47

Name	Line Occurrences
$$EFFDTCHK	PROCESS+9
ACCPTQ	PROCESS+9, PROCESS+12, PROCESS+15, PROCESS+18
CHKREL	RELHLD+12
EFFDTCHKQ	EFFDTCHK+33, EFFDTCHK+35, EFFDTCHK+37, EFFDTCHK+38, EFFDTCHK+41, EFFDTCHK+43
IVM	CLEANUP+8, REJPROC+5
RELHLD	CLEANUP+52, REJPROC+14
TRACK	CLEANUP+38, REJPROC+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABORT	EFFDTCHK+24~, EFFDTCHK+25, EFFDTCHK+33, EFFDTCHK+35, EFFDTCHK+41, EFFDTCHK+43, EFFDTCHK+48, EFFDTCHKQ+1
ANYINS	CHKREL+7~, CHKREL+12*, CHKREL+13
AR	IVM~, IVM+16
BUFEFFDT	EFFDTCHK+24~, EFFDTCHK+26*, EFFDTCHK+33, EFFDTCHK+41, EFFDTCHK+43, EFFDTCHK+48
BUFEXPDT	EFFDTCHK+24~, EFFDTCHK+27*, EFFDTCHK+35, EFFDTCHK+41, EFFDTCHK+43, EFFDTCHK+48
CHGEFFDT	EFFDTCHK+24~, EFFDTCHK+46*, EFFDTCHK+48
CHGEXPDT	EFFDTCHK+24~, EFFDTCHK+47*, EFFDTCHK+48
CHKCOV	CHKREL+7~
CNT	CHKREL+7~, CHKREL+8, CHKREL+19, CHKREL+24, CHKREL+26
COV	CHKREL+7~, CHKREL+8, CHKREL+18, CHKREL+21
DFN	ACCEPT~, PROCESS+8, PROCESS+40, PROCESS+47, PROCESS+49, PROCESS+52, CLEANUP+5, CLEANUP+6, CLEANUP+7, CLEANUP+10 , CLEANUP+18, CLEANUP+22, CLEANUP+34, CLEANUP+35, CLEANUP+43, CLEANUP+52, REJPROC+2~, REJPROC+4, REJPROC+14, IVM+11~ , IVM+13, IVM+16, RELHLD~, RELHLD+4, RELHLD+12, CHKREL~, CHKREL+11
DIR	PROCESS+5~
DIR("A"	CLEANUP+28*
DIR(0	CLEANUP+28*
DT	RELHLD+9, CHKREL+9
ERROR	TRACK+1~, TRACK+26, TRACK+27
FDA	TRACK+1~
FDA(	TRACK+16, TRACK+17, TRACK+18, TRACK+19, TRACK+20, TRACK+21, TRACK+22, TRACK+23
IBAT	RELHLD+1~, RELHLD+9*, RELHLD+10
>> IBBUFABORT	PROCESS+9*
IBBUFDA	ACCEPT~, PROCESS+9, PROCESS+12, PROCESS+15, PROCESS+18, PROCESS+25, PROCESS+27, PROCESS+43, PROCESS+47, PROCESS+49 , PROCESS+52, CLEANUP+1, CLEANUP+8, CLEANUP+31, CLEANUP+32, CLEANUP+33, CLEANUP+35, CLEANUP+43, CLEANUP+46, CLEANUP+48 , CLEANUP+49, REJECT~, REJPROC+2, REJPROC+5, REJPROC+11, IVM~, IVM+11, IVM+13, IVM+14, TRACK+3 , TRACK+9, TRACK+14, TRACK+22, TRACK+27, EFFDTCHK~, EFFDTCHK+26, EFFDTCHK+27
IBCAT	RELHLD+1~, RELHLD+10, RELHLD+11, RELHLD+12, CHKREL~, CHKREL+22
IBCDFN	PROCESS+3~, CLEANUP+59
>> IBCNICB	PROCESS+8, CLEANUP+43
IBCOV	CHKREL+7~, CHKREL+8, CHKREL+22, CHKREL+26, CHKREL+28
IBDD	CHKREL+7~
IBDD(	CHKREL+14, CHKREL+15
IBDD(0	CHKREL+12
IBELIG	ACCEPT~, PROCESS+49
IBFLDS	PROCESS+31~
IBFLDS(	PROCESS+39, PROCESS+40
IBFNAM	ACCEPT~, PROCESS+47, CLEANUP+35
IBFR	RELHLD+1~, RELHLD+7*, RELHLD+9
IBGRPDA	ACCEPT~, PROCESS+15*, PROCESS+18, PROCESS+26, PROCESS+27, PROCESS+32, PROCESS+33, PROCESS+39, PROCESS+40, PROCESS+43 , PROCESS+47, PROCESS+52, CLEANUP+14, CLEANUP+32
IBGRPH	PROCESS+5~, PROCESS+15, PROCESS+42
IBHOLD	ACCEPT~, PROCESS+47, CLEANUP+35
IBINDT	CHKREL~, CHKREL+9, CHKREL+10, CHKREL+11, CHKREL+22
IBINSDA	ACCEPT~, PROCESS+12*, PROCESS+15, PROCESS+18, PROCESS+25, PROCESS+26, PROCESS+43, PROCESS+47, PROCESS+52, CLEANUP+10 , CLEANUP+31, CLEANUP+43
IBINSH	PROCESS+5~, PROCESS+12, PROCESS+25
IBISGRP	PROCESS+31~, PROCESS+32*, PROCESS+35, PROCESS+37, PROCESS+39, PROCESS+40
IBMSG	TRACK+1~, TRACK+27
IBMVGRP	ACCEPT~, PROCESS+26, PROCESS+27
IBMVINS	ACCEPT~, PROCESS+21, PROCESS+22, PROCESS+25
IBMVPOL	ACCEPT~, PROCESS+9, PROCESS+43, PROCESS+52, EFFDTCHK~, EFFDTCHK+41, EFFDTCHK+43, EFFDTCHK+45
IBMVSUB	ACCEPT~, PROCESS+47
IBN	RELHLD+1~, RELHLD+3, RELHLD+4, RELHLD+5, RELHLD+12, CHKREL~, CHKREL+13, CHKREL+24, CHKREL+26, CHKREL+28
IBNEW	PROCESS+3~*
IBNEWGRP	ACCEPT~, PROCESS+15, CLEANUP+48
IBNEWINS	ACCEPT~, PROCESS+12, CLEANUP+48
IBNEWPOL	ACCEPT~, PROCESS+3, PROCESS+18, PROCESS+52, CLEANUP+18, CLEANUP+48
IBPAT	PROCESS+31~, PROCESS+33*, PROCESS+35, PROCESS+37
IBPOLDA	ACCEPT~, PROCESS+3, PROCESS+8, PROCESS+18*, PROCESS+43, PROCESS+47, PROCESS+49, PROCESS+52, CLEANUP+5, CLEANUP+10 , CLEANUP+33, CLEANUP+34, CLEANUP+35, CLEANUP+43, CLEANUP+46, CLEANUP+59
IBPOLH	PROCESS+5~, PROCESS+18, PROCESS+43
IBRIEN	ACCEPT~, PROCESS+47, CLEANUP+35
IBSEL	ACCEPT~, PROCESS+47, CLEANUP+35
IBSIEN	ACCEPT~, PROCESS+8, PROCESS+9, CLEANUP+34, CLEANUP+35, EFFDTCHK~, EFFDTCHK+28, EFFDTCHK+29, EFFDTCHK+37
IBSOURCE	CLEANUP+1~*, CLEANUP+8, CLEANUP+59
IBSUBH	PROCESS+5~, PROCESS+18, PROCESS+47
IBSUPRES	ACCEPT+7~, ACCEPT+9, PROCESS+5, PROCESS+22, PROCESS+25, PROCESS+30, PROCESS+42, PROCESS+43, PROCESS+47, PROCESS+49 , PROCESS+52, CLEANUP+5, CLEANUP+8, CLEANUP+10, CLEANUP+14, CLEANUP+18, CLEANUP+19, CLEANUP+23, CLEANUP+27, REJECT+6~ , REJECT+8, REJPROC+5, REJPROC+11, IVM~, IVM+16, RELHLD+2
IBTALK	RELHLD+1~, RELHLD+2*
IBVAL	ACCEPT~, PROCESS+47, CLEANUP+35
IBVDT	RELHLD+1~, RELHLD+9*, RELHLD+12
IBX	PROCESS+5~, CLEANUP+10, CLEANUP+11, CLEANUP+14, CLEANUP+15, IVM+11~, IVM+14, IVM+16, RELHLD+1~, RELHLD+5 , RELHLD+6, RELHLD+7, RELHLD+8
IBXHOLD	ACCEPT~, PROCESS+47, CLEANUP+35
IBY	IVM+11~, IVM+16*
INS	CHKREL+7~, CHKREL+17*, CHKREL+18, CHKREL+19
INSEFFDT	EFFDTCHK+24~, EFFDTCHK+28*, EFFDTCHK+43
INSEXPDT	EFFDTCHK+24~, EFFDTCHK+29*, EFFDTCHK+38, EFFDTCHK+41, EFFDTCHK+43, EFFDTCHK+48
IVMINSUP	PROCESS+3~, CLEANUP+59*
IVMREPTR	CLEANUP+8, REJPROC+5, IVM~, IVM+16
PLAN	CHKREL+7~, CHKREL+16*, CHKREL+22
PLNTYP	CHKREL+7~
POLCY	CHKREL+7~, CHKREL+8, CHKREL+14, CHKREL+15
RELHLD	CLEANUP+2~, REJECT+6~, REJECT+8, REJPROC+3~*
RESP	TRACK+1~, TRACK+3*, TRACK+4, TRACK+7, TRACK+21, TRACK+27
RESULT	ACCEPT+7~, PROCESS+25, PROCESS+27, PROCESS+43, PROCESS+47, PROCESS+52, REJECT+6~, REJPROC+4, REJPROC+10
RESULT(0	PROCESS+11, PROCESS+14, PROCESS+17, PROCESS+21, PROCESS+24, PROCESS+46, CLEANUP+11, CLEANUP+15, CLEANUP+20, CLEANUP+24
RESULT(1	PROCESS+12*
RESULT(2	PROCESS+15*
RESULT(3	PROCESS+18*
RIEN	PROCESS+3~, PROCESS+49*
SOI	TRACK+1~, TRACK+6, TRACK+12, TRACK+14*, TRACK+18
TQN	TRACK+1~, TRACK+4, TRACK+5, TRACK+6, TRACK+9, TRACK+10, TRACK+11, TRACK+12, TRACK+20, TRACK+27
TRICHP	CHKREL+7~, CHKREL+8, CHKREL+20, CHKREL+24, CHKREL+26, CHKREL+28
TYPNAM	CHKREL+7~, CHKREL+19*, CHKREL+20, CHKREL+21
U	CLEANUP+1, CLEANUP+46, REJPROC+5, IVM+11, IVM+14, RELHLD+6, RELHLD+7, RELHLD+8, RELHLD+9, CHKREL+16 , CHKREL+17, TRACK+17
WE	TRACK+1~, TRACK+2, TRACK+5, TRACK+11, TRACK+13, TRACK+15, TRACK+17, TRACK+23
X	PROCESS+5~, CHKREL+7~, CHKREL+15*, CHKREL+16, CHKREL+17
X3	RELHLD+1~, RELHLD+8*, RELHLD+9
X5	RELHLD+1~, RELHLD+6*
Y	PROCESS+5~, CLEANUP+29

Customize PDF page

Package: Integrated Billing

Routine: IBCNBAR

Information

Source Information

Call Graph

Call Graph Total: 29

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: