[Home] [Help]
361:
362: -- Bug 2875346 start.
363: --< Bug 3210331 Start >
364: -- Debugging booleans used to bypass logging when turned off
365: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
366: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
367: --< Bug 3210331 End >
368:
369: g_calculate_tax_flag VARCHAR2(1); --
362: -- Bug 2875346 start.
363: --< Bug 3210331 Start >
364: -- Debugging booleans used to bypass logging when turned off
365: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
366: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
367: --< Bug 3210331 End >
368:
369: g_calculate_tax_flag VARCHAR2(1); --
370:
558: l_progress VARCHAR2(3) := '000'; --< Bug 3210331 >
559: l_api_name VARCHAR2(30) := 'create_documents(wrapper1)'; --< Bug 3210331 >
560: BEGIN
561: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
562: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
563: END IF;
564:
565: create_documents(x_batch_id => x_batch_id,
566: x_document_id => x_document_id,
572: p_group_shipments => p_group_shipments --
573: );
574:
575: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
576: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
577: p_token => l_progress,
578: p_message => 'error code: '||x_errorcode);
579: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
580: END IF;
575: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
576: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
577: p_token => l_progress,
578: p_message => 'error code: '||x_errorcode);
579: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
580: END IF;
581:
582: EXCEPTION
583: WHEN OTHERS THEN
581:
582: EXCEPTION
583: WHEN OTHERS THEN
584: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
585: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
586: p_progress => l_progress);
587: END IF;
588: po_message_s.sql_error('CREATE_DOCUMENTS wrapper',l_progress,sqlcode);
589: raise;
628: l_progress VARCHAR2(3) := '000'; --< Bug 3210331 >
629:
630: BEGIN
631: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
632: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
633: END IF;
634:
635: create_documents (p_api_version => 1.0,
636: x_return_status => l_return_status,
659: x_errorcode := 3;
660: END IF;
661:
662: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
663: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
664: p_token => l_progress,
665: p_message => 'error code: '||x_errorcode);
666: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
667: END IF;
662: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
663: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
664: p_token => l_progress,
665: p_message => 'error code: '||x_errorcode);
666: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
667: END IF;
668:
669: EXCEPTION
670: WHEN OTHERS THEN
668:
669: EXCEPTION
670: WHEN OTHERS THEN
671: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
672: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
673: p_progress => l_progress);
674: END IF;
675: PO_MESSAGE_S.sql_error (routine => 'CREATE_DOCUMENTS',
676: location => l_progress,
707:
708: BEGIN
709: l_progress := '010';
710: IF g_debug_stmt THEN
711: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
712: END IF;
713:
714: /*CLM Phase 2Autocreate grouping
715: Initialising variable*/
747:
748: /*CLM Phase 2 Ends*/
749:
750: IF g_debug_stmt THEN
751: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
752: p_token => l_progress,
753: p_message => 'x_draft_id : ' || x_draft_id
754: ||' x_document_number : '||x_document_number
755: ||' x_return_status : '|| x_return_status
760: END IF;
761:
762:
763: IF g_debug_stmt THEN
764: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
765: END IF;
766:
767: EXCEPTION
768: WHEN OTHERS THEN
766:
767: EXCEPTION
768: WHEN OTHERS THEN
769: IF g_debug_unexp THEN
770: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
771: p_progress => l_progress);
772: END IF;
773: PO_MESSAGE_S.sql_error (routine => 'CREATE_DOCUMENTS_CLM',
774: location => l_progress,
890: END IF;
891:
892: l_progress := '010';
893: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
894: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
895: END IF;
896:
897: /* For now a batch has only one header, so get the document header id */
898: SELECT min(phi.interface_header_id)
907: WHERE phi.interface_header_id=x_interface_header_id;
908:
909: l_progress := '015';
910: IF g_debug_stmt THEN
911: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
912: p_token => l_progress,
913: p_message => 'Before checking for CLM Flow : Doc Style Id : '||l_style_id);
914: END IF;
915:
927: WHERE pdsh.style_id=l_style_id;
928:
929: l_progress := '016';
930: IF g_debug_stmt THEN
931: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
932: p_token => l_progress,
933: p_message => 'Inside checking for CLM Flow : l_clm_enabled_flag :'||l_clm_enabled_flag);
934:
935: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
931: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
932: p_token => l_progress,
933: p_message => 'Inside checking for CLM Flow : l_clm_enabled_flag :'||l_clm_enabled_flag);
934:
935: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
936: p_token => l_progress,
937: p_message => 'Inside checking for CLM Flow : l_change_process_type :'||l_change_process_type);
938: END IF;
939:
943: l_is_clm_flow := 'Y';
944:
945: l_progress := '017';
946: IF g_debug_stmt THEN
947: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
948: p_token => l_progress,
949: p_message => 'Is CLM Flow :'||l_is_clm_flow);
950: END IF;
951: END IF;
974: l_org_context_changed := PO_AUTOCREATE_PARAMS.g_org_context_changed;
975:
976: l_progress := '018';
977: IF g_debug_stmt THEN
978: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
979: p_token => l_progress,
980: p_message => 'After create_po in CLM flow : Number of lines processed : '||x_number_lines);
981: END IF;
982:
1036:
1037: l_progress:='030';
1038:
1039: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1040: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1041: p_token => l_progress,
1042: p_message => 'Before select min interface header for batch_id: '||p_batch_id);
1043: END IF;
1044:
1070: l_progress := '050';
1071: --
1072: --Check for the uniqueness of the document number if manual numbering.
1073: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1074: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1075: p_token => l_progress,
1076: p_message => 'Document type is :'||g_document_type);
1077: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1078: p_token => l_progress,
1073: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1074: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1075: p_token => l_progress,
1076: p_message => 'Document type is :'||g_document_type);
1077: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1078: p_token => l_progress,
1079: p_message => 'Sourcing to FPH-1 starts');
1080: END IF;
1081:
1117: l_progress := '070';
1118: --bug#2729465, with drawn req lines are deleted from po_requisition_lines
1119: --table. Hence require a separate update.
1120: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1121: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1122: p_token => l_progress,
1123: p_message => 'Sourcing to PO FPH-1: before the update for withdrawn reqs');
1124: END IF;
1125:
1134: end if;
1135:
1136: l_progress := '080';
1137: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1138: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1139: p_token => l_progress,
1140: p_message => 'Sourcing to FPH-1 Ends');
1141: END IF;
1142: --
1167: IF(g_document_type in ('PO','PA')) THEN
1168:
1169: l_progress := '100';
1170: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1171: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1172: p_token => l_progress,
1173: p_message => 'Before create_po:');
1174: END IF;
1175:
1184: ELSE
1185:
1186: l_progress := '110';
1187: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1188: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1189: p_token => l_progress,
1190: p_message => 'Before create_rfq:');
1191: END IF;
1192:
1202:
1203: l_progress:='120';
1204: --
1205: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1206: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1207: p_token => l_progress,
1208: p_message => 'Sourcing to FPH -2 starts');
1209: END IF;
1210: END IF;
1237:
1238: exception
1239: when others then
1240: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
1241: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
1242: p_progress => l_progress);
1243: END IF;
1244: wrapup(x_interface_header_id);
1245: --
1285: --
1286:
1287: l_progress:= '150';
1288: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1289: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1290: p_token => l_progress,
1291: p_message => 'Sourcing to FPH-2 Ends');
1292: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1293: p_token => l_progress,
1288: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1289: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1290: p_token => l_progress,
1291: p_message => 'Sourcing to FPH-2 Ends');
1292: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1293: p_token => l_progress,
1294: p_message => 'Create_documents: number of records processed: '||x_number_lines);
1295: END IF;
1296:
1342: END IF;
1343: --
1344:
1345: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1346: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
1347: END IF;
1348:
1349: EXCEPTION
1350:
1349: EXCEPTION
1350:
1351: WHEN OTHERS THEN
1352: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
1353: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
1354: p_progress => l_progress);
1355: END IF;
1356: wrapup(x_interface_header_id);
1357:
1382: p_encoded => 'F');
1383: --
1384:
1385: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1386: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
1387: END IF;
1388:
1389: END create_documents;
1390:
1489:
1490:
1491: BEGIN
1492: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1493: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
1494: END IF;
1495: --
1496: SAVEPOINT TAX_CALCULATION_ERROR;
1497:
1524: -- requisition.
1525:
1526: l_progress := '010';
1527: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1528: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1529: p_token => l_progress,
1530: p_message => 'Create PO: Before setup interface table');
1531: END IF;
1532:
1542: -- determine which interface lines and shipments should
1543: -- be grouped.
1544: l_progress := '030';
1545: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1546: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1547: p_token => l_progress,
1548: p_message => 'Create PO: Before Group interface lines');
1549: END IF;
1550:
1560: --
1561:
1562: l_progress := '040';
1563: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1564: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1565: p_token => l_progress,
1566: p_message => 'Create PO: After Group interface lines');
1567: END IF;
1568:
1575: BEGIN
1576:
1577: l_progress := '050';
1578: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1579: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1580: p_token => l_progress,
1581: p_message => 'Create po: Interface header id is '|| x_interface_header_id);
1582: END IF;
1583:
1587: where interface_header_id = x_interface_header_id
1588: and line_num is not null;
1589:
1590: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1591: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1592: p_token => l_progress,
1593: p_message => 'Create PO : Line found in po_lines_interfaces');
1594: END IF;
1595:
1595:
1596: EXCEPTION
1597: WHEN OTHERS THEN
1598: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
1599: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
1600: p_progress => l_progress);
1601: END IF;
1602: wrapup(x_interface_header_id);
1603: RAISE;
1883: */
1884:
1885: l_progress:='110';
1886: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1887: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1888: p_token => l_progress,
1889: p_message => 'Update PO_Headers Doc subtype is Std or planned');
1890: END IF;
1891: --Bug 2295672 jbalakri : added 'REJECTED' case in decode statement.
1922: ELSIF (interface.document_subtype = 'RELEASE') THEN
1923:
1924: l_progress:='120';
1925: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1926: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1927: p_token => l_progress,
1928: p_message => 'Update PO_Headers Doc subtype is Release');
1929: END IF;
1930:
1963: Added the revision_num at the end of the decode statement.*/
1964:
1965: l_progress:='150';
1966: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1967: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1968: p_token => l_progress,
1969: p_message => 'Update PO_Releases Doc subtype is Release');
1970: END IF;
1971: /*bug 12674183 While trying to add a req line to Blanket Release in Incomplete status
2083: EXCEPTION
2084:
2085: WHEN NO_DATA_FOUND then
2086: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2087: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2088: p_token => l_progress,
2089: p_message => 'NO_DATA_FOUND: '||SQLERRM);
2090: END IF;
2091: x_is_valid:='N';
2092: x_valid_ship_to := NULL;
2093:
2094: WHEN OTHERS then
2095: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
2096: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
2097: p_progress => l_progress);
2098: END IF;
2099: raise;
2100: End;
2110: EXCEPTION
2111:
2112: WHEN NO_DATA_FOUND then
2113: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2114: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2115: p_token => l_progress,
2116: p_message => 'NO_DATA_FOUND: '||SQLERRM);
2117: END IF;
2118: x_is_valid:='N';
2119: x_valid_bill_to := NULL;
2120:
2121: WHEN OTHERS then
2122: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
2123: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
2124: p_progress => l_progress);
2125: END IF;
2126: raise;
2127: End;
2135: --
2136:
2137: l_progress:= '210';
2138: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2139: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2140: p_token => l_progress,
2141: p_message => 'Before Insert into PO_headers');
2142: END IF;
2143:
2288: );
2289: EXCEPTION
2290: WHEN DUP_VAL_ON_INDEX THEN
2291: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2292: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2293: p_token => l_progress,
2294: p_message => 'DUP_VAL_ON_INDEX: '||SQLERRM);
2295: END IF;
2296:
2303: END;
2304:
2305: l_progress:= '220';
2306: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2307: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2308: p_token => l_progress,
2309: p_message => 'After Insert into PO_headers');
2310: END IF;
2311:
2339:
2340: END IF;
2341:
2342: IF g_debug_stmt THEN
2343: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2344: p_token => l_progress,
2345: p_message => 'After Default of Suppler Notification Method');
2346: END IF;
2347: --Bug#13542989: End : Get Default document transimission information
2378: x_row_id => l_org_row_id);
2379: --
2380:
2381: IF g_debug_stmt THEN
2382: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2383: p_token => l_progress,
2384: p_message => 'After inserting into Org Assignments');
2385: END IF;
2386: END IF;
2444: null,
2445: null);
2446:
2447: IF g_debug_stmt THEN
2448: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2449: p_token => l_progress,
2450: p_message => 'After copying attachments from Sourcing');
2451: END IF;
2452: end if; --attachments for header
2459: calculate_local(g_document_subtype, 'HEADER', interface.po_header_id);
2460: end if;
2461:
2462: IF g_debug_stmt THEN
2463: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2464: p_token => l_progress,
2465: p_message => 'After calculate_local');
2466: END IF;
2467:
2493: l_document_creation_method := 'CREATE_CONSUMPTION';
2494: END IF;
2495:
2496: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2497: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2498: p_token => l_progress,
2499: p_message => 'Before insert into PO_RELEASES');
2500: END IF;
2501:
2554: );
2555:
2556: l_progress:='290';
2557: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2558: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2559: p_token => l_progress,
2560: p_message => 'After insert into PO_RELEASES');
2561: END IF;
2562: -- Bug 882050: Release header level global attribute
2574: );
2575: --
2576:
2577: IF g_debug_stmt THEN
2578: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2579: p_token => l_progress,
2580: p_message => 'After create_line');
2581: END IF;
2582:
2593: );
2594: --
2595:
2596: IF g_debug_stmt THEN
2597: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2598: p_token => l_progress,
2599: p_message => 'After create_line (inside complex works loop)');
2600: END IF;
2601:
2617: -- Since we have the po_line_id available on po_attr_values_interface and tlp_interface
2618: -- we can move all records from interface to txn tables for all lines of a given blanket
2619: IF ((g_interface_source_code ='SOURCING') AND (g_document_subtype = 'BLANKET')) THEN
2620: IF g_debug_stmt THEN
2621: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2622: p_token => l_progress,
2623: p_message => 'Calling PO_ATTRIBUTE_VALUES_PVT.transfer_intf_item_attribs');
2624: END IF;
2625: PO_ATTRIBUTE_VALUES_PVT.transfer_intf_item_attribs(x_interface_header_id);
2627: --
2628:
2629:
2630: IF g_debug_stmt THEN
2631: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2632: p_token => l_progress,
2633: p_message => 'After PO_ATTRIBUTE_VALUES_PVT.transfer_intf_item_attribs');
2634: END IF;
2635:
2663: p_org_id => g_purchasing_ou_id
2664: );
2665:
2666: IF g_debug_stmt THEN
2667: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2668: p_token => l_progress,
2669: p_message => 'new po num = ' || x_document_num);
2670: END IF;
2671:
2687: l_contract_doc_type:= PO_CONTERMS_UTL_GRP.GET_PO_CONTRACT_DOCTYPE(
2688: p_sub_doc_type=>g_document_subtype);
2689:
2690: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2691: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2692: p_token => l_progress,
2693: p_message => 'Contracts template attached');
2694: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2695: p_progress => l_progress,
2690: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2691: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2692: p_token => l_progress,
2693: p_message => 'Contracts template attached');
2694: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2695: p_progress => l_progress,
2696: p_name => 'x_document_id',
2697: p_value => x_document_id);
2698: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2694: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2695: p_progress => l_progress,
2696: p_name => 'x_document_id',
2697: p_value => x_document_id);
2698: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2699: p_progress => l_progress,
2700: p_name => 'x_document_num',
2701: p_value => x_document_num);
2702: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2698: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2699: p_progress => l_progress,
2700: p_name => 'x_document_num',
2701: p_value => x_document_num);
2702: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2703: p_progress => l_progress,
2704: p_name => 'l_contract_doc_type',
2705: p_value => l_contract_doc_type);
2706: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2702: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2703: p_progress => l_progress,
2704: p_name => 'l_contract_doc_type',
2705: p_value => l_contract_doc_type);
2706: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2707: p_progress => l_progress,
2708: p_name => 'interface.bid_number',
2709: p_value => interface.bid_number);
2710: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2706: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2707: p_progress => l_progress,
2708: p_name => 'interface.bid_number',
2709: p_value => interface.bid_number);
2710: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2711: p_progress => l_progress,
2712: p_name => 'p_sourcing_k_doc_type',
2713: p_value => p_sourcing_k_doc_type);
2714: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2710: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2711: p_progress => l_progress,
2712: p_name => 'p_sourcing_k_doc_type',
2713: p_value => p_sourcing_k_doc_type);
2714: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2715: p_token => l_progress,
2716: p_message => 'before call okc_terms_copy_grp.copy_doc');
2717: END IF;
2718:
2738: );
2739:
2740: l_progress:='350';
2741: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2742: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2743: p_token => l_progress,
2744: p_message => 'after call okc_terms_copy_grp.copy_doc.Return status:'||l_return_status);
2745: END IF;
2746:
2798: exit;
2799: exception
2800: when DUP_VAL_ON_INDEX then
2801: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2802: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2803: p_token => l_progress,
2804: p_message => 'DUP_VAL_ON_INDEX: '||SQLERRM);
2805: END IF;
2806: /* Bug 14065497: Comment the RAISE statement so that the loop continues when the DUP_VAL_ON_INDEX exception occurs */
2806: /* Bug 14065497: Comment the RAISE statement so that the loop continues when the DUP_VAL_ON_INDEX exception occurs */
2807: -- RAISE;
2808: when others then
2809: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
2810: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
2811: p_progress => l_progress);
2812: END IF;
2813: RAISE;
2814: end;
2925: end if;
2926: end if;
2927:
2928: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2929: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
2930: END IF;
2931: EXCEPTION
2932: --
2933: WHEN l_Contracts_call_exception then
2932: --
2933: WHEN l_Contracts_call_exception then
2934: -- put error messages in log
2935: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2936: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2937: p_token => l_progress,
2938: p_message => 'Create_po: Inside l_contracts_call_exception');
2939: END IF;
2940: Fnd_message.set_name('PO','PO_API_ERROR');
2946:
2947: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2948: l_msg_count := FND_MSG_PUB.Count_Msg;
2949: FOR i IN 1..l_msg_count LOOP
2950: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2951: p_token => l_progress||'_EXCEPTION_'||i,
2952: p_message => FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F'));
2953: END LOOP;
2954: END IF;
2962: Raise exception regardless of error. This will make debuging easier */
2963: WHEN OTHERS THEN
2964: -- wrapup(x_interface_header_id);
2965: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
2966: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
2967: p_progress => l_progress);
2968: END IF;
2969: po_message_s.sql_error('CREATE_PO',l_progress,sqlcode);
2970: if interface_cursor%isopen then
3163:
3164: BEGIN
3165: l_outsourced_assembly :=2; --
3166: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3167: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
3168: END IF;
3169:
3170: --
3171: -- Determine the Requesting OU from the current requisition line.
3181: WHEN OTHERS
3182: THEN
3183: IF g_debug_unexp
3184: THEN
3185: PO_DEBUG.debug_exc(
3186: p_log_head => g_log_head||l_api_name,
3187: p_progress => l_progress
3188: );
3189: END IF;
3297:
3298: EXCEPTION
3299: WHEN NO_DATA_FOUND then
3300: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3301: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3302: p_token => l_progress,
3303: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3304: END IF;
3305: END;
3382: exception
3383: when others
3384: then
3385: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3386: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3387: p_token => l_progress,
3388: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
3389: END IF;
3390: x_process_org := 'N';
3405: EXCEPTION
3406: WHEN OTHERS
3407: THEN
3408: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3409: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3410: p_token => l_progress,
3411: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
3412: END IF;
3413: x_item_number := NULL;
3473: --bug#3612701
3474: EXCEPTION
3475: WHEN OTHERS THEN
3476: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3477: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3478: p_progress => l_progress);
3479: END IF;
3480: po_message_s.sql_error('CREATE_LINE',l_progress,sqlcode);
3481: wrapup(interface.interface_header_id);
3483: END;
3484:
3485: l_progress := '120';
3486: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3487: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3488: p_token => l_progress,
3489: p_message => 'req uom: '||interface.unit_meas_lookup_code||' uom: '||l_ga_uom
3490: ||'document type: ' || l_from_type_lookup_code);
3491: END IF;
3505: x_quantity := round(x_quantity * l_conversion_rate , 15);
3506: x_unit_of_measure := l_ga_uom;
3507: ELSE -- UOM Convert is No, so do not create this line.
3508: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3509: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3510: p_token => l_progress,
3511: p_message => 'Create_line: Requisition UOM is different from GA UOM, and the Convert UOM profile is No. This PO line will not be created.');
3512: END IF;
3513: RETURN;
3544: /* If item is not null get list price and taxable flag */
3545:
3546: l_progress:='140';
3547: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3548: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3549: p_token => l_progress,
3550: p_message => 'Create_line: PO line does not exist');
3551: END IF;
3552:
3590:
3591: exception
3592: when no_data_found then
3593: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3594: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3595: p_token => l_progress,
3596: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3597: END IF;
3598: WHEN OTHERS THEN
3596: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3597: END IF;
3598: WHEN OTHERS THEN
3599: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3600: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3601: p_progress => l_progress);
3602: END IF;
3603: wrapup(x_interface_header_id);
3604: po_message_s.sql_error('Get Item/Org defaults',l_progress,sqlcode);
3640:
3641: exception
3642: when no_data_found then
3643: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3644: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3645: p_token => l_progress,
3646: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3647: END IF;
3648: WHEN OTHERS THEN
3646: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3647: END IF;
3648: WHEN OTHERS THEN
3649: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3650: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3651: p_progress => l_progress);
3652: END IF;
3653: wrapup(x_interface_header_id);
3654: po_message_s.sql_error('Get Item/Master org defaults',l_progress,sqlcode);
3684: WHERE line_type_id = interface.line_type_id;
3685: exception
3686: when no_data_found then
3687: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3688: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3689: p_token => l_progress,
3690: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3691: END IF;
3692: WHEN OTHERS THEN
3690: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3691: END IF;
3692: WHEN OTHERS THEN
3693: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3694: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3695: p_progress => l_progress);
3696: END IF;
3697: wrapup(x_interface_header_id);
3698: po_message_s.sql_error('Get Line type default',l_progress,sqlcode);
3717:
3718: Exception
3719: when no_data_found then
3720: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3721: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3722: p_token => l_progress,
3723: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3724: END IF;
3725: WHEN OTHERS THEN
3723: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3724: END IF;
3725: WHEN OTHERS THEN
3726: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3727: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3728: p_progress => l_progress);
3729: END IF;
3730: wrapup(x_interface_header_id);
3731: po_message_s.sql_error('Get vendor default',l_progress,sqlcode);
3756:
3757: Exception
3758: when no_data_found then
3759: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3760: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3761: p_token => l_progress,
3762: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3763: END IF;
3764: WHEN OTHERS THEN
3762: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3763: END IF;
3764: WHEN OTHERS THEN
3765: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3766: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3767: p_progress => l_progress);
3768: END IF;
3769: wrapup(x_interface_header_id);
3770: po_message_s.sql_error('Get po system default',l_progress,sqlcode);
3830: -- Bug #2102149
3831:
3832: l_progress := '210';
3833: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3834: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3835: p_token => l_progress,
3836: p_message => 'Create_line: line taxable_flag: '||item.taxable_flag);
3837: END IF;
3838:
3915: AND TASK_ID IS NOT NULL;
3916: EXCEPTION
3917: WHEN NO_DATA_FOUND THEN
3918: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3919: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3920: p_token => l_progress,
3921: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3922: END IF;
3923: WHEN OTHERS THEN
3921: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3922: END IF;
3923: WHEN OTHERS THEN
3924: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3925: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3926: p_progress => l_progress);
3927: END IF;
3928: RAISE;
3929: END;
3939: AND PROJECT_ID IS NOT NULL;
3940: EXCEPTION
3941: WHEN OTHERS THEN
3942: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3943: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3944: p_progress => l_progress);
3945: END IF;
3946: RAISE;
3947: END;
3959: WHERE DISTRIBUTION_ID = x_req_dist_id;
3960: EXCEPTION
3961: WHEN NO_DATA_FOUND THEN
3962: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3963: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3964: p_token => l_progress,
3965: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3966: END IF;
3967: WHEN OTHERS THEN
3965: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3966: END IF;
3967: WHEN OTHERS THEN
3968: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3969: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3970: p_progress => l_progress);
3971: END IF;
3972: RAISE;
3973: END;
3996: and organization_id =params.inventory_organization_id;
3997: exception
3998: when no_data_found then
3999: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4000: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4001: p_token => l_progress,
4002: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4003: END IF;
4004: when others then
4002: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4003: END IF;
4004: when others then
4005: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
4006: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
4007: p_progress => l_progress);
4008: END IF;
4009: po_message_s.sql_error('Get un number,hazard class defaults'
4010: ,l_progress, sqlcode);
4020: where line_type_id= interface.line_type_id;
4021: exception
4022: when others then
4023: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
4024: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
4025: p_progress => l_progress);
4026: END IF;
4027: po_message_s.sql_error('Get UOM for amount based lines- defaults', l_progress, sqlcode);
4028: raise;
4179: --
4180:
4181: l_progress := '370';
4182: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4183: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4184: p_token => l_progress,
4185: p_message => 'Create_line: Line id: '||x_po_line_id);
4186: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4187: p_token => l_progress,
4182: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4183: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4184: p_token => l_progress,
4185: p_message => 'Create_line: Line id: '||x_po_line_id);
4186: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4187: p_token => l_progress,
4188: p_message => 'Create_line: Header_id : '||interface.po_header_id);
4189: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4190: p_token => l_progress,
4185: p_message => 'Create_line: Line id: '||x_po_line_id);
4186: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4187: p_token => l_progress,
4188: p_message => 'Create_line: Header_id : '||interface.po_header_id);
4189: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4190: p_token => l_progress,
4191: p_message => 'Create_line: Line number: '||interface.line_num);
4192: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4193: p_token => l_progress,
4188: p_message => 'Create_line: Header_id : '||interface.po_header_id);
4189: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4190: p_token => l_progress,
4191: p_message => 'Create_line: Line number: '||interface.line_num);
4192: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4193: p_token => l_progress,
4194: p_message => 'Create_line: TRX RSON CODE : '||interface.transaction_reason_code);
4195: END IF;
4196:
4248: END IF;
4249: EXCEPTION
4250: WHEN others THEN
4251: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4252: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4253: p_token => l_progress,
4254: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
4255: END IF;
4256: l_negotiated_by_preparer_flag:=NULL;
4261:
4262: -- Bug 9324837
4263: -- Added debug code.
4264: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4265: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4266: p_token => l_progress,
4267: p_message => 'g_document_subtype: '||g_document_subtype);
4268: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4269: p_token => l_progress,
4264: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4265: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4266: p_token => l_progress,
4267: p_message => 'g_document_subtype: '||g_document_subtype);
4268: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4269: p_token => l_progress,
4270: p_message => 'interface.item_id : '||interface.item_id);
4271: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4272: p_token => l_progress,
4267: p_message => 'g_document_subtype: '||g_document_subtype);
4268: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4269: p_token => l_progress,
4270: p_message => 'interface.item_id : '||interface.item_id);
4271: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4272: p_token => l_progress,
4273: p_message => 'nterface.destination_organization_id: '||interface.destination_organization_id);
4274: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4275: p_token => l_progress,
4270: p_message => 'interface.item_id : '||interface.item_id);
4271: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4272: p_token => l_progress,
4273: p_message => 'nterface.destination_organization_id: '||interface.destination_organization_id);
4274: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4275: p_token => l_progress,
4276: p_message => 'params.inventory_organization_id : '||params.inventory_organization_id);
4277: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4278: p_token => l_progress,
4273: p_message => 'nterface.destination_organization_id: '||interface.destination_organization_id);
4274: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4275: p_token => l_progress,
4276: p_message => 'params.inventory_organization_id : '||params.inventory_organization_id);
4277: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4278: p_token => l_progress,
4279: p_message => 'item.secondary_uom_code : '||item.secondary_uom_code);
4280: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4281: p_token => l_progress,
4276: p_message => 'params.inventory_organization_id : '||params.inventory_organization_id);
4277: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4278: p_token => l_progress,
4279: p_message => 'item.secondary_uom_code : '||item.secondary_uom_code);
4280: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4281: p_token => l_progress,
4282: p_message => 'interface.secondary_quantity : '||interface.secondary_quantity);
4283: END IF;
4284:
4339:
4340: -- Bug 9324837
4341: -- Added debug code.
4342: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4343: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4344: p_token => l_progress,
4345: p_message => 'x_secondary_unit_def : '||x_secondary_unit_def);
4346: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4347: p_token => l_progress,
4342: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4343: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4344: p_token => l_progress,
4345: p_message => 'x_secondary_unit_def : '||x_secondary_unit_def);
4346: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4347: p_token => l_progress,
4348: p_message => 'x_secondary_quantity_def : '||x_secondary_quantity_def);
4349: END IF;
4350:
4608:
4609: --
4610: IF (g_document_subtype = 'BLANKET' AND g_interface_source_code = 'SOURCING') THEN
4611:
4612: IF g_debug_stmt THEN PO_DEBUG.debug_stmt(d_mod,l_progress,'Storing values of PO_LINE_IDs for the Attribute interface records');END IF;
4613:
4614: l_interface_header_id_tbl(x_po_line_id) := interface.interface_header_id;
4615: l_interface_line_id_tbl(x_po_line_id) := interface.interface_line_id;
4616: l_po_line_id_tbl(x_po_line_id) := x_po_line_id;
4652: ELSE /* If line exists */
4653:
4654: l_progress := '450';
4655: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4656: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4657: p_token => l_progress,
4658: p_message => 'Line does exist: '||x_po_line_id);
4659: END IF;
4660:
4696:
4697: exception
4698: when no_data_found then
4699: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4700: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4701: p_token => l_progress,
4702: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4703: END IF;
4704: WHEN OTHERS THEN
4702: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4703: END IF;
4704: WHEN OTHERS THEN
4705: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
4706: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
4707: p_progress => l_progress);
4708: END IF;
4709: wrapup(x_interface_header_id);
4710: po_message_s.sql_error('Get Item/Org defaults',l_progress,sqlcode);
4730: AND msi.organization_id = params.inventory_organization_id;
4731: exception
4732: when no_data_found then
4733: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4734: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4735: p_token => l_progress,
4736: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4737: END IF;
4738: WHEN OTHERS THEN
4736: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4737: END IF;
4738: WHEN OTHERS THEN
4739: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
4740: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
4741: p_progress => l_progress);
4742: END IF;
4743: wrapup(x_interface_header_id);
4744: po_message_s.sql_error('Get Item/Master org defaults',l_progress,sqlcode);
4767: WHERE line_type_id = interface.line_type_id;
4768: exception
4769: when no_data_found then
4770: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4771: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4772: p_token => l_progress,
4773: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4774: END IF;
4775: WHEN OTHERS THEN
4773: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4774: END IF;
4775: WHEN OTHERS THEN
4776: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
4777: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
4778: p_progress => l_progress);
4779: END IF;
4780: wrapup(x_interface_header_id);
4781: po_message_s.sql_error('Get Line type default',l_progress,sqlcode);
4800:
4801: Exception
4802: when no_data_found then
4803: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4804: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4805: p_token => l_progress,
4806: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4807: END IF;
4808: WHEN OTHERS THEN
4806: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4807: END IF;
4808: WHEN OTHERS THEN
4809: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
4810: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
4811: p_progress => l_progress);
4812: END IF;
4813: wrapup(x_interface_header_id);
4814: po_message_s.sql_error('Get vendor default',l_progress,sqlcode);
4839:
4840: Exception
4841: when no_data_found then
4842: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4843: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4844: p_token => l_progress,
4845: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4846: END IF;
4847: WHEN OTHERS THEN
4845: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4846: END IF;
4847: WHEN OTHERS THEN
4848: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
4849: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
4850: p_progress => l_progress);
4851: END IF;
4852: wrapup(x_interface_header_id);
4853: po_message_s.sql_error('Get po system default',l_progress,sqlcode);
4888: IF (g_document_type = 'PO') THEN
4889:
4890: l_progress:='520';
4891: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4892: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4893: p_token => l_progress,
4894: p_message => 'Create_line: Po line exists');
4895: END IF;
4896:
4939: where pl.po_line_id = x_po_line_id;
4940: exception
4941: when others then
4942: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4943: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4944: p_token => l_progress,
4945: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
4946: END IF;
4947: end;
4967: and poll.shipment_num = l_min_shipment_num;
4968: EXCEPTION
4969: when others then
4970: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4971: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4972: p_token => l_progress,
4973: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
4974: END IF;
4975: END;
5079: -- Bug 9324837
5080: -- Added debug.
5081: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5082:
5083: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5084: p_token => l_progress,
5085: p_message => 'interface.secondary_quantity' || interface.secondary_quantity);
5086: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5087: p_token => l_progress,
5082:
5083: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5084: p_token => l_progress,
5085: p_message => 'interface.secondary_quantity' || interface.secondary_quantity);
5086: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5087: p_token => l_progress,
5088: p_message => ' x_quantity' || x_quantity);
5089: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5090: p_token => l_progress,
5085: p_message => 'interface.secondary_quantity' || interface.secondary_quantity);
5086: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5087: p_token => l_progress,
5088: p_message => ' x_quantity' || x_quantity);
5089: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5090: p_token => l_progress,
5091: p_message => 'x_secondary_quantity_def' || x_secondary_quantity_def);
5092: END IF;
5093:
5148: l_progress := '600';
5149:
5150: l_progress := '610';
5151: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5152: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5153: p_token => l_progress,
5154: p_message => 'Before going to create shipments');
5155: END IF;
5156:
5393:
5394: l_progress := '700';
5395: --
5396: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5397: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5398: p_token => l_progress,
5399: p_message => 'Sourcing to FPH-3 starts');
5400: END IF;
5401:
5435: end if;
5436:
5437: l_progress := '730';
5438: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5439: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5440: p_token => l_progress,
5441: p_message => 'Sourcing to FPH-3 Ends');
5442: END IF;
5443: --
5454:
5455: l_progress := '740';
5456:
5457: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5458: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5459: p_token => l_progress,
5460: p_message => 'Before selecting one-time attachment');
5461: END IF;
5462:
5487: WHEN NO_DATA_FOUND THEN
5488: -- If cannot locate one-time loc attchmnt, do nothing. This
5489: -- supports original FPH behavior.
5490: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5491: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5492: p_token => l_progress,
5493: p_message => 'One-time loc attachment missing iP prefix, so do not try to move');
5494: END IF;
5495: END;
5541:
5542: l_progress:='760';
5543:
5544: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5545: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5546: p_token => l_progress,
5547: p_message => 'Create_line: Before update of po_requisition_lines');
5548: END IF;
5549:
5571: l_progress:='790';
5572: g_number_records_processed := g_number_records_processed + 1;
5573:
5574: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5575: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5576: p_token => l_progress,
5577: p_message => 'num records processed: '||g_number_records_processed);
5578: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
5579: END IF;
5574: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5575: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5576: p_token => l_progress,
5577: p_message => 'num records processed: '||g_number_records_processed);
5578: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
5579: END IF;
5580:
5581: --
5582: l_progress:='800';
5586: -- po_attr_values_interface and po_attr_values_interface_tlp
5587: IF (g_document_subtype = 'BLANKET' AND g_interface_source_code = 'SOURCING') THEN
5588: l_progress:='810';
5589:
5590: IF g_debug_stmt THEN PO_DEBUG.debug_stmt(d_mod,l_progress,'Updating PO_LINE_IDs in attribute interface tables: '||l_po_line_id_tbl.COUNT);END IF;
5591:
5592: --SQL What: Update the PO_LINE_ID on PO_ATTR_VALUES_INTERFACE table
5593: --SQL Why : To facilitate bulk update of attributes, later in the flow
5594: --SQL Join: interface_header_id, interface_line_id
5600: inventory_item_id = nvl(inventory_item_id, g_ATTR_VALUES_NULL_ID)
5601: WHERE po_attr_values_interface.interface_header_id = l_interface_header_id_tbl(i)
5602: AND po_attr_values_interface.interface_line_id = l_interface_line_id_tbl(i);
5603:
5604: IF g_debug_stmt THEN PO_DEBUG.debug_stmt(d_mod,l_progress,'Number of PO_ATTR_VALUES_INTERFACE rows updated='||SQL%rowcount);END IF;
5605:
5606: l_progress:='820';
5607: --SQL What: Update the PO_LINE_ID on PO_ATTR_VALUES_TLP_INTERFACE table
5608: --SQL Why : To facilitate bulk update of attributes, later in the flow
5615: inventory_item_id = nvl(inventory_item_id, g_ATTR_VALUES_NULL_ID)
5616: WHERE po_attr_values_tlp_interface.interface_header_id = l_interface_header_id_tbl(i)
5617: AND po_attr_values_tlp_interface.interface_line_id = l_interface_line_id_tbl(i);
5618:
5619: IF g_debug_stmt THEN PO_DEBUG.debug_stmt(d_mod,l_progress,'Number of PO_ATTR_VALUES_TLP_INTERFACE rows updated='||SQL%rowcount);END IF;
5620: END IF;
5621: --
5622:
5623: IF g_debug_stmt THEN PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name); END IF;
5619: IF g_debug_stmt THEN PO_DEBUG.debug_stmt(d_mod,l_progress,'Number of PO_ATTR_VALUES_TLP_INTERFACE rows updated='||SQL%rowcount);END IF;
5620: END IF;
5621: --
5622:
5623: IF g_debug_stmt THEN PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name); END IF;
5624: EXCEPTION
5625: WHEN NO_DATA_FOUND THEN
5626: IF (X_match_blanket_line = 'N') THEN
5627:
5625: WHEN NO_DATA_FOUND THEN
5626: IF (X_match_blanket_line = 'N') THEN
5627:
5628: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5629: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5630: p_token => l_progress,
5631: p_message => 'Create_line: Inside No data found : Match blanket line is N');
5632: END IF;
5633: null;
5633: null;
5634: ELSE
5635:
5636: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5637: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5638: p_token => l_progress,
5639: p_message => 'Create_line : Inside No data found : Match blanket line is not N');
5640: END IF;
5641: po_message_s.sql_error('CREATE_LINE', l_progress,sqlcode);
5647: --
5648: WHEN update_req_pool_fail then
5649: po_message_s.sql_error('CREATE_LINE',l_progress,sqlcode);
5650: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5651: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5652: p_token => l_progress,
5653: p_message => 'Create_documents: update_req_pool_fail exception : SQLCODE '||sqlcode);
5654: END IF;
5655: raise;
5656:
5657: --
5658: WHEN OTHERS THEN
5659: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
5660: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
5661: p_progress => l_progress);
5662: END IF;
5663: wrapup(x_interface_header_id);
5664: po_message_s.sql_error('CREATE_LINE',l_progress,sqlcode);
5766: l_receipt_required_flag VARCHAR2(1); --10403047
5767:
5768: BEGIN
5769: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5770: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
5771: END IF;
5772:
5773: x_line_location_id:=null;
5774: x_quantity := interface.quantity;
5811: -- bug 5208159 : Conversion of req UOM to Quotation UOM should always happen if the
5812: -- source document is a quote and profile 'PO: Convert Requisition UOM to Source Document UOM'
5813: -- should be ignored in that case
5814: IF g_debug_stmt THEN
5815: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5816: p_token => l_progress,
5817: p_message => 'from line id :'||interface.from_line_id||'from header id:'||interface.from_header_id);
5818: END IF;
5819:
5828: FROM po_headers_all poh
5829: WHERE poh.po_header_id=interface.from_header_id ;
5830:
5831: IF g_debug_stmt THEN
5832: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5833: p_token => l_progress,
5834: p_message => 'l_from_type_lookup_code :'||l_from_type_lookup_code);
5835: END IF;
5836:
5838:
5839: EXCEPTION
5840: WHEN OTHERS THEN
5841: IF g_debug_unexp THEN
5842: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
5843: p_progress => l_progress);
5844: END IF;
5845: po_message_s.sql_error('CREATE_LINE',l_progress,sqlcode);
5846: wrapup(interface.interface_header_id);
5850:
5851: -- got the source document type, now compare it and if required do the UOM conversion
5852:
5853: IF g_debug_stmt THEN
5854: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5855: p_token => l_progress,
5856: p_message => 'x_uom_convert:'||x_uom_convert);
5857: END IF;
5858:
5888: -- Bug 2735840 END
5889: EXCEPTION
5890: WHEN OTHERS THEN
5891: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
5892: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
5893: p_progress => l_progress);
5894: END IF;
5895: po_message_s.sql_error('CREATE_SHIPMENTS',l_progress,sqlcode);
5896: wrapup(interface.interface_header_id);
5901: into the BPA uom if the uom's on the req and BPA are different .
5902: This conversion is done only if the Convert UOM profile option is set to Yes. */
5903:
5904: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5905: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5906: p_token => l_progress,
5907: p_message => 'Create_shipment: UOM: '||x_temp_uom);
5908: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5909: p_token => l_progress,
5904: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5905: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5906: p_token => l_progress,
5907: p_message => 'Create_shipment: UOM: '||x_temp_uom);
5908: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5909: p_token => l_progress,
5910: p_message => 'Create_shipment: item id: '||x_temp_item_id);
5911: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5912: p_token => l_progress,
5907: p_message => 'Create_shipment: UOM: '||x_temp_uom);
5908: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5909: p_token => l_progress,
5910: p_message => 'Create_shipment: item id: '||x_temp_item_id);
5911: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5912: p_token => l_progress,
5913: p_message => 'Create_shipment: PO UOM: '||x_po_uom);
5914: END IF;
5915:
5927: x_quantity := round(x_quantity * l_conversion_rate , 15);
5928: x_shipment_uom := x_po_uom ; --
5929:
5930: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5931: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5932: p_token => l_progress,
5933: p_message => 'Create_shipment: Converted Qty: '||x_quantity);
5934: END IF;
5935:
5963: AND poll.shipment_type in ('STANDARD','PLANNED', 'RFQ');
5964: EXCEPTION
5965: WHEN NO_DATA_FOUND THEN
5966: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5967: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5968: p_token => l_progress,
5969: p_message => 'NO_DATA_FOUND: '||SQLERRM);
5970: END IF;
5971: WHEN OTHERS THEN
5969: p_message => 'NO_DATA_FOUND: '||SQLERRM);
5970: END IF;
5971: WHEN OTHERS THEN
5972: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
5973: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
5974: p_progress => l_progress);
5975: END IF;
5976: po_message_s.sql_error('CREATE_SHIPMENTS',l_progress,sqlcode);
5977: wrapup(interface.interface_header_id);
6001:
6002: EXCEPTION
6003: WHEN NO_DATA_FOUND THEN
6004: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6005: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6006: p_token => l_progress,
6007: p_message => 'NO_DATA_FOUND: '||SQLERRM);
6008: END IF;
6009: WHEN OTHERS THEN
6007: p_message => 'NO_DATA_FOUND: '||SQLERRM);
6008: END IF;
6009: WHEN OTHERS THEN
6010: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
6011: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
6012: p_progress => l_progress);
6013: END IF;
6014: po_message_s.sql_error('CREATE_SHIPMENTS',l_progress,sqlcode);
6015: wrapup(interface.interface_header_id);
6053: where line_location_id = x_line_location_id;
6054: exception
6055: when others THEN
6056: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6057: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6058: p_token => l_progress,
6059: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
6060: END IF;
6061: x_ship_qty := 0;
6106: WHERE po_line_id=x_po_line_id;
6107: exception
6108: when others then
6109: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6110: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6111: p_token => l_progress,
6112: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
6113: END IF;
6114: x_price := null;
6124: ** Update everything except closed_code
6125: */
6126: l_progress:='120';
6127: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6128: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6129: p_token => l_progress,
6130: p_message => 'Create_shipment: shipment exist');
6131: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6132: p_token => l_progress,
6127: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6128: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6129: p_token => l_progress,
6130: p_message => 'Create_shipment: shipment exist');
6131: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6132: p_token => l_progress,
6133: p_message => 'Create_shipment: Update PO line locations');
6134: END IF;
6135:
6271: END IF;
6272:
6273: l_progress := '130';
6274: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6275: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6276: p_token => l_progress,
6277: p_message => 'Create shipment: Before calling Auto close');
6278: END IF;
6279: /*bug 12673501 starts: the call to po_actions.po_close is a redundant call
6370: END IF;
6371:
6372: l_progress:='160';
6373: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6374: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6375: p_token => l_progress,
6376: p_message => 'create shipment: Shipment does not exist');
6377: END IF;
6378:
6407: ** Create a new shipment.
6408: */
6409: l_progress:='210';
6410: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6411: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6412: p_token => l_progress,
6413: p_message => 'Create shipment: Create a new shipment');
6414: END IF;
6415:
6489: --end of add for 1805397
6490:
6491: l_progress := '240';
6492: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6493: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6494: p_token => l_progress,
6495: p_message => 'Create shipment: Before insert into po line locations');
6496: END IF;
6497:
6523:
6524:
6525: l_progress := '250';
6526: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6527: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6528: p_token => l_progress,
6529: p_message => 'interface.trxn_flow_header_id='||interface.transaction_flow_header_id);
6530: END IF;
6531:
6605:
6606: when others THEN
6607: l_progress:='255';
6608: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6609: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6610: p_token => l_progress,
6611: p_message => 'Error while determing receipt required and inspection required flag for 4 way');
6612: END IF;
6613: end;
6890: , nvl2(g_calculate_tax_flag, 'CREATE', null) --
6891: );
6892: l_progress := '260';
6893: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6894: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6895: p_token => l_progress,
6896: p_message => 'Create shipment: After insert into po line locations');
6897: END IF;
6898:
6915: ** OE Callback function for maintaining so_drop_ship_sources table
6916: */
6917: --
6918: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6919: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6920: p_token => l_progress,
6921: p_message => 'Sourcing to FPH-4 starts');
6922: END IF;
6923:
6938: WHERE LINE_LOCATION_ID = x_line_location_id;
6939: EXCEPTION
6940: WHEN NO_DATA_FOUND THEN
6941: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6942: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6943: p_token => l_progress,
6944: p_message => 'NO_DATA_FOUND: '||SQLERRM);
6945: END IF;
6946: WHEN OTHERS THEN
6944: p_message => 'NO_DATA_FOUND: '||SQLERRM);
6945: END IF;
6946: WHEN OTHERS THEN
6947: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6948: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6949: p_token => l_progress,
6950: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
6951: END IF;
6952: END;
6959: WHERE requisition_line_id = interface.requisition_line_id;
6960: EXCEPTION
6961: WHEN NO_DATA_FOUND THEN
6962: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6963: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6964: p_token => l_progress,
6965: p_message => 'NO_DATA_FOUND: '||SQLERRM);
6966: END IF;
6967: WHEN OTHERS THEN
6965: p_message => 'NO_DATA_FOUND: '||SQLERRM);
6966: END IF;
6967: WHEN OTHERS THEN
6968: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6969: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6970: p_token => l_progress,
6971: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
6972: END IF;
6973: END;
6992: );
6993:
6994: l_progress := '310';
6995: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6996: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6997: p_token => l_progress,
6998: p_message => 'Sourcing to FPH-4 ends');
6999: END IF;
7000: --
7008:
7009: IF (g_document_type = 'PO') THEN
7010:
7011: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7012: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7013: p_token => l_progress,
7014: p_message => 'Create shipment: Before calling create_distribution');
7015: END IF;
7016: create_distributions(
7022:
7023: END IF;
7024:
7025: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7026: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
7027: END IF;
7028:
7029: EXCEPTION
7030: WHEN OTHERS THEN
7028:
7029: EXCEPTION
7030: WHEN OTHERS THEN
7031: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
7032: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
7033: p_progress => l_progress);
7034: END IF;
7035: wrapup(interface.interface_header_id);
7036: po_message_s.sql_error('CREATE_SHIPMENTS',l_progress,sqlcode);
7110:
7111: --introduced to hold the value of drop_ship_flag for shipments
7112: BEGIN
7113: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7114: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
7115: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7116: p_token => l_progress,
7117: p_message => 'Create_distributions: po_line_id: '||x_po_line_id);
7118: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7111: --introduced to hold the value of drop_ship_flag for shipments
7112: BEGIN
7113: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7114: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
7115: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7116: p_token => l_progress,
7117: p_message => 'Create_distributions: po_line_id: '||x_po_line_id);
7118: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7119: p_token => l_progress,
7114: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
7115: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7116: p_token => l_progress,
7117: p_message => 'Create_distributions: po_line_id: '||x_po_line_id);
7118: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7119: p_token => l_progress,
7120: p_message => 'Create_distributions: po_line_loc_id: '||x_line_location_id);
7121: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7122: p_token => l_progress,
7117: p_message => 'Create_distributions: po_line_id: '||x_po_line_id);
7118: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7119: p_token => l_progress,
7120: p_message => 'Create_distributions: po_line_loc_id: '||x_line_location_id);
7121: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7122: p_token => l_progress,
7123: p_message => 'Create_distributions: po_release_id: '||x_po_release_id);
7124: END IF;
7125:
7153: WHERE NVL(org_id, -99) = NVL(g_purchasing_ou_id, -99); --
7154:
7155:
7156: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7157: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7158: p_token => l_progress,
7159: p_message => 'Create_distributions: Order type: '||x_order_type_lookup_code);
7160: END IF;
7161:
7188: Exception
7189: WHEN NO_DATA_FOUND THEN
7190: /* Not all req has kanban id */
7191: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7192: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7193: p_token => l_progress,
7194: p_message => 'NO_DATA_FOUND: '||SQLERRM);
7195: END IF;
7196: WHEN OTHERS THEN
7194: p_message => 'NO_DATA_FOUND: '||SQLERRM);
7195: END IF;
7196: WHEN OTHERS THEN
7197: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
7198: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
7199: p_progress => l_progress);
7200: END IF;
7201: raise;
7202: End;
7283:
7284: EXCEPTION
7285: WHEN OTHERS THEN
7286: IF g_debug_unexp THEN
7287: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
7288: p_progress => l_progress);
7289: END IF;
7290: po_message_s.sql_error('CREATE_LINE',l_progress,sqlcode);
7291: wrapup(interface.interface_header_id);
7322: END IF; -- g_document_subtype
7323: -- Bug 2735840 END
7324:
7325: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7326: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7327: p_token => l_progress,
7328: p_message => 'Create_distributions: UOM is: '||x_po_uom);
7329: END IF;
7330: EXCEPTION
7329: END IF;
7330: EXCEPTION
7331: WHEN OTHERS THEN
7332: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
7333: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
7334: p_progress => l_progress);
7335: END IF;
7336: po_message_s.sql_error('CREATE_DISTRIBUTIONS',l_progress,sqlcode);
7337: wrapup(interface.interface_header_id);
7353: x_conversion_rate := 1;
7354:
7355: end if;
7356: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7357: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7358: p_token => l_progress,
7359: p_message => 'Create_distributions: Conversion rate is: '||x_conversion_rate);
7360: END IF;
7361:
7366: --
7367: --Dont insert distribution record if the various account_id s are
7368: --not defaulted for negotiation lines which are not backed by req for sourcing
7369: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7370: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7371: p_token => l_progress,
7372: p_message => 'Sourcing to FPH-5 starts');
7373: END IF;
7374: if (g_interface_source_code in ('SOURCING','CONSUMPTION_ADVICE') and -- CONSIGNED FPI
7406: --
7407:
7408: l_progress := '170';
7409: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7410: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7411: p_token => l_progress,
7412: p_message => 'Sourcing to FPH-5 ends and insert into distributions');
7413: END IF;
7414:
7431: WHERE pdi.interface_header_id = interface.interface_header_id
7432: AND pdi.interface_line_id = interface.interface_line_id
7433: AND poll.line_location_id = x_line_location_id;
7434:
7435: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_amount_ordered',l_amount_ordered);
7436: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_order_type_lookup_code',x_order_type_lookup_code);
7437: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_currency_conversion_rate',l_currency_conversion_rate);
7438: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_uom_conversion_rate',l_uom_conversion_rate);
7439: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_precision',x_precision);
7432: AND pdi.interface_line_id = interface.interface_line_id
7433: AND poll.line_location_id = x_line_location_id;
7434:
7435: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_amount_ordered',l_amount_ordered);
7436: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_order_type_lookup_code',x_order_type_lookup_code);
7437: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_currency_conversion_rate',l_currency_conversion_rate);
7438: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_uom_conversion_rate',l_uom_conversion_rate);
7439: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_precision',x_precision);
7440:
7433: AND poll.line_location_id = x_line_location_id;
7434:
7435: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_amount_ordered',l_amount_ordered);
7436: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_order_type_lookup_code',x_order_type_lookup_code);
7437: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_currency_conversion_rate',l_currency_conversion_rate);
7438: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_uom_conversion_rate',l_uom_conversion_rate);
7439: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_precision',x_precision);
7440:
7441:
7434:
7435: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_amount_ordered',l_amount_ordered);
7436: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_order_type_lookup_code',x_order_type_lookup_code);
7437: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_currency_conversion_rate',l_currency_conversion_rate);
7438: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_uom_conversion_rate',l_uom_conversion_rate);
7439: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_precision',x_precision);
7440:
7441:
7442: EXCEPTION
7435: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_amount_ordered',l_amount_ordered);
7436: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_order_type_lookup_code',x_order_type_lookup_code);
7437: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_currency_conversion_rate',l_currency_conversion_rate);
7438: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_uom_conversion_rate',l_uom_conversion_rate);
7439: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_precision',x_precision);
7440:
7441:
7442: EXCEPTION
7443: WHEN OTHERS THEN
7754:
7755: exception
7756: when others then
7757: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7758: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7759: p_token => l_progress,
7760: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
7761: END IF;
7762: if c_dist%ISOPEN then
7764: end if;
7765: end;
7766:
7767: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7768: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
7769: END IF;
7770:
7771: EXCEPTION
7772: WHEN OTHERS THEN
7770:
7771: EXCEPTION
7772: WHEN OTHERS THEN
7773: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
7774: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
7775: p_progress => l_progress);
7776: END IF;
7777: wrapup(interface.interface_header_id);
7778: po_message_s.sql_error('CREATE_DISTRIBUTIONS',l_progress,sqlcode);
7823: l_shipment_amount PO_LINE_LOCATIONS_ALL.amount%TYPE;
7824:
7825: BEGIN
7826:
7827: l_progress:='000'; PO_DEBUG.debug_begin(l_log_head);
7828: l_progress:='010'; PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_location_id',p_line_location_id);
7829:
7830: -- Retrieve Distribution Data =============================================
7831: --
7824:
7825: BEGIN
7826:
7827: l_progress:='000'; PO_DEBUG.debug_begin(l_log_head);
7828: l_progress:='010'; PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_location_id',p_line_location_id);
7829:
7830: -- Retrieve Distribution Data =============================================
7831: --
7832: -- Get the sum of all distribution amounts
7838: , l_last_distribution_id
7839: FROM po_distributions_all
7840: WHERE line_location_id = p_line_location_id;
7841:
7842: l_progress:='020'; PO_DEBUG.debug_var(l_log_head,l_progress,'l_sum_dist_amounts',l_sum_dist_amounts);
7843: l_progress:='030'; PO_DEBUG.debug_var(l_log_head,l_progress,'l_last_distribution_id',l_last_distribution_id);
7844:
7845:
7846: -- Get the shipment amount ================================================
7839: FROM po_distributions_all
7840: WHERE line_location_id = p_line_location_id;
7841:
7842: l_progress:='020'; PO_DEBUG.debug_var(l_log_head,l_progress,'l_sum_dist_amounts',l_sum_dist_amounts);
7843: l_progress:='030'; PO_DEBUG.debug_var(l_log_head,l_progress,'l_last_distribution_id',l_last_distribution_id);
7844:
7845:
7846: -- Get the shipment amount ================================================
7847: --
7849: INTO l_shipment_amount
7850: FROM po_line_locations_all
7851: WHERE line_location_id = p_line_location_id;
7852:
7853: l_progress:='040'; PO_DEBUG.debug_var(l_log_head,l_progress,'l_shipment_amount',l_shipment_amount);
7854:
7855:
7856: -- Correct the last distribution ==========================================
7857: --
7863: WHERE po_distribution_id = l_last_distribution_id
7864: RETURNING amount_ordered
7865: INTO l_last_dist_amount;
7866:
7867: l_progress:='050'; PO_DEBUG.debug_var(l_log_head,l_progress,'l_last_dist_amount',l_last_dist_amount);
7868:
7869: --=========================================================================
7870:
7871: l_progress:='060'; PO_DEBUG.debug_end(l_log_head);
7867: l_progress:='050'; PO_DEBUG.debug_var(l_log_head,l_progress,'l_last_dist_amount',l_last_dist_amount);
7868:
7869: --=========================================================================
7870:
7871: l_progress:='060'; PO_DEBUG.debug_end(l_log_head);
7872:
7873: EXCEPTION
7874:
7875: WHEN OTHERS THEN
7872:
7873: EXCEPTION
7874:
7875: WHEN OTHERS THEN
7876: PO_DEBUG.debug_exc ( p_log_head => l_log_head
7877: , p_progress => l_progress);
7878: RAISE;
7879:
7880: END calibrate_last_dist_amount;
8001: --
8002:
8003: BEGIN
8004: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8005: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
8006: END IF;
8007:
8008: get_system_defaults;
8009:
8010: l_progress := '010';
8011: -- populate the interface tables with data from the
8012: -- requisition.
8013: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8014: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8015: p_token => l_progress,
8016: p_message => 'Create_rfq: Before setup_interface_tables');
8017: END IF;
8018:
8027: l_progress := '020';
8028: -- determine which interface lines and shipments should
8029: -- be grouped.
8030: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8031: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8032: p_token => l_progress,
8033: p_message => 'Create_rfq: Before group_interface_lines');
8034: END IF;
8035:
8040: );
8041:
8042: l_progress := '030';
8043: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8044: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8045: p_token => l_progress,
8046: p_message => 'Create_rfq: interface_hdr id '||x_interface_header_id);
8047: END IF;
8048:
8226: p_org_id => g_purchasing_ou_id
8227: );
8228:
8229: IF g_debug_stmt THEN
8230: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8231: p_token => l_progress,
8232: p_message => 'new po num = ' || x_document_num);
8233: END IF;
8234:
8254:
8255: COMMIT;
8256:
8257: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8258: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
8259: END IF;
8260:
8261: EXCEPTION
8262: WHEN OTHERS THEN
8260:
8261: EXCEPTION
8262: WHEN OTHERS THEN
8263: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
8264: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
8265: p_progress => l_progress);
8266: END IF;
8267: wrapup(x_interface_header_id);
8268:
8289: l_api_name CONSTANT VARCHAR2(30) := 'get_system_defaults'; --< Bug 3210331 >
8290: l_progress VARCHAR2(3) := '000'; --< Bug 3210331 >
8291: BEGIN
8292: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8293: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
8294: END IF;
8295:
8296: /* Get WHO column values */
8297: who.user_id := nvl(fnd_global.user_id,0);
8354: po_core_s.get_period_name(params.sob_id,params.period_name,x_date);
8355: END IF;
8356:
8357: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8358: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
8359: END IF;
8360:
8361: EXCEPTION
8362: WHEN OTHERS THEN
8360:
8361: EXCEPTION
8362: WHEN OTHERS THEN
8363: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
8364: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
8365: p_progress => l_progress);
8366: END IF;
8367: wrapup(interface.interface_header_id);
8368: po_message_s.sql_error('GET SYSTEM DEFAULTS',l_progress,sqlcode);
8385: l_api_name CONSTANT VARCHAR2(30) := 'get_invoice_match_option'; --< Bug 3210331 >
8386:
8387: BEGIN
8388: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8389: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
8390: END IF;
8391:
8392: if (X_vendor_site_id is not null) then
8393: l_progress := '010';
8425: WHERE NVL(org_id, -99) = NVL(g_purchasing_ou_id, -99); --
8426: end if;
8427:
8428: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8429: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
8430: END IF;
8431: EXCEPTION
8432: WHEN OTHERS THEN
8433: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
8430: END IF;
8431: EXCEPTION
8432: WHEN OTHERS THEN
8433: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
8434: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
8435: p_progress => l_progress);
8436: END IF;
8437: wrapup(interface.interface_header_id);
8438: po_message_s.sql_error('GET INVOICE MATCH OPTION',l_progress,sqlcode);
8630: ORDER BY pli.interface_line_id;
8631: l_api_name VARCHAR2(100) := 'generate_shared_proc_accounts';
8632: BEGIN
8633: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8634: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
8635: END IF;
8636:
8637: -- Ignore for RFQ's and Blankets
8638: IF ( g_document_type <> 'PO' OR
8639: g_document_subtype <> 'STANDARD' ) THEN
8640:
8641: l_progress := '010';
8642: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8643: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8644: p_token => l_progress,
8645: p_message => 'Ignoring... Type='|| g_document_type|| ' SubType='||g_document_subtype);
8646: END IF;
8647: RETURN;
8716: x_transaction_flow_header_id => l_transaction_flow_header_id);
8717: -- OUT NOCOPY NUMBER
8718:
8719: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8720: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8721: p_token => l_progress,
8722: p_message => 'After calling check_transaction_flow l_transaction_flow_header_id='
8723: || to_char(l_transaction_flow_header_id)|| ' l_return_status='
8724: ||l_return_status);
8750: exception_text => 'return_status='||l_return_status);
8751: ELSIF l_return_status = FND_API.g_ret_sts_success AND
8752: (l_item_in_linv_pou <> 'Y') THEN
8753: IF g_debug_stmt THEN
8754: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8755: p_token => l_progress,
8756: p_message => 'After calling check_item_in_linv_pou: Item does not exist in the
8757: logical inv org of the POU'||' l_return_status= '||l_return_status);
8758: END IF;
8783:
8784: IF (l_order_type_lookup_code <> 'AMOUNT') THEN
8785:
8786: IF g_debug_stmt THEN
8787: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8788: p_token => l_progress,
8789: p_message =>
8790: 'unit price in ROU currency: ' || l_unit_price
8791: || ', ROU / requisition rate: ' || l_req_header_rate );
8832: END IF; -- l_order_type_lookup_code
8833: -- Bug 3463242 END
8834:
8835: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8836: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8837: p_token => l_progress,
8838: p_message => 'Calling AG WF');
8839:
8840: -- Bug 3463242 START
8837: p_token => l_progress,
8838: p_message => 'Calling AG WF');
8839:
8840: -- Bug 3463242 START
8841: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8842: p_token => l_progress,
8843: p_message =>
8844: 'unit price in PO currency: ' || l_unit_price
8845: || ', ROU / PO rate: ' || l_rate_for_req_fields
8928:
8929: l_progress := '110';
8930:
8931: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8932: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8933: p_token => l_progress,
8934: p_message => 'After calling AG WF');
8935: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8936: p_token => l_progress,
8931: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8932: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8933: p_token => l_progress,
8934: p_message => 'After calling AG WF');
8935: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8936: p_token => l_progress,
8937: p_message => 'Before updating the interface table with trxflowhdrid l_transaction_flow_header_id='
8938: || to_char(l_transaction_flow_header_id)|| ' l_interface_line_id='
8939: ||to_char(l_interface_line_id)||' l_old_interface_line_id ='
8946: SET transaction_flow_header_id = l_transaction_flow_header_id
8947: WHERE interface_line_id = l_interface_line_id;
8948:
8949: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8950: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8951: p_token => l_progress,
8952: p_message => 'Transaction flow header id updated: SQL%ROWCOUNT = '||SQL%ROWCOUNT);
8953: END IF;
8954:
8979:
8980: CLOSE l_SPS_lines_csr;
8981:
8982: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8983: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
8984: END IF;
8985: EXCEPTION
8986: WHEN OTHERS THEN
8987: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
8984: END IF;
8985: EXCEPTION
8986: WHEN OTHERS THEN
8987: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
8988: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
8989: p_progress => l_progress);
8990: END IF;
8991: PO_MESSAGE_S.sql_error(l_api_name, l_progress, sqlcode);
8992: RAISE;
9071: l_req_rate PO_REQUISITION_LINES_ALL.rate%TYPE; -- Bug 7661419
9072:
9073: BEGIN
9074:
9075: l_progress:='000'; PO_DEBUG.debug_begin(l_log_head);
9076:
9077: -- Initialize Variables ===================================================
9078:
9079: -- Get the precision/extended precision for the PO Currency.
9088: END IF;
9089:
9090: -- Convert ================================================================
9091:
9092: l_progress:='010'; PO_DEBUG.debug_var(l_log_head,l_progress,'p_order_type_lookup_code',p_order_type_lookup_code);
9093:
9094: -- For 'Amount' based lines, we need to convert the quantity since
9095: -- quantity acts like amount.
9096: --
9096: --
9097: IF ( p_order_type_lookup_code = 'AMOUNT' ) THEN
9098:
9099: l_progress:='010';
9100: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Performing currency conversion on quantity.');
9101:
9102: IF ( p_interface_source_code IN ('SOURCING','CONSUMPTION_ADVICE') ) THEN
9103: l_progress:='020';
9104: PO_DEBUG.debug_stmt(l_log_head,l_progress,'p_interface_source_code IN (SOURCING, CONSUMPTION ADVICE) - no currency conversion performed');
9100: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Performing currency conversion on quantity.');
9101:
9102: IF ( p_interface_source_code IN ('SOURCING','CONSUMPTION_ADVICE') ) THEN
9103: l_progress:='020';
9104: PO_DEBUG.debug_stmt(l_log_head,l_progress,'p_interface_source_code IN (SOURCING, CONSUMPTION ADVICE) - no currency conversion performed');
9105:
9106: ELSE
9107: -- Bug 7661419, No conversion for same currency.
9108: SELECT PRL.currency_code,
9128: --
9129: IF ( p_interface_source_code IN ('SOURCING','CONSUMPTION_ADVICE') ) THEN
9130:
9131: l_progress:='030';
9132: PO_DEBUG.debug_stmt(l_log_head,l_progress,'p_interface_source_code IN (SOURCING, CONSUMPTION ADVICE) - no currency conversion performed');
9133:
9134: ELSE -- ( p_interface_source_code NOT IN ('SOURCING','CONSUMPTION_ADVICE') )
9135:
9136: -- Retrieve information from the backing Requisition Line.
9167: --
9168: IF ( l_req_currency_code = p_po_currency_code ) THEN
9169:
9170: l_progress:='050';
9171: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Req and PO Currency equivalent (' || p_po_currency_code || ') - taking currency_unit_price/amount directly from the Req Line.');
9172:
9173: x_unit_price := l_req_currency_unit_price;
9174: x_amount := l_req_currency_amount;
9175: -- bug 12719420
9177:
9178: -- Bug 3794198 Start
9179: ELSIF (l_req_ou_currency_code = p_po_currency_code) THEN
9180: l_progress := '060';
9181: PO_DEBUG.debug_stmt(l_log_head,l_progress,'ROU Currency and PO Currency equivalent (' || p_po_currency_code || ') - taking unit_price/amount directory from the Req line');
9182: x_unit_price := l_req_unit_price;
9183: x_amount := l_req_amount;
9184: -- Bug 3794198 End
9185: -- Bug 3472140: Added NVL() around l_ext_precision
9187:
9188: ELSE
9189:
9190: l_progress:='070';
9191: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Req (' || l_req_currency_code || ')/ ROU (' || l_req_ou_currency_code || ') and PO (' || p_po_currency_code || ') Currency different - performing currency conversion and rounding.');
9192:
9193: -- Bug 3472140: Added NVL() around l_ext_precision
9194: x_unit_price := round(l_req_unit_price/p_rate, NVL(l_ext_precision, 15));
9195: x_amount := round(l_req_amount/p_rate, l_precision);
9203: END IF; -- p_interface_source_code
9204:
9205: END IF; -- p_order_type_lookup_code
9206:
9207: l_progress:='090'; PO_DEBUG.debug_end(l_log_head);
9208:
9209: EXCEPTION
9210:
9211: WHEN OTHERS THEN
9208:
9209: EXCEPTION
9210:
9211: WHEN OTHERS THEN
9212: PO_DEBUG.debug_exc ( p_log_head => l_log_head
9213: , p_progress => l_progress);
9214: RAISE;
9215:
9216: END do_currency_conversion;
9327: --
9328:
9329: BEGIN
9330: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9331: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
9332: END IF;
9333:
9334: UPDATE po_headers_interface
9335: SET process_code = 'IN PROCESS'
9337:
9338: l_progress := '010';
9339:
9340: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9341: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9342: p_token => l_progress,
9343: p_message => 'Setup interface: before select action type');
9344: END IF;
9345:
9356: FROM po_headers_interface
9357: WHERE interface_header_id = x_interface_header_id;
9358:
9359: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9360: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9361: p_token => l_progress,
9362: p_message => 'Setup interface: mode is '||g_mode);
9363: END IF;
9364:
9395: AND NVL(org_id, -99) = NVL(g_purchasing_ou_id, -99)) --
9396: WHERE interface_header_id = x_interface_header_id;
9397:
9398: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9399: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9400: p_token => l_progress,
9401: p_message => 'After update of headers interface');
9402: END IF;
9403:
9429: WHERE ph.po_header_id = phi.po_header_id)
9430: WHERE interface_header_id = x_interface_header_id;
9431:
9432: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9433: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9434: p_token => l_progress,
9435: p_message => 'After update of headers interfacei rate and etc.');
9436: END IF;
9437:
9444: or (g_document_subtype='BLANKET' and g_interface_source_code='SOURCING')) THEN
9445: l_progress:='060';
9446:
9447: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9448: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9449: p_token => l_progress,
9450: p_message => 'In std/planned/rfq');
9451: END IF;
9452:
9462: x_document_id := x_po_header_id;
9463:
9464: l_progress:='070';
9465: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9466: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9467: p_token => l_progress,
9468: p_message => 'After select Doc is '||x_po_header_id);
9469: END IF;
9470:
9532: ELSIF(g_document_subtype='RELEASE')THEN
9533:
9534: l_progress := '080';
9535: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9536: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9537: p_token => l_progress,
9538: p_message => 'Setup: In release subtype');
9539: END IF;
9540:
9557: AND ph.type_lookup_code='BLANKET'
9558: AND NVL(ph.org_id, -99) = NVL(g_purchasing_ou_id, -99); --
9559:
9560: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9561: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9562: p_token => l_progress,
9563: p_message => 'Setup: Header id of Blanket: '||x_po_header_id);
9564: END IF;
9565:
9587: /* Bug 2816396
9588: Use the interface table value for pay_on_code when updating the table
9589: */
9590: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9591: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9592: p_token => l_progress,
9593: p_message => 'Sourcing to FPH-6 starts');
9594: END IF;
9595:
9697: AND pli.interface_line_id = x_min_interface_line_id)
9698: WHERE interface_header_id = x_interface_header_id;
9699:
9700: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9701: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9702: p_token => l_progress,
9703: p_message => 'Sourcing to FPH-6 ends');
9704: END IF;
9705:
9714: from po_headers_interface
9715: where interface_header_id = x_interface_header_id;
9716:
9717: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9718: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9719: p_token => l_progress,
9720: p_message => 'Setup interface:Before release update '||x_po_header_id);
9721: END IF;
9722:
9909: -- End of fix. Bug 623679, lpo, 02/27/98
9910:
9911: l_progress:='140';
9912: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9913: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9914: p_token => l_progress,
9915: p_message => 'Setup interface: After release update');
9916: END IF;
9917:
10085: IF (g_document_type in ('RFQ', 'PO')) THEN
10086:
10087: l_progress:='170';
10088: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10089: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10090: p_token => l_progress,
10091: p_message => 'Before insert into Distribution interface');
10092: END IF;
10093:
10221: WHERE interface_header_id = x_interface_header_id;
10222:
10223: l_progress:='180';
10224: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10225: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10226: p_token => l_progress,
10227: p_message => 'Count from dist iterface is '||x_count_dist);
10228: END IF;
10229:
10230: END IF;
10231:
10232: --
10233: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10234: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10235: p_token => l_progress,
10236: p_message => 'Sourcing to FPH-7 starts');
10237: END IF;
10238: --default the distribution for non req backing negotiations.The above
10356: end loop;
10357: end if;
10358:
10359: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10360: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10361: p_token => l_progress,
10362: p_message => 'Sourcing to FPH-7 ends');
10363: END IF;
10364: --
10411:
10412: l_progress:='210';
10413: --< Shared Proc FPJ Start >
10414: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10415: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10416: p_token => l_progress,
10417: p_message => 'Calling generate_shared_proc_accounts');
10418: END IF;
10419:
10424: --
10425: --< Shared Proc FPJ End >
10426:
10427: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10428: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
10429: END IF;
10430:
10431: EXCEPTION
10432: WHEN OTHERS THEN
10430:
10431: EXCEPTION
10432: WHEN OTHERS THEN
10433: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
10434: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
10435: p_progress => l_progress);
10436: END IF;
10437: wrapup(x_interface_header_id);
10438: po_message_s.sql_error('SETUP INTERFACE TABLES',l_progress,sqlcode);
10448: ==========================================================================*/
10449: PROCEDURE wrapup(x_interface_header_id IN number) IS
10450: BEGIN
10451: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10452: PO_DEBUG.debug_begin(p_log_head => g_log_head||'wrapup');
10453: END IF;
10454:
10455: DELETE po_distributions_interface
10456: WHERE interface_header_id = x_interface_header_id;
10472: DELETE po_headers_interface
10473: WHERE interface_header_id = x_interface_header_id;
10474:
10475: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10476: PO_DEBUG.debug_end(p_log_head => g_log_head||'wrapup');
10477: END IF;
10478: END wrapup;
10479:
10480: /* ============================================================================
10635:
10636: BEGIN
10637:
10638: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10639: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
10640: END IF;
10641:
10642: -- Bug 3201308 start
10643: -- Get the profile option values to determine grouping criteria
10662: END IF;
10663:
10664: l_progress := '020';
10665: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10666: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10667: p_token => l_progress,
10668: p_message => 'Mode is:'|| g_mode);
10669: END IF;
10670:
10788:
10789: EXIT WHEN interface_lines%NOTFOUND;
10790:
10791: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10792: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10793: p_progress => l_progress,
10794: p_name => 'x_deliver_to_location_id',
10795: p_value => x_deliver_to_location_id);
10796: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10792: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10793: p_progress => l_progress,
10794: p_name => 'x_deliver_to_location_id',
10795: p_value => x_deliver_to_location_id);
10796: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10797: p_progress => l_progress,
10798: p_name => 'x_destination_org_id',
10799: p_value => x_destination_org_id);
10800: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10796: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10797: p_progress => l_progress,
10798: p_name => 'x_destination_org_id',
10799: p_value => x_destination_org_id);
10800: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10801: p_progress => l_progress,
10802: p_name => 'x_need_by_date',
10803: p_value => x_need_by_date);
10804: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10800: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10801: p_progress => l_progress,
10802: p_name => 'x_need_by_date',
10803: p_value => x_need_by_date);
10804: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10805: p_progress => l_progress,
10806: p_name => 'x_unit_meas_lookup_code',
10807: p_value => x_unit_meas_lookup_code);
10808: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10804: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10805: p_progress => l_progress,
10806: p_name => 'x_unit_meas_lookup_code',
10807: p_value => x_unit_meas_lookup_code);
10808: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10809: p_progress => l_progress,
10810: p_name => 'x_transaction_reason_code',
10811: p_value => x_transaction_reason_code);
10812: END IF; -- debug logging
10857:
10858: EXCEPTION
10859: WHEN NO_DATA_FOUND THEN
10860: IF g_debug_stmt THEN
10861: PO_DEBUG.debug_stmt(
10862: p_log_head => g_log_head||l_api_name,
10863: p_token => l_progress,
10864: p_message => 'NO_DATA_FOUND: '||SQLERRM);
10865: END IF;
10868:
10869: l_progress := '090';
10870:
10871: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10872: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10873: p_token => l_progress,
10874: p_message => 'Line_num is :'|| x_po_line_num);
10875: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10876: p_token => l_progress,
10871: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10872: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10873: p_token => l_progress,
10874: p_message => 'Line_num is :'|| x_po_line_num);
10875: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10876: p_token => l_progress,
10877: p_message => 'Group_interface_lines progress is :'|| l_progress);
10878: END IF; -- debug logging
10879:
10952:
10953: l_progress:='120';
10954:
10955: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10956: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10957: p_token => l_progress,
10958: p_message => 'Group_interface_lines: mode is :'|| g_mode);
10959: END IF;
10960:
10997: -- Document is release case
10998:
10999: l_progress:='160';
11000: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11001: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11002: p_token => l_progress,
11003: p_message => 'Before opening interface_lines cursor');
11004: END IF;
11005:
11041:
11042: EXIT WHEN interface_lines%NOTFOUND;
11043:
11044: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11045: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11046: p_progress => l_progress,
11047: p_name => 'x_deliver_to_location_id',
11048: p_value => x_deliver_to_location_id);
11049: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11045: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11046: p_progress => l_progress,
11047: p_name => 'x_deliver_to_location_id',
11048: p_value => x_deliver_to_location_id);
11049: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11050: p_progress => l_progress,
11051: p_name => 'x_destination_org_id',
11052: p_value => x_destination_org_id);
11053: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11049: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11050: p_progress => l_progress,
11051: p_name => 'x_destination_org_id',
11052: p_value => x_destination_org_id);
11053: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11054: p_progress => l_progress,
11055: p_name => 'x_need_by_date',
11056: p_value => x_need_by_date);
11057: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11053: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11054: p_progress => l_progress,
11055: p_name => 'x_need_by_date',
11056: p_value => x_need_by_date);
11057: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11058: p_progress => l_progress,
11059: p_name => 'x_unit_meas_lookup_code',
11060: p_value => x_unit_meas_lookup_code);
11061: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11057: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11058: p_progress => l_progress,
11059: p_name => 'x_unit_meas_lookup_code',
11060: p_value => x_unit_meas_lookup_code);
11061: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11062: p_progress => l_progress,
11063: p_name => 'x_transaction_reason_code',
11064: p_value => x_transaction_reason_code);
11065: END IF;
11110:
11111: EXCEPTION
11112: WHEN NO_DATA_FOUND THEN
11113: IF g_debug_stmt THEN
11114: PO_DEBUG.debug_stmt(
11115: p_log_head => g_log_head||l_api_name,
11116: p_token => l_progress,
11117: p_message => 'NO_DATA_FOUND: '||SQLERRM);
11118: END IF;
11121:
11122: l_progress := '190';
11123:
11124: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11125: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11126: p_token => l_progress,
11127: p_message => 'Group_interface_lines: Line_num is :'|| x_po_line_num);
11128: END IF;
11129:
11144: -- table to be the requisition line number + this max
11145:
11146: l_progress:='200';
11147: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11148: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11149: p_token => l_progress,
11150: p_message => 'Group_interface_lines: before select max ship num');
11151: END IF;
11152:
11165: AND NVL(pr.org_id, -99) = NVL(g_purchasing_ou_id, -99); --
11166:
11167: l_progress:='210';
11168: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11169: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11170: p_token => l_progress,
11171: p_message => 'Group_interface_lines: after select max ship num');
11172: END IF;
11173:
11214:
11215: l_progress := '230';
11216:
11217: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11218: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11219: p_token => l_progress,
11220: p_message => 'Before open interface: Grouping is default');
11221: END IF;
11222:
11303: -- req lines to the same po line and the shipments are identical.
11304:
11305: l_progress:='250';
11306: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11307: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11308: p_token => l_progress,
11309: p_message => 'Before get_shipment_num');
11310: END IF;
11311:
11348: -- get the next highest shipment number.
11349:
11350: l_progress:='270';
11351: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11352: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11353: p_token => l_progress,
11354: p_message => 'x_action = '||x_action);
11355: END IF;
11356:
11394:
11395: EXCEPTION
11396: WHEN NO_DATA_FOUND THEN
11397: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11398: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11399: p_token => l_progress,
11400: p_message => 'NO_DATA_FOUND: '||SQLERRM);
11401: END IF;
11402: WHEN others THEN
11400: p_message => 'NO_DATA_FOUND: '||SQLERRM);
11401: END IF;
11402: WHEN others THEN
11403: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
11404: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
11405: p_progress => l_progress);
11406: END IF;
11407: RAISE;
11408: END;
11453:
11454: l_progress := '310';
11455:
11456: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11457: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11458: p_token => l_progress,
11459: p_message => 'x_action = '||x_action);
11460: END IF;
11461:
11595:
11596: EXCEPTION
11597: WHEN NO_DATA_FOUND THEN
11598: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11599: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11600: p_token => l_progress,
11601: p_message => 'NO_DATA_FOUND: No match to po line: Doc type = '||g_document_type);
11602: END IF;
11603: x_po_line_num := -1;
11602: END IF;
11603: x_po_line_num := -1;
11604: WHEN OTHERS THEN
11605: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
11606: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
11607: p_progress => l_progress);
11608: END IF;
11609: wrapup(x_interface_header_id);
11610: RAISE;
11650:
11651: EXCEPTION
11652: WHEN NO_DATA_FOUND THEN
11653: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11654: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11655: p_token => l_progress,
11656: p_message => 'NO_DATA_FOUND: No match to po line: Doc type RFQ');
11657: END IF;
11658: x_po_line_num := -1;
11657: END IF;
11658: x_po_line_num := -1;
11659: WHEN OTHERS THEN
11660: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
11661: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
11662: p_progress => l_progress);
11663: END IF;
11664: wrapup(x_interface_header_id);
11665: RAISE;
11823:
11824: EXCEPTION
11825: WHEN NO_DATA_FOUND THEN
11826: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11827: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11828: p_token => l_progress,
11829: p_message => 'NO_DATA_FOUND: No match to po line in Interface- Doc type = '||g_document_type);
11830: END IF;
11831: x_po_line_num := -1;
11830: END IF;
11831: x_po_line_num := -1;
11832: WHEN OTHERS THEN
11833: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
11834: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
11835: p_progress => l_progress);
11836: END IF;
11837: wrapup(x_interface_header_id);
11838: RAISE;
11844:
11845: l_progress := '360';
11846:
11847: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11848: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11849: p_token => l_progress,
11850: p_message => 'Before select min line_num');
11851: END IF;
11852:
11869:
11870: EXCEPTION
11871: WHEN NO_DATA_FOUND THEN
11872: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11873: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11874: p_token => l_progress,
11875: p_message => 'NO_DATA_FOUND: No match to po line in Interface- Doc type RFQ');
11876: END IF;
11877: x_po_line_num := -1;
11876: END IF;
11877: x_po_line_num := -1;
11878: WHEN OTHERS THEN
11879: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
11880: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
11881: p_progress => l_progress);
11882: END IF;
11883: wrapup(x_interface_header_id);
11884: RAISE;
11934:
11935: l_progress := '390';
11936:
11937: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11938: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11939: p_token => l_progress,
11940: p_message => 'Before update_shipment');
11941: END IF;
11942:
11984: -- The shipment number should be 1.
11985:
11986: l_progress := '410';
11987: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11988: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11989: p_token => l_progress,
11990: p_message => 'Group_interface_lines: Line does not exist');
11991: END IF;
11992:
12004: -- Get the max line number already assigne in the interface table
12005:
12006: l_progress:='420';
12007: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12008: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12009: p_token => l_progress,
12010: p_message => 'Before select max line_num from po_lines_interface');
12011: END IF;
12012:
12024: l_progress := '430';
12025: --
12026:
12027: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12028: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12029: p_token => l_progress,
12030: p_message => 'Sourcing to FPH-8 starts');
12031: END IF;
12032:
12049:
12050: END IF; -- if x_requisition_id is not null
12051:
12052: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12053: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12054: p_token => l_progress,
12055: p_message => 'Sourcing to FPH-8 ends');
12056: END IF;
12057:
12108:
12109: EXIT WHEN interface_lines%NOTFOUND;
12110:
12111: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12112: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12113: p_token => l_progress,
12114: p_message => 'After fetch interface_lines cursor');
12115: END IF;
12116:
12123: -- update the interface table with the correct line number.
12124:
12125:
12126: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12127: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
12128: p_progress => l_progress,
12129: p_name => 'x_line_type_id',
12130: p_value => x_line_type_id);
12131: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
12127: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
12128: p_progress => l_progress,
12129: p_name => 'x_line_type_id',
12130: p_value => x_line_type_id);
12131: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
12132: p_progress => l_progress,
12133: p_name => 'x_item_id',
12134: p_value => x_item_id);
12135: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
12131: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
12132: p_progress => l_progress,
12133: p_name => 'x_item_id',
12134: p_value => x_item_id);
12135: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
12136: p_progress => l_progress,
12137: p_name => 'x_item_revision',
12138: p_value => x_item_revision);
12139: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
12135: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
12136: p_progress => l_progress,
12137: p_name => 'x_item_revision',
12138: p_value => x_item_revision);
12139: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
12140: p_progress => l_progress,
12141: p_name => 'x_unit_meas_lookup_code',
12142: p_value => x_unit_meas_lookup_code);
12143: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
12139: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
12140: p_progress => l_progress,
12141: p_name => 'x_unit_meas_lookup_code',
12142: p_value => x_unit_meas_lookup_code);
12143: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
12144: p_progress => l_progress,
12145: p_name => 'x_transaction_reason_code',
12146: p_value => x_transaction_reason_code);
12147: END IF;
12187:
12188: EXCEPTION
12189: WHEN NO_DATA_FOUND THEN
12190: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12191: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12192: p_token => l_progress,
12193: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12194: END IF;
12195: x_po_line_num := -1;
12204:
12205: x_interface_line_num := x_po_line_num;
12206:
12207: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12208: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12209: p_token => l_progress,
12210: p_message => 'After update of po_lines_interface line_num');
12211: END IF;
12212:
12236:
12237: EXCEPTION
12238: WHEN NO_DATA_FOUND THEN
12239: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12240: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12241: p_token => l_progress,
12242: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12243: END IF;
12244: x_po_line_num := -1;
12293:
12294: END IF; -- of PO mode
12295:
12296: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12297: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
12298: END IF;
12299: EXCEPTION
12300: WHEN NO_DATA_FOUND THEN
12301: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12298: END IF;
12299: EXCEPTION
12300: WHEN NO_DATA_FOUND THEN
12301: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12302: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12303: p_token => l_progress,
12304: p_message => 'Exception block: NO_DATA_FOUND: '||SQLERRM);
12305: END IF;
12306: null;
12305: END IF;
12306: null;
12307: WHEN OTHERS THEN
12308: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12309: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12310: p_progress => l_progress||'_main');
12311: END IF;
12312: po_message_s.sql_error('GROUP INTERFACE LINES',l_progress,sqlcode);
12313: wrapup(x_interface_header_id);
12346: AND pk2_value = 'ONE_TIME_LOCATION'
12347: AND rownum = 1;
12348:
12349: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12350: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12351: p_token => l_progress,
12352: p_message => 'Req line '||p_req_line_id||' has one-time attachment');
12353: END IF;
12354:
12356:
12357: ELSE
12358:
12359: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12360: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12361: p_token => l_progress,
12362: p_message => 'Req line is null');
12363: END IF;
12364: RETURN FALSE;
12367:
12368: EXCEPTION
12369: WHEN NO_DATA_FOUND THEN
12370: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12371: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12372: p_token => l_progress,
12373: p_message => 'NO_DATA_FOUND: No one-time attachment for req line '||p_req_line_id);
12374: END IF;
12375: RETURN FALSE;
12374: END IF;
12375: RETURN FALSE;
12376: WHEN OTHERS THEN
12377: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12378: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12379: p_progress => l_progress);
12380: END IF;
12381: RETURN FALSE;
12382: END has_one_time_location;
12413: AND wip_entity_id IS NOT NULL;
12414:
12415:
12416: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12417: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12418: p_token => l_progress,
12419: p_message => 'Req line '||p_req_line_id||' is wip enabled');
12420: END IF;
12421:
12423:
12424: ELSE
12425:
12426: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12427: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12428: p_token => l_progress,
12429: p_message => 'Req line is null');
12430: END IF;
12431: RETURN FALSE;
12434:
12435: EXCEPTION
12436: WHEN NO_DATA_FOUND THEN
12437: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12438: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12439: p_token => l_progress,
12440: p_message => 'NO_DATA_FOUND: No wip entity for req line '||p_req_line_id);
12441: END IF;
12442: RETURN FALSE;
12441: END IF;
12442: RETURN FALSE;
12443: WHEN OTHERS THEN
12444: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12445: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12446: p_progress => l_progress);
12447: END IF;
12448: RETURN FALSE;
12449: END is_wip_enabled;
12494: l_group_shipments VARCHAR2(1); --
12495:
12496: BEGIN
12497: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12498: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
12499: END IF;
12500:
12501: /* Bug 3201308 start */
12502: /* Get the profile option values to determine grouping criteria */
12535: IF g_document_type = 'PO' AND x_drop_ship_flag = 'Y' THEN
12536: x_create_new_line := 'Y';
12537: END IF;
12538: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12539: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12540: p_token => l_progress,
12541: p_message => 'One-time location. Shipment num = -1');
12542: END IF;
12543: RETURN;
12592:
12593: EXCEPTION
12594: WHEN NO_DATA_FOUND THEN
12595: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12596: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12597: p_token => l_progress,
12598: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12599: END IF;
12600: x_po_shipment_num := -1;
12602: x_create_new_line := 'Y';
12603: end if;
12604: WHEN OTHERS THEN
12605: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12606: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12607: p_progress => l_progress);
12608: END IF;
12609: wrapup(x_interface_header_id);
12610: RAISE;
12633:
12634: EXCEPTION
12635: WHEN NO_DATA_FOUND THEN
12636: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12637: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12638: p_token => l_progress,
12639: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12640: END IF;
12641: x_po_shipment_num := -1;
12643: x_create_new_line := 'Y';
12644: end if;
12645: WHEN OTHERS THEN
12646: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12647: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12648: p_progress => l_progress);
12649: END IF;
12650: wrapup(x_interface_header_id);
12651: RAISE;
12675:
12676: EXCEPTION
12677: WHEN NO_DATA_FOUND THEN
12678: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12679: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12680: p_token => l_progress,
12681: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12682: END IF;
12683: x_po_shipment_num := -1;
12694: /* Bug 14796195 */
12695:
12696: WHEN OTHERS THEN
12697: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12698: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12699: p_progress => l_progress);
12700: END IF;
12701: wrapup(x_interface_header_id);
12702: RAISE;
12750:
12751: EXCEPTION
12752: WHEN NO_DATA_FOUND THEN
12753: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12754: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12755: p_token => l_progress,
12756: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12757: END IF;
12758: x_po_shipment_num := -1;
12757: END IF;
12758: x_po_shipment_num := -1;
12759: WHEN OTHERS THEN
12760: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12761: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12762: p_progress => l_progress);
12763: END IF;
12764: wrapup(x_interface_header_id);
12765: RAISE;
12810:
12811: EXCEPTION
12812: WHEN NO_DATA_FOUND THEN
12813: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12814: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12815: p_token => l_progress,
12816: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12817: END IF;
12818: x_po_shipment_num := -1;
12817: END IF;
12818: x_po_shipment_num := -1;
12819: WHEN OTHERS THEN
12820: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12821: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12822: p_progress => l_progress);
12823: END IF;
12824: wrapup(x_interface_header_id);
12825: RAISE;
12848: WHEN NO_DATA_FOUND THEN
12849: --Bug5584718(we need to clear g_po_release_id)
12850: g_po_release_id := null;
12851: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12852: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12853: p_token => l_progress,
12854: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12855: END IF;
12856: WHEN OTHERS THEN
12854: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12855: END IF;
12856: WHEN OTHERS THEN
12857: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12858: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12859: p_progress => l_progress);
12860: END IF;
12861: wrapup(x_interface_header_id);
12862: RAISE;
12869: -- Derive po_line_id if only line number is provided
12870:
12871: IF (x_po_line_num <> -1 AND x_po_line_id IS NULL) THEN
12872:
12873: PO_DEBUG.debug_stmt
12874: ( p_log_head => g_log_head || l_api_name,
12875: p_token => l_progress,
12876: p_message => 'Derive po_line_id from line num ' || x_po_line_num
12877: );
12951:
12952: EXCEPTION
12953: WHEN NO_DATA_FOUND THEN
12954: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12955: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12956: p_token => l_progress,
12957: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12958: END IF;
12959: x_po_shipment_num := -1;
12958: END IF;
12959: x_po_shipment_num := -1;
12960: WHEN OTHERS THEN
12961: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12962: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12963: p_progress => l_progress);
12964: END IF;
12965: wrapup(x_interface_header_id);
12966: RAISE;
13044:
13045: EXCEPTION
13046: WHEN NO_DATA_FOUND THEN
13047: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13048: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
13049: p_token => l_progress,
13050: p_message => 'NO_DATA_FOUND: '||SQLERRM);
13051: END IF;
13052: WHEN OTHERS THEN
13050: p_message => 'NO_DATA_FOUND: '||SQLERRM);
13051: END IF;
13052: WHEN OTHERS THEN
13053: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
13054: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
13055: p_progress => l_progress);
13056: END IF;
13057: wrapup(x_interface_header_id);
13058: RAISE;
13160:
13161: EXCEPTION
13162: WHEN NO_DATA_FOUND THEN
13163: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13164: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
13165: p_token => l_progress,
13166: p_message => 'NO_DATA_FOUND: '||SQLERRM);
13167: END IF;
13168: x_po_shipment_num := -1;
13167: END IF;
13168: x_po_shipment_num := -1;
13169: WHEN OTHERS THEN
13170: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
13171: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
13172: p_progress => l_progress);
13173: END IF;
13174: wrapup(x_interface_header_id);
13175: RAISE;
13264:
13265: EXCEPTION
13266: WHEN NO_DATA_FOUND THEN
13267: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13268: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
13269: p_token => l_progress,
13270: p_message => 'NO_DATA_FOUND: '||SQLERRM);
13271: END IF;
13272: x_po_shipment_num := -1;
13271: END IF;
13272: x_po_shipment_num := -1;
13273: WHEN OTHERS THEN
13274: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
13275: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
13276: p_progress => l_progress);
13277: END IF;
13278: wrapup(x_interface_header_id);
13279: RAISE;
13306: INTERFACE_HEADER_ID=x_interface_header_id;
13307: exception
13308: When others then
13309: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
13310: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
13311: p_progress => l_progress);
13312: END IF;
13313: wrapup(x_interface_header_id);
13314: raise;
13383: END IF;
13384: EXCEPTION
13385: WHEN NO_DATA_FOUND THEN
13386: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13387: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
13388: p_token => l_progress,
13389: p_message => 'NO_DATA_FOUND: '||SQLERRM);
13390: END IF;
13391: x_po_shipment_num := -1;
13390: END IF;
13391: x_po_shipment_num := -1;
13392: WHEN OTHERS THEN
13393: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
13394: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
13395: p_progress => l_progress);
13396: END IF;
13397: wrapup(x_interface_header_id);
13398: RAISE;
13414: IF (is_wip_enabled(x_requisition_line_id)) THEN
13415: l_progress := '200';
13416: x_po_shipment_num := -1;
13417: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13418: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
13419: p_token => l_progress,
13420: p_message => 'Req is WIP enabled ');
13421: END IF;
13422: END IF;
13434: l_group_shipments := x_group_shipments;
13435: END IF;
13436:
13437: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13438: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
13439: p_token => l_progress,
13440: p_message => 'l_group_shipments : '||l_group_shipments);
13441: END IF;
13442:
13446: x_po_shipment_num := -1;
13447: END IF;
13448:
13449: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13450: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
13451: END IF;
13452: EXCEPTION
13453: WHEN NO_DATA_FOUND THEN
13454: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13451: END IF;
13452: EXCEPTION
13453: WHEN NO_DATA_FOUND THEN
13454: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13455: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
13456: p_token => l_progress||'_main',
13457: p_message => 'NO_DATA_FOUND: '||SQLERRM);
13458: END IF;
13459: WHEN OTHERS THEN
13457: p_message => 'NO_DATA_FOUND: '||SQLERRM);
13458: END IF;
13459: WHEN OTHERS THEN
13460: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
13461: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
13462: p_progress => l_progress);
13463: END IF;
13464: po_message_s.sql_error('get_shipment_num',l_progress,sqlcode);
13465: wrapup(x_interface_header_id);
13491: l_progress VARCHAR2(3) := '000'; --< Bug 3210331 >
13492:
13493: BEGIN
13494: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13495: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
13496: END IF;
13497:
13498: /* Shipment Exists */
13499: IF (x_po_shipment_num <> -1) THEN
13668:
13669: END IF; /* Shipment Exists */
13670:
13671: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13672: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
13673: END IF;
13674: EXCEPTION
13675: WHEN NO_DATA_FOUND THEN
13676: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13673: END IF;
13674: EXCEPTION
13675: WHEN NO_DATA_FOUND THEN
13676: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13677: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
13678: p_token => l_progress||'_main',
13679: p_message => 'NO_DATA_FOUND: '||SQLERRM);
13680: END IF;
13681: WHEN OTHERS THEN
13679: p_message => 'NO_DATA_FOUND: '||SQLERRM);
13680: END IF;
13681: WHEN OTHERS THEN
13682: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
13683: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
13684: p_progress => l_progress);
13685: END IF;
13686: po_message_s.sql_error('update_shipment',l_progress,sqlcode);
13687: wrapup(x_interface_header_id);
13714: --
13715: -- Added call to JG_GLOBE_UTIL_PKG.process_po_globe_event
13716:
13717: IF g_debug_stmt THEN
13718: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
13719: END IF;
13720:
13721: ---------------------------------------------------
13722: -- Check whether the Regional Package is installed
13758: -- Close the cursor
13759: dbms_sql.close_cursor(l_cursor);
13760:
13761: IF g_debug_stmt THEN
13762: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
13763: END IF;
13764: --
13765: EXCEPTION
13766:
13769: ----------------------------------------
13770: -- Regional Procedure is not installed
13771: ----------------------------------------
13772: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13773: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
13774: p_token => l_progress,
13775: p_message => 'NO_DATA_FOUND: '||SQLERRM);
13776: END IF;
13777:
13778: --
13779: WHEN OTHERS THEN
13780:
13781: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
13782: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
13783: p_progress => l_progress);
13784: END IF;
13785: RAISE;
13786: --
14149: -- Standard start of API savepoint
14150: SAVEPOINT create_price_break_pvt;
14151:
14152: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
14153: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
14154: END IF;
14155:
14156: begin
14157: SELECT po_line_locations_s.nextval
14159: FROM sys.dual;
14160: exception
14161: when others then
14162: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
14163: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
14164: p_progress => l_progress);
14165: END IF;
14166: po_message_s.sql_error('Exception of create_price_break()', l_progress,sqlcode);
14167: FND_MSG_PUB.Add;
14344:
14345: exception
14346: when others then
14347: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
14348: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
14349: p_progress => l_progress);
14350: END IF;
14351: po_message_s.sql_error('Exception of create_price_break()', l_progress, sqlcode);
14352: FND_MSG_PUB.Add;
14353: RAISE unexpected_create_pb_err;
14354: end;
14355:
14356: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
14357: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
14358: END IF;
14359: EXCEPTION
14360: when unexpected_create_pb_err then
14361: RAISE; --Bug 3336920
14361: RAISE; --Bug 3336920
14362: --ROLLBACK to create_price_break_pvt;
14363: when others then
14364: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
14365: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
14366: p_progress => l_progress);
14367: END IF;
14368: --ROLLBACK to create_price_break_pvt;
14369: RAISE; --Bug 3336920
14545: l_progress := '010';
14546: -- We do not allow req lines with Config ID to be placed on any document type
14547: -- other than Standard PO.
14548: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
14549: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
14550: p_token => l_progress,
14551: p_message => FND_MESSAGE.get_string('PO','PO_CONFIG_ID_ONLY_ON_STD_PO'));
14552: END IF;
14553: RETURN FALSE;
14556: EXCEPTION
14557:
14558: WHEN OTHERS THEN
14559: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
14560: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
14561: p_progress => l_progress);
14562: END IF;
14563: wrapup(p_interface_header_id);
14564: RAISE;
14613: l_msg_buf VARCHAR2(2000);
14614:
14615: BEGIN
14616: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
14617: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
14618: END IF;
14619:
14620: --
14621: IF (p_table_type = 'ALL') THEN
14724: END IF; -- if p_table_type = 'ALL'
14725: --
14726:
14727: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
14728: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
14729: END IF;
14730: EXCEPTION
14731:
14732: WHEN FND_API.G_EXC_ERROR THEN
14741: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
14742: l_msg_buf := SUBSTRB(FND_MSG_PUB.get(p_msg_index => i,
14743: p_encoded => FND_API.G_FALSE),
14744: 1, 2000);
14745: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
14746: p_token => l_progress,
14747: p_message => 'EXCEPTION: '|| l_msg_buf);
14748: END LOOP;
14749:
14751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14752:
14753: WHEN OTHERS THEN
14754: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
14755: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
14756: p_progress => l_progress);
14757: END IF;
14758: IF FND_MSG_PUB.check_msg_level(
14759: p_message_level => FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
14815: l_api_name CONSTANT VARCHAR2(30) := 'get_rate_for_req_price'; --< Bug 3210331 >
14816:
14817: BEGIN
14818: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
14819: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
14820: END IF;
14821:
14822: select req_fsp.set_of_books_id
14823: into l_req_ou_sob_id
14855: x_rate,
14856: l_display_rate);
14857:
14858: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
14859: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
14860: END IF;
14861: EXCEPTION
14862: WHEN OTHERS THEN
14863: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
14860: END IF;
14861: EXCEPTION
14862: WHEN OTHERS THEN
14863: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
14864: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
14865: p_progress => l_progress);
14866: END IF;
14867: po_message_s.sql_error('GET_RATE_FOR_REQ_PRICE',l_progress,sqlcode);
14868: END get_rate_for_req_price;