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,IBUPVRSN) | ; OUTGOING DFT PRIMARY ENTRY POINT
; IBCLDA - IEN FROM 351 |
|
| MSH | ; Build outgoing MSH Segment
|
|
| EVN | ;
|
|
| PID | ; Build outgoing PID Segment
|
|
| FT1 | ; Build FT1 Outgoing segment
|
|
| SEND | ;SEND MESSAGE AND QUIT
|
|
| RECV | ; INCOMING DFT PRIMARY ENTRY POINT
|
|
| PIDI | ;Parse Incoming PID Segment
|
|
| FT1I | ;Parse Incoming FT1 Segment, assumes one record only
; Get new 365 day clock data |
|
| PARSE | ; Get the updated clock data to send via DFT
|
|
| NEWREC | ;Create a new entry in file 351
|
|
| AGGR | ||
| UPDATE(IBDA) | ||
| MSA | ;Build and send App Ack
|
|
| DFTACK | ;process app ack
|
|
| GETDET | ;get outgoing DFT details based on returned App Ack Message ID
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^IBE(351 - [#351] | Classic Fileman Calls, GET1^DIQ, GETS^DIQ |
