HLCSHDR ; ALB/MFK,JRP - Make HL7 header from a #772 IEN ;05/31/2000 08:59
Source file <HLCSHDR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HEADER(IEN,HLERROR) | ; Create an HL7 MSH segment
|
|
| MID | ;Message ID
|
|
| PID | ;Processing ID
|
|
| 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. |
|
| HDR23 | ;generate extended facility field info based on 'facility required'
|
|
| PIDCK(IEN101) | ; 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 |
