[Home] [Help]
18: * Modifies: API message list
19: * Effects: Locks the row with ID p_doc_id for this document. Appends to API
20: * message list on error.
21: * Returns:
22: * x_return_status - FND_API.G_RET_STS_SUCCESS if successfully locked row
23: * FND_API.G_RET_STS_ERROR if lock failed
24: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
25: */
26: PROCEDURE lock_doc_row
19: * Effects: Locks the row with ID p_doc_id for this document. Appends to API
20: * message list on error.
21: * Returns:
22: * x_return_status - FND_API.G_RET_STS_SUCCESS if successfully locked row
23: * FND_API.G_RET_STS_ERROR if lock failed
24: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
25: */
26: PROCEDURE lock_doc_row
27: (p_api_version IN NUMBER,
20: * message list on error.
21: * Returns:
22: * x_return_status - FND_API.G_RET_STS_SUCCESS if successfully locked row
23: * FND_API.G_RET_STS_ERROR if lock failed
24: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
25: */
26: PROCEDURE lock_doc_row
27: (p_api_version IN NUMBER,
28: x_return_status OUT NOCOPY VARCHAR2,
36: RESOURCE_BUSY exception;
37: pragma exception_init (RESOURCE_BUSY, -54 ); --
38: BEGIN
39: -- Start standard API initialization
40: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
41: l_api_name, g_pkg_name)
42: THEN
43: RAISE FND_API.g_exc_unexpected_error;
44: END IF;
39: -- Start standard API initialization
40: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
41: l_api_name, g_pkg_name)
42: THEN
43: RAISE FND_API.g_exc_unexpected_error;
44: END IF;
45: x_return_status := FND_API.g_ret_sts_success;
46: -- End standard API initialization
47:
41: l_api_name, g_pkg_name)
42: THEN
43: RAISE FND_API.g_exc_unexpected_error;
44: END IF;
45: x_return_status := FND_API.g_ret_sts_success;
46: -- End standard API initialization
47:
48: IF (g_debug_stmt) THEN
49: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
82: || '.invalid_doc_type', FALSE);
83: END IF;
84: END IF;
85: FND_MSG_PUB.add;
86: RAISE FND_API.g_exc_error;
87: END IF; --
88:
89: EXCEPTION
90: --
89: EXCEPTION
90: --
91: --Handling deadlock with proper error message
92: WHEN RESOURCE_BUSY THEN
93: x_return_status := FND_API.g_ret_sts_error;
94: FND_MESSAGE.set_name('PO','PO_ALL_CANNOT_RESERVE_RECORD');
95: FND_MSG_PUB.add;
96: --
97: WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
94: FND_MESSAGE.set_name('PO','PO_ALL_CANNOT_RESERVE_RECORD');
95: FND_MSG_PUB.add;
96: --
97: WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
98: x_return_status := FND_API.g_ret_sts_error;
99: FND_MESSAGE.set_name('PO','PO_CONTROL_LOCK_FAILED');
100: IF (g_debug_stmt) THEN
101: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
102: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
103: '.lock_failed', FALSE);
104: END IF;
105: END IF;
106: FND_MSG_PUB.add;
107: WHEN FND_API.g_exc_error THEN
108: x_return_status := FND_API.g_ret_sts_error;
109: WHEN FND_API.g_exc_unexpected_error THEN
110: x_return_status := FND_API.g_ret_sts_unexp_error;
111: WHEN OTHERS THEN
104: END IF;
105: END IF;
106: FND_MSG_PUB.add;
107: WHEN FND_API.g_exc_error THEN
108: x_return_status := FND_API.g_ret_sts_error;
109: WHEN FND_API.g_exc_unexpected_error THEN
110: x_return_status := FND_API.g_ret_sts_unexp_error;
111: WHEN OTHERS THEN
112: x_return_status := FND_API.g_ret_sts_unexp_error;
105: END IF;
106: FND_MSG_PUB.add;
107: WHEN FND_API.g_exc_error THEN
108: x_return_status := FND_API.g_ret_sts_error;
109: WHEN FND_API.g_exc_unexpected_error THEN
110: x_return_status := FND_API.g_ret_sts_unexp_error;
111: WHEN OTHERS THEN
112: x_return_status := FND_API.g_ret_sts_unexp_error;
113: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
106: FND_MSG_PUB.add;
107: WHEN FND_API.g_exc_error THEN
108: x_return_status := FND_API.g_ret_sts_error;
109: WHEN FND_API.g_exc_unexpected_error THEN
110: x_return_status := FND_API.g_ret_sts_unexp_error;
111: WHEN OTHERS THEN
112: x_return_status := FND_API.g_ret_sts_unexp_error;
113: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
114: IF (g_debug_unexp) THEN
108: x_return_status := FND_API.g_ret_sts_error;
109: WHEN FND_API.g_exc_unexpected_error THEN
110: x_return_status := FND_API.g_ret_sts_unexp_error;
111: WHEN OTHERS THEN
112: x_return_status := FND_API.g_ret_sts_unexp_error;
113: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
114: IF (g_debug_unexp) THEN
115: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
116: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
147: --IN OUT :
148: --OUT :
149:
150: -- x_return_status
151: -- FND_API.G_RET_STS_SUCCESS if communicate action succeeds
152: -- FND_API.G_RET_STS_ERROR if communicate action fails
153: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
154: --
155: --End of Comments
148: --OUT :
149:
150: -- x_return_status
151: -- FND_API.G_RET_STS_SUCCESS if communicate action succeeds
152: -- FND_API.G_RET_STS_ERROR if communicate action fails
153: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
154: --
155: --End of Comments
156: --------------------------------------------------------------------------------
149:
150: -- x_return_status
151: -- FND_API.G_RET_STS_SUCCESS if communicate action succeeds
152: -- FND_API.G_RET_STS_ERROR if communicate action fails
153: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
154: --
155: --End of Comments
156: --------------------------------------------------------------------------------
157:
182:
183:
184:
185: BEGIN
186: x_return_status := FND_API.G_RET_STS_SUCCESS;
187:
188:
189: IF g_debug_stmt THEN
190: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
262: x_msg_data => x_exception_msg,
263: x_online_report_id => l_online_report_id
264: );
265:
266: IF (x_return_status = FND_API.g_ret_sts_error) THEN
267: RAISE FND_API.g_exc_error;
268: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
269: RAISE FND_API.g_exc_unexpected_error;
270: END IF;
263: x_online_report_id => l_online_report_id
264: );
265:
266: IF (x_return_status = FND_API.g_ret_sts_error) THEN
267: RAISE FND_API.g_exc_error;
268: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
269: RAISE FND_API.g_exc_unexpected_error;
270: END IF;
271:
264: );
265:
266: IF (x_return_status = FND_API.g_ret_sts_error) THEN
267: RAISE FND_API.g_exc_error;
268: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
269: RAISE FND_API.g_exc_unexpected_error;
270: END IF;
271:
272: IF g_debug_stmt THEN
265:
266: IF (x_return_status = FND_API.g_ret_sts_error) THEN
267: RAISE FND_API.g_exc_error;
268: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
269: RAISE FND_API.g_exc_unexpected_error;
270: END IF;
271:
272: IF g_debug_stmt THEN
273: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
280:
281: l_progress :='004';
282:
283: --Add all the messages to the message list
284: IF x_return_status =FND_API.G_RET_STS_SUCCESS
285: AND l_sub_check_status = FND_API.G_RET_STS_ERROR
286: AND l_online_report_id IS NOT NULL THEN
287:
288: PO_Document_Control_PVT.add_online_report_msgs(
281: l_progress :='004';
282:
283: --Add all the messages to the message list
284: IF x_return_status =FND_API.G_RET_STS_SUCCESS
285: AND l_sub_check_status = FND_API.G_RET_STS_ERROR
286: AND l_online_report_id IS NOT NULL THEN
287:
288: PO_Document_Control_PVT.add_online_report_msgs(
289: p_api_version => 1.0
286: AND l_online_report_id IS NOT NULL THEN
287:
288: PO_Document_Control_PVT.add_online_report_msgs(
289: p_api_version => 1.0
290: ,p_init_msg_list => FND_API.G_FALSE
291: ,x_return_status => x_return_status
292: ,p_online_report_id => l_online_report_id);
293:
294: RAISE FND_API.g_exc_error;
290: ,p_init_msg_list => FND_API.G_FALSE
291: ,x_return_status => x_return_status
292: ,p_online_report_id => l_online_report_id);
293:
294: RAISE FND_API.g_exc_error;
295: END IF;
296:
297: IF (x_return_status = FND_API.g_ret_sts_error) THEN
298: RAISE FND_API.g_exc_error;
293:
294: RAISE FND_API.g_exc_error;
295: END IF;
296:
297: IF (x_return_status = FND_API.g_ret_sts_error) THEN
298: RAISE FND_API.g_exc_error;
299: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
300: RAISE FND_API.g_exc_unexpected_error;
301: END IF;
294: RAISE FND_API.g_exc_error;
295: END IF;
296:
297: IF (x_return_status = FND_API.g_ret_sts_error) THEN
298: RAISE FND_API.g_exc_error;
299: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
300: RAISE FND_API.g_exc_unexpected_error;
301: END IF;
302:
295: END IF;
296:
297: IF (x_return_status = FND_API.g_ret_sts_error) THEN
298: RAISE FND_API.g_exc_error;
299: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
300: RAISE FND_API.g_exc_unexpected_error;
301: END IF;
302:
303:
296:
297: IF (x_return_status = FND_API.g_ret_sts_error) THEN
298: RAISE FND_API.g_exc_error;
299: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
300: RAISE FND_API.g_exc_unexpected_error;
301: END IF;
302:
303:
304:
325: x_return_status => x_return_status,
326: x_exception_msg => x_exception_msg
327: );
328:
329: IF (x_return_status = FND_API.g_ret_sts_error) THEN
330: RAISE FND_API.g_exc_error;
331: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
332: RAISE FND_API.g_exc_unexpected_error;
333: END IF;
326: x_exception_msg => x_exception_msg
327: );
328:
329: IF (x_return_status = FND_API.g_ret_sts_error) THEN
330: RAISE FND_API.g_exc_error;
331: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
332: RAISE FND_API.g_exc_unexpected_error;
333: END IF;
334:
327: );
328:
329: IF (x_return_status = FND_API.g_ret_sts_error) THEN
330: RAISE FND_API.g_exc_error;
331: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
332: RAISE FND_API.g_exc_unexpected_error;
333: END IF;
334:
335: g_approval_initiated_flag := TRUE;
328:
329: IF (x_return_status = FND_API.g_ret_sts_error) THEN
330: RAISE FND_API.g_exc_error;
331: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
332: RAISE FND_API.g_exc_unexpected_error;
333: END IF;
334:
335: g_approval_initiated_flag := TRUE;
336:
339:
340:
341:
342: EXCEPTION
343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
344: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
346:
347:
341:
342: EXCEPTION
343: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
344: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
346:
347:
348: WHEN FND_API.G_EXC_ERROR THEN
349: x_return_status := FND_API.G_RET_STS_ERROR;
344: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
346:
347:
348: WHEN FND_API.G_EXC_ERROR THEN
349: x_return_status := FND_API.G_RET_STS_ERROR;
350: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
351:
352:
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
346:
347:
348: WHEN FND_API.G_EXC_ERROR THEN
349: x_return_status := FND_API.G_RET_STS_ERROR;
350: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
351:
352:
353: WHEN OTHERS THEN
351:
352:
353: WHEN OTHERS THEN
354: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
356:
357:
358: END do_approve_on_cancel;
359:
376: -- p_doc_line_loc_id are not NULL. Executes at line level if only p_doc_id
377: -- and p_doc_line_id are not NULL. Executes at header level if only p_doc_id
378: -- is not NULL. The document will be printed if it is a PO, PA, or RELEASE,
379: -- and the p_print_flag is 'Y'. All changes will be committed upon success if
380: -- p_commit is FND_API.G_TRUE. Appends to FND_MSG_PUB message list on error
381: --Parameters:
382: --IN:
383: --p_api_version
384: --p_init_msg_list
406: --p_communication_method_value
407: -- Email Address or Fax Number
408: --OUT:
409: --x_return_status
410: -- FND_API.g_ret_sts_success - on success
411: -- FND_API.g_ret_sts_error - expected error
412: -- FND_API.g_ret_sts_unexp_error - unexpected error
413: --Testing:
414: --End of Comments
407: -- Email Address or Fax Number
408: --OUT:
409: --x_return_status
410: -- FND_API.g_ret_sts_success - on success
411: -- FND_API.g_ret_sts_error - expected error
412: -- FND_API.g_ret_sts_unexp_error - unexpected error
413: --Testing:
414: --End of Comments
415: ---------------------------------------------------------------------------
408: --OUT:
409: --x_return_status
410: -- FND_API.g_ret_sts_success - on success
411: -- FND_API.g_ret_sts_error - expected error
412: -- FND_API.g_ret_sts_unexp_error - unexpected error
413: --Testing:
414: --End of Comments
415: ---------------------------------------------------------------------------
416:
459:
460: BEGIN
461: -- Start standard API initialization
462: SAVEPOINT control_document_PVT;
463: IF FND_API.to_boolean(p_init_msg_list) THEN
464: FND_MSG_PUB.initialize;
465: END IF;
466: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
467: l_api_name, g_pkg_name)
462: SAVEPOINT control_document_PVT;
463: IF FND_API.to_boolean(p_init_msg_list) THEN
464: FND_MSG_PUB.initialize;
465: END IF;
466: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
467: l_api_name, g_pkg_name)
468: THEN
469: RAISE FND_API.g_exc_unexpected_error;
470: END IF;
465: END IF;
466: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
467: l_api_name, g_pkg_name)
468: THEN
469: RAISE FND_API.g_exc_unexpected_error;
470: END IF;
471:
472: IF g_debug_stmt THEN
473: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
494: END IF;
495: END IF;
496:
497:
498: x_return_status := FND_API.g_ret_sts_success;
499: l_communication_method_option :=p_communication_method_option;
500: l_communication_method_value :=p_communication_method_value;
501:
502:
594: END IF;
595:
596: -- If the procedure does not complete successfully raise the
597: -- appropriate exception
598: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
599: RAISE FND_API.g_exc_error;
600: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
601: RAISE FND_API.g_exc_unexpected_error;
602: END IF;
595:
596: -- If the procedure does not complete successfully raise the
597: -- appropriate exception
598: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
599: RAISE FND_API.g_exc_error;
600: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
601: RAISE FND_API.g_exc_unexpected_error;
602: END IF;
603:
596: -- If the procedure does not complete successfully raise the
597: -- appropriate exception
598: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
599: RAISE FND_API.g_exc_error;
600: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
601: RAISE FND_API.g_exc_unexpected_error;
602: END IF;
603:
604:
597: -- appropriate exception
598: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
599: RAISE FND_API.g_exc_error;
600: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
601: RAISE FND_API.g_exc_unexpected_error;
602: END IF;
603:
604:
605: l_progress :='004';
607: --Add all the messages to the message list
608: IF l_return_code ='F' AND p_online_report_id IS NOT NULL THEN
609: PO_Document_Control_PVT.add_online_report_msgs(
610: p_api_version => 1.0
611: ,p_init_msg_list => FND_API.G_FALSE
612: ,x_return_status => x_return_status
613: ,p_online_report_id => p_online_report_id);
614:
615: RAISE FND_API.g_exc_error;
611: ,p_init_msg_list => FND_API.G_FALSE
612: ,x_return_status => x_return_status
613: ,p_online_report_id => p_online_report_id);
614:
615: RAISE FND_API.g_exc_error;
616: END IF;
617:
618: l_progress :='005';
619:
632: x_return_status => x_return_status
633:
634: );
635:
636: IF (x_return_status = FND_API.g_ret_sts_error) THEN
637: RAISE FND_API.g_exc_error;
638: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
639: RAISE FND_API.g_exc_unexpected_error;
640: END IF;
633:
634: );
635:
636: IF (x_return_status = FND_API.g_ret_sts_error) THEN
637: RAISE FND_API.g_exc_error;
638: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
639: RAISE FND_API.g_exc_unexpected_error;
640: END IF;
641:
634: );
635:
636: IF (x_return_status = FND_API.g_ret_sts_error) THEN
637: RAISE FND_API.g_exc_error;
638: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
639: RAISE FND_API.g_exc_unexpected_error;
640: END IF;
641:
642: END IF;
635:
636: IF (x_return_status = FND_API.g_ret_sts_error) THEN
637: RAISE FND_API.g_exc_error;
638: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
639: RAISE FND_API.g_exc_unexpected_error;
640: END IF;
641:
642: END IF;
643:
661: );
662:
663: -- If the procedure does not complete successfully raise the
664: -- appropriate exception
665: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
666: RAISE FND_API.g_exc_error;
667: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
668: RAISE FND_API.g_exc_unexpected_error;
669: END IF;
662:
663: -- If the procedure does not complete successfully raise the
664: -- appropriate exception
665: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
666: RAISE FND_API.g_exc_error;
667: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
668: RAISE FND_API.g_exc_unexpected_error;
669: END IF;
670: ELSE
663: -- If the procedure does not complete successfully raise the
664: -- appropriate exception
665: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
666: RAISE FND_API.g_exc_error;
667: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
668: RAISE FND_API.g_exc_unexpected_error;
669: END IF;
670: ELSE
671:
664: -- appropriate exception
665: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
666: RAISE FND_API.g_exc_error;
667: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
668: RAISE FND_API.g_exc_unexpected_error;
669: END IF;
670: ELSE
671:
672: l_progress :='007';
680: END IF;
681: END IF;
682:
683: FND_MSG_PUB.add;
684: RAISE FND_API.g_exc_error;
685:
686: END IF; --
687:
688: IF g_debug_stmt THEN
712: END IF;
713:
714: END IF;
715:
716: IF (x_return_status = FND_API.g_ret_sts_error) THEN
717: RAISE FND_API.g_exc_error;
718: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
719: RAISE FND_API.g_exc_unexpected_error;
720: END IF;
713:
714: END IF;
715:
716: IF (x_return_status = FND_API.g_ret_sts_error) THEN
717: RAISE FND_API.g_exc_error;
718: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
719: RAISE FND_API.g_exc_unexpected_error;
720: END IF;
721:
714: END IF;
715:
716: IF (x_return_status = FND_API.g_ret_sts_error) THEN
717: RAISE FND_API.g_exc_error;
718: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
719: RAISE FND_API.g_exc_unexpected_error;
720: END IF;
721:
722: --Standard API check of p_commit
715:
716: IF (x_return_status = FND_API.g_ret_sts_error) THEN
717: RAISE FND_API.g_exc_error;
718: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
719: RAISE FND_API.g_exc_unexpected_error;
720: END IF;
721:
722: --Standard API check of p_commit
723: IF FND_API.to_boolean(p_commit) THEN
719: RAISE FND_API.g_exc_unexpected_error;
720: END IF;
721:
722: --Standard API check of p_commit
723: IF FND_API.to_boolean(p_commit) THEN
724: COMMIT WORK;
725: END IF;
726: EXCEPTION
727: WHEN FND_API.g_exc_error THEN
723: IF FND_API.to_boolean(p_commit) THEN
724: COMMIT WORK;
725: END IF;
726: EXCEPTION
727: WHEN FND_API.g_exc_error THEN
728: ROLLBACK TO control_document_PVT;
729: x_return_status := FND_API.g_ret_sts_error;
730: WHEN FND_API.g_exc_unexpected_error THEN
731: ROLLBACK TO control_document_PVT;
725: END IF;
726: EXCEPTION
727: WHEN FND_API.g_exc_error THEN
728: ROLLBACK TO control_document_PVT;
729: x_return_status := FND_API.g_ret_sts_error;
730: WHEN FND_API.g_exc_unexpected_error THEN
731: ROLLBACK TO control_document_PVT;
732: x_return_status := FND_API.g_ret_sts_unexp_error;
733: WHEN OTHERS THEN
726: EXCEPTION
727: WHEN FND_API.g_exc_error THEN
728: ROLLBACK TO control_document_PVT;
729: x_return_status := FND_API.g_ret_sts_error;
730: WHEN FND_API.g_exc_unexpected_error THEN
731: ROLLBACK TO control_document_PVT;
732: x_return_status := FND_API.g_ret_sts_unexp_error;
733: WHEN OTHERS THEN
734: ROLLBACK TO control_document_PVT;
728: ROLLBACK TO control_document_PVT;
729: x_return_status := FND_API.g_ret_sts_error;
730: WHEN FND_API.g_exc_unexpected_error THEN
731: ROLLBACK TO control_document_PVT;
732: x_return_status := FND_API.g_ret_sts_unexp_error;
733: WHEN OTHERS THEN
734: ROLLBACK TO control_document_PVT;
735: x_return_status := FND_API.g_ret_sts_unexp_error;
736: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
731: ROLLBACK TO control_document_PVT;
732: x_return_status := FND_API.g_ret_sts_unexp_error;
733: WHEN OTHERS THEN
734: ROLLBACK TO control_document_PVT;
735: x_return_status := FND_API.g_ret_sts_unexp_error;
736: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
737: IF (g_debug_unexp) THEN
738: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
739: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
751: * x_action_date is NULL, then sets it to a valid CBC accounting date if CBC
752: * is enabled. Otherwise, sets it to the current system date. Appends message
753: * to API message list on error.
754: * Returns:
755: * x_return_status - FND_API.G_RET_STS_SUCCESS if initialization is successful
756: * FND_API.G_RET_STS_ERROR if error initializing action date
757: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
758: * x_action_date - The action date, truncated.
759: * x_cbc_enabled - 'Y' if CBC is enabled, 'N' otherwise.
752: * is enabled. Otherwise, sets it to the current system date. Appends message
753: * to API message list on error.
754: * Returns:
755: * x_return_status - FND_API.G_RET_STS_SUCCESS if initialization is successful
756: * FND_API.G_RET_STS_ERROR if error initializing action date
757: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
758: * x_action_date - The action date, truncated.
759: * x_cbc_enabled - 'Y' if CBC is enabled, 'N' otherwise.
760: */
753: * to API message list on error.
754: * Returns:
755: * x_return_status - FND_API.G_RET_STS_SUCCESS if initialization is successful
756: * FND_API.G_RET_STS_ERROR if error initializing action date
757: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
758: * x_action_date - The action date, truncated.
759: * x_cbc_enabled - 'Y' if CBC is enabled, 'N' otherwise.
760: */
761: PROCEDURE init_action_date
775: l_msg_data VARCHAR2(2000);
776:
777: BEGIN
778: -- Start standard API initialization
779: IF FND_API.to_boolean(p_init_msg_list) THEN
780: FND_MSG_PUB.initialize;
781: END IF;
782: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
783: l_api_name, g_pkg_name)
778: -- Start standard API initialization
779: IF FND_API.to_boolean(p_init_msg_list) THEN
780: FND_MSG_PUB.initialize;
781: END IF;
782: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
783: l_api_name, g_pkg_name)
784: THEN
785: RAISE FND_API.g_exc_unexpected_error;
786: END IF;
781: END IF;
782: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
783: l_api_name, g_pkg_name)
784: THEN
785: RAISE FND_API.g_exc_unexpected_error;
786: END IF;
787: x_return_status := FND_API.g_ret_sts_success;
788: -- End standard API initialization
789:
783: l_api_name, g_pkg_name)
784: THEN
785: RAISE FND_API.g_exc_unexpected_error;
786: END IF;
787: x_return_status := FND_API.g_ret_sts_success;
788: -- End standard API initialization
789:
790: IF (g_debug_stmt) THEN
791: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
796: END IF;
797:
798: IGC_CBC_PO_GRP.is_cbc_enabled
799: ( p_api_version => 1.0,
800: p_init_msg_list => FND_API.G_FALSE,
801: p_commit => FND_API.G_FALSE,
802: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
803: x_return_status => x_return_status,
804: x_msg_count => l_msg_count,
797:
798: IGC_CBC_PO_GRP.is_cbc_enabled
799: ( p_api_version => 1.0,
800: p_init_msg_list => FND_API.G_FALSE,
801: p_commit => FND_API.G_FALSE,
802: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
803: x_return_status => x_return_status,
804: x_msg_count => l_msg_count,
805: x_msg_data => l_msg_data,
798: IGC_CBC_PO_GRP.is_cbc_enabled
799: ( p_api_version => 1.0,
800: p_init_msg_list => FND_API.G_FALSE,
801: p_commit => FND_API.G_FALSE,
802: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
803: x_return_status => x_return_status,
804: x_msg_count => l_msg_count,
805: x_msg_data => l_msg_data,
806: x_cbc_enabled => x_cbc_enabled );
803: x_return_status => x_return_status,
804: x_msg_count => l_msg_count,
805: x_msg_data => l_msg_data,
806: x_cbc_enabled => x_cbc_enabled );
807: IF (x_return_status = FND_API.g_ret_sts_error) THEN
808: RAISE FND_API.g_exc_error;
809: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
810: RAISE FND_API.g_exc_unexpected_error;
811: END IF;
804: x_msg_count => l_msg_count,
805: x_msg_data => l_msg_data,
806: x_cbc_enabled => x_cbc_enabled );
807: IF (x_return_status = FND_API.g_ret_sts_error) THEN
808: RAISE FND_API.g_exc_error;
809: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
810: RAISE FND_API.g_exc_unexpected_error;
811: END IF;
812:
805: x_msg_data => l_msg_data,
806: x_cbc_enabled => x_cbc_enabled );
807: IF (x_return_status = FND_API.g_ret_sts_error) THEN
808: RAISE FND_API.g_exc_error;
809: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
810: RAISE FND_API.g_exc_unexpected_error;
811: END IF;
812:
813: IF (g_debug_stmt) THEN
806: x_cbc_enabled => x_cbc_enabled );
807: IF (x_return_status = FND_API.g_ret_sts_error) THEN
808: RAISE FND_API.g_exc_error;
809: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
810: RAISE FND_API.g_exc_unexpected_error;
811: END IF;
812:
813: IF (g_debug_stmt) THEN
814: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
821: -- Set the action date if it was not passed in
822: IF (x_action_date IS NULL) THEN
823:
824: get_action_date( p_api_version => 1.0,
825: p_init_msg_list => FND_API.G_FALSE,
826: x_return_status => x_return_status,
827: p_doc_type => p_doc_type,
828: p_doc_subtype => p_doc_subtype,
829: p_doc_id => p_doc_id,
828: p_doc_subtype => p_doc_subtype,
829: p_doc_id => p_doc_id,
830: p_cbc_enabled => x_cbc_enabled,
831: x_action_date => x_action_date );
832: IF (x_return_status = FND_API.g_ret_sts_error) THEN
833: RAISE FND_API.g_exc_error;
834: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
835: RAISE FND_API.g_exc_unexpected_error;
836: END IF;
829: p_doc_id => p_doc_id,
830: p_cbc_enabled => x_cbc_enabled,
831: x_action_date => x_action_date );
832: IF (x_return_status = FND_API.g_ret_sts_error) THEN
833: RAISE FND_API.g_exc_error;
834: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
835: RAISE FND_API.g_exc_unexpected_error;
836: END IF;
837:
830: p_cbc_enabled => x_cbc_enabled,
831: x_action_date => x_action_date );
832: IF (x_return_status = FND_API.g_ret_sts_error) THEN
833: RAISE FND_API.g_exc_error;
834: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
835: RAISE FND_API.g_exc_unexpected_error;
836: END IF;
837:
838: ELSE
831: x_action_date => x_action_date );
832: IF (x_return_status = FND_API.g_ret_sts_error) THEN
833: RAISE FND_API.g_exc_error;
834: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
835: RAISE FND_API.g_exc_unexpected_error;
836: END IF;
837:
838: ELSE
839:
841:
842: END IF; --
843:
844: EXCEPTION
845: WHEN FND_API.g_exc_error THEN
846: x_return_status := FND_API.g_ret_sts_error;
847: WHEN FND_API.g_exc_unexpected_error THEN
848: x_return_status := FND_API.g_ret_sts_unexp_error;
849: WHEN OTHERS THEN
842: END IF; --
843:
844: EXCEPTION
845: WHEN FND_API.g_exc_error THEN
846: x_return_status := FND_API.g_ret_sts_error;
847: WHEN FND_API.g_exc_unexpected_error THEN
848: x_return_status := FND_API.g_ret_sts_unexp_error;
849: WHEN OTHERS THEN
850: x_return_status := FND_API.g_ret_sts_unexp_error;
843:
844: EXCEPTION
845: WHEN FND_API.g_exc_error THEN
846: x_return_status := FND_API.g_ret_sts_error;
847: WHEN FND_API.g_exc_unexpected_error THEN
848: x_return_status := FND_API.g_ret_sts_unexp_error;
849: WHEN OTHERS THEN
850: x_return_status := FND_API.g_ret_sts_unexp_error;
851: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
844: EXCEPTION
845: WHEN FND_API.g_exc_error THEN
846: x_return_status := FND_API.g_ret_sts_error;
847: WHEN FND_API.g_exc_unexpected_error THEN
848: x_return_status := FND_API.g_ret_sts_unexp_error;
849: WHEN OTHERS THEN
850: x_return_status := FND_API.g_ret_sts_unexp_error;
851: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
852: IF (g_debug_unexp) THEN
846: x_return_status := FND_API.g_ret_sts_error;
847: WHEN FND_API.g_exc_unexpected_error THEN
848: x_return_status := FND_API.g_ret_sts_unexp_error;
849: WHEN OTHERS THEN
850: x_return_status := FND_API.g_ret_sts_unexp_error;
851: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
852: IF (g_debug_unexp) THEN
853: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
854: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
865: * Effects: If p_cbc_enabled is 'Y', then sets x_action_date to a valid CBC
866: * accounting date for this document. Otherwise, sets x_action_date to
867: * the current system date. Appends to API message list on error.
868: * Returns:
869: * x_return_status - FND_API.G_RET_STS_SUCCESS if date is set successfully
870: * FND_API.G_RET_STS_ERROR if error occurs getting date
871: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
872: * x_action_date - A truncated date that is either a valid CBC accounting date
873: * or the current system date.
866: * accounting date for this document. Otherwise, sets x_action_date to
867: * the current system date. Appends to API message list on error.
868: * Returns:
869: * x_return_status - FND_API.G_RET_STS_SUCCESS if date is set successfully
870: * FND_API.G_RET_STS_ERROR if error occurs getting date
871: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
872: * x_action_date - A truncated date that is either a valid CBC accounting date
873: * or the current system date.
874: */
867: * the current system date. Appends to API message list on error.
868: * Returns:
869: * x_return_status - FND_API.G_RET_STS_SUCCESS if date is set successfully
870: * FND_API.G_RET_STS_ERROR if error occurs getting date
871: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
872: * x_action_date - A truncated date that is either a valid CBC accounting date
873: * or the current system date.
874: */
875: PROCEDURE get_action_date
889: l_msg_data VARCHAR2(2000);
890:
891: BEGIN
892: -- Start standard API initialization
893: IF FND_API.to_boolean(p_init_msg_list) THEN
894: FND_MSG_PUB.initialize;
895: END IF;
896: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
897: l_api_name, g_pkg_name)
892: -- Start standard API initialization
893: IF FND_API.to_boolean(p_init_msg_list) THEN
894: FND_MSG_PUB.initialize;
895: END IF;
896: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
897: l_api_name, g_pkg_name)
898: THEN
899: RAISE FND_API.g_exc_unexpected_error;
900: END IF;
895: END IF;
896: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
897: l_api_name, g_pkg_name)
898: THEN
899: RAISE FND_API.g_exc_unexpected_error;
900: END IF;
901: x_return_status := FND_API.g_ret_sts_success;
902: -- End standard API initialization
903:
897: l_api_name, g_pkg_name)
898: THEN
899: RAISE FND_API.g_exc_unexpected_error;
900: END IF;
901: x_return_status := FND_API.g_ret_sts_success;
902: -- End standard API initialization
903:
904: IF (g_debug_stmt) THEN
905: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
922: END IF;
923:
924: IGC_CBC_PO_GRP.get_cbc_acct_date
925: ( p_api_version => 1.0,
926: p_init_msg_list => FND_API.G_FALSE,
927: p_commit => FND_API.G_FALSE,
928: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
929: x_return_status => x_return_status,
930: x_msg_count => l_msg_count,
923:
924: IGC_CBC_PO_GRP.get_cbc_acct_date
925: ( p_api_version => 1.0,
926: p_init_msg_list => FND_API.G_FALSE,
927: p_commit => FND_API.G_FALSE,
928: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
929: x_return_status => x_return_status,
930: x_msg_count => l_msg_count,
931: x_msg_data => l_msg_data,
924: IGC_CBC_PO_GRP.get_cbc_acct_date
925: ( p_api_version => 1.0,
926: p_init_msg_list => FND_API.G_FALSE,
927: p_commit => FND_API.G_FALSE,
928: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
929: x_return_status => x_return_status,
930: x_msg_count => l_msg_count,
931: x_msg_data => l_msg_data,
932: p_document_id => p_doc_id,
933: p_document_type => p_doc_type,
934: p_document_sub_type => p_doc_subtype,
935: p_default => 'Y',
936: x_cbc_acct_date => x_action_date );
937: IF (x_return_status = FND_API.g_ret_sts_error) THEN
938: RAISE FND_API.g_exc_error;
939: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
940: RAISE FND_API.g_exc_unexpected_error;
941: END IF;
934: p_document_sub_type => p_doc_subtype,
935: p_default => 'Y',
936: x_cbc_acct_date => x_action_date );
937: IF (x_return_status = FND_API.g_ret_sts_error) THEN
938: RAISE FND_API.g_exc_error;
939: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
940: RAISE FND_API.g_exc_unexpected_error;
941: END IF;
942:
935: p_default => 'Y',
936: x_cbc_acct_date => x_action_date );
937: IF (x_return_status = FND_API.g_ret_sts_error) THEN
938: RAISE FND_API.g_exc_error;
939: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
940: RAISE FND_API.g_exc_unexpected_error;
941: END IF;
942:
943: x_action_date := TRUNC(x_action_date);
936: x_cbc_acct_date => x_action_date );
937: IF (x_return_status = FND_API.g_ret_sts_error) THEN
938: RAISE FND_API.g_exc_error;
939: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
940: RAISE FND_API.g_exc_unexpected_error;
941: END IF;
942:
943: x_action_date := TRUNC(x_action_date);
944:
948: x_action_date := TRUNC(SYSDATE);
949: END IF;
950:
951: EXCEPTION
952: WHEN FND_API.g_exc_error THEN
953: x_return_status := FND_API.g_ret_sts_error;
954: x_action_date := TRUNC(SYSDATE);
955: WHEN FND_API.g_exc_unexpected_error THEN
956: x_return_status := FND_API.g_ret_sts_unexp_error;
949: END IF;
950:
951: EXCEPTION
952: WHEN FND_API.g_exc_error THEN
953: x_return_status := FND_API.g_ret_sts_error;
954: x_action_date := TRUNC(SYSDATE);
955: WHEN FND_API.g_exc_unexpected_error THEN
956: x_return_status := FND_API.g_ret_sts_unexp_error;
957: x_action_date := TRUNC(SYSDATE);
951: EXCEPTION
952: WHEN FND_API.g_exc_error THEN
953: x_return_status := FND_API.g_ret_sts_error;
954: x_action_date := TRUNC(SYSDATE);
955: WHEN FND_API.g_exc_unexpected_error THEN
956: x_return_status := FND_API.g_ret_sts_unexp_error;
957: x_action_date := TRUNC(SYSDATE);
958: WHEN OTHERS THEN
959: x_return_status := FND_API.g_ret_sts_unexp_error;
952: WHEN FND_API.g_exc_error THEN
953: x_return_status := FND_API.g_ret_sts_error;
954: x_action_date := TRUNC(SYSDATE);
955: WHEN FND_API.g_exc_unexpected_error THEN
956: x_return_status := FND_API.g_ret_sts_unexp_error;
957: x_action_date := TRUNC(SYSDATE);
958: WHEN OTHERS THEN
959: x_return_status := FND_API.g_ret_sts_unexp_error;
960: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
955: WHEN FND_API.g_exc_unexpected_error THEN
956: x_return_status := FND_API.g_ret_sts_unexp_error;
957: x_action_date := TRUNC(SYSDATE);
958: WHEN OTHERS THEN
959: x_return_status := FND_API.g_ret_sts_unexp_error;
960: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
961: IF (g_debug_unexp) THEN
962: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
963: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
975: * for requisitions or for cancel or finally closing a purchase order. Also
976: * checks that p_date is a valid CBC accounting date for cancel or finally
977: * close actions if CBC is enabled. Appends to API message list on error.
978: * Returns:
979: * x_return_status - FND_API.G_RET_STS_SUCCESS if validation succeeds
980: * FND_API.G_RET_STS_ERROR if validation fails
981: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
982: */
983: PROCEDURE val_action_date
976: * checks that p_date is a valid CBC accounting date for cancel or finally
977: * close actions if CBC is enabled. Appends to API message list on error.
978: * Returns:
979: * x_return_status - FND_API.G_RET_STS_SUCCESS if validation succeeds
980: * FND_API.G_RET_STS_ERROR if validation fails
981: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
982: */
983: PROCEDURE val_action_date
984: (p_api_version IN NUMBER,
977: * close actions if CBC is enabled. Appends to API message list on error.
978: * Returns:
979: * x_return_status - FND_API.G_RET_STS_SUCCESS if validation succeeds
980: * FND_API.G_RET_STS_ERROR if validation fails
981: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
982: */
983: PROCEDURE val_action_date
984: (p_api_version IN NUMBER,
985: p_init_msg_list IN VARCHAR2,
1001: l_msg_data VARCHAR2(2000);
1002:
1003: BEGIN
1004: -- Start standard API initialization
1005: IF FND_API.to_boolean(p_init_msg_list) THEN
1006: FND_MSG_PUB.initialize;
1007: END IF;
1008: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
1009: l_api_name, g_pkg_name)
1004: -- Start standard API initialization
1005: IF FND_API.to_boolean(p_init_msg_list) THEN
1006: FND_MSG_PUB.initialize;
1007: END IF;
1008: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
1009: l_api_name, g_pkg_name)
1010: THEN
1011: RAISE FND_API.g_exc_unexpected_error;
1012: END IF;
1007: END IF;
1008: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
1009: l_api_name, g_pkg_name)
1010: THEN
1011: RAISE FND_API.g_exc_unexpected_error;
1012: END IF;
1013: x_return_status := FND_API.g_ret_sts_success;
1014: -- End standard API initialization
1015:
1009: l_api_name, g_pkg_name)
1010: THEN
1011: RAISE FND_API.g_exc_unexpected_error;
1012: END IF;
1013: x_return_status := FND_API.g_ret_sts_success;
1014: -- End standard API initialization
1015:
1016: IF (g_debug_stmt) THEN
1017: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1028: (p_po_encumbrance_flag = 'Y'))
1029: THEN
1030:
1031: IF NOT in_open_gl_period( p_api_version => 1.0,
1032: p_init_msg_list => FND_API.G_FALSE,
1033: x_return_status => x_return_status,
1034: p_date => p_action_date )
1035: THEN
1036: IF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1032: p_init_msg_list => FND_API.G_FALSE,
1033: x_return_status => x_return_status,
1034: p_date => p_action_date )
1035: THEN
1036: IF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1037: RAISE FND_API.g_exc_unexpected_error;
1038: END IF;
1039:
1040: -- No error, so add a message saying open gl period check failed
1033: x_return_status => x_return_status,
1034: p_date => p_action_date )
1035: THEN
1036: IF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1037: RAISE FND_API.g_exc_unexpected_error;
1038: END IF;
1039:
1040: -- No error, so add a message saying open gl period check failed
1041: FND_MESSAGE.set_name('PO','PO_INV_CR_INVALID_GL_PERIOD');
1047: l_api_name || '.gl_period', FALSE);
1048: END IF;
1049: END IF;
1050: FND_MSG_PUB.add;
1051: RAISE FND_API.g_exc_error;
1052: END IF; -- if not in_open_gl_period ...
1053:
1054: END IF; -- if p_doc_type ...
1055:
1057: --If the procedure is invoked by HTML pages.
1058: --See Bug#4569120
1059:
1060: /* Bug 6507195 : PO CBC Integration
1061: Only when the Parameter P_SKIP_VALID_CBC_ACCT_DATE is FND_API.G_TRUE, we should skip validation
1062: Hence Changed condition from FND_API.G_TRUE to FND_API.G_FALSE
1063: */
1064:
1065: IF(nvl(p_skip_valid_cbc_acct_date, FND_API.G_FALSE) = FND_API.G_FALSE) THEN
1058: --See Bug#4569120
1059:
1060: /* Bug 6507195 : PO CBC Integration
1061: Only when the Parameter P_SKIP_VALID_CBC_ACCT_DATE is FND_API.G_TRUE, we should skip validation
1062: Hence Changed condition from FND_API.G_TRUE to FND_API.G_FALSE
1063: */
1064:
1065: IF(nvl(p_skip_valid_cbc_acct_date, FND_API.G_FALSE) = FND_API.G_FALSE) THEN
1066: -- Validate with CBC accounting date if enabled for cancel or finally close
1061: Only when the Parameter P_SKIP_VALID_CBC_ACCT_DATE is FND_API.G_TRUE, we should skip validation
1062: Hence Changed condition from FND_API.G_TRUE to FND_API.G_FALSE
1063: */
1064:
1065: IF(nvl(p_skip_valid_cbc_acct_date, FND_API.G_FALSE) = FND_API.G_FALSE) THEN
1066: -- Validate with CBC accounting date if enabled for cancel or finally close
1067: IF (p_cbc_enabled = 'Y') AND (p_action IN ('CANCEL','FINALLY CLOSE')) THEN
1068:
1069: IF (g_debug_stmt) THEN
1074: END IF;
1075:
1076: IGC_CBC_PO_GRP.valid_cbc_acct_date
1077: ( p_api_version => 1.0,
1078: p_init_msg_list => FND_API.G_FALSE,
1079: p_commit => FND_API.G_FALSE,
1080: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1081: x_return_status => x_return_status,
1082: x_msg_count => l_msg_count,
1075:
1076: IGC_CBC_PO_GRP.valid_cbc_acct_date
1077: ( p_api_version => 1.0,
1078: p_init_msg_list => FND_API.G_FALSE,
1079: p_commit => FND_API.G_FALSE,
1080: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1081: x_return_status => x_return_status,
1082: x_msg_count => l_msg_count,
1083: x_msg_data => l_msg_data,
1076: IGC_CBC_PO_GRP.valid_cbc_acct_date
1077: ( p_api_version => 1.0,
1078: p_init_msg_list => FND_API.G_FALSE,
1079: p_commit => FND_API.G_FALSE,
1080: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1081: x_return_status => x_return_status,
1082: x_msg_count => l_msg_count,
1083: x_msg_data => l_msg_data,
1084: p_document_id => p_doc_id,
1084: p_document_id => p_doc_id,
1085: p_document_type => p_doc_type,
1086: p_document_sub_type => p_doc_subtype,
1087: p_cbc_acct_date => p_action_date );
1088: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1089: RAISE FND_API.g_exc_error;
1090: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1091: RAISE FND_API.g_exc_unexpected_error;
1092: END IF;
1085: p_document_type => p_doc_type,
1086: p_document_sub_type => p_doc_subtype,
1087: p_cbc_acct_date => p_action_date );
1088: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1089: RAISE FND_API.g_exc_error;
1090: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1091: RAISE FND_API.g_exc_unexpected_error;
1092: END IF;
1093:
1086: p_document_sub_type => p_doc_subtype,
1087: p_cbc_acct_date => p_action_date );
1088: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1089: RAISE FND_API.g_exc_error;
1090: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1091: RAISE FND_API.g_exc_unexpected_error;
1092: END IF;
1093:
1094: END IF; -- if p_cbc_enabled ...
1087: p_cbc_acct_date => p_action_date );
1088: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1089: RAISE FND_API.g_exc_error;
1090: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1091: RAISE FND_API.g_exc_unexpected_error;
1092: END IF;
1093:
1094: END IF; -- if p_cbc_enabled ...
1095: END IF;--p_skip_valid_cbc_acct_date = FND_API.G_FALSE
1091: RAISE FND_API.g_exc_unexpected_error;
1092: END IF;
1093:
1094: END IF; -- if p_cbc_enabled ...
1095: END IF;--p_skip_valid_cbc_acct_date = FND_API.G_FALSE
1096:
1097: EXCEPTION
1098: WHEN FND_API.g_exc_error THEN
1099: x_return_status := FND_API.g_ret_sts_error;
1094: END IF; -- if p_cbc_enabled ...
1095: END IF;--p_skip_valid_cbc_acct_date = FND_API.G_FALSE
1096:
1097: EXCEPTION
1098: WHEN FND_API.g_exc_error THEN
1099: x_return_status := FND_API.g_ret_sts_error;
1100: WHEN FND_API.g_exc_unexpected_error THEN
1101: x_return_status := FND_API.g_ret_sts_unexp_error;
1102: WHEN OTHERS THEN
1095: END IF;--p_skip_valid_cbc_acct_date = FND_API.G_FALSE
1096:
1097: EXCEPTION
1098: WHEN FND_API.g_exc_error THEN
1099: x_return_status := FND_API.g_ret_sts_error;
1100: WHEN FND_API.g_exc_unexpected_error THEN
1101: x_return_status := FND_API.g_ret_sts_unexp_error;
1102: WHEN OTHERS THEN
1103: x_return_status := FND_API.g_ret_sts_unexp_error;
1096:
1097: EXCEPTION
1098: WHEN FND_API.g_exc_error THEN
1099: x_return_status := FND_API.g_ret_sts_error;
1100: WHEN FND_API.g_exc_unexpected_error THEN
1101: x_return_status := FND_API.g_ret_sts_unexp_error;
1102: WHEN OTHERS THEN
1103: x_return_status := FND_API.g_ret_sts_unexp_error;
1104: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1097: EXCEPTION
1098: WHEN FND_API.g_exc_error THEN
1099: x_return_status := FND_API.g_ret_sts_error;
1100: WHEN FND_API.g_exc_unexpected_error THEN
1101: x_return_status := FND_API.g_ret_sts_unexp_error;
1102: WHEN OTHERS THEN
1103: x_return_status := FND_API.g_ret_sts_unexp_error;
1104: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1105: IF (g_debug_unexp) THEN
1099: x_return_status := FND_API.g_ret_sts_error;
1100: WHEN FND_API.g_exc_unexpected_error THEN
1101: x_return_status := FND_API.g_ret_sts_unexp_error;
1102: WHEN OTHERS THEN
1103: x_return_status := FND_API.g_ret_sts_unexp_error;
1104: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1105: IF (g_debug_unexp) THEN
1106: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1107: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1138: --x_displayed_field_tbl
1139: -- Table storing the displayed_field values for each allowable control action.
1140: -- These elements are in sync with the elements in x_lookup_code_tbl.
1141: --x_return_status
1142: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1143: -- FND_API.g_ret_sts_error - if no control actions were found
1144: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1145: --End of Comments
1146: --------------------------------------------------------------------------------
1139: -- Table storing the displayed_field values for each allowable control action.
1140: -- These elements are in sync with the elements in x_lookup_code_tbl.
1141: --x_return_status
1142: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1143: -- FND_API.g_ret_sts_error - if no control actions were found
1144: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1145: --End of Comments
1146: --------------------------------------------------------------------------------
1147: PROCEDURE get_header_actions
1140: -- These elements are in sync with the elements in x_lookup_code_tbl.
1141: --x_return_status
1142: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1143: -- FND_API.g_ret_sts_error - if no control actions were found
1144: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1145: --End of Comments
1146: --------------------------------------------------------------------------------
1147: PROCEDURE get_header_actions
1148: ( p_doc_subtype IN VARCHAR2
1285: --< Bug 3194665 End >
1286:
1287: BEGIN
1288: --< Bug 3194665 > Removed unnecessary std api work
1289: x_return_status := FND_API.g_ret_sts_success;
1290:
1291: IF (g_debug_stmt) THEN
1292: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1293: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
1309: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
1310: '.no_data_found', FALSE);
1311: END IF;
1312: END IF;
1313: x_return_status := FND_API.g_ret_sts_error;
1314: END IF;
1315: --< Bug 3194665 End >
1316: CLOSE l_get_actions_csr;
1317:
1317:
1318: EXCEPTION
1319: --< Bug 3194665 > Removed unnecessary std api exception blocks
1320: WHEN OTHERS THEN
1321: x_return_status := FND_API.g_ret_sts_unexp_error;
1322: IF l_get_actions_csr%ISOPEN THEN
1323: CLOSE l_get_actions_csr;
1324: END IF;
1325: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1360: --x_displayed_field_tbl
1361: -- Table storing the displayed_field values for each allowable control action.
1362: -- These elements are in sync with the elements in x_lookup_code_tbl.
1363: --x_return_status
1364: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1365: -- FND_API.g_ret_sts_error - if no control actions were found
1366: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1367: --End of Comments
1368: --------------------------------------------------------------------------------
1361: -- Table storing the displayed_field values for each allowable control action.
1362: -- These elements are in sync with the elements in x_lookup_code_tbl.
1363: --x_return_status
1364: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1365: -- FND_API.g_ret_sts_error - if no control actions were found
1366: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1367: --End of Comments
1368: --------------------------------------------------------------------------------
1369: PROCEDURE get_line_actions
1362: -- These elements are in sync with the elements in x_lookup_code_tbl.
1363: --x_return_status
1364: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1365: -- FND_API.g_ret_sts_error - if no control actions were found
1366: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1367: --End of Comments
1368: --------------------------------------------------------------------------------
1369: PROCEDURE get_line_actions
1370: ( p_doc_subtype IN VARCHAR2
1483: ORDER BY polc.displayed_field;--< Bug 3194665 End >
1484:
1485: BEGIN
1486: --< Bug 3194665 > Removed unnecessary std api work
1487: x_return_status := FND_API.g_ret_sts_success;
1488:
1489: IF (g_debug_stmt) THEN
1490: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1491: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
1507: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
1508: '.get_failed', FALSE);
1509: END IF;
1510: END IF;
1511: x_return_status := FND_API.g_ret_sts_error;
1512: END IF;
1513: --< Bug 3194665 End >
1514:
1515: CLOSE l_get_actions_csr;
1516:
1517: EXCEPTION
1518: --< Bug 3194665 > Removed unnecessary std api exception blocks
1519: WHEN OTHERS THEN
1520: x_return_status := FND_API.g_ret_sts_unexp_error;
1521: IF l_get_actions_csr%ISOPEN THEN
1522: CLOSE l_get_actions_csr;
1523: END IF;
1524: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1560: --x_displayed_field_tbl
1561: -- Table storing the displayed_field values for each allowable control action.
1562: -- These elements are in sync with the elements in x_lookup_code_tbl.
1563: --x_return_status
1564: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1565: -- FND_API.g_ret_sts_error - if no control actions were found
1566: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1567: --End of Comments
1568: --------------------------------------------------------------------------------
1561: -- Table storing the displayed_field values for each allowable control action.
1562: -- These elements are in sync with the elements in x_lookup_code_tbl.
1563: --x_return_status
1564: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1565: -- FND_API.g_ret_sts_error - if no control actions were found
1566: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1567: --End of Comments
1568: --------------------------------------------------------------------------------
1569: PROCEDURE get_shipment_actions
1562: -- These elements are in sync with the elements in x_lookup_code_tbl.
1563: --x_return_status
1564: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1565: -- FND_API.g_ret_sts_error - if no control actions were found
1566: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1567: --End of Comments
1568: --------------------------------------------------------------------------------
1569: PROCEDURE get_shipment_actions
1570: ( p_doc_type IN VARCHAR2
1704: --< Bug 3194665 End >
1705:
1706: BEGIN
1707: --< Bug 3194665 > Removed unnecessary std api work
1708: x_return_status := FND_API.g_ret_sts_success;
1709:
1710: IF (g_debug_stmt) THEN
1711: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1712: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
1729: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
1730: '.get_failed', FALSE);
1731: END IF;
1732: END IF;
1733: x_return_status := FND_API.g_ret_sts_error;
1734: END IF;
1735: --< Bug 3194665 End >
1736: CLOSE l_get_actions_csr;
1737:
1737:
1738: EXCEPTION
1739: --< Bug 3194665 > Removed unnecessary std api exception blocks
1740: WHEN OTHERS THEN
1741: x_return_status := FND_API.g_ret_sts_unexp_error;
1742: IF l_get_actions_csr%ISOPEN THEN
1743: CLOSE l_get_actions_csr;
1744: END IF;
1745: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1781: --x_displayed_field_tbl
1782: -- Table storing the displayed_field values for each allowable control action.
1783: -- These elements are in sync with the elements in x_lookup_code_tbl.
1784: --x_return_status
1785: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1786: -- FND_API.g_ret_sts_error - if no control actions were found
1787: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1788: --End of Comments
1789: --------------------------------------------------------------------------------
1782: -- Table storing the displayed_field values for each allowable control action.
1783: -- These elements are in sync with the elements in x_lookup_code_tbl.
1784: --x_return_status
1785: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1786: -- FND_API.g_ret_sts_error - if no control actions were found
1787: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1788: --End of Comments
1789: --------------------------------------------------------------------------------
1790: PROCEDURE get_rel_header_actions
1783: -- These elements are in sync with the elements in x_lookup_code_tbl.
1784: --x_return_status
1785: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1786: -- FND_API.g_ret_sts_error - if no control actions were found
1787: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1788: --End of Comments
1789: --------------------------------------------------------------------------------
1790: PROCEDURE get_rel_header_actions
1791: ( p_doc_subtype IN VARCHAR2
1905: --< Bug 3194665 End >
1906:
1907: BEGIN
1908: --< Bug 3194665 > Removed unnecessary std api work
1909: x_return_status := FND_API.g_ret_sts_success;
1910:
1911: IF (g_debug_stmt) THEN
1912: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1913: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
1929: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
1930: '.get_failed', FALSE);
1931: END IF;
1932: END IF;
1933: x_return_status := FND_API.g_ret_sts_error;
1934: END IF;
1935: --< Bug 3194665 End >
1936: CLOSE l_get_actions_csr;
1937:
1937:
1938: EXCEPTION
1939: --< Bug 3194665 > Removed unnecessary std api exception blocks
1940: WHEN OTHERS THEN
1941: x_return_status := FND_API.g_ret_sts_unexp_error;
1942: IF l_get_actions_csr%ISOPEN THEN
1943: CLOSE l_get_actions_csr;
1944: END IF;
1945: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1981: --x_displayed_field_tbl
1982: -- Table storing the displayed_field values for each allowable control action.
1983: -- These elements are in sync with the elements in x_lookup_code_tbl.
1984: --x_return_status
1985: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1986: -- FND_API.g_ret_sts_error - if no control actions were found
1987: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1988: --End of Comments
1989: --------------------------------------------------------------------------------
1982: -- Table storing the displayed_field values for each allowable control action.
1983: -- These elements are in sync with the elements in x_lookup_code_tbl.
1984: --x_return_status
1985: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1986: -- FND_API.g_ret_sts_error - if no control actions were found
1987: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1988: --End of Comments
1989: --------------------------------------------------------------------------------
1990: PROCEDURE get_rel_shipment_actions
1983: -- These elements are in sync with the elements in x_lookup_code_tbl.
1984: --x_return_status
1985: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1986: -- FND_API.g_ret_sts_error - if no control actions were found
1987: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1988: --End of Comments
1989: --------------------------------------------------------------------------------
1990: PROCEDURE get_rel_shipment_actions
1991: ( p_doc_subtype IN VARCHAR2
2075: --< Bug 3194665 End >
2076:
2077: BEGIN
2078: --< Bug 3194665 > Removed unnecessary std api work
2079: x_return_status := FND_API.g_ret_sts_success;
2080:
2081: IF (g_debug_stmt) THEN
2082: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2083: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
2099: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
2100: '.get_failed', FALSE);
2101: END IF;
2102: END IF;
2103: x_return_status := FND_API.g_ret_sts_error;
2104: END IF;
2105: --< Bug 3194665 End >
2106: CLOSE l_get_actions_csr;
2107:
2107:
2108: EXCEPTION
2109: --< Bug 3194665 > Removed unnecessary std api exception block
2110: WHEN OTHERS THEN
2111: x_return_status := FND_API.g_ret_sts_unexp_error;
2112: IF l_get_actions_csr%ISOPEN THEN
2113: CLOSE l_get_actions_csr;
2114: END IF;
2115: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2133: * at header level if p_doc_id is not NULL. Control actions supported for
2134: * p_action are: 'CANCEL'. Requisitions are currently not supported. Appends
2135: * to API message list on error.
2136: * Returns:
2137: * x_return_status - FND_API.G_RET_STS_SUCCESS if validation succeeds
2138: * FND_API.G_RET_STS_ERROR if validation fails
2139: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2140: * x_control_level - g_header_level
2141: * g_line_level
2134: * p_action are: 'CANCEL'. Requisitions are currently not supported. Appends
2135: * to API message list on error.
2136: * Returns:
2137: * x_return_status - FND_API.G_RET_STS_SUCCESS if validation succeeds
2138: * FND_API.G_RET_STS_ERROR if validation fails
2139: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2140: * x_control_level - g_header_level
2141: * g_line_level
2142: * g_shipment_level
2135: * to API message list on error.
2136: * Returns:
2137: * x_return_status - FND_API.G_RET_STS_SUCCESS if validation succeeds
2138: * FND_API.G_RET_STS_ERROR if validation fails
2139: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2140: * x_control_level - g_header_level
2141: * g_line_level
2142: * g_shipment_level
2143: * g_rel_header_level
2173: --
2174:
2175: BEGIN
2176: -- Start standard API initialization
2177: IF FND_API.to_boolean(p_init_msg_list) THEN
2178: FND_MSG_PUB.initialize;
2179: END IF;
2180: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2181: l_api_name, g_pkg_name)
2176: -- Start standard API initialization
2177: IF FND_API.to_boolean(p_init_msg_list) THEN
2178: FND_MSG_PUB.initialize;
2179: END IF;
2180: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2181: l_api_name, g_pkg_name)
2182: THEN
2183: RAISE FND_API.g_exc_unexpected_error;
2184: END IF;
2179: END IF;
2180: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2181: l_api_name, g_pkg_name)
2182: THEN
2183: RAISE FND_API.g_exc_unexpected_error;
2184: END IF;
2185: x_return_status := FND_API.g_ret_sts_success;
2186: -- End standard API initialization
2187:
2181: l_api_name, g_pkg_name)
2182: THEN
2183: RAISE FND_API.g_exc_unexpected_error;
2184: END IF;
2185: x_return_status := FND_API.g_ret_sts_success;
2186: -- End standard API initialization
2187:
2188: IF (g_debug_stmt) THEN
2189: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2204: p_line_location_id => p_doc_line_loc_id,
2205: x_different => l_current_entity_changed,
2206: x_return_status => x_return_status);
2207:
2208: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2209: RAISE FND_API.g_exc_error;
2210: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2211: RAISE FND_API.g_exc_unexpected_error;
2212: END IF;
2205: x_different => l_current_entity_changed,
2206: x_return_status => x_return_status);
2207:
2208: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2209: RAISE FND_API.g_exc_error;
2210: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2211: RAISE FND_API.g_exc_unexpected_error;
2212: END IF;
2213:
2206: x_return_status => x_return_status);
2207:
2208: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2209: RAISE FND_API.g_exc_error;
2210: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2211: RAISE FND_API.g_exc_unexpected_error;
2212: END IF;
2213:
2214: -- If the current entity: Header/Line/Shipent changed, return error
2207:
2208: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2209: RAISE FND_API.g_exc_error;
2210: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2211: RAISE FND_API.g_exc_unexpected_error;
2212: END IF;
2213:
2214: -- If the current entity: Header/Line/Shipent changed, return error
2215: IF l_current_entity_changed = 'Y' THEN
2214: -- If the current entity: Header/Line/Shipent changed, return error
2215: IF l_current_entity_changed = 'Y' THEN
2216: FND_MESSAGE.set_name('PO','PO_CHANGED_CANT_CANCEL');
2217: FND_MSG_PUB.add;
2218: RAISE FND_API.g_exc_error;
2219: END IF;
2220: --
2221:
2222: IF (p_doc_type = 'RELEASE') THEN
2259: l_api_name || '.invalid_doc_ids', FALSE);
2260: END IF;
2261: END IF;
2262: FND_MSG_PUB.add;
2263: RAISE FND_API.g_exc_error;
2264: END IF; --
2265:
2266: ELSIF (p_doc_type IN ('PO','PA')) THEN
2267:
2319: l_api_name || '.invalid_doc_ids', FALSE);
2320: END IF;
2321: END IF;
2322: FND_MSG_PUB.add;
2323: RAISE FND_API.g_exc_error;
2324: END IF; --
2325:
2326: ELSE
2327: -- This document type is not supported
2333: '.invalid_doc_type', FALSE);
2334: END IF;
2335: END IF;
2336: FND_MSG_PUB.add;
2337: RAISE FND_API.g_exc_error;
2338: END IF; --
2339:
2340: -- Check if the get action procedure had an error
2341: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2337: RAISE FND_API.g_exc_error;
2338: END IF; --
2339:
2340: -- Check if the get action procedure had an error
2341: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2342: FND_MESSAGE.set_name('PO','PO_CONTROL_INVALID_ACTION');
2343: FND_MESSAGE.set_token('ACTION',p_action);
2344: IF (g_debug_stmt) THEN
2345: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
2347: '.get_action_failed', FALSE);
2348: END IF;
2349: END IF;
2350: FND_MSG_PUB.add;
2351: RAISE FND_API.g_exc_error;
2352: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2353: RAISE FND_API.g_exc_unexpected_error;
2354: END IF;
2355:
2348: END IF;
2349: END IF;
2350: FND_MSG_PUB.add;
2351: RAISE FND_API.g_exc_error;
2352: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2353: RAISE FND_API.g_exc_unexpected_error;
2354: END IF;
2355:
2356: -- Loop through allowable actions to see if this action is in the set
2349: END IF;
2350: FND_MSG_PUB.add;
2351: RAISE FND_API.g_exc_error;
2352: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2353: RAISE FND_API.g_exc_unexpected_error;
2354: END IF;
2355:
2356: -- Loop through allowable actions to see if this action is in the set
2357: l_action_ok := FALSE;
2373: '.status_failed', FALSE);
2374: END IF;
2375: END IF;
2376: FND_MSG_PUB.add;
2377: RAISE FND_API.g_exc_error;
2378: END IF;
2379:
2380: --
2381: l_progress := '100';
2401: p_field_value => l_otl_field_value,
2402: p_end_date => NULL,
2403: x_timecard_exists => l_timecard_exists
2404: );
2405: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2407: END IF;
2408:
2409: IF (l_timecard_exists) THEN
2402: p_end_date => NULL,
2403: x_timecard_exists => l_timecard_exists
2404: );
2405: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2407: END IF;
2408:
2409: IF (l_timecard_exists) THEN
2410: FND_MESSAGE.set_name('PO','PO_CONTROL_OTL_INVALID_ACTION');
2408:
2409: IF (l_timecard_exists) THEN
2410: FND_MESSAGE.set_name('PO','PO_CONTROL_OTL_INVALID_ACTION');
2411: FND_MSG_PUB.add;
2412: RAISE FND_API.g_exc_error;
2413: END IF;
2414:
2415: END IF; -- p_doc_type = 'PO'
2416: --
2415: END IF; -- p_doc_type = 'PO'
2416: --
2417:
2418: EXCEPTION
2419: WHEN FND_API.g_exc_error THEN
2420: x_return_status := FND_API.g_ret_sts_error;
2421: WHEN FND_API.g_exc_unexpected_error THEN
2422: x_return_status := FND_API.g_ret_sts_unexp_error;
2423: WHEN OTHERS THEN
2416: --
2417:
2418: EXCEPTION
2419: WHEN FND_API.g_exc_error THEN
2420: x_return_status := FND_API.g_ret_sts_error;
2421: WHEN FND_API.g_exc_unexpected_error THEN
2422: x_return_status := FND_API.g_ret_sts_unexp_error;
2423: WHEN OTHERS THEN
2424: x_return_status := FND_API.g_ret_sts_unexp_error;
2417:
2418: EXCEPTION
2419: WHEN FND_API.g_exc_error THEN
2420: x_return_status := FND_API.g_ret_sts_error;
2421: WHEN FND_API.g_exc_unexpected_error THEN
2422: x_return_status := FND_API.g_ret_sts_unexp_error;
2423: WHEN OTHERS THEN
2424: x_return_status := FND_API.g_ret_sts_unexp_error;
2425: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2418: EXCEPTION
2419: WHEN FND_API.g_exc_error THEN
2420: x_return_status := FND_API.g_ret_sts_error;
2421: WHEN FND_API.g_exc_unexpected_error THEN
2422: x_return_status := FND_API.g_ret_sts_unexp_error;
2423: WHEN OTHERS THEN
2424: x_return_status := FND_API.g_ret_sts_unexp_error;
2425: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2426: IF (g_debug_unexp) THEN
2420: x_return_status := FND_API.g_ret_sts_error;
2421: WHEN FND_API.g_exc_unexpected_error THEN
2422: x_return_status := FND_API.g_ret_sts_unexp_error;
2423: WHEN OTHERS THEN
2424: x_return_status := FND_API.g_ret_sts_unexp_error;
2425: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2426: IF (g_debug_unexp) THEN
2427: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2428: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
2439: * this document. Also does the same for any unapproved releases against this
2440: * document with authorization status INCOMPLETE, REJECTED, or REQUIRES
2441: * APPROVAL. Appends to API message list on error.
2442: * Returns:
2443: * x_return_status - FND_API.G_RET_STS_SUCCESS if no errors occur
2444: * FND_API.G_RET_STS_ERROR if error occurs
2445: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2446: */
2447: PROCEDURE po_stop_wf_process
2440: * document with authorization status INCOMPLETE, REJECTED, or REQUIRES
2441: * APPROVAL. Appends to API message list on error.
2442: * Returns:
2443: * x_return_status - FND_API.G_RET_STS_SUCCESS if no errors occur
2444: * FND_API.G_RET_STS_ERROR if error occurs
2445: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2446: */
2447: PROCEDURE po_stop_wf_process
2448: (p_api_version IN NUMBER,
2441: * APPROVAL. Appends to API message list on error.
2442: * Returns:
2443: * x_return_status - FND_API.G_RET_STS_SUCCESS if no errors occur
2444: * FND_API.G_RET_STS_ERROR if error occurs
2445: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2446: */
2447: PROCEDURE po_stop_wf_process
2448: (p_api_version IN NUMBER,
2449: p_init_msg_list IN VARCHAR2,
2493: l_num_fetched NUMBER := 0; -- number of rows fetched at each iteration
2494:
2495: BEGIN
2496: -- Start standard API initialization
2497: IF FND_API.to_boolean(p_init_msg_list) THEN
2498: FND_MSG_PUB.initialize;
2499: END IF;
2500: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2501: l_api_name, g_pkg_name)
2496: -- Start standard API initialization
2497: IF FND_API.to_boolean(p_init_msg_list) THEN
2498: FND_MSG_PUB.initialize;
2499: END IF;
2500: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2501: l_api_name, g_pkg_name)
2502: THEN
2503: RAISE FND_API.g_exc_unexpected_error;
2504: END IF;
2499: END IF;
2500: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2501: l_api_name, g_pkg_name)
2502: THEN
2503: RAISE FND_API.g_exc_unexpected_error;
2504: END IF;
2505: x_return_status := FND_API.g_ret_sts_success;
2506: -- End standard API initialization
2507:
2501: l_api_name, g_pkg_name)
2502: THEN
2503: RAISE FND_API.g_exc_unexpected_error;
2504: END IF;
2505: x_return_status := FND_API.g_ret_sts_success;
2506: -- End standard API initialization
2507:
2508: IF (g_debug_stmt) THEN
2509: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2523: '.invalid_doc_ids', FALSE);
2524: END IF;
2525: END IF;
2526: FND_MSG_PUB.add;
2527: RAISE FND_API.g_exc_error;
2528: END IF;
2529: CLOSE l_po_wf_csr;
2530:
2531: -- Cancel any approval reminder notifications. 'N' means not a release
2571:
2572: END IF; --
2573:
2574: EXCEPTION
2575: WHEN FND_API.g_exc_error THEN
2576: x_return_status := FND_API.g_ret_sts_error;
2577: IF l_po_wf_csr%ISOPEN THEN
2578: CLOSE l_po_wf_csr;
2579: END IF;
2572: END IF; --
2573:
2574: EXCEPTION
2575: WHEN FND_API.g_exc_error THEN
2576: x_return_status := FND_API.g_ret_sts_error;
2577: IF l_po_wf_csr%ISOPEN THEN
2578: CLOSE l_po_wf_csr;
2579: END IF;
2580: IF l_unapproved_releases_csr%ISOPEN THEN
2579: END IF;
2580: IF l_unapproved_releases_csr%ISOPEN THEN
2581: CLOSE l_unapproved_releases_csr;
2582: END IF;
2583: WHEN FND_API.g_exc_unexpected_error THEN
2584: x_return_status := FND_API.g_ret_sts_unexp_error;
2585: IF l_po_wf_csr%ISOPEN THEN
2586: CLOSE l_po_wf_csr;
2587: END IF;
2580: IF l_unapproved_releases_csr%ISOPEN THEN
2581: CLOSE l_unapproved_releases_csr;
2582: END IF;
2583: WHEN FND_API.g_exc_unexpected_error THEN
2584: x_return_status := FND_API.g_ret_sts_unexp_error;
2585: IF l_po_wf_csr%ISOPEN THEN
2586: CLOSE l_po_wf_csr;
2587: END IF;
2588: IF l_unapproved_releases_csr%ISOPEN THEN
2588: IF l_unapproved_releases_csr%ISOPEN THEN
2589: CLOSE l_unapproved_releases_csr;
2590: END IF;
2591: WHEN OTHERS THEN
2592: x_return_status := FND_API.g_ret_sts_unexp_error;
2593: IF l_po_wf_csr%ISOPEN THEN
2594: CLOSE l_po_wf_csr;
2595: END IF;
2596: IF l_unapproved_releases_csr%ISOPEN THEN
2611: * Modifies: Workflow processes for this document, API message list.
2612: * Effects: Stops any pending workflow process and respond notification for
2613: * this document. Appends to API message list on error.
2614: * Returns:
2615: * x_return_status - FND_API.G_RET_STS_SUCCESS if there are no errors
2616: * FND_API.G_RET_STS_ERROR if error occurs
2617: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2618: */
2619: PROCEDURE rel_stop_wf_process
2612: * Effects: Stops any pending workflow process and respond notification for
2613: * this document. Appends to API message list on error.
2614: * Returns:
2615: * x_return_status - FND_API.G_RET_STS_SUCCESS if there are no errors
2616: * FND_API.G_RET_STS_ERROR if error occurs
2617: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2618: */
2619: PROCEDURE rel_stop_wf_process
2620: (p_api_version IN NUMBER,
2613: * this document. Appends to API message list on error.
2614: * Returns:
2615: * x_return_status - FND_API.G_RET_STS_SUCCESS if there are no errors
2616: * FND_API.G_RET_STS_ERROR if error occurs
2617: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2618: */
2619: PROCEDURE rel_stop_wf_process
2620: (p_api_version IN NUMBER,
2621: p_init_msg_list IN VARCHAR2,
2636: l_wf_item_key PO_RELEASES.wf_item_key%TYPE;
2637:
2638: BEGIN
2639: -- Start standard API initialization
2640: IF FND_API.to_boolean(p_init_msg_list) THEN
2641: FND_MSG_PUB.initialize;
2642: END IF;
2643: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2644: l_api_name, g_pkg_name)
2639: -- Start standard API initialization
2640: IF FND_API.to_boolean(p_init_msg_list) THEN
2641: FND_MSG_PUB.initialize;
2642: END IF;
2643: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2644: l_api_name, g_pkg_name)
2645: THEN
2646: RAISE FND_API.g_exc_unexpected_error;
2647: END IF;
2642: END IF;
2643: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2644: l_api_name, g_pkg_name)
2645: THEN
2646: RAISE FND_API.g_exc_unexpected_error;
2647: END IF;
2648: x_return_status := FND_API.g_ret_sts_success;
2649: -- End standard API initialization
2650:
2644: l_api_name, g_pkg_name)
2645: THEN
2646: RAISE FND_API.g_exc_unexpected_error;
2647: END IF;
2648: x_return_status := FND_API.g_ret_sts_success;
2649: -- End standard API initialization
2650:
2651: IF (g_debug_stmt) THEN
2652: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2666: '.invalid_doc_ids', FALSE);
2667: END IF;
2668: END IF;
2669: FND_MSG_PUB.add;
2670: RAISE FND_API.g_exc_error;
2671: END IF;
2672: CLOSE l_rel_wf_csr;
2673:
2674: -- Cancel any approval reminder notifications. 'Y' means this is a release
2679: PO_APPROVAL_REMINDER_SV.stop_process(l_wf_item_type, l_wf_item_key);
2680: END IF;
2681:
2682: EXCEPTION
2683: WHEN FND_API.g_exc_error THEN
2684: x_return_status := FND_API.g_ret_sts_error;
2685: IF l_rel_wf_csr%ISOPEN THEN
2686: CLOSE l_rel_wf_csr;
2687: END IF;
2680: END IF;
2681:
2682: EXCEPTION
2683: WHEN FND_API.g_exc_error THEN
2684: x_return_status := FND_API.g_ret_sts_error;
2685: IF l_rel_wf_csr%ISOPEN THEN
2686: CLOSE l_rel_wf_csr;
2687: END IF;
2688: WHEN FND_API.g_exc_unexpected_error THEN
2684: x_return_status := FND_API.g_ret_sts_error;
2685: IF l_rel_wf_csr%ISOPEN THEN
2686: CLOSE l_rel_wf_csr;
2687: END IF;
2688: WHEN FND_API.g_exc_unexpected_error THEN
2689: x_return_status := FND_API.g_ret_sts_unexp_error;
2690: IF l_rel_wf_csr%ISOPEN THEN
2691: CLOSE l_rel_wf_csr;
2692: END IF;
2685: IF l_rel_wf_csr%ISOPEN THEN
2686: CLOSE l_rel_wf_csr;
2687: END IF;
2688: WHEN FND_API.g_exc_unexpected_error THEN
2689: x_return_status := FND_API.g_ret_sts_unexp_error;
2690: IF l_rel_wf_csr%ISOPEN THEN
2691: CLOSE l_rel_wf_csr;
2692: END IF;
2693: WHEN OTHERS THEN
2690: IF l_rel_wf_csr%ISOPEN THEN
2691: CLOSE l_rel_wf_csr;
2692: END IF;
2693: WHEN OTHERS THEN
2694: x_return_status := FND_API.g_ret_sts_unexp_error;
2695: IF l_rel_wf_csr%ISOPEN THEN
2696: CLOSE l_rel_wf_csr;
2697: END IF;
2698: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2711: * Modifies: API message list.
2712: * Effects: Submits a concurrent request to print the document specified.
2713: * Appends to API message list on error.
2714: * Returns:
2715: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
2716: * FND_API.G_RET_STS_ERROR if request was not created
2717: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2718: * x_request_id - The ID of the print request
2719: */
2712: * Effects: Submits a concurrent request to print the document specified.
2713: * Appends to API message list on error.
2714: * Returns:
2715: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
2716: * FND_API.G_RET_STS_ERROR if request was not created
2717: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2718: * x_request_id - The ID of the print request
2719: */
2720: PROCEDURE submit_po_print_request
2713: * Appends to API message list on error.
2714: * Returns:
2715: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
2716: * FND_API.G_RET_STS_ERROR if request was not created
2717: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2718: * x_request_id - The ID of the print request
2719: */
2720: PROCEDURE submit_po_print_request
2721: (p_api_version IN NUMBER,
2731: l_set_lang boolean;
2732:
2733: BEGIN
2734: -- Start standard API initialization
2735: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2736: l_api_name, g_pkg_name)
2737: THEN
2738: RAISE FND_API.g_exc_unexpected_error;
2739: END IF;
2734: -- Start standard API initialization
2735: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2736: l_api_name, g_pkg_name)
2737: THEN
2738: RAISE FND_API.g_exc_unexpected_error;
2739: END IF;
2740: x_return_status := FND_API.g_ret_sts_success;
2741: -- End standard API initialization
2742:
2736: l_api_name, g_pkg_name)
2737: THEN
2738: RAISE FND_API.g_exc_unexpected_error;
2739: END IF;
2740: x_return_status := FND_API.g_ret_sts_success;
2741: -- End standard API initialization
2742:
2743: IF (g_debug_stmt) THEN
2744: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2791: '.request_failed', FALSE);
2792: END IF;
2793: END IF;
2794: FND_MSG_PUB.add;
2795: RAISE FND_API.g_exc_error;
2796: END IF;
2797:
2798: EXCEPTION
2799: WHEN FND_API.g_exc_error THEN
2795: RAISE FND_API.g_exc_error;
2796: END IF;
2797:
2798: EXCEPTION
2799: WHEN FND_API.g_exc_error THEN
2800: x_return_status := FND_API.g_ret_sts_error;
2801: WHEN FND_API.g_exc_unexpected_error THEN
2802: x_return_status := FND_API.g_ret_sts_unexp_error;
2803: WHEN OTHERS THEN
2796: END IF;
2797:
2798: EXCEPTION
2799: WHEN FND_API.g_exc_error THEN
2800: x_return_status := FND_API.g_ret_sts_error;
2801: WHEN FND_API.g_exc_unexpected_error THEN
2802: x_return_status := FND_API.g_ret_sts_unexp_error;
2803: WHEN OTHERS THEN
2804: x_return_status := FND_API.g_ret_sts_unexp_error;
2797:
2798: EXCEPTION
2799: WHEN FND_API.g_exc_error THEN
2800: x_return_status := FND_API.g_ret_sts_error;
2801: WHEN FND_API.g_exc_unexpected_error THEN
2802: x_return_status := FND_API.g_ret_sts_unexp_error;
2803: WHEN OTHERS THEN
2804: x_return_status := FND_API.g_ret_sts_unexp_error;
2805: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2798: EXCEPTION
2799: WHEN FND_API.g_exc_error THEN
2800: x_return_status := FND_API.g_ret_sts_error;
2801: WHEN FND_API.g_exc_unexpected_error THEN
2802: x_return_status := FND_API.g_ret_sts_unexp_error;
2803: WHEN OTHERS THEN
2804: x_return_status := FND_API.g_ret_sts_unexp_error;
2805: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2806: IF (g_debug_unexp) THEN
2800: x_return_status := FND_API.g_ret_sts_error;
2801: WHEN FND_API.g_exc_unexpected_error THEN
2802: x_return_status := FND_API.g_ret_sts_unexp_error;
2803: WHEN OTHERS THEN
2804: x_return_status := FND_API.g_ret_sts_unexp_error;
2805: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2806: IF (g_debug_unexp) THEN
2807: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2808: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
2818: * Modifies: API message list
2819: * Effects: Submits a concurrent request to print the release specified.
2820: * Appends to API message list on error.
2821: * Returns:
2822: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
2823: * FND_API.G_RET_STS_ERROR if request was not created
2824: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2825: * x_request_id - The ID of the print request
2826: */
2819: * Effects: Submits a concurrent request to print the release specified.
2820: * Appends to API message list on error.
2821: * Returns:
2822: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
2823: * FND_API.G_RET_STS_ERROR if request was not created
2824: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2825: * x_request_id - The ID of the print request
2826: */
2827: PROCEDURE submit_rel_print_request
2820: * Appends to API message list on error.
2821: * Returns:
2822: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
2823: * FND_API.G_RET_STS_ERROR if request was not created
2824: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2825: * x_request_id - The ID of the print request
2826: */
2827: PROCEDURE submit_rel_print_request
2828: (p_api_version IN NUMBER,
2839: l_set_lang boolean;
2840:
2841: BEGIN
2842: -- Start standard API initialization
2843: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2844: l_api_name, g_pkg_name)
2845: THEN
2846: RAISE FND_API.g_exc_unexpected_error;
2847: END IF;
2842: -- Start standard API initialization
2843: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2844: l_api_name, g_pkg_name)
2845: THEN
2846: RAISE FND_API.g_exc_unexpected_error;
2847: END IF;
2848: x_return_status := FND_API.g_ret_sts_success;
2849: -- End standard API initialization
2850:
2844: l_api_name, g_pkg_name)
2845: THEN
2846: RAISE FND_API.g_exc_unexpected_error;
2847: END IF;
2848: x_return_status := FND_API.g_ret_sts_success;
2849: -- End standard API initialization
2850:
2851: IF (g_debug_stmt) THEN
2852: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2901: '.request_failed', FALSE);
2902: END IF;
2903: END IF;
2904: FND_MSG_PUB.add;
2905: RAISE FND_API.g_exc_error;
2906: END IF;
2907:
2908: EXCEPTION
2909: WHEN FND_API.g_exc_error THEN
2905: RAISE FND_API.g_exc_error;
2906: END IF;
2907:
2908: EXCEPTION
2909: WHEN FND_API.g_exc_error THEN
2910: x_return_status := FND_API.g_ret_sts_error;
2911: WHEN FND_API.g_exc_unexpected_error THEN
2912: x_return_status := FND_API.g_ret_sts_unexp_error;
2913: WHEN OTHERS THEN
2906: END IF;
2907:
2908: EXCEPTION
2909: WHEN FND_API.g_exc_error THEN
2910: x_return_status := FND_API.g_ret_sts_error;
2911: WHEN FND_API.g_exc_unexpected_error THEN
2912: x_return_status := FND_API.g_ret_sts_unexp_error;
2913: WHEN OTHERS THEN
2914: x_return_status := FND_API.g_ret_sts_unexp_error;
2907:
2908: EXCEPTION
2909: WHEN FND_API.g_exc_error THEN
2910: x_return_status := FND_API.g_ret_sts_error;
2911: WHEN FND_API.g_exc_unexpected_error THEN
2912: x_return_status := FND_API.g_ret_sts_unexp_error;
2913: WHEN OTHERS THEN
2914: x_return_status := FND_API.g_ret_sts_unexp_error;
2915: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2908: EXCEPTION
2909: WHEN FND_API.g_exc_error THEN
2910: x_return_status := FND_API.g_ret_sts_error;
2911: WHEN FND_API.g_exc_unexpected_error THEN
2912: x_return_status := FND_API.g_ret_sts_unexp_error;
2913: WHEN OTHERS THEN
2914: x_return_status := FND_API.g_ret_sts_unexp_error;
2915: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2916: IF (g_debug_unexp) THEN
2910: x_return_status := FND_API.g_ret_sts_error;
2911: WHEN FND_API.g_exc_unexpected_error THEN
2912: x_return_status := FND_API.g_ret_sts_unexp_error;
2913: WHEN OTHERS THEN
2914: x_return_status := FND_API.g_ret_sts_unexp_error;
2915: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2916: IF (g_debug_unexp) THEN
2917: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2918: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
2928: * Modifies: API message list
2929: * Effects: Submits a concurrent request to print the requistion specified.
2930: * Appends to API message list on error.
2931: * Returns:
2932: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
2933: * FND_API.G_RET_STS_ERROR if request was not created
2934: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2935: * x_request_id - The ID of the print request
2936: */
2929: * Effects: Submits a concurrent request to print the requistion specified.
2930: * Appends to API message list on error.
2931: * Returns:
2932: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
2933: * FND_API.G_RET_STS_ERROR if request was not created
2934: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2935: * x_request_id - The ID of the print request
2936: */
2937: PROCEDURE submit_req_print_request
2930: * Appends to API message list on error.
2931: * Returns:
2932: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
2933: * FND_API.G_RET_STS_ERROR if request was not created
2934: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2935: * x_request_id - The ID of the print request
2936: */
2937: PROCEDURE submit_req_print_request
2938: (p_api_version IN NUMBER,
2947: l_api_version CONSTANT NUMBER := 1.0;
2948:
2949: BEGIN
2950: -- Start standard API initialization
2951: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2952: l_api_name, g_pkg_name)
2953: THEN
2954: RAISE FND_API.g_exc_unexpected_error;
2955: END IF;
2950: -- Start standard API initialization
2951: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2952: l_api_name, g_pkg_name)
2953: THEN
2954: RAISE FND_API.g_exc_unexpected_error;
2955: END IF;
2956: x_return_status := FND_API.g_ret_sts_success;
2957: -- End standard API initialization
2958:
2952: l_api_name, g_pkg_name)
2953: THEN
2954: RAISE FND_API.g_exc_unexpected_error;
2955: END IF;
2956: x_return_status := FND_API.g_ret_sts_success;
2957: -- End standard API initialization
2958:
2959: IF (g_debug_stmt) THEN
2960: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
3005: '.request_failed', FALSE);
3006: END IF;
3007: END IF;
3008: FND_MSG_PUB.add;
3009: RAISE FND_API.g_exc_error;
3010: END IF;
3011:
3012: EXCEPTION
3013: WHEN FND_API.g_exc_error THEN
3009: RAISE FND_API.g_exc_error;
3010: END IF;
3011:
3012: EXCEPTION
3013: WHEN FND_API.g_exc_error THEN
3014: x_return_status := FND_API.g_ret_sts_error;
3015: WHEN FND_API.g_exc_unexpected_error THEN
3016: x_return_status := FND_API.g_ret_sts_unexp_error;
3017: WHEN OTHERS THEN
3010: END IF;
3011:
3012: EXCEPTION
3013: WHEN FND_API.g_exc_error THEN
3014: x_return_status := FND_API.g_ret_sts_error;
3015: WHEN FND_API.g_exc_unexpected_error THEN
3016: x_return_status := FND_API.g_ret_sts_unexp_error;
3017: WHEN OTHERS THEN
3018: x_return_status := FND_API.g_ret_sts_unexp_error;
3011:
3012: EXCEPTION
3013: WHEN FND_API.g_exc_error THEN
3014: x_return_status := FND_API.g_ret_sts_error;
3015: WHEN FND_API.g_exc_unexpected_error THEN
3016: x_return_status := FND_API.g_ret_sts_unexp_error;
3017: WHEN OTHERS THEN
3018: x_return_status := FND_API.g_ret_sts_unexp_error;
3019: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3012: EXCEPTION
3013: WHEN FND_API.g_exc_error THEN
3014: x_return_status := FND_API.g_ret_sts_error;
3015: WHEN FND_API.g_exc_unexpected_error THEN
3016: x_return_status := FND_API.g_ret_sts_unexp_error;
3017: WHEN OTHERS THEN
3018: x_return_status := FND_API.g_ret_sts_unexp_error;
3019: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3020: IF (g_debug_unexp) THEN
3014: x_return_status := FND_API.g_ret_sts_error;
3015: WHEN FND_API.g_exc_unexpected_error THEN
3016: x_return_status := FND_API.g_ret_sts_unexp_error;
3017: WHEN OTHERS THEN
3018: x_return_status := FND_API.g_ret_sts_unexp_error;
3019: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3020: IF (g_debug_unexp) THEN
3021: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3022: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3032: * Modifies: API message list
3033: * Effects: Creates a request to print the document specified. Appends to API
3034: * message list on error.
3035: * Returns:
3036: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
3037: * FND_API.G_RET_STS_ERROR if request was not created
3038: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3039: * x_request_id - The ID of the print request
3040: */
3033: * Effects: Creates a request to print the document specified. Appends to API
3034: * message list on error.
3035: * Returns:
3036: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
3037: * FND_API.G_RET_STS_ERROR if request was not created
3038: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3039: * x_request_id - The ID of the print request
3040: */
3041: PROCEDURE create_print_request
3034: * message list on error.
3035: * Returns:
3036: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
3037: * FND_API.G_RET_STS_ERROR if request was not created
3038: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3039: * x_request_id - The ID of the print request
3040: */
3041: PROCEDURE create_print_request
3042: (p_api_version IN NUMBER,
3054: l_user_id FND_PROFILE_OPTION_VALUES.profile_option_value%TYPE;
3055:
3056: BEGIN
3057: -- Start standard API initialization
3058: IF FND_API.to_boolean(p_init_msg_list) THEN
3059: FND_MSG_PUB.initialize;
3060: END IF;
3061: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3062: l_api_name, g_pkg_name)
3057: -- Start standard API initialization
3058: IF FND_API.to_boolean(p_init_msg_list) THEN
3059: FND_MSG_PUB.initialize;
3060: END IF;
3061: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3062: l_api_name, g_pkg_name)
3063: THEN
3064: RAISE FND_API.g_exc_unexpected_error;
3065: END IF;
3060: END IF;
3061: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3062: l_api_name, g_pkg_name)
3063: THEN
3064: RAISE FND_API.g_exc_unexpected_error;
3065: END IF;
3066: x_return_status := FND_API.g_ret_sts_success;
3067: -- End standard API initialization
3068:
3062: l_api_name, g_pkg_name)
3063: THEN
3064: RAISE FND_API.g_exc_unexpected_error;
3065: END IF;
3066: x_return_status := FND_API.g_ret_sts_success;
3067: -- End standard API initialization
3068:
3069: IF (g_debug_stmt) THEN
3070: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
3116: '.invalid_doc_type', FALSE);
3117: END IF;
3118: END IF;
3119: FND_MSG_PUB.add;
3120: RAISE FND_API.g_exc_error;
3121: END IF;
3122:
3123: EXCEPTION
3124: WHEN FND_API.g_exc_error THEN
3120: RAISE FND_API.g_exc_error;
3121: END IF;
3122:
3123: EXCEPTION
3124: WHEN FND_API.g_exc_error THEN
3125: x_return_status := FND_API.g_ret_sts_error;
3126: WHEN FND_API.g_exc_unexpected_error THEN
3127: x_return_status := FND_API.g_ret_sts_unexp_error;
3128: WHEN OTHERS THEN
3121: END IF;
3122:
3123: EXCEPTION
3124: WHEN FND_API.g_exc_error THEN
3125: x_return_status := FND_API.g_ret_sts_error;
3126: WHEN FND_API.g_exc_unexpected_error THEN
3127: x_return_status := FND_API.g_ret_sts_unexp_error;
3128: WHEN OTHERS THEN
3129: x_return_status := FND_API.g_ret_sts_unexp_error;
3122:
3123: EXCEPTION
3124: WHEN FND_API.g_exc_error THEN
3125: x_return_status := FND_API.g_ret_sts_error;
3126: WHEN FND_API.g_exc_unexpected_error THEN
3127: x_return_status := FND_API.g_ret_sts_unexp_error;
3128: WHEN OTHERS THEN
3129: x_return_status := FND_API.g_ret_sts_unexp_error;
3130: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3123: EXCEPTION
3124: WHEN FND_API.g_exc_error THEN
3125: x_return_status := FND_API.g_ret_sts_error;
3126: WHEN FND_API.g_exc_unexpected_error THEN
3127: x_return_status := FND_API.g_ret_sts_unexp_error;
3128: WHEN OTHERS THEN
3129: x_return_status := FND_API.g_ret_sts_unexp_error;
3130: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3131: IF (g_debug_unexp) THEN
3125: x_return_status := FND_API.g_ret_sts_error;
3126: WHEN FND_API.g_exc_unexpected_error THEN
3127: x_return_status := FND_API.g_ret_sts_unexp_error;
3128: WHEN OTHERS THEN
3129: x_return_status := FND_API.g_ret_sts_unexp_error;
3130: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3131: IF (g_debug_unexp) THEN
3132: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3133: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3144: * list.
3145: * Effects: Updates the note_to_vendor column of PO_HEADERS, PO_LINES, or
3146: * PO_RELEASES depending upon p_doc_type. If p_doc_line_id is not NULL and the
3147: * document is not a RELEASE, then updates PO_LINES. All changes will be
3148: * committed upon success if p_commit is FND_API.G_TRUE. Appends to API
3149: * message list on error.
3150: * Returns:
3151: * x_return_status - FND_API.G_RET_STS_SUCCESS if the update was successful
3152: * FND_API.G_RET_STS_ERROR if no update was made
3147: * document is not a RELEASE, then updates PO_LINES. All changes will be
3148: * committed upon success if p_commit is FND_API.G_TRUE. Appends to API
3149: * message list on error.
3150: * Returns:
3151: * x_return_status - FND_API.G_RET_STS_SUCCESS if the update was successful
3152: * FND_API.G_RET_STS_ERROR if no update was made
3153: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3154: */
3155: PROCEDURE update_note_to_vendor
3148: * committed upon success if p_commit is FND_API.G_TRUE. Appends to API
3149: * message list on error.
3150: * Returns:
3151: * x_return_status - FND_API.G_RET_STS_SUCCESS if the update was successful
3152: * FND_API.G_RET_STS_ERROR if no update was made
3153: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3154: */
3155: PROCEDURE update_note_to_vendor
3156: (p_api_version IN NUMBER,
3149: * message list on error.
3150: * Returns:
3151: * x_return_status - FND_API.G_RET_STS_SUCCESS if the update was successful
3152: * FND_API.G_RET_STS_ERROR if no update was made
3153: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3154: */
3155: PROCEDURE update_note_to_vendor
3156: (p_api_version IN NUMBER,
3157: p_init_msg_list IN VARCHAR2,
3168:
3169: BEGIN
3170: -- Start standard API initialization
3171: SAVEPOINT update_note_to_vendor_PVT;
3172: IF FND_API.to_boolean(p_init_msg_list) THEN
3173: FND_MSG_PUB.initialize;
3174: END IF;
3175: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3176: l_api_name, g_pkg_name)
3171: SAVEPOINT update_note_to_vendor_PVT;
3172: IF FND_API.to_boolean(p_init_msg_list) THEN
3173: FND_MSG_PUB.initialize;
3174: END IF;
3175: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3176: l_api_name, g_pkg_name)
3177: THEN
3178: RAISE FND_API.g_exc_unexpected_error;
3179: END IF;
3174: END IF;
3175: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3176: l_api_name, g_pkg_name)
3177: THEN
3178: RAISE FND_API.g_exc_unexpected_error;
3179: END IF;
3180: x_return_status := FND_API.g_ret_sts_success;
3181: -- End standard API initialization
3182:
3176: l_api_name, g_pkg_name)
3177: THEN
3178: RAISE FND_API.g_exc_unexpected_error;
3179: END IF;
3180: x_return_status := FND_API.g_ret_sts_success;
3181: -- End standard API initialization
3182:
3183: IF (g_debug_stmt) THEN
3184: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
3207: '.invalid_document', FALSE);
3208: END IF;
3209: END IF;
3210: FND_MSG_PUB.add;
3211: RAISE FND_API.g_exc_error;
3212: END IF;
3213: --
3214:
3215: /* Bug 2781710: We should update the note_to_vendor column
3239: '.invalid_document', FALSE);
3240: END IF;
3241: END IF;
3242: FND_MSG_PUB.add;
3243: RAISE FND_API.g_exc_error;
3244: END IF;
3245: --
3246:
3247: /* Bug 2781710: We should update the note_to_vendor column
3271: '.invalid_document', FALSE);
3272: END IF;
3273: END IF;
3274: FND_MSG_PUB.add;
3275: RAISE FND_API.g_exc_error;
3276: END IF;
3277: --
3278:
3279: /* Bug 2781710: We should update the note_to_vendor column
3295: '.invalid_doc_type', FALSE);
3296: END IF;
3297: END IF;
3298: FND_MSG_PUB.add;
3299: RAISE FND_API.g_exc_error;
3300:
3301: END IF; --
3302:
3303: -- Standard API check of p_commit
3300:
3301: END IF; --
3302:
3303: -- Standard API check of p_commit
3304: IF FND_API.to_boolean(p_commit) THEN
3305: COMMIT WORK;
3306: END IF;
3307: EXCEPTION
3308: WHEN FND_API.g_exc_error THEN
3304: IF FND_API.to_boolean(p_commit) THEN
3305: COMMIT WORK;
3306: END IF;
3307: EXCEPTION
3308: WHEN FND_API.g_exc_error THEN
3309: ROLLBACK TO update_note_to_vendor_PVT;
3310: x_return_status := FND_API.g_ret_sts_error;
3311: WHEN FND_API.g_exc_unexpected_error THEN
3312: ROLLBACK TO update_note_to_vendor_PVT;
3306: END IF;
3307: EXCEPTION
3308: WHEN FND_API.g_exc_error THEN
3309: ROLLBACK TO update_note_to_vendor_PVT;
3310: x_return_status := FND_API.g_ret_sts_error;
3311: WHEN FND_API.g_exc_unexpected_error THEN
3312: ROLLBACK TO update_note_to_vendor_PVT;
3313: x_return_status := FND_API.g_ret_sts_unexp_error;
3314: WHEN OTHERS THEN
3307: EXCEPTION
3308: WHEN FND_API.g_exc_error THEN
3309: ROLLBACK TO update_note_to_vendor_PVT;
3310: x_return_status := FND_API.g_ret_sts_error;
3311: WHEN FND_API.g_exc_unexpected_error THEN
3312: ROLLBACK TO update_note_to_vendor_PVT;
3313: x_return_status := FND_API.g_ret_sts_unexp_error;
3314: WHEN OTHERS THEN
3315: ROLLBACK TO update_note_to_vendor_PVT;
3309: ROLLBACK TO update_note_to_vendor_PVT;
3310: x_return_status := FND_API.g_ret_sts_error;
3311: WHEN FND_API.g_exc_unexpected_error THEN
3312: ROLLBACK TO update_note_to_vendor_PVT;
3313: x_return_status := FND_API.g_ret_sts_unexp_error;
3314: WHEN OTHERS THEN
3315: ROLLBACK TO update_note_to_vendor_PVT;
3316: x_return_status := FND_API.g_ret_sts_unexp_error;
3317: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3312: ROLLBACK TO update_note_to_vendor_PVT;
3313: x_return_status := FND_API.g_ret_sts_unexp_error;
3314: WHEN OTHERS THEN
3315: ROLLBACK TO update_note_to_vendor_PVT;
3316: x_return_status := FND_API.g_ret_sts_unexp_error;
3317: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3318: IF (g_debug_unexp) THEN
3319: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3320: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3332: * or act upon this document. Appends to API message list on error.
3333: * Returns:
3334: * TRUE - if the check passes
3335: * FALSE - otherwise, or if an error occurs
3336: * x_return_status - FND_API.G_RET_STS_SUCCESS if no error occurs
3337: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3338: */
3339: FUNCTION pass_security_check
3340: (p_api_version IN NUMBER,
3333: * Returns:
3334: * TRUE - if the check passes
3335: * FALSE - otherwise, or if an error occurs
3336: * x_return_status - FND_API.G_RET_STS_SUCCESS if no error occurs
3337: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3338: */
3339: FUNCTION pass_security_check
3340: (p_api_version IN NUMBER,
3341: p_init_msg_list IN VARCHAR2,
3353: l_return_value BOOLEAN;
3354:
3355: BEGIN
3356: -- Start standard API initialization
3357: IF FND_API.to_boolean(p_init_msg_list) THEN
3358: FND_MSG_PUB.initialize;
3359: END IF;
3360: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3361: l_api_name, g_pkg_name)
3356: -- Start standard API initialization
3357: IF FND_API.to_boolean(p_init_msg_list) THEN
3358: FND_MSG_PUB.initialize;
3359: END IF;
3360: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3361: l_api_name, g_pkg_name)
3362: THEN
3363: RAISE FND_API.g_exc_unexpected_error;
3364: END IF;
3359: END IF;
3360: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3361: l_api_name, g_pkg_name)
3362: THEN
3363: RAISE FND_API.g_exc_unexpected_error;
3364: END IF;
3365: x_return_status := FND_API.g_ret_sts_success;
3366: -- End standard API initialization
3367:
3361: l_api_name, g_pkg_name)
3362: THEN
3363: RAISE FND_API.g_exc_unexpected_error;
3364: END IF;
3365: x_return_status := FND_API.g_ret_sts_success;
3366: -- End standard API initialization
3367:
3368: IF (g_debug_stmt) THEN
3369: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
3397: x_agent_id => p_agent_id,
3398: x_doc_type => p_doc_type,
3399: x_doc_subtype => p_doc_subtype);
3400: EXCEPTION
3401: WHEN FND_API.g_exc_unexpected_error THEN
3402: x_return_status := FND_API.g_ret_sts_unexp_error;
3403: RETURN FALSE;
3404: WHEN OTHERS THEN
3405: x_return_status := FND_API.g_ret_sts_unexp_error;
3398: x_doc_type => p_doc_type,
3399: x_doc_subtype => p_doc_subtype);
3400: EXCEPTION
3401: WHEN FND_API.g_exc_unexpected_error THEN
3402: x_return_status := FND_API.g_ret_sts_unexp_error;
3403: RETURN FALSE;
3404: WHEN OTHERS THEN
3405: x_return_status := FND_API.g_ret_sts_unexp_error;
3406: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3401: WHEN FND_API.g_exc_unexpected_error THEN
3402: x_return_status := FND_API.g_ret_sts_unexp_error;
3403: RETURN FALSE;
3404: WHEN OTHERS THEN
3405: x_return_status := FND_API.g_ret_sts_unexp_error;
3406: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3407: IF (g_debug_unexp) THEN
3408: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3409: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3422: * or finally closed. Appends to API message list on error.
3423: * Returns:
3424: * TRUE - if the check passes
3425: * FALSE - otherwise, or if an error occurs
3426: * x_return_status - FND_API.G_RET_STS_SUCCESS if no error occurs
3427: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3428: */
3429: FUNCTION has_shipments
3430: (p_api_version IN NUMBER,
3423: * Returns:
3424: * TRUE - if the check passes
3425: * FALSE - otherwise, or if an error occurs
3426: * x_return_status - FND_API.G_RET_STS_SUCCESS if no error occurs
3427: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3428: */
3429: FUNCTION has_shipments
3430: (p_api_version IN NUMBER,
3431: p_init_msg_list IN VARCHAR2,
3462: l_return_value BOOLEAN;
3463:
3464: BEGIN
3465: -- Start standard API initialization
3466: IF FND_API.to_boolean(p_init_msg_list) THEN
3467: FND_MSG_PUB.initialize;
3468: END IF;
3469: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3470: l_api_name, g_pkg_name)
3465: -- Start standard API initialization
3466: IF FND_API.to_boolean(p_init_msg_list) THEN
3467: FND_MSG_PUB.initialize;
3468: END IF;
3469: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3470: l_api_name, g_pkg_name)
3471: THEN
3472: RAISE FND_API.g_exc_unexpected_error;
3473: END IF;
3468: END IF;
3469: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3470: l_api_name, g_pkg_name)
3471: THEN
3472: RAISE FND_API.g_exc_unexpected_error;
3473: END IF;
3474: x_return_status := FND_API.g_ret_sts_success;
3475: -- End standard API initialization
3476:
3470: l_api_name, g_pkg_name)
3471: THEN
3472: RAISE FND_API.g_exc_unexpected_error;
3473: END IF;
3474: x_return_status := FND_API.g_ret_sts_success;
3475: -- End standard API initialization
3476:
3477: IF (g_debug_stmt) THEN
3478: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
3501:
3502: RETURN l_return_value;
3503:
3504: EXCEPTION
3505: WHEN FND_API.g_exc_unexpected_error THEN
3506: x_return_status := FND_API.g_ret_sts_unexp_error;
3507: IF l_has_ship_csr%ISOPEN THEN
3508: CLOSE l_has_ship_csr;
3509: END IF;
3502: RETURN l_return_value;
3503:
3504: EXCEPTION
3505: WHEN FND_API.g_exc_unexpected_error THEN
3506: x_return_status := FND_API.g_ret_sts_unexp_error;
3507: IF l_has_ship_csr%ISOPEN THEN
3508: CLOSE l_has_ship_csr;
3509: END IF;
3510: IF l_has_rel_ship_csr%ISOPEN THEN
3511: CLOSE l_has_rel_ship_csr;
3512: END IF;
3513: RETURN FALSE;
3514: WHEN OTHERS THEN
3515: x_return_status := FND_API.g_ret_sts_unexp_error;
3516: IF l_has_ship_csr%ISOPEN THEN
3517: CLOSE l_has_ship_csr;
3518: END IF;
3519: IF l_has_rel_ship_csr%ISOPEN THEN
3537: * cancelled or finally closed. Appends to API message list on error.
3538: * Returns:
3539: * TRUE - if the check passes
3540: * FALSE - otherwise, or if an error occurred
3541: * x_return_status - FND_API.G_RET_STS_SUCCESS if no error occurs
3542: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3543: */
3544: FUNCTION has_unencumbered_shipments
3545: (p_api_version IN NUMBER,
3538: * Returns:
3539: * TRUE - if the check passes
3540: * FALSE - otherwise, or if an error occurred
3541: * x_return_status - FND_API.G_RET_STS_SUCCESS if no error occurs
3542: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3543: */
3544: FUNCTION has_unencumbered_shipments
3545: (p_api_version IN NUMBER,
3546: p_init_msg_list IN VARCHAR2,
3558: l_fully_reserved_flag VARCHAR2(1);
3559:
3560: BEGIN
3561: -- Start standard API initialization
3562: IF FND_API.to_boolean(p_init_msg_list) THEN
3563: FND_MSG_PUB.initialize;
3564: END IF;
3565: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3566: l_api_name, g_pkg_name)
3561: -- Start standard API initialization
3562: IF FND_API.to_boolean(p_init_msg_list) THEN
3563: FND_MSG_PUB.initialize;
3564: END IF;
3565: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3566: l_api_name, g_pkg_name)
3567: THEN
3568: RAISE FND_API.g_exc_unexpected_error;
3569: END IF;
3564: END IF;
3565: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3566: l_api_name, g_pkg_name)
3567: THEN
3568: RAISE FND_API.g_exc_unexpected_error;
3569: END IF;
3570: x_return_status := FND_API.g_ret_sts_success;
3571: -- End standard API initialization
3572:
3566: l_api_name, g_pkg_name)
3567: THEN
3568: RAISE FND_API.g_exc_unexpected_error;
3569: END IF;
3570: x_return_status := FND_API.g_ret_sts_success;
3571: -- End standard API initialization
3572:
3573: IF (g_debug_stmt) THEN
3574: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
3595:
3596: RETURN l_return_value;
3597:
3598: EXCEPTION
3599: WHEN FND_API.g_exc_unexpected_error THEN
3600: x_return_status := FND_API.g_ret_sts_unexp_error;
3601: RETURN FALSE;
3602: WHEN OTHERS THEN
3603: x_return_status := FND_API.g_ret_sts_unexp_error;
3596: RETURN l_return_value;
3597:
3598: EXCEPTION
3599: WHEN FND_API.g_exc_unexpected_error THEN
3600: x_return_status := FND_API.g_ret_sts_unexp_error;
3601: RETURN FALSE;
3602: WHEN OTHERS THEN
3603: x_return_status := FND_API.g_ret_sts_unexp_error;
3604: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3599: WHEN FND_API.g_exc_unexpected_error THEN
3600: x_return_status := FND_API.g_ret_sts_unexp_error;
3601: RETURN FALSE;
3602: WHEN OTHERS THEN
3603: x_return_status := FND_API.g_ret_sts_unexp_error;
3604: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3605: IF (g_debug_unexp) THEN
3606: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3607: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3619: * message list on error.
3620: * Returns:
3621: * TRUE - if the check passes
3622: * FALSE - otherwise, or if an error occurred
3623: * x_return_status - FND_API.G_RET_STS_SUCCESS if no error occurs
3624: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3625: */
3626: FUNCTION in_open_gl_period
3627: (p_api_version IN NUMBER,
3620: * Returns:
3621: * TRUE - if the check passes
3622: * FALSE - otherwise, or if an error occurred
3623: * x_return_status - FND_API.G_RET_STS_SUCCESS if no error occurs
3624: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3625: */
3626: FUNCTION in_open_gl_period
3627: (p_api_version IN NUMBER,
3628: p_init_msg_list IN VARCHAR2,
3666: l_return_value BOOLEAN;
3667:
3668: BEGIN
3669: -- Start standard API initialization
3670: IF FND_API.to_boolean(p_init_msg_list) THEN
3671: FND_MSG_PUB.initialize;
3672: END IF;
3673: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3674: l_api_name, g_pkg_name)
3669: -- Start standard API initialization
3670: IF FND_API.to_boolean(p_init_msg_list) THEN
3671: FND_MSG_PUB.initialize;
3672: END IF;
3673: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3674: l_api_name, g_pkg_name)
3675: THEN
3676: RAISE FND_API.g_exc_unexpected_error;
3677: END IF;
3672: END IF;
3673: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3674: l_api_name, g_pkg_name)
3675: THEN
3676: RAISE FND_API.g_exc_unexpected_error;
3677: END IF;
3678: x_return_status := FND_API.g_ret_sts_success;
3679: -- End standard API initialization
3680:
3674: l_api_name, g_pkg_name)
3675: THEN
3676: RAISE FND_API.g_exc_unexpected_error;
3677: END IF;
3678: x_return_status := FND_API.g_ret_sts_success;
3679: -- End standard API initialization
3680:
3681: IF (g_debug_stmt) THEN
3682: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
3699:
3700: RETURN l_return_value;
3701:
3702: EXCEPTION
3703: WHEN FND_API.g_exc_unexpected_error THEN
3704: x_return_status := FND_API.g_ret_sts_unexp_error;
3705: IF l_gl_period_csr%ISOPEN THEN
3706: CLOSE l_gl_period_csr;
3707: END IF;
3700: RETURN l_return_value;
3701:
3702: EXCEPTION
3703: WHEN FND_API.g_exc_unexpected_error THEN
3704: x_return_status := FND_API.g_ret_sts_unexp_error;
3705: IF l_gl_period_csr%ISOPEN THEN
3706: CLOSE l_gl_period_csr;
3707: END IF;
3708: RETURN FALSE;
3706: CLOSE l_gl_period_csr;
3707: END IF;
3708: RETURN FALSE;
3709: WHEN OTHERS THEN
3710: x_return_status := FND_API.g_ret_sts_unexp_error;
3711: IF l_gl_period_csr%ISOPEN THEN
3712: CLOSE l_gl_period_csr;
3713: END IF;
3714: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3729: * Effects: Retrieves all text lines from PO_ONLINE_REPORT_TEXT for
3730: * p_online_report_id, and appends each one to the API message list. Does not
3731: * append to API message list upon expected error, just unexpected error.
3732: * Returns:
3733: * x_return_status - FND_API.G_RET_STS_SUCCESS if all messages are appended
3734: * FND_API.G_RET_STS_ERROR if an error occurs
3735: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3736: */
3737: PROCEDURE add_online_report_msgs
3730: * p_online_report_id, and appends each one to the API message list. Does not
3731: * append to API message list upon expected error, just unexpected error.
3732: * Returns:
3733: * x_return_status - FND_API.G_RET_STS_SUCCESS if all messages are appended
3734: * FND_API.G_RET_STS_ERROR if an error occurs
3735: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3736: */
3737: PROCEDURE add_online_report_msgs
3738: (p_api_version IN NUMBER,
3731: * append to API message list upon expected error, just unexpected error.
3732: * Returns:
3733: * x_return_status - FND_API.G_RET_STS_SUCCESS if all messages are appended
3734: * FND_API.G_RET_STS_ERROR if an error occurs
3735: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3736: */
3737: PROCEDURE add_online_report_msgs
3738: (p_api_version IN NUMBER,
3739: p_init_msg_list IN VARCHAR2,
3752: l_text_line_tbl text_line_tbl_type;
3753:
3754: BEGIN
3755: -- Start standard API initialization
3756: IF FND_API.to_boolean(p_init_msg_list) THEN
3757: FND_MSG_PUB.initialize;
3758: END IF;
3759: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3760: l_api_name, g_pkg_name)
3755: -- Start standard API initialization
3756: IF FND_API.to_boolean(p_init_msg_list) THEN
3757: FND_MSG_PUB.initialize;
3758: END IF;
3759: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3760: l_api_name, g_pkg_name)
3761: THEN
3762: RAISE FND_API.g_exc_unexpected_error;
3763: END IF;
3758: END IF;
3759: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3760: l_api_name, g_pkg_name)
3761: THEN
3762: RAISE FND_API.g_exc_unexpected_error;
3763: END IF;
3764: x_return_status := FND_API.g_ret_sts_success;
3765: -- End standard API initialization
3766:
3760: l_api_name, g_pkg_name)
3761: THEN
3762: RAISE FND_API.g_exc_unexpected_error;
3763: END IF;
3764: x_return_status := FND_API.g_ret_sts_success;
3765: -- End standard API initialization
3766:
3767: IF (g_debug_stmt) THEN
3768: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
3792: EXIT WHEN l_get_online_report_csr%NOTFOUND;
3793: END LOOP;
3794:
3795: IF (l_get_online_report_csr%ROWCOUNT = 0) THEN
3796: RAISE FND_API.g_exc_error;
3797: END IF;
3798: EXCEPTION
3799: WHEN FND_API.g_exc_error THEN
3800: x_return_status := FND_API.g_ret_sts_error;
3795: IF (l_get_online_report_csr%ROWCOUNT = 0) THEN
3796: RAISE FND_API.g_exc_error;
3797: END IF;
3798: EXCEPTION
3799: WHEN FND_API.g_exc_error THEN
3800: x_return_status := FND_API.g_ret_sts_error;
3801: WHEN FND_API.g_exc_unexpected_error THEN
3802: x_return_status := FND_API.g_ret_sts_unexp_error;
3803: WHEN OTHERS THEN
3796: RAISE FND_API.g_exc_error;
3797: END IF;
3798: EXCEPTION
3799: WHEN FND_API.g_exc_error THEN
3800: x_return_status := FND_API.g_ret_sts_error;
3801: WHEN FND_API.g_exc_unexpected_error THEN
3802: x_return_status := FND_API.g_ret_sts_unexp_error;
3803: WHEN OTHERS THEN
3804: x_return_status := FND_API.g_ret_sts_unexp_error;
3797: END IF;
3798: EXCEPTION
3799: WHEN FND_API.g_exc_error THEN
3800: x_return_status := FND_API.g_ret_sts_error;
3801: WHEN FND_API.g_exc_unexpected_error THEN
3802: x_return_status := FND_API.g_ret_sts_unexp_error;
3803: WHEN OTHERS THEN
3804: x_return_status := FND_API.g_ret_sts_unexp_error;
3805: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3798: EXCEPTION
3799: WHEN FND_API.g_exc_error THEN
3800: x_return_status := FND_API.g_ret_sts_error;
3801: WHEN FND_API.g_exc_unexpected_error THEN
3802: x_return_status := FND_API.g_ret_sts_unexp_error;
3803: WHEN OTHERS THEN
3804: x_return_status := FND_API.g_ret_sts_unexp_error;
3805: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3806: IF (g_debug_unexp) THEN
3800: x_return_status := FND_API.g_ret_sts_error;
3801: WHEN FND_API.g_exc_unexpected_error THEN
3802: x_return_status := FND_API.g_ret_sts_unexp_error;
3803: WHEN OTHERS THEN
3804: x_return_status := FND_API.g_ret_sts_unexp_error;
3805: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3806: IF (g_debug_unexp) THEN
3807: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3808: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3875: PO_LOG.proc_begin(d_module,'p_doc_subtype',p_doc_subtype);
3876: END IF;
3877: d_pos := 10;
3878: --Initialising the variables to default value
3879: x_return_status := FND_API.g_ret_sts_success;
3880: l_current_entity_changed := 'N';
3881:
3882: --
3883: -- For cancel or finally close on Standard POs, call the OTL API to check
3904: p_field_value => l_otl_field_value,
3905: p_end_date => NULL,
3906: x_timecard_exists => l_timecard_exists);
3907: d_pos := 70;
3908: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3910: END IF;
3911: d_pos := 80;
3912: IF (l_timecard_exists) THEN
3905: p_end_date => NULL,
3906: x_timecard_exists => l_timecard_exists);
3907: d_pos := 70;
3908: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3910: END IF;
3911: d_pos := 80;
3912: IF (l_timecard_exists) THEN
3913: FND_MESSAGE.set_name('PO','PO_CONTROL_OTL_INVALID_ACTION');
3914: FND_MSG_PUB.add;
3915: IF PO_LOG.d_exc THEN
3916: PO_LOG.exc(d_module,d_pos,'Document with timecard cannot be Cancelled or Finally Closed');
3917: END IF;
3918: RAISE FND_API.G_EXC_ERROR;
3919: END IF; -- IF(l_timecard_exists) THEN
3920: END IF; --p_doc_subtype = 'STANDARD'
3921: d_pos := 90;
3922: IF (PO_LOG.d_proc) THEN
3922: IF (PO_LOG.d_proc) THEN
3923: PO_LOG.proc_end(d_module);
3924: END IF;
3925: EXCEPTION
3926: WHEN FND_API.g_exc_error THEN
3927: x_return_status := FND_API.g_ret_sts_error;
3928: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3930: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3923: PO_LOG.proc_end(d_module);
3924: END IF;
3925: EXCEPTION
3926: WHEN FND_API.g_exc_error THEN
3927: x_return_status := FND_API.g_ret_sts_error;
3928: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3930: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3931: IF PO_LOG.d_exc THEN
3924: END IF;
3925: EXCEPTION
3926: WHEN FND_API.g_exc_error THEN
3927: x_return_status := FND_API.g_ret_sts_error;
3928: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3930: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3931: IF PO_LOG.d_exc THEN
3932: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
3925: EXCEPTION
3926: WHEN FND_API.g_exc_error THEN
3927: x_return_status := FND_API.g_ret_sts_error;
3928: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3930: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3931: IF PO_LOG.d_exc THEN
3932: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
3933: END IF;
3931: IF PO_LOG.d_exc THEN
3932: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
3933: END IF;
3934: WHEN OTHERS THEN
3935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3936: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
3937: IF PO_LOG.d_exc THEN
3938: PO_LOG.exc(d_module,d_pos,'Unhandled Exception in' || d_module);
3939: END IF;
4064: d_pos := 10;
4065: --initialise the out variables to default value
4066: l_online_report_id := NULL;
4067: l_return_code := NULL;
4068: x_return_status := FND_API.g_ret_sts_success;
4069: x_approval_initiated := 'N';
4070: x_cancel_req_flag_reset := 'N';
4071: x_is_encumbrance_error := 'N'; -- Bug 5000165
4072:
4099: d_pos := 30;
4100: --PO_RESERVATION_MAINTAIN_SV.maintain_reservation nullifies the
4101: -- x_return_status
4102: IF(x_return_status is null) THEN
4103: x_return_status := FND_API.g_ret_sts_success;
4104: END IF;
4105: d_pos := 40;
4106: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4102: IF(x_return_status is null) THEN
4103: x_return_status := FND_API.g_ret_sts_success;
4104: END IF;
4105: d_pos := 40;
4106: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4108: END IF;
4109:
4110: --Update cbc_accounting_date for Finally Close actions
4103: x_return_status := FND_API.g_ret_sts_success;
4104: END IF;
4105: d_pos := 40;
4106: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4108: END IF;
4109:
4110: --Update cbc_accounting_date for Finally Close actions
4111: IF (IGC_CBC_PO_GRP.cbc_po_enabled_flag = 'Y') THEN
4111: IF (IGC_CBC_PO_GRP.cbc_po_enabled_flag = 'Y') THEN
4112: d_pos := 50;
4113: IGC_CBC_PO_GRP.update_cbc_acct_date(
4114: p_api_version => 1.0
4115: ,p_init_msg_list => FND_API.G_FALSE
4116: ,p_commit => FND_API.G_FALSE
4117: ,p_validation_level => 100
4118: ,x_return_status => x_return_status
4119: ,x_msg_count => l_msg_count
4112: d_pos := 50;
4113: IGC_CBC_PO_GRP.update_cbc_acct_date(
4114: p_api_version => 1.0
4115: ,p_init_msg_list => FND_API.G_FALSE
4116: ,p_commit => FND_API.G_FALSE
4117: ,p_validation_level => 100
4118: ,x_return_status => x_return_status
4119: ,x_msg_count => l_msg_count
4120: ,x_msg_data => l_msg_data
4126: d_pos := 60;
4127: IF (PO_LOG.d_stmt) THEN
4128: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4129: END IF;
4130: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4132: END IF;
4133: END IF; --IGC_CBC_PO_GRP.cbc_po_enabled_flag = 'Y'
4134:
4127: IF (PO_LOG.d_stmt) THEN
4128: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4129: END IF;
4130: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4132: END IF;
4133: END IF; --IGC_CBC_PO_GRP.cbc_po_enabled_flag = 'Y'
4134:
4135: -- call to Contracts API to cancel deliverables only on the header level
4178: d_pos := 100;
4179: IF (PO_LOG.d_stmt) THEN
4180: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4181: END IF;
4182: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4184: END IF;
4185: END IF; -- conterms exist
4186: END IF;--p_doc_level = 'HEADER'
4179: IF (PO_LOG.d_stmt) THEN
4180: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4181: END IF;
4182: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4184: END IF;
4185: END IF; -- conterms exist
4186: END IF;--p_doc_level = 'HEADER'
4187: END IF;--p_control_action = 'FINALLY CLOSE'
4191: Assign the OUT Parameter Online_Report_Id to temp_online_report_id and assign the same to x_online_report_id */
4192:
4193: PO_DOCUMENT_CONTROL_PVT.control_document(
4194: p_api_version => 1.0
4195: ,p_init_msg_list => FND_API.G_FALSE
4196: ,p_commit => FND_API.G_FALSE
4197: ,x_return_status => x_return_status
4198: ,p_doc_type => p_doc_type
4199: ,p_doc_subtype => p_doc_subtype
4192:
4193: PO_DOCUMENT_CONTROL_PVT.control_document(
4194: p_api_version => 1.0
4195: ,p_init_msg_list => FND_API.G_FALSE
4196: ,p_commit => FND_API.G_FALSE
4197: ,x_return_status => x_return_status
4198: ,p_doc_type => p_doc_type
4199: ,p_doc_subtype => p_doc_subtype
4200: ,p_doc_id => p_doc_header_id
4222: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4223: END IF;
4224: -- If the procedure does not complete successfully raise the
4225: -- appropriate exception
4226: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4227: RAISE FND_API.g_exc_error;
4228: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4229: RAISE FND_API.g_exc_unexpected_error;
4230: END IF;
4223: END IF;
4224: -- If the procedure does not complete successfully raise the
4225: -- appropriate exception
4226: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4227: RAISE FND_API.g_exc_error;
4228: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4229: RAISE FND_API.g_exc_unexpected_error;
4230: END IF;
4231:
4224: -- If the procedure does not complete successfully raise the
4225: -- appropriate exception
4226: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4227: RAISE FND_API.g_exc_error;
4228: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4229: RAISE FND_API.g_exc_unexpected_error;
4230: END IF;
4231:
4232: ELSIF (p_control_action = PO_DOCUMENT_ACTION_PVT.g_doc_action_HOLD) THEN --Hold
4225: -- appropriate exception
4226: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4227: RAISE FND_API.g_exc_error;
4228: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4229: RAISE FND_API.g_exc_unexpected_error;
4230: END IF;
4231:
4232: ELSIF (p_control_action = PO_DOCUMENT_ACTION_PVT.g_doc_action_HOLD) THEN --Hold
4233: d_pos := 140;
4314: PO_LOG.stmt(d_module,d_pos,'l_exc_msg',l_exc_msg);
4315: PO_LOG.stmt(d_module,d_pos,'l_online_report_id',l_online_report_id);
4316: END IF;
4317:
4318: IF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4319: IF (l_return_code = 'STATE_FAILED') THEN
4320: d_pos := 210;
4321: -- The document state was not valid for this control action
4322: FND_MESSAGE.set_name('PO','PO_APP_APP_FAILED');
4320: d_pos := 210;
4321: -- The document state was not valid for this control action
4322: FND_MESSAGE.set_name('PO','PO_APP_APP_FAILED');
4323: FND_MSG_PUB.add;
4324: RAISE FND_API.g_exc_error;
4325: ELSIF (l_return_code = 'SUBMISSION_FAILED') THEN
4326: d_pos := 220;
4327: -- Submission check failed for final close action
4328: IF l_online_report_id IS NULL THEN
4334: d_pos := 230;
4335: --Add all the messages to the message list
4336: PO_Document_Control_PVT.add_online_report_msgs(
4337: p_api_version => 1.0
4338: ,p_init_msg_list => FND_API.G_FALSE
4339: ,x_return_status => x_return_status
4340: ,p_online_report_id => l_online_report_id);
4341: END IF; --l_online_report_id IS NULL
4342: RAISE FND_API.g_exc_error;
4338: ,p_init_msg_list => FND_API.G_FALSE
4339: ,x_return_status => x_return_status
4340: ,p_online_report_id => l_online_report_id);
4341: END IF; --l_online_report_id IS NULL
4342: RAISE FND_API.g_exc_error;
4343: -- Bug 5000165 START
4344: -- For Encumbrance errors, we do not need to put the messages into the
4345: -- online report table, since we will be showing the PSA Budgetary Control
4346: -- Results page.
4353: d_pos := 240;
4354: IF (l_exc_msg IS NOT NULL) THEN
4355: PO_LOG.exc(d_module,d_pos,l_exc_msg);
4356: END IF;
4357: RAISE FND_API.g_exc_unexpected_error;
4358: END IF;--x_return_status = FND_API.G_RET_STS_SUCCESS
4359: d_pos := 250;
4360:
4361: --g_approval_initiated_flag global variable set to true after
4354: IF (l_exc_msg IS NOT NULL) THEN
4355: PO_LOG.exc(d_module,d_pos,l_exc_msg);
4356: END IF;
4357: RAISE FND_API.g_exc_unexpected_error;
4358: END IF;--x_return_status = FND_API.G_RET_STS_SUCCESS
4359: d_pos := 250;
4360:
4361: --g_approval_initiated_flag global variable set to true after
4362: --PO_REQAPPROVAL_INIT1.start_wf_process is called
4373: PO_LOG.stmt(d_module,d_pos,'x_approval_initiated',x_approval_initiated);
4374: END IF;
4375: d_pos := 260;
4376: EXCEPTION
4377: WHEN FND_API.g_exc_error THEN
4378: x_return_status := FND_API.g_ret_sts_error;
4379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4380: x_return_status := FND_API.g_ret_sts_unexp_error;
4381: IF PO_LOG.d_exc THEN
4374: END IF;
4375: d_pos := 260;
4376: EXCEPTION
4377: WHEN FND_API.g_exc_error THEN
4378: x_return_status := FND_API.g_ret_sts_error;
4379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4380: x_return_status := FND_API.g_ret_sts_unexp_error;
4381: IF PO_LOG.d_exc THEN
4382: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4375: d_pos := 260;
4376: EXCEPTION
4377: WHEN FND_API.g_exc_error THEN
4378: x_return_status := FND_API.g_ret_sts_error;
4379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4380: x_return_status := FND_API.g_ret_sts_unexp_error;
4381: IF PO_LOG.d_exc THEN
4382: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4383: IF FND_MSG_PUB.count_msg = 0 THEN
4376: EXCEPTION
4377: WHEN FND_API.g_exc_error THEN
4378: x_return_status := FND_API.g_ret_sts_error;
4379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4380: x_return_status := FND_API.g_ret_sts_unexp_error;
4381: IF PO_LOG.d_exc THEN
4382: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4383: IF FND_MSG_PUB.count_msg = 0 THEN
4384: FND_MESSAGE.set_name('PO','PO_DOC_CONTROL_ACTION_FAILED');
4387: FND_MSG_PUB.add;
4388: END IF;
4389: END IF;
4390: WHEN OTHERS THEN
4391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4392: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
4393: IF PO_LOG.d_exc THEN
4394: PO_LOG.exc(d_module,d_pos,'Unhandled Exception in' || d_module);
4395: END IF;
4507: PO_LOG.proc_begin(d_module,'p_communication_method',p_communication_method);
4508: PO_LOG.proc_begin(d_module,'p_communication_value',p_communication_value);
4509: PO_LOG.proc_begin(d_module,'p_cancel_reqs',p_cancel_reqs);
4510: END IF;
4511: x_return_status := FND_API.G_RET_STS_SUCCESS;
4512: l_mode := UPPER(p_mode);
4513:
4514: -- Standard start of API savepoint
4515: SAVEPOINT PROCESS_DOC_CONTROL_ACTION;
4515: SAVEPOINT PROCESS_DOC_CONTROL_ACTION;
4516: d_pos := 10;
4517: -- Validate the action date
4518: /* Bug 6507195 : PO CBC Integration
4519: Parameter P_SKIP_VALID_CBC_ACCT_DATE value should be FND_API.G_FALSE to Validate Acct Date
4520: */
4521: val_action_date( p_api_version => 1.0,
4522: p_init_msg_list => FND_API.G_TRUE,
4523: x_return_status => x_return_status,
4518: /* Bug 6507195 : PO CBC Integration
4519: Parameter P_SKIP_VALID_CBC_ACCT_DATE value should be FND_API.G_FALSE to Validate Acct Date
4520: */
4521: val_action_date( p_api_version => 1.0,
4522: p_init_msg_list => FND_API.G_TRUE,
4523: x_return_status => x_return_status,
4524: p_doc_type => p_doc_type,
4525: p_doc_subtype => p_doc_subtype,
4526: p_doc_id => p_doc_header_id,
4528: p_action_date => p_gl_date,
4529: p_cbc_enabled => IGC_CBC_PO_GRP.cbc_po_enabled_flag,
4530: p_po_encumbrance_flag => p_po_encumbrance_flag,
4531: p_req_encumbrance_flag => p_req_encumbrance_flag,
4532: p_skip_valid_cbc_acct_date => FND_API.G_FALSE); --Bug#4569120
4533: d_pos := 20;
4534: IF (PO_LOG.d_stmt) THEN
4535: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4536: END IF;
4533: d_pos := 20;
4534: IF (PO_LOG.d_stmt) THEN
4535: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4536: END IF;
4537: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4538: RAISE FND_API.g_exc_error;
4539: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4540: RAISE FND_API.g_exc_unexpected_error;
4541: END IF;
4534: IF (PO_LOG.d_stmt) THEN
4535: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4536: END IF;
4537: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4538: RAISE FND_API.g_exc_error;
4539: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4540: RAISE FND_API.g_exc_unexpected_error;
4541: END IF;
4542: d_pos := 30;
4535: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4536: END IF;
4537: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4538: RAISE FND_API.g_exc_error;
4539: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4540: RAISE FND_API.g_exc_unexpected_error;
4541: END IF;
4542: d_pos := 30;
4543: --Do not lock the header record in case of CANCEL control Action
4536: END IF;
4537: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4538: RAISE FND_API.g_exc_error;
4539: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4540: RAISE FND_API.g_exc_unexpected_error;
4541: END IF;
4542: d_pos := 30;
4543: --Do not lock the header record in case of CANCEL control Action
4544: --as it would be locked in the cancel_api
4543: --Do not lock the header record in case of CANCEL control Action
4544: --as it would be locked in the cancel_api
4545: IF(NOT(p_control_action LIKE 'CANCEL%' )) THEN
4546: PO_DOCUMENT_LOCK_GRP.lock_document( p_api_version => 1.0
4547: ,p_init_msg_list => FND_API.G_FALSE
4548: ,x_return_status => x_return_status
4549: ,p_document_type => p_doc_type
4550: ,p_document_id => p_doc_header_id);
4551: END IF;
4552: d_pos := 40;
4553: IF (PO_LOG.d_stmt) THEN
4554: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4555: END IF;
4556: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4557: RAISE FND_API.g_exc_error;
4558: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4559: RAISE FND_API.g_exc_unexpected_error;
4560: END IF;
4553: IF (PO_LOG.d_stmt) THEN
4554: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4555: END IF;
4556: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4557: RAISE FND_API.g_exc_error;
4558: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4559: RAISE FND_API.g_exc_unexpected_error;
4560: END IF;
4561:
4554: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4555: END IF;
4556: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4557: RAISE FND_API.g_exc_error;
4558: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4559: RAISE FND_API.g_exc_unexpected_error;
4560: END IF;
4561:
4562: d_pos := 50;
4555: END IF;
4556: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4557: RAISE FND_API.g_exc_error;
4558: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4559: RAISE FND_API.g_exc_unexpected_error;
4560: END IF;
4561:
4562: d_pos := 50;
4563: -- validating the Cancel or Finally Close Control Action
4575: d_pos := 60;
4576: IF (PO_LOG.d_stmt) THEN
4577: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4578: END IF;
4579: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4580: RAISE FND_API.g_exc_error;
4581: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4582: RAISE FND_API.g_exc_unexpected_error;
4583: END IF;
4576: IF (PO_LOG.d_stmt) THEN
4577: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4578: END IF;
4579: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4580: RAISE FND_API.g_exc_error;
4581: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4582: RAISE FND_API.g_exc_unexpected_error;
4583: END IF;
4584: END IF;
4577: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4578: END IF;
4579: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4580: RAISE FND_API.g_exc_error;
4581: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4582: RAISE FND_API.g_exc_unexpected_error;
4583: END IF;
4584: END IF;
4585:
4578: END IF;
4579: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4580: RAISE FND_API.g_exc_error;
4581: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4582: RAISE FND_API.g_exc_unexpected_error;
4583: END IF;
4584: END IF;
4585:
4586:
4611: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4612: PO_LOG.stmt(d_module,d_pos,'x_approval_initiated',x_approval_initiated);
4613: END IF;
4614:
4615: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4616: RAISE FND_API.g_exc_error;
4617: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4618: RAISE FND_API.g_exc_unexpected_error;
4619: END IF;
4612: PO_LOG.stmt(d_module,d_pos,'x_approval_initiated',x_approval_initiated);
4613: END IF;
4614:
4615: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4616: RAISE FND_API.g_exc_error;
4617: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4618: RAISE FND_API.g_exc_unexpected_error;
4619: END IF;
4620:
4613: END IF;
4614:
4615: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4616: RAISE FND_API.g_exc_error;
4617: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4618: RAISE FND_API.g_exc_unexpected_error;
4619: END IF;
4620:
4621: IF (PO_LOG.d_proc) THEN
4614:
4615: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4616: RAISE FND_API.g_exc_error;
4617: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4618: RAISE FND_API.g_exc_unexpected_error;
4619: END IF;
4620:
4621: IF (PO_LOG.d_proc) THEN
4622: PO_LOG.proc_end(d_module);
4621: IF (PO_LOG.d_proc) THEN
4622: PO_LOG.proc_end(d_module);
4623: END IF;
4624: EXCEPTION
4625: WHEN FND_API.g_exc_error THEN
4626: ROLLBACK TO SAVEPOINT PROCESS_DOC_CONTROL_ACTION;
4627: x_return_status := FND_API.g_ret_sts_error;
4628: x_error_msg_tbl := PO_TBL_VARCHAR2000();
4629: --Copy the messages on the list to the out parameter
4623: END IF;
4624: EXCEPTION
4625: WHEN FND_API.g_exc_error THEN
4626: ROLLBACK TO SAVEPOINT PROCESS_DOC_CONTROL_ACTION;
4627: x_return_status := FND_API.g_ret_sts_error;
4628: x_error_msg_tbl := PO_TBL_VARCHAR2000();
4629: --Copy the messages on the list to the out parameter
4630: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
4631: FND_MESSAGE.set_encoded(encoded_message => FND_MSG_PUB.get(p_msg_index => i));
4631: FND_MESSAGE.set_encoded(encoded_message => FND_MSG_PUB.get(p_msg_index => i));
4632: x_error_msg_tbl.extend;
4633: x_error_msg_tbl(i) := FND_MESSAGE.get;
4634: END LOOP;
4635: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4636: ROLLBACK TO SAVEPOINT PROCESS_DOC_CONTROL_ACTION;
4637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4638: IF PO_LOG.d_exc THEN
4639: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4633: x_error_msg_tbl(i) := FND_MESSAGE.get;
4634: END LOOP;
4635: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4636: ROLLBACK TO SAVEPOINT PROCESS_DOC_CONTROL_ACTION;
4637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4638: IF PO_LOG.d_exc THEN
4639: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4640: END IF;
4641: WHEN OTHERS THEN
4639: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4640: END IF;
4641: WHEN OTHERS THEN
4642: ROLLBACK TO SAVEPOINT PROCESS_DOC_CONTROL_ACTION;
4643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4644: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
4645: IF PO_LOG.d_exc THEN
4646: PO_LOG.exc(d_module,d_pos,'Unhandled Exception in' || d_module);
4647: END IF;
4837: x_drop_ship_flag := 'N';
4838: x_labor_expense_req_flag := 'N';
4839: x_svc_line_with_req_flag := 'N';
4840: x_fps_line_ship_with_req_flag := 'N';
4841: x_return_status := FND_API.g_ret_sts_success;
4842: --Check for dropship PO
4843: IF(PO_COPYDOC_S1.po_is_dropship(p_doc_header_id)) THEN
4844: x_drop_ship_flag := 'Y';
4845: RAISE PO_CORE_S.g_early_return_exc;
4900: IF PO_LOG.d_stmt THEN
4901: PO_LOG.stmt(d_module,d_pos,'Early exit from ' || d_module);
4902: END IF;
4903: WHEN OTHERS THEN
4904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4905: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
4906: IF PO_LOG.d_exc THEN
4907: PO_LOG.exc(d_module,d_pos,'Unhandled Exception in' || d_module);
4908: END IF;
4977: PO_LOG.proc_begin(d_module,'p_doc_header_id',p_doc_header_id);
4978: PO_LOG.proc_begin(d_module,'p_doc_level_id',p_doc_level_id);
4979: END IF;
4980: --Initialisation of local variables
4981: x_return_status := FND_API.g_ret_sts_success;
4982: l_cons_trans_exist := 'N';
4983: l_index := 1;
4984: l_mode := UPPER(p_mode);
4985: x_valid_ctrl_ctn_tbl := PO_TBL_VARCHAR30();
5049: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
5050: END IF;
5051: d_pos := 60;
5052:
5053: IF (x_return_status = FND_API.g_ret_sts_success)then
5054:
5055: IF p_doc_level IN (PO_CORE_S.g_doc_level_HEADER, PO_CORE_S.g_doc_level_LINE) THEN
5056: -- Checks if there exists a consumption transaction that is in process for
5057: -- the passed in transaction source document ID and and item ID.
5157: END IF; --l_mode = 'UPDATE'
5158: END IF; -- l_cons_trans_exist = 'Y'
5159: END LOOP;
5160:
5161: ELSIF (x_return_status = FND_API.g_ret_sts_error)then
5162: d_pos := 130;
5163: IF (PO_LOG.d_stmt) THEN
5164: PO_LOG.stmt(d_module,d_pos,'No Valid Control Action Found');
5165: END IF;
5164: PO_LOG.stmt(d_module,d_pos,'No Valid Control Action Found');
5165: END IF;
5166: ELSE
5167: d_pos := 140;
5168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5169: END IF; --x_return_status = FND_API.g_ret_sts_success
5170: IF (PO_LOG.d_proc) THEN
5171: PO_LOG.proc_end(d_module);
5172: END IF;
5165: END IF;
5166: ELSE
5167: d_pos := 140;
5168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5169: END IF; --x_return_status = FND_API.g_ret_sts_success
5170: IF (PO_LOG.d_proc) THEN
5171: PO_LOG.proc_end(d_module);
5172: END IF;
5173: EXCEPTION
5171: PO_LOG.proc_end(d_module);
5172: END IF;
5173: EXCEPTION
5174: WHEN OTHERS THEN
5175: x_return_status := FND_API.g_ret_sts_unexp_error;
5176: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
5177: IF PO_LOG.d_exc THEN
5178: PO_LOG.exc(d_module,d_pos,'Unhandled Exception in' || d_module);
5179: END IF;
5198: --IN OUT :
5199: --OUT :
5200:
5201: -- x_return_status
5202: -- FND_API.G_RET_STS_SUCCESS if communicate action succeeds
5203: -- FND_API.G_RET_STS_ERROR if communicate action fails
5204: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5205: --
5206: --End of Comments
5199: --OUT :
5200:
5201: -- x_return_status
5202: -- FND_API.G_RET_STS_SUCCESS if communicate action succeeds
5203: -- FND_API.G_RET_STS_ERROR if communicate action fails
5204: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5205: --
5206: --End of Comments
5207: --------------------------------------------------------------------------------
5200:
5201: -- x_return_status
5202: -- FND_API.G_RET_STS_SUCCESS if communicate action succeeds
5203: -- FND_API.G_RET_STS_ERROR if communicate action fails
5204: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
5205: --
5206: --End of Comments
5207: --------------------------------------------------------------------------------
5208:
5232:
5233:
5234:
5235: BEGIN
5236: x_return_status := FND_API.G_RET_STS_SUCCESS;
5237:
5238:
5239: IF g_debug_stmt THEN
5240: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
5349:
5350: END IF;
5351:
5352: EXCEPTION
5353: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5354: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5356:
5357:
5351:
5352: EXCEPTION
5353: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5354: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5356:
5357:
5358: WHEN FND_API.G_EXC_ERROR THEN
5359: x_return_status := FND_API.G_RET_STS_ERROR;
5354: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5356:
5357:
5358: WHEN FND_API.G_EXC_ERROR THEN
5359: x_return_status := FND_API.G_RET_STS_ERROR;
5360: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5361:
5362:
5355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5356:
5357:
5358: WHEN FND_API.G_EXC_ERROR THEN
5359: x_return_status := FND_API.G_RET_STS_ERROR;
5360: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5361:
5362:
5363: WHEN OTHERS THEN
5361:
5362:
5363: WHEN OTHERS THEN
5364: FND_MSG_PUB.add_exc_msg(g_module_prefix, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5365: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5366:
5367:
5368: END doc_communicate_oncancel;
5369: