IBCECSA6 ;ALB/CXW/PJH - VIEW EOB SCREEN ;01-OCT-1999
Source file <IBCECSA6.m>
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 |
---|---|---|
BLD | ;build EOB data display
|
|
GETEOB(IBCNT,IBSRC,IBFULL,IBJTIBLN) | ; Get EOB data in display format
; IBCNT = the ien of the entry in file 361.1 ; IBSRC = 1 if called from AR, 0 if List Manager format needed ; = 2 if called from AR and header data is desired ; If IBSRC > 0 ^TMP("PRCA_EOB",$J,IBCNT,n)=line n's text is ret'd ; IBFULL = 1 if no check should be made to eliminate a fld whose value=0 ; IBJTIBLN = line number to start VALMCNT with (optional) ; used by IBJTBA1 |
|
SEL(IB,ONE) | ;
|
|
ACT | ; Reposition display using actions
|
|
SET(IBSRC,X,CNT,IBCNT) | ;set list manager arrays
|
|
GEN | ;
|
|
PAY | ;
|
|
CLVL | ;
|
|
MOUT | ;
|
|
CLVLA | ;
|
|
A10(X) | ; returns a dollar amount right justified to 10 characters
|
|
P10(X) | ; returns a % right just 10
; X is a decimal between 0-1 |
|
PPR | ;Display Payer Policy References
|
|
AUDIT | ;Display details of any EEOB MOVE/COPY
|
FileNo | Call Tags |
---|---|
^RC(345 - [#345] | VFILE^DILFD |
^IBM(361.1 - [#361.1] | EXTERNAL^DILFD |
361.11 | EXTERNAL^DILFD |
361.1101 | EXTERNAL^DILFD |
361.11016 | EXTERNAL^DILFD |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(36 - [#36] | PAY+11 |
^IBM(361.1 - [#361.1] | GETEOB+14, GEN+3, GEN+32, GEN+43, GEN+52, GEN+53, GEN+54, PAY+20, PAY+41, CLVL+7 , CLVL+8, CLVL+9, CLVL+13, CLVL+20, CLVL+21, MOUT+2, MOUT+4, CLVLA+7, CLVLA+8, CLVLA+9 , CLVLA+12, CLVLA+13, PPR+5, PPR+8, PPR+11, PPR+12, AUDIT+4, AUDIT+6, AUDIT+34, AUDIT+35 |
^RCY(344.4 - [#344.4] | PAY+22, PAY+33 |
^TMP("IBCECSD" | SEL+4, ACT+2, SET+6*, SET+7*, SET+8*, GEN+8*, PAY+7*, CLVL+6*, CLVLA+6* |
^TMP("PRCA_EOB" | GETEOB+15!, SET+4* |
^VA(200 - [#200] | GEN+20, GEN+35 |
Name | Line Occurrences |
---|---|
$$A10 | CLVL+8, CLVL+10, CLVL+12, CLVL+13, CLVL+16, CLVL+17, CLVL+18, CLVL+19, CLVL+20, CLVL+21 , CLVL+22, MOUT+8, MOUT+10, MOUT+12, CLVLA+23 |
$$P10 | MOUT+7 |
AUDIT | PAY+49 |
BLD | ACT+1 |
CLVL | GETEOB+19 |
CLVLA | GETEOB+19 |
GEN | GETEOB+19 |
GETEOB | BLD+1 |
MOUT | GETEOB+19 |
PAY | GETEOB+19 |
PPR | PAY+39 |
SEL | ACT+1 |
SET | GEN+5, GEN+11, GEN+16, GEN+19, GEN+23, GEN+28, GEN+31, GEN+36, GEN+45, GEN+48 , GEN+50, GEN+55, GEN+56, PAY+4, PAY+12, PAY+14, PAY+16, PAY+25, PAY+31, PAY+35 , PAY+37, PAY+44, PAY+46, PAY+47, CLVL+3, CLVL+7, CLVL+11, CLVL+14, CLVL+17, CLVL+18 , CLVL+19, CLVL+20, CLVL+21, CLVL+22, CLVL+23, CLVL+25, CLVL+26, MOUT+4, MOUT+5, MOUT+9 , MOUT+11, MOUT+13, MOUT+15, CLVLA+3, CLVLA+11, CLVLA+18, CLVLA+21, CLVLA+25, CLVLA+27, PPR+21 , PPR+23, PPR+26, AUDIT+15, AUDIT+16, AUDIT+18, AUDIT+20, AUDIT+22, AUDIT+24, AUDIT+27, AUDIT+30 , AUDIT+41, AUDIT+42 |
Name | Field # of Occurrence |
---|---|
^( | GEN+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNT | GETEOB+9~, GETEOB+12*, SET~, SET+7, SET+8, GEN+5, GEN+11, GEN+16, GEN+19, GEN+23 , GEN+28, GEN+31, GEN+36, GEN+38, GEN+45, GEN+48, GEN+50, GEN+55, GEN+56, PAY+4 , PAY+12, PAY+14, PAY+16, PAY+25, PAY+31, PAY+35, PAY+37, PAY+44, PAY+46, PAY+47 , CLVL+3, CLVL+7, CLVL+11, CLVL+14, CLVL+17, CLVL+18, CLVL+19, CLVL+20, CLVL+21, CLVL+22 , CLVL+23, CLVL+25, CLVL+26, MOUT+4, MOUT+5, MOUT+9, MOUT+11, MOUT+13, MOUT+15, CLVLA+3 , CLVLA+11, CLVLA+18, CLVLA+21, CLVLA+25, CLVLA+27, PPR+21, PPR+23, PPR+26, AUDIT+15, AUDIT+16 , AUDIT+18, AUDIT+20, AUDIT+22, AUDIT+24, AUDIT+27, AUDIT+30, AUDIT+41, AUDIT+42 |
FIRST101 | AUDIT+2~, AUDIT+3*, AUDIT+13, AUDIT+14* |
GR | CLVLA+1~, CLVLA+8*, CLVLA+9, CLVLA+10, CLVLA+14 |
I | PAY+18~, PAY+27*, PAY+28, CLVLA+1~, CLVLA+21*, PPR+2~, PPR+24* |
IB | SEL~, SEL+4*, GEN+4*, GEN+5, GEN+9*, GEN+10*, GEN+11, GEN+13*, GEN+15*, GEN+16 , GEN+18*, GEN+19, GEN+20*, GEN+22*, GEN+23, GEN+25*, GEN+27*, GEN+28, GEN+30*, GEN+31 , GEN+34*, GEN+35*, GEN+36, GEN+44*, GEN+45, GEN+47*, GEN+48, GEN+49*, GEN+50, GEN+53* , GEN+54*, GEN+55, PAY+3*, PAY+4, PAY+11*, PAY+12, PAY+13*, PAY+14, PAY+15*, PAY+16 , PAY+24*, PAY+25, PAY+30*, PAY+31, PAY+34*, PAY+35, PAY+36*, PAY+37, PAY+43*, PAY+44 , PAY+45*, PAY+46, CLVL+2*, CLVL+3, CLVL+8*, CLVL+10*, CLVL+11, CLVL+12*, CLVL+13*, CLVL+14 , CLVL+15*, CLVL+16*, CLVL+17*, CLVL+18*, CLVL+19*, CLVL+20*, CLVL+21*, CLVL+22*, CLVL+23*, CLVL+24* , CLVL+25, MOUT+7*, MOUT+8*, MOUT+9, MOUT+10*, MOUT+11, MOUT+12*, MOUT+13, CLVLA+2*, CLVLA+3 , CLVLA+16*, CLVLA+17*, CLVLA+18, CLVLA+21*, CLVLA+23*, CLVLA+24*, CLVLA+25, PPR+20*, PPR+21, PPR+22* , PPR+23, PPR+25*, PPR+26, AUDIT+14*, AUDIT+15, AUDIT+17*, AUDIT+18, AUDIT+19*, AUDIT+20, AUDIT+21* , AUDIT+22, AUDIT+23*, AUDIT+24, AUDIT+26*, AUDIT+27, AUDIT+29*, AUDIT+30, AUDIT+40*, AUDIT+41 |
IB101 | AUDIT+5~, AUDIT+6*, AUDIT+7, AUDIT+8, AUDIT+9, AUDIT+10, AUDIT+11 |
>> IBACT | ACT+2 |
IBARR | PPR+2~ |
IBARR( | PPR+13*, PPR+16 |
IBCARC | CLVLA+1~ |
IBCARC( | CLVLA+21 |
IBCNT | BLD+1, GETEOB~, GETEOB+14, GETEOB+15, ACT+1, SET~, SET+4, SET+8, GEN+3, GEN+5 , GEN+11, GEN+16, GEN+19, GEN+23, GEN+28, GEN+31, GEN+32, GEN+36, GEN+38, GEN+43 , GEN+45, GEN+48, GEN+50, GEN+52, GEN+53, GEN+54, GEN+55, GEN+56, PAY+4, PAY+12 , PAY+14, PAY+16, PAY+20, PAY+25, PAY+31, PAY+35, PAY+37, PAY+41, PAY+44, PAY+46 , PAY+47, CLVL+3, CLVL+7, CLVL+8, CLVL+9, CLVL+11, CLVL+13, CLVL+14, CLVL+17, CLVL+18 , CLVL+19, CLVL+20, CLVL+21, CLVL+22, CLVL+23, CLVL+25, CLVL+26, MOUT+2, MOUT+4, MOUT+5 , MOUT+9, MOUT+11, MOUT+13, MOUT+15, CLVLA+3, CLVLA+7, CLVLA+8, CLVLA+9, CLVLA+11, CLVLA+12 , CLVLA+13, CLVLA+18, CLVLA+21, CLVLA+25, CLVLA+27, PPR+5, PPR+8, PPR+11, PPR+12, PPR+21 , PPR+23, PPR+26, AUDIT+4, AUDIT+6, AUDIT+15, AUDIT+16, AUDIT+18, AUDIT+20, AUDIT+22, AUDIT+24 , AUDIT+27, AUDIT+30, AUDIT+34, AUDIT+35, AUDIT+41, AUDIT+42 |
IBCON | PAY+18~, PAY+28*, PAY+30 |
IBCONTXT | PAY+18~, PAY+29*, PAY+30 |
IBCTYP | PAY+18~, PAY+28*, PAY+29 |
IBDA | SEL+1~, SEL+3*, SEL+4 |
IBDATE | AUDIT+5~, AUDIT+7*, AUDIT+17 |
IBDIR | AUDIT+5~, AUDIT+11*, AUDIT+12*, AUDIT+17, AUDIT+19, AUDIT+21 |
IBDISP | PPR+2~, PPR+17*, PPR+22, PPR+24 |
IBFLG | CLVLA+1~, CLVLA+7*, CLVLA+10*, CLVLA+27 |
IBFULL | GETEOB~, GETEOB+10*, GEN+33, GEN+52, CLVL+16, CLVL+17, CLVL+18, CLVL+19, CLVL+20, CLVL+21 , CLVL+22, CLVL+23, CLVL+24, MOUT+7, MOUT+8, MOUT+10, MOUT+12 |
IBJTIBLN | GETEOB~, GETEOB+13 |
IBJUST | AUDIT+5~, AUDIT+9*, AUDIT+23 |
IBJUST1 | AUDIT+5~, AUDIT+9*, AUDIT+25, AUDIT+26 |
IBN | CLVLA+1~, CLVLA+20*, CLVLA+21 |
>> IBONE | SEL+5*, ACT+1 |
IBORIG | AUDIT+5~, AUDIT+10*, AUDIT+28, AUDIT+29 |
IBOSN | GEN+42~, GEN+46*, GEN+47 |
IBOSN1 | GEN+42~, GEN+46*, GEN+48, GEN+49 |
IBOTH | AUDIT+32~, AUDIT+35*, AUDIT+36*, AUDIT+37 |
IBPAYNAM | PAY+18~, PAY+21*, PAY+22*, PAY+23, PAY+24 |
IBPCNT | PPR+2~, PPR+15*, PPR+16, PPR+17*, PPR+19 |
IBPY | PPR+2~, PPR+12*, PPR+13, PPR+15*, PPR+16*, PPR+17 |
IBREC | GETEOB+9~, GETEOB+14*, GEN+10, GEN+13, GEN+14, GEN+17, GEN+20, GEN+21, GEN+25, GEN+26 , GEN+29, GEN+38, PAY+11, PAY+13, PAY+15, PAY+42, PAY+43, CLVL+13, CLVL+22, CLVL+23 , CLVL+24, MOUT+3, CLVLA+1~, CLVLA+8*, CLVLA+10*, CLVLA+11, CLVLA+13*, CLVLA+16, CLVLA+23, CLVLA+24 |
IBREC1 | GEN+2~, GEN+32*, GEN+33, GEN+34, GEN+35, PAY+2~, CLVL+1~, CLVL+9*, CLVL+10, CLVL+12 , CLVL+13, CLVL+16, CLVL+17, CLVL+18, CLVL+19, MOUT+1~, MOUT+2*, MOUT+3, MOUT+4, MOUT+7 , MOUT+8, MOUT+10, MOUT+12 |
IBREC25 | PAY+18~, PAY+20*, PAY+21, PAY+26, PAY+28 |
IBREC50 | GEN+42~, GEN+43*, GEN+44 |
IBREC51 | GEN+42~, GEN+43*, GEN+46, PAY+40~, PAY+41*, PAY+42, PAY+45 |
IBREM | GETEOB+9~ |
IBRL | CLVL+1~, CLVL+15*, CLVL+16*, CLVL+17*, CLVL+18*, CLVL+19*, CLVL+20*, CLVL+21*, CLVL+22*, CLVL+23* , CLVL+24*, CLVL+25, MOUT+1~, MOUT+6*, MOUT+7*, MOUT+8*, MOUT+9, MOUT+10*, MOUT+11, MOUT+12* , MOUT+13 |
IBSPL | GEN+2~, GEN+3*, GEN+9 |
IBSRC | GETEOB~, GETEOB+10*, GETEOB+11, GETEOB+15, GETEOB+18, SET~, SET+1*, SET+3, GEN+1*, GEN+5 , GEN+6, GEN+11, GEN+12, GEN+13, GEN+16, GEN+19, GEN+23, GEN+24, GEN+28, GEN+31 , GEN+36, GEN+41, GEN+45, GEN+48, GEN+50, GEN+55, GEN+56, PAY+1*, PAY+4, PAY+5 , PAY+12, PAY+14, PAY+16, PAY+25, PAY+31, PAY+35, PAY+37, PAY+44, PAY+46, PAY+47 , CLVL+2*, CLVL+3, CLVL+4, CLVL+7, CLVL+11, CLVL+13, CLVL+14, CLVL+17, CLVL+18, CLVL+19 , CLVL+20, CLVL+21, CLVL+22, CLVL+23, CLVL+25, CLVL+26, MOUT+2*, MOUT+3, MOUT+4, MOUT+5 , MOUT+9, MOUT+11, MOUT+13, MOUT+15, CLVLA+2*, CLVLA+3, CLVLA+4, CLVLA+11, CLVLA+18, CLVLA+21 , CLVLA+25, CLVLA+27, PPR+21, PPR+23, PPR+26, AUDIT+15, AUDIT+16, AUDIT+18, AUDIT+20, AUDIT+22 , AUDIT+24, AUDIT+27, AUDIT+30, AUDIT+41, AUDIT+42 |
IBTMP | GEN+2~, GEN+14*, GEN+15, GEN+17*, GEN+18, GEN+21*, GEN+22, GEN+26*, GEN+27, GEN+29* , GEN+30, PAY+2~, CLVL+1~ |
IBTXT | PPR+2~, PPR+24*, PPR+25 |
IBTYP | GETEOB+9~, GETEOB+14*, GEN+9 |
IBUSER | AUDIT+5~, AUDIT+8*, AUDIT+19 |
IBWEB | PAY+18~, PAY+33*, PAY+34, PAY+35, PAY+36 |
IBWEB3 | PAY+18~ |
IBX | PPR+2~, PPR+3*, PPR+5*, PPR+8, PPR+11, PPR+12 |
IBX2 | PPR+2~, PPR+7*, PPR+8*, PPR+11, PPR+12 |
IBX3 | PPR+2~, PPR+10*, PPR+11*, PPR+12 |
IEN101 | AUDIT+2~, AUDIT+3*, AUDIT+4*, AUDIT+6, AUDIT+34, AUDIT+35 |
>> IORVOFF | GEN+7, PAY+6, CLVL+5, CLVLA+5 |
>> IORVON | GEN+7, PAY+6, CLVL+5, CLVLA+5 |
ONE | SEL~, SEL+2 |
OTEXT | AUDIT+32~, AUDIT+33*, AUDIT+37*, AUDIT+38*, AUDIT+39, AUDIT+40 |
>> RCSCR | PAY+22, PAY+32, PAY+33 |
RSN | CLVLA+1~, CLVLA+13*, CLVLA+14, CLVLA+16, CLVLA+17, CLVLA+20 |
SUB | AUDIT+32~, AUDIT+33*, AUDIT+34*, AUDIT+35 |
U | GETEOB+14, SEL+4, SET+8, GEN+10, GEN+13, GEN+14, GEN+17, GEN+20, GEN+21, GEN+25 , GEN+26, GEN+29, GEN+33, GEN+34, GEN+35, GEN+44, GEN+46, GEN+52, GEN+53, GEN+54 , PAY+11, PAY+13, PAY+15, PAY+21, PAY+22, PAY+26, PAY+28, PAY+33, PAY+42, PAY+43 , PAY+45, CLVL+8, CLVL+10, CLVL+12, CLVL+13, CLVL+16, CLVL+17, CLVL+18, CLVL+19, CLVL+20 , CLVL+21, CLVL+22, CLVL+23, CLVL+24, MOUT+7, MOUT+8, MOUT+10, MOUT+12, CLVLA+8, CLVLA+9 , CLVLA+13, CLVLA+16, CLVLA+23, CLVLA+24, PPR+12, AUDIT+7, AUDIT+8, AUDIT+9, AUDIT+10, AUDIT+11 , AUDIT+35 |
>> VALMBCK | ACT+3* |
VALMBG | GETEOB+11~, GETEOB+12*, ACT+2* |
VALMCNT | GETEOB+11~, GETEOB+12*, GETEOB+13*, SET+1*, SET+4, SET+6, SET+7, SET+8, GEN+7, GEN+8 , PAY+6, PAY+7, CLVL+5, CLVL+6, CLVLA+5, CLVLA+6 |
>> VALMHDR(4 | GETEOB+18* |
>> VALMY( | SEL+3 |
X | SET~, SET+4, SET+6, A10~, A10+1, P10~, P10+2 |
>> XQORNOD(0 | SEL+2 |
>> Y | CLVLA+7*, CLVLA+8, CLVLA+9, CLVLA+12, CLVLA+13 |
Z | CLVLA+1~, CLVLA+12*, CLVLA+13 |