[Home] [Help]
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:
55: l_debug_info := 'Insert into INL Associations table';
56: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
57: p_procedure_name => l_proc_name,
58: p_debug_info => l_debug_info);
59:
56: INL_LOGGING_PVT.Log_Statement (p_module_name => g_module_name,
57: p_procedure_name => l_proc_name,
58: p_debug_info => l_debug_info);
59:
60: INSERT INTO inl_associations(association_id,
61: ship_header_id,
62: from_parent_table_name,
63: from_parent_table_id,
64: to_parent_table_name,
69: creation_date,
70: last_updated_by,
71: last_update_date,
72: last_update_login)
73: VALUES (inl_associations_s.NEXTVAL,
74: p_ship_header_id,
75: p_from_parent_table_name,
76: p_from_parent_table_id,
77: p_to_parent_table_name,
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;
216:
1155: BEGIN
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'
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'
1182: AND from_parent_table_id = l_charge_line_tbl(s)
1183: AND ship_header_id <> p_ship_header_id);
1184: END LOOP;
1187: -- Delete all associations for the current
1188: -- Shipment with charges based on QP
1189: IF(l_association_tbl.COUNT > 0) THEN
1190: FOR t IN l_association_tbl.FIRST..l_association_tbl.LAST LOOP
1191: DELETE FROM inl_associations
1192: WHERE association_id = l_association_tbl(t);
1193: END LOOP;
1194: END IF;
1195:
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,