V7850	;Opzetten ^DMS voor klanten, leveranciers en producten; V7850 [ 04/03/01  9:02 AM ]
	;
T0	; Opzetten ^DMS;
	;
1	N USA,QM
11	F USA="KL","LE","PR" D
	. S QM=$S(USA="KL":10,USA="LE":11,1:22)
	. F I=1:1:5 D
	.. S UFU=$S(I=1:"O",I=2:"W",I=3:"R",I=4:"V",1:"L")
	.. S K=$TR($P($P($P($G(@("^"_Q_"BA(""MENU"",QM,I)")),D,4),",",2),")"),"""","")
	.. I $L(K) S ^DMS(Q,USA,"DMA",UFU)=K_D_USA
	.. S K=$TR($P($P($P($G(@("^"_Q_"BA(""MENU"",QM,I)")),D,4),",",4),")"),"""","")
	.. I $L(K) S ^DMS(Q,USA,"DMM",UFU)=K
	;
2	F UGL="OD","UL","TO","TOL","TB" S US="" F  S US=$O(@("^"_Q_UGL_"(0,US)")) Q:US=""  D
	. S O="K=$P(U5,D,29)/$P(U5,D,3)"
	. F J=800,1600 D
	.. S N1="K=$$EPMK^cAFE5(U5,"_$S(J=800:"U1",1:"U6")_",""",N2=""",$G(UPRDMS,""PR""))"
	.. S (NR,I)=J F  S I=$O(@("^"_Q_UGL_"(0,US,I)")) Q:I>(J+99)!(I'?1.N)  S ^(I)=$$REPL(^(I))
	. S J=200,O="'$P(@(""^""_QQ_""PR(PR,1)""),D,10)"
	. F  S J=$O(@("^"_Q_UGL_"(0,US,J)")) Q:J>299!(J'?1.N)  D
	.. S A=^(J)
	.. I $P(A,U,16)'=103 Q
	.. I $P(A,U,11)'[O Q
	.. S $P(A,U,11)=$P($P(A,U,11),O)_"'$P(@UPRREF@(PR,1),D,10)"_$P($P(A,U,11),O,2,99)
	.. S @("^"_Q_UGL_"(0,US,J)")=A
	. I '$D(@("^"_Q_UGL_"(0,US,""UOB"")")) Q
	. S A=^("UOB")
	. S O="N UR,U5,Y,I "
	. I A'[O Q
	. S A=$P(A,O)_"N UR,U5,Y,I,VM,TTB,NET,BTW,KKB "_$P(A,O,2,99)
	. S @("^"_Q_UGL_"(0,US,""UOB"")")=A
	;
	K UGL,US
	S O="K=$P(U5,D,29)/$P(U5,D,3)"
	F J=800,1600 D
	. S NR=0 F  S NR=$O(^BIB("UGL",J,NR)) Q:NR=""  D
	.. S I=""
	.. S N1="K=$$EPMK^cAFE5(U5,"_$S(J=800:"U1",1:"U6")_",""",N2=""",$G(UPRDMS,""PR""))"
	.. F  S I=$O(^BIB("UGL",J,NR,I)) Q:I=""  S ^(I)=$$REPL(^(I))
	;
YZ	Q
	;
REPL(A)	I $P(A,U,7)'="$P(U5,D,6)" G REPLZ
	I $P(A,U,8)'["K=$P(U5,D,29)/$P(U5,D,3)" G REPLZ
	I $P(A,U,8)["$$EPMK" Q
	S SP=$S($P(A,U,8)["K,""A""":"A",1:"V")
	S A=$P(A,O)_N1_SP_N2_$P(A,O,2,99)
REPLZ	Q A
	;
ZZ	; 30.03.01 - 13 u 47 * V7.85