cI97	;Conversie ivm bijhouden nummers voorschotten; cI97
	;
T0	;Conversie ivm bijhouden nummers voorschotten;
	;
1	N UI1,VNR
	S $ZT="TRAP^cAN000"
	F TYPE="KL","LE" S UI1=0 F  S UI1=$O(@("^"_Q_TYPE_"(UI1)")) Q:'$L(UI1)  D
	. S FNR=1000000,VNR=""
	. S VNR=$O(^(UI1,FNR),-1)
	. I VNR<990000 Q 
	. S @("^"_Q_TYPE_"V("_$P(UI1," ",2)_")")=VNR+1
	. W !,?2,"--> ",UI1,?40,VNR+1,?55,TYPE
	;
YZ	Q
	;
ZZ	; 24.02.06 -  9 u 54 * V8.06