The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_GL_Date ( p_api_version IN NUMBER
,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
,p_ledger_id IN NUMBER
,x_return_status OUT NOCOPY VARCHAR2
)
IS
CURSOR c_xla_event_info (cv_open_period_gl_date IN DATE )IS
SELECT evt.event_id event_id,
evt.entity_id entity_id,
evt.event_type_code event_type_code,
te.legal_entity_id legal_entity_id,
te.source_id_int_1 source_id_int_1,
te.security_id_int_1 security_id_int_1,
te.ledger_id ledger_id,
te.entity_code entity_code
FROM xla_events evt,
xla_transaction_entities_upg te
WHERE evt.application_id = 682
AND evt.event_status_code ='U'
AND evt.process_status_code IN ('U','I','D')
AND evt.entity_id = te.entity_id
AND te.ledger_id = p_ledger_id
AND evt.event_date < cv_open_period_gl_date;
SELECT MIN(start_date)
FROM gl_period_statuses a
, ozf_sys_parameters_all b
WHERE a.application_id = 101
AND a.set_of_books_id = b.set_of_books_id
AND b.set_of_books_id = p_ledger_id
AND nvl(a.adjustment_period_flag,'N') = 'N'
AND a.closing_status IN ( 'O','F');
SELECT ent_year_id
FROM OZF_TIME_ENT_YEAR
WHERE cv_event_date BETWEEN start_date AND end_date;
SELECT object_version_number
FROM ozf_claims_all
WHERE claim_id = cv_claim_id;
l_api_name CONSTANT VARCHAR2(30) := 'Update_GL_Date';
SAVEPOINT Update_GL_Date;
UPDATE ozf_funds_utilized_all_b
SET gl_date = l_event_date,
year_id = l_year_id,
last_update_date = SYSDATE,
last_updated_by = NVL(FND_GLOBAL.user_id,-1)
WHERE utilization_id = l_event_source_info.source_id_int_1;
OZF_CLAIM_PVT.Update_Claim(
p_api_version => l_api_version,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_claim => l_claim_rec,
p_event => 'UPDATE',
p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE,
x_object_version_number => l_obj_version_number );
XLA_EVENTS_PUB_PKG.update_event
(p_event_source_info => l_event_source_info
,p_event_id => c_xla_event_data.event_id
,p_event_type_code => c_xla_event_data.event_type_code
,p_event_date => l_event_date
,p_valuation_method => ''
,p_security_context => l_security
,p_transaction_date => INV_LE_TIMEZONE_PUB.get_le_day_time_for_ou(TRUNC(l_event_date),l_security.security_id_int_1));
ROLLBACK TO Update_GL_Date;
FND_FILE.PUT_LINE(FND_FILE.LOG, 'Expected Error from UpdateGLDate: '||SQLERRM);
ROLLBACK TO Update_GL_Date;
FND_FILE.PUT_LINE(FND_FILE.LOG, 'UnExpected Error from UpdateGLDate:: '||SQLERRM);
ROLLBACK TO Update_GL_Date;
FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error from UpdateGLDate:: '||SQLERRM);
END Update_GL_Date;
Update_GL_Date(p_api_version => 1.0,
p_init_msg_list => FND_API.G_FALSE,
p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
p_ledger_id => p_ledger_id,
x_return_status => l_return_status);
FND_FILE.PUT_LINE(FND_FILE.LOG, 'Return Status from Update_GL_Date : '|| l_return_status );
SELECT lower(iso_language),iso_territory
INTO l_iso_language,
l_iso_territory
FROM FND_LANGUAGES
WHERE language_code = USERENV('LANG');