IBCE277 ;ALB/TMP - 277 EDI CLAIM STATUS MESSAGE PROCESSING ;15-JUL-98
Source file <IBCE277.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 2 | $$FT^IBCEF $$LAST364^IBCEF4 |
VA FileMan | 1 | ^%DT |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 3 | IBCE277S IBCE835 IBCE835A |
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
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399 - [#399] | 15+17, STRTREC+9 |
^DPT - [#2] | 15+18, 15+19 |
^IBA(364 - [#364] | GETBILL+5 |
^TMP("IBCONF" | 10+15* |
^TMP("IBMSG" | HDR+51*, HDR+53*, 9+16*, 9+17*, 10+18, 10+19, 10+26*, 10+27*, 10+32*, 13+15 , 13+17*, 13+19*, 13+21*, 13+23*, 13+26*, 15+16, 15+20*, 15+23*, ENDREC+12* |
^TMP("IBMSG-H" | HDR+35, HDR+36*, HDR+39*, HDR+44*, HDR+48* |
^TMP("IBMSGH" | HDR+26 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %DT | HDR+29* |
CLAIM | GETBILL~ |
CODE | 10+12~, 10+20*, 10+23, 10+25 |
CTYPE | 13+11~, 13+25*, 13+26 |
D | DATE+1~, DATE+2*, DATE+3*, DATE+4 |
DATA | HDR+25~, HDR+34*, HDR+35, HDR+36, HDR+43*, HDR+44, HDR+47*, HDR+48, 10+12~, 10+25* , 10+26, 10+27, 15+12~, 15+22*, 15+23 |
DT | DATE~, DATE+2, DATE+3 |
ENTITY | HDR~, HDR+35, HDR+36, HDR+39, HDR+44, HDR+48, HDR+51, HDR+53, 9+10~, 9+16 , 9+17, 10+12~, 10+18, 10+19, 10+26, 10+27, 10+32, 13+11~, 13+17, 13+19 , 13+21, 13+23, 13+26, 15+12~, 15+20, 15+23, STRTREC+8*, ENDREC+8, ENDREC+12 |
ENTVAL | HDR~, HDR+35, HDR+36, HDR+39, HDR+44, HDR+48, HDR+51, HDR+53 |
ERR | 9+10~, 9+14*, 9+17 |
FLD | 9+10~, 9+16* |
IBCLM | 9+10~, 9+12, 9+16, 9+17, 10+12~, 10+14, 10+18, 10+19, 10+23, 10+26 , 10+27, 10+29, 10+32, 13+11~, 13+15, 13+17, 13+19, 13+21, 13+23, 13+26 , 15+12~, 15+16, 15+20, 15+23, STRTREC+8*, STRTREC+9, ENDREC+9, ENDREC+12, GETCLM+1~, GETCLM+2* , GETCLM+3 |
IBD | HDR~, 9~, 9+14, 9+16, 10~, 10+15, 10+16, 10+18, 10+19, 10+20 , 10+23, 10+26, 10+27, 10+32, 13~, 13+17, 13+19, 13+21, 13+23, 13+25 , 15~, 15+18, 15+19, 15+21, 15+22, 15+23, STRTREC+8, ENDREC+12 |
IBD("BATCH" | HDR+32*, HDR+39 |
IBD("DATE" | HDR+31*, HDR+51 |
IBD("LINE" | STRTREC+8, ENDREC+15* |
IBD("MRA" | HDR+31* |
IBD("MSG#" | HDR+51 |
IBD("SCODE" | 10+23, 10+29* |
IBD("SOURCE" | HDR+32*, HDR+51 |
IBD("SUBJ" | HDR+51 |
IBD("X12" | HDR+31* |
IBD0 | HDR+25~, HDR+26*, HDR+29, HDR+31, HDR+32, HDR+33, HDR+34, HDR+40, HDR+43, HDR+45 , HDR+47, HDR+53 |
IBDFN | 15+12~, 15+17*, 15+18, 15+19 |
IBIFN | 9+10~, 9+12, 10+12~, 10+14, 10+15, 13+11~, 13+13, 13+25, 15+12~, 15+14 , 15+17, STRTREC+9*, GETBILL+2, GETBILL+5 |
IBNM | 15+12~, 15+18*, 15+20 |
IBNUM | 15+12~, 15+19*, 15+20 |
IBTYPE | HDR~, HDR+51, 10+12~, 10+16*, 10+18, 10+19 |
L | HDR+25~, HDR+27*, HDR+35*, HDR+36, HDR+39*, HDR+41*, HDR+44, HDR+48*, 9+10~, 9+16* , 9+17*, 10+12~, 10+25*, 10+26, 10+27*, 10+32*, 13+11~, 13+17*, 13+19*, 13+21* , 13+23*, 13+26*, 15+12~, 15+20*, 15+22*, 15+23, STRTREC+8*, ENDREC+15 |
PC | HDR+25~, HDR+33*, HDR+34 |
PREC | GETBILL+1~, GETBILL+2*, GETBILL+5*, GETBILL+7 |
STATUS | GETBILL+1~, GETBILL+5* |
TRANS | GETBILL+1~, GETBILL+2*, GETBILL+5*, GETBILL+7*, GETBILL+8 |
TYPE | ENDREC~, ENDREC+10, ENDREC+12 |
U | HDR+29, HDR+31, HDR+32, HDR+33, HDR+34, HDR+40, HDR+43, HDR+45, HDR+47, HDR+51 , 9+14, 9+16, 10+15, 10+16, 10+19, 10+20, 10+23, 10+26, 10+27, 10+32 , 13+17, 13+19, 13+21, 13+23, 13+25, 15+17, 15+18, 15+19, 15+21, 15+22 , 15+23, STRTREC+8, GETBILL+5 |
X | HDR+25~, HDR+29*, GETCLM~, GETCLM+2 |
Y | HDR+25~, HDR+27*, HDR+31, DATE+1~, DATE+2*, DATE+3*, DATE+4 |
Z | 10+12~, 10+23*, 10+29 |
Z1 | 13+11~, 13+25* |
Z2 | 13+11~, 13+25* |