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 |  Local Variables  | All
Print Page as PDF
Routine: IBCECOB2

Package: Integrated Billing

Routine: IBCECOB2


Information

IBCECOB2 ;ALB/CXW - IB COB MANAGEMENT SCREEN ;16-JUN-1999

Source Information

Source file <IBCECOB2.m>

Call Graph

Call Graph

Call Graph Total: 25

Package Total Call Graph
Integrated Billing 19 (3,4)^IBCB1  VIEW^IBCB2  (,CRD)^IBCCC  CHKB^IBCCCB  DSPRB^IBCCCB0  ($$WLRMVF,BLD)^IBCECOB1  EN^IBCECSA  $$RESUB^IBCECSA4  
$$COBN^IBCEF  FASTEXIT^IBCEFG4  UPDEDI^IBCEM  PRINT1^IBCEM03  ($$CANCKS,CANCEL)^IBCEM3  MRA^IBCEMRAA  ($$MSEDT,$$MSPRE)^IBCEMU4  ($$LOCK,$$PREOBTOT,UNLOCK)^IBCEU0  
$$EOBTOT^IBCEU1  $$ARSTATA^IBJTU4  $$EXPAND^IBTRE  
List Manager 3 EN^VALM  (FULL,PAUSE)^VALM1  EN^VALM2  
Kernel 2 ENS^%ZISS  $$KCHK^XUSRB  
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: 22

Package Total Caller Graph
Integrated Billing 22 IBCAPP1  IBCECOB  IBCECOB1  IBCECOB5  IBCECOB6  IBCECSA4  IBCEM CLONE BILL  IBCEM COB CANCEL  
IBCEM COB CSA  IBCEM COB EDI  IBCEM COB EDIT BILL  IBCEM COB EOB  IBCEM COB EXIT  IBCEM COB MRA PRINT  IBCEM COB RESUBMIT  IBCEM COB TPJI  
IBCEM COB V/P BILL  IBCEM COPY SECOND/THIRD  IBCEM CORRECT REJECTED/DENIED BILL  IBCEMSR3  IBCEXTR2  IBRFIWL1  

Entry Points

Name Comments DBIA/ICR reference
EDI ;history detail display
EDI1(IBIFN) ;
EDI2(IBIFN) ;
CSA ;claims status awaiting resolution
RVEOB ;Review EOB
VEOBQ
TPJI ;Third Party joint Inquiry
TPJIQ
TPJI1(IBIFN) ;
PBILL ;Print bill
PBOUT
PMRA ;Print MRA
PRMQ
PBILL1(IBIFN) ;
CANCEL ;Cancel bill
; IBDA(IBDA)=IBIFN^IB364^ien of 361.1^user selection seq^user name~duz#
CANCELQ
CRD ; Correct Rejected/Denied claim protocol action
CLONE ; 'Copy/cancel bill' protocol action
CLONEQ ;
COPYCLON(IBIFN,IB364,IBQ) ; Generic entry point for clone a bill from EDI processing
; IBIFN = original bill ien
; IB364 = the ien of the transmission bill entry in file 364
; IBQ = If bill is not cancelled, this is returned as null
; - pass by reference -
CCQ
PRO ; Copy for secondary/tertiary bill
PROQ
COBCOPY(IBIFN,IB364,IBFROM,IBIEN,IBBLD,IBNCN) ; Generic entry point for EDI COB copy
; IBIFN = original bill ien
; IB364 = the ien of the transmission bill entry in file 364
; IBFROM = 1 if called from CSA, 2 if called from COB/EOB processing
; IBIEN = entry in 361 (IBFROM=1) or 361.1 (IBFROM=2) being processed
; IBBLD = the name of the entrypoint that will rebuild the display
; IBNCN = by reference, returns the new claim ien if user completed the Copy process
COBCOPX ;
AUTH ; procedure to authorize the claim and refresh the screen
AUTHX ;
RES ;Resubmit bill by print
RESQ
EBI ;View an unauthorized transmitted bill
EDITQ
SEL(IBDA,ONE) ; Select entry(s) from list
; IBDA = array returned if selections made
; IBDA(n)=ien of bill selected (file 399)
; ONE = if set to 1, only one selection can be made at a time
EXIT ; Exit out of COB
TOT(IBIFN,IBMRANOT) ; calculate if any balance remaining on non-MRA claim
; IBIFN = claim ien
; IBMRANOT = MRW/CBW flag (1=user came from CBW) added with IB*2.0*447
CCCHK(IBIFN) ; If there are multiple EOBS on file for this claim, then one of them must be processed and AR status must be collected closed to process.
; returns 1 if true
; 0 if there are not multiple EOBs or mulitple EOBs and none are processed (all denials)
; -1 if false
DENCHK(IBIFN,IBCT) ; Make sure all EOBs from this claim are denied.
; Input: IBIFN - IEN to 399
; IBCT - by reference. Return count of EOBs.
; Output: returns 1 if there is at least one EOB and that none of the EOBS are processed.
; otherwise 0
WARNMSE() ; Display MSE Warning and check if we should continue.

External References

Name Field # of Occurrence
ENS^%ZISS AUTH+2, EBI+10
^DIR WARNMSE+5
3^IBCB1 AUTH+1
4^IBCB1 PBILL1+5
VIEW^IBCB2 COBCOPY+53, EBI+9
^IBCCC COPYCLON+12
CRD^IBCCC COPYCLON+13
CHKB^IBCCCB COBCOPY+46
DSPRB^IBCCCB0 COBCOPY+44
$$WLRMVF^IBCECOB1 CANCEL+47, CLONE+35, PRO+20
BLD^IBCECOB1 CANCEL+48, CLONEQ+2, PRO+24, RES+7, EBI+11
EN^IBCECSA CSA+2
$$RESUB^IBCECSA4 PBILL+5
$$COBN^IBCEF COBCOPY+39, TOT+6
FASTEXIT^IBCEFG4 EXIT+1
UPDEDI^IBCEM COPYCLON+24, AUTH+3
PRINT1^IBCEM03 PBILL+10, RES+5
$$CANCKS^IBCEM3 COPYCLON+8
CANCEL^IBCEM3 CANCEL+42
MRA^IBCEMRAA PMRA+9
$$MSEDT^IBCEMU4 TOT+4
$$MSPRE^IBCEMU4 TOT+4
$$LOCK^IBCEU0 CANCEL+41, CLONE+30, PRO+14
$$PREOBTOT^IBCEU0 TOT+4
UNLOCK^IBCEU0 CANCEL+43, CLONE+32, PRO+16
$$EOBTOT^IBCEU1 TOT+6
$$ARSTATA^IBJTU4 CANCEL+18, CCCHK+14
$$EXPAND^IBTRE COPYCLON+23
EN^VALM EDI1+4, EDI2+4, RVEOB+9, TPJI1+4
FULL^VALM1 RVEOB+1, PBILL1+6, CANCEL+7, CANCEL+19, CANCEL+27, CANCEL+35, CLONE+9, CLONE+23, PRO+4, COBCOPY+18
EBI+3, SEL+6, WARNMSE+1
PAUSE^VALM1 PBILL+6, PBILL1+6, CANCEL+10, CANCEL+22, CANCEL+30, CANCEL+37, CLONE+14, CLONE+26, COPYCLON+26, PRO+7
, COBCOPY+11, COBCOPY+21, COBCOPY+27, COBCOPY+35, COBCOPY+41, AUTH+5, RES+6
EN^VALM2 SEL+7
$$KCHK^XUSRB CANCEL+6, CLONE+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RVEOB+1
Function Call: WRITE
  • Prompt: !,*7,"This is not a transmittable bill or review not needed"
  • Line Location: PBILL+6
Function Call: WRITE
  • Prompt: !!?5,"You don't hold the proper security key to access this function."
  • Line Location: CANCEL+8
Function Call: WRITE
  • Prompt: !?5,"The necessary key is IB AUTHORIZE. Please see your manager."
  • Line Location: CANCEL+9
Function Call: WRITE
  • Prompt: !!,*7,"You can only cancel denied claims. This claim is in a COLLECTED/CLOSED status"
  • Line Location: CANCEL+20
Function Call: WRITE
  • Prompt: !,"Use Remove Action to remove claim from this worklist."
  • Line Location: CANCEL+21
Function Call: WRITE
  • Prompt: !!,*7,"Multiple EOBs exist for this claim and at least one has EOB status of PROCESSED."
  • Line Location: CANCEL+28
Function Call: WRITE
  • Prompt: !,"Use Remove Action to remove claim from this worklist."
  • Line Location: CANCEL+29
Function Call: WRITE
  • Prompt: !!?5,*7,"You can only cancel denied claims."
  • Line Location: CANCEL+36
Function Call: WRITE
  • Prompt: !!?5,"You must hold the "_IBKEY_" security key to access this function."
  • Line Location: CLONE+12
Function Call: WRITE
  • Prompt: !?5,"Please see your manager."
  • Line Location: CLONE+13
Function Call: WRITE
  • Prompt: !!,*7,"Multiple EOBs exist for this claim and at least one has EOB status of PROCESSED."
  • Line Location: CLONE+24
Function Call: WRITE
  • Prompt: !,"Use Remove Action to remove claim from this worklist."
  • Line Location: CLONE+25
Function Call: WRITE
  • Prompt: !!?5,"MRA's may not be processed at this time."
  • Line Location: PRO+5
Function Call: WRITE
  • Prompt: !?5,"The IB site parameter ""Allow MRA Processing?"" is set to NO."
  • Line Location: PRO+6
Function Call: WRITE
  • Prompt: !,"Transmission record is missing for this bill"
  • Line Location: COBCOPY+11
Function Call: WRITE
  • Prompt: !!?5,"There is no "_$S($G(IBMRANOT)=1:"balance remaining",1:"patient responsibility and/or excess charges")_" for this claim."
  • Line Location: COBCOPY+19
Function Call: WRITE
  • Prompt: !?5,"This claim may not be processed."
  • Line Location: COBCOPY+20
Function Call: WRITE
  • Prompt: !!,"This claim has already been processed as a sec/tert claim."
  • Line Location: COBCOPY+25
Function Call: WRITE
  • Prompt: !,"You will need to complete the authorization process for this claim."
  • Line Location: COBCOPY+26
Function Call: WRITE
  • Prompt: !,"Multiple EOBs exist for this claim and at least one has EOB status of PROCESSED."
  • Line Location: COBCOPY+33
Function Call: WRITE
  • Prompt: !,"Claim cannot be sent to next payer until AR status is Collected/Closed."
  • Line Location: COBCOPY+34
Function Call: WRITE
  • Prompt: !,"There is no next payer for this bill"
  • Line Location: COBCOPY+40
Routine Call
  • DIR
  • Line Location:
    • WARNMSE+5
Routine Call
  • VALM
  • Line Location:
    • EDI1+4
    • EDI2+4
    • RVEOB+9
    • TPJI1+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] EDI1+3, EDI2+3, TPJI1+3, PBILL1+3, CANCEL+47, COPYCLON+17, COPYCLON+22, COPYCLON+23, COBCOPY+39, EBI+7
, TOT+6, TOT+12
^IBE(350.9 - [#350.9] PRO+3
^IBM(361.1 - [#361.1] PMRA+8, CANCEL+34, PRO+13, COBCOPY+24, AUTH+3, CCCHK+7, CCCHK+9, CCCHK+11, DENCHK+9, DENCHK+11
, DENCHK+13
^TMP("IBCECOB" SEL+8
^TMP("IBCECOB1" RVEOB+8
^TMP("IBCECOC" VEOBQ!
^TMP($J EBI+2!
^UTILITY($J AUTH+1!

Label References

Name Line Occurrences
$$CCCHK COBCOPY+32
$$DENCHK CANCEL+26, CLONE+22
$$TOT COBCOPY+17
$$WARNMSE PMRA+8, PRO+13
@( AUTH+4
AUTH COBCOPY+28, COBCOPY+54
CANCELQ CANCEL+6, CANCEL+18, CANCEL+26, CANCEL+34, CLONE+22
CCQ COPYCLON+8
CLONEQ CLONE+8, CLONE+19, CLONE+30
COBCOPX COBCOPY+11, COBCOPY+17, COBCOPY+24, COBCOPY+32, COBCOPY+39, COBCOPY+49
COBCOPY PRO+15
COPYCLON CLONE+31
EDI1 EDI+4
EDITQ EBI+8
PBILL1 PBILL+11
PBOUT PBILL+4, PBILL+6, PBILL+7
PRMQ PMRA+7, PMRA+8
PROQ PRO+3, PRO+10, PRO+12, PRO+13, PRO+14
RESQ RES+4
SEL EDI+2, RVEOB+3, TPJI+2, PBILL+2, PMRA+2, CANCEL+13, CLONE+17, PRO+9, RES+2, EBI+5
TPJI1 TPJI+5
TPJIQ TPJI+4
VEOBQ RVEOB+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN EDI1+1~, EDI1+3*, EDI2+1~, EDI2+3*, TPJI1+1~, TPJI1+3*, PBILL1+1~, PBILL1+3*, EBI+1~, EBI+7*
DIR WARNMSE+2~
DIR("A" WARNMSE+3*, WARNMSE+4*, WARNMSE+5*
DIR("B" WARNMSE+5*
DIR(0 WARNMSE+5*
IB SEL+4~
IB364 PBILL+8~, PBILL+9*, PBILL+10, CANCEL+3~, CANCEL+14*, CANCEL+42, COPYCLON~, COPYCLON+24, PRO+1~, PRO+11*
PRO+15, COBCOPY~, COBCOPY+11, AUTH+3, RES+1~, RES+3*, RES+5, EBI+1~, EBI+7*
IBAC PBILL1+1~, PBILL1+4*, COBCOPY+8~, AUTH+1*
IBAC1 PBILL1+1~, PBILL1+4*
IBARSTAT CCCHK+4~, CCCHK+14*, CCCHK+15
IBAUTO COBCOPY+8~, COBCOPY+10*
IBBLD COBCOPY~, AUTH+4, TOT+3~, TOT+12*, TOT+13*, TOT+14
IBCAN COPYCLON+6~, COPYCLON+11*, COBCOPY+8~, COBCOPY+10*
IBCBASK COBCOPY+8~, COBCOPY+10*
IBCBCOPY COBCOPY+8~, COBCOPY+10*
IBCBN TOT+3~, TOT+6*, TOT+8, TOT+9
IBCCCC COPYCLON+6~, COPYCLON+11*
IBCE COPYCLON+6~, PRO+1~
IBCE("EDI" COPYCLON+11*, COPYCLON+16!, COBCOPY+45*, COBCOPY+47
>> IBCEAUTO COPYCLON+23, COPYCLON+26
IBCMT RVEOB+2~, RVEOB+8*, RVEOB+9
IBCNCOPY COPYCLON+6~, COPYCLON+12*
IBCNCRD CRD+1~, CRD+2*, CLONE+35, COPYCLON+8, COPYCLON+12, COPYCLON+13
IBCOB COBCOPY+9~
IBCOBIL COBCOPY+9~
IBCOBN COBCOPY+9~
IBCT CCCHK+4~, CCCHK+5*, CCCHK+10*, CCCHK+12, DENCHK~, DENCHK+7*, DENCHK+12*, DENCHK+14
IBDA EDI+1~, EDI+2, EDI+3*, RVEOB+2~, RVEOB+3, RVEOB+5*, RVEOB+6*, TPJI+1~, TPJI+2, TPJI+3*
TPJI+4, PBILL+1~, PBILL+2, PBILL+3*, PBILL+4, PBILL+9, PBILL+10, PMRA+1~, PMRA+2, PMRA+6*
CANCEL+3~, CANCEL+13, CANCEL+14*, CANCEL+15, CANCEL+40, CANCEL+42, CANCEL+47, CANCEL+48, CLONE+1~, CLONE+17
CLONE+18*, CLONE+19, CLONE+22, CLONE+29, CLONE+31, CLONE+35, COPYCLON+6~, PRO+1~, PRO+9, PRO+11*
PRO+13, PRO+14, PRO+15, PRO+16, COBCOPY+8~, COBCOPY+10*, COBCOPY+24, RES+1~, RES+2, RES+3*
RES+5, RES+7, EBI+1~, EBI+5, EBI+6*, EBI+7, SEL~, SEL+5!, SEL+8*, CCCHK+4~
, CCCHK+7*, CCCHK+8, CCCHK+9, CCCHK+10, CCCHK+11, DENCHK+6~, DENCHK+9*, DENCHK+10, DENCHK+11, DENCHK+12
, DENCHK+13
IBDA( EDI+3, RVEOB+5, TPJI+3, PBILL+3, PBILL+9, PMRA+6, CANCEL+14, CANCEL+15, CANCEL+47, CLONE+22
CLONE+29, CLONE+31, CLONE+35, PRO+10, RES+3, EBI+7, SEL+8*
IBDA("" CLONE+18, EBI+6
IBDA(0 EDI+3, RVEOB+4, TPJI+3, PBILL+3, PMRA+6, CANCEL+14, PRO+10, RES+3
IBDAX CSA+1~, PMRA+1~, PMRA+6*, PMRA+8
IBDENCT CANCEL+3~, CANCEL+26, CLONE+1~, CLONE+22
IBEOB CCCHK+4~, DENCHK+6~
IBEOB( CCCHK+8, CCCHK+10*, DENCHK+10, DENCHK+12*
IBEOBIFN CANCEL+3~, CANCEL+15*, CANCEL+18, CANCEL+34, CANCEL+41, CANCEL+43, CLONE+1~, CLONE+29*, CLONE+30, CLONE+32
IBEOBNDX CCCHK+4~, CCCHK+6*, CCCHK+7, DENCHK+6~, DENCHK+8*, DENCHK+9
IBFASTXT EDI1+5!, EDI2+5!, CSA+3!, TPJI1+5!, EXIT+2*
IBFLG EBI+1~
IBFROM COBCOPY~, COBCOPY+14
IBHV COPYCLON+6~
IBHV("IBIFN" COPYCLON+11*, COPYCLON+15
IBHV("IBIFN1" COPYCLON+11*, COPYCLON+18, COPYCLON+21, COPYCLON+22, COPYCLON+23
IBIEN COBCOPY~, COBCOPY+10
IBIFN EDI+1~, EDI+3*, EDI+4, EDI1~, EDI1+2, EDI1+3, EDI2~, EDI2+2, EDI2+3, RVEOB+2~
RVEOB+6*, RVEOB+7, TPJI+1~, TPJI+3*, TPJI+5, TPJI1~, TPJI1+2, TPJI1+3, PBILL+1~, PBILL+3*
PBILL+5, PBILL+10, PBILL+11, PMRA+1~, PMRA+6*, PMRA+7, PMRA+9, PBILL1~, PBILL1+2, PBILL1+3
CANCEL+3~, CANCEL+14*, CANCEL+18, CANCEL+26, CANCEL+42, CANCEL+47, COPYCLON~, COPYCLON+8, COPYCLON+11, COPYCLON+15*
, COPYCLON+17, PRO+1~, PRO+11*, PRO+12, PRO+15, PRO+19, PRO+20, COBCOPY~, COBCOPY+11, COBCOPY+13
, COBCOPY+17, COBCOPY+32, COBCOPY+39, COBCOPY+44, COBCOPY+48*, RES+1~, RES+3*, RES+4, RES+5, EBI+1~
EBI+7*, EBI+8, TOT~, TOT+4, TOT+6, TOT+12, CCCHK~, CCCHK+7, CCCHK+14, DENCHK~
, DENCHK+9
IBIFNH PRO+1~, PRO+11*, COBCOPY+8~, COBCOPY+13*, COBCOPY+48
IBINS COBCOPY+9~
IBINSN COBCOPY+9~
IBINSOLD COBCOPY+9~
IBKEY CLONE+1~, CLONE+7*, CLONE+8, CLONE+12
IBLMVAR COBCOPY+8~
IBMRAIEN COBCOPY+8~, COBCOPY+10*, AUTH+3
IBMRAIO COBCOPY+9~
IBMRANOT PMRA+8, CANCEL+18, CANCEL+26, CANCEL+34, CANCEL+47, CLONE+22, CLONE+35, PRO+3, PRO+13, PRO+19
PRO+24, COBCOPY+11, COBCOPY+17, COBCOPY+19, COBCOPY+32, COBCOPY+52, TOT~, TOT+4
IBMRAO COBCOPY+9~
IBNCN PRO+1~, PRO+15, PRO+19, COBCOPY~, COBCOPY+47*
>> IBNIEN COPYCLON+21*
IBNMOLD COBCOPY+9~
IBNOTPJI TPJI1+1~, TPJI1+3*
IBNSTAT COBCOPY+8~
IBOSTAT COBCOPY+8~
IBPRCOB COBCOPY+8~, COBCOPY+10*, COBCOPY+14*
IBPROC CCCHK+4~, CCCHK+5*, CCCHK+11*, CCCHK+13, DENCHK+6~, DENCHK+7*, DENCHK+13*, DENCHK+14
IBPRTOT TOT+3~, TOT+6*, TOT+7*, TOT+8*, TOT+9*, TOT+10*, TOT+12
IBQ CLONE+1~, CLONE+31, CLONE+35, CLONEQ+2, COPYCLON~, COPYCLON+8*, COPYCLON+16*, COPYCLON+17*
IBQUIT COPYCLON+6~, COBCOPY+9~, AUTH+1*
IBRESUB PBILL+1~, PBILL+5*, PBILL+6, PBILL+7
IBSECHK COBCOPY+8~, COBCOPY+10*, COBCOPY+49
IBSEL RVEOB+2~, RVEOB+4*, RVEOB+5, RVEOB+8
IBU COPYCLON+19~, COPYCLON+20*, COPYCLON+23*, COPYCLON+24
IBU2 TOT+3~, TOT+6*, TOT+8, TOT+9
>> IBV COBCOPY+53*, EBI+9*
>> IORVON AUTH+2, EBI+10
>> IOUON AUTH+2, EBI+10
ONE SEL~, SEL+7
U EDI1+3, EDI2+3, RVEOB+6, TPJI1+3, PBILL+9, PMRA+6, PBILL1+3, CANCEL+14, CANCEL+15, CANCEL+18
CANCEL+34, CANCEL+47, CLONE+29, CLONE+31, COPYCLON+17, COPYCLON+22, COPYCLON+23, PRO+3, PRO+11, COBCOPY+24
, COBCOPY+39, AUTH+3, RES+3, EBI+7, SEL+8, TOT+8, TOT+9, TOT+12, CCCHK+9, CCCHK+11
, CCCHK+15, DENCHK+11, DENCHK+13
>> VALMBCK EDI+5*, CSA+4*, VEOBQ+1*, TPJIQ*, PBOUT*, PRMQ*, CANCEL+7*, CANCEL+19*, CANCEL+27*, CANCEL+35*
CANCEL+44*, CLONE+9*, CLONE+23*, CLONEQ+1*, PROQ*, RESQ*, EDITQ*
VALMY PRO+1~
VALMY( SEL+8
X CANCEL+3~, CANCEL+47*, CLONE+1~, CLONE+35*, PRO+20*, WARNMSE+2~
>> XQORNOD(0 SEL+7
Y COPYCLON+6~, COPYCLON+11*, WARNMSE+2~, WARNMSE+6
Z PRO+1~, PRO+10*, PRO+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All