[Home] [Help]
799: add_error (
800: p_api_errors => g_api_errors,
801: x_return_status => x_return_status,
802: p_message_name => 'PO_GENERIC_ERROR',
803: p_table_name => 'PO_LINE_LOCATIONS_ALL',
804: p_token_name1 => 'ERROR_TEXT',
805: p_token_value1 => 'You cannot specify both po_line_location_id and parent_line_location_id / split_shipment_num for a shipment change.',
806: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
807: p_entity_id => i
832: add_error (
833: p_api_errors => g_api_errors,
834: x_return_status => x_return_status,
835: p_message_name => 'PO_INVALID_DOC_IDS',
836: p_table_name => 'PO_LINE_LOCATIONS_ALL',
837: p_column_name => 'LINE_LOCATION_ID',
838: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
839: p_entity_id => i
840: );
1439: p_chg.distribution_changes.c_distribution_num(i),
1440: p_chg.distribution_changes.c_encumbered_flag(i),
1441: p_chg.distribution_changes.c_req_distribution_id(i),
1442: p_chg.distribution_changes.c_creation_date(i)
1443: FROM po_distributions POD, po_lines POL, po_line_types PLT,po_line_locations_all PLL --
1445: NVL( p_chg.distribution_changes.parent_distribution_id(i), -- split dist
1446: p_chg.distribution_changes.po_distribution_id(i) ) -- existing dist
1447: AND POL.po_line_id = POD.po_line_id -- JOIN
1933: *
1934: * add_error ( p_api_errors => g_api_errors,
1935: * x_return_status => x_return_status,
1936: * p_message_name => 'PO_CHNG_QTY2_NO_UOM2',
1937: * p_table_name => 'PO_LINE_LOCATIONS_ALL',
1938: * p_column_name => 'SECONDARY_QUANTITY',
1939: * p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
1940: * p_entity_id => i );
1941: *END IF;
1948: g_document_type = 'PA' THEN
1949: add_error ( p_api_errors => g_api_errors,
1950: x_return_status => x_return_status,
1951: p_message_name => 'PO_CHNG_QTY2_GRADE_PA',
1952: p_table_name => 'PO_LINE_LOCATIONS_ALL',
1953: p_column_name => 'SECONDARY_QUANTITY',
1954: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
1955: p_entity_id => i );
1956: END IF;
1968: IF l_grade_control_flag = 'N' THEN
1969: add_error ( p_api_errors => g_api_errors,
1970: x_return_status => x_return_status,
1971: p_message_name => ' INV_ITEM_NOT_GRADE_CTRL_EXP',
1972: p_table_name => 'PO_LINE_LOCATIONS_ALL',
1973: p_column_name => 'PREFERRED_GRADE',
1974: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
1975: p_entity_id => i);
1976: END IF;
1987:
1988: add_error ( p_api_errors => g_api_errors,
1989: x_return_status => x_return_status,
1990: p_message_name => 'PO_CHNG_QTY2_NO_QTY',
1991: p_table_name => 'PO_LINE_LOCATIONS_ALL',
1992: p_column_name => 'SECONDARY_QUANTITY',
1993: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
1994: p_entity_id => i );
1995: END IF;
2008: AND (p_chg.shipment_changes.amount(i) IS NULL) THEN
2009: add_error ( p_api_errors => g_api_errors,
2010: x_return_status => x_return_status,
2011: p_message_name => 'PO_CHNG_SPLIT_SHIP_QTY_AMT',
2012: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2013: p_column_name => NULL,
2014: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2015: p_entity_id => i );
2016: END IF;
2022: IF (p_chg.shipment_changes.split_shipment_num(i) IS NULL) THEN
2023: add_error ( p_api_errors => g_api_errors,
2024: x_return_status => x_return_status,
2025: p_message_name => 'PO_CHNG_UNIQUE_SPLIT_SHIP_NUM',
2026: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2027: p_column_name => NULL,
2028: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2029: p_entity_id => i );
2030: END IF;
2050: OR (NOT is_split_shipment_num_unique(p_chg,i)) THEN
2051: add_error ( p_api_errors => g_api_errors,
2052: x_return_status => x_return_status,
2053: p_message_name => 'PO_CHNG_UNIQUE_SPLIT_SHIP_NUM',
2054: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2055: p_column_name => NULL,
2056: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2057: p_entity_id => i );
2058: END IF;
2065: IF (p_chg.shipment_changes.delete_record(i) = G_PARAMETER_YES) THEN
2066: add_error ( p_api_errors => g_api_errors,
2067: x_return_status => x_return_status,
2068: p_message_name => 'PO_CHNG_SPLIT_SHIP_NO_DELETE',
2069: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2070: p_column_name => NULL,
2071: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2072: p_entity_id => i );
2073: END IF; -- delete_record
2231: IF (p_chg.shipment_changes.promised_date(i) IS NOT NULL) THEN
2232: add_error ( p_api_errors => g_api_errors,
2233: x_return_status => x_return_status,
2234: p_message_name => 'PO_CHNG_BLKT_SHIP_BAD_FIELD',
2235: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2236: p_column_name => 'PROMISED_DATE',
2237: p_token_name1 => 'COLUMN_NAME',
2238: p_token_value1 => 'PROMISED_DATE',
2239: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2243: IF (p_chg.shipment_changes.need_by_date(i) IS NOT NULL) THEN
2244: add_error ( p_api_errors => g_api_errors,
2245: x_return_status => x_return_status,
2246: p_message_name => 'PO_CHNG_BLKT_SHIP_BAD_FIELD',
2247: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2248: p_column_name => 'NEED_BY_DATE',
2249: p_token_name1 => 'COLUMN_NAME',
2250: p_token_value1 => 'NEED_BY_DATE',
2251: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2255: IF (p_chg.shipment_changes.parent_line_location_id(i) IS NOT NULL) THEN
2256: add_error ( p_api_errors => g_api_errors,
2257: x_return_status => x_return_status,
2258: p_message_name => 'PO_CHNG_BLKT_NO_SPLIT_SHIP',
2259: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2260: p_column_name => null,
2261: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2262: p_entity_id => i );
2263: END IF;
2302:
2303: add_error ( p_api_errors => g_api_errors,
2304: x_return_status => x_return_status,
2305: p_message_name => 'PO_CHNG_PO_NO_SHIP_PRICE',
2306: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2307: p_column_name => 'PRICE_OVERRIDE',
2308: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2309: p_entity_id => G_ENTITY_TYPE_LINES );
2310: END IF;
2428:
2429: IF (p_chg.shipment_changes.price_override(i) IS NOT NULL ) THEN
2430: add_error( p_api_errors => g_api_errors,x_return_status => x_return_status,
2431: p_message_name => 'PO_NO_PRICE_CHNG_FP_LINES',
2432: p_table_name => 'PO_LINE_LOCATIONS_ALL',p_column_name => 'PRICE',
2433: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,p_entity_id => i);
2434: END IF;
2435: ELSIF (p_chg.shipment_changes.c_value_basis(i) = 'AMOUNT') THEN
2436: ------------------------------------------------------------------------
2439:
2440: IF (p_chg.shipment_changes.price_override(i) IS NOT NULL ) THEN
2441: add_error( p_api_errors => g_api_errors,x_return_status => x_return_status,
2442: p_message_name => 'PO_NO_PRICE_CHNG_AMT_LINES',
2443: p_table_name => 'PO_LINE_LOCATIONS_ALL',p_column_name => 'PRICE',
2444: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,p_entity_id => i);
2445: END IF;
2446: END IF;
2447: --< BUG 5406211 END >
2457: IF (p_chg.shipment_changes.quantity(i) IS NOT NULL) THEN
2458: add_error ( p_api_errors => g_api_errors,
2459: x_return_status => x_return_status,
2460: p_message_name => 'PO_SVC_NO_QTY',
2461: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2462: p_column_name => 'QUANTITY',
2463: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2464: p_entity_id => i );
2465: END IF;
2475: IF (p_chg.shipment_changes.amount(i) IS NOT NULL) THEN
2476: add_error ( p_api_errors => g_api_errors,
2477: x_return_status => x_return_status,
2478: p_message_name => 'PO_SVC_NO_AMT',
2479: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2480: p_column_name => 'AMOUNT',
2481: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2482: p_entity_id => i );
2483: END IF;
2493: IF (p_chg.shipment_changes.need_by_date(i) IS NOT NULL) THEN
2494: add_error ( p_api_errors => g_api_errors,
2495: x_return_status => x_return_status,
2496: p_message_name => 'PO_SVC_NO_NEED_PROMISE_DATE',
2497: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2498: p_column_name => 'NEED_BY_DATE',
2499: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2500: p_entity_id => i );
2501: END IF;
2503: IF (p_chg.shipment_changes.promised_date(i) IS NOT NULL) THEN
2504: add_error ( p_api_errors => g_api_errors,
2505: x_return_status => x_return_status,
2506: p_message_name => 'PO_SVC_NO_NEED_PROMISE_DATE',
2507: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2508: p_column_name => 'PROMISED_DATE',
2509: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2510: p_entity_id => i );
2511: END IF;
2521: AND (p_chg.shipment_changes.c_purchase_basis(i) = 'TEMP LABOR') THEN
2522: add_error ( p_api_errors => g_api_errors,
2523: x_return_status => x_return_status,
2524: p_message_name => 'PO_SVC_NO_SPLIT_SHIPMENT',
2525: p_table_name => 'PO_LINE_LOCATIONS_ALL',
2526: p_column_name => null,
2527: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
2528: p_entity_id => i );
2529: END IF; -- parent line location ID is not null
2639: l_new_secondary_quantity := p_chg.shipment_changes.secondary_quantity(i);
2640: l_sec_qty_column_name := 'SECONDARY_QUANTITY';
2641: /*END INVCONV sschinch 09/07/04 */
2642:
2643: l_table_name := 'PO_LINE_LOCATIONS_ALL';
2644: l_qty_column_name := 'QUANTITY';
2645: l_price_column_name := 'PRICE_OVERRIDE';
2646: l_amt_column_name := 'AMOUNT';
2647: ELSE -- PO_DISTRIBUTIONS_REC_TYPE
5169: l_price_updateable VARCHAR2(1);
5170: l_retroactive_price_change VARCHAR2(1);
5171: l_grade MTL_GRADES.grade_code%TYPE ; -- sschinch INVCONV
5172: l_new_preferred_grade MTL_GRADES.grade_code%TYPE; -- sschinch INVCONV
5173: l_advance_amount PO_LINE_LOCATIONS_ALL.AMOUNT%TYPE; /* << Complex work changes for R12 >> */
5174: BEGIN
5175: IF (g_fnd_debug = 'Y') THEN
5176: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
5177: FND_LOG.string( log_level => FND_LOG.LEVEL_PROCEDURE,
5201: BEGIN
5202:
5203: select amount
5204: into l_advance_amount
5205: from po_line_locations_all
5206: where payment_type = 'ADVANCE'
5207: and po_line_id =l_po_line_id ;
5208:
5209: EXCEPTION
5786: OR (p_chg.shipment_changes.c_closed_code(i) = 'FINALLY CLOSED') THEN
5787: add_error ( p_api_errors => g_api_errors,
5788: x_return_status => x_return_status,
5789: p_message_name => 'PO_CHNG_CANNOT_MODIFY_SHIPMENT',
5790: p_table_name => 'PO_LINE_LOCATIONS_ALL',
5791: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
5792: p_entity_id => i );
5793: END IF;
5794:
5804:
5805: add_error ( p_api_errors => g_api_errors,
5806: x_return_status => x_return_status,
5807: p_message_name => 'PO_CHNG_QTY_RESTRICTED',
5808: p_table_name => 'PO_LINE_LOCATIONS_ALL',
5809: p_column_name => 'QUANTITY',
5810: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
5811: p_entity_id => i );
5812: END IF; -- l_new_qty
5823:
5824: add_error ( p_api_errors => g_api_errors,
5825: x_return_status => x_return_status,
5826: p_message_name => 'PO_CHNG_AMT_RESTRICTED',
5827: p_table_name => 'PO_LINE_LOCATIONS_ALL',
5828: p_column_name => 'AMOUNT',
5829: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
5830: p_entity_id => i );
5831: END IF; -- l_new_amt
5894: IF (l_new_qty < NVL(l_scheduled_qty, 0)) THEN
5895: add_error ( p_api_errors => g_api_errors,
5896: x_return_status => x_return_status,
5897: p_message_name => 'PO_PO_REL_EXCEEDS_QTY',
5898: p_table_name => 'PO_LINE_LOCATIONS_ALL',
5899: p_column_name => 'QUANTITY',
5900: p_token_name1 => 'SCHEDULED_QTY',
5901: p_token_value1 => TO_CHAR(l_scheduled_qty),
5902: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
5937: IF l_new_qty > l_available_qty THEN
5938: add_error ( p_api_errors => g_api_errors,
5939: x_return_status => x_return_status,
5940: p_message_name => 'PO_PO_QTY_EXCEEDS_UNREL',
5941: p_table_name => 'PO_LINE_LOCATIONS_ALL',
5942: p_column_name => 'QUANTITY',
5943: p_token_name1 => 'UNRELEASED',
5944: p_token_value1 => TO_CHAR(l_available_qty),
5945: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
5983:
5984: add_error ( p_api_errors => g_api_errors,
5985: x_return_status => x_return_status,
5986: p_message_name => 'PO_CHNG_CANNOT_MODIFY_DROPSHIP',
5987: p_table_name => 'PO_LINE_LOCATIONS_ALL',
5988: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
5989: p_entity_id => i );
5990: END IF; -- shipment is drop ship
5991:
6122: IF (l_ship_to_loc_valid = 0) THEN
6123: add_error ( p_api_errors => g_api_errors,
6124: x_return_status => x_return_status,
6125: p_message_name => 'PO_PO_SHIP_LOCN_INVALID',
6126: p_table_name => 'PO_LINE_LOCATIONS_ALL',
6127: p_column_name => 'SHIP_TO_LOCATION_ID',
6128: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
6129: p_entity_id => i );
6130: END IF;
6141: IF (l_new_need_by_date IS NOT NULL) THEN
6142: add_error ( p_api_errors => g_api_errors,
6143: x_return_status => x_return_status,
6144: p_message_name => 'PO_CHNG_DROPSHIP_RCV_SHIP_QTY',
6145: p_table_name => 'PO_LINE_LOCATIONS_ALL',
6146: p_column_name => 'NEED_BY_DATE',
6147: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
6148: p_entity_id => i );
6149: END IF;
6151: IF (l_new_ship_to_loc_id IS NOT NULL) THEN
6152: add_error ( p_api_errors => g_api_errors,
6153: x_return_status => x_return_status,
6154: p_message_name => 'PO_CHNG_DROPSHIP_RCV_SHIP_QTY',
6155: p_table_name => 'PO_LINE_LOCATIONS_ALL',
6156: p_column_name => 'SHIP_TO_LOCATION',
6157: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
6158: p_entity_id => i );
6159: END IF;
6161: IF (l_new_sales_order_update_date IS NOT NULL) THEN
6162: add_error ( p_api_errors => g_api_errors,
6163: x_return_status => x_return_status,
6164: p_message_name => 'PO_CHNG_DROPSHIP_RCV_SHIP_QTY',
6165: p_table_name => 'PO_LINE_LOCATIONS_ALL',
6166: p_column_name => 'SALES_ORDER_UPDATE_DATE',
6167: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
6168: p_entity_id => i );
6169: END IF;
6188:
6189: add_error ( p_api_errors => g_api_errors,
6190: x_return_status => x_return_status,
6191: p_message_name => l_message_name,
6192: p_table_name => 'PO_LINE_LOCATIONS_ALL',
6193: p_column_name => NULL,
6194: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
6195: p_entity_id => i);
6196: END IF;
6201: IF (l_encumbered_flag = 'Y') THEN
6202: add_error ( p_api_errors => g_api_errors,
6203: x_return_status => x_return_status,
6204: p_message_name => 'PO_PO_USE_CANCEL_ON_ENCUMB_PO',
6205: p_table_name => 'PO_LINE_LOCATIONS_ALL',
6206: p_column_name => NULL,
6207: p_entity_type => G_ENTITY_TYPE_SHIPMENTS,
6208: p_entity_id => i);
6209: END IF;
6666: --Pre-reqs:
6667: -- None.
6668: --Modifies:
6669: -- Updates PO_HEADERS_ALL, PO_RELEASES_ALL, PO_LINES_ALL,
6670: -- PO_LINE_LOCATIONS_ALL, PO_DISTRIBUTIONS_ALL with the changes.
6671: --Locks:
6672: -- None.
6673: --End of Comments
6674: -------------------------------------------------------------------------------
7086: -- Creates split shipments and split distributions.
7087: --Pre-reqs:
7088: -- None.
7089: --Modifies:
7090: -- Inserts the split shipments into PO_LINE_LOCATIONS_ALL.
7091: -- Updates each split shipment change and split distribution change in p_chg
7092: -- with a new LINE_LOCATION_ID from the sequence.
7093: --Locks:
7094: -- None.
7129:
7130: END LOOP; -- split shipment
7131:
7132:
7133: -- Bulk insert all the split shipments into PO_LINE_LOCATIONS_ALL,
7134: -- copying most of the field values from the parent shipments.
7135: FORALL i IN 1..p_chg.shipment_changes.po_line_location_id.COUNT
7136: INSERT INTO po_line_locations_all
7137: (
7132:
7133: -- Bulk insert all the split shipments into PO_LINE_LOCATIONS_ALL,
7134: -- copying most of the field values from the parent shipments.
7135: FORALL i IN 1..p_chg.shipment_changes.po_line_location_id.COUNT
7136: INSERT INTO po_line_locations_all
7137: (
7138: LINE_LOCATION_ID ,
7139: LAST_UPDATE_DATE ,
7140: LAST_UPDATED_BY ,
8872: l_conterms_exist_flag PO_HEADERS_ALL.conterms_exist_flag%type;
8873: l_consigned_consumption_flag PO_HEADERS_ALL.consigned_consumption_flag%type;
8874: l_cancel_flag PO_HEADERS_ALL.cancel_flag%type;
8875: l_ga_flag PO_HEADERS_ALL.global_agreement_flag%type;
8876: l_shipment_type PO_LINE_LOCATIONS_ALL.shipment_type%TYPE;
8877: l_allow_delete VARCHAR2(1);
8878: d_pos NUMBER := 0;
8879: l_api_name CONSTANT VARCHAR2(30) := 'validate_delete_action';
8880: d_module CONSTANT VARCHAR2(70) := 'po.plsql.PO_DOCUMENT_UPDATE_PVT.validate_delete_action';