623: IS
624: l_calling_sequence VARCHAR2(1000);
625: l_module_name VARCHAR2(200);
626:
627: l_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
628: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
629: l_reference_info XLA_EVENTS_PUB_PKG.T_EVENT_REFERENCE_INFO;
630:
631: CURSOR cur_get_payment_info(p_treasury_conf_id NUMBER) IS
624: l_calling_sequence VARCHAR2(1000);
625: l_module_name VARCHAR2(200);
626:
627: l_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
628: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
629: l_reference_info XLA_EVENTS_PUB_PKG.T_EVENT_REFERENCE_INFO;
630:
631: CURSOR cur_get_payment_info(p_treasury_conf_id NUMBER) IS
632: SELECT distinct ac.legal_entity_id, ftc.event_id
625: l_module_name VARCHAR2(200);
626:
627: l_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
628: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
629: l_reference_info XLA_EVENTS_PUB_PKG.T_EVENT_REFERENCE_INFO;
630:
631: CURSOR cur_get_payment_info(p_treasury_conf_id NUMBER) IS
632: SELECT distinct ac.legal_entity_id, ftc.event_id
633: FROM ap_checks ac
697: l_reference_info.reference_char_1 := 'VOID';
698: ELSE
699: l_reference_info.reference_char_1 := NULL;
700: END IF;
701: l_event_status_code := XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED;
702:
703:
704: SELECT payment_instruction_id
705: INTO
724: OPEN cur_get_payment_info(p_treasury_conf_id);
725: FETCH cur_get_payment_info INTO l_legal_entity_id,l_tc_event_id;
726: l_event_source_info.legal_entity_id := l_legal_entity_id;
727:
728: IF XLA_EVENTS_PUB_PKG.event_exists
729: (p_event_source_info => l_event_source_info
730: ,p_event_type_code => p_event_type
731: ,p_event_date => g_accounting_date
732: ,p_event_status_code => l_event_status_code
737: IF (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL ) THEN
738: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,'Event exists! event_id =' || l_tc_event_id);
739: END IF;
740:
741: --- call the xla_events_pub_pkg.get_array_event_info
742: /*XLA_EVENTS_PUB_PKG.DELETE_EVENT(
743: p_event_source_info => l_event_source_info,
744: p_event_id => l_tc_event_id,
745: p_valuation_method => NULL,
738: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,'Event exists! event_id =' || l_tc_event_id);
739: END IF;
740:
741: --- call the xla_events_pub_pkg.get_array_event_info
742: /*XLA_EVENTS_PUB_PKG.DELETE_EVENT(
743: p_event_source_info => l_event_source_info,
744: p_event_id => l_tc_event_id,
745: p_valuation_method => NULL,
746: p_security_context => l_security_context);
752: END IF;
753:
754: l_tc_event_id := NULL;
755:
756: l_tc_event_id := Xla_Events_Pub_Pkg.Create_Event
757: (
758: p_event_source_info => l_event_source_info,
759: p_event_type_code => p_event_type,
760: p_event_date => g_accounting_date,
809:
810: get_open_period(l_void_acctg_date);
811:
812: /*
813: IF XLA_EVENTS_PUB_PKG.event_exists
814: (p_event_source_info => l_event_source_info
815: ,p_event_type_code => p_event_type
816: ,p_event_date => l_void_acctg_date
817: ,p_event_status_code => l_event_status_code
822: IF (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL ) THEN
823: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,'Event exists! event_id =' || l_void_event_id);
824: END IF;
825:
826: XLA_EVENTS_PUB_PKG.DELETE_EVENT(
827: p_event_source_info => l_event_source_info,
828: p_event_id => l_void_event_id,
829: p_valuation_method => NULL,
830: p_security_context => l_security_context);
839: IF l_void_event_id IS NULL THEN
840:
841: --l_void_event_id := NULL;
842:
843: l_void_event_id := Xla_Events_Pub_Pkg.Create_Event
844: (
845: p_event_source_info => l_event_source_info,
846: p_event_type_code => p_event_type,
847: p_event_date => l_void_acctg_date,
923: l_return_status VARCHAR2(30);
924: l_status_code VARCHAR2(30);
925: l_ledger_name VARCHAR2(100);
926: l_void_count NUMBER;
927: l_event_status xla_events.event_status_code%TYPE;
928: l_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
929: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
930:
931: CURSOR cur_treas_conf
924: l_status_code VARCHAR2(30);
925: l_ledger_name VARCHAR2(100);
926: l_void_count NUMBER;
927: l_event_status xla_events.event_status_code%TYPE;
928: l_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
929: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
930:
931: CURSOR cur_treas_conf
932: IS
925: l_ledger_name VARCHAR2(100);
926: l_void_count NUMBER;
927: l_event_status xla_events.event_status_code%TYPE;
928: l_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
929: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
930:
931: CURSOR cur_treas_conf
932: IS
933: SELECT max(fvtreas.TREASURY_CONFIRMATION_ID) TREASURY_CONFIRMATION_ID
961: SELECT fv.event_id
962: FROM fv_voided_checks fv
963: WHERE processed_flag = 'P'
964: AND org_id = g_org_id
965: AND EXISTS (SELECT event_id FROM xla_events xe
966: WHERE xe.application_id = 8901
967: AND xe.event_type_code = 'TREASURY_VOID'
968: AND xe.event_id = fv.event_id
969: AND xe.event_status_code = 'U'
992: END IF;
993:
994: --Update the processed flag to U, of the void rows which
995: --were erroneously set to P in the earlier version of the code
996: --The events of these rows will be unprocessed in xla_events
997: --and such events will not exist in fv_xla_ae_headers.
998: BEGIN
999: OPEN unprocessed_event_cur ;
1000: LOOP
1033: l_event_source_info.transaction_number := l_pmt_id; --p_treasury_conf_id;
1034: l_event_source_info.source_id_int_1 := p_treasury_conf_id;
1035: l_security_context.security_id_int_1 := g_org_id;
1036:
1037: XLA_EVENTS_PUB_PKG.DELETE_EVENT(
1038: p_event_source_info => l_event_source_info,
1039: p_event_id => cur_event_id,
1040: p_valuation_method => NULL,
1041: p_security_context => l_security_context);
1148: --then update the voided check row as process, else no.
1149: FOR event_id_rec IN event_id_cur(treas_conf_rec.TREASURY_CONFIRMATION_ID) LOOP
1150: SELECT event_status_code
1151: INTO l_event_status
1152: FROM xla_events
1153: WHERE event_id = event_id_rec.event_id
1154: AND application_id = 8901;
1155:
1156: IF l_event_status = 'P' THEN