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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCCCB0

Package: Integrated Billing

Routine: IBCCCB0


Information

IBCCCB0 ;ALB/ARH - COPY BILL FOR COB (OVERFLOW) ;06-19-97

Source Information

Source file <IBCCCB0.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Integrated Billing 12 STEP2^IBCCC  KVAR^IBCCCB  $$COBN^IBCEF  $$SPLTMRA^IBCEMU1  FTPRV^IBCEU5  $$CPTCHG^IBCRCU1  $$BILLRATE^IBCRU3  $$QMED^IBCU1  
($$BINS,BCOB)^IBCU3  $$CTCHK^IBCU41  $$MCRONBIL^IBEFUNC  $$IB^IBRUTL  
VA FileMan 2 $$EXTERNAL^DILFD  ^DIR  
Accounts Receivable 1 ($$BILL,$$STNO)^RCJIBFN2  
Vendor - Document Storage Systems 1 CTCOPY^VEJDIBE1  

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: 2

Package Total Caller Graph
Integrated Billing 2 IBCCCB  IBCECOB2  

Entry Points

Name Comments DBIA/ICR reference
DSPRB(IBIFN) ; display related bills
CTCOPY(IBIFN,IBMRA) ; based on the type of bill, copy it without cancelling
; IBMRA = 1 if an MRA bill and copy for prof components is desired
CTCOPY1(IBIFN) ; Copy a Reasonable Charges inst bill to create a prof bill:
; - Billing Rate must be Reasonable Charges
; - Bill being copied must be an inst bill
; - Prof bill must not already exist for the event date
; - If the bill is outpt at least one CPT must have prof charges
; - Procedure codes are copied only if the care is outpt
CTCOPY2(IBIFN) ; Copy a Reasonable Charges prof bill to create another prof bill if user wants another:
; - Billing Rate must be Reasonable Charges
; - Bill being copied must be a prof bill
; - Procedures are not copied
FINALEOB(IBIFN) ; Returns 1 if user indicates final EOB has been received
; from prior payer
FEOBQ
COBOK(IBIFN) ; Returns 1 if user indicates the COB process should proceed
; even though the prior payer's bill is still in ENTERED/NOT REVIEWED
; or REQUEST MRA status (1,2)
COBOKQ

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD COBOK+7
^DIR CTCOPY2+22, FINALEOB+7, FINALEOB+13, FINALEOB+20, COBOK+9
STEP2^IBCCC CTCOPY1+37, CTCOPY2+29
KVAR^IBCCCB CTCOPY1+33, CTCOPY2+26
$$COBN^IBCEF COBOK+7
$$SPLTMRA^IBCEMU1 FINALEOB+9, FINALEOB+16
FTPRV^IBCEU5 CTCOPY1+39
$$CPTCHG^IBCRCU1 CTCOPY1+22
$$BILLRATE^IBCRU3 CTCOPY1+18, CTCOPY2+13
$$QMED^IBCU1 CTCOPY1+43
$$BINS^IBCU3 CTCOPY+5
BCOB^IBCU3 DSPRB+4
$$CTCHK^IBCU41 CTCOPY1+28
$$MCRONBIL^IBEFUNC FINALEOB+4
$$IB^IBRUTL DSPRB+18
$$BILL^RCJIBFN2 DSPRB+12
$$STNO^RCJIBFN2 DSPRB+14
CTCOPY^VEJDIBE1 CTCOPY1+43

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,?13,"Payer Responsible",?33,"Bill #",?41,"Status",?49,"Original",?59,"Collected",?72,"Balance",!,?13,IBDS
  • Line Location: DSPRB+5
Function Call: WRITE
  • Prompt: ?33,$P($G(^DGCR(399,+IBK,0)),U)
  • Line Location: DSPRB+13
Function Call: WRITE
  • Prompt: ?43,$P($$STNO^RCJIBFN2(+$P(IBAR,U,2)),U,2)
  • Line Location: DSPRB+14
Function Call: WRITE
  • Prompt: ?47,$J($P(IBAR,U),10,2)
  • Line Location: DSPRB+15
Function Call: WRITE
  • Prompt: ?58,$J($P(IBAR,U,4),10,2)
  • Line Location: DSPRB+16
Function Call: WRITE
  • Prompt: ?69,$J($P(IBAR,U,3),10,2)
  • Line Location: DSPRB+17
Function Call: WRITE
  • Prompt: !!,?8,"* There are patient bills on Hold for the date range of this bill."
  • Line Location: DSPRB+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: DSPRB+19
Function Call: WRITE
  • Prompt: !!!,"There are no Reasonable Charges Outpatient Professional charges for this bill,",!,"second bill not created.",!!
  • Line Location: CTCOPY1+22
Function Call: WRITE
  • Prompt: !!!,"This ",IBBTYPE," ",IBBCTOD," bill may have corresponding ",IBBCTND," charges."
  • Line Location: CTCOPY1+24
Function Call: WRITE
  • Prompt: !!,"The current bill has no charges defined, no second bill created."
  • Line Location: CTCOPY1+26
Function Call: WRITE
  • Prompt: !!,"There is an existing ",IBBTYPE," ",IBBCTND," bill (",$P($G(^DGCR(399,+IBX,0)),U,1),") that appears",!,"to correspond to this ",IBBCTOD," bill, second bill not created.",!!
  • Line Location: CTCOPY1+28
Function Call: WRITE
  • Prompt: !,"Creating an ",IBBTYPE," ",IBBCTND," bill.",!!
  • Line Location: CTCOPY1+30
Function Call: WRITE
  • Prompt: !,"Creating an ",IBBTYPE," Professional bill.",!!
  • Line Location: CTCOPY2+24
Function Call: WRITE
  • Prompt: !!," Only one MRA has been received for this claim. The MRA on file indicates"
  • Line Location: FINALEOB+10
Function Call: WRITE
  • Prompt: !," that it is a 'split MRA' meaning that additional MRA's are needed."
  • Line Location: FINALEOB+11
Function Call: WRITE
  • Prompt: !," Processing cannot continue until all MRA's have been received for this claim."
  • Line Location: FINALEOB+12
Function Call: WRITE
  • Prompt: !
  • Line Location: FINALEOB+13
Function Call: WRITE
  • Prompt: !!," At least 2 MRA's have been received for this claim."
  • Line Location: FINALEOB+17
Function Call: WRITE
  • Prompt: !,"Please verify that all possible MRA's have been received for",!,"this claim before processing.",!
  • Line Location: FINALEOB+18
Function Call: WRITE
  • Prompt: !
  • Line Location: FINALEOB+21
Function Call: WRITE
  • Prompt: !
  • Line Location: COBOK+10
Routine Call
  • DIR
  • Line Location:
    • CTCOPY2+22
    • FINALEOB+7
    • FINALEOB+13
    • FINALEOB+20
    • COBOK+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] DSPRB+13, CTCOPY+4, CTCOPY1+11, CTCOPY1+26, CTCOPY1+28, CTCOPY2+9, CTCOPY2+15, COBOK+4
^DIC(36 - [#36] DSPRB+10

Label References

Name Line Occurrences
COBOKQ COBOK+5
CTCOPY1 CTCOPY+6
CTCOPY2 CTCOPY+7
FEOBQ FINALEOB+4, FINALEOB+9

Naked Globals

Name Field # of Occurrence
^("U" CTCOPY1+11, CTCOPY2+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR CTCOPY2+5~, FINALEOB+2~, FINALEOB+7!, FINALEOB+13!, FINALEOB+20!, COBOK+3~, COBOK+9!
DIR("?" CTCOPY2+18*, CTCOPY2+19*, CTCOPY2+20*, FINALEOB+6*
DIR("A" CTCOPY2+21*, FINALEOB+5*, FINALEOB+19*, COBOK+7*, COBOK+8*
DIR("B" CTCOPY2+22*, FINALEOB+5*, FINALEOB+19*, COBOK+6*
DIR(0 CTCOPY2+22*, FINALEOB+5*, FINALEOB+13*, FINALEOB+19*, COBOK+6*
DIRUT CTCOPY2+5~, CTCOPY2+22
DTOUT CTCOPY2+5~
DUOUT CTCOPY2+5~
IB0 CTCOPY+3~, CTCOPY+4*, CTCOPY+5, CTCOPY1+7~, CTCOPY1+11*, CTCOPY1+12, CTCOPY1+14, CTCOPY1+18, CTCOPY1+22, CTCOPY1+35
, CTCOPY2+5~, CTCOPY2+9*, CTCOPY2+10, CTCOPY2+11, CTCOPY2+13
>> IBAC CTCOPY1+40*, CTCOPY2+30*
IBAR DSPRB+2~, DSPRB+12*, DSPRB+14, DSPRB+15, DSPRB+16, DSPRB+17
IBBCTN CTCOPY1+7~, CTCOPY1+14*, CTCOPY1+15*, CTCOPY1+16, CTCOPY1+20, CTCOPY1+32
IBBCTND CTCOPY1+7~, CTCOPY1+20*, CTCOPY1+24, CTCOPY1+28, CTCOPY1+30
IBBCTO CTCOPY1+7~, CTCOPY1+14*, CTCOPY1+15, CTCOPY1+20, CTCOPY2+5~, CTCOPY2+11*
IBBCTOD CTCOPY1+7~, CTCOPY1+20*, CTCOPY1+24, CTCOPY1+28
IBBTYPE CTCOPY1+7~, CTCOPY1+12*, CTCOPY1+24, CTCOPY1+28, CTCOPY1+30, CTCOPY2+5~, CTCOPY2+10*, CTCOPY2+24
>> IBCBCOPY CTCOPY+3
IBCOB DSPRB+2~, DSPRB+4
IBCOB( DSPRB+6, DSPRB+8, DSPRB+9
IBCOB(0 DSPRB+4, CTCOPY1+32*
IBCTCOPY CTCOPY1+7~, CTCOPY1+9*, CTCOPY1+39, CTCOPY2+5~, CTCOPY2+7*
IBCTYPE CTCOPY+3~, CTCOPY+4*, CTCOPY+6, CTCOPY+7
IBDS DSPRB+2~, DSPRB+3*, DSPRB+5
IBHV CTCOPY1+7~
IBHV("IBIFN1" CTCOPY1+39, CTCOPY1+43
IBI DSPRB+2~, DSPRB+6*, DSPRB+7, DSPRB+8, DSPRB+9
>> IBIDS( CTCOPY1+33*, CTCOPY2+26*
IBIFN DSPRB~, DSPRB+2, DSPRB+4, DSPRB+18, CTCOPY~, CTCOPY+4, CTCOPY+5, CTCOPY+6, CTCOPY+7, CTCOPY1~
, CTCOPY1+11, CTCOPY1+22, CTCOPY1+26, CTCOPY1+28, CTCOPY1+33, CTCOPY2~, CTCOPY2+9, CTCOPY2+15, CTCOPY2+26, FINALEOB~
, FINALEOB+4, FINALEOB+9, FINALEOB+16, COBOK~, COBOK+4, COBOK+7
IBINS DSPRB+2~, DSPRB+10*, DSPRB+11
IBJ DSPRB+2~, DSPRB+8*, DSPRB+9, DSPRB+10
IBK DSPRB+2~, DSPRB+9*, DSPRB+11, DSPRB+12, DSPRB+13
IBLABEL DSPRB+2~, DSPRB+7*, DSPRB+11*
IBMRA CTCOPY~, CTCOPY+5
IBNOCPT CTCOPY1+7~, CTCOPY1+35*, CTCOPY2+5~, CTCOPY2+28*
IBNOTC CTCOPY1+7~, CTCOPY1+36*
IBOK FINALEOB+2~, FINALEOB+3*, FINALEOB+8*, FINALEOB+22*, FEOBQ, COBOK+3~, COBOK+4*, COBOK+5*, COBOK+11*, COBOKQ
IBSTAT COBOK+3~, COBOK+4*, COBOK+5, COBOK+7
IBU CTCOPY1+7~, CTCOPY1+11*, CTCOPY1+18, CTCOPY2+5~, CTCOPY2+9*, CTCOPY2+13
>> IBV CTCOPY1+40*, CTCOPY2+30*
IBX CTCOPY1+7~, CTCOPY1+28*, CTCOPY2+5~
U DSPRB+11, DSPRB+13, DSPRB+14, DSPRB+15, DSPRB+16, DSPRB+17, CTCOPY+4, CTCOPY+5, CTCOPY1+12, CTCOPY1+14
, CTCOPY1+18, CTCOPY1+22, CTCOPY1+28, CTCOPY1+35, CTCOPY2+10, CTCOPY2+11, CTCOPY2+13, COBOK+4, COBOK+5, COBOK+7
X CTCOPY2+5~, FINALEOB+2~, COBOK+3~
Y CTCOPY2+5~, CTCOPY2+22, FINALEOB+2~, FINALEOB+8, FINALEOB+22, COBOK+3~, COBOK+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All