259: l_Error_Status Varchar2(1) := Null;
260:
261: Cursor c1 Is
262: Select
263: Pa_Rbs_Elements_S.NextVal
264: From
265: Sys.Dual;
266:
267: Begin
287: Raise NO_RBS_ELEMENT_NAME;
288:
289: End If;
290:
291: Pa_Debug.G_Stage := 'Get the next available sequence for tabpel pa_rbs_elements.';
292: Open c1;
293: Fetch c1 Into l_Rbs_Element_Id;
294: Close c1;
295:
292: Open c1;
293: Fetch c1 Into l_Rbs_Element_Id;
294: Close c1;
295:
296: Pa_Debug.G_Stage := 'Insert record directly into table pa_rbs_elements,';
297: Insert Into Pa_Rbs_Elements(
298: RBS_Element_Id,
299: Rbs_Element_Name_Id,
300: RBS_Version_Id,
293: Fetch c1 Into l_Rbs_Element_Id;
294: Close c1;
295:
296: Pa_Debug.G_Stage := 'Insert record directly into table pa_rbs_elements,';
297: Insert Into Pa_Rbs_Elements(
298: RBS_Element_Id,
299: Rbs_Element_Name_Id,
300: RBS_Version_Id,
301: Outline_Number,
610:
611: Pa_Debug.G_Stage := 'Inside Validate_Rbs_For_Allocations().';
612: Pa_Debug.TrackPath('ADD','Validate_Rbs_For_Allocations Pvt');
613:
614: /* Checking PA_RBS_ELEMENTS */
615:
616: Select count(*) INTO l_count
617: From
618: Pa_Rbs_Versions_b Verb,
615:
616: Select count(*) INTO l_count
617: From
618: Pa_Rbs_Versions_b Verb,
619: Pa_Rbs_Elements ele
620: Where
621: Verb.rbs_header_id=P_RBS_ID
622: And
623: verb.Rbs_Version_Id=Ele.Rbs_Version_Id