[Home] [Help]
46: INTO l_allocation_basis,
47: l_allocation_uom_code
48: FROM inl_allocation_basis_vl ab,
49: inl_charge_line_types_vl icv,
50: inl_charge_lines icl
51: WHERE ab.allocation_basis_code (+) = icv.allocation_basis
52: AND icv.charge_line_type_id (+) = icl.charge_line_type_id
53: AND icl.charge_line_id = p_from_parent_table_id;
54:
196: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
197: p_procedure_name => l_proc_name,
198: p_debug_info => l_debug_info);
199:
200: SELECT inl_charge_lines_s.NEXTVAL
201: INTO l_charge_line_id
202: FROM dual;
203:
204: l_debug_info := 'Get the Charge Line Number';
207: p_debug_info => l_debug_info);
208:
209: SELECT NVL(MAX(icl.charge_line_num),0) + 1
210: INTO l_charge_line_num
211: FROM inl_charge_lines icl,
212: inl_associations ias
213: WHERE ias.from_parent_table_name = 'INL_CHARGE_LINES'
214: AND ias.from_parent_table_id = icl.charge_line_id
215: AND ias.ship_header_id = p_ship_header_id;
209: SELECT NVL(MAX(icl.charge_line_num),0) + 1
210: INTO l_charge_line_num
211: FROM inl_charge_lines icl,
212: inl_associations ias
213: WHERE ias.from_parent_table_name = 'INL_CHARGE_LINES'
214: AND ias.from_parent_table_id = icl.charge_line_id
215: AND ias.ship_header_id = p_ship_header_id;
216:
217: l_debug_info := 'Insert into INL Charge Line table.';
218: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
219: p_procedure_name => l_proc_name,
220: p_debug_info => l_debug_info);
221:
222: INSERT INTO inl_charge_lines(charge_line_id,
223: charge_line_num,
224: charge_line_type_id,
225: landed_cost_flag,
226: update_allowed,
305: p_procedure_name => l_proc_name,
306: p_debug_info => l_debug_info);
307:
308: Insert_Association(p_ship_header_id => p_ship_header_id,
309: p_from_parent_table_name => 'INL_CHARGE_LINES', -- from_parent_table_name
310: p_from_parent_table_id => l_charge_line_id, -- from_parent_table_id
311: p_to_parent_table_name => p_to_parent_table_name,
312: p_to_parent_table_id => p_to_parent_table_id,
313: x_return_status => l_return_status);
1156: SELECT ias.association_id,
1157: icl.charge_line_id
1158: BULK COLLECT INTO l_association_tbl, l_charge_line_tbl
1159: FROM inl_associations ias,
1160: inl_charge_lines icl
1161: WHERE ias.from_parent_table_id = icl.charge_line_id
1162: AND ias.from_parent_table_name = 'INL_CHARGE_LINES'
1163: AND icl.source_code = 'QP'
1164: AND ias.ship_header_id = p_ship_header_id;
1158: BULK COLLECT INTO l_association_tbl, l_charge_line_tbl
1159: FROM inl_associations ias,
1160: inl_charge_lines icl
1161: WHERE ias.from_parent_table_id = icl.charge_line_id
1162: AND ias.from_parent_table_name = 'INL_CHARGE_LINES'
1163: AND icl.source_code = 'QP'
1164: AND ias.ship_header_id = p_ship_header_id;
1165: EXCEPTION
1166: WHEN OTHERS THEN
1173: -- Delete all related Charges Lines and keep
1174: -- only Charges that are associated to other Shipments.
1175: IF(l_charge_line_tbl.COUNT > 0) THEN
1176: FOR s IN l_charge_line_tbl.FIRST..l_charge_line_tbl.LAST LOOP
1177: DELETE FROM inl_charge_lines
1178: WHERE charge_line_id = l_charge_line_tbl(s)
1179: AND NOT EXISTS (SELECT 1
1180: FROM inl_associations
1181: WHERE from_parent_table_name = 'INL_CHARGE_LINES'
1177: DELETE FROM inl_charge_lines
1178: WHERE charge_line_id = l_charge_line_tbl(s)
1179: AND NOT EXISTS (SELECT 1
1180: FROM inl_associations
1181: WHERE from_parent_table_name = 'INL_CHARGE_LINES'
1182: AND from_parent_table_id = l_charge_line_tbl(s)
1183: AND ship_header_id <> p_ship_header_id);
1184: END LOOP;
1185: END IF;
1397: FND_MESSAGE.SET_NAME ('INL', 'INL_CANNOT_QP_CALC_CH') ;
1398: FND_MSG_PUB.ADD;
1399: ELSE
1400: -- Iterate through all generated Charges to insert
1401: -- into INL Charge Lines and INL Associations table
1402: FOR j IN l_charge_ln_tbl.FIRST..l_charge_ln_tbl.LAST LOOP
1403: l_debug_info := 'Call Insert_ChargeLines(...)';
1404: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
1405: p_procedure_name => l_api_name,