eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PA_RBS_PUB dependencies on PA_DEBUG

Line 98: Pa_Debug.G_Stage := 'No Rbs Element id was provided. Add error message to stack.';

94: where name= l_rbs_header_name
95: AND language = userenv('LANG');
96: EXCEPTION
97: WHEN OTHERS THEN
98: Pa_Debug.G_Stage := 'No Rbs Element id was provided. Add error message to stack.';
99: Pa_Utils.Add_Message(
100: P_App_Short_Name => 'PA',
101: P_Msg_Name => 'PA_RBS_HEADER_NAME_INVALID');
102:

Line 114: Pa_Debug.G_Stage := 'No Rbs Element id was provided. Add error message to stack.';

110: from pa_rbs_headers_b
111: where rbs_header_id = P_Header_Rec.Rbs_Header_Id ;
112: EXCEPTION
113: WHEN OTHERS THEN
114: Pa_Debug.G_Stage := 'No Rbs Element id was provided. Add error message to stack.';
115: Pa_Utils.Add_Message(
116: P_App_Short_Name => 'PA',
117: P_Msg_Name => 'PA_RBS_HEADER_ID_INVALID');
118:

Line 713: Pa_Debug.G_Path := ' ';

709: Rbs_Level = 1;
710:
711: Begin
712:
713: Pa_Debug.G_Path := ' ';
714:
715: Pa_Debug.G_Stage := 'Entering Create_Rbs().';
716: Pa_Debug.TrackPath('ADD','Create_Rbs');
717:

Line 715: Pa_Debug.G_Stage := 'Entering Create_Rbs().';

711: Begin
712:
713: Pa_Debug.G_Path := ' ';
714:
715: Pa_Debug.G_Stage := 'Entering Create_Rbs().';
716: Pa_Debug.TrackPath('ADD','Create_Rbs');
717:
718: Pa_Debug.G_Stage := 'Call Compatibility API.';
719: If Not Fnd_Api.Compatible_API_Call (

Line 716: Pa_Debug.TrackPath('ADD','Create_Rbs');

712:
713: Pa_Debug.G_Path := ' ';
714:
715: Pa_Debug.G_Stage := 'Entering Create_Rbs().';
716: Pa_Debug.TrackPath('ADD','Create_Rbs');
717:
718: Pa_Debug.G_Stage := 'Call Compatibility API.';
719: If Not Fnd_Api.Compatible_API_Call (
720: Pa_Rbs_Pub.G_Api_Version_Number,

Line 718: Pa_Debug.G_Stage := 'Call Compatibility API.';

714:
715: Pa_Debug.G_Stage := 'Entering Create_Rbs().';
716: Pa_Debug.TrackPath('ADD','Create_Rbs');
717:
718: Pa_Debug.G_Stage := 'Call Compatibility API.';
719: If Not Fnd_Api.Compatible_API_Call (
720: Pa_Rbs_Pub.G_Api_Version_Number,
721: P_Api_Version_Number,
722: l_Api_Name,

Line 729: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;

725: Raise Fnd_Api.G_Exc_Unexpected_Error;
726:
727: End If;
728:
729: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;
730: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
731:
732: Pa_Debug.G_Stage := 'Initializing message stack by calling Fnd_Msg_Pub.Initialize().';
733: Fnd_Msg_Pub.Initialize;

Line 732: Pa_Debug.G_Stage := 'Initializing message stack by calling Fnd_Msg_Pub.Initialize().';

728:
729: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;
730: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
731:
732: Pa_Debug.G_Stage := 'Initializing message stack by calling Fnd_Msg_Pub.Initialize().';
733: Fnd_Msg_Pub.Initialize;
734:
735: End If;
736:

Line 737: Pa_Debug.G_Stage := 'Initialize error handling variables.';

733: Fnd_Msg_Pub.Initialize;
734:
735: End If;
736:
737: Pa_Debug.G_Stage := 'Initialize error handling variables.';
738: X_Error_Msg_Data := Null;
739: X_Msg_Count := 0;
740: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
741:

Line 771: Pa_Debug.G_Stage := 'Create Header Record by calling Pa_Rbs_Header_Pvt.Insert_Header() procedure.';

767: /***********************************
768: Create Header,Version,Root Element
769: ***********************************/
770:
771: Pa_Debug.G_Stage := 'Create Header Record by calling Pa_Rbs_Header_Pvt.Insert_Header() procedure.';
772: Pa_Rbs_Header_Pub.Insert_Header(
773: P_Commit => Fnd_Api.G_False,
774: P_Init_Msg_List => Fnd_Api.G_False,
775: P_API_Version_Number => P_API_Version_Number,

Line 789: Pa_Debug.G_Stage := 'The Pa_Rbs_Header_Pub.Insert_Header() procedure returned errror.';

785: X_Msg_Count => l_Msg_Count);
786:
787: If X_Error_Msg_Data is Not Null Then
788:
789: Pa_Debug.G_Stage := 'The Pa_Rbs_Header_Pub.Insert_Header() procedure returned errror.';
790: Raise l_ERROR;
791:
792: Else
793:

Line 810: Pa_Debug.G_Stage := 'Check if the version record is not null.';

806: ***************************/
807:
808: -- Since the Version Record is already created we want to check and see if we need to update the record or not.
809: -- That is determined by if there is any data passed into the global pl/sql version table.
810: Pa_Debug.G_Stage := 'Check if the version record is not null.';
811: If l_Version_Rec.Name is Not Null or
812: l_Version_Rec.Version_Start_Date is Not Null or
813: l_Version_Rec.Job_Group_Id is Not Null or
814: l_Version_Rec.Description is Not Null Then

Line 816: Pa_Debug.G_Stage := 'Calling Pa_Rbs_Versions_Pub.Update_Working_Version() API.';

812: l_Version_Rec.Version_Start_Date is Not Null or
813: l_Version_Rec.Job_Group_Id is Not Null or
814: l_Version_Rec.Description is Not Null Then
815:
816: Pa_Debug.G_Stage := 'Calling Pa_Rbs_Versions_Pub.Update_Working_Version() API.';
817: Pa_Rbs_Versions_Pub.Update_Working_Version(
818: P_Commit => Fnd_Api.G_False,
819: P_Init_Msg_List => Fnd_Api.G_False,
820: P_API_Version_Number => P_Api_Version_Number,

Line 835: Pa_Debug.G_Stage := 'The Pa_Rbs_Versions_Pub.Update_Working_Version() procedure returned errror. ' ||

831: X_Error_Msg_Data => X_Error_Msg_Data);
832:
833: If X_Error_Msg_Data is Not Null Then
834:
835: Pa_Debug.G_Stage := 'The Pa_Rbs_Versions_Pub.Update_Working_Version() procedure returned errror. ' ||
836: 'Add error message to stack.';
837: Raise l_ERROR;
838:
839: End If;

Line 847: Pa_Debug.G_Stage := 'Do we have element/nodes to process.';

843: /*****************************
844: Process the Elements/Nodes
845: *****************************/
846:
847: Pa_Debug.G_Stage := 'Do we have element/nodes to process.';
848: If l_Elements_Tbl.Count > 0 Then
849:
850: Pa_Debug.G_Stage := 'Copy elements pl/sql table to out parameter.';
851: X_Elements_Tbl := l_Elements_Tbl;

Line 850: Pa_Debug.G_Stage := 'Copy elements pl/sql table to out parameter.';

846:
847: Pa_Debug.G_Stage := 'Do we have element/nodes to process.';
848: If l_Elements_Tbl.Count > 0 Then
849:
850: Pa_Debug.G_Stage := 'Copy elements pl/sql table to out parameter.';
851: X_Elements_Tbl := l_Elements_Tbl;
852:
853: -- Put the pl/sql table into a temp table, checking for problems before inserting.
854: Pa_Debug.G_Stage := 'Start loop thru pl/sql table for elements/nodes processing.';

Line 854: Pa_Debug.G_Stage := 'Start loop thru pl/sql table for elements/nodes processing.';

850: Pa_Debug.G_Stage := 'Copy elements pl/sql table to out parameter.';
851: X_Elements_Tbl := l_Elements_Tbl;
852:
853: -- Put the pl/sql table into a temp table, checking for problems before inserting.
854: Pa_Debug.G_Stage := 'Start loop thru pl/sql table for elements/nodes processing.';
855: For i in l_Elements_Tbl.First .. l_Elements_Tbl.Last
856: Loop
857:
858: Pa_Debug.G_Stage := 'Check if we have a rbs reference element id to work with.';

Line 858: Pa_Debug.G_Stage := 'Check if we have a rbs reference element id to work with.';

854: Pa_Debug.G_Stage := 'Start loop thru pl/sql table for elements/nodes processing.';
855: For i in l_Elements_Tbl.First .. l_Elements_Tbl.Last
856: Loop
857:
858: Pa_Debug.G_Stage := 'Check if we have a rbs reference element id to work with.';
859: If l_Elements_Tbl(i).Rbs_Ref_Element_Id is Null Then
860:
861: Pa_Debug.G_Stage := 'No Rbs Element id was provided. Add error message to stack.';
862: Pa_Utils.Add_Message(

Line 861: Pa_Debug.G_Stage := 'No Rbs Element id was provided. Add error message to stack.';

857:
858: Pa_Debug.G_Stage := 'Check if we have a rbs reference element id to work with.';
859: If l_Elements_Tbl(i).Rbs_Ref_Element_Id is Null Then
860:
861: Pa_Debug.G_Stage := 'No Rbs Element id was provided. Add error message to stack.';
862: Pa_Utils.Add_Message(
863: P_App_Short_Name => 'PA',
864: P_Msg_Name => 'PA_RBS_REF_ELEMENT_ID_REQ');
865:

Line 870: Pa_Debug.G_Stage := 'Check if we have a parent reference element id to work with.';

866: Raise l_ERROR;
867:
868: End If;
869:
870: Pa_Debug.G_Stage := 'Check if we have a parent reference element id to work with.';
871: If l_Elements_Tbl(i).Parent_Ref_Element_Id Is Null And
872: l_Elements_Tbl(i).Rbs_Level not in (1,2) Then
873:
874: Pa_Debug.G_Stage := 'No parent reference element id was provided. Add error message to stack.';

Line 874: Pa_Debug.G_Stage := 'No parent reference element id was provided. Add error message to stack.';

870: Pa_Debug.G_Stage := 'Check if we have a parent reference element id to work with.';
871: If l_Elements_Tbl(i).Parent_Ref_Element_Id Is Null And
872: l_Elements_Tbl(i).Rbs_Level not in (1,2) Then
873:
874: Pa_Debug.G_Stage := 'No parent reference element id was provided. Add error message to stack.';
875: Pa_Utils.Add_Message(
876: P_App_Short_Name => 'PA',
877: P_Msg_Name => 'PA_RBS_REF_PARENT_ID_REQ');
878:

Line 883: Pa_Debug.G_Stage := 'Check if we have a rbs level to work with.';

879: Raise l_ERROR;
880:
881: End If;
882:
883: Pa_Debug.G_Stage := 'Check if we have a rbs level to work with.';
884: If l_Elements_Tbl(i).Rbs_Level is Null Then
885:
886: Pa_Debug.G_Stage := 'Rbs level is null. Add error message to stack.';
887: Pa_Utils.Add_Message(

Line 886: Pa_Debug.G_Stage := 'Rbs level is null. Add error message to stack.';

882:
883: Pa_Debug.G_Stage := 'Check if we have a rbs level to work with.';
884: If l_Elements_Tbl(i).Rbs_Level is Null Then
885:
886: Pa_Debug.G_Stage := 'Rbs level is null. Add error message to stack.';
887: Pa_Utils.Add_Message(
888: P_App_Short_Name => 'PA',
889: P_Msg_Name => 'PA_RBS_RBS_LEVEL_REQ');
890:

Line 895: Pa_Debug.G_Stage := 'Check if we have a process type that we can work with.';

891: Raise l_ERROR;
892:
893: End If;
894:
895: Pa_Debug.G_Stage := 'Check if we have a process type that we can work with.';
896: If l_Elements_Tbl(i).Process_Type is Null or
897: l_Elements_Tbl(i).Process_Type <> 'A' Then
898:
899: Pa_Debug.G_Stage := 'Process Type is null or not A. Add error message to stack.';

Line 899: Pa_Debug.G_Stage := 'Process Type is null or not A. Add error message to stack.';

895: Pa_Debug.G_Stage := 'Check if we have a process type that we can work with.';
896: If l_Elements_Tbl(i).Process_Type is Null or
897: l_Elements_Tbl(i).Process_Type <> 'A' Then
898:
899: Pa_Debug.G_Stage := 'Process Type is null or not A. Add error message to stack.';
900: Pa_Utils.Add_Message(
901: P_App_Short_Name => 'PA',
902: P_Msg_Name => 'PA_RBS_PRC_TYPE_INVALID');
903:

Line 908: Pa_Debug.G_Stage := 'Insert record into pa_rbs_nodes_temp table for further processing.';

904: Raise l_ERROR;
905:
906: End If;
907:
908: Pa_Debug.G_Stage := 'Insert record into pa_rbs_nodes_temp table for further processing.';
909: Insert into Pa_Rbs_Nodes_Temp (
910: Rbs_Version_Id,
911: Rbs_Element_Id,
912: Parent_Element_Id,

Line 959: Pa_Debug.G_Stage := 'Open c3 to get count of rbs level 1 records.';

955:
956: -- Check to see if have a root node passed in the pl/sql table. This is required
957: -- even though they have minimul control over it values.
958: -- Root element/node is always level one.
959: Pa_Debug.G_Stage := 'Open c3 to get count of rbs level 1 records.';
960: Open c3;
961: Fetch c3 Into l_Root_Count;
962: Close c3;
963:

Line 966: Pa_Debug.G_Stage := 'No root element/node provided. Add error message to stack.';

962: Close c3;
963:
964: If l_Root_Count = 0 Then
965:
966: Pa_Debug.G_Stage := 'No root element/node provided. Add error message to stack.';
967: Pa_Utils.Add_Message(
968: P_App_Short_Name => 'PA',
969: P_Msg_Name => 'PA_RBS_NO_ROOT_ELEMENT');
970:

Line 978: Pa_Debug.G_Stage := 'Multiple root elements/nodes provided. Add error message to stack.';

974:
975: -- Check to see if provide more than a single root element. This is not allowed.
976: If l_Root_Count > 1 Then
977:
978: Pa_Debug.G_Stage := 'Multiple root elements/nodes provided. Add error message to stack.';
979: Pa_Utils.Add_Message(
980: P_App_Short_Name => 'PA',
981: P_Msg_Name => 'PA_RBS_MULTI_ROOT_ELEMENTS');
982:

Line 987: Pa_Debug.G_Stage := 'Open c1 cursor to get max rbs level.';

983: Raise l_ERROR;
984:
985: End If;
986:
987: Pa_Debug.G_Stage := 'Open c1 cursor to get max rbs level.';
988: Open c1;
989: Fetch c1 Into l_Max_Rbs_Level;
990: Close c1;
991:

Line 992: Pa_Debug.G_Stage := 'Start rbs level loop.';

988: Open c1;
989: Fetch c1 Into l_Max_Rbs_Level;
990: Close c1;
991:
992: Pa_Debug.G_Stage := 'Start rbs level loop.';
993: For i in 2 .. l_Max_Rbs_Level
994: Loop
995:
996: Pa_Debug.G_Stage := 'Open c2 cursor for current rbs level elements/nodes to process.';

Line 996: Pa_Debug.G_Stage := 'Open c2 cursor for current rbs level elements/nodes to process.';

992: Pa_Debug.G_Stage := 'Start rbs level loop.';
993: For i in 2 .. l_Max_Rbs_Level
994: Loop
995:
996: Pa_Debug.G_Stage := 'Open c2 cursor for current rbs level elements/nodes to process.';
997: Open c2(P_Rbs_Level => i);
998:
999: Pa_Debug.G_Stage := 'Start loop to process the current rbs level elements/nodes.';
1000: Loop

Line 999: Pa_Debug.G_Stage := 'Start loop to process the current rbs level elements/nodes.';

995:
996: Pa_Debug.G_Stage := 'Open c2 cursor for current rbs level elements/nodes to process.';
997: Open c2(P_Rbs_Level => i);
998:
999: Pa_Debug.G_Stage := 'Start loop to process the current rbs level elements/nodes.';
1000: Loop
1001:
1002: Pa_Debug.G_Stage := 'Fetch c2 record.';
1003: Fetch c2 Into Element_Rec;

Line 1002: Pa_Debug.G_Stage := 'Fetch c2 record.';

998:
999: Pa_Debug.G_Stage := 'Start loop to process the current rbs level elements/nodes.';
1000: Loop
1001:
1002: Pa_Debug.G_Stage := 'Fetch c2 record.';
1003: Fetch c2 Into Element_Rec;
1004: Exit When c2%NotFound;
1005:
1006: Pa_Debug.G_Stage := 'Check if resource source id is null.';

Line 1006: Pa_Debug.G_Stage := 'Check if resource source id is null.';

1002: Pa_Debug.G_Stage := 'Fetch c2 record.';
1003: Fetch c2 Into Element_Rec;
1004: Exit When c2%NotFound;
1005:
1006: Pa_Debug.G_Stage := 'Check if resource source id is null.';
1007: If Element_Rec.Resource_Source_Id is Null Then
1008:
1009: Pa_Debug.G_Stage := 'Get Resource Source Id using source code.';
1010: Pa_Rbs_Elements_Utils.GetResSourceId(

Line 1009: Pa_Debug.G_Stage := 'Get Resource Source Id using source code.';

1005:
1006: Pa_Debug.G_Stage := 'Check if resource source id is null.';
1007: If Element_Rec.Resource_Source_Id is Null Then
1008:
1009: Pa_Debug.G_Stage := 'Get Resource Source Id using source code.';
1010: Pa_Rbs_Elements_Utils.GetResSourceId(
1011: P_Resource_Type_Id => Element_Rec.Resource_Type_Id,
1012: P_Resource_Source_Code => Element_Rec.Resource_Source_Code,
1013: X_Resource_Source_Id => l_Resource_Source_Id);

Line 1023: Pa_Debug.G_Stage := 'Assign resource source id.';

1019: Raise l_ERROR;
1020: END IF;
1021: Else
1022:
1023: Pa_Debug.G_Stage := 'Assign resource source id.';
1024: l_Resource_Source_Id := Element_Rec.Resource_Source_Id;
1025:
1026: End If;
1027:

Line 1028: Pa_Debug.G_Stage := 'Call Process_Rbs_Elements() procedure.';

1024: l_Resource_Source_Id := Element_Rec.Resource_Source_Id;
1025:
1026: End If;
1027:
1028: Pa_Debug.G_Stage := 'Call Process_Rbs_Elements() procedure.';
1029: Pa_Rbs_Elements_Pvt.Process_Rbs_Element(
1030: P_RBS_Version_Id => Element_Rec.Rbs_Version_Id,
1031: P_Parent_Element_Id => Element_Rec.Parent_Element_Id,
1032: P_Element_Id => Element_Rec.Rbs_Element_Id,

Line 1042: Pa_Debug.G_Stage := 'The Process_Rbs_Elements() procedure returned error. ' ||

1038: X_Error_Msg_Data => X_Error_Msg_Data );
1039:
1040: If X_Error_Msg_Data is not null Then
1041:
1042: Pa_Debug.G_Stage := 'The Process_Rbs_Elements() procedure returned error. ' ||
1043: 'Assign error message to the stack.';
1044: Pa_Rbs_Pub.PopulateErrorStack(
1045: P_Ref_Element_Id => Element_Rec.Rbs_Ref_Element_Id,
1046: P_Element_Id => Element_Rec.Rbs_Element_Id,

Line 1055: Pa_Debug.G_Stage := 'Update the rbs_element_id in the pa_rbs_nodes_temp table.';

1051:
1052: End If;
1053:
1054: -- now need to update the temp recs with the element id just created
1055: Pa_Debug.G_Stage := 'Update the rbs_element_id in the pa_rbs_nodes_temp table.';
1056: Update Pa_Rbs_Nodes_Temp
1057: Set
1058: Rbs_Element_Id = l_Rbs_Element_Id
1059: Where

Line 1062: Pa_Debug.G_Stage := 'Update the parent_element_id in the pa_rbs_nodes_temp table where needed.';

1058: Rbs_Element_Id = l_Rbs_Element_Id
1059: Where
1060: Rbs_Ref_Element_Id = Element_Rec.Rbs_Ref_Element_Id;
1061:
1062: Pa_Debug.G_Stage := 'Update the parent_element_id in the pa_rbs_nodes_temp table where needed.';
1063: Update Pa_Rbs_Nodes_Temp
1064: Set
1065: Parent_Element_Id = l_Rbs_Element_Id
1066: Where

Line 1070: Pa_Debug.G_Stage := 'Assign the rbs_element_id and status to global elements out table.';

1066: Where
1067: Parent_Ref_Element_Id = Element_Rec.Rbs_Ref_Element_Id;
1068:
1069: -- The Fetch_Rbs_Element() procedure needs this done.
1070: Pa_Debug.G_Stage := 'Assign the rbs_element_id and status to global elements out table.';
1071: G_Rbs_Elements_Out_Tbl(Element_Rec.Record_Index).Rbs_Element_Id := l_Rbs_Element_Id;
1072: -- G_Rbs_Elements_Out_Tbl(Element_Rec.Record_Index).Return_Status := Fnd_Api.G_Ret_Sts_Success;
1073:
1074: Pa_Debug.G_Stage := 'Assign the rbs_element_id and parent_id to the x_element_tbl out parameter.';

Line 1074: Pa_Debug.G_Stage := 'Assign the rbs_element_id and parent_id to the x_element_tbl out parameter.';

1070: Pa_Debug.G_Stage := 'Assign the rbs_element_id and status to global elements out table.';
1071: G_Rbs_Elements_Out_Tbl(Element_Rec.Record_Index).Rbs_Element_Id := l_Rbs_Element_Id;
1072: -- G_Rbs_Elements_Out_Tbl(Element_Rec.Record_Index).Return_Status := Fnd_Api.G_Ret_Sts_Success;
1073:
1074: Pa_Debug.G_Stage := 'Assign the rbs_element_id and parent_id to the x_element_tbl out parameter.';
1075: X_Elements_Tbl(Element_Rec.Record_Index).Rbs_Element_Id := l_Rbs_Element_Id;
1076: X_Elements_Tbl(Element_Rec.Record_Index).Parent_Element_Id := Element_Rec.Parent_Element_Id;
1077:
1078: End Loop;

Line 1085: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;

1081: End Loop;
1082:
1083: End If; -- l_Elements_Tbl.Count > 0
1084:
1085: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;
1086: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_True)) Then
1087:
1088: Commit;
1089:

Line 1092: Pa_Debug.G_Stage := 'Leaving Create_Rbs() procedure.';

1088: Commit;
1089:
1090: End If;
1091:
1092: Pa_Debug.G_Stage := 'Leaving Create_Rbs() procedure.';
1093: Pa_Debug.TrackPath('STRIP','Create_Rbs');
1094:
1095: Exception
1096: When l_ERROR Then

Line 1093: Pa_Debug.TrackPath('STRIP','Create_Rbs');

1089:
1090: End If;
1091:
1092: Pa_Debug.G_Stage := 'Leaving Create_Rbs() procedure.';
1093: Pa_Debug.TrackPath('STRIP','Create_Rbs');
1094:
1095: Exception
1096: When l_ERROR Then
1097: l_Msg_Count := Fnd_Msg_Pub.Count_Msg;

Line 1121: X_Error_Msg_Data := Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;

1117: Rollback;
1118: When Others Then
1119: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
1120: X_Msg_Count := 1;
1121: X_Error_Msg_Data := Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
1122: G_Rbs_Ver_Out_Rec := G_Empty_Rbs_Ver_Out_Rec;
1123: G_Rbs_Elements_Out_Tbl.Delete;
1124: G_Rbs_Hdr_Out_Rec.Rbs_Header_Id := l_Rbs_Header_Id;
1125: -- G_Rbs_Hdr_Out_Rec.Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;

Line 1258: Pa_Debug.G_Path := ' ';

1254: l_old_version_rec rbs_version_cursor%RowType;
1255:
1256: Begin
1257:
1258: Pa_Debug.G_Path := ' ';
1259:
1260: Pa_Debug.G_Stage := 'Entering Update_Rbs().';
1261: Pa_Debug.TrackPath('ADD','Update_Rbs');
1262:

Line 1260: Pa_Debug.G_Stage := 'Entering Update_Rbs().';

1256: Begin
1257:
1258: Pa_Debug.G_Path := ' ';
1259:
1260: Pa_Debug.G_Stage := 'Entering Update_Rbs().';
1261: Pa_Debug.TrackPath('ADD','Update_Rbs');
1262:
1263: Pa_Debug.G_Stage := 'Call Compatibility API.';
1264: If Not Fnd_Api.Compatible_API_Call (

Line 1261: Pa_Debug.TrackPath('ADD','Update_Rbs');

1257:
1258: Pa_Debug.G_Path := ' ';
1259:
1260: Pa_Debug.G_Stage := 'Entering Update_Rbs().';
1261: Pa_Debug.TrackPath('ADD','Update_Rbs');
1262:
1263: Pa_Debug.G_Stage := 'Call Compatibility API.';
1264: If Not Fnd_Api.Compatible_API_Call (
1265: Pa_Rbs_Pub.G_Api_Version_Number,

Line 1263: Pa_Debug.G_Stage := 'Call Compatibility API.';

1259:
1260: Pa_Debug.G_Stage := 'Entering Update_Rbs().';
1261: Pa_Debug.TrackPath('ADD','Update_Rbs');
1262:
1263: Pa_Debug.G_Stage := 'Call Compatibility API.';
1264: If Not Fnd_Api.Compatible_API_Call (
1265: Pa_Rbs_Pub.G_Api_Version_Number,
1266: P_Api_Version_Number,
1267: l_Api_Name,

Line 1274: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;

1270: Raise Fnd_Api.G_Exc_Unexpected_Error;
1271:
1272: End If;
1273:
1274: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;
1275: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
1276:
1277: Pa_Debug.G_Stage := 'Initializing message stack by calling Fnd_Msg_Pub.Initialize().';
1278: Fnd_Msg_Pub.Initialize;

Line 1277: Pa_Debug.G_Stage := 'Initializing message stack by calling Fnd_Msg_Pub.Initialize().';

1273:
1274: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;
1275: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
1276:
1277: Pa_Debug.G_Stage := 'Initializing message stack by calling Fnd_Msg_Pub.Initialize().';
1278: Fnd_Msg_Pub.Initialize;
1279:
1280: End If;
1281:

Line 1282: Pa_Debug.G_Stage := 'Initialize error handling variables.';

1278: Fnd_Msg_Pub.Initialize;
1279:
1280: End If;
1281:
1282: Pa_Debug.G_Stage := 'Initialize error handling variables.';
1283: X_Error_Msg_Data := Null;
1284: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
1285:
1286:

Line 1320: Pa_Debug.G_Stage := 'Rbs header Id is invalid.';

1316: Fetch rbs_header_cursor into l_old_header_rec;
1317:
1318: If rbs_header_cursor%NotFound Then
1319:
1320: Pa_Debug.G_Stage := 'Rbs header Id is invalid.';
1321: Close rbs_header_cursor;
1322: Pa_Utils.Add_Message(
1323: P_App_Short_Name => 'PA',
1324: P_Msg_Name => 'PA_INVALID_RBS_HEADER_ID');

Line 1350: Pa_Debug.G_Stage := 'Update Header Record by calling Pa_Rbs_Header_Pub.Update_Header() procedure.';

1346:
1347: Raise l_ERROR;
1348: END IF;
1349:
1350: Pa_Debug.G_Stage := 'Update Header Record by calling Pa_Rbs_Header_Pub.Update_Header() procedure.';
1351: Pa_Rbs_Header_Pub.Update_Header(
1352: P_Commit => Fnd_Api.G_False,
1353: P_Init_Msg_List => Fnd_Api.G_False,
1354: P_API_Version_Number => P_Api_Version_Number,

Line 1368: Pa_Debug.G_Stage := 'The Pa_Rbs_Header_Pub.Update_Header() procedure returned error.';

1364: X_Msg_Count => l_Msg_Count);
1365:
1366: If X_Error_Msg_Data is Not Null Then
1367:
1368: Pa_Debug.G_Stage := 'The Pa_Rbs_Header_Pub.Update_Header() procedure returned error.';
1369: Raise l_ERROR;
1370:
1371: Else
1372:

Line 1400: Pa_Debug.G_Stage := 'Rbs header Id is invalid.';

1396: Fetch rbs_version_cursor into l_old_version_rec;
1397:
1398: If rbs_version_cursor%NotFound Then
1399:
1400: Pa_Debug.G_Stage := 'Rbs header Id is invalid.';
1401: Close rbs_version_cursor;
1402: Pa_Utils.Add_Message(
1403: P_App_Short_Name => 'PA',
1404: P_Msg_Name => 'PA_INVALID_RBS_VERSION_ID');

Line 1414: Pa_Debug.G_Stage := 'Check if need to update the Version Record.';

1410: Close rbs_version_cursor;
1411:
1412: End If;
1413:
1414: Pa_Debug.G_Stage := 'Check if need to update the Version Record.';
1415:
1416: IF (nvl(l_Version_Rec.Name, ' ') <> nvl(l_old_version_rec.Name, ' ') OR
1417: nvl(l_Version_Rec.Description, ' ') <> nvl(l_old_version_rec.Description, ' ') OR
1418: nvl(l_Version_Rec.Version_Start_Date,sysdate) <> nvl(l_old_version_rec.Version_Start_Date,sysdate) OR

Line 1427: Pa_Debug.G_Stage := 'Incorred Record Version number passed in';

1423: -- the database record version number. If not, error out.
1424:
1425: IF nvl(l_version_rec.record_version_number,-1) <> l_old_version_rec.record_version_number
1426: THEN
1427: Pa_Debug.G_Stage := 'Incorred Record Version number passed in';
1428: Pa_Utils.Add_Message(
1429: P_App_Short_Name => 'PA',
1430: P_Msg_Name => 'PA_RBS_VERSION_INCORRECT');
1431:

Line 1436: Pa_Debug.G_Stage := 'Version is frozen.Cannot update any field.';

1432: Raise l_ERROR;
1433: END IF;
1434:
1435: IF l_old_version_rec.status_code ='FROZEN' THEN
1436: Pa_Debug.G_Stage := 'Version is frozen.Cannot update any field.';
1437: Pa_Utils.Add_Message(
1438: P_App_Short_Name => 'PA',
1439: P_Msg_Name => 'PA_RBS_VERSION_FROZEN');
1440:

Line 1444: Pa_Debug.G_Stage := 'Update Version Record by calling Pa_Rbs_Versions_Pub.Update_Working_Version() procedure.';

1440:
1441: Raise l_ERROR;
1442: END IF;
1443:
1444: Pa_Debug.G_Stage := 'Update Version Record by calling Pa_Rbs_Versions_Pub.Update_Working_Version() procedure.';
1445: Pa_Rbs_Versions_Pub.Update_Working_Version(
1446: P_Commit => Fnd_Api.G_False,
1447: P_Init_Msg_List => Fnd_Api.G_False,
1448: P_API_Version_Number => P_Api_Version_Number,

Line 1463: Pa_Debug.G_Stage := 'The Pa_Rbs_Versions_Pub.Update_Working_Version() procedure returned status of error.';

1459: X_Error_Msg_Data => X_Error_Msg_Data);
1460:
1461: If X_Return_Status <> Fnd_Api.G_Ret_Sts_Success Then
1462:
1463: Pa_Debug.G_Stage := 'The Pa_Rbs_Versions_Pub.Update_Working_Version() procedure returned status of error.';
1464: Raise l_ERROR;
1465:
1466: Else
1467:

Line 1483: Pa_Debug.G_Stage := 'Start loop thru the element/nodes pl/sql table.';

1479:
1480: If l_Elements_Tbl.Count > 0 Then
1481:
1482: -- Put the pl/sql table into a temp table, checking for problems before inserting.
1483: Pa_Debug.G_Stage := 'Start loop thru the element/nodes pl/sql table.';
1484: For i in l_Elements_Tbl.First .. l_Elements_Tbl.Last
1485: Loop
1486:
1487: Pa_Debug.G_Stage := 'Check if missing rbs level id.';

Line 1487: Pa_Debug.G_Stage := 'Check if missing rbs level id.';

1483: Pa_Debug.G_Stage := 'Start loop thru the element/nodes pl/sql table.';
1484: For i in l_Elements_Tbl.First .. l_Elements_Tbl.Last
1485: Loop
1486:
1487: Pa_Debug.G_Stage := 'Check if missing rbs level id.';
1488: If l_Elements_Tbl(i).Rbs_Level is Null Then
1489:
1490: Pa_Debug.G_Stage := 'The rbs level cannot be null. Add error message to stack.';
1491: Pa_Utils.Add_Message(

Line 1490: Pa_Debug.G_Stage := 'The rbs level cannot be null. Add error message to stack.';

1486:
1487: Pa_Debug.G_Stage := 'Check if missing rbs level id.';
1488: If l_Elements_Tbl(i).Rbs_Level is Null Then
1489:
1490: Pa_Debug.G_Stage := 'The rbs level cannot be null. Add error message to stack.';
1491: Pa_Utils.Add_Message(
1492: P_App_Short_Name => 'PA',
1493: P_Msg_Name => 'PA_RBS_RBS_LEVEL_REQ');
1494:

Line 1499: Pa_Debug.G_Stage := 'Check if we have a process type to work with.';

1495: Raise l_ERROR;
1496:
1497: End If;
1498:
1499: Pa_Debug.G_Stage := 'Check if we have a process type to work with.';
1500: If l_Elements_Tbl(i).Process_Type is Null or
1501: l_Elements_Tbl(i).Process_Type Not In ('A','D','U') Then
1502:
1503: Pa_Debug.G_Stage := 'Process Type is null or invalid. Add error message to stack.';

Line 1503: Pa_Debug.G_Stage := 'Process Type is null or invalid. Add error message to stack.';

1499: Pa_Debug.G_Stage := 'Check if we have a process type to work with.';
1500: If l_Elements_Tbl(i).Process_Type is Null or
1501: l_Elements_Tbl(i).Process_Type Not In ('A','D','U') Then
1502:
1503: Pa_Debug.G_Stage := 'Process Type is null or invalid. Add error message to stack.';
1504: Pa_Utils.Add_Message(
1505: P_App_Short_Name => 'PA',
1506: P_Msg_Name => 'PA_RBS_PRC_TYPE_INVALID');
1507:

Line 1512: Pa_Debug.G_Stage := 'Check that have rbs element id.';

1508: Raise l_ERROR;
1509:
1510: End If;
1511:
1512: Pa_Debug.G_Stage := 'Check that have rbs element id.';
1513: If l_Elements_Tbl(i).Rbs_Ref_Element_Id is Null And
1514: l_Elements_Tbl(i).Process_Type = 'A' Then
1515:
1516: Pa_Debug.G_Stage := 'Missing reference rbs element id. Add error message to stack.';

Line 1516: Pa_Debug.G_Stage := 'Missing reference rbs element id. Add error message to stack.';

1512: Pa_Debug.G_Stage := 'Check that have rbs element id.';
1513: If l_Elements_Tbl(i).Rbs_Ref_Element_Id is Null And
1514: l_Elements_Tbl(i).Process_Type = 'A' Then
1515:
1516: Pa_Debug.G_Stage := 'Missing reference rbs element id. Add error message to stack.';
1517: Pa_Utils.Add_Message(
1518: P_App_Short_Name => 'PA',
1519: P_Msg_Name => 'PA_RBS_REF_ELEMENT_ID_REQ');
1520:

Line 1525: Pa_Debug.G_Stage := 'Check f missing rbs (reference) element id.';

1521: Raise l_ERROR;
1522:
1523: End If;
1524:
1525: Pa_Debug.G_Stage := 'Check f missing rbs (reference) element id.';
1526: If l_Elements_Tbl(i).Rbs_Element_Id is Null And
1527: l_Elements_Tbl(i).Process_Type in ('U','D') Then
1528:
1529: Pa_Debug.G_Stage := 'Missing rbs element id. Add error message to stack.';

Line 1529: Pa_Debug.G_Stage := 'Missing rbs element id. Add error message to stack.';

1525: Pa_Debug.G_Stage := 'Check f missing rbs (reference) element id.';
1526: If l_Elements_Tbl(i).Rbs_Element_Id is Null And
1527: l_Elements_Tbl(i).Process_Type in ('U','D') Then
1528:
1529: Pa_Debug.G_Stage := 'Missing rbs element id. Add error message to stack.';
1530: Pa_Utils.Add_Message(
1531: P_App_Short_Name => 'PA',
1532: P_Msg_Name => 'PA_RBS_ELEMENT_ID_REQ');
1533:

Line 1538: Pa_Debug.G_Stage := 'Check if missing parent element id.';

1534: Raise l_ERROR;
1535:
1536: End If;
1537:
1538: Pa_Debug.G_Stage := 'Check if missing parent element id.';
1539: If ( l_Elements_Tbl(i).Parent_Ref_Element_Id Is Null And
1540: l_Elements_Tbl(i).Parent_Element_Id is Null ) And
1541: l_Elements_Tbl(i).Process_Type = 'A' And
1542: l_Elements_Tbl(i).Rbs_Level <> 1 Then

Line 1544: Pa_Debug.G_Stage := 'Missing parent element id. Add error message to stack.';

1540: l_Elements_Tbl(i).Parent_Element_Id is Null ) And
1541: l_Elements_Tbl(i).Process_Type = 'A' And
1542: l_Elements_Tbl(i).Rbs_Level <> 1 Then
1543:
1544: Pa_Debug.G_Stage := 'Missing parent element id. Add error message to stack.';
1545: Pa_Utils.Add_Message(
1546: P_App_Short_Name => 'PA',
1547: P_Msg_Name => 'PA_RBS_REF_PARENT_ID_REQ');
1548:

Line 1553: Pa_Debug.G_Stage := 'Check if missing parent (reference) element id.';

1549: Raise l_ERROR;
1550:
1551: End If;
1552:
1553: Pa_Debug.G_Stage := 'Check if missing parent (reference) element id.';
1554: If l_Elements_Tbl(i).Parent_Element_Id is Null And
1555: l_Elements_Tbl(i).Process_Type in ('U','D') And
1556: l_Elements_Tbl(i).Rbs_Level <> 1 Then
1557:

Line 1558: Pa_Debug.G_Stage := 'Missing parent element id. Add error message to stack.';

1554: If l_Elements_Tbl(i).Parent_Element_Id is Null And
1555: l_Elements_Tbl(i).Process_Type in ('U','D') And
1556: l_Elements_Tbl(i).Rbs_Level <> 1 Then
1557:
1558: Pa_Debug.G_Stage := 'Missing parent element id. Add error message to stack.';
1559: Pa_Utils.Add_Message(
1560: P_App_Short_Name => 'PA',
1561: P_Msg_Name => 'PA_RBS_PARENT_ID_REQ');
1562:

Line 1573: Pa_Debug.G_Stage := 'Version Identifier Invalid.';

1569:
1570: IF (l_Elements_Tbl(i).Rbs_Version_Id is null OR
1571: l_Elements_Tbl(i).Rbs_Version_Id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
1572: THEN
1573: Pa_Debug.G_Stage := 'Version Identifier Invalid.';
1574: Pa_Utils.Add_Message(
1575: P_App_Short_Name => 'PA',
1576: P_Msg_Name => 'PA_RBS_VERSION_IS_MISSING');
1577:

Line 1588: Pa_Debug.G_Stage := 'Version Identifier Invalid.';

1584: WHERE rbs_version_id = l_Elements_Tbl(i).Rbs_Version_Id;
1585:
1586: IF l_status_code = 'FROZEN' THEN
1587:
1588: Pa_Debug.G_Stage := 'Version Identifier Invalid.';
1589: Pa_Utils.Add_Message(
1590: P_App_Short_Name => 'PA',
1591: P_Msg_Name => 'PA_RBS_VERSION_FROZEN');
1592:

Line 1597: Pa_Debug.G_Stage := 'Version Identifier Invalid.';

1593: Raise l_ERROR;
1594: END IF;
1595: EXCEPTION
1596: WHEN NO_DATA_FOUND THEN
1597: Pa_Debug.G_Stage := 'Version Identifier Invalid.';
1598: Pa_Utils.Add_Message(
1599: P_App_Short_Name => 'PA',
1600: P_Msg_Name => 'PA_INVALID_RBS_VERSION_ID');
1601:

Line 1620: Pa_Debug.G_Stage := 'Element Identifier in sync with Version Identifier.';

1616: WHERE rbs_version_id = l_Elements_Tbl(i).Rbs_Version_Id
1617: AND rbs_element_id = l_Elements_Tbl(i).Rbs_Element_Id;
1618:
1619: If l_validate = 'Y' Then
1620: Pa_Debug.G_Stage := 'Element Identifier in sync with Version Identifier.';
1621: END IF;
1622:
1623: EXCEPTION
1624: WHEN NO_DATA_FOUND Then

Line 1626: Pa_Debug.G_Stage := 'Element Identifier not sync with Version Identifier.';

1622:
1623: EXCEPTION
1624: WHEN NO_DATA_FOUND Then
1625: l_validate := 'N';
1626: Pa_Debug.G_Stage := 'Element Identifier not sync with Version Identifier.';
1627: Pa_Utils.Add_Message(
1628: P_App_Short_Name => 'PA',
1629: P_Msg_Name => 'PA_RBS_ELE_NSYNC_VER');
1630:

Line 1649: Pa_Debug.G_Stage := 'Parent Element Identifier in sync with Element id of the given Version Identifier.';

1645: WHERE rbs_version_id = l_Elements_Tbl(i).Rbs_Version_Id
1646: AND rbs_element_id = l_Elements_Tbl(i).Parent_Element_Id;
1647:
1648: If l_validate = 'Y' Then
1649: Pa_Debug.G_Stage := 'Parent Element Identifier in sync with Element id of the given Version Identifier.';
1650: END IF;
1651:
1652: EXCEPTION
1653: WHEN NO_DATA_FOUND Then

Line 1655: Pa_Debug.G_Stage := 'Parent Element Identifier not sync with Element id of the given Version Identifier.';

1651:
1652: EXCEPTION
1653: WHEN NO_DATA_FOUND Then
1654: l_validate := 'N';
1655: Pa_Debug.G_Stage := 'Parent Element Identifier not sync with Element id of the given Version Identifier.';
1656: Pa_Utils.Add_Message(
1657: P_App_Short_Name => 'PA',
1658: P_Msg_Name => 'PA_PAR_ELE_ID_INVALID');
1659:

Line 1679: Pa_Debug.G_Stage := 'Parent Element Identifier passed is the correct parent_element_id';

1675: WHERE parent_element_id = l_Elements_Tbl(i).Parent_Element_Id
1676: AND rbs_element_id = l_Elements_Tbl(i).Rbs_Element_Id;
1677:
1678: If l_validate = 'Y' Then
1679: Pa_Debug.G_Stage := 'Parent Element Identifier passed is the correct parent_element_id';
1680: END IF;
1681:
1682: EXCEPTION
1683: WHEN NO_DATA_FOUND Then

Line 1684: Pa_Debug.G_Stage := 'Parent Element Identifier passed is not the correct parent_element_id.';

1680: END IF;
1681:
1682: EXCEPTION
1683: WHEN NO_DATA_FOUND Then
1684: Pa_Debug.G_Stage := 'Parent Element Identifier passed is not the correct parent_element_id.';
1685: Pa_Utils.Add_Message(
1686: P_App_Short_Name => 'PA',
1687: P_Msg_Name => 'PA_PAR_ELE_NSYNC_ELE');
1688:

Line 1696: Pa_Debug.G_Stage := 'Insert record into pa_rbs_nodes_temp table for further processing.';

1692:
1693: END IF;
1694: --End of Bug 3964469.
1695:
1696: Pa_Debug.G_Stage := 'Insert record into pa_rbs_nodes_temp table for further processing.';
1697: Insert into Pa_Rbs_Nodes_Temp (
1698: Rbs_Version_Id,
1699: Rbs_Element_Id,
1700: Parent_Element_Id,

Line 1744: Pa_Debug.G_Stage := 'Open c3 to get count of rbs level 1 records.';

1740:
1741: -- Check to see if have a root node passed in the pl/sql table. This is required
1742: -- even though they have minimul control over it values.
1743: -- Root element/node is always level one.
1744: Pa_Debug.G_Stage := 'Open c3 to get count of rbs level 1 records.';
1745: Open c3;
1746: Fetch c3 Into l_Root_Count;
1747: Close c3;
1748:

Line 1751: Pa_Debug.G_Stage := 'No root element/node provided. Add error message to stack.';

1747: Close c3;
1748:
1749: If l_Root_Count = 0 Then
1750:
1751: Pa_Debug.G_Stage := 'No root element/node provided. Add error message to stack.';
1752: Pa_Utils.Add_Message(
1753: P_App_Short_Name => 'PA',
1754: P_Msg_Name => 'PA_RBS_NO_ROOT_ELEMENT');
1755:

Line 1763: Pa_Debug.G_Stage := 'Multiple root elements/nodes provided. Add error message to stack.';

1759:
1760: -- Check to see if provide more than a single root element. This is not allowed.
1761: If l_Root_Count > 1 Then
1762:
1763: Pa_Debug.G_Stage := 'Multiple root elements/nodes provided. Add error message to stack.';
1764: Pa_Utils.Add_Message(
1765: P_App_Short_Name => 'PA',
1766: P_Msg_Name => 'PA_RBS_MULTI_ROOT_ELEMENTS');
1767:

Line 1772: Pa_Debug.G_Stage := 'Open cursor c1 to get the max rbs level defined.';

1768: Raise l_ERROR;
1769:
1770: End If;
1771:
1772: Pa_Debug.G_Stage := 'Open cursor c1 to get the max rbs level defined.';
1773: Open c1;
1774: Fetch c1 Into l_Max_Rbs_Level;
1775: Close c1;
1776:

Line 1779: Pa_Debug.G_Stage := 'For next loop to restrict by process type.';

1775: Close c1;
1776:
1777: -- This for loop is to enforce the business rule of what data is processed in what order
1778: -- We want to process elements/nodes in the following order: Delete, Update, Add
1779: Pa_Debug.G_Stage := 'For next loop to restrict by process type.';
1780: For j in 1 .. 3
1781: Loop
1782:
1783: If j = 1 Then

Line 1800: Pa_Debug.G_Stage := 'For next loop to restrict by rbs_level.';

1796:
1797: -- This loop is to enforce the business rule of processing the elements in order of rbs_level because
1798: -- we need to always have the actual parent_element_id determined before its child can be processed
1799: -- Level 1 is the root for the RBS structure and is only created and never updated or deleted
1800: Pa_Debug.G_Stage := 'For next loop to restrict by rbs_level.';
1801: For i in 2 .. l_Max_Rbs_Level
1802: Loop
1803:
1804: Pa_Debug.G_Stage := 'Open c2 cursor to get next set of records to process.';

Line 1804: Pa_Debug.G_Stage := 'Open c2 cursor to get next set of records to process.';

1800: Pa_Debug.G_Stage := 'For next loop to restrict by rbs_level.';
1801: For i in 2 .. l_Max_Rbs_Level
1802: Loop
1803:
1804: Pa_Debug.G_Stage := 'Open c2 cursor to get next set of records to process.';
1805: Open c2( P_Rbs_Level => i,
1806: P_Process_Type => l_Process_Type);
1807:
1808: -- This is the loop where the needed elements will be process based on the to parent

Line 1811: Pa_Debug.G_Stage := 'Start loop to process the elements/nodes for the process type/rbs level.';

1807:
1808: -- This is the loop where the needed elements will be process based on the to parent
1809: -- loops criteria be applied to
1810: -- the cursor c2, that is the process type and the rbs_level we want to work with.
1811: Pa_Debug.G_Stage := 'Start loop to process the elements/nodes for the process type/rbs level.';
1812: Loop
1813:
1814: Pa_Debug.G_Stage := 'Fetch c2 cursor record.';
1815: Fetch c2 Into Element_Rec;

Line 1814: Pa_Debug.G_Stage := 'Fetch c2 cursor record.';

1810: -- the cursor c2, that is the process type and the rbs_level we want to work with.
1811: Pa_Debug.G_Stage := 'Start loop to process the elements/nodes for the process type/rbs level.';
1812: Loop
1813:
1814: Pa_Debug.G_Stage := 'Fetch c2 cursor record.';
1815: Fetch c2 Into Element_Rec;
1816: Exit When c2%NotFound;
1817:
1818: Pa_Debug.G_Stage := 'Check if resource source id is null.';

Line 1818: Pa_Debug.G_Stage := 'Check if resource source id is null.';

1814: Pa_Debug.G_Stage := 'Fetch c2 cursor record.';
1815: Fetch c2 Into Element_Rec;
1816: Exit When c2%NotFound;
1817:
1818: Pa_Debug.G_Stage := 'Check if resource source id is null.';
1819: If Element_Rec.Resource_Source_Id is Null Then
1820:
1821: Pa_Debug.G_Stage := 'Get Resource Source Id using source code.';
1822: Pa_Rbs_Elements_Utils.GetResSourceId(

Line 1821: Pa_Debug.G_Stage := 'Get Resource Source Id using source code.';

1817:
1818: Pa_Debug.G_Stage := 'Check if resource source id is null.';
1819: If Element_Rec.Resource_Source_Id is Null Then
1820:
1821: Pa_Debug.G_Stage := 'Get Resource Source Id using source code.';
1822: Pa_Rbs_Elements_Utils.GetResSourceId(
1823: P_Resource_Type_Id => Element_Rec.Resource_Type_Id,
1824: P_Resource_Source_Code => Element_Rec.Resource_Source_Code,
1825: X_Resource_Source_Id => l_Resource_Source_Id);

Line 1835: Pa_Debug.G_Stage := 'Assign resource source id.';

1831: Raise l_ERROR;
1832: END IF;
1833: Else
1834:
1835: Pa_Debug.G_Stage := 'Assign resource source id.';
1836: l_Resource_Source_Id := Element_Rec.Resource_Source_Id;
1837:
1838: End If;
1839:

Line 1840: Pa_Debug.G_Stage := 'Call Process_Rbs_Elements() procedure.';

1836: l_Resource_Source_Id := Element_Rec.Resource_Source_Id;
1837:
1838: End If;
1839:
1840: Pa_Debug.G_Stage := 'Call Process_Rbs_Elements() procedure.';
1841: Pa_Rbs_Elements_Pvt.Process_Rbs_Element(
1842: P_RBS_Version_Id => Element_Rec.Rbs_Version_Id,
1843: P_Parent_Element_Id => Element_Rec.Parent_Element_Id,
1844: P_Element_Id => Element_Rec.Rbs_Element_Id,

Line 1854: Pa_Debug.G_Stage := 'The Process_Rbs_Elements() procedure returned error. ' ||

1850: X_Error_Msg_Data => X_Error_Msg_Data );
1851:
1852: If X_Error_Msg_Data is not null Then
1853:
1854: Pa_Debug.G_Stage := 'The Process_Rbs_Elements() procedure returned error. ' ||
1855: 'Add error message to stack.';
1856: Pa_Rbs_Pub.PopulateErrorStack(
1857: P_Ref_Element_Id => Element_Rec.Rbs_Ref_Element_Id,
1858: P_Element_Id => Element_Rec.Rbs_Element_Id,

Line 1869: Pa_Debug.G_Stage := 'Check if process type is Add to as to do needed updates on temp table.';

1865:
1866: -- Now need to update the temp recs with the element id just created.
1867: -- This is because we have process one rbs level at a time to populate needed data
1868: -- However, these updates are only needed when adding elements/nodes.
1869: Pa_Debug.G_Stage := 'Check if process type is Add to as to do needed updates on temp table.';
1870: If l_Process_Type = 'A' Then
1871:
1872: -- This should always update at least one record
1873: Pa_Debug.G_Stage := 'Update rbs_element_id based on temp rbs element id.';

Line 1873: Pa_Debug.G_Stage := 'Update rbs_element_id based on temp rbs element id.';

1869: Pa_Debug.G_Stage := 'Check if process type is Add to as to do needed updates on temp table.';
1870: If l_Process_Type = 'A' Then
1871:
1872: -- This should always update at least one record
1873: Pa_Debug.G_Stage := 'Update rbs_element_id based on temp rbs element id.';
1874: Update Pa_Rbs_Nodes_Temp
1875: Set
1876: Rbs_Element_Id = l_Rbs_Element_Id
1877: Where

Line 1881: Pa_Debug.G_Stage := 'Update parent_element_id based on temp parent id.';

1877: Where
1878: Rbs_Ref_Element_Id = Element_Rec.Rbs_Ref_Element_Id;
1879:
1880: -- This may or may not update records
1881: Pa_Debug.G_Stage := 'Update parent_element_id based on temp parent id.';
1882: Update Pa_Rbs_Nodes_Temp
1883: Set
1884: Parent_Element_Id = l_Rbs_Element_Id
1885: Where

Line 1891: Pa_Debug.G_Stage := 'Added parent Id to pl/sql array.';

1887: And Parent_Element_Id is Null;
1888:
1889: End If;
1890:
1891: Pa_Debug.G_Stage := 'Added parent Id to pl/sql array.';
1892:
1893: -- The Fetch_Rbs_Element() procedure needs this done.
1894: Pa_Debug.G_Stage := 'Update the global elements out table with rbs_element_id and status.';
1895: If Element_Rec.Process_Type = 'A' Then

Line 1894: Pa_Debug.G_Stage := 'Update the global elements out table with rbs_element_id and status.';

1890:
1891: Pa_Debug.G_Stage := 'Added parent Id to pl/sql array.';
1892:
1893: -- The Fetch_Rbs_Element() procedure needs this done.
1894: Pa_Debug.G_Stage := 'Update the global elements out table with rbs_element_id and status.';
1895: If Element_Rec.Process_Type = 'A' Then
1896: G_Rbs_Elements_Out_Tbl(Element_Rec.Record_Index).Rbs_Element_Id := l_Rbs_Element_Id;
1897: Else
1898: G_Rbs_Elements_Out_Tbl(Element_Rec.Record_Index).Rbs_Element_Id := Element_Rec.Rbs_Element_Id;

Line 1902: Pa_Debug.G_Stage := 'Update the out parameter x_element_tbl with rbs_element_id and parent id.';

1898: G_Rbs_Elements_Out_Tbl(Element_Rec.Record_Index).Rbs_Element_Id := Element_Rec.Rbs_Element_Id;
1899: End If;
1900: -- G_Rbs_Elements_Out_Tbl(Element_Rec.Record_Index).Return_Status := Fnd_Api.G_Ret_Sts_Success;
1901:
1902: Pa_Debug.G_Stage := 'Update the out parameter x_element_tbl with rbs_element_id and parent id.';
1903: If Element_Rec.Process_Type = 'A' Then
1904:
1905: X_Elements_Tbl(Element_Rec.Record_Index).Rbs_Element_Id := l_Rbs_Element_Id;
1906:

Line 1923: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;

1919: End Loop; -- to handle the process type order properly
1920:
1921: End If; -- l_Elements_Tbl.Count > 0
1922:
1923: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;
1924: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_True)) Then
1925:
1926: Commit;
1927:

Line 1930: Pa_Debug.G_Stage := 'Leaving Update_Rbs() procedure.';

1926: Commit;
1927:
1928: End If;
1929:
1930: Pa_Debug.G_Stage := 'Leaving Update_Rbs() procedure.';
1931: Pa_Debug.TrackPath('STRIP','Update_Rbs');
1932:
1933: Exception
1934: When l_ERROR Then

Line 1931: Pa_Debug.TrackPath('STRIP','Update_Rbs');

1927:
1928: End If;
1929:
1930: Pa_Debug.G_Stage := 'Leaving Update_Rbs() procedure.';
1931: Pa_Debug.TrackPath('STRIP','Update_Rbs');
1932:
1933: Exception
1934: When l_ERROR Then
1935: l_Msg_Count := Fnd_Msg_Pub.Count_Msg;

Line 1966: X_Error_Msg_Data := Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;

1962:
1963: When Others Then
1964: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
1965: X_Msg_Count := 1;
1966: X_Error_Msg_Data := Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
1967: G_Rbs_Ver_Out_Rec := G_Empty_Rbs_Ver_Out_Rec;
1968: G_Rbs_Elements_Out_Tbl.Delete;
1969: G_Rbs_Hdr_Out_Rec.Rbs_Header_Id := l_Rbs_Header_Id;
1970: -- G_Rbs_Hdr_Out_Rec.Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;

Line 2611: Pa_Debug.G_Path := ' ';

2607: rbs_version_id=P_RBS_Version_Id;
2608:
2609: Begin
2610:
2611: Pa_Debug.G_Path := ' ';
2612:
2613: Pa_Debug.G_Stage := 'Entering Copy_Rbs_Working_Version().';
2614: Pa_Debug.TrackPath('ADD','Copy_Rbs_Working_Version');
2615:

Line 2613: Pa_Debug.G_Stage := 'Entering Copy_Rbs_Working_Version().';

2609: Begin
2610:
2611: Pa_Debug.G_Path := ' ';
2612:
2613: Pa_Debug.G_Stage := 'Entering Copy_Rbs_Working_Version().';
2614: Pa_Debug.TrackPath('ADD','Copy_Rbs_Working_Version');
2615:
2616: Pa_Debug.G_Stage := 'Call Compatibility API.';
2617: If Not Fnd_Api.Compatible_API_Call (

Line 2614: Pa_Debug.TrackPath('ADD','Copy_Rbs_Working_Version');

2610:
2611: Pa_Debug.G_Path := ' ';
2612:
2613: Pa_Debug.G_Stage := 'Entering Copy_Rbs_Working_Version().';
2614: Pa_Debug.TrackPath('ADD','Copy_Rbs_Working_Version');
2615:
2616: Pa_Debug.G_Stage := 'Call Compatibility API.';
2617: If Not Fnd_Api.Compatible_API_Call (
2618: Pa_Rbs_Pub.G_Api_Version_Number,

Line 2616: Pa_Debug.G_Stage := 'Call Compatibility API.';

2612:
2613: Pa_Debug.G_Stage := 'Entering Copy_Rbs_Working_Version().';
2614: Pa_Debug.TrackPath('ADD','Copy_Rbs_Working_Version');
2615:
2616: Pa_Debug.G_Stage := 'Call Compatibility API.';
2617: If Not Fnd_Api.Compatible_API_Call (
2618: Pa_Rbs_Pub.G_Api_Version_Number,
2619: P_Api_Version_Number,
2620: l_Api_Name,

Line 2628: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;

2624:
2625: End If;
2626:
2627:
2628: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;
2629: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
2630:
2631: Pa_Debug.G_Stage := 'Initializing message stack by calling Fnd_Msg_Pub.Initialize().';
2632: Fnd_Msg_Pub.Initialize;

Line 2631: Pa_Debug.G_Stage := 'Initializing message stack by calling Fnd_Msg_Pub.Initialize().';

2627:
2628: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;
2629: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
2630:
2631: Pa_Debug.G_Stage := 'Initializing message stack by calling Fnd_Msg_Pub.Initialize().';
2632: Fnd_Msg_Pub.Initialize;
2633:
2634: End If;
2635:

Line 2636: Pa_Debug.G_Stage := 'Initialize error handling variables.';

2632: Fnd_Msg_Pub.Initialize;
2633:
2634: End If;
2635:
2636: Pa_Debug.G_Stage := 'Initialize error handling variables.';
2637: X_Error_Msg_Data := Null;
2638: X_Msg_Count := 0;
2639: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
2640:

Line 2644: Pa_Debug.G_Stage := 'Checks if P_Rbs_Version_Id is null';

2640:
2641:
2642: l_Rbs_Version_Id:=P_Rbs_Version_Id;
2643:
2644: Pa_Debug.G_Stage := 'Checks if P_Rbs_Version_Id is null';
2645: If P_Rbs_Version_Id is null or P_Rbs_Version_Id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM Then
2646:
2647: If P_Rbs_Header_Id is not null and P_Rbs_Header_Id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM and P_Rbs_Version_Number <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM and P_Rbs_Version_Number is not null then
2648:

Line 2659: Pa_Debug.G_Stage := 'Raise Error: Not able to derive rbs_version_id';

2655: OPEN C_GetVersionId2(P_Header_Name=>P_Rbs_Header_Name,P_Version_Number=>P_Rbs_Version_Number);
2656: FETCH C_GetVersionId2 INTO l_Rbs_Version_Id;
2657: CLOSE C_GetVersionId2;
2658: Else
2659: Pa_Debug.G_Stage := 'Raise Error: Not able to derive rbs_version_id';
2660: X_Error_Msg_Data:='PA_RBS_VERSION_ID_NOT_PASSED_AMG';
2661: Pa_Utils.Add_Message
2662: (P_App_Short_Name => 'PA',
2663: P_Msg_Name => 'PA_RBS_VERSION_ID_NOT_PASSED_AMG');

Line 2671: Pa_Debug.G_Stage := 'Checks if P_Rbs_Header_Id is null';

2667: End IF;
2668:
2669: l_Rbs_Header_Id:=P_Rbs_Header_Id;
2670:
2671: Pa_Debug.G_Stage := 'Checks if P_Rbs_Header_Id is null';
2672: If P_Rbs_Header_Id is null or P_Rbs_Header_Id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM Then
2673:
2674: OPEN C_GetHeaderId;
2675: FETCH C_GetHeaderId Into l_Rbs_Header_Id;

Line 2681: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Create_New_Working_Version() procedure.';

2677:
2678: End If;
2679:
2680:
2681: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Create_New_Working_Version() procedure.';
2682: Pa_Rbs_Versions_Pub.Create_Working_Version(
2683: P_Commit => P_Commit,
2684: P_Init_Msg_List => P_Init_Msg_List,
2685: P_Api_Version_Number => P_Api_Version_Number,

Line 2694: Pa_Debug.G_Stage := 'Check if error message data is populated.';

2690: X_Return_Status => X_Return_Status,
2691: X_Msg_Count => X_Msg_Count,
2692: X_Error_Msg_Data => X_Error_Msg_Data );
2693:
2694: Pa_Debug.G_Stage := 'Check if error message data is populated.';
2695: If X_Error_Msg_Data Is Not Null Then
2696:
2697: Pa_Debug.G_Stage := 'Raise user defined error due to error msg data parameter being populated.';
2698: Raise l_error;

Line 2697: Pa_Debug.G_Stage := 'Raise user defined error due to error msg data parameter being populated.';

2693:
2694: Pa_Debug.G_Stage := 'Check if error message data is populated.';
2695: If X_Error_Msg_Data Is Not Null Then
2696:
2697: Pa_Debug.G_Stage := 'Raise user defined error due to error msg data parameter being populated.';
2698: Raise l_error;
2699:
2700: End If;
2701:

Line 2702: Pa_Debug.G_Stage := 'Leaving Copy_Rbs_Working_Version() procedure.';

2698: Raise l_error;
2699:
2700: End If;
2701:
2702: Pa_Debug.G_Stage := 'Leaving Copy_Rbs_Working_Version() procedure.';
2703: Pa_Debug.TrackPath('STRIP','Copy_Rbs_Working_Version');
2704:
2705: Exception
2706: When l_Error Then

Line 2703: Pa_Debug.TrackPath('STRIP','Copy_Rbs_Working_Version');

2699:
2700: End If;
2701:
2702: Pa_Debug.G_Stage := 'Leaving Copy_Rbs_Working_Version() procedure.';
2703: Pa_Debug.TrackPath('STRIP','Copy_Rbs_Working_Version');
2704:
2705: Exception
2706: When l_Error Then
2707: X_Return_Status := 'E';

Line 2714: X_Error_Msg_Data := Pa_Rbs_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;

2710: Return;
2711: When Others Then
2712: X_Return_Status := 'U';
2713: X_Msg_Count := 1;
2714: X_Error_Msg_Data := Pa_Rbs_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
2715:
2716: --For bug 4061935.
2717: If Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_Msg_Lvl_UnExp_Error) Then
2718: Fnd_Msg_Pub.Add_Exc_Msg(

Line 2779: Pa_Debug.G_Path := ' ';

2775: Ver.status_code='WORKING';
2776:
2777: BEGIN
2778:
2779: Pa_Debug.G_Path := ' ';
2780:
2781: Pa_Debug.G_Stage := 'Entering Freeze_Rbs_Version().';
2782: Pa_Debug.TrackPath('ADD','Freeze_Rbs_Version');
2783:

Line 2781: Pa_Debug.G_Stage := 'Entering Freeze_Rbs_Version().';

2777: BEGIN
2778:
2779: Pa_Debug.G_Path := ' ';
2780:
2781: Pa_Debug.G_Stage := 'Entering Freeze_Rbs_Version().';
2782: Pa_Debug.TrackPath('ADD','Freeze_Rbs_Version');
2783:
2784: Pa_Debug.G_Stage := 'Call Compatibility API.';
2785: If Not Fnd_Api.Compatible_API_Call (

Line 2782: Pa_Debug.TrackPath('ADD','Freeze_Rbs_Version');

2778:
2779: Pa_Debug.G_Path := ' ';
2780:
2781: Pa_Debug.G_Stage := 'Entering Freeze_Rbs_Version().';
2782: Pa_Debug.TrackPath('ADD','Freeze_Rbs_Version');
2783:
2784: Pa_Debug.G_Stage := 'Call Compatibility API.';
2785: If Not Fnd_Api.Compatible_API_Call (
2786: Pa_Rbs_Pub.G_Api_Version_Number,

Line 2784: Pa_Debug.G_Stage := 'Call Compatibility API.';

2780:
2781: Pa_Debug.G_Stage := 'Entering Freeze_Rbs_Version().';
2782: Pa_Debug.TrackPath('ADD','Freeze_Rbs_Version');
2783:
2784: Pa_Debug.G_Stage := 'Call Compatibility API.';
2785: If Not Fnd_Api.Compatible_API_Call (
2786: Pa_Rbs_Pub.G_Api_Version_Number,
2787: P_Api_Version_Number,
2788: l_Api_Name,

Line 2796: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;

2792:
2793: End If;
2794:
2795: --For bug 4061935.
2796: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;
2797: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
2798:
2799: Pa_Debug.G_Stage := 'Initializing message stack by calling Fnd_Msg_Pub.Initialize().';
2800: Fnd_Msg_Pub.Initialize;

Line 2799: Pa_Debug.G_Stage := 'Initializing message stack by calling Fnd_Msg_Pub.Initialize().';

2795: --For bug 4061935.
2796: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;
2797: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
2798:
2799: Pa_Debug.G_Stage := 'Initializing message stack by calling Fnd_Msg_Pub.Initialize().';
2800: Fnd_Msg_Pub.Initialize;
2801:
2802: End If;
2803:

Line 2804: Pa_Debug.G_Stage := 'Initialize error handling variables.';

2800: Fnd_Msg_Pub.Initialize;
2801:
2802: End If;
2803:
2804: Pa_Debug.G_Stage := 'Initialize error handling variables.';
2805: X_Error_Msg_Data := Null;
2806: X_Msg_Count := 0;
2807: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
2808:

Line 2812: Pa_Debug.G_Stage := 'Checks if P_Rbs_Version_Id is null';

2808:
2809:
2810: l_Rbs_Version_Id:=P_Rbs_Version_Id;
2811:
2812: Pa_Debug.G_Stage := 'Checks if P_Rbs_Version_Id is null';
2813: If P_Rbs_Version_Id is null or P_Rbs_Version_Id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM Then
2814:
2815: If P_Rbs_Header_Id is not null and P_Rbs_Header_Id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM Then
2816:

Line 2827: Pa_Debug.G_Stage := 'Raise Error:Not able to derive rbs_version_id';

2823: OPEN C_GetVersionId2(P_Header_Name=>P_Rbs_Header_Name);
2824: FETCH C_GetVersionId2 INTO l_Rbs_Version_Id;
2825: CLOSE C_GetVersionId2;
2826: Else
2827: Pa_Debug.G_Stage := 'Raise Error:Not able to derive rbs_version_id';
2828: X_Error_Msg_Data := 'PA_RBS_VERSION_ID_NOT_PASSED_AMG';
2829: Pa_Utils.Add_Message
2830: (P_App_Short_Name => 'PA',
2831: P_Msg_Name => 'PA_RBS_VERSION_ID_NOT_PASSED_AMG');

Line 2838: Pa_Debug.G_Stage := 'Create a copy of the version being freezed which will be the working version for this header.';

2834:
2835: End If;
2836:
2837:
2838: Pa_Debug.G_Stage := 'Create a copy of the version being freezed which will be the working version for this header.';
2839: Pa_Rbs_Versions_Pub.Freeze_Working_Version(
2840: P_Commit => P_Commit,
2841: P_Init_Msg_List => P_Init_Msg_List,
2842: P_Rbs_Version_Id => l_Rbs_Version_Id,

Line 2849: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';

2845: X_Return_Status => X_Return_Status,
2846: X_Msg_Count => X_Msg_Count,
2847: X_Error_Msg_Data => X_Error_Msg_Data);
2848:
2849: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';
2850: If X_Error_Msg_Data Is Not Null Then
2851:
2852: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';
2853: Raise l_error;

Line 2852: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';

2848:
2849: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';
2850: If X_Error_Msg_Data Is Not Null Then
2851:
2852: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';
2853: Raise l_error;
2854:
2855: End If;
2856:

Line 2857: Pa_Debug.G_Stage := 'Leaving Freeze_Rbs_Version() procedure.';

2853: Raise l_error;
2854:
2855: End If;
2856:
2857: Pa_Debug.G_Stage := 'Leaving Freeze_Rbs_Version() procedure.';
2858: Pa_Debug.TrackPath('STRIP','Freeze_Rbs_Version');
2859:
2860: Exception
2861: When l_Error Then

Line 2858: Pa_Debug.TrackPath('STRIP','Freeze_Rbs_Version');

2854:
2855: End If;
2856:
2857: Pa_Debug.G_Stage := 'Leaving Freeze_Rbs_Version() procedure.';
2858: Pa_Debug.TrackPath('STRIP','Freeze_Rbs_Version');
2859:
2860: Exception
2861: When l_Error Then
2862: X_Return_Status := 'E';

Line 2869: X_Error_Msg_Data := Pa_Rbs_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;

2865: Return;
2866: When Others Then
2867: X_Return_Status := 'U';
2868: X_Msg_Count := 1;
2869: X_Error_Msg_Data := Pa_Rbs_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
2870:
2871: If Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_Msg_Lvl_UnExp_Error) Then
2872: Fnd_Msg_Pub.Add_Exc_Msg(
2873: P_Pkg_Name => G_Pkg_Name,

Line 2945: Pa_Debug.G_Path := ' ';

2941: l_current_flag VARCHAR2(1);
2942:
2943: Begin
2944:
2945: Pa_Debug.G_Path := ' ';
2946:
2947: Pa_Debug.G_Stage := 'Entering Assign_Rbs_To_Project().';
2948: Pa_Debug.TrackPath('ADD','Assign_Rbs_To_Project');
2949:

Line 2947: Pa_Debug.G_Stage := 'Entering Assign_Rbs_To_Project().';

2943: Begin
2944:
2945: Pa_Debug.G_Path := ' ';
2946:
2947: Pa_Debug.G_Stage := 'Entering Assign_Rbs_To_Project().';
2948: Pa_Debug.TrackPath('ADD','Assign_Rbs_To_Project');
2949:
2950: Pa_Debug.G_Stage := 'Call Compatibility API.';
2951: If Not Fnd_Api.Compatible_API_Call (

Line 2948: Pa_Debug.TrackPath('ADD','Assign_Rbs_To_Project');

2944:
2945: Pa_Debug.G_Path := ' ';
2946:
2947: Pa_Debug.G_Stage := 'Entering Assign_Rbs_To_Project().';
2948: Pa_Debug.TrackPath('ADD','Assign_Rbs_To_Project');
2949:
2950: Pa_Debug.G_Stage := 'Call Compatibility API.';
2951: If Not Fnd_Api.Compatible_API_Call (
2952: Pa_Rbs_Pub.G_Api_Version_Number,

Line 2950: Pa_Debug.G_Stage := 'Call Compatibility API.';

2946:
2947: Pa_Debug.G_Stage := 'Entering Assign_Rbs_To_Project().';
2948: Pa_Debug.TrackPath('ADD','Assign_Rbs_To_Project');
2949:
2950: Pa_Debug.G_Stage := 'Call Compatibility API.';
2951: If Not Fnd_Api.Compatible_API_Call (
2952: Pa_Rbs_Pub.G_Api_Version_Number,
2953: P_Api_Version_Number,
2954: l_Api_Name,

Line 2962: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;

2958:
2959: End If;
2960:
2961: --For bug 4061935.
2962: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;
2963: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
2964:
2965: Pa_Debug.G_Stage := 'Initializing message stack by calling Fnd_Msg_Pub.Initialize().';
2966: Fnd_Msg_Pub.Initialize;

Line 2965: Pa_Debug.G_Stage := 'Initializing message stack by calling Fnd_Msg_Pub.Initialize().';

2961: --For bug 4061935.
2962: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;
2963: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
2964:
2965: Pa_Debug.G_Stage := 'Initializing message stack by calling Fnd_Msg_Pub.Initialize().';
2966: Fnd_Msg_Pub.Initialize;
2967:
2968: End If;
2969:

Line 2970: Pa_Debug.G_Stage := 'Initialize error handling variables.';

2966: Fnd_Msg_Pub.Initialize;
2967:
2968: End If;
2969:
2970: Pa_Debug.G_Stage := 'Initialize error handling variables.';
2971: X_Error_Msg_Data := Null;
2972: X_Msg_Count := 0;
2973: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
2974:

Line 2978: Pa_Debug.G_Stage := 'Check if P_Project_Id is null';

2974:
2975:
2976: l_project_id := P_Project_Id;
2977:
2978: Pa_Debug.G_Stage := 'Check if P_Project_Id is null';
2979: If P_Project_Id is null or
2980: P_Project_Id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM Then
2981:
2982: Pa_Debug.G_Stage := 'Get the project id from Pa_Project_Pvt.Convert_Pm_Projref_to_id';

Line 2982: Pa_Debug.G_Stage := 'Get the project id from Pa_Project_Pvt.Convert_Pm_Projref_to_id';

2978: Pa_Debug.G_Stage := 'Check if P_Project_Id is null';
2979: If P_Project_Id is null or
2980: P_Project_Id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM Then
2981:
2982: Pa_Debug.G_Stage := 'Get the project id from Pa_Project_Pvt.Convert_Pm_Projref_to_id';
2983:
2984: Pa_Project_Pvt.Convert_Pm_Projref_to_id(
2985: P_Pm_Project_Reference => P_Pm_Project_Reference,
2986: P_pa_project_id => P_Project_Id,

Line 2991: X_Error_Msg_Data := Pa_Rbs_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;

2987: P_out_project_id => l_project_id,
2988: P_Return_Status => X_Return_Status);
2989:
2990: If X_Return_Status <> 'S' Then
2991: X_Error_Msg_Data := Pa_Rbs_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
2992: Raise l_error;
2993: End If;
2994:
2995: End If;

Line 3000: Pa_Debug.G_Stage := 'Check if P_Rbs_Version_Id is null';

2996:
2997:
2998: -- l_Rbs_Version_Id:=P_Rbs_Version_Id;
2999:
3000: Pa_Debug.G_Stage := 'Check if P_Rbs_Version_Id is null';
3001:
3002: -- If P_Rbs_Version_Id is null or P_Rbs_Version_Id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM Then
3003:
3004: IF P_Rbs_Header_Id is not null AND

Line 3019: Pa_Debug.G_Stage := 'Raise Error: Not able to derive rbs_version_id';

3015: FETCH C_GetVersionId2 INTO l_Rbs_Version_Id;
3016: CLOSE C_GetVersionId2;
3017:
3018: ELSE
3019: Pa_Debug.G_Stage := 'Raise Error: Not able to derive rbs_version_id';
3020: X_Error_Msg_Data := 'PA_INVALID_HEADER_ID';
3021: Pa_Utils.Add_Message --For bug 4061935.
3022: (P_App_Short_Name => 'PA',
3023: P_Msg_Name => 'PA_INVALID_HEADER_ID');

Line 3032: Pa_Debug.G_Stage := 'Check if P_Rbs_Header_Id is null';

3028:
3029: l_Rbs_Header_Id := P_Rbs_Header_Id;
3030:
3031: /*
3032: Pa_Debug.G_Stage := 'Check if P_Rbs_Header_Id is null';
3033: If P_Rbs_Header_Id is null or
3034: P_Rbs_Header_Id =PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM Then
3035:
3036: OPEN C_GetHeaderId;

Line 3056: Pa_Debug.G_Stage := 'Raise Error: RBS version is not the latest';

3052: l_current_flag := 'N';
3053: END;
3054:
3055: IF l_current_flag = 'N' THEN
3056: Pa_Debug.G_Stage := 'Raise Error: RBS version is not the latest';
3057: X_Error_Msg_Data := 'PA_RBS_VERSION_NOT_CURRENT';
3058: Raise l_error;
3059: END IF;
3060: */

Line 3063: Pa_Debug.G_Stage := 'Raise Error: RBS version does not exist.';

3059: END IF;
3060: */
3061:
3062: IF l_Rbs_Version_Id IS NULL THEN
3063: Pa_Debug.G_Stage := 'Raise Error: RBS version does not exist.';
3064: X_Error_Msg_Data := 'PA_AMG_VERSION_ID_NOT_PASSED';
3065: Pa_Utils.Add_Message
3066: (P_App_Short_Name => 'PA',
3067: P_Msg_Name => 'PA_AMG_VERSION_ID_NOT_PASSED');

Line 3071: Pa_Debug.G_Stage := 'Call Pa_Rbs_Asgmt_Pub.Create_RBS_Assignment() procedure.';

3067: P_Msg_Name => 'PA_AMG_VERSION_ID_NOT_PASSED');
3068: Raise l_error;
3069: END IF;
3070:
3071: Pa_Debug.G_Stage := 'Call Pa_Rbs_Asgmt_Pub.Create_RBS_Assignment() procedure.';
3072: Pa_Rbs_Asgmt_Pub.Create_RBS_Assignment(
3073: P_Commit => Fnd_Api.G_False,
3074: P_Init_Msg_List => Fnd_Api.G_False,
3075: P_Rbs_Header_Id => l_Rbs_Header_Id,

Line 3084: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Asgmt_Pub.Create_RBS_Assignment() procedure return error.';

3080: X_Return_Status => X_Return_Status,
3081: X_Msg_Count => X_Msg_Count,
3082: X_Error_Msg_Data => X_Error_Msg_Data);
3083:
3084: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Asgmt_Pub.Create_RBS_Assignment() procedure return error.';
3085: If X_Error_Msg_Data Is Not Null Then
3086:
3087: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Asgmt_Pub.Create_RBS_Assignment() procedure return error.';
3088: Raise l_error;

Line 3087: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Asgmt_Pub.Create_RBS_Assignment() procedure return error.';

3083:
3084: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Asgmt_Pub.Create_RBS_Assignment() procedure return error.';
3085: If X_Error_Msg_Data Is Not Null Then
3086:
3087: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Asgmt_Pub.Create_RBS_Assignment() procedure return error.';
3088: Raise l_error;
3089:
3090: End If;
3091:

Line 3092: Pa_Debug.G_Stage := 'Leaving Assign_Rbs_To_Project() procedure.';

3088: Raise l_error;
3089:
3090: End If;
3091:
3092: Pa_Debug.G_Stage := 'Leaving Assign_Rbs_To_Project() procedure.';
3093: Pa_Debug.TrackPath('STRIP','Assign_Rbs_To_Project');
3094:
3095: Exception
3096: When l_Error Then

Line 3093: Pa_Debug.TrackPath('STRIP','Assign_Rbs_To_Project');

3089:
3090: End If;
3091:
3092: Pa_Debug.G_Stage := 'Leaving Assign_Rbs_To_Project() procedure.';
3093: Pa_Debug.TrackPath('STRIP','Assign_Rbs_To_Project');
3094:
3095: Exception
3096: When l_Error Then
3097: X_Return_Status := 'E';

Line 3104: X_Error_Msg_Data := Pa_Rbs_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;

3100: Return;
3101: When Others Then
3102: X_Return_Status := 'U';
3103: X_Msg_Count := 1;
3104: X_Error_Msg_Data := Pa_Rbs_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
3105:
3106: If Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_Msg_Lvl_UnExp_Error) Then
3107: Fnd_Msg_Pub.Add_Exc_Msg(
3108: P_Pkg_Name => G_Pkg_Name,

Line 3157: Pa_Debug.G_Stage := 'Entering PopulateErrorStack() procedure.';

3153: Rbs_Element_Id = P_Id;
3154:
3155: Begin
3156:
3157: Pa_Debug.G_Stage := 'Entering PopulateErrorStack() procedure.';
3158: Pa_Debug.TrackPath('ADD','PopulateErrorStack');
3159:
3160: If P_Process_Type = 'A' Then
3161:

Line 3158: Pa_Debug.TrackPath('ADD','PopulateErrorStack');

3154:
3155: Begin
3156:
3157: Pa_Debug.G_Stage := 'Entering PopulateErrorStack() procedure.';
3158: Pa_Debug.TrackPath('ADD','PopulateErrorStack');
3159:
3160: If P_Process_Type = 'A' Then
3161:
3162: Open c1(P_Lookup_Code => 'REFERENCE_ELEMENT_ID');

Line 3182: Pa_Debug.G_Stage := 'Calling Pa_Utils.Add_Message() procedure.';

3178: l_Msg_Token_Value := l_Prefix_Value || ': ' || l_Outline || ': ' ;
3179:
3180: End If;
3181:
3182: Pa_Debug.G_Stage := 'Calling Pa_Utils.Add_Message() procedure.';
3183: Pa_Utils.Add_Message
3184: (P_App_Short_Name => 'PA',
3185: P_Msg_Name => P_Error_Msg_Data,
3186: P_Token1 => 'MSG_TOKEN',

Line 3189: Pa_Debug.G_Stage := 'Leaving PopulateErrorStack() procedure.';

3185: P_Msg_Name => P_Error_Msg_Data,
3186: P_Token1 => 'MSG_TOKEN',
3187: P_Value1 => l_Msg_Token_value);
3188:
3189: Pa_Debug.G_Stage := 'Leaving PopulateErrorStack() procedure.';
3190: Pa_Debug.TrackPath('STRIP','PopulateErrorStack');
3191:
3192: Exception
3193: When Others Then

Line 3190: Pa_Debug.TrackPath('STRIP','PopulateErrorStack');

3186: P_Token1 => 'MSG_TOKEN',
3187: P_Value1 => l_Msg_Token_value);
3188:
3189: Pa_Debug.G_Stage := 'Leaving PopulateErrorStack() procedure.';
3190: Pa_Debug.TrackPath('STRIP','PopulateErrorStack');
3191:
3192: Exception
3193: When Others Then
3194: Raise;