The following lines contain the word 'select', 'insert', 'update' or 'delete':
API for inserting into the table
==================================================================*/
PROCEDURE INSERT_ROW (
p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
p_impl_default_flag IN pa_pt_co_impl_statuses.impl_default_flag%TYPE,
x_row_id OUT NOCOPY ROWID, --File.Sql.39 bug 4440895
x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS;
INSERT
INTO PA_PT_CO_IMPL_STATUSES (
pt_co_impl_statuses_id,
fin_plan_type_id,
ci_type_id,
version_type,
status_code,
impl_default_flag,
record_version_number,
creation_date,
created_by,
last_update_login,
last_updated_by,
last_update_date)
VALUES(
p_pt_co_impl_statuses_id,
p_fin_plan_type_id,
p_ci_type_id,
p_version_type,
p_status_code,
p_impl_default_flag,
1,
sysdate,
fnd_global.user_id,
fnd_global.login_id,
fnd_global.user_id,
sysdate)
RETURNING ROWID INTO x_row_id;
p_procedure_name => 'INSERT_ROW');
END Insert_Row;
PROCEDURE UPDATE_ROW (
p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
p_impl_default_flag IN pa_pt_co_impl_statuses.impl_default_flag%TYPE,
p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
p_lock_row IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
IS
l_record_version_number NUMBER;
l_module_name VARCHAR2(100) := 'UPDATE_ROW' || g_module_name;
pa_debug.set_curr_function( p_function => 'UPDATE_ROW',
p_debug_mode => l_debug_mode );
pa_debug.g_err_stage:= 'Entering UPDATE_ROW ';
UPDATE PA_PT_CO_IMPL_STATUSES
SET
pt_co_impl_statuses_id = DECODE (p_pt_co_impl_statuses_id, FND_API.G_MISS_NUM,
NULL, NVL(p_pt_co_impl_statuses_id, pt_co_impl_statuses_id)),
fin_plan_type_id = DECODE (p_fin_plan_type_id, FND_API.G_MISS_NUM, NULL,
NVL(p_fin_plan_type_id, fin_plan_type_id)),
ci_type_id = DECODE (p_ci_type_id, FND_API.G_MISS_NUM, NULL,
NVL(p_ci_type_id, ci_type_id)),
version_type = DECODE (p_version_type, FND_API.G_MISS_CHAR, NULL,
NVL(p_version_type, version_type)),
status_code = DECODE (p_status_code, FND_API.G_MISS_NUM, NULL,
NVL(p_status_code, status_code)),
impl_default_flag = DECODE (p_impl_default_flag, FND_API.G_MISS_CHAR, NULL,
NVL(p_impl_default_flag, impl_default_flag)),
record_version_number = p_record_version_number + 1,
last_update_date = SYSDATE,
last_updated_by = FND_GLOBAL.USER_ID,
last_update_login = FND_GLOBAL.LOGIN_ID
WHERE pt_co_impl_statuses_id = p_pt_co_impl_statuses_id;
UPDATE PA_PT_CO_IMPL_STATUSES
SET
pt_co_impl_statuses_id = DECODE (p_pt_co_impl_statuses_id, FND_API.G_MISS_NUM,
NULL, NVL(p_pt_co_impl_statuses_id, pt_co_impl_statuses_id)),
fin_plan_type_id = DECODE (p_fin_plan_type_id, FND_API.G_MISS_NUM, NULL,
NVL(p_fin_plan_type_id, fin_plan_type_id)),
ci_type_id = DECODE (p_ci_type_id, FND_API.G_MISS_NUM, NULL,
NVL(p_ci_type_id, ci_type_id)),
version_type = DECODE (p_version_type, FND_API.G_MISS_CHAR, NULL,
NVL(p_version_type, version_type)),
status_code = DECODE (p_status_code, FND_API.G_MISS_CHAR, NULL,
NVL(p_status_code, status_code)),
impl_default_flag = DECODE (p_impl_default_flag, FND_API.G_MISS_CHAR, NULL,
NVL(p_impl_default_flag, impl_default_flag)),
record_version_number = nvl(p_record_version_number,record_version_number) + 1,
last_update_login = FND_GLOBAL.LOGIN_ID,
last_updated_by = FND_GLOBAL.USER_ID,
last_update_date = SYSDATE
WHERE fin_plan_type_id = p_fin_plan_type_id
AND ci_type_id = p_ci_type_id
AND version_type = DECODE(p_version_type,
PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH, version_type,
Nvl(p_version_type,version_type))
AND status_code = Nvl (p_status_code, status_code);
pa_debug.g_err_stage:= 'Leaving UPDATE_ROW ';
p_procedure_name => 'Update_Row');
p_procedure_name => 'Update_Row');
END UPDATE_ROW;
PROCEDURE DELETE_ROW (
p_pt_co_impl_statuses_id IN pa_pt_co_impl_statuses.pt_co_impl_statuses_id%TYPE,
p_fin_plan_type_id IN pa_pt_co_impl_statuses.fin_plan_type_id%TYPE,
p_ci_type_id IN pa_pt_co_impl_statuses.ci_type_id%TYPE,
p_version_type IN pa_pt_co_impl_statuses.version_type%TYPE,
p_status_code IN pa_pt_co_impl_statuses.status_code%TYPE,
p_record_version_number IN pa_pt_co_impl_statuses.record_version_number%TYPE,
p_lock_row IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
IS
l_debug_mode VARCHAR2(1);
l_module_name VARCHAR2(100) := 'UPDATE_ROW' || g_module_name;
DELETE
FROM pa_pt_co_impl_statuses
WHERE pt_co_impl_statuses_id = p_pt_co_impl_statuses_id;
pa_debug.g_err_stage:= 'Row Deleted';
DELETE
FROM pa_pt_co_impl_statuses
WHERE fin_plan_type_id = p_fin_plan_type_id
AND ci_type_id = p_ci_type_id
AND version_type = DECODE(p_version_type,
PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH, version_type,
Nvl(p_version_type,version_type))
AND status_code = Nvl (p_status_code, status_code);
pa_debug.g_err_stage:= 'Row Deleted';
p_procedure_name => 'DELETE_ROW');
END DELETE_ROW;
l_module_name VARCHAR2(100) := 'UPDATE_ROW' || g_module_name;
SELECT ROWID
FROM pa_pt_co_impl_statuses
WHERE fin_plan_type_id = p_fin_plan_type_id
AND ci_type_id = p_ci_type_id
AND version_type = DECODE(p_version_type,
PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH, version_type,
Nvl(p_version_type,version_type))
AND status_code = Nvl (p_status_code, status_code)
FOR UPDATE NOWAIT;
SELECT ROWID
INTO l_row_id
FROM pa_pt_co_impl_statuses
WHERE pt_co_impl_statuses_id = p_pt_co_impl_statuses_id
AND record_version_number = Nvl(p_record_version_number, record_version_number)
FOR UPDATE NOWAIT;