©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ABSPDR ; IHS/OIT/CASSEVER/RAN - Parse Claim D.0 Response ; [ 03/04/2011 12:56 PM ]
Source file <ABSPDR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TRANSMSN | ;This subroutine will work through the transmission level information
|
|
| PARSETN | ; This subroutine will parse the transaction level segments. For
; most transactions, the only segment required in this area of ; the response is the status segment. However, since we aren't ; sure what we will be getting back, we will process whatever ; is sent our way. |
|
| TRANSACT | ;This subroutine will work through the transaction level information
|
|
| PARSETM | ; This subroutine will parse the variable portions of the transmission
; level message. Keep in mind that most fields are optional ; so we have no idea what is coming back. We will parse based ; on the field separators, and field identification. ; (tranmission level variable records are the message (ID=20) ; and insurance (ID=25) segments) |
|
| PARSEE1(RREC,E1IEN,DEBUG) | ;EP - from ABSPECA4
|
|
| PARSEH | ; The header record is required on all responses, and is fixed
; length. It is the only record that is fixed length. |
|
| GETNUM(FIELD) | ; This routine will translate the field ID into a field number.
; We will use the ABSP NCPDP field Defs files, corss ref "D" to ; perform this translation. (The field number is needed to store ; the data in the correct field within the response file.) |
|
| PARSEB1(RREC,RESPIEN,DEBUG) | ;EP - from ABSPECA4
|
| Name | Field # of Occurrence |
|---|---|
| FILE^ABSPOSH5 | PARSEB1+14 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSPE - [#9002313.7] | PARSEE1+6 |
| ^ABSPF(9002313.91 - [#9002313.91] | GETNUM+13, GETNUM+14 |
| ^ABSPR - [#9002313.03] | PARSEB1+6 |
| Name | Line Occurrences |
|---|---|
| $$GETNUM | PARSETM+12, PARSETN+54 |
| PARSEH | TRANSMSN+9 |
| PARSETM | TRANSMSN+19 |
| PARSETN | TRANSACT+13 |
| TRANSACT | PARSEE1+12, PARSEB1+12 |
| TRANSMSN | PARSEE1+11, PARSEB1+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> CKRPT | PARSETN+59*, PARSETN+60 |
| DEBUG | PARSEE1~, PARSEB1~, PARSEB1+14 |
| E1IEN | PARSEE1~, PARSEE1+5, PARSEE1+6 |
| >> FDATA( | PARSETM+14* |
| >> FDATA("M" | PARSETN+64*, PARSETN+67* |
| >> FDATA(102 | PARSEH+3* |
| >> FDATA(103 | PARSEH+4* |
| >> FDATA(109 | PARSEH+5* |
| >> FDATA(201 | PARSEH+8* |
| >> FDATA(202 | PARSEH+7* |
| >> FDATA(401 | PARSEH+9* |
| >> FDATA(501 | PARSEH+6* |
| FIELD | PARSETM+7~, PARSETM+9, PARSETM+10*, PARSETM+11, PARSETM+12, PARSETM+14, PARSETN+22~, PARSETN+51, PARSETN+52*, PARSETN+53 , PARSETN+54, PARSETN+64, PARSETN+67, GETNUM~, GETNUM+9 |
| FLDID | GETNUM+5~, GETNUM+6*, GETNUM+9*, GETNUM+10, GETNUM+12, GETNUM+13 |
| FLDIEN | GETNUM+5~, GETNUM+7*, GETNUM+13*, GETNUM+14 |
| FLDNUM | PARSETM+7~, PARSETM+12*, PARSETM+13, PARSETM+14, PARSETN+22~, PARSETN+54*, PARSETN+57, PARSETN+59, PARSETN+63, PARSETN+64 , PARSETN+67, GETNUM+5~, GETNUM+6*, GETNUM+14*, GETNUM+17 |
| FS | PARSEE1+1~, PARSEE1+9*, PARSEB1+1~, PARSEB1+9*, TRANSMSN+17, PARSETM+10, PARSETN+25, PARSETN+52 |
| >> GRP | TRANSACT+5*, TRANSACT+6 |
| GS | PARSEE1+1~, PARSEE1+9*, PARSEB1+1~, PARSEB1+9*, TRANSMSN+5, TRANSACT+6 |
| MEDN | TRANSACT+2~, TRANSACT+3*, TRANSACT+8*, PARSETN+64, PARSETN+67 |
| PC | PARSETM+7~, PARSETM+9*, PARSETM+10, PARSETN+22~, PARSETN+51*, PARSETN+52 |
| RCNT | PARSETN+22~ |
| RCNT( | PARSETN+63*, PARSETN+64 |
| RCNT(439 | PARSETN+46* |
| RCNT(511 | PARSETN+34* |
| RCNT(526 | PARSETN+34* |
| RCNT(528 | PARSETN+46* |
| RCNT(529 | PARSETN+46* |
| RCNT(530 | PARSETN+46* |
| RCNT(531 | PARSETN+46* |
| RCNT(532 | PARSETN+47* |
| RCNT(533 | PARSETN+47* |
| RCNT(544 | PARSETN+47* |
| RCNT(546 | PARSETN+34* |
| RCNT(548 | PARSETN+34* |
| RCNT(552 | PARSETN+38* |
| RCNT(553 | PARSETN+38* |
| RCNT(554 | PARSETN+38* |
| RCNT(555 | PARSETN+38* |
| RCNT(556 | PARSETN+38* |
| RCNT(564 | PARSETN+42* |
| RCNT(565 | PARSETN+42* |
| RCNT(567 | PARSETN+47* |
| REPEAT | PARSETN+22~, PARSETN+58*, PARSETN+60*, PARSETN+62, PARSETN+66 |
| RESPIEN | PARSEB1~, PARSEB1+5, PARSEB1+6, PARSEB1+14 |
| RHEADER | TRANSMSN+2~, TRANSMSN+8*, PARSEH+3, PARSEH+4, PARSEH+5, PARSEH+6, PARSEH+7, PARSEH+8, PARSEH+9 |
| RPTFLD | PARSETN+22~, PARSETN+24*, PARSETN+33*, PARSETN+37*, PARSETN+41*, PARSETN+45*, PARSETN+60 |
| RREC | PARSEE1~, PARSEE1+4, PARSEB1~, PARSEB1+4, TRANSMSN+5, TRANSACT+6 |
| RTRAN | TRANSACT+2~, TRANSACT+5, TRANSACT+6*, TRANSACT+7, TRANSACT+11 |
| RTRANM | TRANSMSN+2~, TRANSMSN+5*, TRANSMSN+8, TRANSMSN+15 |
| SEG | TRANSMSN+2~, TRANSMSN+14*, TRANSMSN+15, TRANSACT+2~, TRANSACT+10*, TRANSACT+11 |
| >> SEGFID | PARSETN+29*, PARSETN+32, PARSETN+36, PARSETN+40, PARSETN+44 |
| SEGID | TRANSMSN+2~, TRANSMSN+17*, TRANSMSN+18, TRANSMSN+19, PARSETN+25*, PARSETN+26, PARSETN+27, PARSETN+29 |
| SEGMENT | TRANSMSN+2~, TRANSMSN+15*, TRANSMSN+16, TRANSMSN+17, TRANSACT+2~, TRANSACT+10, TRANSACT+11*, TRANSACT+12, PARSETM+10, PARSETN+25 , PARSETN+52 |
| SS | PARSEE1+1~, PARSEE1+9*, PARSEB1+1~, PARSEB1+9*, TRANSMSN+8, TRANSMSN+15, TRANSACT+11 |
| U | GETNUM+14 |