[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,
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: --
172: RETURNING
173: shipment_type,
291:
292: --
293: FOR i in 1..l_shipment_type_tbl.COUNT
294: LOOP
295: IF l_shipment_type_tbl(i) IN ('STANDARD','PLANNED','BLANKET','SCHEDULED')
296: THEN
297: l_transaction_line_rec_type.internal_organization_id := l_line_location_org_id_tbl(i);
298: l_transaction_line_rec_type.application_id := PO_CONSTANTS_SV.APPLICATION_ID;
299: /* Bug 14004400: Applicaton id being passed to EB Tax was responsibility id rather than 201 which
813: -- SET approved_flag = 'R',
814: -- authorization_status = 'REQUIRES REAPPROVAL'
815: -- WHERE rowid = X_po_rel_rowid;
816:
817: ELSIF X_shipment_type in ('STANDARD', 'PLANNED', 'PRICE BREAK')
818: THEN
819:
820: X_progress := '050';
821:
876: END IF;
877: END IF; /* X_Shipment_type is not in RFQ or QUOTATION */
878:
879: /*Bug 782650
880: The following update is done for standard po and releases.
881: to have the accrue on receipt flag in distributions in sync. with
882: shipments accrue on receipt.
883: */
884:
885: /* Bug: 2194604 Added the SCHEDULED also to make aor in sync with dist for release of
886: planned po
887: */
888:
889: IF (X_Shipment_Type in ('STANDARD','BLANKET','SCHEDULED')) then
890: X_Progress := '091';
891: update po_distributions
892: set accrue_on_receipt_flag = X_accrue_on_receipt_flag
893: where line_location_id = X_line_location_id;
1042: --Locks:
1043: -- None
1044: --Function:
1045: -- Deletes the selected Line Location from the Database and
1046: -- calls the pricing APIs to calculate the new price if a Standard PO
1047: -- shipment with a source reference is deleted
1048: --Parameters:
1049: --IN:
1050: --p_line_loc_id
1055: -- Line ID for the Po line to be deleted
1056: --p_po_header_id
1057: -- Header ID of the PO to which the PO line being deleted belongs
1058: --p_doc_subtype
1059: -- Document Sub type of the PO [STANDARD/BLANKET]
1060: --OUT:
1061: --x_return_status
1062: -- Standard API specification parameter
1063: -- Can hold one of the following values:
1058: --p_doc_subtype
1059: -- Document Sub type of the PO [STANDARD/BLANKET]
1060: --OUT:
1061: --x_return_status
1062: -- Standard API specification parameter
1063: -- Can hold one of the following values:
1064: -- FND_API.G_RET_STS_SUCCESS (='S')
1065: -- FND_API.G_RET_STS_ERROR (='E')
1066: -- FND_API.G_RET_STS_UNEXP_ERROR (='U')
1161: END IF;
1162:
1163: d_pos := 70;
1164: -- Call the wrapper function to calculate the price when a shipment
1165: -- of a Standard PO with a source reference is deleted
1166: IF (p_doc_subtype = 'STANDARD' AND
1167: (l_po_lines_rec.from_header_id IS NOT NULL OR
1168: l_po_lines_rec.contract_id IS NOT NULL))
1169: THEN
1162:
1163: d_pos := 70;
1164: -- Call the wrapper function to calculate the price when a shipment
1165: -- of a Standard PO with a source reference is deleted
1166: IF (p_doc_subtype = 'STANDARD' AND
1167: (l_po_lines_rec.from_header_id IS NOT NULL OR
1168: l_po_lines_rec.contract_id IS NOT NULL))
1169: THEN
1170:
1177: IF (PO_LOG.d_stmt) THEN
1178: PO_LOG.stmt(d_module,d_pos,'l_min_shipment_num', l_min_shipment_num);
1179: END IF;
1180: -- Call the API to obtain the new price based on the 1st shipment of the
1181: -- standard PO.
1182: l_org_id := PO_MOAC_UTILS_PVT.get_current_org_id;
1183: d_pos := 100;
1184: IF (PO_LOG.d_stmt) THEN
1185: PO_LOG.stmt(d_module,d_pos,'l_org_id', l_org_id);
1245: -- then the Price Differentials need to be redefaulted/cleared.
1246: IF (l_is_source_info_changed)
1247: THEN
1248: IF (l_po_lines_rec.order_type_lookup_code = 'RATE' AND
1249: p_doc_subtype = 'STANDARD')
1250: THEN
1251:
1252: IF (l_from_line_location_id IS NOT NULL)
1253: THEN
1265: PO_PRICE_DIFFERENTIALS_PVT.delete_price_differentials(
1266: p_entity_type => 'PO LINE',
1267: p_entity_id => l_po_lines_rec.po_line_id);
1268: d_pos := 140;
1269: -- Copy Price Differentials from GA to Standard PO
1270: PO_PRICE_DIFFERENTIALS_PVT.default_price_differentials(
1271: p_from_entity_type => l_ga_entity_type,
1272: p_from_entity_id => l_ga_entity_id,
1273: p_to_entity_type => 'PO LINE',
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;
1285: END IF; --l_type_lookup_code = 'STANDARD'
1286:
1287: IF (PO_LOG.d_proc) THEN
1288: PO_LOG.proc_end(d_module);
1289: END IF;