The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure Insert_Row(
P_Rbs_Element_Name_Id IN Number,
P_RBS_Version_Id IN Number,
P_Outline_Number IN Varchar2,
P_Order_Number IN Number,
P_Resource_Type_Id IN Number,
P_Resource_Source_Id IN Number,
P_Person_Id IN Number,
P_Job_Id IN Number,
P_Organization_Id IN Number,
P_Expenditure_Type_Id IN Number,
P_Event_Type_Id IN Number,
P_Expenditure_Category_Id IN Number,
P_Revenue_Category_Id IN Number,
P_Inventory_Item_Id IN Number,
P_Item_Category_Id IN Number,
P_BOM_Labor_Id IN Number,
P_BOM_Equipment_Id IN Number,
P_Non_Labor_Resource_Id IN Number,
P_Role_Id IN Number,
P_Person_Type_Id IN Number,
P_Resource_Class_Id IN Number,
P_Supplier_Id IN Number,
P_Rule_Flag IN Varchar2,
P_Parent_Element_Id IN Number,
P_Rbs_Level IN Number,
P_Element_Identifier IN Number,
P_User_Created_Flag IN Varchar2,
P_User_Defined_Custom1_Id IN Number,
P_User_Defined_Custom2_Id IN Number,
P_User_Defined_Custom3_Id IN Number,
P_User_Defined_Custom4_Id IN Number,
P_User_Defined_Custom5_Id IN Number,
P_Last_Update_Date IN Date,
P_Last_Updated_By IN Number,
P_Last_Update_Login IN Number,
P_Creation_Date IN Date,
P_Created_By IN Number,
X_RBS_Element_Id OUT NOCOPY Number,
P_Level_Code IN VARCHAR2 default null,--15834912
P_COST_CODE IN VARCHAR2 default null,--15834912
P_COST_CODE_NAME IN VARCHAR2 default null,--16430696
X_Error_Msg_Data OUT NOCOPY Varchar2)
Is
UNABLE_TO_CREATE_REC Exception;
Select
RowId
From
Pa_RBS_Elements
Where
RBS_Element_Id = P_Id;
Select
Pa_Rbs_Elements_S.NextVal
From
Dual;
Insert Into Pa_RBS_Elements (
RBS_Element_Id,
Rbs_Element_Name_Id,
RBS_Version_Id,
Outline_Number,
Order_Number,
Resource_Type_Id,
Resource_Source_Id,
Person_Id,
Job_Id,
Organization_Id,
Expenditure_Type_Id,
Event_Type_Id,
Expenditure_Category_Id,
Revenue_Category_Id,
Inventory_Item_Id,
Item_Category_Id,
BOM_Labor_Id,
BOM_Equipment_Id,
Non_Labor_Resource_Id,
Role_Id,
Person_Type_Id,
Resource_Class_Id,
Supplier_Id,
Rule_Flag,
Parent_Element_Id,
Rbs_Level,
Element_Identifier,
User_Created_Flag,
User_Defined_Custom1_Id,
User_Defined_Custom2_Id,
User_Defined_Custom3_Id,
User_Defined_Custom4_Id,
User_Defined_Custom5_Id,
Last_Update_Date,
Last_Updated_By,
Creation_Date,
Created_By,
Last_Update_Login,
Record_Version_Number,
LEVEL_CODE,--15834912
COST_CODE,
COST_CODE_NAME,
ENABLE_FLAG)--16430696
Values (
X_RBS_Element_Id,
P_Rbs_Element_Name_Id,
P_RBS_Version_Id,
P_Outline_Number,
P_Order_Number,
P_Resource_Type_Id,
P_Resource_Source_Id,
P_Person_Id,
P_Job_Id,
P_Organization_Id,
P_Expenditure_Type_Id,
P_Event_Type_Id,
P_Expenditure_Category_Id,
P_Revenue_Category_Id,
P_Inventory_Item_Id,
P_Item_Category_Id,
P_BOM_Labor_Id,
P_BOM_Equipment_Id,
P_Non_Labor_Resource_Id,
P_Role_Id,
P_Person_Type_Id,
P_Resource_Class_Id,
P_Supplier_Id,
P_Rule_Flag,
P_Parent_Element_Id,
P_Rbs_Level,
P_Element_Identifier,
P_User_Created_Flag,
P_User_Defined_Custom1_Id,
P_User_Defined_Custom2_Id,
P_User_Defined_Custom3_Id,
P_User_Defined_Custom4_Id,
P_User_Defined_Custom5_Id,
P_Last_Update_Date,
P_Last_Updated_By,
P_Creation_Date,
P_Created_By,
P_Last_Update_Login,
1,
P_LEVEL_CODE,--15834912
P_COST_CODE
,P_COST_CODE_NAME
,DECODE(P_COST_CODE,NULL,NULL,'Y'));--16430696
End Insert_Row;
Procedure Update_Row(
P_Rbs_Element_Id IN Number,
P_Rbs_Element_Name_Id IN Number,
P_Rbs_Version_Id IN Number,
P_Outline_Number IN Varchar2,
P_Order_Number IN Number,
P_Resource_Type_Id IN Number,
P_Resource_Source_Id IN Number,
P_Person_Id IN Number,
P_Job_Id IN Number,
P_Organization_Id IN Number,
P_Expenditure_Type_Id IN Number,
P_Event_Type_Id IN Number,
P_Expenditure_Category_Id IN Number,
P_Revenue_Category_Id IN Number,
P_Inventory_Item_Id IN Number,
P_Item_Category_Id IN Number,
P_BOM_Labor_Id IN Number,
P_BOM_Equipment_Id IN Number,
P_Non_Labor_Resource_Id IN Number,
P_Role_Id IN Number,
P_Person_Type_Id IN Number,
P_Resource_Class_Id IN Number,
P_Supplier_Id IN Number,
P_Rule_Flag IN Varchar2,
P_Parent_Element_Id IN Number,
P_Rbs_Level IN Number,
P_Element_Identifier IN Number,
P_User_Created_Flag IN Varchar2,
P_User_Defined_Custom1_Id IN Number,
P_User_Defined_Custom2_Id IN Number,
P_User_Defined_Custom3_Id IN Number,
P_User_Defined_Custom4_Id IN Number,
P_User_Defined_Custom5_Id IN Number,
P_Last_Update_Date IN Date,
P_Last_Updated_By IN Number,
P_Last_Update_Login IN Number,
P_Level_Code IN VARCHAR2 default null,--15834912
P_COST_CODE IN VARCHAR2 default null,--15834912
P_COST_CODE_NAME IN VARCHAR2 default null,--16430696
X_Error_Msg_Data OUT NOCOPY Varchar2)
Is
REC_VER_NUM_MISMATCH Exception;
Update PA_RBS_Elements
Set
RBS_Version_Id = P_Rbs_Version_Id,
Rbs_Element_Name_Id = P_Rbs_Element_Name_Id,
Outline_Number = P_Outline_Number,
Order_Number = P_Order_Number,
Resource_Type_Id = P_Resource_Type_Id,
Resource_Source_Id = P_Resource_Source_Id,
Person_Id = P_Person_Id,
Job_Id = P_Job_Id,
Organization_Id = P_Organization_Id,
Expenditure_Type_Id = P_Expenditure_Type_Id,
Event_Type_Id = P_Event_Type_Id,
Expenditure_Category_Id = P_Expenditure_Category_Id,
Revenue_Category_Id = P_Revenue_Category_Id,
Inventory_Item_Id = P_Inventory_Item_Id,
Item_Category_Id = P_Item_Category_Id,
BOM_Labor_Id = P_BOM_Labor_Id,
BOM_Equipment_Id = P_BOM_Equipment_Id,
Non_Labor_Resource_Id = P_Non_Labor_Resource_Id,
Role_Id = P_Role_Id,
Person_Type_Id = P_Person_Type_Id,
Resource_Class_Id = P_Resource_Class_Id,
Supplier_Id = P_Supplier_Id,
Rule_Flag = P_Rule_Flag,
Parent_Element_Id = P_Parent_Element_Id,
Rbs_Level = P_Rbs_Level,
Element_Identifier = P_Element_Identifier,
User_Created_Flag = P_User_Created_Flag,
User_Defined_Custom1_Id = P_User_Defined_Custom1_Id,
User_Defined_Custom2_Id = P_User_Defined_Custom2_Id,
User_Defined_Custom3_Id = P_User_Defined_Custom3_Id,
User_Defined_Custom4_Id = P_User_Defined_Custom4_Id,
User_Defined_Custom5_Id = P_User_Defined_Custom5_Id,
Last_Update_Date = P_Last_Update_Date,
Last_Updated_By = P_Last_Updated_By,
Last_Update_Login = P_Last_Update_Login,
LEVEL_CODE = P_Level_Code,--15834912
COST_CODE = P_COST_CODE,--15834912
COST_CODE_NAME = P_COST_CODE_NAME,--16430696
Record_Version_Number = Record_Version_Number + 1
Where
Rbs_Element_Id = P_Rbs_Element_Id;
X_Error_Msg_Data := 'PA_RECORD_ALREADY_UPDATED';
End Update_Row;
Procedure Delete_Row(
P_RBS_Element_Id IN Number)
Is
Begin
Delete
From
Pa_Rbs_Elements
Where
Rbs_Element_Id = P_Rbs_Element_Id;
End Delete_Row;