The following lines contain the word 'select', 'insert', 'update' or 'delete':
* Function: Overall Point of entry to insert/update/delete elements/nodes
* This procedure is used by SS clients.
* ------------------------------------------------------------------------------- */
Procedure Process_Rbs_Elements (
P_Calling_Page IN Varchar2,
P_Commit IN Varchar2 Default Fnd_Api.G_False,
P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
P_API_Version_Number IN Number,
P_RBS_Version_Id IN Number,
P_Rbs_Version_Rec_Num IN Number,
P_Parent_Element_Id_Tbl IN System.Pa_Num_Tbl_Type,
P_Element_Id_Tbl IN System.Pa_Num_Tbl_Type,
P_Resource_Type_Id_Tbl IN System.Pa_Num_Tbl_Type,
P_Resource_Source_Id_Tbl IN System.Pa_Num_Tbl_Type,
P_Resource_Source_Code_Tbl IN System.Pa_Varchar2_240_Tbl_Type,
P_Order_Number_Tbl IN System.Pa_Num_Tbl_Type,
P_Process_Type_Tbl IN System.Pa_Varchar2_1_Tbl_Type,
X_Return_Status OUT NOCOPY Varchar2,
X_Msg_Count OUT NOCOPY Number,
X_Error_Msg_Data OUT NOCOPY Varchar2)
Is
i Number := Null;
Select
Status_Code
From
Pa_Rbs_Versions_B
Where
Status_Code = 'WORKING'
And Rbs_Version_Id = P_Id
For Update Of Status_code NoWait;
-- first time thru the loop for deleted records.
Pa_Debug.G_Stage := 'Beginning Loop thru to process DELETED records.';
Select Resource_Source_Id
Into l_Resource_Source_Id
From pa_rbs_elements
Where rbs_element_id = P_Element_Id_Tbl(i);
END IF; -- process type is DELETE
END LOOP; -- first time thru the loop for deleted records.
-- Second run thru the loop for updated records.
Pa_Debug.G_Stage := 'Beginning Loop thru to process UPDATE records.';
End If; -- process type is UPDATE
End Loop; -- Second run thru the loop for updated records.
-- 3) During the update/add loops what values exist will be stamped in because the outline number
-- and the order number columns are not null columns in the table.
-- 4) If there is no value for the order number the assigned -1
-- 5) If there is no value for the outline number already then assigned 'NONE'
If X_Error_Msg_Data is not null Then
Pa_Debug.G_Stage := 'Assign error message - 4.';
* Function: Overall Point of entry to insert/update/delete elements/nodes
* This procedure is used by AMG.
* ------------------------------------------------------------------------------- */
Procedure Process_Rbs_Elements(
P_Commit IN Varchar2 Default Fnd_Api.G_False,
P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
P_API_Version_Number IN Number,
P_RBS_Version_Id IN Number,
P_Rbs_Version_Rec_Num IN Number,
P_Rbs_Elements_Tbl IN Pa_Rbs_Elements_Pub.Rbs_Elements_Tbl_Typ,
X_Return_Status OUT NOCOPY Varchar2,
X_Msg_Count OUT NOCOPY Number,
X_Error_Msg_Data OUT NOCOPY Varchar2 )
Is
i Number := Null;
Select
'Y'
From
Pa_Rbs_Versions_B
Where
Status_Code = 'WORKING'
And Rbs_Version_Id = P_Id
For Update of Status_code NoWait;
Pa_Debug.G_Stage := 'Beginning Loop thru to process DELETED records.';
End If; -- procedure type id DELETE
End Loop; -- first time thru the loop for deleted records.
-- second time thru the loop for updated records.
Pa_Debug.G_Stage := 'Beginning Loop thru to process UPDATE records.';
End If; -- process type is UPDATE
End Loop; -- second time thru the loop for updated records.
Select
Meaning
From
Pa_Lookups
Where
Lookup_Type = 'PA_RBS_API_ERR_TOKENS'
And Lookup_code = P_Lookup_Code;
Select
Outline_Number
From
Pa_Rbs_Elements
Where
Rbs_Element_Id = P_Id;
Select
Name
From
Pa_Res_Types_TL
Where
Res_Type_Id = P_Id
And Language = UserEnv('LANG');