BPSECMPS ;BHAM ISC/FCS/DRS - Parse Claim Response ;3/10/08 12:31
Source file <BPSECMPS.m>
| 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. |
| FileNo | Call Tags |
|---|---|
| ^BPSR - [#9002313.03] | WP^DIE |
