PROCEDURE FixRemIncome.Calc( I_DATE IN DATE, I_REUSE IN BOOLEAN := TRUE, I_ISADDINGDATA IN BOOLEAN := FALSE, I_ISALLREMAINS IN BOOLEAN := FALSE )