1: PACKAGE BODY PO_DRAFTS_GRP AS
2: /* $Header: PO_DRAFTS_GRP.plb 120.10 2006/09/18 14:19:07 arudas noship $ */
3:
4: d_pkg_name CONSTANT varchar2(50) :=
5: PO_LOG.get_package_base('PO_DRAFTS_GRP');
6:
7: -----------------------------------------------------------------------
8: --Start of Comments
9: --Name: get_online_auth_status_code
49:
50: BEGIN
51:
52: d_position := 0;
53: IF (PO_LOG.d_proc) THEN
54: PO_LOG.proc_begin(d_module);
55: END IF;
56:
57: x_return_status := FND_API.G_RET_STS_SUCCESS;
50: BEGIN
51:
52: d_position := 0;
53: IF (PO_LOG.d_proc) THEN
54: PO_LOG.proc_begin(d_module);
55: END IF;
56:
57: x_return_status := FND_API.G_RET_STS_SUCCESS;
58:
106:
107: END IF;
108: END IF;
109:
110: IF (PO_LOG.d_proc) THEN
111: PO_LOG.proc_end(d_module, 'x_online_auth_status_code', x_online_auth_status_code);
112: END IF;
113:
114: EXCEPTION
107: END IF;
108: END IF;
109:
110: IF (PO_LOG.d_proc) THEN
111: PO_LOG.proc_end(d_module, 'x_online_auth_status_code', x_online_auth_status_code);
112: END IF;
113:
114: EXCEPTION
115: WHEN OTHERS THEN
169: l_update_allowed VARCHAR2(1);
170: l_return_status VARCHAR2(1);
171: BEGIN
172: d_position := 0;
173: IF (PO_LOG.d_proc) THEN
174: PO_LOG.proc_begin(d_module);
175: END IF;
176:
177: x_return_status := FND_API.G_RET_STS_SUCCESS;
170: l_return_status VARCHAR2(1);
171: BEGIN
172: d_position := 0;
173: IF (PO_LOG.d_proc) THEN
174: PO_LOG.proc_begin(d_module);
175: END IF;
176:
177: x_return_status := FND_API.G_RET_STS_SUCCESS;
178:
211: x_message => x_message
212: );
213:
214: IF (x_authoring_allowed = FND_API.G_FALSE) THEN
215: IF (PO_LOG.d_stmt) THEN
216: PO_LOG.stmt(d_module, d_position, 'update permission check failed');
217: END IF;
218: END IF;
219:
212: );
213:
214: IF (x_authoring_allowed = FND_API.G_FALSE) THEN
215: IF (PO_LOG.d_stmt) THEN
216: PO_LOG.stmt(d_module, d_position, 'update permission check failed');
217: END IF;
218: END IF;
219:
220: d_position := 30;
223: -- Removed the call to po_status_check because the checks for
224: -- po status is already done when the agreement edit page is accessed.
225:
226:
227: IF (PO_LOG.d_proc) THEN
228: PO_LOG.proc_end(d_module);
229: END IF;
230:
231: EXCEPTION
224: -- po status is already done when the agreement edit page is accessed.
225:
226:
227: IF (PO_LOG.d_proc) THEN
228: PO_LOG.proc_end(d_module);
229: END IF;
230:
231: EXCEPTION
232: WHEN OTHERS THEN
282:
283: BEGIN
284: d_position := 0;
285:
286: IF (PO_LOG.d_proc) THEN
287: PO_LOG.proc_begin(d_module);
288: END IF;
289:
290: x_return_status := FND_API.G_RET_STS_SUCCESS;
283: BEGIN
284: d_position := 0;
285:
286: IF (PO_LOG.d_proc) THEN
287: PO_LOG.proc_begin(d_module);
288: END IF;
289:
290: x_return_status := FND_API.G_RET_STS_SUCCESS;
291:
312: x_upload_is_error => x_upload_is_error --Bug#5518826
313: );
314:
315:
316: IF (PO_LOG.d_proc) THEN
317: PO_LOG.proc_end(d_module);
318: END IF;
319:
320: EXCEPTION
313: );
314:
315:
316: IF (PO_LOG.d_proc) THEN
317: PO_LOG.proc_end(d_module);
318: END IF;
319:
320: EXCEPTION
321: WHEN OTHERS THEN
372:
373: BEGIN
374: d_position := 0;
375:
376: IF (PO_LOG.d_proc) THEN
377: PO_LOG.proc_begin(d_module);
378: END IF;
379:
380: x_return_status := FND_API.G_RET_STS_SUCCESS;
373: BEGIN
374: d_position := 0;
375:
376: IF (PO_LOG.d_proc) THEN
377: PO_LOG.proc_begin(d_module);
378: END IF;
379:
380: x_return_status := FND_API.G_RET_STS_SUCCESS;
381:
402: x_upload_status_display => x_upload_status_display
403: );
404:
405:
406: IF (PO_LOG.d_proc) THEN
407: PO_LOG.proc_end(d_module);
408: END IF;
409:
410: EXCEPTION
403: );
404:
405:
406: IF (PO_LOG.d_proc) THEN
407: PO_LOG.proc_end(d_module);
408: END IF;
409:
410: EXCEPTION
411: WHEN OTHERS THEN
461:
462: BEGIN
463: d_position := 0;
464:
465: IF (PO_LOG.d_proc) THEN
466: PO_LOG.proc_begin(d_module);
467: END IF;
468:
469: x_return_status := FND_API.G_RET_STS_SUCCESS;
462: BEGIN
463: d_position := 0;
464:
465: IF (PO_LOG.d_proc) THEN
466: PO_LOG.proc_begin(d_module);
467: END IF;
468:
469: x_return_status := FND_API.G_RET_STS_SUCCESS;
470:
484: x_draft_id => l_draft_id
485: );
486:
487: d_position := 10;
488: IF (PO_LOG.d_proc) THEN
489: PO_LOG.stmt(d_module, d_position, 'draft id for headerid ' ||
490: p_po_header_id || ' : ' || l_draft_id);
491: END IF;
492:
485: );
486:
487: d_position := 10;
488: IF (PO_LOG.d_proc) THEN
489: PO_LOG.stmt(d_module, d_position, 'draft id for headerid ' ||
490: p_po_header_id || ' : ' || l_draft_id);
491: END IF;
492:
493: -- document should be unlocked when:
519: END IF;
520: ELSE
521: d_position := 40;
522:
523: IF (PO_LOG.d_proc) THEN
524: PO_LOG.stmt(d_module, d_position, 'draft changes do not exist. Simply unlock doc.');
525: END IF;
526:
527: l_unlock := FND_API.G_TRUE;
520: ELSE
521: d_position := 40;
522:
523: IF (PO_LOG.d_proc) THEN
524: PO_LOG.stmt(d_module, d_position, 'draft changes do not exist. Simply unlock doc.');
525: END IF;
526:
527: l_unlock := FND_API.G_TRUE;
528: END IF;
534: ( p_po_header_id => p_po_header_id
535: );
536: END IF;
537:
538: IF (PO_LOG.d_proc) THEN
539: PO_LOG.proc_end(d_module);
540: END IF;
541:
542: EXCEPTION
535: );
536: END IF;
537:
538: IF (PO_LOG.d_proc) THEN
539: PO_LOG.proc_end(d_module);
540: END IF;
541:
542: EXCEPTION
543: WHEN OTHERS THEN
597:
598: BEGIN
599:
600: d_position := 0;
601: IF (PO_LOG.d_proc) THEN
602: PO_LOG.proc_begin(d_module);
603: END IF;
604:
605: x_return_status := FND_API.G_RET_STS_SUCCESS;
598: BEGIN
599:
600: d_position := 0;
601: IF (PO_LOG.d_proc) THEN
602: PO_LOG.proc_begin(d_module);
603: END IF;
604:
605: x_return_status := FND_API.G_RET_STS_SUCCESS;
606:
626: x_message => x_message,
627: x_message_text => x_message_text
628: );
629:
630: IF (PO_LOG.d_proc) THEN
631: PO_LOG.proc_end(d_module);
632: END IF;
633:
634: EXCEPTION
627: x_message_text => x_message_text
628: );
629:
630: IF (PO_LOG.d_proc) THEN
631: PO_LOG.proc_end(d_module);
632: END IF;
633:
634: EXCEPTION
635: WHEN OTHERS THEN