©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
ABSPOSH4 ; IHS/FCS/DRS - Parse Claim 5.1,D.0 Response ; [ 09/04/2002 12:56 PM ]
Source file <ABSPOSH4.m>
| Package | Total | Caller Graph |
|---|---|---|
| Pharmacy Point of Sale | 2 | ABSPECA4 ABSPOSAE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PARSEE1(RREC,E1IEN) | ;EP - from ABSPECA4
|
|
| 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) |
|
| PARSE51(RREC,RESPIEN) | ;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.) |
| Name | Field # of Occurrence |
|---|---|
| FILE^ABSPOSH5 | PARSE51+13 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSPE - [#9002313.7] | PARSEE1+6 |
| ^ABSPF(9002313.91 - [#9002313.91] | GETNUM+13, GETNUM+14 |
| ^ABSPR - [#9002313.03] | PARSE51+6 |
| Name | Line Occurrences |
|---|---|
| $$GETNUM | PARSETM+12, PARSETN+52, PARSETN+63 |
| PARSEH | TRANSMSN+9 |
| PARSETM | TRANSMSN+18 |
| PARSETN | TRANSMSN+19, TRANSACT+13 |
| TRANSACT | PARSEE1+12, PARSE51+12 |
| TRANSMSN | PARSEE1+11, PARSE51+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> CKRPT | PARSETN+69*, PARSETN+70 |
| E1IEN | PARSEE1~, PARSEE1+5, PARSEE1+6 |
| >> FDATA( | PARSETM+14* |
| >> FDATA("M" | PARSETN+56*, PARSETN+74*, PARSETN+77* |
| >> 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+21~, PARSETN+49, PARSETN+50*, PARSETN+51 , PARSETN+52, PARSETN+55, PARSETN+56, PARSETN+60, PARSETN+61*, PARSETN+62, PARSETN+63, PARSETN+74, PARSETN+77, 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+21~, PARSETN+52*, PARSETN+53, PARSETN+54, PARSETN+55, PARSETN+56 , PARSETN+63*, PARSETN+66, PARSETN+67*, PARSETN+69, PARSETN+73, PARSETN+74, PARSETN+77, GETNUM+5~, GETNUM+6*, GETNUM+14* , GETNUM+17 |
| FS | PARSEE1+1~, PARSEE1+9*, PARSE51+1~, PARSE51+9*, TRANSMSN+16, PARSETM+10, PARSETN+24, PARSETN+50, PARSETN+61 |
| >> GRP | TRANSACT+5*, TRANSACT+6 |
| GS | PARSEE1+1~, PARSEE1+9*, PARSE51+1~, PARSE51+9*, TRANSMSN+5, TRANSACT+6 |
| MEDN | TRANSMSN+19*, TRANSACT+2~, TRANSACT+3*, TRANSACT+8*, PARSETN+56, PARSETN+74, PARSETN+77 |
| OCNT | PARSETN+21~, PARSETN+55*, PARSETN+56 |
| PC | PARSETM+7~, PARSETM+9*, PARSETM+10, PARSETN+21~, PARSETN+49*, PARSETN+50, PARSETN+60*, PARSETN+61 |
| RCNT | PARSETN+21~ |
| RCNT( | PARSETN+73*, PARSETN+74 |
| RCNT(439 | PARSETN+45* |
| RCNT(511 | PARSETN+33* |
| RCNT(526 | PARSETN+33* |
| RCNT(528 | PARSETN+45* |
| RCNT(529 | PARSETN+45* |
| RCNT(530 | PARSETN+45* |
| RCNT(531 | PARSETN+45* |
| RCNT(532 | PARSETN+46* |
| RCNT(533 | PARSETN+46* |
| RCNT(544 | PARSETN+46* |
| RCNT(546 | PARSETN+33* |
| RCNT(548 | PARSETN+33* |
| RCNT(552 | PARSETN+37* |
| RCNT(553 | PARSETN+37* |
| RCNT(554 | PARSETN+37* |
| RCNT(555 | PARSETN+37* |
| RCNT(556 | PARSETN+37* |
| RCNT(564 | PARSETN+41* |
| RCNT(565 | PARSETN+41* |
| RCNT(567 | PARSETN+46* |
| REPEAT | PARSETN+21~, PARSETN+68*, PARSETN+70*, PARSETN+72, PARSETN+76 |
| RESPIEN | PARSE51~, PARSE51+5, PARSE51+6, PARSE51+13 |
| RHEADER | TRANSMSN+2~, TRANSMSN+8*, PARSEH+3, PARSEH+4, PARSEH+5, PARSEH+6, PARSEH+7, PARSEH+8, PARSEH+9 |
| RPTFLD | PARSETN+21~, PARSETN+23*, PARSETN+32*, PARSETN+36*, PARSETN+40*, PARSETN+44*, PARSETN+70 |
| RREC | PARSEE1~, PARSEE1+4, PARSE51~, PARSE51+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+15*, TRANSACT+2~, TRANSACT+10*, TRANSACT+11 |
| >> SEGFID | PARSETN+28*, PARSETN+31, PARSETN+35, PARSETN+39, PARSETN+43, PARSETN+48 |
| SEGID | TRANSMSN+2~, TRANSMSN+16*, TRANSMSN+17, TRANSMSN+18, TRANSMSN+19, PARSETN+24*, PARSETN+25, PARSETN+26, PARSETN+28 |
| SEGMENT | TRANSMSN+2~, TRANSMSN+15*, TRANSMSN+16, TRANSACT+2~, TRANSACT+10, TRANSACT+11*, TRANSACT+12, PARSETM+10, PARSETN+24, PARSETN+50 , PARSETN+61 |
| SS | PARSEE1+1~, PARSEE1+9*, PARSE51+1~, PARSE51+9*, TRANSMSN+8, TRANSMSN+15, TRANSACT+11 |
| U | GETNUM+14 |