cQCTKV	;Convert cLOG(CS,CTK0) ;cQCTKV;
	Q
	;
1	S I=""
	F  S I=$O(^cLOG($ZU(5),"CTK0","AUTO",I)) Q:I=""  D
	. I $D(^cLOG($ZU(5),"CTK0","AUTO",I))=11 S $P(^(I),"\",6)="",$P(^(I),"\",7)="",$P(^(I),"\",8)="" Q
	. S J="" D
	.. F  S J=$O(^cLOG($ZU(5),"CTK0","AUTO",I,J)) Q:J=""  I J?1.N S K="" D
	... F  S K=$O(^cLOG($ZU(5),"CTK0","AUTO",I,J,K)) Q:K=""  S Data=^(K) D
	.... S ^cLOG($ZU(5),"CTK0","AUTO",I,boot,J,K)=Data
	.... U 0 W !,$ZR," = ",Data
	.... K ^cLOG($ZU(5),"CTK0","AUTO",I,J,K)
	;
YZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9