IBCNEHL7 ;AITC/DM - HL7 Process Incoming 271 Messages Continued;05-MAY-2018
Source file <IBCNEHL7.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 |
|---|---|---|
| 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 |
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | PROCTRK+7, PROCTRK+8, PROCTRK+18, PROCTRK+63 |
| FILE^DIE | SVEICD+10, PROCTRK+50 |
| UPDATE^DIE | SVEICD+29 |
| $$GET1^DIQ | SVEICD+5, PROCTRK+6, PROCTRK+9, PROCTRK+24, PROCTRK+25, PROCTRK+75 |
| GETS^DIQ | PROCTRK+13 |
| $$ADDSTF^IBCNBES | PROCTRK+79 |
| $$SETTQ^IBCNEDE7 | PROCTRK+44 |
| MSG002^IBCNEMS1 | PROCTRK+53 |
| $$PROCSEND^IBCNERTQ | PROCTRK+56 |
| $$MGRP^IBCNEUT5 | PROCTRK+54 |
| $$PYRAPP^IBCNEUT5 | PROCTRK+23 |
| MSG^IBCNEUT5 | PROCTRK+54 |
| $$FMADD^XLFDT | PROCTRK+6 |
| $$FMTE^XLFDT | PROCTRK+68 |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBCN(365.18 - [#365.18] | SVEICD+6, PROCTRK+11 |
| ^TMP("DIERR" | PROCTRK+57! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | SVEICD+4~, SVEICD+11*, SVEICD+13, SVEICD+14, SVEICD+15, SVEICD+16, SVEICD+17, SVEICD+18, SVEICD+19, SVEICD+20 , SVEICD+21, SVEICD+22, SVEICD+23, SVEICD+24, SVEICD+25, SVEICD+26, SVEICD+27, SVEICD+28 |
| DATA1 | PROCTRK+3~, PROCTRK+41*, PROCTRK+44, PROCTRK+56* |
| DATA2 | PROCTRK+3~, PROCTRK+42*, PROCTRK+44 |
| DATA5 | PROCTRK+3~, PROCTRK+43*, PROCTRK+44 |
| DT | PROCTRK+6, PROCTRK+42, PROCTRK+49, PROCTRK+68 |
| DUZ | PROCTRK+62~, PROCTRK+63*, PROCTRK+66 |
| IBBUF | PROCTRK+3~, PROCTRK+64!, PROCTRK+79 |
| IBBUF( | PROCTRK+66*, PROCTRK+67*, PROCTRK+68*, PROCTRK+69*, PROCTRK+70*, PROCTRK+71*, PROCTRK+72*, PROCTRK+73*, PROCTRK+74*, PROCTRK+75* , PROCTRK+76*, PROCTRK+77* |
| IBBUFIEN | PROCTRK+3~, PROCTRK+79* |
| IBCSIEN | PROCTRK+3~, PROCTRK+8*, PROCTRK+43, PROCTRK+79 |
| IBDFN | PROCTRK+3~, PROCTRK+9*, PROCTRK+41, PROCTRK+70, PROCTRK+79 |
| IBERR | PROCTRK+3~, PROCTRK+47!, PROCTRK+53 |
| IBERR("DIERR" | PROCTRK+51 |
| IBFDA | PROCTRK+3~, PROCTRK+47! |
| IBFDA( | PROCTRK+48*, PROCTRK+49* |
| IBFMIEN | PROCTRK+3~, PROCTRK+12*, PROCTRK+13, PROCTRK+17, PROCTRK+18, PROCTRK+27, PROCTRK+28, PROCTRK+41, PROCTRK+48, PROCTRK+49 , PROCTRK+69, PROCTRK+71, PROCTRK+72, PROCTRK+73, PROCTRK+74, PROCTRK+76, PROCTRK+77 |
| IBFRESH | PROCTRK+4~, PROCTRK+6*, PROCTRK+41 |
| IBIDIEN | PROCTRK+4~, PROCTRK+11*, PROCTRK+12, PROCTRK+43 |
| IBINSDTA | PROCTRK+4~, PROCTRK+13!, PROCTRK+14 |
| IBINSDTA( | PROCTRK+17, PROCTRK+18, PROCTRK+27, PROCTRK+28, PROCTRK+41, PROCTRK+69, PROCTRK+71, PROCTRK+72, PROCTRK+73, PROCTRK+74 , PROCTRK+76, PROCTRK+77 |
| IBMSG | PROCTRK+4~, PROCTRK+52*, PROCTRK+53 |
| IBPYRIEN | PROCTRK+4~, PROCTRK+16*, PROCTRK+18*, PROCTRK+19, PROCTRK+23, PROCTRK+24, PROCTRK+25, PROCTRK+41 |
| IBPYROK | PROCTRK+4~, PROCTRK+16*, PROCTRK+17*, PROCTRK+18, PROCTRK+19*, PROCTRK+20, PROCTRK+24*, PROCTRK+25*, PROCTRK+26 |
| IBSUBID | PROCTRK+4~, PROCTRK+27*, PROCTRK+28*, PROCTRK+41 |
| IBTQIEN | PROCTRK+4~, PROCTRK+44*, PROCTRK+45, PROCTRK+48, PROCTRK+53, PROCTRK+56 |
| IBTQSTAT | PROCTRK+4~, PROCTRK+7*, PROCTRK+41 |
| >> IBTRACK( | SVEICD+11, SVEICD+14, SVEICD+15, SVEICD+16, SVEICD+17, SVEICD+18, SVEICD+19, SVEICD+20, SVEICD+21, SVEICD+22 , SVEICD+23, SVEICD+24, SVEICD+25, SVEICD+26, SVEICD+27, SVEICD+28 |
| >> IBTRACK(0 | SVEICD+7, SVEICD+8, SVEICD+9 |
| IENS | SVEICD+4~, SVEICD+6*, SVEICD+7, SVEICD+8, SVEICD+9, SVEICD+12~, SVEICD+13*, SVEICD+14, SVEICD+15, SVEICD+16 , SVEICD+17, SVEICD+18, SVEICD+19, SVEICD+20, SVEICD+21, SVEICD+22, SVEICD+23, SVEICD+24, SVEICD+25, SVEICD+26 , SVEICD+27, SVEICD+28 |
| PYRAPP | PROCTRK+21~, PROCTRK+23*, PROCTRK+24, PROCTRK+25 |
| >> RIEN | SVEICD+5 |
| RSUPDT | SVEICD+4~, SVEICD+12~ |
| RSUPDT( | SVEICD+7*, SVEICD+8*, SVEICD+9*, SVEICD+14*, SVEICD+15*, SVEICD+16*, SVEICD+17*, SVEICD+18*, SVEICD+19*, SVEICD+20* , SVEICD+21*, SVEICD+22*, SVEICD+23*, SVEICD+24*, SVEICD+25*, SVEICD+26*, SVEICD+27*, SVEICD+28* |
| RSUPDT9IEN | SVEICD+12~ |
| TQIEN | SVEICD+4~, SVEICD+5*, SVEICD+6 |
| TRKIEN | SVEICD+4~, SVEICD+6*, SVEICD+13, SVEICDQ+1, PROCTRK~, PROCTRK+9, PROCTRK+11, PROCTRK+12 |
| U | PROCTRK+41, PROCTRK+42, PROCTRK+43 |
