cQSTACKT	;Test cQSTACK;
	;
	S $ZT="^cQSTACK"
	;
	S A=1,B=2
	W !,$T(+0)
	D S1
	W !,"A=",A,!,"B=",B,!,"C=",C
	S K="test" X ^cTXT(0,$E($G(QT)_"N"),250)
	;
YZ	Q
	;
S1	S $ZT="^cQSTACK"
	D S2
	S X1=13,Y1=14
	W !,"X1=",X1,!,"Y1=",Y1,!,"Z1=",Z1
S1Z	Q
	;
S2	S $ZT="^cQSTACK"
	S X2=23,Y2=24
	W !,"X2=",X2,!,"Y2=",Y2,!,"Z2=",Z2
S2Z	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9