source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53644P.m@ 1800

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

initial load of WorldVistAEHR

File size: 6.6 KB
RevLine 
[613]1DG53644P ;BPFO/JRC - Home Telehealth Patient POST Install;10 January 2005 ; 4/8/08 10:02am
2 ;;5.3;Registration;**644**;Aug 13, 1993;Build 11
3 ;
4EN ;Main entry point
5 ;Init variables
6 N VIEIP,LINK,DGARRAY,SITE,FLAG,RESPONSE
7 S DGARRAY="^TMP(""DGHT"",$J,""IPARRAY"")"
8 S SITE=+$P($$SITE^VASITE(),U,3),(LINK,RESPONSE)=0
9 ;
10 ;Setup ip address array
11 D ARRAY
12 ;
13 ;Resolve ip address to use
14 S VIEIP="",VIEIP=$O(@DGARRAY@(SITE,VIEIP))
15 ;
16 ;No ip address resolved, enter manually? if flag = 1 abort
17 I VIEIP="" D ASKYN I 'RESPONSE D ERRMSG K @DGARRAY Q
18 ;
19 ;If response = 1, enter ip adress manually if flag = 1 abort
20 I RESPONSE S VIEIP=0 D ASKIP I 'VIEIP D ERRMSG K @DGARRAY Q
21 ;
22 ;Order thru HL Logical Link file and retrieve IEN for 'DGHT' Link
23 S LINK=$O(^HLCS(870,"B","DG HTH",LINK))
24 ;
25 ;If DG HTH logical link not found display message and quit
26 I 'LINK K @DGARRAY D ERRMSG Q
27 ;
28 ;Update HL Logical Link file (#870)
29 D BMES^XPDUTL("DG HTH Logical Link has been found ")
30 D BMES^XPDUTL("Updating IP Address field (#400.01) ")
31 I VIEIP D
32 .;Prepare DIE filer call
33 .N DGHFDA,DGHERR
34 .S DGHFDA(870,LINK_",",400.01)=VIEIP
35 .D FILE^DIE("EK","DGHFDA","DGHERR")
36 .I $D(DGHERR) D ERRMSG Q
37 .D BMES^XPDUTL("DG HTH Logical Link ip address updated successfully. ")
38 D MENUS
39 Q
40 ;
41ARRAY ;Set VIE IP Address Array
42 ;Input : DGARRAY - ip address array
43 ;Output : VIE ip address array
44 ; @DGARRAY@(station,VieIpAddress) = ""
45 N OFF,TEXT,STATION,IP
46 F OFF=1:1 S TEXT=$P($T(TABLE+OFF),";;",2) Q:TEXT="END" D
47 .S STATION=$P(TEXT,"^",1),IP=$P(TEXT,"^",2)
48 .I STATION=""!(IP="") Q
49 .S @DGARRAY@(STATION,IP)=""
50 Q
51 ;
52ASKIP ;Prompt user for VIE IP address
53 N DIR,DIRUT,X,Y
54 S DIR(0)="F^^K:X'?1.3N1"".""1.3N1"".""1.3N1"".""1.3N X"
55 S DIR("?",1)="Enter a valid IP address using the following format: nnn.nnn.nnn.nnn"
56 S DIR("?")="Or '??' for a list of available station numbers & IP addresses."
57 S DIR("??")="^D VIEHELP^DG53644P"
58 S DIR("A")="Enter local VIE IP address"
59 D ^DIR
60 I $D(DIRUT) Q
61 S VIEIP=Y
62 Q
63 ;
64VIEHELP ;Help text listing Local VIE address"
65 N OFF,TEXT,IP
66 F OFF=1:1 S TEXT=$P($T(TABLE+OFF),";;",2) Q:TEXT="END" D
67 .S STATION=$P(TEXT,"^",1),IP=$P(TEXT,"^",2)
68 .I STATION=""!(IP="") Q
69 .W ?3,STATION,?12,IP,!
70 Q
71ASKYN ;Ask user if they want to enter IP address manually
72 N DIR,DIRUT,X,Y
73 S DIR(0)="Y"
74 S DIR("A",1)="Unable to resolve VIE IP address."
75 S DIR("A")="Would you like to enter it manually"
76 D ^DIR
77 I $D(DIRUT)!('Y) S FLAG=1 Q
78 S RESPONSE=Y
79 Q
80 ;
81ERRMSG ;Problem encountered updating IP address notify user
82 D BMES^XPDUTL("DG HTH Logical Link's IP address was not updated. ")
83 D MES^XPDUTL("See patch description for instructions on how ")
84 D MES^XPDUTL("to update the IP address at a later time. ")
85 Q
86 ;
87MENUS ;Place HTH menu options out of order
88 N OPTION,MENU,TEXT
89 ;Delete HTH main menu from registration options.
90 S OPTION="DGHT HOME TELEHEALTH"
91 F MENU="DG REGISTRATION MENU","DG SUPERVISOR MENU" D
92 .D DELETE^XPDMENU(MENU,OPTION)
93 D BMES^XPDUTL("Implementation of HTH requires OCC coordination/approval; hence the following")
94 D BMES^XPDUTL("list of HTH menu options have been placed out of order by the installation.")
95 S OPTION="",TEXT="Activation of option requires OCC approval."
96 F OPTION="DGHT HOME TELEHEALTH","DGHT PATIENT SIGNUP","DGHT PATIENT INACTIVATION","DGHT SUMMARY REPORT","DGHT TRANSMISSION REPORT" D
97 .D OUT^XPDMENU(OPTION,TEXT)
98 .D BMES^XPDUTL("["_OPTION_"]")
99 Q
100TABLE ;VIE IP address array table syntax - station ^ vie ip
101 ;;516^10.64.10.136
102 ;;660^10.154.2.54
103 ;;657^10.123.139.63
104 ;;613^10.40.106.46
105 ;;528^10.21.253.165
106 ;;HEC^10.61.193.83
107 ;;528^10.21.253.169
108 ;;HEC^10.61.193.88
109 ;;688^10.41.0.18
110 ;;518^10.8.66.64
111 ;;523^10.9.0.99
112 ;;650^10.11.1.30
113 ;;689^10.12.8.37
114 ;;580^10.133.188.116
115 ;;517^10.50.50.24
116 ;;608^10.8.143.73
117 ;;561^10.30.21.175
118 ;;503^10.32.11.27
119 ;;558^10.48.138.44
120 ;;402^10.14.128.29
121 ;;620^10.30.21.180
122 ;;529^10.32.129.50
123 ;;589^10.120.137.84
124 ;;526^10.30.21.185
125 ;;512^10.42.14.165
126 ;;637^10.50.148.34
127 ;;540^10.33.120.113
128 ;;542^10.34.22.100
129 ;;674^10.137.10.30
130 ;;671^10.140.159.107
131 ;;504^10.145.252.221
132 ;;630^10.30.21.165
133 ;;405^10.14.55.53
134 ;;562^10.33.184.77
135 ;;659^10.51.1.122
136 ;;632^10.30.21.170
137 ;;595^10.35.136.65
138 ;;460^10.39.10.30
139 ;;565^10.51.138.130
140 ;;658^10.49.138.24
141 ;;646^10.37.34.86
142 ;;590^10.48.10.89
143 ;;509^10.57.224.115
144 ;;521^10.59.15.164
145 ;;534^10.56.224.105
146 ;;631^10.13.97.24
147 ;;693^10.38.14.110
148 ;;652^10.49.50.60
149 ;;544^10.60.205.80
150 ;;557^10.61.224.94
151 ;;673^10.69.48.45
152 ;;642^10.36.41.66
153 ;;619^10.62.224.103
154 ;;679^10.63.224.238
155 ;;573^10.65.10.44
156 ;;672^10.68.130.68
157 ;;546^10.67.12.49
158 ;;581^10.73.100.123
159 ;;596^10.74.100.123
160 ;;614^10.76.100.124
161 ;;757^10.81.1.96
162 ;;548^10.70.31.219
163 ;;603^10.75.100.123
164 ;;626^10.78.100.123
165 ;;538^10.82.1.249
166 ;;621^10.72.100.123
167 ;;539^10.80.2.46
168 ;;583^10.89.4.94
169 ;;541^10.83.1.69
170 ;;610^10.90.1.40
171 ;;552^10.85.1.29
172 ;;550^10.94.10.133
173 ;;506^10.93.80.134
174 ;;695^10.98.2.38
175 ;;515^10.92.1.85
176 ;;537^10.97.8.33
177 ;;676^10.103.2.132
178 ;;553^10.91.0.74
179 ;;578^10.101.1.64
180 ;;556^10.100.1.18
181 ;;607^10.102.2.65
182 ;;655^10.88.63.68
183 ;;502^10.129.24.29
184 ;;598^10.128.5.226
185 ;;586^10.130.12.207
186 ;;585^10.99.1.67
187 ;;520^10.132.96.24
188 ;;564^10.134.10.116
189 ;;623^10.134.140.38
190 ;;629^10.131.90.19
191 ;;635^10.135.56.118
192 ;;667^10.129.131.82
193 ;;519^10.146.252.103
194 ;;501^10.144.252.224
195 ;;644^10.148.253.60
196 ;;442^10.152.21.79
197 ;;756^10.147.252.224
198 ;;649^10.149.252.225
199 ;;554^10.153.5.154
200 ;;436^10.154.132.68
201 ;;678^10.150.253.218
202 ;;575^10.155.134.45
203 ;;654^10.172.25.11
204 ;;640^10.168.99.38
205 ;;459^10.170.100.74
206 ;;612^10.173.19.113
207 ;;666^10.152.183.178
208 ;;531^10.167.138.66
209 ;;648^10.165.50.99
210 ;;663^10.161.5.50
211 ;;653^10.166.130.147
212 ;;668^10.163.14.34
213 ;;463^10.162.140.63
214 ;;687^10.163.144.27
215 ;;692^10.167.4.52
216 ;;358^10.171.253.13
217 ;;570^10.171.67.160
218 ;;662^10.174.1.79
219 ;;605^10.177.118.81
220 ;;593^10.176.50.24
221 ;;618^10.104.10.89
222 ;;ALBANY^10.1.19.150
223 ;;600^10.179.99.94
224 ;;ALBANY CS LAB^10.1.19.155
225 ;;SILVER SPRING^10.2.29.172
226 ;;664^10.178.10.73
227 ;;691^10.180.1.48
228 ;;508^10.58.239.74
229 ;;HDR AAC^10.224.132.23
230 ;;HDR AAC^10.224.132.28
231 ;;AAC^10.224.151.133
232 ;;AAC^10.224.151.153
233 ;;BAY PINES OIFO^10.4.229.88
234 ;;HINES OIFO^10.3.21.43
235 ;;BIRMINGHAM OIFO^10.4.21.25
236 ;;SALT LAKE OIFO^10.5.21.86
237 ;;BAY PINES OIFO IV&V TEST LAB^10.4.229.85
238 ;;HINES OIFO EMC DATA CENTER^10.3.21.48
239 ;;HAC^10.6.21.42
240 ;;HAC^10.191.10.152
241 ;;IE Team - Dev & Test^10.4.229.90
242 ;;EMC Data Center^10.3.21.53
243 ;;IE Team - Dev & Test^10.6.21.50
244 ;;MPI^10.224.151.138
245 ;;CMOP^10.189.77.163
246 ;;CMOP^10.189.101.157
247 ;;CMOP^10.189.1.17
248 ;;CMOP^10.189.61.94
249 ;;636^10.114.5.4
250 ;;CMOP^10.189.101.34
251 ;;CMOP^10.189.77.74
252 ;;CMOP^10.189.37.38
253 ;;549^10.138.65.55
254 ;;ARC^10.191.1.58
255 ;;PLANO TEST SERVER^10.6.208.19
256 ;;541^10.83.59.125
257 ;;END
Note: See TracBrowser for help on using the repository browser.