cANU303	;Kopiëren lijn ;%ANU30 ; [ 05/30/96  11:12 AM ]
	G 1
	;
T0	;Kopiëren lijn ;
T1	;Dit etiket is opgebouwd met een ander bestand   [] = ok;
T2	;Kopiëren uit etiket : ;
T3	;Te kopiëren lijn;
T4	;x[] = bepaalde lijn   x y z[] = meervoudige selectie   D[] = detail;
T5	;.[] = alle lijnen;
	;
T0F	;Copiage d'une ligne ;
T1F	;Cette étiquette est liée avec un autre fichier   [] = ok;
T2F	;Copier depuis étiquette : ;
T3F	;Ligne à copier;
T4F	;x[] = ligne spécifique   x y z[] = multiple sélection   D[] = détail;
T5F	;.[] = toutes les lignes;
	;
T0D	;Kopieren Linie ;
T1D	;Dit etiket is opgebouwd met een ander bestand   [] = ok;
T2D	;Kopieren aus Etikett : ;
T3D	;Zu kopieren Linie;
T4D	;x[] = bestimmte Linie   x y z[] = mehrfache Selektion   D[] = detail;
T5D	;.[] = alle Linien;
	;
	; keuze + controle selektie
1	S J1=UI1
11	W /CUP(1,2),$P($T(@("T2"_QT)),U,2),/WCMD,/CUP(1,KMAX-$L(OM)-1),OM
13	S UI1=$$^cANSYN("ETI") I K="-" G YZ
15	S K=^(UI1,0) W /CUP(1,2),$P($T(@("T2"_QT)),U,2),$TR($P(K,D,26,27),D," ")," ",$P(K,D,9)
17	I $P(K,D,2)'=Q1 D ER^cAN000($P($T(@("T1"_QT)),U,2)) G 11
	;
	; tonen detail
2	D ^cANU302
	;
	; keuze lijnen
3	S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\C1\20\\$L(K)\\\1" D R0
31	I K="-"!(K=",") G 11
33	I K="D" G 2
35	K USEL D  I $L($O(USEL(""))) G 4
	. N S1,S2
	. S S1=$O(@UREF@(9999),-1)
	. I K="." F S2=1:1:S1 S USEL(S2)=""
	. I K'="." F  S S2=+$P(K," "),K=$P(K," ",2,99) D  Q:K=""
	.. I S2,S2'>S1 S USEL(S2)=""
39	G 3
	;
	; kopiëren
4	K ^HULP(boot,$J)
41	F  S UZA=$O(USEL("")) Q:UZA=""  D  K USEL(UZA)
	. N S1 S S1=$O(^HULP(boot,$J,""),-1)+1
	. M ^HULP(boot,$J,S1)=@UREF@(UZA)
43	S UI1=J1 D
	. N S1 F  S S1=$O(^HULP(boot,$J,"")) Q:S1=""  D  K ^HULP(boot,$J,S1)
	.. S UZA=$O(@UREF@(9999),-1)+1
	.. M @UREF@(UZA)=^HULP(boot,$J,S1)
	;
YZ	S UI1=J1 K J1,USEL W /CUP(1,1),/WCMD G ^cANU301
	;
C1	W !?2,$P($T(@("T4"_QT)),U,2),!?2,$P($T(@("T5"_QT)),U,2) Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 22.06.04 - 16 u 32 * V8