[Home] [Help]
PACKAGE BODY: APPS.OKL_UBB_WF_PVT
Source
1 PACKAGE BODY OKL_UBB_WF_PVT AS
2 /* $Header: OKLRUWFB.pls 120.4 2005/10/30 03:17:38 appldev noship $ */
3
4 G_WF_EVT_UBB_CREATED CONSTANT VARCHAR2(55) := 'oracle.apps.okl.la.lease_contract.usage_billing_created';
5 G_WF_EVT_UBB_UPDATED CONSTANT VARCHAR2(55) := 'oracle.apps.okl.la.lease_contract.usage_billing_updated';
6 G_WF_EVT_UBB_REMOVE CONSTANT VARCHAR2(55) := 'oracle.apps.okl.la.lease_contract.remove_usage_billing';
7 G_WF_EVT_UBB_ADD_ASSET CONSTANT VARCHAR2(55) := 'oracle.apps.okl.la.lease_contract.usage_asset_added';
8 G_WF_EVT_UBB_REMOVE_ASSET CONSTANT VARCHAR2(55) := 'oracle.apps.okl.la.lease_contract.usage_asset_removed';
9
10 G_WF_ITM_CONTRACT_ID CONSTANT VARCHAR2(15) := 'CONTRACT_ID';
11 G_WF_ITM_UBB_ID CONSTANT VARCHAR2(10) := 'UBB_ID';
12 G_WF_ITM_UBB_ASSET_ID CONSTANT VARCHAR2(15) := 'UBB_ASSET_ID';
13 G_WF_ITM_CONTRACT_PROCESS CONSTANT VARCHAR2(20) := 'CONTRACT_PROCESS';
14
15 PROCEDURE raise_create_event (p_api_version IN NUMBER,
16 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
17 x_return_status OUT NOCOPY VARCHAR2,
18 x_msg_count OUT NOCOPY NUMBER,
19 x_msg_data OUT NOCOPY VARCHAR2,
20 p_chr_id IN NUMBER,
21 p_ubb_id IN NUMBER)
22 IS
23 l_api_name CONSTANT VARCHAR2(30) := 'raise_create_event';
24 l_api_version CONSTANT NUMBER := 1.0;
25 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
26 l_parameter_list wf_parameter_list_t;
27 l_process VARCHAR2(20);
28 BEGIN
29
30 l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
31 p_pkg_name => G_PKG_NAME,
32 p_init_msg_list => p_init_msg_list,
33 l_api_version => l_api_version,
34 p_api_version => p_api_version,
35 p_api_type => G_API_TYPE,
36 x_return_status => l_return_status);
37
38 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
39 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
40 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
41 RAISE G_EXCEPTION_ERROR;
42 END IF;
43
44 l_process := Okl_Lla_Util_Pvt.get_contract_process(p_chr_id);
45 Wf_Event.AddParameterToList(G_WF_ITM_CONTRACT_ID,p_chr_id,l_parameter_list);
46 Wf_Event.AddParameterToList(G_WF_ITM_UBB_ID,p_ubb_id,l_parameter_list);
47 Wf_Event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS,l_process,l_parameter_list);
48
49 OKL_WF_PVT.raise_event (p_api_version => p_api_version,
50 p_init_msg_list => p_init_msg_list,
51 x_return_status => x_return_status,
52 x_msg_count => x_msg_count,
53 x_msg_data => x_msg_data,
54 p_event_name => G_WF_EVT_UBB_CREATED,
55 p_parameters => l_parameter_list);
56
57 Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
58 ,x_msg_data => x_msg_data);
59
60 x_return_status := l_return_status;
61 EXCEPTION
62 WHEN G_EXCEPTION_ERROR THEN
63
64 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
65 p_pkg_name => G_PKG_NAME,
66 p_exc_name => G_EXC_NAME_ERROR,
67 x_msg_count => x_msg_count,
68 x_msg_data => x_msg_data,
69 p_api_type => G_API_TYPE);
70
71 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
72
73 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
74 p_pkg_name => G_PKG_NAME,
75 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
76 x_msg_count => x_msg_count,
77 x_msg_data => x_msg_data,
78 p_api_type => G_API_TYPE);
79 WHEN OTHERS THEN
80
81 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
82 p_pkg_name => G_PKG_NAME,
83 p_exc_name => G_EXC_NAME_OTHERS,
84 x_msg_count => x_msg_count,
85 x_msg_data => x_msg_data,
86 p_api_type => G_API_TYPE);
87
88 END raise_create_event;
89
90 PROCEDURE raise_update_event (p_api_version IN NUMBER,
91 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
92 x_return_status OUT NOCOPY VARCHAR2,
93 x_msg_count OUT NOCOPY NUMBER,
94 x_msg_data OUT NOCOPY VARCHAR2,
95 p_chr_id IN NUMBER,
96 p_ubb_id IN NUMBER)
97 IS
98 l_api_name CONSTANT VARCHAR2(30) := 'raise_udpate_event';
99 l_api_version CONSTANT NUMBER := 1.0;
100 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
101 l_parameter_list wf_parameter_list_t;
102 l_process VARCHAR2(20);
103 BEGIN
104
105 l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
106 p_pkg_name => G_PKG_NAME,
107 p_init_msg_list => p_init_msg_list,
108 l_api_version => l_api_version,
109 p_api_version => p_api_version,
110 p_api_type => G_API_TYPE,
111 x_return_status => l_return_status);
112
113 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
114 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
115 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
116 RAISE G_EXCEPTION_ERROR;
117 END IF;
118
119 l_process := Okl_Lla_Util_Pvt.get_contract_process(p_chr_id);
120 Wf_Event.AddParameterToList(G_WF_ITM_CONTRACT_ID,p_chr_id,l_parameter_list);
121 Wf_Event.AddParameterToList(G_WF_ITM_UBB_ID,p_ubb_id,l_parameter_list);
122 Wf_Event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS,l_process,l_parameter_list);
123
124 OKL_WF_PVT.raise_event (p_api_version => p_api_version,
125 p_init_msg_list => p_init_msg_list,
126 x_return_status => x_return_status,
127 x_msg_count => x_msg_count,
128 x_msg_data => x_msg_data,
129 p_event_name => G_WF_EVT_UBB_UPDATED,
130 p_parameters => l_parameter_list);
131
132 Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
133 ,x_msg_data => x_msg_data);
134
135 x_return_status := l_return_status;
136 EXCEPTION
137 WHEN G_EXCEPTION_ERROR THEN
138
139 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
140 p_pkg_name => G_PKG_NAME,
141 p_exc_name => G_EXC_NAME_ERROR,
142 x_msg_count => x_msg_count,
143 x_msg_data => x_msg_data,
144 p_api_type => G_API_TYPE);
145
146 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
147
148 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
149 p_pkg_name => G_PKG_NAME,
150 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
151 x_msg_count => x_msg_count,
152 x_msg_data => x_msg_data,
153 p_api_type => G_API_TYPE);
154 WHEN OTHERS THEN
155
156 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
157 p_pkg_name => G_PKG_NAME,
158 p_exc_name => G_EXC_NAME_OTHERS,
159 x_msg_count => x_msg_count,
160 x_msg_data => x_msg_data,
161 p_api_type => G_API_TYPE);
162
163 END raise_update_event;
164
165 PROCEDURE raise_delete_event (p_api_version IN NUMBER,
166 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
167 x_return_status OUT NOCOPY VARCHAR2,
168 x_msg_count OUT NOCOPY NUMBER,
169 x_msg_data OUT NOCOPY VARCHAR2,
170 p_chr_id IN NUMBER,
171 p_ubb_id IN NUMBER)
172 IS
173 l_api_name CONSTANT VARCHAR2(30) := 'raise_delete_event';
174 l_api_version CONSTANT NUMBER := 1.0;
175 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
176 l_parameter_list wf_parameter_list_t;
177 l_process VARCHAR2(20);
178 BEGIN
179
180 l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
181 p_pkg_name => G_PKG_NAME,
182 p_init_msg_list => p_init_msg_list,
183 l_api_version => l_api_version,
184 p_api_version => p_api_version,
185 p_api_type => G_API_TYPE,
186 x_return_status => l_return_status);
187
188 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
189 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
190 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
191 RAISE G_EXCEPTION_ERROR;
192 END IF;
193
194 l_process := Okl_Lla_Util_Pvt.get_contract_process(p_chr_id);
195 Wf_Event.AddParameterToList(G_WF_ITM_CONTRACT_ID,p_chr_id,l_parameter_list);
196 Wf_Event.AddParameterToList(G_WF_ITM_UBB_ID,p_ubb_id,l_parameter_list);
197 Wf_Event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS,l_process,l_parameter_list);
198
199 OKL_WF_PVT.raise_event (p_api_version => p_api_version,
200 p_init_msg_list => p_init_msg_list,
201 x_return_status => x_return_status,
202 x_msg_count => x_msg_count,
203 x_msg_data => x_msg_data,
204 p_event_name => G_WF_EVT_UBB_REMOVE,
205 p_parameters => l_parameter_list);
206
207 Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
208 ,x_msg_data => x_msg_data);
209
210 x_return_status := l_return_status;
211 EXCEPTION
212 WHEN G_EXCEPTION_ERROR THEN
213
214 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
215 p_pkg_name => G_PKG_NAME,
216 p_exc_name => G_EXC_NAME_ERROR,
217 x_msg_count => x_msg_count,
218 x_msg_data => x_msg_data,
219 p_api_type => G_API_TYPE);
220
221 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
222
223 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
224 p_pkg_name => G_PKG_NAME,
225 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
226 x_msg_count => x_msg_count,
227 x_msg_data => x_msg_data,
228 p_api_type => G_API_TYPE);
229 WHEN OTHERS THEN
230
231 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
232 p_pkg_name => G_PKG_NAME,
233 p_exc_name => G_EXC_NAME_OTHERS,
234 x_msg_count => x_msg_count,
235 x_msg_data => x_msg_data,
236 p_api_type => G_API_TYPE);
237
238 END raise_delete_event;
239
240
241 PROCEDURE raise_add_asset_event (p_api_version IN NUMBER,
242 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
243 x_return_status OUT NOCOPY VARCHAR2,
247 p_ubb_id IN NUMBER,
244 x_msg_count OUT NOCOPY NUMBER,
245 x_msg_data OUT NOCOPY VARCHAR2,
246 p_chr_id IN NUMBER,
248 p_cle_id IN NUMBER)
249 IS
250 l_api_name CONSTANT VARCHAR2(30) := 'raise_add_asset_event';
251 l_api_version CONSTANT NUMBER := 1.0;
252 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
253 l_parameter_list wf_parameter_list_t;
254 l_process VARCHAR2(20);
255 BEGIN
256
257 l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
258 p_pkg_name => G_PKG_NAME,
259 p_init_msg_list => p_init_msg_list,
260 l_api_version => l_api_version,
261 p_api_version => p_api_version,
262 p_api_type => G_API_TYPE,
263 x_return_status => l_return_status);
264
265 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
266 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
267 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
268 RAISE G_EXCEPTION_ERROR;
269 END IF;
270
271 l_process := Okl_Lla_Util_Pvt.get_contract_process(p_chr_id);
272 Wf_Event.AddParameterToList(G_WF_ITM_CONTRACT_ID,p_chr_id,l_parameter_list);
273 Wf_Event.AddParameterToList(G_WF_ITM_UBB_ID,p_ubb_id,l_parameter_list);
274 Wf_Event.AddParameterToList(G_WF_ITM_UBB_ASSET_ID,p_cle_id,l_parameter_list);
275 Wf_Event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS,l_process,l_parameter_list);
276
277 OKL_WF_PVT.raise_event (p_api_version => p_api_version,
278 p_init_msg_list => p_init_msg_list,
279 x_return_status => x_return_status,
280 x_msg_count => x_msg_count,
281 x_msg_data => x_msg_data,
282 p_event_name => G_WF_EVT_UBB_ADD_ASSET,
283 p_parameters => l_parameter_list);
284
285 Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
286 ,x_msg_data => x_msg_data);
287
288 x_return_status := l_return_status;
289 EXCEPTION
290 WHEN G_EXCEPTION_ERROR THEN
291
292 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
293 p_pkg_name => G_PKG_NAME,
294 p_exc_name => G_EXC_NAME_ERROR,
295 x_msg_count => x_msg_count,
296 x_msg_data => x_msg_data,
297 p_api_type => G_API_TYPE);
298
299 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
300
301 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
302 p_pkg_name => G_PKG_NAME,
303 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
304 x_msg_count => x_msg_count,
305 x_msg_data => x_msg_data,
306 p_api_type => G_API_TYPE);
307 WHEN OTHERS THEN
308
309 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
310 p_pkg_name => G_PKG_NAME,
311 p_exc_name => G_EXC_NAME_OTHERS,
312 x_msg_count => x_msg_count,
313 x_msg_data => x_msg_data,
314 p_api_type => G_API_TYPE);
315
316 END raise_add_asset_event;
317
318 PROCEDURE raise_delete_asset_event (p_api_version IN NUMBER,
319 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
320 x_return_status OUT NOCOPY VARCHAR2,
321 x_msg_count OUT NOCOPY NUMBER,
322 x_msg_data OUT NOCOPY VARCHAR2,
323 p_chr_id IN NUMBER,
324 p_ubb_id IN NUMBER,
325 p_cle_id IN NUMBER)
326 IS
327 l_api_name CONSTANT VARCHAR2(30) := 'raise_delete_asset_event';
328 l_api_version CONSTANT NUMBER := 1.0;
329 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
330 l_parameter_list wf_parameter_list_t;
331 l_process VARCHAR2(20);
332 BEGIN
333
334 l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
335 p_pkg_name => G_PKG_NAME,
336 p_init_msg_list => p_init_msg_list,
337 l_api_version => l_api_version,
338 p_api_version => p_api_version,
339 p_api_type => G_API_TYPE,
340 x_return_status => l_return_status);
341
342 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
343 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
344 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
345 RAISE G_EXCEPTION_ERROR;
346 END IF;
347
348 l_process := Okl_Lla_Util_Pvt.get_contract_process(p_chr_id);
349 Wf_Event.AddParameterToList(G_WF_ITM_CONTRACT_ID,p_chr_id,l_parameter_list);
350 Wf_Event.AddParameterToList(G_WF_ITM_UBB_ID,p_ubb_id,l_parameter_list);
351 Wf_Event.AddParameterToList(G_WF_ITM_UBB_ASSET_ID,p_cle_id,l_parameter_list);
352 Wf_Event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS,l_process,l_parameter_list);
353
354 OKL_WF_PVT.raise_event (p_api_version => p_api_version,
355 p_init_msg_list => p_init_msg_list,
356 x_return_status => x_return_status,
357 x_msg_count => x_msg_count,
358 x_msg_data => x_msg_data,
359 p_event_name => G_WF_EVT_UBB_REMOVE_ASSET,
360 p_parameters => l_parameter_list);
361
362 Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
363 ,x_msg_data => x_msg_data);
364
365 x_return_status := l_return_status;
366 EXCEPTION
367 WHEN G_EXCEPTION_ERROR THEN
368
369 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
370 p_pkg_name => G_PKG_NAME,
371 p_exc_name => G_EXC_NAME_ERROR,
372 x_msg_count => x_msg_count,
373 x_msg_data => x_msg_data,
374 p_api_type => G_API_TYPE);
375
376 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
377
378 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
379 p_pkg_name => G_PKG_NAME,
380 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
381 x_msg_count => x_msg_count,
382 x_msg_data => x_msg_data,
383 p_api_type => G_API_TYPE);
384 WHEN OTHERS THEN
385
386 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
387 p_pkg_name => G_PKG_NAME,
388 p_exc_name => G_EXC_NAME_OTHERS,
389 x_msg_count => x_msg_count,
390 x_msg_data => x_msg_data,
391 p_api_type => G_API_TYPE);
392
393 END raise_delete_asset_event;
394
395
396 END OKL_UBB_WF_PVT;