cABI1	;Installatie/Deinstallatie ; %ABI1 [ 03/29/01  9:42 AM ]
	;
T0	; Installatie/De-installatie ;
T1	;Keuze\"1[] = barcodes   2[] = productetiketten";       
T2	;Barcodes;Productetiketten;
T3	;I/D\"0[] = de-installatie   1[] = installatie";
T4	;De-installatie;Installatie;
	;
1	D P^cA612(2,1,20,80,1,1,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
11	S R="KEU\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""12-""[K&$L(K)" D R0 G YZ:K="-"
	W /CUP(3,3),$P($T(@("T2"_QT)),U,1+KEU),@F2
13	S R="ID\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""01-""[K&$L(K)" D R0 G 13:K="-"
	W /CUP(4,3),$P($T(@("T4"_QT)),U,2+ID),@F2
	;
2	I KEU=1 D BAR(ID)
	I KEU=2 D PRETI(ID)
	;
3	S K="" D TXT^cAFA1(250)
	;
YZ	D C^cA612 Q
	;
BAR(ID)	; ID=0 = de-install., ID=1 = install.
	I 'ID D  G BARZ
	. K ^DMC(0,"PR","SYN",90)
	. K ^DMC(0,"PR","DATA","BAR")
	. K ^BIB("UGL",1000,11,222.01)
	M ^DMC(0,"PR","SYN",90)=^yDMC(0,"PR","SYN",90)
	M ^DMC(0,"PR","DATA","BAR")=^yDMC(0,"PR","DATA","BAR")
	S ^BIB("UGL",1000,11,222.01)=^yBIB("UGL",1000,11,222.01)
BARZ	Q
	;
PRETI(ID)	         ; ID=0 = de-install., ID=1 = install.
	I 'ID D  G PRETIZ
	. S K=$G(@("^"_Q_"TOL(0,""F"",1000)"))
	. F i=$L(K,D):1:1 i "\230\231\"[(D_$P(K,D,i)_D) S $P(K,D,i)=""
	. S ^(1000)=K
	. K ^DMA(0,"PAR.PR",1,12)
	. K ^DMA(0,"PR",2,30)
	. K ^DMA(1,"PR",2,30)
	. K @("^"_Q_"BA(""MENU"",22,13)")
	S @("^"_Q_"TOL(0,""F"",1000)")=^yEATOL(0,"F",1000)
	M ^DMA(0,"PAR.PR",1,12)=^yDMA(0,"PAR.PR",1,12)
	M ^DMA(0,"PR",2,30)=^yDMA(0,"PR",2,30)
	M ^DMA(1,"PR",2,30)=^yDMA(1,"PR",2,30)
	S @("^"_Q_"BA(""MENU"",22,13)")=^yEABA("MENU",22,13)
PRETIZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 18.05.01 - 11 u 18 * V7.86