DBA Data[Home] [Help]

APPS.PA_TASKS_MAINT_UTILS dependencies on PA_TASKS_MAINT_UTILS

Line 1: package body PA_TASKS_MAINT_UTILS as

1: package body PA_TASKS_MAINT_UTILS as
2: /*$Header: PATSKSUB.pls 120.9 2009/07/21 14:10:26 anuragar ship $*/
3:
4: --Begin add rtarway FP-M development ,
5: g_module_name VARCHAR2(100) := 'PA_TASKS_MAINT_UTILS';

Line 5: g_module_name VARCHAR2(100) := 'PA_TASKS_MAINT_UTILS';

1: package body PA_TASKS_MAINT_UTILS as
2: /*$Header: PATSKSUB.pls 120.9 2009/07/21 14:10:26 anuragar ship $*/
3:
4: --Begin add rtarway FP-M development ,
5: g_module_name VARCHAR2(100) := 'PA_TASKS_MAINT_UTILS';
6: --End add rtarway FP-M development
7:
8: procedure CHECK_TASK_MGR_NAME_OR_ID
9: (

Line 48: IF (PA_TASKS_MAINT_UTILS.GET_TASK_MANAGER_PROFILE = 'N') THEN

44: IF (p_task_mgr_id IS NULL OR p_task_mgr_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) THEN
45: -- ID is empty
46: IF (p_task_mgr_name IS NOT NULL AND p_task_mgr_name<> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) THEN
47: --Added for task manager changes;
48: IF (PA_TASKS_MAINT_UTILS.GET_TASK_MANAGER_PROFILE = 'N') THEN
49: --select from pa_employees
50: OPEN c;
51: LOOP
52: FETCH c INTO l_current_id;

Line 88: IF (PA_TASKS_MAINT_UTILS.GET_TASK_MANAGER_PROFILE = 'N') THEN

84: ELSE
85: -- ID is not empty;
86: IF (p_check_id_flag = 'Y') THEN
87: --Added for task manager changes;
88: IF (PA_TASKS_MAINT_UTILS.GET_TASK_MANAGER_PROFILE = 'N') THEN
89: --select from pa_employees
90: SELECT person_id
91: INTO x_task_mgr_id
92: FROM pa_employees

Line 112: IF (PA_TASKS_MAINT_UTILS.GET_TASK_MANAGER_PROFILE = 'N') THEN

108: ELSIF (p_check_id_flag = 'N') THEN
109: x_task_mgr_id := p_task_mgr_id;
110: ELSIF (p_check_id_flag = 'A') THEN
111: --Added for task manager changes;
112: IF (PA_TASKS_MAINT_UTILS.GET_TASK_MANAGER_PROFILE = 'N') THEN
113: --select from pa_employees
114: OPEN c;
115: LOOP
116: FETCH c INTO l_current_id;

Line 167: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',

163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
164: -- 4537865 : RESET x_error_msg_code also
165: x_error_msg_code := SQLCODE;
166:
167: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',
168: p_procedure_name => 'CHECK_TASK_MGR_NAME_OR_ID');
169: RAISE;
170: END CHECK_TASK_MGR_NAME_OR_ID;
171:

Line 261: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',

257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
258: -- 4537865 : RESET x_error_msg_code also
259: x_error_msg_code := SQLCODE ;
260:
261: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',
262: p_procedure_name => 'CHECK_PROJECT_NAME_OR_ID');
263: RAISE;
264: END CHECK_PROJECT_NAME_OR_ID;
265:

Line 356: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',

352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
353: -- 4537865 : RESET x_error_msg_code also
354: x_error_msg_code := SQLCODE;
355:
356: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',
357: p_procedure_name => 'CHECK_TASK_NAME_OR_ID');
358: RAISE;
359: END CHECK_TASK_NAME_OR_ID;
360:

Line 634: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',

630: -- 4537865 : RESET other OUT params too
631: x_msg_count := 1;
632: x_msg_data := SUBSTRB(SQLERRM ,1,240);
633:
634: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',
635: p_procedure_name => 'CHECK_START_DATE',
636: p_error_text => x_msg_data); -- 4537865
637: RAISE;
638: END Check_Start_Date;

Line 817: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',

813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
814: -- 4537865 : RESET other OUT params too
815: x_msg_count := 1;
816: x_msg_data := SUBSTRB(SQLERRM ,1,240);
817: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',
818: p_procedure_name => 'CHECK_END_DATE',
819: p_error_text => x_msg_data); -- 4537865
820: END Check_End_Date;
821:

Line 943: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',

939: -- 4537865 : RESET other OUT params too
940: x_msg_count := 1;
941: x_msg_data := SUBSTRB(SQLERRM ,1,240);
942:
943: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',
944: p_procedure_name => 'CHECK_SCHEDULE_DATES',
945: p_error_text => x_msg_data ); -- 4537865
946: END CHECK_SCHEDULE_DATES;
947:

Line 992: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',

988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
989: -- 4537865 : RESET other OUT params too
990: x_msg_count := 1;
991: x_msg_data := SUBSTRB(SQLERRM ,1,240);
992: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',
993: p_procedure_name => 'CHECK_ESTIMATE_DATES',
994: p_error_text => x_msg_data ); -- 4537865
995: END CHECK_ESTIMATE_DATES;
996:

Line 1041: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',

1037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1038: -- 4537865 : RESET other OUT params too
1039: x_msg_count := 1;
1040: x_msg_data := SUBSTRB(SQLERRM ,1,240);
1041: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',
1042: p_procedure_name => 'CHECK_ACTUAL_DATES',
1043: p_error_text => x_msg_data ); -- 4537865
1044: END CHECK_ACTUAL_DATES;
1045:

Line 2028: ( p_pkg_name => 'PA_TASKS_MAINT_UTILS'

2024:
2025: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2026: THEN
2027: FND_MSG_PUB.add_exc_msg
2028: ( p_pkg_name => 'PA_TASKS_MAINT_UTILS'
2029: , p_procedure_name => l_api_name );
2030:
2031: END IF;
2032:

Line 2249: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_MOVE_FINANCIAL_TASK_OK : Printing Input parameters';

2245: p_debug_mode => l_debug_mode );
2246: END IF;
2247:
2248: IF l_debug_mode = 'Y' THEN
2249: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_MOVE_FINANCIAL_TASK_OK : Printing Input parameters';
2250: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2251: l_debug_level3);
2252:
2253: Pa_Debug.WRITE(g_module_name,'p_task_version_id'||':'||p_task_version_id,

Line 2262: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_MOVE_FINANCIAL_TASK_OK : Checking whether p_task_version_id is Financial or WorkPlan';

2258: END IF;
2259:
2260:
2261: IF l_debug_mode = 'Y' THEN
2262: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_MOVE_FINANCIAL_TASK_OK : Checking whether p_task_version_id is Financial or WorkPlan';
2263: Pa_Debug.WRITE(g_module_name , Pa_Debug.g_err_stage , l_debug_level3);
2264: END IF;
2265:
2266:

Line 2300: ( p_pkg_name => 'PA_TASKS_MAINT_UTILS'

2296: -- 4537865 : RESET x_error_message_code also
2297: x_error_msg_code := SQLCODE ;
2298:
2299: Fnd_Msg_Pub.add_exc_msg
2300: ( p_pkg_name => 'PA_TASKS_MAINT_UTILS'
2301: ,p_procedure_name => 'CHECK_MOVE_FINANCIAL_TASK_OK'
2302: ,p_error_text => x_msg_data);
2303:
2304: IF l_debug_mode = 'Y' THEN

Line 2393: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_WORKPLAN_TASK_EXISTS : Printing Input parameters';

2389: p_debug_mode => l_debug_mode );
2390: END IF;
2391:
2392: IF l_debug_mode = 'Y' THEN
2393: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_UTILS : CHECK_WORKPLAN_TASK_EXISTS : Printing Input parameters';
2394: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
2395: l_debug_level3);
2396:
2397: Pa_Debug.WRITE(g_module_name,'p_task_version_id'||':'||p_task_version_id,

Line 2435: ( p_pkg_name => 'PA_TASKS_MAINT_UTILS'

2431: CLOSE c_get_WP_rec;
2432: END IF;
2433:
2434: Fnd_Msg_Pub.add_exc_msg
2435: ( p_pkg_name => 'PA_TASKS_MAINT_UTILS'
2436: ,p_procedure_name => 'CHECK_WORKPLAN_TASK_EXISTS'
2437: ,p_error_text => x_msg_data);
2438:
2439: IF l_debug_mode = 'Y' THEN

Line 2535: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',

2531: -- 4537865 : RESET x_msg_count, x_msg_data also
2532: x_msg_count := 1 ;
2533: x_msg_data := SUBSTRB(SQLERRM,1,240);
2534:
2535: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',
2536: p_procedure_name => 'Check_End_Date_EI',
2537: p_error_text => x_msg_data); -- 4537865
2538: END Check_End_Date_EI;
2539: /*Check_Start_Date_EI

Line 2625: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',

2621: -- 4537865 : RESET x_msg_count, x_msg_data also
2622: x_msg_count := 1 ;
2623: x_msg_data := SUBSTRB(SQLERRM,1,240);
2624:
2625: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_UTILS',
2626: p_procedure_name => 'Check_Start_Date_EI',
2627: p_error_text => x_msg_data); -- 4537865
2628: END Check_Start_Date_EI;
2629: --Added by rtarway for BUG 4081329

Line 2631: end PA_TASKS_MAINT_UTILS;

2627: p_error_text => x_msg_data); -- 4537865
2628: END Check_Start_Date_EI;
2629: --Added by rtarway for BUG 4081329
2630:
2631: end PA_TASKS_MAINT_UTILS;