[Home] [Help]
19: x_original_quantity NUMBER := '';
20: x_shipment_type VARCHAR2(15) :=''; --1560839
21:
22: --
23: TYPE l_shipment_type IS TABLE OF PO_LINE_LOCATIONS_ALL.SHIPMENT_TYPE%TYPE;
24: l_shipment_type_tbl l_shipment_type;
25: l_transaction_line_rec_type ZX_API_PUB.transaction_line_rec_type;
26: l_return_status VARCHAR2(1);
27: l_msg_count NUMBER;
33: --
34:
35: CURSOR C_LINE is
36: SELECT line_location_id
37: FROM po_line_locations_all /*Bug6632095: using base table instead of view */
38: WHERE po_line_id = X_delete_id;
39:
40: CURSOR C_RELEASE is
41: SELECT line_location_id,
40: CURSOR C_RELEASE is
41: SELECT line_location_id,
42: po_line_id,
43: quantity
44: FROM po_line_locations_all /*Bug6632095: using base table instead of view */
45: WHERE po_release_id = X_delete_id;
46:
47: CURSOR C_HEADER is
48: SELECT line_location_id
45: WHERE po_release_id = X_delete_id;
46:
47: CURSOR C_HEADER is
48: SELECT line_location_id
49: FROM po_line_locations_all /*Bug6632095: using base table instead of view */
50: WHERE po_header_id = X_delete_id;
51:
52: BEGIN
53:
85: X_progress := '010';
86:
87: -- Delete the shipments
88: BEGIN
89: DELETE FROM PO_LINE_LOCATIONS
90: WHERE po_line_id = X_delete_id
91: AND shipment_type in ('PLANNED', 'STANDARD', 'PRICE BREAK',
92: 'RFQ', 'QUOTATION')
93: --
163: end if; /* X_type_lookup_code not in RFQ and QUOTATION */
164:
165: -- Delete the shipments.
166: BEGIN
167: DELETE FROM PO_LINE_LOCATIONS_ALL /*Bug6632095: using base table instead of view */
168: WHERE po_header_id = X_delete_id
169: AND shipment_type in ('PLANNED', 'STANDARD', 'PRICE BREAK',
170: 'RFQ', 'QUOTATION')
171: --
221: the shipment_type is BLANKET */
222:
223: SELECT shipment_type
224: INTO x_shipment_type
225: FROM po_line_locations
226: WHERE line_location_id = x_line_location_id;
227:
228: IF (X_shipment_type = 'BLANKET' ) then
229:
260: X_progress := '030';
261:
262: -- Delete the shipments.
263: BEGIN
264: DELETE FROM PO_LINE_LOCATIONS
265: WHERE po_release_id = X_delete_id
266: AND shipment_type in ('SCHEDULED', 'BLANKET')
267: --
268: RETURNING
383:
384: /*
385: ** Call the Shipments table handler delete row
386: */
387: po_line_locations_pkg_s2.delete_row(X_row_id);
388: --dbms_output.put_line('after call to delete row');
389:
390: EXCEPTION
391: WHEN OTHERS THEN
429: SELECT quantity,
430: po_line_id
431: INTO x_original_quantity,
432: x_po_line_id
433: FROM po_line_locations
434: WHERE line_location_id = X_line_location_id;
435:
436: po_lines_sv.update_released_quantity('DELETE',
437: 'BLANKET',
647: IF (X_shipment_type = 'BLANKET' ) THEN
648:
649: SELECT quantity
650: INTO x_orig_quantity
651: FROM po_line_locations
652: WHERE line_location_id = X_line_location_id;
653:
654: po_lines_sv.update_released_quantity('UPDATE',
655: 'BLANKET',
660:
661: /*
662: ** Call the update row routine with all parameters.
663: */
664: po_line_locations_pkg_s2.update_row(
665: X_Rowid,
666: X_Line_Location_Id,
667: X_Last_Update_Date,
668: X_Last_Updated_By,
937: ,p_doc_type IN VARCHAR2
938: ,p_style_disp_name IN VARCHAR2
939: ,x_message_text OUT NOCOPY VARCHAR2) IS
940: l_some_dists_reserved_flag VARCHAR2(1) := 'N';
941: l_approved_flag PO_LINE_LOCATIONS_ALL.approved_flag%TYPE := NULL;
942: l_shipment_type PO_LINE_LOCATIONS_ALL.shipment_type%TYPE := NULL;
943: l_dummy NUMBER := 0;
944: d_pos NUMBER := 0;
945: l_api_name CONSTANT VARCHAR2(30) := 'validate_delete_line_loc';
938: ,p_style_disp_name IN VARCHAR2
939: ,x_message_text OUT NOCOPY VARCHAR2) IS
940: l_some_dists_reserved_flag VARCHAR2(1) := 'N';
941: l_approved_flag PO_LINE_LOCATIONS_ALL.approved_flag%TYPE := NULL;
942: l_shipment_type PO_LINE_LOCATIONS_ALL.shipment_type%TYPE := NULL;
943: l_dummy NUMBER := 0;
944: d_pos NUMBER := 0;
945: l_api_name CONSTANT VARCHAR2(30) := 'validate_delete_line_loc';
946: d_module CONSTANT VARCHAR2(70) := 'po.plsql.PO_SHIPMENTS_SV4.validate_delete_line_loc';
953: SELECT shipment_type,
954: approved_flag
955: INTO l_shipment_type,
956: l_approved_flag
957: FROM po_line_locations_all
958: WHERE line_location_id = p_line_loc_id;
959:
960: d_pos := 10;
961: IF (PO_LOG.d_stmt) THEN
997: -- to delete the shipment
998: BEGIN
999: SELECT line_location_id
1000: INTO l_dummy
1001: FROM po_line_locations_all
1002: WHERE po_line_id = p_po_line_id
1003: AND nvl(closed_code, PO_DOCUMENT_ACTION_PVT.g_doc_action_OPEN) <> PO_DOCUMENT_ACTION_PVT.g_doc_closed_sts_FIN_CLOSED
1004: AND nvl(cancel_flag, 'N') <> 'Y';
1005:
1037: -- Before calling this procedure one must call validate_delete_line_loc
1038: -- to ensure that deletion of the line location is a valid action
1039: --Modifies:
1040: -- PO_LINES_ALL
1041: -- PO_LINE_LOCATIONS_ALL
1042: --Locks:
1043: -- None
1044: --Function:
1045: -- Deletes the selected Line Location from the Database and
1084: l_org_id PO_HEADERS_ALL.org_id%TYPE;
1085: l_po_lines_rec PO_LINES_ALL%ROWTYPE;
1086: l_base_unit_price PO_LINES_ALL.base_unit_price%TYPE;
1087: l_from_line_location_id PO_LINES_ALL.from_line_location_id%TYPE := NULL;
1088: l_shipment_type PO_LINE_LOCATIONS_ALL.shipment_type%TYPE := NULL;
1089: l_ga_entity_type PO_PRICE_DIFFERENTIALS.entity_type%TYPE := NULL;
1090: l_ga_entity_id PO_PRICE_DIFFERENTIALS.entity_id%TYPE := NULL;
1091: l_is_source_info_changed BOOLEAN := FALSE;
1092: l_price NUMBER := NULL;
1104: d_pos := 10;
1105: --get the required data of shipment's header and line
1106: SELECT shipment_type
1107: INTO l_shipment_type
1108: FROM po_line_locations_all
1109: WHERE line_location_id = p_line_loc_id;
1110:
1111: d_pos := 20;
1112: po_shipments_sv4.delete_shipment(p_line_loc_id,
1276:
1277: END IF; --l_is_source_info_changed
1278: d_pos := 140;
1279: -- For this line, update all its corresponding shipment records
1280: UPDATE po_line_locations_all
1281: SET price_override = l_price,
1282: last_update_date = SYSDATE,
1283: last_updated_by = fnd_global.user_id
1284: WHERE po_line_id = l_po_lines_rec.po_line_id;