IBCEPTC0 ;ALB/ESG - EDI PREVIOUSLY TRANSMITTED CLAIMS CONT ; 12/19/05
Source file <IBCEPTC0.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 |
|---|---|---|
| LIST | ; Queued report format entrypoint
; variables pre-defined: IBREP,IBSORT,IBFORM,IBDT1,IBDT2, ; IBCRIT,IBPTCCAN,IBRCBFPC ; ^TMP("IB_PREV_CLAIM_INS,$J) global |
|
| END | ||
| LOC | ; new sub-routine for locally printed claims (use LIST & STORE tags as a guide)
; Use the existing AP x-ref to narrow down the list of claims by date, then checks for existence in file 364 (EDI TRANSMIT BILL). ; If a claim is NOT in file 364, it is a printed-only claim ; variables pre-defined: IBREP,IBSORT,IBFORM,IBDT1,IBDT2, ; IBCRIT,IBPTCCAN,IBRCBFPC ; ^TMP("IB_PREV_CLAIM_INS,$J) global |
|
| STORE(IB364,IBBDA,IBDTX,IBTYP) | ; Check and store transmission data
; Parameters ; IB364 - ien to file 364 (claim transmission ien) ; IBBDA - ien to file 364.1 (batch ien) ; IBDTX - fm transmit date (no time) (either from 364.1 or 361.41) ; IBTYP - 1 = transmission data from file 364 (field .07 is live) ; 2 = transmission data from file 364 (field .07 is test) ; 3 = transmission data from file 361.41 (test always) ; Note: ; Variables IBFORM, IBCRIT, IBPTCCAN, IBRCBFPC, and IBSORT are ; assumed to exist here in this procedure. |
|
| STOREX | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | STORE+37 |
| $$COBN^IBCEF | LOC+34, LOC+35, STORE+33, STORE+34 |
| $$FT^IBCEF | LOC+15, STORE+16 |
| $$CURR^IBCEF2 | LOC+18, STORE+19 |
| $$MRASEC^IBCEF4 | LOC+33, STORE+32 |
| RPT^IBCEPTC1 | LIST+53, LOC+48 |
| EN^VALM | LIST+55, LOC+50 |
| $$FMADD^XLFDT | LIST+12, LIST+13, LIST+26 |
| $$FMTE^XLFDT | STORE+57 |
| $$UP^XLFSTR | LOC+19, STORE+20 |
| FileNo | Call Tags |
|---|---|
| ^IBA(364 - [#364] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | LOC+11, LOC+14, LOC+36, STORE+15, STORE+35, STORE+44 |
| ^DIC(36 - [#36] | LOC+19, LOC+41, STORE+20, STORE+52 |
| ^IBA(364 - [#364] | LIST+18, LIST+19, LIST+41, LIST+42, LOC+13, STORE+14 |
| ^IBA(364.1 - [#364.1] | LIST+15, STORE+50 |
| ^IBM(361.4 - [#361.4] | LIST+28, LIST+29 |
| ^TMP("IB_PREV_CLAIM" | LIST+4!, END!, LOC+6!, LOC+45*, LOC+46*, STORE+57*, STORE+58* |
| ^TMP("IB_PREV_CLAIM_INS" | END!, LOC+25, LOC+27, LOC+28, LOC+29, LOC+30, STORE+24, STORE+26, STORE+27, STORE+28 , STORE+29 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CURSEQ | LIST+6~, LIST+40*, LIST+43, LOC+8~ |
| DATA | LIST+6~, LIST+29*, LIST+32, LIST+36, LIST+40, LOC+8~ |
| EDI | LIST+6~, LOC+8~, LOC+19*, LOC+21, LOC+22, STORE+12~, STORE+20*, STORE+21 |
| IB0 | LIST+6~, LOC+8~, LOC+14*, LOC+39, STORE+12~, STORE+15*, STORE+41, STORE+53 |
| IB364 | LIST+6~, LIST+40*, LIST+41, LIST+45*, LIST+48, LIST+50, LOC+8~, STORE~, STORE+14, STORE+37 , STORE+58 |
| IBBDA | LIST+5~, LIST+15*, LIST+18, LIST+19, LIST+36*, LIST+37, LIST+50, LOC+7~, STORE~, STORE+50 |
| IBBDA0 | LIST+5~, LOC+7~, STORE+12~, STORE+50*, STORE+52 |
| >> IBCRIT | LOC+33, LOC+34, LOC+35, LOC+36, STORE+32, STORE+33, STORE+34, STORE+35, STORE+37 |
| IBCURI | LIST+5~, LOC+7~, LOC+18*, LOC+19, LOC+27, LOC+41, STORE+12~, STORE+19*, STORE+20, STORE+26 , STORE+52 |
| IBDA | LIST+5~, LIST+18*, LIST+19, LOC+7~ |
| IBDT | LIST+5~, LIST+12*, LIST+15*, LIST+17, LIST+26*, LIST+28*, LOC+7~, LOC+10*, LOC+11*, LOC+41 |
| >> IBDT1 | LIST+12, LIST+26, LIST+34, LIST+53, LOC+10, LOC+48 |
| >> IBDT2 | LIST+13*, LIST+15, LIST+28, LIST+35, LIST+53, LOC+11, LOC+48 |
| IBDTX | LIST+5~, LIST+17*, LIST+19, LIST+32*, LIST+34, LIST+35, LIST+50, LOC+7~, STORE~, STORE+52 , STORE+53, STORE+57 |
| >> IBFORM | LOC+17, STORE+18 |
| IBFT | LIST+5~, LOC+7~, LOC+15*, LOC+17, STORE+12~, STORE+16*, STORE+18, STORE+47, STORE+48 |
| IBHDRDT | LIST+7~, LOC+9~ |
| IBIFN | LIST+5~, LIST+28*, LIST+29, LIST+41, LOC+7~, LOC+11*, LOC+13, LOC+14, LOC+15, LOC+18 , LOC+33, LOC+34, LOC+35, LOC+36, LOC+45, LOC+46, STORE+12~, STORE+14*, STORE+15, STORE+16 , STORE+19, STORE+32, STORE+33, STORE+34, STORE+35, STORE+44, STORE+57 |
| IBPAGE | LIST+7~*, LOC+9~* |
| >> IBPTCCAN | LOC+39, STORE+41 |
| >> IBRCBFPC | STORE+44, STORE+47, STORE+48 |
| >> IBREP | LIST+7, LIST+53, LOC+9, LOC+48 |
| IBS1 | LIST+5~, LOC+7~, LOC+41*, LOC+44*, LOC+45, LOC+46, STORE+12~, STORE+52*, STORE+56*, STORE+57 , STORE+58 |
| IBS2 | LIST+5~, LOC+7~, LOC+41*, LOC+44*, LOC+46, STORE+12~, STORE+53*, STORE+56*, STORE+58 |
| >> IBSORT | LIST+53, LIST+55, LOC+48, STORE+52, STORE+53, STORE+57 |
| IBSTOP | LIST+7~*, LOC+9~* |
| IBTYP | STORE~, STORE+58 |
| IBZ | LIST+6~, LIST+41*, LIST+42, LIST+45, LOC+8~ |
| IBZ1 | LIST+6~, LIST+28*, LIST+29, LOC+8~ |
| IBZDAT | LIST+6~, LIST+42*, LIST+43, LIST+44, LOC+8~ |
| INCLUDE | LIST+6~, LOC+8~, LOC+25, LOC+26*, LOC+27*, LOC+29*, LOC+30*, STORE+12~, STORE+24, STORE+25* , STORE+26*, STORE+28*, STORE+29* |
| INST | LIST+6~, LOC+8~, LOC+22*, LOC+30, STORE+12~, STORE+21*, STORE+29, STORE+48 |
| PROF | LIST+6~, LOC+8~, LOC+22*, LOC+29, STORE+12~, STORE+21*, STORE+28, STORE+47 |
| U | LIST+19, LIST+32, LIST+36, LIST+40, LIST+43, LIST+44, LOC+21, LOC+22, LOC+36, LOC+39 , LOC+41, STORE+21, STORE+35, STORE+41, STORE+44, STORE+52, STORE+53 |
