255: l_Error_Status Varchar2(1) := Null;
256:
257: Cursor c1 Is
258: Select
259: Pa_Rbs_Elements_S.NextVal
260: From
261: Sys.Dual;
262:
263: Begin
283: Raise NO_RBS_ELEMENT_NAME;
284:
285: End If;
286:
287: Pa_Debug.G_Stage := 'Get the next available sequence for tabpel pa_rbs_elements.';
288: Open c1;
289: Fetch c1 Into l_Rbs_Element_Id;
290: Close c1;
291:
288: Open c1;
289: Fetch c1 Into l_Rbs_Element_Id;
290: Close c1;
291:
292: Pa_Debug.G_Stage := 'Insert record directly into table pa_rbs_elements,';
293: Insert Into Pa_Rbs_Elements(
294: RBS_Element_Id,
295: Rbs_Element_Name_Id,
296: RBS_Version_Id,
289: Fetch c1 Into l_Rbs_Element_Id;
290: Close c1;
291:
292: Pa_Debug.G_Stage := 'Insert record directly into table pa_rbs_elements,';
293: Insert Into Pa_Rbs_Elements(
294: RBS_Element_Id,
295: Rbs_Element_Name_Id,
296: RBS_Version_Id,
297: Outline_Number,
604:
605: Pa_Debug.G_Stage := 'Inside Validate_Rbs_For_Allocations().';
606: Pa_Debug.TrackPath('ADD','Validate_Rbs_For_Allocations Pvt');
607:
608: /* Checking PA_RBS_ELEMENTS */
609:
610: Select count(*) INTO l_count
611: From
612: Pa_Rbs_Versions_b Verb,
609:
610: Select count(*) INTO l_count
611: From
612: Pa_Rbs_Versions_b Verb,
613: Pa_Rbs_Elements ele
614: Where
615: Verb.rbs_header_id=P_RBS_ID
616: And
617: verb.Rbs_Version_Id=Ele.Rbs_Version_Id