Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DG53644P

DG53644P.m

Go to the documentation of this file.
  1. DG53644P ;BPFO/JRC - Home Telehealth Patient POST Install;10 January 2005 ; 4/8/08 10:02am
  1. ;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20
  1. ;
  1. EN ;Main entry point
  1. ;Init variables
  1. N VIEIP,LINK,DGARRAY,SITE,FLAG,RESPONSE
  1. S DGARRAY="^TMP(""DGHT"",$J,""IPARRAY"")"
  1. S SITE=+$P($$SITE^VASITE(),U,3),(LINK,RESPONSE)=0
  1. ;
  1. ;Setup ip address array
  1. D ARRAY
  1. ;
  1. ;Resolve ip address to use
  1. S VIEIP="",VIEIP=$O(@DGARRAY@(SITE,VIEIP))
  1. ;
  1. ;No ip address resolved, enter manually? if flag = 1 abort
  1. I VIEIP="" D ASKYN I 'RESPONSE D ERRMSG K @DGARRAY Q
  1. ;
  1. ;If response = 1, enter ip adress manually if flag = 1 abort
  1. I RESPONSE S VIEIP=0 D ASKIP I 'VIEIP D ERRMSG K @DGARRAY Q
  1. ;
  1. ;Order thru HL Logical Link file and retrieve IEN for 'DGHT' Link
  1. S LINK=$O(^HLCS(870,"B","DG HTH",LINK))
  1. ;
  1. ;If DG HTH logical link not found display message and quit
  1. I 'LINK K @DGARRAY D ERRMSG Q
  1. ;
  1. ;Update HL Logical Link file (#870)
  1. D BMES^XPDUTL("DG HTH Logical Link has been found ")
  1. D BMES^XPDUTL("Updating IP Address field (#400.01) ")
  1. I VIEIP D
  1. .;Prepare DIE filer call
  1. .N DGHFDA,DGHERR
  1. .S DGHFDA(870,LINK_",",400.01)=VIEIP
  1. .D FILE^DIE("EK","DGHFDA","DGHERR")
  1. .I $D(DGHERR) D ERRMSG Q
  1. .D BMES^XPDUTL("DG HTH Logical Link ip address updated successfully. ")
  1. D MENUS
  1. Q
  1. ;
  1. ARRAY ;Set VIE IP Address Array
  1. ;Input : DGARRAY - ip address array
  1. ;Output : VIE ip address array
  1. ; @DGARRAY@(station,VieIpAddress) = ""
  1. N OFF,TEXT,STATION,IP
  1. F OFF=1:1 S TEXT=$P($T(TABLE+OFF),";;",2) Q:TEXT="END" D
  1. .S STATION=$P(TEXT,"^",1),IP=$P(TEXT,"^",2)
  1. .I STATION=""!(IP="") Q
  1. .S @DGARRAY@(STATION,IP)=""
  1. Q
  1. ;
  1. ASKIP ;Prompt user for VIE IP address
  1. N DIR,DIRUT,X,Y
  1. S DIR(0)="F^^K:X'?1.3N1"".""1.3N1"".""1.3N1"".""1.3N X"
  1. S DIR("?",1)="Enter a valid IP address using the following format: nnn.nnn.nnn.nnn"
  1. S DIR("?")="Or '??' for a list of available station numbers & IP addresses."
  1. S DIR("??")="^D VIEHELP^DG53644P"
  1. S DIR("A")="Enter local VIE IP address"
  1. D ^DIR
  1. I $D(DIRUT) Q
  1. S VIEIP=Y
  1. Q
  1. ;
  1. VIEHELP ;Help text listing Local VIE address"
  1. N OFF,TEXT,IP
  1. F OFF=1:1 S TEXT=$P($T(TABLE+OFF),";;",2) Q:TEXT="END" D
  1. .S STATION=$P(TEXT,"^",1),IP=$P(TEXT,"^",2)
  1. .I STATION=""!(IP="") Q
  1. .W ?3,STATION,?12,IP,!
  1. Q
  1. ASKYN ;Ask user if they want to enter IP address manually
  1. N DIR,DIRUT,X,Y
  1. S DIR(0)="Y"
  1. S DIR("A",1)="Unable to resolve VIE IP address."
  1. S DIR("A")="Would you like to enter it manually"
  1. D ^DIR
  1. I $D(DIRUT)!('Y) S FLAG=1 Q
  1. S RESPONSE=Y
  1. Q
  1. ;
  1. ERRMSG ;Problem encountered updating IP address notify user
  1. D BMES^XPDUTL("DG HTH Logical Link's IP address was not updated. ")
  1. D MES^XPDUTL("See patch description for instructions on how ")
  1. D MES^XPDUTL("to update the IP address at a later time. ")
  1. Q
  1. ;
  1. N OPTION,MENU,TEXT
  1. ;Delete HTH main menu from registration options.
  1. S OPTION="DGHT HOME TELEHEALTH"
  1. F MENU="DG REGISTRATION MENU","DG SUPERVISOR MENU" D
  1. .D DELETE^XPDMENU(MENU,OPTION)
  1. D BMES^XPDUTL("Implementation of HTH requires OCC coordination/approval; hence the following")
  1. D BMES^XPDUTL("list of HTH menu options have been placed out of order by the installation.")
  1. S OPTION="",TEXT="Activation of option requires OCC approval."
  1. F OPTION="DGHT HOME TELEHEALTH","DGHT PATIENT SIGNUP","DGHT PATIENT INACTIVATION","DGHT SUMMARY REPORT","DGHT TRANSMISSION REPORT" D
  1. .D OUT^XPDMENU(OPTION,TEXT)
  1. .D BMES^XPDUTL("["_OPTION_"]")
  1. Q
  1. TABLE ;VIE IP address array table syntax - station ^ vie ip
  1. ;;516^10.64.10.136
  1. ;;660^10.154.2.54
  1. ;;657^10.123.139.63
  1. ;;613^10.40.106.46
  1. ;;528^10.21.253.165
  1. ;;HEC^10.61.193.83
  1. ;;528^10.21.253.169
  1. ;;HEC^10.61.193.88
  1. ;;688^10.41.0.18
  1. ;;518^10.8.66.64
  1. ;;523^10.9.0.99
  1. ;;650^10.11.1.30
  1. ;;689^10.12.8.37
  1. ;;580^10.133.188.116
  1. ;;517^10.50.50.24
  1. ;;608^10.8.143.73
  1. ;;561^10.30.21.175
  1. ;;503^10.32.11.27
  1. ;;558^10.48.138.44
  1. ;;402^10.14.128.29
  1. ;;620^10.30.21.180
  1. ;;529^10.32.129.50
  1. ;;589^10.120.137.84
  1. ;;526^10.30.21.185
  1. ;;512^10.42.14.165
  1. ;;637^10.50.148.34
  1. ;;540^10.33.120.113
  1. ;;542^10.34.22.100
  1. ;;674^10.137.10.30
  1. ;;671^10.140.159.107
  1. ;;504^10.145.252.221
  1. ;;630^10.30.21.165
  1. ;;405^10.14.55.53
  1. ;;562^10.33.184.77
  1. ;;659^10.51.1.122
  1. ;;632^10.30.21.170
  1. ;;595^10.35.136.65
  1. ;;460^10.39.10.30
  1. ;;565^10.51.138.130
  1. ;;658^10.49.138.24
  1. ;;646^10.37.34.86
  1. ;;590^10.48.10.89
  1. ;;509^10.57.224.115
  1. ;;521^10.59.15.164
  1. ;;534^10.56.224.105
  1. ;;631^10.13.97.24
  1. ;;693^10.38.14.110
  1. ;;652^10.49.50.60
  1. ;;544^10.60.205.80
  1. ;;557^10.61.224.94
  1. ;;673^10.69.48.45
  1. ;;642^10.36.41.66
  1. ;;619^10.62.224.103
  1. ;;679^10.63.224.238
  1. ;;573^10.65.10.44
  1. ;;672^10.68.130.68
  1. ;;546^10.67.12.49
  1. ;;581^10.73.100.123
  1. ;;596^10.74.100.123
  1. ;;614^10.76.100.124
  1. ;;757^10.81.1.96
  1. ;;548^10.70.31.219
  1. ;;603^10.75.100.123
  1. ;;626^10.78.100.123
  1. ;;538^10.82.1.249
  1. ;;621^10.72.100.123
  1. ;;539^10.80.2.46
  1. ;;583^10.89.4.94
  1. ;;541^10.83.1.69
  1. ;;610^10.90.1.40
  1. ;;552^10.85.1.29
  1. ;;550^10.94.10.133
  1. ;;506^10.93.80.134
  1. ;;695^10.98.2.38
  1. ;;515^10.92.1.85
  1. ;;537^10.97.8.33
  1. ;;676^10.103.2.132
  1. ;;553^10.91.0.74
  1. ;;578^10.101.1.64
  1. ;;556^10.100.1.18
  1. ;;607^10.102.2.65
  1. ;;655^10.88.63.68
  1. ;;502^10.129.24.29
  1. ;;598^10.128.5.226
  1. ;;586^10.130.12.207
  1. ;;585^10.99.1.67
  1. ;;520^10.132.96.24
  1. ;;564^10.134.10.116
  1. ;;623^10.134.140.38
  1. ;;629^10.131.90.19
  1. ;;635^10.135.56.118
  1. ;;667^10.129.131.82
  1. ;;519^10.146.252.103
  1. ;;501^10.144.252.224
  1. ;;644^10.148.253.60
  1. ;;442^10.152.21.79
  1. ;;756^10.147.252.224
  1. ;;649^10.149.252.225
  1. ;;554^10.153.5.154
  1. ;;436^10.154.132.68
  1. ;;678^10.150.253.218
  1. ;;575^10.155.134.45
  1. ;;654^10.172.25.11
  1. ;;640^10.168.99.38
  1. ;;459^10.170.100.74
  1. ;;612^10.173.19.113
  1. ;;666^10.152.183.178
  1. ;;531^10.167.138.66
  1. ;;648^10.165.50.99
  1. ;;663^10.161.5.50
  1. ;;653^10.166.130.147
  1. ;;668^10.163.14.34
  1. ;;463^10.162.140.63
  1. ;;687^10.163.144.27
  1. ;;692^10.167.4.52
  1. ;;358^10.171.253.13
  1. ;;570^10.171.67.160
  1. ;;662^10.174.1.79
  1. ;;605^10.177.118.81
  1. ;;593^10.176.50.24
  1. ;;618^10.104.10.89
  1. ;;ALBANY^10.1.19.150
  1. ;;600^10.179.99.94
  1. ;;ALBANY CS LAB^10.1.19.155
  1. ;;SILVER SPRING^10.2.29.172
  1. ;;664^10.178.10.73
  1. ;;691^10.180.1.48
  1. ;;508^10.58.239.74
  1. ;;HDR AAC^10.224.132.23
  1. ;;HDR AAC^10.224.132.28
  1. ;;AAC^10.224.151.133
  1. ;;AAC^10.224.151.153
  1. ;;BAY PINES OIFO^10.4.229.88
  1. ;;HINES OIFO^10.3.21.43
  1. ;;BIRMINGHAM OIFO^10.4.21.25
  1. ;;SALT LAKE OIFO^10.5.21.86
  1. ;;BAY PINES OIFO IV&V TEST LAB^10.4.229.85
  1. ;;HINES OIFO EMC DATA CENTER^10.3.21.48
  1. ;;HAC^10.6.21.42
  1. ;;HAC^10.191.10.152
  1. ;;IE Team - Dev & Test^10.4.229.90
  1. ;;EMC Data Center^10.3.21.53
  1. ;;IE Team - Dev & Test^10.6.21.50
  1. ;;MPI^10.224.151.138
  1. ;;CMOP^10.189.77.163
  1. ;;CMOP^10.189.101.157
  1. ;;CMOP^10.189.1.17
  1. ;;CMOP^10.189.61.94
  1. ;;636^10.114.5.4
  1. ;;CMOP^10.189.101.34
  1. ;;CMOP^10.189.77.74
  1. ;;CMOP^10.189.37.38
  1. ;;549^10.138.65.55
  1. ;;ARC^10.191.1.58
  1. ;;PLANO TEST SERVER^10.6.208.19
  1. ;;541^10.83.59.125
  1. ;;END