IBCECOB2 ;ALB/CXW - IB COB MANAGEMENT SCREEN ;16-JUN-1999
Source file <IBCECOB2.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 21 | $$FILERR^IBCAPP2 (3,ALT4)^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 ($$SPLIT,$$SPLIT2,$$SPLTMRA)^IBCEMU1 ($$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 |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 | Field # of Occurrence |
|---|---|
| ENS^%ZISS | AUTH+2, EBI+10 |
| ^DIR | WARNMSE+5, WARNIBMRANOT+5, WARNIBMRANOT+13 |
| $$FILERR^IBCAPP2 | PRO+18 |
| 3^IBCB1 | AUTH+1 |
| ALT4^IBCB1 | PBILL1+7 |
| VIEW^IBCB2 | COBCOPY+53, EBI+9 |
| ^IBCCC | COPYCLON+12 |
| CRD^IBCCC | COPYCLON+13 |
| CHKB^IBCCCB | COBCOPY+46 |
| DSPRB^IBCCCB0 | COBCOPY+44 |
| $$WLRMVF^IBCECOB1 | CANCEL+54, CLONE+45, PRO+34 |
| BLD^IBCECOB1 | CANCEL+55, CLONEQ+2, PRO+38, 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+49 |
| MRA^IBCEMRAA | PMRA+9 |
| $$SPLIT^IBCEMU1 | CANCEL+42, CLONE+34, PRO+23 |
| $$SPLIT2^IBCEMU1 | CANCEL+42, CLONE+34, PRO+23 |
| $$SPLTMRA^IBCEMU1 | CANCEL+42, CLONE+34, PRO+23 |
| $$MSEDT^IBCEMU4 | TOT+4 |
| $$MSPRE^IBCEMU4 | TOT+4 |
| $$LOCK^IBCEU0 | CANCEL+48, CLONE+40, PRO+28 |
| $$PREOBTOT^IBCEU0 | TOT+4 |
| UNLOCK^IBCEU0 | CANCEL+50, CLONE+42, PRO+30 |
| $$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+8, CANCEL+7, CANCEL+19, CANCEL+27, CANCEL+35, CANCEL+43, CLONE+10, CLONE+25, CLONE+35 , PRO+4, PRO+24, COBCOPY+18, EBI+3, SEL+6, WARNMSE+1, WARNIBMRANOT+1, WARNIBMRANOT+9 |
| PAUSE^VALM1 | PBILL+6, PBILL1+8, CANCEL+10, CANCEL+22, CANCEL+30, CANCEL+37, CANCEL+45, CLONE+15, CLONE+28, CLONE+37 , COPYCLON+26, PRO+7, PRO+26, COBCOPY+11, COBCOPY+21, COBCOPY+27, COBCOPY+35, COBCOPY+41, AUTH+5, RES+6 |
| EN^VALM2 | SEL+7 |
| $$KCHK^XUSRB | CANCEL+6, CLONE+9 |
| 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 |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | EDI1+3, EDI2+3, TPJI1+3, PBILL1+4, CANCEL+54, 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+15, 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! |
| Name | Line Occurrences |
|---|---|
| $$CCCHK | COBCOPY+32 |
| $$DENCHK | CANCEL+26, CLONE+24 |
| $$TOT | COBCOPY+17 |
| $$WARNIBMRANOT | PRO+18 |
| $$WARNMSE | PMRA+8, PRO+15 |
| @( | AUTH+4 |
| AUTH | COBCOPY+28, COBCOPY+54 |
| CANCELQ | CANCEL+6, CANCEL+18, CANCEL+26, CANCEL+34, CANCEL+42, CLONE+24 |
| CCQ | COPYCLON+8 |
| CLONEQ | CLONE+9, CLONE+21, CLONE+34, CLONE+40 |
| COBCOPX | COBCOPY+11, COBCOPY+17, COBCOPY+24, COBCOPY+32, COBCOPY+39, COBCOPY+49 |
| COBCOPY | PRO+29 |
| COPYCLON | CLONE+41 |
| 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+14, PRO+15, PRO+18, PRO+23, PRO+28 |
| RESQ | RES+4 |
| SEL | EDI+2, RVEOB+3, TPJI+2, PBILL+2, PMRA+2, CANCEL+13, CLONE+18, PRO+9, RES+2, EBI+5 |
| TPJI1 | TPJI+5 |
| TPJIQ | TPJI+4 |
| VEOBQ | RVEOB+7 |
| >> | 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+4*, EBI+1~, EBI+7* |
| DIR | WARNMSE+2~, WARNIBMRANOT+2~, WARNIBMRANOT+11~ |
| DIR("A" | WARNMSE+3*, WARNMSE+4*, WARNMSE+5*, WARNIBMRANOT+3*, WARNIBMRANOT+4*, WARNIBMRANOT+5* |
| DIR("B" | WARNMSE+5*, WARNIBMRANOT+5* |
| DIR(0 | WARNMSE+5*, WARNIBMRANOT+5*, WARNIBMRANOT+12* |
| IB | SEL+4~ |
| IB364 | PBILL+8~, PBILL+9*, PBILL+10, CANCEL+3~, CANCEL+14*, CANCEL+49, COPYCLON~, COPYCLON+24, PRO+1~, PRO+11* , PRO+29, COBCOPY~, COBCOPY+11, AUTH+3, RES+1~, RES+3*, RES+5, EBI+1~, EBI+7* |
| IBAC | PBILL1+1~, PBILL1+5*, COBCOPY+8~, AUTH+1* |
| IBAC1 | PBILL1+1~, PBILL1+5* |
| 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+36, CLONE+45, 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+47, CANCEL+49, CANCEL+54, CANCEL+55, CLONE+2~, CLONE+18 , CLONE+20*, CLONE+21, CLONE+24, CLONE+33, CLONE+39, CLONE+41, CLONE+45, COPYCLON+6~, PRO+1~, PRO+9 , PRO+11*, PRO+13, PRO+15, PRO+28, PRO+29, PRO+30, 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+54, CLONE+20 , CLONE+24, CLONE+33, CLONE+39, CLONE+41, CLONE+45, PRO+10, RES+3, EBI+7, SEL+8* |
| IBDA("" | EBI+6 |
| IBDA(0 | EDI+3, RVEOB+4, TPJI+3, PBILL+3, PMRA+6, CANCEL+14, CLONE+20, PRO+10, RES+3 |
| IBDAX | CSA+1~, PMRA+1~, PMRA+6*, PMRA+8 |
| IBDENCT | CANCEL+3~, CANCEL+26, CLONE+2~, CLONE+24 |
| IBEOB | CCCHK+4~, DENCHK+6~ |
| IBEOB( | CCCHK+8, CCCHK+10*, DENCHK+10, DENCHK+12* |
| IBEOBIFN | CANCEL+3~, CANCEL+15*, CANCEL+18, CANCEL+34, CANCEL+42, CANCEL+48, CANCEL+50, CLONE+2~, CLONE+32~, CLONE+33* , CLONE+34, CLONE+39*, CLONE+40, CLONE+42, PRO+12~, PRO+13*, PRO+23 |
| 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+3, PBILL1+4 , CANCEL+3~, CANCEL+14*, CANCEL+18, CANCEL+26, CANCEL+42, CANCEL+49, CANCEL+54, CLONE+2~, CLONE+20*, CLONE+34 , COPYCLON~, COPYCLON+8, COPYCLON+11, COPYCLON+15*, COPYCLON+17, PRO+1~, PRO+11*, PRO+14, PRO+18, PRO+23 , PRO+29, PRO+33, PRO+34, 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+2~, CLONE+8*, CLONE+9, CLONE+13 |
| IBLMVAR | COBCOPY+8~ |
| IBMRAIEN | COBCOPY+8~, COBCOPY+10*, AUTH+3 |
| IBMRAIO | COBCOPY+9~ |
| IBMRANOT | PMRA+8, CANCEL+18, CANCEL+26, CANCEL+34, CANCEL+42, CANCEL+54, CLONE+24, CLONE+34, CLONE+45, PRO+3 , PRO+15, PRO+18, PRO+23, PRO+33, PRO+38, COBCOPY+11, COBCOPY+17, COBCOPY+19, COBCOPY+32, COBCOPY+52 , TOT~, TOT+4 |
| IBMRAO | COBCOPY+9~ |
| IBNCN | PRO+1~, PRO+29, PRO+33, 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+2~, CLONE+41, CLONE+45, 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 |
| IBRESULT | PBILL+11, PBILL1~, PBILL1+2*, PBILL1+7 |
| IBRETSPLT | CANCEL+41~, CANCEL+42, CLONE+32~, CLONE+34, PRO+21~, PRO+23 |
| 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+4, CANCEL+14, CANCEL+15, CANCEL+18 , CANCEL+34, CANCEL+54, CLONE+33, CLONE+39, CLONE+41, 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+43*, CANCEL+51*, CLONE+10*, CLONE+25*, CLONE+35*, CLONEQ+1*, PRO+24*, PROQ*, RESQ*, EDITQ* |
| VALMY | PRO+1~ |
| VALMY( | SEL+8 |
| X | CANCEL+3~, CANCEL+54*, CLONE+2~, CLONE+45*, PRO+34*, WARNMSE+2~, WARNIBMRANOT+2~ |
| >> XQORNOD(0 | SEL+7 |
| Y | COPYCLON+6~, COPYCLON+11*, WARNMSE+2~, WARNMSE+6, WARNIBMRANOT+2~, WARNIBMRANOT+6 |
| Z | PRO+1~, PRO+10*, PRO+11 |