Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCCC2

Package: Integrated Billing

Routine: IBCCC2


Information

IBCCC2 ;ALB/AAS - CANCEL AND CLONE A BILL - CONTINUED ;6/6/03 9:56am

Source Information

Source file <IBCCC2.m>

Call Graph

Call Graph

Call Graph Total: 19

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

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

Entry Points

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 IB*2.0*447 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)

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] STEP5STEP5+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

Label References

Name Line Occurrences
@( STEP5+10, STEP5+15
COB COBCHG+25
COBCHG STEP5+25
CP1 C+1
END STEP5STEP5+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

Naked Globals

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!, CCCC+1, OPOP+1, OC
OC+1, OTOT+1, CV+2, CV+3, RCRC+1, CPCP+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 STEP5STEP5+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, TXUU1
U2U3UF2UF3U4U5U6U7U8UF31
UF32CMM2CCCC+1, OPOP+1, OCOC+1
OTOT+1, CV+1, CV+2, CV+3, RCRC+1, CPCP+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, COBFILE+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, CCCC+1, OPOP+1, OCOC+1, OTOT+1, CV+1
CV+2, CV+3, RCRC+1, CPCP+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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All