Routine: YSCL149P

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.")

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

;;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYSCL149P   7442     printed  Apr 23, 2025@18:27:59                                                                                                                                                                                                    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

YSCL149P.m