The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT NULL
INTO l_result
FROM PER_BUDGET_ELEMENTS E
WHERE E.BUDGET_VERSION_ID = X_Budget_Version_Id
AND (E.ROWID <> X_Rowid OR X_Rowid IS NULL)
AND NVL(E.ORGANIZATION_ID,-1) = NVL(X_Organization_Id,-1)
AND NVL(E.JOB_ID,-1) = NVL(X_Job_Id,-1)
AND NVL(E.POSITION_ID,-1) = NVL(X_Position_Id,-1)
AND NVL(E.GRADE_ID,-1) = NVL(X_Grade_Id,-1)
AND NVL(E.TRAINING_PLAN_ID,-1) = NVL(X_Training_Plan_Id,-1)
AND NVL(E.TRAINING_PLAN_MEMBER_ID,-1) = NVL(X_Training_Plan_Member_Id,-1)
AND NVL(E.EVENT_ID,-1) = NVL(X_Event_Id,-1);
'select ''Y'' from all_tables where table_name = ''OTA_TRAINING_PLANS''
and owner = '''||l_owner||'''';
'select ''Y'' from OTA_TRAINING_PLANS where training_plan_id = ' --
||X_Training_Plan_Id ||' and Business_Group_Id = '||X_Business_Group;
l_stmt_chk_tpc_exist varchar2(32000) := 'select ''Y'' from all_tables
where table_name = ''OTA_TRAINING_PLAN_MEMBERS''
and owner = '''||l_owner||'''';
l_stmt_get_tpc_rows varchar2(32000) := 'select ''Y'' from OTA_TRAINING_PLAN_MEMBERS
where training_plan_member_id = '||X_Training_Plan_Member_id
||' and training_plan_id = '||X_Training_Plan_Id
||' and business_group_id = '||X_Business_Group;
SELECT NULL
INTO l_result
FROM OTA_EVENTS OE
WHERE OE.Event_Id = X_Event_Id
AND OE.Business_Group_Id = X_Business_Group;
SELECT NULL
INTO l_result
FROM per_budget_elements pge
WHERE pge.budget_element_id = x_budget_element_id
AND (pge.rowid <> X_rowid OR X_rowid IS NULL);
SELECT NULL
INTO l_result
FROM per_grades pg
WHERE pg.grade_id = X_Grade_Id
AND pg.business_group_id = X_Business_Group;
SELECT NULL
INTO l_result
FROM per_jobs_v job
WHERE job.job_id = X_job_id
AND job.Business_Group_Id = X_Business_Group;
SELECT NULL
INTO l_result
FROM per_positions pos
WHERE pos.position_id = X_position_id
AND pos.Business_Group_Id = X_Business_Group;
SELECT NULL
INTO l_result
FROM per_all_organization_units org
WHERE org.organization_id = X_organization_id
AND org.business_group_id = X_business_group
AND org.internal_external_flag = 'INT'
AND org.date_from <= (select date_from
from per_budget_versions pbv
where pbv.budget_version_id = X_Budget_Version_Id)
AND nvl(org.date_to,hr_general.end_of_time) >= (select nvl(date_to,hr_general.end_of_time)
from per_budget_versions pbv
where pbv.budget_version_id = X_Budget_Version_Id);
SELECT null
INTO l_result
FROM per_budget_versions pbv
WHERE pbv.budget_version_id = X_budget_version_id
AND pbv.business_group_id = X_Business_Group;
PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
X_Budget_Element_Id IN OUT NOCOPY NUMBER,
X_Business_Group_Id NUMBER,
X_Grade_Id NUMBER,
X_Job_Id NUMBER,
X_Position_Id NUMBER,
X_Organization_Id NUMBER,
X_Budget_Version_Id NUMBER,
X_Training_Plan_Id NUMBER,
X_Training_Plan_Member_Id NUMBER,
X_Event_Id NUMBER
) IS
CURSOR C1 IS SELECT rowid FROM per_budget_elements
WHERE X_budget_element_id = X_Budget_Element_Id;
CURSOR C2 IS SELECT per_budget_elements_s.nextval
FROM dual;
l_proc VARCHAR2(72) := g_package||'Insert_Row';
INSERT INTO per_budget_elements(
budget_element_id,
business_group_id,
grade_id,
job_id,
position_id,
organization_id,
budget_version_id,
training_plan_id,
training_plan_member_id,
event_id
) VALUES (
X_Budget_Element_Id,
X_Business_Group_Id,
X_Grade_Id,
X_Job_Id,
X_Position_Id,
X_Organization_Id,
X_Budget_Version_Id,
X_Training_Plan_Id,
X_Training_Plan_Member_Id,
X_Event_Id);
hr_utility.set_message_token('PROCEDURE','Insert_Row');
END Insert_Row;
SELECT *
FROM per_budget_elements
WHERE rowid = X_Rowid
FOR UPDATE of Budget_Element_Id NOWAIT;
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_Budget_Element_Id NUMBER,
X_Business_Group_Id NUMBER,
X_Grade_Id NUMBER,
X_Job_Id NUMBER,
X_Position_Id NUMBER,
X_Organization_Id NUMBER,
X_Budget_Version_Id NUMBER,
X_Training_Plan_Id NUMBER,
X_Training_Plan_Member_Id NUMBER,
X_Event_Id NUMBER
) IS
l_proc VARCHAR2(72) := g_package||'Update_Row';
UPDATE per_budget_elements
SET
budget_element_id = X_Budget_Element_Id,
business_group_id = X_Business_Group_Id,
grade_id = X_Grade_Id,
job_id = X_Job_Id,
position_id = X_Position_Id,
organization_id = X_Organization_Id,
budget_version_id = X_Budget_Version_Id,
training_plan_id = X_Training_Plan_Id,
training_plan_member_id = X_Training_Plan_Member_Id,
event_id = X_Event_Id
WHERE rowid = X_rowid;
hr_utility.set_message_token('PROCEDURE','Update_Row');
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
CURSOR C_Values is
SELECT pbv.Rowid
FROM per_budget_values pbv
WHERE pbv.budget_element_id = (SELECT pbe.budget_element_id
FROM per_budget_elements pbe
WHERE pbe.rowid = X_Rowid);
l_proc VARCHAR2(72) := g_package||'Delete_Row';
SELECT budget_version_id into l_budget_version_id
FROM per_budget_elements pbe
WHERE pbe.rowid = x_rowid;
PER_BUDGET_VALUES_PKG.Delete_Row(X_Rowid => l_val_rowid);
hr_utility.set_message(800,'PER_52886_BUD_VAL_DELETE_FAIL');
DELETE FROM PER_BUDGET_ELEMENTS
WHERE rowid = X_Rowid;
END Delete_Row;