cQHIST	;Update history cQ ;cQHIST;
	;
1	N I,K,R,REL,RELDP,RELSW,X
	S REL=$P($T(ZZ),"-r",2),RELDP=$TR(REL,"."),RELSW=1
	W !!,"Update History cQ ",!
	F K=1:1:9 S R=$T(+0)_K Q:'$D(^$R(R))  D
	. F I=2:1 S X=$T(@("+"_I_"^"_R)) Q:$P(X," ")="YZ"!'$L(X)  S:X[REL RELSW=0 D WL(X)
	W !
	I RELSW F I=3:1 S X=$T(@("+"_I_"^cQUP"_RELDP)) Q:$P(X,";",2)="Update"!'$L(X)  D WL(X)
	W !
	;
YZ	Q
	;
WL(X)	S X=$G(X) N J,L
	F J=2:1:$L(X,";") W ?$S(J=4:30,J=3:12,1:2),$TR($P(X,";",J),$C(9))
	I '($Y#21) W !,"[] = to continue: .",$C(8) R L F L=0:1:$X W $C(32,8,8)
	E  W !
WLZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9