IBCE277 ;ALB/TMP - 277 EDI CLAIM STATUS MESSAGE PROCESSING ;15-JUL-98
Source file <IBCE277.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HDR(ENTITY,ENTVAL,IBTYPE,IBD) | ;Process header data
; INPUT: ; ENTITY = "BATCH" or "CLAIM" for batch/claim level messages respectively ; ENTVAL = claim # ; IBTYPE = the type of status msg this piece of the message represents ; (837REC1, 837REJ1) ; ^TMP("IBMSGH",$J,0) = header message text |
|
| 9(IBD) | ; Process Message Header record
; INPUT: ; IBD must be passed by reference = entire message line ; OUTPUT: ; IBD array returned with processed data ; "CLAIM" = claim # ; "LINE" = last line # populated in the message |
|
| 10(IBD) | ; Process message data
; INPUT: ; IBD must be passed by reference = entire message line ; OUTPUT: ; IBD array returned with processed data ; "CLAIM" = claim # ; "LINE" = last line # populated in the message |
|
| 13(IBD) | ; Process claim data
; Claim must have been referenced by a previous '10' level ; INPUT: ; IBD must be passed by reference = entire message line |
|
| 15(IBD) | ; Process subscriber/patient data
; Claim must have been referenced by a previous '10' level ; INPUT: ; IBD must be passed by reference = entire message line |
|
| STRTREC | ; start processing of the record
; ; OUTPUT: ; sets the following variables ; IBCLM = claim # ; ENTITY = "CLAIM" (all 277STAT messages are on claim level) ; L = last populated line number |
|
| ENDREC(TYPE) | ; finish processing of the record
; INPUT: ; TYPE = record type (line type) ; ; OUTPUT: ; IBD("LINE") = is updated with last populated line number |
|
| GETBILL(CLAIM) | ; Extract transmission #
|
|
| DATE(DT) | ; Convert YYMMDD Date into MM/DD/YY or YYYYMMDD into MM/DD/YYYY
|
|
| GETCLM(X) | ; Extract the claim # without site id from the data in X
|
