IBJTLA1 ;ALB/ARH - TPI ACTIVE BILLS LIST BUILD ;2/14/95
Source file <IBJTLA1.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 |
---|---|---|
BLDA | ; build active list for third party joint inquiry active list
|
|
SCRN | ; add bill to screen list (IBIFN,DFN must be defined)
|
|
DATE(X) | ; date in external format
|
|
TYPE(X) | ; return abbreviated form of Bill Classification (399,.05)
|
|
TF(X) | ; return abbreviated form of Timeframe of Bill (399,.06)
|
|
SET(X,CNT) | ; set up list manager screen array
|
|
EEOB(IBIFN) | ; get payment information
; IB*2.0*451 - find an EOB payment for a bill ; input is the IEN for the bill # in file #399 and must be valid, ; output is the EEOB indicator '%' if a payment is found in file #361.1, ; exclude EOB type MRA (Medicare). |
Name | Field # of Occurrence |
---|---|
$$LST^DGMTU | SCRN+14 |
$$FT^IBCEF | SCRN+20 |
$$CURR^IBCEF2 | SCRN+32 |
$$MCRWNR^IBEFUNC | SCRN+32 |
$$MINS^IBJTU31 | SCRN+30 |
$$REF^IBJTU31 | SCRN+9 |
$$ACTIVE^IBJTU4 | BLDA+2 |
$$ARSTATA^IBJTU4 | SCRN+27 |
$$BILLREJ^IBJTU6 | SCRN+6 |
$$TYP^IBRFN | SCRN+23 |
$$IB^IBRUTL | SCRN+10 |
$$ECME^IBTRE | SCRN+8 |
$$BILL^RCJIBFN2 | SCRN+35 |
$$SETFLD^VALM1 | SCRN+3, SCRN+8, SCRN+9, SCRN+10, SCRN+11, SCRN+12, SCRN+14, SCRN+20, SCRN+25, SCRN+27 , SCRN+29, SCRN+30, SCRN+34, SCRN+36, SCRN+37 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399 - [#399] | BLDA+2, SCRN+2, SCRN+31, EEOB+8 |
^DGCR(399.3 - [#399.3] | SCRN+29 |
^DIC(36 - [#36] | SCRN+33 |
^IBM(361.1 - [#361.1] | EEOB+7, EEOB+10, EEOB+11 |
^TMP("IBJTLA" | SET+2*, SET+3* |
^TMP("IBJTLAX" | SET+4* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNT | SET~, SET+2, SET+3, SET+4 |
>> DFN | BLDA+2, SCRN+14 |
IBCNT | BLDA+1~*, SCRN+2*, SCRN+3, SCRN+38 |
IBD0 | SCRN+1~, SCRN+2*, SCRN+6, SCRN+8, SCRN+16, SCRN+20, SCRN+29 |
IBDM | SCRN+1~, SCRN+2* |
IBDU | SCRN+1~, SCRN+2*, SCRN+11, SCRN+12, SCRN+14 |
IBIFN | BLDA+1~, BLDA+2*, SCRN+2, SCRN+5, SCRN+8, SCRN+9, SCRN+10, SCRN+20, SCRN+23, SCRN+27 , SCRN+30, SCRN+31, SCRN+32, SCRN+35, SET+4, EEOB~, EEOB+6, EEOB+7, EEOB+8, EEOB+10 |
IBJTLA1 | SCRN+1~ |
IBPFLAG | SCRN+5*, SCRN+7, EEOB+5~, EEOB+10, EEOB+12*, EEOB+13 |
>> IBTYP | SCRN+23*, SCRN+24*, SCRN+25 |
IBVAL | EEOB+5~, EEOB+11*, EEOB+12 |
IBY | SCRN+1~, SCRN+3*, SCRN+8*, SCRN+9*, SCRN+10*, SCRN+11*, SCRN+12*, SCRN+14*, SCRN+20*, SCRN+25* , SCRN+27*, SCRN+29*, SCRN+30*, SCRN+31*, SCRN+32*, SCRN+33*, SCRN+34, SCRN+35*, SCRN+36, SCRN+37 |
INDFLG | SCRN+1~, SCRN+7*, SCRN+8 |
REJFLAG | SCRN+1~, SCRN+6*, SCRN+7 |
TYPE | SCRN+1~, SCRN+16*, SCRN+20 |
U | SCRN+6, SCRN+8, SCRN+11, SCRN+12, SCRN+14, SCRN+16, SCRN+20, SCRN+27, SCRN+29, SCRN+33 , SCRN+36, SCRN+37, SET+4 |
>> VALMCNT | BLDA+1*, BLDA+4, SET+1*, SET+2, SET+3, SET+4 |
X | SCRN+1~*, SCRN+3*, SCRN+8*, SCRN+9*, SCRN+10*, SCRN+11*, SCRN+12*, SCRN+14*, SCRN+20*, SCRN+25* , SCRN+27*, SCRN+29*, SCRN+30*, SCRN+34*, SCRN+36*, SCRN+37*, SCRN+38, DATE~, DATE+1, TYPE~ , TYPE+1, TF~, TF+1, SET~, SET+2 |
Y | DATE+1~*, DATE+2 |
Z | EEOB+5~, EEOB+10*, EEOB+11 |