1: PACKAGE BODY PO_HEADERS_SV1 as
2: /* $Header: POXPOH1B.pls 120.4 2007/12/04 09:01:22 bisdas ship $*/
3:
4: /*===========================================================================
5:
102: (X_type_lookup_code = 'CONTRACT') ) then
103:
104: X_progress := '005';
105:
106: X_encumbered := po_headers_sv1.get_po_encumbered(X_po_header_id);
107:
108: /* If the PO is encumbered, it has to be cancelled */
109:
110: if X_encumbered then
156: WHERE po_header_id = X_po_header_id
157: AND nvl(encumbered_flag,'N') <> 'N';
158:
159: --BUG 3230237
160: --PO_HEADERS_SV1.delete_po calls this procedure to determine
161: --if a PO can be deleted. We need to prevent encumbered
162: --BPAs from getting deleted.
163: --AND distribution_type <> 'AGREEMENT'; --
164:
264: -- (X_type_lookup_code = 'BLANKET')) then
265: --
266: -- X_progress := '030';
267: -- --dbms_output.put_line('Before Delete all releases');
268: -- po_headers_sv1.delete_this_release (X_po_header_id);
269: --
270: -- end if;
271: --
272:
308:
309: --
310: -- If the calling source is HTML then we need not do the validations as we
311: -- would have already performed these validations in
312: -- PO_HEADERS_SV1.validate_delete_document
313: IF p_skip_validation = 'Y' THEN
314: x_progress := '012';
315: x_allow_delete := TRUE;
316: ELSE
361: fnd_attached_documents2_pkg.delete_attachments('PO_HEADERS',
362: x_po_header_id,
363: '', '', '', '', 'Y');
364:
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
449: END delete_this_release;
450:
451: /*===========================================================================
452:
453: PROCEDURE NAME: insert_po()- Moved to po_headers_sv11
454: ===========================================================================*/
455:
456: /*===========================================================================
457:
515: IS
516: l_some_dists_reserved_flag VARCHAR2(1) := 'N';
517: d_pos NUMBER := 10;
518: l_api_name CONSTANT VARCHAR2(30) := 'validate_delete_document';
519: d_module CONSTANT VARCHAR2(70) := 'po.plsql.PO_HEADERS_SV1.validate_delete_document';
520: BEGIN
521: IF (PO_LOG.d_proc) THEN
522: PO_LOG.proc_begin(d_module); PO_LOG.proc_begin(d_module,'p_doc_type', p_doc_type); PO_LOG.proc_begin(d_module,'p_doc_header_id', p_doc_header_id); PO_LOG.proc_begin(d_module,'p_doc_approved_date', p_doc_approved_date);
523: PO_LOG.proc_begin(d_module,'p_auth_status', p_auth_status); PO_LOG.proc_begin(d_module,'p_style_disp_name', p_style_disp_name);
569: -----------------------------------------------------------------------------
570: --Start of Comments
571: --Name: delete_document
572: --Pre-reqs:
573: -- PO_HEADERS_SV1.validate_delete_document should be called to check if the
574: -- the delete action is a valid action on the document.
575: --Modifies:
576: -- None
577: --Locks:
609: l_msg_count NUMBER;
610: l_msg_data VARCHAR2(2000);
611: d_pos NUMBER := 0;
612: l_api_name CONSTANT VARCHAR2(30) := 'delete_document';
613: d_module CONSTANT VARCHAR2(70) := 'po.plsql.PO_HEADERS_SV1.delete_document';
614:
615: BEGIN
616: IF (PO_LOG.d_proc) THEN
617: PO_LOG.proc_begin(d_module); PO_LOG.proc_begin(d_module,'p_doc_type', p_doc_type); PO_LOG.proc_begin(d_module,'p_doc_header_id', p_doc_header_id); PO_LOG.proc_begin(d_module,'p_ga_flag', p_ga_flag);
670:
671: ELSE
672: d_pos := 80;
673: RAISE FND_API.g_exc_error;
674: END IF;--PO_HEADERS_SV1.delete_po
675:
676: IF (PO_LOG.d_proc) THEN
677: PO_LOG.proc_end(d_module);
678: END IF;
688: RAISE;
689: END;
690:
691: --
692: END PO_HEADERS_SV1;