The following lines contain the word 'select', 'insert', 'update' or 'delete':
| Procedure insert_row |
| |
+======================================================================*/
PROCEDURE insert_row
(x_rowid IN OUT NOCOPY VARCHAR2
,x_program_code IN VARCHAR2
,x_program_owner_code IN VARCHAR2
,x_assignment_code IN VARCHAR2
,x_assignment_owner_code IN VARCHAR2
,x_accounting_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_acct_class_assgns
WHERE program_code = x_program_code
AND program_owner_code = x_program_owner_code
AND assignment_code = x_assignment_code
AND assignment_owner_code = x_assignment_owner_code
AND accounting_class_code = x_accounting_class_code
;
l_log_module := C_DEFAULT_MODULE||'.insert_row';
trace(p_msg => 'BEGIN of procedure insert_row',
p_module => l_log_module,
p_level => C_LEVEL_PROCEDURE);
INSERT INTO xla_acct_class_assgns
(creation_date
,created_by
,program_code
,program_owner_code
,assignment_code
,assignment_owner_code
,accounting_class_code
,last_update_date
,last_updated_by
,last_update_login)
VALUES
(x_creation_date
,x_created_by
,x_program_code
,x_program_owner_code
,x_assignment_code
,x_assignment_owner_code
,x_accounting_class_code
,x_last_update_date
,x_last_updated_by
,x_last_update_login)
;
trace(p_msg => 'END of procedure insert_row',
p_module => l_log_module,
p_level => C_LEVEL_PROCEDURE);
END insert_row;
SELECT program_code
,program_owner_code
,assignment_code
,assignment_owner_code
,accounting_class_code
FROM xla_acct_class_assgns
WHERE program_code = x_program_code
AND program_owner_code = x_program_owner_code
AND assignment_code = x_assignment_code
AND assignment_owner_code = x_assignment_owner_code
AND accounting_class_code = x_accounting_class_code
FOR UPDATE OF program_code NOWAIT;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
| Procedure delete_row |
| |
+======================================================================*/
PROCEDURE delete_row
(x_program_code IN VARCHAR2
,x_program_owner_code IN VARCHAR2
,x_assignment_code IN VARCHAR2
,x_assignment_owner_code IN VARCHAR2
,x_accounting_class_code IN VARCHAR2)
IS
l_log_module VARCHAR2(240);
l_log_module := C_DEFAULT_MODULE||'.delete_row';
trace(p_msg => 'BEGIN of procedure delete_row',
p_module => l_log_module,
p_level => C_LEVEL_PROCEDURE);
DELETE FROM xla_acct_class_assgns
WHERE program_code = x_program_code
AND program_owner_code = x_program_owner_code
AND assignment_code = x_assignment_code
AND assignment_owner_code = x_assignment_owner_code
AND accounting_class_code = x_accounting_class_code;
trace(p_msg => 'END of procedure delete_row',
p_module => l_log_module,
p_level => C_LEVEL_PROCEDURE);
END delete_row;
,p_last_update_date IN VARCHAR2)
IS
l_rowid ROWID;
f_ludate DATE; -- entity update date in file
db_ludate DATE; -- entity update date in db
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_acct_class_assgns
WHERE program_code = p_program_code
AND program_owner_code = p_program_owner_code
AND assignment_code = p_assignment_code
AND assignment_owner_code = p_assignment_owner_code
AND accounting_class_code = p_accounting_class_code;
xla_acct_class_assgns_f_pkg.insert_row
(x_rowid => l_rowid
,x_program_code => p_program_code
,x_program_owner_code => p_program_owner_code
,x_assignment_code => p_assignment_code
,x_assignment_owner_code => p_assignment_owner_code
,x_accounting_class_code => p_accounting_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);