The following lines contain the word 'select', 'insert', 'update' or 'delete':
XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
(p_hdr_idx => g_array_event(p_event_id).array_value_num('header_index')
,p_balance_type_code => l_balance_type_code
);
XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
(p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
,p_balance_type_code => l_balance_type_code);
XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
(p_hdr_idx => g_array_event(p_event_id).array_value_num('header_index')
,p_balance_type_code => l_balance_type_code
);
XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus
(p_hdr_idx => g_array_event(p_event_id).array_value_num('acc_rev_header_index')
,p_balance_type_code => l_balance_type_code);
PROCEDURE insert_sources_7(
p_target_ledger_id IN NUMBER
, p_language IN VARCHAR2
, p_sla_ledger_id IN NUMBER
, p_pad_start_date IN DATE
, p_pad_end_date IN DATE
)
IS
C_EVENT_TYPE_CODE CONSTANT VARCHAR2(30) := 'PAYMENT_COST';
l_log_module := C_DEFAULT_MODULE||'.insert_sources_7';
(p_msg => 'BEGIN of insert_sources_7'
,p_level => C_LEVEL_PROCEDURE
,p_module => l_log_module);
SELECT oracle_username
INTO p_apps_owner
FROM fnd_oracle_userid
WHERE read_only_flag = 'U'
;
INSERT INTO xla_diag_sources --hdr1
(
event_id
, ledger_id
, sla_ledger_id
, description_language
, object_name
, object_type_code
, line_number
, source_application_id
, source_type_code
, source_code
, source_value
, source_meaning
, created_by
, creation_date
, last_update_date
, last_updated_by
, last_update_login
, program_update_date
, program_application_id
, program_id
, request_id
)
SELECT
event_id
, p_target_ledger_id
, p_sla_ledger_id
, p_language
, object_name
, object_type_code
, line_number
, source_application_id
, source_type_code
, source_code
, SUBSTR(source_value ,1,1996)
, SUBSTR(source_meaning,1,200)
, xla_environment_pkg.g_Usr_Id
, TRUNC(SYSDATE)
, TRUNC(SYSDATE)
, xla_environment_pkg.g_Usr_Id
, xla_environment_pkg.g_Login_Id
, TRUNC(SYSDATE)
, xla_environment_pkg.g_Prog_Appl_Id
, xla_environment_pkg.g_Prog_Id
, xla_environment_pkg.g_Req_Id
FROM (
SELECT xet.event_id event_id
, 0 line_number
, CASE r
WHEN 1 THEN 'PAY_XLA_EST_OR_PAYM_ACTIONS_V'
WHEN 2 THEN 'PAY_XLA_EST_OR_PAYM_ACTIONS_V'
WHEN 3 THEN 'PAY_XLA_EST_OR_PAYM_ACTIONS_V'
WHEN 4 THEN 'PAY_XLA_EST_OR_PAYM_ACTIONS_V'
ELSE null
END object_name
, CASE r
WHEN 1 THEN 'HEADER'
WHEN 2 THEN 'HEADER'
WHEN 3 THEN 'HEADER'
WHEN 4 THEN 'HEADER'
ELSE null
END object_type_code
, CASE r
WHEN 1 THEN '801'
WHEN 2 THEN '801'
WHEN 3 THEN '801'
WHEN 4 THEN '801'
ELSE null
END source_application_id
, 'S' source_type_code
, CASE r
WHEN 1 THEN 'PERSON_NAME'
WHEN 2 THEN 'ASSIGNMENT_ACTION_ID'
WHEN 3 THEN 'COST_ACTION_TYPE'
WHEN 4 THEN 'CONVERSION_RATE_TYPE'
ELSE null
END source_code
, CASE r
WHEN 1 THEN TO_CHAR(h1.PERSON_NAME)
WHEN 2 THEN TO_CHAR(h1.ASSIGNMENT_ACTION_ID)
WHEN 3 THEN TO_CHAR(h1.COST_ACTION_TYPE)
WHEN 4 THEN TO_CHAR(h1.CONVERSION_RATE_TYPE)
ELSE null
END source_value
, null source_meaning
FROM xla_events_gt xet
, PAY_XLA_EST_OR_PAYM_ACTIONS_V h1
,(select rownum r from all_objects where rownum <= 4 and owner = p_apps_owner)
WHERE xet.event_date between p_pad_start_date AND p_pad_end_date
AND xet.event_type_code = C_EVENT_TYPE_CODE
AND h1.event_id = xet.event_id
)
;
(p_msg => 'number of header sources inserted = '||SQL%ROWCOUNT
,p_level => C_LEVEL_STATEMENT
,p_module => l_log_module);
INSERT INTO xla_diag_sources --line1
(
event_id
, ledger_id
, sla_ledger_id
, description_language
, object_name
, object_type_code
, line_number
, source_application_id
, source_type_code
, source_code
, source_value
, source_meaning
, created_by
, creation_date
, last_update_date
, last_updated_by
, last_update_login
, program_update_date
, program_application_id
, program_id
, request_id
)
SELECT event_id
, p_target_ledger_id
, p_sla_ledger_id
, p_language
, object_name
, object_type_code
, line_number
, source_application_id
, source_type_code
, source_code
, SUBSTR(source_value,1,1996)
, SUBSTR(source_meaning,1,200)
, xla_environment_pkg.g_Usr_Id
, TRUNC(SYSDATE)
, TRUNC(SYSDATE)
, xla_environment_pkg.g_Usr_Id
, xla_environment_pkg.g_Login_Id
, TRUNC(SYSDATE)
, xla_environment_pkg.g_Prog_Appl_Id
, xla_environment_pkg.g_Prog_Id
, xla_environment_pkg.g_Req_Id
FROM (
SELECT xet.event_id event_id
, l2.line_number line_number
, CASE r
WHEN 1 THEN 'PAY_XLA_PAYMENT_COSTS_V'
WHEN 2 THEN 'PAY_XLA_PAYMENT_COSTS_V'
WHEN 3 THEN 'PAY_XLA_PAYMENT_COSTS_V'
WHEN 4 THEN 'PAY_XLA_PAYMENT_COSTS_V'
ELSE null
END object_name
, CASE r
WHEN 1 THEN 'LINE'
WHEN 2 THEN 'LINE'
WHEN 3 THEN 'LINE'
WHEN 4 THEN 'LINE'
ELSE null
END object_type_code
, CASE r
WHEN 1 THEN '801'
WHEN 2 THEN '801'
WHEN 3 THEN '801'
WHEN 4 THEN '801'
ELSE null
END source_application_id
, 'S' source_type_code
, CASE r
WHEN 1 THEN 'DEBIT_OR_CREDIT'
WHEN 2 THEN 'ACCOUNT_ID'
WHEN 3 THEN 'COSTED_VALUE'
WHEN 4 THEN 'CURRENCY_CODE'
ELSE null
END source_code
, CASE r
WHEN 1 THEN TO_CHAR(l2.DEBIT_OR_CREDIT)
WHEN 2 THEN TO_CHAR(l2.ACCOUNT_ID)
WHEN 3 THEN TO_CHAR(l2.COSTED_VALUE)
WHEN 4 THEN TO_CHAR(l2.CURRENCY_CODE)
ELSE null
END source_value
, null source_meaning
FROM xla_events_gt xet
, PAY_XLA_PAYMENT_COSTS_V l2
,(select rownum r from all_objects where rownum <= 4 and owner = p_apps_owner)
WHERE xet.event_date between p_pad_start_date AND p_pad_end_date
AND xet.event_type_code = C_EVENT_TYPE_CODE
AND l2.event_id = xet.event_id
)
;
(p_msg => 'number of line sources inserted = '||SQL%ROWCOUNT
,p_level => C_LEVEL_STATEMENT
,p_module => l_log_module);
(p_msg => 'END of insert_sources_7'
,p_level => C_LEVEL_PROCEDURE
,p_module => l_log_module);
(p_location => 'XLA_00801_AAD_S_000003_PKG.insert_sources_7');
END insert_sources_7;
SELECT /*+ leading(xet) cardinality(xet,1) */
-- Event Type Code: PAYMENT_COST
-- Event Class Code: PAYMENT_COSTS
xet.entity_id
, xet.legal_entity_id
, xet.entity_code
, xet.transaction_number
, xet.event_id
, xet.event_class_code
, xet.event_type_code
, xet.event_number
, xet.event_date
, xet.transaction_date
, xet.reference_num_1
, xet.reference_num_2
, xet.reference_num_3
, xet.reference_num_4
, xet.reference_char_1
, xet.reference_char_2
, xet.reference_char_3
, xet.reference_char_4
, xet.reference_date_1
, xet.reference_date_2
, xet.reference_date_3
, xet.reference_date_4
, xet.event_created_by
, xet.budgetary_control_flag
, h1.PERSON_NAME source_3
, h1.ASSIGNMENT_ACTION_ID source_6
, h1.COST_ACTION_TYPE source_7
, h1.CONVERSION_RATE_TYPE source_10
FROM xla_events_gt xet
, PAY_XLA_EST_OR_PAYM_ACTIONS_V h1
WHERE xet.event_date between p_pad_start_date and p_pad_end_date
and xet.event_type_code = C_EVENT_TYPE_CODE
and xet.event_status_code <> 'N' AND h1.event_id = xet.event_id
ORDER BY event_id
;
SELECT /*+ leading(xet) cardinality(xet,1) */
-- Event Type Code: PAYMENT_COST
-- Event Class Code: PAYMENT_COSTS
xet.entity_id
,xet.legal_entity_id
,xet.entity_code
,xet.transaction_number
,xet.event_id
,xet.event_class_code
,xet.event_type_code
,xet.event_number
,xet.event_date
,xet.transaction_date
,xet.reference_num_1
,xet.reference_num_2
,xet.reference_num_3
,xet.reference_num_4
,xet.reference_char_1
,xet.reference_char_2
,xet.reference_char_3
,xet.reference_char_4
,xet.reference_date_1
,xet.reference_date_2
,xet.reference_date_3
,xet.reference_date_4
,xet.event_created_by
,xet.budgetary_control_flag , l2.LINE_NUMBER
, l2.DEBIT_OR_CREDIT source_1
, l2.ACCOUNT_ID source_5
, l2.COSTED_VALUE source_8
, l2.CURRENCY_CODE source_9
FROM xla_events_gt xet
, PAY_XLA_PAYMENT_COSTS_V l2
WHERE xet.event_id between x_first_event_id and x_last_event_id
and xet.event_date between p_pad_start_date and p_pad_end_date
and xet.event_type_code = C_EVENT_TYPE_CODE
and xet.event_status_code <> 'N' AND l2.event_id = xet.event_id
;
g_array_event.DELETE;
XLA_AE_JOURNAL_ENTRY_PKG.UpdateJournalEntryStatus (p_hdr_idx => hdr_idx);
l_result := XLA_AE_LINES_PKG.InsertLines;
l_result := XLA_AE_LINES_PKG.InsertLines ;
l_result := XLA_AE_HEADER_PKG.InsertHeaders ;
insert_sources_7(
p_target_ledger_id => p_target_ledger_id
, p_language => l_language
, p_sla_ledger_id => l_sla_ledger_id
, p_pad_start_date => p_pad_start_date
, p_pad_end_date => p_pad_end_date
);