581:
582: Pa_Debug.G_Stage := 'Entering Copy_Frozen_Rbs_Elements() procedure.';
583: Pa_Debug.TrackPath('ADD','Copy_Frozen_Rbs_Elements');
584:
585: Pa_Debug.G_Stage := 'Delete all records from Pa_Rbs_Elements_Temp.';
586: Begin
587:
588: Delete
589: From Pa_Rbs_Elements_Temp;
585: Pa_Debug.G_Stage := 'Delete all records from Pa_Rbs_Elements_Temp.';
586: Begin
587:
588: Delete
589: From Pa_Rbs_Elements_Temp;
590:
591: Exception
592: When No_Data_Found Then
593: null;
593: null;
594:
595: End;
596:
597: Pa_Debug.G_Stage := 'Insert into Pa_Rbs_Elements_Temp that are to be copied.';
598: /*******************************************************
599: * Bug - 3591534
600: * Desc - while inserting into Pa_Rbs_Elements_Temp elements that
601: * are to be copied, we should only select elements where
596:
597: Pa_Debug.G_Stage := 'Insert into Pa_Rbs_Elements_Temp that are to be copied.';
598: /*******************************************************
599: * Bug - 3591534
600: * Desc - while inserting into Pa_Rbs_Elements_Temp elements that
601: * are to be copied, we should only select elements where
602: * user_created flag = 'Y'.
603: ******************************************************/
604: Insert Into Pa_Rbs_Elements_Temp(
600: * Desc - while inserting into Pa_Rbs_Elements_Temp elements that
601: * are to be copied, we should only select elements where
602: * user_created flag = 'Y'.
603: ******************************************************/
604: Insert Into Pa_Rbs_Elements_Temp(
605: New_Element_Id,
606: Old_Element_Id,
607: Old_Parent_Element_Id,
608: New_Parent_Element_Id )
616: Where
617: Rbs_Version_Id = P_Rbs_Version_From_Id
618: and user_created_flag = 'Y' );
619:
620: Pa_Debug.G_Stage := 'Update Pa_Rbs_Elements_Temp records with the correct parent element id.';
621: Update Pa_Rbs_Elements_Temp Tmp1
622: Set New_Parent_Element_Id =
623: (Select
624: New_Element_Id
617: Rbs_Version_Id = P_Rbs_Version_From_Id
618: and user_created_flag = 'Y' );
619:
620: Pa_Debug.G_Stage := 'Update Pa_Rbs_Elements_Temp records with the correct parent element id.';
621: Update Pa_Rbs_Elements_Temp Tmp1
622: Set New_Parent_Element_Id =
623: (Select
624: New_Element_Id
625: From
622: Set New_Parent_Element_Id =
623: (Select
624: New_Element_Id
625: From
626: Pa_Rbs_Elements_Temp Tmp2
627: Where
628: Tmp1.Old_Parent_Element_Id = Tmp2.Old_Element_Id);
629:
630: Pa_Debug.G_Stage := 'Insert into Pa_Rbs_Elements new records.';
714: Pa_Rbs_Versions_Pvt.G_Created_By,
715: Pa_Rbs_Versions_Pvt.G_Last_Update_Login,
716: 1
717: From
718: Pa_Rbs_Elements_Temp Tmp,
719: Pa_Rbs_Elements Rbs_Elements
720: Where
721: Tmp.Old_Element_Id = Rbs_Elements.Rbs_Element_Id;
722: