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 ---[H[J[2J[HXTPOST 3210 printed Apr 09, 2024@21:42:09 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
