[Home] [Help]
1164: sup_plan_bom.sr_component_pk,
1165: sup_plan_bom.effectivity_date,
1166: sup_plan_bom.disable_date,
1167: sup_plan_bom.res_comp
1168: from msd_ascp_bom_comp sup_plan_bom,
1169: msc_plans sup_plan,
1170: msd_dp_scenarios dp_scen
1171: where sup_plan_bom.cap_usg_ratio_obj = sup_plan.compile_designator
1172: and sup_plan.plan_id = dp_scen.supply_plan_id
1250:
1251: BEGIN
1252:
1253: select nvl(trunc(last_collected_date),C_NULL_DATE) into v_last_collected_date
1254: from msd_ascp_bom_comp
1255: where cap_usg_ratio_obj = v_plan_name
1256: and plan_type= 'SOP'
1257: and rownum < 2;
1258:
1260:
1261: WHEN NO_DATA_FOUND THEN
1262: v_last_collected_date := C_NULL_DATE;
1263: WHEN OTHERS THEN
1264: LOG_MESSAGE('Error fetching the LAST_COLLECTED_DATE from MSD_ASCP_BOM_COMP');
1265: retcode := -1 ;
1266: errbuf := substr(SQLERRM,1,150);
1267: END;
1268:
1275:
1276:
1277: v_bom_cal := TRUE;
1278:
1279: LOG_MESSAGE('Deleting the table MSD_ASCP_BOM_COMP for this Plan');
1280: delete from msd_ascp_bom_comp
1281: where cap_usg_ratio_obj = v_plan_name
1282: and plan_type = 'SOP';
1283:
1276:
1277: v_bom_cal := TRUE;
1278:
1279: LOG_MESSAGE('Deleting the table MSD_ASCP_BOM_COMP for this Plan');
1280: delete from msd_ascp_bom_comp
1281: where cap_usg_ratio_obj = v_plan_name
1282: and plan_type = 'SOP';
1283:
1284: lb_FetchComplete := FALSE;
1319:
1320: if c_assmb_comp%ROWCOUNT > 0 then
1321:
1322: FORALL j IN lb_instance_id.FIRST..lb_instance_id.LAST
1323: INSERT INTO msd_ascp_bom_comp
1324: ( SR_INSTANCE_ID,
1325: CAP_USG_RATIO_OBJ,
1326: SR_ASSEMBLY_PK,
1327: SR_COMPONENT_PK,
1417:
1418: if c_assmb_res%ROWCOUNT > 0 then
1419:
1420: FORALL j IN lb_instance_id.FIRST..lb_instance_id.LAST
1421: INSERT INTO msd_ascp_bom_comp
1422: ( SR_INSTANCE_ID,
1423: CAP_USG_RATIO_OBJ,
1424: SR_ASSEMBLY_PK,
1425: SR_COMPONENT_PK,
1861: sup_plan_bom.sr_instance_id,
1862: sup_plan_bom.sr_assembly_pk,
1863: sup_plan_bom.sr_component_pk,
1864: sup_plan_bom.bom_type
1865: from msd_ascp_bom_comp sup_plan_bom,
1866: msc_plans sup_plan,
1867: msd_dp_scenarios dp_scen
1868: where sup_plan_bom.cap_usg_ratio_obj = sup_plan.compile_designator
1869: and sup_plan.plan_id = dp_scen.supply_plan_id
1941:
1942: BEGIN
1943:
1944: select distinct nvl(trunc(last_collected_date),C_NULL_DATE) into v_last_collected_date
1945: from msd_ascp_bom_comp
1946: where cap_usg_ratio_obj = v_plan_name
1947: and plan_type = 'EOL'
1948: and rownum < 2;
1949:
1951:
1952: WHEN NO_DATA_FOUND THEN
1953: v_last_collected_date := C_NULL_DATE;
1954: WHEN OTHERS THEN
1955: LOG_MESSAGE('Error fetching the LAST_COLLECTED_DATE from MSD_ASCP_BOM_COMP');
1956: retcode := -1 ;
1957: errbuf := substr(SQLERRM,1,150);
1958: END;
1959:
1966:
1967:
1968: v_bom_cal := TRUE;
1969:
1970: LOG_MESSAGE('Deleting the table MSD_ASCP_BOM_COMP for this Plan');
1971: delete from msd_ascp_bom_comp
1972: where cap_usg_ratio_obj = v_plan_name
1973: and plan_type = 'EOL';
1974:
1967:
1968: v_bom_cal := TRUE;
1969:
1970: LOG_MESSAGE('Deleting the table MSD_ASCP_BOM_COMP for this Plan');
1971: delete from msd_ascp_bom_comp
1972: where cap_usg_ratio_obj = v_plan_name
1973: and plan_type = 'EOL';
1974:
1975: lb_FetchComplete := FALSE;
2008:
2009: if c_assmb_comp_wur_bom%ROWCOUNT > 0 then
2010:
2011: FORALL j IN lb_instance_id.FIRST..lb_instance_id.LAST
2012: INSERT INTO msd_ascp_bom_comp
2013: ( SR_INSTANCE_ID,
2014: CAP_USG_RATIO_OBJ,
2015: SR_ASSEMBLY_PK,
2016: SR_COMPONENT_PK,
2093:
2094: if c_assmb_comp_smb_bom%ROWCOUNT > 0 then
2095:
2096: FORALL j IN lb_instance_id.FIRST..lb_instance_id.LAST
2097: INSERT INTO msd_ascp_bom_comp
2098: ( SR_INSTANCE_ID,
2099: CAP_USG_RATIO_OBJ,
2100: SR_ASSEMBLY_PK,
2101: SR_COMPONENT_PK,