cITAB	;Cache 5   <tab> als label-delimiter in routines ;cITAB;  ; Compiled January 5, 2004 15:33:58
	;
1	I '$$TEST() G YZ
	D KERNEL^%RSET G YZ:$O(^UTILITY($J,0))=""
	S R=0 F  S R=$O(^UTILITY($J,R)) Q:R=""  D 1ROUT(R,1)
YZ	Q
	;
1ROUT(R,NOTEST)	; kan opgeroepen worden voor 1 routine
	I '$G(NOTEST),'$$TEST() G 1ROUTZ
	I $e(R)="^" s R=$E(R,2,$L(R))
	W !,R
	I $E(R)="%" W "-> %-prog. worden niet aangepast" G 1ROUTZ
	S SW=0,L=$G(^ROUTINE(R,0,0)) I L="" W "-> bestaat niet" G 1ROUTZ
	F I=1:1:L S A=^ROUTINE(R,0,I) I A'[$C(9) D
	. S B=$P(A," ",1)_$C(9)_$P(A," ",2,$L(A," "))
	. S ^(I)=B
	. S SW=1
	I 'SW W "-"
1ROUTZ	Q
	;
TEST()	I '($P($P($ZV,")",2),"(",1)[" 5.") W !!,"This is not Caché Version 5",!!,"This is version ",$ZV,! Q 0
	Q 1
	;
ZZ	; 18.05.04 - 15 u 48 * V8