49: end loop;
50:
51:
52:
53: -- The default date setting for exec wf_purge.adhocdirectory is sysdate.
54: -- This will purge out any ad hoc roles or users zpb generated based on the expiration_date
55: -- whcih were set by wf_directory.CreateAdHocRole. This is a standard WF API.
56: wf_purge.adhocdirectory;
57:
52:
53: -- The default date setting for exec wf_purge.adhocdirectory is sysdate.
54: -- This will purge out any ad hoc roles or users zpb generated based on the expiration_date
55: -- whcih were set by wf_directory.CreateAdHocRole. This is a standard WF API.
56: wf_purge.adhocdirectory;
57:
58:
59: return;
60:
110: for v_ItemKey in c_ItemKeys loop
111: wf_engine.ItemStatus(v_ItemKey.item_type, v_ItemKey.item_key, currStatus, result);
112:
113: if UPPER(RTRIM(currStatus)) = 'COMPLETE' then
114: WF_PURGE.Total(v_ItemKey.item_Type, v_ItemKey.item_key);
115: else
116: WF_ENGINE.AbortProcess(v_ItemKey.item_Type, v_ItemKey.item_key);
117: WF_PURGE.Total(v_ItemKey.item_Type, v_ItemKey.item_key);
118: end if;
113: if UPPER(RTRIM(currStatus)) = 'COMPLETE' then
114: WF_PURGE.Total(v_ItemKey.item_Type, v_ItemKey.item_key);
115: else
116: WF_ENGINE.AbortProcess(v_ItemKey.item_Type, v_ItemKey.item_key);
117: WF_PURGE.Total(v_ItemKey.item_Type, v_ItemKey.item_key);
118: end if;
119:
120: end loop;
121:
124:
125: wf_engine.ItemStatus('EPBDC', v_dc_object.item_key, currStatus, result);
126:
127: if UPPER(RTRIM(currStatus)) = 'COMPLETE' then
128: WF_PURGE.Total('EPBDC', v_dc_object.item_key);
129: else
130: WF_ENGINE.AbortProcess('EPBDC', v_dc_object.item_key);
131: WF_PURGE.Total('EPBDC', v_dc_object.item_key);
132: end if;
127: if UPPER(RTRIM(currStatus)) = 'COMPLETE' then
128: WF_PURGE.Total('EPBDC', v_dc_object.item_key);
129: else
130: WF_ENGINE.AbortProcess('EPBDC', v_dc_object.item_key);
131: WF_PURGE.Total('EPBDC', v_dc_object.item_key);
132: end if;
133:
134: end loop;
135: