[Home] [Help]
813: add_error (
814: p_api_errors => g_api_errors,
815: x_return_status => x_return_status,
816: p_message_name => 'PO_GENERIC_ERROR',
817: p_table_name => 'PO_LINE_LOCATIONS_ALL',
818: p_token_name1 => 'ERROR_TEXT',
819: p_token_value1 => 'You cannot specify both po_line_location_id and parent_line_location_id / split_shipment_num for a shipment change.',
820: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
821: p_entity_id => i
846: add_error (
847: p_api_errors => g_api_errors,
848: x_return_status => x_return_status,
849: p_message_name => 'PO_INVALID_DOC_IDS',
850: p_table_name => 'PO_LINE_LOCATIONS_ALL',
851: p_column_name => 'LINE_LOCATION_ID',
852: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
853: p_entity_id => i
854: );
1462: p_chg.distribution_changes.c_distribution_num(i),
1463: p_chg.distribution_changes.c_encumbered_flag(i),
1464: p_chg.distribution_changes.c_req_distribution_id(i),
1465: p_chg.distribution_changes.c_creation_date(i)
1466: FROM po_distributions POD, po_lines POL, po_line_types PLT,po_line_locations_all PLL --
1468: NVL( p_chg.distribution_changes.parent_distribution_id(i), -- split dist
1469: p_chg.distribution_changes.po_distribution_id(i) ) -- existing dist
1470: AND POL.po_line_id = POD.po_line_id -- JOIN
1956: *
1957: * add_error ( p_api_errors => g_api_errors,
1958: * x_return_status => x_return_status,
1959: * p_message_name => 'PO_CHNG_QTY2_NO_UOM2',
1960: * p_table_name => 'PO_LINE_LOCATIONS_ALL',
1961: * p_column_name => 'SECONDARY_QUANTITY',
1962: * p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
1963: * p_entity_id => i );
1964: *END IF;
1971: g_document_type = 'PA' THEN
1972: add_error ( p_api_errors => g_api_errors,
1973: x_return_status => x_return_status,
1974: p_message_name => 'PO_CHNG_QTY2_GRADE_PA',
1975: p_table_name => 'PO_LINE_LOCATIONS_ALL',
1976: p_column_name => 'SECONDARY_QUANTITY',
1977: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
1978: p_entity_id => i );
1979: END IF;
1991: IF l_grade_control_flag = 'N' THEN
1992: add_error ( p_api_errors => g_api_errors,
1993: x_return_status => x_return_status,
1994: p_message_name => ' INV_ITEM_NOT_GRADE_CTRL_EXP',
1995: p_table_name => 'PO_LINE_LOCATIONS_ALL',
1996: p_column_name => 'PREFERRED_GRADE',
1997: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
1998: p_entity_id => i);
1999: END IF;
2010:
2011: add_error ( p_api_errors => g_api_errors,
2012: x_return_status => x_return_status,
2013: p_message_name => 'PO_CHNG_QTY2_NO_QTY',
2014: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2015: p_column_name => 'SECONDARY_QUANTITY',
2016: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2017: p_entity_id => i );
2018: END IF;
2031: AND (p_chg.shipment_changes.amount(i) IS NULL) THEN
2032: add_error ( p_api_errors => g_api_errors,
2033: x_return_status => x_return_status,
2034: p_message_name => 'PO_CHNG_SPLIT_SHIP_QTY_AMT',
2035: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2036: p_column_name => NULL,
2037: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2038: p_entity_id => i );
2039: END IF;
2045: IF (p_chg.shipment_changes.split_shipment_num(i) IS NULL) THEN
2046: add_error ( p_api_errors => g_api_errors,
2047: x_return_status => x_return_status,
2048: p_message_name => 'PO_CHNG_UNIQUE_SPLIT_SHIP_NUM',
2049: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2050: p_column_name => NULL,
2051: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2052: p_entity_id => i );
2053: END IF;
2073: OR (NOT is_split_shipment_num_unique(p_chg,i)) THEN
2074: add_error ( p_api_errors => g_api_errors,
2075: x_return_status => x_return_status,
2076: p_message_name => 'PO_CHNG_UNIQUE_SPLIT_SHIP_NUM',
2077: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2078: p_column_name => NULL,
2079: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2080: p_entity_id => i );
2081: END IF;
2088: IF (p_chg.shipment_changes.delete_record(i) = G_PARAMETER_YES) THEN
2089: add_error ( p_api_errors => g_api_errors,
2090: x_return_status => x_return_status,
2091: p_message_name => 'PO_CHNG_SPLIT_SHIP_NO_DELETE',
2092: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2093: p_column_name => NULL,
2094: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2095: p_entity_id => i );
2096: END IF; -- delete_record
2254: IF (p_chg.shipment_changes.promised_date(i) IS NOT NULL) THEN
2255: add_error ( p_api_errors => g_api_errors,
2256: x_return_status => x_return_status,
2257: p_message_name => 'PO_CHNG_BLKT_SHIP_BAD_FIELD',
2258: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2259: p_column_name => 'PROMISED_DATE',
2260: p_token_name1 => 'COLUMN_NAME',
2261: p_token_value1 => 'PROMISED_DATE',
2262: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2266: IF (p_chg.shipment_changes.need_by_date(i) IS NOT NULL) THEN
2267: add_error ( p_api_errors => g_api_errors,
2268: x_return_status => x_return_status,
2269: p_message_name => 'PO_CHNG_BLKT_SHIP_BAD_FIELD',
2270: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2271: p_column_name => 'NEED_BY_DATE',
2272: p_token_name1 => 'COLUMN_NAME',
2273: p_token_value1 => 'NEED_BY_DATE',
2274: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2278: IF (p_chg.shipment_changes.parent_line_location_id(i) IS NOT NULL) THEN
2279: add_error ( p_api_errors => g_api_errors,
2280: x_return_status => x_return_status,
2281: p_message_name => 'PO_CHNG_BLKT_NO_SPLIT_SHIP',
2282: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2283: p_column_name => null,
2284: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2285: p_entity_id => i );
2286: END IF;
2325:
2326: add_error ( p_api_errors => g_api_errors,
2327: x_return_status => x_return_status,
2328: p_message_name => 'PO_CHNG_PO_NO_SHIP_PRICE',
2329: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2330: p_column_name => 'PRICE_OVERRIDE',
2331: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2332: p_entity_id => G_ENTITY_TYPE_LINES );
2333: END IF;
2451:
2452: IF (p_chg.shipment_changes.price_override(i) IS NOT NULL ) THEN
2453: add_error( p_api_errors => g_api_errors,x_return_status => x_return_status,
2454: p_message_name => 'PO_NO_PRICE_CHNG_FP_LINES',
2455: p_table_name => 'PO_LINE_LOCATIONS_ALL',p_column_name => 'PRICE',
2456: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,p_entity_id => i);
2457: END IF;
2458: ELSIF (p_chg.shipment_changes.c_value_basis(i) = 'AMOUNT') THEN
2459: ------------------------------------------------------------------------
2462:
2463: IF (p_chg.shipment_changes.price_override(i) IS NOT NULL ) THEN
2464: add_error( p_api_errors => g_api_errors,x_return_status => x_return_status,
2465: p_message_name => 'PO_NO_PRICE_CHNG_AMT_LINES',
2466: p_table_name => 'PO_LINE_LOCATIONS_ALL',p_column_name => 'PRICE',
2467: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,p_entity_id => i);
2468: END IF;
2469: END IF;
2470: --< BUG 5406211 END >
2480: IF (p_chg.shipment_changes.quantity(i) IS NOT NULL) THEN
2481: add_error ( p_api_errors => g_api_errors,
2482: x_return_status => x_return_status,
2483: p_message_name => 'PO_SVC_NO_QTY',
2484: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2485: p_column_name => 'QUANTITY',
2486: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2487: p_entity_id => i );
2488: END IF;
2498: IF (p_chg.shipment_changes.amount(i) IS NOT NULL) THEN
2499: add_error ( p_api_errors => g_api_errors,
2500: x_return_status => x_return_status,
2501: p_message_name => 'PO_SVC_NO_AMT',
2502: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2503: p_column_name => 'AMOUNT',
2504: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2505: p_entity_id => i );
2506: END IF;
2516: IF (p_chg.shipment_changes.need_by_date(i) IS NOT NULL) THEN
2517: add_error ( p_api_errors => g_api_errors,
2518: x_return_status => x_return_status,
2519: p_message_name => 'PO_SVC_NO_NEED_PROMISE_DATE',
2520: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2521: p_column_name => 'NEED_BY_DATE',
2522: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2523: p_entity_id => i );
2524: END IF;
2526: IF (p_chg.shipment_changes.promised_date(i) IS NOT NULL) THEN
2527: add_error ( p_api_errors => g_api_errors,
2528: x_return_status => x_return_status,
2529: p_message_name => 'PO_SVC_NO_NEED_PROMISE_DATE',
2530: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2531: p_column_name => 'PROMISED_DATE',
2532: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2533: p_entity_id => i );
2534: END IF;
2544: AND (p_chg.shipment_changes.c_purchase_basis(i) = 'TEMP LABOR') THEN
2545: add_error ( p_api_errors => g_api_errors,
2546: x_return_status => x_return_status,
2547: p_message_name => 'PO_SVC_NO_SPLIT_SHIPMENT',
2548: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2549: p_column_name => null,
2550: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2551: p_entity_id => i );
2552: END IF; -- parent line location ID is not null
2662: l_new_secondary_quantity := p_chg.shipment_changes.secondary_quantity(i);
2663: l_sec_qty_column_name := 'SECONDARY_QUANTITY';
2664: /*END INVCONV sschinch 09/07/04 */
2665:
2666: l_table_name := 'PO_LINE_LOCATIONS_ALL';
2667: l_qty_column_name := 'QUANTITY';
2668: l_price_column_name := 'PRICE_OVERRIDE';
2669: l_amt_column_name := 'AMOUNT';
2670: ELSE -- PO_DISTRIBUTIONS_REC_TYPE
5208: l_price_updateable VARCHAR2(1);
5209: l_retroactive_price_change VARCHAR2(1);
5210: l_grade MTL_GRADES.grade_code%TYPE ; -- sschinch INVCONV
5211: l_new_preferred_grade MTL_GRADES.grade_code%TYPE; -- sschinch INVCONV
5212: l_advance_amount PO_LINE_LOCATIONS_ALL.AMOUNT%TYPE; /* << Complex work changes for R12 >> */
5213: l_orig_qty PO_LINES.quantity%TYPE; --
5214:
5215: BEGIN
5216: IF (g_fnd_debug = 'Y') THEN
5243: BEGIN
5244:
5245: select amount
5246: into l_advance_amount
5247: from po_line_locations_all
5248: where payment_type = 'ADVANCE'
5249: and po_line_id =l_po_line_id ;
5250:
5251: EXCEPTION
5833: OR (p_chg.shipment_changes.c_closed_code(i) = 'FINALLY CLOSED') THEN
5834: add_error ( p_api_errors => g_api_errors,
5835: x_return_status => x_return_status,
5836: p_message_name => 'PO_CHNG_CANNOT_MODIFY_SHIPMENT',
5837: p_table_name => 'PO_LINE_LOCATIONS_ALL',
5838: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
5839: p_entity_id => i );
5840: END IF;
5841:
5854:
5855: add_error ( p_api_errors => g_api_errors,
5856: x_return_status => x_return_status,
5857: p_message_name => 'PO_CHNG_QTY_RESTRICTED',
5858: p_table_name => 'PO_LINE_LOCATIONS_ALL',
5859: p_column_name => 'QUANTITY',
5860: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
5861: p_entity_id => i );
5862: END IF; -- l_new_qty
5873:
5874: add_error ( p_api_errors => g_api_errors,
5875: x_return_status => x_return_status,
5876: p_message_name => 'PO_CHNG_AMT_RESTRICTED',
5877: p_table_name => 'PO_LINE_LOCATIONS_ALL',
5878: p_column_name => 'AMOUNT',
5879: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
5880: p_entity_id => i );
5881: END IF; -- l_new_amt
5944: IF (l_new_qty < NVL(l_scheduled_qty, 0)) THEN
5945: add_error ( p_api_errors => g_api_errors,
5946: x_return_status => x_return_status,
5947: p_message_name => 'PO_PO_REL_EXCEEDS_QTY',
5948: p_table_name => 'PO_LINE_LOCATIONS_ALL',
5949: p_column_name => 'QUANTITY',
5950: p_token_name1 => 'SCHEDULED_QTY',
5951: p_token_value1 => TO_CHAR(l_scheduled_qty),
5952: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
5987: IF l_new_qty > l_available_qty THEN
5988: add_error ( p_api_errors => g_api_errors,
5989: x_return_status => x_return_status,
5990: p_message_name => 'PO_PO_QTY_EXCEEDS_UNREL',
5991: p_table_name => 'PO_LINE_LOCATIONS_ALL',
5992: p_column_name => 'QUANTITY',
5993: p_token_name1 => 'UNRELEASED',
5994: p_token_value1 => TO_CHAR(l_available_qty),
5995: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
6033:
6034: add_error ( p_api_errors => g_api_errors,
6035: x_return_status => x_return_status,
6036: p_message_name => 'PO_CHNG_CANNOT_MODIFY_DROPSHIP',
6037: p_table_name => 'PO_LINE_LOCATIONS_ALL',
6038: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
6039: p_entity_id => i );
6040: END IF; -- shipment is drop ship
6041:
6172: IF (l_ship_to_loc_valid = 0) THEN
6173: add_error ( p_api_errors => g_api_errors,
6174: x_return_status => x_return_status,
6175: p_message_name => 'PO_PO_SHIP_LOCN_INVALID',
6176: p_table_name => 'PO_LINE_LOCATIONS_ALL',
6177: p_column_name => 'SHIP_TO_LOCATION_ID',
6178: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
6179: p_entity_id => i );
6180: END IF;
6191: IF (l_new_need_by_date IS NOT NULL) THEN
6192: add_error ( p_api_errors => g_api_errors,
6193: x_return_status => x_return_status,
6194: p_message_name => 'PO_CHNG_DROPSHIP_RCV_SHIP_QTY',
6195: p_table_name => 'PO_LINE_LOCATIONS_ALL',
6196: p_column_name => 'NEED_BY_DATE',
6197: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
6198: p_entity_id => i );
6199: END IF;
6201: IF (l_new_ship_to_loc_id IS NOT NULL) THEN
6202: add_error ( p_api_errors => g_api_errors,
6203: x_return_status => x_return_status,
6204: p_message_name => 'PO_CHNG_DROPSHIP_RCV_SHIP_QTY',
6205: p_table_name => 'PO_LINE_LOCATIONS_ALL',
6206: p_column_name => 'SHIP_TO_LOCATION',
6207: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
6208: p_entity_id => i );
6209: END IF;
6211: IF (l_new_sales_order_update_date IS NOT NULL) THEN
6212: add_error ( p_api_errors => g_api_errors,
6213: x_return_status => x_return_status,
6214: p_message_name => 'PO_CHNG_DROPSHIP_RCV_SHIP_QTY',
6215: p_table_name => 'PO_LINE_LOCATIONS_ALL',
6216: p_column_name => 'SALES_ORDER_UPDATE_DATE',
6217: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
6218: p_entity_id => i );
6219: END IF;
6238:
6239: add_error ( p_api_errors => g_api_errors,
6240: x_return_status => x_return_status,
6241: p_message_name => l_message_name,
6242: p_table_name => 'PO_LINE_LOCATIONS_ALL',
6243: p_column_name => NULL,
6244: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
6245: p_entity_id => i);
6246: END IF;
6251: IF (l_encumbered_flag = 'Y') THEN
6252: add_error ( p_api_errors => g_api_errors,
6253: x_return_status => x_return_status,
6254: p_message_name => 'PO_PO_USE_CANCEL_ON_ENCUMB_PO',
6255: p_table_name => 'PO_LINE_LOCATIONS_ALL',
6256: p_column_name => NULL,
6257: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
6258: p_entity_id => i);
6259: END IF;
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
6730: -------------------------------------------------------------------------------
6871: FORALL i IN 1..p_chg.shipment_changes.get_count
6872:
6873: -- SQL What: Update PO_LINE_LOCATIONS with the requested/derived shipment
6874: -- changes. If the approved flag is Y, update it to R.
6875: UPDATE po_line_locations_all PLL
6876: SET last_update_date = sysdate,
6877: last_updated_by = g_user_id,
6878: request_id = decode(g_request_id,null,PLL.request_id,-1,PLL.request_id,g_request_id), /*bug 7278327, update the request_id with the concerned concurrent_request_id*/
6879: -- approved_flag = decode(approved_flag, 'Y', 'R', approved_flag),
7032:
7033: FORALL i IN 1..p_chg.shipment_changes.get_count
7034: -- SQL What: Re-calculate the price discount if there is a price break
7035: -- price change.
7036: UPDATE po_line_locations_all PLL
7037: SET last_update_date = sysdate,
7038: last_updated_by = g_user_id,
7039: price_discount =
7040: (SELECT (POL.unit_price - p_chg.shipment_changes.price_override(i))
7198: -- Creates split shipments and split distributions.
7199: --Pre-reqs:
7200: -- None.
7201: --Modifies:
7202: -- Inserts the split shipments into PO_LINE_LOCATIONS_ALL.
7203: -- Updates each split shipment change and split distribution change in p_chg
7204: -- with a new LINE_LOCATION_ID from the sequence.
7205: --Locks:
7206: -- None.
7241:
7242: END LOOP; -- split shipment
7243:
7244:
7245: -- Bulk insert all the split shipments into PO_LINE_LOCATIONS_ALL,
7246: -- copying most of the field values from the parent shipments.
7247: FORALL i IN 1..p_chg.shipment_changes.po_line_location_id.COUNT
7248: INSERT INTO po_line_locations_all
7249: (
7244:
7245: -- Bulk insert all the split shipments into PO_LINE_LOCATIONS_ALL,
7246: -- copying most of the field values from the parent shipments.
7247: FORALL i IN 1..p_chg.shipment_changes.po_line_location_id.COUNT
7248: INSERT INTO po_line_locations_all
7249: (
7250: LINE_LOCATION_ID ,
7251: LAST_UPDATE_DATE ,
7252: LAST_UPDATED_BY ,
9007: l_conterms_exist_flag PO_HEADERS_ALL.conterms_exist_flag%type;
9008: l_consigned_consumption_flag PO_HEADERS_ALL.consigned_consumption_flag%type;
9009: l_cancel_flag PO_HEADERS_ALL.cancel_flag%type;
9010: l_ga_flag PO_HEADERS_ALL.global_agreement_flag%type;
9011: l_shipment_type PO_LINE_LOCATIONS_ALL.shipment_type%TYPE;
9012: l_allow_delete VARCHAR2(1);
9013: d_pos NUMBER := 0;
9014: l_api_name CONSTANT VARCHAR2(30) := 'validate_delete_action';
9015: d_module CONSTANT VARCHAR2(70) := 'po.plsql.PO_DOCUMENT_UPDATE_PVT.validate_delete_action';