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 |
