134:
135: l_list_of_rules := OKC_TIME_UTIL_PUB.get_rule_defs_using_vs(l_app_id,l_rule_df_name,'OKC_TIMEVALUES');
136: l_list_of_rules1 := OKC_TIME_UTIL_PUB.get_rule_defs_using_vs(l_app_id,l_rule_df_name,'OKC_TASK_RS');
137:
138: x_return_status := OKC_API.G_RET_STS_SUCCESS;
139: -- For these rules, get relevant information using tve_id.
140:
141: /* Changed the rules cursor in the following query from okc_rules_v to okc_rules_b for performance
142: Also using explicit to_char conversion on tveid in the following query .
150: FETCH rules_cur into l_task_name, l_notification_period, l_resource_id, l_escalate_days;
151: l_notfound := rules_cur%NOTFOUND;
152: CLOSE rules_cur;
153: if l_notfound THEN
154: OKC_API.set_message(G_APP_NAME,'OKC_RULE_NOT_FOUND');
155: x_return_status := OKC_API.G_RET_STS_ERROR;
156: return;
157: end if;
158:
151: l_notfound := rules_cur%NOTFOUND;
152: CLOSE rules_cur;
153: if l_notfound THEN
154: OKC_API.set_message(G_APP_NAME,'OKC_RULE_NOT_FOUND');
155: x_return_status := OKC_API.G_RET_STS_ERROR;
156: return;
157: end if;
158:
159: --End : Modified for better error handling - bug 1652537
162: FETCH day_cur INTO l_day_uom;
163: l_notfound := day_cur%NOTFOUND;
164: CLOSE day_cur;
165: if l_notfound THEN
166: OKC_API.set_message(G_APP_NAME,'OKC_TIME_CODE_NOT_FOUND');
167: x_return_status := OKC_API.G_RET_STS_ERROR;
168: return;
169: end if;
170: /*
163: l_notfound := day_cur%NOTFOUND;
164: CLOSE day_cur;
165: if l_notfound THEN
166: OKC_API.set_message(G_APP_NAME,'OKC_TIME_CODE_NOT_FOUND');
167: x_return_status := OKC_API.G_RET_STS_ERROR;
168: return;
169: end if;
170: /*
171: OPEN rules_cur(p_tve_id);
172: FETCH rules_cur into l_task_name, l_notification_period, l_resource_id, l_escalate_days;
173: l_notfound := rules_cur%NOTFOUND;
174: CLOSE rules_cur;
175: if l_notfound THEN
176: x_return_status := OKC_API.G_RET_STS_ERROR;
177: return;
178: end if;
179: */
180:
182: FETCH task_cur into l_task_type_id, l_task_type_name;
183: l_notfound := task_cur%NOTFOUND;
184: CLOSE task_cur;
185: if l_notfound THEN
186: OKC_API.set_message(G_APP_NAME,'OKC_TASK_TYPE_NOT_FOUND');
187: x_return_status := OKC_API.G_RET_STS_ERROR;
188: return;
189: end if;
190:
183: l_notfound := task_cur%NOTFOUND;
184: CLOSE task_cur;
185: if l_notfound THEN
186: OKC_API.set_message(G_APP_NAME,'OKC_TASK_TYPE_NOT_FOUND');
187: x_return_status := OKC_API.G_RET_STS_ERROR;
188: return;
189: end if;
190:
191: OPEN status_cur;
192: FETCH status_cur into l_status_id, l_status_name;
193: l_notfound := status_cur%NOTFOUND;
194: CLOSE status_cur;
195: if l_notfound THEN
196: OKC_API.set_message(G_APP_NAME,'OKC_TASK_STATUS_NOT_FOUND');
197: x_return_status := OKC_API.G_RET_STS_ERROR;
198: return;
199: end if;
200:
193: l_notfound := status_cur%NOTFOUND;
194: CLOSE status_cur;
195: if l_notfound THEN
196: OKC_API.set_message(G_APP_NAME,'OKC_TASK_STATUS_NOT_FOUND');
197: x_return_status := OKC_API.G_RET_STS_ERROR;
198: return;
199: end if;
200:
201: OPEN object_cur;
202: FETCH object_cur into l_source_object_code;
203: l_notfound := object_cur%NOTFOUND;
204: CLOSE object_cur;
205: if l_notfound THEN
206: OKC_API.set_message(G_APP_NAME,'OKC_OBJECT_CODE_NOT_FOUND');
207: x_return_status := OKC_API.G_RET_STS_ERROR;
208: return;
209: end if;
210:
203: l_notfound := object_cur%NOTFOUND;
204: CLOSE object_cur;
205: if l_notfound THEN
206: OKC_API.set_message(G_APP_NAME,'OKC_OBJECT_CODE_NOT_FOUND');
207: x_return_status := OKC_API.G_RET_STS_ERROR;
208: return;
209: end if;
210:
211: OPEN owner_type_cur;
212: FETCH owner_type_cur into l_owner_type_code;
213: l_notfound := owner_type_cur%NOTFOUND;
214: CLOSE owner_type_cur;
215: if l_notfound THEN
216: OKC_API.set_message(G_APP_NAME,'OKC_TASK_OWNER_NOT_FOUND');
217: x_return_status := OKC_API.G_RET_STS_ERROR;
218: return;
219: end if;
220:
213: l_notfound := owner_type_cur%NOTFOUND;
214: CLOSE owner_type_cur;
215: if l_notfound THEN
216: OKC_API.set_message(G_APP_NAME,'OKC_TASK_OWNER_NOT_FOUND');
217: x_return_status := OKC_API.G_RET_STS_ERROR;
218: return;
219: end if;
220:
221: l_private_flag := 'N';
293: ,x_msg_data => x_msg_data
294: ,x_task_id => x_task_id);
295: END IF;
296:
297: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
298: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
299: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
300: raise OKC_API.G_EXCEPTION_ERROR;
301: END IF;
294: ,x_task_id => x_task_id);
295: END IF;
296:
297: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
298: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
299: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
300: raise OKC_API.G_EXCEPTION_ERROR;
301: END IF;
302: EXCEPTION
295: END IF;
296:
297: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
298: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
299: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
300: raise OKC_API.G_EXCEPTION_ERROR;
301: END IF;
302: EXCEPTION
303: WHEN OKC_API.G_EXCEPTION_ERROR THEN
296:
297: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
298: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
299: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
300: raise OKC_API.G_EXCEPTION_ERROR;
301: END IF;
302: EXCEPTION
303: WHEN OKC_API.G_EXCEPTION_ERROR THEN
304: x_return_status := 'OKC_API.G_RET_STS_ERROR';
299: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
300: raise OKC_API.G_EXCEPTION_ERROR;
301: END IF;
302: EXCEPTION
303: WHEN OKC_API.G_EXCEPTION_ERROR THEN
304: x_return_status := 'OKC_API.G_RET_STS_ERROR';
305: NULL;
306: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
307: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
300: raise OKC_API.G_EXCEPTION_ERROR;
301: END IF;
302: EXCEPTION
303: WHEN OKC_API.G_EXCEPTION_ERROR THEN
304: x_return_status := 'OKC_API.G_RET_STS_ERROR';
305: NULL;
306: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
307: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
308: NULL;
302: EXCEPTION
303: WHEN OKC_API.G_EXCEPTION_ERROR THEN
304: x_return_status := 'OKC_API.G_RET_STS_ERROR';
305: NULL;
306: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
307: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
308: NULL;
309: WHEN OTHERS THEN
310: OKC_API.set_message(p_app_name => g_app_name,
303: WHEN OKC_API.G_EXCEPTION_ERROR THEN
304: x_return_status := 'OKC_API.G_RET_STS_ERROR';
305: NULL;
306: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
307: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
308: NULL;
309: WHEN OTHERS THEN
310: OKC_API.set_message(p_app_name => g_app_name,
311: p_msg_name => g_unexpected_error,
306: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
307: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
308: NULL;
309: WHEN OTHERS THEN
310: OKC_API.set_message(p_app_name => g_app_name,
311: p_msg_name => g_unexpected_error,
312: p_token1 => g_sqlcode_token,
313: p_token1_value => sqlcode,
314: p_token2 => g_sqlerrm_token,
312: p_token1 => g_sqlcode_token,
313: p_token1_value => sqlcode,
314: p_token2 => g_sqlerrm_token,
315: p_token2_value => sqlerrm);
316: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
317: END create_task;
318:
319: -------------------------------------------------------------------------------------
320: -- Start of comments
391: FETCH task_cur into l_task_type_id, l_task_type_name;
392: l_notfound := task_cur%NOTFOUND;
393: CLOSE task_cur;
394: if l_notfound THEN
395: OKC_API.set_message(G_APP_NAME,'OKC_TASK_TYPE_NOT_FOUND');
396: x_return_status := OKC_API.G_RET_STS_ERROR;
397: return;
398: end if;
399:
392: l_notfound := task_cur%NOTFOUND;
393: CLOSE task_cur;
394: if l_notfound THEN
395: OKC_API.set_message(G_APP_NAME,'OKC_TASK_TYPE_NOT_FOUND');
396: x_return_status := OKC_API.G_RET_STS_ERROR;
397: return;
398: end if;
399:
400: OPEN status_cur;
401: FETCH status_cur into l_status_id, l_status_name;
402: l_notfound := status_cur%NOTFOUND;
403: CLOSE status_cur;
404: if l_notfound THEN
405: OKC_API.set_message(G_APP_NAME,'OKC_TASK_STATUS_NOT_FOUND');
406: x_return_status := OKC_API.G_RET_STS_ERROR;
407: return;
408: end if;
409:
402: l_notfound := status_cur%NOTFOUND;
403: CLOSE status_cur;
404: if l_notfound THEN
405: OKC_API.set_message(G_APP_NAME,'OKC_TASK_STATUS_NOT_FOUND');
406: x_return_status := OKC_API.G_RET_STS_ERROR;
407: return;
408: end if;
409:
410: OPEN object_cur;
411: FETCH object_cur into l_source_object_code;
412: l_notfound := object_cur%NOTFOUND;
413: CLOSE object_cur;
414: if l_notfound THEN
415: OKC_API.set_message(G_APP_NAME,'OKC_OBJECT_CODE_NOT_FOUND');
416: x_return_status := OKC_API.G_RET_STS_ERROR;
417: return;
418: end if;
419:
412: l_notfound := object_cur%NOTFOUND;
413: CLOSE object_cur;
414: if l_notfound THEN
415: OKC_API.set_message(G_APP_NAME,'OKC_OBJECT_CODE_NOT_FOUND');
416: x_return_status := OKC_API.G_RET_STS_ERROR;
417: return;
418: end if;
419:
420: OPEN owner_type_cur;
421: FETCH owner_type_cur into l_owner_type_code;
422: l_notfound := owner_type_cur%NOTFOUND;
423: CLOSE owner_type_cur;
424: if l_notfound THEN
425: OKC_API.set_message(G_APP_NAME,'OKC_TASK_OWNER_NOT_FOUND');
426: x_return_status := OKC_API.G_RET_STS_ERROR;
427: return;
428: end if;
429:
422: l_notfound := owner_type_cur%NOTFOUND;
423: CLOSE owner_type_cur;
424: if l_notfound THEN
425: OKC_API.set_message(G_APP_NAME,'OKC_TASK_OWNER_NOT_FOUND');
426: x_return_status := OKC_API.G_RET_STS_ERROR;
427: return;
428: end if;
429:
430: -- get the source document number (to be displayed in tasks window)
452: ,x_msg_count => x_msg_count
453: ,x_msg_data => x_msg_data
454: ,x_task_id => x_task_id);
455:
456: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
457: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
458: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
459: raise OKC_API.G_EXCEPTION_ERROR;
460: END IF;
453: ,x_msg_data => x_msg_data
454: ,x_task_id => x_task_id);
455:
456: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
457: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
458: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
459: raise OKC_API.G_EXCEPTION_ERROR;
460: END IF;
461: EXCEPTION
454: ,x_task_id => x_task_id);
455:
456: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
457: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
458: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
459: raise OKC_API.G_EXCEPTION_ERROR;
460: END IF;
461: EXCEPTION
462: WHEN OKC_API.G_EXCEPTION_ERROR THEN
455:
456: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
457: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
458: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
459: raise OKC_API.G_EXCEPTION_ERROR;
460: END IF;
461: EXCEPTION
462: WHEN OKC_API.G_EXCEPTION_ERROR THEN
463: x_return_status := 'OKC_API.G_RET_STS_ERROR';
458: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
459: raise OKC_API.G_EXCEPTION_ERROR;
460: END IF;
461: EXCEPTION
462: WHEN OKC_API.G_EXCEPTION_ERROR THEN
463: x_return_status := 'OKC_API.G_RET_STS_ERROR';
464: NULL;
465: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
466: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
459: raise OKC_API.G_EXCEPTION_ERROR;
460: END IF;
461: EXCEPTION
462: WHEN OKC_API.G_EXCEPTION_ERROR THEN
463: x_return_status := 'OKC_API.G_RET_STS_ERROR';
464: NULL;
465: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
466: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
467: NULL;
461: EXCEPTION
462: WHEN OKC_API.G_EXCEPTION_ERROR THEN
463: x_return_status := 'OKC_API.G_RET_STS_ERROR';
464: NULL;
465: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
466: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
467: NULL;
468: WHEN OTHERS THEN
469: x_return_status := OKC_API.HANDLE_EXCEPTIONS
462: WHEN OKC_API.G_EXCEPTION_ERROR THEN
463: x_return_status := 'OKC_API.G_RET_STS_ERROR';
464: NULL;
465: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
466: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
467: NULL;
468: WHEN OTHERS THEN
469: x_return_status := OKC_API.HANDLE_EXCEPTIONS
470: (l_api_name,
465: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
466: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
467: NULL;
468: WHEN OTHERS THEN
469: x_return_status := OKC_API.HANDLE_EXCEPTIONS
470: (l_api_name,
471: G_PKG_NAME,
472: 'OTHERS',
473: x_msg_count,
549: FETCH task_cur into l_task_type_id, l_task_type_name;
550: l_notfound := task_cur%NOTFOUND;
551: CLOSE task_cur;
552: if l_notfound THEN
553: x_return_status := OKC_API.G_RET_STS_ERROR;
554: OKC_API.set_message(G_APP_NAME,'OKC_TASK_TYPE_NOT_FOUND');
555: return;
556: end if;
557:
550: l_notfound := task_cur%NOTFOUND;
551: CLOSE task_cur;
552: if l_notfound THEN
553: x_return_status := OKC_API.G_RET_STS_ERROR;
554: OKC_API.set_message(G_APP_NAME,'OKC_TASK_TYPE_NOT_FOUND');
555: return;
556: end if;
557:
558: OPEN status_cur;
559: FETCH status_cur into l_status_id, l_status_name;
560: l_notfound := status_cur%NOTFOUND;
561: CLOSE status_cur;
562: if l_notfound THEN
563: x_return_status := OKC_API.G_RET_STS_ERROR;
564: OKC_API.set_message(G_APP_NAME,'OKC_TASK_STATUS_NOT_FOUND');
565: return;
566: end if;
567:
560: l_notfound := status_cur%NOTFOUND;
561: CLOSE status_cur;
562: if l_notfound THEN
563: x_return_status := OKC_API.G_RET_STS_ERROR;
564: OKC_API.set_message(G_APP_NAME,'OKC_TASK_STATUS_NOT_FOUND');
565: return;
566: end if;
567:
568: OPEN object_cur;
569: FETCH object_cur into l_source_object_code;
570: l_notfound := object_cur%NOTFOUND;
571: CLOSE object_cur;
572: if l_notfound THEN
573: x_return_status := OKC_API.G_RET_STS_ERROR;
574: OKC_API.set_message(G_APP_NAME,'OKC_OBJECT_CODE_NOT_FOUND');
575: return;
576: end if;
577:
570: l_notfound := object_cur%NOTFOUND;
571: CLOSE object_cur;
572: if l_notfound THEN
573: x_return_status := OKC_API.G_RET_STS_ERROR;
574: OKC_API.set_message(G_APP_NAME,'OKC_OBJECT_CODE_NOT_FOUND');
575: return;
576: end if;
577:
578: OPEN owner_type_cur;
579: FETCH owner_type_cur into l_owner_type_code;
580: l_notfound := owner_type_cur%NOTFOUND;
581: CLOSE owner_type_cur;
582: if l_notfound THEN
583: x_return_status := OKC_API.G_RET_STS_ERROR;
584: OKC_API.set_message(G_APP_NAME,'OKC_TASK_OWNER_NOT_FOUND');
585: return;
586: end if;
587:
580: l_notfound := owner_type_cur%NOTFOUND;
581: CLOSE owner_type_cur;
582: if l_notfound THEN
583: x_return_status := OKC_API.G_RET_STS_ERROR;
584: OKC_API.set_message(G_APP_NAME,'OKC_TASK_OWNER_NOT_FOUND');
585: return;
586: end if;
587:
588: --Call to the procedure of the public API JTF_TASKS_PUB to create a Task
605: ,x_msg_count => x_msg_count
606: ,x_msg_data => x_msg_data
607: ,x_task_id => x_task_id);
608:
609: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
610: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
611: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
612: raise OKC_API.G_EXCEPTION_ERROR;
613: END IF;
606: ,x_msg_data => x_msg_data
607: ,x_task_id => x_task_id);
608:
609: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
610: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
611: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
612: raise OKC_API.G_EXCEPTION_ERROR;
613: END IF;
614: EXCEPTION
607: ,x_task_id => x_task_id);
608:
609: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
610: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
611: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
612: raise OKC_API.G_EXCEPTION_ERROR;
613: END IF;
614: EXCEPTION
615: WHEN OKC_API.G_EXCEPTION_ERROR THEN
608:
609: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
610: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
611: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
612: raise OKC_API.G_EXCEPTION_ERROR;
613: END IF;
614: EXCEPTION
615: WHEN OKC_API.G_EXCEPTION_ERROR THEN
616: x_return_status := 'OKC_API.G_RET_STS_ERROR';
611: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
612: raise OKC_API.G_EXCEPTION_ERROR;
613: END IF;
614: EXCEPTION
615: WHEN OKC_API.G_EXCEPTION_ERROR THEN
616: x_return_status := 'OKC_API.G_RET_STS_ERROR';
617: NULL;
618: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
619: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
612: raise OKC_API.G_EXCEPTION_ERROR;
613: END IF;
614: EXCEPTION
615: WHEN OKC_API.G_EXCEPTION_ERROR THEN
616: x_return_status := 'OKC_API.G_RET_STS_ERROR';
617: NULL;
618: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
619: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
620: NULL;
614: EXCEPTION
615: WHEN OKC_API.G_EXCEPTION_ERROR THEN
616: x_return_status := 'OKC_API.G_RET_STS_ERROR';
617: NULL;
618: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
619: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
620: NULL;
621: WHEN OTHERS THEN
622: x_return_status := OKC_API.HANDLE_EXCEPTIONS
615: WHEN OKC_API.G_EXCEPTION_ERROR THEN
616: x_return_status := 'OKC_API.G_RET_STS_ERROR';
617: NULL;
618: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
619: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
620: NULL;
621: WHEN OTHERS THEN
622: x_return_status := OKC_API.HANDLE_EXCEPTIONS
623: (l_api_name,
618: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
619: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
620: NULL;
621: WHEN OTHERS THEN
622: x_return_status := OKC_API.HANDLE_EXCEPTIONS
623: (l_api_name,
624: G_PKG_NAME,
625: 'OTHERS',
626: x_msg_count,
687: FETCH update_status_cur into l_close_status_id, l_close_status_name;
688: l_notfound := update_status_cur%NOTFOUND;
689: CLOSE update_status_cur;
690: if l_notfound THEN
691: x_return_status := OKC_API.G_RET_STS_ERROR;
692: OKC_API.set_message(G_APP_NAME,'OKC_TASK_STATUS_NOT_FOUND');
693: return;
694: end if;
695: l_task_status_name := l_close_status_name;
688: l_notfound := update_status_cur%NOTFOUND;
689: CLOSE update_status_cur;
690: if l_notfound THEN
691: x_return_status := OKC_API.G_RET_STS_ERROR;
692: OKC_API.set_message(G_APP_NAME,'OKC_TASK_STATUS_NOT_FOUND');
693: return;
694: end if;
695: l_task_status_name := l_close_status_name;
696: l_task_status_id := l_close_status_id;
699: FETCH status_cur into l_open_status_id, l_open_status_name;
700: l_notfound := status_cur%NOTFOUND;
701: CLOSE status_cur;
702: if l_notfound THEN
703: x_return_status := OKC_API.G_RET_STS_ERROR;
704: OKC_API.set_message(G_APP_NAME,'OKC_TASK_STATUS_NOT_FOUND');
705: return;
706: end if;
707: l_task_status_name := l_open_status_name;
700: l_notfound := status_cur%NOTFOUND;
701: CLOSE status_cur;
702: if l_notfound THEN
703: x_return_status := OKC_API.G_RET_STS_ERROR;
704: OKC_API.set_message(G_APP_NAME,'OKC_TASK_STATUS_NOT_FOUND');
705: return;
706: end if;
707: l_task_status_name := l_open_status_name;
708: l_task_status_id := l_open_status_id;
711: -- Get the source object id and name
712: OPEN source_obj_details;
713: FETCH source_obj_details INTO l_source_object_id, l_source_object_name;
714: IF source_obj_details%NOTFOUND THEN
715: OKC_API.set_message(G_APP_NAME,'OKC_TASK_SOURCE_NOT_FOUND');
716: return;
717: END IF;
718: CLOSE source_obj_details;
719:
733: ,x_return_status => x_return_status
734: ,x_msg_count => x_msg_count
735: ,x_msg_data => x_msg_data);
736:
737: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
738: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
739: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
740: raise OKC_API.G_EXCEPTION_ERROR;
741: END IF;
734: ,x_msg_count => x_msg_count
735: ,x_msg_data => x_msg_data);
736:
737: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
738: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
739: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
740: raise OKC_API.G_EXCEPTION_ERROR;
741: END IF;
742: EXCEPTION
735: ,x_msg_data => x_msg_data);
736:
737: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
738: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
739: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
740: raise OKC_API.G_EXCEPTION_ERROR;
741: END IF;
742: EXCEPTION
743: WHEN OKC_API.G_EXCEPTION_ERROR THEN
736:
737: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
738: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
739: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
740: raise OKC_API.G_EXCEPTION_ERROR;
741: END IF;
742: EXCEPTION
743: WHEN OKC_API.G_EXCEPTION_ERROR THEN
744: x_return_status := 'OKC_API.G_RET_STS_ERROR';
739: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
740: raise OKC_API.G_EXCEPTION_ERROR;
741: END IF;
742: EXCEPTION
743: WHEN OKC_API.G_EXCEPTION_ERROR THEN
744: x_return_status := 'OKC_API.G_RET_STS_ERROR';
745: NULL;
746: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
747: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
740: raise OKC_API.G_EXCEPTION_ERROR;
741: END IF;
742: EXCEPTION
743: WHEN OKC_API.G_EXCEPTION_ERROR THEN
744: x_return_status := 'OKC_API.G_RET_STS_ERROR';
745: NULL;
746: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
747: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
748: NULL;
742: EXCEPTION
743: WHEN OKC_API.G_EXCEPTION_ERROR THEN
744: x_return_status := 'OKC_API.G_RET_STS_ERROR';
745: NULL;
746: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
747: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
748: NULL;
749: WHEN OTHERS THEN
750: OKC_API.set_message(p_app_name => g_app_name,
743: WHEN OKC_API.G_EXCEPTION_ERROR THEN
744: x_return_status := 'OKC_API.G_RET_STS_ERROR';
745: NULL;
746: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
747: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
748: NULL;
749: WHEN OTHERS THEN
750: OKC_API.set_message(p_app_name => g_app_name,
751: p_msg_name => g_unexpected_error,
746: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
747: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
748: NULL;
749: WHEN OTHERS THEN
750: OKC_API.set_message(p_app_name => g_app_name,
751: p_msg_name => g_unexpected_error,
752: p_token1 => g_sqlcode_token,
753: p_token1_value => sqlcode,
754: p_token2 => g_sqlerrm_token,
752: p_token1 => g_sqlcode_token,
753: p_token1_value => sqlcode,
754: p_token2 => g_sqlerrm_token,
755: p_token2_value => sqlerrm);
756: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
757:
758: END update_task;
759:
760: -- Start of comments
876: END LOOP;
877: END IF;
878: END IF;
879:
880: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
881: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
883: raise OKC_API.G_EXCEPTION_ERROR;
884: END IF;
877: END IF;
878: END IF;
879:
880: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
881: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
883: raise OKC_API.G_EXCEPTION_ERROR;
884: END IF;
885: EXCEPTION
878: END IF;
879:
880: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
881: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
883: raise OKC_API.G_EXCEPTION_ERROR;
884: END IF;
885: EXCEPTION
886: WHEN OKC_API.G_EXCEPTION_ERROR THEN
879:
880: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
881: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
883: raise OKC_API.G_EXCEPTION_ERROR;
884: END IF;
885: EXCEPTION
886: WHEN OKC_API.G_EXCEPTION_ERROR THEN
887: x_return_status := 'OKC_API.G_RET_STS_ERROR';
882: ELSIF x_return_status = OKC_API.G_RET_STS_ERROR THEN
883: raise OKC_API.G_EXCEPTION_ERROR;
884: END IF;
885: EXCEPTION
886: WHEN OKC_API.G_EXCEPTION_ERROR THEN
887: x_return_status := 'OKC_API.G_RET_STS_ERROR';
888: NULL;
889: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
890: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
883: raise OKC_API.G_EXCEPTION_ERROR;
884: END IF;
885: EXCEPTION
886: WHEN OKC_API.G_EXCEPTION_ERROR THEN
887: x_return_status := 'OKC_API.G_RET_STS_ERROR';
888: NULL;
889: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
890: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
891: NULL;
885: EXCEPTION
886: WHEN OKC_API.G_EXCEPTION_ERROR THEN
887: x_return_status := 'OKC_API.G_RET_STS_ERROR';
888: NULL;
889: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
890: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
891: NULL;
892: WHEN OTHERS THEN
893: OKC_API.set_message(p_app_name => g_app_name,
886: WHEN OKC_API.G_EXCEPTION_ERROR THEN
887: x_return_status := 'OKC_API.G_RET_STS_ERROR';
888: NULL;
889: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
890: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
891: NULL;
892: WHEN OTHERS THEN
893: OKC_API.set_message(p_app_name => g_app_name,
894: p_msg_name => g_unexpected_error,
889: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
890: x_return_status := 'OKC_API.G_RET_STS_UNEXP_ERROR';
891: NULL;
892: WHEN OTHERS THEN
893: OKC_API.set_message(p_app_name => g_app_name,
894: p_msg_name => g_unexpected_error,
895: p_token1 => g_sqlcode_token,
896: p_token1_value => sqlcode,
897: p_token2 => g_sqlerrm_token,
895: p_token1 => g_sqlcode_token,
896: p_token1_value => sqlcode,
897: p_token2 => g_sqlerrm_token,
898: p_token2_value => sqlerrm);
899: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
900:
901:
902: END delete_task;
903: END OKC_TASK_PVT;