IBCNEHL3 ;DAOU/ALA - HL7 Process Incoming RPI Continued ;03-JUL-2002 ; Compiled June 2, 2005 14:20:19
Source file <IBCNEHL3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ERROR(TQN,ERACT,ERCON,TRCN) | ; Entry point
; Input: TQN - IEN for eIV Transmission Queue (#365.1), required ; ERACT - Error Action Code (#365.14), required ; ERCON - Error Condition Code (#365.17), required ; TRCN - Trace # from eIV Response (#365) |
|
| ERRORX | ; ERROR exit pt
|
|
| UPDATE(TQN,TSTS,TDAYS,ERACT,ERCON) | ; Update Transmission Queue (#365.1)
; Update/Create Buffer information as necessary ; * If unsolicited error or negative Verification response do not ; update TQ entry. However, create a new Buffer entry. ; Input Variables ; ERACT,ERCON,IIVSTAT,TDAYS,TQN,TSTS |
|
| UPDATX | ; UPDATE exit point
|
|
| PCK | ; Payer Check
; Find the associated Response IEN |
|
| BUF | ; Create Buffer Record if Doesn't Exist
|
|
| IIVPROC(BUFF) | ; Set IIV Processed Date to current dt/tm & IIV stat (aka SYMBOL)
; Input Variables ; BUFF |
|
| PFN(IN1DATA) | ; Find Payer from HL7 msg
|
|
| GIN1() | ;Get IN1 segment
|
|
| WARN | ; Create and send a response processing error warning message
|
|
| UEACT | ; Send warning msg if Unknown Error Action Code was received or
; encountered problem filing date |
|
| CHK1() | ; check auto-update criteria for patient who is the subscriber
; called from tag AUTOUPD, uses variables defined there |
|
| CHK1X | ;
|
|
| CHK2(MWNRTYP) | ; check auto-update criteria for patient who is not the subscriber
; called from tag AUTOUPD, uses variables defined there |
|
| CHK2X | ;
|
|
| UPDIREC(RIEN,IEN312) | ; IB*2*595/DM update INSUR RECORD IEN in the response file (#365,.12)
; RIEN - ien in eIV Response file (365) ; IEN312 - ien in pat. insurance multiple (2.312) |
|
| LCKERR | ; send locking error message
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| 2.312 | GET1^DIQ |
| ^VA(200 - [#200] | FIND1^DIC |
| ^IBCN(365 - [#365] | Classic Fileman Calls, FIND^DIC |
| ^IBCN(365.1 - [#365.1] | Classic Fileman Calls |
| ^IBE(365.12 - [#365.12] | FIND1^DIC |
