source: WorldVistAEHR/trunk/r/FOUNDATIONS-XOBU/XOBUM.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 5.3 KB
Line 
1XOBUM ;; 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 ;
5EN ; -- 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 ;
11HDR ; -- 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 ;
27INIT ; -- init variables and list array
28 DO CLEAR
29 QUIT
30 ;
31BUILD ; -- 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 ;
64HELP ; -- help code
65 SET X="?" DO DISP^XQORM1 WRITE !!
66 QUIT
67 ;
68EXIT ; -- exit code
69 DO KILL
70 QUIT
71 ;
72KILL ; -- kill off list location
73 KILL ^TMP("XOB LISTENERS",$JOB)
74 QUIT
75 ;
76EXPND ; -- expand code
77 QUIT
78 ;
79START ; -- 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 ;
90BOX ; -- 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 ;
96STOP ; -- 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 ;
113STOPQ ;
114 DO REFRESH
115 QUIT
116 ;
117PARMS ; -- 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 ;
132CFG ; -- 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 ;
141CP ; -- 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 ;
150CLEAR ; -- 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 ;
157REFRESH ; -- refresh display
158 ; -- Protocol: XOBU FOUNDATIONS MAIN REFRESH
159 DO BUILD
160 SET VALMBCK="R"
161 QUIT
162 ;
163SS ; -- 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 ;
174ERROR(XOBOK) ;
175 WRITE !,$PIECE(XOBOK,U,2)
176 DO PAUSE^VALM1
177 QUIT
178 ;
179NOYET ; -- not yet available
180 WRITE !!,"Action is under construction.",!
181 DO PAUSE^VALM1
182 SET VALMBCK="R"
183 QUIT
184 ;
185VMS ; -- 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$
197DSM ; -- 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$
Note: See TracBrowser for help on using the repository browser.