RGADTP ;BIR/DLR-ADT PROCESSOR TO RETRIGGER A08 or A04 MESSAGES WITH AL/AL (COMMIT/APPLICATION) ACKNOWLEDGEMENTS ;2/18/22 10:22
Source file <RGADTP.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
INIT | ;
|
|
PROC | ;processing entry point
|
|
IN | ;Process in the ADT A04/A08 (routing logic)
|
|
QUIT | ||
ROUTE | ;
|
|
RESP | ;
|
|
PICK | ;check routine for segment entry point
|
|
MSA | ;process the MSA segment
|
|
MSH | ;
|
|
PV2 | ;processor of PV2 segment ;**47
|
|
PV2B() | ;builder of PV2 segment ;**47
|
|
PHARA() | ;build obx to show active prescriptions
|
|
LABE() | ;BUILD OBX FOR LAST LAB TEST DATE
|
|
RADE() | ;BUILD OBX FOR LAST RADIOLOGY TEST DATE
|
|
EVN | ;;
|
|
EVNP | ;
|
|
PID | ;;
|
|
PD1 | ;SET PD1 SEQ 3 TO BE PREFERRED FACILITY INSTEAD OF CMOR PATCH **45
|
|
PV1 | ;;
|
|
OBX | ;;
|
|
ZPD | ;;
|
|
ZSP | ;;
|
|
ZEL | ;;
|
|
ZCT | ;;
|
|
ZEM | ;;
|
|
ZFF | ;;
|
|
PROCIN | ;
|
|
GENACK | ;
|
|
RSP | ;
|
|
OLD() | ; Return OBX segment to flag a record as "old"
|
HL7 Protocol Name | Call Tags |
---|---|
MPIF ADT-A31 CLIENT | INIT |
RG ADT-A01 2.4 SERVER | RESP |
RG ADT-A01 2.4 CLIENT | INIT |
RG ADT-A03 2.4 SERVER | RESP |
RG ADT-A03 2.4 CLIENT | INIT |
RG ADT-A04 2.4 SERVER | RESP |
RG ADT-A04 2.4 CLIENT | INIT |
RG ADT-A08 2.4 SERVER | RESP |
RG ADT-A08 2.4 CLIENT | INIT |
FileNo | Call Tags |
---|---|
^DG(43 - [#43] | GET1^DID |