cQVGSG	;Check if globals are identical ;cQVGSG;
	G 1
	;
	;
T0	;CONTROLE GELIJKHEID BESTANDEN ;
T1	;Berekening voor ; niet ten einde.; niet gestart.;
T2	;Even geduld...;
T3	;Bestand        Database                  Checksum   Aantal nodes   Vglsch.;
T4	;Totaal    ;bestanden;
T5	;De systemen staan exact gelijk.;
T6	;CONTROLE OP BESTANDEN OPSTARTEN\".[] = ja   -[] = neen   P[] = drukken";
T7	;GELIEVE EERST ^cLOG(";","CHECK","G") OP TE ZETTEN;
T8	;Namespace [;] werd niet gevonden.;
T9	;Schema ;
T10	; [] = vervolg: ;
T11	;HUIDIG SYSTEEM:;
T12	;Gelieve de resultaten te bekijken op systeem ;
	;
T0F	;CONTROLE EGALITE DES FICHIERS ;
T1F	;Calculation pour ; pas terminée.; pas démarrée.;
T2F	;Un instant...;
T3F	;Fichier        Database                  Checksum   Nombres d'ind. Sch.Comp.;
T4F	;Total     ;fichiers;
T5F	;Les systèmes sont des copies identiques.;
T6F	;DEMARRER LE CONTROLE DES FICHIERS\".[] = oui   -[] = non   P[] = imprimer";
T7F	;VEUILLEZ D'ABORD INITIALISER ^cLOG(";","CHECK","G");
T8F	;Namespace [;] n'a pas été trouvé.;
T9F	;Schema ;
T10F	; [] = suite: ;
T11F	;SYSTEME ACTUEL:;
T12F	;Veuillez verifier les resultats sur systeme ;
	;
T0E	;CHECKSUM CALCULATION GLOBALS ;
T1E	;Calculation for ; not finished.; not started.;
T2E	;One moment...;
T3E	;Global         Database                  Checksum   Number nodes   Vglsch.;
T4E	;Total     ;globals;
T5E	;The systems are completely identical.;
T6E	;START THE CHECKSUM CALCULATION\".[] = yes   -[] = no   P[] = print";
T7E	;ENTER DATA INTO ^cLOG(";","CHECK","G") FIRST;
T8E	;Namespace [;] has not been found.;
T9E	;Scheme ;
T10E	; [] = next: ;
T11E	;CURRENT SYSTEM:;
T12E	;Please check the results on system ;
	;
T0D	;CHECKSUM CALCULATION GLOBALS ;
T1D	;Calculation for ; not finished.; not started.;
T2D	;One moment...;
T3D	;Global         Database                  Checksum   Number nodes   Vglsch.;
T4D	;Total     ;globals;
T5D	;The systems are completely identical.;
T6D	;START THE CHECKSUM CALCULATION\".[] = yes   -[] = no   P[] = print";
T7D	;ENTER DATA INTO ^cLOG(";","CHECK","G") FIRST;
T8D	;Namespace [;] has not been found.;
T9D	;Scheme ;
T10D	; [] = next: ;
T11D	;CURRENT SYSTEM:;
T12D	;Please check the results on system ;
	;
1	D INI^cQ6 K S,G D HFD
	I $S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U"))'=$S($L($G(^cLOG($ZU(5),"SYSTEM","SLAVE"))):$G(^cLOG($ZU(5),"SYSTEM","SLAVE")),1:$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U"))),$ZCVT($ZU(110),"U")=$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U")) D  Q
	. S FP=501 W @F,@F1," ",$P($T(@("T12"_QT)),U,2),$S($L($G(^cLOG($ZU(5),"SYSTEM","SLAVE"))):$G(^cLOG($ZU(5),"SYSTEM","SLAVE")),1:$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U")))
	. S R="K\24\2\[] = ok\\1\" D R0
	S ZZLOG="^|home|ZZLOG(""CHECK"",""G"")",%LOG="^cLOG("""_$ZU(5)_""",""CHECK"",""G"")"
	I '$D(@%LOG) S R=$P($T(@("T7"_QT)),U,2)_$ZU(5)_$P($T(@("T7"_QT)),U,3) D MS G YZ
	S S="" F  S S=$O(@%LOG@(S)) Q:S=""  D
	. S home=$G(@%LOG@(S,"HOME")),DB=$G(@%LOG@(S,"DATABASE")),G=$G(@%LOG@(S,"GLOBALS"),"*")
	. S FP=301 W @F,@F1," ",$P($T(@("T9"_QT)),U,2),S," -> ",$TR(G,D," ")
	. I '$ZU(90,10,home) S R=$P($T(@("T8"_QT)),U,2)_home_$P($T(@("T8"_QT)),U,3) D MS Q
	. S DBI=0 K DBS
	. F I=1:1:$L(DB,D) S K=$P(DB,D,I) I $L(K) S R=$P(K,"^",2) I (R=$ZCVT($ZU(110),"U"))!(R=$S($ZCVT($ZU(110),"U")=$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U")):$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER","ALIAS"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER","ALIAS")),1:""),$ZCVT($ZU(110),"U")=$S($L($G(^cLOG($ZU(5),"SYSTEM","SLAVE"))):$G(^cLOG($ZU(5),"SYSTEM","SLAVE")),1:$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U"))):$S($L($G(^cLOG($ZU(5),"SYSTEM","SLAVE","ALIAS"))):$G(^cLOG($ZU(5),"SYSTEM","SLAVE","ALIAS")),1:""),1:""))!(R=$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER","ALIAS"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER","ALIAS")),1:"")) S DBI=DBI+1,DBS(DBI)=K
	. I DBI D LOCK,SHOW:'SW1,UNLOCK,ASK:'SW1
	S FP=2301 W @F S FP=124 W @FS S FP=2301 W @F
	G YZ
	;
YZ	Q
	;
HFD	S K=$P($T(@("T0"_QT)),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
	S FP=250 W @F,@F92,$P($T(@("T11"_QT)),U,2)," ",$ZCVT($ZU(110),"U"),@F93
	I $L($G(S)),$L($G(G)) S FP=301 W @F,@F1," ",$P($T(@("T9"_QT)),U,2),S," -> ",$TR(G,D," ")
HFDZ	Q
	;
LOCK	S (SW1,SW2)=0
	F I=1:1:DBI D
	. I '$D(@ZZLOG@(S,0,DBS(I))) W !?2,$P($T(@("T1"_QT)),U,2)_DBS(I)_$P($T(@("T1"_QT)),U,4) S SW2=1
	. I '$D(@ZZLOG@(S)) W !?2,$P($T(@("T1"_QT)),U,2)_DBS(I)_$P($T(@("T1"_QT)),U,3) S SW1=1 Q
	I SW1 S R="K\24\2\[] = ok\\1\" D R0
LOCKZ	Q
	;
UNLOCK	S DBI=$G(DBI) F I=1:1:DBI L -@ZZLOG@(S,0,DBS(I))
UNLOCKZ	Q
	;
START(S,dummy)	;Checksum Globals for scheme S
	;
	S %UCI=$ZU(5),D="\",U=";" K C
	S ZZLOG="^|home|ZZLOG(""CHECK"",""G"")"
	S %LOG="^cLOG("""_$ZU(5)_""",""CHECK"",""G"")"
	S home=$G(@%LOG@(S,"HOME")),DB=$G(@%LOG@(S,"DATABASE")),G=$G(@%LOG@(S,"GLOBALS"),"*")
	S SW=0
	F I=1:1:$L(DB,D) S DBS=$P(DB,D,I) I $L(DBS),($P(DBS,"^",2)=$ZCVT($ZU(110),"U"))!($P(DBS,"^",2)=$S($ZCVT($ZU(110),"U")=$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U")):$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER","ALIAS"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER","ALIAS")),1:""),$ZCVT($ZU(110),"U")=$S($L($G(^cLOG($ZU(5),"SYSTEM","SLAVE"))):$G(^cLOG($ZU(5),"SYSTEM","SLAVE")),1:$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U"))):$S($L($G(^cLOG($ZU(5),"SYSTEM","SLAVE","ALIAS"))):$G(^cLOG($ZU(5),"SYSTEM","SLAVE","ALIAS")),1:""),1:"")) S SW=1 Q
	I SW D
	. L +@ZZLOG@(S,0,$ZU(5),$ZCVT($ZU(110),"U")):1 E  Q
	. D ^cQVGGLO(home,DB,G,S)
	. L -@ZZLOG@(S,0,$ZU(5),$ZCVT($ZU(110),"U"))
	D IN^cQSW(%UCI)
STARTZ	Q   
	;
ASK	D UNLOCK S SW1=1
	S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\"".-P""[K&$L(K)\\\1" D R0 Q:K="-"
	I K="P" D ^cQVGSGP Q
	D START(S)
ASKZ	Q
	;
SHOW	S FP=402 W @F,@F1,$P($T(@("T2"_QT)),U,2),!!
	K ERROR F I=1:1:DBI I $P($G(@ZZLOG@(DBS(I),0)),D)'?1.N S ERROR=1
	;
	S (%G,K)="",$P(K,"-",78)="-",FP=402 W @F,@F1,$P($T(@("T3"_QT)),U,2),!?1,K,!
	S FP=508 W @F," ",@F92 F II=1:1:DBI W DBS(II) W:II'=DBI " - "
	W @F93," " S FP=623 W @FS S FP=580 W @F,@F1,! S $Y=6
	I I>1 W !
	I $Y>20 W ?1,$P($T(@("T10"_QT)),U,2),@F2 R K S $Y=6 W $C(13) S $X=0 I K="-" G SHOWV
	;
	S (%G,K)="",$P(K,"-",78)="-",FP=402 W @F,@F1,$P($T(@("T3"_QT)),U,2),!?1,K,!
	S FP=623 W @FS S FP=580 W @F,@F1,! S $Y=6
	I I>1 W !
	I $Y>20 W ?1,$P($T(@("T10"_QT)),U,2),@F2 R K S $Y=6 W $C(13) S $X=0 I K="-" G SHOWV
	;
	F  S %G=$O(@ZZLOG@(S,%G)) Q:%G=""  D  Q:K="-"
	. W ?1,$S(%G=0:$P($T(@("T4"_QT)),U,2),1:%G_$J("",10-$L(%G)))
	. F I=1:1:DBI I $D(@ZZLOG@(S,%G,DBS(I))) S K=^(DBS(I)) D
	.. W ?12,DBS(I),!?40 I $P(K,D)'?1.N W $P(K,D)
	.. I $P(K,D)?1.N D
	... W $$INTERP^cQ9($P(K,D),0,16),"  ",$$INTERP^cQ9($P(K,D,2),0,$S(%G=0:6,1:12))
	... W "   ",$P($P(K,D,3),",",1,$L($P(K,D,3),",")-1)
	.. I %G=0 D
	... I $P(K,D)?1.N W $P($T(@("T4"_QT)),U,3)
	... W !?33,$P(K,D,3),"  ",$P(K,D,4)," -> ",$P(K,D,5),"  ",$P(K,D,6)
	.. W !
	. I $Y>20 W ?1,$P($T(@("T10"_QT)),U,2),@F2 R K S $Y=6 W $C(13) S $X=0
	. I '$G(ERROR),$O(@ZZLOG@(S,0))="" W !!!?1,$P($T(@("T5"_QT)),U,2)
SHOWV	S FP=124 W @FS
	I SW1 S R="K\24\2\[] = ok\\1\" D R0
SHOWZ	Q
	;
MS	S FP=2403 W @F,@F2,@F4,R,"  [] = ok ",@F5,@F0 R K
MSZ	Q
	;
R0	S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A	S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z	S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9