8:
9: c_log_head CONSTANT VARCHAR2(50) := 'po.plsql.' || g_pkg_name || '.';
10:
11: -- Debugging
12: g_debug_stmt CONSTANT BOOLEAN := po_debug.is_debug_stmt_on;
13: g_debug_unexp CONSTANT BOOLEAN := po_debug.is_debug_unexp_on;
14:
15: FUNCTION is_req_cancellable(p_req_hdr_id IN NUMBER) RETURN VARCHAR2
16: IS
9: c_log_head CONSTANT VARCHAR2(50) := 'po.plsql.' || g_pkg_name || '.';
10:
11: -- Debugging
12: g_debug_stmt CONSTANT BOOLEAN := po_debug.is_debug_stmt_on;
13: g_debug_unexp CONSTANT BOOLEAN := po_debug.is_debug_unexp_on;
14:
15: FUNCTION is_req_cancellable(p_req_hdr_id IN NUMBER) RETURN VARCHAR2
16: IS
17: CURSOR l_line_csr(hdr_id NUMBER) IS
35:
36: BEGIN
37:
38: IF g_debug_stmt THEN
39: po_debug.debug_begin(l_log_head);
40: po_debug.debug_var(l_log_head, l_progress, 'p_req_hdr_id', p_req_hdr_id);
41: END IF;
42:
43:
36: BEGIN
37:
38: IF g_debug_stmt THEN
39: po_debug.debug_begin(l_log_head);
40: po_debug.debug_var(l_log_head, l_progress, 'p_req_hdr_id', p_req_hdr_id);
41: END IF;
42:
43:
44: OPEN l_line_csr(p_req_hdr_id);
54: END IF; --Bug6747949
55: l_c := is_reqline_cancellable(l_line_id);
56:
57: IF g_debug_stmt THEN
58: po_debug.debug_var(l_log_head, l_progress, 'l_line_id', l_line_id);
59: po_debug.debug_var(l_log_head, l_progress, 'Is_ReqLine_Cancellable', l_c);
60: END IF;
61:
62: IF(l_c = 'Y') THEN
55: l_c := is_reqline_cancellable(l_line_id);
56:
57: IF g_debug_stmt THEN
58: po_debug.debug_var(l_log_head, l_progress, 'l_line_id', l_line_id);
59: po_debug.debug_var(l_log_head, l_progress, 'Is_ReqLine_Cancellable', l_c);
60: END IF;
61:
62: IF(l_c = 'Y') THEN
63: RETURN 'Y';
65: END LOOP;
66: CLOSE l_line_csr;
67:
68: IF g_debug_stmt THEN
69: po_debug.debug_var(l_log_head, l_progress, 'returning not cancellable', l_line_with_po);
70: END IF;
71:
72: return 'N';
73:
253: BEGIN
254:
255:
256: IF g_debug_stmt THEN
257: po_debug.debug_begin(l_log_head);
258: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
259: po_debug.debug_var(l_log_head, l_progress, 'p_req_hdr_id', p_req_hdr_id);
260: END IF;
261:
254:
255:
256: IF g_debug_stmt THEN
257: po_debug.debug_begin(l_log_head);
258: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
259: po_debug.debug_var(l_log_head, l_progress, 'p_req_hdr_id', p_req_hdr_id);
260: END IF;
261:
262: po_rco_validation_pvt.save_ireqchange(
255:
256: IF g_debug_stmt THEN
257: po_debug.debug_begin(l_log_head);
258: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
259: po_debug.debug_var(l_log_head, l_progress, 'p_req_hdr_id', p_req_hdr_id);
260: END IF;
261:
262: po_rco_validation_pvt.save_ireqchange(
263: p_api_version,
271:
272:
273:
274:
275: IF g_debug_stmt THEN po_debug.debug_end(l_log_head); END IF;
276:
277: END save_ireqchange;
278:
279: PROCEDURE save_reqchange(p_api_version IN NUMBER,
374:
375: BEGIN
376:
377: IF g_debug_stmt THEN
378: po_debug.debug_begin(l_log_head);
379: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
380: po_debug.debug_var(l_log_head, l_progress, 'p_req_hdr_id', p_req_hdr_id);
381: END IF;
382:
375: BEGIN
376:
377: IF g_debug_stmt THEN
378: po_debug.debug_begin(l_log_head);
379: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
380: po_debug.debug_var(l_log_head, l_progress, 'p_req_hdr_id', p_req_hdr_id);
381: END IF;
382:
383:
376:
377: IF g_debug_stmt THEN
378: po_debug.debug_begin(l_log_head);
379: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
380: po_debug.debug_var(l_log_head, l_progress, 'p_req_hdr_id', p_req_hdr_id);
381: END IF;
382:
383:
384: po_rco_validation_pvt.save_ireqcancel(
389: p_change_request_group_id,
390: x_retmsg,
391: p_grp_id);
392: IF g_debug_stmt THEN
393: po_debug.debug_end(l_log_head);
394: END IF;
395:
396: END save_ireqcancel;
397:
412:
413: BEGIN
414:
415: IF g_debug_stmt THEN
416: po_debug.debug_begin(l_log_head);
417: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
418: po_debug.debug_var(l_log_head, l_progress, 'p_group_ID', p_group_id);
419: po_debug.debug_var(l_log_head, l_progress, 'p_fundscheck_flag', p_fundscheck_flag);
420: po_debug.debug_var(l_log_head, l_progress, 'p_note_to_approver', p_note_to_approver);
413: BEGIN
414:
415: IF g_debug_stmt THEN
416: po_debug.debug_begin(l_log_head);
417: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
418: po_debug.debug_var(l_log_head, l_progress, 'p_group_ID', p_group_id);
419: po_debug.debug_var(l_log_head, l_progress, 'p_fundscheck_flag', p_fundscheck_flag);
420: po_debug.debug_var(l_log_head, l_progress, 'p_note_to_approver', p_note_to_approver);
421: END IF;
414:
415: IF g_debug_stmt THEN
416: po_debug.debug_begin(l_log_head);
417: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
418: po_debug.debug_var(l_log_head, l_progress, 'p_group_ID', p_group_id);
419: po_debug.debug_var(l_log_head, l_progress, 'p_fundscheck_flag', p_fundscheck_flag);
420: po_debug.debug_var(l_log_head, l_progress, 'p_note_to_approver', p_note_to_approver);
421: END IF;
422:
415: IF g_debug_stmt THEN
416: po_debug.debug_begin(l_log_head);
417: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
418: po_debug.debug_var(l_log_head, l_progress, 'p_group_ID', p_group_id);
419: po_debug.debug_var(l_log_head, l_progress, 'p_fundscheck_flag', p_fundscheck_flag);
420: po_debug.debug_var(l_log_head, l_progress, 'p_note_to_approver', p_note_to_approver);
421: END IF;
422:
423: po_rco_validation_pvt.submit_ireqchange(p_api_version,
416: po_debug.debug_begin(l_log_head);
417: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
418: po_debug.debug_var(l_log_head, l_progress, 'p_group_ID', p_group_id);
419: po_debug.debug_var(l_log_head, l_progress, 'p_fundscheck_flag', p_fundscheck_flag);
420: po_debug.debug_var(l_log_head, l_progress, 'p_note_to_approver', p_note_to_approver);
421: END IF;
422:
423: po_rco_validation_pvt.submit_ireqchange(p_api_version,
424: x_return_status,
430: x_errcode,
431: x_errtable );
432:
433: IF g_debug_stmt THEN
434: po_debug.debug_end(l_log_head);
435: END IF;
436:
437:
438: END submit_ireqchange;
451:
452: BEGIN
453:
454: IF g_debug_stmt THEN
455: po_debug.debug_begin(l_log_head);
456: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
457: --PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_hdr_id',p_req_hdr_id);
458: po_debug.debug_var(l_log_head, l_progress, 'p_group_ID', p_group_id);
459: po_debug.debug_var(l_log_head, l_progress, 'p_flag', p_flag);
452: BEGIN
453:
454: IF g_debug_stmt THEN
455: po_debug.debug_begin(l_log_head);
456: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
457: --PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_hdr_id',p_req_hdr_id);
458: po_debug.debug_var(l_log_head, l_progress, 'p_group_ID', p_group_id);
459: po_debug.debug_var(l_log_head, l_progress, 'p_flag', p_flag);
460: END IF;
453:
454: IF g_debug_stmt THEN
455: po_debug.debug_begin(l_log_head);
456: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
457: --PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_hdr_id',p_req_hdr_id);
458: po_debug.debug_var(l_log_head, l_progress, 'p_group_ID', p_group_id);
459: po_debug.debug_var(l_log_head, l_progress, 'p_flag', p_flag);
460: END IF;
461:
454: IF g_debug_stmt THEN
455: po_debug.debug_begin(l_log_head);
456: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
457: --PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_hdr_id',p_req_hdr_id);
458: po_debug.debug_var(l_log_head, l_progress, 'p_group_ID', p_group_id);
459: po_debug.debug_var(l_log_head, l_progress, 'p_flag', p_flag);
460: END IF;
461:
462:
455: po_debug.debug_begin(l_log_head);
456: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
457: --PO_DEBUG.debug_var(l_log_head,l_progress,'p_req_hdr_id',p_req_hdr_id);
458: po_debug.debug_var(l_log_head, l_progress, 'p_group_ID', p_group_id);
459: po_debug.debug_var(l_log_head, l_progress, 'p_flag', p_flag);
460: END IF;
461:
462:
463: po_rco_validation_pvt.submit_ireqcancel (
468: p_errtable ,
469: p_flag );
470:
471: IF g_debug_stmt THEN
472: po_debug.debug_end(l_log_head);
473: END IF;
474: END submit_ireqcancel;
475:
476:
506: END IF;
507:
508: exception when others then
509: IF g_debug_unexp THEN
510: po_debug.debug_var(l_api_name, '001', 'sqlerrm=', sqlerrm);
511: END IF;
512: RETURN 'Y';
513:
514: END IS_ANY_LINE_WITHDRAWABLE;
530:
531: BEGIN
532:
533: IF g_debug_stmt THEN
534: po_debug.debug_begin(l_log_head);
535: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
536: po_debug.debug_var(l_log_head, l_progress, 'p_req_hdr_id', p_req_hdr_id);
537: END IF;
538:
531: BEGIN
532:
533: IF g_debug_stmt THEN
534: po_debug.debug_begin(l_log_head);
535: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
536: po_debug.debug_var(l_log_head, l_progress, 'p_req_hdr_id', p_req_hdr_id);
537: END IF;
538:
539: l_progress := '010';
532:
533: IF g_debug_stmt THEN
534: po_debug.debug_begin(l_log_head);
535: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
536: po_debug.debug_var(l_log_head, l_progress, 'p_req_hdr_id', p_req_hdr_id);
537: END IF;
538:
539: l_progress := '010';
540:
559:
560: l_progress := '050';
561:
562: IF g_debug_stmt THEN
563: po_debug.debug_stmt(l_log_head, l_progress,'Calling Private Procedure get_preparer_name');
564: END IF;
565:
566: l_progress := '060';
567:
571: , x_return_status => x_return_status);
572:
573:
574: IF g_debug_stmt THEN
575: po_debug.debug_stmt(l_log_head, l_progress,'After Private Procedure get_preparer_name');
576: END IF;
577:
578: EXCEPTION
579:
587: WHEN OTHERS THEN
588: ROLLBACK TO get_preparer_name_sp;
589: x_return_status := fnd_api.g_ret_sts_unexp_error;
590: IF g_debug_stmt THEN
591: po_debug.debug_var(l_log_head, l_progress,'EXCEPTION: Location and SQL CODE is ', SQLCODE);
592: END IF;
593: END get_preparer_name;
594:
595:
610:
611: BEGIN
612:
613: IF g_debug_stmt THEN
614: po_debug.debug_begin(l_log_head);
615: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
616: /* PO_DEBUG.debug_var(l_log_head,l_progress,'p_commit',p_commit);
617: PO_DEBUG.debug_var(l_log_head,l_progress,'p_init_msg_list',p_init_msg_list);
618: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validation_level',p_validation_level);
611: BEGIN
612:
613: IF g_debug_stmt THEN
614: po_debug.debug_begin(l_log_head);
615: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
616: /* PO_DEBUG.debug_var(l_log_head,l_progress,'p_commit',p_commit);
617: PO_DEBUG.debug_var(l_log_head,l_progress,'p_init_msg_list',p_init_msg_list);
618: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validation_level',p_validation_level);
619: */ po_debug.debug_var(l_log_head, l_progress, 'p_req_hdr_id', p_req_hdr_id);
612:
613: IF g_debug_stmt THEN
614: po_debug.debug_begin(l_log_head);
615: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
616: /* PO_DEBUG.debug_var(l_log_head,l_progress,'p_commit',p_commit);
617: PO_DEBUG.debug_var(l_log_head,l_progress,'p_init_msg_list',p_init_msg_list);
618: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validation_level',p_validation_level);
619: */ po_debug.debug_var(l_log_head, l_progress, 'p_req_hdr_id', p_req_hdr_id);
620: END IF;
613: IF g_debug_stmt THEN
614: po_debug.debug_begin(l_log_head);
615: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
616: /* PO_DEBUG.debug_var(l_log_head,l_progress,'p_commit',p_commit);
617: PO_DEBUG.debug_var(l_log_head,l_progress,'p_init_msg_list',p_init_msg_list);
618: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validation_level',p_validation_level);
619: */ po_debug.debug_var(l_log_head, l_progress, 'p_req_hdr_id', p_req_hdr_id);
620: END IF;
621:
614: po_debug.debug_begin(l_log_head);
615: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
616: /* PO_DEBUG.debug_var(l_log_head,l_progress,'p_commit',p_commit);
617: PO_DEBUG.debug_var(l_log_head,l_progress,'p_init_msg_list',p_init_msg_list);
618: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validation_level',p_validation_level);
619: */ po_debug.debug_var(l_log_head, l_progress, 'p_req_hdr_id', p_req_hdr_id);
620: END IF;
621:
622: l_progress := '010';
615: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
616: /* PO_DEBUG.debug_var(l_log_head,l_progress,'p_commit',p_commit);
617: PO_DEBUG.debug_var(l_log_head,l_progress,'p_init_msg_list',p_init_msg_list);
618: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validation_level',p_validation_level);
619: */ po_debug.debug_var(l_log_head, l_progress, 'p_req_hdr_id', p_req_hdr_id);
620: END IF;
621:
622: l_progress := '010';
623:
649:
650: l_progress := '050';
651:
652: IF g_debug_stmt THEN
653: po_debug.debug_stmt(l_log_head, l_progress,'Calling Private Procedure update_ReqCancel_from_SO');
654: END IF;
655:
656: l_progress := '060';
657:
664: END IF;
665:
666:
667: IF g_debug_stmt THEN
668: po_debug.debug_stmt(l_log_head, l_progress,'After Private Procedure update_ReqCancel_from_SO');
669: END IF;
670:
671: EXCEPTION
672:
680: WHEN OTHERS THEN
681: ROLLBACK TO update_reqcancel_from_so_sp;
682: x_return_status := fnd_api.g_ret_sts_unexp_error;
683: IF g_debug_stmt THEN
684: po_debug.debug_var(l_log_head, l_progress,'EXCEPTION: Location and SQL CODE is ', SQLCODE);
685: END IF;
686: END update_reqcancel_from_so;
687:
688:
703:
704: BEGIN
705:
706: IF g_debug_stmt THEN
707: po_debug.debug_begin(l_log_head);
708: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
709: /* PO_DEBUG.debug_var(l_log_head,l_progress,'p_commit',p_commit);
710: PO_DEBUG.debug_var(l_log_head,l_progress,'p_init_msg_list',p_init_msg_list);
711: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validation_level',p_validation_level);
704: BEGIN
705:
706: IF g_debug_stmt THEN
707: po_debug.debug_begin(l_log_head);
708: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
709: /* PO_DEBUG.debug_var(l_log_head,l_progress,'p_commit',p_commit);
710: PO_DEBUG.debug_var(l_log_head,l_progress,'p_init_msg_list',p_init_msg_list);
711: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validation_level',p_validation_level);
712: */ po_debug.debug_var(l_log_head, l_progress, 'p_req_line_id', p_req_line_id);
705:
706: IF g_debug_stmt THEN
707: po_debug.debug_begin(l_log_head);
708: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
709: /* PO_DEBUG.debug_var(l_log_head,l_progress,'p_commit',p_commit);
710: PO_DEBUG.debug_var(l_log_head,l_progress,'p_init_msg_list',p_init_msg_list);
711: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validation_level',p_validation_level);
712: */ po_debug.debug_var(l_log_head, l_progress, 'p_req_line_id', p_req_line_id);
713: po_debug.debug_var(l_log_head, l_progress, 'p_delta_quantity', p_delta_quantity);
706: IF g_debug_stmt THEN
707: po_debug.debug_begin(l_log_head);
708: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
709: /* PO_DEBUG.debug_var(l_log_head,l_progress,'p_commit',p_commit);
710: PO_DEBUG.debug_var(l_log_head,l_progress,'p_init_msg_list',p_init_msg_list);
711: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validation_level',p_validation_level);
712: */ po_debug.debug_var(l_log_head, l_progress, 'p_req_line_id', p_req_line_id);
713: po_debug.debug_var(l_log_head, l_progress, 'p_delta_quantity', p_delta_quantity);
714: po_debug.debug_var(l_log_head, l_progress, 'p_new_need_by_date', p_new_need_by_date);
707: po_debug.debug_begin(l_log_head);
708: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
709: /* PO_DEBUG.debug_var(l_log_head,l_progress,'p_commit',p_commit);
710: PO_DEBUG.debug_var(l_log_head,l_progress,'p_init_msg_list',p_init_msg_list);
711: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validation_level',p_validation_level);
712: */ po_debug.debug_var(l_log_head, l_progress, 'p_req_line_id', p_req_line_id);
713: po_debug.debug_var(l_log_head, l_progress, 'p_delta_quantity', p_delta_quantity);
714: po_debug.debug_var(l_log_head, l_progress, 'p_new_need_by_date', p_new_need_by_date);
715: END IF;
708: po_debug.debug_var(l_log_head, l_progress, 'p_api_version', p_api_version);
709: /* PO_DEBUG.debug_var(l_log_head,l_progress,'p_commit',p_commit);
710: PO_DEBUG.debug_var(l_log_head,l_progress,'p_init_msg_list',p_init_msg_list);
711: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validation_level',p_validation_level);
712: */ po_debug.debug_var(l_log_head, l_progress, 'p_req_line_id', p_req_line_id);
713: po_debug.debug_var(l_log_head, l_progress, 'p_delta_quantity', p_delta_quantity);
714: po_debug.debug_var(l_log_head, l_progress, 'p_new_need_by_date', p_new_need_by_date);
715: END IF;
716:
709: /* PO_DEBUG.debug_var(l_log_head,l_progress,'p_commit',p_commit);
710: PO_DEBUG.debug_var(l_log_head,l_progress,'p_init_msg_list',p_init_msg_list);
711: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validation_level',p_validation_level);
712: */ po_debug.debug_var(l_log_head, l_progress, 'p_req_line_id', p_req_line_id);
713: po_debug.debug_var(l_log_head, l_progress, 'p_delta_quantity', p_delta_quantity);
714: po_debug.debug_var(l_log_head, l_progress, 'p_new_need_by_date', p_new_need_by_date);
715: END IF;
716:
717: l_progress := '010';
710: PO_DEBUG.debug_var(l_log_head,l_progress,'p_init_msg_list',p_init_msg_list);
711: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validation_level',p_validation_level);
712: */ po_debug.debug_var(l_log_head, l_progress, 'p_req_line_id', p_req_line_id);
713: po_debug.debug_var(l_log_head, l_progress, 'p_delta_quantity', p_delta_quantity);
714: po_debug.debug_var(l_log_head, l_progress, 'p_new_need_by_date', p_new_need_by_date);
715: END IF;
716:
717: l_progress := '010';
718:
745:
746: l_progress := '050';
747:
748: IF g_debug_stmt THEN
749: po_debug.debug_stmt(l_log_head, l_progress,'Calling Private Procedure update_ReqCancel_from_SO');
750: END IF;
751:
752: l_progress := '060';
753:
766: END IF;
767:
768:
769: IF g_debug_stmt THEN
770: po_debug.debug_stmt(l_log_head, l_progress,'After Private Procedure update_ReqChange_from_SO');
771: END IF;
772:
773: EXCEPTION
774:
782: WHEN OTHERS THEN
783: ROLLBACK TO update_reqcancel_from_so_sp;
784: x_return_status := fnd_api.g_ret_sts_unexp_error;
785: IF g_debug_stmt THEN
786: po_debug.debug_var(l_log_head, l_progress,'EXCEPTION: Location and SQL CODE is ', SQLCODE);
787: END IF;
788: END update_reqchange_from_so;
789:
790: