[Home] [Help]
35:
36: BEGIN
37:
38: if funcmode = 'RUN' then
39: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
40: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE,
41: lc_mod_name||'begin',
42: 'Entering Private API check_sr_details_wf');
43: END IF;
36: BEGIN
37:
38: if funcmode = 'RUN' then
39: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
40: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE,
41: lc_mod_name||'begin',
42: 'Entering Private API check_sr_details_wf');
43: END IF;
44: -- This parameter is coming from Workflow event.
217:
218: BEGIN
219:
220: -- get the default repair type based on the profile value.
221: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
222: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name||'begin',
223: 'Entering Private API create_ro_wf');
224: END IF;
225: l_repair_type_id := fnd_profile.value('CSD_DEFAULT_REPAIR_TYPE');
218: BEGIN
219:
220: -- get the default repair type based on the profile value.
221: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
222: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, lc_mod_name||'begin',
223: 'Entering Private API create_ro_wf');
224: END IF;
225: l_repair_type_id := fnd_profile.value('CSD_DEFAULT_REPAIR_TYPE');
226:
265: IF mo_global.is_mo_init_done = 'N' THEN
266: mo_global.set_policy_context('S',l_org_id);
267: END IF;
268:
269: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
270: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,lc_mod_name||'begin',
271: 'calling create repair order public API');
272: END IF;
273: -- API call to create the repair orders.
266: mo_global.set_policy_context('S',l_org_id);
267: END IF;
268:
269: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
270: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,lc_mod_name||'begin',
271: 'calling create repair order public API');
272: END IF;
273: -- API call to create the repair orders.
274:
365:
366: --call create Logistics procedure if repair id is not standard
367:
368: if l_repair_type_id <> 1 then
369: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
370: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,lc_mod_name||'begin',
371: 'calling create default product transactions API');
372: END IF;
373:
366: --call create Logistics procedure if repair id is not standard
367:
368: if l_repair_type_id <> 1 then
369: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
370: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,lc_mod_name||'begin',
371: 'calling create default product transactions API');
372: END IF;
373:
374: csd_process_pvt.create_default_prod_txn
418: end if;
419:
420: notes_message := fnd_message.get;
421:
422: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
423: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,lc_mod_name||'begin','calling create JTF Notes API');
424: END IF;
425:
426: JTF_NOTES_PUB.Create_note
419:
420: notes_message := fnd_message.get;
421:
422: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
423: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,lc_mod_name||'begin','calling create JTF Notes API');
424: END IF;
425:
426: JTF_NOTES_PUB.Create_note
427: (
551: COMMIT WORK;
552:
553: EXCEPTION
554: WHEN l_ro_exception THEN
555: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
556: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,lc_mod_name||'exception','Error '||x_msg_data);
557: END IF;
558: WF_CORE.CONTEXT ('CSD_ISUP_DEPOT_WF_PVT','create_ro_wf', itemtype,itemkey, to_char(actid),funcmode);
559: ROLLBACK;
552:
553: EXCEPTION
554: WHEN l_ro_exception THEN
555: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
556: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,lc_mod_name||'exception','Error '||x_msg_data);
557: END IF;
558: WF_CORE.CONTEXT ('CSD_ISUP_DEPOT_WF_PVT','create_ro_wf', itemtype,itemkey, to_char(actid),funcmode);
559: ROLLBACK;
560: RAISE;
558: WF_CORE.CONTEXT ('CSD_ISUP_DEPOT_WF_PVT','create_ro_wf', itemtype,itemkey, to_char(actid),funcmode);
559: ROLLBACK;
560: RAISE;
561: WHEN l_prod_exception THEN
562: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
563: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,lc_mod_name||'exception','Error '||x_msg_data);
564: END IF;
565: WF_CORE.CONTEXT ('CSD_ISUP_DEPOT_WF_PVT','create_ro_wf', itemtype,itemkey, to_char(actid),funcmode);
566: ROLLBACK;
559: ROLLBACK;
560: RAISE;
561: WHEN l_prod_exception THEN
562: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
563: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,lc_mod_name||'exception','Error '||x_msg_data);
564: END IF;
565: WF_CORE.CONTEXT ('CSD_ISUP_DEPOT_WF_PVT','create_ro_wf', itemtype,itemkey, to_char(actid),funcmode);
566: ROLLBACK;
567: RAISE;