[Home] [Help]
PACKAGE BODY: APPS.JTF_WF_MESSAGING
Source
1 package body JTF_WF_MESSAGING as
2 /* $Header: JTFWFMGB.pls 120.2 2005/10/25 05:08:39 psanyal ship $ */
3
4 ----------------------------------------------------------------------------
5
6 G_PKJ_NAME CONSTANT VARCHAR2(25) := 'JTF_WF_MESSAGING';
7
8
9 Procedure GenMsg( itemtype in varchar2,
10 itemkey in varchar2,
11 actid in number,
12 funcmode in varchar2,
13 result OUT NOCOPY /* file.sql.39 change */ varchar2 ) is
14
15 l_prod_code Varchar2(5);
16 l_bus_obj_code Varchar2(10);
17 l_bus_obj_name Varchar2(100);
18 l_action_code varchar2(5);
19 l_correlation varchar2(50);
20 l_return_code varchar2(1);
21 l_bind_data_id number;
22
23 Begin
24
25 If (funcmode = 'RUN') then
26
27
28 l_bind_data_id := wf_engine.GetItemAttrNumber( itemtype => itemtype,
29 itemkey => itemkey,
30 aname => 'BIND_DATA_ID');
31
32 l_prod_code := wf_engine.GetItemAttrtext( itemtype => itemtype,
33 itemkey => itemkey,
34 aname => 'PRODUCT_CODE');
35
36 l_bus_obj_code := wf_engine.GetItemAttrtext( itemtype => itemtype,
37 itemkey => itemkey,
38 aname => 'BUS_OBJ_CODE');
39
40 l_bus_obj_name := wf_engine.GetItemAttrtext( itemtype => itemtype,
41 itemkey => itemkey,
42 aname => 'BUS_OBJ_NAME');
43
44 l_action_code := wf_engine.GetItemAttrtext( itemtype => itemtype,
45 itemkey => itemkey,
46 aname => 'ACTION_CODE');
47
48 l_correlation := wf_engine.GetItemAttrtext( itemtype => itemtype,
49 itemkey => itemkey,
50 aname => 'CORRELATION');
51
52 /* call generate_message */
53 JTF_USR_HKS.Generate_Message( p_prod_code => l_prod_code,
54 p_bus_obj_code => l_bus_obj_code,
55 p_bus_obj_name => l_bus_obj_name,
56 p_action_code => l_action_code,
57 p_correlation => l_correlation,
58 p_bind_data_id => l_bind_data_id,
59 x_return_code => l_return_code );
60
61 result := 'COMPLETE';
62 return;
63 End if;
64
65 If ( funcmode = 'CANCEL' ) then
66
67 result := 'COMPLETE';
68 return;
69 Else
70 result := '';
71 return;
72 End if;
73
74 Exception
75 When OTHERS then
76 wf_core.context('JTF_WF_MESSAGING','GenMsg',itemtype,itemkey,
77 to_char(actid),funcmode);
78
79 End GenMsg;
80
81
82 END jtf_wf_messaging;