1 | XOBUM ;; ld,mjk/alb - Foundations Manager ; 07/27/2002 13:00
|
---|
2 | ;;1.5;Foundations;;Sep 09, 2005
|
---|
3 | ;;Foundations Toolbox Release v1.5 [Build: 1.5.0.026]
|
---|
4 | ;
|
---|
5 | EN ; -- main entry point for XOBU FOUNDATIONS MAIN ListMan Template
|
---|
6 | ; Option: XOBU SITE SETUP MENU on Operations Management menu [XUSITEMGR]
|
---|
7 | ;
|
---|
8 | DO EN^VALM("XOBU FOUNDATIONS MAIN")
|
---|
9 | QUIT
|
---|
10 | ;
|
---|
11 | HDR ; -- header code
|
---|
12 | NEW Y,X
|
---|
13 | SET Y=$GET(^XOB(18.01,1,0))
|
---|
14 | SET VALMHDR(1)=" <<< VistALink Parameters >>>"
|
---|
15 | SET VALMHDR(2)=""
|
---|
16 | SET X=" "
|
---|
17 | SET X=X_"VistALink Version: "_$PIECE($TEXT(XOBUM+1),";",3)
|
---|
18 | SET X=X_" "
|
---|
19 | SET X=X_"Heartbeat Rate: "_$PIECE(Y,U,2)
|
---|
20 | SET X=X_" "
|
---|
21 | SET X=X_"Latency Delta: "_$PIECE(Y,U,3)
|
---|
22 | SET VALMHDR(3)=X
|
---|
23 | SET VALMHDR(4)=""
|
---|
24 | SET VALMHDR(5)=" <<< VistALink Listener Status Log >>>"
|
---|
25 | QUIT
|
---|
26 | ;
|
---|
27 | INIT ; -- init variables and list array
|
---|
28 | DO CLEAR
|
---|
29 | QUIT
|
---|
30 | ;
|
---|
31 | BUILD ; -- init variables and list array
|
---|
32 | NEW I,XOBI,XOB0,X,XOBDATA,XOBOS,XOBROOT,XOBTXT
|
---|
33 | DO KILL
|
---|
34 | ;
|
---|
35 | SET VALMCNT=0
|
---|
36 | SET XOBROOT=$NAME(XOBDATA("DILIST","ID"))
|
---|
37 | DO LIST^DIC(18.04,"",".01;.02;.03;.04;.05;.06","","","","","","","",$NAME(XOBDATA))
|
---|
38 | SET XOBI=0
|
---|
39 | FOR SET XOBI=$ORDER(@XOBROOT@(XOBI)) QUIT:'XOBI DO
|
---|
40 | . SET VALMCNT=VALMCNT+1
|
---|
41 | . SET X=""
|
---|
42 | . SET X=$$SETFLD^VALM1(VALMCNT,X,"ID")
|
---|
43 | . SET X=$$SETFLD^VALM1($GET(@XOBROOT@(XOBI,.01)),X,"BOX")
|
---|
44 | . SET X=$$SETFLD^VALM1($GET(@XOBROOT@(XOBI,.02)),X,"PORT")
|
---|
45 | . SET X=$$SETFLD^VALM1($GET(@XOBROOT@(XOBI,.03)),X,"STATUS")
|
---|
46 | . SET X=$$SETFLD^VALM1($GET(@XOBROOT@(XOBI,.05)),X,"DATE")
|
---|
47 | . SET X=$$SETFLD^VALM1($GET(@XOBROOT@(XOBI,.06)),X,"CONFIG")
|
---|
48 | . DO SET^VALM10(VALMCNT,X,VALMCNT)
|
---|
49 | . SET ^TMP("XOB LISTENERS","IDX",$JOB,VALMCNT)=VALMCNT_"^"_+$GET(XOBDATA("DILIST",2,XOBI))
|
---|
50 | ;
|
---|
51 | QUIT:VALMCNT
|
---|
52 | ;
|
---|
53 | ;-- supported Kernel API to get OS version
|
---|
54 | SET XOBOS=$$VERSION^%ZOSV(1)
|
---|
55 | QUIT:XOBOS'["VMS"&(XOBOS'["DSM")
|
---|
56 | SET XOBOS=$SELECT(XOBOS["VMS":"VMS",1:"DSM")
|
---|
57 | ;
|
---|
58 | ;-- display text for VistaLink TCPIP enabled (Cache/VMS or DSM)
|
---|
59 | FOR I=1:1 SET XOBTXT=$PIECE($TEXT(@XOBOS+I),";;",2) QUIT:XOBTXT="$END$" DO
|
---|
60 | . SET VALMCNT=VALMCNT+1
|
---|
61 | . DO SET^VALM10(VALMCNT,$$SETSTR^VALM1(XOBTXT,"",12,65))
|
---|
62 | QUIT
|
---|
63 | ;
|
---|
64 | HELP ; -- help code
|
---|
65 | SET X="?" DO DISP^XQORM1 WRITE !!
|
---|
66 | QUIT
|
---|
67 | ;
|
---|
68 | EXIT ; -- exit code
|
---|
69 | DO KILL
|
---|
70 | QUIT
|
---|
71 | ;
|
---|
72 | KILL ; -- kill off list location
|
---|
73 | KILL ^TMP("XOB LISTENERS",$JOB)
|
---|
74 | QUIT
|
---|
75 | ;
|
---|
76 | EXPND ; -- expand code
|
---|
77 | QUIT
|
---|
78 | ;
|
---|
79 | START ; -- start a listener
|
---|
80 | ; -- Protocol: XOBV LISTENER START
|
---|
81 | NEW XOBOK
|
---|
82 | DO FULL^VALM1
|
---|
83 | IF $$START^XOBUM1() DO
|
---|
84 | . SET VALMSG="Refresh to see 'RUNNING' status"
|
---|
85 | ELSE DO
|
---|
86 | . DO PAUSE^VALM1
|
---|
87 | DO REFRESH
|
---|
88 | QUIT
|
---|
89 | ;
|
---|
90 | BOX ; -- start this BOX-VOl default configuration
|
---|
91 | ; -- Protocol: XOBV LISTENER BOX-VOL
|
---|
92 | IF $$BOX^XOBUM1() SET VALMSG="Refresh to see 'RUNNING' status"
|
---|
93 | DO REFRESH
|
---|
94 | QUIT
|
---|
95 | ;
|
---|
96 | STOP ; -- stop a listener
|
---|
97 | ; -- Protocol: XOBV LISTENER STOP
|
---|
98 | NEW Y,X,DATA,ENTRY,LOGDA,XOBOK
|
---|
99 | DO FULL^VALM1
|
---|
100 | DO EN^VALM2(XQORNOD(0),"S")
|
---|
101 | SET ENTRY=+$ORDER(VALMY(""))
|
---|
102 | IF 'ENTRY GOTO STOPQ
|
---|
103 | ;
|
---|
104 | SET DATA=$GET(^TMP("XOB LISTENERS","IDX",$JOB,ENTRY))
|
---|
105 | DO SELECT^VALM10(+DATA,1)
|
---|
106 | ;
|
---|
107 | SET LOGDA=+$PIECE(DATA,U,2)
|
---|
108 | SET XOBOK=$$STOP^XOBUM1(LOGDA)
|
---|
109 | IF XOBOK SET VALMSG=">>> Listener may take up to 60 seconds to stop <<<"
|
---|
110 | IF 'XOBOK DO ERROR(XOBOK)
|
---|
111 | DO SELECT^VALM10(+DATA,0)
|
---|
112 | ;
|
---|
113 | STOPQ ;
|
---|
114 | DO REFRESH
|
---|
115 | QUIT
|
---|
116 | ;
|
---|
117 | PARMS ; -- maintain site parameters
|
---|
118 | ; -- Protocol: XOBU SITE PARAMETERS
|
---|
119 | NEW XOBOK
|
---|
120 | DO FULL^VALM1
|
---|
121 | SET XOBOK=$$PARMS^XOBUM1()
|
---|
122 | IF 'XOBOK DO ERROR(XOBOK)
|
---|
123 | ;
|
---|
124 | ; -- Add users to VISTALINK PERSON file (#18.09)
|
---|
125 | ; SET XOBOK=$$ADDPERS^XOBUM1()
|
---|
126 | ; IF 'XOBOK DO ERROR(XOBOK)
|
---|
127 | ;
|
---|
128 | DO HDR
|
---|
129 | DO REFRESH
|
---|
130 | QUIT
|
---|
131 | ;
|
---|
132 | CFG ; -- maintain listener configurations
|
---|
133 | ; -- Protocol: XOBV LISTENER CONFIG
|
---|
134 | NEW XOBOK
|
---|
135 | DO FULL^VALM1
|
---|
136 | SET XOBOK=$$CFG^XOBUM1()
|
---|
137 | IF 'XOBOK DO ERROR(XOBOK)
|
---|
138 | DO REFRESH
|
---|
139 | QUIT
|
---|
140 | ;
|
---|
141 | CP ; -- add connector proxy
|
---|
142 | ; -- Protocol: XOBV LISTENER CONNECTOR PROXY
|
---|
143 | NEW XOBOK
|
---|
144 | DO FULL^VALM1
|
---|
145 | SET XOBOK=$$CP^XOBUM1()
|
---|
146 | IF 'XOBOK DO ERROR(XOBOK)
|
---|
147 | DO REFRESH
|
---|
148 | QUIT
|
---|
149 | ;
|
---|
150 | CLEAR ; -- clean up log entries of non-listeners
|
---|
151 | ; -- Protocol: XOBV LISTENER LOG CLEAR
|
---|
152 | DO WAIT^DICD WRITE !
|
---|
153 | DO CLEARLOG^XOBVTCP
|
---|
154 | DO REFRESH
|
---|
155 | QUIT
|
---|
156 | ;
|
---|
157 | REFRESH ; -- refresh display
|
---|
158 | ; -- Protocol: XOBU FOUNDATIONS MAIN REFRESH
|
---|
159 | DO BUILD
|
---|
160 | SET VALMBCK="R"
|
---|
161 | QUIT
|
---|
162 | ;
|
---|
163 | SS ; -- display M os system status
|
---|
164 | ; -- Protocol: XOBU FOUNDATIONS SYSTEM STATUS
|
---|
165 | DO FULL^VALM1
|
---|
166 | IF $DATA(^%ZOSF("SS")) DO
|
---|
167 | . XECUTE ^%ZOSF("SS")
|
---|
168 | ELSE DO
|
---|
169 | . WRITE !,"Error: ^%ZOSF(""SS"") node is not defined."
|
---|
170 | DO PAUSE^VALM1
|
---|
171 | DO REFRESH
|
---|
172 | QUIT
|
---|
173 | ;
|
---|
174 | ERROR(XOBOK) ;
|
---|
175 | WRITE !,$PIECE(XOBOK,U,2)
|
---|
176 | DO PAUSE^VALM1
|
---|
177 | QUIT
|
---|
178 | ;
|
---|
179 | NOYET ; -- not yet available
|
---|
180 | WRITE !!,"Action is under construction.",!
|
---|
181 | DO PAUSE^VALM1
|
---|
182 | SET VALMBCK="R"
|
---|
183 | QUIT
|
---|
184 | ;
|
---|
185 | VMS ; -- text for Cache/VMS TCPIP listener
|
---|
186 | ;;
|
---|
187 | ;;If this screen shows no running listener(s), it is likely that
|
---|
188 | ;;the VistALink listener(s) for this system are managed by the
|
---|
189 | ;;TCP/IP utility at the VMS system level and are already running.
|
---|
190 | ;;
|
---|
191 | ;;The following TCP/IP command will show the status of all
|
---|
192 | ;;listener services with names starting with vlink:
|
---|
193 | ;; $ tcpip show service vlink*
|
---|
194 | ;;Please contact IRM site staff for additional information
|
---|
195 | ;;regarding the VistALink listener(s) such as port number(s).
|
---|
196 | ;;$END$
|
---|
197 | DSM ; -- text for VMS/DSM TCPIP disclaimer
|
---|
198 | ;;
|
---|
199 | ;;This Foundations Manager screen cannot be used to manage
|
---|
200 | ;;VistALink listeners under DSM.
|
---|
201 | ;;
|
---|
202 | ;;For DSM, use the VMS TCP/IP utility to manage VistALink
|
---|
203 | ;;listeners. For example, the following TCP/IP command will
|
---|
204 | ;;show the status of all listener services with names
|
---|
205 | ;;starting with vlink:
|
---|
206 | ;;
|
---|
207 | ;; $ tcpip show service vlink*
|
---|
208 | ;;$END$
|
---|