1: PACKAGE BODY PO_PDOI_HEADER_PROCESS_PVT AS
2: /* $Header: PO_PDOI_HEADER_PROCESS_PVT.plb 120.30.12010000.3 2009/01/09 14:45:07 ggandhi ship $ */
3:
4: d_pkg_name CONSTANT VARCHAR2(50) :=
5: PO_LOG.get_package_base('PO_PDOI_HEADER_PROCESS_PVT');
6:
7:
8: --------------------------------------------------------------------------
9: ---------------------- PRIVATE PROCEDURES PROTOTYPE ----------------------
139:
140: BEGIN
141: d_position := 0;
142:
143: IF (PO_LOG.d_proc) THEN
144: PO_LOG.proc_begin(d_module, 'p_max_intf_header_id', p_max_intf_header_id);
145: END IF;
146:
147: OPEN x_headers_csr FOR
140: BEGIN
141: d_position := 0;
142:
143: IF (PO_LOG.d_proc) THEN
144: PO_LOG.proc_begin(d_module, 'p_max_intf_header_id', p_max_intf_header_id);
145: END IF;
146:
147: OPEN x_headers_csr FOR
148: SELECT interface_header_id,
279: AND action IN (PO_PDOI_CONSTANTS.g_ACTION_ORIGINAL,
280: PO_PDOI_CONSTANTS.g_ACTION_REPLACE)
281: ORDER by interface_header_id;
282:
283: IF (PO_LOG.d_proc) THEN
284: PO_LOG.proc_end (d_module);
285: END IF;
286:
287: EXCEPTION
280: PO_PDOI_CONSTANTS.g_ACTION_REPLACE)
281: ORDER by interface_header_id;
282:
283: IF (PO_LOG.d_proc) THEN
284: PO_LOG.proc_end (d_module);
285: END IF;
286:
287: EXCEPTION
288: WHEN OTHERS THEN
321:
322: BEGIN
323: d_position := 0;
324:
325: IF (PO_LOG.d_proc) THEN
326: PO_LOG.proc_begin(d_module);
327: END IF;
328:
329: FETCH x_headers_csr BULK COLLECT INTO
322: BEGIN
323: d_position := 0;
324:
325: IF (PO_LOG.d_proc) THEN
326: PO_LOG.proc_begin(d_module);
327: END IF;
328:
329: FETCH x_headers_csr BULK COLLECT INTO
330: x_headers.intf_header_id_tbl,
455: -- blanket dist columns
456: x_headers.po_dist_id_tbl -- bug5252250
457: LIMIT PO_PDOI_CONSTANTS.g_DEF_BATCH_SIZE;
458:
459: IF (PO_LOG.d_proc) THEN
460: PO_LOG.proc_end (d_module);
461: END IF;
462:
463: EXCEPTION
456: x_headers.po_dist_id_tbl -- bug5252250
457: LIMIT PO_PDOI_CONSTANTS.g_DEF_BATCH_SIZE;
458:
459: IF (PO_LOG.d_proc) THEN
460: PO_LOG.proc_end (d_module);
461: END IF;
462:
463: EXCEPTION
464: WHEN OTHERS THEN
516: l_column_name VARCHAR2(11);
517: BEGIN
518: d_position := 0;
519:
520: IF (PO_LOG.d_proc) THEN
521: PO_LOG.proc_begin(d_module, 'header_count', x_headers.rec_count);
522: END IF;
523:
524: PO_TIMING_UTL.start_time(PO_PDOI_CONSTANTS.g_T_HEADER_DERIVE);
517: BEGIN
518: d_position := 0;
519:
520: IF (PO_LOG.d_proc) THEN
521: PO_LOG.proc_begin(d_module, 'header_count', x_headers.rec_count);
522: END IF;
523:
524: PO_TIMING_UTL.start_time(PO_PDOI_CONSTANTS.g_T_HEADER_DERIVE);
525:
525:
526: -- pick a new key which will be used in all derive logic
527: l_key := PO_CORE_S.get_session_gt_nextval;
528:
529: IF (PO_LOG.d_stmt) THEN
530: PO_LOG.stmt(d_module, d_position, 'key', l_key);
531: END IF;
532:
533: -- initialize table containing the row number
526: -- pick a new key which will be used in all derive logic
527: l_key := PO_CORE_S.get_session_gt_nextval;
528:
529: IF (PO_LOG.d_stmt) THEN
530: PO_LOG.stmt(d_module, d_position, 'key', l_key);
531: END IF;
532:
533: -- initialize table containing the row number
534: PO_PDOI_UTL.generate_ordered_num_list
643:
644: -- derive from_header_id from from_rfq_num for QUOTATION
645: IF (PO_PDOI_PARAMS.g_request.document_type =
646: PO_PDOI_CONSTANTS.g_DOC_TYPE_QUOTATION) THEN
647: IF (PO_LOG.d_stmt) THEN
648: PO_LOG.stmt(d_module, d_position, 'derive from header id');
649: END IF;
650:
651: derive_from_header_id
644: -- derive from_header_id from from_rfq_num for QUOTATION
645: IF (PO_PDOI_PARAMS.g_request.document_type =
646: PO_PDOI_CONSTANTS.g_DOC_TYPE_QUOTATION) THEN
647: IF (PO_LOG.d_stmt) THEN
648: PO_LOG.stmt(d_module, d_position, 'derive from header id');
649: END IF;
650:
651: derive_from_header_id
652: (
658: END IF;
659:
660: d_position := 100;
661:
662: IF (PO_LOG.d_stmt) THEN
663: PO_LOG.stmt(d_module, d_position, 'start processing derivation errors');
664: END IF;
665:
666: -- handle derivation errors
659:
660: d_position := 100;
661:
662: IF (PO_LOG.d_stmt) THEN
663: PO_LOG.stmt(d_module, d_position, 'start processing derivation errors');
664: END IF;
665:
666: -- handle derivation errors
667: FOR i IN 1..x_headers.rec_count
667: FOR i IN 1..x_headers.rec_count
668: LOOP
669: d_position := 110;
670:
671: IF (PO_LOG.d_stmt) THEN
672: PO_LOG.stmt(d_module, d_position, 'index', i);
673: END IF;
674:
675: IF (x_headers.rate_type_tbl(i) IS NOT NULL AND
668: LOOP
669: d_position := 110;
670:
671: IF (PO_LOG.d_stmt) THEN
672: PO_LOG.stmt(d_module, d_position, 'index', i);
673: END IF;
674:
675: IF (x_headers.rate_type_tbl(i) IS NOT NULL AND
676: x_headers.rate_type_code_tbl(i) IS NULL) THEN
673: END IF;
674:
675: IF (x_headers.rate_type_tbl(i) IS NOT NULL AND
676: x_headers.rate_type_code_tbl(i) IS NULL) THEN
677: IF (PO_LOG.d_stmt) THEN
678: PO_LOG.stmt(d_module, d_position, 'rate type code derivation failed');
679: PO_LOG.stmt(d_module, d_position, 'rate type', x_headers.rate_type_tbl(i));
680: END IF;
681:
674:
675: IF (x_headers.rate_type_tbl(i) IS NOT NULL AND
676: x_headers.rate_type_code_tbl(i) IS NULL) THEN
677: IF (PO_LOG.d_stmt) THEN
678: PO_LOG.stmt(d_module, d_position, 'rate type code derivation failed');
679: PO_LOG.stmt(d_module, d_position, 'rate type', x_headers.rate_type_tbl(i));
680: END IF;
681:
682: PO_PDOI_ERR_UTL.add_fatal_error
675: IF (x_headers.rate_type_tbl(i) IS NOT NULL AND
676: x_headers.rate_type_code_tbl(i) IS NULL) THEN
677: IF (PO_LOG.d_stmt) THEN
678: PO_LOG.stmt(d_module, d_position, 'rate type code derivation failed');
679: PO_LOG.stmt(d_module, d_position, 'rate type', x_headers.rate_type_tbl(i));
680: END IF;
681:
682: PO_PDOI_ERR_UTL.add_fatal_error
683: (
698: END IF;
699:
700: IF (x_headers.agent_name_tbl(i) IS NOT NULL AND
701: x_headers.agent_id_tbl(i) IS NULL) THEN
702: IF (PO_LOG.d_stmt) THEN
703: PO_LOG.stmt(d_module, d_position, 'agent id derivation failed');
704: PO_LOG.stmt(d_module, d_position, 'agent name', x_headers.agent_name_tbl(i));
705: END IF;
706:
699:
700: IF (x_headers.agent_name_tbl(i) IS NOT NULL AND
701: x_headers.agent_id_tbl(i) IS NULL) THEN
702: IF (PO_LOG.d_stmt) THEN
703: PO_LOG.stmt(d_module, d_position, 'agent id derivation failed');
704: PO_LOG.stmt(d_module, d_position, 'agent name', x_headers.agent_name_tbl(i));
705: END IF;
706:
707: PO_PDOI_ERR_UTL.add_fatal_error
700: IF (x_headers.agent_name_tbl(i) IS NOT NULL AND
701: x_headers.agent_id_tbl(i) IS NULL) THEN
702: IF (PO_LOG.d_stmt) THEN
703: PO_LOG.stmt(d_module, d_position, 'agent id derivation failed');
704: PO_LOG.stmt(d_module, d_position, 'agent name', x_headers.agent_name_tbl(i));
705: END IF;
706:
707: PO_PDOI_ERR_UTL.add_fatal_error
708: (
721: END IF;
722:
723: IF (x_headers.ship_to_loc_tbl(i) IS NOT NULL AND
724: x_headers.ship_to_loc_id_tbl(i) IS NULL) THEN
725: IF (PO_LOG.d_stmt) THEN
726: PO_LOG.stmt(d_module, d_position, 'ship_to loc id derivation failed');
727: PO_LOG.stmt(d_module, d_position, 'ship_to loc', x_headers.ship_to_loc_tbl(i));
728: END IF;
729:
722:
723: IF (x_headers.ship_to_loc_tbl(i) IS NOT NULL AND
724: x_headers.ship_to_loc_id_tbl(i) IS NULL) THEN
725: IF (PO_LOG.d_stmt) THEN
726: PO_LOG.stmt(d_module, d_position, 'ship_to loc id derivation failed');
727: PO_LOG.stmt(d_module, d_position, 'ship_to loc', x_headers.ship_to_loc_tbl(i));
728: END IF;
729:
730: PO_PDOI_ERR_UTL.add_fatal_error
723: IF (x_headers.ship_to_loc_tbl(i) IS NOT NULL AND
724: x_headers.ship_to_loc_id_tbl(i) IS NULL) THEN
725: IF (PO_LOG.d_stmt) THEN
726: PO_LOG.stmt(d_module, d_position, 'ship_to loc id derivation failed');
727: PO_LOG.stmt(d_module, d_position, 'ship_to loc', x_headers.ship_to_loc_tbl(i));
728: END IF;
729:
730: PO_PDOI_ERR_UTL.add_fatal_error
731: (
744: END IF;
745:
746: IF (x_headers.bill_to_loc_tbl(i) IS NOT NULL AND
747: x_headers.bill_to_loc_id_tbl(i) IS NULL) THEN
748: IF (PO_LOG.d_stmt) THEN
749: PO_LOG.stmt(d_module, d_position, 'bill_to loc id derivation failed');
750: PO_LOG.stmt(d_module, d_position, 'bill_to loc', x_headers.bill_to_loc_tbl(i));
751: END IF;
752:
745:
746: IF (x_headers.bill_to_loc_tbl(i) IS NOT NULL AND
747: x_headers.bill_to_loc_id_tbl(i) IS NULL) THEN
748: IF (PO_LOG.d_stmt) THEN
749: PO_LOG.stmt(d_module, d_position, 'bill_to loc id derivation failed');
750: PO_LOG.stmt(d_module, d_position, 'bill_to loc', x_headers.bill_to_loc_tbl(i));
751: END IF;
752:
753: PO_PDOI_ERR_UTL.add_fatal_error
746: IF (x_headers.bill_to_loc_tbl(i) IS NOT NULL AND
747: x_headers.bill_to_loc_id_tbl(i) IS NULL) THEN
748: IF (PO_LOG.d_stmt) THEN
749: PO_LOG.stmt(d_module, d_position, 'bill_to loc id derivation failed');
750: PO_LOG.stmt(d_module, d_position, 'bill_to loc', x_headers.bill_to_loc_tbl(i));
751: END IF;
752:
753: PO_PDOI_ERR_UTL.add_fatal_error
754: (
767: END IF;
768:
769: IF (x_headers.payment_terms_tbl(i) IS NOT NULL AND
770: x_headers.terms_id_tbl(i) IS NULL) THEN
771: IF (PO_LOG.d_stmt) THEN
772: PO_LOG.stmt(d_module, d_position, 'terms id derivation failed');
773: PO_LOG.stmt(d_module, d_position, 'payment terms', x_headers.payment_terms_tbl(i));
774: END IF;
775:
768:
769: IF (x_headers.payment_terms_tbl(i) IS NOT NULL AND
770: x_headers.terms_id_tbl(i) IS NULL) THEN
771: IF (PO_LOG.d_stmt) THEN
772: PO_LOG.stmt(d_module, d_position, 'terms id derivation failed');
773: PO_LOG.stmt(d_module, d_position, 'payment terms', x_headers.payment_terms_tbl(i));
774: END IF;
775:
776: PO_PDOI_ERR_UTL.add_fatal_error
769: IF (x_headers.payment_terms_tbl(i) IS NOT NULL AND
770: x_headers.terms_id_tbl(i) IS NULL) THEN
771: IF (PO_LOG.d_stmt) THEN
772: PO_LOG.stmt(d_module, d_position, 'terms id derivation failed');
773: PO_LOG.stmt(d_module, d_position, 'payment terms', x_headers.payment_terms_tbl(i));
774: END IF;
775:
776: PO_PDOI_ERR_UTL.add_fatal_error
777: (
797: ELSE
798: l_column_name := 'VENDOR_NUM';
799: END IF;
800:
801: IF (PO_LOG.d_stmt) THEN
802: PO_LOG.stmt(d_module, d_position, 'vendor id derivation failed');
803: PO_LOG.stmt(d_module, d_position, 'vendor name', x_headers.vendor_name_tbl(i));
804: PO_LOG.stmt(d_module, d_position, 'vendor num', x_headers.vendor_num_tbl(i));
805: END IF;
798: l_column_name := 'VENDOR_NUM';
799: END IF;
800:
801: IF (PO_LOG.d_stmt) THEN
802: PO_LOG.stmt(d_module, d_position, 'vendor id derivation failed');
803: PO_LOG.stmt(d_module, d_position, 'vendor name', x_headers.vendor_name_tbl(i));
804: PO_LOG.stmt(d_module, d_position, 'vendor num', x_headers.vendor_num_tbl(i));
805: END IF;
806:
799: END IF;
800:
801: IF (PO_LOG.d_stmt) THEN
802: PO_LOG.stmt(d_module, d_position, 'vendor id derivation failed');
803: PO_LOG.stmt(d_module, d_position, 'vendor name', x_headers.vendor_name_tbl(i));
804: PO_LOG.stmt(d_module, d_position, 'vendor num', x_headers.vendor_num_tbl(i));
805: END IF;
806:
807: PO_PDOI_ERR_UTL.add_fatal_error
800:
801: IF (PO_LOG.d_stmt) THEN
802: PO_LOG.stmt(d_module, d_position, 'vendor id derivation failed');
803: PO_LOG.stmt(d_module, d_position, 'vendor name', x_headers.vendor_name_tbl(i));
804: PO_LOG.stmt(d_module, d_position, 'vendor num', x_headers.vendor_num_tbl(i));
805: END IF;
806:
807: PO_PDOI_ERR_UTL.add_fatal_error
808: (
822: END IF;
823:
824: IF (x_headers.vendor_site_code_tbl(i) IS NOT NULL AND
825: x_headers.vendor_site_id_tbl(i) IS NULL) THEN
826: IF (PO_LOG.d_stmt) THEN
827: PO_LOG.stmt(d_module, d_position, 'vendor site id derivation failed');
828: PO_LOG.stmt(d_module, d_position, 'vendor site', x_headers.vendor_site_code_tbl(i));
829: END IF;
830:
823:
824: IF (x_headers.vendor_site_code_tbl(i) IS NOT NULL AND
825: x_headers.vendor_site_id_tbl(i) IS NULL) THEN
826: IF (PO_LOG.d_stmt) THEN
827: PO_LOG.stmt(d_module, d_position, 'vendor site id derivation failed');
828: PO_LOG.stmt(d_module, d_position, 'vendor site', x_headers.vendor_site_code_tbl(i));
829: END IF;
830:
831: PO_PDOI_ERR_UTL.add_fatal_error
824: IF (x_headers.vendor_site_code_tbl(i) IS NOT NULL AND
825: x_headers.vendor_site_id_tbl(i) IS NULL) THEN
826: IF (PO_LOG.d_stmt) THEN
827: PO_LOG.stmt(d_module, d_position, 'vendor site id derivation failed');
828: PO_LOG.stmt(d_module, d_position, 'vendor site', x_headers.vendor_site_code_tbl(i));
829: END IF;
830:
831: PO_PDOI_ERR_UTL.add_fatal_error
832: (
845: END IF;
846:
847: IF (x_headers.vendor_contact_tbl(i) IS NOT NULL AND
848: x_headers.vendor_contact_id_tbl(i) IS NULL) THEN
849: IF (PO_LOG.d_stmt) THEN
850: PO_LOG.stmt(d_module, d_position, 'contact id derivation failed');
851: PO_LOG.stmt(d_module, d_position, 'contact', x_headers.vendor_contact_tbl(i));
852: END IF;
853:
846:
847: IF (x_headers.vendor_contact_tbl(i) IS NOT NULL AND
848: x_headers.vendor_contact_id_tbl(i) IS NULL) THEN
849: IF (PO_LOG.d_stmt) THEN
850: PO_LOG.stmt(d_module, d_position, 'contact id derivation failed');
851: PO_LOG.stmt(d_module, d_position, 'contact', x_headers.vendor_contact_tbl(i));
852: END IF;
853:
854: PO_PDOI_ERR_UTL.add_fatal_error
847: IF (x_headers.vendor_contact_tbl(i) IS NOT NULL AND
848: x_headers.vendor_contact_id_tbl(i) IS NULL) THEN
849: IF (PO_LOG.d_stmt) THEN
850: PO_LOG.stmt(d_module, d_position, 'contact id derivation failed');
851: PO_LOG.stmt(d_module, d_position, 'contact', x_headers.vendor_contact_tbl(i));
852: END IF;
853:
854: PO_PDOI_ERR_UTL.add_fatal_error
855: (
868: END IF;
869:
870: IF (x_headers.style_display_name_tbl(i) IS NOT NULL AND
871: x_headers.style_id_tbl(i) IS NULL) THEN
872: IF (PO_LOG.d_stmt) THEN
873: PO_LOG.stmt(d_module, d_position, 'style id derivation failed');
874: PO_LOG.stmt(d_module, d_position, 'style_display_name', x_headers.style_display_name_tbl(i));
875: END IF;
876:
869:
870: IF (x_headers.style_display_name_tbl(i) IS NOT NULL AND
871: x_headers.style_id_tbl(i) IS NULL) THEN
872: IF (PO_LOG.d_stmt) THEN
873: PO_LOG.stmt(d_module, d_position, 'style id derivation failed');
874: PO_LOG.stmt(d_module, d_position, 'style_display_name', x_headers.style_display_name_tbl(i));
875: END IF;
876:
877: PO_PDOI_ERR_UTL.add_fatal_error
870: IF (x_headers.style_display_name_tbl(i) IS NOT NULL AND
871: x_headers.style_id_tbl(i) IS NULL) THEN
872: IF (PO_LOG.d_stmt) THEN
873: PO_LOG.stmt(d_module, d_position, 'style id derivation failed');
874: PO_LOG.stmt(d_module, d_position, 'style_display_name', x_headers.style_display_name_tbl(i));
875: END IF;
876:
877: PO_PDOI_ERR_UTL.add_fatal_error
878: (
893: IF (PO_PDOI_PARAMS.g_request.document_type =
894: PO_PDOI_CONSTANTS.g_DOC_TYPE_QUOTATION) THEN
895: IF (x_headers.from_rfq_num_tbl(i) IS NOT NULL AND
896: x_headers.from_header_id_tbl(i) IS NULL) THEN
897: IF (PO_LOG.d_stmt) THEN
898: PO_LOG.stmt(d_module, d_position, 'from header id derivation failed');
899: PO_LOG.stmt(d_module, d_position, 'rfq num', x_headers.from_rfq_num_tbl(i));
900: END IF;
901:
894: PO_PDOI_CONSTANTS.g_DOC_TYPE_QUOTATION) THEN
895: IF (x_headers.from_rfq_num_tbl(i) IS NOT NULL AND
896: x_headers.from_header_id_tbl(i) IS NULL) THEN
897: IF (PO_LOG.d_stmt) THEN
898: PO_LOG.stmt(d_module, d_position, 'from header id derivation failed');
899: PO_LOG.stmt(d_module, d_position, 'rfq num', x_headers.from_rfq_num_tbl(i));
900: END IF;
901:
902: PO_PDOI_ERR_UTL.add_fatal_error
895: IF (x_headers.from_rfq_num_tbl(i) IS NOT NULL AND
896: x_headers.from_header_id_tbl(i) IS NULL) THEN
897: IF (PO_LOG.d_stmt) THEN
898: PO_LOG.stmt(d_module, d_position, 'from header id derivation failed');
899: PO_LOG.stmt(d_module, d_position, 'rfq num', x_headers.from_rfq_num_tbl(i));
900: END IF;
901:
902: PO_PDOI_ERR_UTL.add_fatal_error
903: (
916: END IF;
917: END IF;
918: END LOOP;
919:
920: IF (PO_LOG.d_stmt) THEN
921: PO_LOG.stmt(d_module, d_position, 'end of processing derivation errors');
922: END IF;
923:
924: PO_TIMING_UTL.stop_time(PO_PDOI_CONSTANTS.g_T_HEADER_DERIVE);
917: END IF;
918: END LOOP;
919:
920: IF (PO_LOG.d_stmt) THEN
921: PO_LOG.stmt(d_module, d_position, 'end of processing derivation errors');
922: END IF;
923:
924: PO_TIMING_UTL.stop_time(PO_PDOI_CONSTANTS.g_T_HEADER_DERIVE);
925:
922: END IF;
923:
924: PO_TIMING_UTL.stop_time(PO_PDOI_CONSTANTS.g_T_HEADER_DERIVE);
925:
926: IF (PO_LOG.d_proc) THEN
927: PO_LOG.proc_end (d_module);
928: END IF;
929:
930: EXCEPTION
923:
924: PO_TIMING_UTL.stop_time(PO_PDOI_CONSTANTS.g_T_HEADER_DERIVE);
925:
926: IF (PO_LOG.d_proc) THEN
927: PO_LOG.proc_end (d_module);
928: END IF;
929:
930: EXCEPTION
931: WHEN OTHERS THEN
1002: l_display_rate NUMBER;
1003: BEGIN
1004: d_position := 0;
1005:
1006: IF (PO_LOG.d_proc) THEN
1007: PO_LOG.proc_begin(d_module);
1008: END IF;
1009:
1010: PO_TIMING_UTL.start_time(PO_PDOI_CONSTANTS.g_T_HEADER_DEFAULT);
1003: BEGIN
1004: d_position := 0;
1005:
1006: IF (PO_LOG.d_proc) THEN
1007: PO_LOG.proc_begin(d_module);
1008: END IF;
1009:
1010: PO_TIMING_UTL.start_time(PO_PDOI_CONSTANTS.g_T_HEADER_DEFAULT);
1011:
1011:
1012: -- pick a new key which will be used in all derive logic
1013: l_key := PO_CORE_S.get_session_gt_nextval;
1014:
1015: IF (PO_LOG.d_stmt) THEN
1016: PO_LOG.stmt(d_module, d_position, 'key', l_key);
1017: END IF;
1018:
1019: -- initialize table containing the row number
1012: -- pick a new key which will be used in all derive logic
1013: l_key := PO_CORE_S.get_session_gt_nextval;
1014:
1015: IF (PO_LOG.d_stmt) THEN
1016: PO_LOG.stmt(d_module, d_position, 'key', l_key);
1017: END IF;
1018:
1019: -- initialize table containing the row number
1020: PO_PDOI_UTL.generate_ordered_num_list
1071: FOR i IN 1..x_headers.rec_count
1072: LOOP
1073: d_position := 50;
1074:
1075: IF (PO_LOG.d_stmt) THEN
1076: PO_LOG.stmt(d_module, d_position, 'index', i);
1077: END IF;
1078:
1079:
1072: LOOP
1073: d_position := 50;
1074:
1075: IF (PO_LOG.d_stmt) THEN
1076: PO_LOG.stmt(d_module, d_position, 'index', i);
1077: END IF;
1078:
1079:
1080:
1184: (
1185: x_headers.doc_subtype_tbl(i)
1186: );
1187:
1188: IF (PO_LOG.d_stmt) THEN
1189: PO_LOG.stmt(d_module, d_position, 'quote class code',
1190: x_headers.quotation_class_code_tbl(i));
1191: END IF;
1192:
1185: x_headers.doc_subtype_tbl(i)
1186: );
1187:
1188: IF (PO_LOG.d_stmt) THEN
1189: PO_LOG.stmt(d_module, d_position, 'quote class code',
1190: x_headers.quotation_class_code_tbl(i));
1191: END IF;
1192:
1193: -- set global agreement flag to NULL
1254: IF (x_headers.document_num_tbl(i) IS NULL) THEN
1255: x_headers.document_num_tbl(i) := -x_headers.po_header_id_tbl(i);
1256: END IF;
1257:
1258: IF (PO_LOG.d_stmt) THEN
1259: PO_LOG.stmt(d_module, d_position, 'temp doc num',
1260: x_headers.document_num_tbl(i));
1261: END IF;
1262:
1255: x_headers.document_num_tbl(i) := -x_headers.po_header_id_tbl(i);
1256: END IF;
1257:
1258: IF (PO_LOG.d_stmt) THEN
1259: PO_LOG.stmt(d_module, d_position, 'temp doc num',
1260: x_headers.document_num_tbl(i));
1261: END IF;
1262:
1263: END IF;
1327: IF (x_headers.document_num_tbl(i) IS NULL) THEN
1328: x_headers.document_num_tbl(i) := -x_headers.po_header_id_tbl(i);
1329: END IF;
1330:
1331: IF (PO_LOG.d_stmt) THEN
1332: PO_LOG.stmt(d_module, d_position, 'temp doc num',
1333: x_headers.document_num_tbl(i));
1334: END IF;
1335: END IF;
1328: x_headers.document_num_tbl(i) := -x_headers.po_header_id_tbl(i);
1329: END IF;
1330:
1331: IF (PO_LOG.d_stmt) THEN
1332: PO_LOG.stmt(d_module, d_position, 'temp doc num',
1333: x_headers.document_num_tbl(i));
1334: END IF;
1335: END IF;
1336: ELSIF (x_headers.doc_type_tbl(i) = PO_PDOI_CONSTANTS.g_DOC_TYPE_STANDARD) THEN
1395: IF (x_headers.document_num_tbl(i) IS NULL) THEN
1396: x_headers.document_num_tbl(i) := -x_headers.po_header_id_tbl(i);
1397: END IF;
1398:
1399: IF (PO_LOG.d_stmt) THEN
1400: PO_LOG.stmt(d_module, d_position, 'temp doc num',
1401: x_headers.document_num_tbl(i));
1402: END IF;
1403:
1396: x_headers.document_num_tbl(i) := -x_headers.po_header_id_tbl(i);
1397: END IF;
1398:
1399: IF (PO_LOG.d_stmt) THEN
1400: PO_LOG.stmt(d_module, d_position, 'temp doc num',
1401: x_headers.document_num_tbl(i));
1402: END IF;
1403:
1404: END IF;
1407: d_position := 160;
1408:
1409: -- default rate info after currency is defaulted
1410: IF (x_headers.currency_code_tbl(i) <> PO_PDOI_PARAMS.g_sys.currency_code) THEN
1411: IF (PO_LOG.d_stmt) THEN
1412: PO_LOG.stmt(d_module, d_position, 'default rate info');
1413: PO_LOG.stmt(d_module, d_position, 'currency_code',
1414: x_headers.currency_code_tbl(i));
1415: END IF;
1408:
1409: -- default rate info after currency is defaulted
1410: IF (x_headers.currency_code_tbl(i) <> PO_PDOI_PARAMS.g_sys.currency_code) THEN
1411: IF (PO_LOG.d_stmt) THEN
1412: PO_LOG.stmt(d_module, d_position, 'default rate info');
1413: PO_LOG.stmt(d_module, d_position, 'currency_code',
1414: x_headers.currency_code_tbl(i));
1415: END IF;
1416:
1409: -- default rate info after currency is defaulted
1410: IF (x_headers.currency_code_tbl(i) <> PO_PDOI_PARAMS.g_sys.currency_code) THEN
1411: IF (PO_LOG.d_stmt) THEN
1412: PO_LOG.stmt(d_module, d_position, 'default rate info');
1413: PO_LOG.stmt(d_module, d_position, 'currency_code',
1414: x_headers.currency_code_tbl(i));
1415: END IF;
1416:
1417: -- default rate_date
1429: x_headers.rate_type_code_tbl(i) :=
1430: NVL(x_headers.rate_type_code_tbl(i), PO_PDOI_PARAMS.g_sys.default_rate_type); --bug 7653758
1431: END IF;
1432:
1433: IF (PO_LOG.d_stmt) THEN
1434: PO_LOG.stmt(d_module, d_position, 'rate type',
1435: x_headers.rate_type_code_tbl(i)); --bug7653758
1436: END IF;
1437:
1430: NVL(x_headers.rate_type_code_tbl(i), PO_PDOI_PARAMS.g_sys.default_rate_type); --bug 7653758
1431: END IF;
1432:
1433: IF (PO_LOG.d_stmt) THEN
1434: PO_LOG.stmt(d_module, d_position, 'rate type',
1435: x_headers.rate_type_code_tbl(i)); --bug7653758
1436: END IF;
1437:
1438: d_position := 170;
1450: x_rate => x_headers.rate_tbl(i),
1451: x_display_rate => l_display_rate
1452: );
1453:
1454: IF (PO_LOG.d_stmt) THEN
1455: PO_LOG.stmt(d_module, d_position, 'rate', x_headers.rate_tbl(i));
1456: END IF;
1457: END IF;
1458: END IF;
1451: x_display_rate => l_display_rate
1452: );
1453:
1454: IF (PO_LOG.d_stmt) THEN
1455: PO_LOG.stmt(d_module, d_position, 'rate', x_headers.rate_tbl(i));
1456: END IF;
1457: END IF;
1458: END IF;
1459: END LOOP;
1465: IF (PO_PDOI_PARAMS.g_request.document_type =
1466: PO_PDOI_CONSTANTS.g_DOC_TYPE_BLANKET AND
1467: PO_PDOI_PARAMS.g_sys.po_encumbrance_flag = 'Y' AND
1468: PO_PDOI_PARAMS.g_sys.req_encumbrance_flag = 'Y') THEN
1469: IF (PO_LOG.d_stmt) THEN
1470: PO_LOG.stmt(d_module, d_position, 'create distribution for blanket' ||
1471: ' since encumbrance is required');
1472: END IF;
1473:
1466: PO_PDOI_CONSTANTS.g_DOC_TYPE_BLANKET AND
1467: PO_PDOI_PARAMS.g_sys.po_encumbrance_flag = 'Y' AND
1468: PO_PDOI_PARAMS.g_sys.req_encumbrance_flag = 'Y') THEN
1469: IF (PO_LOG.d_stmt) THEN
1470: PO_LOG.stmt(d_module, d_position, 'create distribution for blanket' ||
1471: ' since encumbrance is required');
1472: END IF;
1473:
1474: default_dist_attributes
1494: );
1495:
1496: PO_TIMING_UTL.stop_time(PO_PDOI_CONSTANTS.g_T_HEADER_DEFAULT);
1497:
1498: IF (PO_LOG.d_proc) THEN
1499: PO_LOG.proc_end (d_module);
1500: END IF;
1501:
1502: EXCEPTION
1495:
1496: PO_TIMING_UTL.stop_time(PO_PDOI_CONSTANTS.g_T_HEADER_DEFAULT);
1497:
1498: IF (PO_LOG.d_proc) THEN
1499: PO_LOG.proc_end (d_module);
1500: END IF;
1501:
1502: EXCEPTION
1503: WHEN OTHERS THEN
1542:
1543: BEGIN
1544: d_position := 0;
1545:
1546: IF (PO_LOG.d_proc) THEN
1547: PO_LOG.proc_begin(d_module, 'x_headers', x_headers.intf_header_id_tbl);
1548: END IF;
1549:
1550: PO_TIMING_UTL.start_time(PO_PDOI_CONSTANTS.g_T_HEADER_VALIDATE);
1543: BEGIN
1544: d_position := 0;
1545:
1546: IF (PO_LOG.d_proc) THEN
1547: PO_LOG.proc_begin(d_module, 'x_headers', x_headers.intf_header_id_tbl);
1548: END IF;
1549:
1550: PO_TIMING_UTL.start_time(PO_PDOI_CONSTANTS.g_T_HEADER_VALIDATE);
1551:
1622:
1623: d_position := 20;
1624:
1625: IF l_result_type = po_validations.c_result_type_failure THEN
1626: IF (PO_LOG.d_stmt) THEN
1627: PO_LOG.stmt(d_module, d_position, 'vaidate headers return failure');
1628: END IF;
1629:
1630: PO_PDOI_ERR_UTL.process_val_type_errors
1623: d_position := 20;
1624:
1625: IF l_result_type = po_validations.c_result_type_failure THEN
1626: IF (PO_LOG.d_stmt) THEN
1627: PO_LOG.stmt(d_module, d_position, 'vaidate headers return failure');
1628: END IF;
1629:
1630: PO_PDOI_ERR_UTL.process_val_type_errors
1631: (
1645:
1646: d_position := 40;
1647:
1648: IF l_result_type = po_validations.c_result_type_fatal THEN
1649: IF (PO_LOG.d_stmt) THEN
1650: PO_LOG.stmt(d_module, d_position, 'vaidate headers return fatal');
1651: END IF;
1652:
1653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1646: d_position := 40;
1647:
1648: IF l_result_type = po_validations.c_result_type_fatal THEN
1649: IF (PO_LOG.d_stmt) THEN
1650: PO_LOG.stmt(d_module, d_position, 'vaidate headers return fatal');
1651: END IF;
1652:
1653: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1654: END IF;
1656: d_position := 50;
1657:
1658: PO_TIMING_UTL.stop_time(PO_PDOI_CONSTANTS.g_T_HEADER_VALIDATE);
1659:
1660: IF (PO_LOG.d_proc) THEN
1661: PO_LOG.proc_end (d_module);
1662: END IF;
1663:
1664: EXCEPTION
1657:
1658: PO_TIMING_UTL.stop_time(PO_PDOI_CONSTANTS.g_T_HEADER_VALIDATE);
1659:
1660: IF (PO_LOG.d_proc) THEN
1661: PO_LOG.proc_end (d_module);
1662: END IF;
1663:
1664: EXCEPTION
1665: WHEN OTHERS THEN
1717: l_result_tbl PO_TBL_NUMBER;
1718: BEGIN
1719: d_position := 0;
1720:
1721: IF (PO_LOG.d_proc) THEN
1722: PO_LOG.proc_begin(d_module, 'location type', p_location_type);
1723: PO_LOG.proc_begin(d_module, 'locations', p_location_tbl);
1724: PO_LOG.proc_begin(d_module, 'location ids', x_location_id_tbl);
1725: END IF;
1718: BEGIN
1719: d_position := 0;
1720:
1721: IF (PO_LOG.d_proc) THEN
1722: PO_LOG.proc_begin(d_module, 'location type', p_location_type);
1723: PO_LOG.proc_begin(d_module, 'locations', p_location_tbl);
1724: PO_LOG.proc_begin(d_module, 'location ids', x_location_id_tbl);
1725: END IF;
1726:
1719: d_position := 0;
1720:
1721: IF (PO_LOG.d_proc) THEN
1722: PO_LOG.proc_begin(d_module, 'location type', p_location_type);
1723: PO_LOG.proc_begin(d_module, 'locations', p_location_tbl);
1724: PO_LOG.proc_begin(d_module, 'location ids', x_location_id_tbl);
1725: END IF;
1726:
1727: IF (p_location_type = 'SHIP_TO') THEN
1720:
1721: IF (PO_LOG.d_proc) THEN
1722: PO_LOG.proc_begin(d_module, 'location type', p_location_type);
1723: PO_LOG.proc_begin(d_module, 'locations', p_location_tbl);
1724: PO_LOG.proc_begin(d_module, 'location ids', x_location_id_tbl);
1725: END IF;
1726:
1727: IF (p_location_type = 'SHIP_TO') THEN
1728: FORALL i IN 1..p_index_tbl.COUNT
1757: d_position := 20;
1758:
1759: FOR i IN 1..l_index_tbl.COUNT
1760: LOOP
1761: IF (PO_LOG.d_stmt) THEN
1762: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
1763: PO_LOG.stmt(d_module, d_position, 'new location id', l_result_tbl(i));
1764: END IF;
1765:
1758:
1759: FOR i IN 1..l_index_tbl.COUNT
1760: LOOP
1761: IF (PO_LOG.d_stmt) THEN
1762: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
1763: PO_LOG.stmt(d_module, d_position, 'new location id', l_result_tbl(i));
1764: END IF;
1765:
1766: x_location_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
1759: FOR i IN 1..l_index_tbl.COUNT
1760: LOOP
1761: IF (PO_LOG.d_stmt) THEN
1762: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
1763: PO_LOG.stmt(d_module, d_position, 'new location id', l_result_tbl(i));
1764: END IF;
1765:
1766: x_location_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
1767: END LOOP;
1765:
1766: x_location_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
1767: END LOOP;
1768:
1769: IF (PO_LOG.d_proc) THEN
1770: PO_LOG.proc_end(d_module);
1771: END IF;
1772:
1773: EXCEPTION
1766: x_location_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
1767: END LOOP;
1768:
1769: IF (PO_LOG.d_proc) THEN
1770: PO_LOG.proc_end(d_module);
1771: END IF;
1772:
1773: EXCEPTION
1774: WHEN OTHERS THEN
1823: l_result_tbl PO_TBL_NUMBER;
1824: BEGIN
1825: d_position := 0;
1826:
1827: IF (PO_LOG.d_proc) THEN
1828: PO_LOG.proc_begin(d_module, 'payment terms', p_payment_terms_tbl);
1829: PO_LOG.proc_begin(d_module, 'terms ids', x_terms_id_tbl);
1830: END IF;
1831:
1824: BEGIN
1825: d_position := 0;
1826:
1827: IF (PO_LOG.d_proc) THEN
1828: PO_LOG.proc_begin(d_module, 'payment terms', p_payment_terms_tbl);
1829: PO_LOG.proc_begin(d_module, 'terms ids', x_terms_id_tbl);
1830: END IF;
1831:
1832: FORALL i IN 1..p_index_tbl.COUNT
1825: d_position := 0;
1826:
1827: IF (PO_LOG.d_proc) THEN
1828: PO_LOG.proc_begin(d_module, 'payment terms', p_payment_terms_tbl);
1829: PO_LOG.proc_begin(d_module, 'terms ids', x_terms_id_tbl);
1830: END IF;
1831:
1832: FORALL i IN 1..p_index_tbl.COUNT
1833: INSERT INTO po_session_gt(key, num1, num2)
1851: d_position := 20;
1852:
1853: FOR i IN 1..l_index_tbl.COUNT
1854: LOOP
1855: IF (PO_LOG.d_stmt) THEN
1856: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
1857: PO_LOG.stmt(d_module, d_position, 'new terms id', l_result_tbl(i));
1858: END IF;
1859:
1852:
1853: FOR i IN 1..l_index_tbl.COUNT
1854: LOOP
1855: IF (PO_LOG.d_stmt) THEN
1856: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
1857: PO_LOG.stmt(d_module, d_position, 'new terms id', l_result_tbl(i));
1858: END IF;
1859:
1860: x_terms_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
1853: FOR i IN 1..l_index_tbl.COUNT
1854: LOOP
1855: IF (PO_LOG.d_stmt) THEN
1856: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
1857: PO_LOG.stmt(d_module, d_position, 'new terms id', l_result_tbl(i));
1858: END IF;
1859:
1860: x_terms_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
1861: END LOOP;
1859:
1860: x_terms_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
1861: END LOOP;
1862:
1863: IF (PO_LOG.d_proc) THEN
1864: PO_LOG.proc_end (d_module);
1865: END IF;
1866:
1867: EXCEPTION
1860: x_terms_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
1861: END LOOP;
1862:
1863: IF (PO_LOG.d_proc) THEN
1864: PO_LOG.proc_end (d_module);
1865: END IF;
1866:
1867: EXCEPTION
1868: WHEN OTHERS THEN
1924: l_index NUMBER;
1925: BEGIN
1926: d_position := 0;
1927:
1928: IF (PO_LOG.d_proc) THEN
1929: PO_LOG.proc_begin(d_module, 'vendor names', p_vendor_name_tbl);
1930: PO_LOG.proc_begin(d_module, 'vendor nums', p_vendor_num_tbl);
1931: PO_LOG.proc_begin(d_module, 'vendor ids', x_vendor_id_tbl);
1932: END IF;
1925: BEGIN
1926: d_position := 0;
1927:
1928: IF (PO_LOG.d_proc) THEN
1929: PO_LOG.proc_begin(d_module, 'vendor names', p_vendor_name_tbl);
1930: PO_LOG.proc_begin(d_module, 'vendor nums', p_vendor_num_tbl);
1931: PO_LOG.proc_begin(d_module, 'vendor ids', x_vendor_id_tbl);
1932: END IF;
1933:
1926: d_position := 0;
1927:
1928: IF (PO_LOG.d_proc) THEN
1929: PO_LOG.proc_begin(d_module, 'vendor names', p_vendor_name_tbl);
1930: PO_LOG.proc_begin(d_module, 'vendor nums', p_vendor_num_tbl);
1931: PO_LOG.proc_begin(d_module, 'vendor ids', x_vendor_id_tbl);
1932: END IF;
1933:
1934: FORALL i IN 1..p_index_tbl.COUNT
1927:
1928: IF (PO_LOG.d_proc) THEN
1929: PO_LOG.proc_begin(d_module, 'vendor names', p_vendor_name_tbl);
1930: PO_LOG.proc_begin(d_module, 'vendor nums', p_vendor_num_tbl);
1931: PO_LOG.proc_begin(d_module, 'vendor ids', x_vendor_id_tbl);
1932: END IF;
1933:
1934: FORALL i IN 1..p_index_tbl.COUNT
1935: INSERT INTO po_session_gt(key, num1, num2)
1958: FOR i IN 1..l_index_tbl.COUNT
1959: LOOP
1960: l_index := l_index_tbl(i);
1961:
1962: IF (PO_LOG.d_stmt) THEN
1963: PO_LOG.stmt(d_module, d_position, 'index', l_index);
1964: PO_LOG.stmt(d_module, d_position, 'new vendor id', l_result_tbl(i));
1965: END IF;
1966:
1959: LOOP
1960: l_index := l_index_tbl(i);
1961:
1962: IF (PO_LOG.d_stmt) THEN
1963: PO_LOG.stmt(d_module, d_position, 'index', l_index);
1964: PO_LOG.stmt(d_module, d_position, 'new vendor id', l_result_tbl(i));
1965: END IF;
1966:
1967: IF (x_vendor_id_tbl(l_index) IS NULL) THEN
1960: l_index := l_index_tbl(i);
1961:
1962: IF (PO_LOG.d_stmt) THEN
1963: PO_LOG.stmt(d_module, d_position, 'index', l_index);
1964: PO_LOG.stmt(d_module, d_position, 'new vendor id', l_result_tbl(i));
1965: END IF;
1966:
1967: IF (x_vendor_id_tbl(l_index) IS NULL) THEN
1968: x_vendor_id_tbl(l_index) := l_result_tbl(i);
1970: x_vendor_id_tbl(l_index) := NULL;
1971: END IF;
1972: END LOOP;
1973:
1974: IF (PO_LOG.d_proc) THEN
1975: PO_LOG.proc_end (d_module);
1976: END IF;
1977:
1978: EXCEPTION
1971: END IF;
1972: END LOOP;
1973:
1974: IF (PO_LOG.d_proc) THEN
1975: PO_LOG.proc_end (d_module);
1976: END IF;
1977:
1978: EXCEPTION
1979: WHEN OTHERS THEN
2032: l_result_tbl PO_TBL_VARCHAR30;
2033: BEGIN
2034: d_position := 0;
2035:
2036: IF (PO_LOG.d_proc) THEN
2037: PO_LOG.proc_begin(d_module, 'rate type', p_rate_type_tbl);
2038: PO_LOG.proc_begin(d_module, 'rate type code', x_rate_type_code_tbl);
2039: END IF;
2040:
2033: BEGIN
2034: d_position := 0;
2035:
2036: IF (PO_LOG.d_proc) THEN
2037: PO_LOG.proc_begin(d_module, 'rate type', p_rate_type_tbl);
2038: PO_LOG.proc_begin(d_module, 'rate type code', x_rate_type_code_tbl);
2039: END IF;
2040:
2041: FORALL i IN 1..p_index_tbl.COUNT
2034: d_position := 0;
2035:
2036: IF (PO_LOG.d_proc) THEN
2037: PO_LOG.proc_begin(d_module, 'rate type', p_rate_type_tbl);
2038: PO_LOG.proc_begin(d_module, 'rate type code', x_rate_type_code_tbl);
2039: END IF;
2040:
2041: FORALL i IN 1..p_index_tbl.COUNT
2042: INSERT INTO po_session_gt(key, num1, char1)
2057: d_position := 20;
2058:
2059: FOR i IN 1..l_index_tbl.COUNT
2060: LOOP
2061: IF (PO_LOG.d_stmt) THEN
2062: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2063: PO_LOG.stmt(d_module, d_position, 'new rate type code', l_result_tbl(i));
2064: END IF;
2065:
2058:
2059: FOR i IN 1..l_index_tbl.COUNT
2060: LOOP
2061: IF (PO_LOG.d_stmt) THEN
2062: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2063: PO_LOG.stmt(d_module, d_position, 'new rate type code', l_result_tbl(i));
2064: END IF;
2065:
2066: x_rate_type_code_tbl(l_index_tbl(i)) := l_result_tbl(i);
2059: FOR i IN 1..l_index_tbl.COUNT
2060: LOOP
2061: IF (PO_LOG.d_stmt) THEN
2062: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2063: PO_LOG.stmt(d_module, d_position, 'new rate type code', l_result_tbl(i));
2064: END IF;
2065:
2066: x_rate_type_code_tbl(l_index_tbl(i)) := l_result_tbl(i);
2067: END LOOP;
2065:
2066: x_rate_type_code_tbl(l_index_tbl(i)) := l_result_tbl(i);
2067: END LOOP;
2068:
2069: IF (PO_LOG.d_proc) THEN
2070: PO_LOG.proc_end (d_module);
2071: END IF;
2072:
2073: EXCEPTION
2066: x_rate_type_code_tbl(l_index_tbl(i)) := l_result_tbl(i);
2067: END LOOP;
2068:
2069: IF (PO_LOG.d_proc) THEN
2070: PO_LOG.proc_end (d_module);
2071: END IF;
2072:
2073: EXCEPTION
2074: WHEN OTHERS THEN
2123: l_result_tbl PO_TBL_NUMBER;
2124: BEGIN
2125: d_position := 0;
2126:
2127: IF (PO_LOG.d_proc) THEN
2128: PO_LOG.proc_begin(d_module, 'agent name', p_agent_name_tbl);
2129: PO_LOG.proc_begin(d_module, 'agent id', x_agent_id_tbl);
2130: END IF;
2131:
2124: BEGIN
2125: d_position := 0;
2126:
2127: IF (PO_LOG.d_proc) THEN
2128: PO_LOG.proc_begin(d_module, 'agent name', p_agent_name_tbl);
2129: PO_LOG.proc_begin(d_module, 'agent id', x_agent_id_tbl);
2130: END IF;
2131:
2132: FORALL i IN 1..p_index_tbl.COUNT
2125: d_position := 0;
2126:
2127: IF (PO_LOG.d_proc) THEN
2128: PO_LOG.proc_begin(d_module, 'agent name', p_agent_name_tbl);
2129: PO_LOG.proc_begin(d_module, 'agent id', x_agent_id_tbl);
2130: END IF;
2131:
2132: FORALL i IN 1..p_index_tbl.COUNT
2133: INSERT INTO po_session_gt(key, num1, num2)
2148: d_position := 20;
2149:
2150: FOR i IN 1..l_index_tbl.COUNT
2151: LOOP
2152: IF (PO_LOG.d_stmt) THEN
2153: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2154: PO_LOG.stmt(d_module, d_position, 'new agent id', l_result_tbl(i));
2155: END IF;
2156:
2149:
2150: FOR i IN 1..l_index_tbl.COUNT
2151: LOOP
2152: IF (PO_LOG.d_stmt) THEN
2153: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2154: PO_LOG.stmt(d_module, d_position, 'new agent id', l_result_tbl(i));
2155: END IF;
2156:
2157: x_agent_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2150: FOR i IN 1..l_index_tbl.COUNT
2151: LOOP
2152: IF (PO_LOG.d_stmt) THEN
2153: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2154: PO_LOG.stmt(d_module, d_position, 'new agent id', l_result_tbl(i));
2155: END IF;
2156:
2157: x_agent_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2158: END LOOP;
2156:
2157: x_agent_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2158: END LOOP;
2159:
2160: IF (PO_LOG.d_proc) THEN
2161: PO_LOG.proc_end (d_module);
2162: END IF;
2163:
2164: EXCEPTION
2157: x_agent_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2158: END LOOP;
2159:
2160: IF (PO_LOG.d_proc) THEN
2161: PO_LOG.proc_end (d_module);
2162: END IF;
2163:
2164: EXCEPTION
2165: WHEN OTHERS THEN
2217: l_result_tbl PO_TBL_NUMBER;
2218: BEGIN
2219: d_position := 0;
2220:
2221: IF (PO_LOG.d_proc) THEN
2222: PO_LOG.proc_begin(d_module, 'vendor id', p_vendor_id_tbl);
2223: PO_LOG.proc_begin(d_module, 'site code', p_vendor_site_code_tbl);
2224: PO_LOG.proc_begin(d_module, 'site id', x_vendor_site_id_tbl);
2225: END IF;
2218: BEGIN
2219: d_position := 0;
2220:
2221: IF (PO_LOG.d_proc) THEN
2222: PO_LOG.proc_begin(d_module, 'vendor id', p_vendor_id_tbl);
2223: PO_LOG.proc_begin(d_module, 'site code', p_vendor_site_code_tbl);
2224: PO_LOG.proc_begin(d_module, 'site id', x_vendor_site_id_tbl);
2225: END IF;
2226:
2219: d_position := 0;
2220:
2221: IF (PO_LOG.d_proc) THEN
2222: PO_LOG.proc_begin(d_module, 'vendor id', p_vendor_id_tbl);
2223: PO_LOG.proc_begin(d_module, 'site code', p_vendor_site_code_tbl);
2224: PO_LOG.proc_begin(d_module, 'site id', x_vendor_site_id_tbl);
2225: END IF;
2226:
2227: FORALL i IN 1..p_index_tbl.COUNT
2220:
2221: IF (PO_LOG.d_proc) THEN
2222: PO_LOG.proc_begin(d_module, 'vendor id', p_vendor_id_tbl);
2223: PO_LOG.proc_begin(d_module, 'site code', p_vendor_site_code_tbl);
2224: PO_LOG.proc_begin(d_module, 'site id', x_vendor_site_id_tbl);
2225: END IF;
2226:
2227: FORALL i IN 1..p_index_tbl.COUNT
2228: INSERT INTO po_session_gt(key, num1, num2)
2245: d_position := 20;
2246:
2247: FOR i IN 1..l_index_tbl.COUNT
2248: LOOP
2249: IF (PO_LOG.d_stmt) THEN
2250: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2251: PO_LOG.stmt(d_module, d_position, 'new site id', l_result_tbl(i));
2252: END IF;
2253:
2246:
2247: FOR i IN 1..l_index_tbl.COUNT
2248: LOOP
2249: IF (PO_LOG.d_stmt) THEN
2250: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2251: PO_LOG.stmt(d_module, d_position, 'new site id', l_result_tbl(i));
2252: END IF;
2253:
2254: x_vendor_site_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2247: FOR i IN 1..l_index_tbl.COUNT
2248: LOOP
2249: IF (PO_LOG.d_stmt) THEN
2250: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2251: PO_LOG.stmt(d_module, d_position, 'new site id', l_result_tbl(i));
2252: END IF;
2253:
2254: x_vendor_site_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2255: END LOOP;
2253:
2254: x_vendor_site_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2255: END LOOP;
2256:
2257: IF (PO_LOG.d_proc) THEN
2258: PO_LOG.proc_end (d_module);
2259: END IF;
2260:
2261: EXCEPTION
2254: x_vendor_site_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2255: END LOOP;
2256:
2257: IF (PO_LOG.d_proc) THEN
2258: PO_LOG.proc_end (d_module);
2259: END IF;
2260:
2261: EXCEPTION
2262: WHEN OTHERS THEN
2315: l_result_tbl PO_TBL_NUMBER;
2316: BEGIN
2317: d_position := 0;
2318:
2319: IF (PO_LOG.d_proc) THEN
2320: PO_LOG.proc_begin(d_module, 'site id', p_vendor_site_id_tbl);
2321: PO_LOG.proc_begin(d_module, 'contact', p_vendor_contact_tbl);
2322: PO_LOG.proc_begin(d_module, 'contact id', x_vendor_contact_id_tbl);
2323: END IF;
2316: BEGIN
2317: d_position := 0;
2318:
2319: IF (PO_LOG.d_proc) THEN
2320: PO_LOG.proc_begin(d_module, 'site id', p_vendor_site_id_tbl);
2321: PO_LOG.proc_begin(d_module, 'contact', p_vendor_contact_tbl);
2322: PO_LOG.proc_begin(d_module, 'contact id', x_vendor_contact_id_tbl);
2323: END IF;
2324:
2317: d_position := 0;
2318:
2319: IF (PO_LOG.d_proc) THEN
2320: PO_LOG.proc_begin(d_module, 'site id', p_vendor_site_id_tbl);
2321: PO_LOG.proc_begin(d_module, 'contact', p_vendor_contact_tbl);
2322: PO_LOG.proc_begin(d_module, 'contact id', x_vendor_contact_id_tbl);
2323: END IF;
2324:
2325: FORALL i IN 1..p_index_tbl.COUNT
2318:
2319: IF (PO_LOG.d_proc) THEN
2320: PO_LOG.proc_begin(d_module, 'site id', p_vendor_site_id_tbl);
2321: PO_LOG.proc_begin(d_module, 'contact', p_vendor_contact_tbl);
2322: PO_LOG.proc_begin(d_module, 'contact id', x_vendor_contact_id_tbl);
2323: END IF;
2324:
2325: FORALL i IN 1..p_index_tbl.COUNT
2326: INSERT INTO po_session_gt(key, num1, num2)
2343: d_position := 20;
2344:
2345: FOR i IN 1..l_index_tbl.COUNT
2346: LOOP
2347: IF (PO_LOG.d_stmt) THEN
2348: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2349: PO_LOG.stmt(d_module, d_position, 'new contact id', l_result_tbl(i));
2350: END IF;
2351:
2344:
2345: FOR i IN 1..l_index_tbl.COUNT
2346: LOOP
2347: IF (PO_LOG.d_stmt) THEN
2348: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2349: PO_LOG.stmt(d_module, d_position, 'new contact id', l_result_tbl(i));
2350: END IF;
2351:
2352: x_vendor_contact_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2345: FOR i IN 1..l_index_tbl.COUNT
2346: LOOP
2347: IF (PO_LOG.d_stmt) THEN
2348: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2349: PO_LOG.stmt(d_module, d_position, 'new contact id', l_result_tbl(i));
2350: END IF;
2351:
2352: x_vendor_contact_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2353: END LOOP;
2351:
2352: x_vendor_contact_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2353: END LOOP;
2354:
2355: IF (PO_LOG.d_proc) THEN
2356: PO_LOG.proc_end (d_module);
2357: END IF;
2358:
2359: EXCEPTION
2352: x_vendor_contact_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2353: END LOOP;
2354:
2355: IF (PO_LOG.d_proc) THEN
2356: PO_LOG.proc_end (d_module);
2357: END IF;
2358:
2359: EXCEPTION
2360: WHEN OTHERS THEN
2413: l_result_tbl PO_TBL_NUMBER;
2414: BEGIN
2415: d_position := 0;
2416:
2417: IF (PO_LOG.d_proc) THEN
2418: PO_LOG.proc_begin(d_module, 'x_style_id_tbl', x_style_id_tbl);
2419: PO_LOG.proc_begin(d_module, 'p_style_display_name_tbl', p_style_display_name_tbl);
2420: END IF;
2421:
2414: BEGIN
2415: d_position := 0;
2416:
2417: IF (PO_LOG.d_proc) THEN
2418: PO_LOG.proc_begin(d_module, 'x_style_id_tbl', x_style_id_tbl);
2419: PO_LOG.proc_begin(d_module, 'p_style_display_name_tbl', p_style_display_name_tbl);
2420: END IF;
2421:
2422: FORALL i IN 1..p_index_tbl.COUNT
2415: d_position := 0;
2416:
2417: IF (PO_LOG.d_proc) THEN
2418: PO_LOG.proc_begin(d_module, 'x_style_id_tbl', x_style_id_tbl);
2419: PO_LOG.proc_begin(d_module, 'p_style_display_name_tbl', p_style_display_name_tbl);
2420: END IF;
2421:
2422: FORALL i IN 1..p_index_tbl.COUNT
2423: INSERT INTO po_session_gt(key, num1, num2)
2438: d_position := 20;
2439:
2440: FOR i IN 1..l_index_tbl.COUNT
2441: LOOP
2442: IF (PO_LOG.d_stmt) THEN
2443: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2444: PO_LOG.stmt(d_module, d_position, 'new style id', l_result_tbl(i));
2445: END IF;
2446:
2439:
2440: FOR i IN 1..l_index_tbl.COUNT
2441: LOOP
2442: IF (PO_LOG.d_stmt) THEN
2443: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2444: PO_LOG.stmt(d_module, d_position, 'new style id', l_result_tbl(i));
2445: END IF;
2446:
2447: x_style_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2440: FOR i IN 1..l_index_tbl.COUNT
2441: LOOP
2442: IF (PO_LOG.d_stmt) THEN
2443: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2444: PO_LOG.stmt(d_module, d_position, 'new style id', l_result_tbl(i));
2445: END IF;
2446:
2447: x_style_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2448: END LOOP;
2446:
2447: x_style_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2448: END LOOP;
2449:
2450: IF (PO_LOG.d_proc) THEN
2451: PO_LOG.proc_end (d_module);
2452: END IF;
2453:
2454: EXCEPTION
2447: x_style_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2448: END LOOP;
2449:
2450: IF (PO_LOG.d_proc) THEN
2451: PO_LOG.proc_end (d_module);
2452: END IF;
2453:
2454: EXCEPTION
2455: WHEN OTHERS THEN
2505: l_result_tbl PO_TBL_NUMBER;
2506: BEGIN
2507: d_position := 0;
2508:
2509: IF (PO_LOG.d_proc) THEN
2510: PO_LOG.proc_begin(d_module, 'from rfq num', p_from_rfq_num_tbl);
2511: PO_LOG.proc_begin(d_module, 'from header id', x_from_header_id_tbl);
2512: END IF;
2513:
2506: BEGIN
2507: d_position := 0;
2508:
2509: IF (PO_LOG.d_proc) THEN
2510: PO_LOG.proc_begin(d_module, 'from rfq num', p_from_rfq_num_tbl);
2511: PO_LOG.proc_begin(d_module, 'from header id', x_from_header_id_tbl);
2512: END IF;
2513:
2514: FORALL i IN 1..p_index_tbl.COUNT
2507: d_position := 0;
2508:
2509: IF (PO_LOG.d_proc) THEN
2510: PO_LOG.proc_begin(d_module, 'from rfq num', p_from_rfq_num_tbl);
2511: PO_LOG.proc_begin(d_module, 'from header id', x_from_header_id_tbl);
2512: END IF;
2513:
2514: FORALL i IN 1..p_index_tbl.COUNT
2515: INSERT INTO po_session_gt(key, num1, num2)
2531: d_position := 20;
2532:
2533: FOR i IN 1..l_index_tbl.COUNT
2534: LOOP
2535: IF (PO_LOG.d_stmt) THEN
2536: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2537: PO_LOG.stmt(d_module, d_position, 'new from header id', l_result_tbl(i));
2538: END IF;
2539:
2532:
2533: FOR i IN 1..l_index_tbl.COUNT
2534: LOOP
2535: IF (PO_LOG.d_stmt) THEN
2536: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2537: PO_LOG.stmt(d_module, d_position, 'new from header id', l_result_tbl(i));
2538: END IF;
2539:
2540: x_from_header_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2533: FOR i IN 1..l_index_tbl.COUNT
2534: LOOP
2535: IF (PO_LOG.d_stmt) THEN
2536: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2537: PO_LOG.stmt(d_module, d_position, 'new from header id', l_result_tbl(i));
2538: END IF;
2539:
2540: x_from_header_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2541: END LOOP;
2539:
2540: x_from_header_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2541: END LOOP;
2542:
2543: IF (PO_LOG.d_proc) THEN
2544: PO_LOG.proc_end (d_module);
2545: END IF;
2546:
2547: EXCEPTION
2540: x_from_header_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2541: END LOOP;
2542:
2543: IF (PO_LOG.d_proc) THEN
2544: PO_LOG.proc_end (d_module);
2545: END IF;
2546:
2547: EXCEPTION
2548: WHEN OTHERS THEN
2606:
2607: BEGIN
2608: d_position := 0;
2609:
2610: IF (PO_LOG.d_proc) THEN
2611: PO_LOG.proc_begin(d_module, 'vendor ids', p_vendor_id_tbl);
2612: END IF;
2613:
2614: -- Initialize OUT parameters
2607: BEGIN
2608: d_position := 0;
2609:
2610: IF (PO_LOG.d_proc) THEN
2611: PO_LOG.proc_begin(d_module, 'vendor ids', p_vendor_id_tbl);
2612: END IF;
2613:
2614: -- Initialize OUT parameters
2615:
2648: l_terms_id_tbl;
2649:
2650: d_position := 20;
2651:
2652: IF (PO_LOG.d_stmt) THEN
2653: PO_LOG.stmt(d_module, d_position, 'l_index_tbl.COUNT', l_index_tbl.COUNT);
2654: END IF;
2655:
2656: FOR i IN 1..l_index_tbl.COUNT
2649:
2650: d_position := 20;
2651:
2652: IF (PO_LOG.d_stmt) THEN
2653: PO_LOG.stmt(d_module, d_position, 'l_index_tbl.COUNT', l_index_tbl.COUNT);
2654: END IF;
2655:
2656: FOR i IN 1..l_index_tbl.COUNT
2657: LOOP
2656: FOR i IN 1..l_index_tbl.COUNT
2657: LOOP
2658: l_index := l_index_tbl(i);
2659:
2660: IF (PO_LOG.d_stmt) THEN
2661: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2662: PO_LOG.stmt(d_module, d_position, 'new currency', l_currency_code_tbl(i));
2663: PO_LOG.stmt(d_module, d_position, 'new terms id', l_terms_id_tbl(i));
2664: END IF;
2657: LOOP
2658: l_index := l_index_tbl(i);
2659:
2660: IF (PO_LOG.d_stmt) THEN
2661: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2662: PO_LOG.stmt(d_module, d_position, 'new currency', l_currency_code_tbl(i));
2663: PO_LOG.stmt(d_module, d_position, 'new terms id', l_terms_id_tbl(i));
2664: END IF;
2665:
2658: l_index := l_index_tbl(i);
2659:
2660: IF (PO_LOG.d_stmt) THEN
2661: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2662: PO_LOG.stmt(d_module, d_position, 'new currency', l_currency_code_tbl(i));
2663: PO_LOG.stmt(d_module, d_position, 'new terms id', l_terms_id_tbl(i));
2664: END IF;
2665:
2666: x_invoice_currency_code_tbl(l_index) := l_currency_code_tbl(i);
2659:
2660: IF (PO_LOG.d_stmt) THEN
2661: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2662: PO_LOG.stmt(d_module, d_position, 'new currency', l_currency_code_tbl(i));
2663: PO_LOG.stmt(d_module, d_position, 'new terms id', l_terms_id_tbl(i));
2664: END IF;
2665:
2666: x_invoice_currency_code_tbl(l_index) := l_currency_code_tbl(i);
2667: x_terms_id_tbl(l_index) := l_terms_id_tbl(i);
2668: END LOOP;
2669:
2670: d_position := 30;
2671:
2672: IF (PO_LOG.d_proc) THEN
2673: PO_LOG.proc_end (d_module);
2674: END IF;
2675:
2676: EXCEPTION
2669:
2670: d_position := 30;
2671:
2672: IF (PO_LOG.d_proc) THEN
2673: PO_LOG.proc_end (d_module);
2674: END IF;
2675:
2676: EXCEPTION
2677: WHEN OTHERS THEN
2769:
2770: BEGIN
2771: d_position := 0;
2772:
2773: IF (PO_LOG.d_proc) THEN
2774: PO_LOG.proc_begin(d_module, 'vendor ids', p_vendor_id_tbl);
2775: PO_LOG.proc_begin(d_module, 'vendor site ids', x_vendor_site_id_tbl);
2776: END IF;
2777:
2770: BEGIN
2771: d_position := 0;
2772:
2773: IF (PO_LOG.d_proc) THEN
2774: PO_LOG.proc_begin(d_module, 'vendor ids', p_vendor_id_tbl);
2775: PO_LOG.proc_begin(d_module, 'vendor site ids', x_vendor_site_id_tbl);
2776: END IF;
2777:
2778: x_fob_tbl := PO_TBL_VARCHAR30();
2771: d_position := 0;
2772:
2773: IF (PO_LOG.d_proc) THEN
2774: PO_LOG.proc_begin(d_module, 'vendor ids', p_vendor_id_tbl);
2775: PO_LOG.proc_begin(d_module, 'vendor site ids', x_vendor_site_id_tbl);
2776: END IF;
2777:
2778: x_fob_tbl := PO_TBL_VARCHAR30();
2779: x_freight_carrier_tbl := PO_TBL_VARCHAR30();
2823: RETURNING num1, num2 BULK COLLECT INTO l_index_tbl, l_vendor_site_id_tbl;
2824:
2825: FOR i IN 1..l_index_tbl.COUNT
2826: LOOP
2827: IF (PO_LOG.d_stmt) THEN
2828: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2829: PO_LOG.stmt(d_module, d_position, 'new site id', l_vendor_site_id_tbl(i));
2830: END IF;
2831:
2824:
2825: FOR i IN 1..l_index_tbl.COUNT
2826: LOOP
2827: IF (PO_LOG.d_stmt) THEN
2828: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2829: PO_LOG.stmt(d_module, d_position, 'new site id', l_vendor_site_id_tbl(i));
2830: END IF;
2831:
2832: x_vendor_site_id_tbl(l_index_tbl(i)) := l_vendor_site_id_tbl(i);
2825: FOR i IN 1..l_index_tbl.COUNT
2826: LOOP
2827: IF (PO_LOG.d_stmt) THEN
2828: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2829: PO_LOG.stmt(d_module, d_position, 'new site id', l_vendor_site_id_tbl(i));
2830: END IF;
2831:
2832: x_vendor_site_id_tbl(l_index_tbl(i)) := l_vendor_site_id_tbl(i);
2833: END LOOP;
2875: FOR i IN 1..l_index_tbl.COUNT
2876: LOOP
2877: l_index := l_index_tbl(i);
2878:
2879: IF (PO_LOG.d_stmt) THEN
2880: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2881: PO_LOG.stmt(d_module, d_position, 'new fob', l_fob_tbl(i));
2882: PO_LOG.stmt(d_module, d_position, 'new freight carrier', l_freight_carrier_tbl(i));
2883: PO_LOG.stmt(d_module, d_position, 'new freight term', l_freight_term_tbl(i));
2876: LOOP
2877: l_index := l_index_tbl(i);
2878:
2879: IF (PO_LOG.d_stmt) THEN
2880: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2881: PO_LOG.stmt(d_module, d_position, 'new fob', l_fob_tbl(i));
2882: PO_LOG.stmt(d_module, d_position, 'new freight carrier', l_freight_carrier_tbl(i));
2883: PO_LOG.stmt(d_module, d_position, 'new freight term', l_freight_term_tbl(i));
2884: PO_LOG.stmt(d_module, d_position, 'new ship_to loc id', l_ship_to_loc_id_tbl(i));
2877: l_index := l_index_tbl(i);
2878:
2879: IF (PO_LOG.d_stmt) THEN
2880: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2881: PO_LOG.stmt(d_module, d_position, 'new fob', l_fob_tbl(i));
2882: PO_LOG.stmt(d_module, d_position, 'new freight carrier', l_freight_carrier_tbl(i));
2883: PO_LOG.stmt(d_module, d_position, 'new freight term', l_freight_term_tbl(i));
2884: PO_LOG.stmt(d_module, d_position, 'new ship_to loc id', l_ship_to_loc_id_tbl(i));
2885: PO_LOG.stmt(d_module, d_position, 'new bill_to loc id', l_bill_to_loc_id_tbl(i));
2878:
2879: IF (PO_LOG.d_stmt) THEN
2880: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2881: PO_LOG.stmt(d_module, d_position, 'new fob', l_fob_tbl(i));
2882: PO_LOG.stmt(d_module, d_position, 'new freight carrier', l_freight_carrier_tbl(i));
2883: PO_LOG.stmt(d_module, d_position, 'new freight term', l_freight_term_tbl(i));
2884: PO_LOG.stmt(d_module, d_position, 'new ship_to loc id', l_ship_to_loc_id_tbl(i));
2885: PO_LOG.stmt(d_module, d_position, 'new bill_to loc id', l_bill_to_loc_id_tbl(i));
2886: PO_LOG.stmt(d_module, d_position, 'new currency', l_currency_code_tbl(i));
2879: IF (PO_LOG.d_stmt) THEN
2880: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2881: PO_LOG.stmt(d_module, d_position, 'new fob', l_fob_tbl(i));
2882: PO_LOG.stmt(d_module, d_position, 'new freight carrier', l_freight_carrier_tbl(i));
2883: PO_LOG.stmt(d_module, d_position, 'new freight term', l_freight_term_tbl(i));
2884: PO_LOG.stmt(d_module, d_position, 'new ship_to loc id', l_ship_to_loc_id_tbl(i));
2885: PO_LOG.stmt(d_module, d_position, 'new bill_to loc id', l_bill_to_loc_id_tbl(i));
2886: PO_LOG.stmt(d_module, d_position, 'new currency', l_currency_code_tbl(i));
2887: PO_LOG.stmt(d_module, d_position, 'new terms id', l_terms_id_tbl(i));
2880: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2881: PO_LOG.stmt(d_module, d_position, 'new fob', l_fob_tbl(i));
2882: PO_LOG.stmt(d_module, d_position, 'new freight carrier', l_freight_carrier_tbl(i));
2883: PO_LOG.stmt(d_module, d_position, 'new freight term', l_freight_term_tbl(i));
2884: PO_LOG.stmt(d_module, d_position, 'new ship_to loc id', l_ship_to_loc_id_tbl(i));
2885: PO_LOG.stmt(d_module, d_position, 'new bill_to loc id', l_bill_to_loc_id_tbl(i));
2886: PO_LOG.stmt(d_module, d_position, 'new currency', l_currency_code_tbl(i));
2887: PO_LOG.stmt(d_module, d_position, 'new terms id', l_terms_id_tbl(i));
2888: PO_LOG.stmt(d_module, d_position, 'new shipping control', l_shipping_control_tbl(i));
2881: PO_LOG.stmt(d_module, d_position, 'new fob', l_fob_tbl(i));
2882: PO_LOG.stmt(d_module, d_position, 'new freight carrier', l_freight_carrier_tbl(i));
2883: PO_LOG.stmt(d_module, d_position, 'new freight term', l_freight_term_tbl(i));
2884: PO_LOG.stmt(d_module, d_position, 'new ship_to loc id', l_ship_to_loc_id_tbl(i));
2885: PO_LOG.stmt(d_module, d_position, 'new bill_to loc id', l_bill_to_loc_id_tbl(i));
2886: PO_LOG.stmt(d_module, d_position, 'new currency', l_currency_code_tbl(i));
2887: PO_LOG.stmt(d_module, d_position, 'new terms id', l_terms_id_tbl(i));
2888: PO_LOG.stmt(d_module, d_position, 'new shipping control', l_shipping_control_tbl(i));
2889: PO_LOG.stmt(d_module, d_position, 'new pay on code', l_pay_on_code_tbl(i));
2882: PO_LOG.stmt(d_module, d_position, 'new freight carrier', l_freight_carrier_tbl(i));
2883: PO_LOG.stmt(d_module, d_position, 'new freight term', l_freight_term_tbl(i));
2884: PO_LOG.stmt(d_module, d_position, 'new ship_to loc id', l_ship_to_loc_id_tbl(i));
2885: PO_LOG.stmt(d_module, d_position, 'new bill_to loc id', l_bill_to_loc_id_tbl(i));
2886: PO_LOG.stmt(d_module, d_position, 'new currency', l_currency_code_tbl(i));
2887: PO_LOG.stmt(d_module, d_position, 'new terms id', l_terms_id_tbl(i));
2888: PO_LOG.stmt(d_module, d_position, 'new shipping control', l_shipping_control_tbl(i));
2889: PO_LOG.stmt(d_module, d_position, 'new pay on code', l_pay_on_code_tbl(i));
2890: END IF;
2883: PO_LOG.stmt(d_module, d_position, 'new freight term', l_freight_term_tbl(i));
2884: PO_LOG.stmt(d_module, d_position, 'new ship_to loc id', l_ship_to_loc_id_tbl(i));
2885: PO_LOG.stmt(d_module, d_position, 'new bill_to loc id', l_bill_to_loc_id_tbl(i));
2886: PO_LOG.stmt(d_module, d_position, 'new currency', l_currency_code_tbl(i));
2887: PO_LOG.stmt(d_module, d_position, 'new terms id', l_terms_id_tbl(i));
2888: PO_LOG.stmt(d_module, d_position, 'new shipping control', l_shipping_control_tbl(i));
2889: PO_LOG.stmt(d_module, d_position, 'new pay on code', l_pay_on_code_tbl(i));
2890: END IF;
2891:
2884: PO_LOG.stmt(d_module, d_position, 'new ship_to loc id', l_ship_to_loc_id_tbl(i));
2885: PO_LOG.stmt(d_module, d_position, 'new bill_to loc id', l_bill_to_loc_id_tbl(i));
2886: PO_LOG.stmt(d_module, d_position, 'new currency', l_currency_code_tbl(i));
2887: PO_LOG.stmt(d_module, d_position, 'new terms id', l_terms_id_tbl(i));
2888: PO_LOG.stmt(d_module, d_position, 'new shipping control', l_shipping_control_tbl(i));
2889: PO_LOG.stmt(d_module, d_position, 'new pay on code', l_pay_on_code_tbl(i));
2890: END IF;
2891:
2892: x_fob_tbl(l_index) := l_fob_tbl(i);
2885: PO_LOG.stmt(d_module, d_position, 'new bill_to loc id', l_bill_to_loc_id_tbl(i));
2886: PO_LOG.stmt(d_module, d_position, 'new currency', l_currency_code_tbl(i));
2887: PO_LOG.stmt(d_module, d_position, 'new terms id', l_terms_id_tbl(i));
2888: PO_LOG.stmt(d_module, d_position, 'new shipping control', l_shipping_control_tbl(i));
2889: PO_LOG.stmt(d_module, d_position, 'new pay on code', l_pay_on_code_tbl(i));
2890: END IF;
2891:
2892: x_fob_tbl(l_index) := l_fob_tbl(i);
2893: x_freight_carrier_tbl(l_index) := l_freight_carrier_tbl(i);
2899: x_shipping_control_tbl(l_index) := l_shipping_control_tbl(i);
2900: x_pay_on_code_tbl(l_index) := l_pay_on_code_tbl(i);
2901: END LOOP;
2902:
2903: IF (PO_LOG.d_proc) THEN
2904: PO_LOG.proc_end (d_module);
2905: END IF;
2906:
2907: EXCEPTION
2900: x_pay_on_code_tbl(l_index) := l_pay_on_code_tbl(i);
2901: END LOOP;
2902:
2903: IF (PO_LOG.d_proc) THEN
2904: PO_LOG.proc_end (d_module);
2905: END IF;
2906:
2907: EXCEPTION
2908: WHEN OTHERS THEN
2961:
2962: BEGIN
2963: d_position := 0;
2964:
2965: IF (PO_LOG.d_proc) THEN
2966: PO_LOG.proc_begin(d_module, 'site ids', p_vendor_site_id_tbl);
2967: PO_LOG.proc_begin(d_module, 'contact ids', x_vendor_contact_id_tbl);
2968: END IF;
2969:
2962: BEGIN
2963: d_position := 0;
2964:
2965: IF (PO_LOG.d_proc) THEN
2966: PO_LOG.proc_begin(d_module, 'site ids', p_vendor_site_id_tbl);
2967: PO_LOG.proc_begin(d_module, 'contact ids', x_vendor_contact_id_tbl);
2968: END IF;
2969:
2970: -- select contact id from vendor_site table if there is only
2963: d_position := 0;
2964:
2965: IF (PO_LOG.d_proc) THEN
2966: PO_LOG.proc_begin(d_module, 'site ids', p_vendor_site_id_tbl);
2967: PO_LOG.proc_begin(d_module, 'contact ids', x_vendor_contact_id_tbl);
2968: END IF;
2969:
2970: -- select contact id from vendor_site table if there is only
2971: -- one contact defined on that site
2992: d_position := 20;
2993:
2994: FOR i IN 1..l_index_tbl.COUNT
2995: LOOP
2996: IF (PO_LOG.d_stmt) THEN
2997: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2998: PO_LOG.stmt(d_module, d_position, 'new contact id', l_result_tbl(i));
2999: END IF;
3000:
2993:
2994: FOR i IN 1..l_index_tbl.COUNT
2995: LOOP
2996: IF (PO_LOG.d_stmt) THEN
2997: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2998: PO_LOG.stmt(d_module, d_position, 'new contact id', l_result_tbl(i));
2999: END IF;
3000:
3001: x_vendor_contact_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
2994: FOR i IN 1..l_index_tbl.COUNT
2995: LOOP
2996: IF (PO_LOG.d_stmt) THEN
2997: PO_LOG.stmt(d_module, d_position, 'index', l_index_tbl(i));
2998: PO_LOG.stmt(d_module, d_position, 'new contact id', l_result_tbl(i));
2999: END IF;
3000:
3001: x_vendor_contact_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
3002: END LOOP;
3000:
3001: x_vendor_contact_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
3002: END LOOP;
3003:
3004: IF (PO_LOG.d_proc) THEN
3005: PO_LOG.proc_end (d_module);
3006: END IF;
3007:
3008: EXCEPTION
3001: x_vendor_contact_id_tbl(l_index_tbl(i)) := l_result_tbl(i);
3002: END LOOP;
3003:
3004: IF (PO_LOG.d_proc) THEN
3005: PO_LOG.proc_end (d_module);
3006: END IF;
3007:
3008: EXCEPTION
3009: WHEN OTHERS THEN
3049:
3050: BEGIN
3051: d_position := 0;
3052:
3053: IF (PO_LOG.d_proc) THEN
3054: PO_LOG.proc_begin(d_module);
3055: END IF;
3056:
3057:
3050: BEGIN
3051: d_position := 0;
3052:
3053: IF (PO_LOG.d_proc) THEN
3054: PO_LOG.proc_begin(d_module);
3055: END IF;
3056:
3057:
3058: FOR i IN 1..x_headers.rec_count
3059: LOOP
3060: d_position := 10;
3061:
3062: IF (x_headers.encumbrance_required_flag_tbl(i) = 'Y') THEN
3063: IF (PO_LOG.d_stmt) THEN
3064: PO_LOG.stmt(d_module, d_position, 'distribution row created for encumbrance');
3065: PO_LOG.stmt(d_module, d_position, 'index', i);
3066: END IF;
3067:
3060: d_position := 10;
3061:
3062: IF (x_headers.encumbrance_required_flag_tbl(i) = 'Y') THEN
3063: IF (PO_LOG.d_stmt) THEN
3064: PO_LOG.stmt(d_module, d_position, 'distribution row created for encumbrance');
3065: PO_LOG.stmt(d_module, d_position, 'index', i);
3066: END IF;
3067:
3068: -- default po_distribution_id
3061:
3062: IF (x_headers.encumbrance_required_flag_tbl(i) = 'Y') THEN
3063: IF (PO_LOG.d_stmt) THEN
3064: PO_LOG.stmt(d_module, d_position, 'distribution row created for encumbrance');
3065: PO_LOG.stmt(d_module, d_position, 'index', i);
3066: END IF;
3067:
3068: -- default po_distribution_id
3069: x_headers.po_dist_id_tbl(i) := PO_PDOI_MAINPROC_UTL_PVT.get_next_dist_id;
3067:
3068: -- default po_distribution_id
3069: x_headers.po_dist_id_tbl(i) := PO_PDOI_MAINPROC_UTL_PVT.get_next_dist_id;
3070:
3071: IF (PO_LOG.d_stmt) THEN
3072: PO_LOG.stmt(d_module, d_position, 'new dist id', x_headers.po_dist_id_tbl(i));
3073: END IF;
3074:
3075: -- default gl_encumbered_date and gl_encumbered_period
3068: -- default po_distribution_id
3069: x_headers.po_dist_id_tbl(i) := PO_PDOI_MAINPROC_UTL_PVT.get_next_dist_id;
3070:
3071: IF (PO_LOG.d_stmt) THEN
3072: PO_LOG.stmt(d_module, d_position, 'new dist id', x_headers.po_dist_id_tbl(i));
3073: END IF;
3074:
3075: -- default gl_encumbered_date and gl_encumbered_period
3076: IF (x_headers.gl_encumbered_date_tbl(i) IS NULL) THEN
3125: p_account_segment30 => x_headers.budget_account_segment30_tbl(i),
3126: x_account_id => x_headers.budget_account_id_tbl(i)
3127: );
3128:
3129: IF (PO_LOG.d_stmt) THEN
3130: PO_LOG.stmt(d_module, d_position, 'default budget account id',
3131: x_headers.budget_account_id_tbl(i));
3132: END IF;
3133: END IF;
3126: x_account_id => x_headers.budget_account_id_tbl(i)
3127: );
3128:
3129: IF (PO_LOG.d_stmt) THEN
3130: PO_LOG.stmt(d_module, d_position, 'default budget account id',
3131: x_headers.budget_account_id_tbl(i));
3132: END IF;
3133: END IF;
3134: END IF;
3133: END IF;
3134: END IF;
3135: END LOOP;
3136:
3137: IF (PO_LOG.d_proc) THEN
3138: PO_LOG.proc_end (d_module);
3139: END IF;
3140:
3141: EXCEPTION
3134: END IF;
3135: END LOOP;
3136:
3137: IF (PO_LOG.d_proc) THEN
3138: PO_LOG.proc_end (d_module);
3139: END IF;
3140:
3141: EXCEPTION
3142: WHEN OTHERS THEN
3180:
3181: BEGIN
3182: d_position := 0;
3183:
3184: IF (PO_LOG.d_proc) THEN
3185: PO_LOG.proc_begin(d_module);
3186: END IF;
3187:
3188: FOR i IN 1 .. x_headers.rec_count LOOP
3181: BEGIN
3182: d_position := 0;
3183:
3184: IF (PO_LOG.d_proc) THEN
3185: PO_LOG.proc_begin(d_module);
3186: END IF;
3187:
3188: FOR i IN 1 .. x_headers.rec_count LOOP
3189: l_index_tbl(x_headers.intf_header_id_tbl(i)) := i;
3196: x_headers.error_flag_tbl(l_index_tbl(x_results.entity_id(i))) := FND_API.g_TRUE;
3197: END IF;
3198: END LOOP;
3199:
3200: IF (PO_LOG.d_proc) THEN
3201: PO_LOG.proc_end (d_module);
3202: END IF;
3203:
3204: EXCEPTION
3197: END IF;
3198: END LOOP;
3199:
3200: IF (PO_LOG.d_proc) THEN
3201: PO_LOG.proc_end (d_module);
3202: END IF;
3203:
3204: EXCEPTION
3205: WHEN OTHERS THEN