[Home] [Help]
669:
670: IF (p_calling_module IN ('EXCHANGE')) THEN
671: --check if task reference is null
672: IF p_reference_task_id IS NULL THEN
673: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_REF_EMPTY');
674: END IF;
675: END IF;
676:
677: IF (p_calling_module IN ('FORMS', 'EXCHANGE', 'SELF_SERVICE')) THEN
676:
677: IF (p_calling_module IN ('FORMS', 'EXCHANGE', 'SELF_SERVICE')) THEN
678: --check if task_name is null
679: IF p_task_name IS NULL THEN
680: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_NAME_EMPTY');
681: END IF;
682: END IF;
683:
684: -- Set controls
716: IF ((p_pm_product_code IS NOT NULL) OR
717: (p_pm_product_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)) and
718: (l_add_task_allowed = 'N') THEN
719: --throw error PA_PR_PM_CANNOT_ADDTASK
720: PA_UTILS.ADD_MESSAGE('PA', 'PA_PR_PM_CANNOT_ADDTASK');
721: l_msg_count := FND_MSG_PUB.count_msg;
722: IF (l_msg_count > 0) THEN
723: x_msg_count := l_msg_count;
724: IF (x_msg_count = 1) THEN
737: -- Check if task number is Unique
738: IF (p_calling_module IN ('FORMS', 'SELF_SERVICE')) THEN
739: If Pa_Task_Utils.Check_Unique_Task_number (p_project_id,
740: p_task_number, NULL ) <> 1 Then
741: PA_UTILS.ADD_MESSAGE('PA', 'PA_ALL_DUPLICATE_NUM');
742: END IF;
743: END IF;
744:
745: -- Check Start Date; will replace by Date roll-up in future
758: p_update_start_date_flag => l_f1,
759: p_update_end_date_flag => l_f2,
760: p_return_status => l_ret);
761: IF (l_ret <> 'S') THEN
762: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
763: p_msg_name => 'PA_SU_INVALID_DATES');
764: END IF;
765: END IF;
766: END IF;
769: -- Check if PRM is installed
770: IF (PA_INSTALL.IS_PRM_LICENSED() = 'Y') THEN
771: -- Work Type is required
772: IF (p_work_type_id IS NULL) THEN
773: PA_UTILS.ADD_MESSAGE('PA','PA_WORK_TYPE_REQ');
774: END IF;
775: END IF;
776: null;
777: END IF;
816: x_err_stack => l_err_stack,
817: x_err_stage => l_err_stage
818: );
819: IF (l_err_code <> 0) THEN
820: PA_UTILS.ADD_MESSAGE('PA', substr(l_err_stage,1,30));
821: END IF;
822: END IF;
823:
824: -- Copy parent task attributes to task.
1101: x_return_status => l_ret,
1102: x_msg_count => l_msg_cnt,
1103: x_msg_data => l_msg_data);
1104: IF (l_ret <> 'S') THEN
1105: PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
1106: END IF;
1107: END IF;
1108:
1109: l_msg_count := FND_MSG_PUB.count_msg;
1118: x_return_status => l_ret,
1119: x_msg_count => l_msg_cnt,
1120: x_msg_data => l_msg_data);
1121: IF (l_ret <> 'S') THEN
1122: PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
1123: END IF;
1124: END IF;
1125:
1126:
1145: -- x_msg_data => l_msg_data);
1146: --commented to suppress redundant messages appearing on
1147: --create task page
1148: /*IF (l_ret <> 'S') THEN
1149: PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
1150: END IF;*/
1151: -- END IF;
1152:
1153:
1165: -- x_return_status => l_ret,
1166: -- x_msg_count => l_msg_cnt,
1167: -- x_msg_data => l_msg_data);
1168: -- IF (l_ret <> 'S') THEN
1169: -- PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
1170: -- END IF;
1171: -- END IF;
1172:
1173: --l_msg_count := FND_MSG_PUB.count_msg;
1184: -- x_return_status => l_ret,
1185: -- x_msg_count => l_msg_cnt,
1186: -- x_msg_data => l_msg_data);
1187: -- IF (l_ret <> 'S') THEN
1188: -- PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
1189: -- END IF;
1190: --END IF;
1191: --End Commenting by rtarway for BUG 3927343
1192:
2305:
2306: IF (p_calling_module IN ('FORMS', 'EXCHANGE', 'SELF_SERVICE')) THEN
2307: --check if task_name is null
2308: IF p_task_name IS NULL THEN
2309: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_NAME_EMPTY');
2310: END IF;
2311: END IF;
2312:
2313: -- Get PM_PRODUCT_CODE
2318: from pa_tasks
2319: where task_id = p_task_id;
2320: EXCEPTION
2321: WHEN NO_DATA_FOUND THEN
2322: PA_UTILS.ADD_MESSAGE('PA','PA_EXP_NO_TASK'); -- specified task does not exist
2323: raise FND_API.G_EXC_ERROR;
2324: END;
2325: ELSE
2326: t_pm_product_code := p_pm_product_code;
2486: l_err_code,
2487: l_err_stage,
2488: l_err_stack);
2489: IF (l_err_code <> 0) Then
2490: PA_UTILS.ADD_MESSAGE('PA', substr(l_err_stage,1,30));
2491: End If;
2492: END IF;
2493: END IF;
2494:
2546: x_return_status => l_ret,
2547: x_msg_count => l_msg_cnt,
2548: x_msg_data => l_msg_data);
2549: IF (l_ret <> 'S') THEN
2550: PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
2551: END IF;
2552: END IF;
2553: END IF;
2554:
2605: x_return_status => l_ret,
2606: x_msg_count => l_msg_cnt,
2607: x_msg_data => l_msg_data);
2608: IF (l_ret <> 'S') THEN
2609: PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
2610: END IF;
2611: END IF;
2612: END IF;
2613:
2643: x_return_status => l_ret,
2644: x_msg_count => l_msg_cnt,
2645: x_msg_data => l_msg_data);
2646: -- IF (l_ret <> 'S') THEN
2647: -- PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
2648: -- END IF;
2649: END IF;
2650: --dbms_output.put_line( 'In update task 10' );
2651:
2661: x_return_status => l_ret,
2662: x_msg_count => l_msg_cnt,
2663: x_msg_data => l_msg_data);
2664: -- IF (l_ret <> 'S') THEN
2665: -- PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
2666: -- END IF;
2667: END IF;
2668:
2669: --dbms_output.put_line( 'In update task 11' );
2680: x_return_status => l_ret,
2681: x_msg_count => l_msg_cnt,
2682: x_msg_data => l_msg_data);
2683: -- IF (l_ret <> 'S') THEN
2684: -- PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
2685: -- END IF;
2686: END IF;
2687:
2688: END IF;
2693: -- Check if PRM is installed
2694: IF (PA_INSTALL.IS_PRM_LICENSED() = 'Y') THEN
2695: -- Work Type is required
2696: IF (p_work_type_id IS NULL) THEN
2697: PA_UTILS.ADD_MESSAGE('PA','PA_WORK_TYPE_REQ');
2698: END IF;
2699: END IF;
2700: null;
2701: END IF;
2734:
2735: --dbms_output.put_line( 'In update task 14 --erro msg '|| l_msg_count);
2736:
2737: IF (l_change_parent_flag <> 'Y') THEN
2738: PA_UTILS.ADD_MESSAGE('PA', 'PA_CANT_CHANGE_PARENT');
2739: END IF;
2740: ELSE
2741: --new parent task is null; cannot change
2742: /* Bug2740269 -- commented the following message populataion. The parent can be null in case of top task
2739: END IF;
2740: ELSE
2741: --new parent task is null; cannot change
2742: /* Bug2740269 -- commented the following message populataion. The parent can be null in case of top task
2743: PA_UTILS.ADD_MESSAGE('PA', 'PA_CANT_CHANGE_PARENT');
2744: */
2745: null;
2746: END IF;
2747: END IF;
3400: from pa_tasks
3401: where task_id = p_task_id;
3402: EXCEPTION
3403: WHEN NO_DATA_FOUND THEN
3404: PA_UTILS.ADD_MESSAGE('PA','PA_EXP_NO_TASK'); -- specified task does not exist
3405: raise FND_API.G_EXC_ERROR;
3406: END;
3407:
3408: -- Set controls
3435:
3436: If (p_calling_module IN ('SELF_SERVICE', 'FORM')) THEN
3437: --Check if task can be deleted;
3438: IF (t_pm_product_code IS NOT NULL) AND (l_delete_task_allowed = 'N') THEN
3439: PA_UTILS.ADD_MESSAGE('PA', 'PA_PR_PM_CANNOT_DELETE');
3440: raise FND_API.G_EXC_ERROR;
3441: END IF;
3442:
3443: /* do not stop delting the last task. FPM changes
3447: --is called from import logic.
3448: THEN
3449: --Check if this is last task;
3450: If (PA_TASK_UTILS.check_last_task(p_task_id) <> 0) THEN
3451: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3452: p_msg_name => 'PA_TK_CANT_DELETE_LAST_TASK');
3453: raise FND_API.G_EXC_ERROR;
3454: END IF;
3455: END IF;
3464: x_err_code => l_err_code,
3465: x_err_stage => l_err_stage,
3466: x_err_stack => l_err_stack);
3467: IF (l_err_code <> 0) THEN
3468: PA_UTILS.ADD_MESSAGE('PA', substr(l_err_stage, 1, 30));
3469: raise FND_API.G_EXC_ERROR;
3470: END IF;
3471: END IF;
3472: -- 4201927 end
3481: x_err_stage => l_err_stage,
3482: x_err_stack => l_err_stack);
3483:
3484: If (l_err_code <> 0) THEN
3485: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3486: p_msg_name => substr(l_err_stage,1,30));
3487: raise FND_API.G_EXC_ERROR;
3488: END IF;
3489:
3683: IF l_task_level > l_task_level_above OR l_task_level = 1
3684: */
3685: IF l_task_level > l_task_level_above OR l_display_sequence = 1
3686: THEN
3687: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3688: p_msg_name => 'PA_TASK_CANNOT_INDENT' );
3689: x_msg_data := 'PA_TASK_CANNOT_INDENT';
3690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3691: RAISE FND_API.G_EXC_ERROR;
3714: x_err_stack => l_err_stack,
3715: x_err_stage => l_err_stage
3716: );
3717: IF (l_err_code <> 0) THEN
3718: PA_UTILS.ADD_MESSAGE('PA', substr(l_err_stage,1,30));
3719: END IF;
3720:
3721: l_msg_count := FND_MSG_PUB.count_msg;
3722:
4059:
4060: --If if the selected task is topmost task then it cannot be outdented.
4061: IF l_top_task_id = p_task_id OR l_task_level = 1
4062: THEN
4063: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4064: p_msg_name => 'PA_TASK_CANNOT_OUTDENT' );
4065: x_msg_data := 'PA_TASK_CANNOT_OUTDENT';
4066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4067: RAISE FND_API.G_EXC_ERROR;
4820: IF length( p_task_prefix||cur_entire_proj_rec.task_number ) > l_task_number_len OR
4821: length( p_task_prefix||cur_entire_proj_rec.task_name ) > l_task_name_len
4822: OR length( p_task_prefix||cur_entire_proj_rec.long_task_name ) > l_long_task_name_len
4823: THEN
4824: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4825: p_msg_name => 'PA_TASK_PREFIX_TOO_LARGE' );
4826: x_msg_data := 'PA_TASK_PREFIX_TOO_LARGE';
4827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4828: RAISE FND_API.G_EXC_ERROR;
4917: WHERE project_id = p_reference_project_id
4918: AND ( display_sequence > -( l_first_seq + 1 ) or display_sequence < 0 );
4919: EXCEPTION
4920: WHEN OTHERS THEN
4921: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
4922: RAISE FND_API.G_EXC_ERROR;
4923: END; */
4924:
4925: EXCEPTION
5109: IF length( p_task_prefix||cur_select_task_rec.task_number ) > l_task_number_len OR
5110: length( p_task_prefix||cur_select_task_rec.task_name ) > l_task_name_len OR
5111: length( p_task_prefix||cur_select_task_rec.long_task_name ) > l_long_task_name_len
5112: THEN
5113: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5114: p_msg_name => 'PA_TASK_PREFIX_TOO_LARGE' );
5115: x_msg_data := 'PA_TASK_PREFIX_TOO_LARGE';
5116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5117: RAISE FND_API.G_EXC_ERROR;
5198: WHERE project_id = p_reference_project_id
5199: AND ( display_sequence > -( l_display_seq + 1 ) or display_sequence < 0 );
5200: EXCEPTION
5201: WHEN OTHERS THEN
5202: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
5203: RAISE FND_API.G_EXC_ERROR;
5204: END;*/
5205:
5206: EXCEPTION
5477: IF length( p_task_prefix||cur_entire_task_rec.task_number ) > l_task_number_len OR
5478: length( p_task_prefix||cur_entire_task_rec.task_name ) > l_task_name_len OR
5479: length( p_task_prefix||cur_entire_task_rec.long_task_name) > l_long_task_name_len
5480: THEN
5481: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5482: p_msg_name => 'PA_TASK_PREFIX_TOO_LARGE' );
5483: x_msg_data := 'PA_TASK_PREFIX_TOO_LARGE';
5484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5485: RAISE FND_API.G_EXC_ERROR;
5576: WHERE project_id = p_reference_project_id
5577: AND ( display_sequence > -( l_first_seq + 1 ) or display_sequence < 0 );
5578: EXCEPTION
5579: WHEN OTHERS THEN
5580: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
5581: RAISE FND_API.G_EXC_ERROR;
5582: END; */
5583:
5584: EXCEPTION
5753: x_error_msg_code => l_error_msg_code );
5754:
5755: IF l_return_status = FND_API.G_RET_STS_ERROR
5756: THEN
5757: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5758: p_msg_name => l_error_msg_code);
5759: x_msg_data := l_error_msg_code;
5760: x_return_status := 'E';
5761: RAISE FND_API.G_EXC_ERROR;
5771: x_error_msg_code => l_error_msg_code );
5772:
5773: IF l_return_status = FND_API.G_RET_STS_ERROR
5774: THEN
5775: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5776: p_msg_name => l_error_msg_code);
5777: x_msg_data := l_error_msg_code;
5778: x_return_status := 'E';
5779: RAISE FND_API.G_EXC_ERROR;
5782:
5783:
5784: IF p_reference_project_id <> p_project_id
5785: THEN
5786: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5787: p_msg_name => 'PA_TASK_MOV_NOT_ALLOWED' );
5788: x_msg_data := 'PA_TASK_MOV_NOT_ALLOWED';
5789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5790: RAISE FND_API.G_EXC_ERROR;
5838: x_err_stack => l_err_stack,
5839: x_err_stage => l_err_stage
5840: );
5841: IF (l_err_code <> 0) THEN
5842: PA_UTILS.ADD_MESSAGE('PA', substr(l_err_stage,1,30));
5843: END IF;
5844: -- HSIU changes ends here
5845:
5846: l_parent_task_id := p_reference_task_id;
5999: AND ( ( display_sequence > l_min_display_sequence and
6000: display_sequence <= l_max_display_sequence ) or display_sequence < 0 );
6001: EXCEPTION
6002: WHEN OTHERS THEN
6003: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
6004: RAISE FND_API.G_EXC_ERROR;
6005: END; */
6006:
6007: EXCEPTION
6199: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_PVT : SET_UNSET_FINANCIAL_TASK :l_error_code :'||l_error_code||'l_error_msg_code :'||l_error_msg_code;
6200: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
6201: l_debug_level3);
6202: END IF;
6203: PA_UTILS.ADD_MESSAGE(
6204: p_app_short_name => 'PA'
6205: , p_msg_name => substr(l_error_msg_code,1,30)--bug 3735089 used substr
6206: );
6207: RAISE FND_API.G_EXC_ERROR;