IUPD01 ;Update naar Vx.xx ;IUPD [ 04/24/2000  8:38 AM ]
 ; enkel maar vanaf 7.11 en hoger
 ;
YZ Q
 ;
TNC(G) ; Samenstellen ^HULP(boot,$J, met bestanden die niet gecopieerd worden
 F %J=1:1:$L(G,U) S K=$P(G,U,%J) I $L(K) D
 . I K'["(",K["-" D  Q
 .. S %G=$O(@("^"_$P(K,"-")),-1)
 .. F  S %G=$O(@("^"_%G)) Q:%G=""!(%G]$P(K,"-",2))  D SET(%G)
 . I K'["*" S %G=K D PROC(%G) Q
 . I $E(K,$L(K))="*"  D
 .. S K=$E(K,1,$L(K)-1),%G=$O(@("^"_K),-1)
 .. F  S %G=$O(@("^"_%G)) Q:%G=""!($E(%G,1,$L(K))]$E(K,1,$L(K)))  I $E(%G,1,$L(K))=K D SET(%G)
 . I $E(K)="*"  S %G="%" F  S %G=$O(@("^"_%G)) Q:%G=""  I "*"_$E(%G,$L(%G)-$L(K)+2,$L(%G))=K D SET(%G)
 ;
 Q
 ;
PROC(%GN)          ;
 I '$F(%GN,"(,")&'$F(%GN,",,")&'$F(%GN,"-") D SET(%G) Q
 N %GSD,IND,K,i,%GEN,OGN
 I $E(%GN)'="^" S %GN="^"_%GN
 S OGN=%GN
 S %GSD=$TR($P($P(%GN,"(",2,99),")"),"""","")
 S %GN=$P(%GN,"("),IND=1
 F i=1:1:$L(%GSD,",") D
 . S K=$TR($P(%GSD,",",i),"""","")
 . I K["-" S %GEN(i)=K,%GEN=i Q
 . I $L(K) S %GEN(i)=K_"-"_K,%GEN=i I $E(%GN,$L(%GN))
 . I $L(K),i=1!($L($P($P(%GN,"(",2),",",i-1))&$L($P(%GSD,",",i-1))&($P(%GSD,",",i-1)'["-")) S %GN=%GN_$S(i=1:"(",1:",")_""""_K_"""",IND=IND+1
 I %GN["(" S %GN=%GN_")"
 S K="" I $L($P($G(%GEN(IND)),"-")) S K=$O(@%GN@($P($G(%GEN(IND)),"-")),-1)
 S (%ST,%S1)=0
 F  S %GN=$NA(@%GN,IND-1),K=$O(@%GN@(K)) Q:K]]$P($G(%GEN(IND)),"-",2)&$D(%GEN(IND))!'$L(K)  D
 . S %GN=$NA(@%GN@(K))
 . D SET($E(%GN,2,999))
 Q
 ;
SET(R) I $F(R,"("),$E(R,$L(R))'=")" S R=R_")"
 S ^HULP(boot,$J,R)=""
 Q
 ;
ZZ ; 30.06.00 - 15 u 23 * V7.4