65: where item_key = l_item_key;
66:
67: if l_count = 1 then
68: -- get this owner
69: l_ownerID := wf_engine.GetItemAttrNumber(Itemtype => 'EPBCYCLE',
70: Itemkey => l_Item_Key,
71: aname => 'OWNERID');
72:
73: -- bug 5046249: a tempoary suppression of the error becuase this is just aborting and not purging
80:
81: BEGIN
82:
83: -- abort this WF if it is active or in error
84: wf_engine.ItemStatus('EPBCYCLE', l_item_key, currStatus, result);
85: if UPPER(RTRIM(currStatus)) = 'ERROR' or UPPER(RTRIM(currStatus)) = 'ACTIVE' then
86: WF_ENGINE.AbortProcess('EPBCYCLE', l_item_key);
87: end if;
88:
82:
83: -- abort this WF if it is active or in error
84: wf_engine.ItemStatus('EPBCYCLE', l_item_key, currStatus, result);
85: if UPPER(RTRIM(currStatus)) = 'ERROR' or UPPER(RTRIM(currStatus)) = 'ACTIVE' then
86: WF_ENGINE.AbortProcess('EPBCYCLE', l_item_key);
87: end if;
88:
89: exception
90: WHEN OTHERS THEN
1803: -- if ItemKey is not found then this is an unpublished BP
1804: -- and we do not need to initialize the apps context as we will
1805: -- not be submitting any CM requests
1806: if ItemKey <> 'UNINITIALIZED' then
1807: ownerID := wf_engine.GetItemAttrNumber(Itemtype => ItemType,
1808: Itemkey => ItemKey,
1809: aname => 'OWNERID');
1810:
1811: respID := wf_engine.GetItemAttrNumber(Itemtype => ItemType,
1807: ownerID := wf_engine.GetItemAttrNumber(Itemtype => ItemType,
1808: Itemkey => ItemKey,
1809: aname => 'OWNERID');
1810:
1811: respID := wf_engine.GetItemAttrNumber(Itemtype => ItemType,
1812: Itemkey => ItemKey,
1813: aname => 'RESPID');
1814:
1815: respAppID := wf_engine.GetItemAttrNumber(Itemtype => ItemType,
1811: respID := wf_engine.GetItemAttrNumber(Itemtype => ItemType,
1812: Itemkey => ItemKey,
1813: aname => 'RESPID');
1814:
1815: respAppID := wf_engine.GetItemAttrNumber(Itemtype => ItemType,
1816: Itemkey => ItemKey,
1817: aname => 'RESPAPPID');
1818:
1819: -- Set the context before calling submit_request