1: PACKAGE BODY PO_DRAFTS_GRP AS
2: /* $Header: PO_DRAFTS_GRP.plb 120.12.12020000.2 2013/02/10 16:35:48 vegajula ship $ */
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
465:
466: BEGIN
467: d_position := 0;
468:
469: IF (PO_LOG.d_proc) THEN
470: PO_LOG.proc_begin(d_module);
471: END IF;
472:
473: x_return_status := FND_API.G_RET_STS_SUCCESS;
466: BEGIN
467: d_position := 0;
468:
469: IF (PO_LOG.d_proc) THEN
470: PO_LOG.proc_begin(d_module);
471: END IF;
472:
473: x_return_status := FND_API.G_RET_STS_SUCCESS;
474:
492: x_draft_owner_role =>l_draft_owner_role
493: );
494:
495: d_position := 10;
496: IF (PO_LOG.d_proc) THEN
497: PO_LOG.stmt(d_module, d_position, 'draft id for headerid ' ||
498: p_po_header_id || ' : ' || l_draft_id);
499: END IF;
500:
493: );
494:
495: d_position := 10;
496: IF (PO_LOG.d_proc) THEN
497: PO_LOG.stmt(d_module, d_position, 'draft id for headerid ' ||
498: p_po_header_id || ' : ' || l_draft_id);
499: END IF;
500:
501: -- document should be unlocked when:
540: -- Bug 12700941 ends
541: ELSE
542: d_position := 40;
543:
544: IF (PO_LOG.d_proc) THEN
545: PO_LOG.stmt(d_module, d_position, 'draft changes do not exist. Simply unlock doc.');
546: END IF;
547:
548: l_unlock := FND_API.G_TRUE;
541: ELSE
542: d_position := 40;
543:
544: IF (PO_LOG.d_proc) THEN
545: PO_LOG.stmt(d_module, d_position, 'draft changes do not exist. Simply unlock doc.');
546: END IF;
547:
548: l_unlock := FND_API.G_TRUE;
549: END IF;
555: ( p_po_header_id => p_po_header_id
556: );
557: END IF;
558:
559: IF (PO_LOG.d_proc) THEN
560: PO_LOG.proc_end(d_module);
561: END IF;
562:
563: EXCEPTION
556: );
557: END IF;
558:
559: IF (PO_LOG.d_proc) THEN
560: PO_LOG.proc_end(d_module);
561: END IF;
562:
563: EXCEPTION
564: WHEN OTHERS THEN
618:
619: BEGIN
620:
621: d_position := 0;
622: IF (PO_LOG.d_proc) THEN
623: PO_LOG.proc_begin(d_module);
624: END IF;
625:
626: x_return_status := FND_API.G_RET_STS_SUCCESS;
619: BEGIN
620:
621: d_position := 0;
622: IF (PO_LOG.d_proc) THEN
623: PO_LOG.proc_begin(d_module);
624: END IF;
625:
626: x_return_status := FND_API.G_RET_STS_SUCCESS;
627:
647: x_message => x_message,
648: x_message_text => x_message_text
649: );
650:
651: IF (PO_LOG.d_proc) THEN
652: PO_LOG.proc_end(d_module);
653: END IF;
654:
655: EXCEPTION
648: x_message_text => x_message_text
649: );
650:
651: IF (PO_LOG.d_proc) THEN
652: PO_LOG.proc_end(d_module);
653: END IF;
654:
655: EXCEPTION
656: WHEN OTHERS THEN