Routine: IBCNICB

Package	Total	Call Graph
Integrated Billing	4	(PROCESS,REJPROC)^IBCNBAR $$EXACTM^IBCNICB2 ($$SUBS,DBU,DEL)^IBCNSJ ($$IR,BU)^IBCNSJ21
VA FileMan	3	(,FILE,UPDATE,WP)^DIE $$EXTERNAL^DILFD $$GET1^DIQ
Kernel	1	$$NOW^XLFDT

Package	Total	Caller Graph
Integrated Billing	1	IBCNBAR

Entry Points

Name	Comments	DBIA/ICR reference
ACCEPAPI(RESULT,IBBUFDA,DFN,IBINSDA,IBGRPDA,IBPOLDA,IBMVINS,IBMVGRP,IBMVPOL,IBNEWINS,IBNEWGRP,IBNEWPOL,IVMREPTR,IBELIG,IBE1)	;
REJECAPI(RESULT,IBBUFDA,IVMREPTR)	;
UPDTICB(RESULT,DFN,IBPOLDA,IBGRPDA,IBPOLCOM,IBPOLBIL,IBPLAN,IBELEC,IBGPCOM,IBFTF,IBFTFVAL)	;
PPCOMM(DFN,IBPOLDA,IBPOLCOM,RESULT)	; ib2528 record patient policy comments ; Input: ; DFN = patient IEN ; IBPOLDA = ien of selected INSURANCE POLICY at ^DPT("_DFN_",.312, ; IBPOLCOM = patient policy COMMENT data
ADCOM(DFN,IBPOLDA,IBPOLCOM,RESULT)	; add new entry to the COMMENT - SUBSCRIBER POLICY multiple ; Input: ; DFN = patient IEN ; IBPOLDA = ien of INSURANCE POLICY at ^DPT("_DFN_",.312, ; IBPOLCOM = patient policy COMMENT data ; DUZ = user IEN - system wide variable
EDCOM(IBPOLDA,IBPOLCOM,IBDT)	; edit the existing entry at 2.312,1.18 multiple ; input - IBPOLDA = ien of INSURANCE POLICY at ^DPT("_DFN_",.312, ; IBDT = date/time that comment was made
UPDPOL(RESULT,IBBUFDA,DFN,IBINSDA,IBGRPDA,IBPOLDA)	;update a new group into
CLEANUP	;This logic will delete obsolete Individual Plans, Repoint Insurance
DELBU	;Delete Benefits Used

Name	Field # of Occurrence
^DIE	EDCOM+12
FILE^DIE	UPDTICB+52, UPDTICB+75, UPDPOL+45, CLEANUP+18
UPDATE^DIE	ADCOM+22
WP^DIE	UPDTICB+78
$$EXTERNAL^DILFD	UPDTICB+50, UPDTICB+66, UPDTICB+68
$$GET1^DIQ	REJECAPI+24, UPDTICB+69, EDCOM+9
PROCESS^IBCNBAR	ACCEPAPI+98
REJPROC^IBCNBAR	REJECAPI+25
$$EXACTM^IBCNICB2	ACCEPAPI+82
$$SUBS^IBCNSJ	ACCEPAPI+95, CLEANUP+8
DBU^IBCNSJ	DELBU+9
DEL^IBCNSJ	CLEANUP+8
$$IR^IBCNSJ21	CLEANUP+12
BU^IBCNSJ21	DELBU+4
$$NOW^XLFDT	ADCOM+17, EDCOM+10

FileNo	Call Tags
2.312	EXTERNAL^DILFD
^VA(200 - [#200]	GET1^DIQ
^IBE(355.13 - [#355.13]	GET1^DIQ
^IBA(355.3 - [#355.3]	EXTERNAL^DILFD, WP^DIE
^IBA(355.33 - [#355.33]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	ACCEPAPI+71, UPDPOL+28
^DPT - [#2]	ACCEPAPI+85, UPDTICB+46, UPDTICB+47, UPDTICB+54, PPCOMM+13, PPCOMM+14, ADCOM+11, ADCOM+29, EDCOM+5, EDCOM+10 , UPDPOL+18, UPDPOL+22, UPDPOL+34, UPDPOL+48, CLEANUP+3
^IBA(355.3 - [#355.3]	ACCEPAPI+73, ACCEPAPI+87, ACCEPAPI+89, UPDTICB+62, UPDTICB+63, UPDTICB+79, UPDPOL+27, UPDPOL+29, UPDPOL+30, CLEANUP+5
^IBA(355.33 - [#355.33]	ACCEPAPI+55, ACCEPAPI+95, UPDPOL+42, UPDPOL+44
^IBT(356.2 - [#356.2]	CLEANUP+14, CLEANUP+15
^XUSEC("IB GROUP PLAN EDIT"	ACCEPAPI+78
^XUSEC("IB INSURANCE COMPANY EDIT"	ACCEPAPI+76

Name	Line Occurrences
ADCOM	PPCOMM+17, PPCOMM+23
CLEANUP	UPDPOL+32
DELBU	CLEANUP+20
PPCOMM	UPDTICB+53

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EDCOM+3~, EDCOM+5*, EDCOM+10
DA(1	EDCOM+7*
DA(2	EDCOM+7*
DFN	ACCEPAPI~, ACCEPAPI+65, ACCEPAPI+85, ACCEPAPI+89, UPDTICB~, UPDTICB+44, UPDTICB+46, UPDTICB+47, UPDTICB+48, UPDTICB+53 , UPDTICB+54, PPCOMM~, PPCOMM+13, PPCOMM+14, PPCOMM+17, PPCOMM+23, ADCOM~, ADCOM+11, ADCOM+16, ADCOM+29 , EDCOM+5, EDCOM+6, EDCOM+7, EDCOM+10, UPDPOL~, UPDPOL+16, UPDPOL+18, UPDPOL+22, UPDPOL+34, UPDPOL+37 , UPDPOL+48, CLEANUP+3, CLEANUP+8, CLEANUP+12, CLEANUP+14
DIE	EDCOM+3~, EDCOM+6*
DIERR	ADCOM+13~, ADCOM+25
DR	EDCOM+3~, EDCOM+10, EDCOM+11
DUZ	ACCEPAPI+76, ACCEPAPI+78, ADCOM+18, EDCOM+5, EDCOM+9
FDA	ADCOM+13~
FDA(	ADCOM+17, ADCOM+18, ADCOM+19*
IBARR	CLEANUP+2~
IBARR(	CLEANUP+8
IBBU	DELBU+1~
IBBU(	DELBU+9
IBBU(0	DELBU+6
IBBUFABORT	ACCEPAPI+97~*, ACCEPAPI+99
IBBUFDA	ACCEPAPI~, ACCEPAPI+55, ACCEPAPI+60, ACCEPAPI+82, ACCEPAPI+95, REJECAPI~, REJECAPI+22, REJECAPI+24, UPDPOL~, UPDPOL+15 , UPDPOL+42, UPDPOL+44
>> IBCDA	PPCOMM+14*
IBCDFN	DELBU+1~, DELBU+2*
IBCNICB	ACCEPAPI+50~, ACCEPAPI+58*
IBDAT	DELBU+7~, DELBU+8, DELBU+9
IBDT	PPCOMM+9~, PPCOMM+13*, PPCOMM+14, EDCOM~, EDCOM+5
IBE1	ACCEPAPI~, ACCEPAPI+53*
IBELEC	UPDTICB~, UPDTICB+59, UPDTICB+66*, UPDTICB+72
IBELIG	ACCEPAPI~, ACCEPAPI+51*
IBERR	UPDPOL+36~, UPDPOL+46, UPDPOL+47
IBFDA	UPDTICB+43~, UPDTICB+52, UPDTICB+60~, UPDTICB+75
IBFDA(	UPDTICB+51, UPDTICB+71, UPDTICB+72, UPDTICB+73, UPDTICB+74*
IBFIELDS	UPDPOL+36~, UPDPOL+40, CLEANUP+2~
IBFIELDS(	UPDPOL+38, UPDPOL+39, UPDPOL+42, UPDPOL+44, CLEANUP+17*
IBFTF	UPDTICB~, UPDTICB+59, UPDTICB+67, UPDTICB+68, UPDTICB+69, UPDTICB+73
IBFTFVAL	UPDTICB~, UPDTICB+59, UPDTICB+67, UPDTICB+69, UPDTICB+74
IBGPCOM	UPDTICB~, UPDTICB+59
IBGPCOM(""	UPDTICB+78
IBGRPDA	ACCEPAPI~, ACCEPAPI+66*, ACCEPAPI+73, ACCEPAPI+87, ACCEPAPI+89, ACCEPAPI+95, UPDTICB~, UPDTICB+61, UPDTICB+62, UPDTICB+63 , UPDTICB+64, UPDTICB+78, UPDTICB+79, UPDPOL~, UPDPOL+19, UPDPOL+23, UPDPOL+24, UPDPOL+27, UPDPOL+29, UPDPOL+30 , UPDPOL+39
IBIENS	UPDTICB+43~, UPDTICB+48, UPDTICB+51, UPDTICB+60~, UPDTICB+64, UPDTICB+71, UPDTICB+72, UPDTICB+73, UPDTICB+74
IBINSDA	ACCEPAPI~, ACCEPAPI+66*, ACCEPAPI+71, ACCEPAPI+82, ACCEPAPI+87, ACCEPAPI+95, UPDPOL~, UPDPOL+23, UPDPOL+24, UPDPOL+28 , UPDPOL+29, UPDPOL+30, UPDPOL+38, CLEANUP+10, CLEANUP+16, CLEANUP+17
IBIP	CLEANUP+2~, CLEANUP+5*, CLEANUP+8
IBMVGRP	ACCEPAPI~, ACCEPAPI+67*
IBMVINS	ACCEPAPI~, ACCEPAPI+67*
IBMVPOL	ACCEPAPI~, ACCEPAPI+67*
IBNEWGRP	ACCEPAPI~, ACCEPAPI+68*, ACCEPAPI+78, ACCEPAPI+82
IBNEWINS	ACCEPAPI~, ACCEPAPI+68*, ACCEPAPI+76, ACCEPAPI+82
IBNEWPOL	ACCEPAPI~, ACCEPAPI+68*
IBNM	EDCOM+3~, EDCOM+9*, EDCOM+10
IBOLDGRP	CLEANUP+2~, CLEANUP+4*, CLEANUP+8, DELBU+2
IBOLDINS	CLEANUP+2~, CLEANUP+4*, CLEANUP+8, CLEANUP+10
IBPAT	UPDPOL+14~, UPDPOL+22, UPDPOL+23, UPDPOL+24, UPDPOL+30, CLEANUP+2~, CLEANUP+3, CLEANUP+4, CLEANUP+5
IBPLAN	UPDTICB~, UPDTICB+59, UPDTICB+71, DELBU+1~, DELBU+2*
IBPOLBIL	UPDTICB~, UPDTICB+42, UPDTICB+50*, UPDTICB+51
IBPOLCOM	UPDTICB~, UPDTICB+42, UPDTICB+53, PPCOMM~, PPCOMM+17, PPCOMM+20, PPCOMM+23, ADCOM~, ADCOM+19, EDCOM~ , EDCOM+10
IBPOLDA	ACCEPAPI~, ACCEPAPI+66*, ACCEPAPI+85, UPDTICB~, UPDTICB+45, UPDTICB+46, UPDTICB+47, UPDTICB+48, UPDTICB+53, UPDTICB+54 , PPCOMM~, PPCOMM+13, PPCOMM+14, PPCOMM+17, PPCOMM+23, ADCOM~, ADCOM+11, ADCOM+16, ADCOM+29, EDCOM~ , EDCOM+5, EDCOM+6, EDCOM+7, EDCOM+10, UPDPOL~, UPDPOL+17, UPDPOL+18, UPDPOL+22, UPDPOL+34, UPDPOL+37 , UPDPOL+48, CLEANUP+3, CLEANUP+8, CLEANUP+12, CLEANUP+16, DELBU+2
IBSUPRES	ACCEPAPI+50~, ACCEPAPI+55, REJECAPI+19~, REJECAPI+21
IBT	CLEANUP+2~, CLEANUP+13, CLEANUP+14, CLEANUP+15, CLEANUP+17
IBTNODE0	CLEANUP+2~, CLEANUP+15*, CLEANUP+16
IBTNODE1	CLEANUP+2~, CLEANUP+15*, CLEANUP+16
IBUFSTAT	ACCEPAPI+50~, ACCEPAPI+55*, ACCEPAPI+62, ACCEPAPI+64
IBVCOM	PPCOMM+9~, PPCOMM+10, PPCOMM+14, PPCOMM+17, PPCOMM+20
IBX	ACCEPAPI+50~, ACCEPAPI+89*, ACCEPAPI+95
IBXIFN	UPDPOL+36~, UPDPOL+37*, UPDPOL+38, UPDPOL+39, UPDPOL+42, UPDPOL+44
IENS	ADCOM+13~, ADCOM+16*, ADCOM+17, ADCOM+18, ADCOM+19
IVMREPTR	ACCEPAPI~, REJECAPI~
RESULT	ACCEPAPI~, REJECAPI~, REJECAPI+22, REJECAPI+23, UPDTICB~, UPDTICB+53, UPDTICB+80*, PPCOMM~, PPCOMM+17, PPCOMM+23 , ADCOM~, UPDPOL~
RESULT(0	ACCEPAPI+60, ACCEPAPI+61, ACCEPAPI+63, ACCEPAPI+65, ACCEPAPI+70, ACCEPAPI+72, ACCEPAPI+75, ACCEPAPI+77, ACCEPAPI+79, ACCEPAPI+84 , ACCEPAPI+86, ACCEPAPI+88, ACCEPAPI+94, ACCEPAPI+99, UPDTICB+46*
RESULT(1	UPDTICB+44, UPDTICB+45, UPDTICB+47, UPDTICB+50, UPDTICB+52, UPDTICB+80, ADCOM+11, ADCOM+25, ADCOM+26
RESULT(2	UPDTICB+61, UPDTICB+62, UPDTICB+63, UPDTICB+66, UPDTICB+67, UPDTICB+68, UPDTICB+69, UPDTICB+75, UPDTICB+78*, UPDTICB+80
RESULT(4	UPDPOL+15, UPDPOL+16, UPDPOL+17, UPDPOL+18, UPDPOL+19, UPDPOL+23, UPDPOL+24, UPDPOL+27, UPDPOL+28, UPDPOL+29 , UPDPOL+30, UPDPOL+34, UPDPOL+46, UPDPOL+47
U	ACCEPAPI+55, ACCEPAPI+89, ACCEPAPI+95, UPDPOL+23, UPDPOL+24, UPDPOL+29, UPDPOL+30, UPDPOL+42, CLEANUP+4, CLEANUP+5 , CLEANUP+16

Customize PDF page

Package: Integrated Billing

Routine: IBCNICB

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: