EAS214P ;ATL/JPN, - eGate - Post install to add logical links into the system ; 21 Dec 2021 12:58 PM
;;1.0;Enrollments Application System;**214**;2-14-2022;Build 7
;;Per VA Directive 6402, this routine should not be modified.
;
;
EN ;Entry point
N EASADDR,EASLLIEN,EASTEST,EASPORT,EASSLLN,EASLLO,EASSTAT,J,X
;
S EASTEST=$S($$PROD^XUPROD:0,1:1) ;value of 1 indicates test system
;
;Station number
S EASSTAT=$P($$SITE^VASITE,"^",3)
;
;Only set the TCP/IP port number if installing in production environment.
;Port will be null if installing in test environment.
S EASPORT="" S:'EASTEST EASPORT=7300
;
;Loop through tag DATA to find station number, get TCP/IP address corresponding to VDIF regional server
F J=1:1 S X=$T(DATA+J) Q:'$P(X,";",3) I EASSTAT=$P(X,";",3) S EASADDR=$P(X,";",4) Q
;
;If station number was not in the list, display error message and quit
I $G(EASADDR)="" D BMES^XPDUTL("Unable to find TCP/IP Address for station number ("_EASSTAT_"). Contact support.")
;
;Do not set TCP/IP address if installing in test environment. Set to null after checking for Station number not found.
S:EASTEST EASADDR=""
;
;New logical link name is EASLLZ09, used for VistA event Z09 communication with VDIF regional server.
S EASSLLN="EASLLZ09"
;
;Create or update logical link, function returns new logical link ien or error
S EASLLIEN=$$SETLL16(EASSLLN,$G(EASADDR),$G(EASPORT))
;
;Add the new logical link to existing protocol
D PROTOCOL(EASLLIEN,EASSTAT)
;
Q
;
SETLL16(EASSLLN,EASADDR,EASPORT) ;
;Input EASSLLN = Logical Link Name (ex. "LL HEC 500") (required)
; EASADDR = TCP/IP Address (optional, defaults null)
; EASPORT = TCP/IP Port # (optional, defaults to null)
;
;Purpose: Create or update a Logical Link for TCP/IP transmissions, HL7 event Z09
;
N EASDATA,EASERR,EASIEN,EASRTN,EASOLD
S EASADDR=$G(EASADDR),EASPORT=$G(EASPORT)
;
;Set up array of data to file
S EASDATA(870,"?+1,",.01)=EASSLLN ;LOGICAL LINK NAME
S EASDATA(870,"?+1,",2)=$O(^HLCS(869.1,"B","TCP",0)) ;LLP TYPE, TCP
S EASDATA(870,"?+1,",3)="NC" ;QUEUE TYPE, NC=NON-PERSISTENT CLIENT
S EASDATA(870,"?+1,",4.5)=1 ;AUTOSTART ENABLED
S EASDATA(870,"?+1,",21)=10 ;QUEUE SIZE
S EASDATA(870,"?+1,",200.02)=3 ;RE-TRANSMISSION ATTEMPTS
S EASDATA(870,"?+1,",200.021)="R" ;EXCEED RE-TRANSMISSION, R=RESTART
S EASDATA(870,"?+1,",200.04)=90 ;READ TIMEOUT
S EASDATA(870,"?+1,",200.05)=270 ;ACK TIMEOUT
S EASDATA(870,"?+1,",400.01)=EASADDR ;TCP/IP ADDRESS
S EASDATA(870,"?+1,",400.02)=EASPORT ;TCP/IP PORT
S EASDATA(870,"?+1,",400.03)="C" ;TCP/IP SERVICE TYPE, C=CLIENT(SENDER)
S EASDATA(870,"?+1,",400.04)="N" ;PERSISTENT, N=NO
S EASDATA(870,"?+1,",400.06)="" ;STARTUP NODE
S EASDATA(870,"?+1,",14)=1 ;SHUTDOWN
;
;File new entry
D UPDATE^DIE("","EASDATA","EASIEN","EASERR")
;
;Return new logical link ien if successful,otherwise return -1.
;
S EASRTN=+$G(EASIEN(1))
S:$D(EASERR)!(+EASRTN=0) EASRTN=-1
;
I +EASRTN<0 D BMES^XPDUTL("Unable to create "_EASSLLN_", contact support.") Q EASRTN
I EASTEST D BMES^XPDUTL("Test Environment, TCP/IP address and port omitted from logical link "_EASSLLN_".") Q EASRTN
D BMES^XPDUTL("Logical link "_EASSLLN_" successfully updated.")
Q EASRTN
;
PROTOCOL(EASLLIEN,EASSTAT) ;
;Input EASLLIEN = Logical Link IEN
; EASSTAT = Station number
;
;Purpose: Use the new logical link in an existing protocol
;
N DA,DIE,DR,LLOLD,PIEN,PNAME
;
;For each protocol, update the logical link
S PNAME="EAS EDB ORU-Z09 CLIENT"
;Get IEN for protocol
S PIEN=$$FIND1^DIC(101,,"B",PNAME)
I +PIEN'>0 D BMES^XPDUTL("Unable to update logical link in protocol "_PNAME_", contact support") Q
;
;Get the original logical link
S LLOLD=$$LNAME(PNAME)
;and save it to ^XTMP for possible uninstall.
D SETL(LLOLD)
;
;Update the logical link
S DR=770.7_"////"_EASLLIEN,DIE=101,DA=PIEN D ^DIE
D:LLOLD'="EASLLZ09"
. D BMES^XPDUTL("Logical link changed in "_PNAME)
. D MES^XPDUTL("Old: "_LLOLD)
. D MES^XPDUTL("New: EASLLZ09")
Q
;
LNAME(EASP) ;link name
N EASIENS,EASERR
S EASP=$$FIND1^DIC(101,,"AB",EASP)
S EASIENS=EASP_","
Q $$GET1^DIQ(101,EASIENS,770.7,,,"EASERR")
;
SETL(EASVAL,EASTTL) ;set link (uninstall data)
S EASTTL=+$G(EASTTL,30) ;default to 30 days
S ^XTMP("EAS214U",0)=DT_U_$$FMADD^XLFDT(DT,EASTTL)_U_"uninstall data for EAS*1*214"
S ^XTMP("EAS214U",1)=$G(EASVAL)
Q
;
DATA ; format ;;site#;TCP/IP address (TCP/IP address will be used in new Logical Link, variable EASADDR)
;;358;hc-vdif-r01-01.domain.ext
;;459;hc-vdif-r01-01.domain.ext
;;463;hc-vdif-r01-01.domain.ext
;;504;hc-vdif-r01-01.domain.ext
;;519;hc-vdif-r01-01.domain.ext
;;531;hc-vdif-r01-01.domain.ext
;;570;hc-vdif-r01-01.domain.ext
;;612;hc-vdif-r01-01.domain.ext
;;640;hc-vdif-r01-01.domain.ext
;;648;hc-vdif-r01-01.domain.ext
;;653;hc-vdif-r01-01.domain.ext
;;654;hc-vdif-r01-01.domain.ext
;;663;hc-vdif-r01-01.domain.ext
;;668;hc-vdif-r01-01.domain.ext
;;687;hc-vdif-r01-01.domain.ext
;;691;hc-vdif-r01-01.domain.ext
;;692;hc-vdif-r01-01.domain.ext
;;437;hc-vdif-r02-01.domain.ext
;;438;hc-vdif-r02-01.domain.ext
;;502;hc-vdif-r02-01.domain.ext
;;520;hc-vdif-r02-01.domain.ext
;;537;hc-vdif-r02-01.domain.ext
;;549;hc-vdif-r02-01.domain.ext
;;556;hc-vdif-r02-01.domain.ext
;;564;hc-vdif-r02-01.domain.ext
;;568;hc-vdif-r02-01.domain.ext
;;578;hc-vdif-r02-01.domain.ext
;;580;hc-vdif-r02-01.domain.ext
;;585;hc-vdif-r02-01.domain.ext
;;586;hc-vdif-r02-01.domain.ext
;;589;hc-vdif-r02-01.domain.ext
;;598;hc-vdif-r02-01.domain.ext
;;607;hc-vdif-r02-01.domain.ext
;;618;hc-vdif-r02-01.domain.ext
;;623;hc-vdif-r02-01.domain.ext
;;626;hc-vdif-r03-01.domain.ext
;;629;hc-vdif-r02-01.domain.ext
;;635;hc-vdif-r02-01.domain.ext
;;636;hc-vdif-r02-01.domain.ext
;;656;hc-vdif-r02-01.domain.ext
;;657;hc-vdif-r02-01.domain.ext
;;667;hc-vdif-r02-01.domain.ext
;;671;hc-vdif-r02-01.domain.ext
;;674;hc-vdif-r02-01.domain.ext
;;676;hc-vdif-r02-01.domain.ext
;;695;hc-vdif-r02-01.domain.ext
;;740;hc-vdif-r02-01.domain.ext
;;506;hc-vdif-r03-01.domain.ext
;;508;hc-vdif-r03-01.domain.ext
;;509;hc-vdif-r03-01.domain.ext
;;515;hc-vdif-r03-01.domain.ext
;;516;hc-vdif-r03-01.domain.ext
;;517;hc-vdif-r03-01.domain.ext
;;521;hc-vdif-r03-01.domain.ext
;;534;hc-vdif-r03-01.domain.ext
;;538;hc-vdif-r03-01.domain.ext
;;539;hc-vdif-r03-01.domain.ext
;;541;hc-vdif-r03-01.domain.ext
;;544;hc-vdif-r03-01.domain.ext
;;546;hc-vdif-r03-01.domain.ext
;;548;hc-vdif-r03-01.domain.ext
;;550;hc-vdif-r03-01.domain.ext
;;552;hc-vdif-r03-01.domain.ext
;;553;hc-vdif-r03-01.domain.ext
;;557;hc-vdif-r03-01.domain.ext
;;558;hc-vdif-r03-01.domain.ext
;;565;hc-vdif-r03-01.domain.ext
;;573;hc-vdif-r03-01.domain.ext
;;581;hc-vdif-r03-01.domain.ext
;;583;hc-vdif-r03-01.domain.ext
;;590;hc-vdif-r03-01.domain.ext
;;596;hc-vdif-r03-01.domain.ext
;;603;hc-vdif-r03-01.domain.ext
;;610;hc-vdif-r03-01.domain.ext
;;614;hc-vdif-r03-01.domain.ext
;;619;hc-vdif-r03-01.domain.ext
;;621;hc-vdif-r03-01.domain.ext
;;637;hc-vdif-r03-01.domain.ext
;;652;hc-vdif-r03-01.domain.ext
;;655;hc-vdif-r03-01.domain.ext
;;658;hc-vdif-r03-01.domain.ext
;;659;hc-vdif-r03-01.domain.ext
;;672;hc-vdif-r03-01.domain.ext
;;673;hc-vdif-r03-01.domain.ext
;;675;hc-vdif-r03-01.domain.ext
;;679;hc-vdif-r03-01.domain.ext
;;757;hc-vdif-r03-01.domain.ext
;;460;hc-vdif-r04-01.domain.ext
;;503;hc-vdif-r04-01.domain.ext
;;512;hc-vdif-r04-01.domain.ext
;;529;hc-vdif-r04-01.domain.ext
;;540;hc-vdif-r04-01.domain.ext
;;542;hc-vdif-r04-01.domain.ext
;;562;hc-vdif-r04-01.domain.ext
;;595;hc-vdif-r04-01.domain.ext
;;613;hc-vdif-r04-01.domain.ext
;;642;hc-vdif-r04-01.domain.ext
;;646;hc-vdif-r04-01.domain.ext
;;688;hc-vdif-r04-01.domain.ext
;;693;hc-vdif-r04-01.domain.ext
;;436;hc-vdif-r01-02.domain.ext
;;442;hc-vdif-r01-02.domain.ext
;;501;hc-vdif-r01-02.domain.ext
;;554;hc-vdif-r01-02.domain.ext
;;575;hc-vdif-r01-02.domain.ext
;;593;hc-vdif-r01-02.domain.ext
;;600;hc-vdif-r01-02.domain.ext
;;605;hc-vdif-r01-02.domain.ext
;;644;hc-vdif-r01-02.domain.ext
;;649;hc-vdif-r01-02.domain.ext
;;660;hc-vdif-r01-02.domain.ext
;;662;hc-vdif-r01-02.domain.ext
;;664;hc-vdif-r01-02.domain.ext
;;666;hc-vdif-r01-02.domain.ext
;;678;hc-vdif-r01-02.domain.ext
;;741;hc-vdif-r01-02.domain.ext
;;756;hc-vdif-r01-02.domain.ext
;;402;hc-vdif-r04-02.domain.ext
;;405;hc-vdif-r04-02.domain.ext
;;518;hc-vdif-r04-02.domain.ext
;;523;hc-vdif-r04-02.domain.ext
;;526;hc-vdif-r04-02.domain.ext
;;528;hc-vdif-r04-02.domain.ext
;;561;hc-vdif-r04-02.domain.ext
;;608;hc-vdif-r04-02.domain.ext
;;620;hc-vdif-r04-02.domain.ext
;;630;hc-vdif-r04-02.domain.ext
;;631;hc-vdif-r04-02.domain.ext
;;632;hc-vdif-r04-02.domain.ext
;;650;hc-vdif-r04-02.domain.ext
;;689;hc-vdif-r04-02.domain.ext
;;
;;site#;TCP/IP address
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEAS214P 9267 printed Dec 13, 2024@01:53:35 Page 2
EAS214P ;ATL/JPN, - eGate - Post install to add logical links into the system ; 21 Dec 2021 12:58 PM
+1 ;;1.0;Enrollments Application System;**214**;2-14-2022;Build 7
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ;
EN ;Entry point
+1 NEW EASADDR,EASLLIEN,EASTEST,EASPORT,EASSLLN,EASLLO,EASSTAT,J,X
+2 ;
+3 ;value of 1 indicates test system
SET EASTEST=$SELECT($$PROD^XUPROD:0,1:1)
+4 ;
+5 ;Station number
+6 SET EASSTAT=$PIECE($$SITE^VASITE,"^",3)
+7 ;
+8 ;Only set the TCP/IP port number if installing in production environment.
+9 ;Port will be null if installing in test environment.
+10 SET EASPORT=""
if 'EASTEST
SET EASPORT=7300
+11 ;
+12 ;Loop through tag DATA to find station number, get TCP/IP address corresponding to VDIF regional server
+13 FOR J=1:1
SET X=$TEXT(DATA+J)
if '$PIECE(X,";",3)
QUIT
IF EASSTAT=$PIECE(X,";",3)
SET EASADDR=$PIECE(X,";",4)
QUIT
+14 ;
+15 ;If station number was not in the list, display error message and quit
+16 IF $GET(EASADDR)=""
DO BMES^XPDUTL("Unable to find TCP/IP Address for station number ("_EASSTAT_"). Contact support.")
+17 ;
+18 ;Do not set TCP/IP address if installing in test environment. Set to null after checking for Station number not found.
+19 if EASTEST
SET EASADDR=""
+20 ;
+21 ;New logical link name is EASLLZ09, used for VistA event Z09 communication with VDIF regional server.
+22 SET EASSLLN="EASLLZ09"
+23 ;
+24 ;Create or update logical link, function returns new logical link ien or error
+25 SET EASLLIEN=$$SETLL16(EASSLLN,$GET(EASADDR),$GET(EASPORT))
+26 ;
+27 ;Add the new logical link to existing protocol
+28 DO PROTOCOL(EASLLIEN,EASSTAT)
+29 ;
+30 QUIT
+31 ;
SETLL16(EASSLLN,EASADDR,EASPORT) ;
+1 ;Input EASSLLN = Logical Link Name (ex. "LL HEC 500") (required)
+2 ; EASADDR = TCP/IP Address (optional, defaults null)
+3 ; EASPORT = TCP/IP Port # (optional, defaults to null)
+4 ;
+5 ;Purpose: Create or update a Logical Link for TCP/IP transmissions, HL7 event Z09
+6 ;
+7 NEW EASDATA,EASERR,EASIEN,EASRTN,EASOLD
+8 SET EASADDR=$GET(EASADDR)
SET EASPORT=$GET(EASPORT)
+9 ;
+10 ;Set up array of data to file
+11 ;LOGICAL LINK NAME
SET EASDATA(870,"?+1,",.01)=EASSLLN
+12 ;LLP TYPE, TCP
SET EASDATA(870,"?+1,",2)=$ORDER(^HLCS(869.1,"B","TCP",0))
+13 ;QUEUE TYPE, NC=NON-PERSISTENT CLIENT
SET EASDATA(870,"?+1,",3)="NC"
+14 ;AUTOSTART ENABLED
SET EASDATA(870,"?+1,",4.5)=1
+15 ;QUEUE SIZE
SET EASDATA(870,"?+1,",21)=10
+16 ;RE-TRANSMISSION ATTEMPTS
SET EASDATA(870,"?+1,",200.02)=3
+17 ;EXCEED RE-TRANSMISSION, R=RESTART
SET EASDATA(870,"?+1,",200.021)="R"
+18 ;READ TIMEOUT
SET EASDATA(870,"?+1,",200.04)=90
+19 ;ACK TIMEOUT
SET EASDATA(870,"?+1,",200.05)=270
+20 ;TCP/IP ADDRESS
SET EASDATA(870,"?+1,",400.01)=EASADDR
+21 ;TCP/IP PORT
SET EASDATA(870,"?+1,",400.02)=EASPORT
+22 ;TCP/IP SERVICE TYPE, C=CLIENT(SENDER)
SET EASDATA(870,"?+1,",400.03)="C"
+23 ;PERSISTENT, N=NO
SET EASDATA(870,"?+1,",400.04)="N"
+24 ;STARTUP NODE
SET EASDATA(870,"?+1,",400.06)=""
+25 ;SHUTDOWN
SET EASDATA(870,"?+1,",14)=1
+26 ;
+27 ;File new entry
+28 DO UPDATE^DIE("","EASDATA","EASIEN","EASERR")
+29 ;
+30 ;Return new logical link ien if successful,otherwise return -1.
+31 ;
+32 SET EASRTN=+$GET(EASIEN(1))
+33 if $DATA(EASERR)!(+EASRTN=0)
SET EASRTN=-1
+34 ;
+35 IF +EASRTN<0
DO BMES^XPDUTL("Unable to create "_EASSLLN_", contact support.")
QUIT EASRTN
+36 IF EASTEST
DO BMES^XPDUTL("Test Environment, TCP/IP address and port omitted from logical link "_EASSLLN_".")
QUIT EASRTN
+37 DO BMES^XPDUTL("Logical link "_EASSLLN_" successfully updated.")
+38 QUIT EASRTN
+39 ;
PROTOCOL(EASLLIEN,EASSTAT) ;
+1 ;Input EASLLIEN = Logical Link IEN
+2 ; EASSTAT = Station number
+3 ;
+4 ;Purpose: Use the new logical link in an existing protocol
+5 ;
+6 NEW DA,DIE,DR,LLOLD,PIEN,PNAME
+7 ;
+8 ;For each protocol, update the logical link
+9 SET PNAME="EAS EDB ORU-Z09 CLIENT"
+10 ;Get IEN for protocol
+11 SET PIEN=$$FIND1^DIC(101,,"B",PNAME)
+12 IF +PIEN'>0
DO BMES^XPDUTL("Unable to update logical link in protocol "_PNAME_", contact support")
QUIT
+13 ;
+14 ;Get the original logical link
+15 SET LLOLD=$$LNAME(PNAME)
+16 ;and save it to ^XTMP for possible uninstall.
+17 DO SETL(LLOLD)
+18 ;
+19 ;Update the logical link
+20 SET DR=770.7_"////"_EASLLIEN
SET DIE=101
SET DA=PIEN
DO ^DIE
+21 if LLOLD'="EASLLZ09"
Begin DoDot:1
+22 DO BMES^XPDUTL("Logical link changed in "_PNAME)
+23 DO MES^XPDUTL("Old: "_LLOLD)
+24 DO MES^XPDUTL("New: EASLLZ09")
End DoDot:1
+25 QUIT
+26 ;
LNAME(EASP) ;link name
+1 NEW EASIENS,EASERR
+2 SET EASP=$$FIND1^DIC(101,,"AB",EASP)
+3 SET EASIENS=EASP_","
+4 QUIT $$GET1^DIQ(101,EASIENS,770.7,,,"EASERR")
+5 ;
SETL(EASVAL,EASTTL) ;set link (uninstall data)
+1 ;default to 30 days
SET EASTTL=+$GET(EASTTL,30)
+2 SET ^XTMP("EAS214U",0)=DT_U_$$FMADD^XLFDT(DT,EASTTL)_U_"uninstall data for EAS*1*214"
+3 SET ^XTMP("EAS214U",1)=$GET(EASVAL)
+4 QUIT
+5 ;
DATA ; format ;;site#;TCP/IP address (TCP/IP address will be used in new Logical Link, variable EASADDR)
+1 ;;358;hc-vdif-r01-01.domain.ext
+2 ;;459;hc-vdif-r01-01.domain.ext
+3 ;;463;hc-vdif-r01-01.domain.ext
+4 ;;504;hc-vdif-r01-01.domain.ext
+5 ;;519;hc-vdif-r01-01.domain.ext
+6 ;;531;hc-vdif-r01-01.domain.ext
+7 ;;570;hc-vdif-r01-01.domain.ext
+8 ;;612;hc-vdif-r01-01.domain.ext
+9 ;;640;hc-vdif-r01-01.domain.ext
+10 ;;648;hc-vdif-r01-01.domain.ext
+11 ;;653;hc-vdif-r01-01.domain.ext
+12 ;;654;hc-vdif-r01-01.domain.ext
+13 ;;663;hc-vdif-r01-01.domain.ext
+14 ;;668;hc-vdif-r01-01.domain.ext
+15 ;;687;hc-vdif-r01-01.domain.ext
+16 ;;691;hc-vdif-r01-01.domain.ext
+17 ;;692;hc-vdif-r01-01.domain.ext
+18 ;;437;hc-vdif-r02-01.domain.ext
+19 ;;438;hc-vdif-r02-01.domain.ext
+20 ;;502;hc-vdif-r02-01.domain.ext
+21 ;;520;hc-vdif-r02-01.domain.ext
+22 ;;537;hc-vdif-r02-01.domain.ext
+23 ;;549;hc-vdif-r02-01.domain.ext
+24 ;;556;hc-vdif-r02-01.domain.ext
+25 ;;564;hc-vdif-r02-01.domain.ext
+26 ;;568;hc-vdif-r02-01.domain.ext
+27 ;;578;hc-vdif-r02-01.domain.ext
+28 ;;580;hc-vdif-r02-01.domain.ext
+29 ;;585;hc-vdif-r02-01.domain.ext
+30 ;;586;hc-vdif-r02-01.domain.ext
+31 ;;589;hc-vdif-r02-01.domain.ext
+32 ;;598;hc-vdif-r02-01.domain.ext
+33 ;;607;hc-vdif-r02-01.domain.ext
+34 ;;618;hc-vdif-r02-01.domain.ext
+35 ;;623;hc-vdif-r02-01.domain.ext
+36 ;;626;hc-vdif-r03-01.domain.ext
+37 ;;629;hc-vdif-r02-01.domain.ext
+38 ;;635;hc-vdif-r02-01.domain.ext
+39 ;;636;hc-vdif-r02-01.domain.ext
+40 ;;656;hc-vdif-r02-01.domain.ext
+41 ;;657;hc-vdif-r02-01.domain.ext
+42 ;;667;hc-vdif-r02-01.domain.ext
+43 ;;671;hc-vdif-r02-01.domain.ext
+44 ;;674;hc-vdif-r02-01.domain.ext
+45 ;;676;hc-vdif-r02-01.domain.ext
+46 ;;695;hc-vdif-r02-01.domain.ext
+47 ;;740;hc-vdif-r02-01.domain.ext
+48 ;;506;hc-vdif-r03-01.domain.ext
+49 ;;508;hc-vdif-r03-01.domain.ext
+50 ;;509;hc-vdif-r03-01.domain.ext
+51 ;;515;hc-vdif-r03-01.domain.ext
+52 ;;516;hc-vdif-r03-01.domain.ext
+53 ;;517;hc-vdif-r03-01.domain.ext
+54 ;;521;hc-vdif-r03-01.domain.ext
+55 ;;534;hc-vdif-r03-01.domain.ext
+56 ;;538;hc-vdif-r03-01.domain.ext
+57 ;;539;hc-vdif-r03-01.domain.ext
+58 ;;541;hc-vdif-r03-01.domain.ext
+59 ;;544;hc-vdif-r03-01.domain.ext
+60 ;;546;hc-vdif-r03-01.domain.ext
+61 ;;548;hc-vdif-r03-01.domain.ext
+62 ;;550;hc-vdif-r03-01.domain.ext
+63 ;;552;hc-vdif-r03-01.domain.ext
+64 ;;553;hc-vdif-r03-01.domain.ext
+65 ;;557;hc-vdif-r03-01.domain.ext
+66 ;;558;hc-vdif-r03-01.domain.ext
+67 ;;565;hc-vdif-r03-01.domain.ext
+68 ;;573;hc-vdif-r03-01.domain.ext
+69 ;;581;hc-vdif-r03-01.domain.ext
+70 ;;583;hc-vdif-r03-01.domain.ext
+71 ;;590;hc-vdif-r03-01.domain.ext
+72 ;;596;hc-vdif-r03-01.domain.ext
+73 ;;603;hc-vdif-r03-01.domain.ext
+74 ;;610;hc-vdif-r03-01.domain.ext
+75 ;;614;hc-vdif-r03-01.domain.ext
+76 ;;619;hc-vdif-r03-01.domain.ext
+77 ;;621;hc-vdif-r03-01.domain.ext
+78 ;;637;hc-vdif-r03-01.domain.ext
+79 ;;652;hc-vdif-r03-01.domain.ext
+80 ;;655;hc-vdif-r03-01.domain.ext
+81 ;;658;hc-vdif-r03-01.domain.ext
+82 ;;659;hc-vdif-r03-01.domain.ext
+83 ;;672;hc-vdif-r03-01.domain.ext
+84 ;;673;hc-vdif-r03-01.domain.ext
+85 ;;675;hc-vdif-r03-01.domain.ext
+86 ;;679;hc-vdif-r03-01.domain.ext
+87 ;;757;hc-vdif-r03-01.domain.ext
+88 ;;460;hc-vdif-r04-01.domain.ext
+89 ;;503;hc-vdif-r04-01.domain.ext
+90 ;;512;hc-vdif-r04-01.domain.ext
+91 ;;529;hc-vdif-r04-01.domain.ext
+92 ;;540;hc-vdif-r04-01.domain.ext
+93 ;;542;hc-vdif-r04-01.domain.ext
+94 ;;562;hc-vdif-r04-01.domain.ext
+95 ;;595;hc-vdif-r04-01.domain.ext
+96 ;;613;hc-vdif-r04-01.domain.ext
+97 ;;642;hc-vdif-r04-01.domain.ext
+98 ;;646;hc-vdif-r04-01.domain.ext
+99 ;;688;hc-vdif-r04-01.domain.ext
+100 ;;693;hc-vdif-r04-01.domain.ext
+101 ;;436;hc-vdif-r01-02.domain.ext
+102 ;;442;hc-vdif-r01-02.domain.ext
+103 ;;501;hc-vdif-r01-02.domain.ext
+104 ;;554;hc-vdif-r01-02.domain.ext
+105 ;;575;hc-vdif-r01-02.domain.ext
+106 ;;593;hc-vdif-r01-02.domain.ext
+107 ;;600;hc-vdif-r01-02.domain.ext
+108 ;;605;hc-vdif-r01-02.domain.ext
+109 ;;644;hc-vdif-r01-02.domain.ext
+110 ;;649;hc-vdif-r01-02.domain.ext
+111 ;;660;hc-vdif-r01-02.domain.ext
+112 ;;662;hc-vdif-r01-02.domain.ext
+113 ;;664;hc-vdif-r01-02.domain.ext
+114 ;;666;hc-vdif-r01-02.domain.ext
+115 ;;678;hc-vdif-r01-02.domain.ext
+116 ;;741;hc-vdif-r01-02.domain.ext
+117 ;;756;hc-vdif-r01-02.domain.ext
+118 ;;402;hc-vdif-r04-02.domain.ext
+119 ;;405;hc-vdif-r04-02.domain.ext
+120 ;;518;hc-vdif-r04-02.domain.ext
+121 ;;523;hc-vdif-r04-02.domain.ext
+122 ;;526;hc-vdif-r04-02.domain.ext
+123 ;;528;hc-vdif-r04-02.domain.ext
+124 ;;561;hc-vdif-r04-02.domain.ext
+125 ;;608;hc-vdif-r04-02.domain.ext
+126 ;;620;hc-vdif-r04-02.domain.ext
+127 ;;630;hc-vdif-r04-02.domain.ext
+128 ;;631;hc-vdif-r04-02.domain.ext
+129 ;;632;hc-vdif-r04-02.domain.ext
+130 ;;650;hc-vdif-r04-02.domain.ext
+131 ;;689;hc-vdif-r04-02.domain.ext
+132 ;;
+133 ;;site#;TCP/IP address
+134 QUIT
+135 ;
