69:
70: -- Definition of get_event_source_info function (private)
71:
72: FUNCTION get_event_source_info
73: RETURN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
74:
75: -- Defintion of stamping the event_id of the transaction
76: PROCEDURE stamp_event(p_event_id XLA_EVENTS.EVENT_ID%TYPE);
77:
353: l_event_id INTEGER;
354:
355: -- XLA event source plsql table definition
356:
357: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
358: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
359:
360: l_entity_deleted INTEGER;
361:
354:
355: -- XLA event source plsql table definition
356:
357: l_event_security_context XLA_EVENTS_PUB_PKG.T_SECURITY;
358: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
359:
360: l_entity_deleted INTEGER;
361:
362: BEGIN
394: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
395: FV_UTILITY.DEBUG_MESG(G_LEVEL_PROCEDURE,l_module_name,
396: 'Check if event exists before deleteion for event:'||l_event_id);
397: END IF;
398: IF XLA_EVENTS_PUB_PKG.EVENT_EXISTS
399: (p_event_source_info => l_event_source_info
400: ,p_event_class_code => g_event_class
401: ,p_event_type_code => g_event_type
402: ,p_event_date => fv_be_event_id_Rec.event_date
406: ,p_security_context => l_event_security_context) THEN
407: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
408: FV_UTILITY.DEBUG_MESG(G_LEVEL_PROCEDURE,l_module_name,'Call Delete_Event API:'||l_event_id);
409: END IF;
410: XLA_EVENTS_PUB_PKG.DELETE_EVENT
411: (p_event_source_info => l_event_source_info
412: ,p_event_id => l_event_id
413: ,p_valuation_method => NULL
414: ,p_security_context => l_event_security_context);
415: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
416: FV_UTILITY.DEBUG_MESG(G_LEVEL_PROCEDURE,l_module_name,'Call Delete_Entity API:'||l_event_id);
417: END IF;
418:
419: l_entity_deleted := XLA_EVENTS_PUB_PKG.delete_entity
420: (p_source_info => l_event_source_info
421: ,p_valuation_method => NULL
422: ,p_security_context => l_event_security_context);
423:
441: FOR fv_be_gl_date_Rec in fv_be_gl_date
442: LOOP
443: g_accounting_date := fv_be_gl_date_Rec.gl_date;
444:
445: IF NOT XLA_EVENTS_PUB_PKG.EVENT_EXISTS
446: (p_event_source_info => l_event_source_info
447: ,p_event_class_code => g_event_class
448: ,p_event_type_code => g_event_type
449: ,p_event_date => g_accounting_date
453: ,p_security_context => l_event_security_context) OR
454: fv_be_gl_date_Rec.event_id IS NULL THEN
455: -- Create Event
456: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
457: FV_UTILITY.DEBUG_MESG(G_LEVEL_PROCEDURE,l_module_name,'Call xla_events_pub_pkg.create_event');
458: END IF;
459: l_event_id := XLA_EVENTS_PUB_PKG.CREATE_EVENT
460: (p_event_source_info => l_event_source_info
461: ,p_event_type_code => g_event_type
455: -- Create Event
456: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
457: FV_UTILITY.DEBUG_MESG(G_LEVEL_PROCEDURE,l_module_name,'Call xla_events_pub_pkg.create_event');
458: END IF;
459: l_event_id := XLA_EVENTS_PUB_PKG.CREATE_EVENT
460: (p_event_source_info => l_event_source_info
461: ,p_event_type_code => g_event_type
462: ,p_event_date => g_accounting_date
463: ,p_event_status_code => 'U'
498: | p_ledger_id: Ledger ID
499: | p_doc_id : Document ID
500: | p_calling_sequence: Debug information
501: |
502: | RETURN: XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO
503: |
504: | KNOWN ISSUES:
505: |
506: | NOTES:
505: |
506: | NOTES:
507: *===========================================================================*/
508: FUNCTION get_event_source_info
509: RETURN XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO
510: IS
511:
512: l_doc_num VARCHAR2(50);
513: l_prepare_stmt VARCHAR2(1000);
510: IS
511:
512: l_doc_num VARCHAR2(50);
513: l_prepare_stmt VARCHAR2(1000);
514: l_event_source_info XLA_EVENTS_PUB_PKG.T_EVENT_SOURCE_INFO;
515: l_module_name VARCHAR2(1000);
516:
517: BEGIN
518: FND_FILE.PUT_LINE(FND_FILE.LOG,'Begin Get_Event_Source_Info');