[Home] [Help]
1110:
1111: conc_debug ('Records obtained in main query : ' || x_record_count);
1112:
1113: -- ngoel, 8/20/2003: Added new SQL for CTO Re-architecture to insert
1114: -- ATO model's components in msc_cto_bom table for processing.
1115:
1116: l_sysdate := sysdate;
1117: G_FND_USER := FND_GLOBAL.USER_ID;
1118:
1115:
1116: l_sysdate := sysdate;
1117: G_FND_USER := FND_GLOBAL.USER_ID;
1118:
1119: -- Select BOM records for ATO Models from msc_cto_bom and re-populate with new session_id
1120: FORALL i in 1..x_record_count
1121: INSERT INTO msc_cto_bom (
1122: inventory_item_id,
1123: line_id,
1117: G_FND_USER := FND_GLOBAL.USER_ID;
1118:
1119: -- Select BOM records for ATO Models from msc_cto_bom and re-populate with new session_id
1120: FORALL i in 1..x_record_count
1121: INSERT INTO msc_cto_bom (
1122: inventory_item_id,
1123: line_id,
1124: top_model_line_id,
1125: ato_parent_model_line_id,
1138: sr_inventory_item_id,
1139: refresh_number,
1140: plan_id)
1141: /*
1142: Changed to use msc_cto_bom instead to handle following cases:
1143: 1. In case ATP used model's ITF to promise, demands for lower components may not exist.
1144: 2. In "BUY" cases, demand for lower components may not exist for entire qty.
1145: */
1146: SELECT distinct
1162: sr_instance_id,
1163: sr_inventory_item_id,
1164: refresh_number,
1165: NULL -- Plan ID
1166: FROM msc_cto_bom
1167: WHERE ato_model_line_id = x_atp_rec.ATO_Model_Line_Id(i)
1168: AND session_id = x_atp_rec.attribute_11(i)
1169: AND plan_id = p_old_plan_id
1170: AND x_atp_rec.quantity_ordered(i) > 0