[Home] [Help]
797: --If l_use_for_alloc_flag='Y' Then
798:
799: Pa_Debug.G_Stage:= 'Copying All Elements With user_created_Flag = N';
800:
801: Pa_Debug.G_Stage:= 'Delete All Records From Pa_Rbs_Elements_Temp';
802: Begin
803:
804: Delete
805: From Pa_Rbs_Elements_Temp;
801: Pa_Debug.G_Stage:= 'Delete All Records From Pa_Rbs_Elements_Temp';
802: Begin
803:
804: Delete
805: From Pa_Rbs_Elements_Temp;
806:
807: Exception
808: When No_Data_Found Then
809: null;
809: null;
810:
811: End;
812:
813: Pa_Debug.G_Stage:= 'Insert Pa_Rbs_Elements_Temp table with new element_ids';
814:
815: Insert Into Pa_Rbs_Elements_Temp(
816: New_Element_Id,
817: Old_Element_Id,
811: End;
812:
813: Pa_Debug.G_Stage:= 'Insert Pa_Rbs_Elements_Temp table with new element_ids';
814:
815: Insert Into Pa_Rbs_Elements_Temp(
816: New_Element_Id,
817: Old_Element_Id,
818: Old_Parent_Element_Id,
819: New_Parent_Element_Id )
827: Where
828: Rbs_Version_Id = P_Rbs_Version_Id
829: and user_created_flag = 'Y' );
830:
831: Update Pa_Rbs_Elements_Temp Tmp1
832: Set New_Parent_Element_Id =
833: (Select
834: New_Element_Id
835: From
832: Set New_Parent_Element_Id =
833: (Select
834: New_Element_Id
835: From
836: Pa_Rbs_Elements_Temp Tmp2
837: Where
838: Tmp1.Old_Parent_Element_Id = Tmp2.Old_Element_Id);
839:
840: Pa_Debug.G_Stage:= 'Insert all records with user_created_flag=N with new element ids updated with new parent element ids';
923: fnd_global.login_id,
924: 1
925: FROM
926: Pa_Rbs_Elements Ele,
927: Pa_Rbs_Elements_Temp Tmp
928: WHERE
929: Tmp.Old_Element_Id=Ele.Rbs_Element_Id;
930:
931: End IF; --End of changes made for bug 3659078. modified for bug 3703364