[Home] [Help]
129: Pa_Debug.G_Stage := 'Check if the paramter p_name is null.';
130: If P_Name Is Null Then
131:
132: Pa_Debug.G_Stage := 'Rbs Name is null. Add message to error stage.';
133: Pa_Utils.Add_MessagE(
134: P_App_Short_Name => 'PA',
135: P_Msg_Name => 'PA_RBS_NAME_NULL');
136:
137: Raise l_Error;
142: Pa_Debug.G_Stage := 'Check if the Effective From Date for the RBS Header is null.';
143: If P_EffectiveFrom Is Null Then
144:
145: Pa_Debug.G_Stage := 'The Effective From Date for the RBS Header is null.';
146: Pa_Utils.Add_Message(
147: P_App_Short_Name => 'PA',
148: P_Msg_Name => 'PA_RBS_FROM_NULL',
149: P_Token1 => 'RBSNAME',
150: P_Value1 => P_Name);
157: Pa_Debug.G_Stage := 'Check if the RBS Header Effective From Date is > Effective To Date.';
158: If P_EffectiveFrom > P_EffectiveTo Then
159:
160: Pa_Debug.G_Stage := 'The Rbs Header Effective From Date is > Effective To Date.';
161: Pa_Utils.Add_Message(
162: P_App_Short_Name => 'PA',
163: P_Msg_Name => 'PA_RBS_TO_LESS_FROM',
164: P_Token1 => 'RBSNAME',
165: P_value1 => P_Name);
197: Pa_Debug.G_Stage := 'Check if the number of rbs headers using the name.';
198: If l_Count <> 0 Then
199:
200: Pa_Debug.G_Stage := 'The p_name parameter for a new rbs name is already used. Add message to message stack.';
201: Pa_Utils.Add_Message(
202: P_App_Short_Name => 'PA',
203: P_Msg_Name => 'PA_RBS_NOT_UNIQUE',
204: P_Token1 => 'RBSNAME',
205: P_Value1 => P_Name);
232: Else
233:
234: Pa_Debug.G_Stage := 'The record version number does not match up. The record has already been update ' ||
235: 'other others. Add message to error stack.';
236: Pa_Utils.Add_Message(
237: P_App_Short_Name => 'PA',
238: P_Msg_Name => 'PA_RBS_HEADER_CHANGED');
239:
240: l_Error_Raised := 'Y';
261: IF(l_use_for_alloc_flag='N' and p_use_for_alloc_flag='Y') Then
262:
263: IF PA_RBS_HEADER_PVT.Validate_Rbs_For_Allocations(p_rbs_id=> P_RbsHeaderId)='Y'
264: THEN
265: Pa_Utils.Add_Message(
266: P_App_Short_Name => 'PA',
267: P_Msg_Name => 'PA_RBS_HAS_RULES');
268:
269: Pa_Debug.G_Stage := 'We have rules as elements so raising error.';
373: If l_EffectiveFromDate <> P_EffectiveFrom Then
374:
375: Pa_Debug.G_Stage := 'Trying to change the effective from date of the header when have frozen ' ||
376: 'rbs versions. Add message to error stack.';
377: Pa_Utils.Add_Message(
378: P_App_Short_Name => 'PA',
379: P_Msg_Name => 'PA_RBS_FROM_CHANGED',
380: P_Token1 => 'RBSNAME',
381: P_Value1 => P_Name);
392: -- If P_EffectiveTo Is Not Null And P_EffectiveTo < l_Effect_To_Date Then
393:
394: -- Pa_Debug.G_Stage := 'Trying to change effective to date of header and it is < that ' ||
395: -- 'max version_end_date of frozen versions. Add msg to error stack.';
396: -- Pa_Utils.Add_MessagE(
397: -- P_App_Short_Name => 'PA',
398: -- P_Msg_Name => 'PA_RBS_TO_LESS_THAN_VERSIONS',
399: -- P_Token1 => 'RBSNAME',
400: -- P_Value1 => P_Name);
423: THEN
424: Pa_Debug.G_Stage := 'Trying to change use_for_alloc_flag to N for Rbs used in allocation rule' ||
425: 'Add msg to error stack.';
426:
427: Pa_Utils.Add_Message(
428: P_App_Short_Name => 'PA',
429: P_Msg_Name => 'PA_RBS_USED_IN_ALLOC',
430: P_Token1 => 'RBSNAME',
431: P_Value1 => P_Name);
618: Pa_Debug.G_Stage := 'Check if the paramter p_name is null.';
619: If P_Name Is Null Then
620:
621: Pa_Debug.G_Stage := 'Rbs Name is null. Add message to error stage.';
622: Pa_Utils.Add_Message(
623: P_App_Short_Name => 'PA',
624: P_Msg_Name => 'PA_RBS_NAME_NULL');
625:
626: Raise l_Error;
631: Pa_Debug.G_Stage := 'Check if the effective from date is null.';
632: If P_EffectiveFrom Is Null Then
633:
634: Pa_Debug.G_Stage := 'The Effective from date is null. Add message to error stack.';
635: Pa_Utils.Add_Message(
636: P_App_Short_Name => 'PA',
637: P_Msg_Name => 'PA_RBS_FROM_NULL',
638: P_Token1 => 'RBSNAME',
639: P_Value1 => P_Name);
646: Pa_Debug.G_Stage := 'Check if the rbs header effective from date > effective to date.';
647: If P_EffectiveFrom > Nvl(P_EffectiveTo,P_EffectiveFrom) Then
648:
649: Pa_Debug.G_Stage := 'The rbs header effective from date > effective to date. Add message to error stack.';
650: Pa_Utils.Add_Message(
651: P_App_Short_Name => 'PA',
652: P_Msg_Name => 'PA_RBS_TO_LESS_FROM',
653: P_Token1 => 'RBSNAME',
654: P_Value1 => P_Name);
674: Pa_Debug.G_Stage := 'Check if the count of rbs headers using the p_name parameter is <> 0.';
675: IF l_count <> 0 THEN
676:
677: Pa_Debug.G_Stage := 'When create rbs the header name must be unique. Add message to error stack.';
678: Pa_Utils.Add_Message(
679: P_App_Short_Name => 'PA',
680: P_Msg_Name => 'PA_RBS_NOT_UNIQUE',
681: P_Token1 => 'RBSNAME',
682: P_Value1 => P_Name);