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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: XTLATSET

Package: Toolkit

Routine: XTLATSET


Information

XTLATSET ;SF/RWF - BUILD SITE LT_LOAD.COM, LTPROT, and LT_PTR.DAT FILEs ;07/28/2005 16:41

Source Information

Source file <XTLATSET.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 ($$OS,GETENV)^%ZOSV  ($$DT,$$NOW)^XLFDT  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
National VistA Support 1 NVSMKPRN  

Entry Points

Name Comments DBIA/ICR reference
A ;This routine sets up the files for LAT device setup
EXIT
RUN ;Run the com files
OPEN(FN) ;Open file for write
DOCMD(CMD) ;Do a VMS command
FILE ;write data for this device
1 ;Write to LT_LOAD
2 ;Write to LT_PTR
3 ;U XFIO(3) W "$ prot "_$P(X,U,2),!
4 ;TSC_LOAD
OP ;File names to open
CL1
CL2
CL3
CL4
TX
TX1 ;;$! Create and set DECserver ports
TX2 ;;$ This file is used as input to SYSPRINT.com
TX3 ;;$ prot:= set prot=(O:rwlp,G:rwlp,W:rwlp)/device/owner=[100,1]/nolog
TX4 ;;$! Create file to set DECservers for printers

External References

Name Field # of Occurrence
$$OS^%ZOSV A+7
GETENV^%ZOSV A+16
^DIR A+14, A+43
$$DT^XLFDT A+3
$$NOW^XLFDT A+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Not running on a VAX. Not a valid routine to run."
  • Line Location: A+10
Function Call: WRITE
  • Prompt: !!,"This routine will build new LT_LOAD.COM, LT_PTR.DAT, TSC_LOAD.COM files"
  • Line Location: A+12
Function Call: WRITE
  • Prompt: !!,"The following files have been updated:",!!
  • Line Location: A+34
Function Call: WRITE
  • Prompt: !!,"To update the VMS configuration, the following COM"
  • Line Location: A+39
Function Call: WRITE
  • Prompt: !,"procedures must be run on your cluster:"
  • Line Location: A+40
Function Call: WRITE
  • Prompt: !!?2,"DO @"_XFIO(1)
  • Line Location: A+41
Function Call: WRITE
  • Prompt: !?2,"DO @SYS$MANAGER:SYSPRINT.COM",!
  • Line Location: A+42
Function Call: WRITE
  • Prompt: "$! Run LT_LOAD and SYSPRINT on the cluster"
  • Line Location: RUN+3
Function Call: WRITE
  • Prompt: !,"MCR SYSMAN"
  • Line Location: RUN+4
Function Call: WRITE
  • Prompt: !,"SET E/C"
  • Line Location: RUN+5
Function Call: WRITE
  • Prompt: !,"DO @"_XFIO(1)
  • Line Location: RUN+6
Function Call: WRITE
  • Prompt: !,"DO @SYS$MANAGER:SYSPRINT.COM"
  • Line Location: RUN+7
Function Call: WRITE
  • Prompt: !,"EXIT"
  • Line Location: RUN+8
Function Call: WRITE
  • Prompt: !,"$EXIT",!
  • Line Location: RUN+9
Function Call: WRITE
  • Prompt: !,"Execute command: "_CMD
  • Line Location: DOCMD+1
Function Call: WRITE
  • Prompt: !," setup "_$P(X,U)
  • Line Location: FILE+2
Function Call: WRITE
  • Prompt: "create port "_DEV_" /nolog ! "_$P(X,U),!
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: "set port "_DEV_" /app /queue /nolog /node="_NODE_" /port="_PORT,!
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: QUE_XTRM_$E(DEV_" ",1,9)_$E(SPEED_" ",1,5)_" ! "_$P(X,U),!
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: "$ prot "_$P(X,U,2),!
  • Line Location: 3+0
Function Call: WRITE
  • Prompt: "@PR "_NODE_" "_PORT_" "_SPEED,!
  • Line Location: 4+1
Function Call: WRITE
  • Prompt: "exit",!,"$ EXIT 1"
  • Line Location: CL1+0
Function Call: WRITE
  • Prompt: "$ EXIT"
  • Line Location: CL2+0
Function Call: WRITE
  • Prompt: "$ EXIT"
  • Line Location: CL3+0
Function Call: WRITE
  • Prompt: "$ EXIT"
  • Line Location: CL4+0
Function Call: WRITE
  • Prompt: XTWHEN,!
  • Line Location: TX+0
Function Call: WRITE
  • Prompt: T,!
  • Line Location: TX+0
Routine Call
  • DIR
  • Line Location:
    • A+14
    • A+43

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] A+26, A+27, A+28, A+29, FILE+4
^%ZIS(2 - [#3.2] FILE+4
^%ZOSF("OS" A+5
^VA(200 - [#200] A+15

Label References

Name Line Occurrences
@( A+37
DOCMD RUN+11, RUN+12
EXIT A+10, A+14
FILE A+30
OPEN A+21, RUN+1
RUN A+44
TX A+23

Naked Globals

Name Field # of Occurrence
^("SUBTYPE" FILE+4
^("VMS" A+28
^(0 A+15, A+28
^(1 FILE+4
^(90 A+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CMD DOCMD~, DOCMD+1
CMDFN A+2~, RUN+1*, RUN+2, RUN+11, RUN+12
DA A+1~, A+27*, A+28, A+29, EXIT!, FILE+4, 4+2*
DEV A+1~, EXIT!, FILE+1*, 1+1, 1+2, 2+1
DI A+2~, A+26*
DIR A+1~, EXIT!
DIR("?" A+13*
DIR("A" A+13*, A+43*
DIR("B" A+13*, A+43*
DIR(0 A+13*, A+43*
>> DIRUT A+14
DT A+3*, A+29
DUZ A+15
EXIT A+1~, A+4*, A+6*, A+7*, A+8*, A+10
FN A+1~, A+18*, A+19*, A+20, OPEN~
I A+2~, TX*
IO A+15*, A+22, FILE+2
NODE A+1~, EXIT!, FILE+1*, FILE+2, 1+2, 4+1
OS A+1~, A+5*, A+6, A+7, A+8, EXIT!, OPEN+1, OPEN+2, OPEN+3, DOCMD+2
, DOCMD+3, DOCMD+4
PORT A+1~, EXIT!, FILE+1*, FILE+2, 1+2, 4+1
Q A+1~, EXIT!
QUE A+2~, FILE+3*, 2+1
SPEED A+1~, EXIT!, FILE+1*, 2+1, 4+1
T A+2~, TX*
TX A+1~, A+20*, EXIT!
U A+15*, FILE+1, FILE+2, FILE+3, 1+1, 2+1
VAH A+1~, A+16*, A+19
>> X A+15*, A+18*, A+20, A+21, A+28*, A+35*, A+36, A+37, FILE+1, FILE+2
, 1+1, 2+1, TX
XFIO A+1~, EXIT!
XFIO( A+20*, A+21, A+36, TX
XFIO(1 A+41, RUN+6, 1+1, CL1
XFIO(2 2+1, CL2
XFIO(3 CL3
XFIO(4 4+1, CL4
XTIO A+2~, A+25*, A+26*, A+27
XTRM A+1~, EXIT!, FILE+4*, FILE+5*, FILE+6*, 2+1
XTWHEN A+1~, A+15*, EXIT!, TX
Y A+1~, A+14, A+16, A+28*, A+44, EXIT!, FILE+1, FILE+3

Marked Items

Name Field # of Occurrence
$T(@TX+I TX
$T(OP+X A+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All