557: AND po.project_id = p_project_id;
558:
559: EXCEPTION
560: WHEN NO_DATA_FOUND THEN
561: PA_UTILS.ADD_MESSAGE
562: ( p_app_short_name => 'PA',
563: p_msg_name => 'PA_FP_CI_NO_VERSION_DATA_FOUND');
564: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 2***');
565: x_return_status := FND_API.G_RET_STS_ERROR;
812: IF (l_t_time_phased_code = 'G') THEN ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - **8');
813: ----DBMS_OUTPUT.PUT_LINE('Time phased Code is Different');
814: --MERGE NOT POSSIBLE
815: l_merge_possible_code := 'E';
816: -- Add message in PA_UTILS
817: PA_UTILS.ADD_MESSAGE
818: ( p_app_short_name => 'PA',
819: p_msg_name => 'PA_FP_CI_C_TIME_PHASE_DIFF'
820: );
813: ----DBMS_OUTPUT.PUT_LINE('Time phased Code is Different');
814: --MERGE NOT POSSIBLE
815: l_merge_possible_code := 'E';
816: -- Add message in PA_UTILS
817: PA_UTILS.ADD_MESSAGE
818: ( p_app_short_name => 'PA',
819: p_msg_name => 'PA_FP_CI_C_TIME_PHASE_DIFF'
820: );
821: /*p_token1 => 'CI_SOURCE',
834: --Check for the Target to be the same
835: IF (l_t_time_phased_code = 'P') THEN
836: -- MERGE NOT POSSIBLE
837: l_merge_possible_code := 'E';
838: -- Add message in PA_UTILS
839: PA_UTILS.ADD_MESSAGE
840: ( p_app_short_name => 'PA',
841: p_msg_name => 'PA_FP_CI_C_TIME_PHASE_DIFF'
842: );
835: IF (l_t_time_phased_code = 'P') THEN
836: -- MERGE NOT POSSIBLE
837: l_merge_possible_code := 'E';
838: -- Add message in PA_UTILS
839: PA_UTILS.ADD_MESSAGE
840: ( p_app_short_name => 'PA',
841: p_msg_name => 'PA_FP_CI_C_TIME_PHASE_DIFF'
842: );
843: /*p_token1 => 'CI_SOURCE',
867: ) THEN
868: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 25');
869: -- MERGE NOT POSSIBLE
870: l_merge_possible_code := 'E';
871: -- Add message in PA_UTILS
872: PA_UTILS.ADD_MESSAGE
873: ( p_app_short_name => 'PA',
874: p_msg_name => 'PA_FP_CI_C_INV_VER_TYPE_MATCH'
875: );
868: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 25');
869: -- MERGE NOT POSSIBLE
870: l_merge_possible_code := 'E';
871: -- Add message in PA_UTILS
872: PA_UTILS.ADD_MESSAGE
873: ( p_app_short_name => 'PA',
874: p_msg_name => 'PA_FP_CI_C_INV_VER_TYPE_MATCH'
875: );
876: /*p_token1 => 'CI_SOURCE',
890: IF (l_t_fin_plan_pref_code = 'REVENUE_ONLY') THEN
891: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 16****');
892: -- MERGE NOT POSSIBLE
893: l_merge_possible_code := 'E';
894: -- Add message in PA_UTILS
895: PA_UTILS.ADD_MESSAGE
896: ( p_app_short_name => 'PA',
897: p_msg_name => 'PA_FP_CI_C_INV_PREF_CODE_MATCH'
898: );
891: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 16****');
892: -- MERGE NOT POSSIBLE
893: l_merge_possible_code := 'E';
894: -- Add message in PA_UTILS
895: PA_UTILS.ADD_MESSAGE
896: ( p_app_short_name => 'PA',
897: p_msg_name => 'PA_FP_CI_C_INV_PREF_CODE_MATCH'
898: );
899: /*p_token1 => 'CI_SOURCE',
913: IF (l_t_fin_plan_pref_code = 'COST_ONLY') THEN
914: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 18');
915: -- MERGE NOT POSSIBLE
916: l_merge_possible_code := 'E';
917: -- Add message in PA_UTILS
918: PA_UTILS.ADD_MESSAGE
919: ( p_app_short_name => 'PA',
920: p_msg_name => 'PA_FP_CI_C_INV_PREF_CODE_MATCH'
921: );
914: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 18');
915: -- MERGE NOT POSSIBLE
916: l_merge_possible_code := 'E';
917: -- Add message in PA_UTILS
918: PA_UTILS.ADD_MESSAGE
919: ( p_app_short_name => 'PA',
920: p_msg_name => 'PA_FP_CI_C_INV_PREF_CODE_MATCH'
921: );
922: /*p_token1 => 'CI_SOURCE',
940: IF (l_t_version_type = 'COST') THEN
941: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 21***');
942: -- MERGE NOT POSSIBLE
943: l_merge_possible_code := 'E';
944: -- Add message in PA_UTILS
945: PA_UTILS.ADD_MESSAGE
946: ( p_app_short_name => 'PA',
947: p_msg_name => 'PA_FP_CI_C_INV_PREF_CODE_MATCH'
948: );
941: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 21***');
942: -- MERGE NOT POSSIBLE
943: l_merge_possible_code := 'E';
944: -- Add message in PA_UTILS
945: PA_UTILS.ADD_MESSAGE
946: ( p_app_short_name => 'PA',
947: p_msg_name => 'PA_FP_CI_C_INV_PREF_CODE_MATCH'
948: );
949: /*p_token1 => 'CI_SOURCE',
961: IF (l_t_version_type = 'REVENUE') THEN
962: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 23***');
963: -- MERGE NOT POSSIBLE
964: l_merge_possible_code := 'E';
965: -- Add message in PA_UTILS
966: PA_UTILS.ADD_MESSAGE
967: ( p_app_short_name => 'PA',
968: p_msg_name => 'PA_FP_CI_C_INV_PREF_CODE_MATCH'
969: );
962: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 23***');
963: -- MERGE NOT POSSIBLE
964: l_merge_possible_code := 'E';
965: -- Add message in PA_UTILS
966: PA_UTILS.ADD_MESSAGE
967: ( p_app_short_name => 'PA',
968: p_msg_name => 'PA_FP_CI_C_INV_PREF_CODE_MATCH'
969: );
970: /*p_token1 => 'CI_SOURCE',
992: ) THEN
993: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 25');
994: -- MERGE NOT POSSIBLE
995: l_merge_possible_code := 'E';
996: -- Add message in PA_UTILS
997: PA_UTILS.ADD_MESSAGE
998: ( p_app_short_name => 'PA',
999: p_msg_name => 'PA_FP_CI_C_INV_VER_TYPE_MATCH'
1000: );
993: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 25');
994: -- MERGE NOT POSSIBLE
995: l_merge_possible_code := 'E';
996: -- Add message in PA_UTILS
997: PA_UTILS.ADD_MESSAGE
998: ( p_app_short_name => 'PA',
999: p_msg_name => 'PA_FP_CI_C_INV_VER_TYPE_MATCH'
1000: );
1001: /*p_token1 => 'CI_SOURCE',
1046: IF (l_s_agreement_id <> l_t_agreement_id) AND
1047: (l_s_app_rev_flag ='Y' AND l_t_app_rev_flag='Y') THEN
1048: --MERGE NOT POSSIBLE
1049: l_merge_possible_code := 'E';
1050: -- Add message in PA_UTILS
1051: PA_UTILS.ADD_MESSAGE
1052: ( p_app_short_name => 'PA',
1053: p_msg_name => 'PA_FP_CI_C_INV_AGR_ID_MATCH'
1054: );
1047: (l_s_app_rev_flag ='Y' AND l_t_app_rev_flag='Y') THEN
1048: --MERGE NOT POSSIBLE
1049: l_merge_possible_code := 'E';
1050: -- Add message in PA_UTILS
1051: PA_UTILS.ADD_MESSAGE
1052: ( p_app_short_name => 'PA',
1053: p_msg_name => 'PA_FP_CI_C_INV_AGR_ID_MATCH'
1054: );
1055: -- RAISE EXCEPTION RAISE_MERGE_ERROR
1118: l_count := 0;
1119: /* dummy stmt */
1120: end;
1121:
1122: PA_UTILS.ADD_MESSAGE
1123: ( p_app_short_name => 'PA',
1124: p_msg_name => 'PA_FP_CI_NO_COPY',
1125: p_token1 => 'CI_ID',
1126: p_value1 => l_chg_doc_token,
1139: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - **8');
1140: ----DBMS_OUTPUT.PUT_LINE('Time phased Code is Different');
1141: --MERGE NOT POSSIBLE
1142: l_merge_possible_code := 'E';
1143: -- Add message in PA_UTILS
1144: IF (p_calling_mode = 'INCLUDE') THEN
1145: PA_UTILS.ADD_MESSAGE
1146: ( p_app_short_name => 'PA',
1147: p_msg_name => 'PA_FP_CI_TIME_PHASE_DIFF',
1141: --MERGE NOT POSSIBLE
1142: l_merge_possible_code := 'E';
1143: -- Add message in PA_UTILS
1144: IF (p_calling_mode = 'INCLUDE') THEN
1145: PA_UTILS.ADD_MESSAGE
1146: ( p_app_short_name => 'PA',
1147: p_msg_name => 'PA_FP_CI_TIME_PHASE_DIFF',
1148: p_token1 => 'CHG_DOC',
1149: p_value1 => l_src_ci_number
1148: p_token1 => 'CHG_DOC',
1149: p_value1 => l_src_ci_number
1150: );
1151: ELSIF (p_calling_mode = 'IMPLEMENT') THEN
1152: PA_UTILS.ADD_MESSAGE
1153: ( p_app_short_name => 'PA',
1154: p_msg_name => 'PA_FP_CIM_TIME_PHASE_DIFF',
1155: p_token1 => 'PLAN_TYPE',
1156: p_value1 => l_targ_pt_name
1156: p_value1 => l_targ_pt_name
1157:
1158: );
1159: ELSIF (p_calling_mode = 'SUBMIT') THEN
1160: PA_UTILS.ADD_MESSAGE
1161: ( p_app_short_name => 'PA',
1162: p_msg_name => 'PA_FP_CIS_TIME_PHASE_DIFF'
1163: );
1164:
1179: --Check for the Target to be the same
1180: IF (l_t_time_phased_code = 'P') THEN
1181: -- MERGE NOT POSSIBLE
1182: l_merge_possible_code := 'E';
1183: -- Add message in PA_UTILS
1184: IF (p_calling_mode = 'INCLUDE') THEN
1185: PA_UTILS.ADD_MESSAGE
1186: ( p_app_short_name => 'PA',
1187: p_msg_name => 'PA_FP_CI_TIME_PHASE_DIFF',
1181: -- MERGE NOT POSSIBLE
1182: l_merge_possible_code := 'E';
1183: -- Add message in PA_UTILS
1184: IF (p_calling_mode = 'INCLUDE') THEN
1185: PA_UTILS.ADD_MESSAGE
1186: ( p_app_short_name => 'PA',
1187: p_msg_name => 'PA_FP_CI_TIME_PHASE_DIFF',
1188: p_token1 => 'CHG_DOC',
1189: p_value1 => l_src_ci_number
1188: p_token1 => 'CHG_DOC',
1189: p_value1 => l_src_ci_number
1190: );
1191: ELSIF (p_calling_mode = 'IMPLEMENT') THEN
1192: PA_UTILS.ADD_MESSAGE
1193: ( p_app_short_name => 'PA',
1194: p_msg_name => 'PA_FP_CIM_TIME_PHASE_DIFF',
1195: p_token1 => 'PLAN_TYPE',
1196: p_value1 => l_targ_pt_name
1196: p_value1 => l_targ_pt_name
1197:
1198: );
1199: ELSIF (p_calling_mode = 'SUBMIT') THEN
1200: PA_UTILS.ADD_MESSAGE
1201: ( p_app_short_name => 'PA',
1202: p_msg_name => 'PA_FP_CIS_TIME_PHASE_DIFF'
1203: );
1204:
1231: ) THEN
1232: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 25');
1233: -- MERGE NOT POSSIBLE
1234: l_merge_possible_code := 'E';
1235: -- Add message in PA_UTILS
1236: IF (p_calling_mode = 'INCLUDE') THEN
1237: PA_UTILS.ADD_MESSAGE
1238: ( p_app_short_name => 'PA',
1239: p_msg_name => 'PA_FP_CI_INV_VER_TYPE_MATCH',
1233: -- MERGE NOT POSSIBLE
1234: l_merge_possible_code := 'E';
1235: -- Add message in PA_UTILS
1236: IF (p_calling_mode = 'INCLUDE') THEN
1237: PA_UTILS.ADD_MESSAGE
1238: ( p_app_short_name => 'PA',
1239: p_msg_name => 'PA_FP_CI_INV_VER_TYPE_MATCH',
1240: p_token1 => 'CHG_DOC',
1241: p_value1 => l_src_ci_number
1240: p_token1 => 'CHG_DOC',
1241: p_value1 => l_src_ci_number
1242: );
1243: ELSIF (p_calling_mode = 'IMPLEMENT') THEN
1244: PA_UTILS.ADD_MESSAGE
1245: ( p_app_short_name => 'PA',
1246: p_msg_name => 'PA_FP_CIM_INV_VER_TYPE_MATCH',
1247: p_token1 => 'PLAN_TYPE',
1248: p_value1 => l_targ_pt_name
1248: p_value1 => l_targ_pt_name
1249:
1250: );
1251: ELSIF (p_calling_mode = 'SUBMIT') THEN
1252: PA_UTILS.ADD_MESSAGE
1253: ( p_app_short_name => 'PA',
1254: p_msg_name => 'PA_FP_CIS_INV_VER_TYPE_MATCH'
1255: );
1256:
1272: IF (l_t_fin_plan_pref_code = 'REVENUE_ONLY') THEN
1273: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 16****');
1274: -- MERGE NOT POSSIBLE
1275: l_merge_possible_code := 'E';
1276: -- Add message in PA_UTILS
1277: IF (p_calling_mode = 'INCLUDE') THEN
1278: PA_UTILS.ADD_MESSAGE
1279: ( p_app_short_name => 'PA',
1280: p_msg_name => 'PA_FP_CI_INV_PREF_CODE_MATCH',
1274: -- MERGE NOT POSSIBLE
1275: l_merge_possible_code := 'E';
1276: -- Add message in PA_UTILS
1277: IF (p_calling_mode = 'INCLUDE') THEN
1278: PA_UTILS.ADD_MESSAGE
1279: ( p_app_short_name => 'PA',
1280: p_msg_name => 'PA_FP_CI_INV_PREF_CODE_MATCH',
1281: p_token1 => 'CHG_DOC',
1282: p_value1 => l_src_ci_number
1281: p_token1 => 'CHG_DOC',
1282: p_value1 => l_src_ci_number
1283: );
1284: ELSIF (p_calling_mode = 'IMPLEMENT') THEN
1285: PA_UTILS.ADD_MESSAGE
1286: ( p_app_short_name => 'PA',
1287: p_msg_name => 'PA_FP_CIM_INV_PREF_CODE_MATCH',
1288: p_token1 => 'PLAN_TYPE',
1289: p_value1 => l_targ_pt_name
1289: p_value1 => l_targ_pt_name
1290:
1291: );
1292: ELSIF (p_calling_mode = 'SUBMIT') THEN
1293: PA_UTILS.ADD_MESSAGE
1294: ( p_app_short_name => 'PA',
1295: p_msg_name => 'PA_FP_CIS_INV_PREF_CODE_MATCH'
1296: );
1297:
1313: IF (l_t_fin_plan_pref_code = 'COST_ONLY') THEN
1314: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 18');
1315: -- MERGE NOT POSSIBLE
1316: l_merge_possible_code := 'E';
1317: -- Add message in PA_UTILS
1318: IF (p_calling_mode = 'INCLUDE') THEN
1319: PA_UTILS.ADD_MESSAGE
1320: ( p_app_short_name => 'PA',
1321: p_msg_name => 'PA_FP_CI_INV_PREF_CODE_MATCH',
1315: -- MERGE NOT POSSIBLE
1316: l_merge_possible_code := 'E';
1317: -- Add message in PA_UTILS
1318: IF (p_calling_mode = 'INCLUDE') THEN
1319: PA_UTILS.ADD_MESSAGE
1320: ( p_app_short_name => 'PA',
1321: p_msg_name => 'PA_FP_CI_INV_PREF_CODE_MATCH',
1322: p_token1 => 'CHG_DOC',
1323: p_value1 => l_src_ci_number
1323: p_value1 => l_src_ci_number
1324:
1325: );
1326: ELSIF (p_calling_mode = 'IMPLEMENT') THEN
1327: PA_UTILS.ADD_MESSAGE
1328: ( p_app_short_name => 'PA',
1329: p_msg_name => 'PA_FP_CIM_INV_PREF_CODE_MATCH',
1330: p_token1 => 'PLAN_TYPE',
1331: p_value1 => l_targ_pt_name
1330: p_token1 => 'PLAN_TYPE',
1331: p_value1 => l_targ_pt_name
1332: );
1333: ELSIF (p_calling_mode = 'SUBMIT') THEN
1334: PA_UTILS.ADD_MESSAGE
1335: ( p_app_short_name => 'PA',
1336: p_msg_name => 'PA_FP_CIS_INV_PREF_CODE_MATCH'
1337: );
1338:
1358: IF (l_t_version_type = 'COST') THEN
1359: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 21***');
1360: -- MERGE NOT POSSIBLE
1361: l_merge_possible_code := 'E';
1362: -- Add message in PA_UTILS
1363: IF (p_calling_mode = 'INCLUDE') THEN
1364: PA_UTILS.ADD_MESSAGE
1365: ( p_app_short_name => 'PA',
1366: p_msg_name => 'PA_FP_CI_INV_PREF_CODE_MATCH',
1360: -- MERGE NOT POSSIBLE
1361: l_merge_possible_code := 'E';
1362: -- Add message in PA_UTILS
1363: IF (p_calling_mode = 'INCLUDE') THEN
1364: PA_UTILS.ADD_MESSAGE
1365: ( p_app_short_name => 'PA',
1366: p_msg_name => 'PA_FP_CI_INV_PREF_CODE_MATCH',
1367: p_token1 => 'CHG_DOC',
1368: p_value1 => l_src_ci_number
1368: p_value1 => l_src_ci_number
1369:
1370: );
1371: ELSIF (p_calling_mode = 'IMPLEMENT') THEN
1372: PA_UTILS.ADD_MESSAGE
1373: ( p_app_short_name => 'PA',
1374: p_msg_name => 'PA_FP_CIM_INV_PREF_CODE_MATCH',
1375: p_token1 => 'PLAN_TYPE',
1376: p_value1 => l_targ_pt_name
1376: p_value1 => l_targ_pt_name
1377:
1378: );
1379: ELSIF (p_calling_mode = 'SUBMIT') THEN
1380: PA_UTILS.ADD_MESSAGE
1381: ( p_app_short_name => 'PA',
1382: p_msg_name => 'PA_FP_CIS_INV_PREF_CODE_MATCH'
1383: );
1384:
1398: IF (l_t_version_type = 'REVENUE') THEN
1399: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 23***');
1400: -- MERGE NOT POSSIBLE
1401: l_merge_possible_code := 'E';
1402: -- Add message in PA_UTILS
1403: IF (p_calling_mode = 'INCLUDE') THEN
1404: PA_UTILS.ADD_MESSAGE
1405: ( p_app_short_name => 'PA',
1406: p_msg_name => 'PA_FP_CI_INV_PREF_CODE_MATCH',
1400: -- MERGE NOT POSSIBLE
1401: l_merge_possible_code := 'E';
1402: -- Add message in PA_UTILS
1403: IF (p_calling_mode = 'INCLUDE') THEN
1404: PA_UTILS.ADD_MESSAGE
1405: ( p_app_short_name => 'PA',
1406: p_msg_name => 'PA_FP_CI_INV_PREF_CODE_MATCH',
1407: p_token1 => 'CHG_DOC',
1408: p_value1 => l_src_ci_number
1408: p_value1 => l_src_ci_number
1409:
1410: );
1411: ELSIF (p_calling_mode = 'IMPLEMENT') THEN
1412: PA_UTILS.ADD_MESSAGE
1413: ( p_app_short_name => 'PA',
1414: p_msg_name => 'PA_FP_CIM_INV_PREF_CODE_MATCH',
1415: p_token1 => 'PLAN_TYPE',
1416: p_value1 => l_targ_pt_name
1416: p_value1 => l_targ_pt_name
1417:
1418: );
1419: ELSIF (p_calling_mode = 'SUBMIT') THEN
1420: PA_UTILS.ADD_MESSAGE
1421: ( p_app_short_name => 'PA',
1422: p_msg_name => 'PA_FP_CIS_INV_PREF_CODE_MATCH'
1423: );
1424:
1448: ) THEN
1449: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_MERGE_POSSIBLE - 25');
1450: -- MERGE NOT POSSIBLE
1451: l_merge_possible_code := 'E';
1452: -- Add message in PA_UTILS
1453: IF (p_calling_mode = 'INCLUDE') THEN
1454: PA_UTILS.ADD_MESSAGE
1455: ( p_app_short_name => 'PA',
1456: p_msg_name => 'PA_FP_CI_INV_VER_TYPE_MATCH',
1450: -- MERGE NOT POSSIBLE
1451: l_merge_possible_code := 'E';
1452: -- Add message in PA_UTILS
1453: IF (p_calling_mode = 'INCLUDE') THEN
1454: PA_UTILS.ADD_MESSAGE
1455: ( p_app_short_name => 'PA',
1456: p_msg_name => 'PA_FP_CI_INV_VER_TYPE_MATCH',
1457: p_token1 => 'CHG_DOC',
1458: p_value1 => l_src_ci_number
1458: p_value1 => l_src_ci_number
1459:
1460: );
1461: ELSIF (p_calling_mode = 'IMPLEMENT') THEN
1462: PA_UTILS.ADD_MESSAGE
1463: ( p_app_short_name => 'PA',
1464: p_msg_name => 'PA_FP_CIM_INV_VER_TYPE_MATCH',
1465: p_token1 => 'PLAN_TYPE',
1466: p_value1 => l_targ_pt_name
1466: p_value1 => l_targ_pt_name
1467:
1468: );
1469: ELSIF (p_calling_mode = 'SUBMIT') THEN
1470: PA_UTILS.ADD_MESSAGE
1471: ( p_app_short_name => 'PA',
1472: p_msg_name => 'PA_FP_CIS_INV_VER_TYPE_MATCH'
1473: );
1474:
1600: throw an error as this mismatch cannot be handled in auto-baseline */
1601:
1602: x_return_status := FND_API.G_RET_STS_ERROR;
1603:
1604: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1605: p_msg_name => 'PA_FP_CHK_FUNDING_LVL');
1606: END IF;
1607: ELSE -- p_proposed_fund_level IS NULL
1608: pa_billing_core.check_funding_level (p_project_id,
1629: where as Budget planning level is at project level
1630: throw an error as this mismatch cannot be handled in auto-baseline */
1631:
1632: x_return_status := FND_API.G_RET_STS_ERROR;
1633: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1634: p_msg_name => 'PA_FP_CHK_FUNDING_LVL');
1635: END IF;
1636: END IF;
1637:
1692: close c1;
1693:
1694: IF l_found = 'Y' then
1695: x_return_status := FND_API.G_RET_STS_ERROR;
1696: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1697: p_msg_name => 'PA_FP_AGR_CI_NO_DELETE');
1698: END IF;
1699:
1700:
1764: close c1;
1765:
1766: IF l_found = 'Y' then
1767: x_return_status := FND_API.G_RET_STS_ERROR;
1768: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1769: p_msg_name => 'PA_FP_AGR_CUR_NO_CHANGE');
1770: END IF;
1771:
1772:
1950: IF P_PA_DEBUG_MODE = 'Y' THEN
1951: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1952: END IF;
1953:
1954: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1955: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1956:
1957: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
1958: IF P_PA_DEBUG_MODE = 'Y' THEN
2187:
2188: -- raise error if the ci version cant be created
2189: x_return_status := FND_API.G_RET_STS_ERROR;
2190:
2191: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2192: p_msg_name => 'PA_FP_CI_VERSION_NOT_ALLOWED');
2193: RETURN;
2194: ELSE
2195: x_version_allowed_flag := 'Y';
2259: END IF;
2260:
2261: IF p_agreement_number IS NULL THEN
2262: x_return_status := FND_API.G_RET_STS_ERROR;
2263: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2264: p_msg_name => 'PA_FP_AGR_NUM_REQ' );
2265: pa_debug.reset_err_stack;
2266: RETURN;
2267: END IF;
2279: RETURN;
2280: EXCEPTION
2281: WHEN NO_DATA_FOUND THEN
2282: x_return_status := FND_API.G_RET_STS_ERROR;
2283: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2284: p_msg_name => 'PA_FP_AGR_INVALID',
2285: p_token1 => 'AGREEMENT_NUMBER',
2286: p_value1 => p_agreement_number);
2287: pa_debug.reset_err_stack;
2417: and patl.language = userenv('LANG');
2418:
2419: EXCEPTION
2420: WHEN NO_DATA_FOUND THEN
2421: PA_UTILS.ADD_MESSAGE
2422: ( p_app_short_name => 'PA',
2423: p_msg_name => 'PA_FP_CI_NO_VERSION_DATA_FOUND');
2424: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 2***');
2425: x_return_status := FND_API.G_RET_STS_ERROR;
2574: l_msg_name := 'PA_FP_CI_AB_NO_CW';
2575: ELSE
2576: l_msg_name := 'PA_FP_APRV_CUR_WORK_NOT_EXISTS';
2577: END IF;
2578: pa_utils.add_message
2579: ( p_app_short_name => 'PA',
2580: p_msg_name => l_msg_name,
2581: p_token1 => 'PROJECT',
2582: p_value1 => l_project_name,
2931: AND fin_plan_type_id = l_ci_aprv_plan_type_id
2932: AND fin_plan_version_id = l_ci_aprv_cw_bv_id;
2933: EXCEPTION
2934: WHEN NO_DATA_FOUND THEN
2935: PA_UTILS.ADD_MESSAGE
2936: ( p_app_short_name => 'PA',
2937: p_msg_name => 'PA_FP_CI_NO_PLAN_LVL_DATA_FND');
2938: x_return_status := FND_API.G_RET_STS_ERROR;
2939: END;
3000: AND fin_plan_version_id = l_ci_aprv_cw_bv_id;
3001:
3002: EXCEPTION
3003: WHEN NO_DATA_FOUND THEN
3004: PA_UTILS.ADD_MESSAGE
3005: ( p_app_short_name => 'PA',
3006: p_msg_name => 'PA_FP_CI_NO_PLAN_LVL_DATA_FND');
3007: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_COPY_POSSIBLE - 2***');
3008: x_return_status := FND_API.G_RET_STS_ERROR;
3066: x_msg_data := NULL;
3067:
3068: ELSE
3069: IF (l_time_phase_code_flag = 'N') THEN
3070: PA_UTILS.ADD_MESSAGE
3071: ( p_app_short_name => 'PA',
3072: p_msg_name => 'PA_FP_CI_C_NO_SP_TIME_PHASE'
3073: );
3074: END IF;
3073: );
3074: END IF;
3075:
3076: IF (p_source_plan_level_code <> l_target_plan_level_code) THEN
3077: PA_UTILS.ADD_MESSAGE
3078: ( p_app_short_name => 'PA',
3079: p_msg_name => 'PA_FP_CI_C_INV_PLAN_LVL_MATCH'
3080: );
3081: END IF;
3079: p_msg_name => 'PA_FP_CI_C_INV_PLAN_LVL_MATCH'
3080: );
3081: END IF;
3082: IF (p_source_time_phased_code <> l_target_time_phased_code) THEN
3083: PA_UTILS.ADD_MESSAGE
3084: ( p_app_short_name => 'PA',
3085: p_msg_name => 'PA_FP_CI_C_TIME_PHASE_DIFF'
3086: );
3087: END IF;
3085: p_msg_name => 'PA_FP_CI_C_TIME_PHASE_DIFF'
3086: );
3087: END IF;
3088: IF (p_source_resource_list_id <> l_target_resource_list_id) THEN
3089: PA_UTILS.ADD_MESSAGE
3090: ( p_app_short_name => 'PA',
3091: p_msg_name => 'PA_FP_CI_C_RES_LIST_DIFF'
3092: );
3093: END IF;
3090: ( p_app_short_name => 'PA',
3091: p_msg_name => 'PA_FP_CI_C_RES_LIST_DIFF'
3092: );
3093: END IF;
3094: PA_UTILS.ADD_MESSAGE
3095: ( p_app_short_name => 'PA',
3096: p_msg_name => 'PA_FP_CI_NO_COPY',
3097: p_token1 => 'CI_ID',
3098: p_value1 => l_token_ci_id,
3275: pa_debug.g_err_stage := 'No Budget Version for the CI';
3276: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3277: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3278: END IF;
3279: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3280: p_msg_name => 'PA_FP_CI_VERSION_NOT_FOUND');
3281: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3282:
3283: ELSE
3296:
3297: IF 'Y' = pa_fin_plan_utils.does_bv_have_rej_lines
3298: (p_budget_version_id => l_ci_version_id_tbl(i))
3299: THEN
3300: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3301: p_msg_name => 'PA_FP_CI_REJ_LINES_EXST_TO_SUB');
3302: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3303: END IF;
3304:
3488: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3489: pa_debug.g_err_stage:= 'p_ci_id = '|| to_char(p_ci_id);
3490: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3491: END IF;
3492: PA_UTILS.ADD_MESSAGE
3493: (p_app_short_name => 'PA',
3494: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3495: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3496:
3755: l_message_code := 'PA_FP_CIM_INVP_RES_TO_RES_GRP';
3756: elsif p_calling_mode = 'SUBMIT' then
3757: l_message_code := 'PA_FP_CIS_INVP_RES_TO_RES_GRP';
3758: end if;
3759: PA_UTILS.ADD_MESSAGE
3760: ( p_app_short_name => 'PA',
3761: p_msg_name => l_message_code );
3762:
3763: elsif l_source_plan_level = 'R' AND
3925: l_message_code := 'PA_FP_CIM_INV_RES_TO_RES_GRP';
3926: elsif p_calling_mode = 'SUBMIT' then
3927: l_message_code := 'PA_FP_CIS_INV_RES_TO_RES_GRP';
3928: end if;
3929: PA_UTILS.ADD_MESSAGE
3930: ( p_app_short_name => 'PA',
3931: p_msg_name => l_message_code );
3932:
3933: elsif p_s_fin_plan_level_code <> 'P' and p_t_fin_plan_level_code <> 'P' then
3938: l_message_code := 'PA_FP_CI_INV_RES_TO_RES_GRP';
3939: elsif p_calling_mode = 'IMPLEMENT' then
3940: l_message_code := 'PA_FP_CIM_INV_RES_TO_RES_GRP';
3941: end if;
3942: PA_UTILS.ADD_MESSAGE
3943: ( p_app_short_name => 'PA',
3944: p_msg_name => l_message_code );
3945: end if;
3946: end if;
3948: if
3949: ( p_s_fin_plan_level_code = 'L' and p_t_fin_plan_level_code = 'L' ) OR
3950: ( p_s_fin_plan_level_code = 'T' and p_t_fin_plan_level_code = 'T' ) OR
3951: ( p_s_fin_plan_level_code in ( 'T','L','M') and p_t_fin_plan_level_code = 'P' ) THEN
3952: PA_UTILS.ADD_MESSAGE
3953: ( p_app_short_name => 'PA',
3954: p_msg_name => 'PA_FP_CI_INV_S_TASK_DATA',
3955: p_token1 => 'TASK_NAME',
3956: p_value1 => c1_rec.task_name,
3958: p_value2 => c1_rec.task_number );
3959:
3960: elsif p_s_fin_plan_level_code <> 'P' and p_t_fin_plan_level_code <> 'P' then
3961: IF c1_rec.task_id = l_target_task_id THEN
3962: PA_UTILS.ADD_MESSAGE
3963: ( p_app_short_name => 'PA',
3964: p_msg_name => 'PA_FP_CI_INV_S_TASK_DATA',
3965: p_token1 => 'TASK_NAME',
3966: p_value1 => c1_rec.task_name,
3966: p_value1 => c1_rec.task_name,
3967: p_token2 => 'TASK_NO',
3968: p_value2 => c1_rec.task_number );
3969: ELSE
3970: PA_UTILS.ADD_MESSAGE
3971: ( p_app_short_name => 'PA',
3972: p_msg_name => 'PA_FP_CI_INV_ST_TASK_DATA',
3973: p_token1 => 'S_TASK_NAME',
3974: p_value1 => c1_rec.task_name,
4222: elsif p_calling_mode = 'SUBMIT' then
4223: l_message_code := 'PA_FP_CIS_INV_TSK_LVL';
4224:
4225: end if;
4226: PA_UTILS.ADD_MESSAGE
4227: ( p_app_short_name => 'PA',
4228: p_msg_name => l_message_code );
4229:
4230: end if; /* error msg header flag check */
4227: ( p_app_short_name => 'PA',
4228: p_msg_name => l_message_code );
4229:
4230: end if; /* error msg header flag check */
4231: PA_UTILS.ADD_MESSAGE
4232: ( p_app_short_name => 'PA',
4233: p_msg_name => 'PA_FP_CI_INV_S_TASK_DATA',
4234: p_token1 => 'TASK_NAME',
4235: p_value1 => l_target_task_name,
4971: IF l_debug_mode = 'Y' THEN
4972: pa_debug.g_err_stage:='p_project_id is null';
4973: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4974: END IF;
4975: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4976: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4977: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4978: END IF;
4979:
7171: IF l_debug_mode = 'Y' THEN
7172: pa_debug.g_err_stage:='p_project_id is null';
7173: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7174: END IF;
7175: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7176: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7177: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7178: END IF;
7179:
7186: IF l_debug_mode = 'Y' THEN
7187: pa_debug.g_err_stage:='p_budget_version_id is null';
7188: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7189: END IF;
7190: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7191: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7192: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7193: END IF;
7194:
7223: IF l_debug_mode = 'Y' THEN
7224: pa_debug.g_err_stage:='p_budget_version_id is invalid - fetching version type';
7225: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7226: END IF;
7227: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7228: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7229: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7230: END;
7231: ELSE
7256: IF l_debug_mode = 'Y' THEN
7257: pa_debug.g_err_stage:='p_budget_version_id is invalid - fetching fin plan type id';
7258: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7259: END IF;
7260: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7261: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7262: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7263: END;
7264: ELSE
7781: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7782: END IF;
7783:
7784:
7785: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7786: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
7787: p_token1 => l_token_name,
7788: p_value1 => l_mod_name);
7789:
8052: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8053: END IF;
8054:
8055:
8056: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8057: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8058: p_token1 => l_token_name,
8059: p_value1 => l_mod_name);
8060:
8747:
8748: END IF;
8749:
8750:
8751: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8752: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
8753: p_token1 => l_token_name,
8754: p_value1 => l_mod_name);
8755:
9356: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9357:
9358: END IF;
9359:
9360: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9361: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9362: p_token1 => 'PROCEDURENAME',
9363: p_value1 => l_module_name);
9364:
9749: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9750:
9751: END IF;
9752:
9753: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
9754: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9755: p_token1 => 'PROCEDURENAME',
9756: p_value1 => l_module_name);
9757:
10081: pa_debug.g_err_stage:='p_ci_id = '||p_ci_id;
10082: pa_debug.write('get_txn_curr_code_of_ci_ver: ' || g_module_name,pa_debug.g_err_stage,5);
10083: END IF;
10084:
10085: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
10086: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10087: p_token1 => 'PROCEDURENAME',
10088: p_value1 => 'PAFPCIUB.get_txn_curr_code_of_ci_ver');
10089:
10193: IF l_debug_mode = 'Y' THEN
10194: pa_debug.g_err_stage:='Input p_ci_type_id is NULL';
10195: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10196: END IF;
10197: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
10198: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10199: p_token1 => 'PROCEDURENAME',
10200: p_value1 => 'PAFPCIUB.validate_fp_ci_type_delete');
10201: pa_debug.reset_curr_function;