cQ8	;More Functions ;cQ8;
	Q
	;
TZOF(H)	;last Sunday of March at 2:00:00 -> +0200
	;last Sunday of October at 3:00:00 -> +0100
	N %DD,%DM,%DN,%DX,%DY,%H,%TN,%TS
	N I,MON,DAY,SUN,OFF,HOUR
	S %DN=$G(H,$H) D 200^%DO S %TN=$G(H,$H) D ^%TO S %H=$G(H,$H)
	S MON=+$P(%DX,"/"),DAY=+$P(%DX,"/",2),HOUR=+$P(%TS,":"),OFF="+0100"
	I (MON>3)&(MON<10) S OFF="+0200"
	I MON=3 D
	. S OFF="+0100"
	. I DAY<25 Q
	. F I=25-DAY:1:31-DAY I %H+I#7=3 S SUN=DAY+I
	. I DAY<SUN Q
	. I DAY>SUN S OFF="+0200" Q
	. I HOUR>1 S OFF="+0200" Q
	I MON=10 D
	. S OFF="+0200"
	. I DAY<25 Q
	. F I=25-DAY:1:31-DAY I %H+I#7=3 S SUN=DAY+I
	. I DAY<SUN Q
	. I DAY>SUN S OFF="+0100" Q
	. I HOUR>2 S OFF="+0100" Q
TZOFZ	Q OFF
	;
TMP(X)	;Test multiple threads
	N K,%G,i,x
	K ^%utility($j) S X=$G(X,4),K=$$Fetch^%GD("*",1,0)
	S %G="" F  S %G=$O(^%utility($J,%G)) Q:%G=""  D
	. F  D  Q:x'=99  H 1
	.. F i=1:1:X L +@("^teller"_i):0 s x=$T Q:x  i i=X,'x s x=99
	.. I x'=99 D
	... S H=$R(10) U 0 W !,i," ",%G," ",H L -@("^teller"_i) J D(i,%G,H) H 0
TMPZ	Q
	;
D(T,G,H)	L +@("^teller"_T)
	H H
	L -@("^teller"_T)
DZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9