HLCSHDR1 ;SFIRMFO/RSD - Make HL7 header for TCP ;04/17/2007
Source file <HLCSHDR1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
HEADER(IEN,CLIENT,HLERROR) | ; Create an HL7 MSH segment
|
|
MSH(X) | ;add X to HLHDR
|
|
BHSHDR(IEN,CLIENT,HLERROR) | ; Create Batch Header Segment
; The BHS has 12 segments, of which 4 are blank. ; INPUT: IEN - IEN of entry in file #772 ; OUTPUT: HLHDR(1) and HLHDR(2) - the two lines with the 12 segs. ; ready for adding to a message directly. |
|
VAR | ;Check input
|
|
PID | ;Processing ID
|
|
HDR23 | ;generate extended facility field info based on 'facility required'
|
|
ESCAPE(INPUT,COMPONET) | ;
; patch HL*1.6*120 - escape delimiters: ; - field separator ; - component separator ; - repetition separator ; - escape character ; - subcomponent separator |