IBCECOB2 ;ALB/CXW - IB COB MANAGEMENT SCREEN ;16-JUN-1999
Source file <IBCECOB2.m>
| 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,IBRESULT) | ;WCJ;IB641;US3380;added IBRESULT parameter
|
|
| 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.
|
|
| WARNIBMRANOT() | ;TPF;EBILL-2436;IB*2.0*727;WCJ-lessened to warning
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
