7: * the uniqueness of the resource alias if it is not null.
8: * While inserting when we call this function then if 'N'
9: * is returned then proceed else throw an error.
10: *************************************************************/
11: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
12: g_module_name VARCHAR2(100) := 'pa.plsql.Pa_Planning_Resource_Pvt';
13: FUNCTION Check_pl_alias_unique(
14: p_resource_list_id IN VARCHAR2,
15: p_resource_alias IN VARCHAR2,
343: WHERE lookup_type = 'PA_PLANNING_RESOURCE'
344: AND lookup_code = 'PLANNING_RESOURCE';
345: END IF;
346:
347: IF P_PA_DEBUG_MODE = 'Y' THEN
348: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'g_token1 '|| g_token ,1);
349: END IF;
350: --hr_utility.trace('g_token is : ' || g_token);
351: /******************************************************
344: AND lookup_code = 'PLANNING_RESOURCE';
345: END IF;
346:
347: IF P_PA_DEBUG_MODE = 'Y' THEN
348: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'g_token1 '|| g_token ,1);
349: END IF;
350: --hr_utility.trace('g_token is : ' || g_token);
351: /******************************************************
352: * The below IF Condition is used to check for the
380: ELSE
381: l_object_type := 'RESOURCE_LIST';
382: l_object_id := p_resource_list_id;
383: END IF;
384: IF P_PA_DEBUG_MODE = 'Y' THEN
385: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'p_resource_alias '|| p_resource_alias ,1);
386: END IF;
387:
388: IF p_resource_alias IS NOT NULL THEN
381: l_object_type := 'RESOURCE_LIST';
382: l_object_id := p_resource_list_id;
383: END IF;
384: IF P_PA_DEBUG_MODE = 'Y' THEN
385: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'p_resource_alias '|| p_resource_alias ,1);
386: END IF;
387:
388: IF p_resource_alias IS NOT NULL THEN
389: IF g_amg_flow = 'N' OR g_amg_flow IS NULL THEN
400: 'PLAN_RES', g_token);
401: Return;
402: END IF;
403: END IF;
404: IF P_PA_DEBUG_MODE = 'Y' THEN
405: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'g_token2 '|| g_token ,1);
406: END IF;
407: /******************************************************
408: * If the Resource class code is Null then we need
401: Return;
402: END IF;
403: END IF;
404: IF P_PA_DEBUG_MODE = 'Y' THEN
405: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'g_token2 '|| g_token ,1);
406: END IF;
407: /******************************************************
408: * If the Resource class code is Null then we need
409: * to fetch it from the cursor get_class_details
426: ELSE
427: l_res_class_code := p_resource_class_code;
428: END IF;
429:
430: IF P_PA_DEBUG_MODE = 'Y' THEN
431: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_res_class_code '|| l_res_class_code ,1);
432: END IF;
433: IF p_resource_class_id IS NULL
434: THEN
427: l_res_class_code := p_resource_class_code;
428: END IF;
429:
430: IF P_PA_DEBUG_MODE = 'Y' THEN
431: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_res_class_code '|| l_res_class_code ,1);
432: END IF;
433: IF p_resource_class_id IS NULL
434: THEN
435: BEGIN
446: ELSE
447: l_res_class_id := p_resource_class_id;
448: END IF;
449:
450: IF P_PA_DEBUG_MODE = 'Y' THEN
451: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_res_class_id '|| l_res_class_id ,1);
452: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'p_resource_class_id '|| p_resource_class_id ,1);
453: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'p_resource_class_code '|| p_resource_class_code ,1);
454: END IF;
447: l_res_class_id := p_resource_class_id;
448: END IF;
449:
450: IF P_PA_DEBUG_MODE = 'Y' THEN
451: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_res_class_id '|| l_res_class_id ,1);
452: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'p_resource_class_id '|| p_resource_class_id ,1);
453: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'p_resource_class_code '|| p_resource_class_code ,1);
454: END IF;
455: -- If both the class code and ID have been passed in, validate
448: END IF;
449:
450: IF P_PA_DEBUG_MODE = 'Y' THEN
451: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_res_class_id '|| l_res_class_id ,1);
452: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'p_resource_class_id '|| p_resource_class_id ,1);
453: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'p_resource_class_code '|| p_resource_class_code ,1);
454: END IF;
455: -- If both the class code and ID have been passed in, validate
456: -- that they are a valid pair - this is for AMG flows mostly
449:
450: IF P_PA_DEBUG_MODE = 'Y' THEN
451: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_res_class_id '|| l_res_class_id ,1);
452: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'p_resource_class_id '|| p_resource_class_id ,1);
453: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'p_resource_class_code '|| p_resource_class_code ,1);
454: END IF;
455: -- If both the class code and ID have been passed in, validate
456: -- that they are a valid pair - this is for AMG flows mostly
457: -- as the page should always pass in values which are in sync.
483: * like res_type_id, res_type_enabled_flag and resource_class_flag.
484: * If the cursor does not return anything then we need to throw an error
485: * and Return.
486: *********************************************************/
487: IF P_PA_DEBUG_MODE = 'Y' THEN
488: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'p_res_format_id '|| p_res_format_id ,1);
489: END IF;
490: IF p_res_format_id IS NOT NULL THEN
491: OPEN get_fmt_details;
484: * If the cursor does not return anything then we need to throw an error
485: * and Return.
486: *********************************************************/
487: IF P_PA_DEBUG_MODE = 'Y' THEN
488: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'p_res_format_id '|| p_res_format_id ,1);
489: END IF;
490: IF p_res_format_id IS NOT NULL THEN
491: OPEN get_fmt_details;
492: FETCH get_fmt_details into l_fmt_details;
500: Return;
501: END IF;
502: CLOSE get_fmt_details;
503: END IF;
504: IF P_PA_DEBUG_MODE = 'Y' THEN
505: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fmt_details.res_type_id '|| l_fmt_details.res_type_id ,1);
506: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fmt_details.resource_class_flag '|| l_fmt_details.resource_class_flag ,1);
507: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fmt_details.res_type_enabled_flag '|| l_fmt_details.res_type_enabled_flag ,1);
508: END IF;
501: END IF;
502: CLOSE get_fmt_details;
503: END IF;
504: IF P_PA_DEBUG_MODE = 'Y' THEN
505: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fmt_details.res_type_id '|| l_fmt_details.res_type_id ,1);
506: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fmt_details.resource_class_flag '|| l_fmt_details.resource_class_flag ,1);
507: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fmt_details.res_type_enabled_flag '|| l_fmt_details.res_type_enabled_flag ,1);
508: END IF;
509: /**********************************************************
502: CLOSE get_fmt_details;
503: END IF;
504: IF P_PA_DEBUG_MODE = 'Y' THEN
505: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fmt_details.res_type_id '|| l_fmt_details.res_type_id ,1);
506: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fmt_details.resource_class_flag '|| l_fmt_details.resource_class_flag ,1);
507: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fmt_details.res_type_enabled_flag '|| l_fmt_details.res_type_enabled_flag ,1);
508: END IF;
509: /**********************************************************
510: * This If condition checks if Resource is a part of the format.
503: END IF;
504: IF P_PA_DEBUG_MODE = 'Y' THEN
505: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fmt_details.res_type_id '|| l_fmt_details.res_type_id ,1);
506: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fmt_details.resource_class_flag '|| l_fmt_details.resource_class_flag ,1);
507: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fmt_details.res_type_enabled_flag '|| l_fmt_details.res_type_enabled_flag ,1);
508: END IF;
509: /**********************************************************
510: * This If condition checks if Resource is a part of the format.
511: * It makes use of the Values returned by the Prev cursor. ie
524: CLOSE get_res_type;
525: ELSE
526: l_res_type := null;
527: END IF;
528: IF P_PA_DEBUG_MODE = 'Y' THEN
529: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_res_type '|| l_res_type ,1);
530: END IF;
531: /***************************************************************
532: * Before Call to Validate_Resource_Planning Procedure,
525: ELSE
526: l_res_type := null;
527: END IF;
528: IF P_PA_DEBUG_MODE = 'Y' THEN
529: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_res_type '|| l_res_type ,1);
530: END IF;
531: /***************************************************************
532: * Before Call to Validate_Resource_Planning Procedure,
533: * The values for some of the variables being passed need to be set.
583: p_res_assignment_id => NULL);
584: --hr_utility.trace('after g_token is : ' || g_token);
585: END IF;
586: END IF;
587: IF P_PA_DEBUG_MODE = 'Y' THEN
588: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_resource_code '|| l_resource_code ,1);
589: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_resource_name '|| l_resource_name ,1);
590: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'g_token3 '|| g_token ,1);
591: END IF;
584: --hr_utility.trace('after g_token is : ' || g_token);
585: END IF;
586: END IF;
587: IF P_PA_DEBUG_MODE = 'Y' THEN
588: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_resource_code '|| l_resource_code ,1);
589: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_resource_name '|| l_resource_name ,1);
590: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'g_token3 '|| g_token ,1);
591: END IF;
592:
585: END IF;
586: END IF;
587: IF P_PA_DEBUG_MODE = 'Y' THEN
588: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_resource_code '|| l_resource_code ,1);
589: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_resource_name '|| l_resource_name ,1);
590: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'g_token3 '|| g_token ,1);
591: END IF;
592:
593: IF p_resource_alias IS NULL AND (g_amg_flow = 'N' OR g_amg_flow IS NULL)
586: END IF;
587: IF P_PA_DEBUG_MODE = 'Y' THEN
588: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_resource_code '|| l_resource_code ,1);
589: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_resource_name '|| l_resource_name ,1);
590: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'g_token3 '|| g_token ,1);
591: END IF;
592:
593: IF p_resource_alias IS NULL AND (g_amg_flow = 'N' OR g_amg_flow IS NULL)
594: THEN
624: P_Job_Id => l_inc_job_id,
625: P_Incur_By_Role_Id => l_inc_role_id,
626: P_Person_Type_Code => l_inc_person_type,
627: P_Inc_By_Res_Class_Code => l_inc_class_code);
628: IF P_PA_DEBUG_MODE = 'Y' THEN
629: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fin_cat_name '|| l_fin_cat_name ,1);
630: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_org_name '|| l_org_name ,1);
631: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_supplier_name '|| l_supplier_name ,1);
632: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_role_name '|| l_role_name ,1);
625: P_Incur_By_Role_Id => l_inc_role_id,
626: P_Person_Type_Code => l_inc_person_type,
627: P_Inc_By_Res_Class_Code => l_inc_class_code);
628: IF P_PA_DEBUG_MODE = 'Y' THEN
629: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fin_cat_name '|| l_fin_cat_name ,1);
630: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_org_name '|| l_org_name ,1);
631: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_supplier_name '|| l_supplier_name ,1);
632: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_role_name '|| l_role_name ,1);
633: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_inc_by_name '|| l_inc_by_name ,1);
626: P_Person_Type_Code => l_inc_person_type,
627: P_Inc_By_Res_Class_Code => l_inc_class_code);
628: IF P_PA_DEBUG_MODE = 'Y' THEN
629: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fin_cat_name '|| l_fin_cat_name ,1);
630: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_org_name '|| l_org_name ,1);
631: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_supplier_name '|| l_supplier_name ,1);
632: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_role_name '|| l_role_name ,1);
633: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_inc_by_name '|| l_inc_by_name ,1);
634: END IF;
627: P_Inc_By_Res_Class_Code => l_inc_class_code);
628: IF P_PA_DEBUG_MODE = 'Y' THEN
629: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fin_cat_name '|| l_fin_cat_name ,1);
630: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_org_name '|| l_org_name ,1);
631: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_supplier_name '|| l_supplier_name ,1);
632: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_role_name '|| l_role_name ,1);
633: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_inc_by_name '|| l_inc_by_name ,1);
634: END IF;
635: SELECT g_token ||
628: IF P_PA_DEBUG_MODE = 'Y' THEN
629: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fin_cat_name '|| l_fin_cat_name ,1);
630: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_org_name '|| l_org_name ,1);
631: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_supplier_name '|| l_supplier_name ,1);
632: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_role_name '|| l_role_name ,1);
633: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_inc_by_name '|| l_inc_by_name ,1);
634: END IF;
635: SELECT g_token ||
636: decode(l_fin_cat_name, NULL, NULL, '-' || l_fin_cat_name) ||
629: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_fin_cat_name '|| l_fin_cat_name ,1);
630: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_org_name '|| l_org_name ,1);
631: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_supplier_name '|| l_supplier_name ,1);
632: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_role_name '|| l_role_name ,1);
633: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_inc_by_name '|| l_inc_by_name ,1);
634: END IF;
635: SELECT g_token ||
636: decode(l_fin_cat_name, NULL, NULL, '-' || l_fin_cat_name) ||
637: decode(l_org_name, NULL, NULL, '-' || l_org_name) ||
639: decode(l_role_name, NULL, NULL, '-' || l_role_name) ||
640: decode(l_inc_by_name, NULL, NULL, '-' || l_inc_by_name)
641: INTO g_token
642: FROM dual;
643: IF P_PA_DEBUG_MODE = 'Y' THEN
644: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'g_token4 '|| g_token ,1);
645: END IF;
646: IF l_res_type IS NULL THEN
647: g_token := replace(g_token, ' -', ' ');
640: decode(l_inc_by_name, NULL, NULL, '-' || l_inc_by_name)
641: INTO g_token
642: FROM dual;
643: IF P_PA_DEBUG_MODE = 'Y' THEN
644: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'g_token4 '|| g_token ,1);
645: END IF;
646: IF l_res_type IS NULL THEN
647: g_token := replace(g_token, ' -', ' ');
648: END IF;
646: IF l_res_type IS NULL THEN
647: g_token := replace(g_token, ' -', ' ');
648: END IF;
649: g_token := g_token || ':';
650: IF P_PA_DEBUG_MODE = 'Y' THEN
651: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'g_token5 '|| g_token ,1);
652: END IF;
653: --hr_utility.trace('after all others g_token is : ' || g_token);
654: END IF;
647: g_token := replace(g_token, ' -', ' ');
648: END IF;
649: g_token := g_token || ':';
650: IF P_PA_DEBUG_MODE = 'Y' THEN
651: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'g_token5 '|| g_token ,1);
652: END IF;
653: --hr_utility.trace('after all others g_token is : ' || g_token);
654: END IF;
655: /**************************************************************
705: x_incur_by_res_flag => l_incur_by_res_flag,
706: x_return_status => x_return_status,
707: x_msg_data => x_error_msg_data,
708: x_msg_count => x_msg_count);
709: IF P_PA_DEBUG_MODE = 'Y' THEN
710: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling Validate_Planning_Resource x_return_status '|| x_return_status ,1);
711: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling Validate_Planning_Resource x_error_msg_data '|| x_error_msg_data ,1);
712: END IF;
713: -- dbms_output.put_line('- After Validate_plan_res l_vendor_id IS : '|| l_vendor_id);
706: x_return_status => x_return_status,
707: x_msg_data => x_error_msg_data,
708: x_msg_count => x_msg_count);
709: IF P_PA_DEBUG_MODE = 'Y' THEN
710: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling Validate_Planning_Resource x_return_status '|| x_return_status ,1);
711: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling Validate_Planning_Resource x_error_msg_data '|| x_error_msg_data ,1);
712: END IF;
713: -- dbms_output.put_line('- After Validate_plan_res l_vendor_id IS : '|| l_vendor_id);
714:
707: x_msg_data => x_error_msg_data,
708: x_msg_count => x_msg_count);
709: IF P_PA_DEBUG_MODE = 'Y' THEN
710: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling Validate_Planning_Resource x_return_status '|| x_return_status ,1);
711: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling Validate_Planning_Resource x_error_msg_data '|| x_error_msg_data ,1);
712: END IF;
713: -- dbms_output.put_line('- After Validate_plan_res l_vendor_id IS : '|| l_vendor_id);
714:
715:
834: RETURN;
835: END IF;
836: END IF;
837: END IF;
838: IF P_PA_DEBUG_MODE = 'Y' THEN
839: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling PA_GET_RESOURCE.Get_Resource ' ,1);
840: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling pa_create_resource.Create_Resource ' ,1);
841: END IF;
842:
835: END IF;
836: END IF;
837: END IF;
838: IF P_PA_DEBUG_MODE = 'Y' THEN
839: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling PA_GET_RESOURCE.Get_Resource ' ,1);
840: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling pa_create_resource.Create_Resource ' ,1);
841: END IF;
842:
843: /***********************************************************
836: END IF;
837: END IF;
838: IF P_PA_DEBUG_MODE = 'Y' THEN
839: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling PA_GET_RESOURCE.Get_Resource ' ,1);
840: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling pa_create_resource.Create_Resource ' ,1);
841: END IF;
842:
843: /***********************************************************
844: * Do a Check to determine the uniqueness of the resource
900: l_unique_res_list := 'N';
901: WHEN OTHERS THEN
902: l_unique_res_list := 'Y';
903: END;
904: IF P_PA_DEBUG_MODE = 'Y' THEN
905: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_unique_res_list '||l_unique_res_list ,1);
906: END IF;
907:
908: IF l_unique_res_list = 'Y' THEN
901: WHEN OTHERS THEN
902: l_unique_res_list := 'Y';
903: END;
904: IF P_PA_DEBUG_MODE = 'Y' THEN
905: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'l_unique_res_list '||l_unique_res_list ,1);
906: END IF;
907:
908: IF l_unique_res_list = 'Y' THEN
909: x_msg_count := x_msg_count + 1;
956: --Added for CBS bug13535688 & 13546557
957: /* l_expenditure_type:=p_expenditure_type;
958: Commented the above line for Bug13546557
959: */
960: IF P_PA_DEBUG_MODE = 'Y' THEN
961: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'Calling pa_res_list_members_pkg.insert_row',1);
962: END IF;
963:
964: pa_res_list_members_pkg.insert_row
957: /* l_expenditure_type:=p_expenditure_type;
958: Commented the above line for Bug13546557
959: */
960: IF P_PA_DEBUG_MODE = 'Y' THEN
961: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'Calling pa_res_list_members_pkg.insert_row',1);
962: END IF;
963:
964: pa_res_list_members_pkg.insert_row
965: (p_resource_list_member_id => l_res_list_member_id,
1031: x_msg_count => x_msg_count,
1032: x_return_status => x_return_status ,
1033: x_error_msg_data => x_error_msg_data );
1034:
1035: IF P_PA_DEBUG_MODE = 'Y' THEN
1036: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling pa_res_list_members_pkg.insert_row x_return_status '|| x_return_status ,1);
1037: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling pa_res_list_members_pkg.insert_row x_error_msg_data '|| x_error_msg_data ,1);
1038: END IF;
1039: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1032: x_return_status => x_return_status ,
1033: x_error_msg_data => x_error_msg_data );
1034:
1035: IF P_PA_DEBUG_MODE = 'Y' THEN
1036: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling pa_res_list_members_pkg.insert_row x_return_status '|| x_return_status ,1);
1037: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling pa_res_list_members_pkg.insert_row x_error_msg_data '|| x_error_msg_data ,1);
1038: END IF;
1039: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1033: x_error_msg_data => x_error_msg_data );
1034:
1035: IF P_PA_DEBUG_MODE = 'Y' THEN
1036: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling pa_res_list_members_pkg.insert_row x_return_status '|| x_return_status ,1);
1037: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'After calling pa_res_list_members_pkg.insert_row x_error_msg_data '|| x_error_msg_data ,1);
1038: END IF;
1039: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1041: x_msg_count := x_msg_count + 1;
1172: END IF;
1173: --Increment the x_record_version_number after Insert.
1174: x_resource_list_member_id := l_res_list_member_id;
1175: x_record_version_number := 1;
1176: IF P_PA_DEBUG_MODE = 'Y' THEN
1177: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'x_resource_list_member_id '|| x_resource_list_member_id ,1);
1178: END IF;
1179: /**************************************************/
1180: END Create_Planning_Resource;
1173: --Increment the x_record_version_number after Insert.
1174: x_resource_list_member_id := l_res_list_member_id;
1175: x_record_version_number := 1;
1176: IF P_PA_DEBUG_MODE = 'Y' THEN
1177: pa_debug.write('Create_Planning_Resource: ' || g_module_name,'x_resource_list_member_id '|| x_resource_list_member_id ,1);
1178: END IF;
1179: /**************************************************/
1180: END Create_Planning_Resource;
1181: /*************************************/
1500: l_exist_res_list := 'N';
1501: WHEN OTHERS THEN
1502: FND_MSG_PUB.add_exc_msg( p_pkg_name =>
1503: 'pa_planning_resource_pvt.delete_planning_resource'
1504: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
1505: l_msg_count := l_msg_count + 1;
1506: x_msg_count := l_msg_count;
1507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1508: END;