[Home] [Help]
PACKAGE BODY: APPS.OKC_TASK_PUB
Source
1 PACKAGE BODY OKC_TASK_PUB AS
2 /* $Header: OKCPTSKB.pls 120.0 2005/05/25 18:04:34 appldev noship $ */
3 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4
5 --Procedure to create a task for resolved time value
6 PROCEDURE create_task(p_api_version IN NUMBER
7 ,p_init_msg_list IN VARCHAR2
8 ,p_commit IN VARCHAR2
9 ,p_resolved_time_id IN NUMBER
10 ,p_timezone_id IN NUMBER
11 ,p_timezone_name IN VARCHAR2
12 ,p_tve_id IN NUMBER
13 ,p_planned_end_date IN DATE
14 ,x_return_status OUT NOCOPY VARCHAR2
15 ,x_msg_count OUT NOCOPY NUMBER
16 ,x_msg_data OUT NOCOPY VARCHAR2
17 ,x_task_id OUT NOCOPY NUMBER) IS
18 l_api_name CONSTANT VARCHAR2(30) := 'create_task';
19 l_api_version CONSTANT NUMBER := 1.0;
20 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
21 BEGIN
22 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
23 g_pkg_name,
24 p_init_msg_list,
25 l_api_version,
26 p_api_version,
27 '_PUB',
28 x_return_status);
29
30 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
31 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
32 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
33 RAISE OKC_API.G_EXCEPTION_ERROR;
34 END IF;
35
36 --call to private API to create a task for resolved timevalue
37 okc_task_pvt.create_task(p_api_version => p_api_version
38 ,p_init_msg_list => p_init_msg_list
39 ,p_resolved_time_id => p_resolved_time_id
40 ,p_timezone_id => p_timezone_id
41 ,p_timezone_name => p_timezone_name
42 ,p_tve_id => p_tve_id
43 ,p_planned_end_date => p_planned_end_date
44 ,x_return_status => x_return_status
45 ,x_msg_count => x_msg_count
46 ,x_msg_data => x_msg_data
47 ,x_task_id => x_task_id);
48 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
49 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
50 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
51 raise OKC_API.G_EXCEPTION_ERROR;
52 ELSIF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
53 IF p_commit = 'T' THEN
54 commit;
55 END IF;
56 END IF;
57
58 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
59
60 EXCEPTION
61 WHEN OKC_API.G_EXCEPTION_ERROR THEN
62 x_return_status := OKC_API.HANDLE_EXCEPTIONS
63 (
64 l_api_name,
65 G_PKG_NAME,
66 'OKC_API.G_RET_STS_ERROR',
67 x_msg_count,
68 x_msg_data,
69 '_PUB'
70 );
71
72 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
73 x_return_status := OKC_API.HANDLE_EXCEPTIONS
74 (
75 l_api_name,
76 G_PKG_NAME,
77 'OKC_API.G_RET_STS_UNEXP_ERROR',
78 x_msg_count,
79 x_msg_data,
80 '_PUB'
81 );
82
83 WHEN OTHERS THEN
84 x_return_status := OKC_API.HANDLE_EXCEPTIONS
85 (
86 l_api_name,
87 G_PKG_NAME,
88 'OTHERS',
89 x_msg_count,
90 x_msg_data,
91 '_PUB'
92 );
93 END create_task;
94
95 --Procedure to create a task for condition occurrence
96 PROCEDURE create_condition_task(p_api_version IN NUMBER
97 ,p_init_msg_list IN VARCHAR2
98 ,p_commit IN VARCHAR2
99 ,p_cond_occr_id IN NUMBER
100 ,p_condition_name IN VARCHAR2
101 ,p_task_owner_id IN NUMBER
102 ,p_actual_end_date IN DATE
103 ,x_return_status OUT NOCOPY VARCHAR2
104 ,x_msg_count OUT NOCOPY NUMBER
105 ,x_msg_data OUT NOCOPY VARCHAR2
106 ,x_task_id OUT NOCOPY NUMBER) IS
107 l_api_name CONSTANT VARCHAR2(30) := 'create_condition_task';
108 l_api_version CONSTANT NUMBER := 1.0;
109 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
110 BEGIN
111 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
112 g_pkg_name,
113 p_init_msg_list,
114 l_api_version,
115 p_api_version,
116 '_PUB',
117 x_return_status);
118
119 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
120 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
121 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
122 RAISE OKC_API.G_EXCEPTION_ERROR;
123 END IF;
124
125 --call to private API to create a task for condition occurence
126 okc_task_pvt.create_condition_task(p_api_version => p_api_version
127 ,p_init_msg_list => p_init_msg_list
128 ,p_cond_occr_id => p_cond_occr_id
129 ,p_condition_name => p_condition_name
130 ,p_task_owner_id => p_task_owner_id
131 ,p_actual_end_date => p_actual_end_date
132 ,x_return_status => x_return_status
133 ,x_msg_count => x_msg_count
134 ,x_msg_data => x_msg_data
135 ,x_task_id => x_task_id);
136 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
137 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
138 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
139 raise OKC_API.G_EXCEPTION_ERROR;
140 ELSIF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
141 IF p_commit = 'T' THEN
142 commit;
143 END IF;
144 END IF;
145
146 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
147
148 EXCEPTION
149 WHEN OKC_API.G_EXCEPTION_ERROR THEN
150 x_return_status := OKC_API.HANDLE_EXCEPTIONS
151 (
152 l_api_name,
153 G_PKG_NAME,
154 'OKC_API.G_RET_STS_ERROR',
155 x_msg_count,
156 x_msg_data,
157 '_PUB'
158 );
159
160 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
161 x_return_status := OKC_API.HANDLE_EXCEPTIONS
162 (
163 l_api_name,
164 G_PKG_NAME,
165 'OKC_API.G_RET_STS_UNEXP_ERROR',
166 x_msg_count,
167 x_msg_data,
168 '_PUB'
169 );
170
171 WHEN OTHERS THEN
172 x_return_status := OKC_API.HANDLE_EXCEPTIONS
173 (
174 l_api_name,
175 G_PKG_NAME,
176 'OTHERS',
177 x_msg_count,
178 x_msg_data,
179 '_PUB'
180 );
181 END create_condition_task;
182
183 --Procedure to create a task for condition occurence
184 PROCEDURE create_contingent_task(p_api_version IN NUMBER
185 ,p_init_msg_list IN VARCHAR2
186 ,p_commit IN VARCHAR2
187 ,p_contract_id IN NUMBER
188 ,p_contract_number IN VARCHAR2
189 ,p_contingent_name IN VARCHAR2
190 ,p_task_owner_id IN NUMBER
191 ,p_actual_end_date IN DATE
192 ,x_return_status OUT NOCOPY VARCHAR2
193 ,x_msg_count OUT NOCOPY NUMBER
194 ,x_msg_data OUT NOCOPY VARCHAR2
195 ,x_task_id OUT NOCOPY NUMBER) IS
196 l_api_name CONSTANT VARCHAR2(30) := 'create_contingent_task';
197 l_api_version CONSTANT NUMBER := 1.0;
198 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
199 BEGIN
200 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
201 g_pkg_name,
202 p_init_msg_list,
203 l_api_version,
204 p_api_version,
205 '_PUB',
206 x_return_status);
207
208 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
209 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
210 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
211 RAISE OKC_API.G_EXCEPTION_ERROR;
212 END IF;
213
214 --call to private API to create a task for contingent event
215 okc_task_pvt.create_contingent_task(p_api_version => p_api_version
216 ,p_init_msg_list => p_init_msg_list
217 ,p_contract_id => p_contract_id
218 ,p_contract_number => p_contract_number
219 ,p_contingent_name => p_contingent_name
220 ,p_task_owner_id => p_task_owner_id
221 ,p_actual_end_date => p_actual_end_date
222 ,x_return_status => x_return_status
223 ,x_msg_count => x_msg_count
224 ,x_msg_data => x_msg_data
225 ,x_task_id => x_task_id);
226 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
227 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
228 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
229 raise OKC_API.G_EXCEPTION_ERROR;
230
231 ELSIF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
232 IF p_commit = 'T' THEN
233 commit;
234 END IF;
235 END IF;
236
237 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
238
239 EXCEPTION
240 WHEN OKC_API.G_EXCEPTION_ERROR THEN
241 x_return_status := OKC_API.HANDLE_EXCEPTIONS
242 (
243 l_api_name,
244 G_PKG_NAME,
245 'OKC_API.G_RET_STS_ERROR',
246 x_msg_count,
247 x_msg_data,
248 '_PUB'
249 );
250
251 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
252 x_return_status := OKC_API.HANDLE_EXCEPTIONS
253 (
254 l_api_name,
255 G_PKG_NAME,
256 'OKC_API.G_RET_STS_UNEXP_ERROR',
257 x_msg_count,
258 x_msg_data,
259 '_PUB'
260 );
261
262 WHEN OTHERS THEN
263 x_return_status := OKC_API.HANDLE_EXCEPTIONS
264 (
265 l_api_name,
266 G_PKG_NAME,
267 'OTHERS',
268 x_msg_count,
269 x_msg_data,
270 '_PUB'
271 );
272 END create_contingent_task;
273
274 --Procedure to update a task
275 PROCEDURE update_task(p_api_version IN NUMBER
276 ,p_init_msg_list IN VARCHAR2
277 ,p_commit IN VARCHAR2
278 ,p_object_version_number IN OUT NOCOPY NUMBER
279 ,p_task_id IN NUMBER
280 ,p_task_number IN NUMBER
281 ,p_workflow_process_id IN NUMBER
282 ,p_actual_end_date IN DATE
283 ,p_alarm_fired_count IN NUMBER
284 ,x_return_status OUT NOCOPY VARCHAR2
285 ,x_msg_count OUT NOCOPY NUMBER
286 ,x_msg_data OUT NOCOPY VARCHAR2) IS
287 l_api_name CONSTANT VARCHAR2(30) := 'update_task';
288 l_api_version CONSTANT NUMBER := 1.0;
289 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
290 BEGIN
291 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
292 g_pkg_name,
293 p_init_msg_list,
294 l_api_version,
295 p_api_version,
296 '_PUB',
297 x_return_status);
298
299 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
300 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
301 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
302 RAISE OKC_API.G_EXCEPTION_ERROR;
303 END IF;
304
305 --Call to private api to update a task
306 okc_task_pvt.update_task(p_api_version => p_api_version
307 ,p_init_msg_list => p_init_msg_list
308 ,p_object_version_number => p_object_version_number
309 ,p_task_id => p_task_id
310 ,p_task_number => p_task_number
311 ,p_workflow_process_id => p_workflow_process_id
312 ,p_actual_end_date => p_actual_end_date
313 ,p_alarm_fired_count => p_alarm_fired_count
314 ,x_return_status => x_return_status
315 ,x_msg_count => x_msg_count
316 ,x_msg_data => x_msg_data);
317 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
318 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
319 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
320 raise OKC_API.G_EXCEPTION_ERROR;
321 ELSIF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
322 IF p_commit = 'T' THEN
323 commit;
324 END IF;
325 END IF;
326
327 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
328
329 EXCEPTION
330 WHEN OKC_API.G_EXCEPTION_ERROR THEN
331 x_return_status := OKC_API.HANDLE_EXCEPTIONS
332 (
333 l_api_name,
334 G_PKG_NAME,
335 'OKC_API.G_RET_STS_ERROR',
336 x_msg_count,
337 x_msg_data,
338 '_PUB'
339 );
340
341 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
342 x_return_status := OKC_API.HANDLE_EXCEPTIONS
343 (
344 l_api_name,
345 G_PKG_NAME,
346 'OKC_API.G_RET_STS_UNEXP_ERROR',
347 x_msg_count,
348 x_msg_data,
349 '_PUB'
350 );
351
352 WHEN OTHERS THEN
353 x_return_status := OKC_API.HANDLE_EXCEPTIONS
354 (
355 l_api_name,
356 G_PKG_NAME,
357 'OTHERS',
358 x_msg_count,
359 x_msg_data,
360 '_PUB'
361 );
362 END update_task;
363
364 --Procedure to delete tasks
365 PROCEDURE delete_task(p_api_version IN NUMBER
366 ,p_init_msg_list IN VARCHAR2
367 ,p_commit IN VARCHAR2
368 ,p_tve_id IN NUMBER
369 ,p_rtv_id IN NUMBER
370 ,x_return_status OUT NOCOPY VARCHAR2
371 ,x_msg_count OUT NOCOPY NUMBER
372 ,x_msg_data OUT NOCOPY VARCHAR2) IS
373 l_api_name CONSTANT VARCHAR2(30) := 'delete_rule_task';
374 l_api_version CONSTANT NUMBER := 1.0;
375 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
376 BEGIN
377 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
378 g_pkg_name,
379 p_init_msg_list,
380 l_api_version,
381 p_api_version,
382 '_PUB',
383 x_return_status);
384
385 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
386 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
387 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
388 RAISE OKC_API.G_EXCEPTION_ERROR;
389 END IF;
390
391 --Call to private api to delete task/s
392 okc_task_pvt.delete_task(p_api_version => p_api_version
393 ,p_init_msg_list => p_init_msg_list
394 ,p_tve_id => p_tve_id
395 ,p_rtv_id => p_rtv_id
396 ,x_return_status => x_return_status
397 ,x_msg_count => x_msg_count
398 ,x_msg_data => x_msg_data);
399 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
400 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
401 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
402 raise OKC_API.G_EXCEPTION_ERROR;
403 ELSIF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
404 IF p_commit = 'T' THEN
405 commit;
406 END IF;
407 END IF;
408 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
409
410 EXCEPTION
411 WHEN OKC_API.G_EXCEPTION_ERROR THEN
412 x_return_status := OKC_API.HANDLE_EXCEPTIONS
413 (
414 l_api_name,
415 G_PKG_NAME,
416 'OKC_API.G_RET_STS_ERROR',
417 x_msg_count,
418 x_msg_data,
419 '_PUB'
420 );
421
422 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
423 x_return_status := OKC_API.HANDLE_EXCEPTIONS
424 (
425 l_api_name,
426 G_PKG_NAME,
427 'OKC_API.G_RET_STS_UNEXP_ERROR',
428 x_msg_count,
429 x_msg_data,
430 '_PUB'
431 );
432
433 WHEN OTHERS THEN
434 x_return_status := OKC_API.HANDLE_EXCEPTIONS
435 (
436 l_api_name,
437 G_PKG_NAME,
438 'OTHERS',
439 x_msg_count,
440 x_msg_data,
441 '_PUB'
442 );
443 END delete_task;
444 END OKC_TASK_PUB;