[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;
942: l_debug_mode := NVL(l_debug_mode, 'Y');
943: IF p_pa_debug_mode = 'Y' THEN
944: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
945: END IF;
946: x_return_status := FND_API.G_RET_STS_SUCCESS;
947: x_msg_count := 0;
948:
949: l_target_version_id := NULL;
950: l_update_agreement_flag := 'N';
1058: x_msg_count => x_msg_count,
1059: x_msg_data => x_msg_data
1060: ) ;
1061:
1062: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1063: RETURN;
1064: END IF;
1065:
1066: -- Bug 3677924 Jul 06 2004 Raja
1106: x_return_status => x_return_status,
1107: x_msg_count => x_msg_count,
1108: x_msg_data => x_msg_data
1109: ) ;
1110: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1111: RETURN;
1112: END IF;
1113: ELSIF( l_target_plan_types_cnt = 2 ) THEN
1114: --Call the check API with source attributes
1125: x_return_status => x_return_status,
1126: x_msg_count => x_msg_count,
1127: x_msg_data => x_msg_data
1128: ) ;
1129: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1130: RETURN;
1131: END IF;
1132: END IF;
1133:
1132: END IF;
1133:
1134: IF NVL(l_copy_possible_flag,'N') = 'N' THEN
1135: x_warning_flag := 'Y';
1136: x_return_status := FND_API.G_RET_STS_ERROR;
1137: RETURN;
1138: END IF;
1139:
1140: ------dbms_output.put_line('Came in target plan type count 1 &&&&&');
1157: x_return_status => x_return_status,
1158: x_msg_count => x_msg_count,
1159: x_msg_data => x_msg_data);
1160:
1161: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1162: ROLLBACK TO before_fp_ci_copy;
1163: RETURN;
1164: END IF;
1165:
1192: PA_UTILS.ADD_MESSAGE
1193: ( p_app_short_name => 'PA',
1194: p_msg_name => 'PA_FP_CI_C_INV_VER_TYPE_MATCH');
1195: ------dbms_output.put_line('FP_CI_CHECK_COPY_POSSIBLE - 2***');
1196: x_return_status := FND_API.G_RET_STS_ERROR;
1197: END;
1198: END IF;
1199:
1200: /* -- Now we have both target and source version so
1239: l_merge_possible_code := l_merge_possible_code_tbl (i);
1240: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 7');
1241: IF (l_merge_possible_code = 'E') THEN
1242: x_warning_flag := 'Y';
1243: x_return_status := FND_API.G_RET_STS_ERROR;
1244: RETURN;
1245: END IF;
1246: END LOOP;
1247:
1322: ,x_translated_err_msg_level_tbl => l_translated_err_msg_level_tbl
1323: ,x_return_status => x_return_status
1324: ,x_msg_count => x_msg_count
1325: ,x_msg_data => x_msg_data);
1326: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1327: ROLLBACK TO before_fp_ci_copy;
1328: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 11*****');
1329: RETURN;
1330: END IF;
1353: x_msg_count => x_msg_count,
1354: x_msg_data => x_msg_data
1355: );*/
1356: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 10');
1357: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1358: ROLLBACK TO before_fp_ci_copy;
1359: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 11*****');
1360: RETURN;
1361: END IF;
1387: x_msg_count => x_msg_count,
1388: x_msg_data => x_msg_data
1389: );
1390: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 120');
1391: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1392: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 12****');
1393: ROLLBACK TO before_fp_ci_copy;
1394: RETURN;
1395: END IF;
1405: ,x_msg_count => x_msg_count
1406: ,x_msg_data => x_msg_data
1407: );
1408: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 130');
1409: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1410: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 13****');
1411: ROLLBACK TO before_fp_ci_copy;
1412: RETURN;
1413: END IF;
1422: ,x_msg_count => x_msg_count
1423: ,x_msg_data => x_msg_data
1424: );
1425: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 150');
1426: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1427: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 15****');
1428: ROLLBACK TO before_fp_ci_copy;
1429: RETURN;
1430: END IF;
1445: x_return_status => x_return_status,
1446: x_msg_count => x_msg_count,
1447: x_msg_data => x_msg_data
1448: );
1449: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1450: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 150****');
1451: ROLLBACK TO before_fp_ci_copy;
1452: RETURN;
1453: END IF;
1491: x_msg_count => x_msg_count,
1492: x_msg_data => x_msg_data
1493: ) ;
1494:
1495: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1496: RETURN;
1497: END IF;
1498:
1499: -- Bug 3677924 Jul 06 2004 Raja
1536: x_return_status => x_return_status,
1537: x_msg_count => x_msg_count,
1538: x_msg_data => x_msg_data
1539: ) ;
1540: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1541: RETURN;
1542: END IF;
1543: ELSIF( l_target_plan_types_cnt = 1 ) THEN
1544: --Call the check API with source attributes
1555: x_return_status => x_return_status,
1556: x_msg_count => x_msg_count,
1557: x_msg_data => x_msg_data
1558: ) ;
1559: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1560: RETURN;
1561: END IF;
1562: END IF;
1563:
1584: x_return_status => x_return_status,
1585: x_msg_count => x_msg_count,
1586: x_msg_data => x_msg_data);
1587:
1588: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1589: ROLLBACK TO before_fp_ci_copy;
1590: RETURN;
1591: END IF;
1592:
1615: x_return_status => x_return_status,
1616: x_msg_count => x_msg_count,
1617: x_msg_data => x_msg_data
1618: );
1619: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1620: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 150****');
1621: ROLLBACK TO before_fp_ci_copy;
1622: RETURN;
1623: END IF;
1624: END IF; -- if impact record exists copy amounts
1625: EXCEPTION
1626: WHEN RAISE_COPY_ERROR THEN
1627: x_warning_flag := 'Y';
1628: x_return_status := FND_API.G_RET_STS_ERROR;
1629: END;
1630: END LOOP;
1631: ELSIF(l_t_count_versions = 2) THEN
1632: --Get target version id
1677: ,x_return_status => x_return_status
1678: ,x_msg_count => x_msg_count
1679: ,x_msg_data => x_msg_data);
1680: l_update_agreement_flag := 'N';
1681: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1682: ROLLBACK TO before_fp_ci_copy;
1683: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 11*****');
1684: RETURN;
1685: END IF;
1714: x_msg_data => x_msg_data
1715: );*/
1716: END LOOP;
1717:
1718: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1719: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 150****');
1720: ROLLBACK TO before_fp_ci_copy;
1721: RETURN;
1722: END IF;
1771: l_merge_possible_code := l_merge_possible_code_tbl (i);
1772: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 7');
1773: IF (l_merge_possible_code = 'E') THEN
1774: x_warning_flag := 'Y';
1775: x_return_status := FND_API.G_RET_STS_ERROR;
1776: END IF;
1777: END LOOP;
1778:
1779: -- Second: IF merge is possible for the source and
1842: x_msg_count => x_msg_count,
1843: x_msg_data => x_msg_data
1844: );
1845: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 10');
1846: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1847: ROLLBACK TO before_fp_ci_copy;
1848: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 11*****');
1849: RETURN;
1850: END IF;
1876: x_msg_count => x_msg_count,
1877: x_msg_data => x_msg_data
1878: );
1879: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 120');
1880: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1881: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 12****');
1882: ROLLBACK TO before_fp_ci_copy;
1883: RETURN;
1884: END IF;
1894: ,x_msg_count => x_msg_count
1895: ,x_msg_data => x_msg_data
1896: );
1897: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 130');
1898: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1899: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 13****');
1900: ROLLBACK TO before_fp_ci_copy;
1901: RETURN;
1902: END IF;
1911: ,x_msg_count => x_msg_count
1912: ,x_msg_data => x_msg_data
1913: );
1914: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 150');
1915: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1916: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 15****');
1917: ROLLBACK TO before_fp_ci_copy;
1918: RETURN;
1919: END IF;
1970: ,x_translated_err_msg_level_tbl => l_translated_err_msg_level_tbl
1971: ,x_return_status => x_return_status
1972: ,x_msg_count => x_msg_count
1973: ,x_msg_data => x_msg_data);
1974: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1975: ROLLBACK TO before_fp_ci_copy;
1976: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 11*****');
1977: RETURN;
1978: END IF;
2009: x_msg_data => x_msg_data
2010: );*/
2011: END LOOP;
2012:
2013: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2014: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 150****');
2015: ROLLBACK TO before_fp_ci_copy;
2016: RETURN;
2017: END IF;
2054: x_msg_count => x_msg_count,
2055: x_msg_data => x_msg_data
2056: ) ;
2057:
2058: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2059: RETURN;
2060: END IF;
2061:
2062: -- Bug 3677924 Jul 06 2004 Raja
2099: x_return_status => x_return_status,
2100: x_msg_count => x_msg_count,
2101: x_msg_data => x_msg_data
2102: ) ;
2103: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2104: RETURN;
2105: END IF;
2106: ELSIF( l_target_plan_types_cnt = 1 ) THEN
2107: --Call the check API with source attributes
2118: x_return_status => x_return_status,
2119: x_msg_count => x_msg_count,
2120: x_msg_data => x_msg_data
2121: ) ;
2122: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2123: RETURN;
2124: END IF;
2125: END IF;
2126:
2147: x_return_status => x_return_status,
2148: x_msg_count => x_msg_count,
2149: x_msg_data => x_msg_data);
2150:
2151: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2152: ROLLBACK TO before_fp_ci_copy;
2153: RETURN;
2154: END IF;
2155: l_update_agreement_flag := 'Y';
2175: x_return_status => x_return_status,
2176: x_msg_count => x_msg_count,
2177: x_msg_data => x_msg_data
2178: );
2179: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2180: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 150****');
2181: ROLLBACK TO before_fp_ci_copy;
2182: RETURN;
2183: END IF;
2186:
2187: EXCEPTION
2188: WHEN RAISE_COPY_ERROR THEN
2189: x_warning_flag := 'Y';
2190: x_return_status := FND_API.G_RET_STS_ERROR;
2191: END;
2192: ELSE
2193: --Merge the source into the target
2194: l_source_id_tbl.DELETE;
2233: ,x_translated_err_msg_level_tbl => l_translated_err_msg_level_tbl
2234: ,x_return_status => x_return_status
2235: ,x_msg_count => x_msg_count
2236: ,x_msg_data => x_msg_data);
2237: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2238: ROLLBACK TO before_fp_ci_copy;
2239: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 11*****');
2240: RETURN;
2241: END IF;
2269: x_msg_count => x_msg_count,
2270: x_msg_data => x_msg_data
2271: );*/
2272:
2273: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2274: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 150****');
2275: ROLLBACK TO before_fp_ci_copy;
2276: RETURN;
2277: END IF;
2316: l_merge_possible_code := l_merge_possible_code_tbl (i);
2317: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 7');
2318: IF (l_merge_possible_code = 'E') THEN
2319: x_warning_flag := 'Y';
2320: x_return_status := FND_API.G_RET_STS_ERROR;
2321: END IF;
2322: END LOOP;
2323:
2324: -- Second: IF merge is possible for the source and
2387: x_msg_count => x_msg_count,
2388: x_msg_data => x_msg_data
2389: );
2390: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 10');
2391: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2392: ROLLBACK TO before_fp_ci_copy;
2393: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 11*****');
2394: RETURN;
2395: END IF;
2421: x_msg_count => x_msg_count,
2422: x_msg_data => x_msg_data
2423: );
2424: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 120');
2425: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2426: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 12****');
2427: ROLLBACK TO before_fp_ci_copy;
2428: RETURN;
2429: END IF;
2439: ,x_msg_count => x_msg_count
2440: ,x_msg_data => x_msg_data
2441: );
2442: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 130');
2443: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2444: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 13****');
2445: ROLLBACK TO before_fp_ci_copy;
2446: RETURN;
2447: END IF;
2456: ,x_msg_count => x_msg_count
2457: ,x_msg_data => x_msg_data
2458: );
2459: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 150');
2460: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2461: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 15****');
2462: ROLLBACK TO before_fp_ci_copy;
2463: RETURN;
2464: END IF;
2476: x_return_status => x_return_status,
2477: x_msg_count => x_msg_count,
2478: x_msg_data => x_msg_data
2479: );
2480: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2481: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 150****');
2482: ROLLBACK TO before_fp_ci_copy;
2483: RETURN;
2484: END IF;
2502: IF p_pa_debug_mode = 'Y' THEN
2503: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_MERGE_CI_ITEMS';
2504: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2505: END IF;
2506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2507: --------dbms_output.put_line('FP_CI_MERGE_CI_ITEMS - 14');
2508: IF p_pa_debug_mode = 'Y' THEN
2509: PA_DEBUG.Reset_Curr_Function;
2510: END IF;
2549:
2550: BEGIN
2551:
2552: x_msg_count := 0;
2553: x_return_status := FND_API.G_RET_STS_SUCCESS;
2554: IF p_pa_debug_mode = 'Y' THEN
2555: pa_debug.set_err_stack('PA_FP_CI_MERGE.copy_merged_ctrl_items');
2556: END IF;
2557: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2799: EXCEPTION
2800:
2801: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2802:
2803: x_return_status := FND_API.G_RET_STS_ERROR;
2804: l_msg_count := FND_MSG_PUB.count_msg;
2805: IF l_msg_count = 1 THEN
2806: PA_INTERFACE_UTILS_PUB.get_messages
2807: (p_encoded => FND_API.G_TRUE
2803: x_return_status := FND_API.G_RET_STS_ERROR;
2804: l_msg_count := FND_MSG_PUB.count_msg;
2805: IF l_msg_count = 1 THEN
2806: PA_INTERFACE_UTILS_PUB.get_messages
2807: (p_encoded => FND_API.G_TRUE
2808: ,p_msg_index => 1
2809: ,p_msg_count => l_msg_count
2810: ,p_msg_data => l_msg_data
2811: ,p_data => l_data
2821: RAISE;
2822:
2823: WHEN others THEN
2824:
2825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2826: x_msg_count := 1;
2827: x_msg_data := SQLERRM;
2828: FND_MSG_PUB.add_exc_msg
2829: ( p_pkg_name => 'PA_FP_CI_MERGE'
2903:
2904: BEGIN
2905:
2906: x_msg_count := 0;
2907: x_return_status := FND_API.G_RET_STS_SUCCESS;
2908: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2909: IF l_debug_mode = 'Y' THEN
2910: pa_debug.set_err_stack('PA_FP_CI_MERGE.FP_CI_MANUAL_MERGE');
2911: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3050: ,x_msg_count => x_msg_count
3051: ,x_msg_data => x_msg_data
3052: );
3053:
3054: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3055: IF l_debug_mode = 'Y' THEN
3056: pa_debug.g_err_stage:= 'Error calling FP_CI_LINK_CONTROL_ITEMS';
3057: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
3058: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3130: ,x_msg_count => x_msg_count
3131: ,x_msg_data => x_msg_data
3132: );
3133:
3134: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3135: IF l_debug_mode = 'Y' THEN
3136: pa_debug.g_err_stage:= 'Error calling FP_CI_LINK_CONTROL_ITEMS';
3137: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
3138: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3158: ,x_msg_count => x_msg_count
3159: ,x_return_status => x_return_status
3160: );
3161:
3162: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3163: IF l_debug_mode = 'Y' THEN
3164: pa_debug.g_err_stage:= 'Error calling Pa_Fp_Control_Items_Utils.FP_CI_VALIDATE_UPDATE_IMPACT';
3165: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
3166: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3193: ,x_msg_count => x_msg_count
3194: ,x_msg_data => x_msg_data
3195: );
3196:
3197: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3198: IF l_debug_mode = 'Y' THEN
3199: pa_debug.g_err_stage:= 'Error calling FP_CI_UPDATE_IMPACT';
3200: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
3201: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3220: ,x_msg_count => x_msg_count
3221: ,x_msg_data => x_msg_data
3222: );
3223:
3224: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3225: IF l_debug_mode = 'Y' THEN
3226: pa_debug.g_err_stage:= 'Error calling FP_CI_UPDATE_IMPACT';
3227: pa_debug.write('FP_CI_MANUAL_MERGE: ' || l_module_name,pa_debug.g_err_stage,
3228: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3243: EXCEPTION
3244:
3245: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3246:
3247: x_return_status := FND_API.G_RET_STS_ERROR;
3248: l_msg_count := FND_MSG_PUB.count_msg;
3249:
3250: IF l_msg_count = 1 and x_msg_data IS NULL THEN
3251: PA_INTERFACE_UTILS_PUB.get_messages
3248: l_msg_count := FND_MSG_PUB.count_msg;
3249:
3250: IF l_msg_count = 1 and x_msg_data IS NULL THEN
3251: PA_INTERFACE_UTILS_PUB.get_messages
3252: (p_encoded => FND_API.G_TRUE
3253: ,p_msg_index => 1
3254: ,p_msg_count => l_msg_count
3255: ,p_msg_data => l_msg_data
3256: ,p_data => l_data
3266: -- RAISE; /* bug 3978200 Directly called from middle tier donot raise */
3267:
3268: WHEN others THEN
3269:
3270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3271: x_msg_count := 1;
3272: x_msg_data := SQLERRM;
3273:
3274: FND_MSG_PUB.add_exc_msg
3987: pa_debug.set_curr_function( p_function => 'implement_ci_into_single_ver',
3988: p_debug_mode => P_PA_debug_mode );
3989: END IF;
3990: x_msg_count := 0;
3991: x_return_status := FND_API.G_RET_STS_SUCCESS;
3992:
3993: SAVEPOINT implement_ci_into_single_ver;
3994:
3995: --dbms_output.put_line('I1');
4013: ,x_return_status => l_return_status
4014: ,x_msg_count => l_msg_data
4015: ,x_msg_data => l_msg_count);
4016:
4017: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4018: IF P_PA_debug_mode = 'Y' THEN
4019: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
4020: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4021: END IF;
4204: ,x_return_status => l_return_status
4205: ,x_msg_data => l_msg_data
4206: ,x_msg_count => l_msg_count);
4207:
4208: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4209: IF P_PA_debug_mode = 'Y' THEN
4210: pa_debug.g_err_stage:= 'pa_fp_control_items_utils.get_impl_details returned error';
4211: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4212: END IF;
4674: ,x_return_status => l_return_status
4675: ,x_msg_count => l_msg_count
4676: ,x_msg_data => l_msg_data);
4677:
4678: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4679: IF P_PA_debug_mode = 'Y' THEN
4680: pa_debug.g_err_stage:= 'PA_RLMI_RBS_MAP_PUB.Map_Rlmi_Rbs returned error';
4681: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4682: END IF;
5193: X_msg_count => l_MSG_COUNT,
5194: X_return_status => l_RETURN_STATUS);
5195:
5196:
5197: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5198: IF P_PA_debug_mode = 'Y' THEN
5199: pa_debug.g_err_stage:= 'Error in get_resource_defaults';
5200: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5201: END IF;
5238: 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';
5239: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5240:
5241: END IF;
5242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5243:
5244: END IF;
5245:
5246: l_targ_RESOURCE_CLASS_FLAG_tbl(kk) := l_da_resource_class_flag_tab(l_temp) ;
5392: ,x_return_status => l_return_status
5393: ,x_msg_count => l_msg_count
5394: ,x_msg_data => l_msg_data);
5395:
5396: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5397: IF P_PA_debug_mode = 'Y' THEN
5398: pa_debug.g_err_stage:= 'Error in get_resource_defaults';
5399: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5400: END IF;
5435: 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';
5436: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5437:
5438: END IF;
5439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5440:
5441: END IF;
5442:
5443: l_targ_txn_accum_header_id_tbl(kk) := l_txn_accum_header_id_prm_tbl(l_temp);
5501: ,x_return_status => l_return_status
5502: ,x_msg_count => l_msg_count
5503: ,x_msg_data => l_msg_data);
5504:
5505: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5506: IF P_PA_debug_mode = 'Y' THEN
5507: pa_debug.g_err_stage:= 'Error in Map_Rlmi_Rbs';
5508: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5509: END IF;
5526:
5527: --Raise an error if the resource list member in l_da_resource_list_members_tab does not
5528: --exist in l_targ_rlm_id_tbl (This should never happen).Bug 3678314.
5529: IF lresource_list_members_tab_1(l_temp)<>l_targ_rlm_id_tbl(kk) THEN
5530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5531: END IF;
5532: l_targ_txn_accum_header_id_tbl(kk) := ltxnaccumheader_id_prm_tbl_1(l_temp);
5533: l_targ_rbs_element_id_tbl(kk) := l_rbs_element_id_prm_tbl_1(l_temp);
5534:
5620: X_msg_count => l_MSG_COUNT,
5621: X_return_status => l_RETURN_STATUS);
5622:
5623:
5624: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5625: IF P_PA_debug_mode = 'Y' THEN
5626: pa_debug.g_err_stage:= 'Error in get_resource_defaults';
5627: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5628: END IF;
5666: 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';
5667: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5668:
5669: END IF;
5670: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5671:
5672: END IF;
5673:
5674: l_targ_RESOURCE_CLASS_FLAG_tbl(kk) := l_da_resource_class_flag_tab(l_temp) ;
5820: ,x_return_status => l_return_status
5821: ,x_msg_count => l_msg_count
5822: ,x_msg_data => l_msg_data);
5823:
5824: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5825: IF P_PA_debug_mode = 'Y' THEN
5826: pa_debug.g_err_stage:= 'Error in get_resource_defaults ';
5827: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5828: END IF;
5863: 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';
5864: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
5865:
5866: END IF;
5867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5868:
5869: END IF;
5870:
5871: l_targ_txn_accum_header_id_tbl(kk) := l_txn_accum_header_id_prm_tbl(l_temp);
6505: ,x_return_status => l_return_status
6506: ,x_msg_count => l_msg_count
6507: ,x_msg_data => l_msg_data);
6508:
6509: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6510: IF P_PA_debug_mode = 'Y' THEN
6511: pa_debug.g_err_stage:= 'Error in calculate';
6512: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
6513: END IF;
9434: ,x_return_status => x_return_status
9435: ,x_msg_count => x_msg_count
9436: ,x_msg_data => x_msg_data );
9437:
9438: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9439:
9440: IF P_PA_debug_mode = 'Y' THEN
9441: pa_debug.g_err_stage:= 'pa_fp_multi_currency_pkg.round_amounts returned error';
9442: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9792: ,x_return_status => l_return_status
9793: ,x_msg_count => l_msg_count
9794: ,x_msg_data => l_msg_data);
9795:
9796: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9797: IF P_PA_debug_mode = 'Y' THEN
9798: pa_debug.g_err_stage:= 'Error in PA_FP_MULTI_CURRENCY_PKG.Round_Budget_Line_Amounts';
9799: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
9800: END IF;
10064: ,x_return_status => l_return_status
10065: ,x_msg_count => l_msg_count
10066: ,x_msg_data => l_msg_data);
10067:
10068: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10069: IF P_PA_debug_mode = 'Y' THEN
10070: pa_debug.g_err_stage:= 'Error CALLING PAFPCALB.CheckZeroQTyNegETC';
10071: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10072: END IF;
10321: 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 ';
10322: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10323: END IF;
10324:
10325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10326:
10327: END IF;
10328:
10329: l_pji_prm_task_id_tbl.extend;
10359: ,x_return_status => l_return_status
10360: ,x_msg_count => l_msg_count
10361: ,x_msg_data => l_msg_data);
10362:
10363: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10364: IF P_PA_debug_mode = 'Y' THEN
10365: pa_debug.g_err_stage:= 'Error in ROLLUP_BUDGET_VERSION';
10366: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10367: END IF;
10383: x_msg_count => l_msg_count,
10384: x_msg_data => l_msg_data);
10385: END IF;
10386:
10387: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10388: IF P_PA_debug_mode = 'Y' THEN
10389: pa_debug.g_err_stage:= 'Error in g_mrc_enabled_for_budgets';
10390: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10391: END IF;
10406: x_msg_count => x_msg_count,
10407: x_msg_data => x_msg_data);
10408:
10409:
10410: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10411: IF P_PA_debug_mode = 'Y' THEN
10412: pa_debug.g_err_stage:= 'Error in maintain_all_mc_budget_lines';
10413: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10414: END IF;
10431: --p_resource_assignment_id_tab => l_res_assignment_id_tbl,
10432: p_set_disp_qty_null_for_nrbf => 'Y',
10433: x_return_status => l_return_status);
10434:
10435: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10436: IF P_PA_debug_mode = 'Y' THEN
10437: pa_debug.g_err_stage:= 'Error in PA_BUDGET_LINES_UTILS.populate_display_qty';
10438: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10439: END IF;
10447: X_RETURN_STATUS => l_return_status,
10448: X_MSG_COUNT => l_msg_count,
10449: X_MSG_DATA => l_msg_data);
10450:
10451: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10452: IF P_PA_debug_mode = 'Y' THEN
10453: pa_debug.g_err_stage:= 'Error in PA_FP_GEN_AMOUNT_UTILS.GET_PLAN_VERSION_DETAILS';
10454: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10455: END IF;
10466: x_return_status => l_return_status,
10467: x_msg_data => l_msg_data,
10468: x_msg_count => l_msg_count);
10469:
10470: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10471: IF P_PA_debug_mode = 'Y' THEN
10472: pa_debug.g_err_stage:= 'Error in PA_RES_ASG_CURRENCY_PUB.MAINTAIN_DATA';
10473: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10474: END IF;
10488: x_return_status => l_return_status,
10489: x_msg_count => l_msg_count,
10490: x_msg_data => l_msg_data);
10491:
10492: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10493: IF P_PA_debug_mode = 'Y' THEN
10494: pa_debug.g_err_stage:= 'Error in pa_fin_plan_pub.create_default_plan_txn_rec';
10495: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10496: END IF;
10544: ,x_return_status => x_return_status
10545: ,x_msg_count => x_msg_count
10546: ,x_msg_data => x_msg_data);
10547:
10548: IF x_return_Status <> FND_API.G_RET_STS_SUCCESS THEN
10549: IF P_PA_DEBUG_MODE = 'Y' THEN
10550: pa_debug.g_err_stage := 'pa_planning_transaction_utils.call_update_rep_lines_api errored .... ' || x_msg_data;
10551: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
10552: END IF;
10596: x_msg_data => l_msg_data,
10597: x_msg_count => l_msg_count,
10598: x_return_status => l_return_status);
10599:
10600: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10601: IF P_PA_debug_mode = 'Y' THEN
10602: pa_debug.g_err_stage:= 'Error in create_ci_impact_fund_lines';
10603: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10604: END IF;
10656: x_return_status => l_return_status,
10657: x_msg_count => l_msg_count,
10658: x_msg_data => l_msg_data);
10659:
10660: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10661: IF P_PA_debug_mode = 'Y' THEN
10662: pa_debug.g_err_stage:= 'Error in Submit_Current_Working';
10663: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10664: END IF;
10801: ,x_msg_count => l_msg_count
10802: ,x_msg_data => l_msg_data
10803: ) ;
10804:
10805: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10806: IF P_PA_debug_mode = 'Y' THEN
10807: pa_debug.g_err_stage:= 'Error in FP_CI_LINK_CONTROL_ITEMS';
10808: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10809: END IF;
10881: ,x_msg_count => l_msg_count
10882: ,x_msg_data => l_msg_data
10883: );
10884:
10885: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10886: IF P_PA_debug_mode = 'Y' THEN
10887: pa_debug.g_err_stage:= 'Error in FP_CI_UPDATE_IMPACT';
10888: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
10889: END IF;
10909: l_msg_count := FND_MSG_PUB.count_msg;
10910:
10911: IF l_msg_count = 1 and x_msg_data IS NULL THEN
10912: PA_INTERFACE_UTILS_PUB.get_messages
10913: (p_encoded => FND_API.G_TRUE
10914: ,p_msg_index => 1
10915: ,p_msg_count => l_msg_count
10916: ,p_msg_data => l_msg_data
10917: ,p_data => l_data
10920: x_msg_count := l_msg_count;
10921: ELSE
10922: x_msg_count := l_msg_count;
10923: END IF;
10924: x_return_status := FND_API.G_RET_STS_ERROR;
10925:
10926: ROLLBACK TO implement_ci_into_single_ver;
10927: IF p_pa_debug_mode = 'Y' THEN
10928: pa_debug.reset_curr_function;
10929: END IF;
10930: RETURN;
10931:
10932: WHEN Others THEN
10933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10934: x_msg_count := 1;
10935: x_msg_data := SQLERRM;
10936:
10937: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CI_MERGE'
11068: BEGIN
11069: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
11070: l_debug_mode := NVL(l_debug_mode, 'Y');
11071: x_msg_count := 0;
11072: x_return_status := FND_API.G_RET_STS_SUCCESS;
11073: IF p_context='CI_MERGE' THEN
11074: l_init_msg_count:= FND_MSG_PUB.count_msg;
11075: END IF;
11076: IF p_pa_debug_mode = 'Y' THEN
11328: ,x_msg_count => x_msg_count
11329: ,x_msg_data => x_msg_data);
11330:
11331: --ci id will be skipped. Processing will continue with other cis
11332: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11333: l_copy_ci_ver_flag:='N';
11334: END IF;
11335: ELSE
11336:
11493: pa_debug.g_err_stage:= 'Implemented amount is greater than total amount.';
11494: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
11495: END IF;
11496:
11497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11498:
11499: End If;
11500:
11501: End If;
11942: ,x_msg_count => l_msg_count);
11943:
11944: --Return status check can be done in this case as the above should never return
11945: --a return status of E.
11946: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11947: IF P_PA_debug_mode = 'Y' THEN
11948: pa_debug.g_err_stage:= 'pa_fp_control_items_utils.get_impl_details returned error';
11949: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
11950: END IF;
12193: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12194: l_msg_count := FND_MSG_PUB.count_msg;
12195: IF l_msg_count = 1 THEN
12196: PA_INTERFACE_UTILS_PUB.get_messages
12197: (p_encoded => FND_API.G_TRUE
12198: ,p_msg_index => 1
12199: ,p_msg_count => l_msg_count
12200: ,p_msg_data => l_msg_data
12201: ,p_data => l_data
12205:
12206: ELSE
12207: x_msg_count := l_msg_count;
12208: END IF;
12209: x_return_status := FND_API.G_RET_STS_ERROR;
12210: IF p_pa_debug_mode = 'Y' THEN
12211: pa_debug.reset_curr_function;
12212: END IF;
12213: WHEN OTHERS THEN
12211: pa_debug.reset_curr_function;
12212: END IF;
12213: WHEN OTHERS THEN
12214:
12215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12216: x_msg_count := 1;
12217: x_msg_data := SQLERRM;
12218: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CI_MERGE'
12219: ,p_procedure_name => 'validate_ci_merge_input_data');
12334: BEGIN
12335: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
12336: l_debug_mode := NVL(l_debug_mode, 'Y');
12337: x_msg_count := 0;
12338: x_return_status := FND_API.G_RET_STS_SUCCESS;
12339:
12340: IF p_pa_debug_mode = 'Y' THEN
12341: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
12342: p_debug_mode => l_debug_mode );
12547: x_msg_data => l_msg_data,
12548: x_msg_count => l_msg_count,
12549: x_return_status => l_return_status);
12550:
12551: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12552: IF P_PA_debug_mode = 'Y' THEN
12553: pa_debug.g_err_stage:= 'Error in create_ci_impact_fund_lines';
12554: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
12555: END IF;
12606: ,x_return_status => l_return_status
12607: ,x_msg_count => l_msg_count
12608: ,x_msg_data => l_msg_data);
12609:
12610: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12611: IF P_PA_debug_mode = 'Y' THEN
12612: pa_debug.g_err_stage:= 'Error in Get_Curr_Working_Version_Info';
12613: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
12614: END IF;
12629: ,x_return_status => l_return_status
12630: ,x_msg_count => l_msg_count
12631: ,x_msg_data => l_msg_data);
12632:
12633: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12634: IF P_PA_debug_mode = 'Y' THEN
12635: pa_debug.g_err_stage:= 'Error in Get_Baselined_Version_Info';
12636: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
12637: END IF;
12854: ,x_return_status => l_return_status
12855: ,x_msg_count => l_msg_count
12856: ,x_msg_data => l_msg_data);
12857:
12858: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12859: IF l_debug_mode = 'Y' THEN
12860: pa_debug.g_err_stage:= 'Error calling FP_CI_LINK_CONTROL_ITEMS';
12861: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12862: END IF;
12887: ,x_return_status => l_return_status
12888: ,x_msg_count => l_msg_count
12889: ,x_msg_data => l_msg_data);
12890:
12891: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12892: IF l_debug_mode = 'Y' THEN
12893: pa_debug.g_err_stage:= 'Error calling FP_CI_LINK_CONTROL_ITEMS';
12894: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
12895: END IF;
12918: ,x_return_status => l_return_status
12919: ,x_msg_count => l_msg_count
12920: ,x_msg_data => l_msg_data);
12921:
12922: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12923: IF P_PA_debug_mode = 'Y' THEN
12924: pa_debug.g_err_stage:= 'Error in FP_CI_UPDATE_IMPACT';
12925: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
12926: END IF;
12988: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12989: l_msg_count := FND_MSG_PUB.count_msg;
12990: IF l_msg_count = 1 THEN
12991: PA_INTERFACE_UTILS_PUB.get_messages
12992: (p_encoded => FND_API.G_TRUE
12993: ,p_msg_index => 1
12994: ,p_msg_count => l_msg_count
12995: ,p_msg_data => l_msg_data
12996: ,p_data => l_data
13000: ELSE
13001: x_msg_count := l_msg_count;
13002: END IF;
13003:
13004: x_return_status := FND_API.G_RET_STS_ERROR;
13005: IF p_pa_debug_mode = 'Y' THEN
13006: pa_debug.reset_curr_function;
13007: END IF;
13008: WHEN OTHERS THEN
13005: IF p_pa_debug_mode = 'Y' THEN
13006: pa_debug.reset_curr_function;
13007: END IF;
13008: WHEN OTHERS THEN
13009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13010: x_msg_count := 1;
13011: x_msg_data := SQLERRM;
13012: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CI_MERGE'
13013: ,p_procedure_name => 'impl_ci_into_autobaseline_proj');
13140: BEGIN
13141: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
13142: l_debug_mode := NVL(l_debug_mode, 'Y');
13143: x_msg_count := 0;
13144: x_return_status := FND_API.G_RET_STS_SUCCESS;
13145: l_init_msg_count:= FND_MSG_PUB.count_msg;
13146: IF p_pa_debug_mode = 'Y' THEN
13147: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
13148: p_debug_mode => l_debug_mode );
13225: ,x_return_status => x_return_status
13226: ,x_msg_count => x_msg_count
13227: ,x_msg_data => x_msg_data );
13228:
13229: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13230: IF l_debug_mode = 'Y' THEN
13231: pa_debug.g_err_stage:='Called API validate_ci_merge_input_data returned error';
13232: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
13233: END IF;
13413: ,x_return_status => x_return_status
13414: ,x_msg_data => x_msg_data
13415: ,x_msg_count => x_msg_count);
13416:
13417: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13418: IF l_debug_mode = 'Y' THEN
13419: pa_debug.g_err_stage:='--Call to impl_ci_into_autobaseline_proj returned with ERROR';
13420: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
13421: END IF;
13462: ,x_return_status => x_return_status
13463: ,x_msg_data => x_msg_data
13464: ,x_msg_count => x_msg_count);
13465:
13466: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13467: IF l_debug_mode = 'Y' THEN
13468: pa_debug.g_err_stage:='Called API PAFPCIMB.implement_ci_into_single_ver error';
13469: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
13470: END IF;
13698: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
13699: l_msg_count := FND_MSG_PUB.count_msg;
13700: IF l_msg_count = 1 THEN
13701: PA_INTERFACE_UTILS_PUB.get_messages
13702: (p_encoded => FND_API.G_TRUE
13703: ,p_msg_index => 1
13704: ,p_msg_count => l_msg_count
13705: ,p_msg_data => l_msg_data
13706: ,p_data => l_data
13715: IF p_commit_flag ='N' THEN
13716: ROLLBACK TO implement_change_document;
13717: END IF;
13718:
13719: x_return_status := FND_API.G_RET_STS_ERROR;
13720: IF p_pa_debug_mode = 'Y' THEN
13721: pa_debug.reset_curr_function;
13722: END IF;
13723: WHEN OTHERS THEN
13721: pa_debug.reset_curr_function;
13722: END IF;
13723: WHEN OTHERS THEN
13724:
13725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13726: x_msg_count := 1;
13727: x_msg_data := SQLERRM;
13728: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CI_MERGE'
13729: ,p_procedure_name => 'implement_change_document');