[Home] [Help]
6: g1_debug_mode varchar2(1) := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
7:
8: PROCEDURE UPDATE_TASK_PROGRESS(
9: p_api_version IN NUMBER :=1.0,
10: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
11: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
12: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
13: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
14: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
7:
8: PROCEDURE UPDATE_TASK_PROGRESS(
9: p_api_version IN NUMBER :=1.0,
10: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
11: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
12: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
13: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
14: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
15: p_calling_mode IN VARCHAR2 := null,-- bug 4287638
8: PROCEDURE UPDATE_TASK_PROGRESS(
9: p_api_version IN NUMBER :=1.0,
10: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
11: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
12: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
13: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
14: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
15: p_calling_mode IN VARCHAR2 := null,-- bug 4287638
16: p_debug_mode IN VARCHAR2 :='N',
9: p_api_version IN NUMBER :=1.0,
10: p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE,
11: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
12: p_validate_only IN VARCHAR2 :=FND_API.G_TRUE,
13: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
14: p_calling_module IN VARCHAR2 :='SELF_SERVICE',
15: p_calling_mode IN VARCHAR2 := null,-- bug 4287638
16: p_debug_mode IN VARCHAR2 :='N',
17: p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
669: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_PROGRESS', x_Msg => 'p_planned_cost='||p_planned_cost, x_Log_Level=> 3);
670: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_PROGRESS', x_Msg => 'p_planned_effort='||p_planned_effort, x_Log_Level=> 3);
671: END IF;
672:
673: IF (p_commit = FND_API.G_TRUE) THEN
674: savepoint UPDATE_TASK_PROGRESS;
675: END IF;
676:
677: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
673: IF (p_commit = FND_API.G_TRUE) THEN
674: savepoint UPDATE_TASK_PROGRESS;
675: END IF;
676:
677: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
679: END IF;
680:
681: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
674: savepoint UPDATE_TASK_PROGRESS;
675: END IF;
676:
677: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
679: END IF;
680:
681: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
682: FND_MSG_PUB.initialize;
677: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
679: END IF;
680:
681: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
682: FND_MSG_PUB.initialize;
683: END IF;
684:
685: x_return_status := FND_API.G_RET_STS_SUCCESS;
681: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
682: FND_MSG_PUB.initialize;
683: END IF;
684:
685: x_return_status := FND_API.G_RET_STS_SUCCESS;
686:
687: --BUG 4085882, added by rtarway
688: --bug 4320365, changed to p_calling_mode from p_calling_module
689: --the code to set prog_as_of_date is needed.
739: ,x_msg_data => l_msg_data
740: );
741: -- Bug 4632744 : Added Return Status check
742: IF l_return_status <> 'S' THEN
743: raise FND_API.G_EXC_ERROR;
744: END IF;
745: END LOOP;
746: -- if there are working deliverable records associated with this task, we need to puyblish those deliverable progress
747: FOR l_working_dlvr_rec in c_dlvr_working_prog (p_project_id , p_object_id, p_object_version_id ) LOOP
775: ,x_msg_data => l_msg_data
776: );
777: -- Bug 4632744 : Added Return Status check
778: IF l_return_status <> 'S' THEN
779: raise FND_API.G_EXC_ERROR;
780: END IF;
781: END LOOP;
782: END IF ; -- p_calling_module='TEAM_MEM_HOME'
783: --end add by rtarway for BUG 4085882
815: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
816: ,p_msg_name => 'PA_TP_CANT_NTER_ACT_4FN_STR');
817: x_msg_data := 'PA_TP_CANT_NTER_ACT_4FN_STR';
818: x_return_status := 'E';
819: RAISE FND_API.G_EXC_ERROR;
820: END IF;
821: END IF;
822:
823: IF p_object_type = 'PA_TASKS'
847: p_msg_name => 'PA_FP_INVALID_DATE_RANGE');
848: x_msg_data := 'PA_FP_INVALID_DATE_RANGE';
849: x_return_status := 'E';
850: x_msg_count := fnd_msg_pub.count_msg;
851: RAISE FND_API.G_EXC_ERROR;
852: END;
853:
854: IF g1_debug_mode = 'Y' THEN
855: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_PROGRESS', x_Msg => 'l_element_struc_type='||l_element_struc_type, x_Log_Level=> 3);
918: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
919: ,p_msg_name => 'PA_TP_CANT_NTER_PRG_CANCEL');
920: x_msg_data := 'PA_TP_CANT_NTER_PRG_CANCEL';
921: x_return_status := 'E';
922: RAISE FND_API.G_EXC_ERROR;
923: END IF;
924: ---- if status is CANCELLED
925:
926:
966: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
967: ,p_msg_name => 'PA_TP_CANT_ENTER_PROG');
968: x_msg_data := 'PA_TP_CANT_ENTER_PROG';
969: x_return_status := 'E';
970: RAISE FND_API.G_EXC_ERROR;
971: END IF;
972: ----- No PRPGRESS
973:
974: ----- Wrong MODE
977: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
978: ,p_msg_name => 'PA_TP_WRONG_PRG_MODE4');
979: x_msg_data := 'PA_TP_WRONG_PRG_MODE4';
980: x_return_status := 'E';
981: RAISE FND_API.G_EXC_ERROR;
982: END IF;
983: ----- Wrong MODE
984:
985: ----- Wrong DATE
988: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
989: ,p_msg_name => 'PA_TP_INV_AOD');
990: x_msg_data := 'PA_TP_INV_AOD';
991: x_return_status := 'E';
992: RAISE FND_API.G_EXC_ERROR;
993: END IF;
994: ----- Wrong DATE
995:
996: ----- Wrong PROGRESS STATUS
999: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1000: ,p_msg_name => 'PA_TP_INV_PRG_STAT');
1001: x_msg_data := 'PA_TP_INV_PRG_STAT';
1002: x_return_status := 'E';
1003: RAISE FND_API.G_EXC_ERROR;
1004: END IF;
1005: ----- Wrong PROGRESS STATUS
1006: --Added by rtarway, for BUG 3819619
1007:
1018: p_msg_name => 'PA_TP_INV_PRG_STAT',
1019: P_TOKEN1 => 'OBJECT_ID',
1020: P_VALUE1 => p_object_id);
1021: x_msg_data := 'PA_TP_INV_PRG_STAT';
1022: x_return_status := FND_API.G_RET_STS_ERROR;
1023: RAISE FND_API.G_EXC_ERROR;
1024: END;
1025: END IF;
1026: --End Add for BUG 3819619
1019: P_TOKEN1 => 'OBJECT_ID',
1020: P_VALUE1 => p_object_id);
1021: x_msg_data := 'PA_TP_INV_PRG_STAT';
1022: x_return_status := FND_API.G_RET_STS_ERROR;
1023: RAISE FND_API.G_EXC_ERROR;
1024: END;
1025: END IF;
1026: --End Add for BUG 3819619
1027:
1034: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1035: ,p_msg_name => 'PA_TP_INV_TSK_STAT');
1036: x_msg_data := 'PA_TP_INV_TSK_STAT';
1037: x_return_status := 'E';
1038: RAISE FND_API.G_EXC_ERROR;
1039: END IF;
1040: END IF;
1041: ----- Wrong STATUS
1042: END IF; --<< l_element_struc_type >>
1053: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1054: ,p_msg_name => 'PA_TP_NO_NEG_WQ');
1055: x_msg_data := 'PA_TP_NO_NEG_WQ';
1056: x_return_status := 'E';
1057: RAISE FND_API.G_EXC_ERROR;
1058: ELSE
1059: --bug 3824042, round wq upto 2 decimal places
1060: --l_actual_work_quantity := nvl(p_actual_work_quantity,0);
1061: l_actual_work_quantity := nvl(round(p_actual_work_quantity,2),0);
1079: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1080: ,p_msg_name => 'PA_TP_NO_NEG_ETC');
1081: x_msg_data := 'PA_TP_NO_NEG_ETC';
1082: x_return_status := 'E';
1083: RAISE FND_API.G_EXC_ERROR;
1084: END IF;
1085: --3779387
1086: */
1087:
1213: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1214: p_msg_name => 'PA_TP_NO_PC_OVRIDE');
1215: x_msg_data := 'PA_TP_NO_PC_OVRIDE';
1216: x_return_status := 'E';
1217: -- RAISE FND_API.G_EXC_ERROR;
1218: l_tp_pcc_est_disabl := 'Y';
1219: END IF;
1220: END IF;
1221:
1223: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1224: ,p_msg_name => 'PA_PERC_COMP_INV');
1225: x_msg_data := 'PA_PERC_COMP_INV';
1226: x_return_status := 'E';
1227: RAISE FND_API.G_EXC_ERROR;
1228: END IF;
1229:
1230: --Get the SCHEDULE DATES for lowest level task.
1231: IF NVL( l_lowest_level_task, 'N' ) = 'Y'
1236: CLOSE cur_pa_proj_sch;
1237: END IF;
1238: --Get the SCHEDULE DATES for lowest level task.
1239:
1240: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1241: THEN
1242: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1243: ,p_msg_name => l_error_message_code);
1244: x_msg_data := l_error_message_code;
1242: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1243: ,p_msg_name => l_error_message_code);
1244: x_msg_data := l_error_message_code;
1245: x_return_status := 'E';
1246: RAISE FND_API.G_EXC_ERROR;
1247: END IF;
1248:
1249: IF p_progress_mode <> 'BACKDATED'
1250: AND l_element_struc_type = 'WORKPLAN'
1274: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1275: ,p_msg_name => 'PA_TP_INV_TSK_STAT');
1276: x_msg_data := 'PA_TP_INV_TSK_STAT';
1277: x_return_status := 'E';
1278: RAISE FND_API.G_EXC_ERROR;
1279: END IF;
1280: END IF;
1281:
1282: IF l_element_struc_type = 'WORKPLAN'
1332: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1333: p_msg_name => 'PA_TP_CANT_NTR_EFF_SUMMRY');
1334: x_msg_data := 'PA_TP_CANT_NTR_EFF_SUMMRY';
1335: x_return_status := 'E';
1336: --RAISE FND_API.G_EXC_ERROR; --rasie error message.
1337: l_tp_pcc_est_disabl := 'Y';
1338: ELSIF ( l_assignment_exists = 'Y' ) -- Bug 3784904 : Changed from N to Y
1339: AND ( l_actual_effort > 0 OR l_est_remaining_effort > 0 )
1340: THEN
1342: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1343: p_msg_name => 'PA_TP_NO_EFF_WITH_ASSN');
1344: x_msg_data := 'PA_TP_NO_EFF_WITH_ASSN';
1345: x_return_status := 'E';
1346: --RAISE FND_API.G_EXC_ERROR; --rasie error message.
1347: l_tp_pcc_est_disabl := 'Y';
1348: ELSIF NVL( l_lowest_level_task, 'N' ) = 'N'
1349: AND l_structure_sharing_code = 'SHARE_FULL' --Bug 3586648
1350: AND ( l_actual_effort > 0 )
1353: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1354: p_msg_name => 'PA_TP_NO_ACT_EFF_4SH_STR');
1355: x_msg_data := 'PA_TP_NO_ACT_EFF_4SH_STR';
1356: x_return_status := 'E';
1357: --RAISE FND_API.G_EXC_ERROR; --rasie error message.
1358: l_tp_pcc_est_disabl := 'Y';
1359: END IF;
1360: END IF; -- IF p_calling_module <> 'SELF_SERVICE' --maansari4/4
1361: END IF; --l_est_remaining_eff_flag = 'N'
1361: END IF; --l_est_remaining_eff_flag = 'N'
1362: END IF; --l_element_struc_type
1363:
1364: IF x_return_status = 'E' THEN -- Bug 3784904
1365: RAISE FND_API.G_EXC_ERROR;
1366: END IF;
1367: --End maansari: fpm changes
1368: ----- End of validation
1369:
1380: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1381: p_msg_name => 'PA_TP_EST_REM_EFF_DISABL');
1382: x_msg_data := 'PA_TP_EST_REM_EFF_DISABL';
1383: x_return_status := 'E';
1384: --RAISE FND_API.G_EXC_ERROR;
1385: l_tp_pcc_est_disabl := 'Y';
1386: END IF;
1387: END IF;
1388:
1397: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1398: p_msg_name => 'PA_TP_PCC_DISABL');
1399: x_msg_data := 'PA_TP_PCC_DISABL';
1400: x_return_status := 'E';
1401: -- RAISE FND_API.G_EXC_ERROR;
1402: l_tp_pcc_est_disabl := 'Y';
1403: END IF;
1404: END IF;
1405:
1405:
1406: -- Raise in case of any of the above two errors
1407: IF l_tp_pcc_est_disabl = 'Y'
1408: THEN
1409: RAISE FND_API.G_EXC_ERROR;
1410: END IF;
1411:
1412: -- Bug 3606627 : AMG Changes, Getting planned values
1413: IF p_calling_module = 'AMG' THEN
1598: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1599: ,p_msg_name => 'PA_TP_WRONG_PRG_MODE1');
1600: x_msg_data := 'PA_TP_WRONG_PRG_MODE1';
1601: x_return_status := 'E';
1602: RAISE FND_API.G_EXC_ERROR;
1603: ELSIF p_as_of_date > l_last_progress_date -- progress exists before as of date
1604: THEN
1605: --You cannot create a backdated progress when there exists a progress
1606: --before AS_OF_DATE for this task.
1609: p_token1 => 'AS_OF_DATE',
1610: p_value1 => l_last_progress_date );
1611: x_msg_data := 'PA_TP_WRONG_PRG_MODE2';
1612: x_return_status := 'E';
1613: RAISE FND_API.G_EXC_ERROR;
1614: ELSIF p_as_of_date < l_last_progress_date -- backdated
1615: THEN
1616: IF l_progress_exists_on_aod = 'WORKING'
1617: THEN
1630: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1631: p_msg_name => 'PA_TP_WRONG_PRG_MODE5');
1632: x_msg_data := 'PA_TP_WRONG_PRG_MODE5';
1633: x_return_status := 'E';
1634: RAISE FND_API.G_EXC_ERROR;
1635: ELSIF l_progress_exists_on_aod = 'PUBLISHED' and p_record_version_number is not null THEN
1636: l_db_action := 'CREATE';
1637: l_process := 'CORRECT';
1638: END IF;
1648: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1649: ,p_msg_name => 'PA_TP_ACTUALS_NOT_ALLWD');
1650: x_msg_data := 'PA_TP_ACTUALS_NOT_ALLWD';
1651: x_return_status := 'E';
1652: RAISE FND_API.G_EXC_ERROR;
1653: END IF;
1654: ELSIF p_as_of_date = l_last_progress_date -- Current
1655: THEN
1656: IF l_progress_exists_on_aod = 'WORKING'
1663: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1664: p_msg_name => 'PA_TP_WRONG_PRG_MODE5');
1665: x_msg_data := 'PA_TP_WRONG_PRG_MODE5';
1666: x_return_status := 'E';
1667: RAISE FND_API.G_EXC_ERROR;
1668: ELSIF l_progress_exists_on_aod = 'PUBLISHED' OR l_progress_exists_on_aod = 'N'
1669: THEN
1670: --Create a new working progress record. ( publish and roll it only when p_action = 'PUBLISH' )
1671: --1. if l_progress_exists_on_aod = 'N' or 'Y' then we create new record in ppc
1688: p_token1 => 'AS_OF_DATE',
1689: p_value1 => p_as_of_date );
1690: x_msg_data := 'PA_TP_WRONG_PRG_MODE3';
1691: x_return_status := 'E';
1692: RAISE FND_API.G_EXC_ERROR;
1693: ELSE
1694: --Validate as of date
1695: -- Bug 3627315 : Check valid as of date should not be called from AMG or Task Progress Details page
1696: -- Beacuse from both the places we submit progress for all objects against one cycle date
1706: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1707: ,p_msg_name => 'PA_TP_INV_AOD2');
1708: x_msg_data := 'PA_TP_INV_AOD2';
1709: x_return_status := 'E';
1710: RAISE FND_API.G_EXC_ERROR;
1711: END IF;
1712:
1713: IF l_progress_exists_on_aod = 'WORKING'
1714: THEN
1857: WHEN OTHERS THEN
1858: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
1859: p_procedure_name => 'UPDATE_TASK_PROGRESS',
1860: p_error_text => SUBSTRB('PA_TASK_ASSIGNMENTS_PUB.DERIVE_TASK_ASSIGNMENTS:'||SQLERRM,1,120));
1861: RAISE fnd_api.g_exc_error;
1862: END;
1863:
1864: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1865: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1860: p_error_text => SUBSTRB('PA_TASK_ASSIGNMENTS_PUB.DERIVE_TASK_ASSIGNMENTS:'||SQLERRM,1,120));
1861: RAISE fnd_api.g_exc_error;
1862: END;
1863:
1864: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1865: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1866: p_msg_name => l_msg_data);
1867: x_msg_data := l_msg_data;
1868: x_return_status := 'E';
1866: p_msg_name => l_msg_data);
1867: x_msg_data := l_msg_data;
1868: x_return_status := 'E';
1869: x_msg_count := l_msg_count;
1870: RAISE FND_API.G_EXC_ERROR;
1871: END IF;
1872: END IF;
1873: END IF;
1874: -- END: Adding code to fix Bug # 3815741.
2058: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_PROGRESS', x_Msg => 'l_clex_actual_finish_date='||l_clex_actual_finish_date, x_Log_Level=> 3);
2059: END IF;
2060:
2061: IF x_return_status <> 'S' THEN
2062: raise FND_API.G_EXC_ERROR;
2063: END IF;
2064:
2065: IF nvl(l_estimated_start_date,FND_API.g_miss_date) <> nvl(l_clex_estimated_start_date,FND_API.g_miss_date)
2066: OR nvl(l_estimated_finish_date,FND_API.g_miss_date) <> nvl(l_clex_estimated_finish_date,FND_API.g_miss_date)
2061: IF x_return_status <> 'S' THEN
2062: raise FND_API.G_EXC_ERROR;
2063: END IF;
2064:
2065: IF nvl(l_estimated_start_date,FND_API.g_miss_date) <> nvl(l_clex_estimated_start_date,FND_API.g_miss_date)
2066: OR nvl(l_estimated_finish_date,FND_API.g_miss_date) <> nvl(l_clex_estimated_finish_date,FND_API.g_miss_date)
2067: OR nvl(l_actual_start_date,FND_API.g_miss_date) <> nvl(l_clex_actual_start_date,FND_API.g_miss_date)
2068: OR nvl(l_actual_finish_date,FND_API.g_miss_date) <> nvl(l_clex_actual_finish_date,FND_API.g_miss_date)
2069: THEN
2062: raise FND_API.G_EXC_ERROR;
2063: END IF;
2064:
2065: IF nvl(l_estimated_start_date,FND_API.g_miss_date) <> nvl(l_clex_estimated_start_date,FND_API.g_miss_date)
2066: OR nvl(l_estimated_finish_date,FND_API.g_miss_date) <> nvl(l_clex_estimated_finish_date,FND_API.g_miss_date)
2067: OR nvl(l_actual_start_date,FND_API.g_miss_date) <> nvl(l_clex_actual_start_date,FND_API.g_miss_date)
2068: OR nvl(l_actual_finish_date,FND_API.g_miss_date) <> nvl(l_clex_actual_finish_date,FND_API.g_miss_date)
2069: THEN
2070: l_date_override_flag := 'Y';
2063: END IF;
2064:
2065: IF nvl(l_estimated_start_date,FND_API.g_miss_date) <> nvl(l_clex_estimated_start_date,FND_API.g_miss_date)
2066: OR nvl(l_estimated_finish_date,FND_API.g_miss_date) <> nvl(l_clex_estimated_finish_date,FND_API.g_miss_date)
2067: OR nvl(l_actual_start_date,FND_API.g_miss_date) <> nvl(l_clex_actual_start_date,FND_API.g_miss_date)
2068: OR nvl(l_actual_finish_date,FND_API.g_miss_date) <> nvl(l_clex_actual_finish_date,FND_API.g_miss_date)
2069: THEN
2070: l_date_override_flag := 'Y';
2071: l_estimated_start_date := l_clex_estimated_start_date;
2064:
2065: IF nvl(l_estimated_start_date,FND_API.g_miss_date) <> nvl(l_clex_estimated_start_date,FND_API.g_miss_date)
2066: OR nvl(l_estimated_finish_date,FND_API.g_miss_date) <> nvl(l_clex_estimated_finish_date,FND_API.g_miss_date)
2067: OR nvl(l_actual_start_date,FND_API.g_miss_date) <> nvl(l_clex_actual_start_date,FND_API.g_miss_date)
2068: OR nvl(l_actual_finish_date,FND_API.g_miss_date) <> nvl(l_clex_actual_finish_date,FND_API.g_miss_date)
2069: THEN
2070: l_date_override_flag := 'Y';
2071: l_estimated_start_date := l_clex_estimated_start_date;
2072: l_estimated_finish_date := l_clex_estimated_finish_date;
2078: l_date_override_flag := 'Y';
2079: END IF;
2080:
2081: IF l_date_override_flag = 'N' AND
2082: (nvl(l_estimated_start_date,FND_API.g_miss_date) <> nvl(l_db_estimated_start_date,FND_API.g_miss_date)
2083: OR nvl(l_estimated_finish_date,FND_API.g_miss_date) <> nvl(l_db_estimated_finish_date,FND_API.g_miss_date)
2084: OR nvl(l_actual_start_date,FND_API.g_miss_date) <> nvl(l_db_actual_start_date,FND_API.g_miss_date)
2085: OR nvl(l_actual_finish_date,FND_API.g_miss_date) <> nvl(l_db_actual_finish_date,FND_API.g_miss_date))
2086: THEN
2079: END IF;
2080:
2081: IF l_date_override_flag = 'N' AND
2082: (nvl(l_estimated_start_date,FND_API.g_miss_date) <> nvl(l_db_estimated_start_date,FND_API.g_miss_date)
2083: OR nvl(l_estimated_finish_date,FND_API.g_miss_date) <> nvl(l_db_estimated_finish_date,FND_API.g_miss_date)
2084: OR nvl(l_actual_start_date,FND_API.g_miss_date) <> nvl(l_db_actual_start_date,FND_API.g_miss_date)
2085: OR nvl(l_actual_finish_date,FND_API.g_miss_date) <> nvl(l_db_actual_finish_date,FND_API.g_miss_date))
2086: THEN
2087: l_date_override_flag := 'Y';
2080:
2081: IF l_date_override_flag = 'N' AND
2082: (nvl(l_estimated_start_date,FND_API.g_miss_date) <> nvl(l_db_estimated_start_date,FND_API.g_miss_date)
2083: OR nvl(l_estimated_finish_date,FND_API.g_miss_date) <> nvl(l_db_estimated_finish_date,FND_API.g_miss_date)
2084: OR nvl(l_actual_start_date,FND_API.g_miss_date) <> nvl(l_db_actual_start_date,FND_API.g_miss_date)
2085: OR nvl(l_actual_finish_date,FND_API.g_miss_date) <> nvl(l_db_actual_finish_date,FND_API.g_miss_date))
2086: THEN
2087: l_date_override_flag := 'Y';
2088: END IF;
2081: IF l_date_override_flag = 'N' AND
2082: (nvl(l_estimated_start_date,FND_API.g_miss_date) <> nvl(l_db_estimated_start_date,FND_API.g_miss_date)
2083: OR nvl(l_estimated_finish_date,FND_API.g_miss_date) <> nvl(l_db_estimated_finish_date,FND_API.g_miss_date)
2084: OR nvl(l_actual_start_date,FND_API.g_miss_date) <> nvl(l_db_actual_start_date,FND_API.g_miss_date)
2085: OR nvl(l_actual_finish_date,FND_API.g_miss_date) <> nvl(l_db_actual_finish_date,FND_API.g_miss_date))
2086: THEN
2087: l_date_override_flag := 'Y';
2088: END IF;
2089:
2097:
2098: -- 4533112 End
2099:
2100: IF (l_estimated_finish_date is not null and l_estimated_finish_date < nvl(l_estimated_start_date,l_estimated_finish_date)) THEN --removed +1 bug 5186825
2101: x_return_status := FND_API.G_RET_STS_ERROR;
2102: pa_utils.add_message(p_app_short_name => 'PA',
2103: p_msg_name => 'PA_EST_DATES_INV');
2104: raise fnd_api.g_exc_error;
2105: END IF;
2100: IF (l_estimated_finish_date is not null and l_estimated_finish_date < nvl(l_estimated_start_date,l_estimated_finish_date)) THEN --removed +1 bug 5186825
2101: x_return_status := FND_API.G_RET_STS_ERROR;
2102: pa_utils.add_message(p_app_short_name => 'PA',
2103: p_msg_name => 'PA_EST_DATES_INV');
2104: raise fnd_api.g_exc_error;
2105: END IF;
2106: -- Bug 3922325 : Actual Start date and Finish date should efualt even if percent completete is not enabled
2107: -- It should be based on Task Status rather than % Complete
2108: --bug# 3823433 Satish
2177: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
2178: ,p_msg_name => 'PA_TP_ACT_ST_DATE_NOT_NULL');
2179: x_msg_data := 'PA_TP_ACT_ST_DATE_NOT_NULL';
2180: x_return_status := 'E';
2181: RAISE FND_API.G_EXC_ERROR;
2182: END IF;
2183:
2184: IF (nvl(l_percent_complete, l_BASE_PERCENT_COMPLETE) = 100 and l_actual_finish_date is null ) THEN
2185: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
2185: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
2186: ,p_msg_name => 'PA_TP_ACT_END_DT_NOT_NULL');
2187: x_msg_data := 'PA_TP_ACT_END_DT_NOT_NULL';
2188: x_return_status := 'E';
2189: RAISE FND_API.G_EXC_ERROR;
2190: END IF;
2191: END IF;
2192: */
2193: IF ( l_task_status2 IN ('COMPLETED','IN_PROGRESS') and l_actual_start_date is null ) THEN
2195: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
2196: ,p_msg_name => 'PA_TP_ACT_ST_DATE_NOT_NULL');
2197: x_msg_data := 'PA_TP_ACT_ST_DATE_NOT_NULL';
2198: x_return_status := 'E';
2199: RAISE FND_API.G_EXC_ERROR;
2200: END IF;
2201:
2202: IF (l_task_status2 = 'COMPLETED' and l_actual_finish_date is null ) THEN
2203: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
2203: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
2204: ,p_msg_name => 'PA_TP_ACT_END_DT_NOT_NULL');
2205: x_msg_data := 'PA_TP_ACT_END_DT_NOT_NULL';
2206: x_return_status := 'E';
2207: RAISE FND_API.G_EXC_ERROR;
2208: END IF;
2209:
2210: END IF; -- IF NVL( l_lowest_level_task, 'N' ) = 'Y'
2211: END IF; -- IF p_progress_mode <> 'BACKDATED'
2253: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
2254: ,p_msg_name => 'PA_TP_STAT_DTES_PC_COMB' );
2255: x_msg_data := 'PA_TP_STAT_DTES_PC_COMB';
2256: x_return_status := 'E';
2257: RAISE FND_API.G_EXC_ERROR;
2258: END IF;
2259: END IF;
2260:
2261: -- Bug 4632744
2318: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
2319: ,p_msg_name => 'PA_TP_STAT_DTES_PC_COMB' );
2320: x_msg_data := 'PA_TP_STAT_DTES_PC_COMB';
2321: x_return_status := 'E';
2322: RAISE FND_API.G_EXC_ERROR;
2323: END IF;
2324: END IF;
2325:
2326: -- Bug 3951531 End
2325:
2326: -- Bug 3951531 End
2327:
2328:
2329: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2330: x_return_status := 'E';
2331: x_msg_data := l_msg_data;
2332: x_msg_count := l_msg_count;
2333: RAISE FND_API.G_EXC_ERROR;
2329: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2330: x_return_status := 'E';
2331: x_msg_data := l_msg_data;
2332: x_msg_count := l_msg_count;
2333: RAISE FND_API.G_EXC_ERROR;
2334: END IF;
2335:
2336: IF ( p_action = 'PUBLISH' or NVL( l_rollup_required, 'N') = 'Y' )
2337: THEN
2939: ,x_subprj_eqpmt_etc_rawcost_pc => l_rollup_rec2.subprj_eqpmt_etc_rawcost_pc
2940: );
2941: -- FPM Dev CR 6
2942: IF Fnd_Msg_Pub.count_msg > 0 THEN
2943: RAISE FND_API.G_EXC_ERROR;
2944: END IF;
2945:
2946: -----update percent_complete_id in pa_progress_rollup
2947: UPDATE pa_progress_rollup
3054: ,p_structure_type => p_structure_type
3055: );
3056: -- FPM Dev CR 6
3057: IF Fnd_Msg_Pub.count_msg > 0 THEN
3058: RAISE FND_API.G_EXC_ERROR;
3059: END IF;
3060:
3061:
3062: --update progress rollup
3271: END IF;
3272:
3273: -- FPM Dev CR 6
3274: IF Fnd_Msg_Pub.count_msg > 0 THEN
3275: RAISE FND_API.G_EXC_ERROR;
3276: END IF;
3277: ELSE ---2
3278:
3279: -- BEGIN: Fix for Bug # 3926827.
3604:
3605: IF (l_return_status <> 'S') THEN
3606: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3607: p_msg_name => l_error_message_code);
3608: raise FND_API.G_EXC_ERROR;
3609: END IF;
3610: END IF;
3611: */
3612:
3650: ,p_task_status => l_task_status
3651: );
3652: END IF;
3653:
3654: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3655: THEN
3656: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3657: p_msg_name => l_msg_data
3658: );
3657: p_msg_name => l_msg_data
3658: );
3659: x_msg_data := l_msg_data;
3660: x_return_status := 'E';
3661: RAISE FND_API.G_EXC_ERROR;
3662: END IF;
3663:
3664: /* Bug 2751159 Moved the update task_status code out of IF condition for workplan
3665: It means updation of task status shd happen for financial also */
3689: ,x_return_status => l_return_status
3690: ,x_msg_count => l_msg_count
3691: ,x_msg_data => l_msg_data);
3692:
3693: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3694: raise FND_API.G_EXC_ERROR;
3695: END IF;
3696: END IF;
3697: */
3690: ,x_msg_count => l_msg_count
3691: ,x_msg_data => l_msg_data);
3692:
3693: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3694: raise FND_API.G_EXC_ERROR;
3695: END IF;
3696: END IF;
3697: */
3698:
3715: ,x_return_status => l_return_status
3716: ,x_msg_count => l_msg_count
3717: ,x_msg_data => l_msg_data );
3718:
3719: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3720: THEN
3721: -- Bug 3248988 : Update_schedule_version adds the message, here message shd not be added
3722: -- PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3723: -- p_msg_name => l_msg_data
3723: -- p_msg_name => l_msg_data
3724: -- );
3725: -- x_msg_data := l_msg_data;
3726: x_return_status := 'E';
3727: RAISE FND_API.G_EXC_ERROR;
3728: END IF;
3729: /* Bug2756007 End */
3730: END IF;
3731:
3745: ,p_element_version_id => p_object_version_id
3746: ,x_return_status => l_return_status
3747: ,x_msg_count => l_msg_count
3748: ,x_msg_data => l_msg_data );
3749: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3750: THEN
3751: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3752: p_msg_name => l_msg_data
3753: );
3752: p_msg_name => l_msg_data
3753: );
3754: x_msg_data := l_msg_data;
3755: x_return_status := 'E';
3756: RAISE FND_API.G_EXC_ERROR;
3757: END IF;
3758:
3759: BEGIN
3760: Select ppev1.proj_element_id
3774: (PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(p_project_id) = 'Y'))
3775: THEN
3776: --copy to transaction dates
3777: PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES(
3778: p_validate_only => FND_API.G_FALSE
3779: ,p_project_id => p_project_id
3780: ,x_return_status => x_return_status
3781: ,x_msg_count => x_msg_count
3782: ,x_msg_data => x_msg_data);
3791: IF g1_debug_mode = 'Y' THEN
3792: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_PROGRESS', x_Msg => 'Update Task Progress Complete ', x_Log_Level=> 3);
3793: END IF;
3794:
3795: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3796: THEN
3797: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3798: p_msg_name => l_msg_data
3799: );
3799: );
3800:
3801: x_msg_data := l_msg_data;
3802: x_return_status := 'E';
3803: RAISE FND_API.G_EXC_ERROR;
3804: END IF;
3805:
3806: x_resource_list_member_id := l_resource_list_member_id;
3807:
3805:
3806: x_resource_list_member_id := l_resource_list_member_id;
3807:
3808: EXCEPTION
3809: WHEN FND_API.G_EXC_ERROR THEN
3810: IF p_commit = FND_API.G_TRUE
3811: THEN
3812: rollback to UPDATE_TASK_PROGRESS;
3813: END IF;
3806: x_resource_list_member_id := l_resource_list_member_id;
3807:
3808: EXCEPTION
3809: WHEN FND_API.G_EXC_ERROR THEN
3810: IF p_commit = FND_API.G_TRUE
3811: THEN
3812: rollback to UPDATE_TASK_PROGRESS;
3813: END IF;
3814: x_return_status := FND_API.G_RET_STS_ERROR;
3810: IF p_commit = FND_API.G_TRUE
3811: THEN
3812: rollback to UPDATE_TASK_PROGRESS;
3813: END IF;
3814: x_return_status := FND_API.G_RET_STS_ERROR;
3815: x_msg_count := fnd_msg_pub.count_msg; -- FPM Dev CR 3
3816: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3817: IF p_commit = FND_API.G_TRUE
3818: THEN
3812: rollback to UPDATE_TASK_PROGRESS;
3813: END IF;
3814: x_return_status := FND_API.G_RET_STS_ERROR;
3815: x_msg_count := fnd_msg_pub.count_msg; -- FPM Dev CR 3
3816: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3817: IF p_commit = FND_API.G_TRUE
3818: THEN
3819: rollback to UPDATE_TASK_PROGRESS;
3820: END IF;
3813: END IF;
3814: x_return_status := FND_API.G_RET_STS_ERROR;
3815: x_msg_count := fnd_msg_pub.count_msg; -- FPM Dev CR 3
3816: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3817: IF p_commit = FND_API.G_TRUE
3818: THEN
3819: rollback to UPDATE_TASK_PROGRESS;
3820: END IF;
3821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3817: IF p_commit = FND_API.G_TRUE
3818: THEN
3819: rollback to UPDATE_TASK_PROGRESS;
3820: END IF;
3821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3822: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
3823: p_procedure_name => 'UPDATE_TASK_PROGRESS',
3824: p_error_text => SUBSTRB(SQLERRM,1,120));
3825: x_msg_count := fnd_msg_pub.count_msg; -- FPM Dev CR 3
3823: p_procedure_name => 'UPDATE_TASK_PROGRESS',
3824: p_error_text => SUBSTRB(SQLERRM,1,120));
3825: x_msg_count := fnd_msg_pub.count_msg; -- FPM Dev CR 3
3826: WHEN OTHERS THEN
3827: IF p_commit = FND_API.G_TRUE THEN
3828: rollback to UPDATE_TASK_PROGRESS;
3829: END IF;
3830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3831: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
3826: WHEN OTHERS THEN
3827: IF p_commit = FND_API.G_TRUE THEN
3828: rollback to UPDATE_TASK_PROGRESS;
3829: END IF;
3830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3831: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
3832: p_procedure_name => 'UPDATE_TASK_PROGRESS',
3833: p_error_text => SUBSTRB(SQLERRM,1,120));
3834: x_msg_count := fnd_msg_pub.count_msg; -- FPM Dev CR 3
3865: -- End of comments
3866:
3867: PROCEDURE ROLLUP_PROGRESS_PVT(
3868: p_api_version IN NUMBER :=1.0
3869: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
3870: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
3871: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
3872: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
3873: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
3866:
3867: PROCEDURE ROLLUP_PROGRESS_PVT(
3868: p_api_version IN NUMBER :=1.0
3869: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
3870: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
3871: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
3872: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
3873: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
3874: ,p_debug_mode IN VARCHAR2 :='N'
3867: PROCEDURE ROLLUP_PROGRESS_PVT(
3868: p_api_version IN NUMBER :=1.0
3869: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
3870: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
3871: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
3872: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
3873: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
3874: ,p_debug_mode IN VARCHAR2 :='N'
3875: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3868: p_api_version IN NUMBER :=1.0
3869: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
3870: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
3871: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
3872: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
3873: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
3874: ,p_debug_mode IN VARCHAR2 :='N'
3875: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
3876: ,p_progress_mode IN VARCHAR2 := 'FUTURE'
3959: IF p_structure_version_id IS NULL OR (p_as_of_date IS NULL OR p_as_of_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE ) THEN
3960: return;
3961: END IF;
3962:
3963: IF (p_commit = FND_API.G_TRUE) THEN
3964: savepoint ROLLUP_PROGRESS_PVT;
3965: END IF;
3966:
3967: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3963: IF (p_commit = FND_API.G_TRUE) THEN
3964: savepoint ROLLUP_PROGRESS_PVT;
3965: END IF;
3966:
3967: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3969: END IF;
3970:
3971: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3964: savepoint ROLLUP_PROGRESS_PVT;
3965: END IF;
3966:
3967: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3969: END IF;
3970:
3971: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3972: FND_MSG_PUB.initialize;
3967: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
3968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3969: END IF;
3970:
3971: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3972: FND_MSG_PUB.initialize;
3973: END IF;
3974:
3975: -- Bug # 3879910. Call corresponding API in package: PA_PROGRESS_PVT.
4002: ,x_return_status => l_return_status
4003: ,x_msg_count => l_msg_count
4004: ,x_msg_data => l_msg_data);
4005:
4006: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4007: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4008: p_msg_name => l_msg_data
4009: );
4010: x_msg_data := l_msg_data;
4008: p_msg_name => l_msg_data
4009: );
4010: x_msg_data := l_msg_data;
4011: x_return_status := 'E';
4012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4013: END IF;
4014:
4015: x_return_status := FND_API.G_RET_STS_SUCCESS;
4016:
4011: x_return_status := 'E';
4012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4013: END IF;
4014:
4015: x_return_status := FND_API.G_RET_STS_SUCCESS;
4016:
4017: IF (p_commit = FND_API.G_TRUE) THEN
4018: COMMIT;
4019: END IF;
4013: END IF;
4014:
4015: x_return_status := FND_API.G_RET_STS_SUCCESS;
4016:
4017: IF (p_commit = FND_API.G_TRUE) THEN
4018: COMMIT;
4019: END IF;
4020:
4021:
4023: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.ROLLUP_PROGRESS_PVT', x_Msg => 'PA_PROGRESS_PUB.ROLLUP_PROGRESS_PVT END', x_Log_Level=> 3);
4024: END IF;
4025:
4026: EXCEPTION
4027: WHEN FND_API.G_EXC_ERROR THEN
4028: IF p_commit = FND_API.G_TRUE THEN
4029: rollback to ROLLUP_PROGRESS_PVT;
4030: END IF;
4031: x_return_status := FND_API.G_RET_STS_ERROR;
4024: END IF;
4025:
4026: EXCEPTION
4027: WHEN FND_API.G_EXC_ERROR THEN
4028: IF p_commit = FND_API.G_TRUE THEN
4029: rollback to ROLLUP_PROGRESS_PVT;
4030: END IF;
4031: x_return_status := FND_API.G_RET_STS_ERROR;
4032: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4027: WHEN FND_API.G_EXC_ERROR THEN
4028: IF p_commit = FND_API.G_TRUE THEN
4029: rollback to ROLLUP_PROGRESS_PVT;
4030: END IF;
4031: x_return_status := FND_API.G_RET_STS_ERROR;
4032: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4033: IF p_commit = FND_API.G_TRUE THEN
4034: rollback to ROLLUP_PROGRESS_PVT;
4035: END IF;
4028: IF p_commit = FND_API.G_TRUE THEN
4029: rollback to ROLLUP_PROGRESS_PVT;
4030: END IF;
4031: x_return_status := FND_API.G_RET_STS_ERROR;
4032: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4033: IF p_commit = FND_API.G_TRUE THEN
4034: rollback to ROLLUP_PROGRESS_PVT;
4035: END IF;
4036: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4029: rollback to ROLLUP_PROGRESS_PVT;
4030: END IF;
4031: x_return_status := FND_API.G_RET_STS_ERROR;
4032: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4033: IF p_commit = FND_API.G_TRUE THEN
4034: rollback to ROLLUP_PROGRESS_PVT;
4035: END IF;
4036: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4037: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4032: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4033: IF p_commit = FND_API.G_TRUE THEN
4034: rollback to ROLLUP_PROGRESS_PVT;
4035: END IF;
4036: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4037: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4038: p_procedure_name => 'ROLLUP_PROGRESS_PVT',
4039: p_error_text => SUBSTRB(SQLERRM,1,120));
4040: WHEN OTHERS THEN
4037: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4038: p_procedure_name => 'ROLLUP_PROGRESS_PVT',
4039: p_error_text => SUBSTRB(SQLERRM,1,120));
4040: WHEN OTHERS THEN
4041: IF p_commit = FND_API.G_TRUE THEN
4042: rollback to ROLLUP_PROGRESS_PVT;
4043: END IF;
4044: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4045: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4040: WHEN OTHERS THEN
4041: IF p_commit = FND_API.G_TRUE THEN
4042: rollback to ROLLUP_PROGRESS_PVT;
4043: END IF;
4044: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4045: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4046: p_procedure_name => 'ROLLUP_PROGRESS_PVT',
4047: p_error_text => SUBSTRB(SQLERRM,1,120));
4048: raise;
4073: -- End of comments
4074:
4075: PROCEDURE UPDATE_ROLLUP_PROGRESS_PVT(
4076: p_api_version IN NUMBER :=1.0
4077: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4078: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4079: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4080: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4081: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4074:
4075: PROCEDURE UPDATE_ROLLUP_PROGRESS_PVT(
4076: p_api_version IN NUMBER :=1.0
4077: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4078: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4079: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4080: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4081: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4082: ,p_debug_mode IN VARCHAR2 :='N'
4075: PROCEDURE UPDATE_ROLLUP_PROGRESS_PVT(
4076: p_api_version IN NUMBER :=1.0
4077: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4078: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4079: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4080: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4081: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4082: ,p_debug_mode IN VARCHAR2 :='N'
4083: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4076: p_api_version IN NUMBER :=1.0
4077: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4078: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4079: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4080: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4081: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4082: ,p_debug_mode IN VARCHAR2 :='N'
4083: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4084: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4142: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_ROLLUP_PROGRESS_PVT', x_Msg => 'p_published_structure='||p_published_structure, x_Log_Level=> 3);
4143: END IF;
4144:
4145:
4146: IF (p_commit = FND_API.G_TRUE) THEN
4147: savepoint UPDATE_ROLLUP_PROGRESS_PVT;
4148: END IF;
4149:
4150: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
4146: IF (p_commit = FND_API.G_TRUE) THEN
4147: savepoint UPDATE_ROLLUP_PROGRESS_PVT;
4148: END IF;
4149:
4150: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
4151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4152: END IF;
4153:
4154: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4147: savepoint UPDATE_ROLLUP_PROGRESS_PVT;
4148: END IF;
4149:
4150: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
4151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4152: END IF;
4153:
4154: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4155: FND_MSG_PUB.initialize;
4150: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
4151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4152: END IF;
4153:
4154: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4155: FND_MSG_PUB.initialize;
4156: END IF;
4157:
4158: -- Bug # 3879910. Call corresponding API in package: PA_PROGRESS_PVT.
4184: ,x_return_status => l_return_status
4185: ,x_msg_count => l_msg_count
4186: ,x_msg_data => l_msg_data);
4187:
4188: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4189: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4190: p_msg_name => l_msg_data);
4191: x_msg_data := l_msg_data;
4192: x_return_status := 'E';
4190: p_msg_name => l_msg_data);
4191: x_msg_data := l_msg_data;
4192: x_return_status := 'E';
4193: x_msg_count := l_msg_count;
4194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4195: END IF;
4196:
4197:
4198: x_return_status := FND_API.G_RET_STS_SUCCESS;
4194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4195: END IF;
4196:
4197:
4198: x_return_status := FND_API.G_RET_STS_SUCCESS;
4199:
4200: IF (p_commit = FND_API.G_TRUE) THEN
4201: COMMIT;
4202: END IF;
4196:
4197:
4198: x_return_status := FND_API.G_RET_STS_SUCCESS;
4199:
4200: IF (p_commit = FND_API.G_TRUE) THEN
4201: COMMIT;
4202: END IF;
4203:
4204: IF g1_debug_mode = 'Y' THEN
4205: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_ROLLUP_PROGRESS_PVT', x_Msg => 'PA_PROGRESS_PUB.UPDATE_ROLLUP_PROGRESS_PVT End', x_Log_Level=> 3);
4206: END IF;
4207:
4208: EXCEPTION
4209: WHEN FND_API.G_EXC_ERROR THEN
4210: IF g1_debug_mode = 'Y' THEN
4211: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_ROLLUP_PROGRESS_PVT', x_Msg => 'FND_API.G_EXC_ERROR', x_Log_Level=> 3);
4212: END IF;
4213:
4207:
4208: EXCEPTION
4209: WHEN FND_API.G_EXC_ERROR THEN
4210: IF g1_debug_mode = 'Y' THEN
4211: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_ROLLUP_PROGRESS_PVT', x_Msg => 'FND_API.G_EXC_ERROR', x_Log_Level=> 3);
4212: END IF;
4213:
4214: IF p_commit = FND_API.G_TRUE THEN
4215: rollback to UPDATE_ROLLUP_PROGRESS_PVT;
4210: IF g1_debug_mode = 'Y' THEN
4211: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_ROLLUP_PROGRESS_PVT', x_Msg => 'FND_API.G_EXC_ERROR', x_Log_Level=> 3);
4212: END IF;
4213:
4214: IF p_commit = FND_API.G_TRUE THEN
4215: rollback to UPDATE_ROLLUP_PROGRESS_PVT;
4216: END IF;
4217: x_return_status := FND_API.G_RET_STS_ERROR;
4218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4213:
4214: IF p_commit = FND_API.G_TRUE THEN
4215: rollback to UPDATE_ROLLUP_PROGRESS_PVT;
4216: END IF;
4217: x_return_status := FND_API.G_RET_STS_ERROR;
4218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4219:
4220: IF g1_debug_mode = 'Y' THEN
4221: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_ROLLUP_PROGRESS_PVT', x_Msg => 'FND_API.G_EXC_UNEXPECTED_ERROR', x_Log_Level=> 3);
4214: IF p_commit = FND_API.G_TRUE THEN
4215: rollback to UPDATE_ROLLUP_PROGRESS_PVT;
4216: END IF;
4217: x_return_status := FND_API.G_RET_STS_ERROR;
4218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4219:
4220: IF g1_debug_mode = 'Y' THEN
4221: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_ROLLUP_PROGRESS_PVT', x_Msg => 'FND_API.G_EXC_UNEXPECTED_ERROR', x_Log_Level=> 3);
4222: END IF;
4217: x_return_status := FND_API.G_RET_STS_ERROR;
4218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4219:
4220: IF g1_debug_mode = 'Y' THEN
4221: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_ROLLUP_PROGRESS_PVT', x_Msg => 'FND_API.G_EXC_UNEXPECTED_ERROR', x_Log_Level=> 3);
4222: END IF;
4223:
4224: IF p_commit = FND_API.G_TRUE THEN
4225: rollback to UPDATE_ROLLUP_PROGRESS_PVT;
4220: IF g1_debug_mode = 'Y' THEN
4221: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_ROLLUP_PROGRESS_PVT', x_Msg => 'FND_API.G_EXC_UNEXPECTED_ERROR', x_Log_Level=> 3);
4222: END IF;
4223:
4224: IF p_commit = FND_API.G_TRUE THEN
4225: rollback to UPDATE_ROLLUP_PROGRESS_PVT;
4226: END IF;
4227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4228: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4223:
4224: IF p_commit = FND_API.G_TRUE THEN
4225: rollback to UPDATE_ROLLUP_PROGRESS_PVT;
4226: END IF;
4227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4228: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4229: p_procedure_name => 'UPDATE_ROLLUP_PROGRESS_PVT',
4230: p_error_text => SUBSTRB(SQLERRM,1,120));
4231: WHEN OTHERS THEN
4232: IF g1_debug_mode = 'Y' THEN
4233: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_ROLLUP_PROGRESS_PVT', x_Msg => 'OTHERS = '||sqlerrm, x_Log_Level=> 3);
4234: END IF;
4235:
4236: IF p_commit = FND_API.G_TRUE THEN
4237: rollback to UPDATE_ROLLUP_PROGRESS_PVT;
4238: END IF;
4239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4240: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4235:
4236: IF p_commit = FND_API.G_TRUE THEN
4237: rollback to UPDATE_ROLLUP_PROGRESS_PVT;
4238: END IF;
4239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4240: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4241: p_procedure_name => 'UPDATE_ROLLUP_PROGRESS_PVT',
4242: p_error_text => SUBSTRB(SQLERRM,1,120));
4243: raise;
4245:
4246:
4247: PROCEDURE CREATE_PROJ_PROG_ATTR(
4248: p_api_version IN NUMBER :=1.0
4249: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4250: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4251: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4252: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4253: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4246:
4247: PROCEDURE CREATE_PROJ_PROG_ATTR(
4248: p_api_version IN NUMBER :=1.0
4249: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4250: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4251: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4252: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4253: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4254: ,p_debug_mode IN VARCHAR2 :='N'
4247: PROCEDURE CREATE_PROJ_PROG_ATTR(
4248: p_api_version IN NUMBER :=1.0
4249: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4250: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4251: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4252: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4253: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4254: ,p_debug_mode IN VARCHAR2 :='N'
4255: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4248: p_api_version IN NUMBER :=1.0
4249: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4250: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4251: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4252: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4253: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4254: ,p_debug_mode IN VARCHAR2 :='N'
4255: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4256: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4303: pa_debug.debug('PA_PROGRESS_PUB.CREATE_PROJ_PROG_ATTR');
4304: END IF;
4305: END IF;
4306:
4307: IF (p_commit = FND_API.G_TRUE) THEN
4308: savepoint CREATE_PROJ_PROG_ATTR;
4309: END IF;
4310:
4311: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
4307: IF (p_commit = FND_API.G_TRUE) THEN
4308: savepoint CREATE_PROJ_PROG_ATTR;
4309: END IF;
4310:
4311: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
4312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4313: END IF;
4314:
4315: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4308: savepoint CREATE_PROJ_PROG_ATTR;
4309: END IF;
4310:
4311: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
4312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4313: END IF;
4314:
4315: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4316: FND_MSG_PUB.initialize;
4311: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
4312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4313: END IF;
4314:
4315: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4316: FND_MSG_PUB.initialize;
4317: END IF;
4318:
4319: IF P_PROGRESS_CYCLE_ID = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4380: ,X_ALLW_PHY_PRCNT_CMP_OVERRIDES => P_ALLW_PHY_PRCNT_CMP_OVERRIDES
4381: ,X_STRUCTURE_TYPE => P_STRUCTURE_TYPE
4382: );
4383:
4384: x_return_status := FND_API.G_RET_STS_SUCCESS;
4385:
4386: IF (p_commit = FND_API.G_TRUE) THEN
4387: COMMIT;
4388: END IF;
4382: );
4383:
4384: x_return_status := FND_API.G_RET_STS_SUCCESS;
4385:
4386: IF (p_commit = FND_API.G_TRUE) THEN
4387: COMMIT;
4388: END IF;
4389:
4390: IF (p_debug_mode = 'Y') THEN
4393: END IF;
4394: END IF;
4395:
4396: EXCEPTION
4397: when FND_API.G_EXC_ERROR then
4398: if p_commit = FND_API.G_TRUE then
4399: rollback to CREATE_PROJ_PROG_ATTR;
4400: end if;
4401: x_return_status := FND_API.G_RET_STS_ERROR;
4394: END IF;
4395:
4396: EXCEPTION
4397: when FND_API.G_EXC_ERROR then
4398: if p_commit = FND_API.G_TRUE then
4399: rollback to CREATE_PROJ_PROG_ATTR;
4400: end if;
4401: x_return_status := FND_API.G_RET_STS_ERROR;
4402: when FND_API.G_EXC_UNEXPECTED_ERROR then
4397: when FND_API.G_EXC_ERROR then
4398: if p_commit = FND_API.G_TRUE then
4399: rollback to CREATE_PROJ_PROG_ATTR;
4400: end if;
4401: x_return_status := FND_API.G_RET_STS_ERROR;
4402: when FND_API.G_EXC_UNEXPECTED_ERROR then
4403: if p_commit = FND_API.G_TRUE then
4404: rollback to CREATE_PROJ_PROG_ATTR;
4405: end if;
4398: if p_commit = FND_API.G_TRUE then
4399: rollback to CREATE_PROJ_PROG_ATTR;
4400: end if;
4401: x_return_status := FND_API.G_RET_STS_ERROR;
4402: when FND_API.G_EXC_UNEXPECTED_ERROR then
4403: if p_commit = FND_API.G_TRUE then
4404: rollback to CREATE_PROJ_PROG_ATTR;
4405: end if;
4406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4399: rollback to CREATE_PROJ_PROG_ATTR;
4400: end if;
4401: x_return_status := FND_API.G_RET_STS_ERROR;
4402: when FND_API.G_EXC_UNEXPECTED_ERROR then
4403: if p_commit = FND_API.G_TRUE then
4404: rollback to CREATE_PROJ_PROG_ATTR;
4405: end if;
4406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4407: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4402: when FND_API.G_EXC_UNEXPECTED_ERROR then
4403: if p_commit = FND_API.G_TRUE then
4404: rollback to CREATE_PROJ_PROG_ATTR;
4405: end if;
4406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4407: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4408: p_procedure_name => 'CREATE_PROJ_PROG_ATTR',
4409: p_error_text => SUBSTRB(SQLERRM,1,120));
4410: when OTHERS then
4407: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4408: p_procedure_name => 'CREATE_PROJ_PROG_ATTR',
4409: p_error_text => SUBSTRB(SQLERRM,1,120));
4410: when OTHERS then
4411: if p_commit = FND_API.G_TRUE then
4412: rollback to CREATE_PROJ_PROG_ATTR;
4413: end if;
4414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4415: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4410: when OTHERS then
4411: if p_commit = FND_API.G_TRUE then
4412: rollback to CREATE_PROJ_PROG_ATTR;
4413: end if;
4414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4415: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4416: p_procedure_name => 'CREATE_PROJ_PROG_ATTR',
4417: p_error_text => SUBSTRB(SQLERRM,1,120));
4418: raise;
4420:
4421:
4422: PROCEDURE UPDATE_PROJ_PROG_ATTR(
4423: p_api_version IN NUMBER :=1.0
4424: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4425: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4426: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4427: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4428: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4421:
4422: PROCEDURE UPDATE_PROJ_PROG_ATTR(
4423: p_api_version IN NUMBER :=1.0
4424: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4425: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4426: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4427: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4428: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4429: ,p_debug_mode IN VARCHAR2 :='N'
4422: PROCEDURE UPDATE_PROJ_PROG_ATTR(
4423: p_api_version IN NUMBER :=1.0
4424: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4425: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4426: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4427: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4428: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4429: ,p_debug_mode IN VARCHAR2 :='N'
4430: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4423: p_api_version IN NUMBER :=1.0
4424: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4425: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4426: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4427: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4428: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4429: ,p_debug_mode IN VARCHAR2 :='N'
4430: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4431: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4535: pa_debug.debug('PA_PROGRESS_PUB.UPDATE_PROJ_PROG_ATTR');
4536: END IF;
4537: END IF;
4538:
4539: IF (p_commit = FND_API.G_TRUE) THEN
4540: savepoint UPDATE_PROJ_PROG_ATTR;
4541: END IF;
4542:
4543: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
4539: IF (p_commit = FND_API.G_TRUE) THEN
4540: savepoint UPDATE_PROJ_PROG_ATTR;
4541: END IF;
4542:
4543: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
4544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4545: END IF;
4546:
4547: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4540: savepoint UPDATE_PROJ_PROG_ATTR;
4541: END IF;
4542:
4543: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
4544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4545: END IF;
4546:
4547: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4548: FND_MSG_PUB.initialize;
4543: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
4544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4545: END IF;
4546:
4547: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4548: FND_MSG_PUB.initialize;
4549: END IF;
4550:
4551: /* IF P_PROGRESS_CYCLE_ID = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4600: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4601: p_msg_name => 'PA_TP_CANT_DIS_PC');
4602: x_msg_data := 'PA_TP_CANT_DIS_PC';
4603: x_return_status := 'E';
4604: RAISE FND_API.G_EXC_ERROR;
4605: END IF;
4606:
4607: IF p_WQ_ENABLE_FLAG = 'N' AND
4608: l_old_enable_wq_flag = 'Y'
4610: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4611: p_msg_name => 'PA_TP_CANT_DIS_WQ');
4612: x_msg_data := 'PA_TP_CANT_DIS_WQ';
4613: x_return_status := 'E';
4614: RAISE FND_API.G_EXC_ERROR;
4615: END IF;
4616:
4617: IF p_REMAIN_EFFORT_ENABLE_FLAG = 'N' AND
4618: l_old_REMAIN_EFF_ENABLE_FLAG = 'Y'
4620: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4621: p_msg_name => 'PA_TP_CANT_DIS_REM_EFF');
4622: x_msg_data := 'PA_TP_CANT_DIS_REM_EFF';
4623: x_return_status := 'E';
4624: RAISE FND_API.G_EXC_ERROR;
4625: END IF;
4626:
4627: END IF;
4628:
4678: );
4679: end if;
4680: -- Bug # 4576303.
4681: --------------dbms_output.put_line('ret stat = '||l_return_status);
4682: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4683: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4684: p_msg_name => l_msg_data
4685: );
4686: x_msg_data := l_msg_data;
4685: );
4686: x_msg_data := l_msg_data;
4687: x_return_status := 'E';
4688: CLOSE cur_get_wk_ver_struct_id;
4689: RAISE FND_API.G_EXC_ERROR;
4690: END IF;
4691: END LOOP;
4692: CLOSE cur_get_wk_ver_struct_id;
4693: ELSE
4713: );
4714: end if;
4715: -- Bug # 4576303.
4716: --------------dbms_output.put_line('ret stat = '||l_return_status);
4717: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4718: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4719: p_msg_name => l_msg_data
4720: );
4721: x_msg_data := l_msg_data;
4719: p_msg_name => l_msg_data
4720: );
4721: x_msg_data := l_msg_data;
4722: x_return_status := 'E';
4723: RAISE FND_API.G_EXC_ERROR;
4724: END IF;
4725: END IF;
4726: ELSE
4727: --3035902: process update flag changes; added check for
4745: x_msg_count => l_msg_count,
4746: x_msg_data => l_msg_data
4747: );
4748: --------------dbms_output.put_line('ret stat = '||l_return_status);
4749: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4750: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4751: p_msg_name => l_msg_data
4752: );
4753: x_msg_data := l_msg_data;
4752: );
4753: x_msg_data := l_msg_data;
4754: x_return_status := 'E';
4755: CLOSE cur_get_wk_ver_struct_id;
4756: RAISE FND_API.G_EXC_ERROR;
4757: END IF;
4758: END LOOP;
4759: CLOSE cur_get_wk_ver_struct_id;
4760: ELSE
4774: x_msg_count => l_msg_count,
4775: x_msg_data => l_msg_data
4776: );
4777: --------------dbms_output.put_line('ret stat = '||l_return_status);
4778: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4779: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4780: p_msg_name => l_msg_data
4781: );
4782: x_msg_data := l_msg_data;
4780: p_msg_name => l_msg_data
4781: );
4782: x_msg_data := l_msg_data;
4783: x_return_status := 'E';
4784: RAISE FND_API.G_EXC_ERROR;
4785: END IF;
4786: END IF ;
4787: END IF;
4788: END IF;
4810: ,X_ALLW_PHY_PRCNT_CMP_OVERRIDES => p_allw_phy_prcnt_cmp_overrides
4811: ,X_STRUCTURE_TYPE => p_structure_type
4812: );
4813:
4814: x_return_status := FND_API.G_RET_STS_SUCCESS;
4815:
4816: IF (p_commit = FND_API.G_TRUE) THEN
4817: COMMIT;
4818: END IF;
4812: );
4813:
4814: x_return_status := FND_API.G_RET_STS_SUCCESS;
4815:
4816: IF (p_commit = FND_API.G_TRUE) THEN
4817: COMMIT;
4818: END IF;
4819:
4820: IF (p_debug_mode = 'Y') THEN
4823: END IF;
4824: END IF;
4825:
4826: EXCEPTION
4827: when FND_API.G_EXC_ERROR then
4828: if p_commit = FND_API.G_TRUE then
4829: rollback to UPDATE_PROJ_PROG_ATTR;
4830: end if;
4831: x_return_status := FND_API.G_RET_STS_ERROR;
4824: END IF;
4825:
4826: EXCEPTION
4827: when FND_API.G_EXC_ERROR then
4828: if p_commit = FND_API.G_TRUE then
4829: rollback to UPDATE_PROJ_PROG_ATTR;
4830: end if;
4831: x_return_status := FND_API.G_RET_STS_ERROR;
4832: when FND_API.G_EXC_UNEXPECTED_ERROR then
4827: when FND_API.G_EXC_ERROR then
4828: if p_commit = FND_API.G_TRUE then
4829: rollback to UPDATE_PROJ_PROG_ATTR;
4830: end if;
4831: x_return_status := FND_API.G_RET_STS_ERROR;
4832: when FND_API.G_EXC_UNEXPECTED_ERROR then
4833: if p_commit = FND_API.G_TRUE then
4834: rollback to UPDATE_PROJ_PROG_ATTR;
4835: end if;
4828: if p_commit = FND_API.G_TRUE then
4829: rollback to UPDATE_PROJ_PROG_ATTR;
4830: end if;
4831: x_return_status := FND_API.G_RET_STS_ERROR;
4832: when FND_API.G_EXC_UNEXPECTED_ERROR then
4833: if p_commit = FND_API.G_TRUE then
4834: rollback to UPDATE_PROJ_PROG_ATTR;
4835: end if;
4836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4829: rollback to UPDATE_PROJ_PROG_ATTR;
4830: end if;
4831: x_return_status := FND_API.G_RET_STS_ERROR;
4832: when FND_API.G_EXC_UNEXPECTED_ERROR then
4833: if p_commit = FND_API.G_TRUE then
4834: rollback to UPDATE_PROJ_PROG_ATTR;
4835: end if;
4836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4837: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4832: when FND_API.G_EXC_UNEXPECTED_ERROR then
4833: if p_commit = FND_API.G_TRUE then
4834: rollback to UPDATE_PROJ_PROG_ATTR;
4835: end if;
4836: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4837: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4838: p_procedure_name => 'UPDATE_PROJ_PROG_ATTR',
4839: p_error_text => SUBSTRB(SQLERRM,1,120));
4840: when OTHERS then
4837: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4838: p_procedure_name => 'UPDATE_PROJ_PROG_ATTR',
4839: p_error_text => SUBSTRB(SQLERRM,1,120));
4840: when OTHERS then
4841: if p_commit = FND_API.G_TRUE then
4842: rollback to UPDATE_PROJ_PROG_ATTR;
4843: end if;
4844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4845: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4840: when OTHERS then
4841: if p_commit = FND_API.G_TRUE then
4842: rollback to UPDATE_PROJ_PROG_ATTR;
4843: end if;
4844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4845: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4846: p_procedure_name => 'UPDATE_PROJ_PROG_ATTR',
4847: p_error_text => SUBSTRB(SQLERRM,1,120));
4848: raise;
4849: END UPDATE_PROJ_PROG_ATTR;
4850:
4851: PROCEDURE DELETE_PROJ_PROG_ATTR(
4852: p_api_version IN NUMBER :=1.0
4853: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4854: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4855: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4856: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4857: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4850:
4851: PROCEDURE DELETE_PROJ_PROG_ATTR(
4852: p_api_version IN NUMBER :=1.0
4853: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4854: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4855: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4856: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4857: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4858: ,p_debug_mode IN VARCHAR2 :='N'
4851: PROCEDURE DELETE_PROJ_PROG_ATTR(
4852: p_api_version IN NUMBER :=1.0
4853: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4854: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4855: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4856: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4857: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4858: ,p_debug_mode IN VARCHAR2 :='N'
4859: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4852: p_api_version IN NUMBER :=1.0
4853: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4854: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4855: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4856: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4857: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4858: ,p_debug_mode IN VARCHAR2 :='N'
4859: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4860: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4898: pa_debug.debug('PA_PROGRESS_PUB.DELETE_PROJ_PROG_ATTR');
4899: END IF;
4900: END IF;
4901:
4902: IF (p_commit = FND_API.G_TRUE) THEN
4903: savepoint DELETE_PROJ_PROG_ATTR; --Amit
4904: END IF;
4905:
4906: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
4902: IF (p_commit = FND_API.G_TRUE) THEN
4903: savepoint DELETE_PROJ_PROG_ATTR; --Amit
4904: END IF;
4905:
4906: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
4907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4908: END IF;
4909:
4910: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4903: savepoint DELETE_PROJ_PROG_ATTR; --Amit
4904: END IF;
4905:
4906: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
4907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4908: END IF;
4909:
4910: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4911: FND_MSG_PUB.initialize;
4906: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
4907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4908: END IF;
4909:
4910: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4911: FND_MSG_PUB.initialize;
4912: END IF;
4913:
4914: OPEN cur_ppp;
4917:
4918: PA_PROJ_PROGRESS_ATTR_PKG.DELETE_ROW( l_ppp_row_id
4919: );
4920:
4921: x_return_status := FND_API.G_RET_STS_SUCCESS;
4922:
4923: IF (p_commit = FND_API.G_TRUE) THEN
4924: COMMIT;
4925: END IF;
4919: );
4920:
4921: x_return_status := FND_API.G_RET_STS_SUCCESS;
4922:
4923: IF (p_commit = FND_API.G_TRUE) THEN
4924: COMMIT;
4925: END IF;
4926:
4927: IF (p_debug_mode = 'Y') THEN
4930: END IF;
4931: END IF;
4932:
4933: EXCEPTION
4934: when FND_API.G_EXC_ERROR then
4935: if p_commit = FND_API.G_TRUE then
4936: rollback to DELETE_PROJ_PROG_ATTR;
4937: end if;
4938: x_return_status := FND_API.G_RET_STS_ERROR;
4931: END IF;
4932:
4933: EXCEPTION
4934: when FND_API.G_EXC_ERROR then
4935: if p_commit = FND_API.G_TRUE then
4936: rollback to DELETE_PROJ_PROG_ATTR;
4937: end if;
4938: x_return_status := FND_API.G_RET_STS_ERROR;
4939: when FND_API.G_EXC_UNEXPECTED_ERROR then
4934: when FND_API.G_EXC_ERROR then
4935: if p_commit = FND_API.G_TRUE then
4936: rollback to DELETE_PROJ_PROG_ATTR;
4937: end if;
4938: x_return_status := FND_API.G_RET_STS_ERROR;
4939: when FND_API.G_EXC_UNEXPECTED_ERROR then
4940: if p_commit = FND_API.G_TRUE then
4941: rollback to DELETE_PROJ_PROG_ATTR;
4942: end if;
4935: if p_commit = FND_API.G_TRUE then
4936: rollback to DELETE_PROJ_PROG_ATTR;
4937: end if;
4938: x_return_status := FND_API.G_RET_STS_ERROR;
4939: when FND_API.G_EXC_UNEXPECTED_ERROR then
4940: if p_commit = FND_API.G_TRUE then
4941: rollback to DELETE_PROJ_PROG_ATTR;
4942: end if;
4943: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4936: rollback to DELETE_PROJ_PROG_ATTR;
4937: end if;
4938: x_return_status := FND_API.G_RET_STS_ERROR;
4939: when FND_API.G_EXC_UNEXPECTED_ERROR then
4940: if p_commit = FND_API.G_TRUE then
4941: rollback to DELETE_PROJ_PROG_ATTR;
4942: end if;
4943: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4944: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4939: when FND_API.G_EXC_UNEXPECTED_ERROR then
4940: if p_commit = FND_API.G_TRUE then
4941: rollback to DELETE_PROJ_PROG_ATTR;
4942: end if;
4943: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4944: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4945: p_procedure_name => 'DELETE_PROJ_PROG_ATTR',
4946: p_error_text => SUBSTRB(SQLERRM,1,120));
4947: when OTHERS then
4944: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4945: p_procedure_name => 'DELETE_PROJ_PROG_ATTR',
4946: p_error_text => SUBSTRB(SQLERRM,1,120));
4947: when OTHERS then
4948: if p_commit = FND_API.G_TRUE then
4949: rollback to DELETE_PROJ_PROG_ATTR;
4950: end if;
4951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4952: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4947: when OTHERS then
4948: if p_commit = FND_API.G_TRUE then
4949: rollback to DELETE_PROJ_PROG_ATTR;
4950: end if;
4951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4952: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
4953: p_procedure_name => 'DELETE_PROJ_PROG_ATTR',
4954: p_error_text => SUBSTRB(SQLERRM,1,120));
4955: raise;
4956: END DELETE_PROJ_PROG_ATTR;
4957:
4958: PROCEDURE delete_progress_record(
4959: p_api_version IN NUMBER :=1.0
4960: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4961: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4962: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4963: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4964: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4957:
4958: PROCEDURE delete_progress_record(
4959: p_api_version IN NUMBER :=1.0
4960: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4961: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4962: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4963: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4964: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4965: ,p_debug_mode IN VARCHAR2 :='N'
4958: PROCEDURE delete_progress_record(
4959: p_api_version IN NUMBER :=1.0
4960: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4961: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4962: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4963: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4964: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4965: ,p_debug_mode IN VARCHAR2 :='N'
4966: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4959: p_api_version IN NUMBER :=1.0
4960: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
4961: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
4962: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
4963: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
4964: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
4965: ,p_debug_mode IN VARCHAR2 :='N'
4966: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
4967: ,p_structure_version_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5039: pa_debug.debug('PA_PROGRESS_PUB.delete_progress_record');
5040: END IF;
5041: END IF;
5042:
5043: IF (p_commit = FND_API.G_TRUE) THEN
5044: savepoint delete_progress_record;
5045: END IF;
5046:
5047: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
5043: IF (p_commit = FND_API.G_TRUE) THEN
5044: savepoint delete_progress_record;
5045: END IF;
5046:
5047: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
5048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5049: END IF;
5050:
5051: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
5044: savepoint delete_progress_record;
5045: END IF;
5046:
5047: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
5048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5049: END IF;
5050:
5051: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
5052: FND_MSG_PUB.initialize;
5047: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
5048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5049: END IF;
5050:
5051: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
5052: FND_MSG_PUB.initialize;
5053: END IF;
5054:
5055: IF p_task_version_id is NULL OR p_task_version_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5085: PA_PERCENT_COMPLETES_PKG.DELETE_ROW( l_ppc_row_id );
5086: PA_PROGRESS_ROLLUP_PKG.DELETE_ROW( l_rollup_row_id );
5087:
5088: EXCEPTION
5089: when FND_API.G_EXC_ERROR then
5090: if p_commit = FND_API.G_TRUE then
5091: rollback to delete_progress_record;
5092: end if;
5093: x_return_status := FND_API.G_RET_STS_ERROR;
5086: PA_PROGRESS_ROLLUP_PKG.DELETE_ROW( l_rollup_row_id );
5087:
5088: EXCEPTION
5089: when FND_API.G_EXC_ERROR then
5090: if p_commit = FND_API.G_TRUE then
5091: rollback to delete_progress_record;
5092: end if;
5093: x_return_status := FND_API.G_RET_STS_ERROR;
5094: when FND_API.G_EXC_UNEXPECTED_ERROR then
5089: when FND_API.G_EXC_ERROR then
5090: if p_commit = FND_API.G_TRUE then
5091: rollback to delete_progress_record;
5092: end if;
5093: x_return_status := FND_API.G_RET_STS_ERROR;
5094: when FND_API.G_EXC_UNEXPECTED_ERROR then
5095: if p_commit = FND_API.G_TRUE then
5096: rollback to delete_progress_record;
5097: end if;
5090: if p_commit = FND_API.G_TRUE then
5091: rollback to delete_progress_record;
5092: end if;
5093: x_return_status := FND_API.G_RET_STS_ERROR;
5094: when FND_API.G_EXC_UNEXPECTED_ERROR then
5095: if p_commit = FND_API.G_TRUE then
5096: rollback to delete_progress_record;
5097: end if;
5098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5091: rollback to delete_progress_record;
5092: end if;
5093: x_return_status := FND_API.G_RET_STS_ERROR;
5094: when FND_API.G_EXC_UNEXPECTED_ERROR then
5095: if p_commit = FND_API.G_TRUE then
5096: rollback to delete_progress_record;
5097: end if;
5098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5099: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
5094: when FND_API.G_EXC_UNEXPECTED_ERROR then
5095: if p_commit = FND_API.G_TRUE then
5096: rollback to delete_progress_record;
5097: end if;
5098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5099: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
5100: p_procedure_name => 'delete_progress_record',
5101: p_error_text => SUBSTRB(SQLERRM,1,120));
5102: when OTHERS then
5099: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
5100: p_procedure_name => 'delete_progress_record',
5101: p_error_text => SUBSTRB(SQLERRM,1,120));
5102: when OTHERS then
5103: if p_commit = FND_API.G_TRUE then
5104: rollback to delete_progress_record;
5105: end if;
5106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5107: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
5102: when OTHERS then
5103: if p_commit = FND_API.G_TRUE then
5104: rollback to delete_progress_record;
5105: end if;
5106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5107: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
5108: p_procedure_name => 'delete_progress_record',
5109: p_error_text => SUBSTRB(SQLERRM,1,120));
5110: raise;
5112:
5113:
5114: PROCEDURE push_down_task_status(
5115: p_api_version IN NUMBER :=1.0
5116: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
5117: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
5118: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
5119: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
5120: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
5113:
5114: PROCEDURE push_down_task_status(
5115: p_api_version IN NUMBER :=1.0
5116: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
5117: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
5118: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
5119: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
5120: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
5121: ,p_debug_mode IN VARCHAR2 :='N'
5114: PROCEDURE push_down_task_status(
5115: p_api_version IN NUMBER :=1.0
5116: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
5117: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
5118: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
5119: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
5120: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
5121: ,p_debug_mode IN VARCHAR2 :='N'
5122: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5115: p_api_version IN NUMBER :=1.0
5116: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
5117: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
5118: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
5119: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
5120: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
5121: ,p_debug_mode IN VARCHAR2 :='N'
5122: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
5123: ,p_task_status IN VARCHAR2
5334: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'l_structure_version_id='||l_structure_version_id, x_Log_Level=> 3);
5335: END IF;
5336:
5337: -- Initialize OUT params : 5209741
5338: x_return_status := FND_API.G_RET_STS_SUCCESS;
5339: x_msg_data := NULL ;
5340: x_msg_count := 0 ;
5341: -- End : 5209741
5342:
5339: x_msg_data := NULL ;
5340: x_msg_count := 0 ;
5341: -- End : 5209741
5342:
5343: IF (p_commit = FND_API.G_TRUE) THEN
5344: savepoint push_down_task_status;
5345: END IF;
5346:
5347: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
5343: IF (p_commit = FND_API.G_TRUE) THEN
5344: savepoint push_down_task_status;
5345: END IF;
5346:
5347: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
5348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5349: END IF;
5350:
5351: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
5344: savepoint push_down_task_status;
5345: END IF;
5346:
5347: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
5348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5349: END IF;
5350:
5351: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
5352: FND_MSG_PUB.initialize;
5347: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
5348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5349: END IF;
5350:
5351: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
5352: FND_MSG_PUB.initialize;
5353: END IF;
5354:
5355: -- Bug 3878024 : Begin
5362: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
5363: p_procedure_name => 'PUSH_DOWN_TASK_STATUS',
5364: p_error_text => 'Unexpected Error : Structure Version Id can not be found. Please contact System Administrator.');
5365:
5366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
5367: END;
5368: -- Bug 3878024 : End;
5369: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUSH_DOWN_TASK_STATUS', x_Msg => 'l_structure_version_id='||l_structure_version_id, x_Log_Level=> 3);
5370:
5710: ,X_SUBPRJ_EQPMT_ETC_RAWCOST_PC => null
5711: );
5712:
5713: IF Fnd_Msg_Pub.count_msg > 0 THEN
5714: RAISE FND_API.G_EXC_ERROR;
5715: END IF;
5716: END IF; -- cur_task_assignments_rec.current_flag = 'Y' THEN
5717:
5718: IF cur_task_assignments_rec.current_flag = 'Y' OR cur_task_assignments_rec.current_flag = 'X' THEN
6031: ,X_SUBPRJ_EQPMT_ETC_RAWCOST_PC => null
6032: );
6033:
6034: IF Fnd_Msg_Pub.count_msg > 0 THEN
6035: RAISE FND_API.G_EXC_ERROR;
6036: END IF;
6037:
6038: -- Bug 3922325 : Hidden Assignment record also shd get created
6039:
6165: ,X_SUBPRJ_EQPMT_ETC_RAWCOST_PC => null
6166: );
6167:
6168: IF Fnd_Msg_Pub.count_msg > 0 THEN
6169: RAISE FND_API.G_EXC_ERROR;
6170: END IF;
6171:
6172: END IF; -- cur_task_assignments_rec.current_flag = 'Y' THEN
6173:
6465: ,X_SUBPRJ_EQPMT_ETC_RAWCOST_PC => null
6466: );
6467:
6468: IF Fnd_Msg_Pub.count_msg > 0 THEN
6469: RAISE FND_API.G_EXC_ERROR;
6470: END IF;
6471:
6472: IF g1_debug_mode = 'Y' THEN
6473: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_TASK_PROGRESS', x_Msg => 'Inserted Tasks Record in PA_PROGRESS_ROLLUP ', x_Log_Level=> 3);
6484: WHEN OTHERS THEN
6485: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
6486: p_procedure_name => 'PUSH_DOWN_TASK_STATUS',
6487: p_error_text => SUBSTRB('Call PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE:'||SQLERRM,1,120));
6488: RAISE FND_API.G_EXC_ERROR;
6489: END;
6490:
6491: IF x_return_status <> 'S' THEN
6492: RAISE FND_API.G_EXC_ERROR;
6488: RAISE FND_API.G_EXC_ERROR;
6489: END;
6490:
6491: IF x_return_status <> 'S' THEN
6492: RAISE FND_API.G_EXC_ERROR;
6493: END IF;
6494:
6495: l_base_struct_ver_id := pa_project_structure_utils.get_baseline_struct_ver(p_project_id);
6496:
6510: WHEN OTHERS THEN
6511: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
6512: p_procedure_name => 'PUSH_DOWN_TASK_STATUS',
6513: p_error_text => SUBSTRB('Call PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data:'||SQLERRM,1,120));
6514: RAISE FND_API.G_EXC_ERROR;
6515: END;
6516:
6517: IF x_return_status <> 'S' THEN
6518: RAISE FND_API.G_EXC_ERROR;
6514: RAISE FND_API.G_EXC_ERROR;
6515: END;
6516:
6517: IF x_return_status <> 'S' THEN
6518: RAISE FND_API.G_EXC_ERROR;
6519: END IF;
6520: -- Bug 3878024 : End
6521: */
6522: END IF;
6542: ,x_msg_data => x_msg_data
6543: ,x_return_status => x_return_status
6544: ) ;
6545:
6546: if x_return_status <> FND_API.g_ret_sts_success then
6547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6548: end if ;
6549: end if ;
6550:
6543: ,x_return_status => x_return_status
6544: ) ;
6545:
6546: if x_return_status <> FND_API.g_ret_sts_success then
6547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6548: end if ;
6549: end if ;
6550:
6551: -- FP M : 3491609 : Project Execution Workflow
6588: ,x_msg_data => x_msg_data
6589: ,x_return_status => x_return_status
6590: ) ;
6591:
6592: if x_return_status <> FND_API.g_ret_sts_success then
6593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6594: end if ;
6595:
6596: end if ;
6589: ,x_return_status => x_return_status
6590: ) ;
6591:
6592: if x_return_status <> FND_API.g_ret_sts_success then
6593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6594: end if ;
6595:
6596: end if ;
6597: -- FP M : 3491609 : Project Execution Workflow
6669: END IF;
6670: END IF;
6671:
6672: EXCEPTION
6673: when FND_API.G_EXC_ERROR then
6674: if p_commit = FND_API.G_TRUE then
6675: rollback to push_down_task_status;
6676: end if;
6677: x_return_status := FND_API.G_RET_STS_ERROR;
6670: END IF;
6671:
6672: EXCEPTION
6673: when FND_API.G_EXC_ERROR then
6674: if p_commit = FND_API.G_TRUE then
6675: rollback to push_down_task_status;
6676: end if;
6677: x_return_status := FND_API.G_RET_STS_ERROR;
6678: when FND_API.G_EXC_UNEXPECTED_ERROR then
6673: when FND_API.G_EXC_ERROR then
6674: if p_commit = FND_API.G_TRUE then
6675: rollback to push_down_task_status;
6676: end if;
6677: x_return_status := FND_API.G_RET_STS_ERROR;
6678: when FND_API.G_EXC_UNEXPECTED_ERROR then
6679: if p_commit = FND_API.G_TRUE then
6680: rollback to push_down_task_status;
6681: end if;
6674: if p_commit = FND_API.G_TRUE then
6675: rollback to push_down_task_status;
6676: end if;
6677: x_return_status := FND_API.G_RET_STS_ERROR;
6678: when FND_API.G_EXC_UNEXPECTED_ERROR then
6679: if p_commit = FND_API.G_TRUE then
6680: rollback to push_down_task_status;
6681: end if;
6682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6675: rollback to push_down_task_status;
6676: end if;
6677: x_return_status := FND_API.G_RET_STS_ERROR;
6678: when FND_API.G_EXC_UNEXPECTED_ERROR then
6679: if p_commit = FND_API.G_TRUE then
6680: rollback to push_down_task_status;
6681: end if;
6682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6683: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
6678: when FND_API.G_EXC_UNEXPECTED_ERROR then
6679: if p_commit = FND_API.G_TRUE then
6680: rollback to push_down_task_status;
6681: end if;
6682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6683: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
6684: p_procedure_name => 'push_down_task_status',
6685: p_error_text => SUBSTRB(SQLERRM,1,120));
6686: when OTHERS then
6683: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
6684: p_procedure_name => 'push_down_task_status',
6685: p_error_text => SUBSTRB(SQLERRM,1,120));
6686: when OTHERS then
6687: if p_commit = FND_API.G_TRUE then
6688: rollback to push_down_task_status;
6689: end if;
6690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6691: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
6686: when OTHERS then
6687: if p_commit = FND_API.G_TRUE then
6688: rollback to push_down_task_status;
6689: end if;
6690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6691: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
6692: p_procedure_name => 'push_down_task_status',
6693: p_error_text => SUBSTRB(SQLERRM,1,120));
6694: raise;
6759: ,x_return_status => l_return_status
6760: ,x_msg_count => l_msg_count
6761: ,x_msg_data => l_msg_data);
6762:
6763: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6764: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
6765: p_msg_name => l_msg_data);
6766: x_msg_data := l_msg_data;
6767: x_return_status := 'E';
6765: p_msg_name => l_msg_data);
6766: x_msg_data := l_msg_data;
6767: x_return_status := 'E';
6768: x_msg_count := l_msg_count;
6769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6770: END IF;
6771:
6772:
6773: x_return_status := FND_API.G_RET_STS_SUCCESS;
6769: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6770: END IF;
6771:
6772:
6773: x_return_status := FND_API.G_RET_STS_SUCCESS;
6774:
6775: IF g1_debug_mode = 'Y' THEN
6776: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.ROLLUP_FUTURE_PROGRESS_PVT', x_Msg => 'End ', x_Log_Level=> 3);
6777: END IF;
6776: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.ROLLUP_FUTURE_PROGRESS_PVT', x_Msg => 'End ', x_Log_Level=> 3);
6777: END IF;
6778: EXCEPTION
6779: WHEN OTHERS THEN
6780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6781: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
6782: p_procedure_name => 'ROLLUP_FUTURE_PROGRESS_PVT',
6783: p_error_text => SUBSTRB(SQLERRM,1,120));
6784: raise;
6802: p_batch_id in number,
6803: p_batch_party_id in number,
6804: p_return_status in out nocopy varchar2) is
6805: begin
6806: p_return_status := FND_API.G_RET_STS_SUCCESS;
6807:
6808: if (p_from_fk_id <> p_to_fk_id) then
6809:
6810: update pa_percent_completes
6823: -- Progress Management Changes. Bug # 3420093.
6824:
6825: PROCEDURE APPLY_LP_PROG_ON_CWV(
6826: p_api_version IN NUMBER :=1.0
6827: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
6828: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
6829: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
6830: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
6831: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
6824:
6825: PROCEDURE APPLY_LP_PROG_ON_CWV(
6826: p_api_version IN NUMBER :=1.0
6827: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
6828: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
6829: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
6830: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
6831: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
6832: ,p_debug_mode IN VARCHAR2 :='N'
6825: PROCEDURE APPLY_LP_PROG_ON_CWV(
6826: p_api_version IN NUMBER :=1.0
6827: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
6828: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
6829: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
6830: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
6831: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
6832: ,p_debug_mode IN VARCHAR2 :='N'
6833: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
6826: p_api_version IN NUMBER :=1.0
6827: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
6828: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
6829: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
6830: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
6831: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
6832: ,p_debug_mode IN VARCHAR2 :='N'
6833: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
6834: ,p_project_id IN NUMBER
7145: IF g1_debug_mode = 'Y' THEN
7146: pa_debug.debug('PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV');
7147: END IF;
7148: END IF;
7149: IF (p_commit = FND_API.G_TRUE) THEN
7150: savepoint APPLY_LP_PROG_ON_CWV;
7151: END IF;
7152:
7153: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
7149: IF (p_commit = FND_API.G_TRUE) THEN
7150: savepoint APPLY_LP_PROG_ON_CWV;
7151: END IF;
7152:
7153: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
7154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7155: END IF;
7156:
7157: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
7150: savepoint APPLY_LP_PROG_ON_CWV;
7151: END IF;
7152:
7153: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
7154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7155: END IF;
7156:
7157: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
7158: FND_MSG_PUB.initialize;
7153: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
7154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7155: END IF;
7156:
7157: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
7158: FND_MSG_PUB.initialize;
7159: END IF;
7160:
7161: x_return_status := FND_API.G_RET_STS_SUCCESS;
7157: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
7158: FND_MSG_PUB.initialize;
7159: END IF;
7160:
7161: x_return_status := FND_API.G_RET_STS_SUCCESS;
7162:
7163: g1_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
7164:
7165: IF g1_debug_mode = 'Y' THEN
7175: p_context => 'APPLY_PROGRESS',
7176: x_return_status => x_return_status
7177: );
7178:
7179: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7180: RAISE FND_API.G_EXC_ERROR;
7181: END IF;
7182:
7183: l_version_enabled_flag := PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_project_id);
7176: x_return_status => x_return_status
7177: );
7178:
7179: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7180: RAISE FND_API.G_EXC_ERROR;
7181: END IF;
7182:
7183: l_version_enabled_flag := PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_project_id);
7184: --- setting this global var for PJI. In case of VD struct they won't touch ETC
7559: WHEN OTHERS THEN
7560: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
7561: p_procedure_name => 'APPLY_LP_PROG_ON_CWV',
7562: p_error_text => SUBSTRB('PA_TASK_ASSIGNMENTS_PUB.DERIVE_TASK_ASSIGNMENTS:'||SQLERRM,1,120));
7563: raise fnd_api.g_exc_error;
7564: END;
7565:
7566: -- BEGIN: Adding code to fix Bug # 3815741.
7567:
7564: END;
7565:
7566: -- BEGIN: Adding code to fix Bug # 3815741.
7567:
7568: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7569: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7570: p_msg_name => l_msg_data);
7571: x_msg_data := l_msg_data;
7572: x_return_status := 'E';
7570: p_msg_name => l_msg_data);
7571: x_msg_data := l_msg_data;
7572: x_return_status := 'E';
7573: x_msg_count := l_msg_count;
7574: RAISE FND_API.G_EXC_ERROR;
7575: END IF;
7576:
7577: -- END: Adding code to fix Bug # 3815741.
7578: --maansari6/26
8078: WHEN OTHERS THEN
8079: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8080: p_procedure_name => 'APPLY_LP_PROG_ON_CWV',
8081: p_error_text => SUBSTRB('PA_PROGRESS_PVT.COPY_ACTUALS_FOR_WORKPLAN:'||SQLERRM,1,120));
8082: RAISE FND_API.G_EXC_ERROR;
8083: END;
8084:
8085: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8086: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8081: p_error_text => SUBSTRB('PA_PROGRESS_PVT.COPY_ACTUALS_FOR_WORKPLAN:'||SQLERRM,1,120));
8082: RAISE FND_API.G_EXC_ERROR;
8083: END;
8084:
8085: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8086: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8087: p_msg_name => l_msg_data);
8088: x_msg_data := l_msg_data;
8089: x_return_status := 'E';
8087: p_msg_name => l_msg_data);
8088: x_msg_data := l_msg_data;
8089: x_return_status := 'E';
8090: x_msg_count := l_msg_count;
8091: RAISE FND_API.G_EXC_ERROR;
8092: END IF;
8093:
8094:
8095: -- end if; -- If workplan versioning is enabled: 2
8196: WHEN OTHERS THEN
8197: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8198: p_procedure_name => 'APPLY_LP_PROG_ON_CWV',
8199: p_error_text => SUBSTRB('Call of PA_FP_CALC_PLAN_PKG.calculate Failed:'||SQLERRM,1,120));
8200: RAISE FND_API.G_EXC_ERROR;
8201: END;
8202:
8203: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8204: x_return_status := 'E';
8199: p_error_text => SUBSTRB('Call of PA_FP_CALC_PLAN_PKG.calculate Failed:'||SQLERRM,1,120));
8200: RAISE FND_API.G_EXC_ERROR;
8201: END;
8202:
8203: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8204: x_return_status := 'E';
8205: RAISE FND_API.G_EXC_ERROR;
8206: END IF;
8207: END IF;
8201: END;
8202:
8203: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8204: x_return_status := 'E';
8205: RAISE FND_API.G_EXC_ERROR;
8206: END IF;
8207: END IF;
8208:
8209: pa_progress_pub.g_wbs_apply_prog := null; --- resetting the var back to null
8229: WHEN OTHERS THEN
8230: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8231: p_procedure_name => 'APPLY_LP_PROG_ON_CWV',
8232: p_error_text => SUBSTRB('PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE:'||SQLERRM,1,120));
8233: RAISE FND_API.G_EXC_ERROR;
8234: END;
8235:
8236: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8237: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8232: p_error_text => SUBSTRB('PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE:'||SQLERRM,1,120));
8233: RAISE FND_API.G_EXC_ERROR;
8234: END;
8235:
8236: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8237: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8238: p_msg_name => l_msg_code);
8239: x_msg_data := l_msg_code;
8240: x_return_status := 'E';
8237: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8238: p_msg_name => l_msg_code);
8239: x_msg_data := l_msg_code;
8240: x_return_status := 'E';
8241: RAISE FND_API.G_EXC_ERROR;
8242: END IF;
8243:
8244: -- 3.2). Calling PJI API: PJI_FM_XBS_ACCUM_UTILS.POPULATE_WORKPLAN_DATA() to populate
8245: -- the temporary table: PJI_FM_XBS_ACCUM_TMP1.This is done once here instead of, for each of the lowest tasks by calling
8316: WHEN OTHERS THEN
8317: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8318: p_procedure_name => 'APPLY_LP_PROG_ON_CWV',
8319: p_error_text => SUBSTRB('PA_PROGRESS_PUB.POPULATE_PJI_TAB_FOR_PLAN:'||SQLERRM,1,120));
8320: RAISE FND_API.G_EXC_ERROR;
8321: END;
8322:
8323: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8324: x_msg_data := l_msg_data;
8319: p_error_text => SUBSTRB('PA_PROGRESS_PUB.POPULATE_PJI_TAB_FOR_PLAN:'||SQLERRM,1,120));
8320: RAISE FND_API.G_EXC_ERROR;
8321: END;
8322:
8323: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8324: x_msg_data := l_msg_data;
8325: x_return_status := 'E';
8326: x_msg_count := l_msg_count;
8327: RAISE FND_API.G_EXC_ERROR;
8323: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8324: x_msg_data := l_msg_data;
8325: x_return_status := 'E';
8326: x_msg_count := l_msg_count;
8327: RAISE FND_API.G_EXC_ERROR;
8328: END IF;
8329:
8330: -- 3.3). Update table: pa_proj_element_ver_structure
8331: -- 3.4). Call Rollup API for the whole structure, Pass working structure version_id.
8347: ,x_return_status => l_return_status
8348: ,x_msg_count => l_msg_count
8349: ,x_msg_data => l_msg_data);
8350:
8351: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8352: x_msg_data := l_msg_data;
8353: x_return_status := 'E';
8354: x_msg_count := l_msg_count;
8355: RAISE FND_API.G_EXC_ERROR;
8351: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8352: x_msg_data := l_msg_data;
8353: x_return_status := 'E';
8354: x_msg_count := l_msg_count;
8355: RAISE FND_API.G_EXC_ERROR;
8356: END IF;
8357:
8358: -- Call of rollup future is not needed here as there will be only one record per object in working version
8359:
8365: 'Y', 'Y', schedule_dirty_flag ) --set this flag to indicate re-scheduling is required.
8366: WHERE project_id = p_project_id
8367: AND element_version_id = p_working_str_version_id;
8368:
8369: IF (p_commit = FND_API.G_TRUE) THEN
8370: COMMIT;
8371: END IF;
8372:
8373: EXCEPTION
8370: COMMIT;
8371: END IF;
8372:
8373: EXCEPTION
8374: when FND_API.G_EXC_ERROR then
8375: if p_commit = FND_API.G_TRUE then
8376: rollback to APPLY_LP_PROG_ON_CWV;
8377: end if;
8378: x_return_status := FND_API.G_RET_STS_ERROR;
8371: END IF;
8372:
8373: EXCEPTION
8374: when FND_API.G_EXC_ERROR then
8375: if p_commit = FND_API.G_TRUE then
8376: rollback to APPLY_LP_PROG_ON_CWV;
8377: end if;
8378: x_return_status := FND_API.G_RET_STS_ERROR;
8379: x_msg_count := fnd_msg_pub.count_msg;
8374: when FND_API.G_EXC_ERROR then
8375: if p_commit = FND_API.G_TRUE then
8376: rollback to APPLY_LP_PROG_ON_CWV;
8377: end if;
8378: x_return_status := FND_API.G_RET_STS_ERROR;
8379: x_msg_count := fnd_msg_pub.count_msg;
8380:
8381: -- BEGIN: Commenting this code out to fix Bug # 3956275.
8382: /*
8392: */
8393:
8394: -- END: Commenting this code out to fix Bug # 3956275.
8395:
8396: when FND_API.G_EXC_UNEXPECTED_ERROR then
8397: if p_commit = FND_API.G_TRUE then
8398: rollback to APPLY_LP_PROG_ON_CWV;
8399: end if;
8400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8393:
8394: -- END: Commenting this code out to fix Bug # 3956275.
8395:
8396: when FND_API.G_EXC_UNEXPECTED_ERROR then
8397: if p_commit = FND_API.G_TRUE then
8398: rollback to APPLY_LP_PROG_ON_CWV;
8399: end if;
8400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8401: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8396: when FND_API.G_EXC_UNEXPECTED_ERROR then
8397: if p_commit = FND_API.G_TRUE then
8398: rollback to APPLY_LP_PROG_ON_CWV;
8399: end if;
8400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8401: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8402: p_procedure_name => 'APPLY_LP_PROG_ON_CWV',
8403: p_error_text => SUBSTRB(SQLERRM,1,120));
8404: x_msg_count := fnd_msg_pub.count_msg;
8402: p_procedure_name => 'APPLY_LP_PROG_ON_CWV',
8403: p_error_text => SUBSTRB(SQLERRM,1,120));
8404: x_msg_count := fnd_msg_pub.count_msg;
8405: when OTHERS then
8406: if p_commit = FND_API.G_TRUE then
8407: rollback to APPLY_LP_PROG_ON_CWV;
8408: end if;
8409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8410: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8405: when OTHERS then
8406: if p_commit = FND_API.G_TRUE then
8407: rollback to APPLY_LP_PROG_ON_CWV;
8408: end if;
8409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8410: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8411: p_procedure_name => 'APPLY_LP_PROG_ON_CWV',
8412: p_error_text => SUBSTRB(SQLERRM,1,120));
8413: x_msg_count := fnd_msg_pub.count_msg;
8417: -- Progress Management Changes. Bug # 3420093.
8418:
8419: PROCEDURE delete_working_wp_progress(
8420: p_api_version IN NUMBER :=1.0
8421: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
8422: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
8423: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
8424: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
8425: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
8418:
8419: PROCEDURE delete_working_wp_progress(
8420: p_api_version IN NUMBER :=1.0
8421: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
8422: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
8423: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
8424: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
8425: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
8426: ,p_debug_mode IN VARCHAR2 :='N'
8419: PROCEDURE delete_working_wp_progress(
8420: p_api_version IN NUMBER :=1.0
8421: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
8422: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
8423: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
8424: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
8425: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
8426: ,p_debug_mode IN VARCHAR2 :='N'
8427: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
8420: p_api_version IN NUMBER :=1.0
8421: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
8422: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
8423: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
8424: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
8425: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
8426: ,p_debug_mode IN VARCHAR2 :='N'
8427: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
8428: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
8451: IF g1_debug_mode = 'Y' THEN
8452: pa_debug.debug('PA_PROGRESS_PUB.DELETE_WORKING_WP_PROGRESS');
8453: END IF;
8454: END IF;
8455: IF (p_commit = FND_API.G_TRUE) THEN
8456: savepoint DELETE_WORKING_WP_PROGRESS;
8457: END IF;
8458:
8459: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
8455: IF (p_commit = FND_API.G_TRUE) THEN
8456: savepoint DELETE_WORKING_WP_PROGRESS;
8457: END IF;
8458:
8459: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
8460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8461: END IF;
8462:
8463: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
8456: savepoint DELETE_WORKING_WP_PROGRESS;
8457: END IF;
8458:
8459: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
8460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8461: END IF;
8462:
8463: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
8464: FND_MSG_PUB.initialize;
8459: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
8460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8461: END IF;
8462:
8463: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
8464: FND_MSG_PUB.initialize;
8465: END IF;
8466:
8467: x_return_status := FND_API.G_RET_STS_SUCCESS;
8463: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
8464: FND_MSG_PUB.initialize;
8465: END IF;
8466:
8467: x_return_status := FND_API.G_RET_STS_SUCCESS;
8468:
8469: if (p_calling_context = 'STRUCTURE_VERSION') then
8470:
8471: delete from pa_progress_rollup
8498: and object_version_id = p_task_version_id(i);
8499:
8500: end if;
8501:
8502: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8503: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8504: p_msg_name => l_msg_data);
8505: x_msg_data := l_msg_data;
8506: x_return_status := 'E';
8504: p_msg_name => l_msg_data);
8505: x_msg_data := l_msg_data;
8506: x_return_status := 'E';
8507: x_msg_count := l_msg_count;
8508: RAISE FND_API.G_EXC_ERROR;
8509: END IF;
8510:
8511: IF (p_commit = FND_API.G_TRUE) THEN
8512: COMMIT;
8507: x_msg_count := l_msg_count;
8508: RAISE FND_API.G_EXC_ERROR;
8509: END IF;
8510:
8511: IF (p_commit = FND_API.G_TRUE) THEN
8512: COMMIT;
8513: END IF;
8514: EXCEPTION
8515: when FND_API.G_EXC_ERROR then
8511: IF (p_commit = FND_API.G_TRUE) THEN
8512: COMMIT;
8513: END IF;
8514: EXCEPTION
8515: when FND_API.G_EXC_ERROR then
8516: if p_commit = FND_API.G_TRUE then
8517: rollback to DELETE_WORKING_WP_PROGRESS;
8518: end if;
8519: x_return_status := FND_API.G_RET_STS_ERROR;
8512: COMMIT;
8513: END IF;
8514: EXCEPTION
8515: when FND_API.G_EXC_ERROR then
8516: if p_commit = FND_API.G_TRUE then
8517: rollback to DELETE_WORKING_WP_PROGRESS;
8518: end if;
8519: x_return_status := FND_API.G_RET_STS_ERROR;
8520: when FND_API.G_EXC_UNEXPECTED_ERROR then
8515: when FND_API.G_EXC_ERROR then
8516: if p_commit = FND_API.G_TRUE then
8517: rollback to DELETE_WORKING_WP_PROGRESS;
8518: end if;
8519: x_return_status := FND_API.G_RET_STS_ERROR;
8520: when FND_API.G_EXC_UNEXPECTED_ERROR then
8521: if p_commit = FND_API.G_TRUE then
8522: rollback to DELETE_WORKING_WP_PROGRESS;
8523: end if;
8516: if p_commit = FND_API.G_TRUE then
8517: rollback to DELETE_WORKING_WP_PROGRESS;
8518: end if;
8519: x_return_status := FND_API.G_RET_STS_ERROR;
8520: when FND_API.G_EXC_UNEXPECTED_ERROR then
8521: if p_commit = FND_API.G_TRUE then
8522: rollback to DELETE_WORKING_WP_PROGRESS;
8523: end if;
8524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8517: rollback to DELETE_WORKING_WP_PROGRESS;
8518: end if;
8519: x_return_status := FND_API.G_RET_STS_ERROR;
8520: when FND_API.G_EXC_UNEXPECTED_ERROR then
8521: if p_commit = FND_API.G_TRUE then
8522: rollback to DELETE_WORKING_WP_PROGRESS;
8523: end if;
8524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8525: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8520: when FND_API.G_EXC_UNEXPECTED_ERROR then
8521: if p_commit = FND_API.G_TRUE then
8522: rollback to DELETE_WORKING_WP_PROGRESS;
8523: end if;
8524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8525: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8526: p_procedure_name => 'DELETE_WORKING_WP_PROGRESS',
8527: p_error_text => SUBSTRB(SQLERRM,1,120));
8528: when OTHERS then
8525: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8526: p_procedure_name => 'DELETE_WORKING_WP_PROGRESS',
8527: p_error_text => SUBSTRB(SQLERRM,1,120));
8528: when OTHERS then
8529: if p_commit = FND_API.G_TRUE then
8530: rollback to DELETE_WORKING_WP_PROGRESS;
8531: end if;
8532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8533: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8528: when OTHERS then
8529: if p_commit = FND_API.G_TRUE then
8530: rollback to DELETE_WORKING_WP_PROGRESS;
8531: end if;
8532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8533: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8534: p_procedure_name => 'DELETE_WORKING_WP_PROGRESS',
8535: p_error_text => SUBSTRB(SQLERRM,1,120));
8536: raise;
8539: -- Progress Management Changes. Bug # 3420093.
8540:
8541: Procedure PULL_SUMMARIZED_ACTUALS (
8542: p_api_version IN NUMBER :=1.0
8543: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
8544: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
8545: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
8546: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
8547: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
8540:
8541: Procedure PULL_SUMMARIZED_ACTUALS (
8542: p_api_version IN NUMBER :=1.0
8543: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
8544: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
8545: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
8546: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
8547: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
8548: ,p_debug_mode IN VARCHAR2 :='N'
8541: Procedure PULL_SUMMARIZED_ACTUALS (
8542: p_api_version IN NUMBER :=1.0
8543: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
8544: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
8545: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
8546: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
8547: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
8548: ,p_debug_mode IN VARCHAR2 :='N'
8549: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
8542: p_api_version IN NUMBER :=1.0
8543: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
8544: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
8545: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
8546: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
8547: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
8548: ,p_debug_mode IN VARCHAR2 :='N'
8549: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
8550: ,P_Project_ID IN NUMBER
8615: IF g1_debug_mode = 'Y' THEN
8616: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PULL_SUMMARIZED_ACTUALS', x_Msg => 'PA_PROGRESS_PUB.PULL_SUMMARIZED_ACTUALS Start : P_Project_ID='||P_Project_ID||', P_Calling_Mode='||P_Calling_Mode, x_Log_Level=> 3);
8617: END IF;
8618:
8619: IF (p_commit = FND_API.G_TRUE) THEN
8620: savepoint PULL_SUMMARIZED_ACTUALS;
8621: END IF;
8622:
8623: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
8619: IF (p_commit = FND_API.G_TRUE) THEN
8620: savepoint PULL_SUMMARIZED_ACTUALS;
8621: END IF;
8622:
8623: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
8624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8625: END IF;
8626:
8627: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
8620: savepoint PULL_SUMMARIZED_ACTUALS;
8621: END IF;
8622:
8623: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
8624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8625: END IF;
8626:
8627: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
8628: FND_MSG_PUB.initialize;
8623: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
8624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8625: END IF;
8626:
8627: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
8628: FND_MSG_PUB.initialize;
8629: END IF;
8630:
8631: x_return_status := FND_API.G_RET_STS_SUCCESS;
8627: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
8628: FND_MSG_PUB.initialize;
8629: END IF;
8630:
8631: x_return_status := FND_API.G_RET_STS_SUCCESS;
8632:
8633: --bug 4573340
8634: IF NOT NVL(PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(P_Project_ID),'X') = 'SHARE_FULL'
8635: THEN
8669: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PULL_SUMMARIZED_ACTUALS', x_Msg => 'After Call x_return_status='||x_return_status, x_Log_Level=> 3);
8670: END IF;
8671:
8672: -- Added the if block for Bug#5659575
8673: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8674: RAISE FND_API.G_EXC_ERROR;
8675: END IF;
8676:
8677: begin
8670: END IF;
8671:
8672: -- Added the if block for Bug#5659575
8673: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8674: RAISE FND_API.G_EXC_ERROR;
8675: END IF;
8676:
8677: begin
8678: PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE_ACT_ETC (
8684: WHEN OTHERS THEN
8685: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8686: p_procedure_name => 'PULL_SUMMARIZED_ACTUALS',
8687: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE failed: sqlerrm='||SQLERRM,1,120));
8688: RAISE FND_API.G_EXC_ERROR;
8689: END;
8690:
8691: -- Added the if block for Bug#5659575
8692: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8688: RAISE FND_API.G_EXC_ERROR;
8689: END;
8690:
8691: -- Added the if block for Bug#5659575
8692: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8693: RAISE FND_API.G_EXC_ERROR;
8694: END IF;
8695:
8696: -- Bug 4600547 Begin
8689: END;
8690:
8691: -- Added the if block for Bug#5659575
8692: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8693: RAISE FND_API.G_EXC_ERROR;
8694: END IF;
8695:
8696: -- Bug 4600547 Begin
8697: -- Added thew following cursor call to avoid unnecessary creating rollup records
8733: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PULL_SUMMARIZED_ACTUALS', x_Msg => 'After Call x_return_status='||x_return_status, x_Log_Level=> 3);
8734: END IF;
8735:
8736: -- Bug 5659575
8737: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8738: RAISE FND_API.G_EXC_ERROR;
8739: END IF;
8740:
8741: END IF;
8734: END IF;
8735:
8736: -- Bug 5659575
8737: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8738: RAISE FND_API.G_EXC_ERROR;
8739: END IF;
8740:
8741: END IF;
8742: End If;
8743: end if;
8744: CLOSE cur_Summerized_Actuals;
8745:
8746: EXCEPTION
8747: when FND_API.G_EXC_ERROR then
8748: if p_commit = FND_API.G_TRUE then
8749: rollback to PULL_SUMMARIZED_ACTUALS;
8750: end if;
8751: x_return_status := FND_API.G_RET_STS_ERROR;
8744: CLOSE cur_Summerized_Actuals;
8745:
8746: EXCEPTION
8747: when FND_API.G_EXC_ERROR then
8748: if p_commit = FND_API.G_TRUE then
8749: rollback to PULL_SUMMARIZED_ACTUALS;
8750: end if;
8751: x_return_status := FND_API.G_RET_STS_ERROR;
8752: when FND_API.G_EXC_UNEXPECTED_ERROR then
8747: when FND_API.G_EXC_ERROR then
8748: if p_commit = FND_API.G_TRUE then
8749: rollback to PULL_SUMMARIZED_ACTUALS;
8750: end if;
8751: x_return_status := FND_API.G_RET_STS_ERROR;
8752: when FND_API.G_EXC_UNEXPECTED_ERROR then
8753: if p_commit = FND_API.G_TRUE then
8754: rollback to PULL_SUMMARIZED_ACTUALS;
8755: end if;
8748: if p_commit = FND_API.G_TRUE then
8749: rollback to PULL_SUMMARIZED_ACTUALS;
8750: end if;
8751: x_return_status := FND_API.G_RET_STS_ERROR;
8752: when FND_API.G_EXC_UNEXPECTED_ERROR then
8753: if p_commit = FND_API.G_TRUE then
8754: rollback to PULL_SUMMARIZED_ACTUALS;
8755: end if;
8756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8749: rollback to PULL_SUMMARIZED_ACTUALS;
8750: end if;
8751: x_return_status := FND_API.G_RET_STS_ERROR;
8752: when FND_API.G_EXC_UNEXPECTED_ERROR then
8753: if p_commit = FND_API.G_TRUE then
8754: rollback to PULL_SUMMARIZED_ACTUALS;
8755: end if;
8756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8757: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8752: when FND_API.G_EXC_UNEXPECTED_ERROR then
8753: if p_commit = FND_API.G_TRUE then
8754: rollback to PULL_SUMMARIZED_ACTUALS;
8755: end if;
8756: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8757: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8758: p_procedure_name => 'PULL_SUMMARIZED_ACTUALS',
8759: p_error_text => SUBSTRB(SQLERRM,1,120));
8760: when OTHERS then
8757: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8758: p_procedure_name => 'PULL_SUMMARIZED_ACTUALS',
8759: p_error_text => SUBSTRB(SQLERRM,1,120));
8760: when OTHERS then
8761: if p_commit = FND_API.G_TRUE then
8762: rollback to DELETE_WORKING_WP_PROGRESS;
8763: end if;
8764: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8765: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8760: when OTHERS then
8761: if p_commit = FND_API.G_TRUE then
8762: rollback to DELETE_WORKING_WP_PROGRESS;
8763: end if;
8764: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8765: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
8766: p_procedure_name => 'PULL_SUMMARIZED_ACTUALS',
8767: p_error_text => SUBSTRB(SQLERRM,1,120));
8768: raise;
8771: -- Progress Management Changes. Bug # 3420093.
8772:
8773: PROCEDURE UPDATE_PROGRESS(
8774: p_api_version IN NUMBER :=1.0
8775: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
8776: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
8777: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
8778: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
8779: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
8772:
8773: PROCEDURE UPDATE_PROGRESS(
8774: p_api_version IN NUMBER :=1.0
8775: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
8776: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
8777: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
8778: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
8779: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
8780: ,p_debug_mode IN VARCHAR2 :='N'
8773: PROCEDURE UPDATE_PROGRESS(
8774: p_api_version IN NUMBER :=1.0
8775: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
8776: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
8777: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
8778: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
8779: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
8780: ,p_debug_mode IN VARCHAR2 :='N'
8781: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
8774: p_api_version IN NUMBER :=1.0
8775: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
8776: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
8777: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
8778: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
8779: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
8780: ,p_debug_mode IN VARCHAR2 :='N'
8781: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
8782: ,p_action IN VARCHAR2 :='SAVE'
9008: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS', x_Msg => 'p_rbs_element_id='||p_rbs_element_id, x_Log_Level=> 3);
9009: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS', x_Msg => 'p_resource_assignment_id='||p_resource_assignment_id, x_Log_Level=> 3);
9010: END IF;
9011:
9012: IF (p_commit = FND_API.G_TRUE) THEN
9013: savepoint UPDATE_PROGRESS;
9014: END IF;
9015:
9016: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
9012: IF (p_commit = FND_API.G_TRUE) THEN
9013: savepoint UPDATE_PROGRESS;
9014: END IF;
9015:
9016: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
9017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9018: END IF;
9019:
9020: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
9013: savepoint UPDATE_PROGRESS;
9014: END IF;
9015:
9016: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
9017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9018: END IF;
9019:
9020: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
9021: FND_MSG_PUB.initialize;
9016: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
9017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9018: END IF;
9019:
9020: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
9021: FND_MSG_PUB.initialize;
9022: END IF;
9023:
9024: x_return_status := FND_API.G_RET_STS_SUCCESS;
9020: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
9021: FND_MSG_PUB.initialize;
9022: END IF;
9023:
9024: x_return_status := FND_API.G_RET_STS_SUCCESS;
9025:
9026: -- Begin fix for Bug # 4524977.
9027:
9028: PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_DETAILS
9035: ,x_msg_count => l_msg_count
9036: ,x_msg_data => l_msg_data);
9037:
9038:
9039: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9040:
9041: x_msg_data := l_msg_data;
9042: x_return_status := 'E';
9043: x_msg_count := l_msg_count;
9041: x_msg_data := l_msg_data;
9042: x_return_status := 'E';
9043: x_msg_count := l_msg_count;
9044:
9045: raise FND_API.G_EXC_ERROR;
9046:
9047: end if;
9048:
9049: open l_cur_publish(l_request_id);
9060: ,p_msg_name => 'PA_PS_PUBLISH_NO_PROG');
9061:
9062: x_msg_data := 'PA_PS_PUBLISH_NO_PROG';
9063:
9064: x_return_status := FND_API.G_RET_STS_ERROR;
9065:
9066: raise FND_API.G_EXC_ERROR;
9067:
9068: elsif ((l_rec_publish.process = 'CONC_UPDATE')
9062: x_msg_data := 'PA_PS_PUBLISH_NO_PROG';
9063:
9064: x_return_status := FND_API.G_RET_STS_ERROR;
9065:
9066: raise FND_API.G_EXC_ERROR;
9067:
9068: elsif ((l_rec_publish.process = 'CONC_UPDATE')
9069: and (l_process_code = 'WUP')
9070: and (l_wp_ver_enabled_flag = 'N')) then
9073: ,p_msg_name => 'PA_PS_UPDATE_NO_PROG');
9074:
9075: x_msg_data := 'PA_PS_UPDATE_NO_PROG';
9076:
9077: x_return_status := FND_API.G_RET_STS_ERROR;
9078:
9079: raise FND_API.G_EXC_ERROR;
9080:
9081: elsif ((l_rec_publish.process = 'APPLY_PROGRESS')
9075: x_msg_data := 'PA_PS_UPDATE_NO_PROG';
9076:
9077: x_return_status := FND_API.G_RET_STS_ERROR;
9078:
9079: raise FND_API.G_EXC_ERROR;
9080:
9081: elsif ((l_rec_publish.process = 'APPLY_PROGRESS')
9082: and (l_process_code = 'WUP')
9083: and (l_wp_ver_enabled_flag = 'N')) then
9086: ,p_msg_name => 'PA_PS_APLPRG_NO_PROG');
9087:
9088: x_msg_data := 'PA_PS_APLPRG_NO_PROG';
9089:
9090: x_return_status := FND_API.G_RET_STS_ERROR;
9091:
9092: raise FND_API.G_EXC_ERROR;
9093:
9094: end if;
9088: x_msg_data := 'PA_PS_APLPRG_NO_PROG';
9089:
9090: x_return_status := FND_API.G_RET_STS_ERROR;
9091:
9092: raise FND_API.G_EXC_ERROR;
9093:
9094: end if;
9095:
9096: -- End fix for Bug # 4524977.
9136: --Raise Error
9137: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
9138: ,p_msg_name => 'PA_TEMPL_PROGRESS_NOT_ALLOWED');
9139: x_msg_data := 'PA_TEMPL_PROGRESS_NOT_ALLOWED';
9140: x_return_status := FND_API.G_RET_STS_ERROR;
9141: RAISE FND_API.G_EXC_ERROR;
9142: END IF;
9143: END IF;
9144:
9137: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
9138: ,p_msg_name => 'PA_TEMPL_PROGRESS_NOT_ALLOWED');
9139: x_msg_data := 'PA_TEMPL_PROGRESS_NOT_ALLOWED';
9140: x_return_status := FND_API.G_RET_STS_ERROR;
9141: RAISE FND_API.G_EXC_ERROR;
9142: END IF;
9143: END IF;
9144:
9145: -- Begin code fix for bug # 3974859.
9350: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS', x_Msg => 'After Calling UPDATE_TASK_PROGRESS l_return_status='||l_return_status, x_Log_Level=> 3);
9351: END IF;
9352: END IF;
9353:
9354: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9355: x_msg_data := l_msg_data;
9356: x_return_status := 'E';
9357: x_msg_count := l_msg_count;
9358: RAISE FND_API.G_EXC_ERROR;
9354: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9355: x_msg_data := l_msg_data;
9356: x_return_status := 'E';
9357: x_msg_count := l_msg_count;
9358: RAISE FND_API.G_EXC_ERROR;
9359: END IF;
9360:
9361: -- Bug 3614828 : Moved the code to get local variables for object type, task version id, structure type etc..
9362: -- here, so that it is also accessible to ASGN_DLV_TO_TASK_ROLLUP_PVT
9432: x_msg_count => l_msg_count,
9433: x_msg_data => l_msg_data);
9434:
9435:
9436: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9437: x_msg_data := l_msg_data;
9438: x_return_status := 'E';
9439: x_msg_count := l_msg_count;
9440: RAISE FND_API.G_EXC_ERROR;
9436: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9437: x_msg_data := l_msg_data;
9438: x_return_status := 'E';
9439: x_msg_count := l_msg_count;
9440: RAISE FND_API.G_EXC_ERROR;
9441: END IF;
9442: END IF;
9443:
9444:
9494: WHEN OTHERS THEN
9495: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
9496: p_procedure_name => 'update_progress',
9497: p_error_text => SUBSTRB('PA_FP_MAINTAIN_ACTUAL_PUB.MAINTAIN_ACTUAL_AMT_WRP:'||SQLERRM,1,120));
9498: RAISE FND_API.G_EXC_ERROR;
9499: END;
9500:
9501: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9502: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9497: p_error_text => SUBSTRB('PA_FP_MAINTAIN_ACTUAL_PUB.MAINTAIN_ACTUAL_AMT_WRP:'||SQLERRM,1,120));
9498: RAISE FND_API.G_EXC_ERROR;
9499: END;
9500:
9501: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9502: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9503: p_msg_name => l_msg_data);
9504: x_msg_data := l_msg_data;
9505: x_return_status := 'E';
9503: p_msg_name => l_msg_data);
9504: x_msg_data := l_msg_data;
9505: x_return_status := 'E';
9506: x_msg_count := l_msg_count;
9507: RAISE FND_API.G_EXC_ERROR;
9508: END IF;
9509:
9510: END IF; -- l_split_workplan = 'Y' THEN
9511:
9524: WHEN OTHERS THEN
9525: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
9526: p_procedure_name => 'update_progress',
9527: p_error_text => SUBSTRB('Call PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE:'||SQLERRM,1,120));
9528: RAISE FND_API.G_EXC_ERROR;
9529: END;
9530: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9531: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9532: p_msg_name => l_msg_code);
9526: p_procedure_name => 'update_progress',
9527: p_error_text => SUBSTRB('Call PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE:'||SQLERRM,1,120));
9528: RAISE FND_API.G_EXC_ERROR;
9529: END;
9530: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9531: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9532: p_msg_name => l_msg_code);
9533: x_return_status := 'E';
9534: RAISE FND_API.G_EXC_ERROR;
9530: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9531: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9532: p_msg_name => l_msg_code);
9533: x_return_status := 'E';
9534: RAISE FND_API.G_EXC_ERROR;
9535: END IF;
9536:
9537:
9538: l_base_struct_ver_id := pa_project_structure_utils.get_baseline_struct_ver(p_project_id);
9552: ,x_return_status => l_return_status
9553: ,x_msg_count => l_msg_count
9554: ,x_msg_data => l_msg_data
9555: );
9556: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9557: x_msg_data := l_msg_data;
9558: x_return_status := 'E';
9559: x_msg_count := l_msg_count;
9560: RAISE FND_API.G_EXC_ERROR;
9556: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9557: x_msg_data := l_msg_data;
9558: x_return_status := 'E';
9559: x_msg_count := l_msg_count;
9560: RAISE FND_API.G_EXC_ERROR;
9561: END IF;
9562:
9563: /*
9564: BEGIN
9574: WHEN OTHERS THEN
9575: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
9576: p_procedure_name => 'update_progress',
9577: p_error_text => SUBSTRB('Call PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data:'||SQLERRM,1,120));
9578: RAISE FND_API.G_EXC_ERROR;
9579: END;
9580: */
9581: END IF;-- p_structure_type = 'WORKPLAN' THEN
9582:
9606: IF g1_debug_mode = 'Y' THEN
9607: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS', x_Msg => 'After Calling ROLLUP_PROGRESS_PVT l_return_status='||l_return_status, x_Log_Level=> 3);
9608: END IF;
9609:
9610: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9611: x_msg_data := l_msg_data;
9612: x_return_status := 'E';
9613: x_msg_count := l_msg_count;
9614: RAISE FND_API.G_EXC_ERROR;
9610: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9611: x_msg_data := l_msg_data;
9612: x_return_status := 'E';
9613: x_msg_count := l_msg_count;
9614: RAISE FND_API.G_EXC_ERROR;
9615: END IF;
9616:
9617: -----5466645
9618: IF p_progress_mode <> 'BACKDATED' AND p_object_type = 'PA_TASKS'
9624: ,p_element_version_id => l_task_version_id
9625: ,x_return_status => l_return_status
9626: ,x_msg_count => l_msg_count
9627: ,x_msg_data => l_msg_data );
9628: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
9629: THEN
9630: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9631: p_msg_name => l_msg_data);
9632: x_msg_data := l_msg_data;
9630: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9631: p_msg_name => l_msg_data);
9632: x_msg_data := l_msg_data;
9633: x_return_status := 'E';
9634: RAISE FND_API.G_EXC_ERROR;
9635: END IF;
9636:
9637: BEGIN
9638: Select ppev1.proj_element_id
9652: (PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(p_project_id) = 'Y'))
9653: THEN
9654: --copy to transaction dates
9655: PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES(
9656: p_validate_only => FND_API.G_FALSE
9657: ,p_project_id => p_project_id
9658: ,x_return_status => x_return_status
9659: ,x_msg_count => x_msg_count
9660: ,x_msg_data => x_msg_data);
9696:
9697: IF g1_debug_mode = 'Y' THEN
9698: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS', x_Msg => 'After Calling ROLLUP_FUTURE_PROGRESS_PVT l_return_status='||l_return_status, x_Log_Level=> 3);
9699: END IF;
9700: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9701: x_msg_data := l_msg_data;
9702: x_return_status := 'E';
9703: x_msg_count := l_msg_count;
9704: RAISE FND_API.G_EXC_ERROR;
9700: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9701: x_msg_data := l_msg_data;
9702: x_return_status := 'E';
9703: x_msg_count := l_msg_count;
9704: RAISE FND_API.G_EXC_ERROR;
9705: END IF;
9706: END IF; -- IF p_progress_mode <> 'BACKDATED'
9707: END IF; -- ( p_rollup_entire_wbs_flag = 'N' AND l_object_type = 'PA_TASKS' AND l_task_version_id IS NOT NULL)
9708: END IF; -- p_action='PUBLISH'
9737: END IF;
9738: END IF;
9739:
9740:
9741: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9742: x_msg_data := l_msg_data;
9743: x_return_status := 'E';
9744: x_msg_count := l_msg_count;
9745: RAISE FND_API.G_EXC_ERROR;
9741: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9742: x_msg_data := l_msg_data;
9743: x_return_status := 'E';
9744: x_msg_count := l_msg_count;
9745: RAISE FND_API.G_EXC_ERROR;
9746: END IF;
9747:
9748:
9749: -- Bug 3807299 Calling new API update_link_proj_rollup_dates
9772: ,x_msg_data => l_msg_data
9773: );
9774: END IF;
9775:
9776: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9777: x_msg_data := l_msg_data;
9778: x_return_status := 'E';
9779: x_msg_count := l_msg_count;
9780: RAISE FND_API.G_EXC_ERROR;
9776: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9777: x_msg_data := l_msg_data;
9778: x_return_status := 'E';
9779: x_msg_count := l_msg_count;
9780: RAISE FND_API.G_EXC_ERROR;
9781: END IF;
9782:
9783: END IF;
9784:
9782:
9783: END IF;
9784:
9785:
9786: IF (p_commit = FND_API.G_TRUE) THEN
9787: COMMIT;
9788: END IF;
9789: EXCEPTION
9790: when FND_API.G_EXC_ERROR then
9786: IF (p_commit = FND_API.G_TRUE) THEN
9787: COMMIT;
9788: END IF;
9789: EXCEPTION
9790: when FND_API.G_EXC_ERROR then
9791: if p_commit = FND_API.G_TRUE then
9792: rollback to UPDATE_PROGRESS;
9793: end if;
9794: x_return_status := FND_API.G_RET_STS_ERROR;
9787: COMMIT;
9788: END IF;
9789: EXCEPTION
9790: when FND_API.G_EXC_ERROR then
9791: if p_commit = FND_API.G_TRUE then
9792: rollback to UPDATE_PROGRESS;
9793: end if;
9794: x_return_status := FND_API.G_RET_STS_ERROR;
9795: x_msg_count := fnd_msg_pub.count_msg;
9790: when FND_API.G_EXC_ERROR then
9791: if p_commit = FND_API.G_TRUE then
9792: rollback to UPDATE_PROGRESS;
9793: end if;
9794: x_return_status := FND_API.G_RET_STS_ERROR;
9795: x_msg_count := fnd_msg_pub.count_msg;
9796: when FND_API.G_EXC_UNEXPECTED_ERROR then
9797: if p_commit = FND_API.G_TRUE then
9798: rollback to UPDATE_PROGRESS;
9792: rollback to UPDATE_PROGRESS;
9793: end if;
9794: x_return_status := FND_API.G_RET_STS_ERROR;
9795: x_msg_count := fnd_msg_pub.count_msg;
9796: when FND_API.G_EXC_UNEXPECTED_ERROR then
9797: if p_commit = FND_API.G_TRUE then
9798: rollback to UPDATE_PROGRESS;
9799: end if;
9800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9793: end if;
9794: x_return_status := FND_API.G_RET_STS_ERROR;
9795: x_msg_count := fnd_msg_pub.count_msg;
9796: when FND_API.G_EXC_UNEXPECTED_ERROR then
9797: if p_commit = FND_API.G_TRUE then
9798: rollback to UPDATE_PROGRESS;
9799: end if;
9800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9801: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
9796: when FND_API.G_EXC_UNEXPECTED_ERROR then
9797: if p_commit = FND_API.G_TRUE then
9798: rollback to UPDATE_PROGRESS;
9799: end if;
9800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9801: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
9802: p_procedure_name => 'UPDATE_PROGRESS',
9803: p_error_text => SUBSTRB(SQLERRM,1,120));
9804: x_msg_count := fnd_msg_pub.count_msg;
9802: p_procedure_name => 'UPDATE_PROGRESS',
9803: p_error_text => SUBSTRB(SQLERRM,1,120));
9804: x_msg_count := fnd_msg_pub.count_msg;
9805: when OTHERS then
9806: if p_commit = FND_API.G_TRUE then
9807: rollback to UPDATE_PROGRESS;
9808: end if;
9809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9810: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
9805: when OTHERS then
9806: if p_commit = FND_API.G_TRUE then
9807: rollback to UPDATE_PROGRESS;
9808: end if;
9809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9810: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
9811: p_procedure_name => 'UPDATE_PROGRESS',
9812: p_error_text => SUBSTRB(SQLERRM,1,120));
9813: x_msg_count := fnd_msg_pub.count_msg;
9817: -- Progress Management Changes. Bug # 3420093.
9818:
9819: PROCEDURE populate_pji_tab_for_plan(
9820: p_api_version IN NUMBER :=1.0
9821: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
9822: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
9823: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
9824: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
9825: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
9818:
9819: PROCEDURE populate_pji_tab_for_plan(
9820: p_api_version IN NUMBER :=1.0
9821: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
9822: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
9823: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
9824: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
9825: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
9826: ,p_debug_mode IN VARCHAR2 :='N'
9819: PROCEDURE populate_pji_tab_for_plan(
9820: p_api_version IN NUMBER :=1.0
9821: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
9822: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
9823: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
9824: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
9825: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
9826: ,p_debug_mode IN VARCHAR2 :='N'
9827: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
9820: p_api_version IN NUMBER :=1.0
9821: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
9822: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
9823: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
9824: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
9825: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
9826: ,p_debug_mode IN VARCHAR2 :='N'
9827: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
9828: ,p_project_id IN NUMBER
9862: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.POPULATE_PJI_TAB_FOR_PLAN', x_Msg => 'p_program_rollup_flag='||p_program_rollup_flag, x_Log_Level=> 3);
9863: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.POPULATE_PJI_TAB_FOR_PLAN', x_Msg => 'p_calling_context='||p_calling_context, x_Log_Level=> 3);
9864: END IF;
9865:
9866: IF (p_commit = FND_API.G_TRUE) THEN
9867: savepoint plan_qtys;
9868: END IF;
9869:
9870: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
9866: IF (p_commit = FND_API.G_TRUE) THEN
9867: savepoint plan_qtys;
9868: END IF;
9869:
9870: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
9871: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9872: END IF;
9873:
9874: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
9867: savepoint plan_qtys;
9868: END IF;
9869:
9870: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
9871: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9872: END IF;
9873:
9874: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
9875: FND_MSG_PUB.initialize;
9870: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
9871: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9872: END IF;
9873:
9874: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
9875: FND_MSG_PUB.initialize;
9876: END IF;
9877:
9878: x_return_status := FND_API.G_RET_STS_SUCCESS;
9874: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
9875: FND_MSG_PUB.initialize;
9876: END IF;
9877:
9878: x_return_status := FND_API.G_RET_STS_SUCCESS;
9879:
9880: --bug 4290593
9881: IF p_populate_tmp_tab_flag = 'N' AND PA_PROJ_STRUCTURE_UTILS.CHECK_PJI_TEMP_TAB_POPULATED(p_project_id) = 'Y'
9882: THEN
9938: WHEN OTHERS THEN
9939: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
9940: p_procedure_name => 'POPULATE_PJI_TAB_FOR_PLAN',
9941: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data Failed. SQLERRM='||SQLERRM,1,120));
9942: RAISE FND_API.G_EXC_ERROR;
9943: END;
9944:
9945: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9946: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9941: p_error_text => SUBSTRB('Call of PJI_FM_XBS_ACCUM_UTILS.populate_workplan_data Failed. SQLERRM='||SQLERRM,1,120));
9942: RAISE FND_API.G_EXC_ERROR;
9943: END;
9944:
9945: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9946: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9947: p_msg_name => l_msg_data);
9948: x_msg_data := l_msg_data;
9949: x_return_status := 'E';
9947: p_msg_name => l_msg_data);
9948: x_msg_data := l_msg_data;
9949: x_return_status := 'E';
9950: x_msg_count := l_msg_count;
9951: RAISE FND_API.G_EXC_ERROR;
9952: END IF;
9953:
9954:
9955: EXCEPTION
9952: END IF;
9953:
9954:
9955: EXCEPTION
9956: when FND_API.G_EXC_ERROR then
9957: if p_commit = FND_API.G_TRUE then
9958: rollback to plan_qtys;
9959: end if;
9960: x_return_status := FND_API.G_RET_STS_ERROR;
9953:
9954:
9955: EXCEPTION
9956: when FND_API.G_EXC_ERROR then
9957: if p_commit = FND_API.G_TRUE then
9958: rollback to plan_qtys;
9959: end if;
9960: x_return_status := FND_API.G_RET_STS_ERROR;
9961: when FND_API.G_EXC_UNEXPECTED_ERROR then
9956: when FND_API.G_EXC_ERROR then
9957: if p_commit = FND_API.G_TRUE then
9958: rollback to plan_qtys;
9959: end if;
9960: x_return_status := FND_API.G_RET_STS_ERROR;
9961: when FND_API.G_EXC_UNEXPECTED_ERROR then
9962: if p_commit = FND_API.G_TRUE then
9963: rollback to plan_qtys;
9964: end if;
9957: if p_commit = FND_API.G_TRUE then
9958: rollback to plan_qtys;
9959: end if;
9960: x_return_status := FND_API.G_RET_STS_ERROR;
9961: when FND_API.G_EXC_UNEXPECTED_ERROR then
9962: if p_commit = FND_API.G_TRUE then
9963: rollback to plan_qtys;
9964: end if;
9965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9958: rollback to plan_qtys;
9959: end if;
9960: x_return_status := FND_API.G_RET_STS_ERROR;
9961: when FND_API.G_EXC_UNEXPECTED_ERROR then
9962: if p_commit = FND_API.G_TRUE then
9963: rollback to plan_qtys;
9964: end if;
9965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9966: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
9961: when FND_API.G_EXC_UNEXPECTED_ERROR then
9962: if p_commit = FND_API.G_TRUE then
9963: rollback to plan_qtys;
9964: end if;
9965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9966: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
9967: p_procedure_name => 'populate_pji_tab_for_plan',
9968: p_error_text => SUBSTRB(SQLERRM,1,120));
9969: when OTHERS then
9966: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
9967: p_procedure_name => 'populate_pji_tab_for_plan',
9968: p_error_text => SUBSTRB(SQLERRM,1,120));
9969: when OTHERS then
9970: if p_commit = FND_API.G_TRUE then
9971: rollback to plan_qtys;
9972: end if;
9973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9974: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
9969: when OTHERS then
9970: if p_commit = FND_API.G_TRUE then
9971: rollback to plan_qtys;
9972: end if;
9973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9974: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
9975: p_procedure_name => 'populate_pji_tab_for_plan',
9976: p_error_text => SUBSTRB(SQLERRM,1,120));
9977: raise;
9980: -- This API takes Actual and ETC incrmental amounts to update in PJI data model
9981:
9982: PROCEDURE push_workplan_actuals(
9983: p_api_version IN NUMBER :=1.0
9984: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
9985: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
9986: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
9987: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
9988: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
9981:
9982: PROCEDURE push_workplan_actuals(
9983: p_api_version IN NUMBER :=1.0
9984: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
9985: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
9986: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
9987: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
9988: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
9989: ,p_debug_mode IN VARCHAR2 :='N'
9982: PROCEDURE push_workplan_actuals(
9983: p_api_version IN NUMBER :=1.0
9984: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
9985: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
9986: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
9987: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
9988: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
9989: ,p_debug_mode IN VARCHAR2 :='N'
9990: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
9983: p_api_version IN NUMBER :=1.0
9984: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
9985: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
9986: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
9987: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
9988: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
9989: ,p_debug_mode IN VARCHAR2 :='N'
9990: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
9991: ,p_project_Id NUMBER
10115: pa_debug.debug('PA_PROGRESS_PUB.push_workplan_actuals');
10116: END IF;
10117: END IF;
10118:
10119: IF (p_commit = FND_API.G_TRUE) THEN
10120: savepoint push_actuals;
10121: END IF;
10122:
10123: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
10119: IF (p_commit = FND_API.G_TRUE) THEN
10120: savepoint push_actuals;
10121: END IF;
10122:
10123: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
10124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10125: END IF;
10126:
10127: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
10120: savepoint push_actuals;
10121: END IF;
10122:
10123: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
10124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10125: END IF;
10126:
10127: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
10128: FND_MSG_PUB.initialize;
10123: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
10124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10125: END IF;
10126:
10127: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
10128: FND_MSG_PUB.initialize;
10129: END IF;
10130:
10131: x_return_status := FND_API.G_RET_STS_SUCCESS;
10127: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
10128: FND_MSG_PUB.initialize;
10129: END IF;
10130:
10131: x_return_status := FND_API.G_RET_STS_SUCCESS;
10132: l_track_wp_cost_flag := pa_fp_wp_gen_amt_utils.get_wp_track_cost_amt_flag(p_project_id); --Bug 3801745
10133:
10134: IF NVL(p_structure_version_id,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM --bug 3625085
10135: THEN
10225: WHEN OTHERS THEN
10226: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
10227: p_procedure_name => 'push_workplan_actuals',
10228: p_error_text => SUBSTRB('PA_FIN_PLAN_UTILS.Get_wp_bv_time_phase:'||SQLERRM,1,120));
10229: RAISE FND_API.G_EXC_ERROR;
10230: END;
10231:
10232:
10233: IF l_period_type = 'P' AND p_pa_period_name IS NOT NULL
10254: WHEN OTHERS THEN
10255: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
10256: p_procedure_name => 'PUSH_WORKPLAN_ACTUALS',
10257: p_error_text => SUBSTRB('Call Pa_Fp_wp_gen_amt_utils.get_wp_ptype_id:'||SQLERRM,1,120));
10258: RAISE FND_API.G_EXC_ERROR;
10259: END;
10260:
10261: BEGIN
10262: l_plan_version_id := Pa_Fp_wp_gen_amt_utils.get_wp_version_id(
10267: WHEN OTHERS THEN
10268: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
10269: p_procedure_name => 'PUSH_WORKPLAN_ACTUALS',
10270: p_error_text => SUBSTRB('Call Pa_Fp_wp_gen_amt_utils.get_wp_version_id:'||SQLERRM,1,120));
10271: RAISE FND_API.G_EXC_ERROR;
10272: END;
10273:
10274: BEGIN
10275:
10425: WHEN OTHERS THEN
10426: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
10427: p_procedure_name => 'push_workplan_actuals',
10428: p_error_text => SUBSTRB('INSERT INTO PJI_FM_EXTR_PLAN_LINES:'||SQLERRM,1,120));
10429: RAISE FND_API.G_EXC_ERROR;
10430: END;
10431:
10432: -- Bug 4186007 Begin
10433: -- Now we will not use POPULATE_PRG_ACT_TBL_SINGLE to poulate the PA_PROG_ACT_BY_PERIOD_TEMP
10514: -- NO NEED TO CALL PLAN_UPDATE HERE. IT IS CALLED IN UPDATE_PROGRESS ONLY
10515:
10516:
10517: IF x_return_status <> 'S' THEN
10518: RAISE FND_API.G_EXC_ERROR;
10519: END IF;
10520:
10521: EXCEPTION
10522: when FND_API.G_EXC_ERROR then
10518: RAISE FND_API.G_EXC_ERROR;
10519: END IF;
10520:
10521: EXCEPTION
10522: when FND_API.G_EXC_ERROR then
10523: if p_commit = FND_API.G_TRUE then
10524: rollback to push_actuals;
10525: end if;
10526: x_return_status := FND_API.G_RET_STS_ERROR;
10519: END IF;
10520:
10521: EXCEPTION
10522: when FND_API.G_EXC_ERROR then
10523: if p_commit = FND_API.G_TRUE then
10524: rollback to push_actuals;
10525: end if;
10526: x_return_status := FND_API.G_RET_STS_ERROR;
10527: when FND_API.G_EXC_UNEXPECTED_ERROR then
10522: when FND_API.G_EXC_ERROR then
10523: if p_commit = FND_API.G_TRUE then
10524: rollback to push_actuals;
10525: end if;
10526: x_return_status := FND_API.G_RET_STS_ERROR;
10527: when FND_API.G_EXC_UNEXPECTED_ERROR then
10528: if p_commit = FND_API.G_TRUE then
10529: rollback to push_actuals;
10530: end if;
10523: if p_commit = FND_API.G_TRUE then
10524: rollback to push_actuals;
10525: end if;
10526: x_return_status := FND_API.G_RET_STS_ERROR;
10527: when FND_API.G_EXC_UNEXPECTED_ERROR then
10528: if p_commit = FND_API.G_TRUE then
10529: rollback to push_actuals;
10530: end if;
10531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10524: rollback to push_actuals;
10525: end if;
10526: x_return_status := FND_API.G_RET_STS_ERROR;
10527: when FND_API.G_EXC_UNEXPECTED_ERROR then
10528: if p_commit = FND_API.G_TRUE then
10529: rollback to push_actuals;
10530: end if;
10531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10532: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
10527: when FND_API.G_EXC_UNEXPECTED_ERROR then
10528: if p_commit = FND_API.G_TRUE then
10529: rollback to push_actuals;
10530: end if;
10531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10532: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
10533: p_procedure_name => 'push_workplan_actuals',
10534: p_error_text => SUBSTRB(SQLERRM,1,120));
10535: when OTHERS then
10532: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
10533: p_procedure_name => 'push_workplan_actuals',
10534: p_error_text => SUBSTRB(SQLERRM,1,120));
10535: when OTHERS then
10536: if p_commit = FND_API.G_TRUE then
10537: rollback to push_actuals;
10538: end if;
10539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10540: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
10535: when OTHERS then
10536: if p_commit = FND_API.G_TRUE then
10537: rollback to push_actuals;
10538: end if;
10539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10540: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
10541: p_procedure_name => 'push_workplan_actuals',
10542: p_error_text => SUBSTRB(SQLERRM,1,120));
10543: raise;
10546: -- Progress Management Change for bug # 3420093.
10547:
10548: PROCEDURE program_rollup_pvt(
10549: p_api_version IN NUMBER :=1.0
10550: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
10551: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
10552: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
10553: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
10554: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
10547:
10548: PROCEDURE program_rollup_pvt(
10549: p_api_version IN NUMBER :=1.0
10550: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
10551: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
10552: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
10553: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
10554: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
10555: ,p_debug_mode IN VARCHAR2 :='N'
10548: PROCEDURE program_rollup_pvt(
10549: p_api_version IN NUMBER :=1.0
10550: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
10551: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
10552: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
10553: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
10554: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
10555: ,p_debug_mode IN VARCHAR2 :='N'
10556: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
10549: p_api_version IN NUMBER :=1.0
10550: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
10551: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
10552: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
10553: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
10554: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
10555: ,p_debug_mode IN VARCHAR2 :='N'
10556: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
10557: ,p_project_id IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
10595: IF g1_debug_mode = 'Y' THEN
10596: pa_debug.init_err_stack ('PA_PROGRESS_PUB.PROGRAM_ROLLUP_PVT');
10597: END IF;
10598:
10599: IF (p_commit = FND_API.G_TRUE) THEN
10600: savepoint PROGRAM_ROLLUP_PVT;
10601: END IF;
10602:
10603: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
10599: IF (p_commit = FND_API.G_TRUE) THEN
10600: savepoint PROGRAM_ROLLUP_PVT;
10601: END IF;
10602:
10603: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
10604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10605: END IF;
10606:
10607: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
10600: savepoint PROGRAM_ROLLUP_PVT;
10601: END IF;
10602:
10603: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
10604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10605: END IF;
10606:
10607: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
10608: FND_MSG_PUB.initialize;
10603: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
10604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10605: END IF;
10606:
10607: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
10608: FND_MSG_PUB.initialize;
10609: END IF;
10610:
10611: x_return_status := FND_API.G_RET_STS_SUCCESS;
10607: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
10608: FND_MSG_PUB.initialize;
10609: END IF;
10610:
10611: x_return_status := FND_API.G_RET_STS_SUCCESS;
10612:
10613: -- Bug # 3879910. Call corresponding API in package: PA_PROGRESS_PVT.
10614:
10615: PA_PROGRESS_PVT.program_rollup_pvt(
10628: ,x_return_status => l_return_status
10629: ,x_msg_count => l_msg_count
10630: ,x_msg_data => l_msg_data);
10631:
10632: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10633: x_msg_data := l_msg_data;
10634: x_return_status := 'E';
10635: x_msg_count := l_msg_count;
10636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10632: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10633: x_msg_data := l_msg_data;
10634: x_return_status := 'E';
10635: x_msg_count := l_msg_count;
10636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10637: END IF;
10638:
10639: IF (p_commit = FND_API.G_TRUE) THEN
10640: COMMIT;
10635: x_msg_count := l_msg_count;
10636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10637: END IF;
10638:
10639: IF (p_commit = FND_API.G_TRUE) THEN
10640: COMMIT;
10641: END IF;
10642:
10643: EXCEPTION
10640: COMMIT;
10641: END IF;
10642:
10643: EXCEPTION
10644: when FND_API.G_EXC_ERROR then
10645: if p_commit = FND_API.G_TRUE then
10646: rollback to PROGRAM_ROLLUP_PVT;
10647: end if;
10648: x_return_status := FND_API.G_RET_STS_ERROR;
10641: END IF;
10642:
10643: EXCEPTION
10644: when FND_API.G_EXC_ERROR then
10645: if p_commit = FND_API.G_TRUE then
10646: rollback to PROGRAM_ROLLUP_PVT;
10647: end if;
10648: x_return_status := FND_API.G_RET_STS_ERROR;
10649: when FND_API.G_EXC_UNEXPECTED_ERROR then
10644: when FND_API.G_EXC_ERROR then
10645: if p_commit = FND_API.G_TRUE then
10646: rollback to PROGRAM_ROLLUP_PVT;
10647: end if;
10648: x_return_status := FND_API.G_RET_STS_ERROR;
10649: when FND_API.G_EXC_UNEXPECTED_ERROR then
10650: if p_commit = FND_API.G_TRUE then
10651: rollback to PROGRAM_ROLLUP_PVT;
10652: end if;
10645: if p_commit = FND_API.G_TRUE then
10646: rollback to PROGRAM_ROLLUP_PVT;
10647: end if;
10648: x_return_status := FND_API.G_RET_STS_ERROR;
10649: when FND_API.G_EXC_UNEXPECTED_ERROR then
10650: if p_commit = FND_API.G_TRUE then
10651: rollback to PROGRAM_ROLLUP_PVT;
10652: end if;
10653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10646: rollback to PROGRAM_ROLLUP_PVT;
10647: end if;
10648: x_return_status := FND_API.G_RET_STS_ERROR;
10649: when FND_API.G_EXC_UNEXPECTED_ERROR then
10650: if p_commit = FND_API.G_TRUE then
10651: rollback to PROGRAM_ROLLUP_PVT;
10652: end if;
10653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10654: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
10649: when FND_API.G_EXC_UNEXPECTED_ERROR then
10650: if p_commit = FND_API.G_TRUE then
10651: rollback to PROGRAM_ROLLUP_PVT;
10652: end if;
10653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10654: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
10655: p_procedure_name => 'PROGRAM_ROLLUP_PVT',
10656: p_error_text => SUBSTRB(SQLERRM,1,120));
10657: when OTHERS then
10654: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
10655: p_procedure_name => 'PROGRAM_ROLLUP_PVT',
10656: p_error_text => SUBSTRB(SQLERRM,1,120));
10657: when OTHERS then
10658: if p_commit = FND_API.G_TRUE then
10659: rollback to PROGRAM_ROLLUP_PVT;
10660: end if;
10661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10662: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
10657: when OTHERS then
10658: if p_commit = FND_API.G_TRUE then
10659: rollback to PROGRAM_ROLLUP_PVT;
10660: end if;
10661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10662: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
10663: p_procedure_name => 'PROGRAM_ROLLUP_PVT',
10664: p_error_text => SUBSTRB(SQLERRM,1,120));
10665: raise;
10666: END program_rollup_pvt;
10667:
10668: PROCEDURE transfer_wp_percent_to_fin(
10669: p_api_version IN NUMBER :=1.0
10670: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
10671: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
10672: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
10673: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
10674: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
10667:
10668: PROCEDURE transfer_wp_percent_to_fin(
10669: p_api_version IN NUMBER :=1.0
10670: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
10671: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
10672: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
10673: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
10674: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
10675: ,p_debug_mode IN VARCHAR2 :='N'
10668: PROCEDURE transfer_wp_percent_to_fin(
10669: p_api_version IN NUMBER :=1.0
10670: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
10671: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
10672: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
10673: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
10674: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
10675: ,p_debug_mode IN VARCHAR2 :='N'
10676: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
10669: p_api_version IN NUMBER :=1.0
10670: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
10671: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
10672: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
10673: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
10674: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
10675: ,p_debug_mode IN VARCHAR2 :='N'
10676: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
10677: ,p_project_id IN NUMBER
10791: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.TRANSFER_WP_PERCENT_TO_FIN', x_Msg => 'p_project_id : '||p_project_id, x_Log_Level=> 3);
10792: END IF;
10793:
10794:
10795: IF (p_commit = FND_API.G_TRUE) THEN
10796: SAVEPOINT TRANSFER_WP_PERCENT_TO_FIN;
10797: END IF;
10798:
10799: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
10795: IF (p_commit = FND_API.G_TRUE) THEN
10796: SAVEPOINT TRANSFER_WP_PERCENT_TO_FIN;
10797: END IF;
10798:
10799: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
10800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10801: END IF;
10802:
10803: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
10796: SAVEPOINT TRANSFER_WP_PERCENT_TO_FIN;
10797: END IF;
10798:
10799: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
10800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10801: END IF;
10802:
10803: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
10804: FND_MSG_PUB.initialize;
10799: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
10800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10801: END IF;
10802:
10803: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
10804: FND_MSG_PUB.initialize;
10805: END IF;
10806:
10807:
10804: FND_MSG_PUB.initialize;
10805: END IF;
10806:
10807:
10808: x_return_status := FND_API.G_RET_STS_SUCCESS;
10809:
10810: IF g1_debug_mode = 'Y' THEN
10811: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.TRANSFER_WP_PERCENT_TO_FIN', x_Msg => 'getting the structure sharing code', x_Log_Level=> 3);
10812: END IF;
10825: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
10826: ,p_msg_name => 'PA_PS_WORKPLAN_DISABLED');
10827: x_msg_data := 'PA_PS_WORKPLAN_DISABLED';
10828: x_return_status := 'E';
10829: RAISE FND_API.G_EXC_ERROR;
10830: END IF;
10831:
10832:
10833: IF ((l_structure_sharing_code = 'SPLIT_NO_MAPPING') or l_structure_sharing_code is null) -- Added OR condition for Bug no 4767821.
10835: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
10836: ,p_msg_name => 'PA_TRAN_SHCODE_INV');
10837: x_msg_data := 'PA_TRAN_SHCODE_INV';
10838: x_return_status := 'E';
10839: RAISE FND_API.G_EXC_ERROR;
10840: END IF;
10841:
10842: OPEN c_max_date;
10843: FETCH c_max_date INTO l_as_of_date;
10906: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
10907: ,p_msg_name => 'PA_NO_PUBLISHED_VERSION');
10908: x_msg_data := 'PA_NO_PUBLISHED_VERSION';
10909: x_return_status := 'E';
10910: RAISE FND_API.G_EXC_ERROR;
10911: END IF;
10912: -- Bug 3696820 : begin
10913: BEGIN
10914: l_baselined_str_ver_id := PA_PROJECT_STRUCTURE_UTILS.Get_Baseline_Struct_Ver(p_project_id);
10917: l_baselined_str_ver_id := null;
10918: END;
10919:
10920: pa_progress_pub.populate_pji_tab_for_plan(
10921: p_init_msg_list => FND_API.G_FALSE,
10922: p_calling_module => p_calling_module,
10923: p_project_id => p_project_id,
10924: p_structure_version_id => l_structure_version_id,
10925: p_baselined_str_ver_id => l_baselined_str_ver_id,
10928: x_msg_count => l_msg_count,
10929: x_msg_data => l_msg_data
10930: );
10931:
10932: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10933: x_msg_data := l_msg_data;
10934: x_return_status := 'E';
10935: x_msg_count := l_msg_count;
10936: RAISE FND_API.G_EXC_ERROR;
10932: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10933: x_msg_data := l_msg_data;
10934: x_return_status := 'E';
10935: x_msg_count := l_msg_count;
10936: RAISE FND_API.G_EXC_ERROR;
10937: END IF;
10938: -- Bug 3696820 : end
10939:
10940: -- Bug 3952006 : Begin
11015: END IF;
11016: END LOOP;
11017: END IF;
11018:
11019: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11020: x_msg_data := l_msg_data;
11021: x_return_status := 'E';
11022: x_msg_count := l_msg_count;
11023: RAISE FND_API.G_EXC_ERROR;
11019: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11020: x_msg_data := l_msg_data;
11021: x_return_status := 'E';
11022: x_msg_count := l_msg_count;
11023: RAISE FND_API.G_EXC_ERROR;
11024: END IF;
11025: -- Bug 3603636 : Added call of Rollup API
11026:
11027: IF l_call_rollup = 'Y' THEN -- Bug 4136239
11036: x_msg_count => l_msg_count,
11037: x_msg_data => l_msg_data
11038: );
11039:
11040: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11041: x_msg_data := l_msg_data;
11042: x_return_status := 'E';
11043: x_msg_count := l_msg_count;
11044: RAISE FND_API.G_EXC_ERROR;
11040: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11041: x_msg_data := l_msg_data;
11042: x_return_status := 'E';
11043: x_msg_count := l_msg_count;
11044: RAISE FND_API.G_EXC_ERROR;
11045: END IF;
11046:
11047: OPEN c_get_task_weight_method(p_project_id, 'FINANCIAL');
11048: FETCH c_get_task_weight_method INTO l_rollup_method;
11067: ,x_msg_count => l_msg_count
11068: ,x_msg_data => l_msg_data);
11069:
11070:
11071: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11072: x_msg_data := l_msg_data;
11073: x_return_status := 'E';
11074: x_msg_count := l_msg_count;
11075: RAISE FND_API.G_EXC_ERROR;
11071: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11072: x_msg_data := l_msg_data;
11073: x_return_status := 'E';
11074: x_msg_count := l_msg_count;
11075: RAISE FND_API.G_EXC_ERROR;
11076: END IF;
11077: END IF; --IF l_call_rollup = 'Y'
11078:
11079: IF (p_commit = FND_API.G_TRUE) THEN
11075: RAISE FND_API.G_EXC_ERROR;
11076: END IF;
11077: END IF; --IF l_call_rollup = 'Y'
11078:
11079: IF (p_commit = FND_API.G_TRUE) THEN
11080: COMMIT;
11081: END IF;
11082: EXCEPTION
11083: when FND_API.G_EXC_ERROR then
11079: IF (p_commit = FND_API.G_TRUE) THEN
11080: COMMIT;
11081: END IF;
11082: EXCEPTION
11083: when FND_API.G_EXC_ERROR then
11084: if p_commit = FND_API.G_TRUE then
11085: rollback to TRANSFER_WP_PERCENT_TO_FIN;
11086: end if;
11087: x_return_status := FND_API.G_RET_STS_ERROR;
11080: COMMIT;
11081: END IF;
11082: EXCEPTION
11083: when FND_API.G_EXC_ERROR then
11084: if p_commit = FND_API.G_TRUE then
11085: rollback to TRANSFER_WP_PERCENT_TO_FIN;
11086: end if;
11087: x_return_status := FND_API.G_RET_STS_ERROR;
11088: when FND_API.G_EXC_UNEXPECTED_ERROR then
11083: when FND_API.G_EXC_ERROR then
11084: if p_commit = FND_API.G_TRUE then
11085: rollback to TRANSFER_WP_PERCENT_TO_FIN;
11086: end if;
11087: x_return_status := FND_API.G_RET_STS_ERROR;
11088: when FND_API.G_EXC_UNEXPECTED_ERROR then
11089: if p_commit = FND_API.G_TRUE then
11090: rollback to TRANSFER_WP_PERCENT_TO_FIN;
11091: end if;
11084: if p_commit = FND_API.G_TRUE then
11085: rollback to TRANSFER_WP_PERCENT_TO_FIN;
11086: end if;
11087: x_return_status := FND_API.G_RET_STS_ERROR;
11088: when FND_API.G_EXC_UNEXPECTED_ERROR then
11089: if p_commit = FND_API.G_TRUE then
11090: rollback to TRANSFER_WP_PERCENT_TO_FIN;
11091: end if;
11092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11085: rollback to TRANSFER_WP_PERCENT_TO_FIN;
11086: end if;
11087: x_return_status := FND_API.G_RET_STS_ERROR;
11088: when FND_API.G_EXC_UNEXPECTED_ERROR then
11089: if p_commit = FND_API.G_TRUE then
11090: rollback to TRANSFER_WP_PERCENT_TO_FIN;
11091: end if;
11092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11093: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
11088: when FND_API.G_EXC_UNEXPECTED_ERROR then
11089: if p_commit = FND_API.G_TRUE then
11090: rollback to TRANSFER_WP_PERCENT_TO_FIN;
11091: end if;
11092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11093: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
11094: p_procedure_name => 'TRANSFER_WP_PERCENT_TO_FIN',
11095: p_error_text => SUBSTRB(SQLERRM,1,120));
11096: when OTHERS then
11093: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
11094: p_procedure_name => 'TRANSFER_WP_PERCENT_TO_FIN',
11095: p_error_text => SUBSTRB(SQLERRM,1,120));
11096: when OTHERS then
11097: if p_commit = FND_API.G_TRUE then
11098: rollback to TRANSFER_WP_PERCENT_TO_FIN;
11099: end if;
11100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11101: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
11096: when OTHERS then
11097: if p_commit = FND_API.G_TRUE then
11098: rollback to TRANSFER_WP_PERCENT_TO_FIN;
11099: end if;
11100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11101: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
11102: p_procedure_name => 'TRANSFER_WP_PERCENT_TO_FIN',
11103: p_error_text => SUBSTRB(SQLERRM,1,120));
11104: raise;
11108: --Bug 5027965. Made sure that the ETC cost is copied from current working version
11109: --if the latest progress is already applied
11110: PROCEDURE publish_progress(
11111: p_api_version IN NUMBER :=1.0
11112: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
11113: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
11114: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
11115: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
11116: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
11109: --if the latest progress is already applied
11110: PROCEDURE publish_progress(
11111: p_api_version IN NUMBER :=1.0
11112: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
11113: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
11114: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
11115: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
11116: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
11117: ,p_debug_mode IN VARCHAR2 :='N'
11110: PROCEDURE publish_progress(
11111: p_api_version IN NUMBER :=1.0
11112: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
11113: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
11114: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
11115: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
11116: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
11117: ,p_debug_mode IN VARCHAR2 :='N'
11118: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
11111: p_api_version IN NUMBER :=1.0
11112: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
11113: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
11114: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
11115: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
11116: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
11117: ,p_debug_mode IN VARCHAR2 :='N'
11118: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
11119: ,p_project_id IN NUMBER
11634: IF g1_debug_mode = 'Y' THEN
11635: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.PUBLISH_PROGRESS', x_Msg => 'p_project_id : '||p_project_id, x_Log_Level=> 3);
11636: END IF;
11637:
11638: IF (p_commit = FND_API.G_TRUE) THEN
11639: SAVEPOINT PUBLISH_PROGRESS;
11640: END IF;
11641:
11642: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
11638: IF (p_commit = FND_API.G_TRUE) THEN
11639: SAVEPOINT PUBLISH_PROGRESS;
11640: END IF;
11641:
11642: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
11643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11644: END IF;
11645:
11646: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
11639: SAVEPOINT PUBLISH_PROGRESS;
11640: END IF;
11641:
11642: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
11643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11644: END IF;
11645:
11646: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
11647: FND_MSG_PUB.initialize;
11642: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
11643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11644: END IF;
11645:
11646: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
11647: FND_MSG_PUB.initialize;
11648: END IF;
11649:
11650: x_return_status := FND_API.G_RET_STS_SUCCESS;
11646: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
11647: FND_MSG_PUB.initialize;
11648: END IF;
11649:
11650: x_return_status := FND_API.G_RET_STS_SUCCESS;
11651:
11652: -- Bug 4111107
11653: -- Now it will create Progress records for all objects
11654: -- for which they have progress records for working wp version
12203: ,x_msg_count => x_msg_count
12204: ,x_msg_data => x_msg_data
12205: );
12206: IF x_return_status <> 'S' THEN
12207: raise FND_API.G_EXC_ERROR;
12208: END IF;
12209: END IF;
12210: ELSIF l_estimated_remaining_effort IS NOT NULL THEN
12211: IF l_estimated_remaining_effort = 0 THEN
12244: ,x_msg_count => x_msg_count
12245: ,x_msg_data => x_msg_data
12246: );
12247: IF x_return_status <> 'S' THEN
12248: raise FND_API.G_EXC_ERROR;
12249: END IF;
12250: END IF;
12251: ELSIF l_eqpmt_etc_effort IS NOT NULL THEN
12252: IF l_eqpmt_etc_effort = 0 THEN
12285: ,x_msg_count => x_msg_count
12286: ,x_msg_data => x_msg_data
12287: );
12288: IF x_return_status <> 'S' THEN
12289: raise FND_API.G_EXC_ERROR;
12290: END IF;
12291: END IF;
12292: END IF;
12293: END IF;
12756: x_task_weight_basis_code := l_task_weight_basis_code;
12757: --rtarway, BUG 3951024
12758: x_upd_new_elem_ver_id_flag := l_upd_new_elem_ver_id_flag;
12759:
12760: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12761: x_return_status := 'E';
12762: x_msg_count := x_msg_count;
12763: RAISE FND_API.G_EXC_ERROR;
12764: END IF;
12759:
12760: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12761: x_return_status := 'E';
12762: x_msg_count := x_msg_count;
12763: RAISE FND_API.G_EXC_ERROR;
12764: END IF;
12765:
12766:
12767: IF (p_commit = FND_API.G_TRUE) THEN
12763: RAISE FND_API.G_EXC_ERROR;
12764: END IF;
12765:
12766:
12767: IF (p_commit = FND_API.G_TRUE) THEN
12768: COMMIT;
12769: END IF;
12770: EXCEPTION
12771: when FND_API.G_EXC_ERROR then
12767: IF (p_commit = FND_API.G_TRUE) THEN
12768: COMMIT;
12769: END IF;
12770: EXCEPTION
12771: when FND_API.G_EXC_ERROR then
12772: if p_commit = FND_API.G_TRUE then
12773: rollback to PUBLISH_PROGRESS;
12774: end if;
12775: x_return_status := FND_API.G_RET_STS_ERROR;
12768: COMMIT;
12769: END IF;
12770: EXCEPTION
12771: when FND_API.G_EXC_ERROR then
12772: if p_commit = FND_API.G_TRUE then
12773: rollback to PUBLISH_PROGRESS;
12774: end if;
12775: x_return_status := FND_API.G_RET_STS_ERROR;
12776: when FND_API.G_EXC_UNEXPECTED_ERROR then
12771: when FND_API.G_EXC_ERROR then
12772: if p_commit = FND_API.G_TRUE then
12773: rollback to PUBLISH_PROGRESS;
12774: end if;
12775: x_return_status := FND_API.G_RET_STS_ERROR;
12776: when FND_API.G_EXC_UNEXPECTED_ERROR then
12777: if p_commit = FND_API.G_TRUE then
12778: rollback to PUBLISH_PROGRESS;
12779: end if;
12772: if p_commit = FND_API.G_TRUE then
12773: rollback to PUBLISH_PROGRESS;
12774: end if;
12775: x_return_status := FND_API.G_RET_STS_ERROR;
12776: when FND_API.G_EXC_UNEXPECTED_ERROR then
12777: if p_commit = FND_API.G_TRUE then
12778: rollback to PUBLISH_PROGRESS;
12779: end if;
12780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12773: rollback to PUBLISH_PROGRESS;
12774: end if;
12775: x_return_status := FND_API.G_RET_STS_ERROR;
12776: when FND_API.G_EXC_UNEXPECTED_ERROR then
12777: if p_commit = FND_API.G_TRUE then
12778: rollback to PUBLISH_PROGRESS;
12779: end if;
12780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12781: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
12776: when FND_API.G_EXC_UNEXPECTED_ERROR then
12777: if p_commit = FND_API.G_TRUE then
12778: rollback to PUBLISH_PROGRESS;
12779: end if;
12780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12781: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
12782: p_procedure_name => 'PUBLISH_PROGRESS',
12783: p_error_text => SUBSTRB(SQLERRM,1,120));
12784: when OTHERS then
12781: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
12782: p_procedure_name => 'PUBLISH_PROGRESS',
12783: p_error_text => SUBSTRB(SQLERRM,1,120));
12784: when OTHERS then
12785: if p_commit = FND_API.G_TRUE then
12786: rollback to PUBLISH_PROGRESS;
12787: end if;
12788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12789: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
12784: when OTHERS then
12785: if p_commit = FND_API.G_TRUE then
12786: rollback to PUBLISH_PROGRESS;
12787: end if;
12788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12789: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
12790: p_procedure_name => 'PUBLISH_PROGRESS',
12791: p_error_text => SUBSTRB(SQLERRM,1,120));
12792: raise;
14054: x_msg_code => x_msg_code);
14055:
14056: /* Begin: Added for bug 5526638*/
14057: /* Added and condition for bug#5659575*/
14058: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS and p_extraction_type <> 'PUBLISH') then
14059: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
14060: p_msg_name => x_msg_code);
14061: x_msg_data := x_msg_code;
14062: x_return_status := 'E';
14109: x_return_status => x_return_status,
14110: x_msg_code => x_msg_code );
14111: /* Begin: Added for bug 5526638*/
14112: /* Added and condition for bug#5659575*/
14113: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS and p_extraction_type <> 'PUBLISH') THEN
14114: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
14115: p_msg_name => x_msg_code);
14116: x_msg_data := x_msg_code;
14117: x_return_status := 'E';
17386: IF x_return_status <> 'S' THEN
17387: pa_debug.log_message('GET_SUMM_ACT: For Insert GET_TASK_RES_OVERRIDE_INFO returned error for object_id='||OBJECT_ID(l_index1), 1);
17388: -- Added for bug 5526638
17389: l_err_msg := 'Progress Client extension returned error for object_id='||OBJECT_ID(l_index1);
17390: raise FND_API.G_EXC_ERROR;
17391: END IF;
17392:
17393: IF nvl(ESTIMATED_START_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_start_date,FND_API.g_miss_date)
17394: OR nvl(ESTIMATED_FINISH_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_finish_date,FND_API.g_miss_date)
17389: l_err_msg := 'Progress Client extension returned error for object_id='||OBJECT_ID(l_index1);
17390: raise FND_API.G_EXC_ERROR;
17391: END IF;
17392:
17393: IF nvl(ESTIMATED_START_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_start_date,FND_API.g_miss_date)
17394: OR nvl(ESTIMATED_FINISH_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_finish_date,FND_API.g_miss_date)
17395: OR nvl(ACTUAL_START_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_actual_start_date,FND_API.g_miss_date)
17396: OR nvl(ACTUAL_FINISH_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_actual_finish_date,FND_API.g_miss_date)
17397: THEN
17390: raise FND_API.G_EXC_ERROR;
17391: END IF;
17392:
17393: IF nvl(ESTIMATED_START_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_start_date,FND_API.g_miss_date)
17394: OR nvl(ESTIMATED_FINISH_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_finish_date,FND_API.g_miss_date)
17395: OR nvl(ACTUAL_START_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_actual_start_date,FND_API.g_miss_date)
17396: OR nvl(ACTUAL_FINISH_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_actual_finish_date,FND_API.g_miss_date)
17397: THEN
17398: l_date_override_flag := 'Y';
17391: END IF;
17392:
17393: IF nvl(ESTIMATED_START_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_start_date,FND_API.g_miss_date)
17394: OR nvl(ESTIMATED_FINISH_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_finish_date,FND_API.g_miss_date)
17395: OR nvl(ACTUAL_START_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_actual_start_date,FND_API.g_miss_date)
17396: OR nvl(ACTUAL_FINISH_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_actual_finish_date,FND_API.g_miss_date)
17397: THEN
17398: l_date_override_flag := 'Y';
17399: ESTIMATED_START_DATE(l_index1) := l_clex_estimated_start_date;
17392:
17393: IF nvl(ESTIMATED_START_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_start_date,FND_API.g_miss_date)
17394: OR nvl(ESTIMATED_FINISH_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_finish_date,FND_API.g_miss_date)
17395: OR nvl(ACTUAL_START_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_actual_start_date,FND_API.g_miss_date)
17396: OR nvl(ACTUAL_FINISH_DATE(l_index1),FND_API.g_miss_date) <> nvl(l_clex_actual_finish_date,FND_API.g_miss_date)
17397: THEN
17398: l_date_override_flag := 'Y';
17399: ESTIMATED_START_DATE(l_index1) := l_clex_estimated_start_date;
17400: ESTIMATED_FINISH_DATE(l_index1) := l_clex_estimated_finish_date;
17534: IF x_return_status <> 'S' THEN
17535: pa_debug.log_message('GET_SUMM_ACT: For Update GET_TASK_RES_OVERRIDE_INFO returned error for object_id='||OBJECT_ID(l_index1), 1);
17536: -- Added for bug 5526638
17537: l_err_msg := 'Progress client extension returned error for object_id='||OBJECT_ID(l_index1);
17538: raise FND_API.G_EXC_ERROR;
17539: END IF;
17540:
17541: IF nvl(u_estimated_start_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_start_date,FND_API.g_miss_date)
17542: OR nvl(u_estimated_finish_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_finish_date,FND_API.g_miss_date)
17537: l_err_msg := 'Progress client extension returned error for object_id='||OBJECT_ID(l_index1);
17538: raise FND_API.G_EXC_ERROR;
17539: END IF;
17540:
17541: IF nvl(u_estimated_start_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_start_date,FND_API.g_miss_date)
17542: OR nvl(u_estimated_finish_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_finish_date,FND_API.g_miss_date)
17543: OR nvl(u_actual_start_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_actual_start_date,FND_API.g_miss_date)
17544: OR nvl(u_actual_finish_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_actual_finish_date,FND_API.g_miss_date)
17545: THEN
17538: raise FND_API.G_EXC_ERROR;
17539: END IF;
17540:
17541: IF nvl(u_estimated_start_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_start_date,FND_API.g_miss_date)
17542: OR nvl(u_estimated_finish_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_finish_date,FND_API.g_miss_date)
17543: OR nvl(u_actual_start_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_actual_start_date,FND_API.g_miss_date)
17544: OR nvl(u_actual_finish_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_actual_finish_date,FND_API.g_miss_date)
17545: THEN
17546: l_date_override_flag := 'Y';
17539: END IF;
17540:
17541: IF nvl(u_estimated_start_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_start_date,FND_API.g_miss_date)
17542: OR nvl(u_estimated_finish_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_finish_date,FND_API.g_miss_date)
17543: OR nvl(u_actual_start_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_actual_start_date,FND_API.g_miss_date)
17544: OR nvl(u_actual_finish_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_actual_finish_date,FND_API.g_miss_date)
17545: THEN
17546: l_date_override_flag := 'Y';
17547: u_estimated_start_date(l_index1) := l_clex_estimated_start_date;
17540:
17541: IF nvl(u_estimated_start_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_start_date,FND_API.g_miss_date)
17542: OR nvl(u_estimated_finish_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_estimated_finish_date,FND_API.g_miss_date)
17543: OR nvl(u_actual_start_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_actual_start_date,FND_API.g_miss_date)
17544: OR nvl(u_actual_finish_date(l_index1),FND_API.g_miss_date) <> nvl(l_clex_actual_finish_date,FND_API.g_miss_date)
17545: THEN
17546: l_date_override_flag := 'Y';
17547: u_estimated_start_date(l_index1) := l_clex_estimated_start_date;
17548: u_estimated_finish_date(l_index1) := l_clex_estimated_finish_date;
17956: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.get_summarized_actuals',
17957: x_Msg => 'Calling rollup_progress_pvt l_project_id='||l_project_id||', str ver id='||latest_wp_struct_ver_ids_tbl(l_index)||',l_temp_as_of_date='||l_temp_as_of_date ,
17958: x_Log_Level=> 3);
17959:
17960: pa_progress_pub.rollup_progress_pvt(P_INIT_MSG_LIST => FND_API.G_FALSE,
17961: P_VALIDATE_ONLY => FND_API.G_FALSE,
17962: P_PROGRESS_MODE => 'FUTURE',
17963: P_PROJECT_ID => l_project_id,
17964: P_OBJECT_TYPE => 'PA_STRUCTURES',
17957: x_Msg => 'Calling rollup_progress_pvt l_project_id='||l_project_id||', str ver id='||latest_wp_struct_ver_ids_tbl(l_index)||',l_temp_as_of_date='||l_temp_as_of_date ,
17958: x_Log_Level=> 3);
17959:
17960: pa_progress_pub.rollup_progress_pvt(P_INIT_MSG_LIST => FND_API.G_FALSE,
17961: P_VALIDATE_ONLY => FND_API.G_FALSE,
17962: P_PROGRESS_MODE => 'FUTURE',
17963: P_PROJECT_ID => l_project_id,
17964: P_OBJECT_TYPE => 'PA_STRUCTURES',
17965: P_AS_OF_DATE => l_temp_as_of_date,
17975: x_Msg => 'After call x_return_status='||x_return_status ,
17976: x_Log_Level=> 3);
17977:
17978:
17979: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17980: pa_debug.log_message('GET_SUMM_ACT: Rollup_Progress_Pvt returned error.', 1);
17981: -- Added for bug 5526638
17982: l_err_msg := 'Error in rollup of progress attributes';
17983: RAISE FND_API.G_EXC_ERROR;
17979: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17980: pa_debug.log_message('GET_SUMM_ACT: Rollup_Progress_Pvt returned error.', 1);
17981: -- Added for bug 5526638
17982: l_err_msg := 'Error in rollup of progress attributes';
17983: RAISE FND_API.G_EXC_ERROR;
17984: END IF;
17985:
17986: IF g1_debug_mode = 'Y' THEN
17987: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.get_summarized_actuals',
18022: IF g1_debug_mode = 'Y' THEN
18023: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.GET_SUMMMARIZED_ACTUALS',
18024: x_Msg => 'After Calling program_rollup_pvt return_status='||x_return_status, x_Log_Level=> 3);
18025: END IF;
18026: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18027: pa_debug.log_message('GET_SUMM_ACT: Program_Rollup_Pvt returned error.', 1);
18028: -- Added for bug 5526638
18029: l_err_msg := 'Error in program rollup';
18030: RAISE FND_API.G_EXC_ERROR;
18026: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18027: pa_debug.log_message('GET_SUMM_ACT: Program_Rollup_Pvt returned error.', 1);
18028: -- Added for bug 5526638
18029: l_err_msg := 'Error in program rollup';
18030: RAISE FND_API.G_EXC_ERROR;
18031: END IF;
18032: EXCEPTION when others then
18033: x_return_status := 'E';
18034: pa_debug.log_message('GET_SUMM_ACT: Exception in program rollup.', 1);
18392: p_error_text => SUBSTRB('pa_progress_pub.get_summarized_actuals:'||SQLERRM,1,120));
18393: -- 4746476 : Priniting stack
18394: FOR i in 1..fnd_msg_pub.count_msg LOOP
18395: pa_interface_utils_pub.get_messages (
18396: p_encoded => Fnd_Api.G_FALSE
18397: ,p_data => l_data
18398: ,p_msg_index => i
18399: ,p_msg_index_out => l_msg_index_out );
18400: pa_debug.log_message('GET_SUMM_ACT: Error '||i||' ='||substr(l_data,1,200), 1);
18427: --FPM Dev CR 1 : Added following procedure
18428:
18429: PROCEDURE UPDATE_FINANCIAL_TASK_PROGRESS(
18430: p_api_version IN NUMBER :=1.0
18431: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
18432: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
18433: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
18434: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
18435: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
18428:
18429: PROCEDURE UPDATE_FINANCIAL_TASK_PROGRESS(
18430: p_api_version IN NUMBER :=1.0
18431: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
18432: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
18433: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
18434: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
18435: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
18436: ,p_debug_mode IN VARCHAR2 :='N'
18429: PROCEDURE UPDATE_FINANCIAL_TASK_PROGRESS(
18430: p_api_version IN NUMBER :=1.0
18431: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
18432: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
18433: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
18434: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
18435: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
18436: ,p_debug_mode IN VARCHAR2 :='N'
18437: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
18430: p_api_version IN NUMBER :=1.0
18431: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
18432: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
18433: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
18434: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
18435: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
18436: ,p_debug_mode IN VARCHAR2 :='N'
18437: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
18438: ,p_action IN VARCHAR2 :='SAVE'
18549: IF g1_debug_mode = 'Y' THEN
18550: pa_debug.init_err_stack ('PA_PROGRESS_PUB.UPDATE_FINANCIAL_TASK_PROGRESS');
18551: END IF;
18552:
18553: IF (p_commit = FND_API.G_TRUE) THEN
18554: savepoint UPDATE_FINANCIAL_TASK_PROGRESS;
18555: END IF;
18556:
18557: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
18553: IF (p_commit = FND_API.G_TRUE) THEN
18554: savepoint UPDATE_FINANCIAL_TASK_PROGRESS;
18555: END IF;
18556:
18557: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
18558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18559: END IF;
18560:
18561: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
18554: savepoint UPDATE_FINANCIAL_TASK_PROGRESS;
18555: END IF;
18556:
18557: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
18558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18559: END IF;
18560:
18561: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
18562: FND_MSG_PUB.initialize;
18557: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
18558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18559: END IF;
18560:
18561: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
18562: FND_MSG_PUB.initialize;
18563: END IF;
18564:
18565: IF g1_debug_mode = 'Y' THEN
18575: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_FINANCIAL_TASK_PROGRESS', x_Msg => 'p_structure_version_id: '||p_structure_version_id, x_Log_Level=> 3);
18576: END IF;
18577:
18578:
18579: x_return_status := FND_API.G_RET_STS_SUCCESS;
18580:
18581:
18582: IF p_task_id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
18583: THEN
18665: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
18666: ,p_msg_name => 'PA_FIN_PERCENT_INVALID');
18667: x_msg_data := 'PA_FIN_PERCENT_INVALID';
18668: x_return_status := 'E';
18669: RAISE FND_API.G_EXC_ERROR;
18670: END IF;
18671:
18672:
18673: ---- if status is CANCELLED
18676: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
18677: ,p_msg_name => 'PA_TP_CANT_NTER_PRG_CANCEL');
18678: x_msg_data := 'PA_TP_CANT_NTER_PRG_CANCEL';
18679: x_return_status := 'E';
18680: RAISE FND_API.G_EXC_ERROR;
18681: END IF;
18682: ---- if status is CANCELLED
18683:
18684: ----- Invalid DATE
18687: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
18688: ,p_msg_name => 'PA_TP_INV_AOD');
18689: x_msg_data := 'PA_TP_INV_AOD';
18690: x_return_status := 'E';
18691: RAISE FND_API.G_EXC_ERROR;
18692: END IF;
18693: ----- Wrong DATE
18694:
18695:
19101: ,X_SUBPRJ_EQPMT_ETC_RAWCOST_PC => null);
19102:
19103: -- FPM Dev CR 6
19104: IF Fnd_Msg_Pub.count_msg > 0 THEN
19105: RAISE FND_API.G_EXC_ERROR;
19106: END IF;
19107:
19108:
19109: END IF;
19189:
19190: );
19191: -- FPM Dev CR 6
19192: IF Fnd_Msg_Pub.count_msg > 0 THEN
19193: RAISE FND_API.G_EXC_ERROR;
19194: END IF;
19195:
19196:
19197:
19338: ,X_SUBPRJ_EQPMT_ETC_RAWCOST_PC => null
19339: );
19340: -- FPM Dev CR 6
19341: IF Fnd_Msg_Pub.count_msg > 0 THEN
19342: RAISE FND_API.G_EXC_ERROR;
19343: END IF;
19344:
19345: IF g1_debug_mode = 'Y' THEN
19346: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_FINANCIAL_TASK_PROGRESS', x_Msg => 'COMPLETED ', x_Log_Level=> 3);
19353: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_FINANCIAL_TASK_PROGRESS', x_Msg => 'EXITING ', x_Log_Level=> 3);
19354: END IF;
19355:
19356: EXCEPTION
19357: when FND_API.G_EXC_ERROR then
19358: x_return_status := FND_API.G_RET_STS_ERROR;
19359: l_msg_count := Fnd_Msg_Pub.count_msg;
19360:
19361: if p_commit = FND_API.G_TRUE then
19354: END IF;
19355:
19356: EXCEPTION
19357: when FND_API.G_EXC_ERROR then
19358: x_return_status := FND_API.G_RET_STS_ERROR;
19359: l_msg_count := Fnd_Msg_Pub.count_msg;
19360:
19361: if p_commit = FND_API.G_TRUE then
19362: rollback to UPDATE_FINANCIAL_TASK_PROGRESS;
19357: when FND_API.G_EXC_ERROR then
19358: x_return_status := FND_API.G_RET_STS_ERROR;
19359: l_msg_count := Fnd_Msg_Pub.count_msg;
19360:
19361: if p_commit = FND_API.G_TRUE then
19362: rollback to UPDATE_FINANCIAL_TASK_PROGRESS;
19363: end if;
19364:
19365: IF l_msg_count = 1 AND x_msg_data IS NULL
19364:
19365: IF l_msg_count = 1 AND x_msg_data IS NULL
19366: THEN
19367: Pa_Interface_Utils_Pub.get_messages
19368: ( p_encoded => Fnd_Api.G_TRUE
19369: , p_msg_index => 1
19370: , p_msg_count => l_msg_count
19371: , p_msg_data => l_msg_data
19372: , p_data => l_data
19376: ELSE
19377: x_msg_count := l_msg_count;
19378: END IF;
19379:
19380: when FND_API.G_EXC_UNEXPECTED_ERROR then
19381: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
19382: x_msg_count := 1;
19383: x_msg_data := SQLERRM;
19384:
19377: x_msg_count := l_msg_count;
19378: END IF;
19379:
19380: when FND_API.G_EXC_UNEXPECTED_ERROR then
19381: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
19382: x_msg_count := 1;
19383: x_msg_data := SQLERRM;
19384:
19385: if p_commit = FND_API.G_TRUE then
19381: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
19382: x_msg_count := 1;
19383: x_msg_data := SQLERRM;
19384:
19385: if p_commit = FND_API.G_TRUE then
19386: rollback to UPDATE_FINANCIAL_TASK_PROGRESS;
19387: end if;
19388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19389: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19384:
19385: if p_commit = FND_API.G_TRUE then
19386: rollback to UPDATE_FINANCIAL_TASK_PROGRESS;
19387: end if;
19388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19389: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19390: p_procedure_name => 'UPDATE_FINANCIAL_TASK_PROGRESS',
19391: p_error_text => SUBSTRB(SQLERRM,1,120));
19392: when OTHERS then
19389: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19390: p_procedure_name => 'UPDATE_FINANCIAL_TASK_PROGRESS',
19391: p_error_text => SUBSTRB(SQLERRM,1,120));
19392: when OTHERS then
19393: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
19394: x_msg_count := 1;
19395: x_msg_data := SUBSTRB(SQLERRM,1,120);
19396: if p_commit = FND_API.G_TRUE then
19397: rollback to UPDATE_DELIVERABLE_PROGRESS;
19392: when OTHERS then
19393: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
19394: x_msg_count := 1;
19395: x_msg_data := SUBSTRB(SQLERRM,1,120);
19396: if p_commit = FND_API.G_TRUE then
19397: rollback to UPDATE_DELIVERABLE_PROGRESS;
19398: end if;
19399:
19400: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19408: -- Progress Management Changes. Bug # 3420093.
19409:
19410: PROCEDURE re_rollup_progress(
19411: p_api_version IN NUMBER :=1.0
19412: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
19413: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
19414: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
19415: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
19416: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
19409:
19410: PROCEDURE re_rollup_progress(
19411: p_api_version IN NUMBER :=1.0
19412: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
19413: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
19414: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
19415: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
19416: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
19417: ,p_debug_mode IN VARCHAR2 :='N'
19410: PROCEDURE re_rollup_progress(
19411: p_api_version IN NUMBER :=1.0
19412: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
19413: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
19414: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
19415: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
19416: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
19417: ,p_debug_mode IN VARCHAR2 :='N'
19418: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19411: p_api_version IN NUMBER :=1.0
19412: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
19413: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
19414: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
19415: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
19416: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
19417: ,p_debug_mode IN VARCHAR2 :='N'
19418: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19419: ,p_project_id IN NUMBER
19490: IF g1_debug_mode = 'Y' THEN
19491: pa_debug.debug('PA_PROGRESS_PUB.RE_ROLLUP_PROGRESS');
19492: END IF;
19493: END IF;
19494: IF (p_commit = FND_API.G_TRUE) THEN
19495: savepoint RE_ROLLUP_PROGRESS;
19496: END IF;
19497:
19498: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
19494: IF (p_commit = FND_API.G_TRUE) THEN
19495: savepoint RE_ROLLUP_PROGRESS;
19496: END IF;
19497:
19498: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
19499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19500: END IF;
19501:
19502: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
19495: savepoint RE_ROLLUP_PROGRESS;
19496: END IF;
19497:
19498: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
19499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19500: END IF;
19501:
19502: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
19503: FND_MSG_PUB.initialize;
19498: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
19499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19500: END IF;
19501:
19502: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
19503: FND_MSG_PUB.initialize;
19504: END IF;
19505:
19506: x_return_status := FND_API.G_RET_STS_SUCCESS;
19502: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
19503: FND_MSG_PUB.initialize;
19504: END IF;
19505:
19506: x_return_status := FND_API.G_RET_STS_SUCCESS;
19507:
19508: -- Get as_of_date and task_wt_basis_code for the project.
19509:
19510: /* replacing with cur_task_weight
19547: -- Bug 3693757 : 13-Jul-04 PJI tmp1 table shd be populated so that rollup API can access actuals values in RE_ROLLUP_PROGRESS
19548: BEGIN
19549: l_base_struct_ver_id := pa_project_structure_utils.get_baseline_struct_ver(p_project_id);
19550: pa_progress_pub.populate_pji_tab_for_plan(
19551: p_init_msg_list => FND_API.G_FALSE,
19552: p_project_id => p_project_id,
19553: p_structure_version_id => p_structure_version_id,
19554: p_baselined_str_ver_id => l_base_struct_ver_id,
19555: p_structure_type => 'WORKPLAN',
19562: WHEN OTHERS THEN
19563: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19564: p_procedure_name => 'RE_ROLLUP_PROGRESS',
19565: p_error_text => SUBSTRB('PA_PROGRESS_PUB.populate_pji_tab_for_plan:'||SQLERRM,1,240));
19566: RAISE FND_API.G_EXC_ERROR;
19567: END;
19568:
19569:
19570: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19566: RAISE FND_API.G_EXC_ERROR;
19567: END;
19568:
19569:
19570: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19571: Raise FND_API.G_EXC_ERROR;
19572: END IF;
19573:
19574:
19567: END;
19568:
19569:
19570: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19571: Raise FND_API.G_EXC_ERROR;
19572: END IF;
19573:
19574:
19575: OPEN cur_task_weight;
19590: ,x_return_status => l_return_status
19591: ,x_msg_count => l_msg_count
19592: ,x_msg_data => l_msg_data);
19593:
19594: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19595: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
19596: p_msg_name => l_msg_data);
19597: x_msg_data := l_msg_data;
19598: x_return_status := 'E';
19596: p_msg_name => l_msg_data);
19597: x_msg_data := l_msg_data;
19598: x_return_status := 'E';
19599: x_msg_count := l_msg_count;
19600: RAISE FND_API.G_EXC_ERROR;
19601: END IF;
19602: end if;
19603:
19604: IF (p_commit = FND_API.G_TRUE) THEN
19600: RAISE FND_API.G_EXC_ERROR;
19601: END IF;
19602: end if;
19603:
19604: IF (p_commit = FND_API.G_TRUE) THEN
19605: COMMIT;
19606: END IF;
19607: EXCEPTION
19608: when FND_API.G_EXC_ERROR then
19604: IF (p_commit = FND_API.G_TRUE) THEN
19605: COMMIT;
19606: END IF;
19607: EXCEPTION
19608: when FND_API.G_EXC_ERROR then
19609: if p_commit = FND_API.G_TRUE then
19610: rollback to RE_ROLLUP_PROGRESS;
19611: end if;
19612: x_return_status := FND_API.G_RET_STS_ERROR;
19605: COMMIT;
19606: END IF;
19607: EXCEPTION
19608: when FND_API.G_EXC_ERROR then
19609: if p_commit = FND_API.G_TRUE then
19610: rollback to RE_ROLLUP_PROGRESS;
19611: end if;
19612: x_return_status := FND_API.G_RET_STS_ERROR;
19613: when FND_API.G_EXC_UNEXPECTED_ERROR then
19608: when FND_API.G_EXC_ERROR then
19609: if p_commit = FND_API.G_TRUE then
19610: rollback to RE_ROLLUP_PROGRESS;
19611: end if;
19612: x_return_status := FND_API.G_RET_STS_ERROR;
19613: when FND_API.G_EXC_UNEXPECTED_ERROR then
19614: if p_commit = FND_API.G_TRUE then
19615: rollback to RE_ROLLUP_PROGRESS;
19616: end if;
19609: if p_commit = FND_API.G_TRUE then
19610: rollback to RE_ROLLUP_PROGRESS;
19611: end if;
19612: x_return_status := FND_API.G_RET_STS_ERROR;
19613: when FND_API.G_EXC_UNEXPECTED_ERROR then
19614: if p_commit = FND_API.G_TRUE then
19615: rollback to RE_ROLLUP_PROGRESS;
19616: end if;
19617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19610: rollback to RE_ROLLUP_PROGRESS;
19611: end if;
19612: x_return_status := FND_API.G_RET_STS_ERROR;
19613: when FND_API.G_EXC_UNEXPECTED_ERROR then
19614: if p_commit = FND_API.G_TRUE then
19615: rollback to RE_ROLLUP_PROGRESS;
19616: end if;
19617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19618: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19613: when FND_API.G_EXC_UNEXPECTED_ERROR then
19614: if p_commit = FND_API.G_TRUE then
19615: rollback to RE_ROLLUP_PROGRESS;
19616: end if;
19617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19618: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19619: p_procedure_name => 'RE_ROLLUP_PROGRESS',
19620: p_error_text => SUBSTRB(SQLERRM,1,120));
19621: when OTHERS then
19618: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19619: p_procedure_name => 'RE_ROLLUP_PROGRESS',
19620: p_error_text => SUBSTRB(SQLERRM,1,120));
19621: when OTHERS then
19622: if p_commit = FND_API.G_TRUE then
19623: rollback to RE_ROLLUP_PROGRESS;
19624: end if;
19625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19626: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19621: when OTHERS then
19622: if p_commit = FND_API.G_TRUE then
19623: rollback to RE_ROLLUP_PROGRESS;
19624: end if;
19625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19626: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19627: p_procedure_name => 'RE_ROLLUP_PROGRESS',
19628: p_error_text => SUBSTRB(SQLERRM,1,120));
19629: raise;
19631:
19632: -- Bug 3633293 : Added populate_bulk_pji_tab_for_plan
19633: PROCEDURE populate_bulk_pji_tab_for_plan(
19634: p_api_version IN NUMBER :=1.0
19635: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
19636: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
19637: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
19638: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
19639: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
19632: -- Bug 3633293 : Added populate_bulk_pji_tab_for_plan
19633: PROCEDURE populate_bulk_pji_tab_for_plan(
19634: p_api_version IN NUMBER :=1.0
19635: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
19636: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
19637: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
19638: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
19639: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
19640: ,p_debug_mode IN VARCHAR2 :='N'
19633: PROCEDURE populate_bulk_pji_tab_for_plan(
19634: p_api_version IN NUMBER :=1.0
19635: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
19636: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
19637: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
19638: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
19639: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
19640: ,p_debug_mode IN VARCHAR2 :='N'
19641: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19634: p_api_version IN NUMBER :=1.0
19635: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
19636: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
19637: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
19638: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
19639: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
19640: ,p_debug_mode IN VARCHAR2 :='N'
19641: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19642: ,p_person_id NUMBER
19692: pa_debug.debug('PA_PROGRESS_PUB.POPULATE_BULK_PJI_TAB_FOR_PLAN');
19693: END IF;
19694: END IF;
19695:
19696: IF (p_commit = FND_API.G_TRUE) THEN
19697: savepoint populate_bulk_pji_tab_for_plan;
19698: END IF;
19699:
19700: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
19696: IF (p_commit = FND_API.G_TRUE) THEN
19697: savepoint populate_bulk_pji_tab_for_plan;
19698: END IF;
19699:
19700: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
19701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19702: END IF;
19703:
19704: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
19697: savepoint populate_bulk_pji_tab_for_plan;
19698: END IF;
19699:
19700: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
19701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19702: END IF;
19703:
19704: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
19705: FND_MSG_PUB.initialize;
19700: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
19701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19702: END IF;
19703:
19704: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
19705: FND_MSG_PUB.initialize;
19706: END IF;
19707:
19708: x_return_status := FND_API.G_RET_STS_SUCCESS;
19704: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
19705: FND_MSG_PUB.initialize;
19706: END IF;
19707:
19708: x_return_status := FND_API.G_RET_STS_SUCCESS;
19709:
19710: FOR rec IN c_get_distinct_str_ver_id LOOP
19711: l_baseline_version_id := null;
19712: l_baseline_version_id := PA_PROJECT_STRUCTURE_UTILS.Get_Baseline_Struct_Ver(rec.project_id);
19734: p_base_struct_ver_id => l_baseline_version_id,
19735: x_return_status => l_return_status,
19736: x_msg_code => l_msg_data );
19737: */
19738: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19739: x_msg_data := l_msg_data;
19740: x_return_status := 'E';
19741: x_msg_count := l_msg_count;
19742: RAISE FND_API.G_EXC_ERROR;
19738: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19739: x_msg_data := l_msg_data;
19740: x_return_status := 'E';
19741: x_msg_count := l_msg_count;
19742: RAISE FND_API.G_EXC_ERROR;
19743: END IF;
19744: END LOOP;
19745:
19746:
19744: END LOOP;
19745:
19746:
19747: EXCEPTION
19748: when FND_API.G_EXC_ERROR then
19749: if p_commit = FND_API.G_TRUE then
19750: rollback to populate_bulk_pji_tab_for_plan;
19751: end if;
19752: x_return_status := FND_API.G_RET_STS_ERROR;
19745:
19746:
19747: EXCEPTION
19748: when FND_API.G_EXC_ERROR then
19749: if p_commit = FND_API.G_TRUE then
19750: rollback to populate_bulk_pji_tab_for_plan;
19751: end if;
19752: x_return_status := FND_API.G_RET_STS_ERROR;
19753: when FND_API.G_EXC_UNEXPECTED_ERROR then
19748: when FND_API.G_EXC_ERROR then
19749: if p_commit = FND_API.G_TRUE then
19750: rollback to populate_bulk_pji_tab_for_plan;
19751: end if;
19752: x_return_status := FND_API.G_RET_STS_ERROR;
19753: when FND_API.G_EXC_UNEXPECTED_ERROR then
19754: if p_commit = FND_API.G_TRUE then
19755: rollback to populate_bulk_pji_tab_for_plan;
19756: end if;
19749: if p_commit = FND_API.G_TRUE then
19750: rollback to populate_bulk_pji_tab_for_plan;
19751: end if;
19752: x_return_status := FND_API.G_RET_STS_ERROR;
19753: when FND_API.G_EXC_UNEXPECTED_ERROR then
19754: if p_commit = FND_API.G_TRUE then
19755: rollback to populate_bulk_pji_tab_for_plan;
19756: end if;
19757: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19750: rollback to populate_bulk_pji_tab_for_plan;
19751: end if;
19752: x_return_status := FND_API.G_RET_STS_ERROR;
19753: when FND_API.G_EXC_UNEXPECTED_ERROR then
19754: if p_commit = FND_API.G_TRUE then
19755: rollback to populate_bulk_pji_tab_for_plan;
19756: end if;
19757: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19758: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19753: when FND_API.G_EXC_UNEXPECTED_ERROR then
19754: if p_commit = FND_API.G_TRUE then
19755: rollback to populate_bulk_pji_tab_for_plan;
19756: end if;
19757: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19758: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19759: p_procedure_name => 'POPULATE_BULK_PJI_TAB_FOR_PLAN',
19760: p_error_text => SUBSTRB(SQLERRM,1,120));
19761: when OTHERS then
19758: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19759: p_procedure_name => 'POPULATE_BULK_PJI_TAB_FOR_PLAN',
19760: p_error_text => SUBSTRB(SQLERRM,1,120));
19761: when OTHERS then
19762: if p_commit = FND_API.G_TRUE then
19763: rollback to populate_bulk_pji_tab_for_plan;
19764: end if;
19765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19766: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19761: when OTHERS then
19762: if p_commit = FND_API.G_TRUE then
19763: rollback to populate_bulk_pji_tab_for_plan;
19764: end if;
19765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19766: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19767: p_procedure_name => 'POPULATE_BULK_PJI_TAB_FOR_PLAN',
19768: p_error_text => SUBSTRB(SQLERRM,1,120));
19769: raise;
19783: -- End of comments
19784:
19785: PROCEDURE ASGN_DLV_TO_TASK_ROLLUP_PVT(
19786: p_api_version IN NUMBER :=1.0
19787: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE -- Since it is a private API so false
19788: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
19789: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
19790: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
19791: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
19784:
19785: PROCEDURE ASGN_DLV_TO_TASK_ROLLUP_PVT(
19786: p_api_version IN NUMBER :=1.0
19787: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE -- Since it is a private API so false
19788: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
19789: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
19790: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
19791: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
19792: ,p_debug_mode IN VARCHAR2 :='N'
19785: PROCEDURE ASGN_DLV_TO_TASK_ROLLUP_PVT(
19786: p_api_version IN NUMBER :=1.0
19787: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE -- Since it is a private API so false
19788: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
19789: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
19790: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
19791: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
19792: ,p_debug_mode IN VARCHAR2 :='N'
19793: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19786: p_api_version IN NUMBER :=1.0
19787: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE -- Since it is a private API so false
19788: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
19789: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
19790: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
19791: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
19792: ,p_debug_mode IN VARCHAR2 :='N'
19793: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19794: ,p_project_id IN NUMBER
19843: IF p_structure_version_id IS NULL THEN
19844: return;
19845: END IF;
19846:
19847: IF (p_commit = FND_API.G_TRUE) THEN
19848: savepoint ASGN_DLV_TO_TASK_ROLLUP_PVT;
19849: END IF;
19850:
19851: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
19847: IF (p_commit = FND_API.G_TRUE) THEN
19848: savepoint ASGN_DLV_TO_TASK_ROLLUP_PVT;
19849: END IF;
19850:
19851: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
19852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19853: END IF;
19854:
19855: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
19848: savepoint ASGN_DLV_TO_TASK_ROLLUP_PVT;
19849: END IF;
19850:
19851: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
19852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19853: END IF;
19854:
19855: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
19856: FND_MSG_PUB.initialize;
19851: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
19852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19853: END IF;
19854:
19855: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
19856: FND_MSG_PUB.initialize;
19857: END IF;
19858:
19859: -- Bug # 3879910. Call corresponding API in package: PA_PROGRESS_PVT.
19876: ,x_return_status => l_return_status
19877: ,x_msg_count => l_msg_count
19878: ,x_msg_data => l_msg_data);
19879:
19880: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19881: x_msg_data := l_msg_data;
19882: x_return_status := 'E';
19883: x_msg_count := l_msg_count;
19884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19880: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
19881: x_msg_data := l_msg_data;
19882: x_return_status := 'E';
19883: x_msg_count := l_msg_count;
19884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19885: END IF;
19886:
19887: x_return_status := FND_API.G_RET_STS_SUCCESS;
19888:
19883: x_msg_count := l_msg_count;
19884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19885: END IF;
19886:
19887: x_return_status := FND_API.G_RET_STS_SUCCESS;
19888:
19889: IF (p_commit = FND_API.G_TRUE) THEN
19890: COMMIT;
19891: END IF;
19885: END IF;
19886:
19887: x_return_status := FND_API.G_RET_STS_SUCCESS;
19888:
19889: IF (p_commit = FND_API.G_TRUE) THEN
19890: COMMIT;
19891: END IF;
19892:
19893:
19895: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.ASGN_DLV_TO_TASK_ROLLUP_PVT', x_Msg => 'PA_PROGRESS_PUB.ASGN_DLV_TO_TASK_ROLLUP_PVT END', x_Log_Level=> 3);
19896: END IF;
19897:
19898: EXCEPTION
19899: WHEN FND_API.G_EXC_ERROR THEN
19900: IF p_commit = FND_API.G_TRUE THEN
19901: rollback to ASGN_DLV_TO_TASK_ROLLUP_PVT;
19902: END IF;
19903: x_return_status := FND_API.G_RET_STS_ERROR;
19896: END IF;
19897:
19898: EXCEPTION
19899: WHEN FND_API.G_EXC_ERROR THEN
19900: IF p_commit = FND_API.G_TRUE THEN
19901: rollback to ASGN_DLV_TO_TASK_ROLLUP_PVT;
19902: END IF;
19903: x_return_status := FND_API.G_RET_STS_ERROR;
19904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
19899: WHEN FND_API.G_EXC_ERROR THEN
19900: IF p_commit = FND_API.G_TRUE THEN
19901: rollback to ASGN_DLV_TO_TASK_ROLLUP_PVT;
19902: END IF;
19903: x_return_status := FND_API.G_RET_STS_ERROR;
19904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
19905: IF p_commit = FND_API.G_TRUE THEN
19906: rollback to ASGN_DLV_TO_TASK_ROLLUP_PVT;
19907: END IF;
19900: IF p_commit = FND_API.G_TRUE THEN
19901: rollback to ASGN_DLV_TO_TASK_ROLLUP_PVT;
19902: END IF;
19903: x_return_status := FND_API.G_RET_STS_ERROR;
19904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
19905: IF p_commit = FND_API.G_TRUE THEN
19906: rollback to ASGN_DLV_TO_TASK_ROLLUP_PVT;
19907: END IF;
19908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19901: rollback to ASGN_DLV_TO_TASK_ROLLUP_PVT;
19902: END IF;
19903: x_return_status := FND_API.G_RET_STS_ERROR;
19904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
19905: IF p_commit = FND_API.G_TRUE THEN
19906: rollback to ASGN_DLV_TO_TASK_ROLLUP_PVT;
19907: END IF;
19908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19909: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19904: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
19905: IF p_commit = FND_API.G_TRUE THEN
19906: rollback to ASGN_DLV_TO_TASK_ROLLUP_PVT;
19907: END IF;
19908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19909: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19910: p_procedure_name => 'ASGN_DLV_TO_TASK_ROLLUP_PVT',
19911: p_error_text => SUBSTRB(SQLERRM,1,120));
19912: WHEN OTHERS THEN
19909: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19910: p_procedure_name => 'ASGN_DLV_TO_TASK_ROLLUP_PVT',
19911: p_error_text => SUBSTRB(SQLERRM,1,120));
19912: WHEN OTHERS THEN
19913: IF p_commit = FND_API.G_TRUE THEN
19914: rollback to ASGN_DLV_TO_TASK_ROLLUP_PVT;
19915: END IF;
19916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19917: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19912: WHEN OTHERS THEN
19913: IF p_commit = FND_API.G_TRUE THEN
19914: rollback to ASGN_DLV_TO_TASK_ROLLUP_PVT;
19915: END IF;
19916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19917: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
19918: p_procedure_name => 'ASGN_DLV_TO_TASK_ROLLUP_PVT',
19919: p_error_text => SUBSTRB(SQLERRM,1,120));
19920: raise;
19933: -- End of comments
19934:
19935: PROCEDURE COPY_PROGRESS_ACT_ETC(
19936: p_api_version IN NUMBER :=1.0
19937: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE -- FALSE for private API.
19938: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
19939: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
19940: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
19941: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
19934:
19935: PROCEDURE COPY_PROGRESS_ACT_ETC(
19936: p_api_version IN NUMBER :=1.0
19937: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE -- FALSE for private API.
19938: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
19939: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
19940: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
19941: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
19942: ,p_debug_mode IN VARCHAR2 :='N'
19935: PROCEDURE COPY_PROGRESS_ACT_ETC(
19936: p_api_version IN NUMBER :=1.0
19937: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE -- FALSE for private API.
19938: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
19939: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
19940: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
19941: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
19942: ,p_debug_mode IN VARCHAR2 :='N'
19943: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19936: p_api_version IN NUMBER :=1.0
19937: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE -- FALSE for private API.
19938: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
19939: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
19940: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
19941: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
19942: ,p_debug_mode IN VARCHAR2 :='N'
19943: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
19944: ,p_project_id IN NUMBER
20141: IF g1_debug_mode = 'Y' THEN
20142: pa_debug.init_err_stack ('PA_PROGRESS_PUB.COPY_PROGRESS_ACT_ETC');
20143: END IF;
20144:
20145: IF (p_commit = FND_API.G_TRUE) THEN
20146: savepoint COPY_PROGRESS_ACT_ETC;
20147: END IF;
20148:
20149: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
20145: IF (p_commit = FND_API.G_TRUE) THEN
20146: savepoint COPY_PROGRESS_ACT_ETC;
20147: END IF;
20148:
20149: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
20150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
20151: END IF;
20152:
20153: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
20146: savepoint COPY_PROGRESS_ACT_ETC;
20147: END IF;
20148:
20149: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
20150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
20151: END IF;
20152:
20153: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
20154: FND_MSG_PUB.initialize;
20149: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
20150: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
20151: END IF;
20152:
20153: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
20154: FND_MSG_PUB.initialize;
20155: END IF;
20156:
20157: IF g1_debug_mode = 'Y' THEN
20166: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.COPY_PROGRESS_ACT_ETC', x_Msg => 'p_copy_ETC_flag='||p_copy_ETC_flag, x_Log_Level=> 3);
20167: END IF;
20168:
20169:
20170: x_return_status := FND_API.G_RET_STS_SUCCESS;
20171: l_calling_context := p_calling_context;
20172: -- code to make sure don't execute this procedure for first time publish structure
20173: if (l_calling_context = 'PUBLISH') then
20174: OPEN cur_Summerized_Actuals;
20829: WHEN OTHERS THEN
20830: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
20831: p_procedure_name => 'COPY_PROGRESS_ACT_ETC',
20832: p_error_text => SUBSTRB('Call PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE:'||SQLERRM,1,120));
20833: RAISE FND_API.G_EXC_ERROR;
20834: END;
20835:
20836: -- populate_workplan_data is not called as it is called from page itself.
20837: end if;
20836: -- populate_workplan_data is not called as it is called from page itself.
20837: end if;
20838:
20839:
20840: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
20841: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
20842: p_msg_name => l_msg_data);
20843: x_msg_data := l_msg_data;
20844: x_return_status := 'E';
20842: p_msg_name => l_msg_data);
20843: x_msg_data := l_msg_data;
20844: x_return_status := 'E';
20845: x_msg_count := l_msg_count;
20846: RAISE FND_API.G_EXC_ERROR;
20847: END IF;
20848: /***********
20849: -- here we need to make ETC as null on assignment records
20850: if (l_calling_context = 'PUBLISH') then
20877: and structure_type = 'WORKPLAN'
20878: and current_flag = 'Y';
20879: end if;
20880: ************/
20881: IF (p_commit = FND_API.G_TRUE) THEN
20882: COMMIT;
20883: END IF;
20884:
20885: EXCEPTION
20883: END IF;
20884:
20885: EXCEPTION
20886:
20887: when FND_API.G_EXC_ERROR then
20888: if p_commit = FND_API.G_TRUE then
20889: rollback to COPY_PROGRESS_ACT_ETC;
20890: end if;
20891: x_return_status := FND_API.G_RET_STS_ERROR;
20884:
20885: EXCEPTION
20886:
20887: when FND_API.G_EXC_ERROR then
20888: if p_commit = FND_API.G_TRUE then
20889: rollback to COPY_PROGRESS_ACT_ETC;
20890: end if;
20891: x_return_status := FND_API.G_RET_STS_ERROR;
20892:
20887: when FND_API.G_EXC_ERROR then
20888: if p_commit = FND_API.G_TRUE then
20889: rollback to COPY_PROGRESS_ACT_ETC;
20890: end if;
20891: x_return_status := FND_API.G_RET_STS_ERROR;
20892:
20893: when FND_API.G_EXC_UNEXPECTED_ERROR then
20894: if p_commit = FND_API.G_TRUE then
20895: rollback to COPY_PROGRESS_ACT_ETC;
20889: rollback to COPY_PROGRESS_ACT_ETC;
20890: end if;
20891: x_return_status := FND_API.G_RET_STS_ERROR;
20892:
20893: when FND_API.G_EXC_UNEXPECTED_ERROR then
20894: if p_commit = FND_API.G_TRUE then
20895: rollback to COPY_PROGRESS_ACT_ETC;
20896: end if;
20897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20890: end if;
20891: x_return_status := FND_API.G_RET_STS_ERROR;
20892:
20893: when FND_API.G_EXC_UNEXPECTED_ERROR then
20894: if p_commit = FND_API.G_TRUE then
20895: rollback to COPY_PROGRESS_ACT_ETC;
20896: end if;
20897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20898: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
20893: when FND_API.G_EXC_UNEXPECTED_ERROR then
20894: if p_commit = FND_API.G_TRUE then
20895: rollback to COPY_PROGRESS_ACT_ETC;
20896: end if;
20897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20898: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
20899: p_procedure_name => 'COPY_PROGRESS_ACT_ETC',
20900: p_error_text => SUBSTRB(SQLERRM,1,120));
20901: when OTHERS then
20898: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
20899: p_procedure_name => 'COPY_PROGRESS_ACT_ETC',
20900: p_error_text => SUBSTRB(SQLERRM,1,120));
20901: when OTHERS then
20902: if p_commit = FND_API.G_TRUE then
20903: rollback to COPY_PROGRESS_ACT_ETC;
20904: end if;
20905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20906: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
20901: when OTHERS then
20902: if p_commit = FND_API.G_TRUE then
20903: rollback to COPY_PROGRESS_ACT_ETC;
20904: end if;
20905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20906: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
20907: p_procedure_name => 'COPY_PROGRESS_ACT_ETC',
20908: p_error_text => SUBSTRB(SQLERRM,1,120));
20909: raise;
20914:
20915: -- Bug 3807299 : new API which will be called from update_progress and AMG pa_status_pub.update_progress
20916: PROCEDURE update_link_proj_rollup_dates(
20917: p_api_version IN NUMBER :=1.0
20918: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
20919: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
20920: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
20921: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
20922: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
20915: -- Bug 3807299 : new API which will be called from update_progress and AMG pa_status_pub.update_progress
20916: PROCEDURE update_link_proj_rollup_dates(
20917: p_api_version IN NUMBER :=1.0
20918: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
20919: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
20920: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
20921: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
20922: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
20923: ,p_project_id IN NUMBER
20916: PROCEDURE update_link_proj_rollup_dates(
20917: p_api_version IN NUMBER :=1.0
20918: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
20919: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
20920: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
20921: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
20922: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
20923: ,p_project_id IN NUMBER
20924: ,p_task_id IN NUMBER
20917: p_api_version IN NUMBER :=1.0
20918: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
20919: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
20920: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
20921: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
20922: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
20923: ,p_project_id IN NUMBER
20924: ,p_task_id IN NUMBER
20925: ,p_task_version_id IN NUMBER
21006: IF g1_debug_mode = 'Y' THEN
21007: pa_debug.init_err_stack ('PA_PROGRESS_PUB.UPDATE_LINK_PROJ_ROLLUP_DATES');
21008: END IF;
21009:
21010: IF (p_commit = FND_API.G_TRUE) THEN
21011: savepoint UPDATE_LINK_PROJ_ROLLUP_DATES;
21012: END IF;
21013:
21014: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
21010: IF (p_commit = FND_API.G_TRUE) THEN
21011: savepoint UPDATE_LINK_PROJ_ROLLUP_DATES;
21012: END IF;
21013:
21014: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
21015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21016: END IF;
21017:
21018: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
21011: savepoint UPDATE_LINK_PROJ_ROLLUP_DATES;
21012: END IF;
21013:
21014: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
21015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21016: END IF;
21017:
21018: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
21019: FND_MSG_PUB.initialize;
21014: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
21015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21016: END IF;
21017:
21018: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
21019: FND_MSG_PUB.initialize;
21020: END IF;
21021:
21022: x_return_status := FND_API.G_RET_STS_SUCCESS;
21018: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
21019: FND_MSG_PUB.initialize;
21020: END IF;
21021:
21022: x_return_status := FND_API.G_RET_STS_SUCCESS;
21023:
21024: OPEN c_get_min_max_dates(p_project_id, p_task_id, p_task_version_id, p_structure_version_id, p_as_of_date);
21025: FETCH c_get_min_max_dates INTO l_min_act_st_date, l_max_act_fin_date, l_min_est_st_date, l_max_est_fin_date;
21026: CLOSE c_get_min_max_dates;
21059: and element_version_id = p_task_version_id
21060: and proj_element_id = p_task_id;
21061: END IF;
21062:
21063: IF (p_commit = FND_API.G_TRUE) THEN
21064: COMMIT;
21065: END IF;
21066:
21067:
21065: END IF;
21066:
21067:
21068: EXCEPTION
21069: when FND_API.G_EXC_ERROR then
21070: if p_commit = FND_API.G_TRUE then
21071: rollback to UPDATE_LINK_PROJ_ROLLUP_DATES;
21072: end if;
21073: x_return_status := FND_API.G_RET_STS_ERROR;
21066:
21067:
21068: EXCEPTION
21069: when FND_API.G_EXC_ERROR then
21070: if p_commit = FND_API.G_TRUE then
21071: rollback to UPDATE_LINK_PROJ_ROLLUP_DATES;
21072: end if;
21073: x_return_status := FND_API.G_RET_STS_ERROR;
21074: when FND_API.G_EXC_UNEXPECTED_ERROR then
21069: when FND_API.G_EXC_ERROR then
21070: if p_commit = FND_API.G_TRUE then
21071: rollback to UPDATE_LINK_PROJ_ROLLUP_DATES;
21072: end if;
21073: x_return_status := FND_API.G_RET_STS_ERROR;
21074: when FND_API.G_EXC_UNEXPECTED_ERROR then
21075: if p_commit = FND_API.G_TRUE then
21076: rollback to UPDATE_LINK_PROJ_ROLLUP_DATES;
21077: end if;
21070: if p_commit = FND_API.G_TRUE then
21071: rollback to UPDATE_LINK_PROJ_ROLLUP_DATES;
21072: end if;
21073: x_return_status := FND_API.G_RET_STS_ERROR;
21074: when FND_API.G_EXC_UNEXPECTED_ERROR then
21075: if p_commit = FND_API.G_TRUE then
21076: rollback to UPDATE_LINK_PROJ_ROLLUP_DATES;
21077: end if;
21078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21071: rollback to UPDATE_LINK_PROJ_ROLLUP_DATES;
21072: end if;
21073: x_return_status := FND_API.G_RET_STS_ERROR;
21074: when FND_API.G_EXC_UNEXPECTED_ERROR then
21075: if p_commit = FND_API.G_TRUE then
21076: rollback to UPDATE_LINK_PROJ_ROLLUP_DATES;
21077: end if;
21078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21079: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
21074: when FND_API.G_EXC_UNEXPECTED_ERROR then
21075: if p_commit = FND_API.G_TRUE then
21076: rollback to UPDATE_LINK_PROJ_ROLLUP_DATES;
21077: end if;
21078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21079: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
21080: p_procedure_name => 'UPDATE_LINK_PROJ_ROLLUP_DATES',
21081: p_error_text => SUBSTRB(SQLERRM,1,120));
21082: when OTHERS then
21079: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
21080: p_procedure_name => 'UPDATE_LINK_PROJ_ROLLUP_DATES',
21081: p_error_text => SUBSTRB(SQLERRM,1,120));
21082: when OTHERS then
21083: if p_commit = FND_API.G_TRUE then
21084: rollback to UPDATE_LINK_PROJ_ROLLUP_DATES;
21085: end if;
21086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21087: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
21082: when OTHERS then
21083: if p_commit = FND_API.G_TRUE then
21084: rollback to UPDATE_LINK_PROJ_ROLLUP_DATES;
21085: end if;
21086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21087: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
21088: p_procedure_name => 'UPDATE_LINK_PROJ_ROLLUP_DATES',
21089: p_error_text => SUBSTRB(SQLERRM,1,120));
21090: raise;
21091: END update_link_proj_rollup_dates;
21092:
21093: PROCEDURE UPDATE_PROGRESS_BULK(
21094: p_api_version IN NUMBER :=1.0
21095: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
21096: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
21097: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
21098: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
21099: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
21092:
21093: PROCEDURE UPDATE_PROGRESS_BULK(
21094: p_api_version IN NUMBER :=1.0
21095: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
21096: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
21097: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
21098: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
21099: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
21100: ,p_calling_mode IN VARCHAR2 := null
21093: PROCEDURE UPDATE_PROGRESS_BULK(
21094: p_api_version IN NUMBER :=1.0
21095: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
21096: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
21097: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
21098: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
21099: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
21100: ,p_calling_mode IN VARCHAR2 := null
21101: ,p_debug_mode IN VARCHAR2 :='N'
21094: p_api_version IN NUMBER :=1.0
21095: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
21096: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
21097: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
21098: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
21099: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
21100: ,p_calling_mode IN VARCHAR2 := null
21101: ,p_debug_mode IN VARCHAR2 :='N'
21102: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
21270: IF g1_debug_mode = 'Y' THEN
21271: pa_debug.init_err_stack ('PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK');
21272: END IF;
21273:
21274: --IF (p_commit = FND_API.G_TRUE) THEN
21275: savepoint UPDATE_PROGRESS_BULK;
21276: --END IF;
21277:
21278: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
21274: --IF (p_commit = FND_API.G_TRUE) THEN
21275: savepoint UPDATE_PROGRESS_BULK;
21276: --END IF;
21277:
21278: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
21279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21280: END IF;
21281:
21282: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
21275: savepoint UPDATE_PROGRESS_BULK;
21276: --END IF;
21277:
21278: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
21279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21280: END IF;
21281:
21282: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
21283: FND_MSG_PUB.initialize;
21278: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
21279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
21280: END IF;
21281:
21282: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
21283: FND_MSG_PUB.initialize;
21284: END IF;
21285:
21286: x_return_status := FND_API.G_RET_STS_SUCCESS;
21282: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
21283: FND_MSG_PUB.initialize;
21284: END IF;
21285:
21286: x_return_status := FND_API.G_RET_STS_SUCCESS;
21287:
21288: l_record_count := p_project_id_tbl.COUNT;
21289:
21290: IF g1_debug_mode = 'Y' THEN
21367:
21368: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
21369: ,p_msg_name => 'PA_INV_PARAM_PASSED');
21370: x_msg_data := 'PA_INV_PARAM_PASSED';
21371: x_return_status := FND_API.G_RET_STS_ERROR;
21372: RAISE FND_API.G_EXC_ERROR;
21373: END IF;
21374:
21375:
21368: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
21369: ,p_msg_name => 'PA_INV_PARAM_PASSED');
21370: x_msg_data := 'PA_INV_PARAM_PASSED';
21371: x_return_status := FND_API.G_RET_STS_ERROR;
21372: RAISE FND_API.G_EXC_ERROR;
21373: END IF;
21374:
21375:
21376: l_action := p_action;
21429: ,x_msg_count => l_msg_count
21430: ,x_msg_data => l_msg_data);
21431:
21432:
21433: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
21434:
21435: x_msg_data := l_msg_data;
21436: x_return_status := 'E';
21437: x_msg_count := l_msg_count;
21435: x_msg_data := l_msg_data;
21436: x_return_status := 'E';
21437: x_msg_count := l_msg_count;
21438:
21439: raise FND_API.G_EXC_ERROR;
21440:
21441: end if;
21442:
21443: open l_cur_publish(l_request_id);
21455: ,p_msg_name => 'PA_PS_PUBLISH_NO_PROG');
21456:
21457: x_msg_data := 'PA_PS_PUBLISH_NO_PROG';
21458:
21459: x_return_status := FND_API.G_RET_STS_ERROR;
21460:
21461: raise FND_API.G_EXC_ERROR;
21462:
21463: elsif ((l_rec_publish.process = 'CONC_UPDATE')
21457: x_msg_data := 'PA_PS_PUBLISH_NO_PROG';
21458:
21459: x_return_status := FND_API.G_RET_STS_ERROR;
21460:
21461: raise FND_API.G_EXC_ERROR;
21462:
21463: elsif ((l_rec_publish.process = 'CONC_UPDATE')
21464: and (l_process_code = 'WUP')
21465: and (l_wp_ver_enabled_flag = 'N')) then
21468: ,p_msg_name => 'PA_PS_UPDATE_NO_PROG');
21469:
21470: x_msg_data := 'PA_PS_UPDATE_NO_PROG';
21471:
21472: x_return_status := FND_API.G_RET_STS_ERROR;
21473:
21474: raise FND_API.G_EXC_ERROR;
21475:
21476: elsif ((l_rec_publish.process = 'APPLY_PROGRESS')
21470: x_msg_data := 'PA_PS_UPDATE_NO_PROG';
21471:
21472: x_return_status := FND_API.G_RET_STS_ERROR;
21473:
21474: raise FND_API.G_EXC_ERROR;
21475:
21476: elsif ((l_rec_publish.process = 'APPLY_PROGRESS')
21477: and (l_process_code = 'WUP')
21478: and (l_wp_ver_enabled_flag = 'N')) then
21481: ,p_msg_name => 'PA_PS_APLPRG_NO_PROG');
21482:
21483: x_msg_data := 'PA_PS_APLPRG_NO_PROG';
21484:
21485: x_return_status := FND_API.G_RET_STS_ERROR;
21486:
21487: raise FND_API.G_EXC_ERROR;
21488:
21489: end if;
21483: x_msg_data := 'PA_PS_APLPRG_NO_PROG';
21484:
21485: x_return_status := FND_API.G_RET_STS_ERROR;
21486:
21487: raise FND_API.G_EXC_ERROR;
21488:
21489: end if;
21490:
21491: -- End fix for Bug # 4524977.
21494: IF (p_object_type_tbl(i) IS NULL OR p_object_id_tbl(i) IS NULL OR p_as_of_date_tbl(i) IS NULL ) THEN
21495: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
21496: ,p_msg_name => 'PA_INV_PARAM_PASSED');
21497: x_msg_data := 'PA_INV_PARAM_PASSED';
21498: x_return_status := FND_API.G_RET_STS_ERROR;
21499: RAISE FND_API.G_EXC_ERROR;
21500: END IF;
21501:
21502: IF l_last_project_id <> p_project_id_tbl(i) THEN
21495: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
21496: ,p_msg_name => 'PA_INV_PARAM_PASSED');
21497: x_msg_data := 'PA_INV_PARAM_PASSED';
21498: x_return_status := FND_API.G_RET_STS_ERROR;
21499: RAISE FND_API.G_EXC_ERROR;
21500: END IF;
21501:
21502: IF l_last_project_id <> p_project_id_tbl(i) THEN
21503: l_last_project_id := p_project_id_tbl(i);
21544: IF (l_flag = 'Y') THEN
21545: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
21546: ,p_msg_name => 'PA_TEMPL_PROGRESS_NOT_ALLOWED');
21547: x_msg_data := 'PA_TEMPL_PROGRESS_NOT_ALLOWED';
21548: x_return_status := FND_API.G_RET_STS_ERROR;
21549: RAISE FND_API.G_EXC_ERROR;
21550: END IF;
21551: END IF;
21552:
21545: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
21546: ,p_msg_name => 'PA_TEMPL_PROGRESS_NOT_ALLOWED');
21547: x_msg_data := 'PA_TEMPL_PROGRESS_NOT_ALLOWED';
21548: x_return_status := FND_API.G_RET_STS_ERROR;
21549: RAISE FND_API.G_EXC_ERROR;
21550: END IF;
21551: END IF;
21552:
21553: IF p_structure_type = 'WORKPLAN' THEN
21738: IF g1_debug_mode = 'Y' THEN
21739: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK', x_Msg => 'After individual APIs are called l_return_status='||l_return_status, x_Log_Level=> 3);
21740: END IF;
21741:
21742: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21743: x_msg_data := l_msg_data;
21744: x_return_status := 'E';
21745: x_msg_count := l_msg_count;
21746: RAISE FND_API.G_EXC_ERROR;
21742: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21743: x_msg_data := l_msg_data;
21744: x_return_status := 'E';
21745: x_msg_count := l_msg_count;
21746: RAISE FND_API.G_EXC_ERROR;
21747: END IF;
21748:
21749: l_task_version_id_tbl.extend(1);
21750: l_object_type_tbl.extend(1);
21880: IF g1_debug_mode = 'Y' THEN
21881: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK', x_Msg => 'After Calling ASGN_DLV_TO_TASK_ROLLUP_PVT l_return_status='||l_return_status, x_Log_Level=> 3);
21882: END IF;
21883:
21884: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21885: x_msg_data := l_msg_data;
21886: x_return_status := 'E';
21887: x_msg_count := l_msg_count;
21888: RAISE FND_API.G_EXC_ERROR;
21884: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21885: x_msg_data := l_msg_data;
21886: x_return_status := 'E';
21887: x_msg_count := l_msg_count;
21888: RAISE FND_API.G_EXC_ERROR;
21889: END IF;
21890: END IF;
21891: IF l_action = 'PUBLISH' AND l_split_workplan = 'Y' AND l_budget_call_required_tbl(i) = 'Y' AND p_structure_type = 'WORKPLAN'
21892: -- Removed for Bug 4416432 Issue 11 : AND p_object_type_tbl(i) <> 'PA_DELIVERABLES' -- Bug 4370820 : Added <> DELIVERABLES
21948: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK', x_Msg => 'After Calling MAINTAIN_ACTUAL_AMT_WRP l_return_status='||l_return_status, x_Log_Level=> 3);
21949: END IF;
21950:
21951:
21952: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
21953: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
21954: p_msg_name => l_msg_data);
21955: x_msg_data := l_msg_data;
21956: x_return_status := 'E';
21954: p_msg_name => l_msg_data);
21955: x_msg_data := l_msg_data;
21956: x_return_status := 'E';
21957: x_msg_count := l_msg_count;
21958: RAISE FND_API.G_EXC_ERROR;
21959: END IF;
21960: Pa_Task_Pub1.G_CALL_PJI_ROLLUP := null ;
21961: delete from PA_PROG_ACT_BY_PERIOD_TEMP where project_id = p_project_id_tbl(i) AND structure_version_id = l_structure_version_id_tbl(i);
21962: EXCEPTION
21963: WHEN OTHERS THEN
21964: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
21965: p_procedure_name => 'UPDATE_PROGRESS_BULK',
21966: p_error_text => SUBSTRB('PA_FP_MAINTAIN_ACTUAL_PUB.MAINTAIN_ACTUAL_AMT_WRP:'||SQLERRM,1,120));
21967: RAISE FND_API.G_EXC_ERROR;
21968: END;
21969: END IF; --l_check
21970: END IF;
21971: IF l_action = 'PUBLISH' AND l_budget_call_required_tbl(i) = 'Y' AND p_structure_type = 'WORKPLAN' THEN
21991: WHEN OTHERS THEN
21992: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
21993: p_procedure_name => 'UPDATE_PROGRESS_BULK',
21994: p_error_text => SUBSTRB('Call PJI_FM_XBS_ACCUM_MAINT.PLAN_UPDATE:'||SQLERRM,1,120));
21995: RAISE FND_API.G_EXC_ERROR;
21996: END;
21997:
21998: l_base_struct_ver_id := pa_project_structure_utils.get_baseline_struct_ver(p_project_id_tbl(i));
21999:
22013: ,x_return_status => x_return_status
22014: ,x_msg_count => x_msg_count
22015: ,x_msg_data => x_msg_data
22016: );
22017: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22018: RAISE FND_API.G_EXC_ERROR;
22019: END IF;
22020:
22021: END IF;
22014: ,x_msg_count => x_msg_count
22015: ,x_msg_data => x_msg_data
22016: );
22017: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22018: RAISE FND_API.G_EXC_ERROR;
22019: END IF;
22020:
22021: END IF;
22022:
22073: IF g1_debug_mode = 'Y' THEN
22074: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK', x_Msg => 'After Calling Mass ROLLUP_PROGRESS_PVT x_return_status='||x_return_status, x_Log_Level=> 3);
22075: END IF;
22076:
22077: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22078: RAISE FND_API.G_EXC_ERROR;
22079: END IF;
22080: ELSIF l_action = 'PUBLISH' AND l_rollup_call_required_tbl(i) = 'Y'
22081: THEN
22074: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK', x_Msg => 'After Calling Mass ROLLUP_PROGRESS_PVT x_return_status='||x_return_status, x_Log_Level=> 3);
22075: END IF;
22076:
22077: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22078: RAISE FND_API.G_EXC_ERROR;
22079: END IF;
22080: ELSIF l_action = 'PUBLISH' AND l_rollup_call_required_tbl(i) = 'Y'
22081: THEN
22082:
22110: IF g1_debug_mode = 'Y' THEN
22111: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK', x_Msg => 'After Calling Singular ROLLUP_PROGRESS_PVT l_return_status='||l_return_status, x_Log_Level=> 3);
22112: END IF;
22113:
22114: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22115: x_msg_data := l_msg_data;
22116: x_return_status := 'E';
22117: x_msg_count := l_msg_count;
22118: RAISE FND_API.G_EXC_ERROR;
22114: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22115: x_msg_data := l_msg_data;
22116: x_return_status := 'E';
22117: x_msg_count := l_msg_count;
22118: RAISE FND_API.G_EXC_ERROR;
22119: END IF;
22120:
22121:
22122: IF p_progress_mode <> 'BACKDATED' THEN
22151: IF g1_debug_mode = 'Y' THEN
22152: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK', x_Msg => 'After Calling ROLLUP_FUTURE_PROGRESS_PVT l_return_status='||l_return_status, x_Log_Level=> 3);
22153: END IF;
22154:
22155: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22156: x_msg_data := l_msg_data;
22157: x_return_status := 'E';
22158: x_msg_count := l_msg_count;
22159: RAISE FND_API.G_EXC_ERROR;
22155: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22156: x_msg_data := l_msg_data;
22157: x_return_status := 'E';
22158: x_msg_count := l_msg_count;
22159: RAISE FND_API.G_EXC_ERROR;
22160: END IF;
22161: END IF;
22162: END IF;
22163:
22173: ,p_element_version_id => l_task_version_id_tbl(i)
22174: ,x_return_status => l_return_status
22175: ,x_msg_count => l_msg_count
22176: ,x_msg_data => l_msg_data );
22177: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
22178: THEN
22179: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
22180: p_msg_name => l_msg_data);
22181: x_msg_data := l_msg_data;
22179: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
22180: p_msg_name => l_msg_data);
22181: x_msg_data := l_msg_data;
22182: x_return_status := 'E';
22183: RAISE FND_API.G_EXC_ERROR;
22184: END IF;
22185:
22186: BEGIN
22187: Select ppev1.proj_element_id
22201: (PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(p_project_id_tbl(i)) = 'Y'))
22202: THEN
22203: --copy to transaction dates
22204: PA_PROJECT_DATES_PUB.COPY_PROJECT_DATES(
22205: p_validate_only => FND_API.G_FALSE
22206: ,p_project_id => p_project_id_tbl(i)
22207: ,x_return_status => x_return_status
22208: ,x_msg_count => x_msg_count
22209: ,x_msg_data => x_msg_data);
22234:
22235: IF g1_debug_mode = 'Y' THEN
22236: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK', x_Msg => 'After Calling program_rollup_pvt l_return_status='||l_return_status, x_Log_Level=> 3);
22237: END IF;
22238: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22239: x_msg_data := l_msg_data;
22240: x_return_status := 'E';
22241: x_msg_count := l_msg_count;
22242: RAISE FND_API.G_EXC_ERROR;
22238: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22239: x_msg_data := l_msg_data;
22240: x_return_status := 'E';
22241: x_msg_count := l_msg_count;
22242: RAISE FND_API.G_EXC_ERROR;
22243: END IF;
22244:
22245: END IF;
22246:
22268: IF g1_debug_mode = 'Y' THEN
22269: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.UPDATE_PROGRESS_BULK', x_Msg => 'After Calling update_link_proj_rollup_dates l_return_status='||l_return_status, x_Log_Level=> 3);
22270: END IF;
22271:
22272: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22273: x_msg_data := l_msg_data;
22274: x_return_status := 'E';
22275: x_msg_count := l_msg_count;
22276: RAISE FND_API.G_EXC_ERROR;
22272: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22273: x_msg_data := l_msg_data;
22274: x_return_status := 'E';
22275: x_msg_count := l_msg_count;
22276: RAISE FND_API.G_EXC_ERROR;
22277: END IF;
22278: END IF;
22279: END LOOP;
22280:
22277: END IF;
22278: END IF;
22279: END LOOP;
22280:
22281: IF (p_commit = FND_API.G_TRUE) THEN
22282: COMMIT;
22283: END IF;
22284:
22285: EXCEPTION
22282: COMMIT;
22283: END IF;
22284:
22285: EXCEPTION
22286: when FND_API.G_EXC_ERROR then
22287: -- if p_commit = FND_API.G_TRUE then
22288: rollback to UPDATE_PROGRESS_BULK;
22289: -- end if;
22290: x_return_status := FND_API.G_RET_STS_ERROR;
22283: END IF;
22284:
22285: EXCEPTION
22286: when FND_API.G_EXC_ERROR then
22287: -- if p_commit = FND_API.G_TRUE then
22288: rollback to UPDATE_PROGRESS_BULK;
22289: -- end if;
22290: x_return_status := FND_API.G_RET_STS_ERROR;
22291: x_msg_count := fnd_msg_pub.count_msg;
22286: when FND_API.G_EXC_ERROR then
22287: -- if p_commit = FND_API.G_TRUE then
22288: rollback to UPDATE_PROGRESS_BULK;
22289: -- end if;
22290: x_return_status := FND_API.G_RET_STS_ERROR;
22291: x_msg_count := fnd_msg_pub.count_msg;
22292: when FND_API.G_EXC_UNEXPECTED_ERROR then
22293: -- if p_commit = FND_API.G_TRUE then
22294: rollback to UPDATE_PROGRESS_BULK;
22288: rollback to UPDATE_PROGRESS_BULK;
22289: -- end if;
22290: x_return_status := FND_API.G_RET_STS_ERROR;
22291: x_msg_count := fnd_msg_pub.count_msg;
22292: when FND_API.G_EXC_UNEXPECTED_ERROR then
22293: -- if p_commit = FND_API.G_TRUE then
22294: rollback to UPDATE_PROGRESS_BULK;
22295: -- end if;
22296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22289: -- end if;
22290: x_return_status := FND_API.G_RET_STS_ERROR;
22291: x_msg_count := fnd_msg_pub.count_msg;
22292: when FND_API.G_EXC_UNEXPECTED_ERROR then
22293: -- if p_commit = FND_API.G_TRUE then
22294: rollback to UPDATE_PROGRESS_BULK;
22295: -- end if;
22296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22297: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
22292: when FND_API.G_EXC_UNEXPECTED_ERROR then
22293: -- if p_commit = FND_API.G_TRUE then
22294: rollback to UPDATE_PROGRESS_BULK;
22295: -- end if;
22296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22297: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
22298: p_procedure_name => 'UPDATE_PROGRESS_BULK',
22299: p_error_text => SUBSTRB(SQLERRM,1,120));
22300: x_msg_count := fnd_msg_pub.count_msg;
22298: p_procedure_name => 'UPDATE_PROGRESS_BULK',
22299: p_error_text => SUBSTRB(SQLERRM,1,120));
22300: x_msg_count := fnd_msg_pub.count_msg;
22301: when OTHERS then
22302: -- if p_commit = FND_API.G_TRUE then
22303: rollback to UPDATE_PROGRESS_BULK;
22304: -- end if;
22305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22306: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
22301: when OTHERS then
22302: -- if p_commit = FND_API.G_TRUE then
22303: rollback to UPDATE_PROGRESS_BULK;
22304: -- end if;
22305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22306: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
22307: p_procedure_name => 'UPDATE_PROGRESS_BULK',
22308: p_error_text => SUBSTRB(SQLERRM,1,120));
22309: x_msg_count := fnd_msg_pub.count_msg;
22316: -- Begin fix for Bug # 4262985.
22317:
22318: PROCEDURE apply_lp_prog_on_cwv_wrp(
22319: p_api_version IN NUMBER :=1.0
22320: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
22321: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
22322: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
22323: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
22324: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
22317:
22318: PROCEDURE apply_lp_prog_on_cwv_wrp(
22319: p_api_version IN NUMBER :=1.0
22320: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
22321: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
22322: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
22323: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
22324: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
22325: ,p_debug_mode IN VARCHAR2 :='N'
22318: PROCEDURE apply_lp_prog_on_cwv_wrp(
22319: p_api_version IN NUMBER :=1.0
22320: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
22321: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
22322: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
22323: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
22324: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
22325: ,p_debug_mode IN VARCHAR2 :='N'
22326: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
22319: p_api_version IN NUMBER :=1.0
22320: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
22321: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
22322: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
22323: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
22324: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
22325: ,p_debug_mode IN VARCHAR2 :='N'
22326: ,p_max_msg_count IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
22327: ,p_project_id IN NUMBER
22349: IF g1_debug_mode = 'Y' THEN
22350: pa_debug.debug('PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV_WRP');
22351: END IF;
22352: END IF;
22353: IF (p_commit = FND_API.G_TRUE) THEN
22354: savepoint APPLY_LP_PROG_ON_CWV_WRP;
22355: END IF;
22356:
22357: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
22353: IF (p_commit = FND_API.G_TRUE) THEN
22354: savepoint APPLY_LP_PROG_ON_CWV_WRP;
22355: END IF;
22356:
22357: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
22358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22359: END IF;
22360:
22361: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
22354: savepoint APPLY_LP_PROG_ON_CWV_WRP;
22355: END IF;
22356:
22357: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
22358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22359: END IF;
22360:
22361: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
22362: FND_MSG_PUB.initialize;
22357: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version, p_api_version, l_api_name, g_pkg_name) then
22358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
22359: END IF;
22360:
22361: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
22362: FND_MSG_PUB.initialize;
22363: END IF;
22364:
22365: x_return_status := FND_API.G_RET_STS_SUCCESS;
22361: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
22362: FND_MSG_PUB.initialize;
22363: END IF;
22364:
22365: x_return_status := FND_API.G_RET_STS_SUCCESS;
22366:
22367: g1_debug_mode := NVL(FND_PROFILE.value_specific('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.login_id,275,null,null), 'N');
22368:
22369: IF g1_debug_mode = 'Y' THEN
22390: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV_WRP', x_Msg => 'Done with PA_PROJ_TASK_STRUC_PUB.SET_UPDATE_WBS_FLAG l_return_status='||l_return_status, x_Log_Level=> 3);
22391: END IF;
22392:
22393:
22394: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22395: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
22396: p_msg_name => l_msg_data);
22397: x_msg_data := l_msg_data;
22398: x_return_status := 'E';
22396: p_msg_name => l_msg_data);
22397: x_msg_data := l_msg_data;
22398: x_return_status := 'E';
22399: x_msg_count := l_msg_count;
22400: RAISE FND_API.G_EXC_ERROR;
22401: END IF;
22402:
22403: IF g1_debug_mode = 'Y' THEN
22404: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV_WRP', x_Msg => 'Before calling PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP', x_Log_Level=> 3);
22415: IF g1_debug_mode = 'Y' THEN
22416: pa_debug.write(x_Module=>'PA_PROGRESS_PUB.APPLY_LP_PROG_ON_CWV_WRP', x_Msg => 'Done with PA_PROJ_TASK_STRUC_PUB.PROCESS_WBS_UPDATES_WRP l_return_status='||l_return_status, x_Log_Level=> 3);
22417: END IF;
22418:
22419: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
22420: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
22421: p_msg_name => l_msg_data);
22422: x_msg_data := l_msg_data;
22423: x_return_status := 'E';
22421: p_msg_name => l_msg_data);
22422: x_msg_data := l_msg_data;
22423: x_return_status := 'E';
22424: x_msg_count := l_msg_count;
22425: RAISE FND_API.G_EXC_ERROR;
22426: END IF;
22427:
22428:
22429: EXCEPTION
22426: END IF;
22427:
22428:
22429: EXCEPTION
22430: when FND_API.G_EXC_ERROR then
22431: if p_commit = FND_API.G_TRUE then
22432: rollback to APPLY_LP_PROG_ON_CWV_WRP;
22433: end if;
22434: x_return_status := FND_API.G_RET_STS_ERROR;
22427:
22428:
22429: EXCEPTION
22430: when FND_API.G_EXC_ERROR then
22431: if p_commit = FND_API.G_TRUE then
22432: rollback to APPLY_LP_PROG_ON_CWV_WRP;
22433: end if;
22434: x_return_status := FND_API.G_RET_STS_ERROR;
22435:
22430: when FND_API.G_EXC_ERROR then
22431: if p_commit = FND_API.G_TRUE then
22432: rollback to APPLY_LP_PROG_ON_CWV_WRP;
22433: end if;
22434: x_return_status := FND_API.G_RET_STS_ERROR;
22435:
22436: when FND_API.G_EXC_UNEXPECTED_ERROR then
22437: if p_commit = FND_API.G_TRUE then
22438: rollback to APPLY_LP_PROG_ON_CWV_WRP;
22432: rollback to APPLY_LP_PROG_ON_CWV_WRP;
22433: end if;
22434: x_return_status := FND_API.G_RET_STS_ERROR;
22435:
22436: when FND_API.G_EXC_UNEXPECTED_ERROR then
22437: if p_commit = FND_API.G_TRUE then
22438: rollback to APPLY_LP_PROG_ON_CWV_WRP;
22439: end if;
22440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22433: end if;
22434: x_return_status := FND_API.G_RET_STS_ERROR;
22435:
22436: when FND_API.G_EXC_UNEXPECTED_ERROR then
22437: if p_commit = FND_API.G_TRUE then
22438: rollback to APPLY_LP_PROG_ON_CWV_WRP;
22439: end if;
22440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22441: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
22436: when FND_API.G_EXC_UNEXPECTED_ERROR then
22437: if p_commit = FND_API.G_TRUE then
22438: rollback to APPLY_LP_PROG_ON_CWV_WRP;
22439: end if;
22440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22441: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
22442: p_procedure_name => 'APPLY_LP_PROG_ON_CWV_WRP',
22443: p_error_text => SUBSTRB(SQLERRM,1,120));
22444: when OTHERS then
22441: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
22442: p_procedure_name => 'APPLY_LP_PROG_ON_CWV_WRP',
22443: p_error_text => SUBSTRB(SQLERRM,1,120));
22444: when OTHERS then
22445: if p_commit = FND_API.G_TRUE then
22446: rollback to APPLY_LP_PROG_ON_CWV;
22447: end if;
22448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22449: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
22444: when OTHERS then
22445: if p_commit = FND_API.G_TRUE then
22446: rollback to APPLY_LP_PROG_ON_CWV;
22447: end if;
22448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22449: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_PUB',
22450: p_procedure_name => 'APPLY_LP_PROG_ON_CWV_WRP',
22451: p_error_text => SUBSTRB(SQLERRM,1,120));
22452: raise;