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