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;