Routine: HLZTCP

Package	Total	Call Graph
Kernel	7	(,HOME)^%ZIS ^%ZISC CALL^%ZISTCP ($$EC,$$VERSION)^%ZOSV $$NEWERR^%ZTER ($$S,REQ)^%ZTLOAD ($$FMADD,$$NOW)^XLFDT
Health Level Seven	3	(,CHK)^HLCHK IN^HLTF STATUS^HLTF0

Package	Total	Caller Graph
Health Level Seven	1	HLLP

Entry Points

Name	Comments	DBIA/ICR reference
CHKSEND	; Check if there are HL7 messages to send ; Set flag to send state.
ERR	; Trap error ; Reset current device to "NULL DEVICE".
FLUSH	; Write checksum and flush buffer.
SEND	;Send a Message
RECNAK	; Process Received "NAK" message.
INIT	;Initialize Variables
CHKREC	; Check if there are HL7 messages to receive ; Set flag to receive state.
EX
WRITE(X)	; Write data in buffer.
REC	;Receive a Message
CSUM	;Calculate Checksum
EXIT
REC1	;
CS1	;
LOOP	; Infinite loop to check for HL7 messages to send/receive
SENDNAK	; Send a "NAK" message.

External References

Name	Field # of Occurrence
^%ZIS	INIT+33, INIT+41
HOME^%ZIS	INIT+16
^%ZISC	INIT+34
CALL^%ZISTCP	INIT+38
$$EC^%ZOSV	ERR+4
$$VERSION^%ZOSV	INIT+6
$$NEWERR^%ZTER	INIT+12
$$S^%ZTLOAD	LOOP+1
REQ^%ZTLOAD	ERR+7
^HLCHK	CHKREC+7
CHK^HLCHK	CS1+17
IN^HLTF	CS1+17
STATUS^HLTF0	CHKSEND+9, CHKSEND+11, CHKSEND+13, CS1+11, CS1+14
$$FMADD^XLFDT	REC+3, REC+4, RECNAK+1, SEND+4, SEND+5, SENDNAK+1
$$NOW^XLFDT	INIT+45, REC+1, SEND+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " ",! Line Location: INIT+49
Function Call: WRITE	Prompt: " ",! Line Location: INIT+56
Function Call: READ	Timeout: DTIME Variable: X1#1 Line Location: REC+8
Function Call: READ	Timeout: DTIME Variable: X1#1 Line Location: REC1+2
Function Call: WRITE	Prompt: X,! Line Location: WRITE+2
Function Call: WRITE	Prompt: X,! Line Location: FLUSH+4
Routine Call	%ZIS Line Location: INIT+16
Routine Call	%ZIS Line Location: INIT+33 INIT+41

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LPC"	INIT+62
^%ZOSF("TRAP"	INIT+13
^HL(770 - [#770]	LOOP+2, CHKSEND+4
^HL(772 - [#772]	CHKSEND+5, CHKSEND+6
^TMP("HL"	REC+4, REC1+19, REC1+26, RECNAK+6, RECNAK+7, SEND+5, WRITE+3, FLUSH+5
^TMP("HLR"	ERR+8!, CS1+2!, EX+1!, REC+5!, REC1+21, RECNAK+4
^TMP("HLS"	ERR+8!, CHKSEND+15*, EX+1!, SEND+9
^XMB(3.9 - [#3.9]	CHKSEND+10, CHKSEND+12, CHKSEND+15

Label References

Name	Line Occurrences
CHKREC	LOOP+3, CHKREC+6
CHKSEND	LOOP+3
CS1	CS1+7
CSUM	REC1+22, RECNAK+2, WRITE+4
EX	CHKSEND+5, CHKSEND+6, CHKSEND+8, CHKSEND+10, CHKSEND+12, CS1+8, CS1+9, CS1+12
EXIT	INIT+42
FLUSH	SEND+10, SENDNAK+3
REC	CHKREC+3, CS1+6
REC1	REC1+11, REC1+24
RECNAK	REC1+12
SEND	CS1+3
SENDNAK	CHKREC+6
WRITE	SEND+7, SEND+8, SEND+9, SENDNAK+2

Naked Globals

Name	Field # of Occurrence
^(	SEND+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	INIT+59!, REC+1, REC+2, SEND+2, SEND+3
%H	INIT+59!
%I	INIT+59!
>> %ZIS	INIT+32*
DTIME	INIT+60, INIT+61, REC+8, REC1+2
HLAC	CS1+10, CS1+11, CS1+13, CS1+14, EX!
>> HLB	REC1+15, REC1+25, REC1+26, RECNAK+2, RECNAK+3, RECNAK+7
>> HLC	REC1+15, REC1+25, REC1+26, RECNAK+2, RECNAK+3, RECNAK+7
>> HLC1	CSUM+1, REC+6, REC1+25, REC1+26, RECNAK+3, RECNAK+7, SEND+6, SENDNAK+1, FLUSH+1
>> HLC2	CSUM+1, REC+6, REC1+25, RECNAK+3, SEND+6, SENDNAK+1, FLUSH+1
>> HLCSUM	REC1+25, REC1+26, RECNAK+3, RECNAK+7
HLDA	CHKSEND+5*, CHKSEND+6, CHKSEND+9, CHKSEND+11, CHKSEND+13, CS1+11, CS1+14, EX!
HLDA0	CHKSEND+6*, CHKSEND+7, CHKSEND+14, EX!
HLDTOUT	CHKREC+6, CHKREC+7, CS1+7, CS1+8, REC+8, REC1+1!, REC1+2, REC1+4
HLERR	CHKREC+5!, CHKREC+6, CHKREC+7!, EX!, REC1+25, RECNAK+3, SENDNAK+2, SENDNAK+4!
HLI	CHKSEND+14, CHKSEND+15, EX!, REC+6, REC1+19, SEND+6, SEND+8, SEND+9, SENDNAK+1, WRITE+3
>> HLII	REC1+18*, REC1+19
>> HLION	INIT+15, INIT+18*, INIT+31, LOOP+2, REC+4, REC1+19, REC1+26, RECNAK+6, RECNAK+7, SEND+5 , WRITE+3, FLUSH+5
HLJ	CHKSEND+15*, EX!
>> HLK	REC+6, REC1+20, REC1+21, REC1+22
HLL	REC+5!
HLL(	REC1+20*
HLL(1	ERR+8!, CS1+10, CS1+12, RECNAK+4*, RECNAK+6
>> HLLOG	LOOP+2*, REC+4, REC1+17, REC1+26, RECNAK+5, SEND+5, WRITE+3, FLUSH+5
>> HLLPC	INIT+62*, CSUM+1, REC1+25, RECNAK+3, FLUSH+1
>> HLMID	CS1+17
HLMSG	CS1+10, CS1+11, CS1+13, CS1+14, EX!
>> HLMTN	CS1+17
>> HLNDAP	CHKSEND+3, CHKSEND+4
>> HLNDAP0	INIT+60, CHKSEND+4*, CHKSEND+5
HLSDATA	CS1+2!, EX!, SEND+9*, SENDNAK+4!
HLSDATA(	SEND+8
HLSDT	CHKSEND+14*, CHKSEND+15, EX!, SEND+8, SEND+9
>> HLTIME	INIT+45, CS1+17, REC+2, REC+3, REC+4, REC1+19, REC1+21, REC1+26, RECNAK+1, RECNAK+4 , RECNAK+6, RECNAK+7, SEND+3, SEND+4, SEND+5, SENDNAK+1*, WRITE+3, FLUSH+5
HLTRIED	CHKSEND+14, CS1+1, CS1+7, EX!
>> HLTRIES	INIT+60, INIT+61, CS1+7
HLXMZ	CHKSEND+7*, CHKSEND+8, CHKSEND+10, CHKSEND+11, CHKSEND+12, CHKSEND+13, CHKSEND+15, CS1+15!
>> HLZEB	REC+6, REC1+10, REC1+12, REC1+15, REC1+24
HLZIO	INIT+3~, INIT+43*, ERR+2, CHKREC+7, CHKREC+8, CS1+16
HLZIO(0	INIT+20*, INIT+54, REC+7, REC1+1, WRITE+1, FLUSH+2
>> HLZLEN	REC+11, REC1+6, REC1+8
>> HLZNAK	CHKREC+5, CS1+7, CS1+9, REC+6, REC1+8, REC1+12
HLZOS	INIT+3~, INIT+6*, INIT+23, INIT+24, INIT+30, INIT+53
HLZSTATE	INIT+3~, CHKREC+2, CHKSEND+2, CS1+5*
>> HLZTCP	INIT+23, INIT+27, INIT+56
IO	INIT+20, INIT+43
ION	INIT+18
IOP	INIT+31, INIT+41, INIT+43!
>> IOPAR	INIT+23, INIT+26
>> IOUPAR	INIT+36, INIT+37
IP	INIT+25~, INIT+26, INIT+27, INIT+36, INIT+38
>> POP	INIT+15, INIT+17, INIT+42
>> PORT	INIT+37*, INIT+38
U	CHKSEND+5
X	INIT+13, INIT+59!, CSUM+1, REC1+22, REC1+25, RECNAK+2, RECNAK+3, SEND+1~, WRITE~, WRITE+2 , WRITE+3, FLUSH+1*, FLUSH+4, FLUSH+5
>> X0	REC+6, REC+11, REC1+6, REC1+15, REC1+16, REC1+18, REC1+19, REC1+20, REC1+21, REC1+22 , REC1+23*, RECNAK+2, RECNAK+4
>> X1	REC+8, REC+10, REC+11, REC1+2, REC1+4, REC1+6, REC1+8, REC1+10, REC1+11
Y	CSUM+1, REC1+25, RECNAK+3, SEND+1~, FLUSH+1
ZTDTH	ERR+5~, ERR+6*
>> ZTQUEUED	ERR+6
>> ZTREQ	ERR+6*
ZTSK	ERR+5~, ERR+6*
>> ZTSTOP	LOOP+1*

Customize PDF page

Package: Health Level Seven

Routine: HLZTCP

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: