Routine: HLCSLNCH

Package	Total	Call Graph
Kernel	5	HOME^%ZIS (CALL,CLOSE)^%ZISTCP $$OS^%ZOSV (,$$ASKSTOP)^%ZTLOAD $$NOW^XLFDT
Health Level Seven	2	FILE^HLDIE ($$DAT2,$$TASK)^HLUTIL1
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
Health Level Seven	1	HL START

Entry Points

Name	Comments	DBIA/ICR reference
STOPQ
STARTQ	;
STOP	; Shut down a lower level protocol..
STP1	;
START	; Start up the lower level protocol
S	;

External References

Name	Field # of Occurrence
HOME^%ZIS	S+10
CALL^%ZISTCP	S+9
CLOSE^%ZISTCP	S+13
$$OS^%ZOSV	START+23, STOP+7, S+6
^%ZTLOAD	START+64
$$ASKSTOP^%ZTLOAD	S+8
^DIC	START+6, STOP+5
^DIR	START+53, STP1+1
FILE^HLDIE	START+41, S+5
$$DAT2^HLUTIL1	START+27, START+28, STOP+12
$$TASK^HLUTIL1	START+30
$$NOW^XLFDT	START+40, S+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option is used to launch the lower level protocol for the" Line Location: START+3
Function Call: WRITE	Prompt: !,"appropriate device. Please select the node with which you want" Line Location: START+4
Function Call: WRITE	Prompt: !,"to communicate",! Line Location: START+5
Function Call: WRITE	Prompt: !,$C(7),"A Lower Layer Protocol must be selected before start-up can occur." Line Location: START+10
Function Call: WRITE	Prompt: !,$C(7),"No routine has been specified for this LLP." Line Location: START+18
Function Call: WRITE	Prompt: !,$C(7),"This LLP is a multi-threaded server. It is controlled by external service, i.e. TCPIP/UCX. You must use the external service to start this LLP." Line Location: START+24
Function Call: WRITE	Prompt: !,"The LLP was last shutdown on ",$$DAT2^HLUTIL1($P(HLPARM0,U,11)),"." Line Location: START+28
Function Call: WRITE	Prompt: !,"The LLP appears to be online already !" Line Location: START+29
Function Call: WRITE	Prompt: !,$C(7),"NOTE: The lower level protocol for this application is already running." Line Location: START+31
Function Call: WRITE	Prompt: !,"This LLP is already enabled!" Line Location: START+36
Function Call: WRITE	Prompt: !,$C(7),"Unable to enable this LLP !" Line Location: START+38
Function Call: WRITE	Prompt: !,"This LLP will start on node ",ZTCPU," if it is run in the Background.",! Line Location: START+45
Function Call: WRITE	Prompt: ! Line Location: START+47
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Job was queued as "_ZTSK_".",1:"Unable to queue job.") Line Location: START+65
Function Call: WRITE	Prompt: !,?5,"-Unable to Open the Device !",!,!,?6,"Check that Port is Logged Out, and that the",!,?6,"Lower Level Protocol is not Already Running." Line Location: STARTQ+1
Function Call: WRITE	Prompt: !!,"This option is used to shut down the lower level protocol for the" Line Location: STOP+2
Function Call: WRITE	Prompt: !,"appropriate device. Please select the link which you would" Line Location: STOP+3
Function Call: WRITE	Prompt: !,"like to shutdown.",! Line Location: STOP+4
Function Call: WRITE	Prompt: !,$C(7),"This LLP is a multi-threaded server. It is controlled by external service, i.e. UCX. You must use the external service to disable this LLP." Line Location: STOP+8
Function Call: WRITE	Prompt: !,$C(7),"The lower level protocol is already ",$P(HLPARM0,U,5),"." Line Location: STOP+11
Function Call: WRITE	Prompt: !,$C(7),"The lower level protocol was started on ",$$DAT2^HLUTIL1($P(HLPARM0,U,10)),"." Line Location: STOP+12
Function Call: WRITE	Prompt: ! Line Location: STP1+1
Function Call: WRITE	Prompt: !!,"The job will not be shut down." Line Location: STP1+2
Function Call: WRITE	Prompt: !,"Unable to shutdown logical link!!!",$C(7),$C(7) Line Location: S+10
Function Call: WRITE	Prompt: "STOP" Line Location: S+11
Function Call: WRITE	Prompt: ! Line Location: S+12
Function Call: WRITE	Prompt: !,"The job for the "_HLDAPP_" Lower Level Protocol will be shut down." Line Location: S+15
Routine Call	%ZIS Line Location: S+10
Routine Call	DIC Line Location: START+6 STOP+5
Routine Call	DIR Line Location: START+53 STP1+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(14.7 - [#14.7]	START+45
^%ZOSF("OS"	START+23, STOP+7, S+6
^HLCS(869.1 - [#869.1]	START+14, START+16
^HLCS(870 - [#870]	START+12, START+37, START+42, START+56, STOP+6, S+1, S+14

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	START+1~, START+6, STOP+1~, STOP+5!
DIC(0	START+6, STOP+5
DIR	START+53!, STP1+1!
DIR("?"	START+50, START+51, START+52*
DIR("A"	START+48, STP1+1
DIR("B"	START+49*
DIR(0	START+47, STP1+1
DIRUT	START+1~, STOP+1~, STP1+2
DTOUT	START+1~, STOP+1~
DUOUT	START+1~, STOP+1~, STP1+2
HLBGR	START+2~, START+14*, START+18, START+59, START+62
HLDAPP	START+1~, START+7, START+63, STOP+1~, STOP+6, S+15
HLDP	START+1~, START+7, START+12, START+37, START+39, START+42, START+56, STOP+1~, STOP+6, S+1 , S+3, S+14
>> HLENV	START+16*, START+21
HLJ	START+1~, START+35~, STOP+1~
HLPARM0	START+2~, START+7, START+27, START+28, START+29, START+30, START+36, STOP+1~, STOP+6, STOP+11 , STOP+12, S+4, S+8
HLPARM4	START+2~, START+12, START+23, START+29, START+32, START+45, STOP+1~, STOP+6, STOP+7, S+4 , S+6, S+9
HLQUIT	START+1~, START+21
HLTRACE	START+1~, START+58, START+62
HLTYPTR	START+2~, START+7*, START+10, START+14, START+16
>> HLX	START+56*
IO	S+10, S+11
>> POP	STARTQ+1, S+10
U	START+7, START+23, START+27, START+28, START+29, START+30, START+32, START+36, START+45, START+54 , STOP+7, STOP+11, STOP+12, S+4, S+6, S+8, S+9
X	START+2~, START+35~, START+39, START+40, STOP+1~, S+3, S+4, S+8*
Y	START+2~, START+6, START+7, START+54, START+58, START+61, STOP+1~, STOP+5, STOP+6, STP1+2
Y(0	START+7, STOP+6
ZTCPU	START+2~, START+45*
ZTDESC	START+2~, START+63*
>> ZTDTH	START+62*
>> ZTIO	START+62*
ZTRTN	START+2~, START+62*
>> ZTSAVE("HLDP"	START+63*
ZTSK	START+2~, START+65

Customize PDF page

Package: Health Level Seven

Routine: HLCSLNCH

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
STARTQ	START+6, START+10, START+18, START+21, START+23, START+30, START+32, START+58, START+61
STP1	START+27