[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 ||
140: -- p_doc_line_loc_id are not NULL. Executes at line level if only p_doc_id
141: -- and p_doc_line_id are not NULL. Executes at header level if only p_doc_id
142: -- is not NULL. The document will be printed if it is a PO, PA, or RELEASE,
143: -- and the p_print_flag is 'Y'. All changes will be committed upon success if
144: -- p_commit is FND_API.G_TRUE. Appends to FND_MSG_PUB message list on error
145: --Parameters:
146: --IN:
147: --p_api_version
148: --p_init_msg_list
170: --p_communication_method_value
171: -- Email Address or Fax Number
172: --OUT:
173: --x_return_status
174: -- FND_API.g_ret_sts_success - on success
175: -- FND_API.g_ret_sts_error - expected error
176: -- FND_API.g_ret_sts_unexp_error - unexpected error
177: --Testing:
178: --End of Comments
171: -- Email Address or Fax Number
172: --OUT:
173: --x_return_status
174: -- FND_API.g_ret_sts_success - on success
175: -- FND_API.g_ret_sts_error - expected error
176: -- FND_API.g_ret_sts_unexp_error - unexpected error
177: --Testing:
178: --End of Comments
179: ---------------------------------------------------------------------------
172: --OUT:
173: --x_return_status
174: -- FND_API.g_ret_sts_success - on success
175: -- FND_API.g_ret_sts_error - expected error
176: -- FND_API.g_ret_sts_unexp_error - unexpected error
177: --Testing:
178: --End of Comments
179: ---------------------------------------------------------------------------
180:
248:
249: BEGIN
250: -- Start standard API initialization
251: SAVEPOINT control_document_PVT;
252: IF FND_API.to_boolean(p_init_msg_list) THEN
253: FND_MSG_PUB.initialize;
254: END IF;
255: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
256: l_api_name, g_pkg_name)
251: SAVEPOINT control_document_PVT;
252: IF FND_API.to_boolean(p_init_msg_list) THEN
253: FND_MSG_PUB.initialize;
254: END IF;
255: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
256: l_api_name, g_pkg_name)
257: THEN
258: RAISE FND_API.g_exc_unexpected_error;
259: END IF;
254: END IF;
255: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
256: l_api_name, g_pkg_name)
257: THEN
258: RAISE FND_API.g_exc_unexpected_error;
259: END IF;
260: x_return_status := FND_API.g_ret_sts_success;
261: -- End standard API initialization
262: --
256: l_api_name, g_pkg_name)
257: THEN
258: RAISE FND_API.g_exc_unexpected_error;
259: END IF;
260: x_return_status := FND_API.g_ret_sts_success;
261: -- End standard API initialization
262: --
263: --Resetting the global variables which keep track of whether
264: --approval is submitted and whether cancel flag was reset
289: -- called from the HTML Document Control Page. The parameters are
290: -- already validated before calling the procedure
291: IF nvl(p_source,'NULL') <> 'HTML_CONTROL_ACTION' THEN
292: IF NOT pass_security_check(p_api_version => 1.0,
293: p_init_msg_list => FND_API.G_FALSE,
294: x_return_status => x_return_status,
295: p_doc_type => p_doc_type,
296: p_doc_subtype => p_doc_subtype,
297: p_doc_id => p_doc_id,
305: '.security_check_failed', FALSE);
306: END IF;
307: END IF;
308: FND_MSG_PUB.add;
309: RAISE FND_API.g_exc_error;
310: END IF;
311:
312: -- Validate that this control action is allowable
313: val_control_action(p_api_version => 1.0,
310: END IF;
311:
312: -- Validate that this control action is allowable
313: val_control_action(p_api_version => 1.0,
314: p_init_msg_list => FND_API.G_FALSE,
315: x_return_status => x_return_status,
316: p_doc_type => p_doc_type,
317: p_doc_subtype => p_doc_subtype,
318: p_doc_id => p_doc_id,
320: p_doc_line_loc_id => p_doc_line_loc_id,
321: p_action => p_action,
322: p_agent_id => l_agent_id,
323: x_control_level => l_control_level);
324: IF (x_return_status = FND_API.g_ret_sts_error) THEN
325: RAISE FND_API.g_exc_error;
326: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
327: RAISE FND_API.g_exc_unexpected_error;
328: END IF;
321: p_action => p_action,
322: p_agent_id => l_agent_id,
323: x_control_level => l_control_level);
324: IF (x_return_status = FND_API.g_ret_sts_error) THEN
325: RAISE FND_API.g_exc_error;
326: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
327: RAISE FND_API.g_exc_unexpected_error;
328: END IF;
329: END IF; --IF p_source <> 'HTML_CONTROL_ACTION'
322: p_agent_id => l_agent_id,
323: x_control_level => l_control_level);
324: IF (x_return_status = FND_API.g_ret_sts_error) THEN
325: RAISE FND_API.g_exc_error;
326: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
327: RAISE FND_API.g_exc_unexpected_error;
328: END IF;
329: END IF; --IF p_source <> 'HTML_CONTROL_ACTION'
330: --< Bug 3554754 > Removed CancelPO FPJ code for status check
323: x_control_level => l_control_level);
324: IF (x_return_status = FND_API.g_ret_sts_error) THEN
325: RAISE FND_API.g_exc_error;
326: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
327: RAISE FND_API.g_exc_unexpected_error;
328: END IF;
329: END IF; --IF p_source <> 'HTML_CONTROL_ACTION'
330: --< Bug 3554754 > Removed CancelPO FPJ code for status check
331:
334: --Using PO_DOCUMENT_LOCK_GRP.lock_document instead of lock_doc_row
335: --to lock the complete document
336: -- Lock the document
337: PO_DOCUMENT_LOCK_GRP.lock_document( p_api_version => 1.0
338: ,p_init_msg_list => FND_API.G_FALSE
339: ,x_return_status => x_return_status
340: ,p_document_type => p_doc_type
341: ,p_document_id => p_doc_id);
342: --
339: ,x_return_status => x_return_status
340: ,p_document_type => p_doc_type
341: ,p_document_id => p_doc_id);
342: --
343: IF (x_return_status = FND_API.g_ret_sts_error) THEN
344: RAISE FND_API.g_exc_error;
345: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
346: RAISE FND_API.g_exc_unexpected_error;
347: END IF;
340: ,p_document_type => p_doc_type
341: ,p_document_id => p_doc_id);
342: --
343: IF (x_return_status = FND_API.g_ret_sts_error) THEN
344: RAISE FND_API.g_exc_error;
345: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
346: RAISE FND_API.g_exc_unexpected_error;
347: END IF;
348: --
341: ,p_document_id => p_doc_id);
342: --
343: IF (x_return_status = FND_API.g_ret_sts_error) THEN
344: RAISE FND_API.g_exc_error;
345: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
346: RAISE FND_API.g_exc_unexpected_error;
347: END IF;
348: --
349: --We need not execute the code in this if block if the function is
342: --
343: IF (x_return_status = FND_API.g_ret_sts_error) THEN
344: RAISE FND_API.g_exc_error;
345: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
346: RAISE FND_API.g_exc_unexpected_error;
347: END IF;
348: --
349: --We need not execute the code in this if block if the function is
350: -- called from the HTML Document Control Page. The parameters are
359: FROM financials_system_parameters fsp;
360:
361: -- Initialize the action date
362: init_action_date(p_api_version => 1.0,
363: p_init_msg_list => FND_API.G_FALSE,
364: x_return_status => x_return_status,
365: p_doc_type => p_doc_type,
366: p_doc_subtype => p_doc_subtype,
367: p_doc_id => p_doc_id,
366: p_doc_subtype => p_doc_subtype,
367: p_doc_id => p_doc_id,
368: x_action_date => l_action_date,
369: x_cbc_enabled => l_cbc_enabled);
370: IF (x_return_status = FND_API.g_ret_sts_error) THEN
371: RAISE FND_API.g_exc_error;
372: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
373: RAISE FND_API.g_exc_unexpected_error;
374: END IF;
367: p_doc_id => p_doc_id,
368: x_action_date => l_action_date,
369: x_cbc_enabled => l_cbc_enabled);
370: IF (x_return_status = FND_API.g_ret_sts_error) THEN
371: RAISE FND_API.g_exc_error;
372: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
373: RAISE FND_API.g_exc_unexpected_error;
374: END IF;
375:
368: x_action_date => l_action_date,
369: x_cbc_enabled => l_cbc_enabled);
370: IF (x_return_status = FND_API.g_ret_sts_error) THEN
371: RAISE FND_API.g_exc_error;
372: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
373: RAISE FND_API.g_exc_unexpected_error;
374: END IF;
375:
376: --
369: x_cbc_enabled => l_cbc_enabled);
370: IF (x_return_status = FND_API.g_ret_sts_error) THEN
371: RAISE FND_API.g_exc_error;
372: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
373: RAISE FND_API.g_exc_unexpected_error;
374: END IF;
375:
376: --
377: IF (p_doc_line_loc_id IS NOT NULL) THEN
391: -- if we are only cancelling a Prepayment Pay Item
392:
393: -- Validate the action date
394: val_action_date( p_api_version => 1.0,
395: p_init_msg_list => FND_API.G_FALSE,
396: x_return_status => x_return_status,
397: p_doc_type => p_doc_type,
398: p_doc_subtype => p_doc_subtype,
399: p_doc_id => p_doc_id,
401: p_action_date => l_action_date,
402: p_cbc_enabled => l_cbc_enabled,
403: p_po_encumbrance_flag => l_po_encumbrance_flag,
404: p_req_encumbrance_flag => l_req_encumbrance_flag );
405: IF (x_return_status = FND_API.g_ret_sts_error) THEN
406: RAISE FND_API.g_exc_error;
407: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
408: RAISE FND_API.g_exc_unexpected_error;
409: END IF;
402: p_cbc_enabled => l_cbc_enabled,
403: p_po_encumbrance_flag => l_po_encumbrance_flag,
404: p_req_encumbrance_flag => l_req_encumbrance_flag );
405: IF (x_return_status = FND_API.g_ret_sts_error) THEN
406: RAISE FND_API.g_exc_error;
407: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
408: RAISE FND_API.g_exc_unexpected_error;
409: END IF;
410:
403: p_po_encumbrance_flag => l_po_encumbrance_flag,
404: p_req_encumbrance_flag => l_req_encumbrance_flag );
405: IF (x_return_status = FND_API.g_ret_sts_error) THEN
406: RAISE FND_API.g_exc_error;
407: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
408: RAISE FND_API.g_exc_unexpected_error;
409: END IF;
410:
411: END IF; -- if cancelling non-Prepayment line loc, or cancelling line/header
404: p_req_encumbrance_flag => l_req_encumbrance_flag );
405: IF (x_return_status = FND_API.g_ret_sts_error) THEN
406: RAISE FND_API.g_exc_error;
407: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
408: RAISE FND_API.g_exc_unexpected_error;
409: END IF;
410:
411: END IF; -- if cancelling non-Prepayment line loc, or cancelling line/header
412: --
477: x_return_status => x_return_status,
478: x_cancel_reqs_flag => l_cancel_reqs_flag
479: );
480:
481: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
483: END IF;
484:
485: END IF; --
478: x_cancel_reqs_flag => l_cancel_reqs_flag
479: );
480:
481: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
483: END IF;
484:
485: END IF; --
486: --
490: (l_po_encumbrance_flag = 'Y') AND (l_req_encumbrance_flag = 'Y'))
491: THEN
492: PO_Document_Cancel_PVT.val_cancel_backing_reqs
493: ( p_api_version => 1.0,
494: p_init_msg_list => FND_API.G_FALSE,
495: x_return_status => x_return_status,
496: p_doc_type => p_doc_type,
497: p_doc_id => p_doc_id );
498: IF (x_return_status = FND_API.g_ret_sts_error) THEN
494: p_init_msg_list => FND_API.G_FALSE,
495: x_return_status => x_return_status,
496: p_doc_type => p_doc_type,
497: p_doc_id => p_doc_id );
498: IF (x_return_status = FND_API.g_ret_sts_error) THEN
499: -- Cannot cancel backing reqs, so reset to 'N'
500: l_cancel_reqs_flag := 'N';
501: x_return_status := FND_API.g_ret_sts_success;
502: --
497: p_doc_id => p_doc_id );
498: IF (x_return_status = FND_API.g_ret_sts_error) THEN
499: -- Cannot cancel backing reqs, so reset to 'N'
500: l_cancel_reqs_flag := 'N';
501: x_return_status := FND_API.g_ret_sts_success;
502: --
503: -- Set the Cancel Reset flag to true as the cancel flag was
504: --reset
505: g_cancel_flag_reset_flag := TRUE;
503: -- Set the Cancel Reset flag to true as the cancel flag was
504: --reset
505: g_cancel_flag_reset_flag := TRUE;
506: --
507: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
508: RAISE FND_API.g_exc_unexpected_error;
509: END IF;
510:
511: END IF; --
504: --reset
505: g_cancel_flag_reset_flag := TRUE;
506: --
507: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
508: RAISE FND_API.g_exc_unexpected_error;
509: END IF;
510:
511: END IF; --
512:
512:
513: -- Fetch req line IDs, if any, to process cancelled req lines later
514: PO_Document_Cancel_PVT.fetch_req_lines
515: ( p_api_version => 1.0,
516: p_init_msg_list => FND_API.G_FALSE,
517: x_return_status => l_fetch_req_line_status,
518: p_doc_id => p_doc_id,
519: p_doc_line_id => p_doc_line_id,
520: p_doc_line_loc_id => p_doc_line_loc_id,
520: p_doc_line_loc_id => p_doc_line_loc_id,
521: p_control_level => l_control_level,
522: x_req_line_id_tbl => l_req_line_id_tbl );
523: -- ignore if return status is error
524: IF (l_fetch_req_line_status = FND_API.g_ret_sts_unexp_error) THEN
525: RAISE FND_API.g_exc_unexpected_error;
526: END IF;
527:
528:
521: p_control_level => l_control_level,
522: x_req_line_id_tbl => l_req_line_id_tbl );
523: -- ignore if return status is error
524: IF (l_fetch_req_line_status = FND_API.g_ret_sts_unexp_error) THEN
525: RAISE FND_API.g_exc_unexpected_error;
526: END IF;
527:
528:
529: -- Rollback to release the locks before call to doc manager.
533:
534: -- Call the cancel action with the validated parameters
535: PO_Document_Cancel_PVT.cancel_document
536: ( p_api_version => 1.0,
537: p_init_msg_list => FND_API.G_FALSE,
538: p_commit => FND_API.G_FALSE,
539: x_return_status => x_return_status,
540: p_doc_type => p_doc_type,
541: p_doc_subtype => p_doc_subtype,
534: -- Call the cancel action with the validated parameters
535: PO_Document_Cancel_PVT.cancel_document
536: ( p_api_version => 1.0,
537: p_init_msg_list => FND_API.G_FALSE,
538: p_commit => FND_API.G_FALSE,
539: x_return_status => x_return_status,
540: p_doc_type => p_doc_type,
541: p_doc_subtype => p_doc_subtype,
542: p_doc_id => p_doc_id,
549: p_note_to_vendor => p_note_to_vendor,
550: p_cbc_enabled => l_cbc_enabled,
551: p_use_gldate => p_use_gldate --
552: );
553: IF (x_return_status = FND_API.g_ret_sts_error) THEN
554: RAISE FND_API.g_exc_error;
555: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
556: RAISE FND_API.g_exc_unexpected_error;
557: END IF;
550: p_cbc_enabled => l_cbc_enabled,
551: p_use_gldate => p_use_gldate --
552: );
553: IF (x_return_status = FND_API.g_ret_sts_error) THEN
554: RAISE FND_API.g_exc_error;
555: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
556: RAISE FND_API.g_exc_unexpected_error;
557: END IF;
558:
551: p_use_gldate => p_use_gldate --
552: );
553: IF (x_return_status = FND_API.g_ret_sts_error) THEN
554: RAISE FND_API.g_exc_error;
555: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
556: RAISE FND_API.g_exc_unexpected_error;
557: END IF;
558:
559:
552: );
553: IF (x_return_status = FND_API.g_ret_sts_error) THEN
554: RAISE FND_API.g_exc_error;
555: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
556: RAISE FND_API.g_exc_unexpected_error;
557: END IF;
558:
559:
560: -- Need to stop wf processes for header level actions
560: -- Need to stop wf processes for header level actions
561: IF (l_control_level = g_header_level) THEN
562:
563: po_stop_wf_process( p_api_version => 1.0,
564: p_init_msg_list => FND_API.G_FALSE,
565: x_return_status => x_return_status,
566: p_doc_type => p_doc_type,
567: p_doc_subtype => p_doc_subtype,
568: p_doc_id => p_doc_id );
569:
570: ELSIF (l_control_level = g_rel_header_level) THEN
571:
572: rel_stop_wf_process( p_api_version => 1.0,
573: p_init_msg_list => FND_API.G_FALSE,
574: x_return_status => x_return_status,
575: p_doc_type => p_doc_type,
576: p_doc_subtype => p_doc_subtype,
577: p_doc_id => p_doc_id );
577: p_doc_id => p_doc_id );
578:
579: END IF; --
580:
581: IF (x_return_status = FND_API.g_ret_sts_error) THEN
582: RAISE FND_API.g_exc_error;
583: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
584: RAISE FND_API.g_exc_unexpected_error;
585: END IF;
578:
579: END IF; --
580:
581: IF (x_return_status = FND_API.g_ret_sts_error) THEN
582: RAISE FND_API.g_exc_error;
583: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
584: RAISE FND_API.g_exc_unexpected_error;
585: END IF;
586:
579: END IF; --
580:
581: IF (x_return_status = FND_API.g_ret_sts_error) THEN
582: RAISE FND_API.g_exc_error;
583: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
584: RAISE FND_API.g_exc_unexpected_error;
585: END IF;
586:
587: -- Need to stop change request processes if there are any
580:
581: IF (x_return_status = FND_API.g_ret_sts_error) THEN
582: RAISE FND_API.g_exc_error;
583: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
584: RAISE FND_API.g_exc_unexpected_error;
585: END IF;
586:
587: -- Need to stop change request processes if there are any
588: IF (l_fetch_req_line_status = FND_API.g_ret_sts_success) THEN
584: RAISE FND_API.g_exc_unexpected_error;
585: END IF;
586:
587: -- Need to stop change request processes if there are any
588: IF (l_fetch_req_line_status = FND_API.g_ret_sts_success) THEN
589:
590: IF (g_debug_stmt) THEN
591: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
592: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix ||
596: END IF;
597: END IF;
598: PO_ReqChangeRequestWF_PVT.process_cancelled_req_lines
599: ( p_api_version => 1.0,
600: p_init_msg_list => FND_API.G_FALSE,
601: p_commit => FND_API.G_FALSE,
602: x_return_status => x_return_status,
603: x_msg_count => l_msg_count,
604: x_msg_data => l_msg_data,
597: END IF;
598: PO_ReqChangeRequestWF_PVT.process_cancelled_req_lines
599: ( p_api_version => 1.0,
600: p_init_msg_list => FND_API.G_FALSE,
601: p_commit => FND_API.G_FALSE,
602: x_return_status => x_return_status,
603: x_msg_count => l_msg_count,
604: x_msg_data => l_msg_data,
605: p_canceledReqLineIDs_tbl => l_req_line_id_tbl );
602: x_return_status => x_return_status,
603: x_msg_count => l_msg_count,
604: x_msg_data => l_msg_data,
605: p_canceledReqLineIDs_tbl => l_req_line_id_tbl );
606: IF (x_return_status = FND_API.g_ret_sts_error) THEN
607: RAISE FND_API.g_exc_error;
608: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
609: RAISE FND_API.g_exc_unexpected_error;
610: END IF;
603: x_msg_count => l_msg_count,
604: x_msg_data => l_msg_data,
605: p_canceledReqLineIDs_tbl => l_req_line_id_tbl );
606: IF (x_return_status = FND_API.g_ret_sts_error) THEN
607: RAISE FND_API.g_exc_error;
608: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
609: RAISE FND_API.g_exc_unexpected_error;
610: END IF;
611: END IF; --
604: x_msg_data => l_msg_data,
605: p_canceledReqLineIDs_tbl => l_req_line_id_tbl );
606: IF (x_return_status = FND_API.g_ret_sts_error) THEN
607: RAISE FND_API.g_exc_error;
608: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
609: RAISE FND_API.g_exc_unexpected_error;
610: END IF;
611: END IF; --
612:
605: p_canceledReqLineIDs_tbl => l_req_line_id_tbl );
606: IF (x_return_status = FND_API.g_ret_sts_error) THEN
607: RAISE FND_API.g_exc_error;
608: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
609: RAISE FND_API.g_exc_unexpected_error;
610: END IF;
611: END IF; --
612:
613: --
630:
631: IF (p_doc_type = 'RELEASE') THEN
632: PO_CHG_REQUEST_PVT.cancel_change_request
633: ( p_api_version => 1.0,
634: p_init_msg_list => FND_API.G_FALSE,
635: x_return_status => x_return_status,
636: p_po_header_id => NULL,
637: p_po_release_id => p_doc_id,
638: p_po_line_id => NULL,
639: p_po_line_location_id => p_doc_line_loc_id );
640: ELSE
641: PO_CHG_REQUEST_PVT.cancel_change_request
642: ( p_api_version => 1.0,
643: p_init_msg_list => FND_API.G_FALSE,
644: x_return_status => x_return_status,
645: p_po_header_id => p_doc_id,
646: p_po_release_id => NULL,
647: p_po_line_id => p_doc_line_id,
647: p_po_line_id => p_doc_line_id,
648: p_po_line_location_id => p_doc_line_loc_id );
649: END IF; --
650:
651: IF (x_return_status = FND_API.g_ret_sts_error) THEN
652: RAISE FND_API.g_exc_error;
653: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
654: RAISE FND_API.g_exc_unexpected_error;
655: END IF;
648: p_po_line_location_id => p_doc_line_loc_id );
649: END IF; --
650:
651: IF (x_return_status = FND_API.g_ret_sts_error) THEN
652: RAISE FND_API.g_exc_error;
653: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
654: RAISE FND_API.g_exc_unexpected_error;
655: END IF;
656:
649: END IF; --
650:
651: IF (x_return_status = FND_API.g_ret_sts_error) THEN
652: RAISE FND_API.g_exc_error;
653: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
654: RAISE FND_API.g_exc_unexpected_error;
655: END IF;
656:
657: END IF; --
650:
651: IF (x_return_status = FND_API.g_ret_sts_error) THEN
652: RAISE FND_API.g_exc_error;
653: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
654: RAISE FND_API.g_exc_unexpected_error;
655: END IF;
656:
657: END IF; --
658: END IF;
670: , p_doc_id => p_doc_id
671: , x_return_status => x_return_status
672: , x_approved_date => l_approved_date
673: );
674: IF (x_return_status = FND_API.g_ret_sts_error) THEN
675: RAISE FND_API.g_exc_error;
676: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
677: RAISE FND_API.g_exc_unexpected_error;
678: END IF;
671: , x_return_status => x_return_status
672: , x_approved_date => l_approved_date
673: );
674: IF (x_return_status = FND_API.g_ret_sts_error) THEN
675: RAISE FND_API.g_exc_error;
676: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
677: RAISE FND_API.g_exc_unexpected_error;
678: END IF;
679:
672: , x_approved_date => l_approved_date
673: );
674: IF (x_return_status = FND_API.g_ret_sts_error) THEN
675: RAISE FND_API.g_exc_error;
676: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
677: RAISE FND_API.g_exc_unexpected_error;
678: END IF;
679:
680: -- Only communicate if the approved_date is NOT NULL
673: );
674: IF (x_return_status = FND_API.g_ret_sts_error) THEN
675: RAISE FND_API.g_exc_error;
676: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
677: RAISE FND_API.g_exc_unexpected_error;
678: END IF;
679:
680: -- Only communicate if the approved_date is NOT NULL
681: -- Bug5142892 For control action 'cancel' launch PO approval
803: '.invalid_action', FALSE);
804: END IF;
805: END IF;
806: FND_MSG_PUB.add;
807: RAISE FND_API.g_exc_error;
808:
809: END IF; --
810:
811: -- Create a print request for PO, PA, or RELEASES if desired
828: WHERE poh.po_header_id = p_doc_id;
829: END IF;
830:
831: create_print_request(p_api_version => 1.0,
832: p_init_msg_list => FND_API.G_FALSE,
833: x_return_status => x_return_status,
834: p_doc_type => p_doc_type,
835: p_doc_num => l_doc_num,
836: p_rel_doc_num => TO_CHAR(l_rel_doc_num),
835: p_doc_num => l_doc_num,
836: p_rel_doc_num => TO_CHAR(l_rel_doc_num),
837: x_request_id => l_request_id);
838:
839: IF (x_return_status = FND_API.g_ret_sts_error) THEN
840: RAISE FND_API.g_exc_error;
841: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
842: RAISE FND_API.g_exc_unexpected_error;
843: END IF;
836: p_rel_doc_num => TO_CHAR(l_rel_doc_num),
837: x_request_id => l_request_id);
838:
839: IF (x_return_status = FND_API.g_ret_sts_error) THEN
840: RAISE FND_API.g_exc_error;
841: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
842: RAISE FND_API.g_exc_unexpected_error;
843: END IF;
844:
837: x_request_id => l_request_id);
838:
839: IF (x_return_status = FND_API.g_ret_sts_error) THEN
840: RAISE FND_API.g_exc_error;
841: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
842: RAISE FND_API.g_exc_unexpected_error;
843: END IF;
844:
845: FND_MESSAGE.set_name('PO','PO_APP_REQUEST_ID');
838:
839: IF (x_return_status = FND_API.g_ret_sts_error) THEN
840: RAISE FND_API.g_exc_error;
841: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
842: RAISE FND_API.g_exc_unexpected_error;
843: END IF;
844:
845: FND_MESSAGE.set_name('PO','PO_APP_REQUEST_ID');
846: FND_MESSAGE.set_token('REQUEST_ID',TO_CHAR(l_request_id));
874: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix ||
875: l_api_name, 'x_return_status'||x_return_status);
876: END IF;
877:
878: IF (x_return_status = FND_API.g_ret_sts_error) THEN
879: RAISE FND_API.g_exc_error;
880: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
881: RAISE FND_API.g_exc_unexpected_error;
882: END IF;
875: l_api_name, 'x_return_status'||x_return_status);
876: END IF;
877:
878: IF (x_return_status = FND_API.g_ret_sts_error) THEN
879: RAISE FND_API.g_exc_error;
880: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
881: RAISE FND_API.g_exc_unexpected_error;
882: END IF;
883:
876: END IF;
877:
878: IF (x_return_status = FND_API.g_ret_sts_error) THEN
879: RAISE FND_API.g_exc_error;
880: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
881: RAISE FND_API.g_exc_unexpected_error;
882: END IF;
883:
884: --Standard API check of p_commit
877:
878: IF (x_return_status = FND_API.g_ret_sts_error) THEN
879: RAISE FND_API.g_exc_error;
880: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
881: RAISE FND_API.g_exc_unexpected_error;
882: END IF;
883:
884: --Standard API check of p_commit
885: IF FND_API.to_boolean(p_commit) THEN
881: RAISE FND_API.g_exc_unexpected_error;
882: END IF;
883:
884: --Standard API check of p_commit
885: IF FND_API.to_boolean(p_commit) THEN
886: COMMIT WORK;
887: END IF;
888: EXCEPTION
889: WHEN FND_API.g_exc_error THEN
885: IF FND_API.to_boolean(p_commit) THEN
886: COMMIT WORK;
887: END IF;
888: EXCEPTION
889: WHEN FND_API.g_exc_error THEN
890: ROLLBACK TO control_document_PVT;
891: x_return_status := FND_API.g_ret_sts_error;
892: WHEN FND_API.g_exc_unexpected_error THEN
893: ROLLBACK TO control_document_PVT;
887: END IF;
888: EXCEPTION
889: WHEN FND_API.g_exc_error THEN
890: ROLLBACK TO control_document_PVT;
891: x_return_status := FND_API.g_ret_sts_error;
892: WHEN FND_API.g_exc_unexpected_error THEN
893: ROLLBACK TO control_document_PVT;
894: x_return_status := FND_API.g_ret_sts_unexp_error;
895: WHEN OTHERS THEN
888: EXCEPTION
889: WHEN FND_API.g_exc_error THEN
890: ROLLBACK TO control_document_PVT;
891: x_return_status := FND_API.g_ret_sts_error;
892: WHEN FND_API.g_exc_unexpected_error THEN
893: ROLLBACK TO control_document_PVT;
894: x_return_status := FND_API.g_ret_sts_unexp_error;
895: WHEN OTHERS THEN
896: ROLLBACK TO control_document_PVT;
890: ROLLBACK TO control_document_PVT;
891: x_return_status := FND_API.g_ret_sts_error;
892: WHEN FND_API.g_exc_unexpected_error THEN
893: ROLLBACK TO control_document_PVT;
894: x_return_status := FND_API.g_ret_sts_unexp_error;
895: WHEN OTHERS THEN
896: ROLLBACK TO control_document_PVT;
897: x_return_status := FND_API.g_ret_sts_unexp_error;
898: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
893: ROLLBACK TO control_document_PVT;
894: x_return_status := FND_API.g_ret_sts_unexp_error;
895: WHEN OTHERS THEN
896: ROLLBACK TO control_document_PVT;
897: x_return_status := FND_API.g_ret_sts_unexp_error;
898: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
899: IF (g_debug_unexp) THEN
900: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
901: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
913: * x_action_date is NULL, then sets it to a valid CBC accounting date if CBC
914: * is enabled. Otherwise, sets it to the current system date. Appends message
915: * to API message list on error.
916: * Returns:
917: * x_return_status - FND_API.G_RET_STS_SUCCESS if initialization is successful
918: * FND_API.G_RET_STS_ERROR if error initializing action date
919: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
920: * x_action_date - The action date, truncated.
921: * x_cbc_enabled - 'Y' if CBC is enabled, 'N' otherwise.
914: * is enabled. Otherwise, sets it to the current system date. Appends message
915: * to API message list on error.
916: * Returns:
917: * x_return_status - FND_API.G_RET_STS_SUCCESS if initialization is successful
918: * FND_API.G_RET_STS_ERROR if error initializing action date
919: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
920: * x_action_date - The action date, truncated.
921: * x_cbc_enabled - 'Y' if CBC is enabled, 'N' otherwise.
922: */
915: * to API message list on error.
916: * Returns:
917: * x_return_status - FND_API.G_RET_STS_SUCCESS if initialization is successful
918: * FND_API.G_RET_STS_ERROR if error initializing action date
919: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error
920: * x_action_date - The action date, truncated.
921: * x_cbc_enabled - 'Y' if CBC is enabled, 'N' otherwise.
922: */
923: PROCEDURE init_action_date
937: l_msg_data VARCHAR2(2000);
938:
939: BEGIN
940: -- Start standard API initialization
941: IF FND_API.to_boolean(p_init_msg_list) THEN
942: FND_MSG_PUB.initialize;
943: END IF;
944: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
945: l_api_name, g_pkg_name)
940: -- Start standard API initialization
941: IF FND_API.to_boolean(p_init_msg_list) THEN
942: FND_MSG_PUB.initialize;
943: END IF;
944: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
945: l_api_name, g_pkg_name)
946: THEN
947: RAISE FND_API.g_exc_unexpected_error;
948: END IF;
943: END IF;
944: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
945: l_api_name, g_pkg_name)
946: THEN
947: RAISE FND_API.g_exc_unexpected_error;
948: END IF;
949: x_return_status := FND_API.g_ret_sts_success;
950: -- End standard API initialization
951:
945: l_api_name, g_pkg_name)
946: THEN
947: RAISE FND_API.g_exc_unexpected_error;
948: END IF;
949: x_return_status := FND_API.g_ret_sts_success;
950: -- End standard API initialization
951:
952: IF (g_debug_stmt) THEN
953: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
958: END IF;
959:
960: IGC_CBC_PO_GRP.is_cbc_enabled
961: ( p_api_version => 1.0,
962: p_init_msg_list => FND_API.G_FALSE,
963: p_commit => FND_API.G_FALSE,
964: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
965: x_return_status => x_return_status,
966: x_msg_count => l_msg_count,
959:
960: IGC_CBC_PO_GRP.is_cbc_enabled
961: ( p_api_version => 1.0,
962: p_init_msg_list => FND_API.G_FALSE,
963: p_commit => FND_API.G_FALSE,
964: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
965: x_return_status => x_return_status,
966: x_msg_count => l_msg_count,
967: x_msg_data => l_msg_data,
960: IGC_CBC_PO_GRP.is_cbc_enabled
961: ( p_api_version => 1.0,
962: p_init_msg_list => FND_API.G_FALSE,
963: p_commit => FND_API.G_FALSE,
964: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
965: x_return_status => x_return_status,
966: x_msg_count => l_msg_count,
967: x_msg_data => l_msg_data,
968: x_cbc_enabled => x_cbc_enabled );
965: x_return_status => x_return_status,
966: x_msg_count => l_msg_count,
967: x_msg_data => l_msg_data,
968: x_cbc_enabled => x_cbc_enabled );
969: IF (x_return_status = FND_API.g_ret_sts_error) THEN
970: RAISE FND_API.g_exc_error;
971: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
972: RAISE FND_API.g_exc_unexpected_error;
973: END IF;
966: x_msg_count => l_msg_count,
967: x_msg_data => l_msg_data,
968: x_cbc_enabled => x_cbc_enabled );
969: IF (x_return_status = FND_API.g_ret_sts_error) THEN
970: RAISE FND_API.g_exc_error;
971: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
972: RAISE FND_API.g_exc_unexpected_error;
973: END IF;
974:
967: x_msg_data => l_msg_data,
968: x_cbc_enabled => x_cbc_enabled );
969: IF (x_return_status = FND_API.g_ret_sts_error) THEN
970: RAISE FND_API.g_exc_error;
971: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
972: RAISE FND_API.g_exc_unexpected_error;
973: END IF;
974:
975: IF (g_debug_stmt) THEN
968: x_cbc_enabled => x_cbc_enabled );
969: IF (x_return_status = FND_API.g_ret_sts_error) THEN
970: RAISE FND_API.g_exc_error;
971: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
972: RAISE FND_API.g_exc_unexpected_error;
973: END IF;
974:
975: IF (g_debug_stmt) THEN
976: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
983: -- Set the action date if it was not passed in
984: IF (x_action_date IS NULL) THEN
985:
986: get_action_date( p_api_version => 1.0,
987: p_init_msg_list => FND_API.G_FALSE,
988: x_return_status => x_return_status,
989: p_doc_type => p_doc_type,
990: p_doc_subtype => p_doc_subtype,
991: p_doc_id => p_doc_id,
990: p_doc_subtype => p_doc_subtype,
991: p_doc_id => p_doc_id,
992: p_cbc_enabled => x_cbc_enabled,
993: x_action_date => x_action_date );
994: IF (x_return_status = FND_API.g_ret_sts_error) THEN
995: RAISE FND_API.g_exc_error;
996: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
997: RAISE FND_API.g_exc_unexpected_error;
998: END IF;
991: p_doc_id => p_doc_id,
992: p_cbc_enabled => x_cbc_enabled,
993: x_action_date => x_action_date );
994: IF (x_return_status = FND_API.g_ret_sts_error) THEN
995: RAISE FND_API.g_exc_error;
996: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
997: RAISE FND_API.g_exc_unexpected_error;
998: END IF;
999:
992: p_cbc_enabled => x_cbc_enabled,
993: x_action_date => x_action_date );
994: IF (x_return_status = FND_API.g_ret_sts_error) THEN
995: RAISE FND_API.g_exc_error;
996: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
997: RAISE FND_API.g_exc_unexpected_error;
998: END IF;
999:
1000: ELSE
993: x_action_date => x_action_date );
994: IF (x_return_status = FND_API.g_ret_sts_error) THEN
995: RAISE FND_API.g_exc_error;
996: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
997: RAISE FND_API.g_exc_unexpected_error;
998: END IF;
999:
1000: ELSE
1001:
1003:
1004: END IF; --
1005:
1006: EXCEPTION
1007: WHEN FND_API.g_exc_error THEN
1008: x_return_status := FND_API.g_ret_sts_error;
1009: WHEN FND_API.g_exc_unexpected_error THEN
1010: x_return_status := FND_API.g_ret_sts_unexp_error;
1011: WHEN OTHERS THEN
1004: END IF; --
1005:
1006: EXCEPTION
1007: WHEN FND_API.g_exc_error THEN
1008: x_return_status := FND_API.g_ret_sts_error;
1009: WHEN FND_API.g_exc_unexpected_error THEN
1010: x_return_status := FND_API.g_ret_sts_unexp_error;
1011: WHEN OTHERS THEN
1012: x_return_status := FND_API.g_ret_sts_unexp_error;
1005:
1006: EXCEPTION
1007: WHEN FND_API.g_exc_error THEN
1008: x_return_status := FND_API.g_ret_sts_error;
1009: WHEN FND_API.g_exc_unexpected_error THEN
1010: x_return_status := FND_API.g_ret_sts_unexp_error;
1011: WHEN OTHERS THEN
1012: x_return_status := FND_API.g_ret_sts_unexp_error;
1013: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1006: EXCEPTION
1007: WHEN FND_API.g_exc_error THEN
1008: x_return_status := FND_API.g_ret_sts_error;
1009: WHEN FND_API.g_exc_unexpected_error THEN
1010: x_return_status := FND_API.g_ret_sts_unexp_error;
1011: WHEN OTHERS THEN
1012: x_return_status := FND_API.g_ret_sts_unexp_error;
1013: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1014: IF (g_debug_unexp) THEN
1008: x_return_status := FND_API.g_ret_sts_error;
1009: WHEN FND_API.g_exc_unexpected_error THEN
1010: x_return_status := FND_API.g_ret_sts_unexp_error;
1011: WHEN OTHERS THEN
1012: x_return_status := FND_API.g_ret_sts_unexp_error;
1013: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1014: IF (g_debug_unexp) THEN
1015: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1016: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1027: * Effects: If p_cbc_enabled is 'Y', then sets x_action_date to a valid CBC
1028: * accounting date for this document. Otherwise, sets x_action_date to
1029: * the current system date. Appends to API message list on error.
1030: * Returns:
1031: * x_return_status - FND_API.G_RET_STS_SUCCESS if date is set successfully
1032: * FND_API.G_RET_STS_ERROR if error occurs getting date
1033: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1034: * x_action_date - A truncated date that is either a valid CBC accounting date
1035: * or the current system date.
1028: * accounting date for this document. Otherwise, sets x_action_date to
1029: * the current system date. Appends to API message list on error.
1030: * Returns:
1031: * x_return_status - FND_API.G_RET_STS_SUCCESS if date is set successfully
1032: * FND_API.G_RET_STS_ERROR if error occurs getting date
1033: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1034: * x_action_date - A truncated date that is either a valid CBC accounting date
1035: * or the current system date.
1036: */
1029: * the current system date. Appends to API message list on error.
1030: * Returns:
1031: * x_return_status - FND_API.G_RET_STS_SUCCESS if date is set successfully
1032: * FND_API.G_RET_STS_ERROR if error occurs getting date
1033: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1034: * x_action_date - A truncated date that is either a valid CBC accounting date
1035: * or the current system date.
1036: */
1037: PROCEDURE get_action_date
1051: l_msg_data VARCHAR2(2000);
1052:
1053: BEGIN
1054: -- Start standard API initialization
1055: IF FND_API.to_boolean(p_init_msg_list) THEN
1056: FND_MSG_PUB.initialize;
1057: END IF;
1058: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
1059: l_api_name, g_pkg_name)
1054: -- Start standard API initialization
1055: IF FND_API.to_boolean(p_init_msg_list) THEN
1056: FND_MSG_PUB.initialize;
1057: END IF;
1058: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
1059: l_api_name, g_pkg_name)
1060: THEN
1061: RAISE FND_API.g_exc_unexpected_error;
1062: END IF;
1057: END IF;
1058: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
1059: l_api_name, g_pkg_name)
1060: THEN
1061: RAISE FND_API.g_exc_unexpected_error;
1062: END IF;
1063: x_return_status := FND_API.g_ret_sts_success;
1064: -- End standard API initialization
1065:
1059: l_api_name, g_pkg_name)
1060: THEN
1061: RAISE FND_API.g_exc_unexpected_error;
1062: END IF;
1063: x_return_status := FND_API.g_ret_sts_success;
1064: -- End standard API initialization
1065:
1066: IF (g_debug_stmt) THEN
1067: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1084: END IF;
1085:
1086: IGC_CBC_PO_GRP.get_cbc_acct_date
1087: ( p_api_version => 1.0,
1088: p_init_msg_list => FND_API.G_FALSE,
1089: p_commit => FND_API.G_FALSE,
1090: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1091: x_return_status => x_return_status,
1092: x_msg_count => l_msg_count,
1085:
1086: IGC_CBC_PO_GRP.get_cbc_acct_date
1087: ( p_api_version => 1.0,
1088: p_init_msg_list => FND_API.G_FALSE,
1089: p_commit => FND_API.G_FALSE,
1090: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1091: x_return_status => x_return_status,
1092: x_msg_count => l_msg_count,
1093: x_msg_data => l_msg_data,
1086: IGC_CBC_PO_GRP.get_cbc_acct_date
1087: ( p_api_version => 1.0,
1088: p_init_msg_list => FND_API.G_FALSE,
1089: p_commit => FND_API.G_FALSE,
1090: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1091: x_return_status => x_return_status,
1092: x_msg_count => l_msg_count,
1093: x_msg_data => l_msg_data,
1094: p_document_id => p_doc_id,
1095: p_document_type => p_doc_type,
1096: p_document_sub_type => p_doc_subtype,
1097: p_default => 'Y',
1098: x_cbc_acct_date => x_action_date );
1099: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1100: RAISE FND_API.g_exc_error;
1101: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1102: RAISE FND_API.g_exc_unexpected_error;
1103: END IF;
1096: p_document_sub_type => p_doc_subtype,
1097: p_default => 'Y',
1098: x_cbc_acct_date => x_action_date );
1099: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1100: RAISE FND_API.g_exc_error;
1101: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1102: RAISE FND_API.g_exc_unexpected_error;
1103: END IF;
1104:
1097: p_default => 'Y',
1098: x_cbc_acct_date => x_action_date );
1099: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1100: RAISE FND_API.g_exc_error;
1101: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1102: RAISE FND_API.g_exc_unexpected_error;
1103: END IF;
1104:
1105: x_action_date := TRUNC(x_action_date);
1098: x_cbc_acct_date => x_action_date );
1099: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1100: RAISE FND_API.g_exc_error;
1101: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1102: RAISE FND_API.g_exc_unexpected_error;
1103: END IF;
1104:
1105: x_action_date := TRUNC(x_action_date);
1106:
1110: x_action_date := TRUNC(SYSDATE);
1111: END IF;
1112:
1113: EXCEPTION
1114: WHEN FND_API.g_exc_error THEN
1115: x_return_status := FND_API.g_ret_sts_error;
1116: x_action_date := TRUNC(SYSDATE);
1117: WHEN FND_API.g_exc_unexpected_error THEN
1118: x_return_status := FND_API.g_ret_sts_unexp_error;
1111: END IF;
1112:
1113: EXCEPTION
1114: WHEN FND_API.g_exc_error THEN
1115: x_return_status := FND_API.g_ret_sts_error;
1116: x_action_date := TRUNC(SYSDATE);
1117: WHEN FND_API.g_exc_unexpected_error THEN
1118: x_return_status := FND_API.g_ret_sts_unexp_error;
1119: x_action_date := TRUNC(SYSDATE);
1113: EXCEPTION
1114: WHEN FND_API.g_exc_error THEN
1115: x_return_status := FND_API.g_ret_sts_error;
1116: x_action_date := TRUNC(SYSDATE);
1117: WHEN FND_API.g_exc_unexpected_error THEN
1118: x_return_status := FND_API.g_ret_sts_unexp_error;
1119: x_action_date := TRUNC(SYSDATE);
1120: WHEN OTHERS THEN
1121: x_return_status := FND_API.g_ret_sts_unexp_error;
1114: WHEN FND_API.g_exc_error THEN
1115: x_return_status := FND_API.g_ret_sts_error;
1116: x_action_date := TRUNC(SYSDATE);
1117: WHEN FND_API.g_exc_unexpected_error THEN
1118: x_return_status := FND_API.g_ret_sts_unexp_error;
1119: x_action_date := TRUNC(SYSDATE);
1120: WHEN OTHERS THEN
1121: x_return_status := FND_API.g_ret_sts_unexp_error;
1122: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1117: WHEN FND_API.g_exc_unexpected_error THEN
1118: x_return_status := FND_API.g_ret_sts_unexp_error;
1119: x_action_date := TRUNC(SYSDATE);
1120: WHEN OTHERS THEN
1121: x_return_status := FND_API.g_ret_sts_unexp_error;
1122: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1123: IF (g_debug_unexp) THEN
1124: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1125: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1137: * for requisitions or for cancel or finally closing a purchase order. Also
1138: * checks that p_date is a valid CBC accounting date for cancel or finally
1139: * close actions if CBC is enabled. Appends to API message list on error.
1140: * Returns:
1141: * x_return_status - FND_API.G_RET_STS_SUCCESS if validation succeeds
1142: * FND_API.G_RET_STS_ERROR if validation fails
1143: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1144: */
1145: PROCEDURE val_action_date
1138: * checks that p_date is a valid CBC accounting date for cancel or finally
1139: * close actions if CBC is enabled. Appends to API message list on error.
1140: * Returns:
1141: * x_return_status - FND_API.G_RET_STS_SUCCESS if validation succeeds
1142: * FND_API.G_RET_STS_ERROR if validation fails
1143: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1144: */
1145: PROCEDURE val_action_date
1146: (p_api_version IN NUMBER,
1139: * close actions if CBC is enabled. Appends to API message list on error.
1140: * Returns:
1141: * x_return_status - FND_API.G_RET_STS_SUCCESS if validation succeeds
1142: * FND_API.G_RET_STS_ERROR if validation fails
1143: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
1144: */
1145: PROCEDURE val_action_date
1146: (p_api_version IN NUMBER,
1147: p_init_msg_list IN VARCHAR2,
1163: l_msg_data VARCHAR2(2000);
1164:
1165: BEGIN
1166: -- Start standard API initialization
1167: IF FND_API.to_boolean(p_init_msg_list) THEN
1168: FND_MSG_PUB.initialize;
1169: END IF;
1170: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
1171: l_api_name, g_pkg_name)
1166: -- Start standard API initialization
1167: IF FND_API.to_boolean(p_init_msg_list) THEN
1168: FND_MSG_PUB.initialize;
1169: END IF;
1170: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
1171: l_api_name, g_pkg_name)
1172: THEN
1173: RAISE FND_API.g_exc_unexpected_error;
1174: END IF;
1169: END IF;
1170: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
1171: l_api_name, g_pkg_name)
1172: THEN
1173: RAISE FND_API.g_exc_unexpected_error;
1174: END IF;
1175: x_return_status := FND_API.g_ret_sts_success;
1176: -- End standard API initialization
1177:
1171: l_api_name, g_pkg_name)
1172: THEN
1173: RAISE FND_API.g_exc_unexpected_error;
1174: END IF;
1175: x_return_status := FND_API.g_ret_sts_success;
1176: -- End standard API initialization
1177:
1178: IF (g_debug_stmt) THEN
1179: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1190: (p_po_encumbrance_flag = 'Y'))
1191: THEN
1192:
1193: IF NOT in_open_gl_period( p_api_version => 1.0,
1194: p_init_msg_list => FND_API.G_FALSE,
1195: x_return_status => x_return_status,
1196: p_date => p_action_date )
1197: THEN
1198: IF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1194: p_init_msg_list => FND_API.G_FALSE,
1195: x_return_status => x_return_status,
1196: p_date => p_action_date )
1197: THEN
1198: IF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1199: RAISE FND_API.g_exc_unexpected_error;
1200: END IF;
1201:
1202: -- No error, so add a message saying open gl period check failed
1195: x_return_status => x_return_status,
1196: p_date => p_action_date )
1197: THEN
1198: IF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1199: RAISE FND_API.g_exc_unexpected_error;
1200: END IF;
1201:
1202: -- No error, so add a message saying open gl period check failed
1203: FND_MESSAGE.set_name('PO','PO_INV_CR_INVALID_GL_PERIOD');
1209: l_api_name || '.gl_period', FALSE);
1210: END IF;
1211: END IF;
1212: FND_MSG_PUB.add;
1213: RAISE FND_API.g_exc_error;
1214: END IF; -- if not in_open_gl_period ...
1215:
1216: END IF; -- if p_doc_type ...
1217:
1219: --If the procedure is invoked by HTML pages.
1220: --See Bug#4569120
1221:
1222: /* Bug 6507195 : PO CBC Integration
1223: Only when the Parameter P_SKIP_VALID_CBC_ACCT_DATE is FND_API.G_TRUE, we should skip validation
1224: Hence Changed condition from FND_API.G_TRUE to FND_API.G_FALSE
1225: */
1226:
1227: IF(nvl(p_skip_valid_cbc_acct_date, FND_API.G_FALSE) = FND_API.G_FALSE) THEN
1220: --See Bug#4569120
1221:
1222: /* Bug 6507195 : PO CBC Integration
1223: Only when the Parameter P_SKIP_VALID_CBC_ACCT_DATE is FND_API.G_TRUE, we should skip validation
1224: Hence Changed condition from FND_API.G_TRUE to FND_API.G_FALSE
1225: */
1226:
1227: IF(nvl(p_skip_valid_cbc_acct_date, FND_API.G_FALSE) = FND_API.G_FALSE) THEN
1228: -- Validate with CBC accounting date if enabled for cancel or finally close
1223: Only when the Parameter P_SKIP_VALID_CBC_ACCT_DATE is FND_API.G_TRUE, we should skip validation
1224: Hence Changed condition from FND_API.G_TRUE to FND_API.G_FALSE
1225: */
1226:
1227: IF(nvl(p_skip_valid_cbc_acct_date, FND_API.G_FALSE) = FND_API.G_FALSE) THEN
1228: -- Validate with CBC accounting date if enabled for cancel or finally close
1229: IF (p_cbc_enabled = 'Y') AND (p_action IN ('CANCEL','FINALLY CLOSE')) THEN
1230:
1231: IF (g_debug_stmt) THEN
1236: END IF;
1237:
1238: IGC_CBC_PO_GRP.valid_cbc_acct_date
1239: ( p_api_version => 1.0,
1240: p_init_msg_list => FND_API.G_FALSE,
1241: p_commit => FND_API.G_FALSE,
1242: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1243: x_return_status => x_return_status,
1244: x_msg_count => l_msg_count,
1237:
1238: IGC_CBC_PO_GRP.valid_cbc_acct_date
1239: ( p_api_version => 1.0,
1240: p_init_msg_list => FND_API.G_FALSE,
1241: p_commit => FND_API.G_FALSE,
1242: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1243: x_return_status => x_return_status,
1244: x_msg_count => l_msg_count,
1245: x_msg_data => l_msg_data,
1238: IGC_CBC_PO_GRP.valid_cbc_acct_date
1239: ( p_api_version => 1.0,
1240: p_init_msg_list => FND_API.G_FALSE,
1241: p_commit => FND_API.G_FALSE,
1242: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1243: x_return_status => x_return_status,
1244: x_msg_count => l_msg_count,
1245: x_msg_data => l_msg_data,
1246: p_document_id => p_doc_id,
1246: p_document_id => p_doc_id,
1247: p_document_type => p_doc_type,
1248: p_document_sub_type => p_doc_subtype,
1249: p_cbc_acct_date => p_action_date );
1250: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1251: RAISE FND_API.g_exc_error;
1252: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1253: RAISE FND_API.g_exc_unexpected_error;
1254: END IF;
1247: p_document_type => p_doc_type,
1248: p_document_sub_type => p_doc_subtype,
1249: p_cbc_acct_date => p_action_date );
1250: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1251: RAISE FND_API.g_exc_error;
1252: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1253: RAISE FND_API.g_exc_unexpected_error;
1254: END IF;
1255:
1248: p_document_sub_type => p_doc_subtype,
1249: p_cbc_acct_date => p_action_date );
1250: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1251: RAISE FND_API.g_exc_error;
1252: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1253: RAISE FND_API.g_exc_unexpected_error;
1254: END IF;
1255:
1256: END IF; -- if p_cbc_enabled ...
1249: p_cbc_acct_date => p_action_date );
1250: IF (x_return_status = FND_API.g_ret_sts_error) THEN
1251: RAISE FND_API.g_exc_error;
1252: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
1253: RAISE FND_API.g_exc_unexpected_error;
1254: END IF;
1255:
1256: END IF; -- if p_cbc_enabled ...
1257: END IF;--p_skip_valid_cbc_acct_date = FND_API.G_FALSE
1253: RAISE FND_API.g_exc_unexpected_error;
1254: END IF;
1255:
1256: END IF; -- if p_cbc_enabled ...
1257: END IF;--p_skip_valid_cbc_acct_date = FND_API.G_FALSE
1258:
1259: EXCEPTION
1260: WHEN FND_API.g_exc_error THEN
1261: x_return_status := FND_API.g_ret_sts_error;
1256: END IF; -- if p_cbc_enabled ...
1257: END IF;--p_skip_valid_cbc_acct_date = FND_API.G_FALSE
1258:
1259: EXCEPTION
1260: WHEN FND_API.g_exc_error THEN
1261: x_return_status := FND_API.g_ret_sts_error;
1262: WHEN FND_API.g_exc_unexpected_error THEN
1263: x_return_status := FND_API.g_ret_sts_unexp_error;
1264: WHEN OTHERS THEN
1257: END IF;--p_skip_valid_cbc_acct_date = FND_API.G_FALSE
1258:
1259: EXCEPTION
1260: WHEN FND_API.g_exc_error THEN
1261: x_return_status := FND_API.g_ret_sts_error;
1262: WHEN FND_API.g_exc_unexpected_error THEN
1263: x_return_status := FND_API.g_ret_sts_unexp_error;
1264: WHEN OTHERS THEN
1265: x_return_status := FND_API.g_ret_sts_unexp_error;
1258:
1259: EXCEPTION
1260: WHEN FND_API.g_exc_error THEN
1261: x_return_status := FND_API.g_ret_sts_error;
1262: WHEN FND_API.g_exc_unexpected_error THEN
1263: x_return_status := FND_API.g_ret_sts_unexp_error;
1264: WHEN OTHERS THEN
1265: x_return_status := FND_API.g_ret_sts_unexp_error;
1266: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1259: EXCEPTION
1260: WHEN FND_API.g_exc_error THEN
1261: x_return_status := FND_API.g_ret_sts_error;
1262: WHEN FND_API.g_exc_unexpected_error THEN
1263: x_return_status := FND_API.g_ret_sts_unexp_error;
1264: WHEN OTHERS THEN
1265: x_return_status := FND_API.g_ret_sts_unexp_error;
1266: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1267: IF (g_debug_unexp) THEN
1261: x_return_status := FND_API.g_ret_sts_error;
1262: WHEN FND_API.g_exc_unexpected_error THEN
1263: x_return_status := FND_API.g_ret_sts_unexp_error;
1264: WHEN OTHERS THEN
1265: x_return_status := FND_API.g_ret_sts_unexp_error;
1266: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1267: IF (g_debug_unexp) THEN
1268: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1269: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1300: --x_displayed_field_tbl
1301: -- Table storing the displayed_field values for each allowable control action.
1302: -- These elements are in sync with the elements in x_lookup_code_tbl.
1303: --x_return_status
1304: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1305: -- FND_API.g_ret_sts_error - if no control actions were found
1306: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1307: --End of Comments
1308: --------------------------------------------------------------------------------
1301: -- Table storing the displayed_field values for each allowable control action.
1302: -- These elements are in sync with the elements in x_lookup_code_tbl.
1303: --x_return_status
1304: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1305: -- FND_API.g_ret_sts_error - if no control actions were found
1306: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1307: --End of Comments
1308: --------------------------------------------------------------------------------
1309: PROCEDURE get_header_actions
1302: -- These elements are in sync with the elements in x_lookup_code_tbl.
1303: --x_return_status
1304: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1305: -- FND_API.g_ret_sts_error - if no control actions were found
1306: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1307: --End of Comments
1308: --------------------------------------------------------------------------------
1309: PROCEDURE get_header_actions
1310: ( p_doc_subtype IN VARCHAR2
1446: --< Bug 3194665 End >
1447:
1448: BEGIN
1449: --< Bug 3194665 > Removed unnecessary std api work
1450: x_return_status := FND_API.g_ret_sts_success;
1451:
1452: IF (g_debug_stmt) THEN
1453: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1454: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
1470: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
1471: '.no_data_found', FALSE);
1472: END IF;
1473: END IF;
1474: x_return_status := FND_API.g_ret_sts_error;
1475: END IF;
1476: --< Bug 3194665 End >
1477: CLOSE l_get_actions_csr;
1478:
1478:
1479: EXCEPTION
1480: --< Bug 3194665 > Removed unnecessary std api exception blocks
1481: WHEN OTHERS THEN
1482: x_return_status := FND_API.g_ret_sts_unexp_error;
1483: IF l_get_actions_csr%ISOPEN THEN
1484: CLOSE l_get_actions_csr;
1485: END IF;
1486: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1521: --x_displayed_field_tbl
1522: -- Table storing the displayed_field values for each allowable control action.
1523: -- These elements are in sync with the elements in x_lookup_code_tbl.
1524: --x_return_status
1525: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1526: -- FND_API.g_ret_sts_error - if no control actions were found
1527: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1528: --End of Comments
1529: --------------------------------------------------------------------------------
1522: -- Table storing the displayed_field values for each allowable control action.
1523: -- These elements are in sync with the elements in x_lookup_code_tbl.
1524: --x_return_status
1525: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1526: -- FND_API.g_ret_sts_error - if no control actions were found
1527: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1528: --End of Comments
1529: --------------------------------------------------------------------------------
1530: PROCEDURE get_line_actions
1523: -- These elements are in sync with the elements in x_lookup_code_tbl.
1524: --x_return_status
1525: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1526: -- FND_API.g_ret_sts_error - if no control actions were found
1527: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1528: --End of Comments
1529: --------------------------------------------------------------------------------
1530: PROCEDURE get_line_actions
1531: ( p_doc_subtype IN VARCHAR2
1643: ORDER BY polc.displayed_field;--< Bug 3194665 End >
1644:
1645: BEGIN
1646: --< Bug 3194665 > Removed unnecessary std api work
1647: x_return_status := FND_API.g_ret_sts_success;
1648:
1649: IF (g_debug_stmt) THEN
1650: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1651: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
1667: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
1668: '.get_failed', FALSE);
1669: END IF;
1670: END IF;
1671: x_return_status := FND_API.g_ret_sts_error;
1672: END IF;
1673: --< Bug 3194665 End >
1674:
1675: CLOSE l_get_actions_csr;
1676:
1677: EXCEPTION
1678: --< Bug 3194665 > Removed unnecessary std api exception blocks
1679: WHEN OTHERS THEN
1680: x_return_status := FND_API.g_ret_sts_unexp_error;
1681: IF l_get_actions_csr%ISOPEN THEN
1682: CLOSE l_get_actions_csr;
1683: END IF;
1684: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1720: --x_displayed_field_tbl
1721: -- Table storing the displayed_field values for each allowable control action.
1722: -- These elements are in sync with the elements in x_lookup_code_tbl.
1723: --x_return_status
1724: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1725: -- FND_API.g_ret_sts_error - if no control actions were found
1726: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1727: --End of Comments
1728: --------------------------------------------------------------------------------
1721: -- Table storing the displayed_field values for each allowable control action.
1722: -- These elements are in sync with the elements in x_lookup_code_tbl.
1723: --x_return_status
1724: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1725: -- FND_API.g_ret_sts_error - if no control actions were found
1726: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1727: --End of Comments
1728: --------------------------------------------------------------------------------
1729: PROCEDURE get_shipment_actions
1722: -- These elements are in sync with the elements in x_lookup_code_tbl.
1723: --x_return_status
1724: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1725: -- FND_API.g_ret_sts_error - if no control actions were found
1726: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1727: --End of Comments
1728: --------------------------------------------------------------------------------
1729: PROCEDURE get_shipment_actions
1730: ( p_doc_type IN VARCHAR2
1853: --< Bug 3194665 End >
1854:
1855: BEGIN
1856: --< Bug 3194665 > Removed unnecessary std api work
1857: x_return_status := FND_API.g_ret_sts_success;
1858:
1859: IF (g_debug_stmt) THEN
1860: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1861: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
1878: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
1879: '.get_failed', FALSE);
1880: END IF;
1881: END IF;
1882: x_return_status := FND_API.g_ret_sts_error;
1883: END IF;
1884: --< Bug 3194665 End >
1885: CLOSE l_get_actions_csr;
1886:
1886:
1887: EXCEPTION
1888: --< Bug 3194665 > Removed unnecessary std api exception blocks
1889: WHEN OTHERS THEN
1890: x_return_status := FND_API.g_ret_sts_unexp_error;
1891: IF l_get_actions_csr%ISOPEN THEN
1892: CLOSE l_get_actions_csr;
1893: END IF;
1894: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1930: --x_displayed_field_tbl
1931: -- Table storing the displayed_field values for each allowable control action.
1932: -- These elements are in sync with the elements in x_lookup_code_tbl.
1933: --x_return_status
1934: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1935: -- FND_API.g_ret_sts_error - if no control actions were found
1936: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1937: --End of Comments
1938: --------------------------------------------------------------------------------
1931: -- Table storing the displayed_field values for each allowable control action.
1932: -- These elements are in sync with the elements in x_lookup_code_tbl.
1933: --x_return_status
1934: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1935: -- FND_API.g_ret_sts_error - if no control actions were found
1936: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1937: --End of Comments
1938: --------------------------------------------------------------------------------
1939: PROCEDURE get_rel_header_actions
1932: -- These elements are in sync with the elements in x_lookup_code_tbl.
1933: --x_return_status
1934: -- FND_API.g_ret_sts_success - if 1 or more actions were found
1935: -- FND_API.g_ret_sts_error - if no control actions were found
1936: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
1937: --End of Comments
1938: --------------------------------------------------------------------------------
1939: PROCEDURE get_rel_header_actions
1940: ( p_doc_subtype IN VARCHAR2
2053: --< Bug 3194665 End >
2054:
2055: BEGIN
2056: --< Bug 3194665 > Removed unnecessary std api work
2057: x_return_status := FND_API.g_ret_sts_success;
2058:
2059: IF (g_debug_stmt) THEN
2060: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2061: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
2077: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
2078: '.get_failed', FALSE);
2079: END IF;
2080: END IF;
2081: x_return_status := FND_API.g_ret_sts_error;
2082: END IF;
2083: --< Bug 3194665 End >
2084: CLOSE l_get_actions_csr;
2085:
2085:
2086: EXCEPTION
2087: --< Bug 3194665 > Removed unnecessary std api exception blocks
2088: WHEN OTHERS THEN
2089: x_return_status := FND_API.g_ret_sts_unexp_error;
2090: IF l_get_actions_csr%ISOPEN THEN
2091: CLOSE l_get_actions_csr;
2092: END IF;
2093: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2129: --x_displayed_field_tbl
2130: -- Table storing the displayed_field values for each allowable control action.
2131: -- These elements are in sync with the elements in x_lookup_code_tbl.
2132: --x_return_status
2133: -- FND_API.g_ret_sts_success - if 1 or more actions were found
2134: -- FND_API.g_ret_sts_error - if no control actions were found
2135: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
2136: --End of Comments
2137: --------------------------------------------------------------------------------
2130: -- Table storing the displayed_field values for each allowable control action.
2131: -- These elements are in sync with the elements in x_lookup_code_tbl.
2132: --x_return_status
2133: -- FND_API.g_ret_sts_success - if 1 or more actions were found
2134: -- FND_API.g_ret_sts_error - if no control actions were found
2135: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
2136: --End of Comments
2137: --------------------------------------------------------------------------------
2138: PROCEDURE get_rel_shipment_actions
2131: -- These elements are in sync with the elements in x_lookup_code_tbl.
2132: --x_return_status
2133: -- FND_API.g_ret_sts_success - if 1 or more actions were found
2134: -- FND_API.g_ret_sts_error - if no control actions were found
2135: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
2136: --End of Comments
2137: --------------------------------------------------------------------------------
2138: PROCEDURE get_rel_shipment_actions
2139: ( p_doc_subtype IN VARCHAR2
2222: --< Bug 3194665 End >
2223:
2224: BEGIN
2225: --< Bug 3194665 > Removed unnecessary std api work
2226: x_return_status := FND_API.g_ret_sts_success;
2227:
2228: IF (g_debug_stmt) THEN
2229: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2230: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
2246: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
2247: '.get_failed', FALSE);
2248: END IF;
2249: END IF;
2250: x_return_status := FND_API.g_ret_sts_error;
2251: END IF;
2252: --< Bug 3194665 End >
2253: CLOSE l_get_actions_csr;
2254:
2254:
2255: EXCEPTION
2256: --< Bug 3194665 > Removed unnecessary std api exception block
2257: WHEN OTHERS THEN
2258: x_return_status := FND_API.g_ret_sts_unexp_error;
2259: IF l_get_actions_csr%ISOPEN THEN
2260: CLOSE l_get_actions_csr;
2261: END IF;
2262: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2280: * at header level if p_doc_id is not NULL. Control actions supported for
2281: * p_action are: 'CANCEL'. Requisitions are currently not supported. Appends
2282: * to API message list on error.
2283: * Returns:
2284: * x_return_status - FND_API.G_RET_STS_SUCCESS if validation succeeds
2285: * FND_API.G_RET_STS_ERROR if validation fails
2286: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2287: * x_control_level - g_header_level
2288: * g_line_level
2281: * p_action are: 'CANCEL'. Requisitions are currently not supported. Appends
2282: * to API message list on error.
2283: * Returns:
2284: * x_return_status - FND_API.G_RET_STS_SUCCESS if validation succeeds
2285: * FND_API.G_RET_STS_ERROR if validation fails
2286: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2287: * x_control_level - g_header_level
2288: * g_line_level
2289: * g_shipment_level
2282: * to API message list on error.
2283: * Returns:
2284: * x_return_status - FND_API.G_RET_STS_SUCCESS if validation succeeds
2285: * FND_API.G_RET_STS_ERROR if validation fails
2286: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2287: * x_control_level - g_header_level
2288: * g_line_level
2289: * g_shipment_level
2290: * g_rel_header_level
2320: --
2321:
2322: BEGIN
2323: -- Start standard API initialization
2324: IF FND_API.to_boolean(p_init_msg_list) THEN
2325: FND_MSG_PUB.initialize;
2326: END IF;
2327: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2328: l_api_name, g_pkg_name)
2323: -- Start standard API initialization
2324: IF FND_API.to_boolean(p_init_msg_list) THEN
2325: FND_MSG_PUB.initialize;
2326: END IF;
2327: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2328: l_api_name, g_pkg_name)
2329: THEN
2330: RAISE FND_API.g_exc_unexpected_error;
2331: END IF;
2326: END IF;
2327: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2328: l_api_name, g_pkg_name)
2329: THEN
2330: RAISE FND_API.g_exc_unexpected_error;
2331: END IF;
2332: x_return_status := FND_API.g_ret_sts_success;
2333: -- End standard API initialization
2334:
2328: l_api_name, g_pkg_name)
2329: THEN
2330: RAISE FND_API.g_exc_unexpected_error;
2331: END IF;
2332: x_return_status := FND_API.g_ret_sts_success;
2333: -- End standard API initialization
2334:
2335: IF (g_debug_stmt) THEN
2336: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2351: p_line_location_id => p_doc_line_loc_id,
2352: x_different => l_current_entity_changed,
2353: x_return_status => x_return_status);
2354:
2355: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2356: RAISE FND_API.g_exc_error;
2357: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2358: RAISE FND_API.g_exc_unexpected_error;
2359: END IF;
2352: x_different => l_current_entity_changed,
2353: x_return_status => x_return_status);
2354:
2355: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2356: RAISE FND_API.g_exc_error;
2357: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2358: RAISE FND_API.g_exc_unexpected_error;
2359: END IF;
2360:
2353: x_return_status => x_return_status);
2354:
2355: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2356: RAISE FND_API.g_exc_error;
2357: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2358: RAISE FND_API.g_exc_unexpected_error;
2359: END IF;
2360:
2361: -- If the current entity: Header/Line/Shipent changed, return error
2354:
2355: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2356: RAISE FND_API.g_exc_error;
2357: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2358: RAISE FND_API.g_exc_unexpected_error;
2359: END IF;
2360:
2361: -- If the current entity: Header/Line/Shipent changed, return error
2362: IF l_current_entity_changed = 'Y' THEN
2361: -- If the current entity: Header/Line/Shipent changed, return error
2362: IF l_current_entity_changed = 'Y' THEN
2363: FND_MESSAGE.set_name('PO','PO_CHANGED_CANT_CANCEL');
2364: FND_MSG_PUB.add;
2365: RAISE FND_API.g_exc_error;
2366: END IF;
2367: --
2368:
2369: IF (p_doc_type = 'RELEASE') THEN
2406: l_api_name || '.invalid_doc_ids', FALSE);
2407: END IF;
2408: END IF;
2409: FND_MSG_PUB.add;
2410: RAISE FND_API.g_exc_error;
2411: END IF; --
2412:
2413: ELSIF (p_doc_type IN ('PO','PA')) THEN
2414:
2466: l_api_name || '.invalid_doc_ids', FALSE);
2467: END IF;
2468: END IF;
2469: FND_MSG_PUB.add;
2470: RAISE FND_API.g_exc_error;
2471: END IF; --
2472:
2473: ELSE
2474: -- This document type is not supported
2480: '.invalid_doc_type', FALSE);
2481: END IF;
2482: END IF;
2483: FND_MSG_PUB.add;
2484: RAISE FND_API.g_exc_error;
2485: END IF; --
2486:
2487: -- Check if the get action procedure had an error
2488: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2484: RAISE FND_API.g_exc_error;
2485: END IF; --
2486:
2487: -- Check if the get action procedure had an error
2488: IF (x_return_status = FND_API.g_ret_sts_error) THEN
2489: FND_MESSAGE.set_name('PO','PO_CONTROL_INVALID_ACTION');
2490: FND_MESSAGE.set_token('ACTION',p_action);
2491: IF (g_debug_stmt) THEN
2492: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
2494: '.get_action_failed', FALSE);
2495: END IF;
2496: END IF;
2497: FND_MSG_PUB.add;
2498: RAISE FND_API.g_exc_error;
2499: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2500: RAISE FND_API.g_exc_unexpected_error;
2501: END IF;
2502:
2495: END IF;
2496: END IF;
2497: FND_MSG_PUB.add;
2498: RAISE FND_API.g_exc_error;
2499: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2500: RAISE FND_API.g_exc_unexpected_error;
2501: END IF;
2502:
2503: -- Loop through allowable actions to see if this action is in the set
2496: END IF;
2497: FND_MSG_PUB.add;
2498: RAISE FND_API.g_exc_error;
2499: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2500: RAISE FND_API.g_exc_unexpected_error;
2501: END IF;
2502:
2503: -- Loop through allowable actions to see if this action is in the set
2504: l_action_ok := FALSE;
2520: '.status_failed', FALSE);
2521: END IF;
2522: END IF;
2523: FND_MSG_PUB.add;
2524: RAISE FND_API.g_exc_error;
2525: END IF;
2526:
2527: --
2528: l_progress := '100';
2548: p_field_value => l_otl_field_value,
2549: p_end_date => NULL,
2550: x_timecard_exists => l_timecard_exists
2551: );
2552: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2554: END IF;
2555:
2556: IF (l_timecard_exists) THEN
2549: p_end_date => NULL,
2550: x_timecard_exists => l_timecard_exists
2551: );
2552: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2554: END IF;
2555:
2556: IF (l_timecard_exists) THEN
2557: FND_MESSAGE.set_name('PO','PO_CONTROL_OTL_INVALID_ACTION');
2555:
2556: IF (l_timecard_exists) THEN
2557: FND_MESSAGE.set_name('PO','PO_CONTROL_OTL_INVALID_ACTION');
2558: FND_MSG_PUB.add;
2559: RAISE FND_API.g_exc_error;
2560: END IF;
2561:
2562: END IF; -- p_doc_type = 'PO'
2563: --
2562: END IF; -- p_doc_type = 'PO'
2563: --
2564:
2565: EXCEPTION
2566: WHEN FND_API.g_exc_error THEN
2567: x_return_status := FND_API.g_ret_sts_error;
2568: WHEN FND_API.g_exc_unexpected_error THEN
2569: x_return_status := FND_API.g_ret_sts_unexp_error;
2570: WHEN OTHERS THEN
2563: --
2564:
2565: EXCEPTION
2566: WHEN FND_API.g_exc_error THEN
2567: x_return_status := FND_API.g_ret_sts_error;
2568: WHEN FND_API.g_exc_unexpected_error THEN
2569: x_return_status := FND_API.g_ret_sts_unexp_error;
2570: WHEN OTHERS THEN
2571: x_return_status := FND_API.g_ret_sts_unexp_error;
2564:
2565: EXCEPTION
2566: WHEN FND_API.g_exc_error THEN
2567: x_return_status := FND_API.g_ret_sts_error;
2568: WHEN FND_API.g_exc_unexpected_error THEN
2569: x_return_status := FND_API.g_ret_sts_unexp_error;
2570: WHEN OTHERS THEN
2571: x_return_status := FND_API.g_ret_sts_unexp_error;
2572: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2565: EXCEPTION
2566: WHEN FND_API.g_exc_error THEN
2567: x_return_status := FND_API.g_ret_sts_error;
2568: WHEN FND_API.g_exc_unexpected_error THEN
2569: x_return_status := FND_API.g_ret_sts_unexp_error;
2570: WHEN OTHERS THEN
2571: x_return_status := FND_API.g_ret_sts_unexp_error;
2572: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2573: IF (g_debug_unexp) THEN
2567: x_return_status := FND_API.g_ret_sts_error;
2568: WHEN FND_API.g_exc_unexpected_error THEN
2569: x_return_status := FND_API.g_ret_sts_unexp_error;
2570: WHEN OTHERS THEN
2571: x_return_status := FND_API.g_ret_sts_unexp_error;
2572: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2573: IF (g_debug_unexp) THEN
2574: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2575: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
2586: * this document. Also does the same for any unapproved releases against this
2587: * document with authorization status INCOMPLETE, REJECTED, or REQUIRES
2588: * APPROVAL. Appends to API message list on error.
2589: * Returns:
2590: * x_return_status - FND_API.G_RET_STS_SUCCESS if no errors occur
2591: * FND_API.G_RET_STS_ERROR if error occurs
2592: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2593: */
2594: PROCEDURE po_stop_wf_process
2587: * document with authorization status INCOMPLETE, REJECTED, or REQUIRES
2588: * APPROVAL. Appends to API message list on error.
2589: * Returns:
2590: * x_return_status - FND_API.G_RET_STS_SUCCESS if no errors occur
2591: * FND_API.G_RET_STS_ERROR if error occurs
2592: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2593: */
2594: PROCEDURE po_stop_wf_process
2595: (p_api_version IN NUMBER,
2588: * APPROVAL. Appends to API message list on error.
2589: * Returns:
2590: * x_return_status - FND_API.G_RET_STS_SUCCESS if no errors occur
2591: * FND_API.G_RET_STS_ERROR if error occurs
2592: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2593: */
2594: PROCEDURE po_stop_wf_process
2595: (p_api_version IN NUMBER,
2596: p_init_msg_list IN VARCHAR2,
2640: l_num_fetched NUMBER := 0; -- number of rows fetched at each iteration
2641:
2642: BEGIN
2643: -- Start standard API initialization
2644: IF FND_API.to_boolean(p_init_msg_list) THEN
2645: FND_MSG_PUB.initialize;
2646: END IF;
2647: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2648: l_api_name, g_pkg_name)
2643: -- Start standard API initialization
2644: IF FND_API.to_boolean(p_init_msg_list) THEN
2645: FND_MSG_PUB.initialize;
2646: END IF;
2647: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2648: l_api_name, g_pkg_name)
2649: THEN
2650: RAISE FND_API.g_exc_unexpected_error;
2651: END IF;
2646: END IF;
2647: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2648: l_api_name, g_pkg_name)
2649: THEN
2650: RAISE FND_API.g_exc_unexpected_error;
2651: END IF;
2652: x_return_status := FND_API.g_ret_sts_success;
2653: -- End standard API initialization
2654:
2648: l_api_name, g_pkg_name)
2649: THEN
2650: RAISE FND_API.g_exc_unexpected_error;
2651: END IF;
2652: x_return_status := FND_API.g_ret_sts_success;
2653: -- End standard API initialization
2654:
2655: IF (g_debug_stmt) THEN
2656: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2670: '.invalid_doc_ids', FALSE);
2671: END IF;
2672: END IF;
2673: FND_MSG_PUB.add;
2674: RAISE FND_API.g_exc_error;
2675: END IF;
2676: CLOSE l_po_wf_csr;
2677:
2678: -- Cancel any approval reminder notifications. 'N' means not a release
2718:
2719: END IF; --
2720:
2721: EXCEPTION
2722: WHEN FND_API.g_exc_error THEN
2723: x_return_status := FND_API.g_ret_sts_error;
2724: IF l_po_wf_csr%ISOPEN THEN
2725: CLOSE l_po_wf_csr;
2726: END IF;
2719: END IF; --
2720:
2721: EXCEPTION
2722: WHEN FND_API.g_exc_error THEN
2723: x_return_status := FND_API.g_ret_sts_error;
2724: IF l_po_wf_csr%ISOPEN THEN
2725: CLOSE l_po_wf_csr;
2726: END IF;
2727: IF l_unapproved_releases_csr%ISOPEN THEN
2726: END IF;
2727: IF l_unapproved_releases_csr%ISOPEN THEN
2728: CLOSE l_unapproved_releases_csr;
2729: END IF;
2730: WHEN FND_API.g_exc_unexpected_error THEN
2731: x_return_status := FND_API.g_ret_sts_unexp_error;
2732: IF l_po_wf_csr%ISOPEN THEN
2733: CLOSE l_po_wf_csr;
2734: END IF;
2727: IF l_unapproved_releases_csr%ISOPEN THEN
2728: CLOSE l_unapproved_releases_csr;
2729: END IF;
2730: WHEN FND_API.g_exc_unexpected_error THEN
2731: x_return_status := FND_API.g_ret_sts_unexp_error;
2732: IF l_po_wf_csr%ISOPEN THEN
2733: CLOSE l_po_wf_csr;
2734: END IF;
2735: IF l_unapproved_releases_csr%ISOPEN THEN
2735: IF l_unapproved_releases_csr%ISOPEN THEN
2736: CLOSE l_unapproved_releases_csr;
2737: END IF;
2738: WHEN OTHERS THEN
2739: x_return_status := FND_API.g_ret_sts_unexp_error;
2740: IF l_po_wf_csr%ISOPEN THEN
2741: CLOSE l_po_wf_csr;
2742: END IF;
2743: IF l_unapproved_releases_csr%ISOPEN THEN
2758: * Modifies: Workflow processes for this document, API message list.
2759: * Effects: Stops any pending workflow process and respond notification for
2760: * this document. Appends to API message list on error.
2761: * Returns:
2762: * x_return_status - FND_API.G_RET_STS_SUCCESS if there are no errors
2763: * FND_API.G_RET_STS_ERROR if error occurs
2764: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2765: */
2766: PROCEDURE rel_stop_wf_process
2759: * Effects: Stops any pending workflow process and respond notification for
2760: * this document. Appends to API message list on error.
2761: * Returns:
2762: * x_return_status - FND_API.G_RET_STS_SUCCESS if there are no errors
2763: * FND_API.G_RET_STS_ERROR if error occurs
2764: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2765: */
2766: PROCEDURE rel_stop_wf_process
2767: (p_api_version IN NUMBER,
2760: * this document. Appends to API message list on error.
2761: * Returns:
2762: * x_return_status - FND_API.G_RET_STS_SUCCESS if there are no errors
2763: * FND_API.G_RET_STS_ERROR if error occurs
2764: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2765: */
2766: PROCEDURE rel_stop_wf_process
2767: (p_api_version IN NUMBER,
2768: p_init_msg_list IN VARCHAR2,
2783: l_wf_item_key PO_RELEASES.wf_item_key%TYPE;
2784:
2785: BEGIN
2786: -- Start standard API initialization
2787: IF FND_API.to_boolean(p_init_msg_list) THEN
2788: FND_MSG_PUB.initialize;
2789: END IF;
2790: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2791: l_api_name, g_pkg_name)
2786: -- Start standard API initialization
2787: IF FND_API.to_boolean(p_init_msg_list) THEN
2788: FND_MSG_PUB.initialize;
2789: END IF;
2790: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2791: l_api_name, g_pkg_name)
2792: THEN
2793: RAISE FND_API.g_exc_unexpected_error;
2794: END IF;
2789: END IF;
2790: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2791: l_api_name, g_pkg_name)
2792: THEN
2793: RAISE FND_API.g_exc_unexpected_error;
2794: END IF;
2795: x_return_status := FND_API.g_ret_sts_success;
2796: -- End standard API initialization
2797:
2791: l_api_name, g_pkg_name)
2792: THEN
2793: RAISE FND_API.g_exc_unexpected_error;
2794: END IF;
2795: x_return_status := FND_API.g_ret_sts_success;
2796: -- End standard API initialization
2797:
2798: IF (g_debug_stmt) THEN
2799: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2813: '.invalid_doc_ids', FALSE);
2814: END IF;
2815: END IF;
2816: FND_MSG_PUB.add;
2817: RAISE FND_API.g_exc_error;
2818: END IF;
2819: CLOSE l_rel_wf_csr;
2820:
2821: -- Cancel any approval reminder notifications. 'Y' means this is a release
2826: PO_APPROVAL_REMINDER_SV.stop_process(l_wf_item_type, l_wf_item_key);
2827: END IF;
2828:
2829: EXCEPTION
2830: WHEN FND_API.g_exc_error THEN
2831: x_return_status := FND_API.g_ret_sts_error;
2832: IF l_rel_wf_csr%ISOPEN THEN
2833: CLOSE l_rel_wf_csr;
2834: END IF;
2827: END IF;
2828:
2829: EXCEPTION
2830: WHEN FND_API.g_exc_error THEN
2831: x_return_status := FND_API.g_ret_sts_error;
2832: IF l_rel_wf_csr%ISOPEN THEN
2833: CLOSE l_rel_wf_csr;
2834: END IF;
2835: WHEN FND_API.g_exc_unexpected_error THEN
2831: x_return_status := FND_API.g_ret_sts_error;
2832: IF l_rel_wf_csr%ISOPEN THEN
2833: CLOSE l_rel_wf_csr;
2834: END IF;
2835: WHEN FND_API.g_exc_unexpected_error THEN
2836: x_return_status := FND_API.g_ret_sts_unexp_error;
2837: IF l_rel_wf_csr%ISOPEN THEN
2838: CLOSE l_rel_wf_csr;
2839: END IF;
2832: IF l_rel_wf_csr%ISOPEN THEN
2833: CLOSE l_rel_wf_csr;
2834: END IF;
2835: WHEN FND_API.g_exc_unexpected_error THEN
2836: x_return_status := FND_API.g_ret_sts_unexp_error;
2837: IF l_rel_wf_csr%ISOPEN THEN
2838: CLOSE l_rel_wf_csr;
2839: END IF;
2840: WHEN OTHERS THEN
2837: IF l_rel_wf_csr%ISOPEN THEN
2838: CLOSE l_rel_wf_csr;
2839: END IF;
2840: WHEN OTHERS THEN
2841: x_return_status := FND_API.g_ret_sts_unexp_error;
2842: IF l_rel_wf_csr%ISOPEN THEN
2843: CLOSE l_rel_wf_csr;
2844: END IF;
2845: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2858: * Modifies: API message list.
2859: * Effects: Submits a concurrent request to print the document specified.
2860: * Appends to API message list on error.
2861: * Returns:
2862: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
2863: * FND_API.G_RET_STS_ERROR if request was not created
2864: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2865: * x_request_id - The ID of the print request
2866: */
2859: * Effects: Submits a concurrent request to print the document specified.
2860: * Appends to API message list on error.
2861: * Returns:
2862: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
2863: * FND_API.G_RET_STS_ERROR if request was not created
2864: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2865: * x_request_id - The ID of the print request
2866: */
2867: PROCEDURE submit_po_print_request
2860: * Appends to API message list on error.
2861: * Returns:
2862: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
2863: * FND_API.G_RET_STS_ERROR if request was not created
2864: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2865: * x_request_id - The ID of the print request
2866: */
2867: PROCEDURE submit_po_print_request
2868: (p_api_version IN NUMBER,
2877: l_api_version CONSTANT NUMBER := 1.0;
2878:
2879: BEGIN
2880: -- Start standard API initialization
2881: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2882: l_api_name, g_pkg_name)
2883: THEN
2884: RAISE FND_API.g_exc_unexpected_error;
2885: END IF;
2880: -- Start standard API initialization
2881: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2882: l_api_name, g_pkg_name)
2883: THEN
2884: RAISE FND_API.g_exc_unexpected_error;
2885: END IF;
2886: x_return_status := FND_API.g_ret_sts_success;
2887: -- End standard API initialization
2888:
2882: l_api_name, g_pkg_name)
2883: THEN
2884: RAISE FND_API.g_exc_unexpected_error;
2885: END IF;
2886: x_return_status := FND_API.g_ret_sts_success;
2887: -- End standard API initialization
2888:
2889: IF (g_debug_stmt) THEN
2890: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2937: '.request_failed', FALSE);
2938: END IF;
2939: END IF;
2940: FND_MSG_PUB.add;
2941: RAISE FND_API.g_exc_error;
2942: END IF;
2943:
2944: EXCEPTION
2945: WHEN FND_API.g_exc_error THEN
2941: RAISE FND_API.g_exc_error;
2942: END IF;
2943:
2944: EXCEPTION
2945: WHEN FND_API.g_exc_error THEN
2946: x_return_status := FND_API.g_ret_sts_error;
2947: WHEN FND_API.g_exc_unexpected_error THEN
2948: x_return_status := FND_API.g_ret_sts_unexp_error;
2949: WHEN OTHERS THEN
2942: END IF;
2943:
2944: EXCEPTION
2945: WHEN FND_API.g_exc_error THEN
2946: x_return_status := FND_API.g_ret_sts_error;
2947: WHEN FND_API.g_exc_unexpected_error THEN
2948: x_return_status := FND_API.g_ret_sts_unexp_error;
2949: WHEN OTHERS THEN
2950: x_return_status := FND_API.g_ret_sts_unexp_error;
2943:
2944: EXCEPTION
2945: WHEN FND_API.g_exc_error THEN
2946: x_return_status := FND_API.g_ret_sts_error;
2947: WHEN FND_API.g_exc_unexpected_error THEN
2948: x_return_status := FND_API.g_ret_sts_unexp_error;
2949: WHEN OTHERS THEN
2950: x_return_status := FND_API.g_ret_sts_unexp_error;
2951: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2944: EXCEPTION
2945: WHEN FND_API.g_exc_error THEN
2946: x_return_status := FND_API.g_ret_sts_error;
2947: WHEN FND_API.g_exc_unexpected_error THEN
2948: x_return_status := FND_API.g_ret_sts_unexp_error;
2949: WHEN OTHERS THEN
2950: x_return_status := FND_API.g_ret_sts_unexp_error;
2951: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2952: IF (g_debug_unexp) THEN
2946: x_return_status := FND_API.g_ret_sts_error;
2947: WHEN FND_API.g_exc_unexpected_error THEN
2948: x_return_status := FND_API.g_ret_sts_unexp_error;
2949: WHEN OTHERS THEN
2950: x_return_status := FND_API.g_ret_sts_unexp_error;
2951: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2952: IF (g_debug_unexp) THEN
2953: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2954: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
2964: * Modifies: API message list
2965: * Effects: Submits a concurrent request to print the release specified.
2966: * Appends to API message list on error.
2967: * Returns:
2968: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
2969: * FND_API.G_RET_STS_ERROR if request was not created
2970: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2971: * x_request_id - The ID of the print request
2972: */
2965: * Effects: Submits a concurrent request to print the release specified.
2966: * Appends to API message list on error.
2967: * Returns:
2968: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
2969: * FND_API.G_RET_STS_ERROR if request was not created
2970: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2971: * x_request_id - The ID of the print request
2972: */
2973: PROCEDURE submit_rel_print_request
2966: * Appends to API message list on error.
2967: * Returns:
2968: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
2969: * FND_API.G_RET_STS_ERROR if request was not created
2970: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
2971: * x_request_id - The ID of the print request
2972: */
2973: PROCEDURE submit_rel_print_request
2974: (p_api_version IN NUMBER,
2984: l_api_version CONSTANT NUMBER := 1.0;
2985:
2986: BEGIN
2987: -- Start standard API initialization
2988: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2989: l_api_name, g_pkg_name)
2990: THEN
2991: RAISE FND_API.g_exc_unexpected_error;
2992: END IF;
2987: -- Start standard API initialization
2988: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2989: l_api_name, g_pkg_name)
2990: THEN
2991: RAISE FND_API.g_exc_unexpected_error;
2992: END IF;
2993: x_return_status := FND_API.g_ret_sts_success;
2994: -- End standard API initialization
2995:
2989: l_api_name, g_pkg_name)
2990: THEN
2991: RAISE FND_API.g_exc_unexpected_error;
2992: END IF;
2993: x_return_status := FND_API.g_ret_sts_success;
2994: -- End standard API initialization
2995:
2996: IF (g_debug_stmt) THEN
2997: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
3046: '.request_failed', FALSE);
3047: END IF;
3048: END IF;
3049: FND_MSG_PUB.add;
3050: RAISE FND_API.g_exc_error;
3051: END IF;
3052:
3053: EXCEPTION
3054: WHEN FND_API.g_exc_error THEN
3050: RAISE FND_API.g_exc_error;
3051: END IF;
3052:
3053: EXCEPTION
3054: WHEN FND_API.g_exc_error THEN
3055: x_return_status := FND_API.g_ret_sts_error;
3056: WHEN FND_API.g_exc_unexpected_error THEN
3057: x_return_status := FND_API.g_ret_sts_unexp_error;
3058: WHEN OTHERS THEN
3051: END IF;
3052:
3053: EXCEPTION
3054: WHEN FND_API.g_exc_error THEN
3055: x_return_status := FND_API.g_ret_sts_error;
3056: WHEN FND_API.g_exc_unexpected_error THEN
3057: x_return_status := FND_API.g_ret_sts_unexp_error;
3058: WHEN OTHERS THEN
3059: x_return_status := FND_API.g_ret_sts_unexp_error;
3052:
3053: EXCEPTION
3054: WHEN FND_API.g_exc_error THEN
3055: x_return_status := FND_API.g_ret_sts_error;
3056: WHEN FND_API.g_exc_unexpected_error THEN
3057: x_return_status := FND_API.g_ret_sts_unexp_error;
3058: WHEN OTHERS THEN
3059: x_return_status := FND_API.g_ret_sts_unexp_error;
3060: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3053: EXCEPTION
3054: WHEN FND_API.g_exc_error THEN
3055: x_return_status := FND_API.g_ret_sts_error;
3056: WHEN FND_API.g_exc_unexpected_error THEN
3057: x_return_status := FND_API.g_ret_sts_unexp_error;
3058: WHEN OTHERS THEN
3059: x_return_status := FND_API.g_ret_sts_unexp_error;
3060: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3061: IF (g_debug_unexp) THEN
3055: x_return_status := FND_API.g_ret_sts_error;
3056: WHEN FND_API.g_exc_unexpected_error THEN
3057: x_return_status := FND_API.g_ret_sts_unexp_error;
3058: WHEN OTHERS THEN
3059: x_return_status := FND_API.g_ret_sts_unexp_error;
3060: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3061: IF (g_debug_unexp) THEN
3062: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3063: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3073: * Modifies: API message list
3074: * Effects: Submits a concurrent request to print the requistion specified.
3075: * Appends to API message list on error.
3076: * Returns:
3077: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
3078: * FND_API.G_RET_STS_ERROR if request was not created
3079: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3080: * x_request_id - The ID of the print request
3081: */
3074: * Effects: Submits a concurrent request to print the requistion specified.
3075: * Appends to API message list on error.
3076: * Returns:
3077: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
3078: * FND_API.G_RET_STS_ERROR if request was not created
3079: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3080: * x_request_id - The ID of the print request
3081: */
3082: PROCEDURE submit_req_print_request
3075: * Appends to API message list on error.
3076: * Returns:
3077: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
3078: * FND_API.G_RET_STS_ERROR if request was not created
3079: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3080: * x_request_id - The ID of the print request
3081: */
3082: PROCEDURE submit_req_print_request
3083: (p_api_version IN NUMBER,
3092: l_api_version CONSTANT NUMBER := 1.0;
3093:
3094: BEGIN
3095: -- Start standard API initialization
3096: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3097: l_api_name, g_pkg_name)
3098: THEN
3099: RAISE FND_API.g_exc_unexpected_error;
3100: END IF;
3095: -- Start standard API initialization
3096: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3097: l_api_name, g_pkg_name)
3098: THEN
3099: RAISE FND_API.g_exc_unexpected_error;
3100: END IF;
3101: x_return_status := FND_API.g_ret_sts_success;
3102: -- End standard API initialization
3103:
3097: l_api_name, g_pkg_name)
3098: THEN
3099: RAISE FND_API.g_exc_unexpected_error;
3100: END IF;
3101: x_return_status := FND_API.g_ret_sts_success;
3102: -- End standard API initialization
3103:
3104: IF (g_debug_stmt) THEN
3105: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
3150: '.request_failed', FALSE);
3151: END IF;
3152: END IF;
3153: FND_MSG_PUB.add;
3154: RAISE FND_API.g_exc_error;
3155: END IF;
3156:
3157: EXCEPTION
3158: WHEN FND_API.g_exc_error THEN
3154: RAISE FND_API.g_exc_error;
3155: END IF;
3156:
3157: EXCEPTION
3158: WHEN FND_API.g_exc_error THEN
3159: x_return_status := FND_API.g_ret_sts_error;
3160: WHEN FND_API.g_exc_unexpected_error THEN
3161: x_return_status := FND_API.g_ret_sts_unexp_error;
3162: WHEN OTHERS THEN
3155: END IF;
3156:
3157: EXCEPTION
3158: WHEN FND_API.g_exc_error THEN
3159: x_return_status := FND_API.g_ret_sts_error;
3160: WHEN FND_API.g_exc_unexpected_error THEN
3161: x_return_status := FND_API.g_ret_sts_unexp_error;
3162: WHEN OTHERS THEN
3163: x_return_status := FND_API.g_ret_sts_unexp_error;
3156:
3157: EXCEPTION
3158: WHEN FND_API.g_exc_error THEN
3159: x_return_status := FND_API.g_ret_sts_error;
3160: WHEN FND_API.g_exc_unexpected_error THEN
3161: x_return_status := FND_API.g_ret_sts_unexp_error;
3162: WHEN OTHERS THEN
3163: x_return_status := FND_API.g_ret_sts_unexp_error;
3164: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3157: EXCEPTION
3158: WHEN FND_API.g_exc_error THEN
3159: x_return_status := FND_API.g_ret_sts_error;
3160: WHEN FND_API.g_exc_unexpected_error THEN
3161: x_return_status := FND_API.g_ret_sts_unexp_error;
3162: WHEN OTHERS THEN
3163: x_return_status := FND_API.g_ret_sts_unexp_error;
3164: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3165: IF (g_debug_unexp) THEN
3159: x_return_status := FND_API.g_ret_sts_error;
3160: WHEN FND_API.g_exc_unexpected_error THEN
3161: x_return_status := FND_API.g_ret_sts_unexp_error;
3162: WHEN OTHERS THEN
3163: x_return_status := FND_API.g_ret_sts_unexp_error;
3164: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3165: IF (g_debug_unexp) THEN
3166: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3167: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3177: * Modifies: API message list
3178: * Effects: Creates a request to print the document specified. Appends to API
3179: * message list on error.
3180: * Returns:
3181: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
3182: * FND_API.G_RET_STS_ERROR if request was not created
3183: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3184: * x_request_id - The ID of the print request
3185: */
3178: * Effects: Creates a request to print the document specified. Appends to API
3179: * message list on error.
3180: * Returns:
3181: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
3182: * FND_API.G_RET_STS_ERROR if request was not created
3183: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3184: * x_request_id - The ID of the print request
3185: */
3186: PROCEDURE create_print_request
3179: * message list on error.
3180: * Returns:
3181: * x_return_status - FND_API.G_RET_STS_SUCCESS if request was created
3182: * FND_API.G_RET_STS_ERROR if request was not created
3183: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3184: * x_request_id - The ID of the print request
3185: */
3186: PROCEDURE create_print_request
3187: (p_api_version IN NUMBER,
3199: l_user_id FND_PROFILE_OPTION_VALUES.profile_option_value%TYPE;
3200:
3201: BEGIN
3202: -- Start standard API initialization
3203: IF FND_API.to_boolean(p_init_msg_list) THEN
3204: FND_MSG_PUB.initialize;
3205: END IF;
3206: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3207: l_api_name, g_pkg_name)
3202: -- Start standard API initialization
3203: IF FND_API.to_boolean(p_init_msg_list) THEN
3204: FND_MSG_PUB.initialize;
3205: END IF;
3206: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3207: l_api_name, g_pkg_name)
3208: THEN
3209: RAISE FND_API.g_exc_unexpected_error;
3210: END IF;
3205: END IF;
3206: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3207: l_api_name, g_pkg_name)
3208: THEN
3209: RAISE FND_API.g_exc_unexpected_error;
3210: END IF;
3211: x_return_status := FND_API.g_ret_sts_success;
3212: -- End standard API initialization
3213:
3207: l_api_name, g_pkg_name)
3208: THEN
3209: RAISE FND_API.g_exc_unexpected_error;
3210: END IF;
3211: x_return_status := FND_API.g_ret_sts_success;
3212: -- End standard API initialization
3213:
3214: IF (g_debug_stmt) THEN
3215: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
3261: '.invalid_doc_type', FALSE);
3262: END IF;
3263: END IF;
3264: FND_MSG_PUB.add;
3265: RAISE FND_API.g_exc_error;
3266: END IF;
3267:
3268: EXCEPTION
3269: WHEN FND_API.g_exc_error THEN
3265: RAISE FND_API.g_exc_error;
3266: END IF;
3267:
3268: EXCEPTION
3269: WHEN FND_API.g_exc_error THEN
3270: x_return_status := FND_API.g_ret_sts_error;
3271: WHEN FND_API.g_exc_unexpected_error THEN
3272: x_return_status := FND_API.g_ret_sts_unexp_error;
3273: WHEN OTHERS THEN
3266: END IF;
3267:
3268: EXCEPTION
3269: WHEN FND_API.g_exc_error THEN
3270: x_return_status := FND_API.g_ret_sts_error;
3271: WHEN FND_API.g_exc_unexpected_error THEN
3272: x_return_status := FND_API.g_ret_sts_unexp_error;
3273: WHEN OTHERS THEN
3274: x_return_status := FND_API.g_ret_sts_unexp_error;
3267:
3268: EXCEPTION
3269: WHEN FND_API.g_exc_error THEN
3270: x_return_status := FND_API.g_ret_sts_error;
3271: WHEN FND_API.g_exc_unexpected_error THEN
3272: x_return_status := FND_API.g_ret_sts_unexp_error;
3273: WHEN OTHERS THEN
3274: x_return_status := FND_API.g_ret_sts_unexp_error;
3275: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3268: EXCEPTION
3269: WHEN FND_API.g_exc_error THEN
3270: x_return_status := FND_API.g_ret_sts_error;
3271: WHEN FND_API.g_exc_unexpected_error THEN
3272: x_return_status := FND_API.g_ret_sts_unexp_error;
3273: WHEN OTHERS THEN
3274: x_return_status := FND_API.g_ret_sts_unexp_error;
3275: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3276: IF (g_debug_unexp) THEN
3270: x_return_status := FND_API.g_ret_sts_error;
3271: WHEN FND_API.g_exc_unexpected_error THEN
3272: x_return_status := FND_API.g_ret_sts_unexp_error;
3273: WHEN OTHERS THEN
3274: x_return_status := FND_API.g_ret_sts_unexp_error;
3275: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3276: IF (g_debug_unexp) THEN
3277: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3278: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3289: * list.
3290: * Effects: Updates the note_to_vendor column of PO_HEADERS, PO_LINES, or
3291: * PO_RELEASES depending upon p_doc_type. If p_doc_line_id is not NULL and the
3292: * document is not a RELEASE, then updates PO_LINES. All changes will be
3293: * committed upon success if p_commit is FND_API.G_TRUE. Appends to API
3294: * message list on error.
3295: * Returns:
3296: * x_return_status - FND_API.G_RET_STS_SUCCESS if the update was successful
3297: * FND_API.G_RET_STS_ERROR if no update was made
3292: * document is not a RELEASE, then updates PO_LINES. All changes will be
3293: * committed upon success if p_commit is FND_API.G_TRUE. Appends to API
3294: * message list on error.
3295: * Returns:
3296: * x_return_status - FND_API.G_RET_STS_SUCCESS if the update was successful
3297: * FND_API.G_RET_STS_ERROR if no update was made
3298: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3299: */
3300: PROCEDURE update_note_to_vendor
3293: * committed upon success if p_commit is FND_API.G_TRUE. Appends to API
3294: * message list on error.
3295: * Returns:
3296: * x_return_status - FND_API.G_RET_STS_SUCCESS if the update was successful
3297: * FND_API.G_RET_STS_ERROR if no update was made
3298: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3299: */
3300: PROCEDURE update_note_to_vendor
3301: (p_api_version IN NUMBER,
3294: * message list on error.
3295: * Returns:
3296: * x_return_status - FND_API.G_RET_STS_SUCCESS if the update was successful
3297: * FND_API.G_RET_STS_ERROR if no update was made
3298: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3299: */
3300: PROCEDURE update_note_to_vendor
3301: (p_api_version IN NUMBER,
3302: p_init_msg_list IN VARCHAR2,
3313:
3314: BEGIN
3315: -- Start standard API initialization
3316: SAVEPOINT update_note_to_vendor_PVT;
3317: IF FND_API.to_boolean(p_init_msg_list) THEN
3318: FND_MSG_PUB.initialize;
3319: END IF;
3320: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3321: l_api_name, g_pkg_name)
3316: SAVEPOINT update_note_to_vendor_PVT;
3317: IF FND_API.to_boolean(p_init_msg_list) THEN
3318: FND_MSG_PUB.initialize;
3319: END IF;
3320: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3321: l_api_name, g_pkg_name)
3322: THEN
3323: RAISE FND_API.g_exc_unexpected_error;
3324: END IF;
3319: END IF;
3320: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3321: l_api_name, g_pkg_name)
3322: THEN
3323: RAISE FND_API.g_exc_unexpected_error;
3324: END IF;
3325: x_return_status := FND_API.g_ret_sts_success;
3326: -- End standard API initialization
3327:
3321: l_api_name, g_pkg_name)
3322: THEN
3323: RAISE FND_API.g_exc_unexpected_error;
3324: END IF;
3325: x_return_status := FND_API.g_ret_sts_success;
3326: -- End standard API initialization
3327:
3328: IF (g_debug_stmt) THEN
3329: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
3352: '.invalid_document', FALSE);
3353: END IF;
3354: END IF;
3355: FND_MSG_PUB.add;
3356: RAISE FND_API.g_exc_error;
3357: END IF;
3358: --
3359:
3360: /* Bug 2781710: We should update the note_to_vendor column
3384: '.invalid_document', FALSE);
3385: END IF;
3386: END IF;
3387: FND_MSG_PUB.add;
3388: RAISE FND_API.g_exc_error;
3389: END IF;
3390: --
3391:
3392: /* Bug 2781710: We should update the note_to_vendor column
3416: '.invalid_document', FALSE);
3417: END IF;
3418: END IF;
3419: FND_MSG_PUB.add;
3420: RAISE FND_API.g_exc_error;
3421: END IF;
3422: --
3423:
3424: /* Bug 2781710: We should update the note_to_vendor column
3440: '.invalid_doc_type', FALSE);
3441: END IF;
3442: END IF;
3443: FND_MSG_PUB.add;
3444: RAISE FND_API.g_exc_error;
3445:
3446: END IF; --
3447:
3448: -- Standard API check of p_commit
3445:
3446: END IF; --
3447:
3448: -- Standard API check of p_commit
3449: IF FND_API.to_boolean(p_commit) THEN
3450: COMMIT WORK;
3451: END IF;
3452: EXCEPTION
3453: WHEN FND_API.g_exc_error THEN
3449: IF FND_API.to_boolean(p_commit) THEN
3450: COMMIT WORK;
3451: END IF;
3452: EXCEPTION
3453: WHEN FND_API.g_exc_error THEN
3454: ROLLBACK TO update_note_to_vendor_PVT;
3455: x_return_status := FND_API.g_ret_sts_error;
3456: WHEN FND_API.g_exc_unexpected_error THEN
3457: ROLLBACK TO update_note_to_vendor_PVT;
3451: END IF;
3452: EXCEPTION
3453: WHEN FND_API.g_exc_error THEN
3454: ROLLBACK TO update_note_to_vendor_PVT;
3455: x_return_status := FND_API.g_ret_sts_error;
3456: WHEN FND_API.g_exc_unexpected_error THEN
3457: ROLLBACK TO update_note_to_vendor_PVT;
3458: x_return_status := FND_API.g_ret_sts_unexp_error;
3459: WHEN OTHERS THEN
3452: EXCEPTION
3453: WHEN FND_API.g_exc_error THEN
3454: ROLLBACK TO update_note_to_vendor_PVT;
3455: x_return_status := FND_API.g_ret_sts_error;
3456: WHEN FND_API.g_exc_unexpected_error THEN
3457: ROLLBACK TO update_note_to_vendor_PVT;
3458: x_return_status := FND_API.g_ret_sts_unexp_error;
3459: WHEN OTHERS THEN
3460: ROLLBACK TO update_note_to_vendor_PVT;
3454: ROLLBACK TO update_note_to_vendor_PVT;
3455: x_return_status := FND_API.g_ret_sts_error;
3456: WHEN FND_API.g_exc_unexpected_error THEN
3457: ROLLBACK TO update_note_to_vendor_PVT;
3458: x_return_status := FND_API.g_ret_sts_unexp_error;
3459: WHEN OTHERS THEN
3460: ROLLBACK TO update_note_to_vendor_PVT;
3461: x_return_status := FND_API.g_ret_sts_unexp_error;
3462: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3457: ROLLBACK TO update_note_to_vendor_PVT;
3458: x_return_status := FND_API.g_ret_sts_unexp_error;
3459: WHEN OTHERS THEN
3460: ROLLBACK TO update_note_to_vendor_PVT;
3461: x_return_status := FND_API.g_ret_sts_unexp_error;
3462: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3463: IF (g_debug_unexp) THEN
3464: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3465: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3477: * or act upon this document. Appends to API message list on error.
3478: * Returns:
3479: * TRUE - if the check passes
3480: * FALSE - otherwise, or if an error occurs
3481: * x_return_status - FND_API.G_RET_STS_SUCCESS if no error occurs
3482: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3483: */
3484: FUNCTION pass_security_check
3485: (p_api_version IN NUMBER,
3478: * Returns:
3479: * TRUE - if the check passes
3480: * FALSE - otherwise, or if an error occurs
3481: * x_return_status - FND_API.G_RET_STS_SUCCESS if no error occurs
3482: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3483: */
3484: FUNCTION pass_security_check
3485: (p_api_version IN NUMBER,
3486: p_init_msg_list IN VARCHAR2,
3498: l_return_value BOOLEAN;
3499:
3500: BEGIN
3501: -- Start standard API initialization
3502: IF FND_API.to_boolean(p_init_msg_list) THEN
3503: FND_MSG_PUB.initialize;
3504: END IF;
3505: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3506: l_api_name, g_pkg_name)
3501: -- Start standard API initialization
3502: IF FND_API.to_boolean(p_init_msg_list) THEN
3503: FND_MSG_PUB.initialize;
3504: END IF;
3505: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3506: l_api_name, g_pkg_name)
3507: THEN
3508: RAISE FND_API.g_exc_unexpected_error;
3509: END IF;
3504: END IF;
3505: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3506: l_api_name, g_pkg_name)
3507: THEN
3508: RAISE FND_API.g_exc_unexpected_error;
3509: END IF;
3510: x_return_status := FND_API.g_ret_sts_success;
3511: -- End standard API initialization
3512:
3506: l_api_name, g_pkg_name)
3507: THEN
3508: RAISE FND_API.g_exc_unexpected_error;
3509: END IF;
3510: x_return_status := FND_API.g_ret_sts_success;
3511: -- End standard API initialization
3512:
3513: IF (g_debug_stmt) THEN
3514: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
3542: x_agent_id => p_agent_id,
3543: x_doc_type => p_doc_type,
3544: x_doc_subtype => p_doc_subtype);
3545: EXCEPTION
3546: WHEN FND_API.g_exc_unexpected_error THEN
3547: x_return_status := FND_API.g_ret_sts_unexp_error;
3548: RETURN FALSE;
3549: WHEN OTHERS THEN
3550: x_return_status := FND_API.g_ret_sts_unexp_error;
3543: x_doc_type => p_doc_type,
3544: x_doc_subtype => p_doc_subtype);
3545: EXCEPTION
3546: WHEN FND_API.g_exc_unexpected_error THEN
3547: x_return_status := FND_API.g_ret_sts_unexp_error;
3548: RETURN FALSE;
3549: WHEN OTHERS THEN
3550: x_return_status := FND_API.g_ret_sts_unexp_error;
3551: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3546: WHEN FND_API.g_exc_unexpected_error THEN
3547: x_return_status := FND_API.g_ret_sts_unexp_error;
3548: RETURN FALSE;
3549: WHEN OTHERS THEN
3550: x_return_status := FND_API.g_ret_sts_unexp_error;
3551: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3552: IF (g_debug_unexp) THEN
3553: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3554: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3567: * or finally closed. Appends to API message list on error.
3568: * Returns:
3569: * TRUE - if the check passes
3570: * FALSE - otherwise, or if an error occurs
3571: * x_return_status - FND_API.G_RET_STS_SUCCESS if no error occurs
3572: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3573: */
3574: FUNCTION has_shipments
3575: (p_api_version IN NUMBER,
3568: * Returns:
3569: * TRUE - if the check passes
3570: * FALSE - otherwise, or if an error occurs
3571: * x_return_status - FND_API.G_RET_STS_SUCCESS if no error occurs
3572: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3573: */
3574: FUNCTION has_shipments
3575: (p_api_version IN NUMBER,
3576: p_init_msg_list IN VARCHAR2,
3607: l_return_value BOOLEAN;
3608:
3609: BEGIN
3610: -- Start standard API initialization
3611: IF FND_API.to_boolean(p_init_msg_list) THEN
3612: FND_MSG_PUB.initialize;
3613: END IF;
3614: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3615: l_api_name, g_pkg_name)
3610: -- Start standard API initialization
3611: IF FND_API.to_boolean(p_init_msg_list) THEN
3612: FND_MSG_PUB.initialize;
3613: END IF;
3614: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3615: l_api_name, g_pkg_name)
3616: THEN
3617: RAISE FND_API.g_exc_unexpected_error;
3618: END IF;
3613: END IF;
3614: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3615: l_api_name, g_pkg_name)
3616: THEN
3617: RAISE FND_API.g_exc_unexpected_error;
3618: END IF;
3619: x_return_status := FND_API.g_ret_sts_success;
3620: -- End standard API initialization
3621:
3615: l_api_name, g_pkg_name)
3616: THEN
3617: RAISE FND_API.g_exc_unexpected_error;
3618: END IF;
3619: x_return_status := FND_API.g_ret_sts_success;
3620: -- End standard API initialization
3621:
3622: IF (g_debug_stmt) THEN
3623: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
3646:
3647: RETURN l_return_value;
3648:
3649: EXCEPTION
3650: WHEN FND_API.g_exc_unexpected_error THEN
3651: x_return_status := FND_API.g_ret_sts_unexp_error;
3652: IF l_has_ship_csr%ISOPEN THEN
3653: CLOSE l_has_ship_csr;
3654: END IF;
3647: RETURN l_return_value;
3648:
3649: EXCEPTION
3650: WHEN FND_API.g_exc_unexpected_error THEN
3651: x_return_status := FND_API.g_ret_sts_unexp_error;
3652: IF l_has_ship_csr%ISOPEN THEN
3653: CLOSE l_has_ship_csr;
3654: END IF;
3655: IF l_has_rel_ship_csr%ISOPEN THEN
3656: CLOSE l_has_rel_ship_csr;
3657: END IF;
3658: RETURN FALSE;
3659: WHEN OTHERS THEN
3660: x_return_status := FND_API.g_ret_sts_unexp_error;
3661: IF l_has_ship_csr%ISOPEN THEN
3662: CLOSE l_has_ship_csr;
3663: END IF;
3664: IF l_has_rel_ship_csr%ISOPEN THEN
3682: * cancelled or finally closed. Appends to API message list on error.
3683: * Returns:
3684: * TRUE - if the check passes
3685: * FALSE - otherwise, or if an error occurred
3686: * x_return_status - FND_API.G_RET_STS_SUCCESS if no error occurs
3687: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3688: */
3689: FUNCTION has_unencumbered_shipments
3690: (p_api_version IN NUMBER,
3683: * Returns:
3684: * TRUE - if the check passes
3685: * FALSE - otherwise, or if an error occurred
3686: * x_return_status - FND_API.G_RET_STS_SUCCESS if no error occurs
3687: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3688: */
3689: FUNCTION has_unencumbered_shipments
3690: (p_api_version IN NUMBER,
3691: p_init_msg_list IN VARCHAR2,
3703: l_fully_reserved_flag VARCHAR2(1);
3704:
3705: BEGIN
3706: -- Start standard API initialization
3707: IF FND_API.to_boolean(p_init_msg_list) THEN
3708: FND_MSG_PUB.initialize;
3709: END IF;
3710: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3711: l_api_name, g_pkg_name)
3706: -- Start standard API initialization
3707: IF FND_API.to_boolean(p_init_msg_list) THEN
3708: FND_MSG_PUB.initialize;
3709: END IF;
3710: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3711: l_api_name, g_pkg_name)
3712: THEN
3713: RAISE FND_API.g_exc_unexpected_error;
3714: END IF;
3709: END IF;
3710: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3711: l_api_name, g_pkg_name)
3712: THEN
3713: RAISE FND_API.g_exc_unexpected_error;
3714: END IF;
3715: x_return_status := FND_API.g_ret_sts_success;
3716: -- End standard API initialization
3717:
3711: l_api_name, g_pkg_name)
3712: THEN
3713: RAISE FND_API.g_exc_unexpected_error;
3714: END IF;
3715: x_return_status := FND_API.g_ret_sts_success;
3716: -- End standard API initialization
3717:
3718: IF (g_debug_stmt) THEN
3719: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
3740:
3741: RETURN l_return_value;
3742:
3743: EXCEPTION
3744: WHEN FND_API.g_exc_unexpected_error THEN
3745: x_return_status := FND_API.g_ret_sts_unexp_error;
3746: RETURN FALSE;
3747: WHEN OTHERS THEN
3748: x_return_status := FND_API.g_ret_sts_unexp_error;
3741: RETURN l_return_value;
3742:
3743: EXCEPTION
3744: WHEN FND_API.g_exc_unexpected_error THEN
3745: x_return_status := FND_API.g_ret_sts_unexp_error;
3746: RETURN FALSE;
3747: WHEN OTHERS THEN
3748: x_return_status := FND_API.g_ret_sts_unexp_error;
3749: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3744: WHEN FND_API.g_exc_unexpected_error THEN
3745: x_return_status := FND_API.g_ret_sts_unexp_error;
3746: RETURN FALSE;
3747: WHEN OTHERS THEN
3748: x_return_status := FND_API.g_ret_sts_unexp_error;
3749: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3750: IF (g_debug_unexp) THEN
3751: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3752: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3764: * message list on error.
3765: * Returns:
3766: * TRUE - if the check passes
3767: * FALSE - otherwise, or if an error occurred
3768: * x_return_status - FND_API.G_RET_STS_SUCCESS if no error occurs
3769: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3770: */
3771: FUNCTION in_open_gl_period
3772: (p_api_version IN NUMBER,
3765: * Returns:
3766: * TRUE - if the check passes
3767: * FALSE - otherwise, or if an error occurred
3768: * x_return_status - FND_API.G_RET_STS_SUCCESS if no error occurs
3769: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3770: */
3771: FUNCTION in_open_gl_period
3772: (p_api_version IN NUMBER,
3773: p_init_msg_list IN VARCHAR2,
3802: l_return_value BOOLEAN;
3803:
3804: BEGIN
3805: -- Start standard API initialization
3806: IF FND_API.to_boolean(p_init_msg_list) THEN
3807: FND_MSG_PUB.initialize;
3808: END IF;
3809: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3810: l_api_name, g_pkg_name)
3805: -- Start standard API initialization
3806: IF FND_API.to_boolean(p_init_msg_list) THEN
3807: FND_MSG_PUB.initialize;
3808: END IF;
3809: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3810: l_api_name, g_pkg_name)
3811: THEN
3812: RAISE FND_API.g_exc_unexpected_error;
3813: END IF;
3808: END IF;
3809: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3810: l_api_name, g_pkg_name)
3811: THEN
3812: RAISE FND_API.g_exc_unexpected_error;
3813: END IF;
3814: x_return_status := FND_API.g_ret_sts_success;
3815: -- End standard API initialization
3816:
3810: l_api_name, g_pkg_name)
3811: THEN
3812: RAISE FND_API.g_exc_unexpected_error;
3813: END IF;
3814: x_return_status := FND_API.g_ret_sts_success;
3815: -- End standard API initialization
3816:
3817: IF (g_debug_stmt) THEN
3818: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
3832:
3833: RETURN l_return_value;
3834:
3835: EXCEPTION
3836: WHEN FND_API.g_exc_unexpected_error THEN
3837: x_return_status := FND_API.g_ret_sts_unexp_error;
3838: IF l_gl_period_csr%ISOPEN THEN
3839: CLOSE l_gl_period_csr;
3840: END IF;
3833: RETURN l_return_value;
3834:
3835: EXCEPTION
3836: WHEN FND_API.g_exc_unexpected_error THEN
3837: x_return_status := FND_API.g_ret_sts_unexp_error;
3838: IF l_gl_period_csr%ISOPEN THEN
3839: CLOSE l_gl_period_csr;
3840: END IF;
3841: RETURN FALSE;
3839: CLOSE l_gl_period_csr;
3840: END IF;
3841: RETURN FALSE;
3842: WHEN OTHERS THEN
3843: x_return_status := FND_API.g_ret_sts_unexp_error;
3844: IF l_gl_period_csr%ISOPEN THEN
3845: CLOSE l_gl_period_csr;
3846: END IF;
3847: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3862: * Effects: Retrieves all text lines from PO_ONLINE_REPORT_TEXT for
3863: * p_online_report_id, and appends each one to the API message list. Does not
3864: * append to API message list upon expected error, just unexpected error.
3865: * Returns:
3866: * x_return_status - FND_API.G_RET_STS_SUCCESS if all messages are appended
3867: * FND_API.G_RET_STS_ERROR if an error occurs
3868: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3869: */
3870: PROCEDURE add_online_report_msgs
3863: * p_online_report_id, and appends each one to the API message list. Does not
3864: * append to API message list upon expected error, just unexpected error.
3865: * Returns:
3866: * x_return_status - FND_API.G_RET_STS_SUCCESS if all messages are appended
3867: * FND_API.G_RET_STS_ERROR if an error occurs
3868: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3869: */
3870: PROCEDURE add_online_report_msgs
3871: (p_api_version IN NUMBER,
3864: * append to API message list upon expected error, just unexpected error.
3865: * Returns:
3866: * x_return_status - FND_API.G_RET_STS_SUCCESS if all messages are appended
3867: * FND_API.G_RET_STS_ERROR if an error occurs
3868: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3869: */
3870: PROCEDURE add_online_report_msgs
3871: (p_api_version IN NUMBER,
3872: p_init_msg_list IN VARCHAR2,
3885: l_text_line_tbl text_line_tbl_type;
3886:
3887: BEGIN
3888: -- Start standard API initialization
3889: IF FND_API.to_boolean(p_init_msg_list) THEN
3890: FND_MSG_PUB.initialize;
3891: END IF;
3892: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3893: l_api_name, g_pkg_name)
3888: -- Start standard API initialization
3889: IF FND_API.to_boolean(p_init_msg_list) THEN
3890: FND_MSG_PUB.initialize;
3891: END IF;
3892: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3893: l_api_name, g_pkg_name)
3894: THEN
3895: RAISE FND_API.g_exc_unexpected_error;
3896: END IF;
3891: END IF;
3892: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3893: l_api_name, g_pkg_name)
3894: THEN
3895: RAISE FND_API.g_exc_unexpected_error;
3896: END IF;
3897: x_return_status := FND_API.g_ret_sts_success;
3898: -- End standard API initialization
3899:
3893: l_api_name, g_pkg_name)
3894: THEN
3895: RAISE FND_API.g_exc_unexpected_error;
3896: END IF;
3897: x_return_status := FND_API.g_ret_sts_success;
3898: -- End standard API initialization
3899:
3900: IF (g_debug_stmt) THEN
3901: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
3925: EXIT WHEN l_get_online_report_csr%NOTFOUND;
3926: END LOOP;
3927:
3928: IF (l_get_online_report_csr%ROWCOUNT = 0) THEN
3929: RAISE FND_API.g_exc_error;
3930: END IF;
3931: EXCEPTION
3932: WHEN FND_API.g_exc_error THEN
3933: x_return_status := FND_API.g_ret_sts_error;
3928: IF (l_get_online_report_csr%ROWCOUNT = 0) THEN
3929: RAISE FND_API.g_exc_error;
3930: END IF;
3931: EXCEPTION
3932: WHEN FND_API.g_exc_error THEN
3933: x_return_status := FND_API.g_ret_sts_error;
3934: WHEN FND_API.g_exc_unexpected_error THEN
3935: x_return_status := FND_API.g_ret_sts_unexp_error;
3936: WHEN OTHERS THEN
3929: RAISE FND_API.g_exc_error;
3930: END IF;
3931: EXCEPTION
3932: WHEN FND_API.g_exc_error THEN
3933: x_return_status := FND_API.g_ret_sts_error;
3934: WHEN FND_API.g_exc_unexpected_error THEN
3935: x_return_status := FND_API.g_ret_sts_unexp_error;
3936: WHEN OTHERS THEN
3937: x_return_status := FND_API.g_ret_sts_unexp_error;
3930: END IF;
3931: EXCEPTION
3932: WHEN FND_API.g_exc_error THEN
3933: x_return_status := FND_API.g_ret_sts_error;
3934: WHEN FND_API.g_exc_unexpected_error THEN
3935: x_return_status := FND_API.g_ret_sts_unexp_error;
3936: WHEN OTHERS THEN
3937: x_return_status := FND_API.g_ret_sts_unexp_error;
3938: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3931: EXCEPTION
3932: WHEN FND_API.g_exc_error THEN
3933: x_return_status := FND_API.g_ret_sts_error;
3934: WHEN FND_API.g_exc_unexpected_error THEN
3935: x_return_status := FND_API.g_ret_sts_unexp_error;
3936: WHEN OTHERS THEN
3937: x_return_status := FND_API.g_ret_sts_unexp_error;
3938: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3939: IF (g_debug_unexp) THEN
3933: x_return_status := FND_API.g_ret_sts_error;
3934: WHEN FND_API.g_exc_unexpected_error THEN
3935: x_return_status := FND_API.g_ret_sts_unexp_error;
3936: WHEN OTHERS THEN
3937: x_return_status := FND_API.g_ret_sts_unexp_error;
3938: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3939: IF (g_debug_unexp) THEN
3940: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3941: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
4008: PO_LOG.proc_begin(d_module,'p_doc_subtype',p_doc_subtype);
4009: END IF;
4010: d_pos := 10;
4011: --Initialising the variables to default value
4012: x_return_status := FND_API.g_ret_sts_success;
4013: l_current_entity_changed := 'N';
4014:
4015: IF p_control_action like 'CANCEL%' THEN
4016:
4025: p_line_location_id => p_doc_line_loc_id,
4026: x_different => l_current_entity_changed,
4027: x_return_status => x_return_status);
4028: d_pos := 30;
4029: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4031: end if;
4032: d_pos := 40;
4033: if nvl(l_current_entity_changed, 'N') = 'Y' then
4026: x_different => l_current_entity_changed,
4027: x_return_status => x_return_status);
4028: d_pos := 30;
4029: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4031: end if;
4032: d_pos := 40;
4033: if nvl(l_current_entity_changed, 'N') = 'Y' then
4034: FND_MESSAGE.set_name('PO','PO_CHANGED_CANT_CANCEL');
4035: FND_MSG_PUB.add;
4036: IF PO_LOG.d_exc THEN
4037: PO_LOG.exc(d_module,d_pos,'Current record does not match with record in Archive');
4038: END IF;
4039: RAISE FND_API.G_EXC_ERROR;
4040: end if;
4041: end if; --p_control_action like 'CANCEL%'
4042:
4043: -- For cancel or finally close on Standard POs, call the OTL API to check
4064: p_field_value => l_otl_field_value,
4065: p_end_date => NULL,
4066: x_timecard_exists => l_timecard_exists);
4067: d_pos := 70;
4068: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4070: END IF;
4071: d_pos := 80;
4072: IF (l_timecard_exists) THEN
4065: p_end_date => NULL,
4066: x_timecard_exists => l_timecard_exists);
4067: d_pos := 70;
4068: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4070: END IF;
4071: d_pos := 80;
4072: IF (l_timecard_exists) THEN
4073: FND_MESSAGE.set_name('PO','PO_CONTROL_OTL_INVALID_ACTION');
4074: FND_MSG_PUB.add;
4075: IF PO_LOG.d_exc THEN
4076: PO_LOG.exc(d_module,d_pos,'Document with timecard cannot be Cancelled or Finally Closed');
4077: END IF;
4078: RAISE FND_API.G_EXC_ERROR;
4079: END IF; -- IF(l_timecard_exists) THEN
4080: END IF; --p_doc_subtype = 'STANDARD'
4081: d_pos := 90;
4082: IF (PO_LOG.d_proc) THEN
4082: IF (PO_LOG.d_proc) THEN
4083: PO_LOG.proc_end(d_module);
4084: END IF;
4085: EXCEPTION
4086: WHEN FND_API.g_exc_error THEN
4087: x_return_status := FND_API.g_ret_sts_error;
4088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4090: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4083: PO_LOG.proc_end(d_module);
4084: END IF;
4085: EXCEPTION
4086: WHEN FND_API.g_exc_error THEN
4087: x_return_status := FND_API.g_ret_sts_error;
4088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4090: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4091: IF PO_LOG.d_exc THEN
4084: END IF;
4085: EXCEPTION
4086: WHEN FND_API.g_exc_error THEN
4087: x_return_status := FND_API.g_ret_sts_error;
4088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4090: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4091: IF PO_LOG.d_exc THEN
4092: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4085: EXCEPTION
4086: WHEN FND_API.g_exc_error THEN
4087: x_return_status := FND_API.g_ret_sts_error;
4088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4090: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4091: IF PO_LOG.d_exc THEN
4092: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4093: END IF;
4091: IF PO_LOG.d_exc THEN
4092: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4093: END IF;
4094: WHEN OTHERS THEN
4095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4096: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
4097: IF PO_LOG.d_exc THEN
4098: PO_LOG.exc(d_module,d_pos,'Unhandled Exception in' || d_module);
4099: END IF;
4225: d_pos := 10;
4226: --initialise the out variables to default value
4227: l_online_report_id := NULL;
4228: l_return_code := NULL;
4229: x_return_status := FND_API.g_ret_sts_success;
4230: x_approval_initiated := 'N';
4231: x_cancel_req_flag_reset := 'N';
4232: x_is_encumbrance_error := 'N'; -- Bug 5000165
4233:
4260: d_pos := 30;
4261: --PO_RESERVATION_MAINTAIN_SV.maintain_reservation nullifies the
4262: -- x_return_status
4263: IF(x_return_status is null) THEN
4264: x_return_status := FND_API.g_ret_sts_success;
4265: END IF;
4266: d_pos := 40;
4267: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4263: IF(x_return_status is null) THEN
4264: x_return_status := FND_API.g_ret_sts_success;
4265: END IF;
4266: d_pos := 40;
4267: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4269: END IF;
4270:
4271: --Update cbc_accounting_date for Finally Close actions
4264: x_return_status := FND_API.g_ret_sts_success;
4265: END IF;
4266: d_pos := 40;
4267: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4269: END IF;
4270:
4271: --Update cbc_accounting_date for Finally Close actions
4272: IF (IGC_CBC_PO_GRP.cbc_po_enabled_flag = 'Y') THEN
4272: IF (IGC_CBC_PO_GRP.cbc_po_enabled_flag = 'Y') THEN
4273: d_pos := 50;
4274: IGC_CBC_PO_GRP.update_cbc_acct_date(
4275: p_api_version => 1.0
4276: ,p_init_msg_list => FND_API.G_FALSE
4277: ,p_commit => FND_API.G_FALSE
4278: ,p_validation_level => 100
4279: ,x_return_status => x_return_status
4280: ,x_msg_count => l_msg_count
4273: d_pos := 50;
4274: IGC_CBC_PO_GRP.update_cbc_acct_date(
4275: p_api_version => 1.0
4276: ,p_init_msg_list => FND_API.G_FALSE
4277: ,p_commit => FND_API.G_FALSE
4278: ,p_validation_level => 100
4279: ,x_return_status => x_return_status
4280: ,x_msg_count => l_msg_count
4281: ,x_msg_data => l_msg_data
4287: d_pos := 60;
4288: IF (PO_LOG.d_stmt) THEN
4289: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4290: END IF;
4291: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4293: END IF;
4294: END IF; --IGC_CBC_PO_GRP.cbc_po_enabled_flag = 'Y'
4295:
4288: IF (PO_LOG.d_stmt) THEN
4289: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4290: END IF;
4291: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4293: END IF;
4294: END IF; --IGC_CBC_PO_GRP.cbc_po_enabled_flag = 'Y'
4295:
4296: -- call to Contracts API to cancel deliverables only on the header level
4339: d_pos := 100;
4340: IF (PO_LOG.d_stmt) THEN
4341: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4342: END IF;
4343: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4344: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4345: END IF;
4346: END IF; -- conterms exist
4347: END IF;--p_doc_level = 'HEADER'
4340: IF (PO_LOG.d_stmt) THEN
4341: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4342: END IF;
4343: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4344: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4345: END IF;
4346: END IF; -- conterms exist
4347: END IF;--p_doc_level = 'HEADER'
4348: END IF;--p_control_action = 'FINALLY CLOSE'
4371: END IF;
4372:
4373: PO_DOCUMENT_CONTROL_PVT.control_document(
4374: p_api_version => 1.0
4375: ,p_init_msg_list => FND_API.G_FALSE
4376: ,p_commit => FND_API.G_FALSE
4377: ,x_return_status => x_return_status
4378: ,p_doc_type => p_doc_type
4379: ,p_doc_subtype => p_doc_subtype
4372:
4373: PO_DOCUMENT_CONTROL_PVT.control_document(
4374: p_api_version => 1.0
4375: ,p_init_msg_list => FND_API.G_FALSE
4376: ,p_commit => FND_API.G_FALSE
4377: ,x_return_status => x_return_status
4378: ,p_doc_type => p_doc_type
4379: ,p_doc_subtype => p_doc_subtype
4380: ,p_doc_id => p_doc_header_id
4397: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4398: END IF;
4399: -- If the procedure does not complete successfully raise the
4400: -- appropriate exception
4401: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4402: RAISE FND_API.g_exc_error;
4403: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4404: RAISE FND_API.g_exc_unexpected_error;
4405: END IF;
4398: END IF;
4399: -- If the procedure does not complete successfully raise the
4400: -- appropriate exception
4401: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4402: RAISE FND_API.g_exc_error;
4403: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4404: RAISE FND_API.g_exc_unexpected_error;
4405: END IF;
4406:
4399: -- If the procedure does not complete successfully raise the
4400: -- appropriate exception
4401: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4402: RAISE FND_API.g_exc_error;
4403: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4404: RAISE FND_API.g_exc_unexpected_error;
4405: END IF;
4406:
4407: ELSIF (p_control_action = PO_DOCUMENT_ACTION_PVT.g_doc_action_HOLD) THEN --Hold
4400: -- appropriate exception
4401: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4402: RAISE FND_API.g_exc_error;
4403: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4404: RAISE FND_API.g_exc_unexpected_error;
4405: END IF;
4406:
4407: ELSIF (p_control_action = PO_DOCUMENT_ACTION_PVT.g_doc_action_HOLD) THEN --Hold
4408: d_pos := 140;
4489: PO_LOG.stmt(d_module,d_pos,'l_exc_msg',l_exc_msg);
4490: PO_LOG.stmt(d_module,d_pos,'l_online_report_id',l_online_report_id);
4491: END IF;
4492:
4493: IF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4494: IF (l_return_code = 'STATE_FAILED') THEN
4495: d_pos := 210;
4496: -- The document state was not valid for this control action
4497: FND_MESSAGE.set_name('PO','PO_APP_APP_FAILED');
4495: d_pos := 210;
4496: -- The document state was not valid for this control action
4497: FND_MESSAGE.set_name('PO','PO_APP_APP_FAILED');
4498: FND_MSG_PUB.add;
4499: RAISE FND_API.g_exc_error;
4500: ELSIF (l_return_code = 'SUBMISSION_FAILED') THEN
4501: d_pos := 220;
4502: -- Submission check failed for final close action
4503: IF l_online_report_id IS NULL THEN
4509: d_pos := 230;
4510: --Add all the messages to the message list
4511: PO_Document_Control_PVT.add_online_report_msgs(
4512: p_api_version => 1.0
4513: ,p_init_msg_list => FND_API.G_FALSE
4514: ,x_return_status => x_return_status
4515: ,p_online_report_id => l_online_report_id);
4516: END IF; --l_online_report_id IS NULL
4517: RAISE FND_API.g_exc_error;
4513: ,p_init_msg_list => FND_API.G_FALSE
4514: ,x_return_status => x_return_status
4515: ,p_online_report_id => l_online_report_id);
4516: END IF; --l_online_report_id IS NULL
4517: RAISE FND_API.g_exc_error;
4518: -- Bug 5000165 START
4519: -- For Encumbrance errors, we do not need to put the messages into the
4520: -- online report table, since we will be showing the PSA Budgetary Control
4521: -- Results page.
4528: d_pos := 240;
4529: IF (l_exc_msg IS NOT NULL) THEN
4530: PO_LOG.exc(d_module,d_pos,l_exc_msg);
4531: END IF;
4532: RAISE FND_API.g_exc_unexpected_error;
4533: END IF;--x_return_status = FND_API.G_RET_STS_SUCCESS
4534: d_pos := 250;
4535:
4536: --g_approval_initiated_flag global variable set to true after
4529: IF (l_exc_msg IS NOT NULL) THEN
4530: PO_LOG.exc(d_module,d_pos,l_exc_msg);
4531: END IF;
4532: RAISE FND_API.g_exc_unexpected_error;
4533: END IF;--x_return_status = FND_API.G_RET_STS_SUCCESS
4534: d_pos := 250;
4535:
4536: --g_approval_initiated_flag global variable set to true after
4537: --PO_REQAPPROVAL_INIT1.start_wf_process is called
4548: PO_LOG.stmt(d_module,d_pos,'x_approval_initiated',x_approval_initiated);
4549: END IF;
4550: d_pos := 260;
4551: EXCEPTION
4552: WHEN FND_API.g_exc_error THEN
4553: x_return_status := FND_API.g_ret_sts_error;
4554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4555: x_return_status := FND_API.g_ret_sts_unexp_error;
4556: IF PO_LOG.d_exc THEN
4549: END IF;
4550: d_pos := 260;
4551: EXCEPTION
4552: WHEN FND_API.g_exc_error THEN
4553: x_return_status := FND_API.g_ret_sts_error;
4554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4555: x_return_status := FND_API.g_ret_sts_unexp_error;
4556: IF PO_LOG.d_exc THEN
4557: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4550: d_pos := 260;
4551: EXCEPTION
4552: WHEN FND_API.g_exc_error THEN
4553: x_return_status := FND_API.g_ret_sts_error;
4554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4555: x_return_status := FND_API.g_ret_sts_unexp_error;
4556: IF PO_LOG.d_exc THEN
4557: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4558: IF FND_MSG_PUB.count_msg = 0 THEN
4551: EXCEPTION
4552: WHEN FND_API.g_exc_error THEN
4553: x_return_status := FND_API.g_ret_sts_error;
4554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4555: x_return_status := FND_API.g_ret_sts_unexp_error;
4556: IF PO_LOG.d_exc THEN
4557: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4558: IF FND_MSG_PUB.count_msg = 0 THEN
4559: FND_MESSAGE.set_name('PO','PO_DOC_CONTROL_ACTION_FAILED');
4562: FND_MSG_PUB.add;
4563: END IF;
4564: END IF;
4565: WHEN OTHERS THEN
4566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4567: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
4568: IF PO_LOG.d_exc THEN
4569: PO_LOG.exc(d_module,d_pos,'Unhandled Exception in' || d_module);
4570: END IF;
4682: PO_LOG.proc_begin(d_module,'p_communication_method',p_communication_method);
4683: PO_LOG.proc_begin(d_module,'p_communication_value',p_communication_value);
4684: PO_LOG.proc_begin(d_module,'p_cancel_reqs',p_cancel_reqs);
4685: END IF;
4686: x_return_status := FND_API.G_RET_STS_SUCCESS;
4687: l_mode := UPPER(p_mode);
4688:
4689: -- Standard start of API savepoint
4690: SAVEPOINT PROCESS_DOC_CONTROL_ACTION;
4690: SAVEPOINT PROCESS_DOC_CONTROL_ACTION;
4691: d_pos := 10;
4692: -- Validate the action date
4693: /* Bug 6507195 : PO CBC Integration
4694: Parameter P_SKIP_VALID_CBC_ACCT_DATE value should be FND_API.G_FALSE to Validate Acct Date
4695: */
4696: val_action_date( p_api_version => 1.0,
4697: p_init_msg_list => FND_API.G_TRUE,
4698: x_return_status => x_return_status,
4693: /* Bug 6507195 : PO CBC Integration
4694: Parameter P_SKIP_VALID_CBC_ACCT_DATE value should be FND_API.G_FALSE to Validate Acct Date
4695: */
4696: val_action_date( p_api_version => 1.0,
4697: p_init_msg_list => FND_API.G_TRUE,
4698: x_return_status => x_return_status,
4699: p_doc_type => p_doc_type,
4700: p_doc_subtype => p_doc_subtype,
4701: p_doc_id => p_doc_header_id,
4703: p_action_date => p_gl_date,
4704: p_cbc_enabled => IGC_CBC_PO_GRP.cbc_po_enabled_flag,
4705: p_po_encumbrance_flag => p_po_encumbrance_flag,
4706: p_req_encumbrance_flag => p_req_encumbrance_flag,
4707: p_skip_valid_cbc_acct_date => FND_API.G_FALSE); --Bug#4569120
4708: d_pos := 20;
4709: IF (PO_LOG.d_stmt) THEN
4710: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4711: END IF;
4708: d_pos := 20;
4709: IF (PO_LOG.d_stmt) THEN
4710: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4711: END IF;
4712: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4713: RAISE FND_API.g_exc_error;
4714: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4715: RAISE FND_API.g_exc_unexpected_error;
4716: END IF;
4709: IF (PO_LOG.d_stmt) THEN
4710: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4711: END IF;
4712: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4713: RAISE FND_API.g_exc_error;
4714: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4715: RAISE FND_API.g_exc_unexpected_error;
4716: END IF;
4717: d_pos := 30;
4710: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4711: END IF;
4712: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4713: RAISE FND_API.g_exc_error;
4714: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4715: RAISE FND_API.g_exc_unexpected_error;
4716: END IF;
4717: d_pos := 30;
4718: --Do not lock the header record in case of CANCEL control Action
4711: END IF;
4712: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4713: RAISE FND_API.g_exc_error;
4714: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4715: RAISE FND_API.g_exc_unexpected_error;
4716: END IF;
4717: d_pos := 30;
4718: --Do not lock the header record in case of CANCEL control Action
4719: --as it would be locked in the cancel_api
4718: --Do not lock the header record in case of CANCEL control Action
4719: --as it would be locked in the cancel_api
4720: IF(NOT(p_control_action LIKE 'CANCEL%' )) THEN
4721: PO_DOCUMENT_LOCK_GRP.lock_document( p_api_version => 1.0
4722: ,p_init_msg_list => FND_API.G_FALSE
4723: ,x_return_status => x_return_status
4724: ,p_document_type => p_doc_type
4725: ,p_document_id => p_doc_header_id);
4726: END IF;
4727: d_pos := 40;
4728: IF (PO_LOG.d_stmt) THEN
4729: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4730: END IF;
4731: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4732: RAISE FND_API.g_exc_error;
4733: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4734: RAISE FND_API.g_exc_unexpected_error;
4735: END IF;
4728: IF (PO_LOG.d_stmt) THEN
4729: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4730: END IF;
4731: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4732: RAISE FND_API.g_exc_error;
4733: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4734: RAISE FND_API.g_exc_unexpected_error;
4735: END IF;
4736:
4729: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4730: END IF;
4731: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4732: RAISE FND_API.g_exc_error;
4733: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4734: RAISE FND_API.g_exc_unexpected_error;
4735: END IF;
4736:
4737: d_pos := 50;
4730: END IF;
4731: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4732: RAISE FND_API.g_exc_error;
4733: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4734: RAISE FND_API.g_exc_unexpected_error;
4735: END IF;
4736:
4737: d_pos := 50;
4738: -- validating the Cancel or Finally Close Control Action
4750: d_pos := 60;
4751: IF (PO_LOG.d_stmt) THEN
4752: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4753: END IF;
4754: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4755: RAISE FND_API.g_exc_error;
4756: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4757: RAISE FND_API.g_exc_unexpected_error;
4758: END IF;
4751: IF (PO_LOG.d_stmt) THEN
4752: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4753: END IF;
4754: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4755: RAISE FND_API.g_exc_error;
4756: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4757: RAISE FND_API.g_exc_unexpected_error;
4758: END IF;
4759: END IF;
4752: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4753: END IF;
4754: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4755: RAISE FND_API.g_exc_error;
4756: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4757: RAISE FND_API.g_exc_unexpected_error;
4758: END IF;
4759: END IF;
4760:
4753: END IF;
4754: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4755: RAISE FND_API.g_exc_error;
4756: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4757: RAISE FND_API.g_exc_unexpected_error;
4758: END IF;
4759: END IF;
4760:
4761:
4786: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
4787: PO_LOG.stmt(d_module,d_pos,'x_approval_initiated',x_approval_initiated);
4788: END IF;
4789:
4790: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4791: RAISE FND_API.g_exc_error;
4792: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4793: RAISE FND_API.g_exc_unexpected_error;
4794: END IF;
4787: PO_LOG.stmt(d_module,d_pos,'x_approval_initiated',x_approval_initiated);
4788: END IF;
4789:
4790: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4791: RAISE FND_API.g_exc_error;
4792: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4793: RAISE FND_API.g_exc_unexpected_error;
4794: END IF;
4795:
4788: END IF;
4789:
4790: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4791: RAISE FND_API.g_exc_error;
4792: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4793: RAISE FND_API.g_exc_unexpected_error;
4794: END IF;
4795:
4796: IF (PO_LOG.d_proc) THEN
4789:
4790: IF (x_return_status = FND_API.g_ret_sts_error) THEN
4791: RAISE FND_API.g_exc_error;
4792: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4793: RAISE FND_API.g_exc_unexpected_error;
4794: END IF;
4795:
4796: IF (PO_LOG.d_proc) THEN
4797: PO_LOG.proc_end(d_module);
4796: IF (PO_LOG.d_proc) THEN
4797: PO_LOG.proc_end(d_module);
4798: END IF;
4799: EXCEPTION
4800: WHEN FND_API.g_exc_error THEN
4801: ROLLBACK TO SAVEPOINT PROCESS_DOC_CONTROL_ACTION;
4802: x_return_status := FND_API.g_ret_sts_error;
4803: x_error_msg_tbl := PO_TBL_VARCHAR2000();
4804: --Copy the messages on the list to the out parameter
4798: END IF;
4799: EXCEPTION
4800: WHEN FND_API.g_exc_error THEN
4801: ROLLBACK TO SAVEPOINT PROCESS_DOC_CONTROL_ACTION;
4802: x_return_status := FND_API.g_ret_sts_error;
4803: x_error_msg_tbl := PO_TBL_VARCHAR2000();
4804: --Copy the messages on the list to the out parameter
4805: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
4806: FND_MESSAGE.set_encoded(encoded_message => FND_MSG_PUB.get(p_msg_index => i));
4806: FND_MESSAGE.set_encoded(encoded_message => FND_MSG_PUB.get(p_msg_index => i));
4807: x_error_msg_tbl.extend;
4808: x_error_msg_tbl(i) := FND_MESSAGE.get;
4809: END LOOP;
4810: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4811: ROLLBACK TO SAVEPOINT PROCESS_DOC_CONTROL_ACTION;
4812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4813: IF PO_LOG.d_exc THEN
4814: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4808: x_error_msg_tbl(i) := FND_MESSAGE.get;
4809: END LOOP;
4810: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4811: ROLLBACK TO SAVEPOINT PROCESS_DOC_CONTROL_ACTION;
4812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4813: IF PO_LOG.d_exc THEN
4814: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4815: END IF;
4816: WHEN OTHERS THEN
4814: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4815: END IF;
4816: WHEN OTHERS THEN
4817: ROLLBACK TO SAVEPOINT PROCESS_DOC_CONTROL_ACTION;
4818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4819: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
4820: IF PO_LOG.d_exc THEN
4821: PO_LOG.exc(d_module,d_pos,'Unhandled Exception in' || d_module);
4822: END IF;
5012: x_drop_ship_flag := 'N';
5013: x_labor_expense_req_flag := 'N';
5014: x_svc_line_with_req_flag := 'N';
5015: x_fps_line_ship_with_req_flag := 'N';
5016: x_return_status := FND_API.g_ret_sts_success;
5017: --Check for dropship PO
5018: IF(PO_COPYDOC_S1.po_is_dropship(p_doc_header_id)) THEN
5019: x_drop_ship_flag := 'Y';
5020: RAISE PO_CORE_S.g_early_return_exc;
5075: IF PO_LOG.d_stmt THEN
5076: PO_LOG.stmt(d_module,d_pos,'Early exit from ' || d_module);
5077: END IF;
5078: WHEN OTHERS THEN
5079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5080: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
5081: IF PO_LOG.d_exc THEN
5082: PO_LOG.exc(d_module,d_pos,'Unhandled Exception in' || d_module);
5083: END IF;
5151: PO_LOG.proc_begin(d_module,'p_doc_header_id',p_doc_header_id);
5152: PO_LOG.proc_begin(d_module,'p_doc_level_id',p_doc_level_id);
5153: END IF;
5154: --Initialisation of local variables
5155: x_return_status := FND_API.g_ret_sts_success;
5156: l_cons_trans_exist := 'N';
5157: l_index := 1;
5158: l_mode := UPPER(p_mode);
5159: x_valid_ctrl_ctn_tbl := PO_TBL_VARCHAR30();
5222: PO_LOG.stmt(d_module,d_pos,'x_return_status',x_return_status);
5223: END IF;
5224: d_pos := 60;
5225:
5226: IF (x_return_status = FND_API.g_ret_sts_success)then
5227:
5228: IF p_doc_level IN (PO_CORE_S.g_doc_level_HEADER, PO_CORE_S.g_doc_level_LINE) THEN
5229: -- Checks if there exists a consumption transaction that is in process for
5230: -- the passed in transaction source document ID and and item ID.
5330: END IF; --l_mode = 'UPDATE'
5331: END IF; -- l_cons_trans_exist = 'Y'
5332: END LOOP;
5333:
5334: ELSIF (x_return_status = FND_API.g_ret_sts_error)then
5335: d_pos := 130;
5336: IF (PO_LOG.d_stmt) THEN
5337: PO_LOG.stmt(d_module,d_pos,'No Valid Control Action Found');
5338: END IF;
5337: PO_LOG.stmt(d_module,d_pos,'No Valid Control Action Found');
5338: END IF;
5339: ELSE
5340: d_pos := 140;
5341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5342: END IF; --x_return_status = FND_API.g_ret_sts_success
5343: IF (PO_LOG.d_proc) THEN
5344: PO_LOG.proc_end(d_module);
5345: END IF;
5338: END IF;
5339: ELSE
5340: d_pos := 140;
5341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5342: END IF; --x_return_status = FND_API.g_ret_sts_success
5343: IF (PO_LOG.d_proc) THEN
5344: PO_LOG.proc_end(d_module);
5345: END IF;
5346: EXCEPTION
5344: PO_LOG.proc_end(d_module);
5345: END IF;
5346: EXCEPTION
5347: WHEN OTHERS THEN
5348: x_return_status := FND_API.g_ret_sts_unexp_error;
5349: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
5350: IF PO_LOG.d_exc THEN
5351: PO_LOG.exc(d_module,d_pos,'Unhandled Exception in' || d_module);
5352: END IF;