cI46	;Conversie veld 'Status' bij gecontroleerde leveringen; cI46
	;
YZ	Q
	;
CONV	; Aanpassen veld 'Status' bij de gecontroleerde leveringen
	N KC,UR,U5
	S $ZT="TRAP^cAN000"
	S KC=0
	F  S KC=$O(@("^"_Q_"TOL(KC)")) Q:KC=""  D
	. S UR=""
	. F  S UR=$O(@("^"_Q_"TOL(KC,""P"",UR)")) Q:UR=""  D
	.. S U5=^(UR,1)
	.. I '$L($P(U5,D,45)) Q
	.. I $P(U5,D,50)'=1 S $P(@("^"_Q_"TOL(KC,""P"",UR,1)"),D,50)=1
	W !,"Einde conversie veld 'Status' gecontroleerde leveringen"
CONVZ	Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08