Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: HLCSLNCH

Package: Health Level Seven

Routine: HLCSLNCH


Information

HLCSLNCH ;ALB/MTC/JC - START AND STOP THE LLP ;12/31/2003 17:37

Source Information

Source file <HLCSLNCH.m>

Call Graph

Call Graph Total: 9

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  

Caller Graph

Caller Graph Total: 1

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HLCS(870 - [#870] Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name Field # of Occurrence
^(0 START+45

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All