cICHKSRP ;CONTROLE GELIJKHEID ROUTINES ;%ICHKSRP; [ 02/22/00  9:34 AM ]
 ;
T0 ;CONTROLE GELIJKHEID PROGRAMMA'S ;
T1 ;PLAATS BREED BLANKO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\"[] = OK   ,[] = HERNEMEN";
T2 ;Blz :;
T3 ;Routine    Systeem         Checksum   Aantal nodes;
T4 ;Totaal    ;routines vanaf lijn ;
T5 ;De systemen staan exact gelijk.;
T6 ;Schema ;Systeem;%Q-s;Uitz.;
 ;
T0F ;CONTROLE EGALITE DES PROGRAMMES ;
T1F ;PLACEZ DU PAPIER LARGE SUR L'IMPRIMAMTE ET METTEZ-LA EN MARCHE\"[] = OK   ,[] = REPRENDRE";
T2F ;Page:;
T3F ;Routine    Système         Checksum   Nombres d'indices;
T4F ;Total     ;routines dès ligne ;
T5F ;Les systèmes sont des copies identiques.;
T6F ;Schema ;Système;%Q-s;Excep.;
 ;
1 S NM1=$G(@("^"_Q_"BA(99,1)")),NM2=$G(^(2)),NM3=$G(^(3)),LOG=$G(LOG,"^|home|ZZLOG(""CHECK"",""R"")")
 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-,""[K\" D R0 I K="-"!(K=",") G YZ
 S %R="",B=130,C=38,BLZ=1 X F70 W @F80 D HDR,NL
 ;
2 F  S %R=$O(@LOG@(S,%R)) Q:%R=""  D  D NL
 . W ?1,$S(%R=0:$P($T(@("T4"_QT)),U,2),1:%R_$J("",10-$L(%R)))
 . F I=1:1:IU I $D(@LOG@(S,%R,UCS(I))) D  D NL
 .. S K=$G(^(UCS(I))) W ?11,UCS(I),"  ",$S($P(K,D):$$INTERP^cQ9($P(K,D),0,16),1:$J(K,16)),"  "
 .. I %R=0 D
 ... W $$INTERP^cQ9($P(K,D,2),0,12),$P($T(@("T4"_QT)),U,3),$P(K,D,7)
 ... W "  ",$P(K,D,3),"  ",$P(K,D,4)," -> ",$P(K,D,5),"  ",$P(K,D,6)
 ... I $P(UCS(I),",")="MGR" D
 .... D NL W ?38,$P($T(@("T6"_QT)),U,3),": ",$G(@LOG@(S,0,UCS(I),"SYS"))
 .... W ?82,$P($T(@("T6"_QT)),U,4),": ",$G(@LOG@(S,0,UCS(I),"%Q"))
 ... I $L($G(@LOG@(S,0,UCS(I),"EX"))) W !?38,$P($T(@("T6"_QT)),U,5)," : ",@LOG@(S,0,UCS(I),"EX")
 .. I %R'=0 S K=$P(K,D,2) F  S L=$E(K,1,B-C),K=$E(K,B-C+1,$L(K)) Q:'$L(L)  W L I $L(K) D NL W ?C
 . I $O(@LOG@(S,0))="" W !!!?1,$P($T(@("T5"_QT)),U,2)
 ;
3 W # X F71
 ;
YZ Q
 ;
HDR S K=$P($T(@("T0"_QT)),U,2) W !,NM1,?B-8,$P($T(@("T2"_QT)),U,2),$J(BLZ,3)
 W !,NM2,$C(13) S $X=0 W ?B\2-$L(K),@F82,K,@F83,$C(13) S $X=0 W ?B-8,DT,!,NM3,?B-7,TD,! W:$D(ISO) ?B-$L(ISO),ISO S $Y=0
 W !,$P($T(@("T6"_QT)),U,2),S," -> " F II=1:1:IU W UCS(II),$S(II'=IU:" - ",1:"")
 S K="",$P(K,"-",B)="-" W !,$P($T(@("T3"_QT)),U,2),!,K,! S K=""
 Q
 ;
NL W ! I $Y-4>LNMAX W # S BLZ=BLZ+1 D HDR
 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 ; 13.03.00 - 17 u 31 * V7.3