IBCNEHL6 ;EDE/DM - HL7 Process Incoming RPI Continued ; 19-OCT-2017
Source file <IBCNEHL6.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FIL | ; Finish processing the response message - file into insurance buffer
|
|
| FILX | ;
|
|
| BUFLOCK(BUFF,ONOFF) | ;Get a lock on the Buffer entry associated with this Response IEN
; Input: ; BUFF Buffer IEN file #355.33 ; ONOFF 0=unlock / 1=lock ; Output: ; OK 0=Not successful / 1=Successful |
|
| LOCKEND | ;
|
|
| UPDBUF(BUFF,SYMBOL) | ; Update the IIV PROCESSED DATE (#355.33,.15) and update Buffer eIV Symbol based
; on the incoming Response. |
| FileNo | Call Tags |
|---|---|
| ^IBA(355.33 - [#355.33] | GET1^DIQ |
| ^IBCN(365 - [#365] | GET1^DIQ |
| 365.185 | GETS^DIQ |
