cQCTKV ;Convert Clog(CS,CTK0) ;cQCTKV; [ 02/21/01  4:28 PM ]
 ;
 ;
1 D MASTER^cQ5 s I=""
 F  S I=$O(^cLOG(cs,"CTK0","AUTO",I)) Q:I=""  D
 . I $D(^cLOG(cs,"CTK0","AUTO",I))=11 S $P(^(I),"\",6)="",$P(^(I),"\",7)="",$P(^(I),"\",8)="" Q
 . S J="" D
 .. F  S J=$O(^cLOG(cs,"CTK0","AUTO",I,J)) Q:J=""  I J?1.N S K="" D
 ... F  S K=$O(^cLOG(cs,"CTK0","AUTO",I,J,K)) Q:K=""  S Data=^(K) D
 .... S ^cLOG(cs,"CTK0","AUTO",I,boot,J,K)=Data
 .... U 0 W !,$ZR," = ",Data
 .... K ^cLOG(cs,"CTK0","AUTO",I,J,K)
 Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8