cQQSYS ;Controle ^cQSYS ;cQQSYS; [ 04/28/01  7:38 AM ]
 ;
T0 ;Controle ^cQSYS ;
T1 ;Er werden geen fouten gevonden\"[] = ok";
T2 ;Gelieve de fouten manueel te corrigeren\"[] = ok";
T3 ;Ongeldig IP-adres;
T4 ;Ongeldige NetBiosName;
T5 ;Ongeldig MAC-adres;
 ;
T0F ;Contrôle ^cQSYS ;
T1F ;On n'a pas trouvé des erreurs\"[] = ok";
T2F ;Veuillez corriger les erreurs manuellement\"[] = ok";
T3F ;Addresse IP incorrect;     
T4F ;NetBiosName incorrect;
T5F ;Addresse MAC incorrect;
 ;
1 D INI^cQ6 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 S %SYS="^cQSYS(CFG,""DDB"",PRT)",CFG=$$CONFIG^cQ9
 S $ZT="ERR"
 ;
 S PRT=0,FP=420 W @FS S FP=379 W @F S $Y=3,SW=0
 K ^HULP(boot,$J),^($J+.01),^($J+.02),^($J+.03),^($J+.04)
 F  S PRT=$O(@%SYS) Q:PRT=""  S A=@%SYS D
 . F I=2:1:4 S C=$P(A,",",I) I $L(C) D
 .. S B="^HULP(boot,I/100+$J,$P(A,"","",I))" I $D(@B) S @B=@B_D_PRT Q
 .. S @B=PRT
 ;
2 S A=""
 F I=2:1:4 D
 . F  S A=$O(^HULP(boot,I/100+$J,A)) Q:A=""  S B=^(A) D
 .. I (I=2&(A'?3(1.3N1".")1.3N))!(I=3&(A'?.ANP))!(I=4&(A'?5(2AN1"-")2AN)) D
 ... W !?2,B," = ",A," -> ",$P($T(@("T"_(I+1)_QT)),U,2) S SW=1
 .. I B[D S SW=1 D
 ... W !?2,A," = ",B," -> " F J=1:1:$L(B,D)-1 W $J($P(A,D,J),4)
 .. I $Y>19 S R="K\22\3\[] = ok\\1\\K=""""\" D R0 S $Y=4,FP=2079 W @F,@F1
 ;
3 S FP=124 W @FS
 S R="K\22\3\"_$P($T(@("T"_(SW+1)_QT)),U,2)_"\1\\""-""[K\" D R0
 ;
YZ K ^HULP(boot,$J),^($J+.01),^($J+.02),^($J+.03),^($J+.04)
 Q
 ;
ERR D E^cA612 W *27,"[1;24r" w !!,$ZE,!! Q
 ;
CLEAN S I=""
 F  S I=$O(^cQSYS(0,"DDB",I)) Q:I=""  Q:I>8999  D
 . S A=^(I),J=I,IPA=$P(A,",",2),NBNA=$P(A,",",3),MACA=$P(A,",",4)
 . I '$L(IPA),'$L(NBNA),'$L(MACA) K ^(I) Q
 . F  S J=$O(^cQSYS(0,"DDB",J)) Q:J=""  Q:J>8999  D
 .. S B=^(J),IPB=$P(B,",",2),NBNB=$P(B,",",3),MACB=$P(A,",",4)
 .. I '$L(IPB),'$L(NBNB),'$L(MACB) K ^(B) Q
 .. I IPA=IPB,NBNA=NBNB,MACA=MACB W !,"All the same: ",I," = ",J," = ",A
 .. I IPA=IPB S $P(^cQSYS(0,"DDB",J),",",2)=""
 .. I NBNA=NBNB S $P(^cQSYS(0,"DDB",J),",",3)=""
 .. I MACA=MACB S $P(^cQSYS(0,"DDB",J),",",4)=""
 S I="" F  S I=$O(^cQSYS(0,"DDB",I)) Q:I=""  Q:I>8999  D
 . I ^(I)="TELN,"!(^(I)="TELN,,")!(^(I)="TELN,,,") W !,"Leeg: ",I," = ",^(I)
 Q
 ;
FNBN S I=""
 F  S I=$O(^cQSYS(0,"DDB",I)) Q:I=""  Q:I>9999  D
 . S NBN=$P(^(I),",",3)
 . I NBN?.E1L.E S NBN=$$UCASE(NBN),$P(^(I),",",3)=NBN
 . I $L(NBN),$E(NBN,1,3)'="PDT" S ^cQSYS(0,"FIXED","NBN",NBN)=I
 Q
 ;
FIP S I=""
 F  S I=$O(^cQSYS(0,"DDB",I)) Q:I=""  Q:I>9999  D
 . S IP=$P(^(I),",",2) I $L(IP),$E(IP,1,3)'="123" S ^cQSYS(0,"FIXED","IP",IP)=I
 Q
 ;
UCASE(X) ;Convert string to uppercase
 Q $TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
 ;
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 ; 24.08.01 -  9 u 19 * Cache-r3.1.8