94: loop
95: fetch c_line_charge
96: into l_operand, l_arithmetic_operator, l_quantity, l_line_list_price, l_adjusted_amount;
97: exit when c_line_charge%notfound;
98: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
99: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_quantity:'||l_quantity,1,'Y');
100: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_line_list_price:'||l_line_list_price,1,'Y');
101: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_adjusted_amount:'||l_adjusted_amount,1,'Y');
102: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_arithmetic_operator:'||l_arithmetic_operator,1,'Y');
95: fetch c_line_charge
96: into l_operand, l_arithmetic_operator, l_quantity, l_line_list_price, l_adjusted_amount;
97: exit when c_line_charge%notfound;
98: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
99: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_quantity:'||l_quantity,1,'Y');
100: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_line_list_price:'||l_line_list_price,1,'Y');
101: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_adjusted_amount:'||l_adjusted_amount,1,'Y');
102: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_arithmetic_operator:'||l_arithmetic_operator,1,'Y');
103: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_operand:'||l_operand,1,'Y');
96: into l_operand, l_arithmetic_operator, l_quantity, l_line_list_price, l_adjusted_amount;
97: exit when c_line_charge%notfound;
98: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
99: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_quantity:'||l_quantity,1,'Y');
100: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_line_list_price:'||l_line_list_price,1,'Y');
101: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_adjusted_amount:'||l_adjusted_amount,1,'Y');
102: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_arithmetic_operator:'||l_arithmetic_operator,1,'Y');
103: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_operand:'||l_operand,1,'Y');
104: END IF;
97: exit when c_line_charge%notfound;
98: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
99: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_quantity:'||l_quantity,1,'Y');
100: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_line_list_price:'||l_line_list_price,1,'Y');
101: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_adjusted_amount:'||l_adjusted_amount,1,'Y');
102: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_arithmetic_operator:'||l_arithmetic_operator,1,'Y');
103: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_operand:'||l_operand,1,'Y');
104: END IF;
105:
98: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
99: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_quantity:'||l_quantity,1,'Y');
100: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_line_list_price:'||l_line_list_price,1,'Y');
101: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_adjusted_amount:'||l_adjusted_amount,1,'Y');
102: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_arithmetic_operator:'||l_arithmetic_operator,1,'Y');
103: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_operand:'||l_operand,1,'Y');
104: END IF;
105:
106: if (l_arithmetic_operator = '%') then
99: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_quantity:'||l_quantity,1,'Y');
100: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_line_list_price:'||l_line_list_price,1,'Y');
101: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_adjusted_amount:'||l_adjusted_amount,1,'Y');
102: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_arithmetic_operator:'||l_arithmetic_operator,1,'Y');
103: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_operand:'||l_operand,1,'Y');
104: END IF;
105:
106: if (l_arithmetic_operator = '%') then
107: l_charge_amount := l_charge_amount + (l_adjusted_amount*l_quantity) ;
115: l_charge_amount := l_charge_amount + l_operand;
116: end if;
117:
118: end loop;
119: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
120: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_charge_amount:'||NVL(l_charge_amount,0),1,'Y');
121: END IF;
122: return nvl(l_charge_amount,0);
123: end get_line_freight_charges;
116: end if;
117:
118: end loop;
119: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
120: aso_debug_pub.add('ASO_SHIPPING_INT:c_line_charge - l_charge_amount:'||NVL(l_charge_amount,0),1,'Y');
121: END IF;
122: return nvl(l_charge_amount,0);
123: end get_line_freight_charges;
124: --wli_end