[Home] [Help]
247: -- resp_appl_id => 201 );
248: --Modifies:
249: -- If all validations are successful, the requested and derived changes
250: -- will be applied to the database tables (ex. PO_HEADERS_ALL,
251: -- PO_LINES_ALL, etc.).
252: -- p_changes will be updated with all of the derived changes, including
253: -- the new LINE_LOCATION_ID and PO_DISTRIBUTION_ID for each split shipment
254: -- and split distribution.
255: --Locks:
793: add_error (
794: p_api_errors => g_api_errors,
795: x_return_status => x_return_status,
796: p_message_name => 'PO_INVALID_DOC_IDS',
797: p_table_name => 'PO_LINES_ALL',
798: p_column_name => 'PO_LINE_ID',
799: p_entity_type => G_ENTITY_TYPE_LINES,
800: p_entity_id => i
801: );
1564: WHEN OTHERS THEN
1565: add_error ( p_api_errors => g_api_errors,
1566: x_return_status => x_return_status,
1567: p_message_name => 'PO_CHNG_INVALID_UOM_CONVERSION',
1568: p_table_name => 'PO_LINES_ALL',
1569: p_column_name => 'UNIT_MEAS_LOOKUP_CODE',
1570: p_entity_type => G_ENTITY_TYPE_LINES,
1571: p_entity_id => i );
1572: RETURN;
1611: WHEN OTHERS THEN
1612: add_error ( p_api_errors => g_api_errors,
1613: x_return_status => x_return_status,
1614: p_message_name => 'PO_CHNG_INVALID_UOM_CONVERSION',
1615: p_table_name => 'PO_LINES_ALL',
1616: p_column_name => 'UNIT_MEAS_LOOKUP_CODE',
1617: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
1618: p_entity_id => i );
1619: RETURN;
1658: WHEN OTHERS THEN
1659: add_error ( p_api_errors => g_api_errors,
1660: x_return_status => x_return_status,
1661: p_message_name => 'PO_CHNG_INVALID_UOM_CONVERSION',
1662: p_table_name => 'PO_LINES_ALL',
1663: p_column_name => 'UNIT_MEAS_LOOKUP_CODE',
1664: p_entity_type => G_ENTITY_TYPE_DISTRIBUTIONS,
1665: p_entity_id => i );
1666: RETURN;
1783: IF (l_shipment_count > 1) THEN -- The line has multiple shipments
1784: add_error ( p_api_errors => g_api_errors,
1785: x_return_status => x_return_status,
1786: p_message_name => 'PO_CHNG_QTY_AMT_MULTI_SHIP',
1787: p_table_name => 'PO_LINES_ALL',
1788: p_column_name => null,
1789: p_entity_type => G_ENTITY_TYPE_LINES,
1790: p_entity_id => i );
1791: END IF; -- l_num_shipments
1803:
1804: add_error ( p_api_errors => g_api_errors,
1805: x_return_status => x_return_status,
1806: p_message_name => 'PO_CHNG_QTY2_NO_UOM2',
1807: p_table_name => 'PO_LINES_ALL',
1808: p_column_name => 'SECONDARY_QUANTITY',
1809: p_entity_type => G_ENTITY_TYPE_LINES,
1810: p_entity_id => i );
1811: END IF;
1822:
1823: add_error ( p_api_errors => g_api_errors,
1824: x_return_status => x_return_status,
1825: p_message_name => 'PO_CHNG_QTY2_NO_QTY',
1826: p_table_name => 'PO_LINES_ALL',
1827: p_column_name => 'SECONDARY_QUANTITY',
1828: p_entity_type => G_ENTITY_TYPE_LINES,
1829: p_entity_id => i );
1830: END IF;
1850: IF l_grade_control_flag = 'N' THEN
1851: add_error ( p_api_errors => g_api_errors,
1852: x_return_status => x_return_status,
1853: p_message_name => 'INV_ITEM_NOT_GRADE_CTRL_EXP',
1854: p_table_name => 'PO_LINES_ALL',
1855: p_column_name => 'PREFERRED_GRADE',
1856: p_entity_type => G_ENTITY_TYPE_LINES,
1857: p_entity_id => i);
1858: END IF;
1877: IF (l_dual_uom_ind = 'P') THEN
1878: add_error ( p_api_errors => g_api_errors,
1879: x_return_status => x_return_status,
1880: p_message_name => 'PO_CHNG_NON_DUAL_ITEM',
1881: p_table_name => 'PO_LINES_ALL',
1882: p_column_name => 'SECONDARY_QUANTITY',
1883: p_entity_type => G_ENTITY_TYPE_LINES,
1884: p_entity_id => i );
1885:
1917: IF (l_dual_uom_ind = 'P') THEN
1918: add_error ( p_api_errors => g_api_errors,
1919: x_return_status => x_return_status,
1920: p_message_name => 'PO_CHNG_NON_DUAL_ITEM',
1921: p_table_name => 'PO_LINES_ALL',
1922: p_column_name => 'SECONDARY_QUANTITY',
1923: p_entity_type => G_ENTITY_TYPE_LINES,
1924: p_entity_id => i );
1925:
2233: OR (p_chg.line_changes.amount(i) IS NOT NULL) THEN
2234: add_error ( p_api_errors => g_api_errors,
2235: x_return_status => x_return_status,
2236: p_message_name => 'PO_CHNG_BLKT_LINE_BAD_FIELD',
2237: p_table_name => 'PO_LINES_ALL',
2238: p_column_name => 'QUANTITY',
2239: p_token_name1 => 'COLUMN_NAME',
2240: p_token_value1 => 'QUANTITY',
2241: p_entity_type => G_ENTITY_TYPE_LINES,
2309: IF (g_document_type = 'RELEASE') AND (p_chg.line_changes.get_count > 0) THEN
2310: add_error ( p_api_errors => g_api_errors,
2311: x_return_status => x_return_status,
2312: p_message_name => 'PO_CHNG_RELEASE_NO_LINES',
2313: p_table_name => 'PO_LINES_ALL',
2314: p_column_name => null,
2315: p_entity_type => G_ENTITY_TYPE_LINES );
2316: END IF;
2317:
2352:
2353: IF (p_chg.line_changes.unit_price(i) IS NOT NULL ) THEN
2354: add_error( p_api_errors => g_api_errors,x_return_status => x_return_status,
2355: p_message_name => 'PO_NO_PRICE_CHNG_FP_LINES',
2356: p_table_name => 'PO_LINES_ALL',p_column_name => 'PRICE',
2357: p_entity_type => g_entity_type_lines,p_entity_id => i);
2358: END IF;
2359: ELSIF (p_chg.line_changes.c_value_basis(i) = 'AMOUNT') THEN
2360: ------------------------------------------------------------------------
2363:
2364: IF (p_chg.line_changes.unit_price(i) IS NOT NULL ) THEN
2365: add_error( p_api_errors => g_api_errors,x_return_status => x_return_status,
2366: p_message_name => 'PO_NO_PRICE_CHNG_AMT_LINES',
2367: p_table_name => 'PO_LINES_ALL',p_column_name => 'PRICE',
2368: p_entity_type => g_entity_type_lines,p_entity_id => i);
2369: END IF;
2370: END IF;
2371: --< BUG 5406211 END >
2381: IF (p_chg.line_changes.quantity(i) IS NOT NULL) THEN
2382: add_error ( p_api_errors => g_api_errors,
2383: x_return_status => x_return_status,
2384: p_message_name => 'PO_SVC_NO_QTY',
2385: p_table_name => 'PO_LINES_ALL',
2386: p_column_name => 'QUANTITY',
2387: p_entity_type => G_ENTITY_TYPE_LINES,
2388: p_entity_id => i );
2389: END IF;
2397: IF (p_chg.line_changes.amount(i) IS NOT NULL) THEN
2398: add_error ( p_api_errors => g_api_errors,
2399: x_return_status => x_return_status,
2400: p_message_name => 'PO_SVC_NO_AMT',
2401: p_table_name => 'PO_LINES_ALL',
2402: p_column_name => 'AMOUNT',
2403: p_entity_type => G_ENTITY_TYPE_LINES,
2404: p_entity_id => i );
2405: END IF;
2418: IF (p_chg.line_changes.start_date(i) IS NOT NULL) THEN
2419: add_error ( p_api_errors => g_api_errors,
2420: x_return_status => x_return_status,
2421: p_message_name => 'PO_SVC_NO_START_END_DATE',
2422: p_table_name => 'PO_LINES_ALL',
2423: p_column_name => 'START_DATE',
2424: p_entity_type => G_ENTITY_TYPE_LINES,
2425: p_entity_id => i );
2426: END IF;
2428: IF (p_chg.line_changes.expiration_date(i) IS NOT NULL) THEN
2429: add_error ( p_api_errors => g_api_errors,
2430: x_return_status => x_return_status,
2431: p_message_name => 'PO_SVC_NO_START_END_DATE',
2432: p_table_name => 'PO_LINES_ALL',
2433: p_column_name => 'EXPIRATION_DATE',
2434: p_entity_type => G_ENTITY_TYPE_LINES,
2435: p_entity_id => i );
2436: END IF;
2648: l_new_quantity := p_chg.line_changes.quantity(i);
2649: l_new_price := p_chg.line_changes.unit_price(i);
2650: l_new_amount := p_chg.line_changes.amount(i);
2651:
2652: l_table_name := 'PO_LINES_ALL';
2653: l_qty_column_name := 'QUANTITY';
2654: l_price_column_name := 'UNIT_PRICE';
2655: l_amt_column_name := 'AMOUNT';
2656: ELSIF (p_entity_type = G_ENTITY_TYPE_SHIPMENTS) THEN
5269: add_error ( p_api_errors => g_api_errors,
5270: x_return_status => x_return_status,
5271: p_message_name => 'PO_CHNG_AMT_LESS_ADV',
5272: --Line amount must be greater than or equal to the Advance amount.
5273: p_table_name => 'PO_LINES_ALL',
5274: p_entity_type => G_ENTITY_TYPE_LINES,
5275: p_entity_id => i );
5276: end if;
5277: END IF;
5286: OR (p_chg.line_changes.c_closed_code(i) = 'FINALLY CLOSED') THEN
5287: add_error ( p_api_errors => g_api_errors,
5288: x_return_status => x_return_status,
5289: p_message_name => 'PO_CHNG_CANNOT_MODIFY_LINE',
5290: p_table_name => 'PO_LINES_ALL',
5291: p_entity_type => G_ENTITY_TYPE_LINES,
5292: p_entity_id => i );
5293: END IF;
5294:
5318: and l_new_qty < l_orig_qty) THEN --
5319: add_error ( p_api_errors => g_api_errors,
5320: x_return_status => x_return_status,
5321: p_message_name => 'PO_CHNG_QTY_RESTRICTED',
5322: p_table_name => 'PO_LINES_ALL',
5323: p_column_name => 'QUANTITY',
5324: p_entity_type => G_ENTITY_TYPE_LINES,
5325: p_entity_id => i );
5326: END IF;
5338: IF (l_new_qty < greatest(l_qty_received, l_qty_billed)) THEN
5339: add_error ( p_api_errors => g_api_errors,
5340: x_return_status => x_return_status,
5341: p_message_name => 'PO_CHNG_QTY_RESTRICTED',
5342: p_table_name => 'PO_LINES_ALL',
5343: p_column_name => 'QUANTITY',
5344: p_entity_type => G_ENTITY_TYPE_LINES,
5345: p_entity_id => i );
5346: END IF;
5407:
5408: add_error ( p_api_errors => g_api_errors,
5409: x_return_status => x_return_status,
5410: p_message_name => 'PO_SVC_END_GE_START',
5411: p_table_name => 'PO_LINES_ALL',
5412: p_entity_type => G_ENTITY_TYPE_LINES,
5413: p_entity_id => i );
5414: END IF;
5415:
5437: IF (l_new_amount < greatest(l_amt_received, l_amt_billed)) THEN
5438: add_error ( p_api_errors => g_api_errors,
5439: x_return_status => x_return_status,
5440: p_message_name => 'PO_CHNG_AMT_RESTRICTED',
5441: p_table_name => 'PO_LINES_ALL',
5442: p_column_name => 'AMOUNT',
5443: p_entity_type => G_ENTITY_TYPE_LINES,
5444: p_entity_id => i );
5445: END IF;
5460: IF (l_new_amount < greatest(l_amt_received, l_amt_billed)) THEN
5461: add_error ( p_api_errors => g_api_errors,
5462: x_return_status => x_return_status,
5463: p_message_name => 'PO_CHNG_AMT_RESTRICTED',
5464: p_table_name => 'PO_LINES_ALL',
5465: p_column_name => 'AMOUNT',
5466: p_entity_type => G_ENTITY_TYPE_LINES,
5467: p_entity_id => i );
5468: END IF;
5505: IF (l_timecard_exists) THEN
5506: add_error ( p_api_errors => g_api_errors,
5507: x_return_status => x_return_status,
5508: p_message_name => 'PO_CHNG_OTL_NO_PRICE_CHANGE',
5509: p_table_name => 'PO_LINES_ALL',
5510: p_column_name => 'UNIT_PRICE',
5511: p_entity_type => G_ENTITY_TYPE_LINES,
5512: p_entity_id => i );
5513: END IF; -- l_timecard_exists
5535: IF (l_new_amount < l_timecard_amount_sum) THEN
5536: add_error ( p_api_errors => g_api_errors,
5537: x_return_status => x_return_status,
5538: p_message_name => 'PO_CHNG_OTL_INVALID_AMOUNT',
5539: p_table_name => 'PO_LINES_ALL',
5540: p_column_name => 'AMOUNT',
5541: -- PBWC Message Change Impact: Adding a token.
5542: p_token_name1 => 'TOTAL_AMT',
5543: p_token_value1 => to_char(l_timecard_amount_sum),
5570: IF (l_timecard_exists) THEN
5571: add_error ( p_api_errors => g_api_errors,
5572: x_return_status => x_return_status,
5573: p_message_name => 'PO_CHNG_OTL_INVALID_END_DATE',
5574: p_table_name => 'PO_LINES_ALL',
5575: p_column_name => 'EXPIRATION_DATE',
5576: p_entity_type => G_ENTITY_TYPE_LINES,
5577: p_entity_id => i );
5578: END IF; -- l_timecard_exists
5604:
5605: add_error ( p_api_errors => g_api_errors,
5606: x_return_status => x_return_status,
5607: p_message_name => 'PO_CHNG_OTL_INVALID_START_DATE',
5608: p_table_name => 'PO_LINES_ALL',
5609: p_column_name => 'START_DATE',
5610: p_entity_type => G_ENTITY_TYPE_LINES,
5611: p_entity_id => i );
5612:
5631: IF (g_approved_date IS NOT NULL) THEN
5632: add_error ( p_api_errors => g_api_errors,
5633: x_return_status => x_return_status,
5634: p_message_name => 'PO_PO_USE_CANCEL_ON_APRVD_PO2',
5635: p_table_name => 'PO_LINES_ALL',
5636: p_column_name => NULL,
5637: p_entity_type => G_ENTITY_TYPE_LINES,
5638: p_entity_id => i);
5639: END IF;
5653: IF (l_ship_count > 0) THEN
5654: add_error ( p_api_errors => g_api_errors,
5655: x_return_status => x_return_status,
5656: p_message_name => 'PO_PO_USE_CANCEL_ON_APRVD_PO2',
5657: p_table_name => 'PO_LINES_ALL',
5658: p_column_name => NULL,
5659: p_entity_type => G_ENTITY_TYPE_LINES,
5660: p_entity_id => i);
5661: END IF;
5672: IF (l_ship_count > 0) THEN
5673: add_error ( p_api_errors => g_api_errors,
5674: x_return_status => x_return_status,
5675: p_message_name => 'PO_PO_USE_CANCEL_ON_ENCUMB_PO',
5676: p_table_name => 'PO_LINES_ALL',
5677: p_column_name => NULL,
5678: p_entity_type => G_ENTITY_TYPE_LINES,
5679: p_entity_id => i);
5680: END IF;
5765: l_approved_date PO_LINE_LOCATIONS.approved_date%TYPE;
5766: l_encumbered_flag PO_LINE_LOCATIONS.encumbered_flag%TYPE;
5767: l_shipment_type PO_LINE_LOCATIONS.shipment_type%TYPE;
5768: l_pending_rcv_transactions NUMBER;
5769: l_allow_price_override PO_LINES.allow_price_override_flag%TYPE;
5770: l_ship_to_loc_valid NUMBER;
5771: l_message_name VARCHAR2(30);
5772: l_new_sales_order_update_date PO_LINE_LOCATIONS.sales_order_update_date%TYPE;
5773:
6721: -- Applies the requested and derived changes to the database tables.
6722: --Pre-reqs:
6723: -- None.
6724: --Modifies:
6725: -- Updates PO_HEADERS_ALL, PO_RELEASES_ALL, PO_LINES_ALL,
6726: -- PO_LINE_LOCATIONS_ALL, PO_DISTRIBUTIONS_ALL with the changes.
6727: --Locks:
6728: -- None.
6729: --End of Comments
6797: -- Apply the line changes to the database.
6798: l_progress := '030';
6799: FORALL i IN 1..p_chg.line_changes.get_count
6800: -- SQL What: Update PO_LINES with the requested/derived line changes.
6801: UPDATE po_lines_all /* Changed po_lines to po_lines_all */
6802: SET last_update_date = sysdate,
6803: last_updated_by = g_user_id,
6804: request_id = decode(g_request_id,null,request_id,-1,request_id,g_request_id), /*bug 7278327, update the request_id with the concerned concurrent_request_id*/
6805: unit_price = nvl(p_chg.line_changes.unit_price(i), unit_price),
7005: -- Bug 3373453 START
7006: FORALL i IN 1..p_chg.line_changes.get_count
7007: -- SQL What: Update the retroactive date for line price changes on
7008: -- non-cumulative lines.
7009: UPDATE po_lines_all POL
7010: SET last_update_date = sysdate,
7011: last_updated_by = g_user_id,
7012: retroactive_date = sysdate
7013: WHERE POL.po_line_id = p_chg.line_changes.po_line_id(i)
7017:
7018: FORALL i IN 1..p_chg.shipment_changes.get_count
7019: -- SQL What: Update the retroactive date for pricing attribute changes
7020: -- on price breaks of non-cumulative lines.
7021: UPDATE po_lines_all POL
7022: SET last_update_date = sysdate,
7023: last_updated_by = g_user_id,
7024: retroactive_date = sysdate
7025: WHERE POL.po_line_id = p_chg.shipment_changes.c_po_line_id(i)
9317:
9318: d_pos := 40;
9319: SELECT ROWID
9320: INTO l_entity_row_id
9321: FROM PO_LINES_ALL
9322: WHERE PO_LINE_ID = p_po_line_id;
9323:
9324: d_pos := 45;
9325: PO_LINES_SV.delete_line( X_type_lookup_code => p_doc_subtype