The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT LEGAL_ENTITY_ID
,LOAN_NUMBER
FROM LNS_LOAN_HEADERS_ALL
WHERE LOAN_ID = X_Loan_Id;
select so.ledger_id
from lns_system_options sb,
gl_ledgers so
where sb.set_of_books_id = so.ledger_id;
SELECT xe.event_id
FROM xla_transaction_entities xte
,xla_events xe
,xla_entity_types_b xet
WHERE xte.application_id = p_application_id
AND xte.ledger_id = p_ledger_id
AND xte.entity_code = p_entity_type_code
AND NVL(xte.source_id_int_1,-99) = NVL(p_source_id_int_1,-99)
AND NVL(xte.source_id_int_2,-99) = NVL(p_source_id_int_2,-99)
AND NVL(xte.valuation_method,' ') = NVL(p_valuation_method,' ')
AND xe.entity_id = xte.entity_id
AND xet.application_id = xte.application_id
AND xte.entity_code = xet.entity_code;
|| PUBLIC PROCEDURE update_event
||
|| DESCRIPTION
|| Overview: will write to xla_events table
||
|| PSEUDO CODE/LOGIC
||
|| PARAMETERS
|| Parameter: p_loan_id => loan_id
|| ,p_event_type_code => seeded code for loans "APPROVED" "IN_FUNDING"
|| ,p_event_date => most likely GL_DATE
|| ,p_event_status => event Status
|| CONSTANT = 'U'; -- event status:unprocessed
procedure update_event(p_loan_id in number
,p_disb_header_id in number
,p_event_id in number
,p_event_type_code in varchar
,p_event_date in date
,p_event_status in varchar2
,p_init_msg_list in varchar2
,p_commit in varchar2
,x_return_status out nocopy varchar2
,x_msg_count out nocopy number
,x_msg_data out nocopy varchar2)
is
l_api_name varchar2(15);
SELECT LEGAL_ENTITY_ID
FROM LNS_LOAN_HEADERS
WHERE LOAN_ID = X_Loan_Id;
select so.set_of_books_id
from lns_system_options sb,
gl_sets_of_books so
where sb.set_of_books_id = so.set_of_books_id;
l_api_name := 'update_event';
SAVEPOINT update_event;
logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling XLA_EVENTS_PUB_PKG.Update_event...');
XLA_EVENTS_PUB_PKG.Update_event(p_event_source_info => l_loan_details
,p_event_id => p_event_id
,p_event_type_code => p_event_type_code
,p_event_date => p_event_date
,p_event_status_code => p_event_status
,p_valuation_method => null
,p_security_context => l_security_context);
ROLLBACK TO update_event;
ROLLBACK TO update_event;
ROLLBACK TO update_event;
end update_event;
|| PUBLIC PROCEDURE delete_event
||
|| DESCRIPTION
|| Overview: will delete events from xla_events table
||
|| PSEUDO CODE/LOGIC
||
|| PARAMETERS
|| Parameter: p_event_id => event_id
||
|| Return value:
|| standard
|| KNOWN ISSUES
||
|| NOTES
||
|| MODIFICATION HISTORY
|| Date Author Description of Changes
|| 4/11/2005 raverma Created
||
*=======================================================================*/
procedure delete_event(p_loan_id in number
,p_disb_header_id in number
,p_event_id in number
,p_init_msg_list in varchar2
,p_commit in varchar2
,x_return_status out nocopy varchar2
,x_msg_count out nocopy number
,x_msg_data out nocopy varchar2)
is
l_api_name varchar2(15);
SELECT LEGAL_ENTITY_ID
FROM LNS_LOAN_HEADERS
WHERE LOAN_ID = X_Loan_Id;
select so.set_of_books_id
from lns_system_options sb,
gl_sets_of_books so
where sb.set_of_books_id = so.set_of_books_id;
l_api_name := 'delete_event';
SAVEPOINT delete_event;
logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling XLA_EVENTS_PUB_PKG.delete_event...');
XLA_EVENTS_PUB_PKG.delete_event
(p_event_source_info => l_loan_details
,p_event_id => p_event_id
,p_valuation_method => null
,p_security_context => l_security_context);
ROLLBACK TO delete_event;
ROLLBACK TO delete_event;
ROLLBACK TO delete_event;
end delete_event;