cANU11	;Uitvoeren selecties ;%ANU11 ; [ 12/17/99  12:11 PM ]
	;
T0	;Uitvoeren selecties ;
T1	; Uitvoeren selecties ;
T2	;;;Volgorde;
T3	;Uitvoeren selectie\"[] = onmiddellijk   .[] = via uitgestelde selecties";
T4	;Deze selectie werd nog niet uitgevoerd!;Deze selectie werd reeds uitgevoerd.;
T5	;Begin : ;Einde : ;Geselecteerd : ;
T6	;Even geduld ... de selectie wordt opnieuw uitgevoerd ... ;
	;
T0F	;Exécution des sélections ;
T1F	; Exécution des sélections ;
T2F	;;;Ordre;
T3F	;Exécution sélection\"[] = immédiatement   .[] = via sélections différées";
T4F	;Cette sélection n'a pas encore été executée!;Cette sélection a déja été ececutée.;
T5F	;Début : ;Fin   : ;Nombre sélectionné : ;
T6F	;Veuillez patienter ... la sélection est réexécutée ... ;
	;
T0D	;Ausführen Selektionen ;
T1D	;Ausführen Selektionen ;
T2D	;;;Reihenfolge;
T3D	;Ausführen Selektion\"[] = sofort   .[] = via aufgeschobene Selektion";
T4D	;Diese Selektion ist noch nicht aufsgeführt!;Diese Selektion ist schon ausgeführt.;
T5D	;Begin : ;Ende  : ;Selektiert : ;
T6D	;Moment bitte ... Die Selektion wird erneut ausgeführt ... ;
	;
	; Titel + alg.init
1	;D O^cA612(2,1,20,80,1,0,1,1),T^cA612($P($T(@("T1"_QT)),U,2),0,0,7,1,1) ;10.03.00
	D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T1"_QT)),U,2),0,0,7,1,1)
11	D DMS^cAN000("UQC","USC","SEL") G YZ:UQC=""!(USC=""),YZ:'$D(^DMC(UQC,USC))
13	S UREF=^(USC,"DATA","REF"),USL=D,SW3=1,SW1=0
	;
	; Keuze selectie
2	I SW1 L -@UREF S SW1=0
21	S KEU="" S UI1=$$^cANSYN("SEL") I K="-" G YZ
23	D R^cAN000 M A=B I $P(B(1),D,30)=2 G 2
	;
	; Gegevens tonen
3	D DMS^cAN000("UQC","USC","SEL") K UTOP X ^DMC(UQC,USC,"LOGGING","TOP")
31	W /CUP(2,2),@F6,UTOP(1),@F9,/CUP(2,15),": ",UTOP(1.1),@F1
33	I 'SW1 S SW1=1 L +@UREF:2 E  D BUSY^cAFA1 G 2
35	W /CUP(4,2),@F6,UTOP(2),@F9,/CUP(4,15),": ",UTOP(2.1)
37	S I=$P(B(1),D,2),J=$P(^DMS(Q,I),D,2),I=$P(^(I),D) D
	. W /CUP(5,2),@F6,$P($T(@("T2"_QT)),U,4),@F9,/CUP(5,15),": ",$P(^DMC(I,J,"INDEX",$P(B(1),D,3),"TAAL",$E(QT_"N")),D)
	S I=''$P(B(1),D,5) W /CUP(7,3),$P($T(@("T4"_QT)),U,2+I) I I D
	. W /CUP(9,3),$P($T(@("T5"_QT)),U,2),$$HD^cAFA1($P(B(1),D,4))," - ",$$HT^cAFA1($P(B(1),D,4),1)
	. W /CUP(10,3),$P($T(@("T5"_QT)),U,3),$$HD^cAFA1($P(B(1),D,5))," - ",$$HT^cAFA1($P(B(1),D,5),1)
	. W /CUP(11,3),$P($T(@("T5"_QT)),U,4),$P(B(1),D,6)," / ",$P(B(1),D,7)
39	I KEU="-" G 2
	;
	; Uitvoeren ?
4	S R="KEU\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-.""[K" D R0 G 2:K="-"
41	I K="." D INT(UI1,"O") G YZ
43	B 1 D ^cANU110 S KEU="-" G 23
	;
YZ	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
	; uitgestelde selecties
INT(UI1,SW)	
	I SW="O" D  ; openen
	. L +^UTILI(Q,"SEL.INT"):2 E  D BUSY^cAFA1 Q
	. N R S R=$O(^UTILI(Q,"SEL.INT",""),-1)+1,^(R,0)=UI1_"\1\1\"_boot_D_$I_D_1
	. L -^UTILI(Q,"SEL.INT")
	I SW="X" D  ; uitvoeren
	. N QP,UQC,USC,UREF
	. D DMS^cAN000("UQC","USC","SEL",$G(%bg)) Q:UQC=""!(USC="")
	. Q:'$D(^DMC(UQC,USC))  S UREF=^(USC,"DATA","REF")
	. L +@UREF:2 E  D BUSY^cAFA1:'$D(F80)&'$g(%bg) Q
	. I '$G(%bg),'$D(F80) D O^cA612(24,1,1,80,0,0,0,0) W /CUP(1,3),$P($T(@("T6"_QT)),U,2)
	. S QP=0 D ^cANU110
	. I '$G(%bg),'$D(F80) D C^cA612
	. L -@UREF
INTZ	Q
	;
ZZ	; 04.11.04 - 10 u 11 * V8.02