Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: HLCSHDR1

Package: Health Level Seven

Routine: HLCSHDR1


Information

HLCSHDR1 ;SFIRMFO/RSD - Make HL7 header for TCP ;04/17/2007

Source Information

Source file <HLCSHDR1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Health Level Seven 4 $$PARAM^HLCS2  (EP,GEN,S)^HLCSHDR2  RESET^HLCSHDR3  ($$TYPE,APPPRM)^HLUTIL2  
Kernel 1 $$FMTHL7^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Health Level Seven 2 HLMA2  HLTP4  

Entry Points

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

External References

Name Field # of Occurrence
$$PARAM^HLCS2 HEADER+20, BHSHDR+11
EP^HLCSHDR2 HDR23+27
GEN^HLCSHDR2 HDR23+8
S^HLCSHDR2 HDR23+28
RESET^HLCSHDR3 HEADER+29, BHSHDR+27
$$TYPE^HLUTIL2 VAR+28, VAR+34
APPPRM^HLUTIL2 VAR+9
$$FMTHL7^XLFDT PID+15

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HL(772 - [#772] HEADER+50, VAR+6
^HLMA - [#773] BHSHDR+23, VAR+3, VAR+6, HDR23+11
^ORD(101 - [#101] VAR+40, HDR23+5, HDR23+6

Label References

Name Line Occurrences
$$ESCAPE HEADER+42, HEADER+46, BHSHDR+40, BHSHDR+44
MSH HEADER+50, BHSHDR+48
VAR HEADER+21, BHSHDR+12

Naked Globals

Name Field # of Occurrence
^(0 VAR+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACCACK HEADER+17~, HEADER+50, BHSHDR+5~, BHSHDR+19, VAR+36*, VAR+41*, PID+13*
ACKMID BHSHDR+5~, BHSHDR+17*, BHSHDR+23*, BHSHDR+25, BHSHDR+48
ACKTO HEADER+17~, BHSHDR+5~, BHSHDR+21, BHSHDR+23, VAR+24*, VAR+29, VAR+35, PID+13, HDR23+9, HDR23+11
APPACK HEADER+17~, HEADER+50, BHSHDR+5~, BHSHDR+19, VAR+36*, VAR+42*, PID+13*
APPPRM VAR+1~
APPPRM( VAR+11, VAR+13, VAR+21
BNAME BHSHDR+5~, BHSHDR+19*, BHSHDR+48
BSTATUS BHSHDR+5~, BHSHDR+21, BHSHDR+23*, BHSHDR+25
BTACK BHSHDR+5~, BHSHDR+17*, BHSHDR+21*, BHSHDR+48
CHILD HEADER+17~, BHSHDR+5~, VAR+6*, VAR+24, VAR+27, PID+15
CLIENT HEADER~, BHSHDR~, VAR+4, VAR+9, VAR+13
CLNTAPP HEADER+17~, HEADER+44, HEADER+45, HEADER+46*, HEADER+50, BHSHDR+5~, BHSHDR+42, BHSHDR+43, BHSHDR+44*, BHSHDR+48
, VAR+13*
CLNTFAC HEADER+17~, HEADER+50, BHSHDR+6~, BHSHDR+48, VAR+13*, VAR+18*, HDR23+4*, HDR23+18*, HDR23+23*, HDR23+28
CNTRY HEADER+17~, HEADER+50, BHSHDR+6~, VAR+11*
COMFLAG HEADER+18~, HEADER+39*, HEADER+40*, HEADER+42, HEADER+43*, HEADER+44*, HEADER+46, BHSHDR+8~, BHSHDR+37*, BHSHDR+38*
, BHSHDR+40, BHSHDR+41*, BHSHDR+42*, BHSHDR+44, ESCAPE+16~, ESCAPE+18*, ESCAPE+39
COMPONET ESCAPE~, ESCAPE+18
EC HEADER+17~, HEADER+25, HEADER+27, HEADER+35, HEADER+36, HEADER+37, HEADER+38, HEADER+40, HEADER+44, HEADER+49
, BHSHDR+6~, BHSHDR+17, BHSHDR+19, BHSHDR+21, BHSHDR+33, BHSHDR+34, BHSHDR+35, BHSHDR+36, BHSHDR+38, BHSHDR+42
, BHSHDR+47, VAR+21*, VAR+22*, PID+9, HDR23+19, ESCAPE+23, ESCAPE+26, ESCAPE+28, ESCAPE+29, ESCAPE+30
, ESCAPE+31
EC("COMPONENT" HDR23+19*, HDR23+20, HDR23+23, HDR23+24
EC(1 HEADER+35*, HEADER+41, HEADER+45, BHSHDR+33*, BHSHDR+39, BHSHDR+43
EC(2 HEADER+36*, HEADER+41, HEADER+45, BHSHDR+34*, BHSHDR+39, BHSHDR+43
EC(3 HEADER+37*, HEADER+41, HEADER+45, BHSHDR+35*, BHSHDR+39, BHSHDR+43
EC(4 HEADER+38*, HEADER+41, HEADER+45, BHSHDR+36*, BHSHDR+39, BHSHDR+43
EVNTYPE HEADER+17~, HEADER+25, HEADER+27, BHSHDR+6~, BHSHDR+17, VAR+29*, VAR+35*
FS HEADER+17~, HEADER+41, HEADER+45, HEADER+49, MSH+2, BHSHDR+6~, BHSHDR+39, BHSHDR+43, BHSHDR+47, VAR+21*
, VAR+22*, ESCAPE+19, ESCAPE+26, ESCAPE+27
HLCHAR ESCAPE+16~, ESCAPE+35*, ESCAPE+36, ESCAPE+37, ESCAPE+38, ESCAPE+40, ESCAPE+41, ESCAPE+42, ESCAPE+43, ESCAPE+45
HLDATA ESCAPE+16~, ESCAPE+17*, ESCAPE+19, ESCAPE+23, ESCAPE+24, ESCAPE+32, ESCAPE+35
HLDATE HEADER+17~, HEADER+50, BHSHDR+6~, BHSHDR+48, PID+15*
HLEC HDR23+15~, HDR23+16*, HDR23+20, HDR23+23, HDR23+24
HLEN ESCAPE+16~, ESCAPE+32*, ESCAPE+34
HLEP773 HDR23+3~, HDR23+5*, HDR23+7, HDR23+27
HLERROR HEADER~, HEADER+19*, HEADER+21, BHSHDR~, BHSHDR+9*, BHSHDR+12, VAR+3*, VAR+4*, VAR+7*, PID+11*
HLESCAPE ESCAPE+16~, ESCAPE+26*, ESCAPE+36
HLESCAPE("E" ESCAPE+30*, ESCAPE+37, ESCAPE+39, ESCAPE+41, ESCAPE+42, ESCAPE+43
HLESCAPE("F" ESCAPE+27*, ESCAPE+37
HLESCAPE("R" ESCAPE+29*, ESCAPE+41
HLESCAPE("S" ESCAPE+28*, ESCAPE+38
HLESCAPE("T" ESCAPE+31*, ESCAPE+43
>> HLFS HDR23+16*, HDR23+17
>> HLHDR( MSH+1*, MSH+2*
>> HLHDR(1 HEADER+49*, BHSHDR+47*
HLHDRI HEADER+17~, HEADER+49*, MSH+1*, MSH+2, BHSHDR+6~, BHSHDR+47*
HLHDRL HEADER+17~, HEADER+49*, MSH+1, MSH+2*, BHSHDR+6~, BHSHDR+47*
HLI ESCAPE+16~, ESCAPE+34*, ESCAPE+35
HLID HEADER+17~, HEADER+50, BHSHDR+6~, BHSHDR+48, PID+15*
HLOUT ESCAPE+16~, ESCAPE+33*, ESCAPE+37*, ESCAPE+39*, ESCAPE+40*, ESCAPE+41*, ESCAPE+42*, ESCAPE+43*, ESCAPE+45*, ESCAPE+46
>> HLP("PMOD" PID+8, PID+9
>> HLP("REC-FACILITY" VAR+18
>> HLPARAM HEADER+20*, BHSHDR+11*, PID+5
HLPID HEADER+17~, HEADER+50, BHSHDR+6~, BHSHDR+19, PID+4*, PID+5*, PID+9*, PID+11
HLPROT VAR+1~, VAR+33*, VAR+34
HLPROTS VAR+1~, VAR+27*, VAR+28, VAR+40, HDR23+5, HDR23+6
HLS773 HDR23+3~, HDR23+6*, HDR23+7, HDR23+28
>> HLTCPO PID+13
>> HLTYPE PID+8
IEN HEADER~, BHSHDR~, VAR+2*, VAR+3, VAR+6
INPUT ESCAPE~, ESCAPE+17
MSGEVN HEADER+17~, HEADER+27, VAR+29*, VAR+35*
MSGTYPE HEADER+17~, HEADER+25*, HEADER+27*, HEADER+50, BHSHDR+17*, BHSHDR+19, VAR+29*, VAR+35*
PROT HEADER+17~, HEADER+50, BHSHDR+7~, BHSHDR+19, VAR+34*, VAR+35, VAR+36, PID+4
PROTS HEADER+17~, BHSHDR+7~, VAR+28*, VAR+29, VAR+41, VAR+42
>> RECFAC HDR23+17*, HDR23+18
SECURITY HEADER+17~, HEADER+50, BHSHDR+7~, BHSHDR+48, PID+15*
SEND HEADER+17~, BHSHDR+7~, VAR+6*, VAR+7, VAR+9, VAR+11, VAR+21
>> SENDFAC HDR23+17*, HDR23+18
SERAPP HEADER+17~, HEADER+40, HEADER+41, HEADER+42*, HEADER+49, BHSHDR+7~, BHSHDR+38, BHSHDR+39, BHSHDR+40*, BHSHDR+47
, VAR+11*
SERFAC HEADER+17~, HEADER+50, BHSHDR+7~, BHSHDR+48, VAR+11*, HDR23+4*, HDR23+18*, HDR23+24*, HDR23+27
TXTP HEADER+17~, HEADER+50, BHSHDR+7~, VAR+6*
TXTP0 HEADER+17~, BHSHDR+7~, VAR+6*, VAR+33, PID+15
U HEADER+50, BHSHDR+19, BHSHDR+21, BHSHDR+23, VAR+6, VAR+11, VAR+13, VAR+24, VAR+27, VAR+29
, VAR+33, VAR+35, VAR+36, VAR+41, VAR+42, PID+4, PID+5, PID+15, HDR23+6
X HEADER+17~, HEADER+50*, MSH~, MSH+1, MSH+2, BHSHDR+7~, BHSHDR+21, BHSHDR+25*, BHSHDR+48*, HDR23+11*
, HDR23+12, HDR23+16, HDR23+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All