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 |
