The following lines contain the word 'select', 'insert', 'update' or 'delete':
| Procedure insert_row |
| |
+======================================================================*/
PROCEDURE insert_row
(x_rowid IN OUT NOCOPY VARCHAR2
,x_application_id IN NUMBER
,x_event_class_code IN VARCHAR2
,x_prior_event_class_code IN VARCHAR2
,x_creation_date IN DATE
,x_created_by IN NUMBER
,x_last_update_date IN DATE
,x_last_updated_by IN NUMBER
,x_last_update_login IN NUMBER)
IS
CURSOR c IS
SELECT rowid
FROM xla_event_class_predecs
WHERE application_id = x_application_id
AND event_class_code = x_event_class_code
AND prior_event_class_code = x_prior_event_class_code;
xla_utility_pkg.trace('> .insert_row' ,20);
INSERT INTO xla_event_class_predecs
(creation_date
,created_by
,application_id
,event_class_code
,prior_event_class_code
,object_version_number
,last_update_date
,last_updated_by
,last_update_login)
VALUES
(x_creation_date
,x_created_by
,x_application_id
,x_event_class_code
,x_prior_event_class_code
,1
,x_last_update_date
,x_last_updated_by
,x_last_update_login)
;
xla_utility_pkg.trace('< .insert_row' ,20);
END insert_row;
| Procedure delete_row |
| |
+======================================================================*/
PROCEDURE delete_row
(x_application_id IN NUMBER
,x_event_class_code IN VARCHAR2
,x_prior_event_class_code IN VARCHAR2)
IS
BEGIN
xla_utility_pkg.trace('> .delete_row' ,20);
DELETE FROM xla_event_class_predecs
WHERE application_id = x_application_id
AND event_class_code = x_event_class_code
AND prior_event_class_code = x_prior_event_class_code;
xla_utility_pkg.trace('< .delete_row' ,20);
END delete_row;
SELECT application_id
,event_class_code
,prior_event_class_code
FROM xla_event_class_predecs
WHERE application_id = x_application_id
AND event_class_code = x_event_class_code
AND prior_event_class_code = x_prior_event_class_code
FOR UPDATE OF application_id NOWAIT;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
,p_last_update_date IN VARCHAR2)
IS
l_view_application_id number(38);
f_ludate date; -- entity update date in file
db_ludate date; -- entity update date in db
SELECT application_id
FROM fnd_application
WHERE application_short_name = p_application_short_name;
f_ludate := nvl(to_date(p_last_update_date, 'YYYY/MM/DD'), sysdate);
SELECT last_updated_by, last_update_date
INTO db_luby, db_ludate
FROM xla_event_class_predecs
WHERE application_id = l_application_id
AND event_class_code = p_event_class_code
AND prior_event_class_code = p_prior_event_class_code;
xla_event_class_predecs_f_pkg.insert_row
(x_rowid => l_rowid
,x_application_id => l_application_id
,x_event_class_code => p_event_class_code
,x_prior_event_class_code => p_prior_event_class_code
,x_creation_date => f_ludate
,x_created_by => f_luby
,x_last_update_date => f_ludate
,x_last_updated_by => f_luby
,x_last_update_login => 0);