5:
6: g_log_head CONSTANT VARCHAR2(50) := 'po.plsql.'|| G_PKG_NAME || '.' ;
7:
8: -- Read the profile option that enables/disables the debug log
9: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
10: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
11:
12: -- Private package exceptions
13: g_GL_VALIDATE_API_EXC EXCEPTION;
6: g_log_head CONSTANT VARCHAR2(50) := 'po.plsql.'|| G_PKG_NAME || '.' ;
7:
8: -- Read the profile option that enables/disables the debug log
9: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
10: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
11:
12: -- Private package exceptions
13: g_GL_VALIDATE_API_EXC EXCEPTION;
14: g_GL_FUNDS_API_EXC EXCEPTION;
347: l_log_head CONSTANT VARCHAR2(100) := g_log_head || l_proc_name;
348: l_progress VARCHAR2(3) := '000';
349: BEGIN
350: IF g_debug_stmt THEN
351: PO_DEBUG.debug_begin(l_log_head);
352: PO_DEBUG.debug_var(l_log_head,l_progress,'p_status_code',p_status_code);
353: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
354: PO_DEBUG.debug_var(l_log_head,l_progress,'p_set_of_books_id',p_set_of_books_id);
355: PO_DEBUG.debug_var(l_log_head,l_progress,'p_currency_code',p_currency_code);
348: l_progress VARCHAR2(3) := '000';
349: BEGIN
350: IF g_debug_stmt THEN
351: PO_DEBUG.debug_begin(l_log_head);
352: PO_DEBUG.debug_var(l_log_head,l_progress,'p_status_code',p_status_code);
353: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
354: PO_DEBUG.debug_var(l_log_head,l_progress,'p_set_of_books_id',p_set_of_books_id);
355: PO_DEBUG.debug_var(l_log_head,l_progress,'p_currency_code',p_currency_code);
356: END IF;
349: BEGIN
350: IF g_debug_stmt THEN
351: PO_DEBUG.debug_begin(l_log_head);
352: PO_DEBUG.debug_var(l_log_head,l_progress,'p_status_code',p_status_code);
353: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
354: PO_DEBUG.debug_var(l_log_head,l_progress,'p_set_of_books_id',p_set_of_books_id);
355: PO_DEBUG.debug_var(l_log_head,l_progress,'p_currency_code',p_currency_code);
356: END IF;
357: l_progress := '100';
350: IF g_debug_stmt THEN
351: PO_DEBUG.debug_begin(l_log_head);
352: PO_DEBUG.debug_var(l_log_head,l_progress,'p_status_code',p_status_code);
353: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
354: PO_DEBUG.debug_var(l_log_head,l_progress,'p_set_of_books_id',p_set_of_books_id);
355: PO_DEBUG.debug_var(l_log_head,l_progress,'p_currency_code',p_currency_code);
356: END IF;
357: l_progress := '100';
358: --bug#5523323 We have removed the autonomous transaction in the procedure
351: PO_DEBUG.debug_begin(l_log_head);
352: PO_DEBUG.debug_var(l_log_head,l_progress,'p_status_code',p_status_code);
353: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
354: PO_DEBUG.debug_var(l_log_head,l_progress,'p_set_of_books_id',p_set_of_books_id);
355: PO_DEBUG.debug_var(l_log_head,l_progress,'p_currency_code',p_currency_code);
356: END IF;
357: l_progress := '100';
358: --bug#5523323 We have removed the autonomous transaction in the procedure
359: --insert_packet_autonomous. Hence renamed the procedure as
372: l_progress := '200';
373: -- Populate eventids in psa_bc_xla_events_gt for these events
374: -- to be considered by Budgetary Control API
375: IF g_debug_stmt THEN
376: PO_DEBUG.debug_var(l_log_head,l_progress,'x_packet_id',x_packet_id);
377: END IF;
378:
379: IF(x_packet_id IS NOT NULL) THEN
380:
404: END IF;
405:
406: l_progress := '300';
407: IF g_debug_stmt THEN
408: PO_DEBUG.debug_var(l_log_head,l_progress,'x_packet_id',x_packet_id);
409: PO_DEBUG.debug_end(l_log_head);
410: END IF;
411:
412: EXCEPTION
405:
406: l_progress := '300';
407: IF g_debug_stmt THEN
408: PO_DEBUG.debug_var(l_log_head,l_progress,'x_packet_id',x_packet_id);
409: PO_DEBUG.debug_end(l_log_head);
410: END IF;
411:
412: EXCEPTION
413: WHEN OTHERS THEN
411:
412: EXCEPTION
413: WHEN OTHERS THEN
414: IF g_debug_unexp THEN
415: PO_DEBUG.debug_exc(l_log_head,l_progress);
416: END IF;
417: RAISE;
418: END insert_packet;
419:
538: c_packet_id PO_BC_DISTRIBUTIONS.packet_id%TYPE;
539: --
540: BEGIN
541: IF g_debug_stmt THEN
542: PO_DEBUG.debug_begin(l_log_head);
543: PO_DEBUG.debug_var(l_log_head,l_progress,'p_status_code',p_status_code);
544: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
545: PO_DEBUG.debug_var(l_log_head,l_progress,'p_set_of_books_id',p_set_of_books_id);
546: PO_DEBUG.debug_var(l_log_head,l_progress,'p_currency_code',p_currency_code);
539: --
540: BEGIN
541: IF g_debug_stmt THEN
542: PO_DEBUG.debug_begin(l_log_head);
543: PO_DEBUG.debug_var(l_log_head,l_progress,'p_status_code',p_status_code);
544: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
545: PO_DEBUG.debug_var(l_log_head,l_progress,'p_set_of_books_id',p_set_of_books_id);
546: PO_DEBUG.debug_var(l_log_head,l_progress,'p_currency_code',p_currency_code);
547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
540: BEGIN
541: IF g_debug_stmt THEN
542: PO_DEBUG.debug_begin(l_log_head);
543: PO_DEBUG.debug_var(l_log_head,l_progress,'p_status_code',p_status_code);
544: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
545: PO_DEBUG.debug_var(l_log_head,l_progress,'p_set_of_books_id',p_set_of_books_id);
546: PO_DEBUG.debug_var(l_log_head,l_progress,'p_currency_code',p_currency_code);
547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
548: END IF;
541: IF g_debug_stmt THEN
542: PO_DEBUG.debug_begin(l_log_head);
543: PO_DEBUG.debug_var(l_log_head,l_progress,'p_status_code',p_status_code);
544: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
545: PO_DEBUG.debug_var(l_log_head,l_progress,'p_set_of_books_id',p_set_of_books_id);
546: PO_DEBUG.debug_var(l_log_head,l_progress,'p_currency_code',p_currency_code);
547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
548: END IF;
549:
542: PO_DEBUG.debug_begin(l_log_head);
543: PO_DEBUG.debug_var(l_log_head,l_progress,'p_status_code',p_status_code);
544: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
545: PO_DEBUG.debug_var(l_log_head,l_progress,'p_set_of_books_id',p_set_of_books_id);
546: PO_DEBUG.debug_var(l_log_head,l_progress,'p_currency_code',p_currency_code);
547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
548: END IF;
549:
550: l_progress := '010';
543: PO_DEBUG.debug_var(l_log_head,l_progress,'p_status_code',p_status_code);
544: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
545: PO_DEBUG.debug_var(l_log_head,l_progress,'p_set_of_books_id',p_set_of_books_id);
546: PO_DEBUG.debug_var(l_log_head,l_progress,'p_currency_code',p_currency_code);
547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
548: END IF;
549:
550: l_progress := '010';
551:
558:
559: l_progress := '020';
560:
561: IF g_debug_stmt THEN
562: PO_DEBUG.debug_var(l_log_head,l_progress,'x_packet_id',x_packet_id);
563: END IF;
564:
565: --
566: l_appl_id := 201 ; -- Bug 5013999
701: --is the route to be followed to establish a 1-1 mapping between
702: --po_bc_distributions and xla_distribution_links
703: l_num_of_rows_inserted :=sql%rowcount;
704: IF g_debug_stmt THEN
705: PO_DEBUG.debug_var(l_log_head,l_progress,'l_num_of_rows_inserted',l_num_of_rows_inserted);
706: END IF;
707:
708: IF l_num_of_rows_inserted = 0 THEN
709: x_packet_id :=NULL;
707:
708: IF l_num_of_rows_inserted = 0 THEN
709: x_packet_id :=NULL;
710: IF g_debug_stmt THEN
711: PO_DEBUG.debug_stmt(l_log_head,l_progress,'GL packet not created.');
712: END IF;
713: END IF;
714:
715: IF(x_packet_id is not null)THEN
725: l_event_type_code := get_event_type_code(rec_po_bc_dist_back_recreated.distribution_type,p_action);
726: c_distribution_id := NULL;
727: IF ( l_event_type_code = 'PO_PA_CANCELLED' OR l_event_type_code = 'RELEASE_CANCELLED' ) THEN
728: IF g_debug_stmt THEN
729: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Checking for Backing Recreated Requistion.');
730: END IF;
731:
732: BEGIN
733:
744: AND pbd2.distribution_id = rec_po_bc_dist_back_recreated.distribution_id ;
745:
746: EXCEPTION
747: WHEN NO_DATA_FOUND THEN
748: PO_DEBUG.debug_stmt(l_log_head,l_progress,'No Recreated Backing Distribution Exists');
749: END;
750:
751:
752: IF g_debug_stmt THEN
749: END;
750:
751:
752: IF g_debug_stmt THEN
753: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Recreated Backing Distribution Exists');
754: PO_DEBUG.debug_var(l_log_head,l_progress,'Req distribution_id',c_distribution_id);
755: END IF;
756:
757: IF ( c_distribution_id IS NOT NULL ) THEN
750:
751:
752: IF g_debug_stmt THEN
753: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Recreated Backing Distribution Exists');
754: PO_DEBUG.debug_var(l_log_head,l_progress,'Req distribution_id',c_distribution_id);
755: END IF;
756:
757: IF ( c_distribution_id IS NOT NULL ) THEN
758:
763: AND pbd.main_or_backing_code = 'B_REQ'
764: AND pbd.distribution_id = c_distribution_id ;
765:
766: IF g_debug_stmt THEN
767: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Updating Recreated Requisition Successfull');
768: END IF;
769: END IF; -- c_distribution_id IS NOT NULL
770:
771: END IF;
786: WHERE PBD.packet_id = x_packet_id ;
787: --
788: --
789: IF g_debug_stmt THEN
790: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Bulk Insertion Successful');
791: END IF;
792: --
793:
794: -- Get the current org id
808: -- Bug 4654758 : get the legal entity id using the API
809: l_legal_entity_id := xle_utilities_grp.Get_DefaultLegalContext_OU(l_current_org_id);
810:
811: IF g_debug_stmt THEN
812: PO_DEBUG.debug_var(l_log_head,l_progress,'l_legal_entity_id ',l_legal_entity_id );
813: END IF;
814:
815: l_event_status_code := xla_events_pub_pkg.c_event_unprocessed;
816: IF g_debug_stmt THEN
813: END IF;
814:
815: l_event_status_code := xla_events_pub_pkg.c_event_unprocessed;
816: IF g_debug_stmt THEN
817: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_status_code ',l_event_status_code );
818: END IF;
819:
820: l_event_number := NULL;
821: l_valuation_method := NULL;
839: FROM PO_BC_DISTRIBUTIONS
840: WHERE packet_id = x_packet_id
841: AND distribution_id = rec_po_bc_dist.distribution_id
842: and rownum = 1; -- IR ISO ER 7410448
843: PO_DEBUG.debug_var(l_log_head,l_progress,'Event_type_code Exists : ',c_event_type_code);
844:
845: IF (c_event_type_code IS null) THEN
846: -- get the event type for this main document.
847: l_event_type_code := get_event_type_code(rec_po_bc_dist.distribution_type,p_action);
855: l_event_source_info.source_id_int_1 := rec_po_bc_dist.applied_to_header_id_1;
856: l_security_context.security_id_int_1 := l_current_org_id ;
857:
858: IF g_debug_stmt THEN
859: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.source_application_id',l_event_source_info.source_application_id);
860: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.application_id',l_event_source_info.application_id);
861: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.legal_entity_id',l_event_source_info.legal_entity_id);
862: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.ledger_id',l_event_source_info.ledger_id);
863: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.entity_type_code',l_event_source_info.entity_type_code);
856: l_security_context.security_id_int_1 := l_current_org_id ;
857:
858: IF g_debug_stmt THEN
859: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.source_application_id',l_event_source_info.source_application_id);
860: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.application_id',l_event_source_info.application_id);
861: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.legal_entity_id',l_event_source_info.legal_entity_id);
862: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.ledger_id',l_event_source_info.ledger_id);
863: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.entity_type_code',l_event_source_info.entity_type_code);
864: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.transaction_number',l_event_source_info.transaction_number);
857:
858: IF g_debug_stmt THEN
859: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.source_application_id',l_event_source_info.source_application_id);
860: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.application_id',l_event_source_info.application_id);
861: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.legal_entity_id',l_event_source_info.legal_entity_id);
862: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.ledger_id',l_event_source_info.ledger_id);
863: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.entity_type_code',l_event_source_info.entity_type_code);
864: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.transaction_number',l_event_source_info.transaction_number);
865: 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);
858: IF g_debug_stmt THEN
859: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.source_application_id',l_event_source_info.source_application_id);
860: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.application_id',l_event_source_info.application_id);
861: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.legal_entity_id',l_event_source_info.legal_entity_id);
862: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.ledger_id',l_event_source_info.ledger_id);
863: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.entity_type_code',l_event_source_info.entity_type_code);
864: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.transaction_number',l_event_source_info.transaction_number);
865: 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);
866: PO_DEBUG.debug_var(l_log_head,l_progress,'l_security_context.security_id_int_1',l_security_context.security_id_int_1);
859: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.source_application_id',l_event_source_info.source_application_id);
860: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.application_id',l_event_source_info.application_id);
861: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.legal_entity_id',l_event_source_info.legal_entity_id);
862: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.ledger_id',l_event_source_info.ledger_id);
863: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.entity_type_code',l_event_source_info.entity_type_code);
864: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.transaction_number',l_event_source_info.transaction_number);
865: 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);
866: PO_DEBUG.debug_var(l_log_head,l_progress,'l_security_context.security_id_int_1',l_security_context.security_id_int_1);
867: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_type_code',l_event_type_code);
860: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.application_id',l_event_source_info.application_id);
861: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.legal_entity_id',l_event_source_info.legal_entity_id);
862: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.ledger_id',l_event_source_info.ledger_id);
863: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.entity_type_code',l_event_source_info.entity_type_code);
864: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.transaction_number',l_event_source_info.transaction_number);
865: 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);
866: PO_DEBUG.debug_var(l_log_head,l_progress,'l_security_context.security_id_int_1',l_security_context.security_id_int_1);
867: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_type_code',l_event_type_code);
868: END IF;
861: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.legal_entity_id',l_event_source_info.legal_entity_id);
862: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.ledger_id',l_event_source_info.ledger_id);
863: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.entity_type_code',l_event_source_info.entity_type_code);
864: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.transaction_number',l_event_source_info.transaction_number);
865: 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);
866: PO_DEBUG.debug_var(l_log_head,l_progress,'l_security_context.security_id_int_1',l_security_context.security_id_int_1);
867: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_type_code',l_event_type_code);
868: END IF;
869: --
862: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.ledger_id',l_event_source_info.ledger_id);
863: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.entity_type_code',l_event_source_info.entity_type_code);
864: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.transaction_number',l_event_source_info.transaction_number);
865: 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);
866: PO_DEBUG.debug_var(l_log_head,l_progress,'l_security_context.security_id_int_1',l_security_context.security_id_int_1);
867: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_type_code',l_event_type_code);
868: END IF;
869: --
870: open cur_po_bc_dist_del(rec_po_bc_dist.distribution_id,l_event_type_code); --Bug#5187228
863: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.entity_type_code',l_event_source_info.entity_type_code);
864: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_source_info.transaction_number',l_event_source_info.transaction_number);
865: 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);
866: PO_DEBUG.debug_var(l_log_head,l_progress,'l_security_context.security_id_int_1',l_security_context.security_id_int_1);
867: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_type_code',l_event_type_code);
868: END IF;
869: --
870: open cur_po_bc_dist_del(rec_po_bc_dist.distribution_id,l_event_type_code); --Bug#5187228
871: --
895: p_security_context => l_security_context
896: );
897: l_old_event_id := l_array_event_info(1).event_id;
898: IF g_debug_stmt THEN
899: PO_DEBUG.debug_var(l_log_head,l_progress,'l_old_event_id ',l_old_event_id) ;
900: END IF;
901: DELETE
902: FROM PO_BC_DISTRIBUTIONS
903: WHERE ae_event_id = l_old_event_id
912: p_valuation_method => l_valuation_method,
913: p_security_context => l_security_context
914: );
915: IF g_debug_stmt THEN
916: PO_DEBUG.debug_var(l_log_head,l_progress,'Event deleted : ',l_old_event_id) ;
917: END IF;
918: --Bug#5187228 Need to delete the entities from the XLA tables.
919: l_delete_event := xla_events_pub_pkg.DELETE_ENTITY( p_source_info => l_event_source_info,
920: p_valuation_method => l_valuation_method,
954: );
955:
956: l_progress := '150' ;
957: IF g_debug_stmt THEN
958: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_id ',l_event_id);
959: END IF;
960: --
961: ELSE
962: l_array_event_info := xla_events_pub_pkg.get_array_event_info
968: p_security_context => l_security_context
969: );
970: l_old_event_id := l_array_event_info(1).event_id;
971: IF g_debug_stmt THEN
972: PO_DEBUG.debug_var(l_log_head,l_progress,'l_old_event_id ',l_old_event_id) ;
973: END IF;
974:
975: DELETE
976: FROM PO_BC_DISTRIBUTIONS
981: -- Cleanup XLA tables for this event
982: l_num_of_rows_deleted := SQL%rowcount;
983:
984: IF g_debug_stmt THEN
985: PO_DEBUG.debug_var(l_log_head,l_progress,'l_num_of_rows_deleted ',l_num_of_rows_deleted );
986: END IF;
987:
988: if l_num_of_rows_deleted >0 then
989: xla_events_pub_pkg.DELETE_EVENT
993: p_valuation_method => l_valuation_method,
994: p_security_context => l_security_context
995: );
996: IF g_debug_stmt THEN
997: PO_DEBUG.debug_var(l_log_head,l_progress,'Event deleted : ',l_old_event_id) ;
998: END IF;
999: --Bug#5187228 Need to delete the entities from the XLA tables.
1000: l_delete_event := xla_events_pub_pkg.DELETE_ENTITY( p_source_info => l_event_source_info,
1001: p_valuation_method => l_valuation_method,
1021: --
1022: END IF;
1023: -- Stamp eventid onto corresponding records in po_bc_distributions
1024: IF g_debug_stmt THEN
1025: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_id ',l_event_id );
1026: PO_DEBUG.debug_var(l_log_head,l_progress,'rec_po_bc_dist.applied_to_header_id_1',rec_po_bc_dist.applied_to_header_id_1);
1027: PO_DEBUG.debug_var(l_log_head,l_progress,'rec_po_bc_dist.gl_date',rec_po_bc_dist.gl_date);
1028: END IF;
1029: l_progress := '160';
1022: END IF;
1023: -- Stamp eventid onto corresponding records in po_bc_distributions
1024: IF g_debug_stmt THEN
1025: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_id ',l_event_id );
1026: PO_DEBUG.debug_var(l_log_head,l_progress,'rec_po_bc_dist.applied_to_header_id_1',rec_po_bc_dist.applied_to_header_id_1);
1027: PO_DEBUG.debug_var(l_log_head,l_progress,'rec_po_bc_dist.gl_date',rec_po_bc_dist.gl_date);
1028: END IF;
1029: l_progress := '160';
1030: --
1023: -- Stamp eventid onto corresponding records in po_bc_distributions
1024: IF g_debug_stmt THEN
1025: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_id ',l_event_id );
1026: PO_DEBUG.debug_var(l_log_head,l_progress,'rec_po_bc_dist.applied_to_header_id_1',rec_po_bc_dist.applied_to_header_id_1);
1027: PO_DEBUG.debug_var(l_log_head,l_progress,'rec_po_bc_dist.gl_date',rec_po_bc_dist.gl_date);
1028: END IF;
1029: l_progress := '160';
1030: --
1031: IF(l_event_id IS NOT NULL)THEN
1041: BULK COLLECT
1042: INTO l_seq_num_tbl ; -- to return ids of distributions updated
1043:
1044: IF g_debug_stmt THEN
1045: PO_DEBUG.debug_var(l_log_head,l_progress,'l_seq_num_tbl',l_seq_num_tbl);
1046: END IF;
1047:
1048: l_progress := '160';
1049: -- Bug #4637958 Begin
1068: --
1069: -- Bug #4637958 End
1070: ELSE
1071: IF g_debug_stmt THEN
1072: PO_DEBUG.debug_stmt(l_log_head,l_progress,'l_event_id is null');
1073: END IF;
1074: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1075: END IF;
1076: --
1084: l_progress := '900';
1085: END IF;--if x_packet_id is not null
1086:
1087: IF g_debug_stmt THEN
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_packet_id',x_packet_id);
1089: PO_DEBUG.debug_end(l_log_head);
1090: END IF;
1091:
1092: EXCEPTION
1085: END IF;--if x_packet_id is not null
1086:
1087: IF g_debug_stmt THEN
1088: PO_DEBUG.debug_var(l_log_head,l_progress,'x_packet_id',x_packet_id);
1089: PO_DEBUG.debug_end(l_log_head);
1090: END IF;
1091:
1092: EXCEPTION
1093: WHEN OTHERS THEN
1170: l_bc_mode VARCHAR2(1); -- Bug 4995509
1171: BEGIN
1172:
1173: IF g_debug_stmt THEN
1174: PO_DEBUG.debug_begin(l_log_head);
1175: PO_DEBUG.debug_var(l_log_head,l_progress,'p_set_of_books_id',p_set_of_books_id);
1176: PO_DEBUG.debug_var(l_log_head,l_progress,'p_packet_id',p_packet_id);
1177: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_mode',p_gl_mode);
1178: PO_DEBUG.debug_var(l_log_head,l_progress,'p_partial_resv_flag',p_partial_resv_flag);
1171: BEGIN
1172:
1173: IF g_debug_stmt THEN
1174: PO_DEBUG.debug_begin(l_log_head);
1175: PO_DEBUG.debug_var(l_log_head,l_progress,'p_set_of_books_id',p_set_of_books_id);
1176: PO_DEBUG.debug_var(l_log_head,l_progress,'p_packet_id',p_packet_id);
1177: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_mode',p_gl_mode);
1178: PO_DEBUG.debug_var(l_log_head,l_progress,'p_partial_resv_flag',p_partial_resv_flag);
1179: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override',p_override);
1172:
1173: IF g_debug_stmt THEN
1174: PO_DEBUG.debug_begin(l_log_head);
1175: PO_DEBUG.debug_var(l_log_head,l_progress,'p_set_of_books_id',p_set_of_books_id);
1176: PO_DEBUG.debug_var(l_log_head,l_progress,'p_packet_id',p_packet_id);
1177: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_mode',p_gl_mode);
1178: PO_DEBUG.debug_var(l_log_head,l_progress,'p_partial_resv_flag',p_partial_resv_flag);
1179: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override',p_override);
1180: PO_DEBUG.debug_var(l_log_head,l_progress,'p_conc_flag',p_conc_flag);
1173: IF g_debug_stmt THEN
1174: PO_DEBUG.debug_begin(l_log_head);
1175: PO_DEBUG.debug_var(l_log_head,l_progress,'p_set_of_books_id',p_set_of_books_id);
1176: PO_DEBUG.debug_var(l_log_head,l_progress,'p_packet_id',p_packet_id);
1177: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_mode',p_gl_mode);
1178: PO_DEBUG.debug_var(l_log_head,l_progress,'p_partial_resv_flag',p_partial_resv_flag);
1179: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override',p_override);
1180: PO_DEBUG.debug_var(l_log_head,l_progress,'p_conc_flag',p_conc_flag);
1181: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
1174: PO_DEBUG.debug_begin(l_log_head);
1175: PO_DEBUG.debug_var(l_log_head,l_progress,'p_set_of_books_id',p_set_of_books_id);
1176: PO_DEBUG.debug_var(l_log_head,l_progress,'p_packet_id',p_packet_id);
1177: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_mode',p_gl_mode);
1178: PO_DEBUG.debug_var(l_log_head,l_progress,'p_partial_resv_flag',p_partial_resv_flag);
1179: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override',p_override);
1180: PO_DEBUG.debug_var(l_log_head,l_progress,'p_conc_flag',p_conc_flag);
1181: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
1182: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_resp_id',p_user_resp_id);
1175: PO_DEBUG.debug_var(l_log_head,l_progress,'p_set_of_books_id',p_set_of_books_id);
1176: PO_DEBUG.debug_var(l_log_head,l_progress,'p_packet_id',p_packet_id);
1177: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_mode',p_gl_mode);
1178: PO_DEBUG.debug_var(l_log_head,l_progress,'p_partial_resv_flag',p_partial_resv_flag);
1179: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override',p_override);
1180: PO_DEBUG.debug_var(l_log_head,l_progress,'p_conc_flag',p_conc_flag);
1181: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
1182: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_resp_id',p_user_resp_id);
1183: END IF;
1176: PO_DEBUG.debug_var(l_log_head,l_progress,'p_packet_id',p_packet_id);
1177: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_mode',p_gl_mode);
1178: PO_DEBUG.debug_var(l_log_head,l_progress,'p_partial_resv_flag',p_partial_resv_flag);
1179: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override',p_override);
1180: PO_DEBUG.debug_var(l_log_head,l_progress,'p_conc_flag',p_conc_flag);
1181: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
1182: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_resp_id',p_user_resp_id);
1183: END IF;
1184:
1177: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_mode',p_gl_mode);
1178: PO_DEBUG.debug_var(l_log_head,l_progress,'p_partial_resv_flag',p_partial_resv_flag);
1179: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override',p_override);
1180: PO_DEBUG.debug_var(l_log_head,l_progress,'p_conc_flag',p_conc_flag);
1181: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
1182: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_resp_id',p_user_resp_id);
1183: END IF;
1184:
1185: l_progress := '100';
1178: PO_DEBUG.debug_var(l_log_head,l_progress,'p_partial_resv_flag',p_partial_resv_flag);
1179: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override',p_override);
1180: PO_DEBUG.debug_var(l_log_head,l_progress,'p_conc_flag',p_conc_flag);
1181: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id',p_user_id);
1182: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_resp_id',p_user_resp_id);
1183: END IF;
1184:
1185: l_progress := '100';
1186: -- Bug 4995509 Begin
1231: l_progress := '120';
1232: --
1233:
1234: IF g_debug_stmt THEN
1235: PO_DEBUG.debug_var(l_log_head,l_progress,'PSA function return_code', l_status_code);
1236: END IF;
1237:
1238: --
1239: -- Raise exception if return status is Unexpected error('U') or
1255:
1256: l_progress := '140';
1257:
1258: IF g_debug_stmt THEN
1259: PO_DEBUG.debug_stmt(l_log_head,l_progress,'GL Call Executed Successfully');
1260: END IF;
1261:
1262: -- END IF; -- p_gl_mode <> 'F' or l_validate_return_status...
1263: --
1264:
1265: l_progress := '900';
1266:
1267: IF g_debug_stmt THEN
1268: PO_DEBUG.debug_var(l_log_head,l_progress,'GL Call x_return_code',x_return_code);
1269: PO_DEBUG.debug_end(l_log_head);
1270: END IF;
1271:
1272: EXCEPTION
1265: l_progress := '900';
1266:
1267: IF g_debug_stmt THEN
1268: PO_DEBUG.debug_var(l_log_head,l_progress,'GL Call x_return_code',x_return_code);
1269: PO_DEBUG.debug_end(l_log_head);
1270: END IF;
1271:
1272: EXCEPTION
1273: WHEN g_GL_FUNDS_API_EXC THEN
1277: FND_MESSAGE.set_token('PROC_CALLER',
1278: 'PO_ENCUMBRANCE_POSTPROCESSING.execute_gl_call');
1279: fnd_msg_pub.add;
1280: IF g_debug_unexp THEN
1281: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_code',x_return_code);
1282: END IF;
1283: RAISE FND_API.g_EXC_UNEXPECTED_ERROR;
1284:
1285: WHEN OTHERS THEN
1344: l_reference15_tbl reference15_tbl_type;--bug#5201733
1345: BEGIN
1346:
1347: IF g_debug_stmt THEN
1348: PO_DEBUG.debug_begin(l_log_head);
1349: PO_DEBUG.debug_var(l_log_head,l_progress,'p_packet_id',p_packet_id);
1350: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_return_code',p_gl_return_code);
1351: END IF;
1352: --
1345: BEGIN
1346:
1347: IF g_debug_stmt THEN
1348: PO_DEBUG.debug_begin(l_log_head);
1349: PO_DEBUG.debug_var(l_log_head,l_progress,'p_packet_id',p_packet_id);
1350: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_return_code',p_gl_return_code);
1351: END IF;
1352: --
1353: l_progress := '010';
1346:
1347: IF g_debug_stmt THEN
1348: PO_DEBUG.debug_begin(l_log_head);
1349: PO_DEBUG.debug_var(l_log_head,l_progress,'p_packet_id',p_packet_id);
1350: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_return_code',p_gl_return_code);
1351: END IF;
1352: --
1353: l_progress := '010';
1354: --
1466: --
1467: --
1468: IF g_debug_stmt THEN
1469: l_debug_count := SQL%ROWCOUNT;
1470: PO_DEBUG.debug_stmt(l_log_head,l_progress, 'Status/Result codes returned for '
1471: || l_debug_count || ' rows');
1472: END IF;
1473:
1474: l_progress := '020';
1491: --the encumbered_amount, since no trxn was sent to GL.
1492:
1493: IF g_debug_stmt THEN
1494: l_debug_count := SQL%ROWCOUNT;
1495: PO_DEBUG.debug_stmt(l_log_head,l_progress, 'Status/Result codes updated on '
1496: || l_debug_count || ' rows');
1497: END IF;
1498:
1499: --
1512: AND DISTS.result_text IS NULL;
1513:
1514: IF g_debug_stmt THEN
1515: l_debug_count := SQL%ROWCOUNT;
1516: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1517: 'Number of prevent rows updated: ' || l_debug_count);
1518: END IF;
1519:
1520: l_progress := '040';
1530: AND DISTS.result_text IS NULL;
1531:
1532: IF g_debug_stmt THEN
1533: l_debug_count := SQL%ROWCOUNT;
1534: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1535: 'Number of result text rows updated: ' || l_debug_count);
1536: END IF;
1537:
1538: l_progress := '050';
1540: IF p_gl_return_code IN ('A', 'S', 'P') THEN
1541:
1542: l_progress := '060';
1543: IF g_debug_stmt THEN
1544: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Updating successful rows.');
1545: END IF;
1546:
1547: UPDATE PO_ENCUMBRANCE_GT DISTS
1548: SET DISTS.result_type = g_result_WARNING
1553: l_progress := '070';
1554:
1555: IF g_debug_stmt THEN
1556: l_debug_count := SQL%ROWCOUNT;
1557: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1558: 'Number of rows set to Warning: ' || l_debug_count);
1559: END IF;
1560:
1561: UPDATE PO_ENCUMBRANCE_GT DISTS
1566: l_progress := '080';
1567:
1568: IF g_debug_stmt THEN
1569: l_debug_count := SQL%ROWCOUNT;
1570: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1571: 'Number of rows set to Success: ' || l_debug_count);
1572: END IF;
1573:
1574: END IF; -- gl_return_code is S, A or P
1579:
1580: l_progress := '110';
1581:
1582: IF g_debug_stmt THEN
1583: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Updating failed rows.');
1584: END IF;
1585:
1586: l_not_processed_msg := FND_MESSAGE.get_string('PO', 'PO_ENC_DIST_NOT_PROCESSED');
1587:
1594: l_progress := '120';
1595:
1596: IF g_debug_stmt THEN
1597: l_debug_count := SQL%ROWCOUNT;
1598: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1599: 'Number of rows failed: ' || l_debug_count);
1600: END IF;
1601:
1602: UPDATE PO_ENCUMBRANCE_GT DISTS
1609: l_progress := '130';
1610:
1611: IF g_debug_stmt THEN
1612: l_debug_count := SQL%ROWCOUNT;
1613: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1614: 'Number of rows not processed: ' || l_debug_count);
1615: END IF;
1616:
1617: END IF; -- gl_return_code is P, F or T
1618:
1619: l_progress := '900';
1620:
1621: IF g_debug_stmt THEN
1622: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1623: 'PO update of text/message type successful');
1624: PO_DEBUG.debug_table(l_log_head, l_progress, 'PO_ENCUMBRANCE_GT',
1625: PO_DEBUG.g_all_rows,
1626: po_tbl_varchar30('result_text', 'result_type',
1620:
1621: IF g_debug_stmt THEN
1622: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1623: 'PO update of text/message type successful');
1624: PO_DEBUG.debug_table(l_log_head, l_progress, 'PO_ENCUMBRANCE_GT',
1625: PO_DEBUG.g_all_rows,
1626: po_tbl_varchar30('result_text', 'result_type',
1627: 'prevent_encumbrance_flag')
1628: );
1621: IF g_debug_stmt THEN
1622: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1623: 'PO update of text/message type successful');
1624: PO_DEBUG.debug_table(l_log_head, l_progress, 'PO_ENCUMBRANCE_GT',
1625: PO_DEBUG.g_all_rows,
1626: po_tbl_varchar30('result_text', 'result_type',
1627: 'prevent_encumbrance_flag')
1628: );
1629: PO_DEBUG.debug_end(l_log_head);
1625: PO_DEBUG.g_all_rows,
1626: po_tbl_varchar30('result_text', 'result_type',
1627: 'prevent_encumbrance_flag')
1628: );
1629: PO_DEBUG.debug_end(l_log_head);
1630: END IF;
1631: --
1632: EXCEPTION
1633:
1693:
1694: l_progress := '000';
1695:
1696: IF g_debug_stmt THEN
1697: PO_DEBUG.debug_begin(l_log_head);
1698: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1699: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1700: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
1701: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_return_code',p_gl_return_code);
1694: l_progress := '000';
1695:
1696: IF g_debug_stmt THEN
1697: PO_DEBUG.debug_begin(l_log_head);
1698: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1699: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1700: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
1701: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_return_code',p_gl_return_code);
1702: END IF;
1695:
1696: IF g_debug_stmt THEN
1697: PO_DEBUG.debug_begin(l_log_head);
1698: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1699: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1700: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
1701: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_return_code',p_gl_return_code);
1702: END IF;
1703:
1696: IF g_debug_stmt THEN
1697: PO_DEBUG.debug_begin(l_log_head);
1698: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1699: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1700: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
1701: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_return_code',p_gl_return_code);
1702: END IF;
1703:
1704: l_progress := '010';
1697: PO_DEBUG.debug_begin(l_log_head);
1698: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1699: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1700: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
1701: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_return_code',p_gl_return_code);
1702: END IF;
1703:
1704: l_progress := '010';
1705:
1729:
1730: l_progress := '040';
1731:
1732: IF g_debug_stmt THEN
1733: PO_DEBUG.debug_end(l_log_head);
1734: END IF;
1735:
1736: EXCEPTION
1737: WHEN OTHERS THEN
1805:
1806: l_progress := '000';
1807:
1808: IF g_debug_stmt THEN
1809: PO_DEBUG.debug_begin(l_log_head);
1810: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1811: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1812: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
1813: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_return_code',p_gl_return_code);
1806: l_progress := '000';
1807:
1808: IF g_debug_stmt THEN
1809: PO_DEBUG.debug_begin(l_log_head);
1810: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1811: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1812: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
1813: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_return_code',p_gl_return_code);
1814: END IF;
1807:
1808: IF g_debug_stmt THEN
1809: PO_DEBUG.debug_begin(l_log_head);
1810: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1811: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1812: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
1813: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_return_code',p_gl_return_code);
1814: END IF;
1815:
1808: IF g_debug_stmt THEN
1809: PO_DEBUG.debug_begin(l_log_head);
1810: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1811: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1812: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
1813: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_return_code',p_gl_return_code);
1814: END IF;
1815:
1816: l_progress := '010';
1809: PO_DEBUG.debug_begin(l_log_head);
1810: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1811: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1812: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
1813: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_return_code',p_gl_return_code);
1814: END IF;
1815:
1816: l_progress := '010';
1817:
1854:
1855: END IF;
1856:
1857: IF g_debug_stmt THEN
1858: PO_DEBUG.debug_var(l_log_head,l_progress,'l_flip_enc_flag',l_flip_enc_flag);
1859: PO_DEBUG.debug_var(l_log_head,l_progress,'l_main_doc_enc_flag',
1860: l_main_doc_enc_flag_success);
1861: PO_DEBUG.debug_var(l_log_head,l_progress,'l_backing_req_enc_flag',
1862: l_backing_req_enc_flag_success);
1855: END IF;
1856:
1857: IF g_debug_stmt THEN
1858: PO_DEBUG.debug_var(l_log_head,l_progress,'l_flip_enc_flag',l_flip_enc_flag);
1859: PO_DEBUG.debug_var(l_log_head,l_progress,'l_main_doc_enc_flag',
1860: l_main_doc_enc_flag_success);
1861: PO_DEBUG.debug_var(l_log_head,l_progress,'l_backing_req_enc_flag',
1862: l_backing_req_enc_flag_success);
1863: END IF;
1857: IF g_debug_stmt THEN
1858: PO_DEBUG.debug_var(l_log_head,l_progress,'l_flip_enc_flag',l_flip_enc_flag);
1859: PO_DEBUG.debug_var(l_log_head,l_progress,'l_main_doc_enc_flag',
1860: l_main_doc_enc_flag_success);
1861: PO_DEBUG.debug_var(l_log_head,l_progress,'l_backing_req_enc_flag',
1862: l_backing_req_enc_flag_success);
1863: END IF;
1864:
1865: --NOTE: The Temp Table field encumbered_amount_change is used throughout these
1867: -- copy_detailed_gl_results.
1868:
1869: l_progress := '020';
1870: IF g_debug_stmt THEN
1871: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1872: 'Updated encumbered_amount_change');
1873: PO_DEBUG.debug_table(l_log_head, l_progress, 'PO_ENCUMBRANCE_GT',
1874: PO_DEBUG.g_all_rows,
1875: po_tbl_varchar30('encumbered_flag',
1869: l_progress := '020';
1870: IF g_debug_stmt THEN
1871: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1872: 'Updated encumbered_amount_change');
1873: PO_DEBUG.debug_table(l_log_head, l_progress, 'PO_ENCUMBRANCE_GT',
1874: PO_DEBUG.g_all_rows,
1875: po_tbl_varchar30('encumbered_flag',
1876: 'encumbered_amount_change')
1877: );
1870: IF g_debug_stmt THEN
1871: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1872: 'Updated encumbered_amount_change');
1873: PO_DEBUG.debug_table(l_log_head, l_progress, 'PO_ENCUMBRANCE_GT',
1874: PO_DEBUG.g_all_rows,
1875: po_tbl_varchar30('encumbered_flag',
1876: 'encumbered_amount_change')
1877: );
1878: END IF;
1924:
1925: l_progress := '030';
1926: IF g_debug_stmt THEN
1927: l_debug_count := SQL%ROWCOUNT;
1928: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1929: 'Updated Main Req dists: ' || l_debug_count);
1930: END IF;
1931:
1932: --bug 3537764: added following code to handle flags for Req Split
1979:
1980: l_progress := '032';
1981: IF g_debug_stmt THEN
1982: l_debug_count := SQL%ROWCOUNT;
1983: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1984: 'Updated Req Split dists: ' || l_debug_count);
1985: END IF;
1986: END IF; -- if action is req split
1987:
2032:
2033: l_progress := '040';
2034: IF g_debug_stmt THEN
2035: l_debug_count := SQL%ROWCOUNT;
2036: PO_DEBUG.debug_stmt(l_log_head,l_progress,
2037: 'Updated Main PO/Rel dists: ' || l_debug_count);
2038: END IF;
2039:
2040: l_progress := '045';
2093:
2094: l_progress := '050';
2095: IF g_debug_stmt THEN
2096: l_debug_count := SQL%ROWCOUNT;
2097: PO_DEBUG.debug_stmt(l_log_head,l_progress,
2098: 'Updated Backing Req dists: ' || l_debug_count);
2099: END IF;
2100:
2101: END IF; -- backing Reqs
2160:
2161: l_progress := '060';
2162: IF g_debug_stmt THEN
2163: l_debug_count := SQL%ROWCOUNT;
2164: PO_DEBUG.debug_stmt(l_log_head,l_progress,
2165: 'Updated Backing PA/PPO dists: ' || l_debug_count);
2166: END IF;
2167:
2168: l_progress := '065';
2228: l_progress := '070';
2229:
2230: IF g_debug_stmt THEN
2231: l_debug_count := SQL%ROWCOUNT;
2232: PO_DEBUG.debug_stmt(l_log_head,l_progress,
2233: 'Updated Backing PPO dists: ' || l_debug_count);
2234: END IF;
2235:
2236: END IF; -- if main doc is a Scheduled Release
2310: l_progress := '075';
2311:
2312: IF g_debug_stmt THEN
2313: l_debug_count := SQL%ROWCOUNT;
2314: PO_DEBUG.debug_stmt(l_log_head,l_progress,
2315: 'Flipped prevent enc flag: ' || l_debug_count);
2316: END IF;
2317:
2318: END IF; -- RESERVE action and p_doc_type is PO or Release
2333:
2334: l_progress := '080';
2335:
2336: IF g_debug_stmt THEN
2337: PO_DEBUG.debug_end(l_log_head);
2338: END IF;
2339:
2340:
2341: EXCEPTION
2390:
2391: l_progress := '000';
2392:
2393: IF g_debug_stmt THEN
2394: PO_DEBUG.debug_begin(l_log_head);
2395: PO_DEBUG.debug_var(l_log_head, l_progress, 'p_doc_type', p_doc_type);
2396: PO_DEBUG.debug_var(l_log_head, l_progress, 'p_action', p_action);
2397: END IF;
2398:
2391: l_progress := '000';
2392:
2393: IF g_debug_stmt THEN
2394: PO_DEBUG.debug_begin(l_log_head);
2395: PO_DEBUG.debug_var(l_log_head, l_progress, 'p_doc_type', p_doc_type);
2396: PO_DEBUG.debug_var(l_log_head, l_progress, 'p_action', p_action);
2397: END IF;
2398:
2399: l_progress := '010';
2392:
2393: IF g_debug_stmt THEN
2394: PO_DEBUG.debug_begin(l_log_head);
2395: PO_DEBUG.debug_var(l_log_head, l_progress, 'p_doc_type', p_doc_type);
2396: PO_DEBUG.debug_var(l_log_head, l_progress, 'p_action', p_action);
2397: END IF;
2398:
2399: l_progress := '010';
2400:
2428:
2429: l_progress := '020';
2430: IF g_debug_stmt THEN
2431: l_debug_count := SQL%ROWCOUNT;
2432: PO_DEBUG.debug_stmt(l_log_head,l_progress,
2433: 'Updated Req dists failed funds code: ' || l_debug_count);
2434: END IF;
2435:
2436: ELSE -- p_doc_type is Not a Req
2463:
2464: l_progress := '030';
2465: IF g_debug_stmt THEN
2466: l_debug_count := SQL%ROWCOUNT;
2467: PO_DEBUG.debug_stmt(l_log_head,l_progress,
2468: 'Updated PO/Rel dists failed funds code: ' || l_debug_count);
2469: END IF;
2470:
2471: END IF; -- p_doc_type check
2472:
2473: l_progress := '040';
2474:
2475: IF g_debug_stmt THEN
2476: PO_DEBUG.debug_end(l_log_head);
2477: END IF;
2478:
2479: EXCEPTION
2480: WHEN OTHERS THEN
2522:
2523: l_progress := '000';
2524:
2525: IF g_debug_stmt THEN
2526: PO_DEBUG.debug_begin(l_log_head);
2527: END IF;
2528:
2529: l_progress := '010';
2530:
2566:
2567: l_progress := '020';
2568: IF g_debug_stmt THEN
2569: l_debug_count := SQL%ROWCOUNT;
2570: PO_DEBUG.debug_stmt(l_log_head,l_progress,
2571: 'Updated Req lines: ' || l_debug_count);
2572: END IF;
2573:
2574: --SQL What: Update the encumbered_flag from the affected PO/Release
2601:
2602: l_progress := '030';
2603: IF g_debug_stmt THEN
2604: l_debug_count := SQL%ROWCOUNT;
2605: PO_DEBUG.debug_stmt(l_log_head,l_progress,
2606: 'Updated PO shipments: ' || l_debug_count);
2607: PO_DEBUG.debug_end(l_log_head);
2608: END IF;
2609:
2603: IF g_debug_stmt THEN
2604: l_debug_count := SQL%ROWCOUNT;
2605: PO_DEBUG.debug_stmt(l_log_head,l_progress,
2606: 'Updated PO shipments: ' || l_debug_count);
2607: PO_DEBUG.debug_end(l_log_head);
2608: END IF;
2609:
2610: EXCEPTION
2611: WHEN OTHERS THEN
2702:
2703: BEGIN
2704:
2705: IF g_debug_stmt THEN
2706: PO_DEBUG.debug_begin(l_log_head);
2707: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2708: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id_tbl',p_doc_id_tbl);
2709: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
2710: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
2703: BEGIN
2704:
2705: IF g_debug_stmt THEN
2706: PO_DEBUG.debug_begin(l_log_head);
2707: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2708: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id_tbl',p_doc_id_tbl);
2709: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
2710: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
2711: PO_DEBUG.debug_var(l_log_head,l_progress,'p_cbc_flag',p_cbc_flag);
2704:
2705: IF g_debug_stmt THEN
2706: PO_DEBUG.debug_begin(l_log_head);
2707: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2708: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id_tbl',p_doc_id_tbl);
2709: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
2710: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
2711: PO_DEBUG.debug_var(l_log_head,l_progress,'p_cbc_flag',p_cbc_flag);
2712: END IF;
2705: IF g_debug_stmt THEN
2706: PO_DEBUG.debug_begin(l_log_head);
2707: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2708: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id_tbl',p_doc_id_tbl);
2709: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
2710: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
2711: PO_DEBUG.debug_var(l_log_head,l_progress,'p_cbc_flag',p_cbc_flag);
2712: END IF;
2713:
2706: PO_DEBUG.debug_begin(l_log_head);
2707: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2708: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id_tbl',p_doc_id_tbl);
2709: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
2710: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
2711: PO_DEBUG.debug_var(l_log_head,l_progress,'p_cbc_flag',p_cbc_flag);
2712: END IF;
2713:
2714: l_progress := '010';
2707: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2708: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id_tbl',p_doc_id_tbl);
2709: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
2710: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
2711: PO_DEBUG.debug_var(l_log_head,l_progress,'p_cbc_flag',p_cbc_flag);
2712: END IF;
2713:
2714: l_progress := '010';
2715:
2729: l_record_action := p_action;
2730: END IF;
2731:
2732: IF g_debug_stmt THEN
2733: PO_DEBUG.debug_var(l_log_head,l_progress,'l_record_action',l_record_action);
2734: END IF;
2735:
2736: l_progress := '050';
2737:
2856:
2857: l_progress := '160';
2858:
2859: IF g_debug_stmt THEN
2860: PO_DEBUG.debug_session_gt(l_log_head,l_progress,l_gt_key
2861: , po_tbl_varchar30('num1','num2','char1','char2','char3')
2862: );
2863: END IF;
2864:
2912: l_doc_subtype := l_orig_doc_subtype_tbl(i);
2913: l_rev_num := l_orig_rev_num_tbl(i);
2914:
2915: IF g_debug_stmt THEN
2916: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_id',l_doc_id);
2917: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_subtype',l_doc_subtype);
2918: PO_DEBUG.debug_var(l_log_head,l_progress,'l_rev_num',l_rev_num);
2919: END IF;
2920:
2913: l_rev_num := l_orig_rev_num_tbl(i);
2914:
2915: IF g_debug_stmt THEN
2916: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_id',l_doc_id);
2917: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_subtype',l_doc_subtype);
2918: PO_DEBUG.debug_var(l_log_head,l_progress,'l_rev_num',l_rev_num);
2919: END IF;
2920:
2921: -- Is there a NULL action?
2914:
2915: IF g_debug_stmt THEN
2916: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_id',l_doc_id);
2917: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_subtype',l_doc_subtype);
2918: PO_DEBUG.debug_var(l_log_head,l_progress,'l_rev_num',l_rev_num);
2919: END IF;
2920:
2921: -- Is there a NULL action?
2922:
2922:
2923: IF (l_orig_null_flag_tbl(i) = 'Y') THEN
2924:
2925: IF g_debug_stmt THEN
2926: PO_DEBUG.debug_stmt(l_log_head,l_progress, 'A NULL Action Histroy Exists' );
2927: END IF;
2928: -- There is a NULL action for this doc, so update it.
2929:
2930: l_update_doc_id_tbl.EXTEND;
2943: and (p_doc_type <> g_doc_type_REQUISITION)
2944: ) THEN
2945:
2946: IF g_debug_stmt THEN
2947: PO_DEBUG.debug_stmt(l_log_head,l_progress, 'Creating Blank Action Histroy' );
2948: END IF;
2949: l_insert_doc_id_tbl.EXTEND;
2950: l_insert_doc_subtype_tbl.EXTEND;
2951: l_insert_action_code_tbl.EXTEND;
3045:
3046: l_progress := '900';
3047:
3048: IF g_debug_stmt THEN
3049: PO_DEBUG.debug_end(l_log_head);
3050: END IF;
3051:
3052: EXCEPTION
3053: WHEN OTHERS THEN
3103:
3104: l_progress := '000';
3105:
3106: IF g_debug_stmt THEN
3107: PO_DEBUG.debug_begin(l_log_head);
3108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type',p_document_type);
3109: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
3110: PO_DEBUG.debug_var(l_log_head,l_progress,'p_cbc_flag',p_cbc_flag);
3111: END IF;
3104: l_progress := '000';
3105:
3106: IF g_debug_stmt THEN
3107: PO_DEBUG.debug_begin(l_log_head);
3108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type',p_document_type);
3109: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
3110: PO_DEBUG.debug_var(l_log_head,l_progress,'p_cbc_flag',p_cbc_flag);
3111: END IF;
3112:
3105:
3106: IF g_debug_stmt THEN
3107: PO_DEBUG.debug_begin(l_log_head);
3108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type',p_document_type);
3109: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
3110: PO_DEBUG.debug_var(l_log_head,l_progress,'p_cbc_flag',p_cbc_flag);
3111: END IF;
3112:
3113: -- Only change doc status to Requires Reapproval when
3106: IF g_debug_stmt THEN
3107: PO_DEBUG.debug_begin(l_log_head);
3108: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type',p_document_type);
3109: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
3110: PO_DEBUG.debug_var(l_log_head,l_progress,'p_cbc_flag',p_cbc_flag);
3111: END IF;
3112:
3113: -- Only change doc status to Requires Reapproval when
3114: -- 1. Normal Unreserve action succeeds
3124:
3125: ELSE
3126: --for all other actions, do not change the document status
3127: IF g_debug_stmt THEN
3128: PO_DEBUG.debug_stmt(l_log_head,l_progress,'No status change; early return');
3129: END IF;
3130:
3131: RETURN;
3132: END IF;
3131: RETURN;
3132: END IF;
3133:
3134: IF g_debug_stmt THEN
3135: PO_DEBUG.debug_var(l_log_head,l_progress,
3136: 'l_affected_gl_status_code',l_affected_gl_status_code);
3137: END IF;
3138:
3139:
3171: );
3172:
3173: IF g_debug_stmt THEN
3174: l_debug_count := SQL%ROWCOUNT;
3175: PO_DEBUG.debug_stmt(l_log_head,l_progress,
3176: 'PO Shipment flags updated : ' || l_debug_count);
3177: END IF;
3178:
3179: -- Now rollup the Approval flag from Shipments to Headers.
3206: );
3207:
3208: IF g_debug_stmt THEN
3209: l_debug_count := SQL%ROWCOUNT;
3210: PO_DEBUG.debug_stmt(l_log_head,l_progress,
3211: 'PO Headers updated : ' || l_debug_count);
3212: END IF;
3213:
3214: ELSIF (p_document_type = g_doc_type_PA) THEN
3243: );
3244:
3245: IF g_debug_stmt THEN
3246: l_debug_count := SQL%ROWCOUNT;
3247: PO_DEBUG.debug_stmt(l_log_head,l_progress,
3248: 'PA Headers updated : ' || l_debug_count);
3249: END IF;
3250:
3251: ELSIF (p_document_type = g_doc_type_RELEASE) THEN
3278: );
3279:
3280: IF g_debug_stmt THEN
3281: l_debug_count := SQL%ROWCOUNT;
3282: PO_DEBUG.debug_stmt(l_log_head,l_progress,
3283: 'Release shipments updated : ' || l_debug_count);
3284: END IF;
3285:
3286: l_progress := '060';
3311: );
3312:
3313: IF g_debug_stmt THEN
3314: l_debug_count := SQL%ROWCOUNT;
3315: PO_DEBUG.debug_stmt(l_log_head,l_progress,
3316: 'Release Headers updated : ' || l_debug_count);
3317: END IF;
3318:
3319: ELSE -- This is the case of requisitions. For requisitions, once the document is
3327:
3328: l_progress := '070';
3329:
3330: IF g_debug_stmt THEN
3331: PO_DEBUG.debug_end(l_log_head);
3332: END IF;
3333:
3334: EXCEPTION
3335: WHEN OTHERS THEN
3409: l_error_rows_flag VARCHAR2(1);
3410: BEGIN
3411:
3412: IF g_debug_stmt THEN
3413: PO_DEBUG.debug_begin(l_log_head);
3414: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_return_code',
3415: p_gl_return_code);
3416: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id', p_user_id);
3417: END IF;
3410: BEGIN
3411:
3412: IF g_debug_stmt THEN
3413: PO_DEBUG.debug_begin(l_log_head);
3414: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_return_code',
3415: p_gl_return_code);
3416: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id', p_user_id);
3417: END IF;
3418:
3412: IF g_debug_stmt THEN
3413: PO_DEBUG.debug_begin(l_log_head);
3414: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_return_code',
3415: p_gl_return_code);
3416: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id', p_user_id);
3417: END IF;
3418:
3419: l_progress := '010';
3420:
3450:
3451: l_progress := '030';
3452: IF g_debug_stmt THEN
3453: l_debug_count := SQL%ROWCOUNT;
3454: PO_DEBUG.debug_stmt(l_log_head,l_progress,
3455: 'Appended entity nums to lines: ' || l_debug_count);
3456: END IF;
3457:
3458:
3498:
3499: l_progress := '040';
3500: IF g_debug_stmt THEN
3501: l_debug_count := SQL%ROWCOUNT;
3502: PO_DEBUG.debug_stmt(l_log_head,l_progress,
3503: 'Retrieved result info for rows: ' || l_debug_count);
3504: END IF;
3505:
3506: -- Make the autonomous call out to insert the result information.
3572: END IF;
3573:
3574: l_progress := '054';
3575: IF g_debug_stmt THEN
3576: PO_DEBUG.debug_var(l_log_head,l_progress,
3577: 'l_warning_rows_flag',l_warning_rows_flag);
3578: END IF;
3579:
3580: IF (nvl(l_warning_rows_flag,'N') = 'Y') THEN
3614: END IF;
3615:
3616: l_progress := '060';
3617: IF g_debug_stmt THEN
3618: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',
3619: x_online_report_id);
3620: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',
3621: x_po_return_code);
3622: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_msg_name',
3616: l_progress := '060';
3617: IF g_debug_stmt THEN
3618: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',
3619: x_online_report_id);
3620: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',
3621: x_po_return_code);
3622: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_msg_name',
3623: x_po_return_msg_name);
3624: PO_DEBUG.debug_end(l_log_head);
3618: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',
3619: x_online_report_id);
3620: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',
3621: x_po_return_code);
3622: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_msg_name',
3623: x_po_return_msg_name);
3624: PO_DEBUG.debug_end(l_log_head);
3625: END IF;
3626:
3620: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',
3621: x_po_return_code);
3622: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_msg_name',
3623: x_po_return_msg_name);
3624: PO_DEBUG.debug_end(l_log_head);
3625: END IF;
3626:
3627: EXCEPTION
3628: WHEN OTHERS THEN
3675:
3676: BEGIN
3677:
3678: IF g_debug_stmt THEN
3679: PO_DEBUG.debug_begin(l_log_head);
3680: PO_DEBUG.debug_var(l_log_head,l_progress,'p_message_text', p_message_text);
3681: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id', p_user_id);
3682: END IF;
3683:
3676: BEGIN
3677:
3678: IF g_debug_stmt THEN
3679: PO_DEBUG.debug_begin(l_log_head);
3680: PO_DEBUG.debug_var(l_log_head,l_progress,'p_message_text', p_message_text);
3681: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id', p_user_id);
3682: END IF;
3683:
3684: insert_report_autonomous(
3677:
3678: IF g_debug_stmt THEN
3679: PO_DEBUG.debug_begin(l_log_head);
3680: PO_DEBUG.debug_var(l_log_head,l_progress,'p_message_text', p_message_text);
3681: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id', p_user_id);
3682: END IF;
3683:
3684: insert_report_autonomous(
3685: p_reporting_level => g_REPORT_LEVEL_TRANSACTION
3700: );
3701:
3702: l_progress := '010';
3703: IF g_debug_stmt THEN
3704: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',
3705: x_online_report_id);
3706: PO_DEBUG.debug_end(l_log_head);
3707: END IF;
3708:
3702: l_progress := '010';
3703: IF g_debug_stmt THEN
3704: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',
3705: x_online_report_id);
3706: PO_DEBUG.debug_end(l_log_head);
3707: END IF;
3708:
3709: EXCEPTION
3710: WHEN OTHERS THEN
3808:
3809: BEGIN
3810:
3811: IF g_debug_stmt THEN
3812: PO_DEBUG.debug_begin(l_log_head);
3813: PO_DEBUG.debug_var(l_log_head,l_progress,'p_reporting_level',
3814: p_reporting_level);
3815: PO_DEBUG.debug_var(l_log_head,l_progress,'p_message_text', p_message_text);
3816: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id', p_user_id);
3809: BEGIN
3810:
3811: IF g_debug_stmt THEN
3812: PO_DEBUG.debug_begin(l_log_head);
3813: PO_DEBUG.debug_var(l_log_head,l_progress,'p_reporting_level',
3814: p_reporting_level);
3815: PO_DEBUG.debug_var(l_log_head,l_progress,'p_message_text', p_message_text);
3816: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id', p_user_id);
3817: PO_DEBUG.debug_var(l_log_head,l_progress,'p_text_line_tbl',p_text_line_tbl);
3811: IF g_debug_stmt THEN
3812: PO_DEBUG.debug_begin(l_log_head);
3813: PO_DEBUG.debug_var(l_log_head,l_progress,'p_reporting_level',
3814: p_reporting_level);
3815: PO_DEBUG.debug_var(l_log_head,l_progress,'p_message_text', p_message_text);
3816: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id', p_user_id);
3817: PO_DEBUG.debug_var(l_log_head,l_progress,'p_text_line_tbl',p_text_line_tbl);
3818: PO_DEBUG.debug_var(l_log_head,l_progress,'p_message_type_tbl',p_message_type_tbl);
3819: END IF;
3812: PO_DEBUG.debug_begin(l_log_head);
3813: PO_DEBUG.debug_var(l_log_head,l_progress,'p_reporting_level',
3814: p_reporting_level);
3815: PO_DEBUG.debug_var(l_log_head,l_progress,'p_message_text', p_message_text);
3816: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id', p_user_id);
3817: PO_DEBUG.debug_var(l_log_head,l_progress,'p_text_line_tbl',p_text_line_tbl);
3818: PO_DEBUG.debug_var(l_log_head,l_progress,'p_message_type_tbl',p_message_type_tbl);
3819: END IF;
3820:
3813: PO_DEBUG.debug_var(l_log_head,l_progress,'p_reporting_level',
3814: p_reporting_level);
3815: PO_DEBUG.debug_var(l_log_head,l_progress,'p_message_text', p_message_text);
3816: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id', p_user_id);
3817: PO_DEBUG.debug_var(l_log_head,l_progress,'p_text_line_tbl',p_text_line_tbl);
3818: PO_DEBUG.debug_var(l_log_head,l_progress,'p_message_type_tbl',p_message_type_tbl);
3819: END IF;
3820:
3821: x_online_report_id := NULL;
3814: p_reporting_level);
3815: PO_DEBUG.debug_var(l_log_head,l_progress,'p_message_text', p_message_text);
3816: PO_DEBUG.debug_var(l_log_head,l_progress,'p_user_id', p_user_id);
3817: PO_DEBUG.debug_var(l_log_head,l_progress,'p_text_line_tbl',p_text_line_tbl);
3818: PO_DEBUG.debug_var(l_log_head,l_progress,'p_message_type_tbl',p_message_type_tbl);
3819: END IF;
3820:
3821: x_online_report_id := NULL;
3822:
3837: l_message_text := p_message_text;
3838: END IF;
3839:
3840: IF g_debug_stmt THEN
3841: PO_DEBUG.debug_var(l_log_head,l_progress,'l_report_id',l_report_id);
3842: PO_DEBUG.debug_var(l_log_head,l_progress,'l_user_id',l_user_id);
3843: END IF;
3844:
3845: -- l_single_message_flag indicates what type of detailed message we show.
3838: END IF;
3839:
3840: IF g_debug_stmt THEN
3841: PO_DEBUG.debug_var(l_log_head,l_progress,'l_report_id',l_report_id);
3842: PO_DEBUG.debug_var(l_log_head,l_progress,'l_user_id',l_user_id);
3843: END IF;
3844:
3845: -- l_single_message_flag indicates what type of detailed message we show.
3846: -- In some scenarios (i.e. a SQL exception or GL Fatal error), we
3865: END IF;
3866:
3867: l_progress := '050';
3868: IF g_debug_stmt THEN
3869: PO_DEBUG.debug_var(l_log_head,l_progress,
3870: 'l_single_message_flag',l_single_message_flag);
3871: END IF;
3872:
3873: IF l_single_message_flag THEN
3947: x_online_report_id := l_report_id;
3948:
3949: l_progress := '900';
3950: IF g_debug_stmt THEN
3951: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',
3952: x_online_report_id);
3953: PO_DEBUG.debug_end(l_log_head);
3954: END IF;
3955:
3949: l_progress := '900';
3950: IF g_debug_stmt THEN
3951: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',
3952: x_online_report_id);
3953: PO_DEBUG.debug_end(l_log_head);
3954: END IF;
3955:
3956: COMMIT;
3957:
4008:
4009: BEGIN
4010:
4011: IF g_debug_stmt THEN
4012: PO_DEBUG.debug_begin(l_log_head);
4013: PO_DEBUG.debug_var(l_log_head,l_progress,'p_packet_id',p_packet_id);
4014: END IF;
4015:
4016: l_progress := '010';
4009: BEGIN
4010:
4011: IF g_debug_stmt THEN
4012: PO_DEBUG.debug_begin(l_log_head);
4013: PO_DEBUG.debug_var(l_log_head,l_progress,'p_packet_id',p_packet_id);
4014: END IF;
4015:
4016: l_progress := '010';
4017:
4028: END LOOP;
4029: --
4030:
4031: IF g_debug_stmt THEN
4032: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Delete Packet GL API Called');
4033: END IF;
4034:
4035: l_progress := '020';
4036:
4035: l_progress := '020';
4036:
4037:
4038: IF g_debug_stmt THEN
4039: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Delete Packet Committed');
4040: PO_DEBUG.debug_end(l_log_head);
4041: END IF;
4042:
4043: EXCEPTION
4036:
4037:
4038: IF g_debug_stmt THEN
4039: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Delete Packet Committed');
4040: PO_DEBUG.debug_end(l_log_head);
4041: END IF;
4042:
4043: EXCEPTION
4044: WHEN OTHERS THEN
4131: l_progress VARCHAR2(3);
4132: BEGIN
4133: l_progress :='000';
4134: If g_debug_stmt Then
4135: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Start of procedure');
4136: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id',p_online_report_id);
4137: End If;
4138: --bug#5523323 Remove the call to populate_aut_bc_report_id as this is not necessary.
4139: --we have removed the autonomous transaction.
4132: BEGIN
4133: l_progress :='000';
4134: If g_debug_stmt Then
4135: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Start of procedure');
4136: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id',p_online_report_id);
4137: End If;
4138: --bug#5523323 Remove the call to populate_aut_bc_report_id as this is not necessary.
4139: --we have removed the autonomous transaction.
4140: UPDATE
4149:
4150: l_progress :='001';
4151:
4152: If g_debug_stmt Then
4153: PO_DEBUG.debug_var(l_log_head,l_progress,'sql%rowcount',sql%rowcount);
4154: End If;
4155:
4156: l_progress :='002';
4157:
4155:
4156: l_progress :='002';
4157:
4158: If g_debug_stmt Then
4159: PO_DEBUG.debug_stmt(l_log_head,l_progress,'End of Procedure');
4160: End If;
4161: EXCEPTION
4162: WHEN OTHERS THEN
4163: --add message to the stack and log a debug msg if necessary
4164: po_message_s.sql_error(g_pkg_name, l_module_name, l_progress, SQLCODE, SQLERRM);
4165: fnd_msg_pub.add;
4166:
4167: If g_debug_stmt Then
4168: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Exception raised:'||SQLCODE||' '||SQLERRM);
4169: End If;
4170:
4171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4172: END;
4216: l_log_head CONSTANT VARCHAR2(100) := g_log_head || l_api_name;
4217: l_progress VARCHAR2(3) := '000';
4218: BEGIN
4219: IF g_debug_stmt THEN
4220: PO_DEBUG.debug_begin(l_log_head);
4221: PO_DEBUG.debug_var(l_log_head,l_progress,'p_event_type_code',p_event_type_code);
4222: PO_DEBUG.debug_var(l_log_head,l_progress,'p_main_or_backing_doc',p_main_or_backing_doc);
4223: PO_DEBUG.debug_var(l_log_head,l_progress,'p_adjustment_status',p_adjustment_status);
4224: PO_DEBUG.debug_var(l_log_head,l_progress,'p_distribution_type',p_distribution_type);
4217: l_progress VARCHAR2(3) := '000';
4218: BEGIN
4219: IF g_debug_stmt THEN
4220: PO_DEBUG.debug_begin(l_log_head);
4221: PO_DEBUG.debug_var(l_log_head,l_progress,'p_event_type_code',p_event_type_code);
4222: PO_DEBUG.debug_var(l_log_head,l_progress,'p_main_or_backing_doc',p_main_or_backing_doc);
4223: PO_DEBUG.debug_var(l_log_head,l_progress,'p_adjustment_status',p_adjustment_status);
4224: PO_DEBUG.debug_var(l_log_head,l_progress,'p_distribution_type',p_distribution_type);
4225: END IF;
4218: BEGIN
4219: IF g_debug_stmt THEN
4220: PO_DEBUG.debug_begin(l_log_head);
4221: PO_DEBUG.debug_var(l_log_head,l_progress,'p_event_type_code',p_event_type_code);
4222: PO_DEBUG.debug_var(l_log_head,l_progress,'p_main_or_backing_doc',p_main_or_backing_doc);
4223: PO_DEBUG.debug_var(l_log_head,l_progress,'p_adjustment_status',p_adjustment_status);
4224: PO_DEBUG.debug_var(l_log_head,l_progress,'p_distribution_type',p_distribution_type);
4225: END IF;
4226: l_progress := '010';
4219: IF g_debug_stmt THEN
4220: PO_DEBUG.debug_begin(l_log_head);
4221: PO_DEBUG.debug_var(l_log_head,l_progress,'p_event_type_code',p_event_type_code);
4222: PO_DEBUG.debug_var(l_log_head,l_progress,'p_main_or_backing_doc',p_main_or_backing_doc);
4223: PO_DEBUG.debug_var(l_log_head,l_progress,'p_adjustment_status',p_adjustment_status);
4224: PO_DEBUG.debug_var(l_log_head,l_progress,'p_distribution_type',p_distribution_type);
4225: END IF;
4226: l_progress := '010';
4227: IF p_event_type_code = 'PO_REOPEN_FINAL_MATCH' AND
4220: PO_DEBUG.debug_begin(l_log_head);
4221: PO_DEBUG.debug_var(l_log_head,l_progress,'p_event_type_code',p_event_type_code);
4222: PO_DEBUG.debug_var(l_log_head,l_progress,'p_main_or_backing_doc',p_main_or_backing_doc);
4223: PO_DEBUG.debug_var(l_log_head,l_progress,'p_adjustment_status',p_adjustment_status);
4224: PO_DEBUG.debug_var(l_log_head,l_progress,'p_distribution_type',p_distribution_type);
4225: END IF;
4226: l_progress := '010';
4227: IF p_event_type_code = 'PO_REOPEN_FINAL_MATCH' AND
4228: p_main_or_backing_doc = 'M' THEN
4345:
4346: l_progress := '030';
4347:
4348: IF g_debug_stmt THEN
4349: PO_DEBUG.debug_end(l_log_head);
4350: PO_DEBUG.debug_var(l_log_head,l_progress,'l_cr_or_dr',l_cr_or_dr);
4351: PO_DEBUG.debug_var(l_log_head,l_progress,'l_multiplying_factor',l_multiplying_factor);
4352: END IF;
4353:
4346: l_progress := '030';
4347:
4348: IF g_debug_stmt THEN
4349: PO_DEBUG.debug_end(l_log_head);
4350: PO_DEBUG.debug_var(l_log_head,l_progress,'l_cr_or_dr',l_cr_or_dr);
4351: PO_DEBUG.debug_var(l_log_head,l_progress,'l_multiplying_factor',l_multiplying_factor);
4352: END IF;
4353:
4354: return l_multiplying_factor;
4347:
4348: IF g_debug_stmt THEN
4349: PO_DEBUG.debug_end(l_log_head);
4350: PO_DEBUG.debug_var(l_log_head,l_progress,'l_cr_or_dr',l_cr_or_dr);
4351: PO_DEBUG.debug_var(l_log_head,l_progress,'l_multiplying_factor',l_multiplying_factor);
4352: END IF;
4353:
4354: return l_multiplying_factor;
4355:
4402: l_progress VARCHAR2(3) := '000';
4403: BEGIN
4404:
4405: IF g_debug_stmt THEN
4406: PO_DEBUG.debug_begin(l_log_head);
4407: PO_DEBUG.debug_var(l_log_head,l_progress,'p_distribution_type',p_distribution_type);
4408: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
4409: END IF;
4410:
4403: BEGIN
4404:
4405: IF g_debug_stmt THEN
4406: PO_DEBUG.debug_begin(l_log_head);
4407: PO_DEBUG.debug_var(l_log_head,l_progress,'p_distribution_type',p_distribution_type);
4408: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
4409: END IF;
4410:
4411: get_doc_detail_from_dist_type(p_distribution_type => p_distribution_type,
4404:
4405: IF g_debug_stmt THEN
4406: PO_DEBUG.debug_begin(l_log_head);
4407: PO_DEBUG.debug_var(l_log_head,l_progress,'p_distribution_type',p_distribution_type);
4408: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
4409: END IF;
4410:
4411: get_doc_detail_from_dist_type(p_distribution_type => p_distribution_type,
4412: x_doc_type => l_doc_type,
4411: get_doc_detail_from_dist_type(p_distribution_type => p_distribution_type,
4412: x_doc_type => l_doc_type,
4413: x_doc_subtype => l_doc_subtype);
4414: IF g_debug_stmt THEN
4415: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_type',l_doc_type);
4416: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_subtype',l_doc_subtype);
4417: END IF;
4418:
4419: get_event_and_entity_codes(p_doc_type => l_doc_type,
4412: x_doc_type => l_doc_type,
4413: x_doc_subtype => l_doc_subtype);
4414: IF g_debug_stmt THEN
4415: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_type',l_doc_type);
4416: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_subtype',l_doc_subtype);
4417: END IF;
4418:
4419: get_event_and_entity_codes(p_doc_type => l_doc_type,
4420: p_doc_subtype => l_doc_subtype,
4422: x_event_type_code => l_event_type_code,
4423: x_entity_type_code => l_entity_type_code);
4424:
4425: IF g_debug_stmt THEN
4426: PO_DEBUG.debug_end(l_log_head);
4427: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_type_code',l_event_type_code);
4428: PO_DEBUG.debug_var(l_log_head,l_progress,'l_entity_type_code',l_entity_type_code);
4429: END IF;
4430:
4423: x_entity_type_code => l_entity_type_code);
4424:
4425: IF g_debug_stmt THEN
4426: PO_DEBUG.debug_end(l_log_head);
4427: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_type_code',l_event_type_code);
4428: PO_DEBUG.debug_var(l_log_head,l_progress,'l_entity_type_code',l_entity_type_code);
4429: END IF;
4430:
4431: return l_event_type_code;
4424:
4425: IF g_debug_stmt THEN
4426: PO_DEBUG.debug_end(l_log_head);
4427: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_type_code',l_event_type_code);
4428: PO_DEBUG.debug_var(l_log_head,l_progress,'l_entity_type_code',l_entity_type_code);
4429: END IF;
4430:
4431: return l_event_type_code;
4432: END;
4468: l_progress VARCHAR2(3) := '000';
4469: BEGIN
4470:
4471: IF g_debug_stmt THEN
4472: PO_DEBUG.debug_begin(l_log_head);
4473: PO_DEBUG.debug_var(l_log_head,l_progress,'p_distribution_type',p_distribution_type);
4474: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
4475: END IF;
4476:
4469: BEGIN
4470:
4471: IF g_debug_stmt THEN
4472: PO_DEBUG.debug_begin(l_log_head);
4473: PO_DEBUG.debug_var(l_log_head,l_progress,'p_distribution_type',p_distribution_type);
4474: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
4475: END IF;
4476:
4477: get_doc_detail_from_dist_type(p_distribution_type => p_distribution_type,
4470:
4471: IF g_debug_stmt THEN
4472: PO_DEBUG.debug_begin(l_log_head);
4473: PO_DEBUG.debug_var(l_log_head,l_progress,'p_distribution_type',p_distribution_type);
4474: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
4475: END IF;
4476:
4477: get_doc_detail_from_dist_type(p_distribution_type => p_distribution_type,
4478: x_doc_type => l_doc_type,
4477: get_doc_detail_from_dist_type(p_distribution_type => p_distribution_type,
4478: x_doc_type => l_doc_type,
4479: x_doc_subtype => l_doc_subtype);
4480: IF g_debug_stmt THEN
4481: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_type',l_doc_type);
4482: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_subtype',l_doc_subtype);
4483: END IF;
4484:
4485:
4478: x_doc_type => l_doc_type,
4479: x_doc_subtype => l_doc_subtype);
4480: IF g_debug_stmt THEN
4481: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_type',l_doc_type);
4482: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_subtype',l_doc_subtype);
4483: END IF;
4484:
4485:
4486: get_event_and_entity_codes(p_doc_type => l_doc_type,
4488: p_action => p_action,
4489: x_event_type_code => l_event_type_code,
4490: x_entity_type_code => l_entity_type_code);
4491: IF g_debug_stmt THEN
4492: PO_DEBUG.debug_end(l_log_head);
4493: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_type_code',l_event_type_code);
4494: PO_DEBUG.debug_var(l_log_head,l_progress,'l_entity_type_code',l_entity_type_code);
4495: END IF;
4496:
4489: x_event_type_code => l_event_type_code,
4490: x_entity_type_code => l_entity_type_code);
4491: IF g_debug_stmt THEN
4492: PO_DEBUG.debug_end(l_log_head);
4493: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_type_code',l_event_type_code);
4494: PO_DEBUG.debug_var(l_log_head,l_progress,'l_entity_type_code',l_entity_type_code);
4495: END IF;
4496:
4497: return l_entity_type_code;
4490: x_entity_type_code => l_entity_type_code);
4491: IF g_debug_stmt THEN
4492: PO_DEBUG.debug_end(l_log_head);
4493: PO_DEBUG.debug_var(l_log_head,l_progress,'l_event_type_code',l_event_type_code);
4494: PO_DEBUG.debug_var(l_log_head,l_progress,'l_entity_type_code',l_entity_type_code);
4495: END IF;
4496:
4497: return l_entity_type_code;
4498: END;
4532: l_log_head CONSTANT VARCHAR2(100) := g_log_head || l_api_name;
4533: l_progress VARCHAR2(3) := '000';
4534: BEGIN
4535: IF g_debug_stmt THEN
4536: PO_DEBUG.debug_begin(l_log_head);
4537: PO_DEBUG.debug_var(l_log_head,l_progress,'p_distribution_type',p_distribution_type);
4538: END IF;
4539:
4540: CASE p_distribution_type
4533: l_progress VARCHAR2(3) := '000';
4534: BEGIN
4535: IF g_debug_stmt THEN
4536: PO_DEBUG.debug_begin(l_log_head);
4537: PO_DEBUG.debug_var(l_log_head,l_progress,'p_distribution_type',p_distribution_type);
4538: END IF;
4539:
4540: CASE p_distribution_type
4541: WHEN g_dist_type_AGREEMENT THEN
4560: x_doc_type := l_doc_type;
4561: x_doc_subtype := l_doc_subtype;
4562:
4563: IF g_debug_stmt THEN
4564: PO_DEBUG.debug_end(l_log_head);
4565: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_type',l_doc_type);
4566: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_subtype',l_doc_subtype);
4567: END IF;
4568:
4561: x_doc_subtype := l_doc_subtype;
4562:
4563: IF g_debug_stmt THEN
4564: PO_DEBUG.debug_end(l_log_head);
4565: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_type',l_doc_type);
4566: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_subtype',l_doc_subtype);
4567: END IF;
4568:
4569: END;
4562:
4563: IF g_debug_stmt THEN
4564: PO_DEBUG.debug_end(l_log_head);
4565: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_type',l_doc_type);
4566: PO_DEBUG.debug_var(l_log_head,l_progress,'l_doc_subtype',l_doc_subtype);
4567: END IF;
4568:
4569: END;
4570:
4617: l_progress VARCHAR2(3) := '000';
4618: BEGIN
4619:
4620: IF g_debug_stmt THEN
4621: PO_DEBUG.debug_begin(l_log_head);
4622: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
4623: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
4624: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
4625: END IF;
4618: BEGIN
4619:
4620: IF g_debug_stmt THEN
4621: PO_DEBUG.debug_begin(l_log_head);
4622: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
4623: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
4624: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
4625: END IF;
4626:
4619:
4620: IF g_debug_stmt THEN
4621: PO_DEBUG.debug_begin(l_log_head);
4622: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
4623: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
4624: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
4625: END IF;
4626:
4627: l_error_flag := 'N' ;
4620: IF g_debug_stmt THEN
4621: PO_DEBUG.debug_begin(l_log_head);
4622: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
4623: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
4624: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action',p_action);
4625: END IF;
4626:
4627: l_error_flag := 'N' ;
4628: IF (p_doc_type = 'REQUISITION') THEN
4680: x_entity_type_code := NULL ;
4681: END IF;
4682:
4683: IF g_debug_stmt THEN
4684: PO_DEBUG.debug_end(l_log_head);
4685: PO_DEBUG.debug_var(l_log_head,l_progress,'x_event_type_code',x_event_type_code);
4686: PO_DEBUG.debug_var(l_log_head,l_progress,'x_entity_type_code',x_entity_type_code);
4687: END IF;
4688:
4681: END IF;
4682:
4683: IF g_debug_stmt THEN
4684: PO_DEBUG.debug_end(l_log_head);
4685: PO_DEBUG.debug_var(l_log_head,l_progress,'x_event_type_code',x_event_type_code);
4686: PO_DEBUG.debug_var(l_log_head,l_progress,'x_entity_type_code',x_entity_type_code);
4687: END IF;
4688:
4689: END get_event_and_entity_codes;
4682:
4683: IF g_debug_stmt THEN
4684: PO_DEBUG.debug_end(l_log_head);
4685: PO_DEBUG.debug_var(l_log_head,l_progress,'x_event_type_code',x_event_type_code);
4686: PO_DEBUG.debug_var(l_log_head,l_progress,'x_entity_type_code',x_entity_type_code);
4687: END IF;
4688:
4689: END get_event_and_entity_codes;
4690: