Quality costing procedure