HLCSHDR ; ALB/MFK,JRP - Make HL7 header from a #772 IEN ;05/31/2000 08:59
Source file <HLCSHDR.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^HL(772 - [#772] | HEADER+18, HEADER+26, HEADER+30, PID+13, BHSHDR+8, BHSHDR+11, BHSHDR+45, BHSHDR+51, BHSHDR+52, BHSHDR+56 , HDR23+11 |
| ^ORD(101 - [#101] | HDR23+5, HDR23+6, PIDCK+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACCACK | HEADER+21~, HEADER+80*, PID+14 |
| ACKMID | BHSHDR+5~, BHSHDR+49*, BHSHDR+51*, BHSHDR+54, BHSHDR+58 |
| ACKTO | HEADER+22~, HEADER+55*, HEADER+67, HEADER+77, BHSHDR+5~, BHSHDR+35*, BHSHDR+36, BHSHDR+41, BHSHDR+50, BHSHDR+51 , BHSHDR+52, BHSHDR+56, HDR23+9, HDR23+11 |
| APPACK | HEADER+21~, HEADER+81*, PID+14 |
| APPPRM | HEADER+20~, BHSHDR+5~ |
| APPPRM( | HEADER+40, HEADER+41, HEADER+43, HEADER+44, HEADER+46, HEADER+48, HEADER+49, BHSHDR+19, BHSHDR+20, BHSHDR+22 , BHSHDR+24, BHSHDR+26, BHSHDR+28 |
| BC | BHSHDR+5~ |
| BCD | BHSHDR+5~, BHSHDR+31*, BHSHDR+58 |
| BCI | BHSHDR+5~ |
| BEC | BHSHDR+5~, BHSHDR+20*, BHSHDR+43, BHSHDR+46, BHSHDR+56, BHSHDR+58 |
| BFS | BHSHDR+5~, BHSHDR+19*, BHSHDR+58 |
| BN | BHSHDR+5~, BHSHDR+46*, BHSHDR+58 |
| BRA | BHSHDR+5~, BHSHDR+26*, BHSHDR+58 |
| BRF | BHSHDR+5~, BHSHDR+28*, BHSHDR+58 |
| BS | BHSHDR+5~, BHSHDR+33*, BHSHDR+58 |
| BSA | BHSHDR+5~, BHSHDR+22*, BHSHDR+58 |
| BSF | BHSHDR+5~, BHSHDR+24*, BHSHDR+58 |
| BSTATUS | BHSHDR+6~, BHSHDR+52*, BHSHDR+56 |
| BTACK | BHSHDR+6~, BHSHDR+49*, BHSHDR+53*, BHSHDR+55*, BHSHDR+56*, BHSHDR+58 |
| CHILD | HEADER+22~, HEADER+26*, HEADER+27, HEADER+28, HEADER+34, HEADER+77, HEADER+78, BHSHDR+6~, BHSHDR+8*, BHSHDR+9 , BHSHDR+14, BHSHDR+36 |
| CLIENTP | HEADER+20~, HEADER+34*, HEADER+35, HEADER+37, HEADER+43, HEADER+44, BHSHDR+6~, BHSHDR+14*, BHSHDR+15, BHSHDR+18 , BHSHDR+26, BHSHDR+28 |
| CLNTAPP | HEADER+22~, HEADER+43*, PID+10 |
| CLNTFAC | HEADER+22~, HEADER+44*, PID+10, HDR23+4*, HDR23+15*, HDR23+17 |
| CNTRY | HEADER+22~, HEADER+46*, PID+14 |
| EC | HEADER+21~, HEADER+49*, HEADER+50*, HEADER+70, HEADER+72, PID+10 |
| FS | HEADER+20~, HEADER+48*, HEADER+51*, PID+10, PID+11, PID+12, PID+13, PID+14 |
| HLDATE | HEADER+21~, HEADER+83*, HEADER+84*, PID+11, BHSHDR+6~, BHSHDR+29*, BHSHDR+31 |
| HLDTID | HEADER+21~, BHSHDR+6~ |
| HLEP773 | HDR23+3~, HDR23+5*, HDR23+7, HDR23+16 |
| HLERROR | HEADER~, HEADER+18*, HEADER+27*, HEADER+29*, HEADER+33*, HEADER+35*, HEADER+69*, PID+5*, BHSHDR+42*, BHSHDR+45 , PIDCK+8* |
| >> HLFS | HDR23+13*, HDR23+14 |
| >> HLHDR(1 | PID+10*, PID+11*, PID+12*, PID+16, PID+17*, PID+21, PID+22*, BHSHDR+10*, BHSHDR+13*, BHSHDR+15* , BHSHDR+58* |
| >> HLHDR(2 | PID+13*, PID+16, PID+17, PID+18*, PID+21, PID+22, PID+23*, PID+25, PID+26*, PID+29! |
| >> HLHDR(3 | PID+14*, PID+18, PID+19*, PID+25, PID+26, PID+27*, PID+30! |
| HLID | HEADER+21~, MID+1*, PID+11, BHSHDR+30*, BHSHDR+58 |
| >> HLOGLINK | BHSHDR+36 |
| HLPARAM | HEADER+22~, HEADER+24*, PID+4, PIDCK+6~*, PIDCK+7 |
| HLPID | PID+3*, PID+4*, PID+5, PID+12, BHSHDR+6~, BHSHDR+45*, BHSHDR+46, PIDCK+4*, PIDCK+5, PIDCK+7* , PIDCK+8, PIDCK+9 |
| HLPROT | HEADER+22~, HEADER+61*, HEADER+76* |
| HLPROTS | HEADER+22~, HEADER+78*, HDR23+5, HDR23+6 |
| HLS773 | HDR23+3~, HDR23+6*, HDR23+7, HDR23+17 |
| ID | HEADER+21~, BHSHDR+6~ |
| IEN | HEADER~, HEADER+17*, HEADER+18, HEADER+26, BHSHDR~, BHSHDR+8 |
| IEN101 | PIDCK~, PIDCK+4 |
| MSGTYPE | HEADER+20~, HEADER+67*, HEADER+69, HEADER+70*, HEADER+72*, PID+11, BHSHDR+41*, BHSHDR+42, BHSHDR+43*, BHSHDR+46 |
| PARENT | HEADER+20~, HEADER+30*, HEADER+32, HEADER+55, HEADER+61, HEADER+76, HEADER+83, MID+1, PID+7, PID+13 , BHSHDR+6~, BHSHDR+11*, BHSHDR+12, BHSHDR+29, BHSHDR+30, BHSHDR+33, BHSHDR+35, BHSHDR+36 |
| PARENTP | HEADER+20~, HEADER+28*, HEADER+29, HEADER+30, BHSHDR+6~, BHSHDR+9*, BHSHDR+10, BHSHDR+11 |
| PROT | HEADER+20~, HEADER+61*, HEADER+64, HEADER+76*, HEADER+77*, HEADER+79, BHSHDR+36*, BHSHDR+40, BHSHDR+45 |
| PROTOCOL | HEADER+20~, HEADER+64*, HEADER+67, HEADER+69, HEADER+70, HEADER+72, HEADER+79*, HEADER+80, HEADER+81, PID+3 , PID+12 |
| RBCI | BHSHDR+7~ |
| >> RECFAC | HDR23+14*, HDR23+15 |
| SECURITY | HEADER+21~, PID+7*, PID+11 |
| >> SENDFAC | HDR23+14*, HDR23+15 |
| SERAPP | HEADER+21~, HEADER+40*, PID+10 |
| SERFAC | HEADER+21~, HEADER+41*, PID+10, HDR23+4*, HDR23+15*, HDR23+16 |
| SERVERP | HEADER+20~, HEADER+32*, HEADER+33, HEADER+38, HEADER+40, HEADER+41, HEADER+46, HEADER+48, HEADER+49, BHSHDR+7~ , BHSHDR+12*, BHSHDR+13, BHSHDR+17, BHSHDR+19, BHSHDR+20, BHSHDR+22, BHSHDR+24 |
| U | PID+4, BHSHDR+42, BHSHDR+43, BHSHDR+45, BHSHDR+46, HDR23+6, PIDCK+4, PIDCK+7 |
| >> X | BHSHDR+40*, BHSHDR+41, BHSHDR+42, BHSHDR+43, BHSHDR+46, HDR23+11*, HDR23+12, HDR23+13, HDR23+14 |
