RGADT1 ;HIRMFO/GJC-BUILD ADT MESSAGES (A01/A03) ;09/21/99
Source file <RGADT1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; entry point to build/transmit ADT messages
; Messages built by this software are fired off by server protocols: ; RG ADT-A01 SERVER -or- RG ADT-A03 SERVER |
|
| EVENT | ; build the HL7 message
|
|
| EXIT | ; kill and quit
|
|
| BUILD | ; build the ADT message
; EVN segment |
|
| COMMANUM(FROM,TO) | ;Build comma seperated list of numbers
|
|
| FAC(X) | ; set facility information, in the form of the Station Number, into
; PV1(3). ; input: the entire PV1 segment ; yield: updated PV1 segment; PV1(3) has facility information (Sta. #) |
