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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCCCB

Package: Integrated Billing

Routine: IBCCCB


Information

IBCCCB ;ALB/ARH - COPY BILL FOR COB ;2/13/06 10:46am

Source Information

Source file <IBCCCB.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Integrated Billing 15 DATE^IBCB  (NOPTF,NOPTF1)^IBCB2  STEP2^IBCCC  COBCHG^IBCCC2  ($$COBOK,$$FINALEOB,CTCOPY,DSPRB)^IBCCCB0  ($$COB,$$COBN)^IBCEF  $$CURR^IBCEF2  $$EDIACTV^IBCEF4  
$$CHK^IBCEMU1  ($$MRAWL,STAT)^IBCEMU2  ($$MSEDT,$$MSPRE)^IBCEMU4  $$PREOBTOT^IBCEU0  $$EOBTOT^IBCEU1  ($$MCRONBIL,$$MCRWNR)^IBEFUNC  $$PB^IBJTU2  
Kernel 1 $$FMTE^XLFDT  
List Manager 1 PAUSE^VALM1  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Integrated Billing 4 IBCB1  IBCCCB0  IBCECOB2  IBCEMQA  

Entry Points

Name Comments DBIA/ICR reference
ASK ;
CHKB ; Entrypoint-COB processing via EDI's COB Mgmt
; Ask if final EOB was received for previous bill
CHKB1 ; Entry point for Automatic/Silent COB Processing.
; No writes or reads can occur from this point forward if variable
; IBSILENT=1. Any and all error messages should be processed with
; the ERROR procedure below.
NEXTP ; If current bill=MEDICARE WNR and valid 'next payer', use same
; bill for new payer
; If next valid 'payer' is ins co or MEDICARE WNR, create new bill
SKIP ; Jump here if skipping over the preceeding reads
END ;
ASK1 ; If entering thru EDI COB processing, don't ask for new bill, quit
ERROR ; Display/Save error message
EXIT
KVAR
DSPRB(IBIFN) ; display related bills
CTCOPY(IBIFN,IBMRA) ; based on the type of bill, copy without cancelling
; IBMRA = 1 if an MRA bill and copy for prof components is desired
PCERR ; Display/pause error message for interaction - *690

External References

Name Field # of Occurrence
^DIR ASK+33, NEXTP+34, NEXTP+46
DATE^IBCB ASK+5
NOPTF^IBCB2 CHKB1+6
NOPTF1^IBCB2 CHKB1+6
STEP2^IBCCC SKIP+36
COBCHG^IBCCC2 SKIP+22
$$COBOK^IBCCCB0 CHKB+6
$$FINALEOB^IBCCCB0 CHKB+2
CTCOPY^IBCCCB0 CTCOPY+3
DSPRB^IBCCCB0 ASK+36, DSPRB+2
$$COB^IBCEF CHKB1+22
$$COBN^IBCEF NEXTP+43, SKIP+16
$$CURR^IBCEF2 ASK+29, CHKB1+23
$$EDIACTV^IBCEF4 ASK+29
$$CHK^IBCEMU1 ASK+16
$$MRAWL^IBCEMU2 ASK+21
STAT^IBCEMU2 SKIP+22
$$MSEDT^IBCEMU4 SKIP+15
$$MSPRE^IBCEMU4 SKIP+15
$$PREOBTOT^IBCEU0 SKIP+15
$$EOBTOT^IBCEU1 NEXTP+43, SKIP+16
$$MCRONBIL^IBEFUNC CHKB+3, CHKB+6
$$MCRWNR^IBEFUNC ASK+29, CHKB1+23, NEXTP+19
$$PB^IBJTU2 ASK+5
PAUSE^VALM1 PCERR+1
$$FMTE^XLFDT CHKB1+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?4,"This bill appears on the CBW Management Work List. Please use the"
  • Line Location: ASK+10
Function Call: WRITE
  • Prompt: !?4,"'CBW Management Menu' options for all processing related to this bill."
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: !!?4,"This bill is in a status of REQUEST MRA and it has No MRA EOB's"
  • Line Location: ASK+17
Function Call: WRITE
  • Prompt: !?4,"on file. Access to this bill is restricted."
  • Line Location: ASK+18
Function Call: WRITE
  • Prompt: !!?4,"This bill is in a status of REQUEST MRA and it does appear on the"
  • Line Location: ASK+22
Function Call: WRITE
  • Prompt: !?4,"MRA Management Work List. Please use the 'MRA Management Menu' options"
  • Line Location: ASK+23
Function Call: WRITE
  • Prompt: !?4,"for all processing related to this bill."
  • Line Location: ASK+24
Function Call: WRITE
  • Prompt: !!?4,"This bill is in a status of ENTERED/NOT REVIEWED and current payer is "
  • Line Location: ASK+30
Function Call: WRITE
  • Prompt: !?4,"MEDICARE (WNR). No MRA has been requested for this bill."
  • Line Location: ASK+31
Function Call: WRITE
  • Prompt: !!
  • Line Location: NEXTP+31
Function Call: WRITE
  • Prompt: !
  • Line Location: NEXTP+36
Function Call: WRITE
  • Prompt: !,IBER,!
  • Line Location: ERROR+1
Function Call: WRITE
  • Prompt: !,IBER
  • Line Location: PCERR+1
Routine Call
  • DIR
  • Line Location:
    • ASK+33
    • NEXTP+34
    • NEXTP+46

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] ASK+9, ASK+16, ASK+21, ASK+29, CHKB1+5, CHKB1+8, NEXTP+7, SKIP+8
^DIC(36 - [#36] CHKB1+25, NEXTP+15, NEXTP+24
^UTILITY($J KVAR+1!
^VA(200 - [#200] CHKB1+17

Label References

Name Line Occurrences
ASK ASK+9, ASK+16, ASK+21, ASK+29, ASK1+2
ASK1 CHKB1+6, CHKB1+9, CHKB1+12, NEXTP+5, NEXTP+11, NEXTP+12, NEXTP+14, NEXTP+15, NEXTP+34, NEXTP+38
END SKIP+3, SKIP+27, SKIP+32
ERROR NEXTP+9, NEXTP+25, NEXTP+26
EXIT ASK+6, CHKB+3, CHKB+6, ASK1+1
KVAR ASK+3, SKIP+35
NEXTP NEXTP+18
PCERR CHKB1+9, CHKB1+19, NEXTP+5, NEXTP+11, NEXTP+12, NEXTP+14, NEXTP+15
SKIP NEXTP+29

Naked Globals

Name Field # of Occurrence
^(0 NEXTP+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN ASK+5*, CHKB1+5*, KVAR!
DIR ASK+33!, NEXTP+34!, NEXTP+46!, KVAR!
DIR("?" NEXTP+32*, NEXTP+33*, NEXTP+40*, NEXTP+41*
DIR("A" ASK+32*, NEXTP+34*, NEXTP+42*
DIR("B" ASK+32*, NEXTP+44*
DIR(0 ASK+32*, NEXTP+34*, NEXTP+45*
DIRUT NEXTP+46, KVAR!
IB KVAR!
IB( CHKB1+8*
IB("M" NEXTP+14, NEXTP+23
IB("M1" NEXTP+7
IB("MP" CHKB1+25
IB("S" CHKB1+12, CHKB1+15, CHKB1+17
IB(0 CHKB1+9, NEXTP+5, NEXTP+14, NEXTP+15, NEXTP+26, NEXTP+34, NEXTP+42
IBAC ASK+5*, KVAR!
IBAC1 CHKB1+6, KVAR!
IBCAN ASK+3*, CHKB1+6, EXIT!
>> IBCBASK ASK1+1
IBCBCOPY ASK+1*, KVAR!
IBCOB CHKB1+22*, CHKB1+24, NEXTP+47!, SKIP+22, EXIT!
IBCOB("M1" SKIP+33*
IBCOB("U2" NEXTP+48*, SKIP+18*
IBCOB(0 SKIP+30*, SKIP+31*, SKIP+32
IBCOBIL KVAR!
IBCOBIL( NEXTP+7*, NEXTP+11
IBCOBN CHKB1+22*, NEXTP+3*, NEXTP+7, NEXTP+14, NEXTP+21, NEXTP+23, NEXTP+48, SKIP+18, SKIP+31, SKIP+33
, KVAR!
IBDATA KVAR!
IBDT CHKB1+5*, KVAR!
IBER CHKB1+5*, CHKB1+9*, CHKB1+14*, CHKB1+15*, CHKB1+18*, NEXTP+5*, NEXTP+9*, NEXTP+11*, NEXTP+12*, NEXTP+14*
, NEXTP+15*, NEXTP+25*, NEXTP+26*, ERROR+1, ERROR+2, ERROR+3*, KVAR!, PCERR+1, PCERR+2, PCERR+3*
>> IBERRMSG SKIP+23*, ERROR+2*, PCERR+2*
IBI CHKB1+8*, KVAR!
>> IBIDS( SKIP+34*
IBIFN ASK+5*, ASK+6, ASK+9, ASK+16, ASK+21, ASK+29, ASK+36, CHKB+2, CHKB+3, CHKB+6
, CHKB1+5, CHKB1+8, CHKB1+22, CHKB1+23, NEXTP+7, NEXTP+12*, NEXTP+43, SKIP+8, SKIP+15, SKIP+16
, SKIP+22, SKIP+33, SKIP+34, KVAR!, DSPRB~, DSPRB+2, CTCOPY~, CTCOPY+3
IBINS NEXTP+15*, NEXTP+18, NEXTP+26, NEXTP+34, KVAR!
IBINSN NEXTP+14*, NEXTP+15, NEXTP+19, KVAR!
IBINSOLD CHKB1+25*, NEXTP+42, KVAR!
IBMRA NEXTP+17*, NEXTP+24*, NEXTP+25, NEXTP+33, KVAR!, CTCOPY~, CTCOPY+3
IBMRAI KVAR!
IBMRAIO CHKB1+23*, CHKB1+25, SKIP+22, KVAR!
>> IBMRANOT ASK+9
IBMRAO CHKB1+23*, CHKB1+24, CHKB1+25, NEXTP+32, NEXTP+34, NEXTP+38, SKIP+3, KVAR!
IBND0 KVAR!
IBNM NEXTP+3*, NEXTP+5, NEXTP+9, NEXTP+12, NEXTP+14, NEXTP+15, NEXTP+24*, NEXTP+26, NEXTP+32, NEXTP+33
, NEXTP+34, KVAR!
IBNMOLD CHKB1+24*, NEXTP+5, NEXTP+40, NEXTP+42, KVAR!
IBPRTOT SKIP+4~, SKIP+15*, SKIP+16*, SKIP+17*, SKIP+18
IBPTRESP SKIP+4~, SKIP+15*
>> IBQ NEXTP+18*, NEXTP+25*, NEXTP+26*, NEXTP+37*, NEXTP+38, NEXTP+46*
>> IBQUIT ASK+12*
>> IBSECHK CHKB+2*, CHKB+3, NEXTP+34*, ERROR+4*, PCERR+4*
>> IBSILENT NEXTP+29, SKIP+23, SKIP+27, ERROR+1, PCERR+1, PCERR+2
>> IBSTSM SKIP+3, SKIP+15, SKIP+16, SKIP+22, SKIP+27
IBT KVAR!
IBTOTCHG SKIP+4~, SKIP+5*, SKIP+8*, SKIP+15
IBU ASK+3*, EXIT!
IBV ASK+5*, KVAR!
IBX ASK+5*, CHKB1+5*, NEXTP+7*, NEXTP+9*, NEXTP+11, NEXTP+12, KVAR!
IBY NEXTP+7*, NEXTP+9, NEXTP+12, KVAR!
U ASK+5, ASK+9, ASK+16, ASK+21, ASK+29, CHKB1+5, CHKB1+12, CHKB1+15, CHKB1+17, NEXTP+5
, NEXTP+7, NEXTP+9, NEXTP+12, NEXTP+14, NEXTP+15, NEXTP+18, NEXTP+23, NEXTP+24, NEXTP+26, NEXTP+34
, NEXTP+42, SKIP+8
WHO CHKB1+13~, CHKB1+16*, CHKB1+17*, CHKB1+18
X KVAR!
Y ASK+29, NEXTP+34, NEXTP+46, NEXTP+48, KVAR!
Z NEXTP+22~, NEXTP+23*, NEXTP+24, NEXTP+39~, NEXTP+43*, NEXTP+44
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All