The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_Project_Task_Bill_Info(
p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
p_debug_mode IN VARCHAR2 DEFAULT 'N',
p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
p_project_id IN NUMBER ,
p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
p_lbr_schedule_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
p_non_lbr_schedule_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
p_emp_bill_rate_sch_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
p_job_bill_rate_sch_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
p_lbr_sch_fxd_date IN DATE DEFAULT FND_API.G_MISS_DATE,
p_lbr_sch_discount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
p_rev_schedule_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
p_inv_schedule_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
p_rev_ind_sch_fxd_date IN DATE DEFAULT FND_API.G_MISS_DATE,
p_inv_ind_sch_fxd_date IN DATE DEFAULT FND_API.G_MISS_DATE,
p_nlbr_bill_rate_org_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
p_nlbr_std_bill_rate_sch IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
p_nlbr_sch_fxd_date IN DATE DEFAULT FND_API.G_MISS_DATE,
p_nlbr_sch_discount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
p_record_version_number IN NUMBER DEFAULT 1,
x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
) IS
l_return_status VARCHAR2(1);
SAVEPOINT Update_Bill_Info;
pa_debug.debug('Update_Project_Task_Bill_Info PVT: Checking PRM installation');
pa_debug.debug('Update_Project_Task_Bill_Info PVT: Checking Lock on record');
SELECT 'x' INTO l_dummy_char
FROM pa_projects
WHERE project_id = p_project_id
AND record_version_number = p_record_version_number
FOR UPDATE OF record_version_number NOWAIT;
SELECT 'x' INTO l_dummy_char
FROM pa_projects
WHERE project_id = p_project_id
AND record_version_number = p_record_version_number;
UPDATE pa_projects
SET LABOR_SCH_TYPE = l_lbr_schedule_type,
NON_LABOR_SCH_TYPE = l_non_lbr_schedule_type,
EMP_BILL_RATE_SCHEDULE_ID = l_emp_bill_rate_sch_id ,
JOB_BILL_RATE_SCHEDULE_ID = l_job_bill_rate_sch_id ,
LABOR_SCHEDULE_FIXED_DATE = l_lbr_sch_fxd_date,
LABOR_SCHEDULE_DISCOUNT = l_lbr_sch_discount,
REV_IND_RATE_SCH_ID = l_rev_schedule_id,
INV_IND_RATE_SCH_ID = l_inv_schedule_id,
REV_IND_SCH_FIXED_DATE = l_rev_ind_sch_fxd_date,
INV_IND_SCH_FIXED_DATE = l_inv_ind_sch_fxd_date,
NON_LABOR_BILL_RATE_ORG_ID = l_nlbr_bill_rate_org_id,
NON_LABOR_STD_BILL_RATE_SCHDL = l_nlbr_std_bill_rate_sch,
NON_LABOR_SCHEDULE_FIXED_DATE = l_nlbr_sch_fxd_date,
NON_LABOR_SCHEDULE_DISCOUNT = l_nlbr_sch_discount,
RECORD_VERSION_NUMBER = NVL( RECORD_VERSION_NUMBER, 0 ) + 1
WHERE project_id = p_project_id
AND RECORD_VERSION_NUMBER = p_record_version_number;
SELECT 'x' INTO l_dummy_char
FROM pa_tasks
WHERE task_id = l_task_id
AND record_version_number = p_record_version_number
FOR UPDATE OF record_version_number NOWAIT;
SELECT 'x' INTO l_dummy_char
FROM pa_tasks
WHERE task_id = l_task_id
AND record_version_number = p_record_version_number;
UPDATE pa_tasks
SET LABOR_SCH_TYPE = l_lbr_schedule_type,
NON_LABOR_SCH_TYPE = l_non_lbr_schedule_type,
EMP_BILL_RATE_SCHEDULE_ID = l_emp_bill_rate_sch_id ,
JOB_BILL_RATE_SCHEDULE_ID = l_job_bill_rate_sch_id ,
LABOR_SCHEDULE_FIXED_DATE = l_lbr_sch_fxd_date,
LABOR_SCHEDULE_DISCOUNT = l_lbr_sch_discount,
REV_IND_RATE_SCH_ID = l_rev_schedule_id,
INV_IND_RATE_SCH_ID = l_inv_schedule_id,
REV_IND_SCH_FIXED_DATE = l_rev_ind_sch_fxd_date,
INV_IND_SCH_FIXED_DATE = l_inv_ind_sch_fxd_date,
NON_LABOR_BILL_RATE_ORG_ID = l_nlbr_bill_rate_org_id,
NON_LABOR_STD_BILL_RATE_SCHDL = l_nlbr_std_bill_rate_sch,
NON_LABOR_SCHEDULE_FIXED_DATE = l_nlbr_sch_fxd_date,
NON_LABOR_SCHEDULE_DISCOUNT = l_nlbr_sch_discount,
RECORD_VERSION_NUMBER = NVL( RECORD_VERSION_NUMBER, 0 ) + 1
WHERE task_id = l_task_id
AND RECORD_VERSION_NUMBER = p_record_version_number;
ROLLBACK TO Update_Bill_Info;
p_procedure_name => 'Update_Project_Task_Bill_Info',
p_error_text => SUBSTRB(SQLERRM,1,240));
ROLLBACK TO Update_Bill_Info;
ROLLBACK TO Update_Bill_Info;
p_procedure_name => 'Update_Project_Task_Bill_Info',
p_error_text => SUBSTRB(SQLERRM,1,240));
END Update_Project_Task_Bill_Info;
PROCEDURE update_billing_schedule_type(
p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
p_debug_mode IN VARCHAR2 DEFAULT 'N',
p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
p_project_id IN NUMBER ,
p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
p_lbr_schedule_type IN VARCHAR2 ,
p_non_lbr_schedule_type IN VARCHAR2 ,
p_record_version_number IN NUMBER DEFAULT 1,
x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
) IS
l_return_status VARCHAR2(1);
pa_debug.debug('update_billing_schedule_type PVT: Checking Lock on record');
SELECT 'x' INTO l_dummy_char
FROM pa_projects
WHERE project_id = p_project_id
AND record_version_number = p_record_version_number
FOR UPDATE OF record_version_number NOWAIT;
SELECT 'x' INTO l_dummy_char
FROM pa_projects
WHERE project_id = p_project_id
AND record_version_number = p_record_version_number;
SELECT 'x' INTO l_dummy_char
FROM pa_tasks
WHERE task_id = l_task_id
AND record_version_number = p_record_version_number
FOR UPDATE OF record_version_number NOWAIT;
SELECT 'x' INTO l_dummy_char
FROM pa_tasks
WHERE task_id = l_task_id
AND record_version_number = p_record_version_number;
UPDATE pa_projects
SET LABOR_SCH_TYPE = p_lbr_schedule_type,
NON_LABOR_SCH_TYPE = p_non_lbr_schedule_type,
REV_IND_RATE_SCH_ID = null,
INV_IND_RATE_SCH_ID = null,
REV_IND_SCH_FIXED_DATE = null,
INV_IND_SCH_FIXED_DATE = null,
RECORD_VERSION_NUMBER = NVL( RECORD_VERSION_NUMBER, 0 ) + 1
WHERE project_id = p_project_id
AND RECORD_VERSION_NUMBER = p_record_version_number;
UPDATE pa_tasks
SET LABOR_SCH_TYPE = p_lbr_schedule_type,
NON_LABOR_SCH_TYPE = p_non_lbr_schedule_type,
REV_IND_RATE_SCH_ID = null,
INV_IND_RATE_SCH_ID = null,
REV_IND_SCH_FIXED_DATE = null,
INV_IND_SCH_FIXED_DATE = null,
RECORD_VERSION_NUMBER = NVL( RECORD_VERSION_NUMBER, 0 ) + 1
WHERE task_id = l_task_id
AND RECORD_VERSION_NUMBER = p_record_version_number;
UPDATE pa_projects
SET LABOR_SCH_TYPE = p_lbr_schedule_type,
NON_LABOR_SCH_TYPE = p_non_lbr_schedule_type,
NON_LABOR_BILL_RATE_ORG_ID = null,
NON_LABOR_STD_BILL_RATE_SCHDL = null,
NON_LABOR_SCHEDULE_FIXED_DATE = null,
NON_LABOR_SCHEDULE_DISCOUNT = null,
RECORD_VERSION_NUMBER = NVL( RECORD_VERSION_NUMBER, 0 ) + 1
WHERE project_id = p_project_id
AND RECORD_VERSION_NUMBER = p_record_version_number;
UPDATE pa_tasks
SET LABOR_SCH_TYPE = p_lbr_schedule_type,
NON_LABOR_SCH_TYPE = p_non_lbr_schedule_type,
NON_LABOR_BILL_RATE_ORG_ID = null,
NON_LABOR_STD_BILL_RATE_SCHDL = null,
NON_LABOR_SCHEDULE_FIXED_DATE = null,
NON_LABOR_SCHEDULE_DISCOUNT = null,
RECORD_VERSION_NUMBER = NVL( RECORD_VERSION_NUMBER, 0 ) + 1
WHERE task_id = l_task_id
AND RECORD_VERSION_NUMBER = p_record_version_number;
UPDATE pa_projects
SET LABOR_SCH_TYPE = p_lbr_schedule_type,
NON_LABOR_SCH_TYPE = p_non_lbr_schedule_type,
EMP_BILL_RATE_SCHEDULE_ID = null,
JOB_BILL_RATE_SCHEDULE_ID = null,
LABOR_SCHEDULE_FIXED_DATE = null,
LABOR_SCHEDULE_DISCOUNT = null,
RECORD_VERSION_NUMBER = NVL( RECORD_VERSION_NUMBER, 0 ) + 1
WHERE project_id = p_project_id
AND RECORD_VERSION_NUMBER = p_record_version_number;
UPDATE pa_tasks
SET LABOR_SCH_TYPE = p_lbr_schedule_type,
NON_LABOR_SCH_TYPE = p_non_lbr_schedule_type,
EMP_BILL_RATE_SCHEDULE_ID = null,
JOB_BILL_RATE_SCHEDULE_ID = null,
LABOR_SCHEDULE_FIXED_DATE = null,
LABOR_SCHEDULE_DISCOUNT = null,
RECORD_VERSION_NUMBER = NVL( RECORD_VERSION_NUMBER, 0 ) + 1
WHERE task_id = l_task_id
AND RECORD_VERSION_NUMBER = p_record_version_number;
UPDATE pa_projects
SET LABOR_SCH_TYPE = p_lbr_schedule_type,
NON_LABOR_SCH_TYPE = p_non_lbr_schedule_type,
EMP_BILL_RATE_SCHEDULE_ID = null,
JOB_BILL_RATE_SCHEDULE_ID = null,
LABOR_SCHEDULE_FIXED_DATE = null,
LABOR_SCHEDULE_DISCOUNT = null,
NON_LABOR_BILL_RATE_ORG_ID = null,
NON_LABOR_STD_BILL_RATE_SCHDL = null,
NON_LABOR_SCHEDULE_FIXED_DATE = null,
NON_LABOR_SCHEDULE_DISCOUNT = null,
RECORD_VERSION_NUMBER = NVL( RECORD_VERSION_NUMBER, 0 ) + 1
WHERE project_id = p_project_id
AND RECORD_VERSION_NUMBER = p_record_version_number;
UPDATE pa_tasks
SET LABOR_SCH_TYPE = p_lbr_schedule_type,
NON_LABOR_SCH_TYPE = p_non_lbr_schedule_type,
EMP_BILL_RATE_SCHEDULE_ID = null,
JOB_BILL_RATE_SCHEDULE_ID = null,
LABOR_SCHEDULE_FIXED_DATE = null,
LABOR_SCHEDULE_DISCOUNT = null,
NON_LABOR_BILL_RATE_ORG_ID = null,
NON_LABOR_STD_BILL_RATE_SCHDL = null,
NON_LABOR_SCHEDULE_FIXED_DATE = null,
NON_LABOR_SCHEDULE_DISCOUNT = null,
RECORD_VERSION_NUMBER = NVL( RECORD_VERSION_NUMBER, 0 ) + 1
WHERE task_id = p_task_id
AND RECORD_VERSION_NUMBER = p_record_version_number;
p_procedure_name => 'update_billing_schedule_type',
p_error_text => SUBSTRB(SQLERRM,1,240));
p_procedure_name => 'update_billing_schedule_type',
p_error_text => SUBSTRB(SQLERRM,1,240));
END update_billing_schedule_type;
SELECT pa_labor_multipliers_s.NEXTVAL INTO l_labor_multiplier_id
FROM dual;
INSERT INTO pa_labor_multipliers(
labor_multiplier_id,
PROJECT_ID,
TASK_ID ,
LABOR_MULTIPLIER ,
START_DATE_ACTIVE ,
END_DATE_ACTIVE ,
CREATED_BY ,
CREATION_DATE ,
LAST_UPDATED_BY ,
LAST_UPDATE_DATE ,
LAST_UPDATE_LOGIN ,
RECORD_VERSION_NUMBER )
VALUES(
l_labor_multiplier_id,
p_project_id,
l_task_id,
p_labor_multiplier,
p_effective_from_date,
l_effective_to_date,
FND_GLOBAL.USER_ID,
SYSDATE,
FND_GLOBAL.USER_ID,
SYSDATE,
FND_GLOBAl.LOGIN_ID,
1
);
PROCEDURE Update_Labor_Multiplier(
p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
p_debug_mode IN VARCHAR2 DEFAULT 'N',
p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
p_labor_multiplier_id IN NUMBER,
p_project_id IN NUMBER ,
p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
p_labor_multiplier IN NUMBER ,
p_effective_from_date IN DATE ,
p_effective_to_date IN DATE DEFAULT FND_API.G_MISS_DATE,
p_record_version_number IN NUMBER DEFAULT 1,
x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
) IS
l_return_status VARCHAR2(1);
pa_debug.debug('Update_Labor_Multiplier PVT: Checking Lock on record');
SELECT 'x' INTO l_dummy_char
FROM pa_labor_multipliers
WHERE labor_multiplier_id = p_labor_multiplier_id
AND record_version_number = p_record_version_number
FOR UPDATE OF record_version_number NOWAIT;
SELECT 'x' INTO l_dummy_char
FROM pa_labor_multipliers
WHERE labor_multiplier_id = p_labor_multiplier_id
AND record_version_number = p_record_version_number;
UPDATE pa_labor_multipliers
SET LABOR_MULTIPLIER = p_labor_multiplier,
START_DATE_ACTIVE = p_effective_from_date,
END_DATE_ACTIVE = l_effective_to_date,
LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID,
RECORD_VERSION_NUMBER = NVL( RECORD_VERSION_NUMBER, 0 ) + 1
WHERE labor_multiplier_id = p_labor_multiplier_id
AND RECORD_VERSION_NUMBER = p_RECORD_VERSION_NUMBER;
p_procedure_name => 'update_labor_multiplier',
p_error_text => SUBSTRB(SQLERRM,1,240));
p_procedure_name => 'update_labor_multiplier',
p_error_text => SUBSTRB(SQLERRM,1,240));
END Update_Labor_Multiplier;
PROCEDURE delete_Labor_Multiplier(
p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
p_validate_only IN VARCHAR2 DEFAULT FND_API.G_TRUE,
p_validation_level IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
p_calling_module IN VARCHAR2 DEFAULT 'SELF_SERVICE',
p_debug_mode IN VARCHAR2 DEFAULT 'N',
p_max_msg_count IN NUMBER DEFAULT FND_API.G_MISS_NUM,
p_labor_multiplier_id IN NUMBER,
p_project_id IN NUMBER ,
p_task_id IN NUMBER DEFAULT FND_API.G_MISS_NUM,
p_labor_multiplier IN NUMBER ,
p_effective_from_date IN DATE ,
p_record_version_number IN NUMBER DEFAULT 1,
x_return_status OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY VARCHAR2 , --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
)IS
l_return_status VARCHAR2(1);
pa_debug.debug('Delete_Labor_Multiplier PVT: Checking Lock on record');
SELECT 'x' INTO l_dummy_char
FROM pa_labor_multipliers
WHERE labor_multiplier_id = p_labor_multiplier_id
AND record_version_number = p_record_version_number
FOR UPDATE OF record_version_number NOWAIT;
SELECT 'x' INTO l_dummy_char
FROM pa_labor_multipliers
WHERE labor_multiplier_id = p_labor_multiplier_id
AND record_version_number = p_record_version_number;
DELETE pa_labor_multipliers
WHERE labor_multiplier_id = p_labor_multiplier_id
AND RECORD_VERSION_NUMBER = p_RECORD_VERSION_NUMBER;
p_procedure_name => 'delete_labor_multiplier',
p_error_text => SUBSTRB(SQLERRM,1,240));
p_procedure_name => 'delete_labor_multiplier',
p_error_text => SUBSTRB(SQLERRM,1,240));
END Delete_Labor_Multiplier;