[Home] [Help]
114: IF p_pa_debug_mode = 'Y' THEN
115: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
116: p_debug_mode => l_debug_mode );
117: END IF;
118: x_return_status := FND_API.G_RET_STS_SUCCESS;
119: x_msg_count := 0;
120: --------dbms_output.put_line('FP_CI_LINK_CONTROL_ITEMS - 1');
121: --Check for nulls for mandatory parameters
122: IF p_s_fp_version_id IS NULL THEN
132: IF p_pa_debug_mode = 'Y' THEN
133: PA_DEBUG.g_err_stage := 'The source budget version id passed is null';
134: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
135: END IF;
136: x_return_status := FND_API.G_RET_STS_ERROR;
137: --------dbms_output.put_line('FP_CI_LINK_CONTROL_ITEMS - ***2');
138: IF p_pa_debug_mode = 'Y' THEN
139: PA_DEBUG.Reset_Curr_Function;
140: END IF;
152: IF p_pa_debug_mode = 'Y' THEN
153: PA_DEBUG.g_err_stage := 'The target budget version id passed is null';
154: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
155: END IF;
156: x_return_status := FND_API.G_RET_STS_ERROR;
157: --------dbms_output.put_line('FP_CI_LINK_CONTROL_ITEMS - ***3');
158: IF p_pa_debug_mode = 'Y' THEN
159: PA_DEBUG.Reset_Curr_Function;
160: END IF;
172: IF p_pa_debug_mode = 'Y' THEN
173: PA_DEBUG.g_err_stage := 'The project id passed is null';
174: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
175: END IF;
176: x_return_status := FND_API.G_RET_STS_ERROR;
177: --------dbms_output.put_line('FP_CI_LINK_CONTROL_ITEMS -*** 4');
178: IF p_pa_debug_mode = 'Y' THEN
179: PA_DEBUG.Reset_Curr_Function;
180: END IF;
190: END IF;
191: PA_UTILS.ADD_MESSAGE
192: ( p_app_short_name => 'PA',
193: p_msg_name => 'PA_FP_CI_NULL_PARAM_PASSED');
194: x_return_status := FND_API.G_RET_STS_ERROR;
195: --------dbms_output.put_line('FP_CI_LINK_CONTROL_ITEMS -*** 4');
196: IF p_pa_debug_mode = 'Y' THEN
197: PA_DEBUG.Reset_Curr_Function;
198: END IF;
217: PA_UTILS.ADD_MESSAGE
218: ( p_app_short_name => 'PA',
219: p_msg_name => 'PA_FP_CI_NO_CI_ID_FOUND');
220: --------dbms_output.put_line('FP_CI_LINK_CONTROL_ITEMS - 5****');
221: x_return_status := FND_API.G_RET_STS_ERROR;
222: END;
223: ELSE
224: l_s_ci_id := p_ci_id;
225: END IF;
378: IF p_pa_debug_mode = 'Y' THEN
379: PA_DEBUG.g_err_stage := 'Unexpected error in fp_ci_link_control_items';
380: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
381: END IF;
382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
383: --------dbms_output.put_line('FP_CI_LINK_CONTROL_ITEMS - 6****');
384: IF p_pa_debug_mode = 'Y' THEN
385: PA_DEBUG.Reset_Curr_Function;
386: END IF;
440: l_debug_mode := NVL(l_debug_mode, 'Y');
441: IF p_pa_debug_mode = 'Y' THEN
442: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
443: END IF;
444: x_return_status := FND_API.G_RET_STS_SUCCESS;
445: x_msg_count := 0;
446: --------dbms_output.put_line('FP_CI_UPDATE_EST_AMOUNTS - 1');
447: --Check for nulls for mandatory parameters
448: IF p_source_version_id IS NULL THEN
452: IF p_pa_debug_mode = 'Y' THEN
453: PA_DEBUG.g_err_stage := 'The source budget version id passed is null';
454: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
455: END IF;
456: x_return_status := FND_API.G_RET_STS_ERROR;
457: RETURN;
458: END IF;
459:
460: IF p_target_version_id IS NULL THEN
464: IF p_pa_debug_mode = 'Y' THEN
465: PA_DEBUG.g_err_stage := 'The target budget version id passed is null';
466: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
467: END IF;
468: x_return_status := FND_API.G_RET_STS_ERROR;
469: RETURN;
470: END IF;
471:
472: IF p_project_id IS NULL THEN
476: IF p_pa_debug_mode = 'Y' THEN
477: PA_DEBUG.g_err_stage := 'The project id passed is null';
478: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
479: END IF;
480: x_return_status := FND_API.G_RET_STS_ERROR;
481: RETURN;
482: END IF;
483:
484: -- Get the target version type
494: PA_UTILS.ADD_MESSAGE
495: ( p_app_short_name => 'PA',
496: p_msg_name => 'PA_FP_CI_NO_VERSION_DATA_FOUND');
497: ------dbms_output.put_line('FP_CI_UPDATE_EST_AMOUNTS - 2***');
498: x_return_status := FND_API.G_RET_STS_ERROR;
499: END;
500:
501: -- Get the estimated amounts for the source version
502:
531: PA_UTILS.ADD_MESSAGE
532: ( p_app_short_name => 'PA',
533: p_msg_name => 'PA_FP_CI_NO_VERSION_DATA_FOUND');
534: ------dbms_output.put_line('FP_CI_UPDATE_EST_AMOUNTS - 2***');
535: x_return_status := FND_API.G_RET_STS_ERROR;
536: END;
537:
538: -- Update the budget versions table for the target version
539: -- based on version type
575: WHERE
576: bv.project_id = p_project_id
577: AND bv.budget_version_id = p_target_version_id;
578: IF (SQL%ROWCOUNT = 0) THEN
579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
581: END IF;
582: ELSIF(l_target_ver_type = 'COST') THEN
583: UPDATE PA_BUDGET_VERSIONS bv
576: bv.project_id = p_project_id
577: AND bv.budget_version_id = p_target_version_id;
578: IF (SQL%ROWCOUNT = 0) THEN
579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
581: END IF;
582: ELSIF(l_target_ver_type = 'COST') THEN
583: UPDATE PA_BUDGET_VERSIONS bv
584: SET
605: WHERE
606: bv.project_id = p_project_id
607: AND bv.budget_version_id = p_target_version_id;
608: IF (SQL%ROWCOUNT = 0) THEN
609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
611: END IF;
612: ELSIF(l_target_ver_type = 'REVENUE') THEN
613: UPDATE PA_BUDGET_VERSIONS bv
606: bv.project_id = p_project_id
607: AND bv.budget_version_id = p_target_version_id;
608: IF (SQL%ROWCOUNT = 0) THEN
609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
611: END IF;
612: ELSIF(l_target_ver_type = 'REVENUE') THEN
613: UPDATE PA_BUDGET_VERSIONS bv
614: SET
627: WHERE
628: bv.project_id = p_project_id
629: AND bv.budget_version_id = p_target_version_id;
630: IF (SQL%ROWCOUNT = 0) THEN
631: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
633: END IF;
634: END IF;
635:
628: bv.project_id = p_project_id
629: AND bv.budget_version_id = p_target_version_id;
630: IF (SQL%ROWCOUNT = 0) THEN
631: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
633: END IF;
634: END IF;
635:
636: IF (p_update_agreement = 'Y') THEN
640: WHERE
641: bv.project_id = p_project_id
642: AND bv.budget_version_id = p_target_version_id;
643: IF (SQL%ROWCOUNT = 0) THEN
644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
646: END IF;
647: END IF;
648: IF NVL(p_commit_flag,'N') = 'Y' THEN
641: bv.project_id = p_project_id
642: AND bv.budget_version_id = p_target_version_id;
643: IF (SQL%ROWCOUNT = 0) THEN
644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
645: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
646: END IF;
647: END IF;
648: IF NVL(p_commit_flag,'N') = 'Y' THEN
649: COMMIT;
657: IF p_pa_debug_mode = 'Y' THEN
658: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_UPDATE_EST_AMOUNTS';
659: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
660: END IF;
661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
662: --------dbms_output.put_line('FP_CI_UPDATE_EST_AMOUNTS - 6****');
663: IF p_pa_debug_mode = 'Y' THEN
664: PA_DEBUG.Reset_Curr_Function;
665: END IF;
714: l_debug_mode := NVL(l_debug_mode, 'Y');
715: IF p_pa_debug_mode = 'Y' THEN
716: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
717: END IF;
718: x_return_status := FND_API.G_RET_STS_SUCCESS;
719: x_msg_count := 0;
720: --------dbms_output.put_line('FP_CI_UPDATE_IMPACT - 1');
721: --Checking for a valid implementation date
722: IF (p_implementation_date > SYSDATE) THEN
722: IF (p_implementation_date > SYSDATE) THEN
723: PA_UTILS.Add_Message ( p_app_short_name => 'PA',
724: p_msg_name => 'PA_FP_CI_INV_IMPACT_DATE'
725: );
726: x_return_status := FND_API.G_RET_STS_ERROR;
727: RETURN;
728: END IF;
729:
730: --Checking if control item id is null
731: IF p_ci_id IS NULL THEN
732: PA_UTILS.Add_Message ( p_app_short_name => 'PA',
733: p_msg_name => 'PA_FP_CI_NULL_CI_ID'
734: );
735: x_return_status := FND_API.G_RET_STS_ERROR;
736: RETURN;
737: END IF;
738:
739: IF p_impact_type_code IS NULL OR
742: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
743: p_token1=>'PROCEDURENAME',
744: p_value1=>'FP_CI_UPDATE_IMPACT'
745: );
746: x_return_status := FND_API.G_RET_STS_ERROR;
747: RETURN;
748: END IF;
749:
750:
799: AND ((l_impact_type_code ='FINPLAN_BOTH' AND impact_type_code IN ('FINPLAN_COST', 'FINPLAN_REVENUE'))
800: OR (impact_type_code = l_impact_type_code));
801: --------dbms_output.put_line('SQL%ROWCOUNT****' || SQL%ROWCOUNT);
802: IF (SQL%ROWCOUNT = 0) THEN
803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
804: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
805: END IF;
806: IF NVL(p_commit_flag,'N') = 'Y' THEN
807: COMMIT;
800: OR (impact_type_code = l_impact_type_code));
801: --------dbms_output.put_line('SQL%ROWCOUNT****' || SQL%ROWCOUNT);
802: IF (SQL%ROWCOUNT = 0) THEN
803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
804: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
805: END IF;
806: IF NVL(p_commit_flag,'N') = 'Y' THEN
807: COMMIT;
808: END IF;
815: IF p_pa_debug_mode = 'Y' THEN
816: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_UPDATE_IMPACT';
817: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
818: END IF;
819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
820: --------dbms_output.put_line('FP_CI_UPDATE_IMPACT - 6****');
821: IF p_pa_debug_mode = 'Y' THEN
822: PA_DEBUG.Reset_Curr_Function;
823: END IF;
949: l_debug_mode := NVL(l_debug_mode, 'Y');
950: IF p_pa_debug_mode = 'Y' THEN
951: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
952: END IF;
953: x_return_status := FND_API.G_RET_STS_SUCCESS;
954: x_msg_count := 0;
955:
956: l_target_version_id := NULL;
957: l_update_agreement_flag := 'N';
1070: x_msg_count => x_msg_count,
1071: x_msg_data => x_msg_data
1072: ) ;
1073:
1074: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1075: RETURN;
1076: END IF;
1077:
1078: -- Bug 3677924 Jul 06 2004 Raja
1111: x_return_status => x_return_status,
1112: x_msg_count => x_msg_count,
1113: x_msg_data => x_msg_data);
1114:
1115: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1116: ROLLBACK TO before_fp_ci_copy;
1117: RETURN;
1118: END IF;
1119:
1147: x_msg_count => x_msg_count,
1148: x_msg_data => x_msg_data );
1149:
1150: -- p_commit_flag :='Y';
1151: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1152: ROLLBACK TO before_fp_ci_copy;
1153: RETURN;
1154: END IF;
1155: ELSE
1171: PA_UTILS.ADD_MESSAGE
1172: ( p_app_short_name => 'PA',
1173: p_msg_name => 'PA_FP_CI_C_INV_VER_TYPE_MATCH');
1174: ------dbms_output.put_line('FP_CI_CHECK_COPY_POSSIBLE - 2***');
1175: x_return_status := FND_API.G_RET_STS_ERROR;
1176: END;
1177: END IF;
1178:
1179: l_impl_cost_flag_tbl.extend(1);
1226: ,x_translated_err_msg_level_tbl => l_translated_err_msg_level_tbl
1227: ,x_return_status => x_return_status
1228: ,x_msg_count => x_msg_count
1229: ,x_msg_data => x_msg_data);
1230: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1231: ROLLBACK TO before_fp_ci_copy;
1232: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 11*****');
1233: RETURN;
1234: END IF;
1235:
1236: l_update_agreement_flag := 'N';
1237:
1238: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 10');
1239: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1240: ROLLBACK TO before_fp_ci_copy;
1241: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 11*****');
1242: RETURN;
1243: END IF;
1257: x_msg_count => x_msg_count,
1258: x_msg_data => x_msg_data );
1259:
1260: -- p_commit_flag :='Y';
1261: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1262: ROLLBACK TO before_fp_ci_copy;
1263: RETURN;
1264: END IF;
1265:
1278: x_return_status => x_return_status,
1279: x_msg_count => x_msg_count,
1280: x_msg_data => x_msg_data
1281: );
1282: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1283: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 150****');
1284: ROLLBACK TO before_fp_ci_copy;
1285: RETURN;
1286: END IF;
1324: x_msg_count => x_msg_count,
1325: x_msg_data => x_msg_data
1326: ) ;
1327:
1328: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1329: RETURN;
1330: END IF;
1331:
1332: -- Bug 3677924 Jul 06 2004 Raja
1362: x_return_status => x_return_status,
1363: x_msg_count => x_msg_count,
1364: x_msg_data => x_msg_data);
1365:
1366: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1367: ROLLBACK TO before_fp_ci_copy;
1368: RETURN;
1369: END IF;
1370:
1423: --p_commit_flag :='Y';
1424: end if;
1425: l_t_app_cost_flag := null ;
1426: /* For Enc 12.1.3 end */
1427: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1428: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 150****');
1429: ROLLBACK TO before_fp_ci_copy;
1430: RETURN;
1431: END IF;
1432: END IF; -- if impact record exists copy amounts
1433: EXCEPTION
1434: WHEN RAISE_COPY_ERROR THEN
1435: x_warning_flag := 'Y';
1436: x_return_status := FND_API.G_RET_STS_ERROR;
1437: END;
1438: END LOOP;
1439: ELSIF(l_t_count_versions = 2) THEN
1440:
1486: ,x_return_status => x_return_status
1487: ,x_msg_count => x_msg_count
1488: ,x_msg_data => x_msg_data);
1489: l_update_agreement_flag := 'N';
1490: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1491: ROLLBACK TO before_fp_ci_copy;
1492: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 11*****');
1493: RETURN;
1494: END IF;
1530: );
1531:
1532: END LOOP;
1533:
1534: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1535: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 150****');
1536: ROLLBACK TO before_fp_ci_copy;
1537: RETURN;
1538: END IF;
1593: ,x_translated_err_msg_level_tbl => l_translated_err_msg_level_tbl
1594: ,x_return_status => x_return_status
1595: ,x_msg_count => x_msg_count
1596: ,x_msg_data => x_msg_data);
1597: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1598: ROLLBACK TO before_fp_ci_copy;
1599: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 11*****');
1600: RETURN;
1601: END IF;
1620: );
1621:
1622: END LOOP;
1623:
1624: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1625: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 150****');
1626: ROLLBACK TO before_fp_ci_copy;
1627: RETURN;
1628: END IF;
1665: x_msg_count => x_msg_count,
1666: x_msg_data => x_msg_data
1667: ) ;
1668:
1669: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1670: RETURN;
1671: END IF;
1672:
1673: -- Bug 3677924 Jul 06 2004 Raja
1704: x_return_status => x_return_status,
1705: x_msg_count => x_msg_count,
1706: x_msg_data => x_msg_data);
1707:
1708: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1709: ROLLBACK TO before_fp_ci_copy;
1710: RETURN;
1711: END IF;
1712: l_update_agreement_flag := 'Y';
1732: x_return_status => x_return_status,
1733: x_msg_count => x_msg_count,
1734: x_msg_data => x_msg_data
1735: );
1736: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1737: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 150****');
1738: ROLLBACK TO before_fp_ci_copy;
1739: RETURN;
1740: END IF;
1743:
1744: EXCEPTION
1745: WHEN RAISE_COPY_ERROR THEN
1746: x_warning_flag := 'Y';
1747: x_return_status := FND_API.G_RET_STS_ERROR;
1748: END;
1749: ELSE
1750: --Merge the source into the target
1751: l_source_id_tbl.DELETE;
1796: ,x_translated_err_msg_level_tbl => l_translated_err_msg_level_tbl
1797: ,x_return_status => x_return_status
1798: ,x_msg_count => x_msg_count
1799: ,x_msg_data => x_msg_data);
1800: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1801: ROLLBACK TO before_fp_ci_copy;
1802: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 11*****');
1803: RETURN;
1804: END IF;
1819: x_msg_count => x_msg_count,
1820: x_msg_data => x_msg_data
1821: );
1822:
1823: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1824: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 150****');
1825: ROLLBACK TO before_fp_ci_copy;
1826: RETURN;
1827: END IF;
1844: IF p_pa_debug_mode = 'Y' THEN
1845: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_MERGE_CI_ITEMS';
1846: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1847: END IF;
1848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1849: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 14');
1850: IF p_pa_debug_mode = 'Y' THEN
1851: PA_DEBUG.Reset_Curr_Function;
1852: END IF;
1891:
1892: BEGIN
1893:
1894: x_msg_count := 0;
1895: x_return_status := FND_API.G_RET_STS_SUCCESS;
1896: IF p_pa_debug_mode = 'Y' THEN
1897: pa_debug.set_err_stack('PA_FP_CI_MERGE.copy_merged_ctrl_items');
1898: END IF;
1899: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2155: EXCEPTION
2156:
2157: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2158:
2159: x_return_status := FND_API.G_RET_STS_ERROR;
2160: l_msg_count := FND_MSG_PUB.count_msg;
2161: IF l_msg_count = 1 THEN
2162: PA_INTERFACE_UTILS_PUB.get_messages
2163: (p_encoded => FND_API.G_TRUE
2159: x_return_status := FND_API.G_RET_STS_ERROR;
2160: l_msg_count := FND_MSG_PUB.count_msg;
2161: IF l_msg_count = 1 THEN
2162: PA_INTERFACE_UTILS_PUB.get_messages
2163: (p_encoded => FND_API.G_TRUE
2164: ,p_msg_index => 1
2165: ,p_msg_count => l_msg_count
2166: ,p_msg_data => l_msg_data
2167: ,p_data => l_data
2177: RAISE;
2178:
2179: WHEN others THEN
2180:
2181: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2182: x_msg_count := 1;
2183: x_msg_data := SQLERRM;
2184: FND_MSG_PUB.add_exc_msg
2185: ( p_pkg_name => 'PA_FP_CI_MERGE'
2259:
2260: BEGIN
2261:
2262: x_msg_count := 0;
2263: x_return_status := FND_API.G_RET_STS_SUCCESS;
2264: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2265: IF l_debug_mode = 'Y' THEN
2266: pa_debug.set_err_stack('PA_FP_CI_MERGE.FP_CI_MANUAL_MERGE');
2267: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2406: ,x_msg_count => x_msg_count
2407: ,x_msg_data => x_msg_data
2408: );
2409:
2410: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2411: IF l_debug_mode = 'Y' THEN
2412: pa_debug.g_err_stage:= 'Error calling FP_CI_LINK_CONTROL_ITEMS';
2413: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
2414: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2486: ,x_msg_count => x_msg_count
2487: ,x_msg_data => x_msg_data
2488: );
2489:
2490: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2491: IF l_debug_mode = 'Y' THEN
2492: pa_debug.g_err_stage:= 'Error calling FP_CI_LINK_CONTROL_ITEMS';
2493: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
2494: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2514: ,x_msg_count => x_msg_count
2515: ,x_return_status => x_return_status
2516: );
2517:
2518: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2519: IF l_debug_mode = 'Y' THEN
2520: pa_debug.g_err_stage:= 'Error calling Pa_Fp_Control_Items_Utils.FP_CI_VALIDATE_UPDATE_IMPACT';
2521: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
2522: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2549: ,x_msg_count => x_msg_count
2550: ,x_msg_data => x_msg_data
2551: );
2552:
2553: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2554: IF l_debug_mode = 'Y' THEN
2555: pa_debug.g_err_stage:= 'Error calling FP_CI_UPDATE_IMPACT';
2556: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
2557: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2576: ,x_msg_count => x_msg_count
2577: ,x_msg_data => x_msg_data
2578: );
2579:
2580: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2581: IF l_debug_mode = 'Y' THEN
2582: pa_debug.g_err_stage:= 'Error calling FP_CI_UPDATE_IMPACT';
2583: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
2584: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2599: EXCEPTION
2600:
2601: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2602:
2603: x_return_status := FND_API.G_RET_STS_ERROR;
2604: l_msg_count := FND_MSG_PUB.count_msg;
2605:
2606: IF l_msg_count = 1 and x_msg_data IS NULL THEN
2607: PA_INTERFACE_UTILS_PUB.get_messages
2604: l_msg_count := FND_MSG_PUB.count_msg;
2605:
2606: IF l_msg_count = 1 and x_msg_data IS NULL THEN
2607: PA_INTERFACE_UTILS_PUB.get_messages
2608: (p_encoded => FND_API.G_TRUE
2609: ,p_msg_index => 1
2610: ,p_msg_count => l_msg_count
2611: ,p_msg_data => l_msg_data
2612: ,p_data => l_data
2622: -- RAISE; /* bug 3978200 Directly called from middle tier donot raise */
2623:
2624: WHEN others THEN
2625:
2626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2627: x_msg_count := 1;
2628: x_msg_data := SQLERRM;
2629:
2630: FND_MSG_PUB.add_exc_msg
3349: pa_debug.set_curr_function( p_function => 'implement_ci_into_single_ver',
3350: p_debug_mode => P_PA_debug_mode );
3351: END IF;
3352: x_msg_count := 0;
3353: x_return_status := FND_API.G_RET_STS_SUCCESS;
3354:
3355: SAVEPOINT implement_ci_into_single_ver;
3356:
3357: --dbms_output.put_line('I1');
3375: ,x_return_status => l_return_status
3376: ,x_msg_count => l_msg_data
3377: ,x_msg_data => l_msg_count);
3378:
3379: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3380: IF P_PA_debug_mode = 'Y' THEN
3381: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
3382: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3383: END IF;
3571: ,x_return_status => l_return_status
3572: ,x_msg_data => l_msg_data
3573: ,x_msg_count => l_msg_count);
3574:
3575: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3576: IF P_PA_debug_mode = 'Y' THEN
3577: pa_debug.g_err_stage:= 'pa_fp_control_items_utils.get_impl_details returned error';
3578: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3579: END IF;
4055: ,x_return_status => l_return_status
4056: ,x_msg_count => l_msg_count
4057: ,x_msg_data => l_msg_data);
4058:
4059: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4060: IF P_PA_debug_mode = 'Y' THEN
4061: pa_debug.g_err_stage:= 'PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs returned error';
4062: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4063: END IF;
4586: X_msg_count => l_MSG_COUNT,
4587: X_return_status => l_RETURN_STATUS);
4588:
4589:
4590: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4591: IF P_PA_debug_mode = 'Y' THEN
4592: pa_debug.g_err_stage:= 'Error in get_resource_defaults';
4593: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4594: END IF;
4631: pa_debug.g_err_stage:= 'Match for l_targ_rlm_id_tbl('||kk||') '||l_targ_rlm_id_tbl(kk) ||' not found in l_da_resource_list_members_tab';
4632: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4633:
4634: END IF;
4635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4636:
4637: END IF;
4638:
4639: l_targ_RESOURCE_CLASS_FLAG_tbl(kk) := l_da_resource_class_flag_tab(l_temp) ;
4785: ,x_return_status => l_return_status
4786: ,x_msg_count => l_msg_count
4787: ,x_msg_data => l_msg_data);
4788:
4789: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4790: IF P_PA_debug_mode = 'Y' THEN
4791: pa_debug.g_err_stage:= 'Error in get_resource_defaults';
4792: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4793: END IF;
4828: pa_debug.g_err_stage:= 'Match for l_targ_rlm_id_tbl('||kk||') '||l_targ_rlm_id_tbl(kk) ||' not found in l_da_resource_list_members_tab';
4829: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4830:
4831: END IF;
4832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4833:
4834: END IF;
4835:
4836: l_targ_txn_accum_header_id_tbl(kk) := l_txn_accum_header_id_prm_tbl(l_temp);
4894: ,x_return_status => l_return_status
4895: ,x_msg_count => l_msg_count
4896: ,x_msg_data => l_msg_data);
4897:
4898: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4899: IF P_PA_debug_mode = 'Y' THEN
4900: pa_debug.g_err_stage:= 'Error in Map_Rlmi_Rbs';
4901: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4902: END IF;
4919:
4920: --Raise an error if the resource list member in l_da_resource_list_members_tab does not
4921: --exist in l_targ_rlm_id_tbl (This should never happen).Bug 3678314.
4922: IF lresource_list_members_tab_1(l_temp)<>l_targ_rlm_id_tbl(kk) THEN
4923: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4924: END IF;
4925: l_targ_txn_accum_header_id_tbl(kk) := ltxnaccumheader_id_prm_tbl_1(l_temp);
4926: l_targ_rbs_element_id_tbl(kk) := l_rbs_element_id_prm_tbl_1(l_temp);
4927:
5013: X_msg_count => l_MSG_COUNT,
5014: X_return_status => l_RETURN_STATUS);
5015:
5016:
5017: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5018: IF P_PA_debug_mode = 'Y' THEN
5019: pa_debug.g_err_stage:= 'Error in get_resource_defaults';
5020: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5021: END IF;
5059: pa_debug.g_err_stage:= 'Match for l_targ_rlm_id_tbl('||kk||') '||l_targ_rlm_id_tbl(kk) ||' not found in l_da_resource_list_members_tab';
5060: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5061:
5062: END IF;
5063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5064:
5065: END IF;
5066:
5067: l_targ_RESOURCE_CLASS_FLAG_tbl(kk) := l_da_resource_class_flag_tab(l_temp) ;
5213: ,x_return_status => l_return_status
5214: ,x_msg_count => l_msg_count
5215: ,x_msg_data => l_msg_data);
5216:
5217: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5218: IF P_PA_debug_mode = 'Y' THEN
5219: pa_debug.g_err_stage:= 'Error in get_resource_defaults ';
5220: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5221: END IF;
5256: pa_debug.g_err_stage:= 'Match for l_targ_rlm_id_tbl('||kk||') '||l_targ_rlm_id_tbl(kk) ||' not found in l_da_resource_list_members_tab';
5257: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5258:
5259: END IF;
5260: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5261:
5262: END IF;
5263:
5264: l_targ_txn_accum_header_id_tbl(kk) := l_txn_accum_header_id_prm_tbl(l_temp);
5905: ,x_return_status => l_return_status
5906: ,x_msg_count => l_msg_count
5907: ,x_msg_data => l_msg_data);
5908:
5909: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5910: IF P_PA_debug_mode = 'Y' THEN
5911: pa_debug.g_err_stage:= 'Error in calculate';
5912: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5913: END IF;
8834: ,x_return_status => x_return_status
8835: ,x_msg_count => x_msg_count
8836: ,x_msg_data => x_msg_data );
8837:
8838: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8839:
8840: IF P_PA_debug_mode = 'Y' THEN
8841: pa_debug.g_err_stage:= 'pa_fp_multi_currency_pkg.round_amounts returned error';
8842: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9192: ,x_return_status => l_return_status
9193: ,x_msg_count => l_msg_count
9194: ,x_msg_data => l_msg_data);
9195:
9196: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9197: IF P_PA_debug_mode = 'Y' THEN
9198: pa_debug.g_err_stage:= 'Error in PA_FP_MULTI_CURRENCY_PKG.Round_Budget_Line_Amounts';
9199: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9200: END IF;
9464: ,x_return_status => l_return_status
9465: ,x_msg_count => l_msg_count
9466: ,x_msg_data => l_msg_data);
9467:
9468: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9469: IF P_PA_debug_mode = 'Y' THEN
9470: pa_debug.g_err_stage:= 'Error CALLING PAFPCALB.CheckZeroQTyNegETC';
9471: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9472: END IF;
9723: pa_debug.g_err_stage:='RA in l_bl_RESOURCE_ASIGNMENT_ID_tbl '||l_bl_RESOURCE_ASIGNMENT_ID_tbl(kk) ||' doesnt exist in l_upd_ra_res_asmt_id_tbl ';
9724: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9725: END IF;
9726:
9727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9728:
9729: END IF;
9730:
9731: l_pji_prm_task_id_tbl.extend;
9764: ,x_return_status => l_return_status
9765: ,x_msg_count => l_msg_count
9766: ,x_msg_data => l_msg_data);
9767:
9768: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9769: IF P_PA_debug_mode = 'Y' THEN
9770: pa_debug.g_err_stage:= 'Error in ROLLUP_BUDGET_VERSION';
9771: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9772: END IF;
9788: x_msg_count => l_msg_count,
9789: x_msg_data => l_msg_data);
9790: END IF;
9791:
9792: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9793: IF P_PA_debug_mode = 'Y' THEN
9794: pa_debug.g_err_stage:= 'Error in g_mrc_enabled_for_budgets';
9795: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9796: END IF;
9811: x_msg_count => x_msg_count,
9812: x_msg_data => x_msg_data);
9813:
9814:
9815: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9816: IF P_PA_debug_mode = 'Y' THEN
9817: pa_debug.g_err_stage:= 'Error in maintain_all_mc_budget_lines';
9818: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9819: END IF;
9836: --p_resource_assignment_id_tab => l_res_assignment_id_tbl,
9837: p_set_disp_qty_null_for_nrbf => 'Y',
9838: x_return_status => l_return_status);
9839:
9840: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9841: IF P_PA_debug_mode = 'Y' THEN
9842: pa_debug.g_err_stage:= 'Error in PA_BUDGET_LINES_UTILS.populate_display_qty';
9843: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9844: END IF;
9852: X_RETURN_STATUS => l_return_status,
9853: X_MSG_COUNT => l_msg_count,
9854: X_MSG_DATA => l_msg_data);
9855:
9856: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9857: IF P_PA_debug_mode = 'Y' THEN
9858: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
9859: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9860: END IF;
9871: x_return_status => l_return_status,
9872: x_msg_data => l_msg_data,
9873: x_msg_count => l_msg_count);
9874:
9875: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9876: IF P_PA_debug_mode = 'Y' THEN
9877: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
9878: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9879: END IF;
9893: x_return_status => l_return_status,
9894: x_msg_count => l_msg_count,
9895: x_msg_data => l_msg_data);
9896:
9897: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9898: IF P_PA_debug_mode = 'Y' THEN
9899: pa_debug.g_err_stage:= 'Error in pa_fin_plan_pub.create_default_plan_txn_rec';
9900: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9901: END IF;
9950: ,x_return_status => x_return_status
9951: ,x_msg_count => x_msg_count
9952: ,x_msg_data => x_msg_data);
9953:
9954: IF x_return_Status <> FND_API.G_RET_STS_SUCCESS THEN
9955: IF P_PA_DEBUG_MODE = 'Y' THEN
9956: pa_debug.g_err_stage := 'pa_planning_transaction_utils.call_update_rep_lines_api errored .... ' || x_msg_data;
9957: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9958: END IF;
10002: x_msg_data => l_msg_data,
10003: x_msg_count => l_msg_count,
10004: x_return_status => l_return_status);
10005:
10006: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10007: IF P_PA_debug_mode = 'Y' THEN
10008: pa_debug.g_err_stage:= 'Error in create_ci_impact_fund_lines';
10009: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10010: END IF;
10062: x_return_status => l_return_status,
10063: x_msg_count => l_msg_count,
10064: x_msg_data => l_msg_data);
10065:
10066: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10067: IF P_PA_debug_mode = 'Y' THEN
10068: pa_debug.g_err_stage:= 'Error in Submit_Current_Working';
10069: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10070: END IF;
10207: ,x_msg_count => l_msg_count
10208: ,x_msg_data => l_msg_data
10209: ) ;
10210:
10211: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10212: IF P_PA_debug_mode = 'Y' THEN
10213: pa_debug.g_err_stage:= 'Error in FP_CI_LINK_CONTROL_ITEMS';
10214: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10215: END IF;
10287: ,x_msg_count => l_msg_count
10288: ,x_msg_data => l_msg_data
10289: );
10290:
10291: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10292: IF P_PA_debug_mode = 'Y' THEN
10293: pa_debug.g_err_stage:= 'Error in FP_CI_UPDATE_IMPACT';
10294: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10295: END IF;
10315: l_msg_count := FND_MSG_PUB.count_msg;
10316:
10317: IF l_msg_count = 1 and x_msg_data IS NULL THEN
10318: PA_INTERFACE_UTILS_PUB.get_messages
10319: (p_encoded => FND_API.G_TRUE
10320: ,p_msg_index => 1
10321: ,p_msg_count => l_msg_count
10322: ,p_msg_data => l_msg_data
10323: ,p_data => l_data
10326: x_msg_count := l_msg_count;
10327: ELSE
10328: x_msg_count := l_msg_count;
10329: END IF;
10330: x_return_status := FND_API.G_RET_STS_ERROR;
10331:
10332: ROLLBACK TO implement_ci_into_single_ver;
10333: IF p_pa_debug_mode = 'Y' THEN
10334: pa_debug.reset_curr_function;
10335: END IF;
10336: RETURN;
10337:
10338: WHEN Others THEN
10339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10340: x_msg_count := 1;
10341: x_msg_data := SQLERRM;
10342:
10343: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CI_MERGE'
10485: BEGIN
10486: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10487: l_debug_mode := NVL(l_debug_mode, 'Y');
10488: x_msg_count := 0;
10489: x_return_status := FND_API.G_RET_STS_SUCCESS;
10490: IF p_context='CI_MERGE' THEN
10491: l_init_msg_count:= FND_MSG_PUB.count_msg;
10492: END IF;
10493: IF p_pa_debug_mode = 'Y' THEN
10745: ,x_msg_count => x_msg_count
10746: ,x_msg_data => x_msg_data);
10747:
10748: --ci id will be skipped. Processing will continue with other cis
10749: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10750: l_copy_ci_ver_flag:='N';
10751: END IF;
10752: ELSE
10753:
10910: pa_debug.g_err_stage:= 'Implemented amount is greater than total amount.';
10911: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10912: END IF;
10913:
10914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10915:
10916: End If;
10917:
10918: End If;
11398: ,x_msg_count => l_msg_count);
11399:
11400: --Return status check can be done in this case as the above should never return
11401: --a return status of E.
11402: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11403: IF P_PA_debug_mode = 'Y' THEN
11404: pa_debug.g_err_stage:= 'pa_fp_control_items_utils.get_impl_details returned error';
11405: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
11406: END IF;
11669: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11670: l_msg_count := FND_MSG_PUB.count_msg;
11671: IF l_msg_count = 1 THEN
11672: PA_INTERFACE_UTILS_PUB.get_messages
11673: (p_encoded => FND_API.G_TRUE
11674: ,p_msg_index => 1
11675: ,p_msg_count => l_msg_count
11676: ,p_msg_data => l_msg_data
11677: ,p_data => l_data
11681:
11682: ELSE
11683: x_msg_count := l_msg_count;
11684: END IF;
11685: x_return_status := FND_API.G_RET_STS_ERROR;
11686: IF p_pa_debug_mode = 'Y' THEN
11687: pa_debug.reset_curr_function;
11688: END IF;
11689: WHEN OTHERS THEN
11687: pa_debug.reset_curr_function;
11688: END IF;
11689: WHEN OTHERS THEN
11690:
11691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11692: x_msg_count := 1;
11693: x_msg_data := SQLERRM;
11694: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CI_MERGE'
11695: ,p_procedure_name => 'validate_ci_merge_input_data');
11810: BEGIN
11811: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
11812: l_debug_mode := NVL(l_debug_mode, 'Y');
11813: x_msg_count := 0;
11814: x_return_status := FND_API.G_RET_STS_SUCCESS;
11815:
11816: IF p_pa_debug_mode = 'Y' THEN
11817: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
11818: p_debug_mode => l_debug_mode );
12023: x_msg_data => l_msg_data,
12024: x_msg_count => l_msg_count,
12025: x_return_status => l_return_status);
12026:
12027: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12028: IF P_PA_debug_mode = 'Y' THEN
12029: pa_debug.g_err_stage:= 'Error in create_ci_impact_fund_lines';
12030: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
12031: END IF;
12082: ,x_return_status => l_return_status
12083: ,x_msg_count => l_msg_count
12084: ,x_msg_data => l_msg_data);
12085:
12086: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12087: IF P_PA_debug_mode = 'Y' THEN
12088: pa_debug.g_err_stage:= 'Error in Get_Curr_Working_Version_Info';
12089: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
12090: END IF;
12105: ,x_return_status => l_return_status
12106: ,x_msg_count => l_msg_count
12107: ,x_msg_data => l_msg_data);
12108:
12109: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12110: IF P_PA_debug_mode = 'Y' THEN
12111: pa_debug.g_err_stage:= 'Error in Get_Baselined_Version_Info';
12112: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
12113: END IF;
12330: ,x_return_status => l_return_status
12331: ,x_msg_count => l_msg_count
12332: ,x_msg_data => l_msg_data);
12333:
12334: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12335: IF l_debug_mode = 'Y' THEN
12336: pa_debug.g_err_stage:= 'Error calling FP_CI_LINK_CONTROL_ITEMS';
12337: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12338: END IF;
12363: ,x_return_status => l_return_status
12364: ,x_msg_count => l_msg_count
12365: ,x_msg_data => l_msg_data);
12366:
12367: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12368: IF l_debug_mode = 'Y' THEN
12369: pa_debug.g_err_stage:= 'Error calling FP_CI_LINK_CONTROL_ITEMS';
12370: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12371: END IF;
12394: ,x_return_status => l_return_status
12395: ,x_msg_count => l_msg_count
12396: ,x_msg_data => l_msg_data);
12397:
12398: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12399: IF P_PA_debug_mode = 'Y' THEN
12400: pa_debug.g_err_stage:= 'Error in FP_CI_UPDATE_IMPACT';
12401: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
12402: END IF;
12464: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12465: l_msg_count := FND_MSG_PUB.count_msg;
12466: IF l_msg_count = 1 THEN
12467: PA_INTERFACE_UTILS_PUB.get_messages
12468: (p_encoded => FND_API.G_TRUE
12469: ,p_msg_index => 1
12470: ,p_msg_count => l_msg_count
12471: ,p_msg_data => l_msg_data
12472: ,p_data => l_data
12476: ELSE
12477: x_msg_count := l_msg_count;
12478: END IF;
12479:
12480: x_return_status := FND_API.G_RET_STS_ERROR;
12481: IF p_pa_debug_mode = 'Y' THEN
12482: pa_debug.reset_curr_function;
12483: END IF;
12484: WHEN OTHERS THEN
12481: IF p_pa_debug_mode = 'Y' THEN
12482: pa_debug.reset_curr_function;
12483: END IF;
12484: WHEN OTHERS THEN
12485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12486: x_msg_count := 1;
12487: x_msg_data := SQLERRM;
12488: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CI_MERGE'
12489: ,p_procedure_name => 'impl_ci_into_autobaseline_proj');
12618: BEGIN
12619: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
12620: l_debug_mode := NVL(l_debug_mode, 'Y');
12621: x_msg_count := 0;
12622: x_return_status := FND_API.G_RET_STS_SUCCESS;
12623: l_init_msg_count:= FND_MSG_PUB.count_msg;
12624: IF p_pa_debug_mode = 'Y' THEN
12625: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
12626: p_debug_mode => l_debug_mode );
12710: ,x_return_status => x_return_status
12711: ,x_msg_count => x_msg_count
12712: ,x_msg_data => x_msg_data );
12713:
12714: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12715: IF l_debug_mode = 'Y' THEN
12716: pa_debug.g_err_stage:='Called API validate_ci_merge_input_data returned error';
12717: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
12718: END IF;
12902: ,x_return_status => x_return_status
12903: ,x_msg_data => x_msg_data
12904: ,x_msg_count => x_msg_count);
12905:
12906: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12907: IF l_debug_mode = 'Y' THEN
12908: pa_debug.g_err_stage:='--Call to impl_ci_into_autobaseline_proj returned with ERROR';
12909: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
12910: END IF;
12951: ,x_return_status => x_return_status
12952: ,x_msg_data => x_msg_data
12953: ,x_msg_count => x_msg_count);
12954:
12955: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12956: IF l_debug_mode = 'Y' THEN
12957: pa_debug.g_err_stage:='Called API PAFPCIMB.implement_ci_into_single_ver error';
12958: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
12959: END IF;
13191: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
13192: l_msg_count := FND_MSG_PUB.count_msg;
13193: IF l_msg_count = 1 THEN
13194: PA_INTERFACE_UTILS_PUB.get_messages
13195: (p_encoded => FND_API.G_TRUE
13196: ,p_msg_index => 1
13197: ,p_msg_count => l_msg_count
13198: ,p_msg_data => l_msg_data
13199: ,p_data => l_data
13208: IF p_commit_flag ='N' THEN
13209: ROLLBACK TO implement_change_document;
13210: END IF;
13211:
13212: x_return_status := FND_API.G_RET_STS_ERROR;
13213: IF p_pa_debug_mode = 'Y' THEN
13214: pa_debug.reset_curr_function;
13215: END IF;
13216: WHEN OTHERS THEN
13214: pa_debug.reset_curr_function;
13215: END IF;
13216: WHEN OTHERS THEN
13217:
13218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13219: x_msg_count := 1;
13220: x_msg_data := SQLERRM;
13221: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CI_MERGE'
13222: ,p_procedure_name => 'implement_change_document');
13344: l_debug_mode := NVL(l_debug_mode, 'Y');
13345: IF p_pa_debug_mode = 'Y' THEN
13346: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
13347: END IF;
13348: x_return_status := FND_API.G_RET_STS_SUCCESS;
13349: x_msg_count := 0;
13350: l_ci_id_to :=p_ci_id_to;
13351: l_ci_id_from :=p_ci_id_from;
13352:
13365:
13366: -- Check if new suppler cost region exists in both the control items
13367:
13368: if supp_cost_flag is null then
13369: x_return_status :=FND_API.G_RET_STS_SUCCESS;
13370: x_msg_count :=0;
13371: x_msg_data :='There are no Supplier records to copy';
13372:
13373: else
13509: /* Changes for 12.1.3 end */
13510: ,x_return_status => x_return_status
13511: ,x_error_msg_code => x_msg_data );
13512:
13513: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
13514: RAISE G_EXCEPTION_UNEXPECTED_ERROR;
13515: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
13516: RAISE G_EXCEPTION_ERROR;
13517: END IF;
13511: ,x_error_msg_code => x_msg_data );
13512:
13513: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
13514: RAISE G_EXCEPTION_UNEXPECTED_ERROR;
13515: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
13516: RAISE G_EXCEPTION_ERROR;
13517: END IF;
13518:
13519: update pa_ci_supplier_details a
13606: end if;
13607: EXCEPTION
13608: WHEN OTHERS THEN
13609: ROLLBACK TO copy_supp_det;
13610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13611: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_FP_CI_MERGE',
13612: p_procedure_name => 'copy_supplier_cost_data',
13613: p_error_text => SUBSTRB(SQLERRM,1,240));
13614:
13745:
13746: -- Check if new direct cost region exists in both the control items
13747:
13748: if l_dir_cost_flag is null then
13749: x_return_status :=FND_API.G_RET_STS_SUCCESS;
13750: x_msg_count :=0;
13751: x_msg_data :='Cannot copy direct cost records';
13752: else
13753: select task_id
13871: u_PaCiDirCostDetTbl(upd_index).currency_code := l_currency_code_tbl(i);
13872: u_PaCiDirCostDetTbl(upd_index).quantity := l_quantity_tbl(i);
13873: u_PaCiDirCostDetTbl(upd_index).planning_resource_rate := l_planning_resource_rate_tbl(i);
13874: u_PaCiDirCostDetTbl(upd_index).raw_cost := l_raw_cost_tbl(i);
13875: u_PaCiDirCostDetTbl(upd_index).burdened_cost := FND_API.G_MISS_NUM;
13876: u_PaCiDirCostDetTbl(upd_index).raw_cost_rate := FND_API.G_MISS_NUM;
13877: u_PaCiDirCostDetTbl(upd_index).burden_cost_rate := l_burden_cost_rate_tbl(i);
13878: u_PaCiDirCostDetTbl(upd_index).resource_assignment_id := FND_API.G_MISS_NUM;
13879: u_PaCiDirCostDetTbl(upd_index).effective_from := l_effective_from_tbl(i);
13872: u_PaCiDirCostDetTbl(upd_index).quantity := l_quantity_tbl(i);
13873: u_PaCiDirCostDetTbl(upd_index).planning_resource_rate := l_planning_resource_rate_tbl(i);
13874: u_PaCiDirCostDetTbl(upd_index).raw_cost := l_raw_cost_tbl(i);
13875: u_PaCiDirCostDetTbl(upd_index).burdened_cost := FND_API.G_MISS_NUM;
13876: u_PaCiDirCostDetTbl(upd_index).raw_cost_rate := FND_API.G_MISS_NUM;
13877: u_PaCiDirCostDetTbl(upd_index).burden_cost_rate := l_burden_cost_rate_tbl(i);
13878: u_PaCiDirCostDetTbl(upd_index).resource_assignment_id := FND_API.G_MISS_NUM;
13879: u_PaCiDirCostDetTbl(upd_index).effective_from := l_effective_from_tbl(i);
13880: u_PaCiDirCostDetTbl(upd_index).effective_to := l_effective_to_tbl(i);
13874: u_PaCiDirCostDetTbl(upd_index).raw_cost := l_raw_cost_tbl(i);
13875: u_PaCiDirCostDetTbl(upd_index).burdened_cost := FND_API.G_MISS_NUM;
13876: u_PaCiDirCostDetTbl(upd_index).raw_cost_rate := FND_API.G_MISS_NUM;
13877: u_PaCiDirCostDetTbl(upd_index).burden_cost_rate := l_burden_cost_rate_tbl(i);
13878: u_PaCiDirCostDetTbl(upd_index).resource_assignment_id := FND_API.G_MISS_NUM;
13879: u_PaCiDirCostDetTbl(upd_index).effective_from := l_effective_from_tbl(i);
13880: u_PaCiDirCostDetTbl(upd_index).effective_to := l_effective_to_tbl(i);
13881: u_PaCiDirCostDetTbl(upd_index).change_reason_code := FND_API.G_MISS_CHAR;
13882: u_PaCiDirCostDetTbl(upd_index).change_description := FND_API.G_MISS_CHAR;
13877: u_PaCiDirCostDetTbl(upd_index).burden_cost_rate := l_burden_cost_rate_tbl(i);
13878: u_PaCiDirCostDetTbl(upd_index).resource_assignment_id := FND_API.G_MISS_NUM;
13879: u_PaCiDirCostDetTbl(upd_index).effective_from := l_effective_from_tbl(i);
13880: u_PaCiDirCostDetTbl(upd_index).effective_to := l_effective_to_tbl(i);
13881: u_PaCiDirCostDetTbl(upd_index).change_reason_code := FND_API.G_MISS_CHAR;
13882: u_PaCiDirCostDetTbl(upd_index).change_description := FND_API.G_MISS_CHAR;
13883: else
13884: ins_index := ins_index + 1;
13885: select pa_ci_dir_cost_details_s.nextval
13878: u_PaCiDirCostDetTbl(upd_index).resource_assignment_id := FND_API.G_MISS_NUM;
13879: u_PaCiDirCostDetTbl(upd_index).effective_from := l_effective_from_tbl(i);
13880: u_PaCiDirCostDetTbl(upd_index).effective_to := l_effective_to_tbl(i);
13881: u_PaCiDirCostDetTbl(upd_index).change_reason_code := FND_API.G_MISS_CHAR;
13882: u_PaCiDirCostDetTbl(upd_index).change_description := FND_API.G_MISS_CHAR;
13883: else
13884: ins_index := ins_index + 1;
13885: select pa_ci_dir_cost_details_s.nextval
13886: into seq_value
13944:
13945: if ins_index > 0 then
13946: pa_ci_dir_cost_pvt.insert_row(
13947: p_api_version => l_api_version,
13948: p_init_msg_list => FND_API.G_FALSE,
13949: x_return_status => l_return_status,
13950: x_msg_count => l_msg_count,
13951: x_msg_data => l_msg_data,
13952: PPaCiDirectCostDetailsTbl => i_PaCiDirCostDetTbl,
13962:
13963: if upd_index > 0 then
13964: pa_ci_dir_cost_pvt.update_row(
13965: p_api_version => l_api_version,
13966: p_init_msg_list => FND_API.G_FALSE,
13967: x_return_status => l_return_status,
13968: x_msg_count => l_msg_count,
13969: x_msg_data => l_msg_data,
13970: PPaCiDirectCostDetailsTbl => u_PaCiDirCostDetTbl,
14032:
14033: EXCEPTION
14034: WHEN OTHERS THEN
14035: ROLLBACK TO copy_dir_cost_det;
14036: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14037: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_FP_CI_MERGE',
14038: p_procedure_name => 'copy_direct_cost_data',
14039: p_error_text => SUBSTRB(SQLERRM,1,240));
14040: fnd_msg_pub.count_and_get(p_count => x_msg_count,