cANIMP13	;Ingave kolom; cANIMP13
	;
	G 1
	;
T0	;Ingave kolom ;
T1	;Aantal posities;
T2	;Omschrijving kolom;
T3	;Subtotaal berekenen\"[] = neen   .[] = ja";
T4	;U kan slechts ;x doorschakelen naar een onderliggend bestand ;
T5	; : pag. ;
T6	;U heeft geen toegang tot dit bestand ;
	;
T0F	;Création colonne ;
T1F	;Nombre de positions;
T2F	;En-tête colonne;
T3F	;Totaliser la colonne\"[] = non   .[] = oui";
T4F	;Vous ne pouvez passer que ; fois à un fichier inférieur ;
T5F	; : page ;
T6F	;Vous n'avez pas d'accès à ce fichier ;
	;
	; opbouw scherm
S1(SW2)	N UQA,USA S UQA=UQAA,USA=USAA D S1^cAN000(SW2)
S1A	N I S I=OMA I SW4A>1 S I=I_$P($T(@("T5"_QT)),U,2)_SW2_"/"_SW4A
S1B	W /CUP(1,KMAX-$L(I)-1),I,/WCML
S1Z	Q
	;
	; tonen nummer + omschrijving rubriek
S2(R)	N UQA,USA S UQA=UQAA,USA=USAA D M^cAN000(R) I U2(26) G S2Z
S2A	I U2(16) W /CUP(U2(2),U2(3)),$J(R,2)
S2B	I U2(16) W /CUP(U2(2),U2(3)+3),/SGR(4),$P(U2(1),D,QTU),/SGR(0),/CUP(U2(2),U2(6)-2),":"
S2Z	Q
	;
	; tonen nieuwe gegevens         
S4	D O^cA612(22,1,1,80,0,0,0,0)
S4A	W /CUP(1,3),OMS I POS W " (",POS,")"
S4Z	Q
	;
	; merge
M(R)	N UQA,USA S UQA=UQAA,USA=USAA D M^cAN000(R)
MZ	Q
	;
	; startbestand
1	K SWA,SWB,INDEX S SWA=0,SWB(0)=Q1
10	S Q1A=Q1,SW4A=SW4,OMA=OM,UQAA=UQA,USAA=USA S:SW2>SW4A!'SW2 SW2=1
11	K C D S1(SW2)
13	S I="" F  S I=$O(C(I)) Q:I=""  D S2(I) I '$L(U2(16))!U2(26) K C(I)
	;
	; nummer element
2	D ^cAN006("",22,0,"EXCEL.LAYOUT","U",SW4A,"","")
23	I RK=25,SW2>1 S (K,U1)="."_(SW2-1) G 3
25	I RK=26,SW2<SW4A S (K,U1)="."_(SW2+1) G 3
27	I RK'=28 G 2
29	I 'K S (K,U1)="."_$TR(K,"-",",")
	;
	; uitvoeren keuze
3	I $E(K)="." S U1=$E(K,2,$L(K)) G 2:U1>SW4A!($E(U1)=0)!(U1=SW2),8:$L(U1),2
31	S U1=+K G 2:'$D(C(U1)) D M(U1)
	;
	; doorschakelen ?
4	I $L(U2(18)) S OK=0 D  G 11:'OK
	. S OK=1
	. N UQC,USC
	. D DMS^cAN000("UQC","USC",U2(18))
	. S TIT=$P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D)
	. D ^cAN103("K",18,"DAM","^DMC_INDEX",1,TIT)
	. I K="-" S OK=0 Q
	. S INDEX=$P(^DMC(UQC,USC,"INDEX",K),D)
	;
	; aantal posities & omschrijving
5	S OMS=$P(U2(1),D,QTU),POS=20 I SWA S OMS=OMS_" / "_$P(SWA(SWA,1),D,QTU)
50	S COM=OMS
51	S R="OMS\23\3\"_$P($T(@("T2"_QT)),U,2)_"\\"_POS_"\\$L(K)!'U1\\\\\1" D S4,R0,C^cA612 G 2:K="-"
	;
	; opbouw kolom
7	K @UREF@(UZB) 
71	S @UREF@(UZB)=OMS_D_U2(16)_D_U2(4) S:$G(INDEX) $P(@UREF@(UZB),D,10)=U2(18),$P(@UREF@(UZB),D,11)=INDEX G YZ
	;
	; input via .x
8	I U1 S SW2=U1 G 11
81	I U1="." D  G 5
	. F I=1,4,8,13,16:1:18 S U2(I)=""
	. S U2(13)=30
	S K="-"
	;
YZ	K I,J,SWA,U2,OMS,POS,TOT Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 23.06.05 - 17 u 03 * V8.04