1: PACKAGE BODY PO_HEADERS_SV1 as
2: /* $Header: POXPOH1B.pls 120.9.12020000.2 2013/02/11 01:13:13 vegajula ship $*/
3:
4: /*Added Log Messages as part of bug 12405805 */
5: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
6: g_log_head CONSTANT VARCHAR2(50) :='po.plsql.PO_HEADERS_SV1';
7:
8:
9: /*===========================================================================
818: BEGIN
819:
820:
821: IF g_debug_stmt THEN
822: PO_DEBUG.debug_begin(l_log_head);
823: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_entity',p_doc_entity);
824: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id',p_doc_id);
825: END IF;
826:
819:
820:
821: IF g_debug_stmt THEN
822: PO_DEBUG.debug_begin(l_log_head);
823: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_entity',p_doc_entity);
824: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id',p_doc_id);
825: END IF;
826:
827:
820:
821: IF g_debug_stmt THEN
822: PO_DEBUG.debug_begin(l_log_head);
823: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_entity',p_doc_entity);
824: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id',p_doc_id);
825: END IF;
826:
827:
828:
840:
841: l_progress:= '010';
842:
843: IF g_debug_stmt THEN
844: PO_DEBUG.debug_var(l_log_head,l_progress,'l_org_id',l_org_id);
845: END IF;
846:
847: l_progress:= '015';
848:
859: RETURN;
860: ELSE
861:
862: IF g_debug_stmt THEN
863: PO_DEBUG.debug_var(l_log_head,l_progress,'l_is_encumb_on', 'TRUE');
864: END IF;
865:
866:
867: SELECT set_of_books_id INTO l_ledger_id
870:
871: l_progress:= '020';
872:
873: IF g_debug_stmt THEN
874: PO_DEBUG.debug_var(l_log_head,l_progress,'l_ledger_id',l_ledger_id);
875: END IF;
876:
877: l_security_context.security_id_int_1 := l_org_id;
878: l_legal_entity_id := xle_utilities_grp.Get_defaultlegalcontext_ou(l_org_id);
879:
880: l_progress:= '030';
881:
882: IF g_debug_stmt THEN
883: PO_DEBUG.debug_var(l_log_head,l_progress,'l_ledger_id',l_ledger_id);
884: END IF;
885:
886: --Building the event source information
887: l_event_source_info.source_application_id := NULL;
893:
894: l_progress:= '040';
895:
896: IF g_debug_stmt THEN
897: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.source_application_id',l_event_source_info.source_application_id);
898: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.application_id', l_event_source_info.application_id);
899: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.legal_entity_id', l_event_source_info.legal_entity_id);
900: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.ledger_id', l_event_source_info.ledger_id);
901: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.entity_type_code', l_event_source_info.entity_type_code);
894: l_progress:= '040';
895:
896: IF g_debug_stmt THEN
897: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.source_application_id',l_event_source_info.source_application_id);
898: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.application_id', l_event_source_info.application_id);
899: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.legal_entity_id', l_event_source_info.legal_entity_id);
900: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.ledger_id', l_event_source_info.ledger_id);
901: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.entity_type_code', l_event_source_info.entity_type_code);
902: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.source_id_int_1', l_event_source_info.source_id_int_1);
895:
896: IF g_debug_stmt THEN
897: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.source_application_id',l_event_source_info.source_application_id);
898: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.application_id', l_event_source_info.application_id);
899: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.legal_entity_id', l_event_source_info.legal_entity_id);
900: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.ledger_id', l_event_source_info.ledger_id);
901: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.entity_type_code', l_event_source_info.entity_type_code);
902: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.source_id_int_1', l_event_source_info.source_id_int_1);
903: END IF;
896: IF g_debug_stmt THEN
897: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.source_application_id',l_event_source_info.source_application_id);
898: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.application_id', l_event_source_info.application_id);
899: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.legal_entity_id', l_event_source_info.legal_entity_id);
900: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.ledger_id', l_event_source_info.ledger_id);
901: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.entity_type_code', l_event_source_info.entity_type_code);
902: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.source_id_int_1', l_event_source_info.source_id_int_1);
903: END IF;
904:
897: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.source_application_id',l_event_source_info.source_application_id);
898: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.application_id', l_event_source_info.application_id);
899: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.legal_entity_id', l_event_source_info.legal_entity_id);
900: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.ledger_id', l_event_source_info.ledger_id);
901: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.entity_type_code', l_event_source_info.entity_type_code);
902: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.source_id_int_1', l_event_source_info.source_id_int_1);
903: END IF;
904:
905: IF( p_doc_entity <> 'RELEASE' ) then
898: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.application_id', l_event_source_info.application_id);
899: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.legal_entity_id', l_event_source_info.legal_entity_id);
900: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.ledger_id', l_event_source_info.ledger_id);
901: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.entity_type_code', l_event_source_info.entity_type_code);
902: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.source_id_int_1', l_event_source_info.source_id_int_1);
903: END IF;
904:
905: IF( p_doc_entity <> 'RELEASE' ) then
906: --Before cleaning up of unwanted events, cleaning the PO_BC_DISTRIBUTIONS too
927: END if;
928: EXCEPTION
929: WHEN OTHERS THEN
930: IF g_debug_stmt THEN
931: PO_DEBUG.debug_var(l_log_head,l_progress,'Exception of event_exists, delete_event',sqlerrm);
932: END IF;
933: NULL;
934: END;
935:
942:
943: EXCEPTION
944: WHEN OTHERS THEN
945: IF g_debug_stmt THEN
946: PO_DEBUG.debug_var(l_log_head,l_progress,'Exception of delete_entity',sqlerrm);
947: END IF;
948: NULL;
949: END;
950: END IF;
951:
952: EXCEPTION
953: WHEN OTHERS THEN
954: IF g_debug_stmt THEN
955: PO_DEBUG.debug_var(l_log_head,l_progress,'Exception Block of Delete_Events_entities',sqlerrm);
956: END IF;
957:
958: RAISE;
959: END delete_events_entities;