YSCL149P ; HEC/hrubovcak - NCC Post-install;5 Dec 2019 17:21:16
;;5.01;MENTAL HEALTH;**149**;Dec 30, 1994;Build 72
;
; External reference to File 870 supported by DBIA 1496
; External reference to ^XLFDT supported by DBIA 10103
; External reference to ^XPDUTL supported by DBIA 10141
;
; 5 December 2019
Q ;NO Entry CALL POST To Configure HLO Link
;
POST ; Post-Install logic
;
D DT^DICRW
N YSDIC,YSFMERR,YSFMIEN,YSFMROOT,YSIENS,YSLLPTR
N VDIFRTR,VDIFIP,VDIFDNS,VDIFPORT,VDIFTEST
D MES^XPDUTL("Checking the YSCL-NCCC logical link.")
D FIND^DIC(870,,,"X","YSCL-NCCC",,"B",,,"YSDIC","YSFMERR") ; find the IEN
S YSIENS=$G(YSDIC("DILIST",2,1))
I '(YSIENS>0) D Q ; entry not found, something's wrong
. D BMES^XPDUTL("*** ERROR: The YSCL-NCCC logical link was not found. *** ")
. D MES^XPDUTL("Please contact the Clozapine Modernization Team.")
;
S YSIENS=YSIENS_"," K YSDIC,YSFMERR
; look up HL LOWER LEVEL PROTOCOL
D FIND^DIC(869.1,,,"X","TCP",,"B",,,"YSDIC","YSFMERR")
S YSLLPTR=$G(YSDIC("DILIST",2,1)) ; lower level pointer
S VDIFRTR=$$GETVDIFD()
S VDIFIP=$P(VDIFRTR,"^",3)
S VDIFDNS=$P(VDIFRTR,"^",2)
S VDIFPORT=$P(VDIFRTR,"^",4)
K YSDIC,YSFMERR
S YSFMROOT(870,YSIENS,.08)=VDIFDNS ;;(#.08) DNS DOMAIN [8F]
S YSFMROOT(870,YSIENS,2)=YSLLPTR ; (#2) LLP TYPE [3P:869.1]
S YSFMROOT(870,YSIENS,400.01)=VDIFIP ; (#400.01) TCP/IP ADDRESS [1F]
S YSFMROOT(870,YSIENS,400.02)=VDIFPORT ; (#400.02) TCP/IP PORT [2N]
S YSFMROOT(870,YSIENS,400.03)="C" ; (#400.03) TCP/IP SERVICE TYPE [3S] - 'C' FOR CLIENT (SENDER)
S YSFMROOT(870,YSIENS,400.08)=VDIFPORT ; (#400.08) TCP/IP PORT (OPTIMIZED) [8N]
D UPDATE^DIE("","YSFMROOT","YSFMIEN","YSFMERR")
;
D BMES^XPDUTL($$HTE^XLFDT($H)_" > The YSCL-NCCC logical link was updated.")
Q
;
GETVDIFD() ;Get VDIF IP, DNS, Port for current station
N INC,TAGTXT,TEST,STN
K DET S DET=0
S STN=$P($$SITE^VASITE,"^",1)
S TEST='$$PROD^XUPROD ;Only Populate Prod
F INC=1:1 S TAGTXT=$P($T(RTDATA+INC),";;",2) Q:TAGTXT=""!(DET) D
. Q:$P(TAGTXT,"^")'=STN
. S DET=$P(TAGTXT,"^",1,4)
I 'DET!TEST S DET="^^^"
Q DET
;
RTDATA ;VDIF router details - Reference data for each site and which VDIF router to use
;;358^hc-vdif-r01-01.domain.ext^^7200
;;436^hc-vdif-r01-02.domain.ext^^7200
;;442^hc-vdif-r01-02.domain.ext^^7201
;;459^hc-vdif-r01-01.domain.ext^^7201
;;501^hc-vdif-r01-02.domain.ext^^7202
;;463^hc-vdif-r01-01.domain.ext^^7202
;;504^hc-vdif-r01-01.domain.ext^^7203
;;554^hc-vdif-r01-02.domain.ext^^7203
;;519^hc-vdif-r01-01.domain.ext^^7204
;;575^hc-vdif-r01-02.domain.ext^^7204
;;531^hc-vdif-r01-01.domain.ext^^7205
;;593^hc-vdif-r01-02.domain.ext^^7205
;;570^hc-vdif-r01-01.domain.ext^^7206
;;600^hc-vdif-r01-02.domain.ext^^7206
;;605^hc-vdif-r01-02.domain.ext^^7207
;;612^hc-vdif-r01-01.domain.ext^^7207
;;640^hc-vdif-r01-01.domain.ext^^7208
;;644^hc-vdif-r01-02.domain.ext^^7208
;;648^hc-vdif-r01-01.domain.ext^^7209
;;649^hc-vdif-r01-02.domain.ext^^7209
;;653^hc-vdif-r01-01.domain.ext^^7210
;;660^hc-vdif-r01-02.domain.ext^^7210
;;654^hc-vdif-r01-01.domain.ext^^7211
;;662^hc-vdif-r01-02.domain.ext^^7211
;;663^hc-vdif-r01-01.domain.ext^^7212
;;664^hc-vdif-r01-02.domain.ext^^7212
;;666^hc-vdif-r01-02.domain.ext^^7213
;;668^hc-vdif-r01-01.domain.ext^^7213
;;678^hc-vdif-r01-02.domain.ext^^7214
;;687^hc-vdif-r01-01.domain.ext^^7214
;;756^hc-vdif-r01-02.domain.ext^^7215
;;691^hc-vdif-r01-01.domain.ext^^7215
;;692^hc-vdif-r01-01.domain.ext^^7216
;;437^hc-vdif-r02-01.domain.ext^^7200
;;438^hc-vdif-r02-01.domain.ext^^7201
;;502^hc-vdif-r02-01.domain.ext^^7202
;;520^hc-vdif-r02-01.domain.ext^^7203
;;537^hc-vdif-r02-01.domain.ext^^7204
;;549^hc-vdif-r02-01.domain.ext^^7205
;;556^hc-vdif-r02-01.domain.ext^^7206
;;564^hc-vdif-r02-01.domain.ext^^7207
;;568^hc-vdif-r02-01.domain.ext^^7208
;;578^hc-vdif-r02-01.domain.ext^^7209
;;580^hc-vdif-r02-01.domain.ext^^7210
;;585^hc-vdif-r02-01.domain.ext^^7211
;;586^hc-vdif-r02-01.domain.ext^^7212
;;589^hc-vdif-r02-01.domain.ext^^7213
;;598^hc-vdif-r02-01.domain.ext^^7214
;;607^hc-vdif-r02-01.domain.ext^^7215
;;618^hc-vdif-r02-01.domain.ext^^7216
;;623^hc-vdif-r02-01.domain.ext^^7217
;;629^hc-vdif-r02-01.domain.ext^^7218
;;635^hc-vdif-r02-01.domain.ext^^7219
;;636^hc-vdif-r02-01.domain.ext^^7220
;;656^hc-vdif-r02-01.domain.ext^^7221
;;657^hc-vdif-r02-01.domain.ext^^7222
;;667^hc-vdif-r02-01.domain.ext^^7223
;;671^hc-vdif-r02-01.domain.ext^^7224
;;674^hc-vdif-r02-01.domain.ext^^7225
;;676^hc-vdif-r02-01.domain.ext^^7226
;;695^hc-vdif-r02-01.domain.ext^^7228
;;740^hc-vdif-r02-01.domain.ext^^7229
;;506^hc-vdif-r03-01.domain.ext^^7200
;;508^hc-vdif-r03-01.domain.ext^^7201
;;509^hc-vdif-r03-01.domain.ext^^7202
;;515^hc-vdif-r03-01.domain.ext^^7203
;;516^hc-vdif-r03-01.domain.ext^^7204
;;517^hc-vdif-r03-01.domain.ext^^7205
;;757^hc-vdif-r03-01.domain.ext^^7206
;;521^hc-vdif-r03-01.domain.ext^^7207
;;534^hc-vdif-r03-01.domain.ext^^7208
;;538^hc-vdif-r03-01.domain.ext^^7209
;;539^hc-vdif-r03-01.domain.ext^^7210
;;541^hc-vdif-r03-01.domain.ext^^7211
;;544^hc-vdif-r03-01.domain.ext^^7212
;;546^hc-vdif-r03-01.domain.ext^^7213
;;548^hc-vdif-r03-01.domain.ext^^7214
;;550^hc-vdif-r03-01.domain.ext^^7215
;;552^hc-vdif-r03-01.domain.ext^^7216
;;553^hc-vdif-r03-01.domain.ext^^7217
;;557^hc-vdif-r03-01.domain.ext^^7218
;;558^hc-vdif-r03-01.domain.ext^^7219
;;565^hc-vdif-r03-01.domain.ext^^7220
;;573^hc-vdif-r03-01.domain.ext^^7221
;;581^hc-vdif-r03-01.domain.ext^^7222
;;583^hc-vdif-r03-01.domain.ext^^7223
;;590^hc-vdif-r03-01.domain.ext^^7224
;;596^hc-vdif-r03-01.domain.ext^^7225
;;603^hc-vdif-r03-01.domain.ext^^7226
;;610^hc-vdif-r03-01.domain.ext^^7227
;;614^hc-vdif-r03-01.domain.ext^^7228
;;619^hc-vdif-r03-01.domain.ext^^7229
;;621^hc-vdif-r03-01.domain.ext^^7230
;;626^hc-vdif-r03-01.domain.ext^^7231
;;637^hc-vdif-r03-01.domain.ext^^7232
;;652^hc-vdif-r03-01.domain.ext^^7233
;;655^hc-vdif-r03-01.domain.ext^^7234
;;658^hc-vdif-r03-01.domain.ext^^7235
;;659^hc-vdif-r03-01.domain.ext^^7236
;;672^hc-vdif-r03-01.domain.ext^^7237
;;673^hc-vdif-r03-01.domain.ext^^7238
;;675^hc-vdif-r03-01.domain.ext^^7239
;;679^hc-vdif-r03-01.domain.ext^^7240
;;402^hc-vdif-r04-02.domain.ext^^7200
;;460^hc-vdif-r04-01.domain.ext^^7200
;;503^hc-vdif-r04-01.domain.ext^^7201
;;405^hc-vdif-r04-02.domain.ext^^7201
;;518^hc-vdif-r04-02.domain.ext^^7202
;;512^hc-vdif-r04-01.domain.ext^^7202
;;523^hc-vdif-r04-02.domain.ext^^7203
;;526^hc-vdif-r04-02.domain.ext^^7204
;;529^hc-vdif-r04-01.domain.ext^^7204
;;540^hc-vdif-r04-01.domain.ext^^7205
;;528^hc-vdif-r04-02.domain.ext^^7205
;;542^hc-vdif-r04-01.domain.ext^^7206
;;561^hc-vdif-r04-02.domain.ext^^7206
;;562^hc-vdif-r04-01.domain.ext^^7207
;;608^hc-vdif-r04-02.domain.ext^^7207
;;620^hc-vdif-r04-02.domain.ext^^7208
;;595^hc-vdif-r04-01.domain.ext^^7208
;;613^hc-vdif-r04-01.domain.ext^^7209
;;630^hc-vdif-r04-02.domain.ext^^7209
;;631^hc-vdif-r04-02.domain.ext^^7210
;;642^hc-vdif-r04-01.domain.ext^^7210
;;632^hc-vdif-r04-02.domain.ext^^7211
;;646^hc-vdif-r04-01.domain.ext^^7211
;;650^hc-vdif-r04-02.domain.ext^^7212
;;688^hc-vdif-r04-01.domain.ext^^7212
;;689^hc-vdif-r04-02.domain.ext^^7213
;;693^hc-vdif-r04-01.domain.ext^^7213
;;
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYSCL149P 7442 printed Nov 22, 2024@17:23:36 Page 2
YSCL149P ; HEC/hrubovcak - NCC Post-install;5 Dec 2019 17:21:16
+1 ;;5.01;MENTAL HEALTH;**149**;Dec 30, 1994;Build 72
+2 ;
+3 ; External reference to File 870 supported by DBIA 1496
+4 ; External reference to ^XLFDT supported by DBIA 10103
+5 ; External reference to ^XPDUTL supported by DBIA 10141
+6 ;
+7 ; 5 December 2019
+8 ;NO Entry CALL POST To Configure HLO Link
QUIT
+9 ;
POST ; Post-Install logic
+1 ;
+2 DO DT^DICRW
+3 NEW YSDIC,YSFMERR,YSFMIEN,YSFMROOT,YSIENS,YSLLPTR
+4 NEW VDIFRTR,VDIFIP,VDIFDNS,VDIFPORT,VDIFTEST
+5 DO MES^XPDUTL("Checking the YSCL-NCCC logical link.")
+6 ; find the IEN
DO FIND^DIC(870,,,"X","YSCL-NCCC",,"B",,,"YSDIC","YSFMERR")
+7 SET YSIENS=$GET(YSDIC("DILIST",2,1))
+8 ; entry not found, something's wrong
IF '(YSIENS>0)
Begin DoDot:1
+9 DO BMES^XPDUTL("*** ERROR: The YSCL-NCCC logical link was not found. *** ")
+10 DO MES^XPDUTL("Please contact the Clozapine Modernization Team.")
End DoDot:1
QUIT
+11 ;
+12 SET YSIENS=YSIENS_","
KILL YSDIC,YSFMERR
+13 ; look up HL LOWER LEVEL PROTOCOL
+14 DO FIND^DIC(869.1,,,"X","TCP",,"B",,,"YSDIC","YSFMERR")
+15 ; lower level pointer
SET YSLLPTR=$GET(YSDIC("DILIST",2,1))
+16 SET VDIFRTR=$$GETVDIFD()
+17 SET VDIFIP=$PIECE(VDIFRTR,"^",3)
+18 SET VDIFDNS=$PIECE(VDIFRTR,"^",2)
+19 SET VDIFPORT=$PIECE(VDIFRTR,"^",4)
+20 KILL YSDIC,YSFMERR
+21 ;;(#.08) DNS DOMAIN [8F]
SET YSFMROOT(870,YSIENS,.08)=VDIFDNS
+22 ; (#2) LLP TYPE [3P:869.1]
SET YSFMROOT(870,YSIENS,2)=YSLLPTR
+23 ; (#400.01) TCP/IP ADDRESS [1F]
SET YSFMROOT(870,YSIENS,400.01)=VDIFIP
+24 ; (#400.02) TCP/IP PORT [2N]
SET YSFMROOT(870,YSIENS,400.02)=VDIFPORT
+25 ; (#400.03) TCP/IP SERVICE TYPE [3S] - 'C' FOR CLIENT (SENDER)
SET YSFMROOT(870,YSIENS,400.03)="C"
+26 ; (#400.08) TCP/IP PORT (OPTIMIZED) [8N]
SET YSFMROOT(870,YSIENS,400.08)=VDIFPORT
+27 DO UPDATE^DIE("","YSFMROOT","YSFMIEN","YSFMERR")
+28 ;
+29 DO BMES^XPDUTL($$HTE^XLFDT($HOROLOG)_" > The YSCL-NCCC logical link was updated.")
+30 QUIT
+31 ;
GETVDIFD() ;Get VDIF IP, DNS, Port for current station
+1 NEW INC,TAGTXT,TEST,STN
+2 KILL DET
SET DET=0
+3 SET STN=$PIECE($$SITE^VASITE,"^",1)
+4 ;Only Populate Prod
SET TEST='$$PROD^XUPROD
+5 FOR INC=1:1
SET TAGTXT=$PIECE($TEXT(RTDATA+INC),";;",2)
if TAGTXT=""!(DET)
QUIT
Begin DoDot:1
+6 if $PIECE(TAGTXT,"^")'=STN
QUIT
+7 SET DET=$PIECE(TAGTXT,"^",1,4)
End DoDot:1
+8 IF 'DET!TEST
SET DET="^^^"
+9 QUIT DET
+10 ;
RTDATA ;VDIF router details - Reference data for each site and which VDIF router to use
+1 ;;358^hc-vdif-r01-01.domain.ext^^7200
+2 ;;436^hc-vdif-r01-02.domain.ext^^7200
+3 ;;442^hc-vdif-r01-02.domain.ext^^7201
+4 ;;459^hc-vdif-r01-01.domain.ext^^7201
+5 ;;501^hc-vdif-r01-02.domain.ext^^7202
+6 ;;463^hc-vdif-r01-01.domain.ext^^7202
+7 ;;504^hc-vdif-r01-01.domain.ext^^7203
+8 ;;554^hc-vdif-r01-02.domain.ext^^7203
+9 ;;519^hc-vdif-r01-01.domain.ext^^7204
+10 ;;575^hc-vdif-r01-02.domain.ext^^7204
+11 ;;531^hc-vdif-r01-01.domain.ext^^7205
+12 ;;593^hc-vdif-r01-02.domain.ext^^7205
+13 ;;570^hc-vdif-r01-01.domain.ext^^7206
+14 ;;600^hc-vdif-r01-02.domain.ext^^7206
+15 ;;605^hc-vdif-r01-02.domain.ext^^7207
+16 ;;612^hc-vdif-r01-01.domain.ext^^7207
+17 ;;640^hc-vdif-r01-01.domain.ext^^7208
+18 ;;644^hc-vdif-r01-02.domain.ext^^7208
+19 ;;648^hc-vdif-r01-01.domain.ext^^7209
+20 ;;649^hc-vdif-r01-02.domain.ext^^7209
+21 ;;653^hc-vdif-r01-01.domain.ext^^7210
+22 ;;660^hc-vdif-r01-02.domain.ext^^7210
+23 ;;654^hc-vdif-r01-01.domain.ext^^7211
+24 ;;662^hc-vdif-r01-02.domain.ext^^7211
+25 ;;663^hc-vdif-r01-01.domain.ext^^7212
+26 ;;664^hc-vdif-r01-02.domain.ext^^7212
+27 ;;666^hc-vdif-r01-02.domain.ext^^7213
+28 ;;668^hc-vdif-r01-01.domain.ext^^7213
+29 ;;678^hc-vdif-r01-02.domain.ext^^7214
+30 ;;687^hc-vdif-r01-01.domain.ext^^7214
+31 ;;756^hc-vdif-r01-02.domain.ext^^7215
+32 ;;691^hc-vdif-r01-01.domain.ext^^7215
+33 ;;692^hc-vdif-r01-01.domain.ext^^7216
+34 ;;437^hc-vdif-r02-01.domain.ext^^7200
+35 ;;438^hc-vdif-r02-01.domain.ext^^7201
+36 ;;502^hc-vdif-r02-01.domain.ext^^7202
+37 ;;520^hc-vdif-r02-01.domain.ext^^7203
+38 ;;537^hc-vdif-r02-01.domain.ext^^7204
+39 ;;549^hc-vdif-r02-01.domain.ext^^7205
+40 ;;556^hc-vdif-r02-01.domain.ext^^7206
+41 ;;564^hc-vdif-r02-01.domain.ext^^7207
+42 ;;568^hc-vdif-r02-01.domain.ext^^7208
+43 ;;578^hc-vdif-r02-01.domain.ext^^7209
+44 ;;580^hc-vdif-r02-01.domain.ext^^7210
+45 ;;585^hc-vdif-r02-01.domain.ext^^7211
+46 ;;586^hc-vdif-r02-01.domain.ext^^7212
+47 ;;589^hc-vdif-r02-01.domain.ext^^7213
+48 ;;598^hc-vdif-r02-01.domain.ext^^7214
+49 ;;607^hc-vdif-r02-01.domain.ext^^7215
+50 ;;618^hc-vdif-r02-01.domain.ext^^7216
+51 ;;623^hc-vdif-r02-01.domain.ext^^7217
+52 ;;629^hc-vdif-r02-01.domain.ext^^7218
+53 ;;635^hc-vdif-r02-01.domain.ext^^7219
+54 ;;636^hc-vdif-r02-01.domain.ext^^7220
+55 ;;656^hc-vdif-r02-01.domain.ext^^7221
+56 ;;657^hc-vdif-r02-01.domain.ext^^7222
+57 ;;667^hc-vdif-r02-01.domain.ext^^7223
+58 ;;671^hc-vdif-r02-01.domain.ext^^7224
+59 ;;674^hc-vdif-r02-01.domain.ext^^7225
+60 ;;676^hc-vdif-r02-01.domain.ext^^7226
+61 ;;695^hc-vdif-r02-01.domain.ext^^7228
+62 ;;740^hc-vdif-r02-01.domain.ext^^7229
+63 ;;506^hc-vdif-r03-01.domain.ext^^7200
+64 ;;508^hc-vdif-r03-01.domain.ext^^7201
+65 ;;509^hc-vdif-r03-01.domain.ext^^7202
+66 ;;515^hc-vdif-r03-01.domain.ext^^7203
+67 ;;516^hc-vdif-r03-01.domain.ext^^7204
+68 ;;517^hc-vdif-r03-01.domain.ext^^7205
+69 ;;757^hc-vdif-r03-01.domain.ext^^7206
+70 ;;521^hc-vdif-r03-01.domain.ext^^7207
+71 ;;534^hc-vdif-r03-01.domain.ext^^7208
+72 ;;538^hc-vdif-r03-01.domain.ext^^7209
+73 ;;539^hc-vdif-r03-01.domain.ext^^7210
+74 ;;541^hc-vdif-r03-01.domain.ext^^7211
+75 ;;544^hc-vdif-r03-01.domain.ext^^7212
+76 ;;546^hc-vdif-r03-01.domain.ext^^7213
+77 ;;548^hc-vdif-r03-01.domain.ext^^7214
+78 ;;550^hc-vdif-r03-01.domain.ext^^7215
+79 ;;552^hc-vdif-r03-01.domain.ext^^7216
+80 ;;553^hc-vdif-r03-01.domain.ext^^7217
+81 ;;557^hc-vdif-r03-01.domain.ext^^7218
+82 ;;558^hc-vdif-r03-01.domain.ext^^7219
+83 ;;565^hc-vdif-r03-01.domain.ext^^7220
+84 ;;573^hc-vdif-r03-01.domain.ext^^7221
+85 ;;581^hc-vdif-r03-01.domain.ext^^7222
+86 ;;583^hc-vdif-r03-01.domain.ext^^7223
+87 ;;590^hc-vdif-r03-01.domain.ext^^7224
+88 ;;596^hc-vdif-r03-01.domain.ext^^7225
+89 ;;603^hc-vdif-r03-01.domain.ext^^7226
+90 ;;610^hc-vdif-r03-01.domain.ext^^7227
+91 ;;614^hc-vdif-r03-01.domain.ext^^7228
+92 ;;619^hc-vdif-r03-01.domain.ext^^7229
+93 ;;621^hc-vdif-r03-01.domain.ext^^7230
+94 ;;626^hc-vdif-r03-01.domain.ext^^7231
+95 ;;637^hc-vdif-r03-01.domain.ext^^7232
+96 ;;652^hc-vdif-r03-01.domain.ext^^7233
+97 ;;655^hc-vdif-r03-01.domain.ext^^7234
+98 ;;658^hc-vdif-r03-01.domain.ext^^7235
+99 ;;659^hc-vdif-r03-01.domain.ext^^7236
+100 ;;672^hc-vdif-r03-01.domain.ext^^7237
+101 ;;673^hc-vdif-r03-01.domain.ext^^7238
+102 ;;675^hc-vdif-r03-01.domain.ext^^7239
+103 ;;679^hc-vdif-r03-01.domain.ext^^7240
+104 ;;402^hc-vdif-r04-02.domain.ext^^7200
+105 ;;460^hc-vdif-r04-01.domain.ext^^7200
+106 ;;503^hc-vdif-r04-01.domain.ext^^7201
+107 ;;405^hc-vdif-r04-02.domain.ext^^7201
+108 ;;518^hc-vdif-r04-02.domain.ext^^7202
+109 ;;512^hc-vdif-r04-01.domain.ext^^7202
+110 ;;523^hc-vdif-r04-02.domain.ext^^7203
+111 ;;526^hc-vdif-r04-02.domain.ext^^7204
+112 ;;529^hc-vdif-r04-01.domain.ext^^7204
+113 ;;540^hc-vdif-r04-01.domain.ext^^7205
+114 ;;528^hc-vdif-r04-02.domain.ext^^7205
+115 ;;542^hc-vdif-r04-01.domain.ext^^7206
+116 ;;561^hc-vdif-r04-02.domain.ext^^7206
+117 ;;562^hc-vdif-r04-01.domain.ext^^7207
+118 ;;608^hc-vdif-r04-02.domain.ext^^7207
+119 ;;620^hc-vdif-r04-02.domain.ext^^7208
+120 ;;595^hc-vdif-r04-01.domain.ext^^7208
+121 ;;613^hc-vdif-r04-01.domain.ext^^7209
+122 ;;630^hc-vdif-r04-02.domain.ext^^7209
+123 ;;631^hc-vdif-r04-02.domain.ext^^7210
+124 ;;642^hc-vdif-r04-01.domain.ext^^7210
+125 ;;632^hc-vdif-r04-02.domain.ext^^7211
+126 ;;646^hc-vdif-r04-01.domain.ext^^7211
+127 ;;650^hc-vdif-r04-02.domain.ext^^7212
+128 ;;688^hc-vdif-r04-01.domain.ext^^7212
+129 ;;689^hc-vdif-r04-02.domain.ext^^7213
+130 ;;693^hc-vdif-r04-01.domain.ext^^7213
+131 ;;
+132 ;
+133 QUIT
