; This subroutine added by HL*1.6*80
; Given 101's IEN, return the PROCESSING ID. (See PID^HLCSHDR
; and PID^HLCSHDR1 for other locations where HLPID is set.)
; HLPARAM -- req
HEADER(IEN,HLERROR)
; Create an HL7 MSH segment
PID
;Processing ID
MID
;Message ID
HDR23
;generate extended facility field info based on 'facility required'
BHSHDR(IEN)
; 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.