Routine: HLCSLM

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Health Level Seven	4	$$PARAM^HLCS2 MON^HLCSTCP FILE^HLDIE CHECKMST^HLEVMST
Kernel	4	SETNM^%ZOSV (,$$PSET,$$S,STAT)^%ZTLOAD $$HDIFF^XLFDT SETUP^XQALERT
VA Fileman	4	^DIC ^DIE $$GET1^DIQ ^DIR

Package	Total	Caller Graph
Health Level Seven	4	HL AUTOSTART LINK MANAGER HL START/STOP LINK MANAGER HLCSMON1 HLUTIL
IHS Changes To Lab	1	BLRRLMST
Order Entry Results Reporting	1	ORWCIRN
RPC Broker	1	XWB2HL7

Package

Total

Caller Graph

Health Level Seven

HL AUTOSTART LINK MANAGER HL START/STOP LINK MANAGER HLCSMON1 HLUTIL

IHS Changes To Lab

BLRRLMST

Order Entry Results Reporting

ORWCIRN

RPC Broker

XWB2HL7

Entry Points

Name	Comments	DBIA/ICR reference
SAVTSK(X)	;
SAVDOLRH	;Save Last Known $H
STATUS(X)	;Status of task
EN	;Entry point for start up task
STAT()	;Status of LINK MANAGER--up, down or unable to determine.	ICR #3574 Status: Active Usage: Controlled Subscription
TASKNUM(X)	;Look-up task number
CHKQUE	;Check queues for messages to send
CKLMSTOP()	;Check whether Link Manager should stop
INIT	;Create Task number and clear Stop flag.
STRTSTOP	;ENTRY POINT TO START/STOP TCP LINK MANAGER
EXIT
TASKLSUB(X)	;Task LINK SUB-MANAGER.
STOPLM	;ENTRY POINT TO STOP LINK MANAGER
LLOK(X)	;Function to check whether LL ok.
TASKLM	;Task Link Manager
LOOP	;
SNDALERT	;Send Alert

External References

Name	Field # of Occurrence
SETNM^%ZOSV	EN+6
^%ZTLOAD	TASKLSUB+15, TASKLM+9
$$PSET^%ZTLOAD	EN+4
$$S^%ZTLOAD	CKLMSTOP+8
STAT^%ZTLOAD	CHKQUE+19, CHKQUE+27, CHKQUE+46, STATUS+3
^DIC	STOPLM+4
^DIE	STOPLM+7
$$GET1^DIQ	TASKNUM+7, STAT+3, STAT+5
^DIR	STRTSTOP+4, STRTSTOP+8
$$PARAM^HLCS2	SNDALERT+2
MON^HLCSTCP	TASKLSUB+16
FILE^HLDIE	EXIT+5, SAVDOLRH+6, INIT+7, SAVTSK+10
CHECKMST^HLEVMST	LOOP+4
$$HDIFF^XLFDT	STAT+7
SETUP^XQALERT	SNDALERT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"Link Manager is NOT currently running!" Line Location: STRTSTOP+7
Function Call: WRITE	Prompt: ! Line Location: STRTSTOP+8
Function Call: WRITE	Prompt: !,"Link Manager has been asked to stop" Line Location: STOPLM+8
Function Call: WRITE	Prompt: !,"Link Manager queued as task number ",ZTSK Line Location: TASKLM+10
Function Call: WRITE	Prompt: $C(7),!!,"Unable to start/restart Link Manager" Line Location: TASKLM+11
Routine Call	DIE Line Location: STOPLM+7
Routine Call	DIC Line Location: STOPLM+4
Routine Call	DIR Line Location: STRTSTOP+4 STRTSTOP+8

FileNo	Call Tags
^HLCS(869.3 - [#869.3]	Classic Fileman Calls, GET1^DIQ
^HLCS(870 - [#870]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(14.7 - [#14.7]	TASKLSUB+14
^HLCS("HLCSLM"	EN+2, EXIT+7, STRTSTOP+2, STRTSTOP+10
^HLCS("HLCSLSM"	CHKQUE+4, CHKQUE+7
^HLCS(869.1 - [#869.1]	LLOK+15, TASKLSUB+8
^HLCS(869.3 - [#869.3]	EXIT+2, EXIT+6, SAVDOLRH+3, SAVDOLRH+7, INIT+3, INIT+8, CKLMSTOP+2, CKLMSTOP+3, CKLMSTOP+4, CKLMSTOP+5
^HLCS(870 - [#870]	CHKQUE+6, LLOK+4, SAVTSK+5, SAVTSK+14, TASKLSUB+4, SNDALERT+3
^HLMA("AC"	CHKQUE+4

Name	Line Occurrences
$$CKLMSTOP	LOOP+2
$$LLOK	CHKQUE+8
$$TASKNUM	CHKQUE+10
CHKQUE	LOOP+1
EXIT	LOOP+2
INIT	EN+5
LOOP	LOOP+6
SAVDOLRH	EN+5, LOOP+3
SAVTSK	CHKQUE+32
STOPLM	STRTSTOP+6
TASKLM	STRTSTOP+9
TASKLSUB	CHKQUE+32

Name	Field # of Occurrence
^(	CHKQUE+4
^(0	TASKLSUB+14
^(200	TASKLSUB+8
^(400	LLOK+4, TASKLSUB+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+1~, EN+2*, TASKNUM+1~, STAT+1~
DA	TASKNUM+1~, TASKNUM+2, TASKNUM+7, STOPLM+1~, STOPLM+5, STAT+1~, STAT+2*, STAT+3, STAT+5
DIC	STOPLM+1~, STOPLM+2*, STOPLM+5
DIE	STOPLM+1~, STOPLM+5*
DIR	STRTSTOP+1~, STRTSTOP+4!, STRTSTOP+8!
DIR("A"	STRTSTOP+4, STRTSTOP+8
DIR("B"	STRTSTOP+4, STRTSTOP+8
DIR(0	STRTSTOP+4, STRTSTOP+8
DIRUT	STRTSTOP+1~, STRTSTOP+5, STRTSTOP+9
DLAYGO	STOPLM+1~
DR	STOPLM+1~, STOPLM+6*
DTOUT	STOPLM+1~
DUOUT	STOPLM+1~
HLBGR	TASKLSUB+2~, TASKLSUB+8, TASKLSUB+10
HLDA	CHKQUE+2~, CHKQUE+3*
HLDAPP	TASKLSUB+2~, TASKLSUB+7*, TASKLSUB+11
HLDP	CHKQUE+2~, CHKQUE+4, CHKQUE+6, CHKQUE+7, CHKQUE+8, CHKQUE+10, CHKQUE+32, CHKQUE+42, CHKQUE+44, CHKQUE+48 , LLOK+3~, LLOK+4, SAVTSK+1~, SAVTSK+2, SAVTSK+5, SAVTSK+8, SAVTSK+11, SAVTSK+14, TASKLSUB+2~, TASKLSUB+4* , SNDALERT+3
HLDP("TASK-ACTIVE"	CHKQUE+13, CHKQUE+20, CHKQUE+21, CHKQUE+28*, CHKQUE+29
HLDP0	LLOK+3~, LLOK+4, LLOK+12, LLOK+15, TASKLSUB+2~, TASKLSUB+4, TASKLSUB+7
HLENV	TASKLSUB+2~, TASKLSUB+8*, TASKLSUB+9
HLEVLCHK	EN+1~
HLJ	EXIT~, SAVDOLRH+1~, INIT+1~, SAVTSK+1~
HLJ(	EXIT+4, SAVDOLRH+5, INIT+5, INIT+6
HLJ(870	SAVTSK+8
HLMSG	CHKQUE+2~, CHKQUE+3, CHKQUE+4
HLPARM	TASKLSUB+2~
HLPARM4	LLOK+3~, LLOK+4, LLOK+6, TASKLSUB+2~, TASKLSUB+4, TASKLSUB+14
HLQUIT	TASKLSUB+2~, TASKLSUB+9!
HLTSK	CHKQUE+2~, CHKQUE+10*, CHKQUE+23, CHKQUE+25, CHKQUE+32
HLTSKCNT	EN+1~
HLTSKCNT(	CHKQUE+7!, CHKQUE+10, CHKQUE+42, CHKQUE+44, CHKQUE+48!, SAVTSK+11*
HLTYPTR	LLOK+3~, LLOK+15, TASKLSUB+2~, TASKLSUB+7, TASKLSUB+8
NODE5	CKLMSTOP+1~, CKLMSTOP+5*, CKLMSTOP+6
PTRMAIN	CKLMSTOP+1~, CKLMSTOP+2*, CKLMSTOP+3, CKLMSTOP+4, CKLMSTOP+5
STOP	CKLMSTOP+1~, CKLMSTOP+6, CKLMSTOP+7, CKLMSTOP+8, CKLMSTOP+9
TMP	TASKLM+2~
U	CHKQUE+6, LLOK+6, LLOK+12, LLOK+15, TASKLSUB+7, TASKLSUB+14, SNDALERT+2, SNDALERT+3
X	EXIT~, EXIT+1, EXIT+2, EXIT+4, EXIT+6, SAVDOLRH+1~, SAVDOLRH+2, SAVDOLRH+3, SAVDOLRH+5, SAVDOLRH+7 , INIT+1~, INIT+2, INIT+3, INIT+5, INIT+6, INIT+8, TASKNUM~, TASKNUM+2, STATUS~, STATUS+2 , LLOK~, LLOK+2, LLOK+4, SAVTSK~, SAVTSK+2, SAVTSK+8, STOPLM+1~, STOPLM+3, STAT+1~, STAT+3 , STAT+4, STAT+5*, STAT+6, STAT+7, TASKLSUB~, TASKLSUB+4
XQA	SNDALERT+1~
XQA("G."	SNDALERT+3*
XQAID	SNDALERT+1~
XQAMSG	SNDALERT+1~, SNDALERT+3*
XQAOPT	SNDALERT+1~
XQAROU	SNDALERT+1~
Y	EN+4, CHKQUE+2~, CHKQUE+10, CHKQUE+15, CHKQUE+17, CHKQUE+32, TASKNUM+1~, TASKNUM+7, TASKNUM+12, STATUS+1~ , STATUS+4, STATUS+5, STRTSTOP+1~, STRTSTOP+5, STRTSTOP+9, STOPLM+1~, STOPLM+5, STAT+1~
Z	SNDALERT+1~, SNDALERT+2*, SNDALERT+3
ZTCPU	TASKLSUB+2~, TASKLSUB+14*
ZTDESC	TASKLSUB+2~, TASKLSUB+11, TASKLM+2~, TASKLM+7
ZTDTH	TASKLSUB+12, TASKLM+2~, TASKLM+4
ZTIO	TASKLSUB+12, TASKLM+2~, TASKLM+3
>> ZTQUEUED	EN+4, EN+6, INIT+5
ZTRTN	TASKLSUB+2~, TASKLSUB+10, TASKLM+2~, TASKLM+6
ZTSAVE	TASKLSUB+2~
ZTSAVE("HLBGR"	TASKLSUB+11*
ZTSAVE("HLDP"	TASKLSUB+11*
ZTSK	CHKQUE+16~, CHKQUE+17, CHKQUE+24~, CHKQUE+25, CHKQUE+43~, CHKQUE+44, STATUS+1~, STATUS+2, SAVTSK+8, SAVTSK+11 , TASKLM+2~, TASKLM+10
ZTSK(1	CHKQUE+20, CHKQUE+28, CHKQUE+48, STATUS+4

Customize PDF page

Package: Health Level Seven

Routine: HLCSLM

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: