cICHKCCH(S) ;Compare data aan de hand van checksum ;%ICHKCCH [ 06/13/97  4:17 PM ]
 ;
1 H 10
 S D="\",U=";"
 D MASTER^cQ5
 ;
2 S LOG="^|home|ZZLOG(""CHECK"",""G"")",%LOG="^cLOG(cs,""CHECK"",""G"")"
 S home=$G(@%LOG@(S,"HOME")),UCIL=$G(@%LOG@(S,"UCI"))
 S IU=0 K UCS
 F I=1:1:$L(UCIL,D) S K=$P(UCIL,D,I) I $L(K) S IU=IU+1,UCS(IU)=K
 I '$$LOCK^cICHKGLO G YZ
 ;
3 S %G=0 K ^HULP(boot,$J+.01)
 F  S %G=$O(@LOG@(S,%G)) Q:%G=""  D
 . F I=1:1:IU S A(UCS(I))=$P($G(@LOG@(S,%G,UCS(I))),D,1,2)
 . K UCI F II=2:1:IU I A(UCS(1))'=A(UCS(II)) S UCI=$G(UCI,UCS(1))_D_UCS(II)
 . I $L($G(UCI)) S ^HULP(boot,$J+.01,UCI,%G)=""
 ;
4 S UCIL="",VNR=0
 F  S UCIL=$O(^HULP(boot,$J+.01,UCIL)) Q:UCIL=""  D
 . S (G,%G)=""
 . F  S %G=$O(^HULP(boot,$J+.01,UCIL,%G)) Q:%G=""  S G=G_$S($L(G):D,1:"")_%G
 . S VNR=VNR+1
 . J START^cICMPSG(S_"_CHKS"_VNR,1,home,UCIL,G)
 . S @LOG@(S,0,"COMPARE",VNR)=S_"_CHKS"_VNR_U_UCIL_U_G
 . F I=1:1 S %G=$P(G,D,I) Q:'$L(%G)  D
 .. F J=1:1 Q:'$L($P(UCIL,D,J))  I $D(@LOG@(S,%G,$P(UCIL,D,J))) S $P(@LOG@(S,%G,$P(UCIL,D,J)),D,3)=$P(@LOG@(S,%G,$P(UCIL,D,J)),D,3)_VNR_","
 ;
 K ^HULP(boot,$J+.01)
 ;
YZ D UNLOCK^cICHKGLO Q
 ;
ZZ ; 28.08.97 - 11 u 02 * V6.3.02