XTPOST.m

XTPOST ;OAK-RAK - Post Install Routine ;6/8/06  10:19

 ;;8.0;KERNEL;**102**;Jul 10, 1995

 ;

EN ;- entry point

 ;

 N DIU,I,X,Y

 D CHECK

 D MES^XPDUTL(" Removing File #8986.095 (CM SITE PARAMETERS) data dictionary and data...")

 S DIU="8986.095",DIU(0)="DT"

 D EN^DIU2

 K DUI,X,Y

 D MES^XPDUTL(" Removing File #8986.098 (VPM RESPONSE TIME DATA) data dictionary and data...")

 S DIU="8986.098",DIU(0)="DT"

 D EN^DIU2

 K DUI,X,Y

 D MES^XPDUTL(" Removing File #8986.3 (CM SITE NODENAMES) data dictionary and data...")

 S DIU="8986.3",DIU(0)="DT"

 D EN^DIU2

 K DUI,X,Y

 D MES^XPDUTL(" Removing File #8986.35 (CM SITE DISKDRIVES) data dictionary and data...")

 S DIU="8986.35",DIU(0)="DT"

 D EN^DIU2

 K DUI,X,Y

 D MES^XPDUTL(" Removing File #8986.4 (CM METRICS) data dictionary and data...")

 S DIU="8986.4",DIU(0)="DT"

 D EN^DIU2

 K DUI,X,Y

 D MES^XPDUTL(" Removing File #8986.5 (CM DISK DRIVE RAW DATA) data dictionary and data...")

 S DIU="8986.5",DIU(0)="DT"

 D EN^DIU2

 K DUI,X,Y

 D MES^XPDUTL(" Removing File #8986.51 (CM NODENAME RAW DATA) data dictionary and data...")

 S DIU="8986.51",DIU(0)="DT"

 D EN^DIU2

 K DUI,X,Y

 D MES^XPDUTL(" Removing File #8986.6 (CM DAILY STATISTICS) data dictionary and data...")

 S DIU="8986.6",DIU(0)="DT"

 D EN^DIU2

 K DUI,X,Y

 D MES^XPDUTL(" Removing File #3.091 (RESPONSE TIME) data dictionary and data...")

 S DIU="3.091",DIU(0)="DT"

 D EN^DIU2

 K DUI,X,Y

 D MES^XPDUTL(" Removing File #3.092 (RT DATE_UCI,VOL) data dictionary and data...")

 S DIU="3.092",DIU(0)="DT"

 D EN^DIU2

 K DUI,X,Y

 D MES^XPDUTL(" Removing File #3.094 (RT RAWDATA) data dictionary and data...")

 S DIU="3.094",DIU(0)="DT"

 D EN^DIU2

 K DUI,X,Y

 S I=""

 F  S I=$O(^%ZRTL(I)) Q:I=""  D 

 .D MES^XPDUTL(" Removing data from non-FileMan compatible global ^%ZRTL("_I_")...")

 .K ^%ZRTL(I)

 ;

 D MES^XPDUTL(" Finished!")

 ;

 Q

 ;

CHECK ;- check for zero nodes if files exist

 I $D(^DIC(8986.095,0)) D 

 .S $P(^XUCM(8986.095,0),U)="CM SITE PARAMETERS"

 .S $P(^XUCM(8986.095,0),U,2)="8986.095P"

 ;

 I $D(^DIC(8986.098,0)) D 

 .S $P(^XUCM(8986.098,0),U)="VPM RESPONSE TIME DATA"

 .S $P(^XUCM(8986.098,0),U,2)="8986.098P"

 ;

 I $D(^DIC(8986.3,0)) D 

 .S $P(^XUCM(8986.3,0),U)="CM SITE NODENAMES"

 .S $P(^XUCM(8986.3,0),U,2)="8986.3"

 ;

 I $D(^DIC(8986.35,0)) D 

 .S $P(^XUCM(8986.35,0),U)="CM SITE DISKDRIVES"

 .S $P(^XUCM(8986.35,0),U,2)="8986.35"

 ;

 I $D(^DIC(8986.4,0)) D 

 .S $P(^XUCM(8986.4,0),U)="CM METRICS"

 .S $P(^XUCM(8986.4,0),U,2)="8986.4I"

 ;

 I $D(^DIC(8986.5,0)) D 

 .S $P(^XUCM(8986.5,0),U)="CM DISK DRIVE RAW DATA"

 .S $P(^XUCM(8986.5,0),U,2)="8986.5P"

 ;

 I $D(^DIC(8986.51,0)) D 

 .S $P(^XUCM(8986.51,0),U)="CM NODENAME RAW DATA"

 .S $P(^XUCM(8986.51,0),U,2)="8986.51P"

 ;

 I $D(^DIC(8986.6,0)) D 

 .S $P(^XUCM(8986.6,0),U)="CM DAILY STATISTICS"

 .S $P(^XUCM(8986.6,0),U,2)="8986.6P"

 ;

 I $D(^DIC(3.091,0)) D 

 .S $P(^%ZRTL(1,0),U)="RESPONSE TIME"

 .S $P(^%ZRTL(1,0),U,2)="3.091P"

 ;

 I $D(^DIC(3.092,0)) D 

 .S $P(^%ZRTL(2,0),U)="RT DATE_UCI,VOL"

 .S $P(^%ZRTL(2,0),U,2)="3.092"

 ;

 I $D(^DIC(3.094,0)) D 

 .S $P(^%ZRTL(4,0),U)="RT RAWDATA"

 .S $P(^%ZRTL(4,0),U,2)="3.094D"

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XTPOST   3210     printed  Mar 13, 2025@21:46:43                                                                                                                                                                                                      Page 2

XTPOST    ;OAK-RAK - Post Install Routine ;6/8/06  10:19

 +1       ;;8.0;KERNEL;**102**;Jul 10, 1995

 +2       ;

EN        ;- entry point

 +1       ;

 +2        NEW DIU,I,X,Y

 +3        DO CHECK

 +4        DO MES^XPDUTL(" Removing File #8986.095 (CM SITE PARAMETERS) data dictionary and data...")

 +5        SET DIU="8986.095"

           SET DIU(0)="DT"

 +6        DO EN^DIU2

 +7        KILL DUI,X,Y

 +8        DO MES^XPDUTL(" Removing File #8986.098 (VPM RESPONSE TIME DATA) data dictionary and data...")

 +9        SET DIU="8986.098"

           SET DIU(0)="DT"

 +10       DO EN^DIU2

 +11       KILL DUI,X,Y

 +12       DO MES^XPDUTL(" Removing File #8986.3 (CM SITE NODENAMES) data dictionary and data...")

 +13       SET DIU="8986.3"

           SET DIU(0)="DT"

 +14       DO EN^DIU2

 +15       KILL DUI,X,Y

 +16       DO MES^XPDUTL(" Removing File #8986.35 (CM SITE DISKDRIVES) data dictionary and data...")

 +17       SET DIU="8986.35"

           SET DIU(0)="DT"

 +18       DO EN^DIU2

 +19       KILL DUI,X,Y

 +20       DO MES^XPDUTL(" Removing File #8986.4 (CM METRICS) data dictionary and data...")

 +21       SET DIU="8986.4"

           SET DIU(0)="DT"

 +22       DO EN^DIU2

 +23       KILL DUI,X,Y

 +24       DO MES^XPDUTL(" Removing File #8986.5 (CM DISK DRIVE RAW DATA) data dictionary and data...")

 +25       SET DIU="8986.5"

           SET DIU(0)="DT"

 +26       DO EN^DIU2

 +27       KILL DUI,X,Y

 +28       DO MES^XPDUTL(" Removing File #8986.51 (CM NODENAME RAW DATA) data dictionary and data...")

 +29       SET DIU="8986.51"

           SET DIU(0)="DT"

 +30       DO EN^DIU2

 +31       KILL DUI,X,Y

 +32       DO MES^XPDUTL(" Removing File #8986.6 (CM DAILY STATISTICS) data dictionary and data...")

 +33       SET DIU="8986.6"

           SET DIU(0)="DT"

 +34       DO EN^DIU2

 +35       KILL DUI,X,Y

 +36       DO MES^XPDUTL(" Removing File #3.091 (RESPONSE TIME) data dictionary and data...")

 +37       SET DIU="3.091"

           SET DIU(0)="DT"

 +38       DO EN^DIU2

 +39       KILL DUI,X,Y

 +40       DO MES^XPDUTL(" Removing File #3.092 (RT DATE_UCI,VOL) data dictionary and data...")

 +41       SET DIU="3.092"

           SET DIU(0)="DT"

 +42       DO EN^DIU2

 +43       KILL DUI,X,Y

 +44       DO MES^XPDUTL(" Removing File #3.094 (RT RAWDATA) data dictionary and data...")

 +45       SET DIU="3.094"

           SET DIU(0)="DT"

 +46       DO EN^DIU2

 +47       KILL DUI,X,Y

 +48       SET I=""

 +49       FOR 

               SET I=$ORDER(^%ZRTL(I))

               if I=""

                   QUIT 

               Begin DoDot:1

 +50               DO MES^XPDUTL(" Removing data from non-FileMan compatible global ^%ZRTL("_I_")...")

 +51               KILL ^%ZRTL(I)

               End DoDot:1

 +52      ;

 +53       DO MES^XPDUTL(" Finished!")

 +54      ;

 +55       QUIT 

 +56      ;

CHECK     ;- check for zero nodes if files exist

 +1        IF $DATA(^DIC(8986.095,0))

               Begin DoDot:1

 +2                SET $PIECE(^XUCM(8986.095,0),U)="CM SITE PARAMETERS"

 +3                SET $PIECE(^XUCM(8986.095,0),U,2)="8986.095P"

               End DoDot:1

 +4       ;

 +5        IF $DATA(^DIC(8986.098,0))

               Begin DoDot:1

 +6                SET $PIECE(^XUCM(8986.098,0),U)="VPM RESPONSE TIME DATA"

 +7                SET $PIECE(^XUCM(8986.098,0),U,2)="8986.098P"

               End DoDot:1

 +8       ;

 +9        IF $DATA(^DIC(8986.3,0))

               Begin DoDot:1

 +10               SET $PIECE(^XUCM(8986.3,0),U)="CM SITE NODENAMES"

 +11               SET $PIECE(^XUCM(8986.3,0),U,2)="8986.3"

               End DoDot:1

 +12      ;

 +13       IF $DATA(^DIC(8986.35,0))

               Begin DoDot:1

 +14               SET $PIECE(^XUCM(8986.35,0),U)="CM SITE DISKDRIVES"

 +15               SET $PIECE(^XUCM(8986.35,0),U,2)="8986.35"

               End DoDot:1

 +16      ;

 +17       IF $DATA(^DIC(8986.4,0))

               Begin DoDot:1

 +18               SET $PIECE(^XUCM(8986.4,0),U)="CM METRICS"

 +19               SET $PIECE(^XUCM(8986.4,0),U,2)="8986.4I"

               End DoDot:1

 +20      ;

 +21       IF $DATA(^DIC(8986.5,0))

               Begin DoDot:1

 +22               SET $PIECE(^XUCM(8986.5,0),U)="CM DISK DRIVE RAW DATA"

 +23               SET $PIECE(^XUCM(8986.5,0),U,2)="8986.5P"

               End DoDot:1

 +24      ;

 +25       IF $DATA(^DIC(8986.51,0))

               Begin DoDot:1

 +26               SET $PIECE(^XUCM(8986.51,0),U)="CM NODENAME RAW DATA"

 +27               SET $PIECE(^XUCM(8986.51,0),U,2)="8986.51P"

               End DoDot:1

 +28      ;

 +29       IF $DATA(^DIC(8986.6,0))

               Begin DoDot:1

 +30               SET $PIECE(^XUCM(8986.6,0),U)="CM DAILY STATISTICS"

 +31               SET $PIECE(^XUCM(8986.6,0),U,2)="8986.6P"

               End DoDot:1

 +32      ;

 +33       IF $DATA(^DIC(3.091,0))

               Begin DoDot:1

 +34               SET $PIECE(^%ZRTL(1,0),U)="RESPONSE TIME"

 +35               SET $PIECE(^%ZRTL(1,0),U,2)="3.091P"

               End DoDot:1

 +36      ;

 +37       IF $DATA(^DIC(3.092,0))

               Begin DoDot:1

 +38               SET $PIECE(^%ZRTL(2,0),U)="RT DATE_UCI,VOL"

 +39               SET $PIECE(^%ZRTL(2,0),U,2)="3.092"

               End DoDot:1

 +40      ;

 +41       IF $DATA(^DIC(3.094,0))

               Begin DoDot:1

 +42               SET $PIECE(^%ZRTL(4,0),U)="RT RAWDATA"

 +43               SET $PIECE(^%ZRTL(4,0),U,2)="3.094D"

               End DoDot:1

 +44      ;

 +45       QUIT