IBCEPTC0 ;ALB/ESG - EDI PREVIOUSLY TRANSMITTED CLAIMS CONT ; 12/19/05
Source file <IBCEPTC0.m>
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 | ;
|
FileNo | Call Tags |
---|---|
^IBA(364 - [#364] | GET1^DIQ |