646:
647: x_return_status := FND_API.G_RET_STS_SUCCESS;
648:
649: IF g_debug_stmt then
650: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
651: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
652: 'Input Parameters are as below');
653: END IF;
654: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
647: x_return_status := FND_API.G_RET_STS_SUCCESS;
648:
649: IF g_debug_stmt then
650: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
651: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
652: 'Input Parameters are as below');
653: END IF;
654: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
655: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
650: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
651: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
652: 'Input Parameters are as below');
653: END IF;
654: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
655: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
656: 'Vendor id: ' || p_vendor_id);
657: END IF;
658: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
651: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
652: 'Input Parameters are as below');
653: END IF;
654: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
655: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
656: 'Vendor id: ' || p_vendor_id);
657: END IF;
658: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
659: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
654: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
655: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
656: 'Vendor id: ' || p_vendor_id);
657: END IF;
658: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
659: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
660: 'Vendor Site Id: ' || p_vendor_site_id);
661: END IF;
662: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
655: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
656: 'Vendor id: ' || p_vendor_id);
657: END IF;
658: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
659: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
660: 'Vendor Site Id: ' || p_vendor_site_id);
661: END IF;
662: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
663: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
658: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
659: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
660: 'Vendor Site Id: ' || p_vendor_site_id);
661: END IF;
662: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
663: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
664: 'Agreement Id: ' || p_po_header_id);
665: END IF;
666: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
659: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
660: 'Vendor Site Id: ' || p_vendor_site_id);
661: END IF;
662: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
663: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
664: 'Agreement Id: ' || p_po_header_id);
665: END IF;
666: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
667: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
662: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
663: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
664: 'Agreement Id: ' || p_po_header_id);
665: END IF;
666: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
667: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
668: 'Purchasing Category Structure Id: ' ||
669: p_category_struct_id);
670: END IF;
663: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
664: 'Agreement Id: ' || p_po_header_id);
665: END IF;
666: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
667: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
668: 'Purchasing Category Structure Id: ' ||
669: p_category_struct_id);
670: END IF;
671: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
667: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
668: 'Purchasing Category Structure Id: ' ||
669: p_category_struct_id);
670: END IF;
671: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
672: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
673: 'Category From: ' || p_category_from);
674: END IF;
675: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
668: 'Purchasing Category Structure Id: ' ||
669: p_category_struct_id);
670: END IF;
671: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
672: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
673: 'Category From: ' || p_category_from);
674: END IF;
675: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
676: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
671: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
672: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
673: 'Category From: ' || p_category_from);
674: END IF;
675: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
676: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
677: 'Category To : ' || p_category_to);
678: END IF;
679: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
672: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
673: 'Category From: ' || p_category_from);
674: END IF;
675: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
676: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
677: 'Category To : ' || p_category_to);
678: END IF;
679: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
680: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
675: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
676: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
677: 'Category To : ' || p_category_to);
678: END IF;
679: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
680: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
681: 'Item From: ' || p_item_from);
682: END IF;
683: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
676: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
677: 'Category To : ' || p_category_to);
678: END IF;
679: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
680: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
681: 'Item From: ' || p_item_from);
682: END IF;
683: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
684: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
679: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
680: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
681: 'Item From: ' || p_item_from);
682: END IF;
683: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
684: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
685: 'Item To: ' || p_item_to);
686: END IF;
687: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
680: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
681: 'Item From: ' || p_item_from);
682: END IF;
683: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
684: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
685: 'Item To: ' || p_item_to);
686: END IF;
687: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
688: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
683: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
684: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
685: 'Item To: ' || p_item_to);
686: END IF;
687: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
688: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
689: 'Date: ' || p_date);
690: END IF;
691: end if; /*IF g_debug_stmt*/
684: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
685: 'Item To: ' || p_item_to);
686: END IF;
687: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
688: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
689: 'Date: ' || p_date);
690: END IF;
691: end if; /*IF g_debug_stmt*/
692:
716: -- the current org after the org is changed for processing
717: -- Global Agreements
718: g_orig_org_id := l_current_org_id;
719: IF g_debug_stmt then
720: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
721: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
722: 'GA function Security: ' ||l_ga_security);
723: END IF;
724: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
717: -- Global Agreements
718: g_orig_org_id := l_current_org_id;
719: IF g_debug_stmt then
720: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
721: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
722: 'GA function Security: ' ||l_ga_security);
723: END IF;
724: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
725: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
720: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
721: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
722: 'GA function Security: ' ||l_ga_security);
723: END IF;
724: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
725: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
726: 'Current OU: ' ||l_current_org_id);
727: END IF;
728:
721: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
722: 'GA function Security: ' ||l_ga_security);
723: END IF;
724: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
725: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
726: 'Current OU: ' ||l_current_org_id);
727: END IF;
728:
729: end if;
834:
835: l_module := g_log_head||l_api_name||'.'||'030'||'.';
836:
837: IF g_debug_stmt then
838: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
839: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,l_sql_str);
840: END IF;
841: END IF;
842:
835: l_module := g_log_head||l_api_name||'.'||'030'||'.';
836:
837: IF g_debug_stmt then
838: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
839: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,l_sql_str);
840: END IF;
841: END IF;
842:
843: -- bug2935437
882: 'Price Breaks is set to OFF. Retro pricing does not '||
883: 'work with cumulative price breaks.';
884: PO_DEBUG.put_line(l_error_message);
885: IF g_debug_stmt then
886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
887: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module, l_error_message);
888: END IF;
889: END IF;
890: END IF;
883: 'work with cumulative price breaks.';
884: PO_DEBUG.put_line(l_error_message);
885: IF g_debug_stmt then
886: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
887: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module, l_error_message);
888: END IF;
889: END IF;
890: END IF;
891:
893:
894: for i in l_po_agreement_id_table.FIRST..l_po_agreement_id_table.LAST LOOP
895:
896: IF g_debug_stmt then
897: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
898: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
899: 'l_po_agreement_id_table( ' || i || ')' ||
900: l_po_agreement_id_table(i));
901: END IF;
894: for i in l_po_agreement_id_table.FIRST..l_po_agreement_id_table.LAST LOOP
895:
896: IF g_debug_stmt then
897: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
898: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
899: 'l_po_agreement_id_table( ' || i || ')' ||
900: l_po_agreement_id_table(i));
901: END IF;
902: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
898: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
899: 'l_po_agreement_id_table( ' || i || ')' ||
900: l_po_agreement_id_table(i));
901: END IF;
902: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
903: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
904: 'l_po_line_id_table( ' || i || ')' ||
905: l_po_line_id_table(i));
906: END IF;
899: 'l_po_agreement_id_table( ' || i || ')' ||
900: l_po_agreement_id_table(i));
901: END IF;
902: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
903: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
904: 'l_po_line_id_table( ' || i || ')' ||
905: l_po_line_id_table(i));
906: END IF;
907: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
903: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
904: 'l_po_line_id_table( ' || i || ')' ||
905: l_po_line_id_table(i));
906: END IF;
907: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
908: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
909: 'l_retroactive_date_table( ' || i || ')' ||
910: l_retroactive_date_table(i));
911: END IF;
904: 'l_po_line_id_table( ' || i || ')' ||
905: l_po_line_id_table(i));
906: END IF;
907: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
908: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
909: 'l_retroactive_date_table( ' || i || ')' ||
910: l_retroactive_date_table(i));
911: END IF;
912: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
908: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
909: 'l_retroactive_date_table( ' || i || ')' ||
910: l_retroactive_date_table(i));
911: END IF;
912: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
913: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
914: 'l_global_agreement_flag_table( ' || i ||
915: ')' || l_global_agreement_flag_table(i));
916: END IF;
909: 'l_retroactive_date_table( ' || i || ')' ||
910: l_retroactive_date_table(i));
911: END IF;
912: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
913: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
914: 'l_global_agreement_flag_table( ' || i ||
915: ')' || l_global_agreement_flag_table(i));
916: END IF;
917: end if;
934:
935: PO_DEBUG.put_line('Type of agreement being processes: Global Agreement');
936:
937: IF g_debug_stmt then
938: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
939: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
940: 'Global Agreement ');
941: END IF;
942: end if;
935: PO_DEBUG.put_line('Type of agreement being processes: Global Agreement');
936:
937: IF g_debug_stmt then
938: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
939: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
940: 'Global Agreement ');
941: END IF;
942: end if;
943:
1003: if l_po_header_id_table.COUNT <> 0 then
1004:
1005: for j in l_po_header_id_table.FIRST..l_po_header_id_table.LAST LOOP
1006: IF g_debug_stmt then
1007: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1008: /* Bug 2716741.
1009: * All the values that were printed below
1010: * were using the index from the outer
1011: * loop. It was using i when the index
1012: * should be using j for the inner index.
1013: * This was causing a no_data_found error
1014: * when trying to write the log.
1015: */
1016: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1017: l_module,'l_row_id_table('
1018: || j || ')' ||
1019: l_row_id_table(j));
1020: END IF;
1017: l_module,'l_row_id_table('
1018: || j || ')' ||
1019: l_row_id_table(j));
1020: END IF;
1021: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1022: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1023: l_module,'l_po_line_loc_table('
1024: || j || ')' ||
1025: l_po_line_loc_table(j));
1018: || j || ')' ||
1019: l_row_id_table(j));
1020: END IF;
1021: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1022: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1023: l_module,'l_po_line_loc_table('
1024: || j || ')' ||
1025: l_po_line_loc_table(j));
1026: END IF;
1023: l_module,'l_po_line_loc_table('
1024: || j || ')' ||
1025: l_po_line_loc_table(j));
1026: END IF;
1027: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1028: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1029: l_module,'l_quantity_table('
1030: || j || ')' ||
1031: l_quantity_table(j));
1024: || j || ')' ||
1025: l_po_line_loc_table(j));
1026: END IF;
1027: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1028: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1029: l_module,'l_quantity_table('
1030: || j || ')' ||
1031: l_quantity_table(j));
1032: END IF;
1029: l_module,'l_quantity_table('
1030: || j || ')' ||
1031: l_quantity_table(j));
1032: END IF;
1033: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1034: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1035: l_module,'l_ship_to_org_id_table('
1036: || j || ')' ||
1037: l_ship_to_org_id_table(j));
1030: || j || ')' ||
1031: l_quantity_table(j));
1032: END IF;
1033: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1034: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1035: l_module,'l_ship_to_org_id_table('
1036: || j || ')' ||
1037: l_ship_to_org_id_table(j));
1038: END IF;
1035: l_module,'l_ship_to_org_id_table('
1036: || j || ')' ||
1037: l_ship_to_org_id_table(j));
1038: END IF;
1039: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1040: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1041: l_module,'l_ship_to_locn_id_table('
1042: || j || ')' ||
1043: l_ship_to_location_id_table(j));
1036: || j || ')' ||
1037: l_ship_to_org_id_table(j));
1038: END IF;
1039: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1040: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1041: l_module,'l_ship_to_locn_id_table('
1042: || j || ')' ||
1043: l_ship_to_location_id_table(j));
1044: END IF;
1041: l_module,'l_ship_to_locn_id_table('
1042: || j || ')' ||
1043: l_ship_to_location_id_table(j));
1044: END IF;
1045: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1046: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1047: l_module,'l_old_price_table('
1048: || j || ')' ||
1049: l_old_price_override_table(j));
1042: || j || ')' ||
1043: l_ship_to_location_id_table(j));
1044: END IF;
1045: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1046: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1047: l_module,'l_old_price_table('
1048: || j || ')' ||
1049: l_old_price_override_table(j));
1050: END IF;
1047: l_module,'l_old_price_table('
1048: || j || ')' ||
1049: l_old_price_override_table(j));
1050: END IF;
1051: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1052: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1053: l_module,'l_need_by_date_table('
1054: || j || ')' ||
1055: l_need_by_date_table(j));
1048: || j || ')' ||
1049: l_old_price_override_table(j));
1050: END IF;
1051: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1052: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1053: l_module,'l_need_by_date_table('
1054: || j || ')' ||
1055: l_need_by_date_table(j));
1056: END IF;
1053: l_module,'l_need_by_date_table('
1054: || j || ')' ||
1055: l_need_by_date_table(j));
1056: END IF;
1057: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1058: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1059: l_module,'l_po_header_id_table('
1060: || j || ')' ||
1061: l_po_header_id_table(j));
1054: || j || ')' ||
1055: l_need_by_date_table(j));
1056: END IF;
1057: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1058: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1059: l_module,'l_po_header_id_table('
1060: || j || ')' ||
1061: l_po_header_id_table(j));
1062: END IF;
1059: l_module,'l_po_header_id_table('
1060: || j || ')' ||
1061: l_po_header_id_table(j));
1062: END IF;
1063: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1064: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1065: l_module,'l_auth_status_table('
1066: || j || ')' ||
1067: l_auth_status_table(j));
1060: || j || ')' ||
1061: l_po_header_id_table(j));
1062: END IF;
1063: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1064: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1065: l_module,'l_auth_status_table('
1066: || j || ')' ||
1067: l_auth_status_table(j));
1068: END IF;
1065: l_module,'l_auth_status_table('
1066: || j || ')' ||
1067: l_auth_status_table(j));
1068: END IF;
1069: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1070: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1071: l_module,'l_rev_num_table('
1072: || j || ')' ||
1073: l_rev_num_table(j));
1066: || j || ')' ||
1067: l_auth_status_table(j));
1068: END IF;
1069: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1070: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1071: l_module,'l_rev_num_table('
1072: || j || ')' ||
1073: l_rev_num_table(j));
1074: END IF;
1071: l_module,'l_rev_num_table('
1072: || j || ')' ||
1073: l_rev_num_table(j));
1074: END IF;
1075: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1076: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1077: l_module,'l_arch_rev_num_table('
1078: || j || ')' ||
1079: l_archived_rev_num_table(j));
1072: || j || ')' ||
1073: l_rev_num_table(j));
1074: END IF;
1075: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1076: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1077: l_module,'l_arch_rev_num_table('
1078: || j || ')' ||
1079: l_archived_rev_num_table(j));
1080: END IF;
1159:
1160: PO_DEBUG.put_line('Type of agreement being processed : Blanket Agreement');
1161:
1162: IF g_debug_stmt THEN
1163: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1164: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,'Blanket Agreement');
1165: END IF;
1166: END IF;
1167:
1160: PO_DEBUG.put_line('Type of agreement being processed : Blanket Agreement');
1161:
1162: IF g_debug_stmt THEN
1163: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1164: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,'Blanket Agreement');
1165: END IF;
1166: END IF;
1167:
1168: -- Bug 3573266: Do not continue if the PO encumbrance in the current
1171: p_org_id => l_current_org_id))
1172: THEN
1173: PO_DEBUG.put_line('Retroactive Pricing is not supported in encumbered OUs ');
1174: IF g_debug_stmt THEN
1175: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1176: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,'Encumbrance ON');
1177: END IF;
1178: END IF;
1179:
1172: THEN
1173: PO_DEBUG.put_line('Retroactive Pricing is not supported in encumbered OUs ');
1174: IF g_debug_stmt THEN
1175: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1176: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,'Encumbrance ON');
1177: END IF;
1178: END IF;
1179:
1180: EXIT; -- exit out of blanket line cursor loop
1244: if l_po_release_id_table.COUNT <> 0 then
1245:
1246: for j in l_po_release_id_table.FIRST..l_po_release_id_table.LAST LOOP
1247: IF g_debug_stmt then
1248: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1249: /* Bug 2716741.
1250: * All the values that were printed below
1251: * were using the index from the outer
1252: * loop. It was using i when the index
1253: * should be using j for the inner index.
1254: * This was causing a no_data_found error
1255: * when trying to write the log.
1256: */
1257: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1258: l_module,'l_row_id_table('
1259: || j || ')' ||
1260: l_row_id_table(j));
1261: END IF;
1258: l_module,'l_row_id_table('
1259: || j || ')' ||
1260: l_row_id_table(j));
1261: END IF;
1262: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1263: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1264: l_module,'l_po_line_loc_table('
1265: || j || ')' ||
1266: l_po_line_loc_table(j));
1259: || j || ')' ||
1260: l_row_id_table(j));
1261: END IF;
1262: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1263: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1264: l_module,'l_po_line_loc_table('
1265: || j || ')' ||
1266: l_po_line_loc_table(j));
1267: END IF;
1264: l_module,'l_po_line_loc_table('
1265: || j || ')' ||
1266: l_po_line_loc_table(j));
1267: END IF;
1268: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1269: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1270: l_module,'l_quantity_table('
1271: || j || ')' ||
1272: l_quantity_table(j));
1265: || j || ')' ||
1266: l_po_line_loc_table(j));
1267: END IF;
1268: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1269: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1270: l_module,'l_quantity_table('
1271: || j || ')' ||
1272: l_quantity_table(j));
1273: END IF;
1270: l_module,'l_quantity_table('
1271: || j || ')' ||
1272: l_quantity_table(j));
1273: END IF;
1274: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1275: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1276: l_module,'l_ship_to_org_id_table('
1277: || j || ')' ||
1278: l_ship_to_org_id_table(j));
1271: || j || ')' ||
1272: l_quantity_table(j));
1273: END IF;
1274: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1275: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1276: l_module,'l_ship_to_org_id_table('
1277: || j || ')' ||
1278: l_ship_to_org_id_table(j));
1279: END IF;
1276: l_module,'l_ship_to_org_id_table('
1277: || j || ')' ||
1278: l_ship_to_org_id_table(j));
1279: END IF;
1280: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1281: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1282: l_module,'l_ship_to_locn_id_table('
1283: || j || ')' ||
1284: l_ship_to_location_id_table(j));
1277: || j || ')' ||
1278: l_ship_to_org_id_table(j));
1279: END IF;
1280: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1281: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1282: l_module,'l_ship_to_locn_id_table('
1283: || j || ')' ||
1284: l_ship_to_location_id_table(j));
1285: END IF;
1282: l_module,'l_ship_to_locn_id_table('
1283: || j || ')' ||
1284: l_ship_to_location_id_table(j));
1285: END IF;
1286: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1287: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1288: l_module,'l_old_price_table('
1289: || j || ')' ||
1290: l_old_price_override_table(j));
1283: || j || ')' ||
1284: l_ship_to_location_id_table(j));
1285: END IF;
1286: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1287: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1288: l_module,'l_old_price_table('
1289: || j || ')' ||
1290: l_old_price_override_table(j));
1291: END IF;
1288: l_module,'l_old_price_table('
1289: || j || ')' ||
1290: l_old_price_override_table(j));
1291: END IF;
1292: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1293: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1294: l_module,'l_need_by_date_table('
1295: || j || ')' ||
1296: l_need_by_date_table(j));
1289: || j || ')' ||
1290: l_old_price_override_table(j));
1291: END IF;
1292: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1293: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1294: l_module,'l_need_by_date_table('
1295: || j || ')' ||
1296: l_need_by_date_table(j));
1297: END IF;
1294: l_module,'l_need_by_date_table('
1295: || j || ')' ||
1296: l_need_by_date_table(j));
1297: END IF;
1298: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1299: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1300: l_module,'l_po_release_id_table('
1301: || j || ')' ||
1302: l_po_release_id_table(j));
1295: || j || ')' ||
1296: l_need_by_date_table(j));
1297: END IF;
1298: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1299: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1300: l_module,'l_po_release_id_table('
1301: || j || ')' ||
1302: l_po_release_id_table(j));
1303: END IF;
1300: l_module,'l_po_release_id_table('
1301: || j || ')' ||
1302: l_po_release_id_table(j));
1303: END IF;
1304: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1305: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1306: l_module,'l_auth_status_table('
1307: || j || ')' ||
1308: l_auth_status_table(j));
1301: || j || ')' ||
1302: l_po_release_id_table(j));
1303: END IF;
1304: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1305: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1306: l_module,'l_auth_status_table('
1307: || j || ')' ||
1308: l_auth_status_table(j));
1309: END IF;
1306: l_module,'l_auth_status_table('
1307: || j || ')' ||
1308: l_auth_status_table(j));
1309: END IF;
1310: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1311: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1312: l_module,'l_rev_num_table('
1313: || j || ')' ||
1314: l_rev_num_table(j));
1307: || j || ')' ||
1308: l_auth_status_table(j));
1309: END IF;
1310: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1311: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1312: l_module,'l_rev_num_table('
1313: || j || ')' ||
1314: l_rev_num_table(j));
1315: END IF;
1312: l_module,'l_rev_num_table('
1313: || j || ')' ||
1314: l_rev_num_table(j));
1315: END IF;
1316: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1317: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1318: l_module,'l_arch_rev_num_table('
1319: || j || ')' ||
1320: l_archived_rev_num_table(j));
1313: || j || ')' ||
1314: l_rev_num_table(j));
1315: END IF;
1316: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1317: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1318: l_module,'l_arch_rev_num_table('
1319: || j || ')' ||
1320: l_archived_rev_num_table(j));
1321: END IF;
1412: --
1413: else -- Contracts
1414:
1415: IF g_debug_stmt THEN
1416: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1417: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,'contract Agreement');
1418: END IF;
1419: END IF;
1420:
1413: else -- Contracts
1414:
1415: IF g_debug_stmt THEN
1416: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1417: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,'contract Agreement');
1418: END IF;
1419: END IF;
1420:
1421: IF (l_retroactive_update = 'OPEN_RELEASES') THEN
1470:
1471: for j in l_po_header_id_table.FIRST..l_po_header_id_table.LAST LOOP
1472:
1473: IF g_debug_stmt then
1474: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1475: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1476: l_module,'l_row_id_table(' || j || ')' || l_row_id_table(j));
1477: END IF;
1478: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1471: for j in l_po_header_id_table.FIRST..l_po_header_id_table.LAST LOOP
1472:
1473: IF g_debug_stmt then
1474: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1475: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1476: l_module,'l_row_id_table(' || j || ')' || l_row_id_table(j));
1477: END IF;
1478: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1479: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1474: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1475: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1476: l_module,'l_row_id_table(' || j || ')' || l_row_id_table(j));
1477: END IF;
1478: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1479: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1480: l_module,'l_po_line_loc_table(' || j || ')' || l_po_line_loc_table(j));
1481: END IF;
1482: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1475: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1476: l_module,'l_row_id_table(' || j || ')' || l_row_id_table(j));
1477: END IF;
1478: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1479: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1480: l_module,'l_po_line_loc_table(' || j || ')' || l_po_line_loc_table(j));
1481: END IF;
1482: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1483: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1478: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1479: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1480: l_module,'l_po_line_loc_table(' || j || ')' || l_po_line_loc_table(j));
1481: END IF;
1482: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1483: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1484: l_module,'l_quantity_table(' || j || ')' || l_quantity_table(j));
1485: END IF;
1486: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1479: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1480: l_module,'l_po_line_loc_table(' || j || ')' || l_po_line_loc_table(j));
1481: END IF;
1482: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1483: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1484: l_module,'l_quantity_table(' || j || ')' || l_quantity_table(j));
1485: END IF;
1486: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1487: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1482: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1483: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1484: l_module,'l_quantity_table(' || j || ')' || l_quantity_table(j));
1485: END IF;
1486: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1487: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1488: l_module,'l_ship_to_org_id_table(' || j || ')' || l_ship_to_org_id_table(j));
1489: END IF;
1490: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1483: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1484: l_module,'l_quantity_table(' || j || ')' || l_quantity_table(j));
1485: END IF;
1486: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1487: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1488: l_module,'l_ship_to_org_id_table(' || j || ')' || l_ship_to_org_id_table(j));
1489: END IF;
1490: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1491: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1486: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1487: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1488: l_module,'l_ship_to_org_id_table(' || j || ')' || l_ship_to_org_id_table(j));
1489: END IF;
1490: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1491: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1492: l_module,'l_ship_to_locn_id_table(' || j || ')' || l_ship_to_location_id_table(j));
1493: END IF;
1494: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1487: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1488: l_module,'l_ship_to_org_id_table(' || j || ')' || l_ship_to_org_id_table(j));
1489: END IF;
1490: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1491: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1492: l_module,'l_ship_to_locn_id_table(' || j || ')' || l_ship_to_location_id_table(j));
1493: END IF;
1494: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1495: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1490: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1491: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1492: l_module,'l_ship_to_locn_id_table(' || j || ')' || l_ship_to_location_id_table(j));
1493: END IF;
1494: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1495: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1496: l_module,'l_old_price_table(' || j || ')' || l_old_price_override_table(j));
1497: END IF;
1498: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1491: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1492: l_module,'l_ship_to_locn_id_table(' || j || ')' || l_ship_to_location_id_table(j));
1493: END IF;
1494: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1495: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1496: l_module,'l_old_price_table(' || j || ')' || l_old_price_override_table(j));
1497: END IF;
1498: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1499: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1494: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1495: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1496: l_module,'l_old_price_table(' || j || ')' || l_old_price_override_table(j));
1497: END IF;
1498: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1499: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1500: l_module,'l_need_by_date_table(' || j || ')' || l_need_by_date_table(j));
1501: END IF;
1502: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1495: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1496: l_module,'l_old_price_table(' || j || ')' || l_old_price_override_table(j));
1497: END IF;
1498: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1499: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1500: l_module,'l_need_by_date_table(' || j || ')' || l_need_by_date_table(j));
1501: END IF;
1502: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1503: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1498: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1499: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1500: l_module,'l_need_by_date_table(' || j || ')' || l_need_by_date_table(j));
1501: END IF;
1502: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1503: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1504: l_module,'l_po_header_id_table(' || j || ')' || l_po_header_id_table(j));
1505: END IF;
1506: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1499: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1500: l_module,'l_need_by_date_table(' || j || ')' || l_need_by_date_table(j));
1501: END IF;
1502: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1503: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1504: l_module,'l_po_header_id_table(' || j || ')' || l_po_header_id_table(j));
1505: END IF;
1506: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1507: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1502: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1503: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1504: l_module,'l_po_header_id_table(' || j || ')' || l_po_header_id_table(j));
1505: END IF;
1506: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1507: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1508: l_module,'l_auth_status_table(' || j || ')' || l_auth_status_table(j));
1509: END IF;
1510: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1503: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1504: l_module,'l_po_header_id_table(' || j || ')' || l_po_header_id_table(j));
1505: END IF;
1506: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1507: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1508: l_module,'l_auth_status_table(' || j || ')' || l_auth_status_table(j));
1509: END IF;
1510: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1511: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1506: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1507: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1508: l_module,'l_auth_status_table(' || j || ')' || l_auth_status_table(j));
1509: END IF;
1510: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1511: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1512: l_module,'l_rev_num_table(' || j || ')' || l_rev_num_table(j));
1513: END IF;
1514: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1507: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1508: l_module,'l_auth_status_table(' || j || ')' || l_auth_status_table(j));
1509: END IF;
1510: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1511: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1512: l_module,'l_rev_num_table(' || j || ')' || l_rev_num_table(j));
1513: END IF;
1514: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1515: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1510: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1511: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1512: l_module,'l_rev_num_table(' || j || ')' || l_rev_num_table(j));
1513: END IF;
1514: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1515: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1516: l_module,'l_arch_rev_num_table(' || j || ')' || l_archived_rev_num_table(j));
1517: END IF;
1518: end if;
1511: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1512: l_module,'l_rev_num_table(' || j || ')' || l_rev_num_table(j));
1513: END IF;
1514: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1515: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
1516: l_module,'l_arch_rev_num_table(' || j || ')' || l_archived_rev_num_table(j));
1517: END IF;
1518: end if;
1519:
1714:
1715: EXCEPTION
1716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1718: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1719: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
1720: l_module,SQLERRM(SQLCODE));
1721: END IF;
1722: ROLLBACK;
1715: EXCEPTION
1716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1718: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1719: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
1720: l_module,SQLERRM(SQLCODE));
1721: END IF;
1722: ROLLBACK;
1723: when l_tax_failure then
1721: END IF;
1722: ROLLBACK;
1723: when l_tax_failure then
1724: x_return_status := FND_API.G_RET_STS_ERROR;
1725: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1726: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
1727: l_module,SQLERRM(SQLCODE));
1728: END IF;
1729: ROLLBACK;
1722: ROLLBACK;
1723: when l_tax_failure then
1724: x_return_status := FND_API.G_RET_STS_ERROR;
1725: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1726: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
1727: l_module,SQLERRM(SQLCODE));
1728: END IF;
1729: ROLLBACK;
1730: when no_data_found then
1728: END IF;
1729: ROLLBACK;
1730: when no_data_found then
1731: x_return_status := FND_API.G_RET_STS_ERROR;
1732: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1733: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
1734: l_module,SQLERRM(SQLCODE));
1735: END IF;
1736: ROLLBACK;
1729: ROLLBACK;
1730: when no_data_found then
1731: x_return_status := FND_API.G_RET_STS_ERROR;
1732: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1733: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
1734: l_module,SQLERRM(SQLCODE));
1735: END IF;
1736: ROLLBACK;
1737: when others then
1735: END IF;
1736: ROLLBACK;
1737: when others then
1738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1739: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1740: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
1741: l_module,SQLERRM(SQLCODE));
1742: END IF;
1743: /* Bug 2857628 START */
1736: ROLLBACK;
1737: when others then
1738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1739: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1740: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
1741: l_module,SQLERRM(SQLCODE));
1742: END IF;
1743: /* Bug 2857628 START */
1744: if (select_open_releases%ISOPEN) then
1886:
1887: -- bug2935437 end
1888:
1889: x_item_cursor := l_mstk_w || l_mcat_w2;
1890: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1891: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,'x_item_cursor: ' ||
1892: x_item_cursor);
1893: END IF;
1894: exception
1887: -- bug2935437 end
1888:
1889: x_item_cursor := l_mstk_w || l_mcat_w2;
1890: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1891: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,'x_item_cursor: ' ||
1892: x_item_cursor);
1893: END IF;
1894: exception
1895: when others then
1892: x_item_cursor);
1893: END IF;
1894: exception
1895: when others then
1896: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1897: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
1898: l_module,SQLERRM(SQLCODE));
1899: END IF;
1900:
1893: END IF;
1894: exception
1895: when others then
1896: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1897: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
1898: l_module,SQLERRM(SQLCODE));
1899: END IF;
1900:
1901: raise;
1958: FOR i IN g_po_release_id_table.first..g_po_release_id_table.LAST LOOP
1959: --
1960: l_return_status := NULL;
1961: IF g_debug_stmt then
1962: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1963: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
1964: 'Callin Tax for Release ID ' || g_po_release_id_table(i));
1965: END IF;
1966: END IF;
1959: --
1960: l_return_status := NULL;
1961: IF g_debug_stmt then
1962: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1963: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
1964: 'Callin Tax for Release ID ' || g_po_release_id_table(i));
1965: END IF;
1966: END IF;
1967: po_tax_interface_pvt.calculate_tax(p_po_header_id => NULL,
1968: p_po_release_id => g_po_release_id_table(i),
1969: p_calling_program => 'PO_POXRPRIB_REL',
1970: x_return_status => l_return_status);
1971: IF g_debug_stmt then
1972: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1973: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
1974: 'Callin Tax : Return Status ' ||l_return_status);
1975: END IF;
1976: END IF;
1969: p_calling_program => 'PO_POXRPRIB_REL',
1970: x_return_status => l_return_status);
1971: IF g_debug_stmt then
1972: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1973: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
1974: 'Callin Tax : Return Status ' ||l_return_status);
1975: END IF;
1976: END IF;
1977: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2029: WHERE rowid = l_row_id_table(release_update_index);
2030:
2031: exception
2032: when l_tax_failure then
2033: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2034: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2035: l_module,SQLERRM(SQLCODE));
2036: END IF;
2037: raise;
2030:
2031: exception
2032: when l_tax_failure then
2033: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2034: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2035: l_module,SQLERRM(SQLCODE));
2036: END IF;
2037: raise;
2038: when no_data_found then
2035: l_module,SQLERRM(SQLCODE));
2036: END IF;
2037: raise;
2038: when no_data_found then
2039: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2040: /* No error since there need not be any rows in temp table */
2041: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2042: l_module,SQLERRM(SQLCODE));
2043: END IF;
2037: raise;
2038: when no_data_found then
2039: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2040: /* No error since there need not be any rows in temp table */
2041: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2042: l_module,SQLERRM(SQLCODE));
2043: END IF;
2044: when others then
2045: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2041: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2042: l_module,SQLERRM(SQLCODE));
2043: END IF;
2044: when others then
2045: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2046: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2047: l_module,SQLERRM(SQLCODE));
2048: END IF;
2049: raise;
2042: l_module,SQLERRM(SQLCODE));
2043: END IF;
2044: when others then
2045: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2046: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2047: l_module,SQLERRM(SQLCODE));
2048: END IF;
2049: raise;
2050:
2106: FOR i IN g_po_header_id_table.first..g_po_header_id_table.LAST LOOP
2107: --
2108: l_return_status := NULL;
2109: IF g_debug_stmt then
2110: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2111: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
2112: 'Callin Tax : PO HEADER ID ' ||g_po_header_id_table(i));
2113: END IF;
2114: END IF;
2107: --
2108: l_return_status := NULL;
2109: IF g_debug_stmt then
2110: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2111: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
2112: 'Callin Tax : PO HEADER ID ' ||g_po_header_id_table(i));
2113: END IF;
2114: END IF;
2115: po_tax_interface_pvt.calculate_tax(p_po_header_id => g_po_header_id_table(i),
2116: p_po_release_id => NULL,
2117: p_calling_program => 'PO_POXRPRIB_PO',
2118: x_return_status => l_return_status);
2119: IF g_debug_stmt then
2120: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2121: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
2122: 'Callin Tax : Return Status ' ||l_return_status);
2123: END IF;
2124: END IF;
2117: p_calling_program => 'PO_POXRPRIB_PO',
2118: x_return_status => l_return_status);
2119: IF g_debug_stmt then
2120: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2121: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
2122: 'Callin Tax : Return Status ' ||l_return_status);
2123: END IF;
2124: END IF;
2125: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2178: rowid=l_row_id_table(ship_update_index));
2179:
2180: exception
2181: when l_tax_failure then
2182: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2183: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2184: l_module,SQLERRM(SQLCODE));
2185: END IF;
2186: raise;
2179:
2180: exception
2181: when l_tax_failure then
2182: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2183: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2184: l_module,SQLERRM(SQLCODE));
2185: END IF;
2186: raise;
2187: when no_data_found then
2184: l_module,SQLERRM(SQLCODE));
2185: END IF;
2186: raise;
2187: when no_data_found then
2188: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2189: /* No error since there need not be any rows in the temp table*/
2190: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2191: l_module,SQLERRM(SQLCODE));
2192: END IF;
2186: raise;
2187: when no_data_found then
2188: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2189: /* No error since there need not be any rows in the temp table*/
2190: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2191: l_module,SQLERRM(SQLCODE));
2192: END IF;
2193: when others then
2194: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2190: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2191: l_module,SQLERRM(SQLCODE));
2192: END IF;
2193: when others then
2194: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2195: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2196: l_module,SQLERRM(SQLCODE));
2197: END IF;
2198: raise;
2191: l_module,SQLERRM(SQLCODE));
2192: END IF;
2193: when others then
2194: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2195: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2196: l_module,SQLERRM(SQLCODE));
2197: END IF;
2198: raise;
2199:
2325: l_error_message := 'Can not retroactively update price on a consumption '||
2326: 'advice, since the Inventory Org period is not open.';
2327:
2328: IF g_debug_stmt then
2329: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2330: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module, l_error_message);
2331: END IF;
2332: END IF;
2333:
2326: 'advice, since the Inventory Org period is not open.';
2327:
2328: IF g_debug_stmt then
2329: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2330: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module, l_error_message);
2331: END IF;
2332: END IF;
2333:
2334: PO_DEBUG.put_line(l_error_message);
2348: THEN
2349:
2350: FND_MESSAGE.set_name('PO', 'PO_RETRO_PRICING_NOT_ALLOWED');
2351: l_error_message := FND_MESSAGE.get;
2352: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2353: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,l_module,l_error_message);
2354: END IF;
2355: PO_DEBUG.put_line(l_error_message);
2356:
2349:
2350: FND_MESSAGE.set_name('PO', 'PO_RETRO_PRICING_NOT_ALLOWED');
2351: l_error_message := FND_MESSAGE.get;
2352: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2353: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,l_module,l_error_message);
2354: END IF;
2355: PO_DEBUG.put_line(l_error_message);
2356:
2357: g_exclude_index := g_exclude_index + 1;
2367: (Is_Retro_Project_Allowed(l_std_po_price_change,
2368: l_po_line_id,
2369: p_po_line_location_id) = 'N'))
2370: THEN
2371: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2372: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,l_module,
2373: 'Can not update price since project 11i10 is not enabled');
2374: END IF;
2375: PO_DEBUG.put_line('Can not update price since project 11i10 is not enabled');
2368: l_po_line_id,
2369: p_po_line_location_id) = 'N'))
2370: THEN
2371: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2372: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,l_module,
2373: 'Can not update price since project 11i10 is not enabled');
2374: END IF;
2375: PO_DEBUG.put_line('Can not update price since project 11i10 is not enabled');
2376:
2384:
2385:
2386: --
2387: IF g_debug_stmt then
2388: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2389: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module, 'intialising Get Price Break Call');
2390: END IF;
2391: END IF;
2392:
2385:
2386: --
2387: IF g_debug_stmt then
2388: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2389: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module, 'intialising Get Price Break Call');
2390: END IF;
2391: END IF;
2392:
2393: if (l_std_po_price_change = 'Y') then
2438: AND POL.po_line_id = PLL.po_line_id
2439: AND POH.po_header_id = POL.po_header_id;
2440:
2441: IF g_debug_stmt then
2442: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2443: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module, 'Call get price break API ');
2444: END IF;
2445: END IF;
2446:
2439: AND POH.po_header_id = POL.po_header_id;
2440:
2441: IF g_debug_stmt then
2442: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2443: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module, 'Call get price break API ');
2444: END IF;
2445: END IF;
2446:
2447: PO_SOURCING2_SV.get_break_price
2478:
2479: ELSE
2480:
2481: IF g_debug_stmt then
2482: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2483: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module, 'Call get price break API:old call ');
2484: END IF;
2485: END IF;
2486:
2479: ELSE
2480:
2481: IF g_debug_stmt then
2482: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2483: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module, 'Call get price break API:old call ');
2484: END IF;
2485: END IF;
2486:
2487: l_new_price_override := po_sourcing2_sv.get_break_price(
2495:
2496: END IF; -- if (l_std_po_price_change = 'Y') then
2497:
2498: IF g_debug_stmt then
2499: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2500: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
2501: l_module,'l_new_price_override'||
2502: l_new_price_override);
2503: END IF;
2496: END IF; -- if (l_std_po_price_change = 'Y') then
2497:
2498: IF g_debug_stmt then
2499: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2500: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
2501: l_module,'l_new_price_override'||
2502: l_new_price_override);
2503: END IF;
2504: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2500: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
2501: l_module,'l_new_price_override'||
2502: l_new_price_override);
2503: END IF;
2504: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2505: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
2506: l_module,'p_old_price_override' ||
2507: p_old_price_override);
2508: END IF;
2501: l_module,'l_new_price_override'||
2502: l_new_price_override);
2503: END IF;
2504: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2505: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
2506: l_module,'p_old_price_override' ||
2507: p_old_price_override);
2508: END IF;
2509: end if;
2530:
2531:
2532: exception
2533: when others then
2534: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2535: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2536: l_module,SQLERRM(SQLCODE));
2537: END IF;
2538: raise;
2531:
2532: exception
2533: when others then
2534: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2535: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2536: l_module,SQLERRM(SQLCODE));
2537: END IF;
2538: raise;
2539:
2609: x_sub_check_status => x_sub_check_status,
2610: x_msg_data => x_msg_data,
2611: x_online_report_id => x_online_report_id);
2612:
2613: /* For FND_LOG level, using LEVEL_EXCEPTION since these
2614: * are really exception that happened but we are not
2615: * erroring out here but just logging it and then continue
2616: * trying to submit next document for approval.
2617: */
2621: l_msg_buf := FND_MSG_PUB.Get(p_msg_index => 1,
2622: p_encoded => 'F');
2623: l_msg_buf := 'Std PO ' ||g_po_header_id_table(i)||
2624: l_msg_buf;
2625: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2626: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2627: l_module,l_msg_buf);
2628: END IF;
2629: end if;
2622: p_encoded => 'F');
2623: l_msg_buf := 'Std PO ' ||g_po_header_id_table(i)||
2624: l_msg_buf;
2625: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2626: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2627: l_module,l_msg_buf);
2628: END IF;
2629: end if;
2630: If ((x_return_status = FND_API.G_RET_STS_SUCCESS) and
2631: (x_sub_check_status = FND_API.G_RET_STS_ERROR)) THEN
2632:
2633: l_msg_buf := 'Std PO: ' ||g_po_header_id_table(i)||
2634: ' Online Report Id: '||x_online_report_id;
2635: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2636: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2637: l_module,l_msg_buf);
2638: END IF;
2639:
2632:
2633: l_msg_buf := 'Std PO: ' ||g_po_header_id_table(i)||
2634: ' Online Report Id: '||x_online_report_id;
2635: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2636: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2637: l_module,l_msg_buf);
2638: END IF;
2639:
2640: end if;
2659:
2660: PO_MOAC_UTILS_PVT.set_org_context(g_orig_org_id) ; --
2661: exception
2662: when no_data_found then
2663: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2664: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2665: l_module,SQLERRM(SQLCODE));
2666: END IF;
2667: raise;
2660: PO_MOAC_UTILS_PVT.set_org_context(g_orig_org_id) ; --
2661: exception
2662: when no_data_found then
2663: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2664: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2665: l_module,SQLERRM(SQLCODE));
2666: END IF;
2667: raise;
2668: when others then
2665: l_module,SQLERRM(SQLCODE));
2666: END IF;
2667: raise;
2668: when others then
2669: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2670: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2671: l_module,SQLERRM(SQLCODE));
2672: END IF;
2673: raise;
2666: END IF;
2667: raise;
2668: when others then
2669: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2670: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2671: l_module,SQLERRM(SQLCODE));
2672: END IF;
2673: raise;
2674:
2733: x_sub_check_status => x_sub_check_status,
2734: x_msg_data => x_msg_data,
2735: x_online_report_id => x_online_report_id);
2736:
2737: /* For FND_LOG level, using LEVEL_EXCEPTION since these
2738: * are really exception that happened but we are not
2739: * erroring out here but just logging it and then continue
2740: * trying to submit next document for approval.
2741: */
2744: l_msg_buf := FND_MSG_PUB.Get(p_msg_index => 1,
2745: p_encoded => 'F');
2746: l_msg_buf := 'Release ' ||g_po_release_id_table(i)||
2747: l_msg_buf;
2748: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2749: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2750: l_module,l_msg_buf);
2751: END IF;
2752: end if;
2745: p_encoded => 'F');
2746: l_msg_buf := 'Release ' ||g_po_release_id_table(i)||
2747: l_msg_buf;
2748: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2749: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2750: l_module,l_msg_buf);
2751: END IF;
2752: end if;
2753:
2755: (x_sub_check_status = FND_API.G_RET_STS_ERROR)) THEN
2756:
2757: l_msg_buf := 'Release ' ||g_po_release_id_table(i)||
2758: 'Online Report Id '||x_online_report_id;
2759: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2760: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2761: l_module,l_msg_buf);
2762: END IF;
2763:
2756:
2757: l_msg_buf := 'Release ' ||g_po_release_id_table(i)||
2758: 'Online Report Id '||x_online_report_id;
2759: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2760: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2761: l_module,l_msg_buf);
2762: END IF;
2763:
2764: end if;
2781: end loop; /* l_global_document_id_table.first */
2782: end if;/*g_po_release_id_table.count > 0 */
2783: exception
2784: when others then
2785: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2786: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2787: l_module,SQLERRM(SQLCODE));
2788: END IF;
2789: raise;
2782: end if;/*g_po_release_id_table.count > 0 */
2783: exception
2784: when others then
2785: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2786: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2787: l_module,SQLERRM(SQLCODE));
2788: END IF;
2789: raise;
2790:
2918: RetroactivePriceChange => 'Y');
2919:
2920: exception
2921: when no_data_found then
2922: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2923: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2924: l_module,SQLERRM(SQLCODE));
2925: END IF;
2926: raise;
2919:
2920: exception
2921: when no_data_found then
2922: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2923: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2924: l_module,SQLERRM(SQLCODE));
2925: END IF;
2926: raise;
2927: when others then
2924: l_module,SQLERRM(SQLCODE));
2925: END IF;
2926: raise;
2927: when others then
2928: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2929: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2930: l_module,SQLERRM(SQLCODE));
2931: END IF;
2932: raise;
2925: END IF;
2926: raise;
2927: when others then
2928: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2929: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2930: l_module,SQLERRM(SQLCODE));
2931: END IF;
2932: raise;
2933:
2986: l_num_bind_vars := l_num_bind_vars + 1;
2987: END IF;
2988:
2989: l_module := g_log_head||l_api_name||'.'||'010'||'.';
2990: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2991: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
2992: 'Ready to open x_cursor, num of binds = ' || l_num_bind_vars);
2993: END IF;
2994:
2987: END IF;
2988:
2989: l_module := g_log_head||l_api_name||'.'||'010'||'.';
2990: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
2991: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
2992: 'Ready to open x_cursor, num of binds = ' || l_num_bind_vars);
2993: END IF;
2994:
2995: IF (l_num_bind_vars = 5) THEN
3023: p_po_header_id, p_vendor_id, p_vendor_site_id;
3024: END IF;
3025:
3026: l_module := g_log_head||l_api_name||'.'||'020'||'.';
3027: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3028: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
3029: 'x_cursor is opened');
3030: END IF;
3031: EXCEPTION
3024: END IF;
3025:
3026: l_module := g_log_head||l_api_name||'.'||'020'||'.';
3027: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
3028: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
3029: 'x_cursor is opened');
3030: END IF;
3031: EXCEPTION
3032: WHEN OTHERS THEN
3029: 'x_cursor is opened');
3030: END IF;
3031: EXCEPTION
3032: WHEN OTHERS THEN
3033: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3034: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
3035: l_module,SQLERRM(SQLCODE));
3036: END IF;
3037: END open_agreement_cur;
3030: END IF;
3031: EXCEPTION
3032: WHEN OTHERS THEN
3033: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
3034: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
3035: l_module,SQLERRM(SQLCODE));
3036: END IF;
3037: END open_agreement_cur;
3038:
4307:
4308: l_module := g_log_head||l_api_name||'.'||'000'||'.';
4309:
4310: IF g_debug_stmt then
4311: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4312: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4313: 'Project Check');
4314: END IF;
4315: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4308: l_module := g_log_head||l_api_name||'.'||'000'||'.';
4309:
4310: IF g_debug_stmt then
4311: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4312: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4313: 'Project Check');
4314: END IF;
4315: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4316: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4311: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4312: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4313: 'Project Check');
4314: END IF;
4315: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4316: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4317: 'Price Change on std PO :' || p_std_po_price_change);
4318: END IF;
4319: END IF;
4312: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4313: 'Project Check');
4314: END IF;
4315: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4316: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4317: 'Price Change on std PO :' || p_std_po_price_change);
4318: END IF;
4319: END IF;
4320:
4319: END IF;
4320:
4321: IF g_projects_11i10_installed = 'Y' THEN
4322: IF g_debug_stmt THEN
4323: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4324: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4325: 'Project 11i10 Enabled');
4326: END IF;
4327: END IF;
4320:
4321: IF g_projects_11i10_installed = 'Y' THEN
4322: IF g_debug_stmt THEN
4323: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4324: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4325: 'Project 11i10 Enabled');
4326: END IF;
4327: END IF;
4328: RETURN 'Y';
4372: END;
4373: END IF; /*IF p_std_po_price_change = 'Y'*/
4374:
4375: IF g_debug_stmt THEN
4376: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4377: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4378: 'Retro Projcet Allowed: '|| l_retro_proj_allowed);
4379: END IF;
4380: END IF;
4373: END IF; /*IF p_std_po_price_change = 'Y'*/
4374:
4375: IF g_debug_stmt THEN
4376: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4377: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4378: 'Retro Projcet Allowed: '|| l_retro_proj_allowed);
4379: END IF;
4380: END IF;
4381:
4382: RETURN l_retro_proj_allowed;
4383:
4384: EXCEPTION
4385: WHEN OTHERS THEN
4386: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4387: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
4388: l_module,SQLERRM(SQLCODE));
4389: END IF;
4390:
4383:
4384: EXCEPTION
4385: WHEN OTHERS THEN
4386: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4387: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
4388: l_module,SQLERRM(SQLCODE));
4389: END IF;
4390:
4391: RETURN 'N';
4471:
4472: l_module := g_log_head||l_api_name||'.'||'000'||'.';
4473:
4474: IF g_debug_stmt then
4475: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4476: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4477: 'Adj Account validity check');
4478: END IF;
4479: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4472: l_module := g_log_head||l_api_name||'.'||'000'||'.';
4473:
4474: IF g_debug_stmt then
4475: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4476: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4477: 'Adj Account validity check');
4478: END IF;
4479: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4480: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4475: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4476: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4477: 'Adj Account validity check');
4478: END IF;
4479: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4480: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4481: 'Price Change on std PO :' || p_std_po_price_change);
4482: END IF;
4483: END IF;
4476: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4477: 'Adj Account validity check');
4478: END IF;
4479: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4480: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4481: 'Price Change on std PO :' || p_std_po_price_change);
4482: END IF;
4483: END IF;
4484:
4518: -- transaction flow
4519: IF l_trans_flow_header_id is null THEN
4520:
4521: IF g_debug_stmt then
4522: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4523: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4524: 'Adj Account from ship to org of PO');
4525: END IF;
4526: END IF;
4519: IF l_trans_flow_header_id is null THEN
4520:
4521: IF g_debug_stmt then
4522: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4523: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4524: 'Adj Account from ship to org of PO');
4525: END IF;
4526: END IF;
4527:
4536: l_logical_inv_org_id := PO_SHARED_PROC_PVT.get_logical_inv_org_id(
4537: p_transaction_flow_header_id => l_trans_flow_header_id );
4538:
4539: IF g_debug_stmt then
4540: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4541: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4542: 'Adj Account from logical inv org of start OU');
4543: END IF;
4544: END IF;
4537: p_transaction_flow_header_id => l_trans_flow_header_id );
4538:
4539: IF g_debug_stmt then
4540: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4541: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4542: 'Adj Account from logical inv org of start OU');
4543: END IF;
4544: END IF;
4545:
4598: CLOSE c_rel_shipments;
4599: END IF;
4600:
4601: IF g_debug_stmt then
4602: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4603: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4604: 'Adj Account validity flag: '|| l_account_valid);
4605: END IF;
4606: END IF;
4599: END IF;
4600:
4601: IF g_debug_stmt then
4602: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4603: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
4604: 'Adj Account validity flag: '|| l_account_valid);
4605: END IF;
4606: END IF;
4607:
4608: Return l_account_valid;
4609:
4610: Exception
4611: When Others then
4612: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4613: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
4614: l_module,SQLERRM(SQLCODE));
4615: END IF;
4616:
4609:
4610: Exception
4611: When Others then
4612: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4613: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
4614: l_module,SQLERRM(SQLCODE));
4615: END IF;
4616:
4617: IF (c_std_po_shipments%ISOPEN) THEN
4706:
4707: l_module := g_log_head || l_api_name || '.' || '000' || '.';
4708:
4709: IF g_debug_stmt THEN
4710: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4711: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
4712: 'Inventory Org Open Period Check');
4713: END IF;
4714: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4707: l_module := g_log_head || l_api_name || '.' || '000' || '.';
4708:
4709: IF g_debug_stmt THEN
4710: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4711: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
4712: 'Inventory Org Open Period Check');
4713: END IF;
4714: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4715: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
4710: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4711: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
4712: 'Inventory Org Open Period Check');
4713: END IF;
4714: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4715: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
4716: 'Is price to be changed on Std PO ? : ' || p_std_po_price_change);
4717: END IF;
4718: END IF;
4711: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
4712: 'Inventory Org Open Period Check');
4713: END IF;
4714: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4715: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
4716: 'Is price to be changed on Std PO ? : ' || p_std_po_price_change);
4717: END IF;
4718: END IF;
4719:
4742: EXIT when REL_SHIPMENTS_CSR%NOTFOUND;
4743: END IF;
4744:
4745: IF g_debug_stmt THEN
4746: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4747: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
4748: 'count='||l_count||
4749: ', consigned_flag='||l_consigned_flag||
4750: ', ship_to_org_id='||l_ship_to_organization_id||
4743: END IF;
4744:
4745: IF g_debug_stmt THEN
4746: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4747: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
4748: 'count='||l_count||
4749: ', consigned_flag='||l_consigned_flag||
4750: ', ship_to_org_id='||l_ship_to_organization_id||
4751: ', trans_flow_header_id='||l_trans_flow_header_id);
4765:
4766: l_inv_org_id_period_check := l_ship_to_organization_id;
4767:
4768: IF g_debug_stmt THEN
4769: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4770: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
4771: 'Open Period Check for ship-to-org');
4772: END IF;
4773: END IF;
4766: l_inv_org_id_period_check := l_ship_to_organization_id;
4767:
4768: IF g_debug_stmt THEN
4769: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4770: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
4771: 'Open Period Check for ship-to-org');
4772: END IF;
4773: END IF;
4774:
4779:
4780: l_inv_org_id_period_check := l_logical_inv_org_id;
4781:
4782: IF g_debug_stmt THEN
4783: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4784: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
4785: 'Open Period Check for logical inv org of start OU:'||
4786: l_logical_inv_org_id);
4787: END IF;
4780: l_inv_org_id_period_check := l_logical_inv_org_id;
4781:
4782: IF g_debug_stmt THEN
4783: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4784: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
4785: 'Open Period Check for logical inv org of start OU:'||
4786: l_logical_inv_org_id);
4787: END IF;
4788: END IF;
4805:
4806: l_is_inv_org_period_open := 'N';
4807:
4808: IF g_debug_stmt THEN
4809: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4810: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
4811: 'Result from PO_DATES_S.val_open_period is FALSE');
4812: END IF;
4813: END IF;
4806: l_is_inv_org_period_open := 'N';
4807:
4808: IF g_debug_stmt THEN
4809: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4810: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
4811: 'Result from PO_DATES_S.val_open_period is FALSE');
4812: END IF;
4813: END IF;
4814:
4823: CLOSE REL_SHIPMENTS_CSR;
4824: END IF;
4825:
4826: IF g_debug_stmt THEN
4827: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4828: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
4829: 'Returning: Inventory Org Period Open='||
4830: l_is_inv_org_period_open);
4831: END IF;
4824: END IF;
4825:
4826: IF g_debug_stmt THEN
4827: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
4828: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
4829: 'Returning: Inventory Org Period Open='||
4830: l_is_inv_org_period_open);
4831: END IF;
4832: END IF;
4834: RETURN l_is_inv_org_period_open;
4835:
4836: EXCEPTION
4837: WHEN OTHERS THEN
4838: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4839: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module, SQLERRM(SQLCODE));
4840: END IF;
4841:
4842: IF (STD_PO_SHIPMENTS_CSR%ISOPEN) THEN
4835:
4836: EXCEPTION
4837: WHEN OTHERS THEN
4838: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4839: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, l_module, SQLERRM(SQLCODE));
4840: END IF;
4841:
4842: IF (STD_PO_SHIPMENTS_CSR%ISOPEN) THEN
4843: CLOSE STD_PO_SHIPMENTS_CSR;