[Home] [Help]
360:
361: -- Bug 2875346 start.
362: --< Bug 3210331 Start >
363: -- Debugging booleans used to bypass logging when turned off
364: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
365: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
366: --< Bug 3210331 End >
367:
368: g_calculate_tax_flag VARCHAR2(1); --
361: -- Bug 2875346 start.
362: --< Bug 3210331 Start >
363: -- Debugging booleans used to bypass logging when turned off
364: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
365: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
366: --< Bug 3210331 End >
367:
368: g_calculate_tax_flag VARCHAR2(1); --
369:
563: l_progress VARCHAR2(3) := '000'; --< Bug 3210331 >
564: l_api_name VARCHAR2(30) := 'create_documents(wrapper1)'; --< Bug 3210331 >
565: BEGIN
566: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
567: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
568: END IF;
569:
570: create_documents(x_batch_id => x_batch_id,
571: x_document_id => x_document_id,
576: p_orig_org_id => p_orig_org_id --
577: );
578:
579: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
580: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
581: p_token => l_progress,
582: p_message => 'error code: '||x_errorcode);
583: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
584: END IF;
579: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
580: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
581: p_token => l_progress,
582: p_message => 'error code: '||x_errorcode);
583: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
584: END IF;
585:
586: EXCEPTION
587: WHEN OTHERS THEN
585:
586: EXCEPTION
587: WHEN OTHERS THEN
588: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
589: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
590: p_progress => l_progress);
591: END IF;
592: po_message_s.sql_error('CREATE_DOCUMENTS wrapper',l_progress,sqlcode);
593: raise;
631: l_progress VARCHAR2(3) := '000'; --< Bug 3210331 >
632:
633: BEGIN
634: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
635: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
636: END IF;
637:
638: create_documents (p_api_version => 1.0,
639: x_return_status => l_return_status,
661: x_errorcode := 3;
662: END IF;
663:
664: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
665: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
666: p_token => l_progress,
667: p_message => 'error code: '||x_errorcode);
668: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
669: END IF;
664: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
665: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
666: p_token => l_progress,
667: p_message => 'error code: '||x_errorcode);
668: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
669: END IF;
670:
671: EXCEPTION
672: WHEN OTHERS THEN
670:
671: EXCEPTION
672: WHEN OTHERS THEN
673: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
674: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
675: p_progress => l_progress);
676: END IF;
677: PO_MESSAGE_S.sql_error (routine => 'CREATE_DOCUMENTS',
678: location => l_progress,
788: END IF;
789:
790: l_progress := '010';
791: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
792: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
793: END IF;
794:
795: -- Bug 4778867:If p_orig_org_id is not specified get the current
796: -- Operating Unit Info from the Environment
844:
845: l_progress:='030';
846:
847: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
848: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
849: p_token => l_progress,
850: p_message => 'Before select min interface header for batch_id: '||p_batch_id);
851: END IF;
852:
878: l_progress := '050';
879: --
880: --Check for the uniqueness of the document number if manual numbering.
881: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
882: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
883: p_token => l_progress,
884: p_message => 'Document type is :'||g_document_type);
885: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
886: p_token => l_progress,
881: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
882: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
883: p_token => l_progress,
884: p_message => 'Document type is :'||g_document_type);
885: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
886: p_token => l_progress,
887: p_message => 'Sourcing to FPH-1 starts');
888: END IF;
889:
925: l_progress := '070';
926: --bug#2729465, with drawn req lines are deleted from po_requisition_lines
927: --table. Hence require a separate update.
928: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
929: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
930: p_token => l_progress,
931: p_message => 'Sourcing to PO FPH-1: before the update for withdrawn reqs');
932: END IF;
933:
942: end if;
943:
944: l_progress := '080';
945: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
946: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
947: p_token => l_progress,
948: p_message => 'Sourcing to FPH-1 Ends');
949: END IF;
950: --
975: IF(g_document_type in ('PO','PA')) THEN
976:
977: l_progress := '100';
978: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
979: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
980: p_token => l_progress,
981: p_message => 'Before create_po:');
982: END IF;
983:
991: ELSE
992:
993: l_progress := '110';
994: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
995: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
996: p_token => l_progress,
997: p_message => 'Before create_rfq:');
998: END IF;
999:
1009:
1010: l_progress:='120';
1011: --
1012: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1013: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1014: p_token => l_progress,
1015: p_message => 'Sourcing to FPH -2 starts');
1016: END IF;
1017:
1043:
1044: exception
1045: when others then
1046: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
1047: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
1048: p_progress => l_progress);
1049: END IF;
1050: wrapup(x_interface_header_id);
1051: --
1091: --
1092:
1093: l_progress:= '150';
1094: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1095: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1096: p_token => l_progress,
1097: p_message => 'Sourcing to FPH-2 Ends');
1098: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1099: p_token => l_progress,
1094: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1095: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1096: p_token => l_progress,
1097: p_message => 'Sourcing to FPH-2 Ends');
1098: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1099: p_token => l_progress,
1100: p_message => 'Create_documents: number of records processed: '||x_number_lines);
1101: END IF;
1102:
1148: END IF;
1149: --
1150:
1151: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1152: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
1153: END IF;
1154:
1155: EXCEPTION
1156:
1155: EXCEPTION
1156:
1157: WHEN OTHERS THEN
1158: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
1159: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
1160: p_progress => l_progress);
1161: END IF;
1162: wrapup(x_interface_header_id);
1163:
1188: p_encoded => 'F');
1189: --
1190:
1191: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1192: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
1193: END IF;
1194:
1195: END create_documents;
1196:
1276: tax_document_id NUMBER;
1277:
1278: BEGIN
1279: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1280: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
1281: END IF;
1282: --
1283: SAVEPOINT TAX_CALCULATION_ERROR;
1284:
1311: -- requisition.
1312:
1313: l_progress := '010';
1314: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1315: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1316: p_token => l_progress,
1317: p_message => 'Create PO: Before setup interface table');
1318: END IF;
1319:
1329: -- determine which interface lines and shipments should
1330: -- be grouped.
1331: l_progress := '030';
1332: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1333: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1334: p_token => l_progress,
1335: p_message => 'Create PO: Before Group interface lines');
1336: END IF;
1337:
1346: --
1347:
1348: l_progress := '040';
1349: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1350: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1351: p_token => l_progress,
1352: p_message => 'Create PO: After Group interface lines');
1353: END IF;
1354:
1361: BEGIN
1362:
1363: l_progress := '050';
1364: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1365: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1366: p_token => l_progress,
1367: p_message => 'Create po: Interface header id is '|| x_interface_header_id);
1368: END IF;
1369:
1373: where interface_header_id = x_interface_header_id
1374: and line_num is not null;
1375:
1376: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1377: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1378: p_token => l_progress,
1379: p_message => 'Create PO : Line found in po_lines_interfaces');
1380: END IF;
1381:
1381:
1382: EXCEPTION
1383: WHEN OTHERS THEN
1384: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
1385: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
1386: p_progress => l_progress);
1387: END IF;
1388: wrapup(x_interface_header_id);
1389: RAISE;
1602: */
1603:
1604: l_progress:='110';
1605: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1606: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1607: p_token => l_progress,
1608: p_message => 'Update PO_Headers Doc subtype is Std or planned');
1609: END IF;
1610: --Bug 2295672 jbalakri : added 'REJECTED' case in decode statement.
1641: ELSIF (interface.document_subtype = 'RELEASE') THEN
1642:
1643: l_progress:='120';
1644: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1645: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1646: p_token => l_progress,
1647: p_message => 'Update PO_Headers Doc subtype is Release');
1648: END IF;
1649:
1682: Added the revision_num at the end of the decode statement.*/
1683:
1684: l_progress:='150';
1685: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1686: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1687: p_token => l_progress,
1688: p_message => 'Update PO_Releases Doc subtype is Release');
1689: END IF;
1690:
1799: EXCEPTION
1800:
1801: WHEN NO_DATA_FOUND then
1802: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1803: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1804: p_token => l_progress,
1805: p_message => 'NO_DATA_FOUND: '||SQLERRM);
1806: END IF;
1807: x_is_valid:='N';
1808: x_valid_ship_to := NULL;
1809:
1810: WHEN OTHERS then
1811: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
1812: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
1813: p_progress => l_progress);
1814: END IF;
1815: raise;
1816: End;
1826: EXCEPTION
1827:
1828: WHEN NO_DATA_FOUND then
1829: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1830: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1831: p_token => l_progress,
1832: p_message => 'NO_DATA_FOUND: '||SQLERRM);
1833: END IF;
1834: x_is_valid:='N';
1835: x_valid_bill_to := NULL;
1836:
1837: WHEN OTHERS then
1838: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
1839: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
1840: p_progress => l_progress);
1841: END IF;
1842: raise;
1843: End;
1851: --
1852:
1853: l_progress:= '210';
1854: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
1855: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
1856: p_token => l_progress,
1857: p_message => 'Before Insert into PO_headers');
1858: END IF;
1859:
2002: );
2003: EXCEPTION
2004: WHEN DUP_VAL_ON_INDEX THEN
2005: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2006: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2007: p_token => l_progress,
2008: p_message => 'DUP_VAL_ON_INDEX: '||SQLERRM);
2009: END IF;
2010:
2017: END;
2018:
2019: l_progress:= '220';
2020: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2021: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2022: p_token => l_progress,
2023: p_message => 'After Insert into PO_headers');
2024: END IF;
2025:
2054: x_row_id => l_org_row_id);
2055: --
2056:
2057: IF g_debug_stmt THEN
2058: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2059: p_token => l_progress,
2060: p_message => 'After inserting into Org Assignments');
2061: END IF;
2062: END IF;
2120: null,
2121: null);
2122:
2123: IF g_debug_stmt THEN
2124: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2125: p_token => l_progress,
2126: p_message => 'After copying attachments from Sourcing');
2127: END IF;
2128: end if; --attachments for header
2133: calculate_local('PO', 'HEADER', interface.po_header_id);
2134: end if;
2135:
2136: IF g_debug_stmt THEN
2137: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2138: p_token => l_progress,
2139: p_message => 'After calculate_local');
2140: END IF;
2141:
2167: l_document_creation_method := 'CREATE_CONSUMPTION';
2168: END IF;
2169:
2170: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2171: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2172: p_token => l_progress,
2173: p_message => 'Before insert into PO_RELEASES');
2174: END IF;
2175:
2228: );
2229:
2230: l_progress:='290';
2231: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2232: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2233: p_token => l_progress,
2234: p_message => 'After insert into PO_RELEASES');
2235: END IF;
2236: -- Bug 882050: Release header level global attribute
2248: );
2249: --
2250:
2251: IF g_debug_stmt THEN
2252: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2253: p_token => l_progress,
2254: p_message => 'After create_line');
2255: END IF;
2256:
2267: );
2268: --
2269:
2270: IF g_debug_stmt THEN
2271: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2272: p_token => l_progress,
2273: p_message => 'After create_line (inside complex works loop)');
2274: END IF;
2275:
2291: -- Since we have the po_line_id available on po_attr_values_interface and tlp_interface
2292: -- we can move all records from interface to txn tables for all lines of a given blanket
2293: IF ((g_interface_source_code ='SOURCING') AND (g_document_subtype = 'BLANKET')) THEN
2294: IF g_debug_stmt THEN
2295: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2296: p_token => l_progress,
2297: p_message => 'Calling PO_ATTRIBUTE_VALUES_PVT.transfer_intf_item_attribs');
2298: END IF;
2299: PO_ATTRIBUTE_VALUES_PVT.transfer_intf_item_attribs(x_interface_header_id);
2301: --
2302:
2303:
2304: IF g_debug_stmt THEN
2305: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2306: p_token => l_progress,
2307: p_message => 'After PO_ATTRIBUTE_VALUES_PVT.transfer_intf_item_attribs');
2308: END IF;
2309:
2337: p_org_id => g_purchasing_ou_id
2338: );
2339:
2340: IF g_debug_stmt THEN
2341: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2342: p_token => l_progress,
2343: p_message => 'new po num = ' || x_document_num);
2344: END IF;
2345:
2360: l_contract_doc_type:= PO_CONTERMS_UTL_GRP.GET_PO_CONTRACT_DOCTYPE(
2361: p_sub_doc_type=>g_document_subtype);
2362:
2363: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2364: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2365: p_token => l_progress,
2366: p_message => 'Contracts template attached');
2367: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2368: p_progress => l_progress,
2363: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2364: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2365: p_token => l_progress,
2366: p_message => 'Contracts template attached');
2367: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2368: p_progress => l_progress,
2369: p_name => 'x_document_id',
2370: p_value => x_document_id);
2371: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2367: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2368: p_progress => l_progress,
2369: p_name => 'x_document_id',
2370: p_value => x_document_id);
2371: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2372: p_progress => l_progress,
2373: p_name => 'x_document_num',
2374: p_value => x_document_num);
2375: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2371: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2372: p_progress => l_progress,
2373: p_name => 'x_document_num',
2374: p_value => x_document_num);
2375: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2376: p_progress => l_progress,
2377: p_name => 'l_contract_doc_type',
2378: p_value => l_contract_doc_type);
2379: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2375: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2376: p_progress => l_progress,
2377: p_name => 'l_contract_doc_type',
2378: p_value => l_contract_doc_type);
2379: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2380: p_progress => l_progress,
2381: p_name => 'interface.bid_number',
2382: p_value => interface.bid_number);
2383: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2379: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2380: p_progress => l_progress,
2381: p_name => 'interface.bid_number',
2382: p_value => interface.bid_number);
2383: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2384: p_progress => l_progress,
2385: p_name => 'p_sourcing_k_doc_type',
2386: p_value => p_sourcing_k_doc_type);
2387: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2383: PO_DEBUG.debug_var (p_log_head => g_log_head||l_api_name,
2384: p_progress => l_progress,
2385: p_name => 'p_sourcing_k_doc_type',
2386: p_value => p_sourcing_k_doc_type);
2387: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2388: p_token => l_progress,
2389: p_message => 'before call okc_terms_copy_grp.copy_doc');
2390: END IF;
2391:
2411: );
2412:
2413: l_progress:='350';
2414: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2415: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2416: p_token => l_progress,
2417: p_message => 'after call okc_terms_copy_grp.copy_doc.Return status:'||l_return_status);
2418: END IF;
2419:
2471: exit;
2472: exception
2473: when DUP_VAL_ON_INDEX then
2474: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2475: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2476: p_token => l_progress,
2477: p_message => 'DUP_VAL_ON_INDEX: '||SQLERRM);
2478: END IF;
2479: RAISE;
2478: END IF;
2479: RAISE;
2480: when others then
2481: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
2482: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
2483: p_progress => l_progress);
2484: END IF;
2485: RAISE;
2486: end;
2592: end if;
2593: end if;
2594:
2595: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2596: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
2597: END IF;
2598: EXCEPTION
2599: --
2600: WHEN l_Contracts_call_exception then
2599: --
2600: WHEN l_Contracts_call_exception then
2601: -- put error messages in log
2602: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2603: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2604: p_token => l_progress,
2605: p_message => 'Create_po: Inside l_contracts_call_exception');
2606: END IF;
2607: Fnd_message.set_name('PO','PO_API_ERROR');
2613:
2614: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2615: l_msg_count := FND_MSG_PUB.Count_Msg;
2616: FOR i IN 1..l_msg_count LOOP
2617: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2618: p_token => l_progress||'_EXCEPTION_'||i,
2619: p_message => FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F'));
2620: END LOOP;
2621: END IF;
2629: Raise exception regardless of error. This will make debuging easier */
2630: WHEN OTHERS THEN
2631: -- wrapup(x_interface_header_id);
2632: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
2633: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
2634: p_progress => l_progress);
2635: END IF;
2636: po_message_s.sql_error('CREATE_PO',l_progress,sqlcode);
2637: if interface_cursor%isopen then
2820: l_retainage_rate PO_VENDOR_SITES_ALL.retainage_rate%type; --bug#5255878
2821: BEGIN
2822: l_outsourced_assembly :=2; --
2823: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2824: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
2825: END IF;
2826:
2827: --
2828: -- Determine the Requesting OU from the current requisition line.
2838: WHEN OTHERS
2839: THEN
2840: IF g_debug_unexp
2841: THEN
2842: PO_DEBUG.debug_exc(
2843: p_log_head => g_log_head||l_api_name,
2844: p_progress => l_progress
2845: );
2846: END IF;
2953:
2954: EXCEPTION
2955: WHEN NO_DATA_FOUND then
2956: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
2957: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
2958: p_token => l_progress,
2959: p_message => 'NO_DATA_FOUND: '||SQLERRM);
2960: END IF;
2961: END;
3038: exception
3039: when others
3040: then
3041: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3042: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3043: p_token => l_progress,
3044: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
3045: END IF;
3046: x_process_org := 'N';
3061: EXCEPTION
3062: WHEN OTHERS
3063: THEN
3064: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3065: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3066: p_token => l_progress,
3067: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
3068: END IF;
3069: x_item_number := NULL;
3129: --bug#3612701
3130: EXCEPTION
3131: WHEN OTHERS THEN
3132: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3133: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3134: p_progress => l_progress);
3135: END IF;
3136: po_message_s.sql_error('CREATE_LINE',l_progress,sqlcode);
3137: wrapup(interface.interface_header_id);
3139: END;
3140:
3141: l_progress := '120';
3142: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3143: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3144: p_token => l_progress,
3145: p_message => 'req uom: '||interface.unit_meas_lookup_code||' uom: '||l_ga_uom
3146: ||'document type: ' || l_from_type_lookup_code);
3147: END IF;
3161: x_quantity := round(x_quantity * l_conversion_rate , 15);
3162: x_unit_of_measure := l_ga_uom;
3163: ELSE -- UOM Convert is No, so do not create this line.
3164: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3165: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3166: p_token => l_progress,
3167: 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.');
3168: END IF;
3169: RETURN;
3180: /* If item is not null get list price and taxable flag */
3181:
3182: l_progress:='140';
3183: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3184: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3185: p_token => l_progress,
3186: p_message => 'Create_line: PO line does not exist');
3187: END IF;
3188:
3226:
3227: exception
3228: when no_data_found then
3229: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3230: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3231: p_token => l_progress,
3232: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3233: END IF;
3234: WHEN OTHERS THEN
3232: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3233: END IF;
3234: WHEN OTHERS THEN
3235: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3236: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3237: p_progress => l_progress);
3238: END IF;
3239: wrapup(x_interface_header_id);
3240: po_message_s.sql_error('Get Item/Org defaults',l_progress,sqlcode);
3276:
3277: exception
3278: when no_data_found then
3279: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3280: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3281: p_token => l_progress,
3282: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3283: END IF;
3284: WHEN OTHERS THEN
3282: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3283: END IF;
3284: WHEN OTHERS THEN
3285: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3286: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3287: p_progress => l_progress);
3288: END IF;
3289: wrapup(x_interface_header_id);
3290: po_message_s.sql_error('Get Item/Master org defaults',l_progress,sqlcode);
3320: WHERE line_type_id = interface.line_type_id;
3321: exception
3322: when no_data_found then
3323: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3324: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3325: p_token => l_progress,
3326: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3327: END IF;
3328: WHEN OTHERS THEN
3326: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3327: END IF;
3328: WHEN OTHERS THEN
3329: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3330: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3331: p_progress => l_progress);
3332: END IF;
3333: wrapup(x_interface_header_id);
3334: po_message_s.sql_error('Get Line type default',l_progress,sqlcode);
3353:
3354: Exception
3355: when no_data_found then
3356: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3357: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3358: p_token => l_progress,
3359: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3360: END IF;
3361: WHEN OTHERS THEN
3359: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3360: END IF;
3361: WHEN OTHERS THEN
3362: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3363: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3364: p_progress => l_progress);
3365: END IF;
3366: wrapup(x_interface_header_id);
3367: po_message_s.sql_error('Get vendor default',l_progress,sqlcode);
3392:
3393: Exception
3394: when no_data_found then
3395: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3396: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3397: p_token => l_progress,
3398: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3399: END IF;
3400: WHEN OTHERS THEN
3398: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3399: END IF;
3400: WHEN OTHERS THEN
3401: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3402: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3403: p_progress => l_progress);
3404: END IF;
3405: wrapup(x_interface_header_id);
3406: po_message_s.sql_error('Get po system default',l_progress,sqlcode);
3466: -- Bug #2102149
3467:
3468: l_progress := '210';
3469: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3470: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3471: p_token => l_progress,
3472: p_message => 'Create_line: line taxable_flag: '||item.taxable_flag);
3473: END IF;
3474:
3549: AND TASK_ID IS NOT NULL;
3550: EXCEPTION
3551: WHEN NO_DATA_FOUND THEN
3552: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3553: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3554: p_token => l_progress,
3555: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3556: END IF;
3557: WHEN OTHERS THEN
3555: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3556: END IF;
3557: WHEN OTHERS THEN
3558: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3559: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3560: p_progress => l_progress);
3561: END IF;
3562: RAISE;
3563: END;
3573: AND PROJECT_ID IS NOT NULL;
3574: EXCEPTION
3575: WHEN OTHERS THEN
3576: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3577: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3578: p_progress => l_progress);
3579: END IF;
3580: RAISE;
3581: END;
3593: WHERE DISTRIBUTION_ID = x_req_dist_id;
3594: EXCEPTION
3595: WHEN NO_DATA_FOUND THEN
3596: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3597: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3598: p_token => l_progress,
3599: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3600: END IF;
3601: WHEN OTHERS THEN
3599: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3600: END IF;
3601: WHEN OTHERS THEN
3602: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3603: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3604: p_progress => l_progress);
3605: END IF;
3606: RAISE;
3607: END;
3630: and organization_id =params.inventory_organization_id;
3631: exception
3632: when no_data_found then
3633: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3634: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3635: p_token => l_progress,
3636: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3637: END IF;
3638: when others then
3636: p_message => 'NO_DATA_FOUND: '||SQLERRM);
3637: END IF;
3638: when others then
3639: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3640: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3641: p_progress => l_progress);
3642: END IF;
3643: po_message_s.sql_error('Get un number,hazard class defaults'
3644: ,l_progress, sqlcode);
3654: where line_type_id= interface.line_type_id;
3655: exception
3656: when others then
3657: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
3658: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
3659: p_progress => l_progress);
3660: END IF;
3661: po_message_s.sql_error('Get UOM for amount based lines- defaults', l_progress, sqlcode);
3662: raise;
3805: --
3806:
3807: l_progress := '370';
3808: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3809: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3810: p_token => l_progress,
3811: p_message => 'Create_line: Line id: '||x_po_line_id);
3812: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3813: p_token => l_progress,
3808: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3809: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3810: p_token => l_progress,
3811: p_message => 'Create_line: Line id: '||x_po_line_id);
3812: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3813: p_token => l_progress,
3814: p_message => 'Create_line: Header_id : '||interface.po_header_id);
3815: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3816: p_token => l_progress,
3811: p_message => 'Create_line: Line id: '||x_po_line_id);
3812: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3813: p_token => l_progress,
3814: p_message => 'Create_line: Header_id : '||interface.po_header_id);
3815: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3816: p_token => l_progress,
3817: p_message => 'Create_line: Line number: '||interface.line_num);
3818: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3819: p_token => l_progress,
3814: p_message => 'Create_line: Header_id : '||interface.po_header_id);
3815: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3816: p_token => l_progress,
3817: p_message => 'Create_line: Line number: '||interface.line_num);
3818: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3819: p_token => l_progress,
3820: p_message => 'Create_line: TRX RSON CODE : '||interface.transaction_reason_code);
3821: END IF;
3822:
3874: END IF;
3875: EXCEPTION
3876: WHEN others THEN
3877: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
3878: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
3879: p_token => l_progress,
3880: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
3881: END IF;
3882: l_negotiated_by_preparer_flag:=NULL;
4182:
4183: --
4184: IF (g_document_subtype = 'BLANKET' AND g_interface_source_code = 'SOURCING') THEN
4185:
4186: 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;
4187:
4188: l_interface_header_id_tbl(x_po_line_id) := interface.interface_header_id;
4189: l_interface_line_id_tbl(x_po_line_id) := interface.interface_line_id;
4190: l_po_line_id_tbl(x_po_line_id) := x_po_line_id;
4225: ELSE /* If line exists */
4226:
4227: l_progress := '450';
4228: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4229: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4230: p_token => l_progress,
4231: p_message => 'Line does exist: '||x_po_line_id);
4232: END IF;
4233:
4269:
4270: exception
4271: when no_data_found then
4272: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4273: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4274: p_token => l_progress,
4275: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4276: END IF;
4277: WHEN OTHERS THEN
4275: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4276: END IF;
4277: WHEN OTHERS THEN
4278: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
4279: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
4280: p_progress => l_progress);
4281: END IF;
4282: wrapup(x_interface_header_id);
4283: po_message_s.sql_error('Get Item/Org defaults',l_progress,sqlcode);
4303: AND msi.organization_id = params.inventory_organization_id;
4304: exception
4305: when no_data_found then
4306: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4307: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4308: p_token => l_progress,
4309: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4310: END IF;
4311: WHEN OTHERS THEN
4309: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4310: END IF;
4311: WHEN OTHERS THEN
4312: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
4313: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
4314: p_progress => l_progress);
4315: END IF;
4316: wrapup(x_interface_header_id);
4317: po_message_s.sql_error('Get Item/Master org defaults',l_progress,sqlcode);
4340: WHERE line_type_id = interface.line_type_id;
4341: exception
4342: when no_data_found then
4343: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4344: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4345: p_token => l_progress,
4346: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4347: END IF;
4348: WHEN OTHERS THEN
4346: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4347: END IF;
4348: WHEN OTHERS THEN
4349: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
4350: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
4351: p_progress => l_progress);
4352: END IF;
4353: wrapup(x_interface_header_id);
4354: po_message_s.sql_error('Get Line type default',l_progress,sqlcode);
4373:
4374: Exception
4375: when no_data_found then
4376: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4377: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4378: p_token => l_progress,
4379: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4380: END IF;
4381: WHEN OTHERS THEN
4379: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4380: END IF;
4381: WHEN OTHERS THEN
4382: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
4383: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
4384: p_progress => l_progress);
4385: END IF;
4386: wrapup(x_interface_header_id);
4387: po_message_s.sql_error('Get vendor default',l_progress,sqlcode);
4412:
4413: Exception
4414: when no_data_found then
4415: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4416: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4417: p_token => l_progress,
4418: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4419: END IF;
4420: WHEN OTHERS THEN
4418: p_message => 'NO_DATA_FOUND: '||SQLERRM);
4419: END IF;
4420: WHEN OTHERS THEN
4421: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
4422: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
4423: p_progress => l_progress);
4424: END IF;
4425: wrapup(x_interface_header_id);
4426: po_message_s.sql_error('Get po system default',l_progress,sqlcode);
4461: IF (g_document_type = 'PO') THEN
4462:
4463: l_progress:='520';
4464: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4465: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4466: p_token => l_progress,
4467: p_message => 'Create_line: Po line exists');
4468: END IF;
4469:
4510: where pl.po_line_id = x_po_line_id;
4511: exception
4512: when others then
4513: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4514: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4515: p_token => l_progress,
4516: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
4517: END IF;
4518: end;
4538: and poll.shipment_num = l_min_shipment_num;
4539: EXCEPTION
4540: when others then
4541: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4542: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4543: p_token => l_progress,
4544: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
4545: END IF;
4546: END;
4688: l_progress := '600';
4689:
4690: l_progress := '610';
4691: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4692: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4693: p_token => l_progress,
4694: p_message => 'Before going to create shipments');
4695: END IF;
4696:
4933:
4934: l_progress := '700';
4935: --
4936: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4937: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4938: p_token => l_progress,
4939: p_message => 'Sourcing to FPH-3 starts');
4940: END IF;
4941:
4975: end if;
4976:
4977: l_progress := '730';
4978: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4979: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4980: p_token => l_progress,
4981: p_message => 'Sourcing to FPH-3 Ends');
4982: END IF;
4983: --
4994:
4995: l_progress := '740';
4996:
4997: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
4998: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
4999: p_token => l_progress,
5000: p_message => 'Before selecting one-time attachment');
5001: END IF;
5002:
5027: WHEN NO_DATA_FOUND THEN
5028: -- If cannot locate one-time loc attchmnt, do nothing. This
5029: -- supports original FPH behavior.
5030: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5031: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5032: p_token => l_progress,
5033: p_message => 'One-time loc attachment missing iP prefix, so do not try to move');
5034: END IF;
5035: END;
5081:
5082: l_progress:='760';
5083:
5084: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5085: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5086: p_token => l_progress,
5087: p_message => 'Create_line: Before update of po_requisition_lines');
5088: END IF;
5089:
5111: l_progress:='790';
5112: g_number_records_processed := g_number_records_processed + 1;
5113:
5114: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5115: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5116: p_token => l_progress,
5117: p_message => 'num records processed: '||g_number_records_processed);
5118: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
5119: END IF;
5114: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5115: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5116: p_token => l_progress,
5117: p_message => 'num records processed: '||g_number_records_processed);
5118: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
5119: END IF;
5120:
5121: --
5122: l_progress:='800';
5126: -- po_attr_values_interface and po_attr_values_interface_tlp
5127: IF (g_document_subtype = 'BLANKET' AND g_interface_source_code = 'SOURCING') THEN
5128: l_progress:='810';
5129:
5130: 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;
5131:
5132: --SQL What: Update the PO_LINE_ID on PO_ATTR_VALUES_INTERFACE table
5133: --SQL Why : To facilitate bulk update of attributes, later in the flow
5134: --SQL Join: interface_header_id, interface_line_id
5140: inventory_item_id = nvl(inventory_item_id, g_ATTR_VALUES_NULL_ID)
5141: WHERE po_attr_values_interface.interface_header_id = l_interface_header_id_tbl(i)
5142: AND po_attr_values_interface.interface_line_id = l_interface_line_id_tbl(i);
5143:
5144: 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;
5145:
5146: l_progress:='820';
5147: --SQL What: Update the PO_LINE_ID on PO_ATTR_VALUES_TLP_INTERFACE table
5148: --SQL Why : To facilitate bulk update of attributes, later in the flow
5155: inventory_item_id = nvl(inventory_item_id, g_ATTR_VALUES_NULL_ID)
5156: WHERE po_attr_values_tlp_interface.interface_header_id = l_interface_header_id_tbl(i)
5157: AND po_attr_values_tlp_interface.interface_line_id = l_interface_line_id_tbl(i);
5158:
5159: 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;
5160: END IF;
5161: --
5162:
5163: IF g_debug_stmt THEN PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name); END IF;
5159: 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;
5160: END IF;
5161: --
5162:
5163: IF g_debug_stmt THEN PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name); END IF;
5164: EXCEPTION
5165: WHEN NO_DATA_FOUND THEN
5166: IF (X_match_blanket_line = 'N') THEN
5167:
5165: WHEN NO_DATA_FOUND THEN
5166: IF (X_match_blanket_line = 'N') THEN
5167:
5168: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5169: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5170: p_token => l_progress,
5171: p_message => 'Create_line: Inside No data found : Match blanket line is N');
5172: END IF;
5173: null;
5173: null;
5174: ELSE
5175:
5176: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5177: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5178: p_token => l_progress,
5179: p_message => 'Create_line : Inside No data found : Match blanket line is not N');
5180: END IF;
5181: po_message_s.sql_error('CREATE_LINE', l_progress,sqlcode);
5187: --
5188: WHEN update_req_pool_fail then
5189: po_message_s.sql_error('CREATE_LINE',l_progress,sqlcode);
5190: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5191: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5192: p_token => l_progress,
5193: p_message => 'Create_documents: update_req_pool_fail exception : SQLCODE '||sqlcode);
5194: END IF;
5195: raise;
5196:
5197: --
5198: WHEN OTHERS THEN
5199: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
5200: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
5201: p_progress => l_progress);
5202: END IF;
5203: wrapup(x_interface_header_id);
5204: po_message_s.sql_error('CREATE_LINE',l_progress,sqlcode);
5301: l_matching_basis PO_LINE_TYPES.matching_basis%TYPE; --
5302:
5303: BEGIN
5304: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5305: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
5306: END IF;
5307:
5308: x_line_location_id:=null;
5309: x_quantity := interface.quantity;
5334: -- bug 5208159 : Conversion of req UOM to Quotation UOM should always happen if the
5335: -- source document is a quote and profile 'PO: Convert Requisition UOM to Source Document UOM'
5336: -- should be ignored in that case
5337: IF g_debug_stmt THEN
5338: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5339: p_token => l_progress,
5340: p_message => 'from line id :'||interface.from_line_id||'from header id:'||interface.from_header_id);
5341: END IF;
5342:
5351: FROM po_headers_all poh
5352: WHERE poh.po_header_id=interface.from_header_id ;
5353:
5354: IF g_debug_stmt THEN
5355: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5356: p_token => l_progress,
5357: p_message => 'l_from_type_lookup_code :'||l_from_type_lookup_code);
5358: END IF;
5359:
5361:
5362: EXCEPTION
5363: WHEN OTHERS THEN
5364: IF g_debug_unexp THEN
5365: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
5366: p_progress => l_progress);
5367: END IF;
5368: po_message_s.sql_error('CREATE_LINE',l_progress,sqlcode);
5369: wrapup(interface.interface_header_id);
5373:
5374: -- got the source document type, now compare it and if required do the UOM conversion
5375:
5376: IF g_debug_stmt THEN
5377: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5378: p_token => l_progress,
5379: p_message => 'x_uom_convert:'||x_uom_convert);
5380: END IF;
5381:
5411: -- Bug 2735840 END
5412: EXCEPTION
5413: WHEN OTHERS THEN
5414: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
5415: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
5416: p_progress => l_progress);
5417: END IF;
5418: po_message_s.sql_error('CREATE_SHIPMENTS',l_progress,sqlcode);
5419: wrapup(interface.interface_header_id);
5424: into the BPA uom if the uom's on the req and BPA are different .
5425: This conversion is done only if the Convert UOM profile option is set to Yes. */
5426:
5427: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5428: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5429: p_token => l_progress,
5430: p_message => 'Create_shipment: UOM: '||x_temp_uom);
5431: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5432: p_token => l_progress,
5427: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5428: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5429: p_token => l_progress,
5430: p_message => 'Create_shipment: UOM: '||x_temp_uom);
5431: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5432: p_token => l_progress,
5433: p_message => 'Create_shipment: item id: '||x_temp_item_id);
5434: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5435: p_token => l_progress,
5430: p_message => 'Create_shipment: UOM: '||x_temp_uom);
5431: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5432: p_token => l_progress,
5433: p_message => 'Create_shipment: item id: '||x_temp_item_id);
5434: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5435: p_token => l_progress,
5436: p_message => 'Create_shipment: PO UOM: '||x_po_uom);
5437: END IF;
5438:
5450: x_quantity := round(x_quantity * l_conversion_rate , 15);
5451: x_shipment_uom := x_po_uom ; --
5452:
5453: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5454: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5455: p_token => l_progress,
5456: p_message => 'Create_shipment: Converted Qty: '||x_quantity);
5457: END IF;
5458:
5486: AND poll.shipment_type in ('STANDARD','PLANNED', 'RFQ');
5487: EXCEPTION
5488: WHEN NO_DATA_FOUND THEN
5489: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5490: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5491: p_token => l_progress,
5492: p_message => 'NO_DATA_FOUND: '||SQLERRM);
5493: END IF;
5494: WHEN OTHERS THEN
5492: p_message => 'NO_DATA_FOUND: '||SQLERRM);
5493: END IF;
5494: WHEN OTHERS THEN
5495: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
5496: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
5497: p_progress => l_progress);
5498: END IF;
5499: po_message_s.sql_error('CREATE_SHIPMENTS',l_progress,sqlcode);
5500: wrapup(interface.interface_header_id);
5524:
5525: EXCEPTION
5526: WHEN NO_DATA_FOUND THEN
5527: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5528: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5529: p_token => l_progress,
5530: p_message => 'NO_DATA_FOUND: '||SQLERRM);
5531: END IF;
5532: WHEN OTHERS THEN
5530: p_message => 'NO_DATA_FOUND: '||SQLERRM);
5531: END IF;
5532: WHEN OTHERS THEN
5533: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
5534: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
5535: p_progress => l_progress);
5536: END IF;
5537: po_message_s.sql_error('CREATE_SHIPMENTS',l_progress,sqlcode);
5538: wrapup(interface.interface_header_id);
5576: where line_location_id = x_line_location_id;
5577: exception
5578: when others THEN
5579: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5580: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5581: p_token => l_progress,
5582: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
5583: END IF;
5584: x_ship_qty := 0;
5627: WHERE po_line_id=x_po_line_id;
5628: exception
5629: when others then
5630: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5631: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5632: p_token => l_progress,
5633: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
5634: END IF;
5635: x_price := null;
5645: ** Update everything except closed_code
5646: */
5647: l_progress:='120';
5648: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5649: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5650: p_token => l_progress,
5651: p_message => 'Create_shipment: shipment exist');
5652: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5653: p_token => l_progress,
5648: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5649: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5650: p_token => l_progress,
5651: p_message => 'Create_shipment: shipment exist');
5652: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5653: p_token => l_progress,
5654: p_message => 'Create_shipment: Update PO line locations');
5655: END IF;
5656:
5774: END IF;
5775:
5776: l_progress := '130';
5777: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5778: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5779: p_token => l_progress,
5780: p_message => 'Create shipment: Before calling Auto close');
5781: END IF;
5782:
5870: END IF;
5871:
5872: l_progress:='160';
5873: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5874: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5875: p_token => l_progress,
5876: p_message => 'create shipment: Shipment does not exist');
5877: END IF;
5878:
5907: ** Create a new shipment.
5908: */
5909: l_progress:='210';
5910: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5911: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5912: p_token => l_progress,
5913: p_message => 'Create shipment: Create a new shipment');
5914: END IF;
5915:
5989: --end of add for 1805397
5990:
5991: l_progress := '240';
5992: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
5993: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
5994: p_token => l_progress,
5995: p_message => 'Create shipment: Before insert into po line locations');
5996: END IF;
5997:
6023:
6024:
6025: l_progress := '250';
6026: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6027: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6028: p_token => l_progress,
6029: p_message => 'interface.trxn_flow_header_id='||interface.transaction_flow_header_id);
6030: END IF;
6031:
6312: , nvl2(g_calculate_tax_flag, 'CREATE', null) --
6313: );
6314: l_progress := '260';
6315: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6316: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6317: p_token => l_progress,
6318: p_message => 'Create shipment: After insert into po line locations');
6319: END IF;
6320:
6337: ** OE Callback function for maintaining so_drop_ship_sources table
6338: */
6339: --
6340: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6341: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6342: p_token => l_progress,
6343: p_message => 'Sourcing to FPH-4 starts');
6344: END IF;
6345:
6360: WHERE LINE_LOCATION_ID = x_line_location_id;
6361: EXCEPTION
6362: WHEN NO_DATA_FOUND THEN
6363: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6364: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6365: p_token => l_progress,
6366: p_message => 'NO_DATA_FOUND: '||SQLERRM);
6367: END IF;
6368: WHEN OTHERS THEN
6366: p_message => 'NO_DATA_FOUND: '||SQLERRM);
6367: END IF;
6368: WHEN OTHERS THEN
6369: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6370: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6371: p_token => l_progress,
6372: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
6373: END IF;
6374: END;
6381: WHERE requisition_line_id = interface.requisition_line_id;
6382: EXCEPTION
6383: WHEN NO_DATA_FOUND THEN
6384: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6385: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6386: p_token => l_progress,
6387: p_message => 'NO_DATA_FOUND: '||SQLERRM);
6388: END IF;
6389: WHEN OTHERS THEN
6387: p_message => 'NO_DATA_FOUND: '||SQLERRM);
6388: END IF;
6389: WHEN OTHERS THEN
6390: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6391: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6392: p_token => l_progress,
6393: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
6394: END IF;
6395: END;
6414: );
6415:
6416: l_progress := '310';
6417: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6418: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6419: p_token => l_progress,
6420: p_message => 'Sourcing to FPH-4 ends');
6421: END IF;
6422: --
6430:
6431: IF (g_document_type = 'PO') THEN
6432:
6433: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6434: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6435: p_token => l_progress,
6436: p_message => 'Create shipment: Before calling create_distribution');
6437: END IF;
6438: create_distributions(
6444:
6445: END IF;
6446:
6447: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6448: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
6449: END IF;
6450:
6451: EXCEPTION
6452: WHEN OTHERS THEN
6450:
6451: EXCEPTION
6452: WHEN OTHERS THEN
6453: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
6454: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
6455: p_progress => l_progress);
6456: END IF;
6457: wrapup(interface.interface_header_id);
6458: po_message_s.sql_error('CREATE_SHIPMENTS',l_progress,sqlcode);
6532:
6533: --introduced to hold the value of drop_ship_flag for shipments
6534: BEGIN
6535: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6536: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
6537: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6538: p_token => l_progress,
6539: p_message => 'Create_distributions: po_line_id: '||x_po_line_id);
6540: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6533: --introduced to hold the value of drop_ship_flag for shipments
6534: BEGIN
6535: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6536: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
6537: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6538: p_token => l_progress,
6539: p_message => 'Create_distributions: po_line_id: '||x_po_line_id);
6540: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6541: p_token => l_progress,
6536: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
6537: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6538: p_token => l_progress,
6539: p_message => 'Create_distributions: po_line_id: '||x_po_line_id);
6540: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6541: p_token => l_progress,
6542: p_message => 'Create_distributions: po_line_loc_id: '||x_line_location_id);
6543: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6544: p_token => l_progress,
6539: p_message => 'Create_distributions: po_line_id: '||x_po_line_id);
6540: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6541: p_token => l_progress,
6542: p_message => 'Create_distributions: po_line_loc_id: '||x_line_location_id);
6543: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6544: p_token => l_progress,
6545: p_message => 'Create_distributions: po_release_id: '||x_po_release_id);
6546: END IF;
6547:
6575: WHERE NVL(org_id, -99) = NVL(g_purchasing_ou_id, -99); --
6576:
6577:
6578: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6579: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6580: p_token => l_progress,
6581: p_message => 'Create_distributions: Order type: '||x_order_type_lookup_code);
6582: END IF;
6583:
6610: Exception
6611: WHEN NO_DATA_FOUND THEN
6612: /* Not all req has kanban id */
6613: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6614: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6615: p_token => l_progress,
6616: p_message => 'NO_DATA_FOUND: '||SQLERRM);
6617: END IF;
6618: WHEN OTHERS THEN
6616: p_message => 'NO_DATA_FOUND: '||SQLERRM);
6617: END IF;
6618: WHEN OTHERS THEN
6619: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
6620: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
6621: p_progress => l_progress);
6622: END IF;
6623: raise;
6624: End;
6705:
6706: EXCEPTION
6707: WHEN OTHERS THEN
6708: IF g_debug_unexp THEN
6709: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
6710: p_progress => l_progress);
6711: END IF;
6712: po_message_s.sql_error('CREATE_LINE',l_progress,sqlcode);
6713: wrapup(interface.interface_header_id);
6744: END IF; -- g_document_subtype
6745: -- Bug 2735840 END
6746:
6747: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6748: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6749: p_token => l_progress,
6750: p_message => 'Create_distributions: UOM is: '||x_po_uom);
6751: END IF;
6752: EXCEPTION
6751: END IF;
6752: EXCEPTION
6753: WHEN OTHERS THEN
6754: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
6755: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
6756: p_progress => l_progress);
6757: END IF;
6758: po_message_s.sql_error('CREATE_DISTRIBUTIONS',l_progress,sqlcode);
6759: wrapup(interface.interface_header_id);
6775: x_conversion_rate := 1;
6776:
6777: end if;
6778: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6779: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6780: p_token => l_progress,
6781: p_message => 'Create_distributions: Conversion rate is: '||x_conversion_rate);
6782: END IF;
6783:
6788: --
6789: --Dont insert distribution record if the various account_id s are
6790: --not defaulted for negotiation lines which are not backed by req for sourcing
6791: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6792: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6793: p_token => l_progress,
6794: p_message => 'Sourcing to FPH-5 starts');
6795: END IF;
6796: if (g_interface_source_code in ('SOURCING','CONSUMPTION_ADVICE') and -- CONSIGNED FPI
6828: --
6829:
6830: l_progress := '170';
6831: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
6832: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
6833: p_token => l_progress,
6834: p_message => 'Sourcing to FPH-5 ends and insert into distributions');
6835: END IF;
6836:
6853: WHERE pdi.interface_header_id = interface.interface_header_id
6854: AND pdi.interface_line_id = interface.interface_line_id
6855: AND poll.line_location_id = x_line_location_id;
6856:
6857: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_amount_ordered',l_amount_ordered);
6858: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_order_type_lookup_code',x_order_type_lookup_code);
6859: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_currency_conversion_rate',l_currency_conversion_rate);
6860: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_uom_conversion_rate',l_uom_conversion_rate);
6861: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_precision',x_precision);
6854: AND pdi.interface_line_id = interface.interface_line_id
6855: AND poll.line_location_id = x_line_location_id;
6856:
6857: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_amount_ordered',l_amount_ordered);
6858: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_order_type_lookup_code',x_order_type_lookup_code);
6859: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_currency_conversion_rate',l_currency_conversion_rate);
6860: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_uom_conversion_rate',l_uom_conversion_rate);
6861: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_precision',x_precision);
6862:
6855: AND poll.line_location_id = x_line_location_id;
6856:
6857: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_amount_ordered',l_amount_ordered);
6858: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_order_type_lookup_code',x_order_type_lookup_code);
6859: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_currency_conversion_rate',l_currency_conversion_rate);
6860: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_uom_conversion_rate',l_uom_conversion_rate);
6861: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_precision',x_precision);
6862:
6863:
6856:
6857: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_amount_ordered',l_amount_ordered);
6858: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_order_type_lookup_code',x_order_type_lookup_code);
6859: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_currency_conversion_rate',l_currency_conversion_rate);
6860: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_uom_conversion_rate',l_uom_conversion_rate);
6861: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_precision',x_precision);
6862:
6863:
6864: EXCEPTION
6857: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_amount_ordered',l_amount_ordered);
6858: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_order_type_lookup_code',x_order_type_lookup_code);
6859: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_currency_conversion_rate',l_currency_conversion_rate);
6860: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'l_uom_conversion_rate',l_uom_conversion_rate);
6861: PO_DEBUG.debug_var(g_log_head||l_api_name, l_progress, 'x_precision',x_precision);
6862:
6863:
6864: EXCEPTION
6865: WHEN OTHERS THEN
7159:
7160: exception
7161: when others then
7162: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7163: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7164: p_token => l_progress,
7165: p_message => 'EXCEPTION caught; SQL Code is '||SQLCODE||'; Error is '||SQLERRM);
7166: END IF;
7167: if c_dist%ISOPEN then
7169: end if;
7170: end;
7171:
7172: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7173: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
7174: END IF;
7175:
7176: EXCEPTION
7177: WHEN OTHERS THEN
7175:
7176: EXCEPTION
7177: WHEN OTHERS THEN
7178: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
7179: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
7180: p_progress => l_progress);
7181: END IF;
7182: wrapup(interface.interface_header_id);
7183: po_message_s.sql_error('CREATE_DISTRIBUTIONS',l_progress,sqlcode);
7228: l_shipment_amount PO_LINE_LOCATIONS_ALL.amount%TYPE;
7229:
7230: BEGIN
7231:
7232: l_progress:='000'; PO_DEBUG.debug_begin(l_log_head);
7233: l_progress:='010'; PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_location_id',p_line_location_id);
7234:
7235: -- Retrieve Distribution Data =============================================
7236: --
7229:
7230: BEGIN
7231:
7232: l_progress:='000'; PO_DEBUG.debug_begin(l_log_head);
7233: l_progress:='010'; PO_DEBUG.debug_var(l_log_head,l_progress,'p_line_location_id',p_line_location_id);
7234:
7235: -- Retrieve Distribution Data =============================================
7236: --
7237: -- Get the sum of all distribution amounts
7243: , l_last_distribution_id
7244: FROM po_distributions_all
7245: WHERE line_location_id = p_line_location_id;
7246:
7247: l_progress:='020'; PO_DEBUG.debug_var(l_log_head,l_progress,'l_sum_dist_amounts',l_sum_dist_amounts);
7248: l_progress:='030'; PO_DEBUG.debug_var(l_log_head,l_progress,'l_last_distribution_id',l_last_distribution_id);
7249:
7250:
7251: -- Get the shipment amount ================================================
7244: FROM po_distributions_all
7245: WHERE line_location_id = p_line_location_id;
7246:
7247: l_progress:='020'; PO_DEBUG.debug_var(l_log_head,l_progress,'l_sum_dist_amounts',l_sum_dist_amounts);
7248: l_progress:='030'; PO_DEBUG.debug_var(l_log_head,l_progress,'l_last_distribution_id',l_last_distribution_id);
7249:
7250:
7251: -- Get the shipment amount ================================================
7252: --
7254: INTO l_shipment_amount
7255: FROM po_line_locations_all
7256: WHERE line_location_id = p_line_location_id;
7257:
7258: l_progress:='040'; PO_DEBUG.debug_var(l_log_head,l_progress,'l_shipment_amount',l_shipment_amount);
7259:
7260:
7261: -- Correct the last distribution ==========================================
7262: --
7268: WHERE po_distribution_id = l_last_distribution_id
7269: RETURNING amount_ordered
7270: INTO l_last_dist_amount;
7271:
7272: l_progress:='050'; PO_DEBUG.debug_var(l_log_head,l_progress,'l_last_dist_amount',l_last_dist_amount);
7273:
7274: --=========================================================================
7275:
7276: l_progress:='060'; PO_DEBUG.debug_end(l_log_head);
7272: l_progress:='050'; PO_DEBUG.debug_var(l_log_head,l_progress,'l_last_dist_amount',l_last_dist_amount);
7273:
7274: --=========================================================================
7275:
7276: l_progress:='060'; PO_DEBUG.debug_end(l_log_head);
7277:
7278: EXCEPTION
7279:
7280: WHEN OTHERS THEN
7277:
7278: EXCEPTION
7279:
7280: WHEN OTHERS THEN
7281: PO_DEBUG.debug_exc ( p_log_head => l_log_head
7282: , p_progress => l_progress);
7283: RAISE;
7284:
7285: END calibrate_last_dist_amount;
7401: l_progress VARCHAR2(3) := '000'; --< Bug 3210331 >
7402:
7403: BEGIN
7404: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7405: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
7406: END IF;
7407:
7408: get_system_defaults;
7409:
7410: l_progress := '010';
7411: -- populate the interface tables with data from the
7412: -- requisition.
7413: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7414: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7415: p_token => l_progress,
7416: p_message => 'Create_rfq: Before setup_interface_tables');
7417: END IF;
7418:
7427: l_progress := '020';
7428: -- determine which interface lines and shipments should
7429: -- be grouped.
7430: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7431: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7432: p_token => l_progress,
7433: p_message => 'Create_rfq: Before group_interface_lines');
7434: END IF;
7435:
7439: );
7440:
7441: l_progress := '030';
7442: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7443: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7444: p_token => l_progress,
7445: p_message => 'Create_rfq: interface_hdr id '||x_interface_header_id);
7446: END IF;
7447:
7625: p_org_id => g_purchasing_ou_id
7626: );
7627:
7628: IF g_debug_stmt THEN
7629: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
7630: p_token => l_progress,
7631: p_message => 'new po num = ' || x_document_num);
7632: END IF;
7633:
7647:
7648: COMMIT;
7649:
7650: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7651: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
7652: END IF;
7653:
7654: EXCEPTION
7655: WHEN OTHERS THEN
7653:
7654: EXCEPTION
7655: WHEN OTHERS THEN
7656: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
7657: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
7658: p_progress => l_progress);
7659: END IF;
7660: wrapup(x_interface_header_id);
7661:
7682: l_api_name CONSTANT VARCHAR2(30) := 'get_system_defaults'; --< Bug 3210331 >
7683: l_progress VARCHAR2(3) := '000'; --< Bug 3210331 >
7684: BEGIN
7685: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7686: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
7687: END IF;
7688:
7689: /* Get WHO column values */
7690: who.user_id := nvl(fnd_global.user_id,0);
7747: po_core_s.get_period_name(params.sob_id,params.period_name,x_date);
7748: END IF;
7749:
7750: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7751: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
7752: END IF;
7753:
7754: EXCEPTION
7755: WHEN OTHERS THEN
7753:
7754: EXCEPTION
7755: WHEN OTHERS THEN
7756: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
7757: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
7758: p_progress => l_progress);
7759: END IF;
7760: wrapup(interface.interface_header_id);
7761: po_message_s.sql_error('GET SYSTEM DEFAULTS',l_progress,sqlcode);
7778: l_api_name CONSTANT VARCHAR2(30) := 'get_invoice_match_option'; --< Bug 3210331 >
7779:
7780: BEGIN
7781: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7782: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
7783: END IF;
7784:
7785: if (X_vendor_site_id is not null) then
7786: l_progress := '010';
7818: WHERE NVL(org_id, -99) = NVL(g_purchasing_ou_id, -99); --
7819: end if;
7820:
7821: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
7822: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
7823: END IF;
7824: EXCEPTION
7825: WHEN OTHERS THEN
7826: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
7823: END IF;
7824: EXCEPTION
7825: WHEN OTHERS THEN
7826: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
7827: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
7828: p_progress => l_progress);
7829: END IF;
7830: wrapup(interface.interface_header_id);
7831: po_message_s.sql_error('GET INVOICE MATCH OPTION',l_progress,sqlcode);
8023: ORDER BY pli.interface_line_id;
8024: l_api_name VARCHAR2(100) := 'generate_shared_proc_accounts';
8025: BEGIN
8026: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8027: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
8028: END IF;
8029:
8030: -- Ignore for RFQ's and Blankets
8031: IF ( g_document_type <> 'PO' OR
8032: g_document_subtype <> 'STANDARD' ) THEN
8033:
8034: l_progress := '010';
8035: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8036: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8037: p_token => l_progress,
8038: p_message => 'Ignoring... Type='|| g_document_type|| ' SubType='||g_document_subtype);
8039: END IF;
8040: RETURN;
8109: x_transaction_flow_header_id => l_transaction_flow_header_id);
8110: -- OUT NOCOPY NUMBER
8111:
8112: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8113: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8114: p_token => l_progress,
8115: p_message => 'After calling check_transaction_flow l_transaction_flow_header_id='
8116: || to_char(l_transaction_flow_header_id)|| ' l_return_status='
8117: ||l_return_status);
8143: exception_text => 'return_status='||l_return_status);
8144: ELSIF l_return_status = FND_API.g_ret_sts_success AND
8145: (l_item_in_linv_pou <> 'Y') THEN
8146: IF g_debug_stmt THEN
8147: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8148: p_token => l_progress,
8149: p_message => 'After calling check_item_in_linv_pou: Item does not exist in the
8150: logical inv org of the POU'||' l_return_status= '||l_return_status);
8151: END IF;
8176:
8177: IF (l_order_type_lookup_code <> 'AMOUNT') THEN
8178:
8179: IF g_debug_stmt THEN
8180: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8181: p_token => l_progress,
8182: p_message =>
8183: 'unit price in ROU currency: ' || l_unit_price
8184: || ', ROU / requisition rate: ' || l_req_header_rate );
8225: END IF; -- l_order_type_lookup_code
8226: -- Bug 3463242 END
8227:
8228: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8229: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8230: p_token => l_progress,
8231: p_message => 'Calling AG WF');
8232:
8233: -- Bug 3463242 START
8230: p_token => l_progress,
8231: p_message => 'Calling AG WF');
8232:
8233: -- Bug 3463242 START
8234: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8235: p_token => l_progress,
8236: p_message =>
8237: 'unit price in PO currency: ' || l_unit_price
8238: || ', ROU / PO rate: ' || l_rate_for_req_fields
8321:
8322: l_progress := '110';
8323:
8324: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8325: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8326: p_token => l_progress,
8327: p_message => 'After calling AG WF');
8328: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8329: p_token => l_progress,
8324: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8325: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8326: p_token => l_progress,
8327: p_message => 'After calling AG WF');
8328: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8329: p_token => l_progress,
8330: p_message => 'Before updating the interface table with trxflowhdrid l_transaction_flow_header_id='
8331: || to_char(l_transaction_flow_header_id)|| ' l_interface_line_id='
8332: ||to_char(l_interface_line_id)||' l_old_interface_line_id ='
8339: SET transaction_flow_header_id = l_transaction_flow_header_id
8340: WHERE interface_line_id = l_interface_line_id;
8341:
8342: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8343: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8344: p_token => l_progress,
8345: p_message => 'Transaction flow header id updated: SQL%ROWCOUNT = '||SQL%ROWCOUNT);
8346: END IF;
8347:
8372:
8373: CLOSE l_SPS_lines_csr;
8374:
8375: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8376: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
8377: END IF;
8378: EXCEPTION
8379: WHEN OTHERS THEN
8380: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
8377: END IF;
8378: EXCEPTION
8379: WHEN OTHERS THEN
8380: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
8381: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
8382: p_progress => l_progress);
8383: END IF;
8384: PO_MESSAGE_S.sql_error(l_api_name, l_progress, sqlcode);
8385: RAISE;
8464: l_req_rate PO_REQUISITION_LINES_ALL.rate%TYPE; -- Bug 7661419
8465:
8466: BEGIN
8467:
8468: l_progress:='000'; PO_DEBUG.debug_begin(l_log_head);
8469:
8470: -- Initialize Variables ===================================================
8471:
8472: -- Get the precision/extended precision for the PO Currency.
8481: END IF;
8482:
8483: -- Convert ================================================================
8484:
8485: l_progress:='010'; PO_DEBUG.debug_var(l_log_head,l_progress,'p_order_type_lookup_code',p_order_type_lookup_code);
8486:
8487: -- For 'Amount' based lines, we need to convert the quantity since
8488: -- quantity acts like amount.
8489: --
8489: --
8490: IF ( p_order_type_lookup_code = 'AMOUNT' ) THEN
8491:
8492: l_progress:='010';
8493: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Performing currency conversion on quantity.');
8494:
8495: -- Bug 7661419, No conversion for same currency.
8496: SELECT PRL.currency_code,
8497: Nvl(PRL.rate,1)
8516: --
8517: IF ( p_interface_source_code IN ('SOURCING','CONSUMPTION_ADVICE') ) THEN
8518:
8519: l_progress:='030';
8520: PO_DEBUG.debug_stmt(l_log_head,l_progress,'p_interface_source_code IN (SOURCING, CONSUMPTION ADVICE) - no currency conversion performed');
8521:
8522: ELSE -- ( p_interface_source_code NOT IN ('SOURCING','CONSUMPTION_ADVICE') )
8523:
8524: -- Retrieve information from the backing Requisition Line.
8555: --
8556: IF ( l_req_currency_code = p_po_currency_code ) THEN
8557:
8558: l_progress:='050';
8559: 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.');
8560:
8561: x_unit_price := l_req_currency_unit_price;
8562: x_amount := l_req_currency_amount;
8563:
8563:
8564: -- Bug 3794198 Start
8565: ELSIF (l_req_ou_currency_code = p_po_currency_code) THEN
8566: l_progress := '060';
8567: 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');
8568: x_unit_price := l_req_unit_price;
8569: x_amount := l_req_amount;
8570: -- Bug 3794198 End
8571:
8571:
8572: ELSE
8573:
8574: l_progress:='070';
8575: 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.');
8576:
8577: -- Bug 3472140: Added NVL() around l_ext_precision
8578: x_unit_price := round(l_req_unit_price/p_rate, NVL(l_ext_precision, 15));
8579: x_amount := round(l_req_amount/p_rate, l_precision);
8585: END IF; -- p_interface_source_code
8586:
8587: END IF; -- p_order_type_lookup_code
8588:
8589: l_progress:='090'; PO_DEBUG.debug_end(l_log_head);
8590:
8591: EXCEPTION
8592:
8593: WHEN OTHERS THEN
8590:
8591: EXCEPTION
8592:
8593: WHEN OTHERS THEN
8594: PO_DEBUG.debug_exc ( p_log_head => l_log_head
8595: , p_progress => l_progress);
8596: RAISE;
8597:
8598: END do_currency_conversion;
8709: --
8710:
8711: BEGIN
8712: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8713: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
8714: END IF;
8715:
8716: UPDATE po_headers_interface
8717: SET process_code = 'IN PROCESS'
8719:
8720: l_progress := '010';
8721:
8722: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8723: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8724: p_token => l_progress,
8725: p_message => 'Setup interface: before select action type');
8726: END IF;
8727:
8738: FROM po_headers_interface
8739: WHERE interface_header_id = x_interface_header_id;
8740:
8741: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8742: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8743: p_token => l_progress,
8744: p_message => 'Setup interface: mode is '||g_mode);
8745: END IF;
8746:
8777: AND NVL(org_id, -99) = NVL(g_purchasing_ou_id, -99)) --
8778: WHERE interface_header_id = x_interface_header_id;
8779:
8780: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8781: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8782: p_token => l_progress,
8783: p_message => 'After update of headers interface');
8784: END IF;
8785:
8811: WHERE ph.po_header_id = phi.po_header_id)
8812: WHERE interface_header_id = x_interface_header_id;
8813:
8814: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8815: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8816: p_token => l_progress,
8817: p_message => 'After update of headers interfacei rate and etc.');
8818: END IF;
8819:
8826: or (g_document_subtype='BLANKET' and g_interface_source_code='SOURCING')) THEN
8827: l_progress:='060';
8828:
8829: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8830: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8831: p_token => l_progress,
8832: p_message => 'In std/planned/rfq');
8833: END IF;
8834:
8844: x_document_id := x_po_header_id;
8845:
8846: l_progress:='070';
8847: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8848: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8849: p_token => l_progress,
8850: p_message => 'After select Doc is '||x_po_header_id);
8851: END IF;
8852:
8914: ELSIF(g_document_subtype='RELEASE')THEN
8915:
8916: l_progress := '080';
8917: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8918: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8919: p_token => l_progress,
8920: p_message => 'Setup: In release subtype');
8921: END IF;
8922:
8939: AND ph.type_lookup_code='BLANKET'
8940: AND NVL(ph.org_id, -99) = NVL(g_purchasing_ou_id, -99); --
8941:
8942: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8943: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8944: p_token => l_progress,
8945: p_message => 'Setup: Header id of Blanket: '||x_po_header_id);
8946: END IF;
8947:
8969: /* Bug 2816396
8970: Use the interface table value for pay_on_code when updating the table
8971: */
8972: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
8973: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
8974: p_token => l_progress,
8975: p_message => 'Sourcing to FPH-6 starts');
8976: END IF;
8977:
9078: AND pli.interface_line_id = x_min_interface_line_id)
9079: WHERE interface_header_id = x_interface_header_id;
9080:
9081: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9082: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9083: p_token => l_progress,
9084: p_message => 'Sourcing to FPH-6 ends');
9085: END IF;
9086:
9095: from po_headers_interface
9096: where interface_header_id = x_interface_header_id;
9097:
9098: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9099: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9100: p_token => l_progress,
9101: p_message => 'Setup interface:Before release update '||x_po_header_id);
9102: END IF;
9103:
9285: -- End of fix. Bug 623679, lpo, 02/27/98
9286:
9287: l_progress:='140';
9288: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9289: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9290: p_token => l_progress,
9291: p_message => 'Setup interface: After release update');
9292: END IF;
9293:
9455: IF (g_document_type in ('RFQ', 'PO')) THEN
9456:
9457: l_progress:='170';
9458: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9459: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9460: p_token => l_progress,
9461: p_message => 'Before insert into Distribution interface');
9462: END IF;
9463:
9591: WHERE interface_header_id = x_interface_header_id;
9592:
9593: l_progress:='180';
9594: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9595: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9596: p_token => l_progress,
9597: p_message => 'Count from dist iterface is '||x_count_dist);
9598: END IF;
9599:
9600: END IF;
9601:
9602: --
9603: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9604: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9605: p_token => l_progress,
9606: p_message => 'Sourcing to FPH-7 starts');
9607: END IF;
9608: --default the distribution for non req backing negotiations.The above
9726: end loop;
9727: end if;
9728:
9729: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9730: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9731: p_token => l_progress,
9732: p_message => 'Sourcing to FPH-7 ends');
9733: END IF;
9734: --
9781:
9782: l_progress:='210';
9783: --< Shared Proc FPJ Start >
9784: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9785: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
9786: p_token => l_progress,
9787: p_message => 'Calling generate_shared_proc_accounts');
9788: END IF;
9789:
9794: --
9795: --< Shared Proc FPJ End >
9796:
9797: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9798: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
9799: END IF;
9800:
9801: EXCEPTION
9802: WHEN OTHERS THEN
9800:
9801: EXCEPTION
9802: WHEN OTHERS THEN
9803: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
9804: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
9805: p_progress => l_progress);
9806: END IF;
9807: wrapup(x_interface_header_id);
9808: po_message_s.sql_error('SETUP INTERFACE TABLES',l_progress,sqlcode);
9818: ==========================================================================*/
9819: PROCEDURE wrapup(x_interface_header_id IN number) IS
9820: BEGIN
9821: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9822: PO_DEBUG.debug_begin(p_log_head => g_log_head||'wrapup');
9823: END IF;
9824:
9825: DELETE po_distributions_interface
9826: WHERE interface_header_id = x_interface_header_id;
9842: DELETE po_headers_interface
9843: WHERE interface_header_id = x_interface_header_id;
9844:
9845: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
9846: PO_DEBUG.debug_end(p_log_head => g_log_head||'wrapup');
9847: END IF;
9848: END wrapup;
9849:
9850: /* ============================================================================
10004:
10005: BEGIN
10006:
10007: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10008: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
10009: END IF;
10010:
10011: -- Bug 3201308 start
10012: -- Get the profile option values to determine grouping criteria
10031: END IF;
10032:
10033: l_progress := '020';
10034: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10035: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10036: p_token => l_progress,
10037: p_message => 'Mode is:'|| g_mode);
10038: END IF;
10039:
10157:
10158: EXIT WHEN interface_lines%NOTFOUND;
10159:
10160: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10161: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10162: p_progress => l_progress,
10163: p_name => 'x_deliver_to_location_id',
10164: p_value => x_deliver_to_location_id);
10165: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10161: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10162: p_progress => l_progress,
10163: p_name => 'x_deliver_to_location_id',
10164: p_value => x_deliver_to_location_id);
10165: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10166: p_progress => l_progress,
10167: p_name => 'x_destination_org_id',
10168: p_value => x_destination_org_id);
10169: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10165: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10166: p_progress => l_progress,
10167: p_name => 'x_destination_org_id',
10168: p_value => x_destination_org_id);
10169: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10170: p_progress => l_progress,
10171: p_name => 'x_need_by_date',
10172: p_value => x_need_by_date);
10173: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10169: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10170: p_progress => l_progress,
10171: p_name => 'x_need_by_date',
10172: p_value => x_need_by_date);
10173: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10174: p_progress => l_progress,
10175: p_name => 'x_unit_meas_lookup_code',
10176: p_value => x_unit_meas_lookup_code);
10177: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10173: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10174: p_progress => l_progress,
10175: p_name => 'x_unit_meas_lookup_code',
10176: p_value => x_unit_meas_lookup_code);
10177: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10178: p_progress => l_progress,
10179: p_name => 'x_transaction_reason_code',
10180: p_value => x_transaction_reason_code);
10181: END IF; -- debug logging
10226:
10227: EXCEPTION
10228: WHEN NO_DATA_FOUND THEN
10229: IF g_debug_stmt THEN
10230: PO_DEBUG.debug_stmt(
10231: p_log_head => g_log_head||l_api_name,
10232: p_token => l_progress,
10233: p_message => 'NO_DATA_FOUND: '||SQLERRM);
10234: END IF;
10237:
10238: l_progress := '090';
10239:
10240: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10241: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10242: p_token => l_progress,
10243: p_message => 'Line_num is :'|| x_po_line_num);
10244: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10245: p_token => l_progress,
10240: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10241: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10242: p_token => l_progress,
10243: p_message => 'Line_num is :'|| x_po_line_num);
10244: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10245: p_token => l_progress,
10246: p_message => 'Group_interface_lines progress is :'|| l_progress);
10247: END IF; -- debug logging
10248:
10321:
10322: l_progress:='120';
10323:
10324: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10325: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10326: p_token => l_progress,
10327: p_message => 'Group_interface_lines: mode is :'|| g_mode);
10328: END IF;
10329:
10366: -- Document is release case
10367:
10368: l_progress:='160';
10369: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10370: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10371: p_token => l_progress,
10372: p_message => 'Before opening interface_lines cursor');
10373: END IF;
10374:
10410:
10411: EXIT WHEN interface_lines%NOTFOUND;
10412:
10413: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10414: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10415: p_progress => l_progress,
10416: p_name => 'x_deliver_to_location_id',
10417: p_value => x_deliver_to_location_id);
10418: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10414: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10415: p_progress => l_progress,
10416: p_name => 'x_deliver_to_location_id',
10417: p_value => x_deliver_to_location_id);
10418: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10419: p_progress => l_progress,
10420: p_name => 'x_destination_org_id',
10421: p_value => x_destination_org_id);
10422: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10418: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10419: p_progress => l_progress,
10420: p_name => 'x_destination_org_id',
10421: p_value => x_destination_org_id);
10422: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10423: p_progress => l_progress,
10424: p_name => 'x_need_by_date',
10425: p_value => x_need_by_date);
10426: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10422: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10423: p_progress => l_progress,
10424: p_name => 'x_need_by_date',
10425: p_value => x_need_by_date);
10426: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10427: p_progress => l_progress,
10428: p_name => 'x_unit_meas_lookup_code',
10429: p_value => x_unit_meas_lookup_code);
10430: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10426: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10427: p_progress => l_progress,
10428: p_name => 'x_unit_meas_lookup_code',
10429: p_value => x_unit_meas_lookup_code);
10430: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
10431: p_progress => l_progress,
10432: p_name => 'x_transaction_reason_code',
10433: p_value => x_transaction_reason_code);
10434: END IF;
10479:
10480: EXCEPTION
10481: WHEN NO_DATA_FOUND THEN
10482: IF g_debug_stmt THEN
10483: PO_DEBUG.debug_stmt(
10484: p_log_head => g_log_head||l_api_name,
10485: p_token => l_progress,
10486: p_message => 'NO_DATA_FOUND: '||SQLERRM);
10487: END IF;
10490:
10491: l_progress := '190';
10492:
10493: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10494: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10495: p_token => l_progress,
10496: p_message => 'Group_interface_lines: Line_num is :'|| x_po_line_num);
10497: END IF;
10498:
10513: -- table to be the requisition line number + this max
10514:
10515: l_progress:='200';
10516: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10517: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10518: p_token => l_progress,
10519: p_message => 'Group_interface_lines: before select max ship num');
10520: END IF;
10521:
10534: AND NVL(pr.org_id, -99) = NVL(g_purchasing_ou_id, -99); --
10535:
10536: l_progress:='210';
10537: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10538: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10539: p_token => l_progress,
10540: p_message => 'Group_interface_lines: after select max ship num');
10541: END IF;
10542:
10583:
10584: l_progress := '230';
10585:
10586: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10587: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10588: p_token => l_progress,
10589: p_message => 'Before open interface: Grouping is default');
10590: END IF;
10591:
10670: -- req lines to the same po line and the shipments are identical.
10671:
10672: l_progress:='250';
10673: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10674: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10675: p_token => l_progress,
10676: p_message => 'Before get_shipment_num');
10677: END IF;
10678:
10713: -- get the next highest shipment number.
10714:
10715: l_progress:='270';
10716: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10717: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10718: p_token => l_progress,
10719: p_message => 'x_action = '||x_action);
10720: END IF;
10721:
10759:
10760: EXCEPTION
10761: WHEN NO_DATA_FOUND THEN
10762: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10763: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10764: p_token => l_progress,
10765: p_message => 'NO_DATA_FOUND: '||SQLERRM);
10766: END IF;
10767: WHEN others THEN
10765: p_message => 'NO_DATA_FOUND: '||SQLERRM);
10766: END IF;
10767: WHEN others THEN
10768: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
10769: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
10770: p_progress => l_progress);
10771: END IF;
10772: RAISE;
10773: END;
10816:
10817: l_progress := '310';
10818:
10819: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10820: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10821: p_token => l_progress,
10822: p_message => 'x_action = '||x_action);
10823: END IF;
10824:
10958:
10959: EXCEPTION
10960: WHEN NO_DATA_FOUND THEN
10961: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
10962: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
10963: p_token => l_progress,
10964: p_message => 'NO_DATA_FOUND: No match to po line: Doc type = '||g_document_type);
10965: END IF;
10966: x_po_line_num := -1;
10965: END IF;
10966: x_po_line_num := -1;
10967: WHEN OTHERS THEN
10968: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
10969: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
10970: p_progress => l_progress);
10971: END IF;
10972: wrapup(x_interface_header_id);
10973: RAISE;
11013:
11014: EXCEPTION
11015: WHEN NO_DATA_FOUND THEN
11016: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11017: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11018: p_token => l_progress,
11019: p_message => 'NO_DATA_FOUND: No match to po line: Doc type RFQ');
11020: END IF;
11021: x_po_line_num := -1;
11020: END IF;
11021: x_po_line_num := -1;
11022: WHEN OTHERS THEN
11023: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
11024: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
11025: p_progress => l_progress);
11026: END IF;
11027: wrapup(x_interface_header_id);
11028: RAISE;
11186:
11187: EXCEPTION
11188: WHEN NO_DATA_FOUND THEN
11189: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11190: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11191: p_token => l_progress,
11192: p_message => 'NO_DATA_FOUND: No match to po line in Interface- Doc type = '||g_document_type);
11193: END IF;
11194: x_po_line_num := -1;
11193: END IF;
11194: x_po_line_num := -1;
11195: WHEN OTHERS THEN
11196: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
11197: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
11198: p_progress => l_progress);
11199: END IF;
11200: wrapup(x_interface_header_id);
11201: RAISE;
11207:
11208: l_progress := '360';
11209:
11210: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11211: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11212: p_token => l_progress,
11213: p_message => 'Before select min line_num');
11214: END IF;
11215:
11232:
11233: EXCEPTION
11234: WHEN NO_DATA_FOUND THEN
11235: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11236: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11237: p_token => l_progress,
11238: p_message => 'NO_DATA_FOUND: No match to po line in Interface- Doc type RFQ');
11239: END IF;
11240: x_po_line_num := -1;
11239: END IF;
11240: x_po_line_num := -1;
11241: WHEN OTHERS THEN
11242: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
11243: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
11244: p_progress => l_progress);
11245: END IF;
11246: wrapup(x_interface_header_id);
11247: RAISE;
11295:
11296: l_progress := '390';
11297:
11298: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11299: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11300: p_token => l_progress,
11301: p_message => 'Before update_shipment');
11302: END IF;
11303:
11345: -- The shipment number should be 1.
11346:
11347: l_progress := '410';
11348: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11349: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11350: p_token => l_progress,
11351: p_message => 'Group_interface_lines: Line does not exist');
11352: END IF;
11353:
11365: -- Get the max line number already assigne in the interface table
11366:
11367: l_progress:='420';
11368: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11369: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11370: p_token => l_progress,
11371: p_message => 'Before select max line_num from po_lines_interface');
11372: END IF;
11373:
11385: l_progress := '430';
11386: --
11387:
11388: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11389: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11390: p_token => l_progress,
11391: p_message => 'Sourcing to FPH-8 starts');
11392: END IF;
11393:
11410:
11411: END IF; -- if x_requisition_id is not null
11412:
11413: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11414: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11415: p_token => l_progress,
11416: p_message => 'Sourcing to FPH-8 ends');
11417: END IF;
11418:
11469:
11470: EXIT WHEN interface_lines%NOTFOUND;
11471:
11472: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11473: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11474: p_token => l_progress,
11475: p_message => 'After fetch interface_lines cursor');
11476: END IF;
11477:
11484: -- update the interface table with the correct line number.
11485:
11486:
11487: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11488: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11489: p_progress => l_progress,
11490: p_name => 'x_line_type_id',
11491: p_value => x_line_type_id);
11492: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11488: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11489: p_progress => l_progress,
11490: p_name => 'x_line_type_id',
11491: p_value => x_line_type_id);
11492: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11493: p_progress => l_progress,
11494: p_name => 'x_item_id',
11495: p_value => x_item_id);
11496: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11492: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11493: p_progress => l_progress,
11494: p_name => 'x_item_id',
11495: p_value => x_item_id);
11496: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11497: p_progress => l_progress,
11498: p_name => 'x_item_revision',
11499: p_value => x_item_revision);
11500: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11496: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11497: p_progress => l_progress,
11498: p_name => 'x_item_revision',
11499: p_value => x_item_revision);
11500: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11501: p_progress => l_progress,
11502: p_name => 'x_unit_meas_lookup_code',
11503: p_value => x_unit_meas_lookup_code);
11504: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11500: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11501: p_progress => l_progress,
11502: p_name => 'x_unit_meas_lookup_code',
11503: p_value => x_unit_meas_lookup_code);
11504: PO_DEBUG.debug_var(p_log_head => g_log_head||l_api_name,
11505: p_progress => l_progress,
11506: p_name => 'x_transaction_reason_code',
11507: p_value => x_transaction_reason_code);
11508: END IF;
11548:
11549: EXCEPTION
11550: WHEN NO_DATA_FOUND THEN
11551: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11552: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11553: p_token => l_progress,
11554: p_message => 'NO_DATA_FOUND: '||SQLERRM);
11555: END IF;
11556: x_po_line_num := -1;
11565:
11566: x_interface_line_num := x_po_line_num;
11567:
11568: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11569: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11570: p_token => l_progress,
11571: p_message => 'After update of po_lines_interface line_num');
11572: END IF;
11573:
11597:
11598: EXCEPTION
11599: WHEN NO_DATA_FOUND THEN
11600: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11601: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11602: p_token => l_progress,
11603: p_message => 'NO_DATA_FOUND: '||SQLERRM);
11604: END IF;
11605: x_po_line_num := -1;
11652:
11653: END IF; -- of PO mode
11654:
11655: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11656: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
11657: END IF;
11658: EXCEPTION
11659: WHEN NO_DATA_FOUND THEN
11660: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11657: END IF;
11658: EXCEPTION
11659: WHEN NO_DATA_FOUND THEN
11660: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11661: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11662: p_token => l_progress,
11663: p_message => 'Exception block: NO_DATA_FOUND: '||SQLERRM);
11664: END IF;
11665: null;
11664: END IF;
11665: null;
11666: WHEN OTHERS THEN
11667: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
11668: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
11669: p_progress => l_progress||'_main');
11670: END IF;
11671: po_message_s.sql_error('GROUP INTERFACE LINES',l_progress,sqlcode);
11672: wrapup(x_interface_header_id);
11705: AND pk2_value = 'ONE_TIME_LOCATION'
11706: AND rownum = 1;
11707:
11708: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11709: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11710: p_token => l_progress,
11711: p_message => 'Req line '||p_req_line_id||' has one-time attachment');
11712: END IF;
11713:
11715:
11716: ELSE
11717:
11718: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11719: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11720: p_token => l_progress,
11721: p_message => 'Req line is null');
11722: END IF;
11723: RETURN FALSE;
11726:
11727: EXCEPTION
11728: WHEN NO_DATA_FOUND THEN
11729: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11730: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11731: p_token => l_progress,
11732: p_message => 'NO_DATA_FOUND: No one-time attachment for req line '||p_req_line_id);
11733: END IF;
11734: RETURN FALSE;
11733: END IF;
11734: RETURN FALSE;
11735: WHEN OTHERS THEN
11736: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
11737: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
11738: p_progress => l_progress);
11739: END IF;
11740: RETURN FALSE;
11741: END has_one_time_location;
11783: l_po_line_id NUMBER; -- bug2788115
11784:
11785: BEGIN
11786: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11787: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
11788: END IF;
11789:
11790: /* Bug 3201308 start */
11791: /* Get the profile option values to determine grouping criteria */
11824: IF g_document_type = 'PO' AND x_drop_ship_flag = 'Y' THEN
11825: x_create_new_line := 'Y';
11826: END IF;
11827: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11828: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11829: p_token => l_progress,
11830: p_message => 'One-time location. Shipment num = -1');
11831: END IF;
11832: RETURN;
11881:
11882: EXCEPTION
11883: WHEN NO_DATA_FOUND THEN
11884: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11885: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11886: p_token => l_progress,
11887: p_message => 'NO_DATA_FOUND: '||SQLERRM);
11888: END IF;
11889: x_po_shipment_num := -1;
11891: x_create_new_line := 'Y';
11892: end if;
11893: WHEN OTHERS THEN
11894: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
11895: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
11896: p_progress => l_progress);
11897: END IF;
11898: wrapup(x_interface_header_id);
11899: RAISE;
11922:
11923: EXCEPTION
11924: WHEN NO_DATA_FOUND THEN
11925: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11926: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11927: p_token => l_progress,
11928: p_message => 'NO_DATA_FOUND: '||SQLERRM);
11929: END IF;
11930: x_po_shipment_num := -1;
11932: x_create_new_line := 'Y';
11933: end if;
11934: WHEN OTHERS THEN
11935: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
11936: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
11937: p_progress => l_progress);
11938: END IF;
11939: wrapup(x_interface_header_id);
11940: RAISE;
11964:
11965: EXCEPTION
11966: WHEN NO_DATA_FOUND THEN
11967: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
11968: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
11969: p_token => l_progress,
11970: p_message => 'NO_DATA_FOUND: '||SQLERRM);
11971: END IF;
11972: x_po_shipment_num := -1;
11972: x_po_shipment_num := -1;
11973: x_create_new_line := 'Y';
11974: WHEN OTHERS THEN
11975: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
11976: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
11977: p_progress => l_progress);
11978: END IF;
11979: wrapup(x_interface_header_id);
11980: RAISE;
12028:
12029: EXCEPTION
12030: WHEN NO_DATA_FOUND THEN
12031: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12032: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12033: p_token => l_progress,
12034: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12035: END IF;
12036: x_po_shipment_num := -1;
12035: END IF;
12036: x_po_shipment_num := -1;
12037: WHEN OTHERS THEN
12038: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12039: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12040: p_progress => l_progress);
12041: END IF;
12042: wrapup(x_interface_header_id);
12043: RAISE;
12088:
12089: EXCEPTION
12090: WHEN NO_DATA_FOUND THEN
12091: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12092: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12093: p_token => l_progress,
12094: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12095: END IF;
12096: x_po_shipment_num := -1;
12095: END IF;
12096: x_po_shipment_num := -1;
12097: WHEN OTHERS THEN
12098: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12099: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12100: p_progress => l_progress);
12101: END IF;
12102: wrapup(x_interface_header_id);
12103: RAISE;
12126: WHEN NO_DATA_FOUND THEN
12127: --Bug5584718(we need to clear g_po_release_id)
12128: g_po_release_id := null;
12129: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12130: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12131: p_token => l_progress,
12132: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12133: END IF;
12134: WHEN OTHERS THEN
12132: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12133: END IF;
12134: WHEN OTHERS THEN
12135: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12136: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12137: p_progress => l_progress);
12138: END IF;
12139: wrapup(x_interface_header_id);
12140: RAISE;
12147: -- Derive po_line_id if only line number is provided
12148:
12149: IF (x_po_line_num <> -1 AND x_po_line_id IS NULL) THEN
12150:
12151: PO_DEBUG.debug_stmt
12152: ( p_log_head => g_log_head || l_api_name,
12153: p_token => l_progress,
12154: p_message => 'Derive po_line_id from line num ' || x_po_line_num
12155: );
12229:
12230: EXCEPTION
12231: WHEN NO_DATA_FOUND THEN
12232: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12233: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12234: p_token => l_progress,
12235: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12236: END IF;
12237: x_po_shipment_num := -1;
12236: END IF;
12237: x_po_shipment_num := -1;
12238: WHEN OTHERS THEN
12239: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12240: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12241: p_progress => l_progress);
12242: END IF;
12243: wrapup(x_interface_header_id);
12244: RAISE;
12322:
12323: EXCEPTION
12324: WHEN NO_DATA_FOUND THEN
12325: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12326: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12327: p_token => l_progress,
12328: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12329: END IF;
12330: WHEN OTHERS THEN
12328: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12329: END IF;
12330: WHEN OTHERS THEN
12331: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12332: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12333: p_progress => l_progress);
12334: END IF;
12335: wrapup(x_interface_header_id);
12336: RAISE;
12438:
12439: EXCEPTION
12440: WHEN NO_DATA_FOUND THEN
12441: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12442: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12443: p_token => l_progress,
12444: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12445: END IF;
12446: x_po_shipment_num := -1;
12445: END IF;
12446: x_po_shipment_num := -1;
12447: WHEN OTHERS THEN
12448: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12449: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12450: p_progress => l_progress);
12451: END IF;
12452: wrapup(x_interface_header_id);
12453: RAISE;
12542:
12543: EXCEPTION
12544: WHEN NO_DATA_FOUND THEN
12545: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12546: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12547: p_token => l_progress,
12548: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12549: END IF;
12550: x_po_shipment_num := -1;
12549: END IF;
12550: x_po_shipment_num := -1;
12551: WHEN OTHERS THEN
12552: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12553: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12554: p_progress => l_progress);
12555: END IF;
12556: wrapup(x_interface_header_id);
12557: RAISE;
12584: INTERFACE_HEADER_ID=x_interface_header_id;
12585: exception
12586: When others then
12587: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12588: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12589: p_progress => l_progress);
12590: END IF;
12591: wrapup(x_interface_header_id);
12592: raise;
12661: END IF;
12662: EXCEPTION
12663: WHEN NO_DATA_FOUND THEN
12664: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12665: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12666: p_token => l_progress,
12667: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12668: END IF;
12669: x_po_shipment_num := -1;
12668: END IF;
12669: x_po_shipment_num := -1;
12670: WHEN OTHERS THEN
12671: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12672: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12673: p_progress => l_progress);
12674: END IF;
12675: wrapup(x_interface_header_id);
12676: RAISE;
12688: x_po_shipment_num := -1;
12689: END IF;
12690:
12691: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12692: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
12693: END IF;
12694: EXCEPTION
12695: WHEN NO_DATA_FOUND THEN
12696: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12693: END IF;
12694: EXCEPTION
12695: WHEN NO_DATA_FOUND THEN
12696: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12697: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12698: p_token => l_progress||'_main',
12699: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12700: END IF;
12701: WHEN OTHERS THEN
12699: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12700: END IF;
12701: WHEN OTHERS THEN
12702: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12703: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12704: p_progress => l_progress);
12705: END IF;
12706: po_message_s.sql_error('get_shipment_num',l_progress,sqlcode);
12707: wrapup(x_interface_header_id);
12733: l_progress VARCHAR2(3) := '000'; --< Bug 3210331 >
12734:
12735: BEGIN
12736: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12737: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
12738: END IF;
12739:
12740: /* Shipment Exists */
12741: IF (x_po_shipment_num <> -1) THEN
12910:
12911: END IF; /* Shipment Exists */
12912:
12913: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12914: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
12915: END IF;
12916: EXCEPTION
12917: WHEN NO_DATA_FOUND THEN
12918: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12915: END IF;
12916: EXCEPTION
12917: WHEN NO_DATA_FOUND THEN
12918: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12919: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12920: p_token => l_progress||'_main',
12921: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12922: END IF;
12923: WHEN OTHERS THEN
12921: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12922: END IF;
12923: WHEN OTHERS THEN
12924: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12925: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12926: p_progress => l_progress);
12927: END IF;
12928: po_message_s.sql_error('update_shipment',l_progress,sqlcode);
12929: wrapup(x_interface_header_id);
12962: ----------------------------------------
12963: -- Regional Procedure is not installed
12964: ----------------------------------------
12965: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
12966: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
12967: p_token => l_progress,
12968: p_message => 'NO_DATA_FOUND: '||SQLERRM);
12969: END IF;
12970:
12971: --
12972: WHEN OTHERS THEN
12973:
12974: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
12975: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
12976: p_progress => l_progress);
12977: END IF;
12978: RAISE;
12979: --
13247: -- Standard start of API savepoint
13248: SAVEPOINT create_price_break_pvt;
13249:
13250: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13251: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
13252: END IF;
13253:
13254: begin
13255: SELECT po_line_locations_s.nextval
13257: FROM sys.dual;
13258: exception
13259: when others then
13260: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
13261: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
13262: p_progress => l_progress);
13263: END IF;
13264: po_message_s.sql_error('Exception of create_price_break()', l_progress,sqlcode);
13265: FND_MSG_PUB.Add;
13442:
13443: exception
13444: when others then
13445: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
13446: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
13447: p_progress => l_progress);
13448: END IF;
13449: po_message_s.sql_error('Exception of create_price_break()', l_progress, sqlcode);
13450: FND_MSG_PUB.Add;
13451: RAISE unexpected_create_pb_err;
13452: end;
13453:
13454: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13455: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
13456: END IF;
13457: EXCEPTION
13458: when unexpected_create_pb_err then
13459: RAISE; --Bug 3336920
13459: RAISE; --Bug 3336920
13460: --ROLLBACK to create_price_break_pvt;
13461: when others then
13462: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
13463: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
13464: p_progress => l_progress);
13465: END IF;
13466: --ROLLBACK to create_price_break_pvt;
13467: RAISE; --Bug 3336920
13639: l_progress := '010';
13640: -- We do not allow req lines with Config ID to be placed on any document type
13641: -- other than Standard PO.
13642: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13643: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
13644: p_token => l_progress,
13645: p_message => FND_MESSAGE.get_string('PO','PO_CONFIG_ID_ONLY_ON_STD_PO'));
13646: END IF;
13647: RETURN FALSE;
13650: EXCEPTION
13651:
13652: WHEN OTHERS THEN
13653: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
13654: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
13655: p_progress => l_progress);
13656: END IF;
13657: wrapup(p_interface_header_id);
13658: RAISE;
13707: l_msg_buf VARCHAR2(2000);
13708:
13709: BEGIN
13710: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13711: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
13712: END IF;
13713:
13714: --
13715: IF (p_table_type = 'ALL') THEN
13818: END IF; -- if p_table_type = 'ALL'
13819: --
13820:
13821: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13822: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
13823: END IF;
13824: EXCEPTION
13825:
13826: WHEN FND_API.G_EXC_ERROR THEN
13835: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
13836: l_msg_buf := SUBSTRB(FND_MSG_PUB.get(p_msg_index => i,
13837: p_encoded => FND_API.G_FALSE),
13838: 1, 2000);
13839: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
13840: p_token => l_progress,
13841: p_message => 'EXCEPTION: '|| l_msg_buf);
13842: END LOOP;
13843:
13845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13846:
13847: WHEN OTHERS THEN
13848: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
13849: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
13850: p_progress => l_progress);
13851: END IF;
13852: IF FND_MSG_PUB.check_msg_level(
13853: p_message_level => FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
13909: l_api_name CONSTANT VARCHAR2(30) := 'get_rate_for_req_price'; --< Bug 3210331 >
13910:
13911: BEGIN
13912: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13913: PO_DEBUG.debug_begin(p_log_head => g_log_head||l_api_name);
13914: END IF;
13915:
13916: select req_fsp.set_of_books_id
13917: into l_req_ou_sob_id
13949: x_rate,
13950: l_display_rate);
13951:
13952: IF g_debug_stmt THEN --< Bug 3210331: use proper debugging >
13953: PO_DEBUG.debug_end(p_log_head => g_log_head||l_api_name);
13954: END IF;
13955: EXCEPTION
13956: WHEN OTHERS THEN
13957: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
13954: END IF;
13955: EXCEPTION
13956: WHEN OTHERS THEN
13957: IF g_debug_unexp THEN --< Bug 3210331: use proper debugging >
13958: PO_DEBUG.debug_exc(p_log_head => g_log_head||l_api_name,
13959: p_progress => l_progress);
13960: END IF;
13961: po_message_s.sql_error('GET_RATE_FOR_REQ_PRICE',l_progress,sqlcode);
13962: END get_rate_for_req_price;