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 |