IBCE837 ;ALB/TMP - OUTPUT FOR 837 TRANSMISSION ;8/6/03 10:48am
Source file <IBCE837.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Auto-txmt
|
|
SETUP(IBEXTRP) | ; Txmn set up
; IBEXTRP=1 prnt 837 data |
|
FIND | ; Find/sort by CMS-1500/UB-04, test/live, ins ID # & div
|
|
OUTPUT | ; 837
|
|
CLEANUP | ; moved
|
|
MESSAGE(IBLCNT,IBIEN,IBBILL,IBCTM,IBSIZE,IBSIZEM,IBDUZ,IBBTYP,IBINS) | ; Create msg in ^TMP("IBXMSG",$J)
|
|
SETHDR | ; hdr for curr batch
|
|
SETHDR1 | ; hdr node for curr ins
|
|
SETG | ; msg global for each segment
|
|
ONE | ; Txmt 1 or more bills for test or in 'X' status for live
|
FileNo | Call Tags |
---|---|
^IBE(350.9 - [#350.9] | Classic Fileman Calls, GET1^DIQ |
^DIC(36 - [#36] | Classic Fileman Calls |