[Home] [Help]
1: PACKAGE BODY MSD_DEM_COLLECT_BOM_DATA AS
2: /* $Header: msddemcbdb.pls 120.3 2009/09/23 10:50:05 sjagathe noship $ */
3:
4:
5: /*** CONSTANTS ***/
177: endPos := endPos + 1;
178:
179: IF (endPos IS NULL)
180: THEN
181: msd_dem_common_utilities.log_debug ('msd_dem_collect_bom_data.get_all_parents - endPos is null');
182: END IF;
183:
184: p_parents(endPos).item_id := c_token.using_assembly_id;
185: p_parents(endPos).planning_factor := (p_planning_factor * c_token.planning_factor) / 100;
350:
351:
352: BEGIN
353:
354: msd_dem_common_utilities.log_debug ('Entering: msd_dem_collect_bom_data.collect_bom_data - ' || TO_CHAR(systimestamp, 'DD-MON-YYYY HH24:MI:SS'));
355:
356: retcode := 0;
357: /* Log the parameters */
358: msd_dem_common_utilities.log_debug (' Instance ID - ' || to_char(p_sr_instance_id));
359:
360: /* The procedure should only execute if profile MSD_DEM: Include Dependent Demand is set to yes. */
361: IF (fnd_profile.value('MSD_DEM_INCLUDE_DEPENDENT_DEMAND') = 2)
362: THEN
363: msd_dem_common_utilities.log_message ('In msd_dem_collect_bom_data.collect_bom_data - '
364: || 'Profile MSD_DEM: Include Dependent Demand is set to No. '
365: || 'Hence no action taken. Exiting Normally.');
366: retcode := 0;
367: RETURN;
370: /* The procedure should only execute if profile MSD_DEM: Calculate Planning Percentage
371: * is set to Collect Consume and Derive Options Only. */
372: IF (fnd_profile.value('MSD_DEM_PLANNING_PERCENTAGE') <> 2)
373: THEN
374: msd_dem_common_utilities.log_message ('In msd_dem_collect_bom_data.collect_bom_data - '
375: || 'Profile MSD_DEM: Calculate Planning Percentage is not set to Collect Options Only. '
376: || 'Hence no action taken. Exiting Normally.');
377: retcode := 0;
378: RETURN;
386: 2,
387: 1);
388: IF (retcode = -1)
389: THEN
390: msd_dem_common_utilities.log_message ('Error(1) in msd_dem_collect_bom_data.collect_bom_data - '
391: || 'Error in call to msd_dem_query_utilities.truncate_table');
392: msd_dem_common_utilities.log_message(errbuf);
393: RETURN;
394: END IF;
414:
415: IF (c1%ROWCOUNT = 0)
416: THEN
417: CLOSE c1;
418: msd_dem_common_utilities.log_message ('Error(2) in msd_dem_collect_bom_data.collect_bom_data - '
419: || 'No rows found in c1 cursor');
420: retcode := -1;
421: RETURN;
422: END IF;
720: msd_dem_collect_history_data.analyze_table(x_errbuf, x_retcode, 'MSD_DEM_BOM_COMPONENTS');
721:
722: END IF;
723:
724: msd_dem_common_utilities.log_debug ('Exiting: msd_dem_collect_bom_data.collect_bom_data - ' || TO_CHAR(systimestamp, 'DD-MON-YYYY HH24:MI:SS'));
725:
726: retcode := 0;
727:
728: EXCEPTION
729: WHEN OTHERS THEN
730: errbuf := substr(SQLERRM,1,150);
731: retcode := -1;
732:
733: msd_dem_common_utilities.log_message ('Exception(1): msd_dem_collect_bom_data.collect_bom_data - ' || TO_CHAR(systimestamp, 'DD-MON-YYYY HH24:MI:SS'));
734: msd_dem_common_utilities.log_message (errbuf);
735: RETURN;
736:
737: END COLLECT_BOM_DATA;
736:
737: END COLLECT_BOM_DATA;
738:
739:
740: END MSD_DEM_COLLECT_BOM_DATA;