cQV5	;Modifications Caché v5 ;cQV5;
	;
START	I '($P($P($ZV,")",2),"(",1)[" 5.") W !,"Only neccessary for Caché v5" Q
	S RTN="%z" F  S RTN=$O(^ROUTINE(RTN)) Q:RTN=""  W !,RTN D T(RTN)
YZ	Q
	;
T(R)	;Change first occurrence of <space> into <tab> in routine R
	S R=$G(R) Q:'$L(R)  Q:'$D(^ROUTINE(R))
	S ATL=$G(^ROUTINE(R,0,0)) I 'ATL Q
	F I=1:1:ATL S A=$G(^ROUTINE(R,0,I)) I $L(A) D
	. I A["(" D
	.. F J=1:1:$L(A) Q:$E(A,J)=" "  I $E(A,J)="(" D  Q
	... F J=J+1:1:$L(A) I $E(A,J)=")" D  Q
	.... I $E(A,J+1)=";" S A=$E(A,1,J)_" "_$E(A,J+1,$L(A))
	. I A'[$C(9) D
	.. S B=$P(A," ")_$C(9)_$P(A," ",2,$L(A," ")),SW=1
	.. S ^ROUTINE(R,0,I)=B
TZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9