cANU111	;Uitvoeren selecties ;%ANU11 ; [ 09/11/97  11:41 AM ]
	G 1
	;
T0	;Uitvoeren selecties ;
T1	;Einde\Fin\Ende\End;
	;
T0F	;Exécution des sélections ;
T1F	;Einde\Fin\Ende\End;
	;
	; Opbouw nieuwe selectie
1	N TAB
	S $ZT="TRAP^cAN000"
	K A,B S HREF=$NA(^HULP(boot,$J+.99),2),TEL=0
11	S UZA="SORT",UZB=0
13	S UZB=UZB+1 I $D(@SELREF@(UZA,UZB)) S A(UZB)=^(UZB,"TYPE") G 13
15	S A=UZB,A(A)=1 F I=1:1:A S B(I)=""
	;
2	S I=1
21	S B(I)=$O(@HREF@(B(I)),A(I))
23	I B(I)="" S HREF=$NA(@HREF,I),I=I-1 G 21:I,3
25	I I<A S HREF=$NA(@HREF@(B(I)),I+2),I=I+1 G 21
27	S UI1=^(B(I)),TEL=TEL+1,^UTILI(Q,"SEL",SEL,TEL)=UI1 G 21
	;
	; Update signalitiek
3	K A,B,^HULP(boot,$J+.99)
31	D DMS^cAN000("UQC","USC","SEL",$G(%bg)) S UI1=SEL,UREF=SELREF
33	S SW3=1,U2(1)=$P($T(@("T1"_QT)),U,2),UFU="W",USL=D D R^cAN000 M A=B
	; D B^cAN000(105,$H) S $P(B(1),D,6)=TEL,$P(B(1),D,7)=TOT
	; D U^cAN000
	; KO - 23.02.06 - Ook wegschrijven datum laatst uitgevoerd.
37	S TAB(105)=$H,TAB(106)=TEL,TAB(107)=TOT,TAB(125)=DT
38	D B^cAN220("SEL",0,UI1,"TAB")
	;
YZ	Q
	;
ZZ	; 25.04.06 - 15 u 44 * V8.07