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 |
