[Home] [Help]
95: BEGIN
96:
97: /* If it is a PO or an Agreement check if it is encumbered */
98:
99: if ((X_type_lookup_code = 'STANDARD') or
100: (X_type_lookup_code = 'PLANNED') or
101: (X_type_lookup_code = 'BLANKET') or
102: (X_type_lookup_code = 'CONTRACT') ) then
103:
209:
210:
211: --BUG 3230237
212: --Added 'BLANKET' to the if-condition since Encumbrance BPAs can have distributions.
213: if (X_type_lookup_code IN ('STANDARD','PLANNED','BLANKET')) then --BUG 3230237
214: /* Delete Distributions for a PO */
215: X_progress := '020';
216: --dbms_output.put_line('Before Delete All Distributions');
217: po_distributions_sv.delete_distributions(X_po_header_id, 'HEADER');
350:
351: /* Bug 2904413 Need to delete the action history also */
352: Delete po_action_history
353: Where OBJECT_TYPE_CODE = decode(x_type_lookup_code,
354: 'STANDARD', 'PO',
355: 'PLANNED','PO','PA') and
356: OBJECT_SUB_TYPE_CODE = x_type_lookup_code and
357: OBJECT_ID = x_po_header_id;
358:
365: po_headers_sv1.delete_children(X_po_header_id, X_type_lookup_code);
366:
367: po_headers_pkg_s2.delete_row(X_rowid);
368:
369: if ((X_type_lookup_code = 'STANDARD') or
370: (X_type_lookup_code = 'PLANNED')) then
371:
372: /* UPDATE REQ LINK */
373: po_headers_sv2.update_req_link(X_po_header_id);
583: --IN:
584: --p_doc_type
585: -- Document type of the PO [PO/PA]
586: --p_doc_subtype
587: -- Document Subtype of the [STANDARD/BLANKET/CONTRACT]
588: --p_doc_header_id
589: -- Header ID of the PO to which the entity being deleted belongs
590: --p_ga_flag
591: -- Whether the Document is global or not Global Agreement flag
592: --p_conterms_exist_flag
593: -- Whether the Document has Contract Terms or not
594: --OUT:
595: --x_return_status
596: -- Standard API specification parameter
597: -- Can hold one of the following values:
598: -- FND_API.G_RET_STS_SUCCESS (='S')
599: -- FND_API.G_RET_STS_ERROR (='E')
600: --End of Comments