Routine: HLCSUTL

Package	Total	Caller Graph
IFCAP	8	PRCHAAC2 PRCPHLP PRCPHLQ PRCPHLU PRCVIMF PRCVPOSD PRCVRCG PRCVVMF
Health Level Seven	5	HLCSDL1 HLCSDL2 HLCSDR1 HLCSDR2 ^HLMA
Clinical Information Resource Network	1	RGADTP
Radiology Nuclear Medicine	1	RAHLACK
Registration	1	DG53P951

Entry Points

Name	Comments	DBIA/ICR reference
READ(HLDHANG,HLDBSIZE,HLTRM)	; This function will perform a read on the device and ; return the characters read and the termination character.
READQ
NEXTLINE(LL0,LL1,LINE,ARR,QUE)	; This function will return the next line from the ; Logical Link file #870 specified by LL0 and the position in the queue ; specified by QUE at the position LL1. This function will return the ; line in the array specifed by ARR. And the position in the WP ; field where the last part of the segment was found. ; Lastly a <CR> will be appended to the end of the segment
FLD(NODE,FLD)	;This function will return the value for the field	ICR #3099 Status: Active Usage: Supported
CHKSUM(HLTEXT)	; This function will return the checksum for the segment ; contained in the array ARR. If no checksum can be calculated an -1 ; will be returned.
CHKSUM2(HLTEXT)	; * Add in <CR> * This function will return the checksum for the segment ; contained in the array ARR. If no checksum can be calculated an -1 ; will be returned.
APPEND(HLTEXT,LL0,LL1)	; This function will append the data contained in ; the HLTEXT array into the IN queue multiple (LL1) of the Logical ; Link (LL0) file 870. ; INPUT : HLTEXT - Array containing text to append ; LL0 - IEN of File 870 ; LL1 - IEN of IN queue multiple
HLNEXT	;-- This routine is used to return the next segment from file 772 ; during processing of an inbound message. The following variables ; are used for the processing. ; HLMTIEN - Entry in 772 where message is ; HLQUIT - Curent ien of "IN" wp field ; HLNODE - Data is returned in HLNODE=Segment and HLNODE(n) if ; segmemt is greater than 245 chars.
MSGLINE(HLMID)	;return the number of lines in a message, TCP type only
MSGSIZE(HLIENS)	;return the number of characters in a message, TCP type only	ICR #5548 Status: Active Usage: Private
MSG(HLMID,HLREST)	;return the message text in the reference HLREST	ICR #3099 Status: Active Usage: Supported

Name	Line Occurrences
Function Call: READ	Variable: X#HLDBSIZE Timeout: HLDHANG Line Location: READ+13

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LPC"	CHKSUM+12, CHKSUM+14, CHKSUM+16, CHKSUM2+12, CHKSUM2+15, CHKSUM2+18
^%ZOSF("TRMRD"	READ+14
^HL(772 - [#772]	HLNEXT+30, HLNEXT+34, HLNEXT+36, HLNEXT+37, HLNEXT+38, MSGLINE+7, MSGSIZE+12, MSG+20
^HLCS(870 - [#870]	NEXTLINE+24, NEXTLINE+25, APPEND+9, APPEND+11, APPEND+12, APPEND+13, APPEND+14, APPEND+17*
^HLMA - [#773]	HLNEXT+22, HLNEXT+25, HLNEXT+26, HLNEXT+27, HLNEXT+28, MSGLINE+6, MSGLINE+7, MSGSIZE+5, MSGSIZE+8, MSG+9 , MSG+17
^HLMA("B"	HLNEXT+16
^HLMA("C"	MSGLINE+5, MSG+8

Name	Line Occurrences
READQ	READ+13

Name	Field # of Occurrence
^(	MSGSIZE+8, MSGSIZE+12, MSG+17, MSG+20
^(0	NEXTLINE+25, MSGSIZE+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARR	NEXTLINE~, NEXTLINE+24, NEXTLINE+25
DT	APPEND+17
FLD	FLD~, FLD+5, FLD+10, FLD+12
>> HL("FS"	FLD+5, FLD+10, FLD+12
HLCNT	MSGLINE+3~, MSGLINE+7, MSGLINE+8, MSGSIZE+3~, MSGSIZE+6, MSGSIZE+8, MSGSIZE+10, MSGSIZE+12, MSGSIZE+13, MSG+6~ , MSG+15, MSG+17, MSG+18, MSG+20*
HLDBSIZE	READ~, READ+13
HLDHANG	READ~, READ+13
HLDONE	HLNEXT+9~, HLNEXT+10, HLNEXT+26, HLNEXT+27, HLNEXT+36, HLNEXT+37*
HLDONE1	HLNEXT+15, HLNEXT+18, HLNEXT+20, HLNEXT+24*, HLNEXT+43!
HLI	APPEND+7~, APPEND+9, APPEND+10, APPEND+11, APPEND+12, APPEND+13, APPEND+14, APPEND+17, HLNEXT+9~, HLNEXT+25 , HLNEXT+28, HLNEXT+34, HLNEXT+38, MSGSIZE+3~, MSGSIZE+6, MSGSIZE+8, MSGSIZE+12, MSG+6~, MSG+15, MSG+17 , MSG+20*
HLIEN	MSGLINE+3~, MSGLINE+6, MSGLINE+7, MSGSIZE+3~, MSGSIZE+5, MSGSIZE+12, MSG+6~, MSG+9*, MSG+20
HLIENS	MSGLINE+3~, MSGLINE+5, MSGLINE+6, MSGLINE+7, MSGSIZE~, MSGSIZE+2, MSGSIZE+5, MSGSIZE+8, MSG+6~, MSG+8 , MSG+9, MSG+17
HLMID	MSGLINE~, MSGLINE+2, MSGLINE+5, MSG~, MSG+5, MSG+8
>> HLMTIEN	HLNEXT+13, HLNEXT+16, HLNEXT+30, HLNEXT+34, HLNEXT+36, HLNEXT+37, HLNEXT+38
HLNODE	HLNEXT+8!, HLNEXT+10, HLNEXT+25, HLNEXT+34*
HLNODE(	HLNEXT+28, HLNEXT+38
HLQUE	NEXTLINE+21~, NEXTLINE+22*, NEXTLINE+24, NEXTLINE+25
>> HLQUIT	HLNEXT+11, HLNEXT+13, HLNEXT+15, HLNEXT+20, HLNEXT+22, HLNEXT+24, HLNEXT+25, HLNEXT+26, HLNEXT+27, HLNEXT+28 , HLNEXT+29, HLNEXT+30, HLNEXT+31, HLNEXT+34, HLNEXT+36, HLNEXT+37, HLNEXT+38, HLNEXT+40
HLQUIT2	HLNEXT+33~, HLNEXT+36*, HLNEXT+40
HLREST	MSG~, MSG+5, MSG+11, MSG+12, MSG+13, MSG+14!, MSG+17*, MSG+18, MSG+20
HLTEXT	CHKSUM~, CHKSUM+11, CHKSUM+13, CHKSUM+14, CHKSUM2~, CHKSUM2+11, CHKSUM2+14, CHKSUM2+15, CHKSUM2+16, APPEND~ , APPEND+11, APPEND+12, APPEND+13
HLTOUT	READ+11!
HLTRM	READ~, READ+14*
HLX	HLNEXT+9~, HLNEXT+16*, HLNEXT+18, HLNEXT+22, HLNEXT+25, HLNEXT+26, HLNEXT+27, HLNEXT+28
HLZ	MSGSIZE+3~, MSGSIZE+6, MSGSIZE+8, MSGSIZE+10, MSGSIZE+12, MSG+6~, MSG+15, MSG+17*, MSG+18
I	NEXTLINE+21~, NEXTLINE+24, NEXTLINE+25, FLD+6~, FLD+10*, FLD+12, CHKSUM+8~, CHKSUM2+8~
IO	READ+13
L	FLD+6~, FLD+7, FLD+10, FLD+12, FLD+13
L1	FLD+6~, FLD+10*
LEN	CHKSUM+8~, CHKSUM+9, CHKSUM+11, CHKSUM+14, CHKSUM+17, CHKSUM2+8~, CHKSUM2+9, CHKSUM2+11, CHKSUM2+13, CHKSUM2+15* , CHKSUM2+16*, CHKSUM2+19
LINE	NEXTLINE~, NEXTLINE+24
LL0	NEXTLINE~, NEXTLINE+24, NEXTLINE+25, APPEND~, APPEND+9, APPEND+11, APPEND+12, APPEND+13, APPEND+14, APPEND+17
LL1	NEXTLINE~, NEXTLINE+24, NEXTLINE+25, APPEND~, APPEND+9, APPEND+11, APPEND+12, APPEND+13, APPEND+14, APPEND+17
NODE	FLD~, FLD+5, FLD+7
NODE(	FLD+10, FLD+12
NODE(0	FLD+7*, FLD+14!
QUE	NEXTLINE~, NEXTLINE+22
RESULT	READ+9~, READ+13, READ+15, READQ, NEXTLINE+21~, NEXTLINE+22, NEXTLINE+24, NEXTLINE+27, CHKSUM+8~, CHKSUM+9* , CHKSUM+12, CHKSUM+14, CHKSUM+16, CHKSUM+17, CHKSUM2+8~, CHKSUM2+9, CHKSUM2+12, CHKSUM2+13, CHKSUM2+15, CHKSUM2+16 , CHKSUM2+18*, CHKSUM2+19
U	APPEND+9, MSGLINE+7
X	READ+9~, READ+13, READ+15, NEXTLINE+21~, NEXTLINE+24, NEXTLINE+25, FLD+6~, FLD+7, FLD+12, FLD+15 , CHKSUM+8~, CHKSUM+11, CHKSUM+14, CHKSUM+16, CHKSUM2+8~, CHKSUM2+11, CHKSUM2+15, CHKSUM2+18, APPEND+7~, APPEND+8* , APPEND+11*, APPEND+12, APPEND+13
X1	CHKSUM+8~, CHKSUM+9, CHKSUM+11, CHKSUM+13, CHKSUM+14, CHKSUM2+8~, CHKSUM2+9, CHKSUM2+11, CHKSUM2+14, CHKSUM2+15 , CHKSUM2+16, APPEND+7~
X2	CHKSUM+8~, CHKSUM+11, CHKSUM+13, CHKSUM2+8~, CHKSUM2+11, CHKSUM2+13, CHKSUM2+14, APPEND+7~, APPEND+11*, APPEND+12
X3	CHKSUM+8~, CHKSUM+13, CHKSUM+14, CHKSUM2+8~, CHKSUM2+14, CHKSUM2+15, CHKSUM2+16, APPEND+7~, APPEND+12*, APPEND+13
Y	READ+9~, READ+14, FLD+6~, FLD+7, FLD+10, FLD+12, FLD+13, CHKSUM+8~, CHKSUM+12, CHKSUM+14 , CHKSUM+16, CHKSUM2+8~, CHKSUM2+12, CHKSUM2+15, CHKSUM2+18

Customize PDF page

Package: Health Level Seven

Routine: HLCSUTL

Information

Source Information

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 16

Entry Points

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: