593: L_API_ERROR EXCEPTION;
594: BEGIN
595:
596: if funcmode <> 'RUN' then
597: result := wf_engine.eng_null;
598: return;
599: end if;
600:
601: l_resource_id := wf_engine.GetItemAttrText(
597: result := wf_engine.eng_null;
598: return;
599: end if;
600:
601: l_resource_id := wf_engine.GetItemAttrText(
602: itemtype => itemtype,
603: itemkey => itemkey,
604: aname => 'RESOURCE_ID');
605:
603: itemkey => itemkey,
604: aname => 'RESOURCE_ID');
605:
606:
607: l_delinquency_id := wf_engine.GetItemAttrText(
608: itemtype => itemtype,
609: itemkey => itemkey,
610: aname => 'DELINQUENCY_ID');
611:
640: __________________________________________________________________________*/
641:
642: PROCEDURE SEND_NOTIFICATION( p_itemtype varchar2 ,
643: p_itemkey varchar2 ,
644: p_wf_item_NUMBER_NAME wf_engine.NameTabTyp ,
645: p_wf_item_NUMBER_VALUE wf_engine.NumTabTyp ,
646: p_wf_item_TEXT_NAME wf_engine.NameTabTyp ,
647: p_wf_item_TEXT_VALUE wf_engine.TextTabTyp ,
648: l_return_status OUT NOCOPY varchar2 ,
641:
642: PROCEDURE SEND_NOTIFICATION( p_itemtype varchar2 ,
643: p_itemkey varchar2 ,
644: p_wf_item_NUMBER_NAME wf_engine.NameTabTyp ,
645: p_wf_item_NUMBER_VALUE wf_engine.NumTabTyp ,
646: p_wf_item_TEXT_NAME wf_engine.NameTabTyp ,
647: p_wf_item_TEXT_VALUE wf_engine.TextTabTyp ,
648: l_return_status OUT NOCOPY varchar2 ,
649: l_result OUT NOCOPY varchar2 )
642: PROCEDURE SEND_NOTIFICATION( p_itemtype varchar2 ,
643: p_itemkey varchar2 ,
644: p_wf_item_NUMBER_NAME wf_engine.NameTabTyp ,
645: p_wf_item_NUMBER_VALUE wf_engine.NumTabTyp ,
646: p_wf_item_TEXT_NAME wf_engine.NameTabTyp ,
647: p_wf_item_TEXT_VALUE wf_engine.TextTabTyp ,
648: l_return_status OUT NOCOPY varchar2 ,
649: l_result OUT NOCOPY varchar2 )
650: IS
643: p_itemkey varchar2 ,
644: p_wf_item_NUMBER_NAME wf_engine.NameTabTyp ,
645: p_wf_item_NUMBER_VALUE wf_engine.NumTabTyp ,
646: p_wf_item_TEXT_NAME wf_engine.NameTabTyp ,
647: p_wf_item_TEXT_VALUE wf_engine.TextTabTyp ,
648: l_return_status OUT NOCOPY varchar2 ,
649: l_result OUT NOCOPY varchar2 )
650: IS
651: BEGIN
653: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
654: IEX_DEBUG_PUB.LOGMESSAGE('Item Type >> ' || p_itemtype || ' Item Key >> ' || p_itemkey || ' Process >> ' || workflowprocess) ;
655: END IF;
656:
657: wf_engine.createprocess (
658: itemtype => p_itemtype,
659: itemkey => p_itemkey,
660: process => workflowprocess);
661:
659: itemkey => p_itemkey,
660: process => workflowprocess);
661:
662:
663: WF_ENGINE.SetItemAttrNumberArray(
664: itemtype => p_itemtype,
665: itemkey => p_itemkey,
666: aname => p_wf_item_number_name,
667: avalue => p_wf_item_number_value);
665: itemkey => p_itemkey,
666: aname => p_wf_item_number_name,
667: avalue => p_wf_item_number_value);
668:
669: WF_ENGINE.SetItemAttrTextArray(
670: itemtype => p_itemtype,
671: itemkey => p_itemkey,
672: aname => p_wf_item_text_name,
673: avalue => p_wf_item_text_value);
671: itemkey => p_itemkey,
672: aname => p_wf_item_text_name,
673: avalue => p_wf_item_text_value);
674:
675: wf_engine.startprocess( itemtype => p_itemtype,
676: itemkey => p_itemkey);
677: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
678: IEX_DEBUG_PUB.LOGMESSAGE('Send Notification Before Item Status');
679: END IF;
677: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
678: IEX_DEBUG_PUB.LOGMESSAGE('Send Notification Before Item Status');
679: END IF;
680:
681: wf_engine.ItemStatus( itemtype => p_ItemType,
682: itemkey => p_ItemKey,
683: status => l_return_status,
684: result => l_result);
685: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN