IBCEOB ;ALB/TMP/PJH - 835 EDI EOB MESSAGE PROCESSING ; 8/19/10 6:33pm
Source file <IBCEOB.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UPDEOB(IBTDA) | ; Update EXPLANATION OF BENEFITS file (#361.1) from return msg
; IBTDA = ien of return message ; Function returns ien of EOB file entry or "" if errors found ; the data. Any errors found are ; stored in array ^TMP("IBCERR-EOB",$J,n) in text format ; n = seq # and are stored with the EOB in a wp field |
|
| UPDQ | ||
| 835(IB0,IBEGBL,IBEOB) | ; Store header
|
|
| 5(IB0,IBEGBL,IBEOB) | ; Record '05'
|
|
| 6(IB0,IBEGBL,IBEOB) | ; Record '06' - corrected patient name and/or ID#
; This data is not going to be filed into file 361.1 so the value of this function will always be a 1 so as to ; not interrupt the filing process of the EOB/MRA data into file 361.1. |
|
| Q6 | ; exit point for $$6 function
|
|
| 10(IB0,IBEGBL,IBEOB) | ; Record '10'
|
|
| Q10 | ||
| 12(IB0,IBEGL,IBEOB) | ; Record '12'
|
|
| Q12 | ||
| 13(IB0,IBEGL,IBEOB) | ; Record '13'
|
|
| Q13 | ||
| 15(IB0,IBEGBL,IBEOB) | ; Record '15'
; Moved due to space constraints |
|
| Q15 | ||
| 17(IB0,IBEGBL,IBEOB) | ; Record '17'
|
|
| Q17 | ||
| 20(IB0,IBEGBL,IBEOB) | ; Record '20'
; Moved due to space constraints |
|
| Q20 | ||
| 30(IB0,IBEGBL,IBEOB) | ; Record '30'
|
|
| Q30 | ||
| 35(IB0,IBEGBL,IBEOB) | ; Record '35'
; Moved due to space constraints |
|
| Q35 | ||
| 37(IB0,IBEGBL,IBEOB) | ; Record '37'
; Moved due to space constraints |
|
| Q37 | ||
| 40(IB0,IBEGBL,IBEOB) | ; Record '40'
|
|
| Q40 | ||
| 41(IB0,IBEGBL,IBEOB) | ; Record '41'
|
|
| Q41 | ||
| 42(IB0,IBEGBL,IBEOB) | ; Record '42'
|
|
| Q42 | ||
| 45(IB0,IBEGBL,IBEOB) | ; Record '45'
|
|
| 46(IB0,IBEGBL,IBEOB) | ; Record '46'
|
|
| Q46 | ||
| MSG(IBEOB,MSG) | ; procedure to file message into field 6.03
; Results of processing of the "06" record type |
|
| MSGX | ;
|
|
| DOLLAR(X) | ; Convert value in X to dollar format XXX.XX
|
|
| ADD3611(IBMNUM,IBTBILL,IBBATCH,X,IBAR,IBFILE) | ; Add stub record to file 361.1
; X = the ien of the referenced bill in file 399 ; IBTBILL = ien of transmitted bill (optional) ; IBBATCH = ien of batch # the transmitted bill was in (optional) ; IBMNUM = the message # from which this record originally came ; IBAR = 1 only if called from AR ; IBFILE = array reference of raw EOB data |
|
| UPD3611(IBEOB,IBTDA,IBAR) | ; From flat file 835 format, add EOB record
; IBEOB = the ien of the entry in file 361.1 being updated ; IBTDA = the ien in the source file ; IBAR = 1 if being called from AR |
|
| ERRUPD(IBEOB,IBEGBL) | ; Update error text in entry, if needed
|
|
| DUP(IBARRAY,IBIFN) | ; Duplicate Check
; This function determines if the EOB data already exists in file ; 361.1 by comparing the checksums of the raw 835 data. |
|
| DUPX | ;
|
|
| ERADET(IBEOB,ERADET) | ; EP - Update EOB with reference to ERA detail - Subroutine added for IB*2.0*639
; Input: IBEOB - Internal entry number to file 361.1 ; ERADET - IENS reference to ERA detail in the format "nnn,nnnnnn," ; Output: None |
| FileNo | Call Tags |
|---|---|
| ^IBM(361.1 - [#361.1] | Classic Fileman Calls, WP^DIE |
