DG774PF ;WPW,MHH ; HL7 LOGICAL LINK UPDATE; 21-AUG-2008
;DG;5.3;Registration;**791**;13-AUG-1993;Build 3
;
;
EN ;1-time run routine
;
;PURPOSE Update "VIC NCMD" Logical Link for TCP/IP transmissions. The
; current definition has a hard coded IP address. The existing IP
; will be removed and a DNS domain name will be added in HLCS(870).
;
N TEST,FILE,DATA,DGENDA,RETURN,ERROR
;
S U=$G(U,"^") ;set default value to ^, if it doesn't exist
S TEST=$S($P($$PARAM^HLCS2,U,3)="P":0,1:1) ; Test=1, Production=0
S FILE=870 ; Logical Link file
S DATA(.01)="VIC NCMD" ; Logical Link name; This is the value to file in DGENDBS
S DATA(.08)=$S(TEST:"",1:"VETERANS1.ONEVA.DOMAIN.EXT") ; DNS Domain Name
S DATA(400.01)="" ; TCP/IP Address
S DGENDA=$O(^HLCS(FILE,"B",DATA(.01),0)) ; "VIC NCMD"; Logical Link IEN; cross reference
I DGENDA="" Q "" ; If "VIC NCMD" not defined quit.
;
;DGENDBS;File data into an existing record
S RETURN=$$UPD^DGENDBS(FILE,.DGENDA,.DATA,.ERROR)
S:ERROR]""!(+RETURN=0) RETURN=-1_"^"_ERROR
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG774PF 1220 printed Nov 22, 2024@17:50:42 Page 2
DG774PF ;WPW,MHH ; HL7 LOGICAL LINK UPDATE; 21-AUG-2008
+1 ;DG;5.3;Registration;**791**;13-AUG-1993;Build 3
+2 ;
+3 ;
EN ;1-time run routine
+1 ;
+2 ;PURPOSE Update "VIC NCMD" Logical Link for TCP/IP transmissions. The
+3 ; current definition has a hard coded IP address. The existing IP
+4 ; will be removed and a DNS domain name will be added in HLCS(870).
+5 ;
+6 NEW TEST,FILE,DATA,DGENDA,RETURN,ERROR
+7 ;
+8 ;set default value to ^, if it doesn't exist
SET U=$GET(U,"^")
+9 ; Test=1, Production=0
SET TEST=$SELECT($PIECE($$PARAM^HLCS2,U,3)="P":0,1:1)
+10 ; Logical Link file
SET FILE=870
+11 ; Logical Link name; This is the value to file in DGENDBS
SET DATA(.01)="VIC NCMD"
+12 ; DNS Domain Name
SET DATA(.08)=$SELECT(TEST:"",1:"VETERANS1.ONEVA.DOMAIN.EXT")
+13 ; TCP/IP Address
SET DATA(400.01)=""
+14 ; "VIC NCMD"; Logical Link IEN; cross reference
SET DGENDA=$ORDER(^HLCS(FILE,"B",DATA(.01),0))
+15 ; If "VIC NCMD" not defined quit.
IF DGENDA=""
QUIT ""
+16 ;
+17 ;DGENDBS;File data into an existing record
+18 SET RETURN=$$UPD^DGENDBS(FILE,.DGENDA,.DATA,.ERROR)
+19 if ERROR]""!(+RETURN=0)
SET RETURN=-1_"^"_ERROR
+20 ;
+21 QUIT
