[Home] [Help]
PACKAGE BODY: APPS.JTF_NOTES_EVENTS_PVT
Source
1 PACKAGE BODY JTF_NOTES_EVENTS_PVT AS
2 /* $Header: jtfntbeb.pls 115.3 2003/10/24 00:43:18 hbouten noship $ */
3
4
5 FUNCTION getItemKey(p_EventName IN VARCHAR2)
6 RETURN VARCHAR2
7 IS
8 l_key varchar2(240);
9 BEGIN
10 SELECT p_EventName ||'-'|| jtf_notes_wf_events_s.NEXTVAL INTO l_key FROM DUAL;
11 RETURN l_key;
12 END getItemKey;
13
14
15 PROCEDURE RaiseCreateNote
16 ( p_NoteID IN NUMBER
17 , p_SourceObjectCode IN VARCHAR2
18 , p_SourceObjectID IN VARCHAR2
19 )
20 IS
21 l_ParameterList WF_PARAMETER_LIST_T;
22 l_ItemKey VARCHAR2(240);
23 l_EventName VARCHAR2(240) := 'oracle.apps.jtf.cac.notes.create';
24
25 BEGIN
26 --
27 -- Get the item key
28 --
29 l_ItemKey := getItemKey(l_EventName);
30
31 --
32 -- construct the parameter list
33 --
34 WF_EVENT.ADDPARAMETERTOLIST( p_name => 'NOTE_ID'
35 , p_value => TO_CHAR(p_NoteID)
36 , p_parameterlist => l_ParameterList
37 );
38
39
40 WF_EVENT.ADDPARAMETERTOLIST( p_name => 'SOURCE_OBJECT_CODE'
41 , p_value => p_SourceObjectCode
42 , p_parameterlist => l_ParameterList
43 );
44
45 WF_EVENT.ADDPARAMETERTOLIST( p_name => 'SOURCE_OBJECT_ID'
46 , p_value => p_SourceObjectID
47 , p_parameterlist => l_ParameterList
48 );
49 --
50 -- Raise the event
51 --
52 WF_EVENT.RAISE3( p_event_name => 'oracle.apps.jtf.cac.notes.create'
53 , p_event_key => l_ItemKey
54 , p_event_data => NULL
55 , p_parameter_list => l_ParameterList
56 , p_send_date => SYSDATE
57 );
58
59 --
60 -- Clean up parameter list
61 --
62 l_ParameterList.DELETE;
63
64
65 END RaiseCreateNote;
66
67
68 PROCEDURE RaiseUpdateNote
69 ( p_NoteID IN NUMBER
70 , p_SourceObjectCode IN VARCHAR2
71 , p_SourceObjectID IN VARCHAR2
72 )
73 IS
74 l_ParameterList WF_PARAMETER_LIST_T;
75 l_ItemKey VARCHAR2(240);
76 l_EventName VARCHAR2(240) := 'oracle.apps.jtf.cac.notes.update';
77
78 BEGIN
79 --
80 -- Get the item key
81 --
82 l_ItemKey := getItemKey(l_EventName);
83
84 --
85 -- construct the parameter list
86 --
87 WF_EVENT.ADDPARAMETERTOLIST( p_name => 'NOTE_ID'
88 , p_value => p_NoteID
89 , p_parameterlist => l_ParameterList
90 );
91
92
93 WF_EVENT.ADDPARAMETERTOLIST( p_name => 'SOURCE_OBJECT_CODE'
94 , p_value => p_SourceObjectCode
95 , p_parameterlist => l_ParameterList
96 );
97
98 WF_EVENT.ADDPARAMETERTOLIST( p_name => 'SOURCE_OBJECT_ID'
99 , p_value => p_SourceObjectID
100 , p_parameterlist => l_ParameterList
101 );
102 --
103 -- Raise the event
104 --
105 WF_EVENT.RAISE3( p_event_name => 'oracle.apps.jtf.cac.notes.update'
106 , p_event_key => l_ItemKey
107 , p_event_data => NULL
108 , p_parameter_list => l_ParameterList
109 , p_send_date => SYSDATE
110 );
111
112 --
113 -- Clean up parameter list
114 --
115 l_ParameterList.DELETE;
116
117
118 END RaiseUpdateNote;
119
120 PROCEDURE RaiseDeleteNote
121 ( p_NoteID IN NUMBER
122 , p_SourceObjectCode IN VARCHAR2
123 , p_SourceObjectID IN VARCHAR2
124 )
125 IS
126 l_ParameterList WF_PARAMETER_LIST_T;
127 l_ItemKey VARCHAR2(240);
128 l_EventName VARCHAR2(240) := 'oracle.apps.jtf.cac.notes.delete';
129
130 BEGIN
131 --
132 -- Get the item key
133 --
134 l_ItemKey := getItemKey(l_EventName);
135
136 --
137 -- construct the parameter list
138 --
139 WF_EVENT.ADDPARAMETERTOLIST( p_name => 'NOTE_ID'
140 , p_value => p_NoteID
141 , p_parameterlist => l_ParameterList
142 );
143
144
145 WF_EVENT.ADDPARAMETERTOLIST( p_name => 'SOURCE_OBJECT_CODE'
146 , p_value => p_SourceObjectCode
147 , p_parameterlist => l_ParameterList
148 );
149
150 WF_EVENT.ADDPARAMETERTOLIST( p_name => 'SOURCE_OBJECT_ID'
151 , p_value => p_SourceObjectID
152 , p_parameterlist => l_ParameterList
153 );
154 --
155 -- Raise the event
156 --
157 WF_EVENT.RAISE3( p_event_name => 'oracle.apps.jtf.cac.notes.delete'
158 , p_event_key => l_ItemKey
159 , p_event_data => NULL
160 , p_parameter_list => l_ParameterList
161 , p_send_date => SYSDATE
162 );
163
164 --
165 -- Clean up parameter list
166 --
167 l_ParameterList.DELETE;
168
169 END RaiseDeleteNote;
170
171
172
173 END JTF_NOTES_EVENTS_PVT; -- end package body JTF_NOTES_EVENTS_PVT