IBCEF4 ;ALB/TMP - MRA/EDI ACTIVATED UTILITIES ;06-FEB-96
Source file <IBCEF4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EDIACTV(IBEDIMRA) | ; Returns 0 if EDI or MRA is not active,
; otherwise, returns 1 ; IBEDIMRA : 1= checking if EDI is active, 2= checking if MRA is active |
|
| RATEOK(IBIFN) | ; Returns 1 if rate type of bill IBIFN is transmittable
|
|
| INSOK(INS) | ; Determine EDI activation status of insurance co
|
|
| BSTATX(IBIFN) | ; Returns internal value of bill's latest transmission status
|
|
| LAST364(IBIFN) | ; Determine ien of latest transmit bill record for a bill
|
|
| TXMT(IBIFN,IBWHY,IBNEW) | ; Determine if bill # IBIFN is 'transmittable'
; IBNEW = flag is 1 if new entry - don't check for entry in file 364 ; Function returns: ; 0 if not transmittable ; if transmittable, the entire node 3 of the insurance company ; and, if passed by reference IBWHY = reason not transmittable ; 1 if local print ; 2 if EDI/MRA not active ; 3 if rate type not transmittable ; 4 if no transmit for insurance co ; 5 if failed txmn rules ; and IBWHY(0) = ien of rule failed ; 6 if Rx with missing/invalid NDC format |
|
| TXMTQ | ;
|
|
| MRASEC(IBIFN) | ; Returns 1 if current bill is secondary to MCR WNR
|
|
| EDIT(IBIFN,IB,IBWHY) | ; Find, execute edits applying to bill to see if transmittable
; IBIFN = ien of bill in file 399 ; IB = array containing necessary data for xref search from bill ; subscripted by field # in file 364.4 |
|
| EDITQ | ||
| STATUS(IBIFN) | ; Function returns whether or not bill currently has a status
; message or EOB message not yet fully reviewed - ; (only for transmittable bills) ; IBIFN = ien of bill in file 399 ; Returns: ; 0 = None found ; If found, returns a pieced string as follows: |
|
| TEST(IBIFN) | ; Returns 1 if bill IBIFN is a transmission test bill, 0 if not
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | RATEOK+1, TXMT+17, TXMT+21, TXMT+22, TXMT+46, TXMT+48* |
| ^DGCR(399.3 - [#399.3] | RATEOK+1 |
| ^DIC(36 - [#36] | INSOK+1, TXMTQ+1 |
| ^IBA(362.4 - [#362.4] | TXMT+39, TXMT+40, TXMT+41 |
| ^IBA(364 - [#364] | BSTATX+2, LAST364+1, TXMT+22, TXMT+23, TEST+1 |
| ^IBE(350.9 - [#350.9] | EDIACTV+4 |
| ^IBE(364.4 - [#364.4] | EDIT+29, EDIT+31, EDIT+36, EDIT+37, EDIT+38 |
| ^IBM(361 - [#361] | STATUS+15 |
| ^IBM(361.1 - [#361.1] | STATUS+17 |
| ^TMP("IBEDI_TEST_BATCH" | TEST+1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EDIT+29 |
| ^(0 | STATUS+15, STATUS+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> COBINS | TXMT+46*, TXMT+47 |
| DT | EDIT+32, EDIT+33 |
| IB | TXMT+14~, TXMT+15*, TXMT+17, TXMT+25, TXMT+26, TXMT+45, TXMT+46, TXMT+50, MRASEC+1~, MRASEC+2* , MRASEC+5*, MRASEC+6, EDIT~, STATUS+13~, STATUS+14*, STATUS+15*, STATUS+17*, STATUS+19 |
| IB( | TXMT+17*, TXMT+18, TXMT+23, TXMT+24*, TXMT+25*, TXMT+26*, TXMT+28, TXMT+31, TXMTQ+1, EDIT+23 , EDIT+36, EDIT+37 |
| IB0 | TXMT+14~, EDIT+22~, EDIT+31*, EDIT+32, EDIT+33, EDIT+35 |
| IB1 | EDIT+22~, EDIT+28*, EDIT+29, EDIT+31 |
| IB2 | EDIT+22~, EDIT+28*, EDIT+29, EDIT+31 |
| IB3 | EDIT+22~, EDIT+28*, EDIT+29, EDIT+31, EDIT+35 |
| IB4 | EDIT+22~, EDIT+29*, EDIT+31, EDIT+36, EDIT+37 |
| IBCOB | TXMT+14~, TXMT+17*, TXMT+46 |
| IBDA | BSTATX+1~, EDIT+22~, EDIT+30*, EDIT+31*, EDIT+32, EDIT+33, EDIT+35, EDIT+36, EDIT+37, EDIT+38 , EDIT+40 |
| IBEDI | EDIACTV+3~, EDIACTV+4*, EDIACTV+5 |
| IBEDIMRA | EDIACTV~, EDIACTV+5 |
| IBFT | EDIT+22~, EDIT+24*, EDIT+35 |
| IBIFN | RATEOK~, RATEOK+1, BSTATX~, BSTATX+2, LAST364~, LAST364+1, TXMT~, TXMT+15, TXMT+21, TXMT+22 , TXMT+23, TXMT+30, TXMT+32, TXMT+35, TXMT+39, TXMT+40, TXMT+48, TXMT+50, MRASEC~, MRASEC+4 , MRASEC+5, EDIT~, EDIT+24, STATUS~, STATUS+15, STATUS+17, TEST~, TEST+1 |
| IBMCR | TXMT+14~, TXMT+18*, TXMT+20, TXMT+24, TXMT+48 |
| IBNEW | TXMT~, TXMT+22 |
| IBNOCK | EDIT+22~ |
| IBNOCK( | EDIT+31, EDIT+32*, EDIT+33*, EDIT+35*, EDIT+36*, EDIT+37* |
| IBOK | TXMT+14~, TXMT+15*, TXMT+21*, TXMT+22*, TXMT+49*, TXMT+50*, TXMT+51, TXMTQ+1*, TXMTQ+2 |
| IBPASS | EDIT+22~, EDIT+23*, EDIT+26*, EDIT+27, EDIT+28, EDIT+29, EDIT+31, EDIT+40*, EDITQ |
| IBSEQ | MRASEC+1~, MRASEC+4*, MRASEC+5, EDIT+22~, EDIT+27* |
| IBT | EDIT+22~, EDIT+38*, EDIT+40 |
| IBWHY | TXMT~, TXMT+15*, TXMT+20, TXMT+21*, TXMT+29*, TXMT+30*, TXMT+31*, TXMT+32, TXMT+35*, TXMT+48* , TXMT+49, TXMT+50, EDIT~, EDIT+40* |
| IBWHY(0 | EDIT+40* |
| INS | INSOK~, INSOK+1 |
| U | EDIACTV+4, RATEOK+1, BSTATX+2, TXMT+21, TXMT+22, TXMT+42, TXMT+43, TXMT+46, TXMT+48, MRASEC+5 , EDIT+32, EDIT+33, EDIT+35, STATUS+15, STATUS+17, TEST+1 |
| X1 | TXMT+14~, TXMT+28*, TXMT+29, TXMT+30*, TXMT+31*, TXMT+39, TXMT+40, TXMT+43* |
| Z | TXMT+38~, TXMT+39*, TXMT+40, MRASEC+1~, MRASEC+5*, STATUS+13~, STATUS+15*, STATUS+17* |
| Z0 | TXMT+38~, TXMT+40*, TXMT+41, STATUS+13~ |
| Z00 | TXMT+38~, TXMT+41*, TXMT+42, TXMT+43 |
