1: PACKAGE BODY por_uda_pkg AS
2: /* $Header: POR_UDA_PKG.plb 120.13.12020000.2 2013/04/12 17:37:35 mzhussai ship $ */
3:
4: d_pkg_name CONSTANT varchar2(50) := PO_LOG.get_package_base('POR_UDA_PKG');
5:
6: PROCEDURE get_pr_line_attr_group_ids(
7: p_template_id IN VARCHAR2,
8: p_req_line_id IN NUMBER,
33: WHERE requisition_line_id = p_req_line_id;
34:
35: BEGIN
36:
37: IF (PO_LOG.d_proc) THEN
38: PO_LOG.proc_begin(d_module);
39: PO_LOG.proc_begin(d_module, 'p_template_id', p_template_id);
40: PO_LOG.proc_begin(d_module, 'p_req_line_id', p_req_line_id);
41: END IF;
34:
35: BEGIN
36:
37: IF (PO_LOG.d_proc) THEN
38: PO_LOG.proc_begin(d_module);
39: PO_LOG.proc_begin(d_module, 'p_template_id', p_template_id);
40: PO_LOG.proc_begin(d_module, 'p_req_line_id', p_req_line_id);
41: END IF;
42:
35: BEGIN
36:
37: IF (PO_LOG.d_proc) THEN
38: PO_LOG.proc_begin(d_module);
39: PO_LOG.proc_begin(d_module, 'p_template_id', p_template_id);
40: PO_LOG.proc_begin(d_module, 'p_req_line_id', p_req_line_id);
41: END IF;
42:
43: l_attr_grp_ids := PO_TBL_NUMBER();
36:
37: IF (PO_LOG.d_proc) THEN
38: PO_LOG.proc_begin(d_module);
39: PO_LOG.proc_begin(d_module, 'p_template_id', p_template_id);
40: PO_LOG.proc_begin(d_module, 'p_req_line_id', p_req_line_id);
41: END IF;
42:
43: l_attr_grp_ids := PO_TBL_NUMBER();
44: l_context := EGO_COL_NAME_VALUE_PAIR_ARRAY();
54: EGO_COL_NAME_VALUE_PAIR_OBJ( 'IDC_TYPE', 'IDC_NA'));
55: END IF;
56:
57: IF(p_is_amd_mode = 'true' AND c_get_usages_rec.attribute_category = 'CHAIN') THEN
58: IF PO_LOG.d_stmt THEN
59: PO_LOG.stmt(d_module, d_progress, 'Ignore Chain AG Ids');
60: END IF;
61:
62: ELSE
55: END IF;
56:
57: IF(p_is_amd_mode = 'true' AND c_get_usages_rec.attribute_category = 'CHAIN') THEN
58: IF PO_LOG.d_stmt THEN
59: PO_LOG.stmt(d_module, d_progress, 'Ignore Chain AG Ids');
60: END IF;
61:
62: ELSE
63: l_po_uda_usage_object := po_uda_usage_object.new_instance(p_template_id,c_get_usages_rec.attribute_category,l_context );
73:
74: x_attr_grp_ids := l_attr_grp_ids;
75: x_return_status := 'S';
76:
77: IF PO_LOG.d_stmt THEN
78: PO_LOG.stmt(d_module, d_progress, 'x_attr_grp_ids', x_attr_grp_ids);
79: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
80: END IF;
81:
74: x_attr_grp_ids := l_attr_grp_ids;
75: x_return_status := 'S';
76:
77: IF PO_LOG.d_stmt THEN
78: PO_LOG.stmt(d_module, d_progress, 'x_attr_grp_ids', x_attr_grp_ids);
79: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
80: END IF;
81:
82: EXCEPTION
75: x_return_status := 'S';
76:
77: IF PO_LOG.d_stmt THEN
78: PO_LOG.stmt(d_module, d_progress, 'x_attr_grp_ids', x_attr_grp_ids);
79: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
80: END IF;
81:
82: EXCEPTION
83: WHEN OTHERS THEN
82: EXCEPTION
83: WHEN OTHERS THEN
84: d_progress := 40;
85: x_return_status := 'U';
86: IF PO_LOG.d_stmt THEN
87: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
88: END IF;
89: END get_pr_line_attr_group_ids;
90:
83: WHEN OTHERS THEN
84: d_progress := 40;
85: x_return_status := 'U';
86: IF PO_LOG.d_stmt THEN
87: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
88: END IF;
89: END get_pr_line_attr_group_ids;
90:
91: PROCEDURE SUBMIT_NON_RENDER_UDA( p_req_header_id IN NUMBER
130: WHERE requisition_header_id = p_req_header_id;
131:
132:
133: BEGIN
134: IF (PO_LOG.d_proc) THEN
135: PO_LOG.proc_begin(d_module);
136: PO_LOG.proc_begin(d_module, 'p_req_header_id', p_req_header_id);
137: END IF;
138:
131:
132:
133: BEGIN
134: IF (PO_LOG.d_proc) THEN
135: PO_LOG.proc_begin(d_module);
136: PO_LOG.proc_begin(d_module, 'p_req_header_id', p_req_header_id);
137: END IF;
138:
139: SELECT uda_template_id, preparer_id, org_id
132:
133: BEGIN
134: IF (PO_LOG.d_proc) THEN
135: PO_LOG.proc_begin(d_module);
136: PO_LOG.proc_begin(d_module, 'p_req_header_id', p_req_header_id);
137: END IF;
138:
139: SELECT uda_template_id, preparer_id, org_id
140: INTO l_template_id, l_preparer_id, l_org_id
229:
230: x_return_status := l_return_status;
231: x_external_attr_value_pairs := l_external_attr_value_pairs;
232:
233: IF (PO_LOG.d_proc) THEN
234: PO_LOG.proc_begin(d_module, 'x_return_status', x_return_status);
235: END IF;
236:
237: EXCEPTION
230: x_return_status := l_return_status;
231: x_external_attr_value_pairs := l_external_attr_value_pairs;
232:
233: IF (PO_LOG.d_proc) THEN
234: PO_LOG.proc_begin(d_module, 'x_return_status', x_return_status);
235: END IF;
236:
237: EXCEPTION
238: WHEN OTHERS THEN
237: EXCEPTION
238: WHEN OTHERS THEN
239: d_progress := 40;
240: x_return_status := 'U';
241: IF PO_LOG.d_stmt THEN
242: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
243: END IF;
244:
245: END SUBMIT_NON_RENDER_UDA;
238: WHEN OTHERS THEN
239: d_progress := 40;
240: x_return_status := 'U';
241: IF PO_LOG.d_stmt THEN
242: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
243: END IF;
244:
245: END SUBMIT_NON_RENDER_UDA;
246:
596: SELECT DISTINCT(ATTRIBUTE_CATEGORY) FROM po_uda_ag_template_usages
597: WHERE template_id = p_template_id;
598:
599: BEGIN
600: IF (PO_LOG.d_proc) THEN
601: PO_LOG.proc_begin(d_module);
602: PO_LOG.proc_begin(d_module, 'p_template_id', p_template_id);
603: END IF;
604:
597: WHERE template_id = p_template_id;
598:
599: BEGIN
600: IF (PO_LOG.d_proc) THEN
601: PO_LOG.proc_begin(d_module);
602: PO_LOG.proc_begin(d_module, 'p_template_id', p_template_id);
603: END IF;
604:
605: l_attr_grp_ids := PO_TBL_NUMBER();
598:
599: BEGIN
600: IF (PO_LOG.d_proc) THEN
601: PO_LOG.proc_begin(d_module);
602: PO_LOG.proc_begin(d_module, 'p_template_id', p_template_id);
603: END IF;
604:
605: l_attr_grp_ids := PO_TBL_NUMBER();
606: l_context := EGO_COL_NAME_VALUE_PAIR_ARRAY();
606: l_context := EGO_COL_NAME_VALUE_PAIR_ARRAY();
607:
608: FOR c_get_usages_rec IN c_get_usages(p_template_id) LOOP
609: IF(p_is_amd_mode = 'true' AND c_get_usages_rec.attribute_category = 'CHAIN') THEN
610: IF PO_LOG.d_stmt THEN
611: PO_LOG.stmt(d_module, d_progress, 'Ignore Chain AG Ids');
612: END IF;
613:
614: ELSE
607:
608: FOR c_get_usages_rec IN c_get_usages(p_template_id) LOOP
609: IF(p_is_amd_mode = 'true' AND c_get_usages_rec.attribute_category = 'CHAIN') THEN
610: IF PO_LOG.d_stmt THEN
611: PO_LOG.stmt(d_module, d_progress, 'Ignore Chain AG Ids');
612: END IF;
613:
614: ELSE
615: l_po_uda_usage_object := po_uda_usage_object.new_instance(p_template_id,c_get_usages_rec.attribute_category,l_context );
626:
627: x_attr_grp_ids := l_attr_grp_ids;
628: x_return_status := 'S';
629:
630: IF PO_LOG.d_stmt THEN
631: PO_LOG.stmt(d_module, d_progress, 'x_attr_grp_ids', x_attr_grp_ids);
632: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
633: END IF;
634:
627: x_attr_grp_ids := l_attr_grp_ids;
628: x_return_status := 'S';
629:
630: IF PO_LOG.d_stmt THEN
631: PO_LOG.stmt(d_module, d_progress, 'x_attr_grp_ids', x_attr_grp_ids);
632: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
633: END IF;
634:
635: EXCEPTION
628: x_return_status := 'S';
629:
630: IF PO_LOG.d_stmt THEN
631: PO_LOG.stmt(d_module, d_progress, 'x_attr_grp_ids', x_attr_grp_ids);
632: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
633: END IF;
634:
635: EXCEPTION
636: WHEN OTHERS THEN
635: EXCEPTION
636: WHEN OTHERS THEN
637: d_progress := 40;
638: x_return_status := 'U';
639: IF PO_LOG.d_stmt THEN
640: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
641: END IF;
642: END get_pr_header_attr_group_ids;
643:
636: WHEN OTHERS THEN
637: d_progress := 40;
638: x_return_status := 'U';
639: IF PO_LOG.d_stmt THEN
640: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
641: END IF;
642: END get_pr_header_attr_group_ids;
643:
644: PROCEDURE merge_amendment_uda_header(p_confirmed_id IN NUMBER,
672: AND ATTRIBUTE_CATEGORY = 'ADDRESS';
673:
674: BEGIN
675:
676: IF (PO_LOG.d_proc) THEN
677: PO_LOG.proc_begin(d_module);
678: PO_LOG.proc_begin(d_module, 'p_confirmed_id', p_confirmed_id);
679: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
680: END IF;
673:
674: BEGIN
675:
676: IF (PO_LOG.d_proc) THEN
677: PO_LOG.proc_begin(d_module);
678: PO_LOG.proc_begin(d_module, 'p_confirmed_id', p_confirmed_id);
679: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
680: END IF;
681:
674: BEGIN
675:
676: IF (PO_LOG.d_proc) THEN
677: PO_LOG.proc_begin(d_module);
678: PO_LOG.proc_begin(d_module, 'p_confirmed_id', p_confirmed_id);
679: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
680: END IF;
681:
682: OPEN get_source_ids(p_confirmed_id, p_revision_num);
675:
676: IF (PO_LOG.d_proc) THEN
677: PO_LOG.proc_begin(d_module);
678: PO_LOG.proc_begin(d_module, 'p_confirmed_id', p_confirmed_id);
679: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
680: END IF;
681:
682: OPEN get_source_ids(p_confirmed_id, p_revision_num);
683: FETCH get_source_ids INTO l_req_source_hdr_id, l_template_id ;
716: ,x_msg_count => l_msg_count
717: ,x_msg_data => l_msg_data
718: );
719:
720: IF PO_LOG.d_stmt THEN
721: PO_LOG.stmt(d_module, d_progress, 'l_return_status', l_return_status);
722: END IF;
723:
724:
717: ,x_msg_data => l_msg_data
718: );
719:
720: IF PO_LOG.d_stmt THEN
721: PO_LOG.stmt(d_module, d_progress, 'l_return_status', l_return_status);
722: END IF;
723:
724:
725: PO_UDA_DATA_UTIL.Merge_Amendment_Address_AG(x_amd_requisition_header_id => l_req_source_hdr_id
725: PO_UDA_DATA_UTIL.Merge_Amendment_Address_AG(x_amd_requisition_header_id => l_req_source_hdr_id
726: ,x_requisition_header_id => p_confirmed_id
727: ,x_return_status => l_return_status );
728:
729: IF PO_LOG.d_stmt THEN
730: PO_LOG.stmt(d_module, d_progress, 'Merge_Amendment_Address_AG: l_return_status ', l_return_status);
731: END IF;
732:
733: EXCEPTION
726: ,x_requisition_header_id => p_confirmed_id
727: ,x_return_status => l_return_status );
728:
729: IF PO_LOG.d_stmt THEN
730: PO_LOG.stmt(d_module, d_progress, 'Merge_Amendment_Address_AG: l_return_status ', l_return_status);
731: END IF;
732:
733: EXCEPTION
734: WHEN OTHERS THEN
733: EXCEPTION
734: WHEN OTHERS THEN
735: d_progress := 40;
736: -- x_return_status := 'U';
737: /* IF PO_LOG.d_stmt THEN
738: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
739: END IF; */
740: END merge_amendment_uda_header ;
741:
734: WHEN OTHERS THEN
735: d_progress := 40;
736: -- x_return_status := 'U';
737: /* IF PO_LOG.d_stmt THEN
738: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
739: END IF; */
740: END merge_amendment_uda_header ;
741:
742:
766: AND revision_num = p_revision_num;
767:
768: BEGIN
769:
770: IF (PO_LOG.d_proc) THEN
771: PO_LOG.proc_begin(d_module);
772: PO_LOG.proc_begin(d_module, 'p_confirmed_id', p_confirmed_id);
773: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
774: END IF;
767:
768: BEGIN
769:
770: IF (PO_LOG.d_proc) THEN
771: PO_LOG.proc_begin(d_module);
772: PO_LOG.proc_begin(d_module, 'p_confirmed_id', p_confirmed_id);
773: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
774: END IF;
775:
768: BEGIN
769:
770: IF (PO_LOG.d_proc) THEN
771: PO_LOG.proc_begin(d_module);
772: PO_LOG.proc_begin(d_module, 'p_confirmed_id', p_confirmed_id);
773: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
774: END IF;
775:
776: OPEN get_req_header_id(p_confirmed_id, p_revision_num);
769:
770: IF (PO_LOG.d_proc) THEN
771: PO_LOG.proc_begin(d_module);
772: PO_LOG.proc_begin(d_module, 'p_confirmed_id', p_confirmed_id);
773: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
774: END IF;
775:
776: OPEN get_req_header_id(p_confirmed_id, p_revision_num);
777: FETCH get_req_header_id INTO l_req_source_hdr_id;
816: ,x_msg_data => l_msg_data
817: );
818: END LOOP;
819:
820: IF (PO_LOG.d_proc) THEN
821: PO_LOG.proc_begin(d_module);
822: PO_LOG.proc_begin(d_module, 'l_return_status', l_return_status);
823: END IF;
824:
817: );
818: END LOOP;
819:
820: IF (PO_LOG.d_proc) THEN
821: PO_LOG.proc_begin(d_module);
822: PO_LOG.proc_begin(d_module, 'l_return_status', l_return_status);
823: END IF;
824:
825: EXCEPTION
818: END LOOP;
819:
820: IF (PO_LOG.d_proc) THEN
821: PO_LOG.proc_begin(d_module);
822: PO_LOG.proc_begin(d_module, 'l_return_status', l_return_status);
823: END IF;
824:
825: EXCEPTION
826: WHEN OTHERS THEN
825: EXCEPTION
826: WHEN OTHERS THEN
827: d_progress := 40;
828: /* x_return_status := 'U';
829: IF PO_LOG.d_stmt THEN
830: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
831: END IF;
832: */
833: END merge_amendment_uda_line ;
826: WHEN OTHERS THEN
827: d_progress := 40;
828: /* x_return_status := 'U';
829: IF PO_LOG.d_stmt THEN
830: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
831: END IF;
832: */
833: END merge_amendment_uda_line ;
834:
856: WHERE requisition_header_id = p_from_req_header_id;
857:
858: BEGIN
859:
860: IF (PO_LOG.d_proc) THEN
861: PO_LOG.proc_begin(d_module);
862: PO_LOG.proc_begin(d_module, 'p_from_req_header_id', p_from_req_header_id);
863: PO_LOG.proc_begin(d_module, 'p_to_req_header_id', p_to_req_header_id);
864: END IF;
857:
858: BEGIN
859:
860: IF (PO_LOG.d_proc) THEN
861: PO_LOG.proc_begin(d_module);
862: PO_LOG.proc_begin(d_module, 'p_from_req_header_id', p_from_req_header_id);
863: PO_LOG.proc_begin(d_module, 'p_to_req_header_id', p_to_req_header_id);
864: END IF;
865:
858: BEGIN
859:
860: IF (PO_LOG.d_proc) THEN
861: PO_LOG.proc_begin(d_module);
862: PO_LOG.proc_begin(d_module, 'p_from_req_header_id', p_from_req_header_id);
863: PO_LOG.proc_begin(d_module, 'p_to_req_header_id', p_to_req_header_id);
864: END IF;
865:
866: OPEN get_source_ids(p_from_req_header_id);
859:
860: IF (PO_LOG.d_proc) THEN
861: PO_LOG.proc_begin(d_module);
862: PO_LOG.proc_begin(d_module, 'p_from_req_header_id', p_from_req_header_id);
863: PO_LOG.proc_begin(d_module, 'p_to_req_header_id', p_to_req_header_id);
864: END IF;
865:
866: OPEN get_source_ids(p_from_req_header_id);
867: FETCH get_source_ids INTO l_template_id ;
886: ,x_msg_count => l_msg_count
887: ,x_msg_data => l_msg_data
888: );
889:
890: IF (PO_LOG.d_proc) THEN
891: PO_LOG.proc_begin(d_module);
892: PO_LOG.proc_begin(d_module, 'l_return_status', l_return_status);
893: END IF;
894:
887: ,x_msg_data => l_msg_data
888: );
889:
890: IF (PO_LOG.d_proc) THEN
891: PO_LOG.proc_begin(d_module);
892: PO_LOG.proc_begin(d_module, 'l_return_status', l_return_status);
893: END IF;
894:
895: EXCEPTION
888: );
889:
890: IF (PO_LOG.d_proc) THEN
891: PO_LOG.proc_begin(d_module);
892: PO_LOG.proc_begin(d_module, 'l_return_status', l_return_status);
893: END IF;
894:
895: EXCEPTION
896: WHEN OTHERS THEN
895: EXCEPTION
896: WHEN OTHERS THEN
897: d_progress := 40;
898: x_return_status := 'U';
899: IF PO_LOG.d_stmt THEN
900: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
901: END IF;
902: END copy_uda_header ;
903:
896: WHEN OTHERS THEN
897: d_progress := 40;
898: x_return_status := 'U';
899: IF PO_LOG.d_stmt THEN
900: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
901: END IF;
902: END copy_uda_header ;
903:
904:
925: l_to_line_ids Dbms_Sql.number_table;
926:
927: BEGIN
928:
929: IF (PO_LOG.d_proc) THEN
930: PO_LOG.proc_begin(d_module);
931: PO_LOG.proc_begin(d_module, 'p_from_req_header_id', p_from_req_header_id);
932: PO_LOG.proc_begin(d_module, 'p_to_req_header_id', p_to_req_header_id);
933: END IF;
926:
927: BEGIN
928:
929: IF (PO_LOG.d_proc) THEN
930: PO_LOG.proc_begin(d_module);
931: PO_LOG.proc_begin(d_module, 'p_from_req_header_id', p_from_req_header_id);
932: PO_LOG.proc_begin(d_module, 'p_to_req_header_id', p_to_req_header_id);
933: END IF;
934:
927: BEGIN
928:
929: IF (PO_LOG.d_proc) THEN
930: PO_LOG.proc_begin(d_module);
931: PO_LOG.proc_begin(d_module, 'p_from_req_header_id', p_from_req_header_id);
932: PO_LOG.proc_begin(d_module, 'p_to_req_header_id', p_to_req_header_id);
933: END IF;
934:
935:
928:
929: IF (PO_LOG.d_proc) THEN
930: PO_LOG.proc_begin(d_module);
931: PO_LOG.proc_begin(d_module, 'p_from_req_header_id', p_from_req_header_id);
932: PO_LOG.proc_begin(d_module, 'p_to_req_header_id', p_to_req_header_id);
933: END IF;
934:
935:
936: SELECT requisition_line_id
975: );
976:
977: END LOOP;
978:
979: IF (PO_LOG.d_proc) THEN
980: PO_LOG.proc_begin(d_module);
981: PO_LOG.proc_begin(d_module, 'l_return_status', l_return_status);
982: END IF;
983:
976:
977: END LOOP;
978:
979: IF (PO_LOG.d_proc) THEN
980: PO_LOG.proc_begin(d_module);
981: PO_LOG.proc_begin(d_module, 'l_return_status', l_return_status);
982: END IF;
983:
984: EXCEPTION
977: END LOOP;
978:
979: IF (PO_LOG.d_proc) THEN
980: PO_LOG.proc_begin(d_module);
981: PO_LOG.proc_begin(d_module, 'l_return_status', l_return_status);
982: END IF;
983:
984: EXCEPTION
985: WHEN OTHERS THEN
984: EXCEPTION
985: WHEN OTHERS THEN
986: d_progress := 40;
987: x_return_status := 'U';
988: IF PO_LOG.d_stmt THEN
989: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
990: END IF;
991: END copy_uda_line ;
992:
985: WHEN OTHERS THEN
986: d_progress := 40;
987: x_return_status := 'U';
988: IF PO_LOG.d_stmt THEN
989: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
990: END IF;
991: END copy_uda_line ;
992:
993: PROCEDURE DEFAULT_NON_RENDER_UDA( p_req_header_id IN NUMBER,
1039: WHERE requisition_line_id = p_req_line_id;
1040:
1041:
1042: BEGIN
1043: IF (PO_LOG.d_proc) THEN
1044: PO_LOG.proc_begin(d_module);
1045: PO_LOG.proc_begin(d_module, 'p_req_header_id', p_req_header_id);
1046: END IF;
1047:
1040:
1041:
1042: BEGIN
1043: IF (PO_LOG.d_proc) THEN
1044: PO_LOG.proc_begin(d_module);
1045: PO_LOG.proc_begin(d_module, 'p_req_header_id', p_req_header_id);
1046: END IF;
1047:
1048: SELECT uda_template_id INTO l_template_id
1041:
1042: BEGIN
1043: IF (PO_LOG.d_proc) THEN
1044: PO_LOG.proc_begin(d_module);
1045: PO_LOG.proc_begin(d_module, 'p_req_header_id', p_req_header_id);
1046: END IF;
1047:
1048: SELECT uda_template_id INTO l_template_id
1049: FROM po_requisition_headers_all WHERE requisition_header_id = p_req_header_id;
1147: END LOOP;
1148: END IF;
1149: x_return_status := l_return_status;
1150:
1151: IF (PO_LOG.d_proc) THEN
1152: PO_LOG.proc_begin(d_module, 'x_return_status', x_return_status);
1153: END IF;
1154:
1155: EXCEPTION
1148: END IF;
1149: x_return_status := l_return_status;
1150:
1151: IF (PO_LOG.d_proc) THEN
1152: PO_LOG.proc_begin(d_module, 'x_return_status', x_return_status);
1153: END IF;
1154:
1155: EXCEPTION
1156: WHEN OTHERS THEN
1155: EXCEPTION
1156: WHEN OTHERS THEN
1157: d_progress := 40;
1158: x_return_status := 'U';
1159: IF PO_LOG.d_stmt THEN
1160: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
1161: END IF;
1162:
1163: END DEFAULT_NON_RENDER_UDA;
1156: WHEN OTHERS THEN
1157: d_progress := 40;
1158: x_return_status := 'U';
1159: IF PO_LOG.d_stmt THEN
1160: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
1161: END IF;
1162:
1163: END DEFAULT_NON_RENDER_UDA;
1164:
1192:
1193: BEGIN
1194:
1195:
1196: IF (PO_LOG.d_proc) THEN
1197: PO_LOG.proc_begin(d_module);
1198: PO_LOG.proc_begin(d_module, 'p_template_id', p_template_id);
1199: PO_LOG.proc_begin(d_module, 'p_old_hdr_id', p_old_header_id);
1200: PO_LOG.proc_begin(d_module, 'p_new_hdr_id', p_new_header_id);
1193: BEGIN
1194:
1195:
1196: IF (PO_LOG.d_proc) THEN
1197: PO_LOG.proc_begin(d_module);
1198: PO_LOG.proc_begin(d_module, 'p_template_id', p_template_id);
1199: PO_LOG.proc_begin(d_module, 'p_old_hdr_id', p_old_header_id);
1200: PO_LOG.proc_begin(d_module, 'p_new_hdr_id', p_new_header_id);
1201:
1194:
1195:
1196: IF (PO_LOG.d_proc) THEN
1197: PO_LOG.proc_begin(d_module);
1198: PO_LOG.proc_begin(d_module, 'p_template_id', p_template_id);
1199: PO_LOG.proc_begin(d_module, 'p_old_hdr_id', p_old_header_id);
1200: PO_LOG.proc_begin(d_module, 'p_new_hdr_id', p_new_header_id);
1201:
1202: END IF;
1195:
1196: IF (PO_LOG.d_proc) THEN
1197: PO_LOG.proc_begin(d_module);
1198: PO_LOG.proc_begin(d_module, 'p_template_id', p_template_id);
1199: PO_LOG.proc_begin(d_module, 'p_old_hdr_id', p_old_header_id);
1200: PO_LOG.proc_begin(d_module, 'p_new_hdr_id', p_new_header_id);
1201:
1202: END IF;
1203:
1196: IF (PO_LOG.d_proc) THEN
1197: PO_LOG.proc_begin(d_module);
1198: PO_LOG.proc_begin(d_module, 'p_template_id', p_template_id);
1199: PO_LOG.proc_begin(d_module, 'p_old_hdr_id', p_old_header_id);
1200: PO_LOG.proc_begin(d_module, 'p_new_hdr_id', p_new_header_id);
1201:
1202: END IF;
1203:
1204: open po_req_headers_ext_cursor ;
1553: WHEN others THEN
1554:
1555: d_progress := 20;
1556: x_return_status := 'U';
1557: IF PO_LOG.d_stmt THEN
1558: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
1559: END IF;
1560: RAISE;
1561:
1554:
1555: d_progress := 20;
1556: x_return_status := 'U';
1557: IF PO_LOG.d_stmt THEN
1558: PO_LOG.stmt(d_module, d_progress, 'x_return_status', x_return_status);
1559: END IF;
1560: RAISE;
1561:
1562: END COPY_DOC_NUMBER_UDA;