[Home] [Help]
14: -- Pre-reqs : None
15: -- Return Value : N/A
16: -- Parameters
17: -- p_api_version IN NUMBER := 1.0
18: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
19: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
20: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
21: -- p_validation_level IN VARCHAR2 := 100
22: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
15: -- Return Value : N/A
16: -- Parameters
17: -- p_api_version IN NUMBER := 1.0
18: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
19: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
20: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
21: -- p_validation_level IN VARCHAR2 := 100
22: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
23: -- p_debug_mode IN VARCHAR2 := 'N'
16: -- Parameters
17: -- p_api_version IN NUMBER := 1.0
18: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
19: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
20: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
21: -- p_validation_level IN VARCHAR2 := 100
22: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
23: -- p_debug_mode IN VARCHAR2 := 'N'
24: -- p_project_id IN NUMBER
126: --
127: procedure CREATE_TASK
128: (
129: p_api_version IN NUMBER := 1.0
130: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
131: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
132: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
133: ,p_validation_level IN VARCHAR2 := 100
134: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
127: procedure CREATE_TASK
128: (
129: p_api_version IN NUMBER := 1.0
130: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
131: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
132: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
133: ,p_validation_level IN VARCHAR2 := 100
134: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
135: ,p_debug_mode IN VARCHAR2 := 'N'
128: (
129: p_api_version IN NUMBER := 1.0
130: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
131: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
132: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
133: ,p_validation_level IN VARCHAR2 := 100
134: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
135: ,p_debug_mode IN VARCHAR2 := 'N'
136:
275: IF (p_debug_mode = 'Y') THEN
276: pa_debug.debug('PA_TASKS_MAINT_PUB.CREATE_TASK begin');
277: END IF;
278:
279: IF p_commit = FND_API.G_TRUE THEN
280: savepoint CREATE_TASK;
281: END IF;
282:
283: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
279: IF p_commit = FND_API.G_TRUE THEN
280: savepoint CREATE_TASK;
281: END IF;
282:
283: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
284: raise FND_API.G_EXC_UNEXPECTED_ERROR;
285: END IF;
286:
287: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_FALSE)) THEN
280: savepoint CREATE_TASK;
281: END IF;
282:
283: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
284: raise FND_API.G_EXC_UNEXPECTED_ERROR;
285: END IF;
286:
287: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_FALSE)) THEN
288: pa_debug.debug('Performing ID validations and conversions');
283: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
284: raise FND_API.G_EXC_UNEXPECTED_ERROR;
285: END IF;
286:
287: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_FALSE)) THEN
288: pa_debug.debug('Performing ID validations and conversions');
289: FND_MSG_PUB.initialize;
290: END IF;
291:
309: x_return_status => l_return_status,
310: x_error_msg_code => l_error_msg_code);*/
311:
312: l_ref_task_id := p_reference_task_id;
313: l_return_status := FND_API.G_RET_STS_SUCCESS;
314:
315: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
316: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
317: p_msg_name => l_error_msg_code);
311:
312: l_ref_task_id := p_reference_task_id;
313: l_return_status := FND_API.G_RET_STS_SUCCESS;
314:
315: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
316: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
317: p_msg_name => l_error_msg_code);
318: END IF;
319: END IF; --End Name-Id Conversion
333: x_return_status => l_return_status,
334: x_error_msg_code => l_error_msg_code);*/
335:
336: l_task_manager_id := p_task_manager_person_id;
337: l_return_status := FND_API.G_RET_STS_SUCCESS;
338:
339: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
340: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
341: p_msg_name => l_error_msg_code);
335:
336: l_task_manager_id := p_task_manager_person_id;
337: l_return_status := FND_API.G_RET_STS_SUCCESS;
338:
339: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
340: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
341: p_msg_name => l_error_msg_code);
342: -- dbms_output.put_line( 'Error occured in task manager name to id conv. ' );
343: END IF;
348:
349: --Check Carrying out organization name and Carrying out organization Id
350: IF p_carrying_out_org_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
351: THEN
352: l_carrying_out_org_name := FND_API.G_MISS_CHAR;
353: ELSE
354: l_carrying_out_org_name := p_carrying_out_org_name;
355: END IF;
356:
355: END IF;
356:
357: IF p_carrying_out_organization_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
358: THEN
359: l_carrying_out_org_id := FND_API.G_MISS_NUM;
360: ELSE
361: l_carrying_out_org_id := p_carrying_out_organization_id;
362: END IF;
363:
360: ELSE
361: l_carrying_out_org_id := p_carrying_out_organization_id;
362: END IF;
363:
364: IF ((l_carrying_out_org_name <> FND_API.G_MISS_CHAR) AND
365: (l_carrying_out_org_name IS NOT NULL)) OR
366: ((l_carrying_out_org_id <> FND_API.G_MISS_NUM) AND
367: (l_carrying_out_org_id IS NOT NULL)) THEN
368:
362: END IF;
363:
364: IF ((l_carrying_out_org_name <> FND_API.G_MISS_CHAR) AND
365: (l_carrying_out_org_name IS NOT NULL)) OR
366: ((l_carrying_out_org_id <> FND_API.G_MISS_NUM) AND
367: (l_carrying_out_org_id IS NOT NULL)) THEN
368:
369: /* pa_hr_org_utils.Check_OrgName_Or_Id
370: (p_organization_id => l_carrying_out_org_id
373: ,x_organization_id => l_carrying_out_org_id
374: ,x_return_status => l_return_status
375: ,x_error_msg_code => l_error_msg_code);*/
376:
377: l_return_status := FND_API.G_RET_STS_SUCCESS;
378:
379: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
380: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
381: p_msg_name => l_error_msg_code);
375: ,x_error_msg_code => l_error_msg_code);*/
376:
377: l_return_status := FND_API.G_RET_STS_SUCCESS;
378:
379: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
380: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
381: p_msg_name => l_error_msg_code);
382: --dbms_output.put_line( 'Error occured in org name to id conv. ' );
383:
394: if l_msg_count > 0 then
395: x_msg_count := l_msg_count;
396: if x_msg_count = 1 then
397: pa_interface_utils_pub.get_messages
398: (p_encoded => FND_API.G_TRUE,
399: p_msg_index => 1,
400: p_data => l_data,
401: p_msg_index_out => l_msg_index_out);
402: x_msg_data := l_data;
400: p_data => l_data,
401: p_msg_index_out => l_msg_index_out);
402: x_msg_data := l_data;
403: end if;
404: raise FND_API.G_EXC_ERROR;
405: end if;
406:
407: --dbms_output.put_line( 'Call Lock project ' );
408:
539:
540: --dbms_output.put_line( 'After exis creat task pvt api call in pub api' );
541:
542: --Check return status
543: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
544: x_msg_count := FND_MSG_PUB.count_msg;
545: if x_msg_count = 1 then
546: pa_interface_utils_pub.get_messages
547: (p_encoded => FND_API.G_TRUE,
543: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
544: x_msg_count := FND_MSG_PUB.count_msg;
545: if x_msg_count = 1 then
546: pa_interface_utils_pub.get_messages
547: (p_encoded => FND_API.G_TRUE,
548: p_msg_index => 1,
549: p_data => l_data,
550: p_msg_index_out => l_msg_index_out);
551: x_msg_data := l_data;
549: p_data => l_data,
550: p_msg_index_out => l_msg_index_out);
551: x_msg_data := l_data;
552: end if;
553: raise FND_API.G_EXC_ERROR;
554: end if;
555:
556: --Call Update statement to update display order
557: BEGIN
576: HY */ NULL;
577: EXCEPTION
578: WHEN OTHERS THEN
579: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
580: raise FND_API.G_EXC_ERROR;
581: END;
582:
583: --dbms_output.put_line( 'Before INCREMENT_WBS_REC_VER_NUM' );
584:
587: p_wbs_record_version_number => p_wbs_record_version_number,
588: x_return_status => x_return_status );*/
589:
590: -- p_task_id := l_ref_task_id;
591: x_return_status := FND_API.G_RET_STS_SUCCESS;
592:
593: --dbms_output.put_line( 'After INCREMENT_WBS_REC_VER_NUM' );
594:
595: --commit
592:
593: --dbms_output.put_line( 'After INCREMENT_WBS_REC_VER_NUM' );
594:
595: --commit
596: IF (p_commit = FND_API.G_TRUE) THEN
597: commit;
598: END IF;
599:
600: IF (p_debug_mode = 'Y') THEN
601: pa_debug.debug('PA_TASKS_MAINT_PUB.CREATE_TASK END');
602: END IF;
603:
604: EXCEPTION
605: WHEN FND_API.G_EXC_ERROR THEN
606: IF (p_commit = FND_API.G_TRUE) THEN
607: ROLLBACK to CREATE_TASK;
608: END IF;
609: x_msg_count := FND_MSG_PUB.count_msg;
602: END IF;
603:
604: EXCEPTION
605: WHEN FND_API.G_EXC_ERROR THEN
606: IF (p_commit = FND_API.G_TRUE) THEN
607: ROLLBACK to CREATE_TASK;
608: END IF;
609: x_msg_count := FND_MSG_PUB.count_msg;
610: x_return_status := FND_API.G_RET_STS_ERROR;
606: IF (p_commit = FND_API.G_TRUE) THEN
607: ROLLBACK to CREATE_TASK;
608: END IF;
609: x_msg_count := FND_MSG_PUB.count_msg;
610: x_return_status := FND_API.G_RET_STS_ERROR;
611: WHEN OTHERS THEN
612: IF (p_commit = FND_API.G_TRUE) THEN
613: ROLLBACK to CREATE_TASK;
614: END IF;
608: END IF;
609: x_msg_count := FND_MSG_PUB.count_msg;
610: x_return_status := FND_API.G_RET_STS_ERROR;
611: WHEN OTHERS THEN
612: IF (p_commit = FND_API.G_TRUE) THEN
613: ROLLBACK to CREATE_TASK;
614: END IF;
615: x_msg_count := FND_MSG_PUB.count_msg;
616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
612: IF (p_commit = FND_API.G_TRUE) THEN
613: ROLLBACK to CREATE_TASK;
614: END IF;
615: x_msg_count := FND_MSG_PUB.count_msg;
616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
617: FND_MSG_PUB.ADD_EXC_MSG(p_pkg_name => 'PA_TASKS_MAINT_PUB',
618: p_procedure_name => 'CREATE_TASK',
619: p_error_text => substrb(SQLERRM,1,240));
620: RAISE;
626: -- Pre-reqs : None
627: -- Return Value : N/A
628: -- Parameters
629: -- p_api_version IN NUMBER := 1.0
630: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
631: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
632: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
633: -- p_validation_level IN VARCHAR2 := 100
634: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
627: -- Return Value : N/A
628: -- Parameters
629: -- p_api_version IN NUMBER := 1.0
630: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
631: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
632: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
633: -- p_validation_level IN VARCHAR2 := 100
634: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
635: -- p_debug_mode IN VARCHAR2 := 'N'
628: -- Parameters
629: -- p_api_version IN NUMBER := 1.0
630: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
631: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
632: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
633: -- p_validation_level IN VARCHAR2 := 100
634: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
635: -- p_debug_mode IN VARCHAR2 := 'N'
636: -- p_project_id IN NUMBER
739: --
740: procedure UPDATE_TASK
741: (
742: p_api_version IN NUMBER := 1.0
743: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
744: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
745: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
746: ,p_validation_level IN VARCHAR2 := 100
747: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
740: procedure UPDATE_TASK
741: (
742: p_api_version IN NUMBER := 1.0
743: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
744: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
745: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
746: ,p_validation_level IN VARCHAR2 := 100
747: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
748: ,p_debug_mode IN VARCHAR2 := 'N'
741: (
742: p_api_version IN NUMBER := 1.0
743: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
744: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
745: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
746: ,p_validation_level IN VARCHAR2 := 100
747: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
748: ,p_debug_mode IN VARCHAR2 := 'N'
749:
931: IF (p_debug_mode = 'Y') THEN
932: pa_debug.debug('PA_TASKS_MAINT_PUB.UPDATE_TASK begin');
933: END IF;
934:
935: IF p_commit = FND_API.G_TRUE THEN
936: savepoint UPDATE_TASK;
937: END IF;
938:
939: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
935: IF p_commit = FND_API.G_TRUE THEN
936: savepoint UPDATE_TASK;
937: END IF;
938:
939: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
940: raise FND_API.G_EXC_UNEXPECTED_ERROR;
941: END IF;
942:
943: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_FALSE)) THEN
936: savepoint UPDATE_TASK;
937: END IF;
938:
939: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
940: raise FND_API.G_EXC_UNEXPECTED_ERROR;
941: END IF;
942:
943: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_FALSE)) THEN
944: pa_debug.debug('Performing ID validations and conversions');
939: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
940: raise FND_API.G_EXC_UNEXPECTED_ERROR;
941: END IF;
942:
943: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_FALSE)) THEN
944: pa_debug.debug('Performing ID validations and conversions');
945: FND_MSG_PUB.initialize;
946: END IF;
947:
961: x_return_status => l_return_status,
962: x_error_msg_code => l_error_msg_code);*/
963:
964: l_task_manager_id := p_task_manager_person_id;
965: l_return_status := FND_API.G_RET_STS_SUCCESS;
966:
967: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
968: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
969: p_msg_name => l_error_msg_code);
963:
964: l_task_manager_id := p_task_manager_person_id;
965: l_return_status := FND_API.G_RET_STS_SUCCESS;
966:
967: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
968: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
969: p_msg_name => l_error_msg_code);
970: END IF;
971:
973: -- END IF;
974:
975: -- IF (p_calling_module = 'SELF_SERVICE') OR (p_calling_module = 'EXCHANGE') THEN
976: --Check Carrying out organization name and Carrying out organization Id
977: IF ((p_carrying_out_org_name <> FND_API.G_MISS_CHAR) AND
978: (p_carrying_out_org_name IS NOT NULL)) OR
979: ((p_carrying_out_organization_id <> FND_API.G_MISS_NUM) AND
980: (p_carrying_out_organization_id IS NOT NULL)) THEN
981:
975: -- IF (p_calling_module = 'SELF_SERVICE') OR (p_calling_module = 'EXCHANGE') THEN
976: --Check Carrying out organization name and Carrying out organization Id
977: IF ((p_carrying_out_org_name <> FND_API.G_MISS_CHAR) AND
978: (p_carrying_out_org_name IS NOT NULL)) OR
979: ((p_carrying_out_organization_id <> FND_API.G_MISS_NUM) AND
980: (p_carrying_out_organization_id IS NOT NULL)) THEN
981:
982: /* pa_hr_org_utils.Check_OrgName_Or_Id
983: (p_organization_id => p_carrying_out_organization_id
987: ,x_return_status => l_return_status
988: ,x_error_msg_code => l_error_msg_code);*/
989:
990: l_carrying_out_org_id := p_carrying_out_organization_id;
991: l_return_status := FND_API.G_RET_STS_SUCCESS;
992:
993: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
994: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
995: p_msg_name => l_error_msg_code);
989:
990: l_carrying_out_org_id := p_carrying_out_organization_id;
991: l_return_status := FND_API.G_RET_STS_SUCCESS;
992:
993: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
994: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
995: p_msg_name => l_error_msg_code);
996: END IF;
997: END IF; --End Name-Id Conversion
1005: if l_msg_count > 0 then
1006: x_msg_count := l_msg_count;
1007: if x_msg_count = 1 then
1008: pa_interface_utils_pub.get_messages
1009: (p_encoded => FND_API.G_TRUE,
1010: p_msg_index => 1,
1011: p_data => l_data,
1012: p_msg_index_out => l_msg_index_out);
1013: x_msg_data := l_data;
1011: p_data => l_data,
1012: p_msg_index_out => l_msg_index_out);
1013: x_msg_data := l_data;
1014: end if;
1015: raise FND_API.G_EXC_ERROR;
1016: end if;
1017:
1018: /* temporarily commenting for project structures
1019: --Call Lock project
1148: ,x_msg_data =>x_msg_data
1149: );
1150:
1151: --Check return status
1152: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1153: x_msg_count := FND_MSG_PUB.count_msg;
1154: if x_msg_count = 1 then
1155: pa_interface_utils_pub.get_messages
1156: (p_encoded => FND_API.G_TRUE,
1152: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1153: x_msg_count := FND_MSG_PUB.count_msg;
1154: if x_msg_count = 1 then
1155: pa_interface_utils_pub.get_messages
1156: (p_encoded => FND_API.G_TRUE,
1157: p_msg_index => 1,
1158: p_data => l_data,
1159: p_msg_index_out => l_msg_index_out);
1160: x_msg_data := l_data;
1158: p_data => l_data,
1159: p_msg_index_out => l_msg_index_out);
1160: x_msg_data := l_data;
1161: end if;
1162: raise FND_API.G_EXC_ERROR;
1163: end if;
1164:
1165: IF p_wbs_record_version_number <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1166: p_wbs_record_version_number IS NOT NULL
1218: WHERE task_id = l_task_id_tbl(i) and project_id = p_project_id;
1219: end if;
1220: --End Add by rtarway for bug 4081329
1221: END IF;
1222: x_return_status := FND_API.G_RET_STS_SUCCESS;
1223:
1224: --commit
1225: IF (p_commit = FND_API.G_TRUE) THEN
1226: commit;
1221: END IF;
1222: x_return_status := FND_API.G_RET_STS_SUCCESS;
1223:
1224: --commit
1225: IF (p_commit = FND_API.G_TRUE) THEN
1226: commit;
1227: END IF;
1228:
1229: IF (p_debug_mode = 'Y') THEN
1230: pa_debug.debug('PA_TASKS_MAINT_PUB.UPDATE_TASK END');
1231: END IF;
1232:
1233: EXCEPTION
1234: WHEN FND_API.G_EXC_ERROR THEN
1235: IF (p_commit = FND_API.G_TRUE) THEN
1236: ROLLBACK to UPDATE_TASK;
1237: END IF;
1238: x_msg_count := FND_MSG_PUB.count_msg;
1231: END IF;
1232:
1233: EXCEPTION
1234: WHEN FND_API.G_EXC_ERROR THEN
1235: IF (p_commit = FND_API.G_TRUE) THEN
1236: ROLLBACK to UPDATE_TASK;
1237: END IF;
1238: x_msg_count := FND_MSG_PUB.count_msg;
1239: x_return_status := FND_API.G_RET_STS_ERROR;
1235: IF (p_commit = FND_API.G_TRUE) THEN
1236: ROLLBACK to UPDATE_TASK;
1237: END IF;
1238: x_msg_count := FND_MSG_PUB.count_msg;
1239: x_return_status := FND_API.G_RET_STS_ERROR;
1240: WHEN OTHERS THEN
1241: IF (p_commit = FND_API.G_TRUE) THEN
1242: ROLLBACK to UPDATE_TASK;
1243: END IF;
1237: END IF;
1238: x_msg_count := FND_MSG_PUB.count_msg;
1239: x_return_status := FND_API.G_RET_STS_ERROR;
1240: WHEN OTHERS THEN
1241: IF (p_commit = FND_API.G_TRUE) THEN
1242: ROLLBACK to UPDATE_TASK;
1243: END IF;
1244: x_msg_count := FND_MSG_PUB.count_msg;
1245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1241: IF (p_commit = FND_API.G_TRUE) THEN
1242: ROLLBACK to UPDATE_TASK;
1243: END IF;
1244: x_msg_count := FND_MSG_PUB.count_msg;
1245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1246: --put message
1247: FND_MSG_PUB.ADD_EXC_MSG(p_pkg_name => 'PA_TASKS_MAINT_PUB',
1248: p_procedure_name => 'UPDATE_TASK',
1249: p_error_text => substrb(SQLERRM,1,240));
1256: -- Pre-reqs : None
1257: -- Return Value : N/A
1258: -- Parameters
1259: -- p_api_version IN NUMBER := 1.0
1260: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1261: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1262: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1263: -- p_validation_level IN VARCHAR2 := 100
1264: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1257: -- Return Value : N/A
1258: -- Parameters
1259: -- p_api_version IN NUMBER := 1.0
1260: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1261: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1262: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1263: -- p_validation_level IN VARCHAR2 := 100
1264: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1265: -- p_debug_mode IN VARCHAR2 := 'N'
1258: -- Parameters
1259: -- p_api_version IN NUMBER := 1.0
1260: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1261: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1262: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1263: -- p_validation_level IN VARCHAR2 := 100
1264: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1265: -- p_debug_mode IN VARCHAR2 := 'N'
1266: -- p_project_id IN NUMBER
1277: --
1278: procedure DELETE_TASK
1279: (
1280: p_api_version IN NUMBER := 1.0
1281: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1282: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1283: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1284: ,p_validation_level IN VARCHAR2 := 100
1285: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1278: procedure DELETE_TASK
1279: (
1280: p_api_version IN NUMBER := 1.0
1281: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1282: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1283: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1284: ,p_validation_level IN VARCHAR2 := 100
1285: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1286: ,p_debug_mode IN VARCHAR2 := 'N'
1279: (
1280: p_api_version IN NUMBER := 1.0
1281: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1282: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1283: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1284: ,p_validation_level IN VARCHAR2 := 100
1285: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1286: ,p_debug_mode IN VARCHAR2 := 'N'
1287: ,p_project_id IN NUMBER
1338: IF (p_debug_mode = 'Y') THEN
1339: pa_debug.debug('PA_TASKS_MAINT_PUB.DELETE_TASK begin');
1340: END IF;
1341:
1342: IF (p_commit = FND_API.G_TRUE) THEN
1343: savepoint DELETE_TASK;
1344: END IF;
1345:
1346:
1343: savepoint DELETE_TASK;
1344: END IF;
1345:
1346:
1347: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1348: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1349: END IF;
1350:
1351: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_FALSE)) THEN
1344: END IF;
1345:
1346:
1347: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1348: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1349: END IF;
1350:
1351: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_FALSE)) THEN
1352: pa_debug.debug('Performing ID validations and conversions');
1347: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1348: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1349: END IF;
1350:
1351: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_FALSE)) THEN
1352: pa_debug.debug('Performing ID validations and conversions');
1353: FND_MSG_PUB.initialize;
1354: END IF;
1355:
1358: if l_msg_count > 0 then
1359: x_msg_count := l_msg_count;
1360: if x_msg_count = 1 then
1361: pa_interface_utils_pub.get_messages
1362: (p_encoded => FND_API.G_TRUE,
1363: p_msg_index => 1,
1364: p_data => l_data,
1365: p_msg_index_out => l_msg_index_out);
1366: x_msg_data := l_data;
1364: p_data => l_data,
1365: p_msg_index_out => l_msg_index_out);
1366: x_msg_data := l_data;
1367: end if;
1368: raise FND_API.G_EXC_ERROR;
1369: end if;
1370:
1371: /*--Call Lock project
1372:
1410: ,x_msg_data => x_msg_data
1411: );
1412:
1413: --Check return status
1414: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1415: x_msg_count := FND_MSG_PUB.count_msg;
1416: if x_msg_count = 1 then
1417: pa_interface_utils_pub.get_messages
1418: (p_encoded => FND_API.G_TRUE,
1414: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1415: x_msg_count := FND_MSG_PUB.count_msg;
1416: if x_msg_count = 1 then
1417: pa_interface_utils_pub.get_messages
1418: (p_encoded => FND_API.G_TRUE,
1419: p_msg_index => 1,
1420: p_data => l_data,
1421: p_msg_index_out => l_msg_index_out);
1422: x_msg_data := l_data;
1420: p_data => l_data,
1421: p_msg_index_out => l_msg_index_out);
1422: x_msg_data := l_data;
1423: end if;
1424: raise FND_API.G_EXC_ERROR;
1425: end if;
1426:
1427: /* --This fcuntion is moved in PA_TASK_PVT1.DELETE_TASK_VERSION api.
1428: BEGIN
1440: and (display_sequence > selected_seq_num);
1441: EXCEPTION
1442: WHEN OTHERS THEN
1443: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
1444: raise FND_API.G_EXC_ERROR;
1445: END;*/
1446:
1447:
1448: /*PA_TASKS_MAINT_UTILS.INCREMENT_WBS_REC_VER_NUM(
1449: p_project_id => p_project_id,
1450: p_wbs_record_version_number => p_wbs_record_version_number,
1451: x_return_status => x_return_status );*/
1452:
1453: x_return_status := FND_API.G_RET_STS_SUCCESS;
1454:
1455: --commit
1456: IF (p_commit = FND_API.G_TRUE) THEN
1457: commit;
1452:
1453: x_return_status := FND_API.G_RET_STS_SUCCESS;
1454:
1455: --commit
1456: IF (p_commit = FND_API.G_TRUE) THEN
1457: commit;
1458: END IF;
1459:
1460: IF (p_debug_mode = 'Y') THEN
1461: pa_debug.debug('PA_TASKS_MAINT_PUB.DELETE_TASK END');
1462: END IF;
1463:
1464: EXCEPTION
1465: WHEN FND_API.G_EXC_ERROR THEN
1466: IF (p_commit = FND_API.G_TRUE) THEN
1467: ROLLBACK to DELETE_TASK;
1468: END IF;
1469: x_msg_count := FND_MSG_PUB.count_msg;
1462: END IF;
1463:
1464: EXCEPTION
1465: WHEN FND_API.G_EXC_ERROR THEN
1466: IF (p_commit = FND_API.G_TRUE) THEN
1467: ROLLBACK to DELETE_TASK;
1468: END IF;
1469: x_msg_count := FND_MSG_PUB.count_msg;
1470: x_return_status := FND_API.G_RET_STS_ERROR;
1466: IF (p_commit = FND_API.G_TRUE) THEN
1467: ROLLBACK to DELETE_TASK;
1468: END IF;
1469: x_msg_count := FND_MSG_PUB.count_msg;
1470: x_return_status := FND_API.G_RET_STS_ERROR;
1471: WHEN OTHERS THEN
1472: IF (p_commit = FND_API.G_TRUE) THEN
1473: ROLLBACK to DELETE_TASK;
1474: END IF;
1468: END IF;
1469: x_msg_count := FND_MSG_PUB.count_msg;
1470: x_return_status := FND_API.G_RET_STS_ERROR;
1471: WHEN OTHERS THEN
1472: IF (p_commit = FND_API.G_TRUE) THEN
1473: ROLLBACK to DELETE_TASK;
1474: END IF;
1475: x_msg_count := FND_MSG_PUB.count_msg;
1476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1472: IF (p_commit = FND_API.G_TRUE) THEN
1473: ROLLBACK to DELETE_TASK;
1474: END IF;
1475: x_msg_count := FND_MSG_PUB.count_msg;
1476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1477: FND_MSG_PUB.ADD_EXC_MSG(p_pkg_name => 'PA_TASKS_MAINT_PUB',
1478: p_procedure_name => 'DELETE_TASK',
1479: p_error_text => substrb(SQLERRM,1,240));
1480: END DELETE_TASK;
1485: -- Pre-reqs : None
1486: -- Return Value : N/A
1487: -- Prameters
1488: -- p_api_version IN NUMBER := 1.0
1489: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1490: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1491: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1492: -- p_validation_level IN VARCHAR2 := 100
1493: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1486: -- Return Value : N/A
1487: -- Prameters
1488: -- p_api_version IN NUMBER := 1.0
1489: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1490: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1491: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1492: -- p_validation_level IN VARCHAR2 := 100
1493: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1494: -- p_debug_mode IN VARCHAR2 := 'N'
1487: -- Prameters
1488: -- p_api_version IN NUMBER := 1.0
1489: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1490: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1491: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1492: -- p_validation_level IN VARCHAR2 := 100
1493: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1494: -- p_debug_mode IN VARCHAR2 := 'N'
1495: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1491: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1492: -- p_validation_level IN VARCHAR2 := 100
1493: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1494: -- p_debug_mode IN VARCHAR2 := 'N'
1495: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1496: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1497: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1498: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1499: -- p_edit_mode IN VARCHAR2 REQUIRED
1492: -- p_validation_level IN VARCHAR2 := 100
1493: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1494: -- p_debug_mode IN VARCHAR2 := 'N'
1495: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1496: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1497: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1498: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1499: -- p_edit_mode IN VARCHAR2 REQUIRED
1500: -- p_record_version_number IN NUMBER
1493: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1494: -- p_debug_mode IN VARCHAR2 := 'N'
1495: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1496: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1497: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1498: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1499: -- p_edit_mode IN VARCHAR2 REQUIRED
1500: -- p_record_version_number IN NUMBER
1501: -- p_wbs_record_version_number IN NUMBER
1494: -- p_debug_mode IN VARCHAR2 := 'N'
1495: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1496: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1497: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1498: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1499: -- p_edit_mode IN VARCHAR2 REQUIRED
1500: -- p_record_version_number IN NUMBER
1501: -- p_wbs_record_version_number IN NUMBER
1502: -- x_return_status OUT VARCHAR2
1510: --
1511:
1512: PROCEDURE Edit_Task_Structure(
1513: p_api_version IN NUMBER := 1.0
1514: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1515: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1516: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1517: ,p_validation_level IN VARCHAR2 := 100
1518: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1511:
1512: PROCEDURE Edit_Task_Structure(
1513: p_api_version IN NUMBER := 1.0
1514: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1515: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1516: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1517: ,p_validation_level IN VARCHAR2 := 100
1518: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1519: ,p_debug_mode IN VARCHAR2 := 'N'
1512: PROCEDURE Edit_Task_Structure(
1513: p_api_version IN NUMBER := 1.0
1514: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1515: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1516: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1517: ,p_validation_level IN VARCHAR2 := 100
1518: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1519: ,p_debug_mode IN VARCHAR2 := 'N'
1520: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1516: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1517: ,p_validation_level IN VARCHAR2 := 100
1518: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1519: ,p_debug_mode IN VARCHAR2 := 'N'
1520: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1521: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1522: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1523: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1524: ,p_edit_mode IN VARCHAR2
1517: ,p_validation_level IN VARCHAR2 := 100
1518: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1519: ,p_debug_mode IN VARCHAR2 := 'N'
1520: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1521: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1522: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1523: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1524: ,p_edit_mode IN VARCHAR2
1525: ,p_record_version_number IN NUMBER
1518: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1519: ,p_debug_mode IN VARCHAR2 := 'N'
1520: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1521: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1522: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1523: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1524: ,p_edit_mode IN VARCHAR2
1525: ,p_record_version_number IN NUMBER
1526: ,p_wbs_record_version_number IN NUMBER
1519: ,p_debug_mode IN VARCHAR2 := 'N'
1520: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1521: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1522: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1523: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1524: ,p_edit_mode IN VARCHAR2
1525: ,p_record_version_number IN NUMBER
1526: ,p_wbs_record_version_number IN NUMBER
1527: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1551: THEN
1552: pa_debug.debug('Edit Task Structure PUB : Checking the api version number.');
1553: END IF;
1554:
1555: IF p_commit = FND_API.G_TRUE
1556: THEN
1557: SAVEPOINT Edit_Structure;
1558: END IF;
1559:
1556: THEN
1557: SAVEPOINT Edit_Structure;
1558: END IF;
1559:
1560: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1561: p_api_version,
1562: l_api_name,
1563: g_pkg_name)
1564: THEN
1562: l_api_name,
1563: g_pkg_name)
1564: THEN
1565:
1566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1567: END IF;
1568:
1569: if (p_debug_mode = 'Y') then
1570: pa_debug.debug('Edit Task Structure PUB : Initializing message stack.');
1571: end if;
1572:
1573: pa_debug.init_err_stack('PA_TASK_MAINT_PUB.Edit_Task_Structure');
1574:
1575: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
1576: fnd_msg_pub.initialize;
1577: end if;
1578:
1579: /*IF (p_calling_module = 'SELF_SERVICE') OR (p_calling_module = 'EXCHANGE') THEN
1578:
1579: /*IF (p_calling_module = 'SELF_SERVICE') OR (p_calling_module = 'EXCHANGE') THEN
1580:
1581: --Check Project Name and Id
1582: IF ((p_project_name <> FND_API.G_MISS_CHAR) AND
1583: (p_project_name IS NOT NULL)) OR
1584: ((p_project_id <> FND_API.G_MISS_NUM) AND
1585: (p_project_id IS NOT NULL)) THEN
1586: --Call Check API.
1580:
1581: --Check Project Name and Id
1582: IF ((p_project_name <> FND_API.G_MISS_CHAR) AND
1583: (p_project_name IS NOT NULL)) OR
1584: ((p_project_id <> FND_API.G_MISS_NUM) AND
1585: (p_project_id IS NOT NULL)) THEN
1586: --Call Check API.
1587: pa_tasks_maint_utils.CHECK_PROJECT_NAME_OR_ID(
1588: p_project_id => p_project_id,
1589: p_project_name => p_project_name,
1590: x_project_id => l_project_id,
1591: x_return_status => l_return_status,
1592: x_error_msg_code => l_error_msg_code);
1593: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1594: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1595: p_msg_name => l_error_msg_code);
1596: END IF;
1597: END IF; --End Project Name-Id Conversion
1596: END IF;
1597: END IF; --End Project Name-Id Conversion
1598:
1599: --Check Task Name and Id
1600: IF ((p_task_name <> FND_API.G_MISS_CHAR) AND
1601: (p_task_name IS NOT NULL)) OR
1602: ((p_task_id <> FND_API.G_MISS_NUM) AND
1603: (p_task_id IS NOT NULL)) THEN
1604: --Call Check API.
1598:
1599: --Check Task Name and Id
1600: IF ((p_task_name <> FND_API.G_MISS_CHAR) AND
1601: (p_task_name IS NOT NULL)) OR
1602: ((p_task_id <> FND_API.G_MISS_NUM) AND
1603: (p_task_id IS NOT NULL)) THEN
1604: --Call Check API.
1605: pa_tasks_maint_utils.CHECK_TASK_NAME_OR_ID(
1606: p_project_id => l_project_id,
1608: p_task_name => p_task_name,
1609: x_task_id => l_task_id,
1610: x_return_status => l_return_status,
1611: x_error_msg_code => l_error_msg_code);
1612: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1613: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1614: p_msg_name => l_error_msg_code);
1615: END IF;
1616: END IF; --End Task Name-Id Conversion
1625: p_task_id => l_task_id,
1626: x_return_status => l_return_status,
1627: x_error_msg_code => l_error_msg_code );
1628:
1629: IF l_return_status = FND_API.G_RET_STS_ERROR
1630: THEN
1631: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1632: p_msg_name => l_error_msg_code);
1633: x_msg_data := l_error_msg_code;
1631: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1632: p_msg_name => l_error_msg_code);
1633: x_msg_data := l_error_msg_code;
1634: x_return_status := 'E';
1635: RAISE FND_API.G_EXC_ERROR;
1636: END IF;
1637:
1638: x_return_status := 'S';
1639:
1653: If l_msg_count > 0 THEN
1654: x_msg_count := l_msg_count;
1655: If l_msg_count = 1 THEN
1656: pa_interface_utils_pub.get_messages
1657: (p_encoded => FND_API.G_TRUE ,
1658: p_msg_index => 1,
1659: p_msg_count => l_msg_count ,
1660: p_msg_data => l_msg_data,
1661: p_data => l_data,
1662: p_msg_index_out => l_msg_index_out );
1663:
1664: x_msg_data := l_data;
1665: End if;
1666: RAISE FND_API.G_EXC_ERROR;
1667: End if;
1668:
1669: IF p_edit_mode = 'INDENT'
1670: THEN
1719: If l_msg_count > 0 THEN
1720: x_msg_count := l_msg_count;
1721: If l_msg_count = 1 THEN
1722: pa_interface_utils_pub.get_messages
1723: (p_encoded => FND_API.G_TRUE ,
1724: p_msg_index => 1,
1725: p_msg_count => l_msg_count ,
1726: p_msg_data => l_msg_data,
1727: p_data => l_data,
1728: p_msg_index_out => l_msg_index_out );
1729:
1730: x_msg_data := l_data;
1731: End if;
1732: RAISE FND_API.G_EXC_ERROR;
1733: End if;
1734:
1735: PA_TASKS_MAINT_UTILS.INCREMENT_WBS_REC_VER_NUM(
1736: p_project_id => p_project_id,
1737: p_wbs_record_version_number => p_wbs_record_version_number,
1738: x_return_status => x_return_status );
1739:
1740:
1741: IF FND_API.TO_BOOLEAN(P_COMMIT)
1742: THEN
1743: COMMIT WORK;
1744: END IF;
1745: EXCEPTION
1742: THEN
1743: COMMIT WORK;
1744: END IF;
1745: EXCEPTION
1746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1747: IF p_commit = FND_API.G_TRUE
1748: THEN
1749: ROLLBACK TO Edit_Structure;
1750: END IF;
1743: COMMIT WORK;
1744: END IF;
1745: EXCEPTION
1746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1747: IF p_commit = FND_API.G_TRUE
1748: THEN
1749: ROLLBACK TO Edit_Structure;
1750: END IF;
1751: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1747: IF p_commit = FND_API.G_TRUE
1748: THEN
1749: ROLLBACK TO Edit_Structure;
1750: END IF;
1751: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1752: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
1753: p_procedure_name => 'Edit_Task_Structure',
1754: p_error_text => SUBSTRB(SQLERRM,1,240));
1755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1751: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1752: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
1753: p_procedure_name => 'Edit_Task_Structure',
1754: p_error_text => SUBSTRB(SQLERRM,1,240));
1755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1756:
1757: WHEN FND_API.G_EXC_ERROR THEN
1758: IF p_commit = FND_API.G_TRUE
1759: THEN
1753: p_procedure_name => 'Edit_Task_Structure',
1754: p_error_text => SUBSTRB(SQLERRM,1,240));
1755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1756:
1757: WHEN FND_API.G_EXC_ERROR THEN
1758: IF p_commit = FND_API.G_TRUE
1759: THEN
1760: ROLLBACK TO Edit_Structure;
1761: END IF;
1754: p_error_text => SUBSTRB(SQLERRM,1,240));
1755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1756:
1757: WHEN FND_API.G_EXC_ERROR THEN
1758: IF p_commit = FND_API.G_TRUE
1759: THEN
1760: ROLLBACK TO Edit_Structure;
1761: END IF;
1762: x_return_status := 'E';
1761: END IF;
1762: x_return_status := 'E';
1763:
1764: WHEN OTHERS THEN
1765: IF p_commit = FND_API.G_TRUE
1766: THEN
1767: ROLLBACK TO Edit_Structure;
1768: END IF;
1769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1765: IF p_commit = FND_API.G_TRUE
1766: THEN
1767: ROLLBACK TO Edit_Structure;
1768: END IF;
1769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1770: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
1771: p_procedure_name => 'Edit_Task_Structure',
1772: p_error_text => SUBSTRB(SQLERRM,1,240));
1773: RAISE;
1779: -- Pre-reqs : None
1780: -- Return Value : N/A
1781: -- Prameters
1782: -- p_api_version IN NUMBER := 1.0
1783: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1784: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1785: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1786: -- p_validation_level IN VARCHAR2 := 100
1787: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1780: -- Return Value : N/A
1781: -- Prameters
1782: -- p_api_version IN NUMBER := 1.0
1783: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1784: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1785: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1786: -- p_validation_level IN VARCHAR2 := 100
1787: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1788: -- p_debug_mode IN VARCHAR2 := 'N'
1781: -- Prameters
1782: -- p_api_version IN NUMBER := 1.0
1783: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1784: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1785: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1786: -- p_validation_level IN VARCHAR2 := 100
1787: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1788: -- p_debug_mode IN VARCHAR2 := 'N'
1789: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1785: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1786: -- p_validation_level IN VARCHAR2 := 100
1787: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1788: -- p_debug_mode IN VARCHAR2 := 'N'
1789: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1790: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1791: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1792: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1793: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1786: -- p_validation_level IN VARCHAR2 := 100
1787: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1788: -- p_debug_mode IN VARCHAR2 := 'N'
1789: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1790: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1791: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1792: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1793: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1794: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1787: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1788: -- p_debug_mode IN VARCHAR2 := 'N'
1789: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1790: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1791: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1792: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1793: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1794: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1795: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1788: -- p_debug_mode IN VARCHAR2 := 'N'
1789: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1790: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1791: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1792: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1793: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1794: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1795: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1796: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1789: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1790: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1791: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1792: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1793: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1794: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1795: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1796: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1797: -- p_peer_or_sub IN VARCHAR2
1790: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1791: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1792: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1793: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1794: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1795: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1796: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1797: -- p_peer_or_sub IN VARCHAR2
1798: -- p_record_version_number IN NUMBER
1791: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1792: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1793: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1794: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1795: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1796: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1797: -- p_peer_or_sub IN VARCHAR2
1798: -- p_record_version_number IN NUMBER
1799: -- p_wbs_record_version_number IN NUMBER
1792: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1793: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1794: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1795: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1796: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1797: -- p_peer_or_sub IN VARCHAR2
1798: -- p_record_version_number IN NUMBER
1799: -- p_wbs_record_version_number IN NUMBER
1800: -- x_return_status OUT VARCHAR2
1808: --
1809:
1810: PROCEDURE Move_Task(
1811: p_api_version IN NUMBER := 1.0
1812: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1813: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1814: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1815: ,p_validation_level IN VARCHAR2 := 100
1816: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1809:
1810: PROCEDURE Move_Task(
1811: p_api_version IN NUMBER := 1.0
1812: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1813: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1814: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1815: ,p_validation_level IN VARCHAR2 := 100
1816: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1817: ,p_debug_mode IN VARCHAR2 := 'N'
1810: PROCEDURE Move_Task(
1811: p_api_version IN NUMBER := 1.0
1812: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1813: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1814: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1815: ,p_validation_level IN VARCHAR2 := 100
1816: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1817: ,p_debug_mode IN VARCHAR2 := 'N'
1818: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1814: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1815: ,p_validation_level IN VARCHAR2 := 100
1816: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1817: ,p_debug_mode IN VARCHAR2 := 'N'
1818: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1819: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1820: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1821: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1822: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1815: ,p_validation_level IN VARCHAR2 := 100
1816: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1817: ,p_debug_mode IN VARCHAR2 := 'N'
1818: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1819: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1820: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1821: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1822: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1823: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1816: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1817: ,p_debug_mode IN VARCHAR2 := 'N'
1818: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1819: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1820: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1821: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1822: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1823: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1824: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1817: ,p_debug_mode IN VARCHAR2 := 'N'
1818: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1819: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1820: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1821: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1822: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1823: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1824: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1825: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1818: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1819: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1820: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1821: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1822: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1823: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1824: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1825: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1826: ,p_peer_or_sub IN VARCHAR2
1819: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1820: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1821: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1822: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1823: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1824: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1825: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1826: ,p_peer_or_sub IN VARCHAR2
1827: ,p_record_version_number IN NUMBER
1820: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1821: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1822: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1823: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1824: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1825: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1826: ,p_peer_or_sub IN VARCHAR2
1827: ,p_record_version_number IN NUMBER
1828: ,p_wbs_record_version_number IN NUMBER
1821: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1822: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1823: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1824: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1825: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1826: ,p_peer_or_sub IN VARCHAR2
1827: ,p_record_version_number IN NUMBER
1828: ,p_wbs_record_version_number IN NUMBER
1829: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1854: IF (p_debug_mode = 'Y')
1855: THEN
1856: pa_debug.debug('Move Task PUB : Checking the api version number.');
1857: END IF;
1858: IF p_commit = FND_API.G_TRUE
1859: THEN
1860: SAVEPOINT Move;
1861: END IF;
1862: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1858: IF p_commit = FND_API.G_TRUE
1859: THEN
1860: SAVEPOINT Move;
1861: END IF;
1862: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1863: p_api_version,
1864: l_api_name,
1865: g_pkg_name)
1866: THEN
1863: p_api_version,
1864: l_api_name,
1865: g_pkg_name)
1866: THEN
1867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1868: END IF;
1869: if (p_debug_mode = 'Y') then
1870: pa_debug.debug('Move Task PUB : Initializing message stack.');
1871: end if;
1869: if (p_debug_mode = 'Y') then
1870: pa_debug.debug('Move Task PUB : Initializing message stack.');
1871: end if;
1872: pa_debug.init_err_stack('PA_TASK_MAINT_PUB.MOVE_TASK');
1873: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
1874: fnd_msg_pub.initialize;
1875: end if;
1876:
1877: --dbms_output.put_line( 'Before name to id conv. ' );
1878: --commenting after discussing with Hubert and Sakthi.
1879: /*IF (p_calling_module = 'SELF_SERVICE') OR (p_calling_module = 'EXCHANGE') THEN
1880:
1881: --Check Project Name and Id
1882: IF ((p_project_name <> FND_API.G_MISS_CHAR) AND
1883: (p_project_name IS NOT NULL)) OR
1884: ((p_project_id <> FND_API.G_MISS_NUM) AND
1885: (p_project_id IS NOT NULL)) THEN
1886: --Call Check API.
1880:
1881: --Check Project Name and Id
1882: IF ((p_project_name <> FND_API.G_MISS_CHAR) AND
1883: (p_project_name IS NOT NULL)) OR
1884: ((p_project_id <> FND_API.G_MISS_NUM) AND
1885: (p_project_id IS NOT NULL)) THEN
1886: --Call Check API.
1887: pa_tasks_maint_utils.CHECK_PROJECT_NAME_OR_ID(
1888: p_project_id => p_project_id,
1889: p_project_name => p_project_name,
1890: x_project_id => l_project_id,
1891: x_return_status => l_return_status,
1892: x_error_msg_code => l_error_msg_code);
1893: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1894: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1895: p_msg_name => l_error_msg_code);
1896: END IF;
1897: END IF; --End Project Name-Id Conversion
1898:
1899: --dbms_output.put_line( 'Before name to id conv. 2' );
1900:
1901: --Check Task Name and Id
1902: IF ((p_task_name <> FND_API.G_MISS_CHAR) AND
1903: (p_task_name IS NOT NULL)) OR
1904: ((p_task_id <> FND_API.G_MISS_NUM) AND
1905: (p_task_id IS NOT NULL)) THEN
1906: --Call Check API.
1900:
1901: --Check Task Name and Id
1902: IF ((p_task_name <> FND_API.G_MISS_CHAR) AND
1903: (p_task_name IS NOT NULL)) OR
1904: ((p_task_id <> FND_API.G_MISS_NUM) AND
1905: (p_task_id IS NOT NULL)) THEN
1906: --Call Check API.
1907: pa_tasks_maint_utils.CHECK_TASK_NAME_OR_ID(
1908: p_project_id => l_project_id,
1910: p_task_name => p_task_name,
1911: x_task_id => l_task_id,
1912: x_return_status => l_return_status,
1913: x_error_msg_code => l_error_msg_code);
1914: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1915: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1916: p_msg_name => l_error_msg_code);
1917: END IF;
1918: END IF; --End Task Name-Id Conversion
1919:
1920: --dbms_output.put_line( 'Before name to id conv. 3' );
1921:
1922: --Check reference Project Name and Id
1923: IF ((p_reference_project_name <> FND_API.G_MISS_CHAR) AND
1924: (p_reference_project_name IS NOT NULL)) OR
1925: ((p_reference_project_id <> FND_API.G_MISS_NUM) AND
1926: (p_reference_project_id IS NOT NULL)) THEN
1927: --Call Check API.
1921:
1922: --Check reference Project Name and Id
1923: IF ((p_reference_project_name <> FND_API.G_MISS_CHAR) AND
1924: (p_reference_project_name IS NOT NULL)) OR
1925: ((p_reference_project_id <> FND_API.G_MISS_NUM) AND
1926: (p_reference_project_id IS NOT NULL)) THEN
1927: --Call Check API.
1928: pa_tasks_maint_utils.CHECK_PROJECT_NAME_OR_ID(
1929: p_project_id => p_reference_project_id,
1930: p_project_name => p_reference_project_name,
1931: x_project_id => l_ref_project_id,
1932: x_return_status => l_return_status,
1933: x_error_msg_code => l_error_msg_code);
1934: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1935: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1936: p_msg_name => l_error_msg_code);
1937: END IF;
1938: END IF; --End Ref Project Name-Id Conversion
1939:
1940: --dbms_output.put_line( 'Before name to id conv. 4' );
1941:
1942: --Check reference Task Name and Id
1943: IF ((p_reference_task_name <> FND_API.G_MISS_CHAR) AND
1944: (p_reference_task_name IS NOT NULL)) OR
1945: ((p_reference_task_id <> FND_API.G_MISS_NUM) AND
1946: (p_reference_task_id IS NOT NULL)) THEN
1947: --Call Check API.
1941:
1942: --Check reference Task Name and Id
1943: IF ((p_reference_task_name <> FND_API.G_MISS_CHAR) AND
1944: (p_reference_task_name IS NOT NULL)) OR
1945: ((p_reference_task_id <> FND_API.G_MISS_NUM) AND
1946: (p_reference_task_id IS NOT NULL)) THEN
1947: --Call Check API.
1948: pa_tasks_maint_utils.CHECK_TASK_NAME_OR_ID(
1949: p_project_id => l_ref_project_id,
1951: p_task_name => p_reference_task_name,
1952: x_task_id => l_ref_task_id,
1953: x_return_status => l_return_status,
1954: x_error_msg_code => l_error_msg_code);
1955: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1956: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1957: p_msg_name => l_error_msg_code);
1958: END IF;
1959: END IF; --End Ref Task Name-Id Conversion
1988: x_msg_count := l_msg_count;
1989: x_msg_data := x_msg_data;
1990: --dbms_output.put_line( 'x_msg_data '||x_msg_data );
1991: x_return_status := 'E';
1992: RAISE FND_API.G_EXC_ERROR;
1993: END IF;
1994:
1995: --dbms_output.put_line( 'After locking 2 ' );
1996:
2005: If l_msg_count > 0 THEN
2006: x_msg_count := l_msg_count;
2007: If l_msg_count = 1 THEN
2008: pa_interface_utils_pub.get_messages
2009: (p_encoded => FND_API.G_TRUE ,
2010: p_msg_index => 1,
2011: p_msg_count => l_msg_count ,
2012: p_msg_data => l_error_msg_code,
2013: p_data => l_data,
2015:
2016: x_msg_data := l_data;
2017:
2018: End if;
2019: RAISE FND_API.G_EXC_ERROR;
2020: End if;
2021:
2022:
2023: PA_TASKS_MAINT_PVT.Move_Task(
2045: If l_msg_count > 0 THEN
2046: x_msg_count := l_msg_count;
2047: If l_msg_count = 1 THEN
2048: pa_interface_utils_pub.get_messages
2049: (p_encoded => FND_API.G_TRUE ,
2050: p_msg_index => 1,
2051: p_msg_count => l_msg_count,
2052: p_msg_data => l_msg_data,
2053: p_data => l_data,
2056: x_msg_data := l_data;
2057:
2058:
2059: End if;
2060: RAISE FND_API.G_EXC_ERROR;
2061: End if;
2062:
2063: PA_TASKS_MAINT_UTILS.INCREMENT_WBS_REC_VER_NUM(
2064: p_project_id => l_ref_project_id,
2065: p_wbs_record_version_number => p_wbs_record_version_number,
2066: x_return_status => x_return_status );
2067:
2068:
2069: IF FND_API.TO_BOOLEAN(P_COMMIT)
2070: THEN
2071: COMMIT WORK;
2072: END IF;
2073:
2071: COMMIT WORK;
2072: END IF;
2073:
2074: EXCEPTION
2075: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2076: IF p_commit = FND_API.G_TRUE
2077: THEN
2078: ROLLBACK TO Move;
2079: END IF;
2072: END IF;
2073:
2074: EXCEPTION
2075: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2076: IF p_commit = FND_API.G_TRUE
2077: THEN
2078: ROLLBACK TO Move;
2079: END IF;
2080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2076: IF p_commit = FND_API.G_TRUE
2077: THEN
2078: ROLLBACK TO Move;
2079: END IF;
2080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2081: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
2082: p_procedure_name => 'Move_Task',
2083: p_error_text => SUBSTRB(SQLERRM,1,240));
2084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2081: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
2082: p_procedure_name => 'Move_Task',
2083: p_error_text => SUBSTRB(SQLERRM,1,240));
2084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2085:
2086: WHEN FND_API.G_EXC_ERROR THEN
2087: IF p_commit = FND_API.G_TRUE
2088: THEN
2082: p_procedure_name => 'Move_Task',
2083: p_error_text => SUBSTRB(SQLERRM,1,240));
2084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2085:
2086: WHEN FND_API.G_EXC_ERROR THEN
2087: IF p_commit = FND_API.G_TRUE
2088: THEN
2089: ROLLBACK TO Move;
2090: END IF;
2083: p_error_text => SUBSTRB(SQLERRM,1,240));
2084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2085:
2086: WHEN FND_API.G_EXC_ERROR THEN
2087: IF p_commit = FND_API.G_TRUE
2088: THEN
2089: ROLLBACK TO Move;
2090: END IF;
2091: x_return_status := 'E';
2090: END IF;
2091: x_return_status := 'E';
2092:
2093: WHEN OTHERS THEN
2094: IF p_commit = FND_API.G_TRUE
2095: THEN
2096: ROLLBACK TO Move;
2097: END IF;
2098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2094: IF p_commit = FND_API.G_TRUE
2095: THEN
2096: ROLLBACK TO Move;
2097: END IF;
2098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2099: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
2100: p_procedure_name => 'Move_Task',
2101: p_error_text => SUBSTRB(SQLERRM,1,240));
2102: RAISE;
2109: -- Pre-reqs : None
2110: -- Return Value : N/A
2111: -- Prameters
2112: -- p_api_version IN NUMBER := 1.0
2113: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2114: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2115: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2116: -- p_validation_level IN VARCHAR2 := 100
2117: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2110: -- Return Value : N/A
2111: -- Prameters
2112: -- p_api_version IN NUMBER := 1.0
2113: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2114: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2115: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2116: -- p_validation_level IN VARCHAR2 := 100
2117: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2118: -- p_debug_mode IN VARCHAR2 := 'N'
2111: -- Prameters
2112: -- p_api_version IN NUMBER := 1.0
2113: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2114: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2115: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2116: -- p_validation_level IN VARCHAR2 := 100
2117: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2118: -- p_debug_mode IN VARCHAR2 := 'N'
2119: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2115: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2116: -- p_validation_level IN VARCHAR2 := 100
2117: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2118: -- p_debug_mode IN VARCHAR2 := 'N'
2119: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2120: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2121: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2122: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2123: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
2116: -- p_validation_level IN VARCHAR2 := 100
2117: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2118: -- p_debug_mode IN VARCHAR2 := 'N'
2119: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2120: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2121: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2122: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2123: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
2124: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2117: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2118: -- p_debug_mode IN VARCHAR2 := 'N'
2119: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2120: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2121: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2122: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2123: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
2124: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2125: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
2118: -- p_debug_mode IN VARCHAR2 := 'N'
2119: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2120: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2121: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2122: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2123: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
2124: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2125: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
2126: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2119: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2120: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2121: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2122: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2123: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
2124: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2125: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
2126: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2127: -- p_peer_or_sub IN VARCHAR2 REQUIRED
2120: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2121: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2122: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2123: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
2124: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2125: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
2126: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2127: -- p_peer_or_sub IN VARCHAR2 REQUIRED
2128: -- p_copy_node_flag IN VARCHAR2 REQUIRED
2121: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2122: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2123: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
2124: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2125: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
2126: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2127: -- p_peer_or_sub IN VARCHAR2 REQUIRED
2128: -- p_copy_node_flag IN VARCHAR2 REQUIRED
2129: -- p_task_prefix IN VARCHAR2 REQUIRED
2122: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2123: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
2124: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2125: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
2126: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2127: -- p_peer_or_sub IN VARCHAR2 REQUIRED
2128: -- p_copy_node_flag IN VARCHAR2 REQUIRED
2129: -- p_task_prefix IN VARCHAR2 REQUIRED
2130: -- p_wbs_record_version_number IN NUMBER
2139: --
2140:
2141: PROCEDURE Copy_Task(
2142: p_api_version IN NUMBER := 1.0
2143: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2144: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2145: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2146: ,p_validation_level IN VARCHAR2 := 100
2147: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2140:
2141: PROCEDURE Copy_Task(
2142: p_api_version IN NUMBER := 1.0
2143: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2144: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2145: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2146: ,p_validation_level IN VARCHAR2 := 100
2147: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2148: ,p_debug_mode IN VARCHAR2 := 'N'
2141: PROCEDURE Copy_Task(
2142: p_api_version IN NUMBER := 1.0
2143: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2144: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2145: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2146: ,p_validation_level IN VARCHAR2 := 100
2147: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2148: ,p_debug_mode IN VARCHAR2 := 'N'
2149: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2145: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2146: ,p_validation_level IN VARCHAR2 := 100
2147: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2148: ,p_debug_mode IN VARCHAR2 := 'N'
2149: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2150: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2151: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2152: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2153: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
2146: ,p_validation_level IN VARCHAR2 := 100
2147: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2148: ,p_debug_mode IN VARCHAR2 := 'N'
2149: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2150: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2151: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2152: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2153: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
2154: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2147: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2148: ,p_debug_mode IN VARCHAR2 := 'N'
2149: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2150: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2151: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2152: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2153: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
2154: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2155: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
2148: ,p_debug_mode IN VARCHAR2 := 'N'
2149: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2150: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2151: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2152: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2153: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
2154: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2155: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
2156: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2149: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2150: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2151: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2152: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2153: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
2154: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2155: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
2156: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2157: ,p_peer_or_sub IN VARCHAR2
2150: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2151: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2152: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2153: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
2154: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2155: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
2156: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2157: ,p_peer_or_sub IN VARCHAR2
2158: ,p_copy_node_flag IN VARCHAR2
2151: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2152: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2153: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
2154: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2155: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
2156: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2157: ,p_peer_or_sub IN VARCHAR2
2158: ,p_copy_node_flag IN VARCHAR2
2159: ,p_task_prefix IN VARCHAR2
2152: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2153: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
2154: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2155: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
2156: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2157: ,p_peer_or_sub IN VARCHAR2
2158: ,p_copy_node_flag IN VARCHAR2
2159: ,p_task_prefix IN VARCHAR2
2160: ,p_wbs_record_version_number IN NUMBER
2187: IF (p_debug_mode = 'Y')
2188: THEN
2189: pa_debug.debug('Copy Task PUB : Checking the api version number.');
2190: END IF;
2191: IF p_commit = FND_API.G_TRUE
2192: THEN
2193: SAVEPOINT Copy;
2194: END IF;
2195: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2191: IF p_commit = FND_API.G_TRUE
2192: THEN
2193: SAVEPOINT Copy;
2194: END IF;
2195: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2196: p_api_version,
2197: l_api_name,
2198: g_pkg_name)
2199: THEN
2196: p_api_version,
2197: l_api_name,
2198: g_pkg_name)
2199: THEN
2200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2201: END IF;
2202: if (p_debug_mode = 'Y') then
2203: pa_debug.debug('Copy Task PUB : Initializing message stack.');
2204: end if;
2202: if (p_debug_mode = 'Y') then
2203: pa_debug.debug('Copy Task PUB : Initializing message stack.');
2204: end if;
2205: pa_debug.init_err_stack('PA_TASK_MAINT_PUB.COPY_TASK');
2206: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
2207: fnd_msg_pub.initialize;
2208: end if;
2209:
2210: IF (p_calling_module = 'SELF_SERVICE') OR (p_calling_module = 'EXCHANGE') THEN
2209:
2210: IF (p_calling_module = 'SELF_SERVICE') OR (p_calling_module = 'EXCHANGE') THEN
2211:
2212: --Check Project Name and Id
2213: IF ((p_project_name <> FND_API.G_MISS_CHAR) AND
2214: (p_project_name IS NOT NULL)) OR
2215: ((p_project_id <> FND_API.G_MISS_NUM) AND
2216: (p_project_id IS NOT NULL)) THEN
2217: --Call Check API.
2211:
2212: --Check Project Name and Id
2213: IF ((p_project_name <> FND_API.G_MISS_CHAR) AND
2214: (p_project_name IS NOT NULL)) OR
2215: ((p_project_id <> FND_API.G_MISS_NUM) AND
2216: (p_project_id IS NOT NULL)) THEN
2217: --Call Check API.
2218: pa_tasks_maint_utils.CHECK_PROJECT_NAME_OR_ID(
2219: p_project_id => p_project_id,
2221: p_check_id_flag => 'Y', -- Bug 2623999
2222: x_project_id => l_project_id,
2223: x_return_status => l_return_status,
2224: x_error_msg_code => l_error_msg_code);
2225: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2226: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2227: p_msg_name => l_error_msg_code);
2228: END IF;
2229: END IF; --End Project Name-Id Conversion
2228: END IF;
2229: END IF; --End Project Name-Id Conversion
2230:
2231: --Check Task Name and Id
2232: IF ((p_task_name <> FND_API.G_MISS_CHAR) AND
2233: (p_task_name IS NOT NULL)) OR
2234: ((p_task_id <> FND_API.G_MISS_NUM) AND
2235: (p_task_id IS NOT NULL)) THEN
2236: --Call Check API.
2230:
2231: --Check Task Name and Id
2232: IF ((p_task_name <> FND_API.G_MISS_CHAR) AND
2233: (p_task_name IS NOT NULL)) OR
2234: ((p_task_id <> FND_API.G_MISS_NUM) AND
2235: (p_task_id IS NOT NULL)) THEN
2236: --Call Check API.
2237: pa_tasks_maint_utils.CHECK_TASK_NAME_OR_ID(
2238: p_project_id => l_project_id,
2241: p_task_name => p_task_name,
2242: x_task_id => l_task_id,
2243: x_return_status => l_return_status,
2244: x_error_msg_code => l_error_msg_code);
2245: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2246: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2247: p_msg_name => l_error_msg_code);
2248: END IF;
2249: END IF; --End Task Name-Id Conversion
2249: END IF; --End Task Name-Id Conversion
2250:
2251: /*--Do not validate reference parameters - as per discussion with Sakthi and Zahid
2252: --Check reference Project Name and Id
2253: IF ((p_reference_project_name <> FND_API.G_MISS_CHAR) AND
2254: (p_reference_project_name IS NOT NULL)) OR
2255: ((p_reference_project_id <> FND_API.G_MISS_NUM) AND
2256: (p_reference_project_id IS NOT NULL)) THEN
2257: --Call Check API.
2251: /*--Do not validate reference parameters - as per discussion with Sakthi and Zahid
2252: --Check reference Project Name and Id
2253: IF ((p_reference_project_name <> FND_API.G_MISS_CHAR) AND
2254: (p_reference_project_name IS NOT NULL)) OR
2255: ((p_reference_project_id <> FND_API.G_MISS_NUM) AND
2256: (p_reference_project_id IS NOT NULL)) THEN
2257: --Call Check API.
2258: pa_tasks_maint_utils.CHECK_PROJECT_NAME_OR_ID(
2259: p_project_id => p_reference_project_id,
2260: p_project_name => p_reference_project_name,
2261: x_project_id => l_ref_project_id,
2262: x_return_status => l_return_status,
2263: x_error_msg_code => l_error_msg_code);
2264: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2265: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2266: p_msg_name => l_error_msg_code);
2267: END IF;
2268: END IF; --End Ref Project Name-Id Conversion
2267: END IF;
2268: END IF; --End Ref Project Name-Id Conversion
2269:
2270: --Check reference Task Name and Id
2271: IF ((p_reference_task_name <> FND_API.G_MISS_CHAR) AND
2272: (p_reference_task_name IS NOT NULL)) OR
2273: ((p_reference_task_id <> FND_API.G_MISS_NUM) AND
2274: (p_reference_task_id IS NOT NULL)) THEN
2275: --Call Check API.
2269:
2270: --Check reference Task Name and Id
2271: IF ((p_reference_task_name <> FND_API.G_MISS_CHAR) AND
2272: (p_reference_task_name IS NOT NULL)) OR
2273: ((p_reference_task_id <> FND_API.G_MISS_NUM) AND
2274: (p_reference_task_id IS NOT NULL)) THEN
2275: --Call Check API.
2276: pa_tasks_maint_utils.CHECK_TASK_NAME_OR_ID(
2277: p_project_id => l_ref_project_id,
2279: p_task_name => p_reference_task_name,
2280: x_task_id => l_ref_task_id,
2281: x_return_status => l_return_status,
2282: x_error_msg_code => l_error_msg_code);
2283: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2284: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2285: p_msg_name => l_error_msg_code);
2286: END IF;
2287: END IF; --End Ref Task Name-Id Conversion*/
2299: p_reference_task_id => l_ref_task_id,
2300: x_return_status => l_return_status,
2301: x_error_msg_code => l_error_msg_code );
2302:
2303: IF l_return_status = FND_API.G_RET_STS_ERROR
2304: THEN
2305: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2306: p_msg_name => l_error_msg_code);
2307: x_msg_data := l_error_msg_code;
2325: l_msg_count := FND_MSG_PUB.count_msg;
2326: IF l_msg_count > 0 THEN
2327: x_msg_count := l_msg_count;
2328: x_return_status := 'E';
2329: RAISE FND_API.G_EXC_ERROR;
2330: END IF;
2331:
2332: IF p_copy_node_flag = 'P' ----copy entire project
2333: THEN
2391: If l_msg_count > 0 THEN
2392: x_msg_count := l_msg_count;
2393: If l_msg_count = 1 THEN
2394: pa_interface_utils_pub.get_messages
2395: (p_encoded => FND_API.G_TRUE ,
2396: p_msg_index => 1,
2397: p_msg_count => l_msg_count ,
2398: p_msg_data => l_msg_data,
2399: p_data => l_data,
2401:
2402: x_msg_data := l_data;
2403:
2404: End if;
2405: RAISE FND_API.G_EXC_ERROR;
2406: End if;
2407:
2408: PA_TASKS_MAINT_UTILS.INCREMENT_WBS_REC_VER_NUM(
2409: p_project_id => l_ref_project_id,
2409: p_project_id => l_ref_project_id,
2410: p_wbs_record_version_number => p_wbs_record_version_number,
2411: x_return_status => x_return_status );
2412:
2413: IF FND_API.TO_BOOLEAN(P_COMMIT)
2414: THEN
2415: COMMIT WORK;
2416: END IF;
2417:
2415: COMMIT WORK;
2416: END IF;
2417:
2418: EXCEPTION
2419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2420: IF p_commit = FND_API.G_TRUE
2421: THEN
2422: ROLLBACK TO Copy;
2423: END IF;
2416: END IF;
2417:
2418: EXCEPTION
2419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2420: IF p_commit = FND_API.G_TRUE
2421: THEN
2422: ROLLBACK TO Copy;
2423: END IF;
2424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2420: IF p_commit = FND_API.G_TRUE
2421: THEN
2422: ROLLBACK TO Copy;
2423: END IF;
2424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2425: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
2426: p_procedure_name => 'Copy_Task',
2427: p_error_text => SUBSTRB(SQLERRM,1,240));
2428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2425: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
2426: p_procedure_name => 'Copy_Task',
2427: p_error_text => SUBSTRB(SQLERRM,1,240));
2428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2429:
2430: WHEN FND_API.G_EXC_ERROR THEN
2431: IF p_commit = FND_API.G_TRUE
2432: THEN
2426: p_procedure_name => 'Copy_Task',
2427: p_error_text => SUBSTRB(SQLERRM,1,240));
2428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2429:
2430: WHEN FND_API.G_EXC_ERROR THEN
2431: IF p_commit = FND_API.G_TRUE
2432: THEN
2433: ROLLBACK TO Copy;
2434: END IF;
2427: p_error_text => SUBSTRB(SQLERRM,1,240));
2428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2429:
2430: WHEN FND_API.G_EXC_ERROR THEN
2431: IF p_commit = FND_API.G_TRUE
2432: THEN
2433: ROLLBACK TO Copy;
2434: END IF;
2435: x_return_status := 'E';
2434: END IF;
2435: x_return_status := 'E';
2436:
2437: WHEN OTHERS THEN
2438: IF p_commit = FND_API.G_TRUE
2439: THEN
2440: ROLLBACK TO Copy;
2441: END IF;
2442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2438: IF p_commit = FND_API.G_TRUE
2439: THEN
2440: ROLLBACK TO Copy;
2441: END IF;
2442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2443: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
2444: p_procedure_name => 'Copy_Task',
2445: p_error_text => SUBSTRB(SQLERRM,1,240));
2446: RAISE;
2472:
2473: PROCEDURE SET_FINANCIAL_FLAG_WRAPPER
2474: (
2475: p_api_version IN NUMBER := 1.0
2476: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2477: , p_commit IN VARCHAR2 := FND_API.G_FALSE
2478: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
2479: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2480: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2473: PROCEDURE SET_FINANCIAL_FLAG_WRAPPER
2474: (
2475: p_api_version IN NUMBER := 1.0
2476: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2477: , p_commit IN VARCHAR2 := FND_API.G_FALSE
2478: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
2479: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2480: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2481: , p_debug_mode IN VARCHAR2 := 'N'
2474: (
2475: p_api_version IN NUMBER := 1.0
2476: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2477: , p_commit IN VARCHAR2 := FND_API.G_FALSE
2478: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
2479: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2480: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2481: , p_debug_mode IN VARCHAR2 := 'N'
2482: , p_task_version_id IN NUMBER
2475: p_api_version IN NUMBER := 1.0
2476: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2477: , p_commit IN VARCHAR2 := FND_API.G_FALSE
2478: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
2479: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2480: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2481: , p_debug_mode IN VARCHAR2 := 'N'
2482: , p_task_version_id IN NUMBER
2483: , p_checked_flag IN VARCHAR2
2657: l_login_id NUMBER;
2658: l_wp_version_enabled VARCHAR2(1);--Bug 4482903
2659: BEGIN
2660: x_msg_count := 0;
2661: x_return_status := FND_API.G_RET_STS_SUCCESS;
2662: --Delete the elements from the table, if any
2663: l_task_version_id_tbl.DELETE;
2664:
2665: --Bug 3735089 - instead of fnd_profile.value use fnd_profile.value_specific
2691: Pa_Debug.WRITE(g_pkg_name,'p_published_version_exists'||':'||p_published_version_exists,
2692: l_debug_level3);
2693: END IF;
2694:
2695: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2696: FND_MSG_PUB.initialize;
2697: END IF;
2698:
2699: IF (p_commit = FND_API.G_TRUE) THEN
2695: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2696: FND_MSG_PUB.initialize;
2697: END IF;
2698:
2699: IF (p_commit = FND_API.G_TRUE) THEN
2700: savepoint SET_FIN_FLAG_WRAPPER_PUBLIC;
2701: END IF;
2702:
2703: IF l_debug_mode = 'Y' THEN
2731: --Call API to set/unset financial_flag for p_task_version_id depending on p_checked_flag.
2732:
2733: PA_TASKS_MAINT_PVT.SET_UNSET_FINANCIAL_TASK
2734: (
2735: p_init_msg_list => FND_API.G_FALSE
2736: , p_commit => p_commit
2737: , p_debug_mode => l_debug_mode
2738: , p_task_version_id => p_task_version_id
2739: , p_project_id => p_project_id
2742: , x_msg_count => x_msg_count
2743: , x_msg_data => x_msg_data
2744: );
2745:
2746: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2747: THEN
2748: RAISE FND_API.G_EXC_ERROR;
2749: END IF;
2750: l_wp_version_enabled := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED(p_project_id); --Bug 4482903
2744: );
2745:
2746: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2747: THEN
2748: RAISE FND_API.G_EXC_ERROR;
2749: END IF;
2750: l_wp_version_enabled := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED(p_project_id); --Bug 4482903
2751: --If p_published_version_exists ='N'
2752: -- IF ( p_published_version_exists = 'N') --Bug 4482903
2792: , x_msg_count => x_msg_count
2793: , x_msg_data => x_msg_data
2794: );
2795:
2796: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2797: THEN
2798: RAISE FND_API.G_EXC_ERROR;
2799: END IF;
2800:
2794: );
2795:
2796: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2797: THEN
2798: RAISE FND_API.G_EXC_ERROR;
2799: END IF;
2800:
2801: IF ( p_published_version_exists = 'N')
2802: THEN
2840: , x_msg_count => x_msg_count
2841: , x_msg_data => x_msg_data
2842: );
2843:
2844: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2845: THEN
2846: RAISE FND_API.G_EXC_ERROR;
2847: END IF;
2848:
2842: );
2843:
2844: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2845: THEN
2846: RAISE FND_API.G_EXC_ERROR;
2847: END IF;
2848:
2849: IF ( p_published_version_exists = 'N')
2850: THEN
2884: --if the parent is structure then then pass p_parent_task_version_id as null
2885: PA_TASKS_MAINT_PUB.SYNC_UP_WP_TASKS_WITH_FIN
2886: (
2887: p_api_version => 1.0
2888: , p_init_msg_list => FND_API.G_FALSE
2889: , p_commit => p_commit
2890: , p_validate_only => FND_API.G_FALSE
2891: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2892: , p_calling_module => 'SELF_SERVICE'
2886: (
2887: p_api_version => 1.0
2888: , p_init_msg_list => FND_API.G_FALSE
2889: , p_commit => p_commit
2890: , p_validate_only => FND_API.G_FALSE
2891: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2892: , p_calling_module => 'SELF_SERVICE'
2893: , p_debug_mode => l_debug_mode
2894: , p_patask_record_version_number => l_patask_record_version_number
2887: p_api_version => 1.0
2888: , p_init_msg_list => FND_API.G_FALSE
2889: , p_commit => p_commit
2890: , p_validate_only => FND_API.G_FALSE
2891: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2892: , p_calling_module => 'SELF_SERVICE'
2893: , p_debug_mode => l_debug_mode
2894: , p_patask_record_version_number => l_patask_record_version_number
2895: , p_parent_task_version_id => FND_API.G_MISS_NUM
2891: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2892: , p_calling_module => 'SELF_SERVICE'
2893: , p_debug_mode => l_debug_mode
2894: , p_patask_record_version_number => l_patask_record_version_number
2895: , p_parent_task_version_id => FND_API.G_MISS_NUM
2896: , p_project_id => p_project_id
2897: , p_syncup_all_tasks => 'N'
2898: -- , p_task_version_id => l_task_version_id_tbl(l_task_version_id_tbl.LAST)--Bug 3735089
2899: , p_task_version_id => l_syncup_task_version_id
2896: , p_project_id => p_project_id
2897: , p_syncup_all_tasks => 'N'
2898: -- , p_task_version_id => l_task_version_id_tbl(l_task_version_id_tbl.LAST)--Bug 3735089
2899: , p_task_version_id => l_syncup_task_version_id
2900: , p_structure_version_id => FND_API.G_MISS_NUM
2901: , p_check_for_transactions => 'N'
2902: , p_checked_flag => p_checked_flag
2903: , p_mode => 'SINGLE'
2904: , x_return_status => x_return_status
2905: , x_msg_count => x_msg_count
2906: , x_msg_data => x_msg_data
2907: );
2908: -- Bug 3735089 : Added error handling code
2909: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2910: THEN
2911: RAISE FND_API.G_EXC_ERROR;
2912: END IF;
2913:
2907: );
2908: -- Bug 3735089 : Added error handling code
2909: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2910: THEN
2911: RAISE FND_API.G_EXC_ERROR;
2912: END IF;
2913:
2914: ELSE
2915:
2917: PA_TASKS_MAINT_PUB.SYNC_UP_WP_TASKS_WITH_FIN
2918: (
2919: p_debug_mode => l_debug_mode
2920: , p_commit => p_commit
2921: , p_init_msg_list => FND_API.G_FALSE
2922: , p_patask_record_version_number => l_patask_record_version_number
2923: , p_parent_task_version_id => l_last_task_parent_id
2924: , p_project_id => p_project_id
2925: , p_syncup_all_tasks =>'N'
2932: , x_msg_count => x_msg_count
2933: , x_msg_data => x_msg_data
2934: );
2935: -- Bug 3735089 : Added error handling code
2936: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2937: THEN
2938: RAISE FND_API.G_EXC_ERROR;
2939: END IF;
2940:
2934: );
2935: -- Bug 3735089 : Added error handling code
2936: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2937: THEN
2938: RAISE FND_API.G_EXC_ERROR;
2939: END IF;
2940:
2941: END IF;
2942: CLOSE c_get_immediate_parent;
2951: PA_TASKS_MAINT_PUB.SYNC_UP_WP_TASKS_WITH_FIN
2952: (
2953: p_debug_mode => l_debug_mode
2954: , p_commit => p_commit
2955: , p_init_msg_list => FND_API.G_FALSE
2956: , p_patask_record_version_number => l_patask_record_version_number
2957: , p_parent_task_version_id => l_task_version_id_tbl( iCounter + 1 )
2958: , p_project_id => p_project_id
2959: , p_syncup_all_tasks =>'N'
2964: , x_return_status => x_return_status
2965: , x_msg_count => x_msg_count
2966: , x_msg_data => x_msg_data
2967: );
2968: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2969: THEN
2970: RAISE FND_API.G_EXC_ERROR;
2971: END IF;
2972: END LOOP;
2966: , x_msg_data => x_msg_data
2967: );
2968: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2969: THEN
2970: RAISE FND_API.G_EXC_ERROR;
2971: END IF;
2972: END LOOP;
2973: END IF;
2974: END IF;
2972: END LOOP;
2973: END IF;
2974: END IF;
2975:
2976: IF (p_commit = FND_API.G_TRUE) THEN
2977: COMMIT;
2978: END IF;
2979: -- Bug 3735089 : using reset_curr_function too, just using set_curr_function may overflow it after several recursive calls
2980: -- and it gives ORA 06512 numeric or value error
2983: END IF;
2984:
2985: EXCEPTION
2986:
2987: WHEN FND_API.G_EXC_ERROR THEN
2988:
2989: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2990: l_msg_count := Fnd_Msg_Pub.count_msg;
2991:
2985: EXCEPTION
2986:
2987: WHEN FND_API.G_EXC_ERROR THEN
2988:
2989: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2990: l_msg_count := Fnd_Msg_Pub.count_msg;
2991:
2992: IF p_commit = FND_API.G_TRUE THEN
2993: ROLLBACK TO SET_FIN_FLAG_WRAPPER_PUBLIC;
2988:
2989: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2990: l_msg_count := Fnd_Msg_Pub.count_msg;
2991:
2992: IF p_commit = FND_API.G_TRUE THEN
2993: ROLLBACK TO SET_FIN_FLAG_WRAPPER_PUBLIC;
2994: END IF;
2995:
2996: IF c_get_parents%ISOPEN THEN
3010:
3011: IF l_msg_count = 1 AND x_msg_data IS NULL
3012: THEN
3013: Pa_Interface_Utils_Pub.get_messages
3014: ( p_encoded => Fnd_Api.G_TRUE
3015: , p_msg_index => 1
3016: , p_msg_count => l_msg_count
3017: , p_msg_data => l_msg_data
3018: , p_data => l_data
3028: END IF;
3029:
3030: WHEN Invalid_Arg_Exc_WP THEN
3031:
3032: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3033: x_msg_count := 1;
3034: x_msg_data := 'PA_TASKS_MAINT_PUB : SET_FINANCIAL_FLAG_WRAPPER : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
3035:
3036: IF p_commit = FND_API.G_TRUE THEN
3032: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3033: x_msg_count := 1;
3034: x_msg_data := 'PA_TASKS_MAINT_PUB : SET_FINANCIAL_FLAG_WRAPPER : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
3035:
3036: IF p_commit = FND_API.G_TRUE THEN
3037: ROLLBACK TO SET_FIN_FLAG_WRAPPER_PUBLIC;
3038: END IF;
3039: IF c_get_parents%ISOPEN THEN
3040: CLOSE c_get_parents;
3063: RAISE;
3064:
3065: WHEN OTHERS THEN
3066:
3067: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3068: x_msg_count := 1;
3069: x_msg_data := substr(SQLERRM,1,120);-- Bug 3735089 Added substr
3070:
3071: IF p_commit = FND_API.G_TRUE THEN
3067: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3068: x_msg_count := 1;
3069: x_msg_data := substr(SQLERRM,1,120);-- Bug 3735089 Added substr
3070:
3071: IF p_commit = FND_API.G_TRUE THEN
3072: ROLLBACK TO SET_FIN_FLAG_WRAPPER_PUBLIC;
3073: END IF;
3074:
3075: IF c_get_parents%ISOPEN THEN
3122:
3123: PROCEDURE POPULATE_TEMP_TABLE
3124: (
3125: p_api_version IN NUMBER := 1.0
3126: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3127: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3128: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3129: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3130: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3123: PROCEDURE POPULATE_TEMP_TABLE
3124: (
3125: p_api_version IN NUMBER := 1.0
3126: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3127: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3128: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3129: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3130: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3131: , p_debug_mode IN VARCHAR2 := 'N'
3124: (
3125: p_api_version IN NUMBER := 1.0
3126: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3127: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3128: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3129: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3130: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3131: , p_debug_mode IN VARCHAR2 := 'N'
3132: , p_task_version_id_array IN SYSTEM.PA_NUM_TBL_TYPE := NULL
3125: p_api_version IN NUMBER := 1.0
3126: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3127: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3128: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3129: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3130: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3131: , p_debug_mode IN VARCHAR2 := 'N'
3132: , p_task_version_id_array IN SYSTEM.PA_NUM_TBL_TYPE := NULL
3133: , p_structure_version_id IN NUMBER
3246:
3247: BEGIN
3248:
3249: x_msg_count := 0;
3250: x_return_status := FND_API.G_RET_STS_SUCCESS;
3251:
3252: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3253: --l_debug_mode := NVL(p_debug_mode,'N');
3254: IF l_debug_mode = 'Y' THEN
3291: l_wbs_number_tbl.DELETE;
3292: l_proj_element_id_tbl.DELETE;
3293: l_fin_task_flag_tbl.DELETE;
3294:
3295: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
3296: FND_MSG_PUB.initialize;
3297: END IF;
3298:
3299: IF (p_commit = FND_API.G_TRUE) THEN
3295: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
3296: FND_MSG_PUB.initialize;
3297: END IF;
3298:
3299: IF (p_commit = FND_API.G_TRUE) THEN
3300: savepoint POPULATE_TEMP_TBL_PUB;
3301: END IF;
3302:
3303: IF l_debug_mode = 'Y' THEN
3413: );
3414: END IF;
3415: END LOOP;
3416: END IF;
3417: IF (p_commit = FND_API.G_TRUE) THEN
3418: COMMIT;
3419: END IF;
3420:
3421: EXCEPTION
3418: COMMIT;
3419: END IF;
3420:
3421: EXCEPTION
3422: WHEN FND_API.G_EXC_ERROR THEN
3423:
3424: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3425: l_msg_count := Fnd_Msg_Pub.count_msg;
3426:
3420:
3421: EXCEPTION
3422: WHEN FND_API.G_EXC_ERROR THEN
3423:
3424: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3425: l_msg_count := Fnd_Msg_Pub.count_msg;
3426:
3427: IF p_commit = FND_API.G_TRUE THEN
3428: ROLLBACK TO POPULATE_TEMP_TABLE_PUB;
3423:
3424: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3425: l_msg_count := Fnd_Msg_Pub.count_msg;
3426:
3427: IF p_commit = FND_API.G_TRUE THEN
3428: ROLLBACK TO POPULATE_TEMP_TABLE_PUB;
3429: END IF;
3430:
3431: IF c_get_structure_info%ISOPEN THEN
3439:
3440: IF l_msg_count = 1 AND x_msg_data IS NULL
3441: THEN
3442: Pa_Interface_Utils_Pub.get_messages
3443: ( p_encoded => Fnd_Api.G_TRUE
3444: , p_msg_index => 1
3445: , p_msg_count => l_msg_count
3446: , p_msg_data => l_msg_data
3447: , p_data => l_data
3456: END IF;
3457:
3458: WHEN Invalid_Arg_Exc_WP THEN
3459:
3460: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3461: x_msg_count := 1;
3462: x_msg_data := 'PA_TASKS_MAINT_PUB : POPULATE_TEMP_TABLE : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
3463:
3464: IF p_commit = FND_API.G_TRUE THEN
3460: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3461: x_msg_count := 1;
3462: x_msg_data := 'PA_TASKS_MAINT_PUB : POPULATE_TEMP_TABLE : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
3463:
3464: IF p_commit = FND_API.G_TRUE THEN
3465: ROLLBACK TO POPULATE_TEMP_TABLE_PUB;
3466: END IF;
3467: IF c_get_structure_info%ISOPEN THEN
3468: CLOSE c_get_structure_info;
3485: RAISE;
3486:
3487: WHEN OTHERS THEN
3488:
3489: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3490: x_msg_count := 1;
3491: x_msg_data := substr(SQLERRM,1,120);-- Bug 3735089 Added substr
3492:
3493: IF p_commit = FND_API.G_TRUE THEN
3489: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3490: x_msg_count := 1;
3491: x_msg_data := substr(SQLERRM,1,120);-- Bug 3735089 Added substr
3492:
3493: IF p_commit = FND_API.G_TRUE THEN
3494: ROLLBACK TO POPULATE_TEMP_TABLE_PUB;
3495: END IF;
3496: IF c_get_structure_info%ISOPEN THEN
3497: CLOSE c_get_structure_info;
3537:
3538: PROCEDURE SYNC_UP_WP_TASKS_WITH_FIN
3539: (
3540: p_api_version IN NUMBER := 1.0
3541: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3542: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3543: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3544: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3545: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3538: PROCEDURE SYNC_UP_WP_TASKS_WITH_FIN
3539: (
3540: p_api_version IN NUMBER := 1.0
3541: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3542: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3543: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3544: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3545: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3546: , p_debug_mode IN VARCHAR2 := 'N'
3539: (
3540: p_api_version IN NUMBER := 1.0
3541: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3542: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3543: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3544: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3545: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3546: , p_debug_mode IN VARCHAR2 := 'N'
3547: , p_patask_record_version_number IN NUMBER := FND_API.G_MISS_NUM
3540: p_api_version IN NUMBER := 1.0
3541: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3542: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3543: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3544: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3545: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3546: , p_debug_mode IN VARCHAR2 := 'N'
3547: , p_patask_record_version_number IN NUMBER := FND_API.G_MISS_NUM
3548: , p_parent_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3543: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3544: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3545: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3546: , p_debug_mode IN VARCHAR2 := 'N'
3547: , p_patask_record_version_number IN NUMBER := FND_API.G_MISS_NUM
3548: , p_parent_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3549: , p_project_id IN NUMBER
3550: , p_syncup_all_tasks IN VARCHAR2 := 'N'
3551: , p_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3544: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3545: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3546: , p_debug_mode IN VARCHAR2 := 'N'
3547: , p_patask_record_version_number IN NUMBER := FND_API.G_MISS_NUM
3548: , p_parent_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3549: , p_project_id IN NUMBER
3550: , p_syncup_all_tasks IN VARCHAR2 := 'N'
3551: , p_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3552: , p_structure_version_id IN NUMBER := FND_API.G_MISS_NUM
3547: , p_patask_record_version_number IN NUMBER := FND_API.G_MISS_NUM
3548: , p_parent_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3549: , p_project_id IN NUMBER
3550: , p_syncup_all_tasks IN VARCHAR2 := 'N'
3551: , p_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3552: , p_structure_version_id IN NUMBER := FND_API.G_MISS_NUM
3553: , p_check_for_transactions IN VARCHAR2 := 'N'
3554: , p_checked_flag IN VARCHAR2 := FND_API.G_MISS_CHAR
3555: , p_mode IN VARCHAR2 := 'SINGLE'
3548: , p_parent_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3549: , p_project_id IN NUMBER
3550: , p_syncup_all_tasks IN VARCHAR2 := 'N'
3551: , p_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3552: , p_structure_version_id IN NUMBER := FND_API.G_MISS_NUM
3553: , p_check_for_transactions IN VARCHAR2 := 'N'
3554: , p_checked_flag IN VARCHAR2 := FND_API.G_MISS_CHAR
3555: , p_mode IN VARCHAR2 := 'SINGLE'
3556: , x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3550: , p_syncup_all_tasks IN VARCHAR2 := 'N'
3551: , p_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3552: , p_structure_version_id IN NUMBER := FND_API.G_MISS_NUM
3553: , p_check_for_transactions IN VARCHAR2 := 'N'
3554: , p_checked_flag IN VARCHAR2 := FND_API.G_MISS_CHAR
3555: , p_mode IN VARCHAR2 := 'SINGLE'
3556: , x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3557: , x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
3558: , x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3576:
3577: BEGIN
3578:
3579: x_msg_count := 0;
3580: x_return_status := FND_API.G_RET_STS_SUCCESS;
3581:
3582: --Bug 3735089 - instead of fnd_profile.value use fnd_profile.value_specific
3583: --l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3584: l_user_id := fnd_global.user_id;
3612: Pa_Debug.WRITE(g_pkg_name,'p_patask_record_version_number'||':'||p_patask_record_version_number,
3613: l_debug_level3);
3614: END IF;
3615:
3616: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
3617: FND_MSG_PUB.initialize;
3618: END IF;
3619:
3620: IF (p_commit = FND_API.G_TRUE) THEN
3616: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
3617: FND_MSG_PUB.initialize;
3618: END IF;
3619:
3620: IF (p_commit = FND_API.G_TRUE) THEN
3621: savepoint SYNC_UP_WITH_FIN_PUBLIC;
3622: END IF;
3623:
3624: IF l_debug_mode = 'Y' THEN
3649: END IF;*/
3650: --If p_mode = SINGLE, then p_task_version_id and p_checked_flag should be passed not null
3651: IF ( ( p_mode='SINGLE') AND
3652: (
3653: ( p_task_version_id IS NULL OR p_task_version_id = FND_API.G_MISS_NUM ) OR
3654: ( p_checked_flag IS NULL OR p_checked_flag = FND_API.G_MISS_CHAR )
3655: )
3656: )
3657: THEN
3650: --If p_mode = SINGLE, then p_task_version_id and p_checked_flag should be passed not null
3651: IF ( ( p_mode='SINGLE') AND
3652: (
3653: ( p_task_version_id IS NULL OR p_task_version_id = FND_API.G_MISS_NUM ) OR
3654: ( p_checked_flag IS NULL OR p_checked_flag = FND_API.G_MISS_CHAR )
3655: )
3656: )
3657: THEN
3658: IF l_debug_mode = 'Y' THEN
3662: END IF;
3663: RAISE Invalid_Arg_Exc_WP;
3664: ELSIF ( ( p_mode = 'ALL')
3665: AND
3666: ( p_structure_version_id IS NULL OR p_structure_version_id = FND_API.G_MISS_NUM )
3667: )
3668: THEN
3669: IF l_debug_mode = 'Y' THEN
3670: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_PUB : SYNC_UP_WP_TASKS_WITH_FIN : Manadatory parameters with mode '||p_mode||'are not passed';
3676:
3677: -- Call Private APIs
3678: PA_TASKS_MAINT_PVT.SYNC_UP_WP_TASKS_WITH_FIN
3679: (
3680: p_init_msg_list => FND_API.G_FALSE
3681: , p_commit => p_commit
3682: , p_debug_mode => l_debug_mode
3683: , p_project_id => p_project_id
3684: , p_syncup_all_tasks => p_syncup_all_tasks
3691: , x_return_status => x_return_status
3692: , x_msg_count => x_msg_count
3693: , x_msg_data => x_msg_data
3694: );
3695: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
3696: THEN
3697: RAISE FND_API.G_EXC_ERROR;
3698: END IF;
3699:
3693: , x_msg_data => x_msg_data
3694: );
3695: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
3696: THEN
3697: RAISE FND_API.G_EXC_ERROR;
3698: END IF;
3699:
3700: IF (p_commit = FND_API.G_TRUE) THEN
3701: COMMIT;
3696: THEN
3697: RAISE FND_API.G_EXC_ERROR;
3698: END IF;
3699:
3700: IF (p_commit = FND_API.G_TRUE) THEN
3701: COMMIT;
3702: END IF;
3703:
3704: -- Bug 3735089 : using reset_curr_function too, just using set_curr_function may overflow it after several recursive calls
3708: END IF;
3709:
3710: EXCEPTION
3711:
3712: WHEN FND_API.G_EXC_ERROR THEN
3713:
3714: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3715: l_msg_count := Fnd_Msg_Pub.count_msg;
3716:
3710: EXCEPTION
3711:
3712: WHEN FND_API.G_EXC_ERROR THEN
3713:
3714: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3715: l_msg_count := Fnd_Msg_Pub.count_msg;
3716:
3717: IF p_commit = FND_API.G_TRUE THEN
3718: ROLLBACK TO SYNC_UP_WITH_FIN_PUBLIC;
3713:
3714: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3715: l_msg_count := Fnd_Msg_Pub.count_msg;
3716:
3717: IF p_commit = FND_API.G_TRUE THEN
3718: ROLLBACK TO SYNC_UP_WITH_FIN_PUBLIC;
3719: END IF;
3720:
3721:
3721:
3722: IF l_msg_count = 1 AND x_msg_data IS NULL
3723: THEN
3724: Pa_Interface_Utils_Pub.get_messages
3725: ( p_encoded => Fnd_Api.G_TRUE
3726: , p_msg_index => 1
3727: , p_msg_count => l_msg_count
3728: , p_msg_data => l_msg_data
3729: , p_data => l_data
3738: END IF;
3739:
3740: WHEN Invalid_Arg_Exc_WP THEN
3741:
3742: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3743: x_msg_count := 1;
3744: x_msg_data := 'PA_TASKS_MAINT_PUB : SYNC_UP_WP_TASKS_WITH_FIN : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
3745:
3746: IF p_commit = FND_API.G_TRUE THEN
3742: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3743: x_msg_count := 1;
3744: x_msg_data := 'PA_TASKS_MAINT_PUB : SYNC_UP_WP_TASKS_WITH_FIN : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
3745:
3746: IF p_commit = FND_API.G_TRUE THEN
3747: ROLLBACK TO SYNC_UP_WITH_FIN_PUBLIC;
3748: END IF;
3749:
3750:
3762: RAISE;
3763:
3764: WHEN OTHERS THEN
3765:
3766: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3767: x_msg_count := 1;
3768: x_msg_data := substr(SQLERRM,1,120);-- Bug 3735089 Added substr
3769:
3770: IF p_commit = FND_API.G_TRUE THEN
3766: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3767: x_msg_count := 1;
3768: x_msg_data := substr(SQLERRM,1,120);-- Bug 3735089 Added substr
3769:
3770: IF p_commit = FND_API.G_TRUE THEN
3771: ROLLBACK TO SYNC_UP_WITH_FIN_PUBLIC;
3772: END IF;
3773:
3774: