[Home] [Help]
PACKAGE BODY: APPS.WF_TSTMON
Source
1 package body WF_TSTMON as
2 /* $Header: wftmonb.pls 115.1 2002/11/11 11:33:42 rosthoma noship $ */
3
4 --
5 -- Procedure
6 -- StartProcess
7 --
8 -- Description
9 -- Initiate workflow for Test Workflow Monitor
10 --
11 --
12 --
13 procedure GetMonURLs(itemtype in varchar2,
14 itemkey in varchar2,
15 actid in number,
16 funcmode in varchar2,
17 resultout in out varchar2)
18 is
19
20 entered_type VARCHAR2(8);
21 entered_key VARCHAR2(240);
22
23 --
24 begin
25 --
26 --
27 -- Initialize workflow item attributes
28 --
29 --
30 entered_type := wf_engine.GetActivityAttrText(itemtype, itemkey, actid,'INITEMTYPE');
31 entered_key := wf_engine.getActivityAttrText(itemtype, itemkey, actid, 'INITEMKEY');
32 wf_engine.SetItemAttrText ( itemtype => itemtype,
33 itemkey => itemkey,
34 aname => 'SIMPLEWITH',
35 avalue => wf_fwkmon.getAnonymousSimpleURL(entered_type , entered_key , 'HISTORY', 'Y'));
36 --
37 wf_engine.SetItemAttrText ( itemtype => itemtype,
38 itemkey => itemkey,
39 aname => 'SIMPLEWO',
40 avalue => wf_fwkmon.getAnonymousSimpleURL(entered_type , entered_key , 'HISTORY', 'N'));
41 --
42 wf_engine.SetItemAttrText ( itemtype => itemtype,
43 itemkey => itemkey,
44 aname => 'ADVANCEDWITH',
45 avalue => wf_fwkmon.getAnonymousAdvanceURL(entered_type , entered_key , 'HISTORY', 'Y'));
46 --
47 wf_engine.SetItemAttrText ( itemtype => itemtype,
48 itemkey => itemkey,
49 aname => 'ADVANCEDWO',
50 avalue => wf_fwkmon.getAnonymousAdvanceURL(entered_type , entered_key , 'HISTORY', 'N'));
51 --
52
53
54
55 resultout := 'COMPLETE';
56
57 exception
58 when others then
59 --
60 wf_core.context('TSTMNAPI','PRC_TSTMNAPI', itemtype, itemkey, to_char(actid), funcmode);
61 raise;
62 --
63 end GetMonURLs;
64 end;