XUINTSK4 ;SEA/RDS-TaskMan: Conversion, ^%ZIS, Part 3 ;6/24/91 10:23 ;
;;7.0;Kernel;;Jul 17, 1992
;
EVERY ;Code executed every time conversion is done
W !,"Now I will update 14.5, 14.6, and 14.7 based on this volume set and cpu.",!?5
E D VOLUME,UCI,LINK,CVPAIR
S ZT1=0 F ZT=0:0 S ZT1=$O(^%ZIS(14.5,ZT1)) Q:'ZT1 S ZTS=^(ZT1,0),ZTM=$P(ZTS,U,6) D MGR I ZTM="" K DD,DO S DIE="^%ZIS(14.5,",DA=ZT1,DR=".01:7" D ^DIE W !?5,"." S ZT1=0
W !?5,"All done."
K %,%Y,C,D,D0,DA,DD,DI,DIC,DICR,DIE,DIG,DIH,DISYS,DIU,DIV,DIW,DQ,DR,DTOUT,DUOUT,X,Y,ZT,ZT1,ZT2,ZT3,ZT4,ZT7,ZTDEF,ZTDINUM,ZTENV,ZTF01,ZTF1,ZTF2,ZTF3,ZTF4,ZTF5,ZTF6,ZTF7,ZTI,ZTM,ZTM1,ZTM2,ZTMAST,ZTN,ZTPAIR,ZTS,ZTU,ZTUCI,ZTV,ZTVI,ZTVOL,ZTXMB
Q
;
VOLUME ;EVERY--make sure the current volume set has been filed
S ZTV=$P(ZTENV,U,2)
S ZTVI=$O(^%ZIS(14.5,"B",ZTV,""))
I ZTVI]"" Q
K DD,DO S DIC="^%ZIS(14.5,",DIC(0)="L",X=ZTV D FILE^DICN
K DD S DIE=DIC,DA=$P(Y,U),ZTVI=DA,DR=".01:7" D ^DIE
W "."
Q
;
UCI ;EVERY--make sure all ucis on this volume set are filed
I ^%ZOSF("OS")'["DSM" Q
S X="NOUCI^XUINTSK4",@^%ZOSF("TRAP")
F ZT1=1:1 S ZTU=$P($ZU(ZT1),",") Q:ZTU="" I $O(^%ZIS(14.6,"AV",ZTV,ZTU,""))="" D ADDUCI
NOUCI Q
;
ADDUCI ;UCI--add a uci on this volume set to file 14.6
K DO S DIC="^%ZIS(14.6,",DIC(0)="L",X=ZTU
S DINUM=$P(^%ZIS(14.6,0),U,3)+1
F ZT=0:0 Q:'$D(^%ZIS(14.6,DINUM)) S DINUM=DINUM+1
S $P(^%ZIS(14.6,0),U,3)=DINUM,ZTDINUM=DINUM
K DD D FILE^DICN
K DD S DIE=DIC,DA=ZTDINUM,DR="1////"_ZTVI D ^DIE
K DINUM W "."
Q
;
LINK ;EVERY--make sure LINK node entries are filed and cleaned out
S ZT1="" F ZT=0:0 S ZT1=$O(^%ZTSCH("LINK",ZT1)) Q:ZT1="" D CHECK I $O(^%ZTSCH("LINK",ZT1,""))="" K ^%ZTSCH("LINK",ZT1)
Q
;
CHECK ;LINK--ensure a link entry is filed
S ZTI=$O(^%ZIS(14.5,"B",ZT1,""))
I ZTI]"" Q
K DD,DO S DIC="^%ZIS(14.5,",DIC(0)="L",X=ZT1 D FILE^DICN
K DD S DIE=DIC,DA=$P(Y,U),DR=".01:7" D ^DIE
W "."
Q
;
CVPAIR ;EVERY--file record for current cpu-volume pair
S ZTPAIR=$P(ZTENV,U,4)
S ZTI=$O(^%ZIS(14.7,"B",ZTPAIR,""))
I ZTI]"" Q
S ZTDEF=$S($D(@(ZTXMB_"(1,1,3)"))#2:^(3),1:"")
S ZTS=$S($D(@(ZTXMB_"(1,1,4,ZTVI,0)"))#2:^(0),1:"")
S ZTF01=ZTPAIR
S ZTF1=$P(ZTS,U,6),ZTF1=$S(ZTF1="":"N",ZTF1="n":"N",ZTF1="y":"Y",1:"N")
S ZTF2="N"
S ZTF3=$P(ZTDEF,U,3),ZTF3=$S(ZTF3="":"",ZTF3<1:"",ZTF3>10:"",1:ZTF3\1)
S ZTF4=$P(ZTDEF,U,4),ZTF4=$S(^%ZOSF("OS")["VAX DSM":"",^%ZOSF("OS")'["DSM":"",ZTF4="":"",ZTF4<1:"",ZTF4>3:"",1:ZTF4\1+1*8)
S ZTF5=$P(ZTDEF,U,5),ZTF5=ZTF5\1
S ZTF6=$P(ZTS,U,7),ZTF6=$S(ZTF6:"////"_ZTF6,1:"")
S ZTF7=$P(ZTDEF,U,6),ZTF7=+ZTF7
K DD,DO S DIC="^%ZIS(14.7,",DIC(0)="L",X=ZTPAIR D FILE^DICN
S DIE=DIC,DA=$P(Y,U)
S DR="1////"_ZTF1_";2////"_ZTF2_";3////"_ZTF3_";4////"_ZTF4_";5////"_ZTF5_";6"_ZTF6_";7////"_ZTF7
I ZTF6="" W !!,"For cpu-volume pair ",ZTPAIR,!,"-------------------------------"
K DD D ^DIE I ZTF6="" W !
W "."
Q
;
MGR ;EVERY--ensure MGR ucis are filed
I ZTM="" Q
S ZTN=$P(ZTS,U)
S ZTI=$O(^%ZIS(14.6,"AV",ZTN,ZTM,""))
I ZTI]"" Q
S DINUM=$P(^%ZIS(14.6,0),U,3)+1
F ZT=0:0 Q:'$D(^%ZIS(14.6,DINUM)) S DINUM=DINUM+1
S $P(^%ZIS(14.6,0),U,3)=DINUM
K DD,DO S DIC="^%ZIS(14.6,",DIC(0)="L",X=ZTM D FILE^DICN
K DD S DIE=DIC,DA=$P(Y,U),DR="1////"_ZT1 D ^DIE W "."
K DINUM Q
;
XUINTSK4 ;SEA/RDS-TaskMan: Conversion, ^%ZIS, Part 3 ;6/24/91 10:23 ;
+1 ;;7.0;Kernel;;Jul 17, 1992
+2 ;
EVERY ;Code executed every time conversion is done
+1 WRITE !,"Now I will update 14.5, 14.6, and 14.7 based on this volume set and cpu.",!?5
E DO VOLUME
DO UCI
DO LINK
DO CVPAIR
+1 SET ZT1=0
FOR ZT=0:0
SET ZT1=$ORDER(^%ZIS(14.5,ZT1))
IF 'ZT1
QUIT
SET ZTS=^(ZT1,0)
SET ZTM=$PIECE(ZTS,U,6)
DO MGR
IF ZTM=""
KILL DD,DO
SET DIE="^%ZIS(14.5,"
SET DA=ZT1
SET DR=".01:7"
DO ^DIE
WRITE !?5,"."
SET ZT1=0
+2 WRITE !?5,"All done."
+3 KILL %,%Y,C,D,D0,DA,DD,DI,DIC,DICR,DIE,DIG,DIH,DISYS,DIU,DIV,DIW,DQ,DR,DTOUT,DUOUT,X,Y,ZT,ZT1,ZT2,ZT3,ZT4,ZT7,ZTDEF,ZTDINUM,ZTENV,ZTF01,ZTF1,ZTF2,ZTF3,ZTF4,ZTF5,ZTF6,ZTF7,ZTI,ZTM,ZTM1,ZTM2,ZTMAST,ZTN,ZTPAIR,ZTS,ZTU,ZTUCI,ZTV,ZTVI,ZTVOL,ZTXMB
+4 QUIT
+5 ;
VOLUME ;EVERY--make sure the current volume set has been filed
+1 SET ZTV=$PIECE(ZTENV,U,2)
+2 SET ZTVI=$ORDER(^%ZIS(14.5,"B",ZTV,""))
+3 IF ZTVI]""
QUIT
+4 KILL DD,DO
SET DIC="^%ZIS(14.5,"
SET DIC(0)="L"
SET X=ZTV
DO FILE^DICN
+5 KILL DD
SET DIE=DIC
SET DA=$PIECE(Y,U)
SET ZTVI=DA
SET DR=".01:7"
DO ^DIE
+6 WRITE "."
+7 QUIT
+8 ;
UCI ;EVERY--make sure all ucis on this volume set are filed
+1 IF ^%ZOSF("OS")'["DSM"
QUIT
+2 SET X="NOUCI^XUINTSK4"
SET @^%ZOSF("TRAP")
+3 FOR ZT1=1:1
SET ZTU=$PIECE($ZU(ZT1),",")
IF ZTU=""
QUIT
IF $ORDER(^%ZIS(14.6,"AV",ZTV,ZTU,""))=""
DO ADDUCI
NOUCI QUIT
+1 ;
ADDUCI ;UCI--add a uci on this volume set to file 14.6
+1 KILL DO
SET DIC="^%ZIS(14.6,"
SET DIC(0)="L"
SET X=ZTU
+2 SET DINUM=$PIECE(^%ZIS(14.6,0),U,3)+1
+3 FOR ZT=0:0
IF '$DATA(^%ZIS(14.6,DINUM))
QUIT
SET DINUM=DINUM+1
+4 SET $PIECE(^%ZIS(14.6,0),U,3)=DINUM
SET ZTDINUM=DINUM
+5 KILL DD
DO FILE^DICN
+6 KILL DD
SET DIE=DIC
SET DA=ZTDINUM
SET DR="1////"_ZTVI
DO ^DIE
+7 KILL DINUM
WRITE "."
+8 QUIT
+9 ;
LINK ;EVERY--make sure LINK node entries are filed and cleaned out
+1 SET ZT1=""
FOR ZT=0:0
SET ZT1=$ORDER(^%ZTSCH("LINK",ZT1))
IF ZT1=""
QUIT
DO CHECK
IF $ORDER(^%ZTSCH("LINK",ZT1,""))=""
KILL ^%ZTSCH("LINK",ZT1)
+2 QUIT
+3 ;
CHECK ;LINK--ensure a link entry is filed
+1 SET ZTI=$ORDER(^%ZIS(14.5,"B",ZT1,""))
+2 IF ZTI]""
QUIT
+3 KILL DD,DO
SET DIC="^%ZIS(14.5,"
SET DIC(0)="L"
SET X=ZT1
DO FILE^DICN
+4 KILL DD
SET DIE=DIC
SET DA=$PIECE(Y,U)
SET DR=".01:7"
DO ^DIE
+5 WRITE "."
+6 QUIT
+7 ;
CVPAIR ;EVERY--file record for current cpu-volume pair
+1 SET ZTPAIR=$PIECE(ZTENV,U,4)
+2 SET ZTI=$ORDER(^%ZIS(14.7,"B",ZTPAIR,""))
+3 IF ZTI]""
QUIT
+4 SET ZTDEF=$SELECT($DATA(@(ZTXMB_"(1,1,3)"))#2:^(3),1:"")
+5 SET ZTS=$SELECT($DATA(@(ZTXMB_"(1,1,4,ZTVI,0)"))#2:^(0),1:"")
+6 SET ZTF01=ZTPAIR
+7 SET ZTF1=$PIECE(ZTS,U,6)
SET ZTF1=$SELECT(ZTF1="":"N",ZTF1="n":"N",ZTF1="y":"Y",1:"N")
+8 SET ZTF2="N"
+9 SET ZTF3=$PIECE(ZTDEF,U,3)
SET ZTF3=$SELECT(ZTF3="":"",ZTF3<1:"",ZTF3>10:"",1:ZTF3\1)
+10 SET ZTF4=$PIECE(ZTDEF,U,4)
SET ZTF4=$SELECT(^%ZOSF("OS")["VAX DSM":"",^%ZOSF("OS")'["DSM":"",ZTF4="":"",ZTF4<1:"",ZTF4>3:"",1:ZTF4\1+1*8)
+11 SET ZTF5=$PIECE(ZTDEF,U,5)
SET ZTF5=ZTF5\1
+12 SET ZTF6=$PIECE(ZTS,U,7)
SET ZTF6=$SELECT(ZTF6:"////"_ZTF6,1:"")
+13 SET ZTF7=$PIECE(ZTDEF,U,6)
SET ZTF7=+ZTF7
+14 KILL DD,DO
SET DIC="^%ZIS(14.7,"
SET DIC(0)="L"
SET X=ZTPAIR
DO FILE^DICN
+15 SET DIE=DIC
SET DA=$PIECE(Y,U)
+16 SET DR="1////"_ZTF1_";2////"_ZTF2_";3////"_ZTF3_";4////"_ZTF4_";5////"_ZTF5_";6"_ZTF6_";7////"_ZTF7
+17 IF ZTF6=""
WRITE !!,"For cpu-volume pair ",ZTPAIR,!,"-------------------------------"
+18 KILL DD
DO ^DIE
IF ZTF6=""
WRITE !
+19 WRITE "."
+20 QUIT
+21 ;
MGR ;EVERY--ensure MGR ucis are filed
+1 IF ZTM=""
QUIT
+2 SET ZTN=$PIECE(ZTS,U)
+3 SET ZTI=$ORDER(^%ZIS(14.6,"AV",ZTN,ZTM,""))
+4 IF ZTI]""
QUIT
+5 SET DINUM=$PIECE(^%ZIS(14.6,0),U,3)+1
+6 FOR ZT=0:0
IF '$DATA(^%ZIS(14.6,DINUM))
QUIT
SET DINUM=DINUM+1
+7 SET $PIECE(^%ZIS(14.6,0),U,3)=DINUM
+8 KILL DD,DO
SET DIC="^%ZIS(14.6,"
SET DIC(0)="L"
SET X=ZTM
DO FILE^DICN
+9 KILL DD
SET DIE=DIC
SET DA=$PIECE(Y,U)
SET DR="1////"_ZT1
DO ^DIE
WRITE "."
+10 KILL DINUM
QUIT
+11 ;
