Routine: IBCCC2

Package	Total	Call Graph
Integrated Billing	14	FORCEPRT^IBCAPP ^IBCB1 ^IBCCC3 COPYB^IBCDC ($$COB,$$COBN,$$FT)^IBCEF $$GETNPI^IBCEF73A $$CHK^IBCEMU1 FTPRV^IBCEU5 BILL^IBCRBC ^IBCSC1 ^IBCSCU CPTMOD26^IBCU73 PROC^IBCU7A ($$GETSPEC,$$MCRWNR,$$REQMRA)^IBEFUNC
VA FileMan	4	FILE^DICN ^DIE IX1^DIK RECALL^DILFD
CPT HCPCS Codes	1	$$MOD^ICPTMOD

Package	Total	Caller Graph
Integrated Billing	5	IBCB11 IBCC IBCCC1 IBCCCB IBNCPDP5

Name	Field # of Occurrence
FILE^DICN	FILE+2
^DIE	STEP6+4, FILE+3, COBCHG+41, COBCHG+46, COBCHG+53, COBCHG+59, COBCHG+63, COBCHG+67, COBCHG+77
IX1^DIK	INDEX+2
RECALL^DILFD	STEP5+32, IBSCEDT+7
FORCEPRT^IBCAPP	IBSCEDT+5, IBSCEDT+6
^IBCB1	ST1+2
^IBCCC3	STEP5+27
COPYB^IBCDC	STEP5+29
$$COB^IBCEF	PRIOR+2
$$COBN^IBCEF	IBSCEDT+4, COBCHG+12
$$FT^IBCEF	CV+1
$$GETNPI^IBCEF73A	PRV+4
$$CHK^IBCEMU1	COBCHG+19
FTPRV^IBCEU5	STEP5+24
BILL^IBCRBC	STEP5+32
^IBCSC1	ST1
^IBCSCU	ST1
CPTMOD26^IBCU73	STEP5+32
PROC^IBCU7A	STEP5+32
$$GETSPEC^IBEFUNC	FILE+1
$$MCRWNR^IBEFUNC	COBCHG+9
$$REQMRA^IBEFUNC	COBCHG+16
$$MOD^ICPTMOD	CP+17

FileNo	Call Tags
^DGCR(399 - [#399]	Classic Fileman Calls, RECALL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	STEP5, STEP5+4, STEP5+10, STEP5+15, STEP5+18, STEP5+19, STEP5+20, STEP5+21, STEP5+29, TX , U, U1, U2, U3, UF2, UF3, U4, U5, U6, U7 , U8, UF31, UF32, C, C+1, M, M2, CC, CC+1, OP* , OP+1, OC, OC+1, OT, OT+1, CV+2, CV+3, RC, RC+1, CP , CP+2, CP+3, CP+6, CP+8, CP+10, CP+12, CP+13, CP+14, CP+15, CP+16 , CP+17, CP+18, CP+20, CP+21, CP+23, CP+24, CP+26, CP+27!, CP+30, CP+31* , CP+32, CP1+1, CP1+2, CP1+3, CP1+4, PRV+2, PRV+3, PRV+4, PRV+5, PRV+6* , PRV+7, U9+1, COB, FILE+1, PRIOR+5, PRIOR+6, COBCHG+7, COBCHG+29, COBCHG+31, COBCHG+34 , COBCHG+41, COBCHG+58, COBCHG+62, COBCHG+66, COBCHG+73, SAVERC+3, SAVERC+4, SAVERC+5, RESTRC+3, RESTRC+5
^IBM(361.1 - [#361.1]	IBSCEDT+6

Name	Line Occurrences
@(	STEP5+10, STEP5+15
COB	COBCHG+25
COBCHG	STEP5+25
CP1	C+1
END	STEP5, STEP5+32, STEP6+9, STEP6+10
FILE	CP1+2, CP1+3, CP1+4
IBSCEDT	STEP6+10
IBSCX	ST1
INDEX	COBCHG+37
PRIOR	STEP5+30, COBCHG+21
RESTRC	INDEX+3
SAVERC	INDEX+1
ST1	ST1+3

Name	Field # of Occurrence
^(	STEP5+10, CC+1, OP+1, OC+1, OT+1, CV+3, RC+1, CP+2, PRV+3
^("AUX"	CP+2
^("C"	CP1+2, CP1+3, CP1+4
^(0	CC+1, OP+1, OC+1, OT+1, CV+3, RC+1, CP+2, PRV+5
^(1	CP+2
^(2	CP+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+2!
%DT	END+2!
CNT	PRV+1~, PRV+2, PRV+5, PRV+6, PRV+7
D	END+2!
DA	STEP6+3~, STEP6+4, FILE~, FILE+2, INDEX+2!, COBCHG+41~, COBCHG+46~, COBCHG+52~, COBCHG+53, COBCHG+59~* , COBCHG+63~, COBCHG+67~, COBCHG+74~, COBCHG+75*
DA(1	FILE+2, FILE+3, COBCHG+75, COBCHG+76
DD	FILE~, FILE+2!
DDH	END+2!
DFN	END!
DGACTDT	END+2!
DGAMNT	END+2!
DGBR	END+2!
DGBRN	END+2!
DGBSI	END+2!
DGBSLOS	END+2!
DGFUNC	END+2!
DGI	CP1~, CP1+2, CP1+3, CP1+4*
DGIFN	END+2!
DGPCM	END+2!
DGPROCDT	CP1+2, CP1+3, CP1+4*, FILE+3, FILE+4!
DGREV	END+1!
DGREV00	END+1!
DGREVHDR	END+1!
DGRVRCAL	END+2!
DGXRF1	END+1!
DIC	END+2!, FILE~, FILE+2*
DIC("P"	FILE+1*
DIC(0	FILE+2*
DIE	STEP6+3~, STEP6+4, FILE~, FILE+3, COBCHG+41~, COBCHG+46~, COBCHG+52~, COBCHG+53, COBCHG+59~, COBCHG+63~* , COBCHG+67~, COBCHG+74~, COBCHG+76
DIK	INDEX+2*!
DLAYGO	FILE~, FILE+2*
DO	FILE~, FILE+2!
DR	STEP6+3~, STEP6+4, FILE~, FILE+3, COBCHG+41~, COBCHG+46~, COBCHG+52~, COBCHG+53, COBCHG+59~, COBCHG+63~* , COBCHG+67~, COBCHG+74~, COBCHG+76
DUZ	STEP5+32, IBSCEDT+7
I	STEP5+4, STEP5+10, STEP5+15, STEP5+29, END+2!, CC, CC+1, OP, OP+1, OC , OC+1, OT, OT+1, CV+2, CV+3, RC, RC+1, CP, CP+2, CP+3 , CP+6, CP+8, CP+10, CP+12, CP+13, CP+14, CP+15, CP+16, CP+17, CP+18 , CP+20, CP+21, CP+23, CP+24, CP+26, CP+30, CP+31, CP+32, PRV+3, PRV+4 , PRV+5, PRV+6, PRV+7, U9+1, COB, PRIOR+1~, PRIOR+6, COBCHG+5~, COBCHG+7, COBCHG+25* , COBCHG+31, COBCHG+57, COBCHG+58, COBCHG+59, COBCHG+61, COBCHG+62, COBCHG+63, COBCHG+65, COBCHG+66, COBCHG+67 , COBCHG+72*, COBCHG+73, COBCHG+76
IB	END!
IBA	END!
IBA1	END+2!
IBA2	END!
IBAC	END+1!, IBSCEDT+1~, ST1+1*
IBAD	END!
IBADD1	END!
IBARST	END!
IBAUTO	STEP5+32~*
IBBNO	END!
IBBS	END+2!
IBBT	END+1!
IBCAN	END!
IBCBCOPY	END!
IBCCC	END!, END+1!
>> IBCE("EDI"	STEP6+10
>> IBCEAUTO	STEP6+10
IBCH	END+1!
IBCHK	END+1!
IBCIREDT	IBSCEDT+1~, ST1+3
IBCNCOPY	END!
IBCNCRD	STEP6+2, STEP6+7!, END!
IBCNT	SAVERC+2~, SAVERC+4, SAVERC+5, RESTRC+2~, RESTRC+4, RESTRC+5
IBCOB	STEP5+25, END!, COBCHG~
IBCOB(	COB, COBCHG+25
IBCOB("M1"	COBCHG+14*
IBCOB("TX"	COBCHG+15, COBCHG+17, COBCHG+18, COBCHG+19, COBCHG+20*, COBCHG+80!
IBCOB(0	COBCHG+13*
IBCOBN	COBCHG+11~, COBCHG+12*, COBCHG+13, COBCHG+14
IBCOD	CP1~, CP1+1*, CP1+2, CP1+3, CP1+4
>> IBCTCOPY	STEP5+32, COBCHG+41, SAVERC+1, RESTRC+1
IBDA	END!, IBSCEDT+5, IBSCEDT+6
IBDD	END+2!, CC+1, OP+1, OC+1, OT+1, CV+3, RC+1, CP+2, PRV+3
IBDD1	END+1!
IBDL	CP+22~, CP+26*, CP+27
IBDPT	END!
IBDR	END!
IBDT	END!
IBFRMTYP	COBCHG+5~, COBCHG+29*, COBCHG+41
>> IBFROM	IBSCEDT+4
IBGOEND	STEP6~, STEP6+10, ST1*
IBH	IBSCEDT+1~
IBHV	IBSCEDT+1~
IBI	END!
IBI1	END!
IBIDS	END!
IBIFN	STEP5, STEP5+4, STEP5+18, STEP5+19, STEP5+20, STEP5+21, STEP5+24, STEP5+25, STEP5+29, STEP5+30 , STEP5+32, STEP6+4, END!, IBSCEDT+4, IBSCEDT+5, IBSCEDT+6, IBSCEDT+7, TX, U, U1 , U2, U3, UF2, UF3, U4, U5, U6, U7, U8, UF31 , UF32, C, M, M2, CC, CC+1, OP, OP+1, OC, OC+1 , OT, OT+1, CV+1, CV+2, CV+3, RC, RC+1, CP, CP+3, CP+6 , CP+8, CP+10, CP+12, CP+14, CP+15, CP+18, CP+20, CP+21, CP+24, CP+30 , CP+31, CP+32, CP1+1, PRV+2, PRV+5, PRV+6, PRV+7, U9+1, COB, FILE+1 , FILE+2, INDEX+1, INDEX+2, INDEX+3, PRIOR~, PRIOR+2, PRIOR+5*, PRIOR+6, COBCHG~, COBCHG+7 , COBCHG+12, COBCHG+14, COBCHG+16, COBCHG+19, COBCHG+21, COBCHG+29, COBCHG+31, COBCHG+34, COBCHG+41, COBCHG+46 , COBCHG+53, COBCHG+58, COBCHG+59, COBCHG+62, COBCHG+63, COBCHG+66, COBCHG+67, COBCHG+73, COBCHG+75, SAVERC~ , SAVERC+3, SAVERC+4, SAVERC+5, RESTRC~, RESTRC+3, RESTRC+5
IBIFN1	STEP5, STEP5+4, STEP5+10, STEP5+15, STEP5+18, STEP5+19, STEP5+20, STEP5+21, STEP5+29, END! , C+1, CC, CC+1, OP, OP+1, OC, OC+1, OT, OT+1, CV+1 , CV+2, CV+3, RC, RC+1, CP, CP+2, CP+12, CP+13, CP+14, CP+15 , CP+16, CP+17, CP+18, CP+20, CP+21, CP+23, CP+24, CP+26, CP+27, CP+30 , CP+31, CP+32, CP1+1, CP1+2, CP1+3, CP1+4, PRV+2, PRV+3, PRV+4, PRV+5 , PRV+7, U9+1, PRIOR+1~, PRIOR+6
IBIN	END+1!
IBINS	END+2!, COBCHG~, COBCHG+9, COBCHG+56
IBIP	END+2!
IBKEY	END!
IBLS	END+2!
IBM1	PRIOR+1~, PRIOR+5*, PRIOR+6
IBMAED	INDEX+1~, INDEX+3, SAVERC~, RESTRC~
IBMAED(	SAVERC+5*, RESTRC+4, RESTRC+5
>> IBMRANOT	IBSCEDT+4
IBN	END+2!
IBND	END!
IBND(	STEP5+10*
IBND("C"	C
IBND("CP"	CP+2*, CP+3
IBND("CP-AUX"	CP+2*, CP+10
IBND("CP1"	CP+2*, CP+6
IBND("CP2"	CP+2*, CP+8
IBND("M"	M
IBND("M2"	M2, COBCHG+34*, COBCHG+51!, COBCHG+53
IBND("RC"	RC+1*
IBND("TX"	TX
IBND("U"	U
IBND("U1"	U1
IBND("U2"	U2
IBND("U3"	U3, COBCHG+57, COBCHG+61, COBCHG+65
IBND("U4"	U4
IBND("U5"	U5
IBND("U6"	U6
IBND("U7"	U7
IBND("U8"	U8
IBND("UF2"	UF2
IBND("UF3"	UF3
IBND("UF31"	UF31
IBND("UF32"	UF32
IBND0	END+2!
IBNDS	END+1!
IBNDU	END+2!
>> IBNOCPT	CP+1
>> IBNOTC	CP+17
IBO	END+2!
IBOA	END+1!
IBOD	END+2!
IBPAR	IBSCEDT+1~
>> IBPOPOUT	ST1
>> IBPRCOB	COBCHG+20, COBCHG+46, COBCHG+56
IBPROC	END+2!
IBPTF	END+2!
IBQUIT	END!
IBREV	END+1!
IBSEQ	PRIOR+1~, PRIOR+2*, PRIOR+3
IBSEQN	PRIOR+1~, PRIOR+3*, PRIOR+6
>> IBSILENT	STEP5+24
IBST	END+2!
>> IBSTSM	STEP6+9
IBTAXLST	COBCHG+5~, COBCHG+71*, COBCHG+72, COBCHG+73, COBCHG+75
IBTAXLST(	COBCHG+31*, COBCHG+71, COBCHG+72
IBU	END!
IBUC	END+2!
IBUN	END!
IBV	END+1!, IBSCEDT+1~, ST1*
IBV1	END+1!
IBW	END+1!
IBWW	END+1!
IBX	END+1!, COBCHG+11~, COBCHG+16*, COBCHG+17, COBCHG+18, COBCHG+19
IBYN	END+1!
IBZZ	END+1!
II	COBCHG+52~, COBCHG+53*
J	END+2!, TX, U, U1, U2, U3, UF2, UF3, U4, U5* , U6, U7, U8, UF31, UF32, C, M, M2, CC+1, OP+1 , OC+1, OT+1, CV+3, RC+1, CP+2, CP+3, CP+6, CP+8, CP+10, CP+12 , CP+13, CP+14, CP+15, CP+16, CP+17, CP+18, CP+20, CP+21, CP+23, CP+24 , CP+26, CP+30, CP+31, CP+32, PRV+3, PRV+4, PRV+5, COB*
JJ	COBCHG+52~, COBCHG+53*
K	STEP5+20, END+2!, RC+1, CP+3, CP+6, CP+8, CP+10, CP+13, CP+14, CP+16 , CP+17, CP+18, CP+23*, CP+24, CP+26
PRCAERCD	END+1!
PRCAERR	END+1!
PRCASV	END+1!
PRCASVC	END+1!
PRCAT	END+1!
U	STEP5+29, CP+17, PRV+2, PRV+4, PRV+6, PRV+7, COB, PRIOR+5, PRIOR+6, COBCHG+7 , COBCHG+13, COBCHG+29, COBCHG+31, COBCHG+41, COBCHG+51, COBCHG+53, COBCHG+57, COBCHG+58, COBCHG+61, COBCHG+62 , COBCHG+65, COBCHG+66, COBCHG+73, SAVERC+5, RESTRC+5
VA	END+2!
VADM	END+2!
VAEL	END+1!
VAERR	END+1!
X	STEP6+3~, END+2!, CC+1, OP+1, OC+1, OT+1, CV+3, RC+1, CP1+2, CP1+3 , CP1+4, PRV+5, PRV+6, FILE~, FILE+2
X1	END+2!
X2	END+2!
X3	END+2!
X4	END+2!
Y	STEP6+3~, END+2!, FILE~, FILE+2
Z	PRV+1~, PRV+2*, PRV+6
Z0	PRV+1~, PRV+2*, PRV+6

Customize PDF page

Package: Integrated Billing

Routine: IBCCC2

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
STEP5
STEP6
END
IBSCEDT	; call the IB bill edit screens and validate the data
ST1
IBSCX	;
TX
U
U1
U2
U3
UF2
UF3
U4
U5
U6
U7
U8
UF31
UF32
C
M
M2
CC
OP
OC
OT
CV	; Don't copy value codes from inpatient inst to inpatient prof bills
RC
CP
CP1
PRV	; Copy providers for cloned claim
U9	; Added for new data elements in IB2.0447 BI
COB
FILE
INDEX	;index entire file (set logic)
PRIOR(IBIFN)	; set Secondary/Tertiary Bill #s on prior bills, if the bill is cancelled remove it from prior bills
COBCHG(IBIFN,IBINS,IBCOB)	; Make changes for a new COB payer for bill ; IBIFN = ien of bill in file 399 ; IBINS = ien of bill's current insurance (optional) ; IBCOB = array subscripted by node,piece of COB data field change
SAVERC(IBIFN,IBMAED)
RESTRC(IBIFN,IBMAED)