IBCNEDEP ;DAOU/ALA - Process Transaction Records ;14-OCT-2015
Source file <IBCNEDEP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Entry point
|
|
| TMT | ; If the status is 'Transmitted' - is this a 'Retry' or
; 'Comm Failure' |
|
| RET | ; If status is 'Retry' ; retries only exist if the RETRYFLG=YES - IB*2.0*506
|
|
| FIN | ; Prioritize requests for statuses 'Retry' and 'Ready to Transmit'
|
|
| LP | ; Loop through priorities, process as either verifications
; or identifications |
|
| EXIT | ; Finish
|
|
| VER | ; Initialize HL7 variables protocol for Verifications
|
|
| ID | ; Send Identification Msgs
|
|
| XMIT1(IEN) | ; Transmit one transaction at time. Currently only used for Appointment Extract.
; created tag with IB*778/TAZ ; Input: IEN - the Transaction Queue entry |
|
| XMIT1Q | ;Exit
|
|
| PROC() | ; Process TQ record
|
|
| HLD | ; Go through the 'Hold' statuses, see if ready to be 'retried'
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| ^IBCN(365.1 - [#365.1] | GET1^DIQ |
| ^IBE(365.15 - [#365.15] | FIND1^DIC |
| 365.16 | GET1^DIQ |
