DVBH4034 ;ISC-ALBANY/PKE-HINQ-TCP,; 8/17/99 08:50 ;
;;4.0;HINQ;**34**;03/25/92
;
N DVBLOG,DVBIP,DVBIP0
S DVBLOG=$P($P($G(^DVB(395,1,"HQVD")),"^",1),".",2)
;philly East
I DVBLOG["BDNE" S DVBIP="152.124.127.227"
; South
I DVBLOG["BDNS" S DVBIP="152.124.127.228"
;hines Central
I DVBLOG["BDNC" S DVBIP="152.124.127.243"
; Midsouth/west
I DVBLOG["BDNM" S DVBIP="152.124.127.244"
; West
I DVBLOG["BDNW" S DVBIP="152.124.127.245"
;
I '$G(DVBIP),'$G(^DVB(395,1,"HQIP")) DO QUIT
. D BMES^XPDUTL("...The post-init routine could not determine the RDPC for this site")
. D BMES^XPDUTL("...Please enter the RDPC IP Address in the DVB PARAMETERS file #395, field #22")
. D BMES^XPDUTL("...to complete the installation")
.;
E DO
. I $G(^DVB(395,1,"HQIP")) S DVBIP0=^("HQIP") DO QUIT
. . D BMES^XPDUTL("...The RDPC IP Address was already set to "_DVBIP0)
. . D BMES^XPDUTL("...The post-init DVBH4034 is complete")
. . D BMES^XPDUTL("")
. .;
. S ^DVB(395,1,"HQIP")=DVBIP
. D BMES^XPDUTL("...The RDPC IP Address for "_DVBLOG_" has been set to "_DVBIP)
. D BMES^XPDUTL("...The post-init DVBH4034 is complete")
. D BMES^XPDUTL("")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBH4034 1208 printed Dec 13, 2024@01:57:55 Page 2
DVBH4034 ;ISC-ALBANY/PKE-HINQ-TCP,; 8/17/99 08:50 ;
+1 ;;4.0;HINQ;**34**;03/25/92
+2 ;
+3 NEW DVBLOG,DVBIP,DVBIP0
+4 SET DVBLOG=$PIECE($PIECE($GET(^DVB(395,1,"HQVD")),"^",1),".",2)
+5 ;philly East
+6 IF DVBLOG["BDNE"
SET DVBIP="152.124.127.227"
+7 ; South
+8 IF DVBLOG["BDNS"
SET DVBIP="152.124.127.228"
+9 ;hines Central
+10 IF DVBLOG["BDNC"
SET DVBIP="152.124.127.243"
+11 ; Midsouth/west
+12 IF DVBLOG["BDNM"
SET DVBIP="152.124.127.244"
+13 ; West
+14 IF DVBLOG["BDNW"
SET DVBIP="152.124.127.245"
+15 ;
+16 IF '$GET(DVBIP)
IF '$GET(^DVB(395,1,"HQIP"))
Begin DoDot:1
+17 DO BMES^XPDUTL("...The post-init routine could not determine the RDPC for this site")
+18 DO BMES^XPDUTL("...Please enter the RDPC IP Address in the DVB PARAMETERS file #395, field #22")
+19 DO BMES^XPDUTL("...to complete the installation")
+20 ;
End DoDot:1
QUIT
+21 IF '$TEST
Begin DoDot:1
+22 IF $GET(^DVB(395,1,"HQIP"))
SET DVBIP0=^("HQIP")
Begin DoDot:2
+23 DO BMES^XPDUTL("...The RDPC IP Address was already set to "_DVBIP0)
+24 DO BMES^XPDUTL("...The post-init DVBH4034 is complete")
+25 DO BMES^XPDUTL("")
+26 ;
End DoDot:2
QUIT
+27 SET ^DVB(395,1,"HQIP")=DVBIP
+28 DO BMES^XPDUTL("...The RDPC IP Address for "_DVBLOG_" has been set to "_DVBIP)
+29 DO BMES^XPDUTL("...The post-init DVBH4034 is complete")
+30 DO BMES^XPDUTL("")
End DoDot:1
+31 QUIT
