[Home] [Help]
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: --
94: RETURNING
95: shipment_type,
158: -- Delete the shipments.
159: BEGIN
160: DELETE FROM PO_LINE_LOCATIONS_ALL /*Bug6632095: using base table instead of view */
161: WHERE po_header_id = X_delete_id
162: AND shipment_type in ('PLANNED', 'STANDARD', 'PRICE BREAK',
163: 'RFQ', 'QUOTATION')
164: --
165: RETURNING
166: shipment_type,
284:
285: --
286: FOR i in 1..l_shipment_type_tbl.COUNT
287: LOOP
288: IF l_shipment_type_tbl(i) IN ('STANDARD','PLANNED','BLANKET','SCHEDULED')
289: THEN
290: l_transaction_line_rec_type.internal_organization_id := l_line_location_org_id_tbl(i);
291: l_transaction_line_rec_type.application_id := FND_GLOBAL.resp_appl_id;
292: l_transaction_line_rec_type.entity_code := PO_CONSTANTS_SV.PO_ENTITY_CODE ;
793: -- SET approved_flag = 'R',
794: -- authorization_status = 'REQUIRES REAPPROVAL'
795: -- WHERE rowid = X_po_rel_rowid;
796:
797: ELSIF X_shipment_type in ('STANDARD', 'PLANNED', 'PRICE BREAK')
798: THEN
799:
800: X_progress := '050';
801:
856: END IF;
857: END IF; /* X_Shipment_type is not in RFQ or QUOTATION */
858:
859: /*Bug 782650
860: The following update is done for standard po and releases.
861: to have the accrue on receipt flag in distributions in sync. with
862: shipments accrue on receipt.
863: */
864:
865: /* Bug: 2194604 Added the SCHEDULED also to make aor in sync with dist for release of
866: planned po
867: */
868:
869: IF (X_Shipment_Type in ('STANDARD','BLANKET','SCHEDULED')) then
870: X_Progress := '091';
871: update po_distributions
872: set accrue_on_receipt_flag = X_accrue_on_receipt_flag
873: where line_location_id = X_line_location_id;
1022: --Locks:
1023: -- None
1024: --Function:
1025: -- Deletes the selected Line Location from the Database and
1026: -- calls the pricing APIs to calculate the new price if a Standard PO
1027: -- shipment with a source reference is deleted
1028: --Parameters:
1029: --IN:
1030: --p_line_loc_id
1035: -- Line ID for the Po line to be deleted
1036: --p_po_header_id
1037: -- Header ID of the PO to which the PO line being deleted belongs
1038: --p_doc_subtype
1039: -- Document Sub type of the PO [STANDARD/BLANKET]
1040: --OUT:
1041: --x_return_status
1042: -- Standard API specification parameter
1043: -- Can hold one of the following values:
1038: --p_doc_subtype
1039: -- Document Sub type of the PO [STANDARD/BLANKET]
1040: --OUT:
1041: --x_return_status
1042: -- Standard API specification parameter
1043: -- Can hold one of the following values:
1044: -- FND_API.G_RET_STS_SUCCESS (='S')
1045: -- FND_API.G_RET_STS_ERROR (='E')
1046: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
1141: END IF;
1142:
1143: d_pos := 70;
1144: -- Call the wrapper function to calculate the price when a shipment
1145: -- of a Standard PO with a source reference is deleted
1146: IF (p_doc_subtype = 'STANDARD' AND
1147: (l_po_lines_rec.from_header_id IS NOT NULL OR
1148: l_po_lines_rec.contract_id IS NOT NULL))
1149: THEN
1142:
1143: d_pos := 70;
1144: -- Call the wrapper function to calculate the price when a shipment
1145: -- of a Standard PO with a source reference is deleted
1146: IF (p_doc_subtype = 'STANDARD' AND
1147: (l_po_lines_rec.from_header_id IS NOT NULL OR
1148: l_po_lines_rec.contract_id IS NOT NULL))
1149: THEN
1150:
1157: IF (PO_LOG.d_stmt) THEN
1158: PO_LOG.stmt(d_module,d_pos,'l_min_shipment_num', l_min_shipment_num);
1159: END IF;
1160: -- Call the API to obtain the new price based on the 1st shipment of the
1161: -- standard PO.
1162: l_org_id := PO_MOAC_UTILS_PVT.get_current_org_id;
1163: d_pos := 100;
1164: IF (PO_LOG.d_stmt) THEN
1165: PO_LOG.stmt(d_module,d_pos,'l_org_id', l_org_id);
1225: -- then the Price Differentials need to be redefaulted/cleared.
1226: IF (l_is_source_info_changed)
1227: THEN
1228: IF (l_po_lines_rec.order_type_lookup_code = 'RATE' AND
1229: p_doc_subtype = 'STANDARD')
1230: THEN
1231:
1232: IF (l_from_line_location_id IS NOT NULL)
1233: THEN
1245: PO_PRICE_DIFFERENTIALS_PVT.delete_price_differentials(
1246: p_entity_type => 'PO LINE',
1247: p_entity_id => l_po_lines_rec.po_line_id);
1248: d_pos := 140;
1249: -- Copy Price Differentials from GA to Standard PO
1250: PO_PRICE_DIFFERENTIALS_PVT.default_price_differentials(
1251: p_from_entity_type => l_ga_entity_type,
1252: p_from_entity_id => l_ga_entity_id,
1253: p_to_entity_type => 'PO LINE',
1261: SET price_override = l_price,
1262: last_update_date = SYSDATE,
1263: last_updated_by = fnd_global.user_id
1264: WHERE po_line_id = l_po_lines_rec.po_line_id;
1265: END IF; --l_type_lookup_code = 'STANDARD'
1266:
1267: IF (PO_LOG.d_proc) THEN
1268: PO_LOG.proc_end(d_module);
1269: END IF;