44: exploder_error exception;
45:
46: BEGIN
47:
48: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
49: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,lc_mod_name||'begin',
50: 'Entering explode_bom_items');
51: END IF;
52: --bug#6930575, subhat.
45:
46: BEGIN
47:
48: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
49: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,lc_mod_name||'begin',
50: 'Entering explode_bom_items');
51: END IF;
52: --bug#6930575, subhat.
53: -- we will use exploder_userexit API no need for profile_id
80: SELECT bom_explosion_temp_s.nextval INTO l_group_id from dual;
81: -- clear the bom temporary table
82: delete from bom_small_expl_temp;
83: -- calling exploder_userexit API.
84: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
85: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,lc_mod_name||'begin',
86: 'Calling exploder_userexit');
87: end if;
88:
81: -- clear the bom temporary table
82: delete from bom_small_expl_temp;
83: -- calling exploder_userexit API.
84: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
85: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,lc_mod_name||'begin',
86: 'Calling exploder_userexit');
87: end if;
88:
89: bompxinq.exploder_userexit (
485:
486:
487: EXCEPTION
488: when exploder_error then
489: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
490: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,lc_mod_name||'Exploder_error',
491: 'Error occured while executing bom_exploder'||l_err_msg);
492: END IF;
493: rollback;
486:
487: EXCEPTION
488: when exploder_error then
489: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
490: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,lc_mod_name||'Exploder_error',
491: 'Error occured while executing bom_exploder'||l_err_msg);
492: END IF;
493: rollback;
494: WHEN OTHERS THEN
491: 'Error occured while executing bom_exploder'||l_err_msg);
492: END IF;
493: rollback;
494: WHEN OTHERS THEN
495: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
496: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,lc_mod_name||'others exception',
497: 'an unknown error occured');
498: end if;
499: rollback;
492: END IF;
493: rollback;
494: WHEN OTHERS THEN
495: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
496: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,lc_mod_name||'others exception',
497: 'an unknown error occured');
498: end if;
499: rollback;
500: END explode_bom_items;
546:
547: l_estimate_lines_rec CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_REC := csd_process_util.ui_estimate_line_rec;
548:
549: BEGIN
550: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
551: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,lc_mod_name||'begin',
552: 'Entering create_estimate_lines');
553: END IF;
554:
547: l_estimate_lines_rec CSD_REPAIR_ESTIMATE_PVT.REPAIR_ESTIMATE_LINE_REC := csd_process_util.ui_estimate_line_rec;
548:
549: BEGIN
550: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
551: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,lc_mod_name||'begin',
552: 'Entering create_estimate_lines');
553: END IF;
554:
555: -- if message init is passed as yes initialize message stack.
812: l_estimate_lines_rec.pricing_attribute98 := null;
813: l_estimate_lines_rec.pricing_attribute99 := null;
814: l_estimate_lines_rec.pricing_attribute100 := null;
815:
816: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
817: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,lc_mod_name||'begin',
818: 'calling create_repair_estimate_lines API');
819: END IF;
820: -- call estimate lines API.
813: l_estimate_lines_rec.pricing_attribute99 := null;
814: l_estimate_lines_rec.pricing_attribute100 := null;
815:
816: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
817: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,lc_mod_name||'begin',
818: 'calling create_repair_estimate_lines API');
819: END IF;
820: -- call estimate lines API.
821: csd_repair_estimate_pvt.create_repair_estimate_lines(
830: x_msg_data => x_msg_data);
831: --dbms_output.put_line(x_return_status||' - '||x_message_Data);
832: IF x_return_status <> 'S' THEN
833: x_return_Status := 'E';
834: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
835: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,lc_mod_name||'Error',
836: 'An error occured during execution of create_repair_estimate API'||x_msg_data);
837: END IF;
838: --RAISE FND_API.G_EXC_ERROR;
831: --dbms_output.put_line(x_return_status||' - '||x_message_Data);
832: IF x_return_status <> 'S' THEN
833: x_return_Status := 'E';
834: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
835: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,lc_mod_name||'Error',
836: 'An error occured during execution of create_repair_estimate API'||x_msg_data);
837: END IF;
838: --RAISE FND_API.G_EXC_ERROR;
839: RETURN;