[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:
2323:
2324: IF (p_calling_module IN ('FORMS', 'EXCHANGE', 'SELF_SERVICE')) THEN
2325: --check if task_name is null
2326: IF p_task_name IS NULL THEN
2327: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_NAME_EMPTY');
2328: END IF;
2329: END IF;
2330:
2331: -- Get PM_PRODUCT_CODE
2336: from pa_tasks
2337: where task_id = p_task_id;
2338: EXCEPTION
2339: WHEN NO_DATA_FOUND THEN
2340: PA_UTILS.ADD_MESSAGE('PA','PA_EXP_NO_TASK'); -- specified task does not exist
2341: raise FND_API.G_EXC_ERROR;
2342: END;
2343: ELSE
2344: t_pm_product_code := p_pm_product_code;
2504: l_err_code,
2505: l_err_stage,
2506: l_err_stack);
2507: IF (l_err_code <> 0) Then
2508: PA_UTILS.ADD_MESSAGE('PA', substr(l_err_stage,1,30));
2509: End If;
2510: END IF;
2511: END IF;
2512:
2564: x_return_status => l_ret,
2565: x_msg_count => l_msg_cnt,
2566: x_msg_data => l_msg_data);
2567: IF (l_ret <> 'S') THEN
2568: PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
2569: END IF;
2570: END IF;
2571: END IF;
2572:
2623: x_return_status => l_ret,
2624: x_msg_count => l_msg_cnt,
2625: x_msg_data => l_msg_data);
2626: IF (l_ret <> 'S') THEN
2627: PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
2628: END IF;
2629: END IF;
2630: END IF;
2631:
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: --dbms_output.put_line( 'In update task 10' );
2669:
2679: x_return_status => l_ret,
2680: x_msg_count => l_msg_cnt,
2681: x_msg_data => l_msg_data);
2682: -- IF (l_ret <> 'S') THEN
2683: -- PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
2684: -- END IF;
2685: END IF;
2686:
2687: --dbms_output.put_line( 'In update task 11' );
2698: x_return_status => l_ret,
2699: x_msg_count => l_msg_cnt,
2700: x_msg_data => l_msg_data);
2701: -- IF (l_ret <> 'S') THEN
2702: -- PA_UTILS.ADD_MESSAGE('PA', l_msg_data);
2703: -- END IF;
2704: END IF;
2705:
2706: END IF;
2711: -- Check if PRM is installed
2712: IF (PA_INSTALL.IS_PRM_LICENSED() = 'Y') THEN
2713: -- Work Type is required
2714: IF (p_work_type_id IS NULL) THEN
2715: PA_UTILS.ADD_MESSAGE('PA','PA_WORK_TYPE_REQ');
2716: END IF;
2717: END IF;
2718: null;
2719: END IF;
2752:
2753: --dbms_output.put_line( 'In update task 14 --erro msg '|| l_msg_count);
2754:
2755: IF (l_change_parent_flag <> 'Y') THEN
2756: PA_UTILS.ADD_MESSAGE('PA', 'PA_CANT_CHANGE_PARENT');
2757: END IF;
2758: ELSE
2759: --new parent task is null; cannot change
2760: /* Bug2740269 -- commented the following message populataion. The parent can be null in case of top task
2757: END IF;
2758: ELSE
2759: --new parent task is null; cannot change
2760: /* Bug2740269 -- commented the following message populataion. The parent can be null in case of top task
2761: PA_UTILS.ADD_MESSAGE('PA', 'PA_CANT_CHANGE_PARENT');
2762: */
2763: null;
2764: END IF;
2765: END IF;
3418: from pa_tasks
3419: where task_id = p_task_id;
3420: EXCEPTION
3421: WHEN NO_DATA_FOUND THEN
3422: PA_UTILS.ADD_MESSAGE('PA','PA_EXP_NO_TASK'); -- specified task does not exist
3423: raise FND_API.G_EXC_ERROR;
3424: END;
3425:
3426: -- Set controls
3453:
3454: If (p_calling_module IN ('SELF_SERVICE', 'FORM')) THEN
3455: --Check if task can be deleted;
3456: IF (t_pm_product_code IS NOT NULL) AND (l_delete_task_allowed = 'N') THEN
3457: PA_UTILS.ADD_MESSAGE('PA', 'PA_PR_PM_CANNOT_DELETE');
3458: raise FND_API.G_EXC_ERROR;
3459: END IF;
3460:
3461: /* do not stop delting the last task. FPM changes
3465: --is called from import logic.
3466: THEN
3467: --Check if this is last task;
3468: If (PA_TASK_UTILS.check_last_task(p_task_id) <> 0) THEN
3469: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3470: p_msg_name => 'PA_TK_CANT_DELETE_LAST_TASK');
3471: raise FND_API.G_EXC_ERROR;
3472: END IF;
3473: END IF;
3482: x_err_code => l_err_code,
3483: x_err_stage => l_err_stage,
3484: x_err_stack => l_err_stack);
3485: IF (l_err_code <> 0) THEN
3486: PA_UTILS.ADD_MESSAGE('PA', substr(l_err_stage, 1, 30));
3487: raise FND_API.G_EXC_ERROR;
3488: END IF;
3489: END IF;
3490: -- 4201927 end
3499: x_err_stage => l_err_stage,
3500: x_err_stack => l_err_stack);
3501:
3502: If (l_err_code <> 0) THEN
3503: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3504: p_msg_name => substr(l_err_stage,1,30));
3505: raise FND_API.G_EXC_ERROR;
3506: END IF;
3507:
3701: IF l_task_level > l_task_level_above OR l_task_level = 1
3702: */
3703: IF l_task_level > l_task_level_above OR l_display_sequence = 1
3704: THEN
3705: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3706: p_msg_name => 'PA_TASK_CANNOT_INDENT' );
3707: x_msg_data := 'PA_TASK_CANNOT_INDENT';
3708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3709: RAISE FND_API.G_EXC_ERROR;
3732: x_err_stack => l_err_stack,
3733: x_err_stage => l_err_stage
3734: );
3735: IF (l_err_code <> 0) THEN
3736: PA_UTILS.ADD_MESSAGE('PA', substr(l_err_stage,1,30));
3737: END IF;
3738:
3739: l_msg_count := FND_MSG_PUB.count_msg;
3740:
4077:
4078: --If if the selected task is topmost task then it cannot be outdented.
4079: IF l_top_task_id = p_task_id OR l_task_level = 1
4080: THEN
4081: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4082: p_msg_name => 'PA_TASK_CANNOT_OUTDENT' );
4083: x_msg_data := 'PA_TASK_CANNOT_OUTDENT';
4084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4085: RAISE FND_API.G_EXC_ERROR;
4840: IF length( p_task_prefix||cur_entire_proj_rec.task_number ) > l_task_number_len OR
4841: length( p_task_prefix||cur_entire_proj_rec.task_name ) > l_task_name_len
4842: OR length( p_task_prefix||cur_entire_proj_rec.long_task_name ) > l_long_task_name_len
4843: THEN
4844: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4845: p_msg_name => 'PA_TASK_PREFIX_TOO_LARGE' );
4846: x_msg_data := 'PA_TASK_PREFIX_TOO_LARGE';
4847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4848: RAISE FND_API.G_EXC_ERROR;
4937: WHERE project_id = p_reference_project_id
4938: AND ( display_sequence > -( l_first_seq + 1 ) or display_sequence < 0 );
4939: EXCEPTION
4940: WHEN OTHERS THEN
4941: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
4942: RAISE FND_API.G_EXC_ERROR;
4943: END; */
4944:
4945: EXCEPTION
5131: IF length( p_task_prefix||cur_select_task_rec.task_number ) > l_task_number_len OR
5132: length( p_task_prefix||cur_select_task_rec.task_name ) > l_task_name_len OR
5133: length( p_task_prefix||cur_select_task_rec.long_task_name ) > l_long_task_name_len
5134: THEN
5135: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5136: p_msg_name => 'PA_TASK_PREFIX_TOO_LARGE' );
5137: x_msg_data := 'PA_TASK_PREFIX_TOO_LARGE';
5138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5139: RAISE FND_API.G_EXC_ERROR;
5220: WHERE project_id = p_reference_project_id
5221: AND ( display_sequence > -( l_display_seq + 1 ) or display_sequence < 0 );
5222: EXCEPTION
5223: WHEN OTHERS THEN
5224: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
5225: RAISE FND_API.G_EXC_ERROR;
5226: END;*/
5227:
5228: EXCEPTION
5501: IF length( p_task_prefix||cur_entire_task_rec.task_number ) > l_task_number_len OR
5502: length( p_task_prefix||cur_entire_task_rec.task_name ) > l_task_name_len OR
5503: length( p_task_prefix||cur_entire_task_rec.long_task_name) > l_long_task_name_len
5504: THEN
5505: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5506: p_msg_name => 'PA_TASK_PREFIX_TOO_LARGE' );
5507: x_msg_data := 'PA_TASK_PREFIX_TOO_LARGE';
5508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5509: RAISE FND_API.G_EXC_ERROR;
5600: WHERE project_id = p_reference_project_id
5601: AND ( display_sequence > -( l_first_seq + 1 ) or display_sequence < 0 );
5602: EXCEPTION
5603: WHEN OTHERS THEN
5604: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
5605: RAISE FND_API.G_EXC_ERROR;
5606: END; */
5607:
5608: EXCEPTION
5787: x_error_msg_code => l_error_msg_code );
5788:
5789: IF l_return_status = FND_API.G_RET_STS_ERROR
5790: THEN
5791: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5792: p_msg_name => l_error_msg_code);
5793: x_msg_data := l_error_msg_code;
5794: x_return_status := 'E';
5795: RAISE FND_API.G_EXC_ERROR;
5805: x_error_msg_code => l_error_msg_code );
5806:
5807: IF l_return_status = FND_API.G_RET_STS_ERROR
5808: THEN
5809: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5810: p_msg_name => l_error_msg_code);
5811: x_msg_data := l_error_msg_code;
5812: x_return_status := 'E';
5813: RAISE FND_API.G_EXC_ERROR;
5816:
5817:
5818: IF p_reference_project_id <> p_project_id
5819: THEN
5820: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
5821: p_msg_name => 'PA_TASK_MOV_NOT_ALLOWED' );
5822: x_msg_data := 'PA_TASK_MOV_NOT_ALLOWED';
5823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5824: RAISE FND_API.G_EXC_ERROR;
5872: x_err_stack => l_err_stack,
5873: x_err_stage => l_err_stage
5874: );
5875: IF (l_err_code <> 0) THEN
5876: PA_UTILS.ADD_MESSAGE('PA', substr(l_err_stage,1,30));
5877: END IF;
5878: -- HSIU changes ends here
5879:
5880: l_parent_task_id := p_reference_task_id;
6049: AND ( ( display_sequence > l_min_display_sequence and
6050: display_sequence <= l_max_display_sequence ) or display_sequence < 0 );
6051: EXCEPTION
6052: WHEN OTHERS THEN
6053: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
6054: RAISE FND_API.G_EXC_ERROR;
6055: END; */
6056:
6057: EXCEPTION
6267: 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;
6268: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
6269: l_debug_level3);
6270: END IF;
6271: PA_UTILS.ADD_MESSAGE(
6272: p_app_short_name => 'PA'
6273: , p_msg_name => substr(l_error_msg_code,1,30)--bug 3735089 used substr
6274: );
6275: RAISE FND_API.G_EXC_ERROR;
6290: , x_err_stage => l_err_stage
6291: , x_err_stack => l_err_stack);
6292: IF (l_error_code <> 0) THEN
6293: l_err_message := FND_MESSAGE.GET_STRING('PA',l_err_stage) ;
6294: PA_UTILS.ADD_MESSAGE (p_app_short_name => 'PA',
6295: p_msg_name => 'PA_PS_TASK_NAME_NUM_ERR',
6296: p_token1 => 'TASK_NAME',
6297: p_value1 => l_task_name,
6298: p_token2 => 'TASK_NUMBER',