cANP999	;Functies ivm recyclagebijdrage; %ANP999 [ 06/28/01  10:38 AM ]
	;
	G YZ
	;
T0	;Functies ivm recyclagebijdrage;
	;
IS29	;  Installatie rubriek 29: gekoppeld product
	;  in de niet beheerbare parameters van de producten.
	I $D(^DMA(0,"PAR.PR.NB",1,29)) G IS29Z
	I ^DMA(0,"PAR.PR.NB",1,20,2)'=9 G IS29Z
	F I1=20:1:28 I $D(^DMA(0,"PAR.PR.NB",1,I1)) S ^(2)=^(I1,2)-1
IS29Z	Q
	;
	;  Aanpassen recyclagebijdrage naar bijdrage + overgang naar 3 gekoppelde producten
ISBIJDR	I ^DMA(0,"PR",2,17,8)["recycl.bedr.#contr.recycl." S ^DMA(0,"PR",2,17,8)=$P(^DMA(0,"PR",2,17,8),"recycl.bedr.#contr.recycl.")_"bijdrage#contribution"_$P(^DMA(0,"PR",2,17,8),"recycl.bedr.#contr.recycl.",2)
	I ^DMA(1,"PR",2,17,8)["recycl.bedr.#contr.recycl." S ^DMA(1,"PR",2,17,8)=$P(^DMA(1,"PR",2,17,8),"recycl.bedr.#contr.recycl.")_"bijdrage#contribution"_$P(^DMA(1,"PR",2,17,8),"recycl.bedr.#contr.recycl.",2)
	I ^DMA(0,"PR",2,17,10)["recyclagebijdrage" S ^DMA(0,"PR",2,17,10)=$P(^DMA(0,"PR",2,17,10),"recyclagebijdrage")_"bijdrage"_$P(^DMA(0,"PR",2,17,10),"recyclagebijdrage",2)
	I ^DMA(1,"PR",2,17,10)["recyclagebijdrage" S ^DMA(1,"PR",2,17,10)=$P(^DMA(1,"PR",2,17,10),"recyclagebijdrage")_"bijdrage"_$P(^DMA(1,"PR",2,17,10),"recyclagebijdrage",2)
	I ^DMA(0,"PR",2,17,10)["contr.recyclage" S ^DMA(0,"PR",2,17,10)=$P(^DMA(0,"PR",2,17,10),"contr.recyclage")_"contribution"_$P(^DMA(0,"PR",2,17,10),"contr.recyclage",2)
	I ^DMA(1,"PR",2,17,10)["contr.recyclage" S ^DMA(1,"PR",2,17,10)=$P(^DMA(1,"PR",2,17,10),"contr.recyclage")_"contribution"_$P(^DMA(1,"PR",2,17,10),"contr.recyclage",2)
	I '$D(^DMA(0,"PR",4,"24.01")) G ISBIJDRA
	M ^DMA(0,"PR",4,23)=^DMA(9,"PR",4,23)
	M ^DMA(0,"PR",4,24)=^DMA(9,"PR",4,24)
	M ^DMA(0,"PR",4,"24.01")=^DMA(9,"PR",4,"24.01")
ISBIJDRA	I '$D(^DMA(1,"PR",3,"24.01")) G ISBIJDRZ
	M ^DMA(1,"PR",3,23)=^DMA(9,"PR",4,23)
	M ^DMA(1,"PR",3,24)=^DMA(9,"PR",4,24)
	M ^DMA(1,"PR",3,"24.01")=^DMA(9,"PR",4,"24.01")
ISBIJDRZ	Q
	;
GEKOPPR(SWKP)	     ;  Opzetten/Afzetten gekoppend product, soort product
	N SWSP,UQC,USC,UQA
	;  Gekoppeld product opzetten of afzetten
	I '$L(SWKP) D
	. K ^DMA(0,"PR",4,23),^DMA(0,"PR",4,24),^DMA(0,"PR",4,"24.01")
	. K ^DMA(1,"PR",3,23),^DMA(1,"PR",3,24),^DMA(1,"PR",3,"24.01")
	I $L(SWKP) D
	. M ^DMA(0,"PR",4,23)=^DMA(9,"PR",4,23)
	. M ^DMA(0,"PR",4,24)=^DMA(9,"PR",4,24)
	. M ^DMA(0,"PR",4,"24.01")=^DMA(9,"PR",4,"24.01")
	. M ^DMA(1,"PR",3,23)=^DMA(9,"PR",4,23)
	. M ^DMA(1,"PR",3,24)=^DMA(9,"PR",4,24)
	. M ^DMA(1,"PR",3,"24.01")=^DMA(9,"PR",4,"24.01")
	;  Testen of deelproducten actief zijn
	S SWSP=1
	D DMS^cAN000("UQC","USC","PR_SP",1)
	I '$D(^DMA(0,"PR",2,17))!'$L(UQC)!'$L(USC) S SWSP=0
	;  Soort product opzetten of afzetten
	I SWKP=2 D
	. I '$D(^DMA(0,"PR",2,17)) M ^DMA(0,"PR",2,17)=^DMA(9,"PR",2,17)
	. I '$D(^DMA(1,"PR",2,17)) M ^DMA(1,"PR",2,17)=^DMA(9,"PR",2,17)
	. F UQA=0,1 S ^DMA(UQA,"PR",2,17,8)="S U3=$P($P(""basis#prod.base/samengesteld#prod.composé/loonkost#prod.sal/bijdrage#contribution"",""/"",K+1),""#"",QTU)"
	. I SWSP=1 D
	.. F UQA=0,1 D
	... S ^DMA(UQA,"PR",2,17,11)="""0123""[K"
	... S ^DMA(UQA,"PR",2,17,10)="[] = basis   1[] = samengesteld   2[] = loonkost   3[] = bijdrage"_D_"[] = prod.de base   1[] = prod.composé   2[] = salariat   3[] = contribution"
	. I SWSP=0 D
	.. F UQA=0,1 D
	... S ^DMA(UQA,"PR",2,17,11)="""03""[K"
	... S ^DMA(UQA,"PR",2,17,10)="[] = basis   3[] = bijdrage"_D_"[] = prod.de base   3[] = contribution"
	I SWKP'=2 D
	. I SWSP=0 K ^DMA(0,"PR",2,17),^DMA(1,"PR",2,17)
	. I SWSP=1 D  
	.. M ^DMA(0,"PR",2,17)=^DMA(9,"PR",2,17)
	.. M ^DMA(1,"PR",2,17)=^DMA(9,"PR",2,17)
GEKPPRZ	Q
	;
YZ	Q
	;
ZZ	; 04.04.05 - 14 u 29 * V8.03