IBCNEHL7 ;AITC/DM - HL7 Process Incoming 271 Messages Continued;05-MAY-2018
Source file <IBCNEHL7.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SVEICD() | ; Save EICD Identification Data into the EIV EICD TRACKING (#365.18) file.
; INPUT: IBTRACK array indexed by SETID ; RIEN Internal Entry Number of the IIV RESPONSE (#365) File. |
|
| SVEICDQ | ;
|
|
| PROCTRK(TRKIEN) | ; Process the EICD Tracking File entries.
; TRKIEN = EIV EICD TRACKING Identification IEN |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | FIND1^DIC |
| ^IBE(350.9 - [#350.9] | GET1^DIQ |
| ^IBE(355.12 - [#355.12] | FIND1^DIC |
| ^IBCN(365 - [#365] | GET1^DIQ |
| ^IBE(365.12 - [#365.12] | FIND1^DIC |
| 365.121 | GET1^DIQ |
| ^IBE(365.14 - [#365.14] | FIND1^DIC |
| ^IBCN(365.18 - [#365.18] | GET1^DIQ |
| 365.185 | GETS^DIQ |
