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 ;08/08/2011 15:18

Source Information

Source file <HLCSLNCH.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Health Level Seven 3 MON^HLCSTCP  FILE^HLDIE  $$DAT2^HLUTIL1  
Kernel 3 $$OS^%ZOSV  (,$$ASKSTOP,STAT)^%ZTLOAD  $$NOW^XLFDT  
VA FileMan 2 ^DIC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

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..
STARTJOB ;
STP1 ;
START ; Start up the lower level protocol
S ;

External References

Name Field # of Occurrence
$$OS^%ZOSV START+29, STOP+12, S+11
^%ZTLOAD STARTJOB+11
$$ASKSTOP^%ZTLOAD S+16
STAT^%ZTLOAD START+48
^DIC START+8, STOP+5
^DIR START+82, STP1+1
MON^HLCSTCP STARTJOB+5, STARTJOB+15
FILE^HLDIE START+64, S+5
$$DAT2^HLUTIL1 START+36, START+37, STOP+19
$$NOW^XLFDT START+51, START+63, STARTJOB+4, STARTJOB+16, 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+12
Function Call: WRITE
  • Prompt: !!,$C(7),"No routine has been specified for this LLP."
  • Line Location: START+20
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+32
Function Call: WRITE
  • Prompt: !,"The LLP was last shutdown on ",$$DAT2^HLUTIL1($P(HLPARM0,U,11)),"."
  • Line Location: START+37
Function Call: WRITE
  • Prompt: !,"The LLP appears to be online already !"
  • Line Location: START+40
Function Call: WRITE
  • Prompt: !,$C(7),"NOTE: The lower level protocol for this application is already running."
  • Line Location: START+42
Function Call: WRITE
  • Prompt: !,$C(7),"NOTE: The lower level protocol for this application is already running."
  • Line Location: START+50
Function Call: WRITE
  • Prompt: !,"This LLP is already enabled!"
  • Line Location: START+59
Function Call: WRITE
  • Prompt: !,$C(7),"Unable to enable this LLP !"
  • Line Location: START+61
Function Call: WRITE
  • Prompt: !,"This LLP will start on node ",ZTCPU," if it is run in the Background.",!
  • Line Location: START+68
Function Call: WRITE
  • Prompt: !
  • Line Location: START+76
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Job was queued as "_ZTSK_".",1:"Unable to queue job.")
  • Line Location: STARTJOB+18
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. TCPIP/UCX. You must use the external service to disable this LLP."
  • Line Location: STOP+15
Function Call: WRITE
  • Prompt: !,$C(7),"The lower level protocol is already ",$P(HLPARM0,U,5),"."
  • Line Location: STOP+18
Function Call: WRITE
  • Prompt: !,$C(7),"The lower level protocol was started on ",$$DAT2^HLUTIL1($P(HLPARM0,U,10)),"."
  • Line Location: STOP+19
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+18
Function Call: WRITE
  • Prompt: "**STOP**"
  • Line Location: S+19
Function Call: WRITE
  • Prompt: !
  • Line Location: S+20
Function Call: WRITE
  • Prompt: !,"The job for the "_HLDAPP_" Lower Level Protocol will be shut down."
  • Line Location: S+24
Routine Call
  • DIC
  • Line Location:
    • START+8
    • STOP+5
Routine Call
  • DIR
  • Line Location:
    • START+82
    • 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+68
^%ZOSF("OS" START+31, STOP+14, S+13
^HLCS(869.1 - [#869.1] START+16, START+18
^HLCS(870 - [#870] START+14, START+51*, START+60, START+65, STARTJOB+1, STARTJOB+4*, STARTJOB+16*, STOP+6, S+1, S+23

Label References

Name Line Occurrences
STARTJOB START+73
STARTQ START+8, START+12, START+20, START+23, START+31, START+45, START+54, STARTJOB+3, STARTJOB+8
STP1 START+36

Naked Globals

Name Field # of Occurrence
^(0 START+68

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC START+1~, START+8*, STOP+1~, STOP+5*!
DIC(0 START+8*, STOP+5*
DIR START+82!, STP1+1!
DIR("?" START+79*, START+80*, START+81*
DIR("A" START+77*, STP1+1*
DIR("B" START+78*
DIR(0 START+76*, 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+16*, START+20, STARTJOB+6, STARTJOB+9
HLDAPP START+1~, START+9*, STARTJOB+10, STOP+1~, STOP+6*, S+24
HLDP START+1~, START+9*, START+14, START+51, START+60, START+62, START+65, STARTJOB+1, STARTJOB+4, STARTJOB+16
, STOP+1~, STOP+6*, S+1, S+3, S+23
>> HLENV START+18*, START+23
HLJ START+1~, START+57~, STOP+1~
HLOSYS START+28~, START+29*, START+31, STOP+11~, STOP+12*, STOP+14, S+10~, S+11*, S+13
HLPARM0 START+2~, START+9*, START+36, START+37, START+45, START+47, STOP+1~, STOP+6*, STOP+18, STOP+19
, S+4, S+16
HLPARM4 START+2~, START+14*, START+31, START+54, START+68, STOP+1~, STOP+6*, STOP+14, S+4, S+13
HLQUIT START+1~, START+23
HLTEMP START+43~, START+44*, START+45, START+52*
HLTRACE START+1~, STARTJOB+3*, STARTJOB+9*, STARTJOB+14!
HLTYPTR START+2~, START+9*, START+12, START+16, START+18, START+71
>> HLX STARTJOB+1*
>> POP START+7*, STARTQ+1
U START+9, START+31, START+36, START+37, START+45, START+47, START+54, START+68, START+83, STOP+14
, STOP+18, STOP+19, S+4, S+13, S+16
X START+2~, START+57~, START+62*, START+63, STOP+1~, S+3*, S+4, S+16*
Y START+2~, START+8, START+9, START+72*, START+83, STARTJOB+3, STARTJOB+8, STOP+1~, STOP+5, STOP+6
, STP1+2
Y(0 START+9, STOP+6
ZTCPU START+2~, START+68*
ZTDESC START+2~, STARTJOB+10*
>> ZTDTH STARTJOB+9*
>> ZTIO STARTJOB+9*
ZTRTN START+2~, STARTJOB+9*
>> ZTSAVE("HLDP" STARTJOB+10*
ZTSK START+2~, START+46~, START+47*, STARTJOB+13, STARTJOB+18
ZTSK(1 START+49
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