[Home] [Help]
307: l_err_string VARCHAR2(4000);
308: l_batch_count PLS_INTEGER;
309: l_row_count PLS_INTEGER;
310: l_count PLS_INTEGER;
311: l_BPA_line_status_rec ICX_CAT_POPULATE_STATUS_PVT.g_BPA_line_status_rec_type;
312: l_BPA_line_status PLS_INTEGER;
313: l_current_ctx_item_rec ICX_CAT_POPULATE_ITEM_PVT.g_ctx_item_rec_type;
314: l_current_flag_rec ICX_CAT_POPULATE_ITEM_PVT.g_bpa_online_flag_rec_type;
315:
525: THEN
526: l_err_loc := 700;
527: -- The GBPAs created for bulkload items will not be in approved
528: -- status during upgrade, so treat them as valid during upgrade.
529: l_BPA_line_status := ICX_CAT_POPULATE_STATUS_PVT.VALID_FOR_POPULATE;
530: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
531: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
532: ICX_CAT_UTIL_PVT.getModuleNameForDebug(g_pkg_name, l_api_name),
533: 'bpa status is hard-coded to valid for' ||
547: l_BPA_line_status_rec.expiration_date := l_expiration_date_tbl(i);
548: l_BPA_line_status_rec.system_date := l_system_date_tbl(i);
549:
550: l_err_loc := 900;
551: l_BPA_line_status := ICX_CAT_POPULATE_STATUS_PVT.getBPALineStatus(l_BPA_line_status_rec);
552: END IF;
553:
554: l_err_loc := 1000;
555: --bug 16374319 begin
555: --bug 16374319 begin
556: IF (l_authorization_status_tbl(i) = 'APPROVED'
557: AND
558: (l_ctx_rowid_tbl(i) IS NOT NULL OR
559: l_BPA_line_status = ICX_CAT_POPULATE_STATUS_PVT.VALID_FOR_POPULATE))
560: --bug 16374319 end
561: THEN
562: l_err_loc := 1100;
563: l_current_ctx_item_rec.inventory_item_id := l_inv_item_id_tbl(i);
1346:
1347: FOR i in 1..l_po_line_id_tbl.COUNT LOOP
1348: l_err_loc := 700;
1349: --First get the status of the current GBPA line
1350: l_GBPA_line_status := ICX_CAT_POPULATE_STATUS_PVT.getGlobalAgreementStatus(l_enabled_flag_tbl(i));
1351:
1352: --bug 16374319 begin
1353: SELECT NVL(authorization_status, 'INCOMPLETE')
1354: INTO l_authorization_status
1358: l_err_loc := 800;
1359: IF (l_authorization_status = 'APPROVED'
1360: AND
1361: (l_ctx_rowid_tbl(i) IS NOT NULL OR
1362: l_GBPA_line_status = ICX_CAT_POPULATE_STATUS_PVT.VALID_FOR_POPULATE))
1363: --bug 16374319 end
1364: THEN
1365: l_err_loc := 900;
1366: l_current_ctx_item_rec.inventory_item_id := l_inv_item_id_tbl(i);
1691: pv.vendor_name supplier,
1692: ph.global_agreement_flag global_agreement_flag,
1693: --For Quote line status
1694: DECODE(ph.type_lookup_code, 'QUOTATION',
1695: ICX_CAT_POPULATE_STATUS_PVT.getQuoteLineStatus(pl.po_line_id),
1696: NULL) quote_status,
1697: --For blanket line status
1698: ph.approved_date,
1699: NVL(ph.authorization_status, 'INCOMPLETE') authorization_status,
1791: pv.vendor_name supplier,
1792: ph.global_agreement_flag global_agreement_flag,
1793: --For Quote line status
1794: DECODE(ph.type_lookup_code, 'QUOTATION',
1795: ICX_CAT_POPULATE_STATUS_PVT.getQuoteLineStatus(pl.po_line_id),
1796: NULL) quote_status,
1797: --For blanket line status
1798: ph.approved_date,
1799: NVL(ph.authorization_status, 'INCOMPLETE') authorization_status,
1862: l_err_string VARCHAR2(4000);
1863: l_batch_count PLS_INTEGER;
1864: l_row_count PLS_INTEGER;
1865: l_count PLS_INTEGER;
1866: l_BPA_line_status_rec ICX_CAT_POPULATE_STATUS_PVT.g_BPA_line_status_rec_type;
1867: l_podoc_status PLS_INTEGER;
1868: l_current_ctx_item_rec ICX_CAT_POPULATE_ITEM_PVT.g_ctx_item_rec_type;
1869:
1870: ----- Start of declaring columns selected in the cursor -----
2079: THEN
2080: l_err_loc := 700;
2081: -- The GBPAs created for bulkload items will not be in approved
2082: -- status during upgrade, so treat them as valid during upgrade.
2083: l_podoc_status := ICX_CAT_POPULATE_STATUS_PVT.VALID_FOR_POPULATE;
2084: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2085: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,
2086: ICX_CAT_UTIL_PVT.getModuleNameForDebug(g_pkg_name, l_api_name),
2087: 'bpa status is hard-coded to valid for' ||
2101: l_BPA_line_status_rec.expiration_date := l_expiration_date_tbl(i);
2102: l_BPA_line_status_rec.system_date := l_system_date_tbl(i);
2103:
2104: l_err_loc := 900;
2105: l_podoc_status := ICX_CAT_POPULATE_STATUS_PVT.getBPALineStatus(l_BPA_line_status_rec);
2106: END IF;
2107: ELSE
2108: l_podoc_status := l_quote_status_tbl(i);
2109: END IF;
2109: END IF;
2110:
2111: l_err_loc := 1000;
2112: IF (l_ctx_rowid_tbl(i) IS NOT NULL OR
2113: l_podoc_status = ICX_CAT_POPULATE_STATUS_PVT.VALID_FOR_POPULATE)
2114: THEN
2115: l_err_loc := 1100;
2116: l_current_ctx_item_rec.inventory_item_id := l_inv_item_id_tbl(i);
2117: l_current_ctx_item_rec.po_line_id := l_po_line_id_tbl(i);
2335: NVL(ph.vendor_id, -2) supplier_id,
2336: NVL(pl.vendor_product_num, '##NULL##') supplier_part_num,
2337: NVL(pl.supplier_part_auxid, '##NULL##') supplier_part_auxid,
2338: NVL(ph.vendor_site_id, -2) supplier_site_id,
2339: ICX_CAT_POPULATE_STATUS_PVT.getQuoteLineStatus(pl.po_line_id) status,
2340: pl.ip_category_id ip_category_id,
2341: ic.category_name ip_category_name,
2342: NVL(pl.item_revision, '-2') item_revision,
2343: ph.po_header_id,
2583:
2584: FOR i in 1..l_po_line_id_tbl.COUNT LOOP
2585: l_err_loc := 700;
2586: IF (l_ctx_rowid_tbl(i) IS NOT NULL OR
2587: l_status_tbl(i) = ICX_CAT_POPULATE_STATUS_PVT.VALID_FOR_POPULATE)
2588: THEN
2589: l_err_loc := 800;
2590: l_current_ctx_item_rec.inventory_item_id := l_inv_item_id_tbl(i);
2591: l_current_ctx_item_rec.po_line_id := l_po_line_id_tbl(i);