[Home] [Help]
4101: -- If the cached item is already complete, then it is ok to
4102: -- toss out the old item and create a new one.
4103: begin
4104: Wf_Item.Root_Process(itemtype, itemkey, root, version);
4105: rootid := Wf_Process_Activity.RootInstanceId(itemtype,
4106: itemkey, root);
4107: Wf_Item_Activity_Status.Status(itemtype, itemkey, rootid, status);
4108: exception
4109: when others then
4155: Wf_Item.Create_Item(itemtype, itemkey, root, actdate, createprocess.user_key,
4156: createprocess.owner_role);
4157:
4158: -- Validate the root argument is runnable
4159: rootid := Wf_Process_Activity.RootInstanceId(itemtype, itemkey,
4160: root);
4161: if (rootid is null) then
4162: Wf_Core.Token('TYPE', itemtype);
4163: Wf_Core.Token('NAME', root);
4338: -- Get the process instance id.
4339: -- Search the process beginnning at the root process of the item for the
4340: -- activity matching process.
4341: actdate := Wf_Item.Active_Date(itemtype, itemkey);
4342: rootid := Wf_Process_Activity.RootInstanceId(itemtype, itemkey, root);
4343: if (rootid is null) then
4344: Wf_Core.Token('TYPE', itemtype);
4345: Wf_Core.Token('KEY', itemkey);
4346: Wf_Core.Token('NAME', root);
4353: procid := rootid;
4354: else
4355: -- Suspend the given process
4356: proc := process;
4357: procid := Wf_Process_Activity.FindActivity(rootid, proc, actdate);
4358: if (procid is null) then
4359: Wf_Core.Token('TYPE', itemtype);
4360: Wf_Core.Token('KEY', itemkey);
4361: Wf_Core.Token('NAME', proc);
4504: -- Get the process instance id.
4505: -- Search the process beginnning at the root process of the item for the
4506: -- activity matching process.
4507: actdate := Wf_Item.Active_Date(itemtype, itemkey);
4508: rootid := Wf_Process_Activity.RootInstanceId(itemtype, itemkey, root);
4509: if (rootid is null) then
4510: Wf_Core.Token('TYPE', itemtype);
4511: Wf_Core.Token('KEY', itemkey);
4512: Wf_Core.Token('NAME', root);
4519: procid := rootid;
4520: else
4521: -- Abort the given process
4522: proc := process;
4523: procid := Wf_Process_Activity.FindActivity(rootid, process, actdate);
4524: if (procid is null) then
4525: Wf_Core.Token('TYPE', itemtype);
4526: Wf_Core.Token('KEY', itemkey);
4527: Wf_Core.Token('NAME', process);
4676: -- Get the process instance id.
4677: -- Search the process beginnning at the root process of the item for the
4678: -- activity matching process.
4679: actdate := Wf_Item.Active_Date(itemtype, itemkey);
4680: rootid := Wf_Process_Activity.RootInstanceId(itemtype, itemkey, root);
4681: if (rootid is null) then
4682: Wf_Core.Token('TYPE', itemtype);
4683: Wf_Core.Token('KEY', itemkey);
4684: Wf_Core.Token('NAME', root);
4691: procid := rootid;
4692: else
4693: -- Resume the given process
4694: proc := process;
4695: procid := Wf_Process_Activity.FindActivity(rootid, process, actdate);
4696: if (procid is null) then
4697: Wf_Core.Token('TYPE', itemtype);
4698: Wf_Core.Token('KEY', itemkey);
4699: Wf_Core.Token('NAME', process);
5531:
5532: else
5533: -- Item exists. Must be case (2).
5534: -- Check that the activity is currently notified.
5535: actid := Wf_Process_Activity.ActiveInstanceId(itemtype, itemkey,
5536: activity, wf_engine.eng_notified);
5537:
5538: -- Any other status, or no status at all, is an error.
5539: if (actid is null) then
5643: -- Get root process for the item
5644: Wf_Item.Root_Process(itemtype, itemkey, root, version);
5645:
5646: -- Look for the starting activity in the root process.
5647: actid := Wf_Process_Activity.StartInstanceId(itemtype, root, version,
5648: activity);
5649:
5650: -- Create a status row for new activity
5651: Wf_Item_Activity_Status.Create_Status(itemtype, itemkey, actid,
5658: --processing it.
5659:
5660: -- Item exists. Must be case (2).
5661: -- Check that the activity is currently notified.
5662: actid := Wf_Process_Activity.ActiveInstanceId(itemtype, itemkey,
5663: activity, wf_engine.eng_notified);
5664:
5665: -- Any other status, or no status at all, is an error.
5666: if (actid is null) then
5898: Wf_Core.Raise('WFENG_ITEM');
5899: end if;
5900:
5901: -- Get the root process actid.
5902: rootid := Wf_Process_Activity.RootInstanceId(itemtype, itemkey, root);
5903: if (rootid is null) then
5904: Wf_Core.Token('TYPE', itemtype);
5905: Wf_Core.Token('KEY', itemkey);
5906: Wf_Core.Token('NAME', root);
5909:
5910: -- Get the actid and check that this is a valid activity in the
5911: -- root process
5912: actdate := Wf_Item.Active_Date(itemtype, itemkey);
5913: actid := Wf_Process_Activity.FindActivity(rootid, activity, actdate);
5914: if (actid is null) then
5915: Wf_Core.Token('TYPE', itemtype);
5916: Wf_Core.Token('KEY', itemkey);
5917: Wf_Core.Token('NAME', activity);
6217: Wf_Core.Token('TYPE', itemtype);
6218: Wf_Core.Token('KEY', itemkey);
6219: Wf_Core.Raise('WFENG_ITEM');
6220: end if;
6221: rootid := Wf_Process_Activity.RootInstanceId(itemtype, itemkey, root);
6222: if (rootid is null) then
6223: Wf_Core.Token('TYPE', itemtype);
6224: Wf_Core.Token('KEY', itemkey);
6225: Wf_Core.Token('NAME', root);
6227: end if;
6228:
6229: -- Look for the activity instance for this item
6230: actdate := Wf_Item.Active_Date(itemtype, itemkey);
6231: actid := Wf_Process_Activity.FindActivity(rootid, activity, actdate);
6232:
6233: if (actid is null) then
6234: Wf_Core.Token('TYPE', itemtype);
6235: Wf_Core.Token('PROCESS', root);
6345: Wf_Core.Token('TYPE', itemtype);
6346: Wf_Core.Token('KEY', c_item_key);
6347: Wf_Core.Raise('WFENG_ITEM');
6348: end if;
6349: rootid := Wf_Process_Activity.RootInstanceId(itemtype, c_item_key, root);
6350: if (rootid is null) then
6351: Wf_Core.Token('TYPE', itemtype);
6352: Wf_Core.Token('KEY', c_item_key);
6353: Wf_Core.Token('NAME', root);