cI47	;Conversie veld bedrag munt bank in ^_Q_FI; cI47
	;
T0	;Conversie veld bedrag munt bank in ^_Q_FI;
	;
YZ	Q
	;
CONV	N I1,I2,I3,INH
	S $ZT="TRAP^cAN000"
	S I1=""
	F  S I1=$O(@("^"_Q_"FI(I1)")) Q:I1=""  D
	. S I2=""
	. F  S I2=$O(@("^"_Q_"FI(I1,I2)")) Q:I2=""  D
	.. S I3=""
	.. F  S I3=$O(@("^"_Q_"FI(I1,I2,I3)")) Q:I3=""  D
	... S INH=^(I3)
	... I $P(INH,D,4)'="KAS" Q
	... I $L($P(INH,D,11)) Q
	... W !,I1_" - "_I2_" - "_I3
	... S $P(@("^"_Q_"FI(I1,I2,I3)"),D,11)=$P(INH,D,5)
CONVZ	Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08