The following lines contain the word 'select', 'insert', 'update' or 'delete':
| delete_program_details |
| |
| Deletes all details of the Post Accounting Program |
| |
+======================================================================*/
PROCEDURE delete_program_details
(p_program_code IN VARCHAR2
,p_program_owner_code IN VARCHAR2)
IS
l_log_module VARCHAR2(240);
l_log_module := C_DEFAULT_MODULE||'.delete_program_details';
trace(p_msg => 'BEGIN of procedure delete_program_details'
,p_module => l_log_module
,p_level => C_LEVEL_PROCEDURE);
DELETE
FROM xla_acct_class_assgns
WHERE program_code = p_program_code
AND program_owner_code = p_program_owner_code;
DELETE
FROM xla_assignment_defns_tl
WHERE program_code = p_program_code
AND program_owner_code = p_program_owner_code;
DELETE
FROM xla_assignment_defns_b
WHERE program_code = p_program_code
AND program_owner_code = p_program_owner_code;
trace(p_msg => 'END of procedure delete_program_details'
,p_module => l_log_module
,p_level => C_LEVEL_PROCEDURE);
(p_location => 'xla_post_acct_progs_pkg.delete_program_details');
END delete_program_details;
| delete_assignment_details |
| |
| Deletes all details of the Assignment Definition |
| |
+======================================================================*/
PROCEDURE delete_assignment_details
(p_program_code IN VARCHAR2
,p_program_owner_code IN VARCHAR2
,p_assignment_code IN VARCHAR2
,p_assignment_owner_code IN VARCHAR2)
IS
l_log_module VARCHAR2(240);
l_log_module := C_DEFAULT_MODULE||'.delete_assignment_details';
trace(p_msg => 'BEGIN of procedure delete_assignment_details'
,p_module => l_log_module
,p_level => C_LEVEL_PROCEDURE);
DELETE
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;
trace(p_msg => 'END of procedure delete_assignment_details'
,p_module => l_log_module
,p_level => C_LEVEL_PROCEDURE);
(p_location => 'xla_post_acct_progs_pkg.delete_ssignment_details');
END delete_assignment_details;
l_last_update_date DATE;
l_last_update_login INTEGER;
l_last_updated_by INTEGER;
SELECT accounting_class_code
FROM xla_acct_class_assgns
WHERE program_code = p_program_code
AND program_owner_code = p_program_owner_code
AND assignment_code = p_old_assignment_code
AND assignment_owner_code = p_old_assignment_owner_code;
l_last_update_date := sysdate;
l_last_update_login := xla_environment_pkg.g_login_id;
l_last_updated_by := xla_environment_pkg.g_usr_id;
INSERT INTO xla_acct_class_assgns
(program_code
,program_owner_code
,assignment_code
,assignment_owner_code
,accounting_class_code
,creation_date
,created_by
,last_update_date
,last_updated_by
,last_update_login)
VALUES
(p_program_code
,p_program_owner_code
,p_new_assignment_code
,p_new_assignment_owner_code
,l_accounting_class_code
,l_creation_date
,l_created_by
,l_last_update_date
,l_last_updated_by
,l_last_update_login);