117:
118: if (X_type_lookup_code NOT IN ('BLANKET','RFQ', 'QUOTATION')) THEN
119:
120: -- delete the distributions associated with the line.
121: po_distributions_sv.delete_distributions(X_delete_id,
122: 'LINE');
123:
124: end if; /* X_type_lookup_code not in RFQ and QUOTATION */
125:
187:
188: if (X_type_lookup_code NOT IN ('BLANKET', 'RFQ', 'QUOTATION')) THEN
189:
190: -- delete the distributions associated with the header
191: po_distributions_sv.delete_distributions(X_delete_id,
192: 'HEADER');
193:
194: end if; /* X_type_lookup_code not in RFQ and QUOTATION */
195:
241: and prior to the fix we were deleting shipment first and then trying to
242: delete the distributions based on the line_location_id which did
243: not delete any records and thereby we ended up having orphan
244: distribution records.
245: Moved the po_distributions_sv_delete_distributions before deletion
246: of shipment lines
247: */
248:
249: -- delete the distributions associated with the release
246: of shipment lines
247: */
248:
249: -- delete the distributions associated with the release
250: po_distributions_sv.delete_distributions(X_delete_id,
251: 'RELEASE');
252:
253: X_progress := '030';
254:
407:
408: --dbms_output.put_line('In call to delete children');
409:
410: -- delete the distributions associated with the shipment
411: po_distributions_sv.delete_distributions(X_line_location_id,
412: 'SHIPMENT');
413:
414: -- Remove the req link
415: po_req_lines_sv.remove_req_from_po(X_line_location_id,'SHIPMENT');
826: X_Progress := '080';
827:
828: SELECT COUNT(po_distribution_id)
829: INTO X_num_of_distributions
830: FROM po_distributions pd
831: WHERE pd.line_location_id = X_line_location_id
832: AND NOT EXISTS (SELECT 'there are encumbered distributions'
833: FROM po_distributions pd2
834: WHERE pd2.line_location_id =
829: INTO X_num_of_distributions
830: FROM po_distributions pd
831: WHERE pd.line_location_id = X_line_location_id
832: AND NOT EXISTS (SELECT 'there are encumbered distributions'
833: FROM po_distributions pd2
834: WHERE pd2.line_location_id =
835: X_line_location_id
836: AND NVL(pd2.encumbered_flag, 'N') <> 'N') ;
837:
846: IF X_num_of_distributions = 1 THEN
847:
848: X_Progress := '090';
849:
850: UPDATE po_distributions
851: SET quantity_ordered = X_quantity,
852: last_update_date = X_last_update_date,
853: last_updated_by = X_last_updated_by
854: WHERE line_location_id = X_line_location_id;
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;
874: END IF;
875: