Routine: HLCSTCP2

Package	Total	Call Graph
Health Level Seven	10	$$PARAM^HLCS2 DEQUE^HLCSREP ($$STOP,LLCNT,MON)^HLCSTCP $$READ^HLCSTCP1 OPENA^HLCSTCP3 (ERROR,RDERR)^HLCSTCP4 STATUS^HLTF0 $$MSA^HLTP3 $$RSP^HLTP31 $$P^HLTPCK2
Kernel	4	CLOSE^%ZISTCP $$OS^%ZOSV $$HTE^XLFDT SETUP^XQALERT

Package	Total	Caller Graph
Health Level Seven	5	HLCSTCP HLCSTCP3 HLCSTCP4 HLMA2 HLTP3

Entry Points

Name	Comments	DBIA/ICR reference
CC(X)	;cleanup and close
CHKMSG(HLI)	;check status of message and update if not cancelled
DONE(ST,ERR,ERRMSG)	;set status to complete
OPEN()	; -- Open TCP/IP device (Client)
WRITE(HLDA)	; write message in HL7 format ; HLDA - ien of message in 773 ; - start block $C(11) ; - end block $C(28) ; - record separator $C(13)
QUE	; -- Check "OUT" queue for processing IF there is a message do it ; and then check the link if it open or not
RDERR
ERROR
EXIT
DCSEND	;direct connect ; Set up error trap

External References

Name	Field # of Occurrence
CLOSE^%ZISTCP	HLCSTCP2+31, QUE+85, DCSEND+20, CC+2
$$OS^%ZOSV	HLCSTCP2+13
$$PARAM^HLCS2	QUE+28
DEQUE^HLCSREP	DONE+5, CHKMSG+15
$$STOP^HLCSTCP	HLCSTCP2+17, HLCSTCP2+18, HLCSTCP2+26, HLCSTCP2+28
LLCNT^HLCSTCP	QUE+14, QUE+16, QUE+44, QUE+60, QUE+82, DCSEND+7, DCSEND+8
MON^HLCSTCP	HLCSTCP2+20, HLCSTCP2+23, HLCSTCP2+29, QUE+3, QUE+22, QUE+39, DCSEND+17, CC+1
$$READ^HLCSTCP1	QUE+79, DCSEND+13
OPENA^HLCSTCP3	OPEN+7
ERROR^HLCSTCP4	ERROR
RDERR^HLCSTCP4	RDERR
STATUS^HLTF0	QUE+37, DCSEND+6, DONE+2, CHKMSG+12, CHKMSG+28
$$MSA^HLTP3	QUE+54
$$RSP^HLTP31	QUE+87
$$P^HLTPCK2	QUE+50, QUE+52, QUE+56
$$HTE^XLFDT	QUE+29
SETUP^XQALERT	QUE+30

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(13) Line Location: WRITE+22
Function Call: WRITE	Prompt: X,! Line Location: WRITE+26
Function Call: WRITE	Prompt: $C(13) Line Location: WRITE+28
Function Call: WRITE	Prompt: X,! Line Location: WRITE+32

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	HLCSTCP2+13
^HLCS(870 - [#870]	QUE+29, QUE+36*
^HLMA - [#773]	QUE+12, QUE+18, QUE+46*, QUE+48, QUE+54, QUE+58, CHKMSG+10, CHKMSG+25, WRITE+13, WRITE+15 , WRITE+18
^HLMA("AC"	HLCSTCP2+26, QUE+5, QUE+14!, DONE+8
^ORD(101 - [#101]	QUE+58

Label References

Name	Line Occurrences
$$CHKMSG	QUE+16, QUE+44
$$OPEN	HLCSTCP2+17, QUE+38
$$WRITE	QUE+41, DCSEND+5
DONE	QUE+63, QUE+94, QUE+97, QUE+101, QUE+105, DCSEND+15
EXIT	HLCSTCP2+17
QUE	HLCSTCP2+18

Naked Globals

Name	Field # of Occurrence
^(	WRITE+23
^("MSH"	QUE+12
^("P"	QUE+46

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HLCSTCP2+24~, HLCSTCP2+26*
ERR	DONE~, DONE+2
ERRMSG	DONE~, DONE+2
HL	QUE+2~
HLAR	WRITE+8~, WRITE+20, WRITE+22, WRITE+23
HLARR	QUE+2~
>> HLCSOUT	HLCSTCP2+18, HLCSTCP2+27, QUE+34
HLDA	WRITE~, WRITE+13, WRITE+15, WRITE+18
HLDA2	WRITE+8~, WRITE+15*
HLDBACK	QUE+76~, DCSEND+4~
HLDOM	OPEN+6~
>> HLDP	HLCSTCP2+10, HLCSTCP2+26, QUE+5, QUE+14, QUE+16, QUE+29, QUE+36, QUE+44, QUE+60, QUE+82 , DCSEND+7, DCSEND+8, DONE+5, DONE+8, CHKMSG+15
>> HLDRETR	QUE+21
>> HLDRETRY("CLOSE"	QUE+85
>> HLDWAIT	QUE+66
>> HLERROR	DCSEND+5, DCSEND+6, DCSEND+15, DCSEND+16, DCSEND+18, CHKMSG+11, CHKMSG+12, WRITE+14*
HLHDR	QUE+2~
HLI	QUE+2~, QUE+12, QUE+14, CHKMSG~, CHKMSG+28, WRITE+8~, WRITE+20, WRITE+22, WRITE+23, OPEN+6~
HLIP	OPEN+6~
HLJ	QUE+2~, QUE+12, QUE+14, QUE+48!, QUE+50, QUE+52, QUE+56
HLJ(1	QUE+56
HLMSA	QUE+2~
HLMSG	HLCSTCP2+8~, HLCSTCP2+10, HLCSTCP2+18, QUE+5, QUE+12, QUE+14, QUE+16, QUE+18, QUE+37, QUE+41 , QUE+42, QUE+44, QUE+46, QUE+48, QUE+54, QUE+58, DCSEND+5, DCSEND+6, DONE+2, DONE+5 , DONE+8, CHKMSG+10, CHKMSG+12, CHKMSG+15, CHKMSG+25, CHKMSG+28
HLN	QUE+2~, QUE+87
HLN("ACAT"	QUE+52, QUE+54, QUE+56*, QUE+62
HLN("ACKTIME"	QUE+46*, QUE+76
HLN("APAT"	QUE+52, QUE+54, QUE+56*, QUE+62, QUE+93
HLN("ECH"	QUE+50*
HLN("EID"	QUE+58*
HLN("MID"	QUE+52, QUE+56
HLN("SAN"	QUE+50*
HLN("TYPE"	QUE+52*, QUE+56
>> HLOS	OPEN+5
>> HLP("ACKTIME"	DCSEND+4
HLPORT	HLCSTCP2+8~, HLCSTCP2+31!, QUE+85!, DCSEND+20!, OPEN+3, CC+2!
HLPORTA	OPEN+6~
>> HLPRIO	DONE+8
HLREREAD	QUE+2~, QUE+73, QUE+74, QUE+83, QUE+91, QUE+103, QUE+105*
HLRESLT	QUE+2~, QUE+101
HLRESP	QUE+2~, QUE+79, QUE+81, QUE+87, DCSEND+13, DCSEND+15, DCSEND+18
HLRETMG	HLCSTCP2+8~, HLCSTCP2+10, QUE+24, QUE+28
>> HLRETRA	QUE+21, QUE+24, QUE+29, QUE+32, QUE+36
HLRETRM	QUE+2~, QUE+18, QUE+42, QUE+46
HLRETRY	HLCSTCP2+8~, HLCSTCP2+10, QUE+5, QUE+21, QUE+42, DONE+8
HLTCP	QUE+2~, QUE+12, QUE+42
HLTCPI	QUE+2~, QUE+42*
>> HLTCPLNK	HLCSTCP2+17, HLCSTCP2+22
HLTCPO	HLCSTCP2+8~, HLCSTCP2+10*
>> HLTCPRET	HLCSTCP2+26
IO	WRITE+21, WRITE+32, WRITE+33, OPEN+3*, OPEN+4
IO(0	HLCSTCP2+13*, HLCSTCP2+14, WRITE+33
LINENO	WRITE+8~, WRITE+20, WRITE+25, WRITE+29
POP	HLCSTCP2+8~
ST	DONE~, DONE+2
U	QUE+18, QUE+28, QUE+29, QUE+36, QUE+46, QUE+58, QUE+101, CHKMSG+12
X	QUE+2~, QUE+56, QUE+58, QUE+87, QUE+89, QUE+91, QUE+100, CHKMSG+3~, CHKMSG+25, CHKMSG+28 , WRITE+8~, WRITE+23, WRITE+25, WRITE+26, WRITE+28, WRITE+31*, WRITE+32, CC~, CC+1
XQA	QUE+26~
XQA("G."	QUE+29*
XQAID	QUE+26~
XQAMSG	QUE+26~, QUE+29*
XQAOPT	QUE+26~
XQAROU	QUE+26~
Z	QUE+2~, QUE+26~, QUE+28, QUE+29, QUE+54, QUE+56*

Customize PDF page

Package: Health Level Seven

Routine: HLCSTCP2

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: