[Home] [Help]
101: * to get the res_type_id from pa_res_formats_b, and compare to the
102: * res_type_id for the p_format_id we are trying to add.
103: * If they do, then raise an error message "PA_PLAN_RL_FORMAT_WP_ERR"
104: **************************************************************************/
105: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
106: X_Msg_Count := 0;
107: X_Msg_Data := Null;
108:
109:
196: * Check the Commit flag. if it is true then Commit.
197: ***********************************************/
198: Exception
199: When BAD_FORMAT_ID Then
200: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
201: X_Msg_Count := 1;
202: X_Msg_Data := 'PA_PLN_RL_FORMAT_BAD_FMT_ID';
203: X_Plan_RL_Format_Id := Null;
204: X_Record_Version_Number := Null;
208: p_token1 => 'PLAN_RES',
209: p_value1 => NULL);
210:
211: When WP_ERROR Then
212: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
213: X_Msg_Count := 1;
214: X_Msg_Data := 'PA_PLAN_RL_FORMAT_WP_ERR';
215: X_Plan_RL_Format_Id := Null;
216: X_Record_Version_Number := Null;
219: (P_App_Short_Name => 'PA',
220: P_Msg_Name => 'PA_PLAN_RL_FORMAT_WP_ERR');
221:
222: When JOB_FMT_ERR Then
223: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
224: X_Msg_Count := 1;
225: X_Msg_Data := 'PA_PLAN_RL_FORMAT_JOB_ERR';
226: X_Plan_RL_Format_Id := Null;
227: X_Record_Version_Number := Null;
228: Pa_Utils.Add_Message
229: (P_App_Short_Name => 'PA',
230: P_Msg_Name => 'PA_PLAN_RL_FORMAT_JOB_ERR');
231: When NO_DATA_FOUND Then
232: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
233: X_Msg_Count := 1;
234: X_Msg_Data := 'PA_PLN_RL_FMT_NOT_CREATED';
235: X_Plan_RL_Format_Id := Null;
236: X_Record_Version_Number := Null;
239: (P_App_Short_Name => 'PA',
240: P_Msg_Name => 'PA_PLN_RL_FMT_NOT_CREATED');
241:
242: When Others Then
243: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
244: X_Plan_RL_Format_Id := Null;
245: X_Record_Version_Number := Null;
246: Fnd_Msg_Pub.Add_Exc_Msg(
247: P_Pkg_Name => 'Pa_Plan_RL_Formats_Pub',
307: -- You need to check if any exists, and if so, raise an error:
308:
309: Fnd_Msg_Pub.Initialize;
310:
311: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
312: X_Msg_Count := 0;
313: X_Msg_Data := Null;
314:
315: If P_Res_Format_Id is Null and P_Plan_RL_Format_Id is Null Then
372: End If;
373:
374: EXCEPTION
375: When NULL_FORMAT_ID Then
376: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
377: X_Msg_Count := 1;
378: X_Msg_Data := 'PA_PLN_RL_FORMAT_NULL_FMT_ID';
379: Pa_Utils.Add_Message
380: (P_App_Short_Name => 'PA',
380: (P_App_Short_Name => 'PA',
381: P_Msg_Name => 'PA_PLN_RL_FORMAT_NULL_FMT_ID');
382:
383: When NULL_LIST_ID Then
384: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
385: X_Msg_Count := 1;
386: X_Msg_Data := 'PA_PLN_RL_FORMAT_NULL_LST_ID';
387: Pa_Utils.Add_Message
388: (P_App_Short_Name => 'PA',
388: (P_App_Short_Name => 'PA',
389: P_Msg_Name => 'PA_PLN_RL_FORMAT_NULL_LST_ID');
390:
391: When BAD_PLAN_RL_FORMAT_ID Then
392: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
393: X_Msg_Count := 1;
394: X_Msg_Data := 'PA_PLN_RL_FORMAT_BAD_FMT_ID';
395: Pa_Utils.Add_Message
396: (P_App_Short_Name => 'PA',
398: p_token1 => 'PLAN_RES',
399: p_value1 => NULL);
400:
401: When DEL_ERROR Then
402: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
403: X_Msg_Count := 1;
404: X_Msg_Data := 'PA_PLAN_RL_FORMAT_DEL_ERR';
405: Pa_Utils.Add_Message
406: (P_App_Short_Name => 'PA',
406: (P_App_Short_Name => 'PA',
407: P_Msg_Name => 'PA_PLAN_RL_FORMAT_DEL_ERR');
408:
409: When FMTUSED_ERROR Then
410: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
411: X_Msg_Count := 1;
412: X_Msg_Data := 'PA_PLAN_RL_FORMAT_USED_ERR';
413: Pa_Utils.Add_Message
414: (P_App_Short_Name => 'PA',
414: (P_App_Short_Name => 'PA',
415: P_Msg_Name => 'PA_PLAN_RL_FORMAT_USED_ERR');
416:
417: When Others Then
418: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
419: Fnd_Msg_Pub.Add_Exc_Msg(
420: P_Pkg_Name => 'Pa_Plan_RL_Formats_Pvt',
421: P_Procedure_Name => 'Delete_Plan_RL_Format');
422: