The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row (
X_Rowid OUT NOCOPY ROWID,
p_Project_Type IN VARCHAR2,
p_Project_ID IN NUMBER,
p_Balance_Type IN VARCHAR2,
p_Budget_Type_Code IN VARCHAR2,
p_External_Budget_Code IN VARCHAR2,
p_GL_Budget_Version_ID IN NUMBER,
p_Encumbrance_Type_ID IN NUMBER,
p_Bdgt_Cntrl_Flag IN VARCHAR2,
P_FC_Level_Project IN VARCHAR2,
P_FC_Level_Task IN VARCHAR2,
P_FC_Level_RsrcGrp IN VARCHAR2,
P_FC_Level_Rsrs IN VARCHAR2,
P_Amount_Type IN VARCHAR2,
P_Boundary_Code IN VARCHAR2,
p_Project_Type_Org_ID IN NUMBER,
p_Last_Update_Date IN DATE,
p_Last_Updated_By IN NUMBER,
p_Creation_Date IN DATE,
p_Created_By IN NUMBER,
p_Last_Update_Login IN NUMBER
)
AS
BEGIN
BEGIN
INSERT INTO PA_BUDGETARY_CONTROL_OPTIONS (
Project_Type,
Project_ID,
Balance_Type,
Budget_Type_Code,
External_Budget_Code,
GL_Budget_Version_ID,
Encumbrance_Type_ID,
Bdgt_Cntrl_Flag,
Fund_Control_Level_Project,
Fund_Control_Level_Task,
Fund_Control_Level_Res_Grp,
Fund_Control_Level_Res,
Amount_Type,
Boundary_Code,
Project_Type_Org_ID,
Last_Update_Date,
Last_Updated_By,
Creation_Date,
Created_By,
Last_Update_Login
)
VALUES (
P_Project_Type,
P_Project_ID,
P_Balance_Type,
P_Budget_Type_Code,
P_External_Budget_Code,
P_GL_Budget_Version_ID,
P_Encumbrance_Type_ID,
P_Bdgt_Cntrl_Flag,
P_FC_Level_Project,
P_FC_Level_Task,
P_FC_Level_RsrcGrp,
P_FC_Level_Rsrs,
P_Amount_Type,
P_Boundary_Code,
P_Project_Type_Org_ID,
P_Last_Update_Date,
P_Last_Updated_By,
P_Creation_Date,
P_Created_By,
P_Last_Update_Login
);
SELECT RowID
INTO X_RowID
FROM PA_BUDGETARY_CONTROL_OPTIONS
WHERE Budget_Type_Code = P_Budget_Type_Code
AND ( Project_ID = P_Project_ID OR Project_Type = P_Project_Type)
AND nvl(Project_Type_Org_ID,-99) = nvl(P_Project_Type_Org_ID,-99) ; -- Added for bug #4772022
END Insert_Row;
PROCEDURE Update_Row (
p_Rowid IN ROWID,
p_Project_Type IN VARCHAR2,
p_Project_ID IN NUMBER,
p_Balance_Type IN VARCHAR2,
p_Budget_Type_Code IN VARCHAR2,
p_External_Budget_Code IN VARCHAR2,
p_GL_Budget_Version_ID IN NUMBER,
p_Encumbrance_Type_ID IN NUMBER,
p_Bdgt_Cntrl_Flag IN VARCHAR2,
P_FC_Level_Project IN VARCHAR2,
P_FC_Level_Task IN VARCHAR2,
P_FC_Level_RsrcGrp IN VARCHAR2,
P_FC_Level_Rsrs IN VARCHAR2,
P_Amount_Type IN VARCHAR2,
P_Boundary_Code IN VARCHAR2,
p_Last_Update_Date IN DATE,
p_Last_Updated_By IN NUMBER,
p_Creation_Date IN DATE,
p_Created_By IN NUMBER,
p_Last_Update_Login IN NUMBER
)
AS
BEGIN
UPDATE PA_BUDGETARY_CONTROL_OPTIONS
SET
Project_Type = p_Project_Type,
Project_ID = p_Project_ID,
Balance_Type = p_Balance_Type,
Budget_Type_Code = p_Budget_Type_Code,
External_Budget_Code = p_External_Budget_Code,
GL_Budget_Version_ID = p_GL_Budget_Version_ID,
Encumbrance_Type_ID = p_Encumbrance_Type_ID,
Bdgt_Cntrl_Flag = p_Bdgt_Cntrl_Flag,
Fund_Control_Level_Project = P_FC_Level_Project,
Fund_Control_Level_Task = P_FC_Level_Task,
Fund_Control_Level_Res_Grp = P_FC_Level_RsrcGrp,
Fund_Control_Level_Res = P_FC_Level_Rsrs,
Amount_Type = p_Amount_Type,
Boundary_Code = p_Boundary_Code,
Last_Update_Date = p_Last_Update_Date,
Last_Updated_By = p_Last_Updated_By,
Creation_Date = p_Creation_Date,
Created_By = p_Created_By,
Last_Update_Login = p_Last_Update_Login
WHERE
rowid = p_Rowid;
END Update_Row;
PROCEDURE Delete_Row (
p_Rowid IN ROWID
)
AS
BEGIN
DELETE FROM PA_BUDGETARY_CONTROL_OPTIONS
WHERE RowID = p_Rowid;
END Delete_Row;
SELECT
Project_Type,
Project_ID,
Balance_Type,
Budget_Type_Code,
External_Budget_Code,
GL_Budget_Version_ID,
Encumbrance_Type_ID,
Bdgt_Cntrl_Flag,
Amount_Type,
Boundary_Code
FROM
PA_BUDGETARY_CONTROL_OPTIONS
WHERE
RowID = p_RowID
FOR UPDATE OF Budget_Type_Code NOWAIT;