IBECECU1 ;BSL/DVA-BILLING SEND/RECEIVE DFT HL7 MESSAGES PATIENT ACCUMULATOR INTERFACE - SEND/RECEIVE A DFT UPDATE TO/FROM OTHER SITES ; 08 Jul 2022 9:21 AM
Source file <IBECECU1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN,IBCLDA) | ; OUTGOING DFT PRIMARY ENTRY POINT
; IBCLDA - IEN FROM 351 |
|
| MSH | ; Build outgoing MSH Segment
|
|
| EVN | ; Build outgoing EVN Segment
|
|
| PID | ; Build outgoing PID Segment
|
|
| FT1 | ; Build FT1 Outgoing segment
|
|
| FT2 | ;BUILD OUTGOING FT2 SEGMENT
|
|
| SEND | ;SEND MESSAGE AND QUIT
|
|
| RECV | ; INCOMING DFT PRIMARY ENTRY POINT
|
|
| EVNI | ;Parse Incoming EVN Segment
|
|
| PIDI | ;Parse Incoming PID Segment
|
|
| FT1I | ;Parse Incoming FT1 Segment, assumes one record only
; Get new 365 day clock data |
|
| FT2I | ;Parse Incoming FT1 Segment,
|
|
| PARSE | ; Get the updated clock data to send via DFT
|
|
| NEWREC | ;Create a new entry in file 351
|
|
| AGGR | ||
| MULTCLK | ||
| CHCKDAYS | ;Check days for each clock - For future Cerner work
|
|
| UPDATE(IBDA) |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^IBE(351 - [#351] | Classic Fileman Calls, GET1^DIQ, GETS^DIQ |
