cIPR	;Initiële update Producten
	;
T0	;Initiële update Producten;
	;
YZ	Q
	;
	; Executes voor update Producten
VOOR	S $ZT="TRAP^cAN000"
	;
 	F x=9003:1:9006,9035:1:9036,9040 D
 	. S REF=$P($$REPL^cAFA10(@("^DMC(0,""CODE."_x_""",""DATA"",""REF"")"),"EA",0),",UI1")_")"
 	. S INDEX=$$REPL^cAFA10(@("^DMC(0,""CODE."_x_""",""DATA"",""INDEX"")"),"EA",0)
 	. S INDEX2=$$REPL^cAFA10(@("^DMC(0,""CODE."_x_""",""DATA"",""INDEX2"")"),"EA",0)
 	. S LOGGING=$$REPL^cAFA10(@("^DMC(0,""CODE."_x_""",""LOGGING"")"),"EA",0)
 	. S DIN=$$REPL^cAFA10(@("^DMC(0,""CODE."_x_""",""DIN"")"),"EA",0)
 	. W !,!,REF,!,INDEX,!,INDEX2,!,LOGGING,!,DIN
 	. K @REF,@INDEX,@INDEX2,@LOGGING,@DIN
VOORZ	Q
	;
	; Executes na update Producten
NA	S $ZT="TRAP^cAN000"
	;
NA1	D UPD^cABVB01("PROG.CODES.CODE9002","",1)
	D UPD^cABVB01("PROG.CODES.CODE9003","",1)
	D UPD^cABVB01("PROG.CODES.CODE9004","",1)
	D UPD^cABVB01("PROG.CODES.CODE9005","",1)
	D UPD^cABVB01("PROG.CODES.CODE9006","",1)
	D UPD^cABVB01("PROG.CODES.CODE9014","",1)
	D UPD^cABVB01("PROG.CODES.CODE9017","",1)
	D UPD^cABVB01("PROG.CODES.CODE9018","",1)
	D UPD^cABVB01("PROG.CODES.CODE9035","",1)
	D UPD^cABVB01("PROG.PROD.INTRGOE","",1)
	D UPD^cABVB01("PROG.PROD.PR","",1)
	D UPD^cABVB01("PROG.PROD.PRLE","",1)
	;
NA2	D S1^cAN002(0,"TEXT.9023",24)
	S BEHEER=1 D S1^cAN002(0,"CODE.VV",24)
 	S BEHEER=1 D S1^cAN002(0,"TEXT.VV",24)
 	;
NA3	D UPDI^cABVBD1
	D UPDI^cABVBK1
	D UPDI^cABVBP1
	D UPDI^cABVBF1
	D UPDI^cABVB01
	;
NA4	S ^DMS("EA","PR",2)="0\PR.A\D PR2PRA^cAN00822"
	S ^DMS("EA","PR_LE",2)="0\PR_LE.A\D PRLE2PRLEA^cAN00822"
	S ^DMS("EA","PR.MK",2)="0\CODE.9003\"
	S ^DMS("EA","PR.HG",2)="0\CODE.9004\"
	S ^DMS("EA","PR.GR",2)="0\CODE.9005\"
	S ^DMS("EA","PR.SG",2)="0\CODE.9006\"
	S ^DMS("EA","PR.SK",2)="0\CODE.9035\"
	S ^DMS("EA","PR_LE.IND",2)="0\CODE.9036\D IND2N^cAN00822"
	S ^DMS(0,"PR.A",2)="0\PR\D PRA2PR^cAN00822"
	S ^DMS(0,"PR_LE.A",2)="0\PR_LE\D PRLEA2PRLE^cAN00822"
	S ^DMS(0,"CODE.9036",2)="0\PR_LE.IND\D N2IND^cAN00822"
	D DMA^cI42("PR")
	D PLUS^cI42("EA","PR")
	;
NA5	W !,"Conversie uitvoeren? " R K I '((K="j")!(K="J")!(K="y")!(K="Y")) G NA6
	D BTW2N^cAN2279                                ; CODE.9011
	D COPY2N^cAN2279(0,"KODE.O","CODE.9014")       ; CODE.9014
	D COPY2N^cAN2279(0,"KODE.K","CODE.9017")       ; CODE.9017
	D COPY2N^cAN2279(0,"KODE.KOS","CODE.9018")     ; CODE.9018
	D COPY2N^cAN2279(0,"KODE.PR.RK","CODE.9002")   ; CODE.9002
	D 1^cAN008("EA","PR_LE.IND","")                ; CODE.9036
	D 1^cAN008("EA","PR.SK","")                    ; CODE.9035 
	D 1^cAN008("EA","PR.SG","")                    ; CODE.9006
	D 1^cAN008("EA","PR.GR","")                    ; CODE.9005
	D 1^cAN008("EA","PR.HG","")                    ; CODE.9004
	D 1^cAN008("EA","PR.MK","")                    ; CODE.9003
	D 1^cAN008("EA","PR_LE","")                    ; PR_LE.A
	D CNVEH^cAN00822
	D CNVOMF^cAN00822("EA")
	D 1^cAN008("EA","PR","")                       ; PR.A
	D CNVPR^cAN00822(Q)
	D CNVAG^cAN00822(Q) 
	;
NA6	W !,"Parameter stockwijziging instellen? " R K I '((K="j")!(K="J")!(K="y")!(K="Y")) G NAZ
	S $P(^EAPR(0,19),D,96)=1
	;
NAZ	Q
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09