[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:
964: -- x_return_status => l_return_status,
965: -- x_error_msg_code => l_error_msg_code);*/
966: --
967: -- l_task_manager_id := p_task_manager_person_id;
968: -- l_return_status := FND_API.G_RET_STS_SUCCESS;
969: --
970: -- IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
971: -- PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
972: -- p_msg_name => l_error_msg_code);
966: --
967: -- l_task_manager_id := p_task_manager_person_id;
968: -- l_return_status := FND_API.G_RET_STS_SUCCESS;
969: --
970: -- IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
971: -- PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
972: -- p_msg_name => l_error_msg_code);
973: -- END IF;
974: --
976: ---- END IF;
977: --
978: ---- IF (p_calling_module = 'SELF_SERVICE') OR (p_calling_module = 'EXCHANGE') THEN
979: -- --Check Carrying out organization name and Carrying out organization Id
980: -- IF ((p_carrying_out_org_name <> FND_API.G_MISS_CHAR) AND
981: -- (p_carrying_out_org_name IS NOT NULL)) OR
982: -- ((p_carrying_out_organization_id <> FND_API.G_MISS_NUM) AND
983: -- (p_carrying_out_organization_id IS NOT NULL)) THEN
984: --
978: ---- IF (p_calling_module = 'SELF_SERVICE') OR (p_calling_module = 'EXCHANGE') THEN
979: -- --Check Carrying out organization name and Carrying out organization Id
980: -- IF ((p_carrying_out_org_name <> FND_API.G_MISS_CHAR) AND
981: -- (p_carrying_out_org_name IS NOT NULL)) OR
982: -- ((p_carrying_out_organization_id <> FND_API.G_MISS_NUM) AND
983: -- (p_carrying_out_organization_id IS NOT NULL)) THEN
984: --
985: -- /* pa_hr_org_utils.Check_OrgName_Or_Id
986: -- (p_organization_id => p_carrying_out_organization_id
990: -- ,x_return_status => l_return_status
991: -- ,x_error_msg_code => l_error_msg_code);*/
992: --
993: -- l_carrying_out_org_id := p_carrying_out_organization_id;
994: -- l_return_status := FND_API.G_RET_STS_SUCCESS;
995: --
996: -- IF l_return_status = FND_API.G_RET_STS_ERROR THEN
997: -- PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
998: -- p_msg_name => l_error_msg_code);
992: --
993: -- l_carrying_out_org_id := p_carrying_out_organization_id;
994: -- l_return_status := FND_API.G_RET_STS_SUCCESS;
995: --
996: -- IF l_return_status = FND_API.G_RET_STS_ERROR THEN
997: -- PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
998: -- p_msg_name => l_error_msg_code);
999: -- END IF;
1000: -- END IF; --End Name-Id Conversion
1013: if l_msg_count > 0 then
1014: x_msg_count := l_msg_count;
1015: if x_msg_count = 1 then
1016: pa_interface_utils_pub.get_messages
1017: (p_encoded => FND_API.G_TRUE,
1018: p_msg_index => 1,
1019: p_data => l_data,
1020: p_msg_index_out => l_msg_index_out);
1021: x_msg_data := l_data;
1019: p_data => l_data,
1020: p_msg_index_out => l_msg_index_out);
1021: x_msg_data := l_data;
1022: end if;
1023: raise FND_API.G_EXC_ERROR;
1024: end if;
1025:
1026: /* temporarily commenting for project structures
1027: --Call Lock project
1156: ,x_msg_data =>x_msg_data
1157: );
1158:
1159: --Check return status
1160: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1161: x_msg_count := FND_MSG_PUB.count_msg;
1162: if x_msg_count = 1 then
1163: pa_interface_utils_pub.get_messages
1164: (p_encoded => FND_API.G_TRUE,
1160: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1161: x_msg_count := FND_MSG_PUB.count_msg;
1162: if x_msg_count = 1 then
1163: pa_interface_utils_pub.get_messages
1164: (p_encoded => FND_API.G_TRUE,
1165: p_msg_index => 1,
1166: p_data => l_data,
1167: p_msg_index_out => l_msg_index_out);
1168: x_msg_data := l_data;
1166: p_data => l_data,
1167: p_msg_index_out => l_msg_index_out);
1168: x_msg_data := l_data;
1169: end if;
1170: raise FND_API.G_EXC_ERROR;
1171: end if;
1172:
1173: IF p_wbs_record_version_number <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1174: p_wbs_record_version_number IS NOT NULL
1226: WHERE task_id = l_task_id_tbl(i) and project_id = p_project_id;
1227: end if;
1228: --End Add by rtarway for bug 4081329
1229: END IF;
1230: x_return_status := FND_API.G_RET_STS_SUCCESS;
1231:
1232: --commit
1233: IF (p_commit = FND_API.G_TRUE) THEN
1234: commit;
1229: END IF;
1230: x_return_status := FND_API.G_RET_STS_SUCCESS;
1231:
1232: --commit
1233: IF (p_commit = FND_API.G_TRUE) THEN
1234: commit;
1235: END IF;
1236:
1237: IF (p_debug_mode = 'Y') THEN
1238: pa_debug.debug('PA_TASKS_MAINT_PUB.UPDATE_TASK END');
1239: END IF;
1240:
1241: EXCEPTION
1242: WHEN FND_API.G_EXC_ERROR THEN
1243: IF (p_commit = FND_API.G_TRUE) THEN
1244: ROLLBACK to UPDATE_TASK;
1245: END IF;
1246: x_msg_count := FND_MSG_PUB.count_msg;
1239: END IF;
1240:
1241: EXCEPTION
1242: WHEN FND_API.G_EXC_ERROR THEN
1243: IF (p_commit = FND_API.G_TRUE) THEN
1244: ROLLBACK to UPDATE_TASK;
1245: END IF;
1246: x_msg_count := FND_MSG_PUB.count_msg;
1247: x_return_status := FND_API.G_RET_STS_ERROR;
1243: IF (p_commit = FND_API.G_TRUE) THEN
1244: ROLLBACK to UPDATE_TASK;
1245: END IF;
1246: x_msg_count := FND_MSG_PUB.count_msg;
1247: x_return_status := FND_API.G_RET_STS_ERROR;
1248: WHEN OTHERS THEN
1249: IF (p_commit = FND_API.G_TRUE) THEN
1250: ROLLBACK to UPDATE_TASK;
1251: END IF;
1245: END IF;
1246: x_msg_count := FND_MSG_PUB.count_msg;
1247: x_return_status := FND_API.G_RET_STS_ERROR;
1248: WHEN OTHERS THEN
1249: IF (p_commit = FND_API.G_TRUE) THEN
1250: ROLLBACK to UPDATE_TASK;
1251: END IF;
1252: x_msg_count := FND_MSG_PUB.count_msg;
1253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1249: IF (p_commit = FND_API.G_TRUE) THEN
1250: ROLLBACK to UPDATE_TASK;
1251: END IF;
1252: x_msg_count := FND_MSG_PUB.count_msg;
1253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1254: --put message
1255: FND_MSG_PUB.ADD_EXC_MSG(p_pkg_name => 'PA_TASKS_MAINT_PUB',
1256: p_procedure_name => 'UPDATE_TASK',
1257: p_error_text => substrb(SQLERRM,1,240));
1264: -- Pre-reqs : None
1265: -- Return Value : N/A
1266: -- Parameters
1267: -- p_api_version IN NUMBER := 1.0
1268: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1269: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1270: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1271: -- p_validation_level IN VARCHAR2 := 100
1272: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1265: -- Return Value : N/A
1266: -- Parameters
1267: -- p_api_version IN NUMBER := 1.0
1268: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1269: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1270: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1271: -- p_validation_level IN VARCHAR2 := 100
1272: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1273: -- p_debug_mode IN VARCHAR2 := 'N'
1266: -- Parameters
1267: -- p_api_version IN NUMBER := 1.0
1268: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1269: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1270: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1271: -- p_validation_level IN VARCHAR2 := 100
1272: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1273: -- p_debug_mode IN VARCHAR2 := 'N'
1274: -- p_project_id IN NUMBER
1285: --
1286: procedure DELETE_TASK
1287: (
1288: p_api_version IN NUMBER := 1.0
1289: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1290: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1291: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1292: ,p_validation_level IN VARCHAR2 := 100
1293: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1286: procedure DELETE_TASK
1287: (
1288: p_api_version IN NUMBER := 1.0
1289: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1290: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1291: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1292: ,p_validation_level IN VARCHAR2 := 100
1293: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1294: ,p_debug_mode IN VARCHAR2 := 'N'
1287: (
1288: p_api_version IN NUMBER := 1.0
1289: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1290: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1291: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1292: ,p_validation_level IN VARCHAR2 := 100
1293: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1294: ,p_debug_mode IN VARCHAR2 := 'N'
1295: ,p_project_id IN NUMBER
1346: IF (p_debug_mode = 'Y') THEN
1347: pa_debug.debug('PA_TASKS_MAINT_PUB.DELETE_TASK begin');
1348: END IF;
1349:
1350: IF (p_commit = FND_API.G_TRUE) THEN
1351: savepoint DELETE_TASK;
1352: END IF;
1353:
1354:
1351: savepoint DELETE_TASK;
1352: END IF;
1353:
1354:
1355: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1356: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1357: END IF;
1358:
1359: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_FALSE)) THEN
1352: END IF;
1353:
1354:
1355: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1356: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1357: END IF;
1358:
1359: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_FALSE)) THEN
1360: pa_debug.debug('Performing ID validations and conversions');
1355: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1356: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1357: END IF;
1358:
1359: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list, FND_API.G_FALSE)) THEN
1360: pa_debug.debug('Performing ID validations and conversions');
1361: FND_MSG_PUB.initialize;
1362: END IF;
1363:
1366: if l_msg_count > 0 then
1367: x_msg_count := l_msg_count;
1368: if x_msg_count = 1 then
1369: pa_interface_utils_pub.get_messages
1370: (p_encoded => FND_API.G_TRUE,
1371: p_msg_index => 1,
1372: p_data => l_data,
1373: p_msg_index_out => l_msg_index_out);
1374: x_msg_data := l_data;
1372: p_data => l_data,
1373: p_msg_index_out => l_msg_index_out);
1374: x_msg_data := l_data;
1375: end if;
1376: raise FND_API.G_EXC_ERROR;
1377: end if;
1378:
1379: /*--Call Lock project
1380:
1418: ,x_msg_data => x_msg_data
1419: );
1420:
1421: --Check return status
1422: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1423: x_msg_count := FND_MSG_PUB.count_msg;
1424: if x_msg_count = 1 then
1425: pa_interface_utils_pub.get_messages
1426: (p_encoded => FND_API.G_TRUE,
1422: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1423: x_msg_count := FND_MSG_PUB.count_msg;
1424: if x_msg_count = 1 then
1425: pa_interface_utils_pub.get_messages
1426: (p_encoded => FND_API.G_TRUE,
1427: p_msg_index => 1,
1428: p_data => l_data,
1429: p_msg_index_out => l_msg_index_out);
1430: x_msg_data := l_data;
1428: p_data => l_data,
1429: p_msg_index_out => l_msg_index_out);
1430: x_msg_data := l_data;
1431: end if;
1432: raise FND_API.G_EXC_ERROR;
1433: end if;
1434:
1435: /* --This fcuntion is moved in PA_TASK_PVT1.DELETE_TASK_VERSION api.
1436: BEGIN
1448: and (display_sequence > selected_seq_num);
1449: EXCEPTION
1450: WHEN OTHERS THEN
1451: PA_UTILS.ADD_MESSAGE('PA', 'PA_TASK_SEQ_NUM_ERR');
1452: raise FND_API.G_EXC_ERROR;
1453: END;*/
1454:
1455:
1456: /*PA_TASKS_MAINT_UTILS.INCREMENT_WBS_REC_VER_NUM(
1457: p_project_id => p_project_id,
1458: p_wbs_record_version_number => p_wbs_record_version_number,
1459: x_return_status => x_return_status );*/
1460:
1461: x_return_status := FND_API.G_RET_STS_SUCCESS;
1462:
1463: --commit
1464: IF (p_commit = FND_API.G_TRUE) THEN
1465: commit;
1460:
1461: x_return_status := FND_API.G_RET_STS_SUCCESS;
1462:
1463: --commit
1464: IF (p_commit = FND_API.G_TRUE) THEN
1465: commit;
1466: END IF;
1467:
1468: IF (p_debug_mode = 'Y') THEN
1469: pa_debug.debug('PA_TASKS_MAINT_PUB.DELETE_TASK END');
1470: END IF;
1471:
1472: EXCEPTION
1473: WHEN FND_API.G_EXC_ERROR THEN
1474: IF (p_commit = FND_API.G_TRUE) THEN
1475: ROLLBACK to DELETE_TASK;
1476: END IF;
1477: x_msg_count := FND_MSG_PUB.count_msg;
1470: END IF;
1471:
1472: EXCEPTION
1473: WHEN FND_API.G_EXC_ERROR THEN
1474: IF (p_commit = FND_API.G_TRUE) THEN
1475: ROLLBACK to DELETE_TASK;
1476: END IF;
1477: x_msg_count := FND_MSG_PUB.count_msg;
1478: x_return_status := FND_API.G_RET_STS_ERROR;
1474: IF (p_commit = FND_API.G_TRUE) THEN
1475: ROLLBACK to DELETE_TASK;
1476: END IF;
1477: x_msg_count := FND_MSG_PUB.count_msg;
1478: x_return_status := FND_API.G_RET_STS_ERROR;
1479: WHEN OTHERS THEN
1480: IF (p_commit = FND_API.G_TRUE) THEN
1481: ROLLBACK to DELETE_TASK;
1482: END IF;
1476: END IF;
1477: x_msg_count := FND_MSG_PUB.count_msg;
1478: x_return_status := FND_API.G_RET_STS_ERROR;
1479: WHEN OTHERS THEN
1480: IF (p_commit = FND_API.G_TRUE) THEN
1481: ROLLBACK to DELETE_TASK;
1482: END IF;
1483: x_msg_count := FND_MSG_PUB.count_msg;
1484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1480: IF (p_commit = FND_API.G_TRUE) THEN
1481: ROLLBACK to DELETE_TASK;
1482: END IF;
1483: x_msg_count := FND_MSG_PUB.count_msg;
1484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1485: FND_MSG_PUB.ADD_EXC_MSG(p_pkg_name => 'PA_TASKS_MAINT_PUB',
1486: p_procedure_name => 'DELETE_TASK',
1487: p_error_text => substrb(SQLERRM,1,240));
1488: END DELETE_TASK;
1493: -- Pre-reqs : None
1494: -- Return Value : N/A
1495: -- Prameters
1496: -- p_api_version IN NUMBER := 1.0
1497: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1498: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1499: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1500: -- p_validation_level IN VARCHAR2 := 100
1501: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1494: -- Return Value : N/A
1495: -- Prameters
1496: -- p_api_version IN NUMBER := 1.0
1497: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1498: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1499: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1500: -- p_validation_level IN VARCHAR2 := 100
1501: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1502: -- p_debug_mode IN VARCHAR2 := 'N'
1495: -- Prameters
1496: -- p_api_version IN NUMBER := 1.0
1497: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1498: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1499: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1500: -- p_validation_level IN VARCHAR2 := 100
1501: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1502: -- p_debug_mode IN VARCHAR2 := 'N'
1503: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1499: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1500: -- p_validation_level IN VARCHAR2 := 100
1501: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1502: -- p_debug_mode IN VARCHAR2 := 'N'
1503: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1504: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1505: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1506: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1507: -- p_edit_mode IN VARCHAR2 REQUIRED
1500: -- p_validation_level IN VARCHAR2 := 100
1501: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1502: -- p_debug_mode IN VARCHAR2 := 'N'
1503: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1504: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1505: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1506: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1507: -- p_edit_mode IN VARCHAR2 REQUIRED
1508: -- p_record_version_number IN NUMBER
1501: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1502: -- p_debug_mode IN VARCHAR2 := 'N'
1503: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1504: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1505: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1506: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1507: -- p_edit_mode IN VARCHAR2 REQUIRED
1508: -- p_record_version_number IN NUMBER
1509: -- p_wbs_record_version_number IN NUMBER
1502: -- p_debug_mode IN VARCHAR2 := 'N'
1503: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1504: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1505: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1506: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1507: -- p_edit_mode IN VARCHAR2 REQUIRED
1508: -- p_record_version_number IN NUMBER
1509: -- p_wbs_record_version_number IN NUMBER
1510: -- x_return_status OUT VARCHAR2
1518: --
1519:
1520: PROCEDURE Edit_Task_Structure(
1521: p_api_version IN NUMBER := 1.0
1522: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1523: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1524: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1525: ,p_validation_level IN VARCHAR2 := 100
1526: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1519:
1520: PROCEDURE Edit_Task_Structure(
1521: p_api_version IN NUMBER := 1.0
1522: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1523: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1524: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1525: ,p_validation_level IN VARCHAR2 := 100
1526: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1527: ,p_debug_mode IN VARCHAR2 := 'N'
1520: PROCEDURE Edit_Task_Structure(
1521: p_api_version IN NUMBER := 1.0
1522: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1523: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1524: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1525: ,p_validation_level IN VARCHAR2 := 100
1526: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1527: ,p_debug_mode IN VARCHAR2 := 'N'
1528: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1524: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1525: ,p_validation_level IN VARCHAR2 := 100
1526: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1527: ,p_debug_mode IN VARCHAR2 := 'N'
1528: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1529: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1530: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1531: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1532: ,p_edit_mode IN VARCHAR2
1525: ,p_validation_level IN VARCHAR2 := 100
1526: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1527: ,p_debug_mode IN VARCHAR2 := 'N'
1528: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1529: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1530: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1531: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1532: ,p_edit_mode IN VARCHAR2
1533: ,p_record_version_number IN NUMBER
1526: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1527: ,p_debug_mode IN VARCHAR2 := 'N'
1528: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1529: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1530: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1531: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1532: ,p_edit_mode IN VARCHAR2
1533: ,p_record_version_number IN NUMBER
1534: ,p_wbs_record_version_number IN NUMBER
1527: ,p_debug_mode IN VARCHAR2 := 'N'
1528: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1529: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1530: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1531: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1532: ,p_edit_mode IN VARCHAR2
1533: ,p_record_version_number IN NUMBER
1534: ,p_wbs_record_version_number IN NUMBER
1535: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1559: THEN
1560: pa_debug.debug('Edit Task Structure PUB : Checking the api version number.');
1561: END IF;
1562:
1563: IF p_commit = FND_API.G_TRUE
1564: THEN
1565: SAVEPOINT Edit_Structure;
1566: END IF;
1567:
1564: THEN
1565: SAVEPOINT Edit_Structure;
1566: END IF;
1567:
1568: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1569: p_api_version,
1570: l_api_name,
1571: g_pkg_name)
1572: THEN
1570: l_api_name,
1571: g_pkg_name)
1572: THEN
1573:
1574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1575: END IF;
1576:
1577: if (p_debug_mode = 'Y') then
1578: pa_debug.debug('Edit Task Structure PUB : Initializing message stack.');
1579: end if;
1580:
1581: pa_debug.init_err_stack('PA_TASK_MAINT_PUB.Edit_Task_Structure');
1582:
1583: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
1584: fnd_msg_pub.initialize;
1585: end if;
1586:
1587: /*IF (p_calling_module = 'SELF_SERVICE') OR (p_calling_module = 'EXCHANGE') THEN
1586:
1587: /*IF (p_calling_module = 'SELF_SERVICE') OR (p_calling_module = 'EXCHANGE') THEN
1588:
1589: --Check Project Name and Id
1590: IF ((p_project_name <> FND_API.G_MISS_CHAR) AND
1591: (p_project_name IS NOT NULL)) OR
1592: ((p_project_id <> FND_API.G_MISS_NUM) AND
1593: (p_project_id IS NOT NULL)) THEN
1594: --Call Check API.
1588:
1589: --Check Project Name and Id
1590: IF ((p_project_name <> FND_API.G_MISS_CHAR) AND
1591: (p_project_name IS NOT NULL)) OR
1592: ((p_project_id <> FND_API.G_MISS_NUM) AND
1593: (p_project_id IS NOT NULL)) THEN
1594: --Call Check API.
1595: pa_tasks_maint_utils.CHECK_PROJECT_NAME_OR_ID(
1596: p_project_id => p_project_id,
1597: p_project_name => p_project_name,
1598: x_project_id => l_project_id,
1599: x_return_status => l_return_status,
1600: x_error_msg_code => l_error_msg_code);
1601: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1602: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1603: p_msg_name => l_error_msg_code);
1604: END IF;
1605: END IF; --End Project Name-Id Conversion
1604: END IF;
1605: END IF; --End Project Name-Id Conversion
1606:
1607: --Check Task Name and Id
1608: IF ((p_task_name <> FND_API.G_MISS_CHAR) AND
1609: (p_task_name IS NOT NULL)) OR
1610: ((p_task_id <> FND_API.G_MISS_NUM) AND
1611: (p_task_id IS NOT NULL)) THEN
1612: --Call Check API.
1606:
1607: --Check Task Name and Id
1608: IF ((p_task_name <> FND_API.G_MISS_CHAR) AND
1609: (p_task_name IS NOT NULL)) OR
1610: ((p_task_id <> FND_API.G_MISS_NUM) AND
1611: (p_task_id IS NOT NULL)) THEN
1612: --Call Check API.
1613: pa_tasks_maint_utils.CHECK_TASK_NAME_OR_ID(
1614: p_project_id => l_project_id,
1616: p_task_name => p_task_name,
1617: x_task_id => l_task_id,
1618: x_return_status => l_return_status,
1619: x_error_msg_code => l_error_msg_code);
1620: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1621: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1622: p_msg_name => l_error_msg_code);
1623: END IF;
1624: END IF; --End Task Name-Id Conversion
1633: p_task_id => l_task_id,
1634: x_return_status => l_return_status,
1635: x_error_msg_code => l_error_msg_code );
1636:
1637: IF l_return_status = FND_API.G_RET_STS_ERROR
1638: THEN
1639: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1640: p_msg_name => l_error_msg_code);
1641: x_msg_data := l_error_msg_code;
1639: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1640: p_msg_name => l_error_msg_code);
1641: x_msg_data := l_error_msg_code;
1642: x_return_status := 'E';
1643: RAISE FND_API.G_EXC_ERROR;
1644: END IF;
1645:
1646: x_return_status := 'S';
1647:
1661: If l_msg_count > 0 THEN
1662: x_msg_count := l_msg_count;
1663: If l_msg_count = 1 THEN
1664: pa_interface_utils_pub.get_messages
1665: (p_encoded => FND_API.G_TRUE ,
1666: p_msg_index => 1,
1667: p_msg_count => l_msg_count ,
1668: p_msg_data => l_msg_data,
1669: p_data => l_data,
1670: p_msg_index_out => l_msg_index_out );
1671:
1672: x_msg_data := l_data;
1673: End if;
1674: RAISE FND_API.G_EXC_ERROR;
1675: End if;
1676:
1677: IF p_edit_mode = 'INDENT'
1678: THEN
1727: If l_msg_count > 0 THEN
1728: x_msg_count := l_msg_count;
1729: If l_msg_count = 1 THEN
1730: pa_interface_utils_pub.get_messages
1731: (p_encoded => FND_API.G_TRUE ,
1732: p_msg_index => 1,
1733: p_msg_count => l_msg_count ,
1734: p_msg_data => l_msg_data,
1735: p_data => l_data,
1736: p_msg_index_out => l_msg_index_out );
1737:
1738: x_msg_data := l_data;
1739: End if;
1740: RAISE FND_API.G_EXC_ERROR;
1741: End if;
1742:
1743: PA_TASKS_MAINT_UTILS.INCREMENT_WBS_REC_VER_NUM(
1744: p_project_id => p_project_id,
1745: p_wbs_record_version_number => p_wbs_record_version_number,
1746: x_return_status => x_return_status );
1747:
1748:
1749: IF FND_API.TO_BOOLEAN(P_COMMIT)
1750: THEN
1751: COMMIT WORK;
1752: END IF;
1753: EXCEPTION
1750: THEN
1751: COMMIT WORK;
1752: END IF;
1753: EXCEPTION
1754: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1755: IF p_commit = FND_API.G_TRUE
1756: THEN
1757: ROLLBACK TO Edit_Structure;
1758: END IF;
1751: COMMIT WORK;
1752: END IF;
1753: EXCEPTION
1754: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1755: IF p_commit = FND_API.G_TRUE
1756: THEN
1757: ROLLBACK TO Edit_Structure;
1758: END IF;
1759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1755: IF p_commit = FND_API.G_TRUE
1756: THEN
1757: ROLLBACK TO Edit_Structure;
1758: END IF;
1759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1760: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
1761: p_procedure_name => 'Edit_Task_Structure',
1762: p_error_text => SUBSTRB(SQLERRM,1,240));
1763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1760: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
1761: p_procedure_name => 'Edit_Task_Structure',
1762: p_error_text => SUBSTRB(SQLERRM,1,240));
1763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1764:
1765: WHEN FND_API.G_EXC_ERROR THEN
1766: IF p_commit = FND_API.G_TRUE
1767: THEN
1761: p_procedure_name => 'Edit_Task_Structure',
1762: p_error_text => SUBSTRB(SQLERRM,1,240));
1763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1764:
1765: WHEN FND_API.G_EXC_ERROR THEN
1766: IF p_commit = FND_API.G_TRUE
1767: THEN
1768: ROLLBACK TO Edit_Structure;
1769: END IF;
1762: p_error_text => SUBSTRB(SQLERRM,1,240));
1763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1764:
1765: WHEN FND_API.G_EXC_ERROR THEN
1766: IF p_commit = FND_API.G_TRUE
1767: THEN
1768: ROLLBACK TO Edit_Structure;
1769: END IF;
1770: x_return_status := 'E';
1769: END IF;
1770: x_return_status := 'E';
1771:
1772: WHEN OTHERS THEN
1773: IF p_commit = FND_API.G_TRUE
1774: THEN
1775: ROLLBACK TO Edit_Structure;
1776: END IF;
1777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1773: IF p_commit = FND_API.G_TRUE
1774: THEN
1775: ROLLBACK TO Edit_Structure;
1776: END IF;
1777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1778: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
1779: p_procedure_name => 'Edit_Task_Structure',
1780: p_error_text => SUBSTRB(SQLERRM,1,240));
1781: RAISE;
1787: -- Pre-reqs : None
1788: -- Return Value : N/A
1789: -- Prameters
1790: -- p_api_version IN NUMBER := 1.0
1791: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1792: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1793: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1794: -- p_validation_level IN VARCHAR2 := 100
1795: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1788: -- Return Value : N/A
1789: -- Prameters
1790: -- p_api_version IN NUMBER := 1.0
1791: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1792: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1793: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1794: -- p_validation_level IN VARCHAR2 := 100
1795: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1796: -- p_debug_mode IN VARCHAR2 := 'N'
1789: -- Prameters
1790: -- p_api_version IN NUMBER := 1.0
1791: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1792: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
1793: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1794: -- p_validation_level IN VARCHAR2 := 100
1795: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1796: -- p_debug_mode IN VARCHAR2 := 'N'
1797: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1793: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1794: -- p_validation_level IN VARCHAR2 := 100
1795: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1796: -- p_debug_mode IN VARCHAR2 := 'N'
1797: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1798: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1799: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1800: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1801: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1794: -- p_validation_level IN VARCHAR2 := 100
1795: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1796: -- p_debug_mode IN VARCHAR2 := 'N'
1797: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1798: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1799: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1800: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1801: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1802: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1795: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1796: -- p_debug_mode IN VARCHAR2 := 'N'
1797: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1798: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1799: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1800: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1801: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1802: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1803: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1796: -- p_debug_mode IN VARCHAR2 := 'N'
1797: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1798: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1799: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1800: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1801: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1802: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1803: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1804: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1797: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1798: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1799: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1800: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1801: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1802: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1803: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1804: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1805: -- p_peer_or_sub IN VARCHAR2
1798: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1799: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1800: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1801: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1802: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1803: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1804: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1805: -- p_peer_or_sub IN VARCHAR2
1806: -- p_record_version_number IN NUMBER
1799: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1800: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1801: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1802: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1803: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1804: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1805: -- p_peer_or_sub IN VARCHAR2
1806: -- p_record_version_number IN NUMBER
1807: -- p_wbs_record_version_number IN NUMBER
1800: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1801: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
1802: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1803: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
1804: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1805: -- p_peer_or_sub IN VARCHAR2
1806: -- p_record_version_number IN NUMBER
1807: -- p_wbs_record_version_number IN NUMBER
1808: -- x_return_status OUT VARCHAR2
1816: --
1817:
1818: PROCEDURE Move_Task(
1819: p_api_version IN NUMBER := 1.0
1820: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1821: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1822: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1823: ,p_validation_level IN VARCHAR2 := 100
1824: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1817:
1818: PROCEDURE Move_Task(
1819: p_api_version IN NUMBER := 1.0
1820: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1821: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1822: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1823: ,p_validation_level IN VARCHAR2 := 100
1824: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1825: ,p_debug_mode IN VARCHAR2 := 'N'
1818: PROCEDURE Move_Task(
1819: p_api_version IN NUMBER := 1.0
1820: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
1821: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1822: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1823: ,p_validation_level IN VARCHAR2 := 100
1824: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1825: ,p_debug_mode IN VARCHAR2 := 'N'
1826: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1822: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
1823: ,p_validation_level IN VARCHAR2 := 100
1824: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1825: ,p_debug_mode IN VARCHAR2 := 'N'
1826: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1827: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1828: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1829: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1830: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1823: ,p_validation_level IN VARCHAR2 := 100
1824: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1825: ,p_debug_mode IN VARCHAR2 := 'N'
1826: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1827: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1828: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1829: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1830: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1831: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1824: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
1825: ,p_debug_mode IN VARCHAR2 := 'N'
1826: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1827: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1828: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1829: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1830: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1831: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1832: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1825: ,p_debug_mode IN VARCHAR2 := 'N'
1826: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1827: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1828: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1829: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1830: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1831: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1832: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1833: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1826: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
1827: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1828: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1829: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1830: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1831: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1832: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1833: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1834: ,p_peer_or_sub IN VARCHAR2
1827: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1828: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1829: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1830: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1831: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1832: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1833: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1834: ,p_peer_or_sub IN VARCHAR2
1835: ,p_record_version_number IN NUMBER
1828: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
1829: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1830: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1831: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1832: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1833: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1834: ,p_peer_or_sub IN VARCHAR2
1835: ,p_record_version_number IN NUMBER
1836: ,p_wbs_record_version_number IN NUMBER
1829: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1830: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
1831: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1832: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
1833: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
1834: ,p_peer_or_sub IN VARCHAR2
1835: ,p_record_version_number IN NUMBER
1836: ,p_wbs_record_version_number IN NUMBER
1837: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1862: IF (p_debug_mode = 'Y')
1863: THEN
1864: pa_debug.debug('Move Task PUB : Checking the api version number.');
1865: END IF;
1866: IF p_commit = FND_API.G_TRUE
1867: THEN
1868: SAVEPOINT Move;
1869: END IF;
1870: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1866: IF p_commit = FND_API.G_TRUE
1867: THEN
1868: SAVEPOINT Move;
1869: END IF;
1870: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
1871: p_api_version,
1872: l_api_name,
1873: g_pkg_name)
1874: THEN
1871: p_api_version,
1872: l_api_name,
1873: g_pkg_name)
1874: THEN
1875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1876: END IF;
1877: if (p_debug_mode = 'Y') then
1878: pa_debug.debug('Move Task PUB : Initializing message stack.');
1879: end if;
1877: if (p_debug_mode = 'Y') then
1878: pa_debug.debug('Move Task PUB : Initializing message stack.');
1879: end if;
1880: pa_debug.init_err_stack('PA_TASK_MAINT_PUB.MOVE_TASK');
1881: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
1882: fnd_msg_pub.initialize;
1883: end if;
1884:
1885: --dbms_output.put_line( 'Before name to id conv. ' );
1886: --commenting after discussing with Hubert and Sakthi.
1887: /*IF (p_calling_module = 'SELF_SERVICE') OR (p_calling_module = 'EXCHANGE') THEN
1888:
1889: --Check Project Name and Id
1890: IF ((p_project_name <> FND_API.G_MISS_CHAR) AND
1891: (p_project_name IS NOT NULL)) OR
1892: ((p_project_id <> FND_API.G_MISS_NUM) AND
1893: (p_project_id IS NOT NULL)) THEN
1894: --Call Check API.
1888:
1889: --Check Project Name and Id
1890: IF ((p_project_name <> FND_API.G_MISS_CHAR) AND
1891: (p_project_name IS NOT NULL)) OR
1892: ((p_project_id <> FND_API.G_MISS_NUM) AND
1893: (p_project_id IS NOT NULL)) THEN
1894: --Call Check API.
1895: pa_tasks_maint_utils.CHECK_PROJECT_NAME_OR_ID(
1896: p_project_id => p_project_id,
1897: p_project_name => p_project_name,
1898: x_project_id => l_project_id,
1899: x_return_status => l_return_status,
1900: x_error_msg_code => l_error_msg_code);
1901: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1902: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1903: p_msg_name => l_error_msg_code);
1904: END IF;
1905: END IF; --End Project Name-Id Conversion
1906:
1907: --dbms_output.put_line( 'Before name to id conv. 2' );
1908:
1909: --Check Task Name and Id
1910: IF ((p_task_name <> FND_API.G_MISS_CHAR) AND
1911: (p_task_name IS NOT NULL)) OR
1912: ((p_task_id <> FND_API.G_MISS_NUM) AND
1913: (p_task_id IS NOT NULL)) THEN
1914: --Call Check API.
1908:
1909: --Check Task Name and Id
1910: IF ((p_task_name <> FND_API.G_MISS_CHAR) AND
1911: (p_task_name IS NOT NULL)) OR
1912: ((p_task_id <> FND_API.G_MISS_NUM) AND
1913: (p_task_id IS NOT NULL)) THEN
1914: --Call Check API.
1915: pa_tasks_maint_utils.CHECK_TASK_NAME_OR_ID(
1916: p_project_id => l_project_id,
1918: p_task_name => p_task_name,
1919: x_task_id => l_task_id,
1920: x_return_status => l_return_status,
1921: x_error_msg_code => l_error_msg_code);
1922: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1923: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1924: p_msg_name => l_error_msg_code);
1925: END IF;
1926: END IF; --End Task Name-Id Conversion
1927:
1928: --dbms_output.put_line( 'Before name to id conv. 3' );
1929:
1930: --Check reference Project Name and Id
1931: IF ((p_reference_project_name <> FND_API.G_MISS_CHAR) AND
1932: (p_reference_project_name IS NOT NULL)) OR
1933: ((p_reference_project_id <> FND_API.G_MISS_NUM) AND
1934: (p_reference_project_id IS NOT NULL)) THEN
1935: --Call Check API.
1929:
1930: --Check reference Project Name and Id
1931: IF ((p_reference_project_name <> FND_API.G_MISS_CHAR) AND
1932: (p_reference_project_name IS NOT NULL)) OR
1933: ((p_reference_project_id <> FND_API.G_MISS_NUM) AND
1934: (p_reference_project_id IS NOT NULL)) THEN
1935: --Call Check API.
1936: pa_tasks_maint_utils.CHECK_PROJECT_NAME_OR_ID(
1937: p_project_id => p_reference_project_id,
1938: p_project_name => p_reference_project_name,
1939: x_project_id => l_ref_project_id,
1940: x_return_status => l_return_status,
1941: x_error_msg_code => l_error_msg_code);
1942: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1943: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1944: p_msg_name => l_error_msg_code);
1945: END IF;
1946: END IF; --End Ref Project Name-Id Conversion
1947:
1948: --dbms_output.put_line( 'Before name to id conv. 4' );
1949:
1950: --Check reference Task Name and Id
1951: IF ((p_reference_task_name <> FND_API.G_MISS_CHAR) AND
1952: (p_reference_task_name IS NOT NULL)) OR
1953: ((p_reference_task_id <> FND_API.G_MISS_NUM) AND
1954: (p_reference_task_id IS NOT NULL)) THEN
1955: --Call Check API.
1949:
1950: --Check reference Task Name and Id
1951: IF ((p_reference_task_name <> FND_API.G_MISS_CHAR) AND
1952: (p_reference_task_name IS NOT NULL)) OR
1953: ((p_reference_task_id <> FND_API.G_MISS_NUM) AND
1954: (p_reference_task_id IS NOT NULL)) THEN
1955: --Call Check API.
1956: pa_tasks_maint_utils.CHECK_TASK_NAME_OR_ID(
1957: p_project_id => l_ref_project_id,
1959: p_task_name => p_reference_task_name,
1960: x_task_id => l_ref_task_id,
1961: x_return_status => l_return_status,
1962: x_error_msg_code => l_error_msg_code);
1963: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1964: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1965: p_msg_name => l_error_msg_code);
1966: END IF;
1967: END IF; --End Ref Task Name-Id Conversion
1996: x_msg_count := l_msg_count;
1997: x_msg_data := x_msg_data;
1998: --dbms_output.put_line( 'x_msg_data '||x_msg_data );
1999: x_return_status := 'E';
2000: RAISE FND_API.G_EXC_ERROR;
2001: END IF;
2002:
2003: --dbms_output.put_line( 'After locking 2 ' );
2004:
2013: If l_msg_count > 0 THEN
2014: x_msg_count := l_msg_count;
2015: If l_msg_count = 1 THEN
2016: pa_interface_utils_pub.get_messages
2017: (p_encoded => FND_API.G_TRUE ,
2018: p_msg_index => 1,
2019: p_msg_count => l_msg_count ,
2020: p_msg_data => l_error_msg_code,
2021: p_data => l_data,
2023:
2024: x_msg_data := l_data;
2025:
2026: End if;
2027: RAISE FND_API.G_EXC_ERROR;
2028: End if;
2029:
2030:
2031: PA_TASKS_MAINT_PVT.Move_Task(
2053: If l_msg_count > 0 THEN
2054: x_msg_count := l_msg_count;
2055: If l_msg_count = 1 THEN
2056: pa_interface_utils_pub.get_messages
2057: (p_encoded => FND_API.G_TRUE ,
2058: p_msg_index => 1,
2059: p_msg_count => l_msg_count,
2060: p_msg_data => l_msg_data,
2061: p_data => l_data,
2064: x_msg_data := l_data;
2065:
2066:
2067: End if;
2068: RAISE FND_API.G_EXC_ERROR;
2069: End if;
2070:
2071: PA_TASKS_MAINT_UTILS.INCREMENT_WBS_REC_VER_NUM(
2072: p_project_id => l_ref_project_id,
2073: p_wbs_record_version_number => p_wbs_record_version_number,
2074: x_return_status => x_return_status );
2075:
2076:
2077: IF FND_API.TO_BOOLEAN(P_COMMIT)
2078: THEN
2079: COMMIT WORK;
2080: END IF;
2081:
2079: COMMIT WORK;
2080: END IF;
2081:
2082: EXCEPTION
2083: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2084: IF p_commit = FND_API.G_TRUE
2085: THEN
2086: ROLLBACK TO Move;
2087: END IF;
2080: END IF;
2081:
2082: EXCEPTION
2083: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2084: IF p_commit = FND_API.G_TRUE
2085: THEN
2086: ROLLBACK TO Move;
2087: END IF;
2088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2084: IF p_commit = FND_API.G_TRUE
2085: THEN
2086: ROLLBACK TO Move;
2087: END IF;
2088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2089: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
2090: p_procedure_name => 'Move_Task',
2091: p_error_text => SUBSTRB(SQLERRM,1,240));
2092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2089: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
2090: p_procedure_name => 'Move_Task',
2091: p_error_text => SUBSTRB(SQLERRM,1,240));
2092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2093:
2094: WHEN FND_API.G_EXC_ERROR THEN
2095: IF p_commit = FND_API.G_TRUE
2096: THEN
2090: p_procedure_name => 'Move_Task',
2091: p_error_text => SUBSTRB(SQLERRM,1,240));
2092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2093:
2094: WHEN FND_API.G_EXC_ERROR THEN
2095: IF p_commit = FND_API.G_TRUE
2096: THEN
2097: ROLLBACK TO Move;
2098: END IF;
2091: p_error_text => SUBSTRB(SQLERRM,1,240));
2092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2093:
2094: WHEN FND_API.G_EXC_ERROR THEN
2095: IF p_commit = FND_API.G_TRUE
2096: THEN
2097: ROLLBACK TO Move;
2098: END IF;
2099: x_return_status := 'E';
2098: END IF;
2099: x_return_status := 'E';
2100:
2101: WHEN OTHERS THEN
2102: IF p_commit = FND_API.G_TRUE
2103: THEN
2104: ROLLBACK TO Move;
2105: END IF;
2106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2102: IF p_commit = FND_API.G_TRUE
2103: THEN
2104: ROLLBACK TO Move;
2105: END IF;
2106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2107: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
2108: p_procedure_name => 'Move_Task',
2109: p_error_text => SUBSTRB(SQLERRM,1,240));
2110: RAISE;
2117: -- Pre-reqs : None
2118: -- Return Value : N/A
2119: -- Prameters
2120: -- p_api_version IN NUMBER := 1.0
2121: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2122: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2123: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2124: -- p_validation_level IN VARCHAR2 := 100
2125: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2118: -- Return Value : N/A
2119: -- Prameters
2120: -- p_api_version IN NUMBER := 1.0
2121: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2122: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2123: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2124: -- p_validation_level IN VARCHAR2 := 100
2125: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2126: -- p_debug_mode IN VARCHAR2 := 'N'
2119: -- Prameters
2120: -- p_api_version IN NUMBER := 1.0
2121: -- p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2122: -- p_commit IN VARCHAR2 := FND_API.G_FALSE
2123: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2124: -- p_validation_level IN VARCHAR2 := 100
2125: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2126: -- p_debug_mode IN VARCHAR2 := 'N'
2127: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2123: -- p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2124: -- p_validation_level IN VARCHAR2 := 100
2125: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2126: -- p_debug_mode IN VARCHAR2 := 'N'
2127: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2128: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2129: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2130: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2131: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
2124: -- p_validation_level IN VARCHAR2 := 100
2125: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2126: -- p_debug_mode IN VARCHAR2 := 'N'
2127: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2128: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2129: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2130: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2131: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
2132: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2125: -- p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2126: -- p_debug_mode IN VARCHAR2 := 'N'
2127: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2128: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2129: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2130: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2131: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
2132: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2133: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
2126: -- p_debug_mode IN VARCHAR2 := 'N'
2127: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2128: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2129: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2130: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2131: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
2132: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2133: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
2134: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2127: -- p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2128: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2129: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2130: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2131: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
2132: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2133: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
2134: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2135: -- p_peer_or_sub IN VARCHAR2 REQUIRED
2128: -- p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2129: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2130: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2131: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
2132: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2133: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
2134: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2135: -- p_peer_or_sub IN VARCHAR2 REQUIRED
2136: -- p_copy_node_flag IN VARCHAR2 REQUIRED
2129: -- p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2130: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2131: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
2132: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2133: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
2134: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2135: -- p_peer_or_sub IN VARCHAR2 REQUIRED
2136: -- p_copy_node_flag IN VARCHAR2 REQUIRED
2137: -- p_task_prefix IN VARCHAR2 REQUIRED
2130: -- p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2131: -- p_project_id IN NUMBER := FND_API.G_MISS_NUM
2132: -- p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2133: -- p_task_id IN NUMBER := FND_API.G_MISS_NUM
2134: -- p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2135: -- p_peer_or_sub IN VARCHAR2 REQUIRED
2136: -- p_copy_node_flag IN VARCHAR2 REQUIRED
2137: -- p_task_prefix IN VARCHAR2 REQUIRED
2138: -- p_wbs_record_version_number IN NUMBER
2147: --
2148:
2149: PROCEDURE Copy_Task(
2150: p_api_version IN NUMBER := 1.0
2151: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2152: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2153: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2154: ,p_validation_level IN VARCHAR2 := 100
2155: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2148:
2149: PROCEDURE Copy_Task(
2150: p_api_version IN NUMBER := 1.0
2151: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2152: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2153: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2154: ,p_validation_level IN VARCHAR2 := 100
2155: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2156: ,p_debug_mode IN VARCHAR2 := 'N'
2149: PROCEDURE Copy_Task(
2150: p_api_version IN NUMBER := 1.0
2151: ,p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2152: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2153: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2154: ,p_validation_level IN VARCHAR2 := 100
2155: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2156: ,p_debug_mode IN VARCHAR2 := 'N'
2157: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2153: ,p_validate_only IN VARCHAR2 := FND_API.G_TRUE
2154: ,p_validation_level IN VARCHAR2 := 100
2155: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2156: ,p_debug_mode IN VARCHAR2 := 'N'
2157: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2158: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2159: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2160: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2161: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
2154: ,p_validation_level IN VARCHAR2 := 100
2155: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2156: ,p_debug_mode IN VARCHAR2 := 'N'
2157: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2158: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2159: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2160: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2161: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
2162: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2155: ,p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2156: ,p_debug_mode IN VARCHAR2 := 'N'
2157: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2158: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2159: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2160: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2161: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
2162: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2163: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
2156: ,p_debug_mode IN VARCHAR2 := 'N'
2157: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2158: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2159: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2160: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2161: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
2162: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2163: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
2164: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2157: ,p_reference_project_id IN NUMBER := FND_API.G_MISS_NUM
2158: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2159: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2160: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2161: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
2162: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2163: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
2164: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2165: ,p_peer_or_sub IN VARCHAR2
2158: ,p_reference_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2159: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2160: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2161: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
2162: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2163: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
2164: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2165: ,p_peer_or_sub IN VARCHAR2
2166: ,p_copy_node_flag IN VARCHAR2
2159: ,p_reference_task_id IN NUMBER := FND_API.G_MISS_NUM
2160: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2161: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
2162: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2163: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
2164: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2165: ,p_peer_or_sub IN VARCHAR2
2166: ,p_copy_node_flag IN VARCHAR2
2167: ,p_task_prefix IN VARCHAR2
2160: ,p_reference_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2161: ,p_project_id IN NUMBER := FND_API.G_MISS_NUM
2162: ,p_project_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2163: ,p_task_id IN NUMBER := FND_API.G_MISS_NUM
2164: ,p_task_name IN VARCHAR2 := FND_API.G_MISS_CHAR
2165: ,p_peer_or_sub IN VARCHAR2
2166: ,p_copy_node_flag IN VARCHAR2
2167: ,p_task_prefix IN VARCHAR2
2168: ,p_wbs_record_version_number IN NUMBER
2195: IF (p_debug_mode = 'Y')
2196: THEN
2197: pa_debug.debug('Copy Task PUB : Checking the api version number.');
2198: END IF;
2199: IF p_commit = FND_API.G_TRUE
2200: THEN
2201: SAVEPOINT Copy;
2202: END IF;
2203: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2199: IF p_commit = FND_API.G_TRUE
2200: THEN
2201: SAVEPOINT Copy;
2202: END IF;
2203: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
2204: p_api_version,
2205: l_api_name,
2206: g_pkg_name)
2207: THEN
2204: p_api_version,
2205: l_api_name,
2206: g_pkg_name)
2207: THEN
2208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2209: END IF;
2210: if (p_debug_mode = 'Y') then
2211: pa_debug.debug('Copy Task PUB : Initializing message stack.');
2212: end if;
2210: if (p_debug_mode = 'Y') then
2211: pa_debug.debug('Copy Task PUB : Initializing message stack.');
2212: end if;
2213: pa_debug.init_err_stack('PA_TASK_MAINT_PUB.COPY_TASK');
2214: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
2215: fnd_msg_pub.initialize;
2216: end if;
2217:
2218: IF (p_calling_module = 'SELF_SERVICE') OR (p_calling_module = 'EXCHANGE') THEN
2217:
2218: IF (p_calling_module = 'SELF_SERVICE') OR (p_calling_module = 'EXCHANGE') THEN
2219:
2220: --Check Project Name and Id
2221: IF ((p_project_name <> FND_API.G_MISS_CHAR) AND
2222: (p_project_name IS NOT NULL)) OR
2223: ((p_project_id <> FND_API.G_MISS_NUM) AND
2224: (p_project_id IS NOT NULL)) THEN
2225: --Call Check API.
2219:
2220: --Check Project Name and Id
2221: IF ((p_project_name <> FND_API.G_MISS_CHAR) AND
2222: (p_project_name IS NOT NULL)) OR
2223: ((p_project_id <> FND_API.G_MISS_NUM) AND
2224: (p_project_id IS NOT NULL)) THEN
2225: --Call Check API.
2226: pa_tasks_maint_utils.CHECK_PROJECT_NAME_OR_ID(
2227: p_project_id => p_project_id,
2229: p_check_id_flag => 'Y', -- Bug 2623999
2230: x_project_id => l_project_id,
2231: x_return_status => l_return_status,
2232: x_error_msg_code => l_error_msg_code);
2233: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2234: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2235: p_msg_name => l_error_msg_code);
2236: END IF;
2237: END IF; --End Project Name-Id Conversion
2236: END IF;
2237: END IF; --End Project Name-Id Conversion
2238:
2239: --Check Task Name and Id
2240: IF ((p_task_name <> FND_API.G_MISS_CHAR) AND
2241: (p_task_name IS NOT NULL)) OR
2242: ((p_task_id <> FND_API.G_MISS_NUM) AND
2243: (p_task_id IS NOT NULL)) THEN
2244: --Call Check API.
2238:
2239: --Check Task Name and Id
2240: IF ((p_task_name <> FND_API.G_MISS_CHAR) AND
2241: (p_task_name IS NOT NULL)) OR
2242: ((p_task_id <> FND_API.G_MISS_NUM) AND
2243: (p_task_id IS NOT NULL)) THEN
2244: --Call Check API.
2245: pa_tasks_maint_utils.CHECK_TASK_NAME_OR_ID(
2246: p_project_id => l_project_id,
2249: p_task_name => p_task_name,
2250: x_task_id => l_task_id,
2251: x_return_status => l_return_status,
2252: x_error_msg_code => l_error_msg_code);
2253: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2254: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2255: p_msg_name => l_error_msg_code);
2256: END IF;
2257: END IF; --End Task Name-Id Conversion
2257: END IF; --End Task Name-Id Conversion
2258:
2259: /*--Do not validate reference parameters - as per discussion with Sakthi and Zahid
2260: --Check reference Project Name and Id
2261: IF ((p_reference_project_name <> FND_API.G_MISS_CHAR) AND
2262: (p_reference_project_name IS NOT NULL)) OR
2263: ((p_reference_project_id <> FND_API.G_MISS_NUM) AND
2264: (p_reference_project_id IS NOT NULL)) THEN
2265: --Call Check API.
2259: /*--Do not validate reference parameters - as per discussion with Sakthi and Zahid
2260: --Check reference Project Name and Id
2261: IF ((p_reference_project_name <> FND_API.G_MISS_CHAR) AND
2262: (p_reference_project_name IS NOT NULL)) OR
2263: ((p_reference_project_id <> FND_API.G_MISS_NUM) AND
2264: (p_reference_project_id IS NOT NULL)) THEN
2265: --Call Check API.
2266: pa_tasks_maint_utils.CHECK_PROJECT_NAME_OR_ID(
2267: p_project_id => p_reference_project_id,
2268: p_project_name => p_reference_project_name,
2269: x_project_id => l_ref_project_id,
2270: x_return_status => l_return_status,
2271: x_error_msg_code => l_error_msg_code);
2272: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2273: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2274: p_msg_name => l_error_msg_code);
2275: END IF;
2276: END IF; --End Ref Project Name-Id Conversion
2275: END IF;
2276: END IF; --End Ref Project Name-Id Conversion
2277:
2278: --Check reference Task Name and Id
2279: IF ((p_reference_task_name <> FND_API.G_MISS_CHAR) AND
2280: (p_reference_task_name IS NOT NULL)) OR
2281: ((p_reference_task_id <> FND_API.G_MISS_NUM) AND
2282: (p_reference_task_id IS NOT NULL)) THEN
2283: --Call Check API.
2277:
2278: --Check reference Task Name and Id
2279: IF ((p_reference_task_name <> FND_API.G_MISS_CHAR) AND
2280: (p_reference_task_name IS NOT NULL)) OR
2281: ((p_reference_task_id <> FND_API.G_MISS_NUM) AND
2282: (p_reference_task_id IS NOT NULL)) THEN
2283: --Call Check API.
2284: pa_tasks_maint_utils.CHECK_TASK_NAME_OR_ID(
2285: p_project_id => l_ref_project_id,
2287: p_task_name => p_reference_task_name,
2288: x_task_id => l_ref_task_id,
2289: x_return_status => l_return_status,
2290: x_error_msg_code => l_error_msg_code);
2291: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2292: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2293: p_msg_name => l_error_msg_code);
2294: END IF;
2295: END IF; --End Ref Task Name-Id Conversion*/
2307: p_reference_task_id => l_ref_task_id,
2308: x_return_status => l_return_status,
2309: x_error_msg_code => l_error_msg_code );
2310:
2311: IF l_return_status = FND_API.G_RET_STS_ERROR
2312: THEN
2313: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2314: p_msg_name => l_error_msg_code);
2315: x_msg_data := l_error_msg_code;
2333: l_msg_count := FND_MSG_PUB.count_msg;
2334: IF l_msg_count > 0 THEN
2335: x_msg_count := l_msg_count;
2336: x_return_status := 'E';
2337: RAISE FND_API.G_EXC_ERROR;
2338: END IF;
2339:
2340: IF p_copy_node_flag = 'P' ----copy entire project
2341: THEN
2399: If l_msg_count > 0 THEN
2400: x_msg_count := l_msg_count;
2401: If l_msg_count = 1 THEN
2402: pa_interface_utils_pub.get_messages
2403: (p_encoded => FND_API.G_TRUE ,
2404: p_msg_index => 1,
2405: p_msg_count => l_msg_count ,
2406: p_msg_data => l_msg_data,
2407: p_data => l_data,
2409:
2410: x_msg_data := l_data;
2411:
2412: End if;
2413: RAISE FND_API.G_EXC_ERROR;
2414: End if;
2415:
2416: PA_TASKS_MAINT_UTILS.INCREMENT_WBS_REC_VER_NUM(
2417: p_project_id => l_ref_project_id,
2417: p_project_id => l_ref_project_id,
2418: p_wbs_record_version_number => p_wbs_record_version_number,
2419: x_return_status => x_return_status );
2420:
2421: IF FND_API.TO_BOOLEAN(P_COMMIT)
2422: THEN
2423: COMMIT WORK;
2424: END IF;
2425:
2423: COMMIT WORK;
2424: END IF;
2425:
2426: EXCEPTION
2427: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2428: IF p_commit = FND_API.G_TRUE
2429: THEN
2430: ROLLBACK TO Copy;
2431: END IF;
2424: END IF;
2425:
2426: EXCEPTION
2427: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2428: IF p_commit = FND_API.G_TRUE
2429: THEN
2430: ROLLBACK TO Copy;
2431: END IF;
2432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2428: IF p_commit = FND_API.G_TRUE
2429: THEN
2430: ROLLBACK TO Copy;
2431: END IF;
2432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2433: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
2434: p_procedure_name => 'Copy_Task',
2435: p_error_text => SUBSTRB(SQLERRM,1,240));
2436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2433: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
2434: p_procedure_name => 'Copy_Task',
2435: p_error_text => SUBSTRB(SQLERRM,1,240));
2436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2437:
2438: WHEN FND_API.G_EXC_ERROR THEN
2439: IF p_commit = FND_API.G_TRUE
2440: THEN
2434: p_procedure_name => 'Copy_Task',
2435: p_error_text => SUBSTRB(SQLERRM,1,240));
2436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2437:
2438: WHEN FND_API.G_EXC_ERROR THEN
2439: IF p_commit = FND_API.G_TRUE
2440: THEN
2441: ROLLBACK TO Copy;
2442: END IF;
2435: p_error_text => SUBSTRB(SQLERRM,1,240));
2436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2437:
2438: WHEN FND_API.G_EXC_ERROR THEN
2439: IF p_commit = FND_API.G_TRUE
2440: THEN
2441: ROLLBACK TO Copy;
2442: END IF;
2443: x_return_status := 'E';
2442: END IF;
2443: x_return_status := 'E';
2444:
2445: WHEN OTHERS THEN
2446: IF p_commit = FND_API.G_TRUE
2447: THEN
2448: ROLLBACK TO Copy;
2449: END IF;
2450: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2446: IF p_commit = FND_API.G_TRUE
2447: THEN
2448: ROLLBACK TO Copy;
2449: END IF;
2450: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2451: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_TASKS_MAINT_PUB',
2452: p_procedure_name => 'Copy_Task',
2453: p_error_text => SUBSTRB(SQLERRM,1,240));
2454: RAISE;
2480:
2481: PROCEDURE SET_FINANCIAL_FLAG_WRAPPER
2482: (
2483: p_api_version IN NUMBER := 1.0
2484: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2485: , p_commit IN VARCHAR2 := FND_API.G_FALSE
2486: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
2487: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2488: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2481: PROCEDURE SET_FINANCIAL_FLAG_WRAPPER
2482: (
2483: p_api_version IN NUMBER := 1.0
2484: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2485: , p_commit IN VARCHAR2 := FND_API.G_FALSE
2486: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
2487: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2488: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2489: , p_debug_mode IN VARCHAR2 := 'N'
2482: (
2483: p_api_version IN NUMBER := 1.0
2484: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2485: , p_commit IN VARCHAR2 := FND_API.G_FALSE
2486: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
2487: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2488: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2489: , p_debug_mode IN VARCHAR2 := 'N'
2490: , p_task_version_id IN NUMBER
2483: p_api_version IN NUMBER := 1.0
2484: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
2485: , p_commit IN VARCHAR2 := FND_API.G_FALSE
2486: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
2487: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2488: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
2489: , p_debug_mode IN VARCHAR2 := 'N'
2490: , p_task_version_id IN NUMBER
2491: , p_checked_flag IN VARCHAR2
2665: l_login_id NUMBER;
2666: l_wp_version_enabled VARCHAR2(1);--Bug 4482903
2667: BEGIN
2668: x_msg_count := 0;
2669: x_return_status := FND_API.G_RET_STS_SUCCESS;
2670: --Delete the elements from the table, if any
2671: l_task_version_id_tbl.DELETE;
2672:
2673: --Bug 3735089 - instead of fnd_profile.value use fnd_profile.value_specific
2699: Pa_Debug.WRITE(g_pkg_name,'p_published_version_exists'||':'||p_published_version_exists,
2700: l_debug_level3);
2701: END IF;
2702:
2703: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2704: FND_MSG_PUB.initialize;
2705: END IF;
2706:
2707: IF (p_commit = FND_API.G_TRUE) THEN
2703: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2704: FND_MSG_PUB.initialize;
2705: END IF;
2706:
2707: IF (p_commit = FND_API.G_TRUE) THEN
2708: savepoint SET_FIN_FLAG_WRAPPER_PUBLIC;
2709: END IF;
2710:
2711: IF l_debug_mode = 'Y' THEN
2739: --Call API to set/unset financial_flag for p_task_version_id depending on p_checked_flag.
2740:
2741: PA_TASKS_MAINT_PVT.SET_UNSET_FINANCIAL_TASK
2742: (
2743: p_init_msg_list => FND_API.G_FALSE
2744: , p_commit => p_commit
2745: , p_debug_mode => l_debug_mode
2746: , p_task_version_id => p_task_version_id
2747: , p_project_id => p_project_id
2750: , x_msg_count => x_msg_count
2751: , x_msg_data => x_msg_data
2752: );
2753:
2754: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2755: THEN
2756: RAISE FND_API.G_EXC_ERROR;
2757: END IF;
2758: l_wp_version_enabled := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED(p_project_id); --Bug 4482903
2752: );
2753:
2754: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2755: THEN
2756: RAISE FND_API.G_EXC_ERROR;
2757: END IF;
2758: l_wp_version_enabled := PA_PROJ_TASK_STRUC_PUB.IS_WP_VERSIONING_ENABLED(p_project_id); --Bug 4482903
2759: --If p_published_version_exists ='N'
2760: -- IF ( p_published_version_exists = 'N') --Bug 4482903
2800: , x_msg_count => x_msg_count
2801: , x_msg_data => x_msg_data
2802: );
2803:
2804: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2805: THEN
2806: RAISE FND_API.G_EXC_ERROR;
2807: END IF;
2808:
2802: );
2803:
2804: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2805: THEN
2806: RAISE FND_API.G_EXC_ERROR;
2807: END IF;
2808:
2809: IF ( p_published_version_exists = 'N')
2810: THEN
2848: , x_msg_count => x_msg_count
2849: , x_msg_data => x_msg_data
2850: );
2851:
2852: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2853: THEN
2854: RAISE FND_API.G_EXC_ERROR;
2855: END IF;
2856:
2850: );
2851:
2852: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2853: THEN
2854: RAISE FND_API.G_EXC_ERROR;
2855: END IF;
2856:
2857: IF ( p_published_version_exists = 'N')
2858: THEN
2892: --if the parent is structure then then pass p_parent_task_version_id as null
2893: PA_TASKS_MAINT_PUB.SYNC_UP_WP_TASKS_WITH_FIN
2894: (
2895: p_api_version => 1.0
2896: , p_init_msg_list => FND_API.G_FALSE
2897: , p_commit => p_commit
2898: , p_validate_only => FND_API.G_FALSE
2899: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2900: , p_calling_module => 'SELF_SERVICE'
2894: (
2895: p_api_version => 1.0
2896: , p_init_msg_list => FND_API.G_FALSE
2897: , p_commit => p_commit
2898: , p_validate_only => FND_API.G_FALSE
2899: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2900: , p_calling_module => 'SELF_SERVICE'
2901: , p_debug_mode => l_debug_mode
2902: , p_patask_record_version_number => l_patask_record_version_number
2895: p_api_version => 1.0
2896: , p_init_msg_list => FND_API.G_FALSE
2897: , p_commit => p_commit
2898: , p_validate_only => FND_API.G_FALSE
2899: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2900: , p_calling_module => 'SELF_SERVICE'
2901: , p_debug_mode => l_debug_mode
2902: , p_patask_record_version_number => l_patask_record_version_number
2903: , p_parent_task_version_id => FND_API.G_MISS_NUM
2899: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2900: , p_calling_module => 'SELF_SERVICE'
2901: , p_debug_mode => l_debug_mode
2902: , p_patask_record_version_number => l_patask_record_version_number
2903: , p_parent_task_version_id => FND_API.G_MISS_NUM
2904: , p_project_id => p_project_id
2905: , p_syncup_all_tasks => 'N'
2906: -- , p_task_version_id => l_task_version_id_tbl(l_task_version_id_tbl.LAST)--Bug 3735089
2907: , p_task_version_id => l_syncup_task_version_id
2904: , p_project_id => p_project_id
2905: , p_syncup_all_tasks => 'N'
2906: -- , p_task_version_id => l_task_version_id_tbl(l_task_version_id_tbl.LAST)--Bug 3735089
2907: , p_task_version_id => l_syncup_task_version_id
2908: , p_structure_version_id => FND_API.G_MISS_NUM
2909: , p_check_for_transactions => 'N'
2910: , p_checked_flag => p_checked_flag
2911: , p_mode => 'SINGLE'
2912: , x_return_status => x_return_status
2913: , x_msg_count => x_msg_count
2914: , x_msg_data => x_msg_data
2915: );
2916: -- Bug 3735089 : Added error handling code
2917: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2918: THEN
2919: RAISE FND_API.G_EXC_ERROR;
2920: END IF;
2921:
2915: );
2916: -- Bug 3735089 : Added error handling code
2917: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2918: THEN
2919: RAISE FND_API.G_EXC_ERROR;
2920: END IF;
2921:
2922: ELSE
2923:
2925: PA_TASKS_MAINT_PUB.SYNC_UP_WP_TASKS_WITH_FIN
2926: (
2927: p_debug_mode => l_debug_mode
2928: , p_commit => p_commit
2929: , p_init_msg_list => FND_API.G_FALSE
2930: , p_patask_record_version_number => l_patask_record_version_number
2931: , p_parent_task_version_id => l_last_task_parent_id
2932: , p_project_id => p_project_id
2933: , p_syncup_all_tasks =>'N'
2940: , x_msg_count => x_msg_count
2941: , x_msg_data => x_msg_data
2942: );
2943: -- Bug 3735089 : Added error handling code
2944: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2945: THEN
2946: RAISE FND_API.G_EXC_ERROR;
2947: END IF;
2948:
2942: );
2943: -- Bug 3735089 : Added error handling code
2944: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2945: THEN
2946: RAISE FND_API.G_EXC_ERROR;
2947: END IF;
2948:
2949: END IF;
2950: CLOSE c_get_immediate_parent;
2959: PA_TASKS_MAINT_PUB.SYNC_UP_WP_TASKS_WITH_FIN
2960: (
2961: p_debug_mode => l_debug_mode
2962: , p_commit => p_commit
2963: , p_init_msg_list => FND_API.G_FALSE
2964: , p_patask_record_version_number => l_patask_record_version_number
2965: , p_parent_task_version_id => l_task_version_id_tbl( iCounter + 1 )
2966: , p_project_id => p_project_id
2967: , p_syncup_all_tasks =>'N'
2972: , x_return_status => x_return_status
2973: , x_msg_count => x_msg_count
2974: , x_msg_data => x_msg_data
2975: );
2976: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2977: THEN
2978: RAISE FND_API.G_EXC_ERROR;
2979: END IF;
2980: END LOOP;
2974: , x_msg_data => x_msg_data
2975: );
2976: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
2977: THEN
2978: RAISE FND_API.G_EXC_ERROR;
2979: END IF;
2980: END LOOP;
2981: END IF;
2982: END IF;
2980: END LOOP;
2981: END IF;
2982: END IF;
2983:
2984: IF (p_commit = FND_API.G_TRUE) THEN
2985: COMMIT;
2986: END IF;
2987: -- Bug 3735089 : using reset_curr_function too, just using set_curr_function may overflow it after several recursive calls
2988: -- and it gives ORA 06512 numeric or value error
2991: END IF;
2992:
2993: EXCEPTION
2994:
2995: WHEN FND_API.G_EXC_ERROR THEN
2996:
2997: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2998: l_msg_count := Fnd_Msg_Pub.count_msg;
2999:
2993: EXCEPTION
2994:
2995: WHEN FND_API.G_EXC_ERROR THEN
2996:
2997: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2998: l_msg_count := Fnd_Msg_Pub.count_msg;
2999:
3000: IF p_commit = FND_API.G_TRUE THEN
3001: ROLLBACK TO SET_FIN_FLAG_WRAPPER_PUBLIC;
2996:
2997: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2998: l_msg_count := Fnd_Msg_Pub.count_msg;
2999:
3000: IF p_commit = FND_API.G_TRUE THEN
3001: ROLLBACK TO SET_FIN_FLAG_WRAPPER_PUBLIC;
3002: END IF;
3003:
3004: IF c_get_parents%ISOPEN THEN
3018:
3019: IF l_msg_count = 1 AND x_msg_data IS NULL
3020: THEN
3021: Pa_Interface_Utils_Pub.get_messages
3022: ( p_encoded => Fnd_Api.G_TRUE
3023: , p_msg_index => 1
3024: , p_msg_count => l_msg_count
3025: , p_msg_data => l_msg_data
3026: , p_data => l_data
3036: END IF;
3037:
3038: WHEN Invalid_Arg_Exc_WP THEN
3039:
3040: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3041: x_msg_count := 1;
3042: x_msg_data := 'PA_TASKS_MAINT_PUB : SET_FINANCIAL_FLAG_WRAPPER : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
3043:
3044: IF p_commit = FND_API.G_TRUE THEN
3040: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3041: x_msg_count := 1;
3042: x_msg_data := 'PA_TASKS_MAINT_PUB : SET_FINANCIAL_FLAG_WRAPPER : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
3043:
3044: IF p_commit = FND_API.G_TRUE THEN
3045: ROLLBACK TO SET_FIN_FLAG_WRAPPER_PUBLIC;
3046: END IF;
3047: IF c_get_parents%ISOPEN THEN
3048: CLOSE c_get_parents;
3071: RAISE;
3072:
3073: WHEN OTHERS THEN
3074:
3075: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3076: x_msg_count := 1;
3077: x_msg_data := substr(SQLERRM,1,120);-- Bug 3735089 Added substr
3078:
3079: IF p_commit = FND_API.G_TRUE THEN
3075: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3076: x_msg_count := 1;
3077: x_msg_data := substr(SQLERRM,1,120);-- Bug 3735089 Added substr
3078:
3079: IF p_commit = FND_API.G_TRUE THEN
3080: ROLLBACK TO SET_FIN_FLAG_WRAPPER_PUBLIC;
3081: END IF;
3082:
3083: IF c_get_parents%ISOPEN THEN
3130:
3131: PROCEDURE POPULATE_TEMP_TABLE
3132: (
3133: p_api_version IN NUMBER := 1.0
3134: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3135: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3136: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3137: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3138: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3131: PROCEDURE POPULATE_TEMP_TABLE
3132: (
3133: p_api_version IN NUMBER := 1.0
3134: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3135: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3136: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3137: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3138: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3139: , p_debug_mode IN VARCHAR2 := 'N'
3132: (
3133: p_api_version IN NUMBER := 1.0
3134: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3135: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3136: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3137: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3138: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3139: , p_debug_mode IN VARCHAR2 := 'N'
3140: , p_task_version_id_array IN SYSTEM.PA_NUM_TBL_TYPE := NULL
3133: p_api_version IN NUMBER := 1.0
3134: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3135: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3136: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3137: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3138: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3139: , p_debug_mode IN VARCHAR2 := 'N'
3140: , p_task_version_id_array IN SYSTEM.PA_NUM_TBL_TYPE := NULL
3141: , p_structure_version_id IN NUMBER
3254:
3255: BEGIN
3256:
3257: x_msg_count := 0;
3258: x_return_status := FND_API.G_RET_STS_SUCCESS;
3259:
3260: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3261: --l_debug_mode := NVL(p_debug_mode,'N');
3262: IF l_debug_mode = 'Y' THEN
3299: l_wbs_number_tbl.DELETE;
3300: l_proj_element_id_tbl.DELETE;
3301: l_fin_task_flag_tbl.DELETE;
3302:
3303: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
3304: FND_MSG_PUB.initialize;
3305: END IF;
3306:
3307: IF (p_commit = FND_API.G_TRUE) THEN
3303: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
3304: FND_MSG_PUB.initialize;
3305: END IF;
3306:
3307: IF (p_commit = FND_API.G_TRUE) THEN
3308: savepoint POPULATE_TEMP_TBL_PUB;
3309: END IF;
3310:
3311: IF l_debug_mode = 'Y' THEN
3421: );
3422: END IF;
3423: END LOOP;
3424: END IF;
3425: IF (p_commit = FND_API.G_TRUE) THEN
3426: COMMIT;
3427: END IF;
3428:
3429: EXCEPTION
3426: COMMIT;
3427: END IF;
3428:
3429: EXCEPTION
3430: WHEN FND_API.G_EXC_ERROR THEN
3431:
3432: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3433: l_msg_count := Fnd_Msg_Pub.count_msg;
3434:
3428:
3429: EXCEPTION
3430: WHEN FND_API.G_EXC_ERROR THEN
3431:
3432: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3433: l_msg_count := Fnd_Msg_Pub.count_msg;
3434:
3435: IF p_commit = FND_API.G_TRUE THEN
3436: ROLLBACK TO POPULATE_TEMP_TABLE_PUB;
3431:
3432: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3433: l_msg_count := Fnd_Msg_Pub.count_msg;
3434:
3435: IF p_commit = FND_API.G_TRUE THEN
3436: ROLLBACK TO POPULATE_TEMP_TABLE_PUB;
3437: END IF;
3438:
3439: IF c_get_structure_info%ISOPEN THEN
3447:
3448: IF l_msg_count = 1 AND x_msg_data IS NULL
3449: THEN
3450: Pa_Interface_Utils_Pub.get_messages
3451: ( p_encoded => Fnd_Api.G_TRUE
3452: , p_msg_index => 1
3453: , p_msg_count => l_msg_count
3454: , p_msg_data => l_msg_data
3455: , p_data => l_data
3464: END IF;
3465:
3466: WHEN Invalid_Arg_Exc_WP THEN
3467:
3468: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3469: x_msg_count := 1;
3470: x_msg_data := 'PA_TASKS_MAINT_PUB : POPULATE_TEMP_TABLE : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
3471:
3472: IF p_commit = FND_API.G_TRUE THEN
3468: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3469: x_msg_count := 1;
3470: x_msg_data := 'PA_TASKS_MAINT_PUB : POPULATE_TEMP_TABLE : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
3471:
3472: IF p_commit = FND_API.G_TRUE THEN
3473: ROLLBACK TO POPULATE_TEMP_TABLE_PUB;
3474: END IF;
3475: IF c_get_structure_info%ISOPEN THEN
3476: CLOSE c_get_structure_info;
3493: RAISE;
3494:
3495: WHEN OTHERS THEN
3496:
3497: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3498: x_msg_count := 1;
3499: x_msg_data := substr(SQLERRM,1,120);-- Bug 3735089 Added substr
3500:
3501: IF p_commit = FND_API.G_TRUE THEN
3497: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3498: x_msg_count := 1;
3499: x_msg_data := substr(SQLERRM,1,120);-- Bug 3735089 Added substr
3500:
3501: IF p_commit = FND_API.G_TRUE THEN
3502: ROLLBACK TO POPULATE_TEMP_TABLE_PUB;
3503: END IF;
3504: IF c_get_structure_info%ISOPEN THEN
3505: CLOSE c_get_structure_info;
3545:
3546: PROCEDURE SYNC_UP_WP_TASKS_WITH_FIN
3547: (
3548: p_api_version IN NUMBER := 1.0
3549: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3550: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3551: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3552: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3553: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3546: PROCEDURE SYNC_UP_WP_TASKS_WITH_FIN
3547: (
3548: p_api_version IN NUMBER := 1.0
3549: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3550: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3551: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3552: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3553: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3554: , p_debug_mode IN VARCHAR2 := 'N'
3547: (
3548: p_api_version IN NUMBER := 1.0
3549: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3550: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3551: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3552: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3553: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3554: , p_debug_mode IN VARCHAR2 := 'N'
3555: , p_patask_record_version_number IN NUMBER := FND_API.G_MISS_NUM
3548: p_api_version IN NUMBER := 1.0
3549: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
3550: , p_commit IN VARCHAR2 := FND_API.G_FALSE
3551: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3552: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3553: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3554: , p_debug_mode IN VARCHAR2 := 'N'
3555: , p_patask_record_version_number IN NUMBER := FND_API.G_MISS_NUM
3556: , p_parent_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3551: , p_validate_only IN VARCHAR2 := FND_API.G_FALSE
3552: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3553: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3554: , p_debug_mode IN VARCHAR2 := 'N'
3555: , p_patask_record_version_number IN NUMBER := FND_API.G_MISS_NUM
3556: , p_parent_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3557: , p_project_id IN NUMBER
3558: , p_syncup_all_tasks IN VARCHAR2 := 'N'
3559: , p_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3552: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3553: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
3554: , p_debug_mode IN VARCHAR2 := 'N'
3555: , p_patask_record_version_number IN NUMBER := FND_API.G_MISS_NUM
3556: , p_parent_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3557: , p_project_id IN NUMBER
3558: , p_syncup_all_tasks IN VARCHAR2 := 'N'
3559: , p_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3560: , p_structure_version_id IN NUMBER := FND_API.G_MISS_NUM
3555: , p_patask_record_version_number IN NUMBER := FND_API.G_MISS_NUM
3556: , p_parent_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3557: , p_project_id IN NUMBER
3558: , p_syncup_all_tasks IN VARCHAR2 := 'N'
3559: , p_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3560: , p_structure_version_id IN NUMBER := FND_API.G_MISS_NUM
3561: , p_check_for_transactions IN VARCHAR2 := 'N'
3562: , p_checked_flag IN VARCHAR2 := FND_API.G_MISS_CHAR
3563: , p_mode IN VARCHAR2 := 'SINGLE'
3556: , p_parent_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3557: , p_project_id IN NUMBER
3558: , p_syncup_all_tasks IN VARCHAR2 := 'N'
3559: , p_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3560: , p_structure_version_id IN NUMBER := FND_API.G_MISS_NUM
3561: , p_check_for_transactions IN VARCHAR2 := 'N'
3562: , p_checked_flag IN VARCHAR2 := FND_API.G_MISS_CHAR
3563: , p_mode IN VARCHAR2 := 'SINGLE'
3564: , x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3558: , p_syncup_all_tasks IN VARCHAR2 := 'N'
3559: , p_task_version_id IN NUMBER := FND_API.G_MISS_NUM
3560: , p_structure_version_id IN NUMBER := FND_API.G_MISS_NUM
3561: , p_check_for_transactions IN VARCHAR2 := 'N'
3562: , p_checked_flag IN VARCHAR2 := FND_API.G_MISS_CHAR
3563: , p_mode IN VARCHAR2 := 'SINGLE'
3564: , x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3565: , x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
3566: , x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
3584:
3585: BEGIN
3586:
3587: x_msg_count := 0;
3588: x_return_status := FND_API.G_RET_STS_SUCCESS;
3589:
3590: --Bug 3735089 - instead of fnd_profile.value use fnd_profile.value_specific
3591: --l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3592: l_user_id := fnd_global.user_id;
3620: Pa_Debug.WRITE(g_pkg_name,'p_patask_record_version_number'||':'||p_patask_record_version_number,
3621: l_debug_level3);
3622: END IF;
3623:
3624: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
3625: FND_MSG_PUB.initialize;
3626: END IF;
3627:
3628: IF (p_commit = FND_API.G_TRUE) THEN
3624: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
3625: FND_MSG_PUB.initialize;
3626: END IF;
3627:
3628: IF (p_commit = FND_API.G_TRUE) THEN
3629: savepoint SYNC_UP_WITH_FIN_PUBLIC;
3630: END IF;
3631:
3632: IF l_debug_mode = 'Y' THEN
3657: END IF;*/
3658: --If p_mode = SINGLE, then p_task_version_id and p_checked_flag should be passed not null
3659: IF ( ( p_mode='SINGLE') AND
3660: (
3661: ( p_task_version_id IS NULL OR p_task_version_id = FND_API.G_MISS_NUM ) OR
3662: ( p_checked_flag IS NULL OR p_checked_flag = FND_API.G_MISS_CHAR )
3663: )
3664: )
3665: THEN
3658: --If p_mode = SINGLE, then p_task_version_id and p_checked_flag should be passed not null
3659: IF ( ( p_mode='SINGLE') AND
3660: (
3661: ( p_task_version_id IS NULL OR p_task_version_id = FND_API.G_MISS_NUM ) OR
3662: ( p_checked_flag IS NULL OR p_checked_flag = FND_API.G_MISS_CHAR )
3663: )
3664: )
3665: THEN
3666: IF l_debug_mode = 'Y' THEN
3670: END IF;
3671: RAISE Invalid_Arg_Exc_WP;
3672: ELSIF ( ( p_mode = 'ALL')
3673: AND
3674: ( p_structure_version_id IS NULL OR p_structure_version_id = FND_API.G_MISS_NUM )
3675: )
3676: THEN
3677: IF l_debug_mode = 'Y' THEN
3678: Pa_Debug.g_err_stage:= 'PA_TASKS_MAINT_PUB : SYNC_UP_WP_TASKS_WITH_FIN : Manadatory parameters with mode '||p_mode||'are not passed';
3684:
3685: -- Call Private APIs
3686: PA_TASKS_MAINT_PVT.SYNC_UP_WP_TASKS_WITH_FIN
3687: (
3688: p_init_msg_list => FND_API.G_FALSE
3689: , p_commit => p_commit
3690: , p_debug_mode => l_debug_mode
3691: , p_project_id => p_project_id
3692: , p_syncup_all_tasks => p_syncup_all_tasks
3699: , x_return_status => x_return_status
3700: , x_msg_count => x_msg_count
3701: , x_msg_data => x_msg_data
3702: );
3703: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
3704: THEN
3705: RAISE FND_API.G_EXC_ERROR;
3706: END IF;
3707:
3701: , x_msg_data => x_msg_data
3702: );
3703: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
3704: THEN
3705: RAISE FND_API.G_EXC_ERROR;
3706: END IF;
3707:
3708: IF (p_commit = FND_API.G_TRUE) THEN
3709: COMMIT;
3704: THEN
3705: RAISE FND_API.G_EXC_ERROR;
3706: END IF;
3707:
3708: IF (p_commit = FND_API.G_TRUE) THEN
3709: COMMIT;
3710: END IF;
3711:
3712: -- Bug 3735089 : using reset_curr_function too, just using set_curr_function may overflow it after several recursive calls
3716: END IF;
3717:
3718: EXCEPTION
3719:
3720: WHEN FND_API.G_EXC_ERROR THEN
3721:
3722: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3723: l_msg_count := Fnd_Msg_Pub.count_msg;
3724:
3718: EXCEPTION
3719:
3720: WHEN FND_API.G_EXC_ERROR THEN
3721:
3722: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3723: l_msg_count := Fnd_Msg_Pub.count_msg;
3724:
3725: IF p_commit = FND_API.G_TRUE THEN
3726: ROLLBACK TO SYNC_UP_WITH_FIN_PUBLIC;
3721:
3722: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3723: l_msg_count := Fnd_Msg_Pub.count_msg;
3724:
3725: IF p_commit = FND_API.G_TRUE THEN
3726: ROLLBACK TO SYNC_UP_WITH_FIN_PUBLIC;
3727: END IF;
3728:
3729:
3729:
3730: IF l_msg_count = 1 AND x_msg_data IS NULL
3731: THEN
3732: Pa_Interface_Utils_Pub.get_messages
3733: ( p_encoded => Fnd_Api.G_TRUE
3734: , p_msg_index => 1
3735: , p_msg_count => l_msg_count
3736: , p_msg_data => l_msg_data
3737: , p_data => l_data
3746: END IF;
3747:
3748: WHEN Invalid_Arg_Exc_WP THEN
3749:
3750: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3751: x_msg_count := 1;
3752: x_msg_data := 'PA_TASKS_MAINT_PUB : SYNC_UP_WP_TASKS_WITH_FIN : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
3753:
3754: IF p_commit = FND_API.G_TRUE THEN
3750: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3751: x_msg_count := 1;
3752: x_msg_data := 'PA_TASKS_MAINT_PUB : SYNC_UP_WP_TASKS_WITH_FIN : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
3753:
3754: IF p_commit = FND_API.G_TRUE THEN
3755: ROLLBACK TO SYNC_UP_WITH_FIN_PUBLIC;
3756: END IF;
3757:
3758:
3770: RAISE;
3771:
3772: WHEN OTHERS THEN
3773:
3774: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3775: x_msg_count := 1;
3776: x_msg_data := substr(SQLERRM,1,120);-- Bug 3735089 Added substr
3777:
3778: IF p_commit = FND_API.G_TRUE THEN
3774: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3775: x_msg_count := 1;
3776: x_msg_data := substr(SQLERRM,1,120);-- Bug 3735089 Added substr
3777:
3778: IF p_commit = FND_API.G_TRUE THEN
3779: ROLLBACK TO SYNC_UP_WITH_FIN_PUBLIC;
3780: END IF;
3781:
3782: