[Home] [Help]
4054: -- If the cached item is already complete, then it is ok to
4055: -- toss out the old item and create a new one.
4056: begin
4057: Wf_Item.Root_Process(itemtype, itemkey, root, version);
4058: rootid := Wf_Process_Activity.RootInstanceId(itemtype,
4059: itemkey, root);
4060: Wf_Item_Activity_Status.Status(itemtype, itemkey, rootid, status);
4061: exception
4062: when others then
4108: Wf_Item.Create_Item(itemtype, itemkey, root, actdate, createprocess.user_key,
4109: createprocess.owner_role);
4110:
4111: -- Validate the root argument is runnable
4112: rootid := Wf_Process_Activity.RootInstanceId(itemtype, itemkey,
4113: root);
4114: if (rootid is null) then
4115: Wf_Core.Token('TYPE', itemtype);
4116: Wf_Core.Token('NAME', root);
4289: -- Get the process instance id.
4290: -- Search the process beginnning at the root process of the item for the
4291: -- activity matching process.
4292: actdate := Wf_Item.Active_Date(itemtype, itemkey);
4293: rootid := Wf_Process_Activity.RootInstanceId(itemtype, itemkey, root);
4294: if (rootid is null) then
4295: Wf_Core.Token('TYPE', itemtype);
4296: Wf_Core.Token('KEY', itemkey);
4297: Wf_Core.Token('NAME', root);
4304: procid := rootid;
4305: else
4306: -- Suspend the given process
4307: proc := process;
4308: procid := Wf_Process_Activity.FindActivity(rootid, proc, actdate);
4309: if (procid is null) then
4310: Wf_Core.Token('TYPE', itemtype);
4311: Wf_Core.Token('KEY', itemkey);
4312: Wf_Core.Token('NAME', proc);
4455: -- Get the process instance id.
4456: -- Search the process beginnning at the root process of the item for the
4457: -- activity matching process.
4458: actdate := Wf_Item.Active_Date(itemtype, itemkey);
4459: rootid := Wf_Process_Activity.RootInstanceId(itemtype, itemkey, root);
4460: if (rootid is null) then
4461: Wf_Core.Token('TYPE', itemtype);
4462: Wf_Core.Token('KEY', itemkey);
4463: Wf_Core.Token('NAME', root);
4470: procid := rootid;
4471: else
4472: -- Abort the given process
4473: proc := process;
4474: procid := Wf_Process_Activity.FindActivity(rootid, process, actdate);
4475: if (procid is null) then
4476: Wf_Core.Token('TYPE', itemtype);
4477: Wf_Core.Token('KEY', itemkey);
4478: Wf_Core.Token('NAME', process);
4625: -- Get the process instance id.
4626: -- Search the process beginnning at the root process of the item for the
4627: -- activity matching process.
4628: actdate := Wf_Item.Active_Date(itemtype, itemkey);
4629: rootid := Wf_Process_Activity.RootInstanceId(itemtype, itemkey, root);
4630: if (rootid is null) then
4631: Wf_Core.Token('TYPE', itemtype);
4632: Wf_Core.Token('KEY', itemkey);
4633: Wf_Core.Token('NAME', root);
4640: procid := rootid;
4641: else
4642: -- Resume the given process
4643: proc := process;
4644: procid := Wf_Process_Activity.FindActivity(rootid, process, actdate);
4645: if (procid is null) then
4646: Wf_Core.Token('TYPE', itemtype);
4647: Wf_Core.Token('KEY', itemkey);
4648: Wf_Core.Token('NAME', process);
5477:
5478: else
5479: -- Item exists. Must be case (2).
5480: -- Check that the activity is currently notified.
5481: actid := Wf_Process_Activity.ActiveInstanceId(itemtype, itemkey,
5482: activity, wf_engine.eng_notified);
5483:
5484: -- Any other status, or no status at all, is an error.
5485: if (actid is null) then
5587: -- Get root process for the item
5588: Wf_Item.Root_Process(itemtype, itemkey, root, version);
5589:
5590: -- Look for the starting activity in the root process.
5591: actid := Wf_Process_Activity.StartInstanceId(itemtype, root, version,
5592: activity);
5593:
5594: -- Create a status row for new activity
5595: Wf_Item_Activity_Status.Create_Status(itemtype, itemkey, actid,
5602: --processing it.
5603:
5604: -- Item exists. Must be case (2).
5605: -- Check that the activity is currently notified.
5606: actid := Wf_Process_Activity.ActiveInstanceId(itemtype, itemkey,
5607: activity, wf_engine.eng_notified);
5608:
5609: -- Any other status, or no status at all, is an error.
5610: if (actid is null) then
5833: Wf_Core.Raise('WFENG_ITEM');
5834: end if;
5835:
5836: -- Get the root process actid.
5837: rootid := Wf_Process_Activity.RootInstanceId(itemtype, itemkey, root);
5838: if (rootid is null) then
5839: Wf_Core.Token('TYPE', itemtype);
5840: Wf_Core.Token('KEY', itemkey);
5841: Wf_Core.Token('NAME', root);
5844:
5845: -- Get the actid and check that this is a valid activity in the
5846: -- root process
5847: actdate := Wf_Item.Active_Date(itemtype, itemkey);
5848: actid := Wf_Process_Activity.FindActivity(rootid, activity, actdate);
5849: if (actid is null) then
5850: Wf_Core.Token('TYPE', itemtype);
5851: Wf_Core.Token('KEY', itemkey);
5852: Wf_Core.Token('NAME', activity);
6149: Wf_Core.Token('TYPE', itemtype);
6150: Wf_Core.Token('KEY', itemkey);
6151: Wf_Core.Raise('WFENG_ITEM');
6152: end if;
6153: rootid := Wf_Process_Activity.RootInstanceId(itemtype, itemkey, root);
6154: if (rootid is null) then
6155: Wf_Core.Token('TYPE', itemtype);
6156: Wf_Core.Token('KEY', itemkey);
6157: Wf_Core.Token('NAME', root);
6159: end if;
6160:
6161: -- Look for the activity instance for this item
6162: actdate := Wf_Item.Active_Date(itemtype, itemkey);
6163: actid := Wf_Process_Activity.FindActivity(rootid, activity, actdate);
6164:
6165: if (actid is null) then
6166: Wf_Core.Token('TYPE', itemtype);
6167: Wf_Core.Token('PROCESS', root);
6276: Wf_Core.Token('TYPE', itemtype);
6277: Wf_Core.Token('KEY', c_item_key);
6278: Wf_Core.Raise('WFENG_ITEM');
6279: end if;
6280: rootid := Wf_Process_Activity.RootInstanceId(itemtype, c_item_key, root);
6281: if (rootid is null) then
6282: Wf_Core.Token('TYPE', itemtype);
6283: Wf_Core.Token('KEY', c_item_key);
6284: Wf_Core.Token('NAME', root);