DGPFHLT4 ;SHRPE/YMG - PRF HL7 QBP/RSP PROCESSING ; 05/02/18
Source file <DGPFHLT4.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SEND(MSGID,DGMERR) | ; entry point
; MSGID - HL7 message id to send ACK for ; DGMERR - error message to include in MSA segment |
|
MSA() | ; create MSA segment
|
|
SAVESEG(SEGCNT,SEG) | ; save created segment in ^TMP global
; SEGCNT - current segment count ; SEG - segment to save |