| 1 | DG53644P ;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 | ;
|
|---|
| 4 | EN ;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 | ;
|
|---|
| 41 | ARRAY ;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 | ;
|
|---|
| 52 | ASKIP ;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 | ;
|
|---|
| 64 | VIEHELP ;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
|
|---|
| 71 | ASKYN ;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 | ;
|
|---|
| 81 | ERRMSG ;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 | ;
|
|---|
| 87 | MENUS ;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
|
|---|
| 100 | TABLE ;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
|
|---|
