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_ledger_id IN NUMBER
,x_enabled_flag IN VARCHAR2
,x_name 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_assignment_defns_b
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
;
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_assignment_defns_b
(creation_date
,created_by
,program_code
,program_owner_code
,assignment_code
,assignment_owner_code
,ledger_id
,enabled_flag
,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_ledger_id
,x_enabled_flag
,x_last_update_date
,x_last_updated_by
,x_last_update_login)
;
INSERT INTO xla_assignment_defns_tl
(creation_date
,program_code
,program_owner_code
,assignment_code
,assignment_owner_code
,name
,last_update_date
,last_updated_by
,last_update_login
,created_by
,language
,source_lang)
SELECT
x_creation_date
,x_program_code
,x_program_owner_code
,x_assignment_code
,x_assignment_owner_code
,x_name
,x_last_update_date
,x_last_updated_by
,x_last_update_login
,x_created_by
,l.language_code
,USERENV('LANG')
FROM fnd_languages l
WHERE l.installed_flag IN ('I', 'B')
AND NOT EXISTS
(SELECT NULL
FROM xla_assignment_defns_tl t
WHERE t.program_code = x_program_code
AND t.program_owner_code = x_program_owner_code
AND t.assignment_code = x_assignment_code
AND t.assignment_owner_code = x_assignment_owner_code
AND t.language = l.language_code);
trace(p_msg => 'END of procedure insert_row',
p_module => l_log_module,
p_level => C_LEVEL_PROCEDURE);
END insert_row;
SELECT enabled_flag, ledger_id
FROM xla_assignment_defns_b
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
FOR UPDATE OF program_code NOWAIT;
SELECT source_lang
,name
,DECODE(language , USERENV('LANG'), 'Y', 'N') baselang
FROM xla_assignment_defns_tl
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 USERENV('LANG') IN (language ,source_lang)
FOR UPDATE OF program_code NOWAIT;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
| Procedure update_row |
| |
+======================================================================*/
PROCEDURE update_row
(x_program_code IN VARCHAR2
,x_program_owner_code IN VARCHAR2
,x_assignment_code IN VARCHAR2
,x_assignment_owner_code IN VARCHAR2
,x_ledger_id IN NUMBER
,x_enabled_flag IN VARCHAR2
,x_name IN VARCHAR2
,x_last_update_date IN DATE
,x_last_updated_by IN NUMBER
,x_last_update_login IN NUMBER)
IS
l_log_module VARCHAR2(240);
l_log_module := C_DEFAULT_MODULE||'.update_row';
trace(p_msg => 'BEGIN of procedure update_row',
p_module => l_log_module,
p_level => C_LEVEL_PROCEDURE);
UPDATE xla_assignment_defns_b
SET
last_update_date = x_last_update_date
,ledger_id = x_ledger_id
,enabled_flag = x_enabled_flag
,last_updated_by = x_last_updated_by
,last_update_login = x_last_update_login
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;
UPDATE xla_assignment_defns_tl
SET
last_update_date = x_last_update_date
,name = X_name
,last_updated_by = x_last_updated_by
,last_update_login = x_last_update_login
,source_lang = USERENV('LANG')
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 USERENV('LANG') IN (language, source_lang);
trace(p_msg => 'END of procedure update_row',
p_module => l_log_module,
p_level => C_LEVEL_PROCEDURE);
END update_row;
| 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)
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_assignment_defns_tl
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;
DELETE FROM xla_assignment_defns_b
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;
trace(p_msg => 'END of procedure delete_row',
p_module => l_log_module,
p_level => C_LEVEL_PROCEDURE);
END delete_row;
DELETE FROM xla_assignment_defns_tl T
WHERE NOT EXISTS
(SELECT NULL
FROM xla_assignment_defns_b b
WHERE b.program_code = t.program_code
AND b.program_owner_code = t.program_owner_code
AND b.assignment_code = t.assignment_code
AND b.assignment_owner_code = t.assignment_owner_code);
UPDATE xla_assignment_defns_tl t
SET (name)
= (SELECT b.name
FROM xla_assignment_defns_tl b
WHERE b.program_code = t.program_code
AND b.program_owner_code = t.program_owner_code
AND b.assignment_code = t.assignment_code
AND b.assignment_owner_code = t.assignment_owner_code
AND b.language = t.source_lang)
WHERE (t.program_code
,t.program_owner_code
,t.assignment_code
,t.assignment_owner_code
,t.language)
IN (SELECT subt.program_code
,subt.program_owner_code
,subt.assignment_code
,subt.assignment_owner_code
,subt.language
FROM xla_assignment_defns_tl subb
,xla_assignment_defns_tl subt
WHERE subb.program_code = subt.program_code
AND subb.program_owner_code = subt.program_owner_code
AND subb.assignment_code = subt.assignment_code
AND subb.assignment_owner_code = subt.assignment_owner_code
AND subb.language = subt.source_lang
AND (SUBB.name <> SUBT.name
))
;
INSERT INTO xla_assignment_defns_tl
(creation_date
,program_code
,program_owner_code
,assignment_code
,assignment_owner_code
,name
,last_update_date
,last_updated_by
,last_update_login
,created_by
,language
,source_lang)
SELECT /*+ ORDERED */
b.creation_date
,b.program_code
,b.program_owner_code
,b.assignment_code
,b.assignment_owner_code
,b.name
,b.last_update_date
,b.last_updated_by
,b.last_update_login
,b.created_by
,l.language_code
,b.source_lang
FROM xla_assignment_defns_tl b
,fnd_languages l
WHERE l.installed_flag IN ('I', 'B')
AND b.language = userenv('LANG')
AND NOT EXISTS
(SELECT NULL
FROM xla_assignment_defns_tl t
WHERE t.program_code = b.program_code
AND t.program_owner_code = b.program_owner_code
AND t.assignment_code = b.assignment_code
AND t.assignment_owner_code = b.assignment_owner_code
AND t.language = l.language_code);
,p_last_update_date IN VARCHAR2
,p_name IN VARCHAR2)
IS
CURSOR c_ledger
IS
SELECT ledger_id
FROM gl_ledgers
WHERE short_name = p_ledger_short_name;
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_assignment_defns_vl
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;
xla_assignment_defns_f_pkg.update_row
(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_enabled_flag => p_enabled_flag
,x_ledger_id => l_ledger_id
,x_name => p_name
,x_last_update_date => f_ludate
,x_last_updated_by => f_luby
,x_last_update_login => 0);
xla_assignment_defns_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_ledger_id => l_ledger_id
,x_enabled_flag => p_enabled_flag
,x_name => p_name
,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);
,p_last_update_date IN VARCHAR2
,p_custom_mode 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_assignment_defns_tl
WHERE program_code = p_program_code
AND program_owner_code = p_program_owner_code
AND assignment_code = assignment_code
AND assignment_owner_code = assignment_owner_code
AND language = userenv('LANG');
UPDATE xla_assignment_defns_tl
SET name = p_name
,last_update_date = f_ludate
,last_updated_by = f_luby
,last_update_login = 0
,source_lang = userenv('LANG')
WHERE userenv('LANG') IN (language, source_lang)
AND 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;