BPSECMPS ;BHAM ISC/FCS/DRS - Parse Claim Response ;3/10/08 12:31
Source file <BPSECMPS.m>
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PARSE(RREC,CLAIMIEN,IEN59,TRANTYPE) | ;
; Parse the response from the payer and file it in the BPS Response record ; Incoming Parameters: ; RREC - HL7 message ; CLAIMIEN - IEN of the BPS Claim file ; IEN59 - IEN of the BPS Transaction file ; TRANTYPE - Transaction Type (B1-Billing Request, B2-Reversal, E1-Eligibility) ; Return value: ; RESPIEN - IEN of the BPS Response file |
|
| TRANSMSN | ;This subroutine will work through the transmission level information
|
|
| TRANSACT | ;This subroutine will work through the transaction level information
|
|
| PARSEH | ; parse the header record, required on all responses, and is fixed length
; It's the only record that is fixed length. |
|
| PARSETM | ; parse the variable portions of the transmission
|
|
| PARSETN | ; parse the transaction level segments
|
|
| GETNUM(FIELD) | ; function, return field number for a field I
; use BPS NCPDP FIELD DEFS (#9002313.91) "D" cross ref for lookup ; field number is used to store the data in the correct field in BPS RESPONSES (#9002313.03) |
|
| VNUM(FLDNUM) | ;function, returns VistA FileMan field number
|
|
| PROCRESP | ; add data to RESPONSES SUB-FIELD (#9002313.0301)
|
|
| PROCREJ | ; add data to REJECT CODE SUB-FIELD (#9002313.03511)
|
|
| PROCAPP | ; APPROVED MESSAGE CODE SUB-FIELD (#9002313.301548)
|
|
| PROCPPR | ; PREFERRED PRODUCT REPEATING SUB-FIELD (#9002313.1301)
|
|
| PROCCOB | ; OTHER PAYER ID MLTPL SUB-FIELD (#9002313.035501)
|
|
| PROCINT | ; INTERMEDIARY REPEATING SUB-FIELD (#9002313.032052)
|
|
| PROCQLIM | ; QUANTITY LIMIT PER SPECIFIC TIME PERIOD REPEATING SUB-FIELD (# 9002313.032087)
|
|
| PROCDSLM | ; DAYS SUPPLY LIMIT PER SPECIFIC TIME PERIOD REPEATING SUB-FIELD (# 9002313.032091)
|
|
| RAW(RESPIEN,RREC) | ; store raw data received from the payer
; pass in the response IEN (9002313.03) and the raw data to be stored. |
| Name | Field # of Occurrence |
|---|---|
| IBSEND^BPSECMP2 | PARSE+47 |
| PROCADM^BPSECMP2 | PARSE+35 |
| PROCBEN^BPSECMP2 | PARSE+34 |
| PROCDUR^BPSECMP2 | PARSE+36 |
| PROCOTH^BPSECMP2 | PARSE+33 |
| $$NOWFM^BPSOSU1 | PARSEH+4 |
| $$CHECK^BPSTEST | PARSE+24 |
| SETOVER^BPSTEST | PARSE+24 |
| UPDATE^DIE | PARSE+26, PROCRESP+17, PROCREJ+10, PROCAPP+8, PROCPPR+10, PROCCOB+10, PROCINT+10, PROCQLIM+10, PROCDSLM+10 |
| WP^DIE | RAW+5 |
| FDA^DILF | PARSEH+3, PARSEH+4, PARSEH+5, PARSEH+6, PARSEH+7, PARSEH+9, PARSEH+10, PARSEH+11, PARSEH+12, PARSETM+10 , PROCRESP+9, PROCRESP+15, PROCREJ+9, PROCAPP+7, PROCPPR+8, PROCPPR+9, PROCCOB+8, PROCCOB+9, PROCINT+8, PROCINT+9 , PROCQLIM+8, PROCQLIM+9, PROCDSLM+8, PROCDSLM+9 |
| $$TRIM^XLFSTR | PROCREJ+7 |
| FileNo | Call Tags |
|---|---|
| ^BPSR - [#9002313.03] | WP^DIE |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BPSF(9002313.91 - [#9002313.91] | GETNUM+8, GETNUM+9, VNUM+2, VNUM+3 |
| ^TMP($J | RAW+3!, RAW+4*, RAW+6! |
| Name | Line Occurrences |
|---|---|
| $$GETNUM | PARSETM+7, PARSETN+57 |
| $$VNUM | PARSETN+61 |
| PARSEH | TRANSMSN+9 |
| PARSETM | TRANSMSN+19 |
| PARSETN | TRANSACT+13 |
| PROCAPP | PARSE+30 |
| PROCCOB | PARSE+32 |
| PROCDSLM | PARSE+39 |
| PROCINT | PARSE+37 |
| PROCPPR | PARSE+31 |
| PROCQLIM | PARSE+38 |
| PROCREJ | PARSE+29 |
| PROCRESP | PARSE+28 |
| RAW | PARSE+48 |
| TRANSACT | PARSE+20 |
| TRANSMSN | PARSE+19 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
