[Home] [Help]
175: END IF;
176:
177: -- Set API return status to success
178:
179: p_return_status := FND_API.G_RET_STS_SUCCESS;
180:
181: -- check business rules related to timephasing
182: -- P = PA period, G = GL period, R = Date Range
183:
209: ,p_attribute3 => ''
210: ,p_attribute4 => ''
211: ,p_attribute5 => '');
212: END IF;
213: RAISE FND_API.G_EXC_ERROR;
214: ELSE
215: --try to get the period name related to those dates
216:
217: OPEN l_period_name_csr( l_budget_start_date_in
235: ,p_attribute5 => '');
236: END IF;
237:
238: CLOSE l_period_name_csr;
239: RAISE FND_API.G_EXC_ERROR;
240: END IF;
241:
242: CLOSE l_period_name_csr;
243:
272: ,p_attribute5 => '');
273: END IF;
274:
275: CLOSE l_budget_periods_csr;
276: RAISE FND_API.G_EXC_ERROR;
277: END IF;
278:
279: CLOSE l_budget_periods_csr;
280:
340: ,p_attribute4 => ''
341: ,p_attribute5 => '');
342: END IF;
343:
344: RAISE FND_API.G_EXC_ERROR;
345: END IF;
346:
347: IF l_budget_end_date_in = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE
348: OR l_budget_end_date_in IS NULL
360: ,p_attribute4 => ''
361: ,p_attribute5 => '');
362: END IF;
363:
364: RAISE FND_API.G_EXC_ERROR;
365: END IF;
366: /*
367: The following code is added while doing webADI changes. The following
368: validations are added (which were not being done earlier):
390: ,p_attribute4 => ''
391: ,p_attribute5 => '');
392: END IF;
393:
394: RAISE FND_API.G_EXC_ERROR;
395: END IF;
396: /* Bug 12565323 Commenting the conditions as system doesnt not do the same validation in forms flow.
397: IF p_entry_level_code = 'P' THEN
398: OPEN l_project_dates_csr(p_project_id);
411: ,p_attribute3 => ''
412: ,p_attribute4 => ''
413: ,p_attribute5 => '');
414:
415: RAISE FND_API.G_EXC_ERROR;
416: END IF;
417:
418: ELSE -- planning level is 'Task'
419: OPEN l_task_dates_csr(p_task_id);
432: ,p_attribute3 => ''
433: ,p_attribute4 => ''
434: ,p_attribute5 => '');
435:
436: RAISE FND_API.G_EXC_ERROR;
437: END IF;
438:
439: END IF; -- End If for entry level 'Project'
440: -- End of additional validations done as part of webADI changes
490: ,p_attribute3 => ''
491: ,p_attribute4 => ''
492: ,p_attribute5 => '');
493: END IF;
494: RAISE FND_API.G_EXC_ERROR;
495:
496: END IF;
497:
498: IF (l_project_end_date IS NULL) THEN
508: ,p_attribute3 => ''
509: ,p_attribute4 => ''
510: ,p_attribute5 => '');
511: END IF;
512: RAISE FND_API.G_EXC_ERROR;
513: END IF; -- project end date is not null
514:
515: p_budget_start_date_out := l_project_start_date;
516: p_budget_end_date_out := l_project_end_date;
527: l_elem_ver_id_tbl(l_elem_ver_id_tbl.COUNT) := 0;
528:
529: -- Bug 8854015
530: IF (l_budget_start_date_in IS NOT NULL AND
531: l_budget_start_date_in <> FND_API.G_MISS_DATE) AND
532: (l_budget_end_date_in IS NOT NULL AND
533: l_budget_end_date_in <> FND_API.G_MISS_DATE) THEN
534:
535: IF (l_budget_start_date_in > l_budget_end_date_in)
529: -- Bug 8854015
530: IF (l_budget_start_date_in IS NOT NULL AND
531: l_budget_start_date_in <> FND_API.G_MISS_DATE) AND
532: (l_budget_end_date_in IS NOT NULL AND
533: l_budget_end_date_in <> FND_API.G_MISS_DATE) THEN
534:
535: IF (l_budget_start_date_in > l_budget_end_date_in)
536: THEN
537: p_return_status := FND_API.G_RET_STS_ERROR;
533: l_budget_end_date_in <> FND_API.G_MISS_DATE) THEN
534:
535: IF (l_budget_start_date_in > l_budget_end_date_in)
536: THEN
537: p_return_status := FND_API.G_RET_STS_ERROR;
538: PA_UTILS.add_message
539: (p_app_short_name => 'PA',
540: p_msg_name => 'PA_INVALID_END_DATE');
541: END IF;
555: ,x_msg_data => l_msg_data
556: ,x_msg_count => l_msg_count
557: ,x_return_status => p_return_status);
558:
559: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
560: -- raising execption to show the error messages
561: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
562: END IF;
563:
612: ,p_attribute4 => ''
613: ,p_attribute5 => '');
614: END IF;
615:
616: RAISE FND_API.G_EXC_ERROR;
617: END IF;
618:
619: IF (l_project_end_date IS NULL) THEN
620: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
629: ,p_attribute4 => ''
630: ,p_attribute5 => '');
631: END IF;
632:
633: RAISE FND_API.G_EXC_ERROR;
634: END IF;
635: END IF;
636:
637: p_budget_start_date_out := l_project_start_date;
659: ,p_attribute3 => ''
660: ,p_attribute4 => ''
661: ,p_attribute5 => '');
662: END IF;
663: RAISE FND_API.G_EXC_ERROR;
664: END IF;
665: p_budget_start_date_out := l_task_start_date;
666: p_budget_end_date_out := l_project_end_date;
667: p_period_name_out := p_period_name_in;
690: ,p_attribute3 => ''
691: ,p_attribute4 => ''
692: ,p_attribute5 => '');
693:
694: RAISE FND_API.G_EXC_ERROR;
695: ELSIF p_context = 'WEBADI' THEN
696: x_error_code := 'FP_WEBADI_PLAN_DATE_ERR';
697: p_return_status := FND_API.G_RET_STS_ERROR;
698: RETURN;
693:
694: RAISE FND_API.G_EXC_ERROR;
695: ELSIF p_context = 'WEBADI' THEN
696: x_error_code := 'FP_WEBADI_PLAN_DATE_ERR';
697: p_return_status := FND_API.G_RET_STS_ERROR;
698: RETURN;
699: END IF;
700: END IF; -- start date > end date
701: p_budget_start_date_out := l_budget_start_date_in;
715: ,p_attribute3 => ''
716: ,p_attribute4 => ''
717: ,p_attribute5 => '');
718:
719: RAISE FND_API.G_EXC_ERROR;
720: ELSIF p_context = 'WEBADI' THEN
721: x_error_code := 'PA_FP_WA_PLAN_DATE_MIS';
722: p_return_status := FND_API.G_RET_STS_ERROR;
723: RETURN;
718:
719: RAISE FND_API.G_EXC_ERROR;
720: ELSIF p_context = 'WEBADI' THEN
721: x_error_code := 'PA_FP_WA_PLAN_DATE_MIS';
722: p_return_status := FND_API.G_RET_STS_ERROR;
723: RETURN;
724: END IF;
725: ELSIF l_budget_start_date_in IS NULL AND
726: l_budget_end_date_in IS NOT NULL THEN
736: ,p_attribute3 => ''
737: ,p_attribute4 => ''
738: ,p_attribute5 => '');
739:
740: RAISE FND_API.G_EXC_ERROR;
741: ELSIF p_context = 'WEBADI' THEN
742: x_error_code := 'PA_FP_WA_PLAN_DATE_MIS';
743: p_return_status := FND_API.G_RET_STS_ERROR;
744: RETURN;
739:
740: RAISE FND_API.G_EXC_ERROR;
741: ELSIF p_context = 'WEBADI' THEN
742: x_error_code := 'PA_FP_WA_PLAN_DATE_MIS';
743: p_return_status := FND_API.G_RET_STS_ERROR;
744: RETURN;
745: END IF;
746: ELSIF l_budget_start_date_in IS NULL AND
747: l_budget_end_date_in IS NULL THEN
781: ,x_msg_data => l_msg_data
782: ,x_msg_count => l_msg_count
783: ,x_return_status => p_return_status);
784:
785: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
786: -- raising execption to show the error messages
787: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
788: END IF;
789:
848: END;
849:
850: IF valid_gl_start_date <> 'Y' THEN
851: x_error_code := 'PA_FP_WA_PLAN_ST_DATE_NOT_VLD';
852: p_return_status := FND_API.G_RET_STS_ERROR;
853: RETURN;
854: END IF;
855:
856: IF valid_gl_end_date <> 'Y' THEN
893: END;
894:
895: IF valid_gl_start_date <> 'Y' THEN
896: x_error_code := 'PA_FP_WA_PLAN_ST_DATE_NOT_VLD';
897: p_return_status := FND_API.G_RET_STS_ERROR;
898: RETURN;
899: END IF;
900:
901: IF valid_gl_end_date <> 'Y' THEN
899: END IF;
900:
901: IF valid_gl_end_date <> 'Y' THEN
902: x_error_code := 'PA_FP_WA_PLAN_EN_DATE_NOT_VLD';
903: p_return_status := FND_API.G_RET_STS_ERROR;
904: RETURN;
905: END IF;
906: END IF;
907:
906: END IF;
907:
908: IF l_budget_start_date > l_budget_end_date THEN
909: x_error_code := 'PA_FP_WA_PLAN_DATE_ERR';
910: p_return_status := FND_API.G_RET_STS_ERROR;
911: RETURN;
912: END IF;
913: p_budget_start_date_out := l_budget_start_date_in;
914: p_budget_end_date_out := l_budget_end_date_in;
916: ELSIF l_budget_start_date_in IS NOT NULL AND
917: l_budget_end_date_in IS NULL THEN
918: -- throw error if one of the date is missing
919: x_error_code := 'PA_FP_WA_PLAN_DATE_MIS';
920: p_return_status := FND_API.G_RET_STS_ERROR;
921: RETURN;
922:
923: ELSIF l_budget_start_date_in IS NULL AND
924: l_budget_end_date_in IS NOT NULL THEN
922:
923: ELSIF l_budget_start_date_in IS NULL AND
924: l_budget_end_date_in IS NOT NULL THEN
925: x_error_code := 'PA_FP_WA_PLAN_DATE_MIS';
926: p_return_status := FND_API.G_RET_STS_ERROR;
927: RETURN;
928: /*ELSIF l_budget_start_date_in IS NULL AND
929: l_budget_end_date_in IS NULL THEN
930: -- call an api to derive the default planning dates
942: ,x_msg_data => l_msg_data
943: ,x_msg_count => l_msg_count
944: ,x_return_status => p_return_status);
945:
946: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
947: -- raising execption to show the error messages
948: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
949: END IF;
950:
969: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
970: l_msg_count := FND_MSG_PUB.count_msg;
971: IF l_msg_count = 1 THEN
972: PA_INTERFACE_UTILS_PUB.get_messages
973: (p_encoded => FND_API.G_TRUE
974: ,p_msg_index => 1
975: ,p_msg_count => l_msg_count
976: ,p_msg_data => l_msg_data
977: ,p_data => l_data
976: ,p_msg_data => l_msg_data
977: ,p_data => l_data
978: ,p_msg_index_out => l_msg_index_out);
979: END IF;
980: p_return_status := FND_API.G_RET_STS_ERROR;
981:
982: WHEN FND_API.G_EXC_ERROR
983: THEN
984:
978: ,p_msg_index_out => l_msg_index_out);
979: END IF;
980: p_return_status := FND_API.G_RET_STS_ERROR;
981:
982: WHEN FND_API.G_EXC_ERROR
983: THEN
984:
985: ROLLBACK TO get_valid_period_dates_pvt;
986:
983: THEN
984:
985: ROLLBACK TO get_valid_period_dates_pvt;
986:
987: p_return_status := FND_API.G_RET_STS_ERROR;
988:
989: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
990: THEN
991:
985: ROLLBACK TO get_valid_period_dates_pvt;
986:
987: p_return_status := FND_API.G_RET_STS_ERROR;
988:
989: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
990: THEN
991:
992: ROLLBACK TO get_valid_period_dates_pvt;
993:
990: THEN
991:
992: ROLLBACK TO get_valid_period_dates_pvt;
993:
994: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
995:
996: WHEN OTHERS THEN
997:
998: ROLLBACK TO get_valid_period_dates_pvt;
996: WHEN OTHERS THEN
997:
998: ROLLBACK TO get_valid_period_dates_pvt;
999:
1000: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1001:
1002: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1003: THEN
1004: FND_MSG_PUB.add_exc_msg
1110: SAVEPOINT check_entry_method_flags_pvt;
1111:
1112: --Set API return status to success
1113:
1114: p_return_status := FND_API.G_RET_STS_SUCCESS;
1115: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1116: l_module_name := 'check_entry_method_flags_Pvt: ' || g_module_name;
1117:
1118: IF l_debug_mode = 'Y' THEN
1162: PA_UTILS.ADD_MESSAGE
1163: (p_app_short_name => 'PA',
1164: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1165:
1166: p_return_status := FND_API.G_RET_STS_ERROR;
1167: RETURN;
1168:
1169: END IF;--IF (p_budget_amount_code IS NOT NULL) AND (p_version_type IS NULL)
1170:
1184: */
1185: PA_UTILS.ADD_MESSAGE
1186: (p_app_short_name => 'PA',
1187: p_msg_name => 'PA_COST_QTY_NOT_ALLOWED');
1188: p_return_status := FND_API.G_RET_STS_ERROR;
1189: END IF;
1190:
1191: --RAISE FND_API.G_EXC_ERROR;
1192: p_return_status := FND_API.G_RET_STS_ERROR;
1187: p_msg_name => 'PA_COST_QTY_NOT_ALLOWED');
1188: p_return_status := FND_API.G_RET_STS_ERROR;
1189: END IF;
1190:
1191: --RAISE FND_API.G_EXC_ERROR;
1192: p_return_status := FND_API.G_RET_STS_ERROR;
1193: IF l_debug_mode='Y' THEN
1194: pa_debug.g_err_stage:= 'Cost Qty not allowed' ;
1195: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1188: p_return_status := FND_API.G_RET_STS_ERROR;
1189: END IF;
1190:
1191: --RAISE FND_API.G_EXC_ERROR;
1192: p_return_status := FND_API.G_RET_STS_ERROR;
1193: IF l_debug_mode='Y' THEN
1194: pa_debug.g_err_stage:= 'Cost Qty not allowed' ;
1195: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1196: END IF;
1203: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1204: END IF;
1205:
1206: x_webadi_error_code := 'PA_FP_WA_COST_QTY_NOT_ALWD';
1207: p_return_status := FND_API.G_RET_STS_ERROR;
1208: RETURN;
1209: END IF;
1210:
1211: END IF;
1220: */
1221: PA_UTILS.ADD_MESSAGE
1222: (p_app_short_name => 'PA',
1223: p_msg_name => 'PA_RAW_COST_NOT_ALLOWED');
1224: p_return_status := FND_API.G_RET_STS_ERROR;
1225: END IF;
1226:
1227: --RAISE FND_API.G_EXC_ERROR;
1228: p_return_status := FND_API.G_RET_STS_ERROR;
1223: p_msg_name => 'PA_RAW_COST_NOT_ALLOWED');
1224: p_return_status := FND_API.G_RET_STS_ERROR;
1225: END IF;
1226:
1227: --RAISE FND_API.G_EXC_ERROR;
1228: p_return_status := FND_API.G_RET_STS_ERROR;
1229: IF l_debug_mode='Y' THEN
1230: pa_debug.g_err_stage:= 'Raw Cost not allowed' ;
1231: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1224: p_return_status := FND_API.G_RET_STS_ERROR;
1225: END IF;
1226:
1227: --RAISE FND_API.G_EXC_ERROR;
1228: p_return_status := FND_API.G_RET_STS_ERROR;
1229: IF l_debug_mode='Y' THEN
1230: pa_debug.g_err_stage:= 'Raw Cost not allowed' ;
1231: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1232: END IF;
1239: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1240: END IF;
1241:
1242: x_webadi_error_code := 'PA_FP_WA_RAW_COST_NOT_ALWD';
1243: p_return_status := FND_API.G_RET_STS_ERROR;
1244: RETURN;
1245: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1246:
1247: END IF;
1257: PA_UTILS.ADD_MESSAGE
1258: (p_app_short_name => 'PA',
1259: p_msg_name => 'PA_BURD_COST_NOT_ALLOWED');
1260:
1261: --RAISE FND_API.G_EXC_ERROR;
1262: p_return_status := FND_API.G_RET_STS_ERROR;
1263: END IF;
1264: IF l_debug_mode='Y' THEN
1265: pa_debug.g_err_stage:= 'Burd Cost not allowed' ;
1258: (p_app_short_name => 'PA',
1259: p_msg_name => 'PA_BURD_COST_NOT_ALLOWED');
1260:
1261: --RAISE FND_API.G_EXC_ERROR;
1262: p_return_status := FND_API.G_RET_STS_ERROR;
1263: END IF;
1264: IF l_debug_mode='Y' THEN
1265: pa_debug.g_err_stage:= 'Burd Cost not allowed' ;
1266: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1273: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1274: END IF;
1275:
1276: x_webadi_error_code := 'PA_FP_WA_BURD_COST_NOT_ALWD';
1277: p_return_status := FND_API.G_RET_STS_ERROR;
1278: RETURN;
1279: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1280:
1281: END IF;
1290: */
1291: PA_UTILS.ADD_MESSAGE
1292: (p_app_short_name => 'PA',
1293: p_msg_name => 'PA_REVENUE_NOT_ALLOWED');
1294: p_return_status := FND_API.G_RET_STS_ERROR;
1295: END IF;
1296:
1297: IF l_debug_mode='Y' THEN
1298: pa_debug.g_err_stage:= 'Rev Amt not allowed' ;
1298: pa_debug.g_err_stage:= 'Rev Amt not allowed' ;
1299: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1300: END IF;
1301:
1302: --RAISE FND_API.G_EXC_ERROR;
1303: p_return_status := FND_API.G_RET_STS_ERROR;
1304: ELSIF p_context = 'WEBADI' THEN
1305: IF l_debug_mode='Y' THEN
1306: pa_debug.g_err_stage:= 'WEBADI: Revenue not allowed';
1299: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1300: END IF;
1301:
1302: --RAISE FND_API.G_EXC_ERROR;
1303: p_return_status := FND_API.G_RET_STS_ERROR;
1304: ELSIF p_context = 'WEBADI' THEN
1305: IF l_debug_mode='Y' THEN
1306: pa_debug.g_err_stage:= 'WEBADI: Revenue not allowed';
1307: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1309: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1310: END IF;
1311:
1312: x_webadi_error_code := 'PA_FP_WA_REVENUE_NOT_ALWD';
1313: p_return_status := FND_API.G_RET_STS_ERROR;
1314: RETURN;
1315: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1316: END IF;
1317:
1329: */
1330: PA_UTILS.ADD_MESSAGE
1331: (p_app_short_name => 'PA',
1332: p_msg_name => 'PA_REV_QTY_NOT_ALLOWED');
1333: p_return_status := FND_API.G_RET_STS_ERROR;
1334: END IF;
1335:
1336: --RAISE FND_API.G_EXC_ERROR;
1337: p_return_status := FND_API.G_RET_STS_ERROR;
1332: p_msg_name => 'PA_REV_QTY_NOT_ALLOWED');
1333: p_return_status := FND_API.G_RET_STS_ERROR;
1334: END IF;
1335:
1336: --RAISE FND_API.G_EXC_ERROR;
1337: p_return_status := FND_API.G_RET_STS_ERROR;
1338: IF l_debug_mode='Y' THEN
1339: pa_debug.g_err_stage:= 'Rev Qty not allowed' ;
1340: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1333: p_return_status := FND_API.G_RET_STS_ERROR;
1334: END IF;
1335:
1336: --RAISE FND_API.G_EXC_ERROR;
1337: p_return_status := FND_API.G_RET_STS_ERROR;
1338: IF l_debug_mode='Y' THEN
1339: pa_debug.g_err_stage:= 'Rev Qty not allowed' ;
1340: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1341: END IF;
1348: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1349: END IF;
1350:
1351: x_webadi_error_code := 'PA_FP_WA_REV_QTY_NOT_ALWD';
1352: p_return_status := FND_API.G_RET_STS_ERROR;
1353: RETURN;
1354: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1355: END IF;
1356:
1364: */
1365: PA_UTILS.ADD_MESSAGE
1366: (p_app_short_name => 'PA',
1367: p_msg_name => 'PA_REVENUE_NOT_ALLOWED');
1368: p_return_status := FND_API.G_RET_STS_ERROR;
1369: END IF;
1370: IF l_debug_mode='Y' THEN
1371: pa_debug.g_err_stage:= 'Rev Amt not allowed' ;
1372: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1371: pa_debug.g_err_stage:= 'Rev Amt not allowed' ;
1372: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1373: END IF;
1374:
1375: --RAISE FND_API.G_EXC_ERROR;
1376: p_return_status := FND_API.G_RET_STS_ERROR;
1377: ELSIF p_context = 'WEBADI' THEN
1378: IF l_debug_mode='Y' THEN
1379: pa_debug.g_err_stage:= 'WEBADI: Revenue not allowed';
1372: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1373: END IF;
1374:
1375: --RAISE FND_API.G_EXC_ERROR;
1376: p_return_status := FND_API.G_RET_STS_ERROR;
1377: ELSIF p_context = 'WEBADI' THEN
1378: IF l_debug_mode='Y' THEN
1379: pa_debug.g_err_stage:= 'WEBADI: Revenue not allowed';
1380: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1382: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1383: END IF;
1384:
1385: x_webadi_error_code := 'PA_FP_WA_REVENUE_NOT_ALWD';
1386: p_return_status := FND_API.G_RET_STS_ERROR;
1387: RETURN;
1388: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1389: END IF;
1390:
1400: */
1401: PA_UTILS.ADD_MESSAGE
1402: (p_app_short_name => 'PA',
1403: p_msg_name => 'PA_RAW_COST_NOT_ALLOWED');
1404: p_return_status := FND_API.G_RET_STS_ERROR;
1405: END IF;
1406:
1407: --RAISE FND_API.G_EXC_ERROR;
1408: p_return_status := FND_API.G_RET_STS_ERROR;
1403: p_msg_name => 'PA_RAW_COST_NOT_ALLOWED');
1404: p_return_status := FND_API.G_RET_STS_ERROR;
1405: END IF;
1406:
1407: --RAISE FND_API.G_EXC_ERROR;
1408: p_return_status := FND_API.G_RET_STS_ERROR;
1409: IF l_debug_mode='Y' THEN
1410: pa_debug.g_err_stage:= 'Raw Cost not allowed' ;
1411: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1404: p_return_status := FND_API.G_RET_STS_ERROR;
1405: END IF;
1406:
1407: --RAISE FND_API.G_EXC_ERROR;
1408: p_return_status := FND_API.G_RET_STS_ERROR;
1409: IF l_debug_mode='Y' THEN
1410: pa_debug.g_err_stage:= 'Raw Cost not allowed' ;
1411: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1412:
1419: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1420: END IF;
1421:
1422: x_webadi_error_code := 'PA_FP_WA_RAW_COST_NOT_ALWD';
1423: p_return_status := FND_API.G_RET_STS_ERROR;
1424: RETURN;
1425: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1426:
1427: END IF;
1436: PA_UTILS.ADD_MESSAGE
1437: (p_app_short_name => 'PA',
1438: p_msg_name => 'PA_BURD_COST_NOT_ALLOWED');
1439:
1440: --RAISE FND_API.G_EXC_ERROR;
1441: p_return_status := FND_API.G_RET_STS_ERROR;
1442: END IF;
1443: IF l_debug_mode='Y' THEN
1444: pa_debug.g_err_stage:= 'Burd Cost not allowed' ;
1437: (p_app_short_name => 'PA',
1438: p_msg_name => 'PA_BURD_COST_NOT_ALLOWED');
1439:
1440: --RAISE FND_API.G_EXC_ERROR;
1441: p_return_status := FND_API.G_RET_STS_ERROR;
1442: END IF;
1443: IF l_debug_mode='Y' THEN
1444: pa_debug.g_err_stage:= 'Burd Cost not allowed' ;
1445: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1452: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1453: END IF;
1454:
1455: x_webadi_error_code := 'PA_FP_WA_BURD_COST_NOT_ALWD';
1456: p_return_status := FND_API.G_RET_STS_ERROR;
1457: RETURN;
1458: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1459: END IF;
1460:
1471: */
1472: PA_UTILS.ADD_MESSAGE
1473: (p_app_short_name => 'PA',
1474: p_msg_name => 'PA_REV_QTY_NOT_ALLOWED');
1475: p_return_status := FND_API.G_RET_STS_ERROR;
1476: END IF;
1477:
1478: --RAISE FND_API.G_EXC_ERROR;
1479: p_return_status := FND_API.G_RET_STS_ERROR;
1474: p_msg_name => 'PA_REV_QTY_NOT_ALLOWED');
1475: p_return_status := FND_API.G_RET_STS_ERROR;
1476: END IF;
1477:
1478: --RAISE FND_API.G_EXC_ERROR;
1479: p_return_status := FND_API.G_RET_STS_ERROR;
1480: IF l_debug_mode='Y' THEN
1481: pa_debug.g_err_stage:= 'All Qty not allowed' ;
1482: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1475: p_return_status := FND_API.G_RET_STS_ERROR;
1476: END IF;
1477:
1478: --RAISE FND_API.G_EXC_ERROR;
1479: p_return_status := FND_API.G_RET_STS_ERROR;
1480: IF l_debug_mode='Y' THEN
1481: pa_debug.g_err_stage:= 'All Qty not allowed' ;
1482: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1483: END IF;
1489: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1490: END IF;
1491:
1492: x_webadi_error_code := 'PA_FP_WA_REV_QTY_NOT_ALWD';
1493: p_return_status := FND_API.G_RET_STS_ERROR;
1494: RETURN;
1495: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1496: END IF;
1497:
1505: */
1506: PA_UTILS.ADD_MESSAGE
1507: (p_app_short_name => 'PA',
1508: p_msg_name => 'PA_RAW_COST_NOT_ALLOWED');
1509: p_return_status := FND_API.G_RET_STS_ERROR;
1510: END IF;
1511:
1512: --RAISE FND_API.G_EXC_ERROR;
1513: p_return_status := FND_API.G_RET_STS_ERROR;
1508: p_msg_name => 'PA_RAW_COST_NOT_ALLOWED');
1509: p_return_status := FND_API.G_RET_STS_ERROR;
1510: END IF;
1511:
1512: --RAISE FND_API.G_EXC_ERROR;
1513: p_return_status := FND_API.G_RET_STS_ERROR;
1514: IF l_debug_mode='Y' THEN
1515: pa_debug.g_err_stage:= 'All Raw Cost not allowed' ;
1516: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1509: p_return_status := FND_API.G_RET_STS_ERROR;
1510: END IF;
1511:
1512: --RAISE FND_API.G_EXC_ERROR;
1513: p_return_status := FND_API.G_RET_STS_ERROR;
1514: IF l_debug_mode='Y' THEN
1515: pa_debug.g_err_stage:= 'All Raw Cost not allowed' ;
1516: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1517: END IF;
1523: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1524: END IF;
1525:
1526: x_webadi_error_code := 'PA_FP_WA_RAW_COST_NOT_ALWD';
1527: p_return_status := FND_API.G_RET_STS_ERROR;
1528: RETURN;
1529: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1530: END IF;
1531:
1540: PA_UTILS.ADD_MESSAGE
1541: (p_app_short_name => 'PA',
1542: p_msg_name => 'PA_BURD_COST_NOT_ALLOWED');
1543:
1544: --RAISE FND_API.G_EXC_ERROR;
1545: p_return_status := FND_API.G_RET_STS_ERROR;
1546: END IF;
1547: IF l_debug_mode='Y' THEN
1548: pa_debug.g_err_stage:= 'All Burd Cost not allowed' ;
1541: (p_app_short_name => 'PA',
1542: p_msg_name => 'PA_BURD_COST_NOT_ALLOWED');
1543:
1544: --RAISE FND_API.G_EXC_ERROR;
1545: p_return_status := FND_API.G_RET_STS_ERROR;
1546: END IF;
1547: IF l_debug_mode='Y' THEN
1548: pa_debug.g_err_stage:= 'All Burd Cost not allowed' ;
1549: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1556: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1557: END IF;
1558:
1559: x_webadi_error_code := 'PA_FP_WA_BURD_COST_NOT_ALWD';
1560: p_return_status := FND_API.G_RET_STS_ERROR;
1561: RETURN;
1562: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1563:
1564: END IF;
1575: PA_UTILS.ADD_MESSAGE
1576: (p_app_short_name => 'PA',
1577: p_msg_name => 'PA_REVENUE_NOT_ALLOWED');
1578:
1579: --RAISE FND_API.G_EXC_ERROR;
1580: p_return_status := FND_API.G_RET_STS_ERROR;
1581:
1582: END IF;
1583: IF l_debug_mode='Y' THEN
1576: (p_app_short_name => 'PA',
1577: p_msg_name => 'PA_REVENUE_NOT_ALLOWED');
1578:
1579: --RAISE FND_API.G_EXC_ERROR;
1580: p_return_status := FND_API.G_RET_STS_ERROR;
1581:
1582: END IF;
1583: IF l_debug_mode='Y' THEN
1584: pa_debug.g_err_stage:= 'All Revenue not allowed' ;
1585: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1586:
1587: END IF;
1588:
1589: --RAISE FND_API.G_EXC_ERROR;
1590: p_return_status := FND_API.G_RET_STS_ERROR;
1591: ELSIF p_context = 'WEBADI' THEN
1592: IF l_debug_mode='Y' THEN
1593: pa_debug.g_err_stage:= 'WEBADI: Revenue not allowed';
1586:
1587: END IF;
1588:
1589: --RAISE FND_API.G_EXC_ERROR;
1590: p_return_status := FND_API.G_RET_STS_ERROR;
1591: ELSIF p_context = 'WEBADI' THEN
1592: IF l_debug_mode='Y' THEN
1593: pa_debug.g_err_stage:= 'WEBADI: Revenue not allowed';
1594: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1596: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1597: END IF;
1598:
1599: x_webadi_error_code := 'PA_FP_WA_REVENUE_NOT_ALWD';
1600: p_return_status := FND_API.G_RET_STS_ERROR;
1601: RETURN;
1602: END IF; -- Bug 3986129: FP.M Web ADI Dev changes
1603: END IF;
1604:
1615:
1616: PA_UTILS.ADD_MESSAGE
1617: (p_app_short_name => 'PA',
1618: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1619: p_return_status := FND_API.G_RET_STS_ERROR;
1620: RETURN;
1621:
1622:
1623: END IF;--IF ( p_budget_amount_code = 'C'
1635: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1636: END IF;
1637:
1638: x_webadi_error_code := 'PA_FP_WA_RCR_CNG_NOT_ALWD';
1639: p_return_status := FND_API.G_RET_STS_ERROR;
1640: RETURN;
1641: END IF;
1642: END IF;
1643: IF l_burd_cost_rate_flag = 'N' THEN
1650: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1651: END IF;
1652:
1653: x_webadi_error_code := 'PA_FP_WA_BCR_CNG_NOT_ALWD';
1654: p_return_status := FND_API.G_RET_STS_ERROR;
1655: RETURN;
1656: END IF;
1657: END IF;
1658: -- bill rate should not be allowed to be edited
1665: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1666: END IF;
1667:
1668: x_webadi_error_code := 'PA_FP_WA_BR_CNG_NOT_ALWD';
1669: p_return_status := FND_API.G_RET_STS_ERROR;
1670: RETURN;
1671: END IF;
1672:
1673:
1682: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1683: END IF;
1684:
1685: x_webadi_error_code := 'PA_FP_WA_BR_CNG_NOT_ALWD';
1686: p_return_status := FND_API.G_RET_STS_ERROR;
1687: RETURN;
1688: END IF;
1689: END IF;
1690: -- cost rate should not be allowed to be edited
1697: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1698: END IF;
1699:
1700: x_webadi_error_code := 'PA_FP_WA_RCR_CNG_NOT_ALWD';
1701: p_return_status := FND_API.G_RET_STS_ERROR;
1702: RETURN;
1703: END IF;
1704: IF p_burdened_cost_rate <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM AND
1705: p_burdened_cost_rate IS NOT NULL THEN
1710: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1711: END IF;
1712:
1713: x_webadi_error_code := 'PA_FP_WA_BCR_CNG_NOT_ALWD';
1714: p_return_status := FND_API.G_RET_STS_ERROR;
1715: RETURN;
1716: END IF;
1717: ELSIF p_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
1718: IF l_raw_cost_rate_flag = 'N' THEN
1725: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1726: END IF;
1727:
1728: x_webadi_error_code := 'PA_FP_WA_RCR_CNG_NOT_ALWD';
1729: p_return_status := FND_API.G_RET_STS_ERROR;
1730: RETURN;
1731: END IF;
1732: END IF;
1733: IF l_burd_cost_rate_flag = 'N' THEN
1740: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1741: END IF;
1742:
1743: x_webadi_error_code := 'PA_FP_WA_BCR_CNG_NOT_ALWD';
1744: p_return_status := FND_API.G_RET_STS_ERROR;
1745: RETURN;
1746: END IF;
1747: END IF;
1748: IF l_bill_rate_flag = 'N' THEN
1755: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
1756: END IF;
1757:
1758: x_webadi_error_code := 'PA_FP_WA_BR_CNG_NOT_ALWD';
1759: p_return_status := FND_API.G_RET_STS_ERROR;
1760: RETURN;
1761: END IF;
1762: END IF;
1763: END IF;
1768: END IF;
1769: EXCEPTION
1770:
1771:
1772: WHEN FND_API.G_EXC_ERROR
1773: THEN
1774:
1775: ROLLBACK TO check_entry_method_flags_pvt;
1776:
1773: THEN
1774:
1775: ROLLBACK TO check_entry_method_flags_pvt;
1776:
1777: p_return_status := FND_API.G_RET_STS_ERROR;
1778: IF l_debug_mode = 'Y' THEN
1779: pa_debug.reset_curr_function;
1780: END IF;
1781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1777: p_return_status := FND_API.G_RET_STS_ERROR;
1778: IF l_debug_mode = 'Y' THEN
1779: pa_debug.reset_curr_function;
1780: END IF;
1781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1782: THEN
1783:
1784: ROLLBACK TO check_entry_method_flags_pvt;
1785:
1782: THEN
1783:
1784: ROLLBACK TO check_entry_method_flags_pvt;
1785:
1786: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1787: IF l_debug_mode = 'Y' THEN
1788: pa_debug.reset_curr_function;
1789: END IF;
1790: WHEN OTHERS THEN
1790: WHEN OTHERS THEN
1791:
1792: ROLLBACK TO check_entry_method_flags_pvt;
1793:
1794: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1795:
1796: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1797: THEN
1798: FND_MSG_PUB.add_exc_msg
1837:
1838: BEGIN
1839: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1840: x_msg_count := 0;
1841: x_return_status := FND_API.G_RET_STS_SUCCESS;
1842:
1843: IF l_debug_mode = 'Y' THEN
1844: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
1845: p_debug_mode => l_debug_mode );
1909: l_msg_count := FND_MSG_PUB.count_msg;
1910:
1911: IF l_msg_count = 1 and x_msg_data IS NULL THEN
1912: PA_INTERFACE_UTILS_PUB.get_messages
1913: (p_encoded => FND_API.G_TRUE
1914: ,p_msg_index => 1
1915: ,p_msg_count => l_msg_count
1916: ,p_msg_data => l_msg_data
1917: ,p_data => l_data
1920: x_msg_count := l_msg_count;
1921: ELSE
1922: x_msg_count := l_msg_count;
1923: END IF;
1924: x_return_status := FND_API.G_RET_STS_ERROR;
1925:
1926: IF l_debug_mode = 'Y' THEN
1927: pa_debug.reset_curr_function;
1928: END IF;
1928: END IF;
1929: RETURN;
1930:
1931: WHEN OTHERS THEN
1932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1933: x_msg_count := 1;
1934: x_msg_data := SQLERRM;
1935:
1936: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_BUDGET_CHECK_PVT'