[Home] [Help]
70: l_debug_level3 CONSTANT NUMBER := 3;
71: BEGIN
72:
73: x_msg_count :=0;
74: x_return_status := FND_API.G_RET_STS_SUCCESS;
75: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
76: l_module_name := 'valid_rate_type: ' || g_module_name;
77:
78: IF l_debug_mode = 'Y' THEN
118: END IF;
119: EXCEPTION
120:
121: WHEN OTHERS THEN
122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
123: x_msg_count := 1;
124: x_msg_data := SQLERRM;
125:
126: FND_MSG_PUB.add_exc_msg
444: l_workplan_flag VARCHAR2(1) := NULL;
445: l_exists VARCHAR2(1) := NULL;
446:
447: -- for bug 3954329
448: l_res_list_migration_code pa_resource_list_members.migration_code%TYPE := FND_API.G_MISS_CHAR;
449: l_targ_request_id pa_budget_versions.request_id%TYPE;
450: px_pa_project_id_in pa_projects_all.project_id%TYPE;
451: px_resource_list_id_in pa_resource_lists_all_bg.resource_list_id%TYPE;
452: px_fin_plan_type_id_in pa_fin_plan_types_b.fin_plan_type_id%TYPE;
454: BEGIN
455:
456: --dbms_output.put_line('In validate header info');
457: x_msg_count :=0;
458: x_return_status := FND_API.G_RET_STS_SUCCESS;
459: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
460: l_module_name := 'validate_header_info: ' || g_module_name;
461:
462: IF l_debug_mode = 'Y' THEN
469: --dbms_output.put_line('About to validate budget type code and fin plan type id');
470:
471: -- Initialize the message table if requested.Moved this above as the messages will be added from
472: -- this point.
473: IF FND_API.TO_BOOLEAN( p_init_msg_list )
474: THEN
475:
476: FND_MSG_PUB.initialize;
477:
544: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
545: END IF;
546:
547: END IF;
548: x_return_status := FND_API.G_RET_STS_ERROR;
549: l_any_error_occurred_flag := 'Y';
550:
551:
552: --dbms_output.put_line('pm product code is null or miss');
551:
552: --dbms_output.put_line('pm product code is null or miss');
553:
554:
555: -- RAISE FND_API.G_EXC_ERROR;
556: ELSE
557:
558: -- added for bug no :2413400
559: OPEN p_product_code_csr (p_pm_product_code);
578: pa_debug.g_err_stage:= 'PM Product code is invalid';
579: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
580: END IF;
581:
582: x_return_status := FND_API.G_RET_STS_ERROR;
583: l_any_error_occurred_flag := 'Y';
584: -- RAISE FND_API.G_EXC_ERROR;
585: END IF;
586:
580: END IF;
581:
582: x_return_status := FND_API.G_RET_STS_ERROR;
583: l_any_error_occurred_flag := 'Y';
584: -- RAISE FND_API.G_EXC_ERROR;
585: END IF;
586:
587: --dbms_output.put_line('pm product code is not valid '||l_pm_product_code);
588: END IF;-- p_pm_product_code IS NULL
620: p_msg_data => l_msg_data,
621: p_return_status => x_return_status,
622: p_function_allowed => l_function_allowed );
623:
624: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
625: THEN
626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
627: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
628: THEN
622: p_function_allowed => l_function_allowed );
623:
624: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
625: THEN
626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
627: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
628: THEN
629: RAISE FND_API.G_EXC_ERROR;
630: END IF;
623:
624: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
625: THEN
626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
627: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
628: THEN
629: RAISE FND_API.G_EXC_ERROR;
630: END IF;
631:
625: THEN
626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
627: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
628: THEN
629: RAISE FND_API.G_EXC_ERROR;
630: END IF;
631:
632: IF l_function_allowed = 'N' THEN
633: pa_interface_utils_pub.map_new_amg_msg
639: ,p_attribute2 => ''
640: ,p_attribute3 => ''
641: ,p_attribute4 => ''
642: ,p_attribute5 => '');
643: x_return_status := FND_API.G_RET_STS_ERROR;
644: -- RAISE FND_API.G_EXC_ERROR;
645: END IF;
646: */
647:
640: ,p_attribute3 => ''
641: ,p_attribute4 => ''
642: ,p_attribute5 => '');
643: x_return_status := FND_API.G_RET_STS_ERROR;
644: -- RAISE FND_API.G_EXC_ERROR;
645: END IF;
646: */
647:
648: -- CHECK FOR MANDATORY FIELDS and CONVERT VALUES to ID's
656: p_out_project_id => px_pa_project_id,
657: p_return_status => x_return_status );
658:
659: --dbms_output.put_line('x_return_status is '|| x_return_status);
660: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
661: THEN
662: --dbms_output.put_line('unexpected error while deriving project id '|| px_pa_project_id);
663: --dbms_output.put_line('expected error while deriving l project id '||px_pa_project_id );
664: IF l_debug_mode = 'Y' THEN
664: IF l_debug_mode = 'Y' THEN
665: pa_debug.g_err_stage:= 'Unexpected error while deriving project id';
666: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
667: END IF;
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669:
670: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
671: THEN
672: --dbms_output.put_line('expected error while deriving px project id '||px_pa_project_id );
666: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
667: END IF;
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669:
670: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
671: THEN
672: --dbms_output.put_line('expected error while deriving px project id '||px_pa_project_id );
673: --dbms_output.put_line('expected error while deriving l project id '||px_pa_project_id );
674: IF l_debug_mode = 'Y' THEN
675: pa_debug.g_err_stage:= 'Error while deriving project id';
676: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
677: END IF;
678:
679: --RAISE FND_API.G_EXC_ERROR; --AMG UT2
680: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
681:
682: END IF;
683:
705: ,p_attribute2 => ''
706: ,p_attribute3 => ''
707: ,p_attribute4 => ''
708: ,p_attribute5 => '');
709: x_return_status := FND_API.G_RET_STS_ERROR;
710: -- RAISE FND_API.G_EXC_ERROR;
711: ELSE
712: -- If the user has query privileges, then check whether
713: -- update privileges are also available
706: ,p_attribute3 => ''
707: ,p_attribute4 => ''
708: ,p_attribute5 => '');
709: x_return_status := FND_API.G_RET_STS_ERROR;
710: -- RAISE FND_API.G_EXC_ERROR;
711: ELSE
712: -- If the user has query privileges, then check whether
713: -- update privileges are also available
714: IF pa_security.allow_update (x_project_id => px_pa_project_id ) = 'N' THEN
725: ,p_attribute2 => ''
726: ,p_attribute3 => ''
727: ,p_attribute4 => ''
728: ,p_attribute5 => '');
729: x_return_status := FND_API.G_RET_STS_ERROR;
730: -- RAISE FND_API.G_EXC_ERROR;
731: END IF;
732: END IF;
733: */
726: ,p_attribute3 => ''
727: ,p_attribute4 => ''
728: ,p_attribute5 => '');
729: x_return_status := FND_API.G_RET_STS_ERROR;
730: -- RAISE FND_API.G_EXC_ERROR;
731: END IF;
732: END IF;
733: */
734:
766:
767: -- the above API adds the error message to stack. Hence the message is not added here.
768: -- Also, as security check is important further validations are not done in case this
769: -- validation fails.
770: IF (x_return_status<>FND_API.G_RET_STS_SUCCESS OR
771: l_security_ret_code = 'N') THEN
772: --dbms_output.put_line('Security api failed l_security_ret_code '||l_security_ret_code);
773: IF l_debug_mode = 'Y' THEN
774: pa_debug.g_err_stage:= 'Security API Failed';
807: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
808: END IF;
809:
810: END IF;
811: x_return_status := FND_API.G_RET_STS_ERROR;
812: l_any_error_occurred_flag := 'Y';
813:
814: CLOSE l_budget_amount_code_csr;
815: -- RAISE FND_API.G_EXC_ERROR;
811: x_return_status := FND_API.G_RET_STS_ERROR;
812: l_any_error_occurred_flag := 'Y';
813:
814: CLOSE l_budget_amount_code_csr;
815: -- RAISE FND_API.G_EXC_ERROR;
816:
817: ELSE
818:
819: CLOSE l_budget_amount_code_csr;
835: pa_debug.g_err_stage:= 'Creation of cost version is not allowed';
836: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
837: END IF;
838: END IF;
839: x_return_status := FND_API.G_RET_STS_ERROR;
840: l_any_error_occurred_flag := 'Y';
841:
842: -- RAISE FND_API.G_EXC_ERROR;
843: END IF;
838: END IF;
839: x_return_status := FND_API.G_RET_STS_ERROR;
840: l_any_error_occurred_flag := 'Y';
841:
842: -- RAISE FND_API.G_EXC_ERROR;
843: END IF;
844:
845: ELSIF l_budget_amount_code = PA_FP_CONSTANTS_PKG.G_BUDGET_AMOUNT_CODE_R THEN
846:
858: pa_debug.g_err_stage:= 'Creation of rev version is not allowed';
859: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
860: END IF;
861: END IF;
862: x_return_status := FND_API.G_RET_STS_ERROR;
863: l_any_error_occurred_flag := 'Y';
864:
865: -- RAISE FND_API.G_EXC_ERROR;
866: END IF;
861: END IF;
862: x_return_status := FND_API.G_RET_STS_ERROR;
863: l_any_error_occurred_flag := 'Y';
864:
865: -- RAISE FND_API.G_EXC_ERROR;
866: END IF;
867:
868: END IF; --End of l_budget_amount_code = PA_FP_CONSTANTS_PKG.G_BUDGET_AMOUNT_CODE_C
869:
881: IF l_debug_mode = 'Y' THEN
882: pa_debug.g_err_stage := 'Budget of type FORECASTING_BUDGET_TYPE' ;
883: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
884: END IF;
885: x_return_status := FND_API.G_RET_STS_ERROR;
886: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
887: END IF;
888:
889: -- Budget Integration Validation ---------------------------------------
903: , x_msg_count => x_msg_count
904: );
905:
906: -- calling api above adds the error message to stack hence not adding the error message here.
907: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
908: THEN
909:
910: IF l_debug_mode = 'Y' THEN
911: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned unexp error';
911: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned unexp error';
912: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
913: END IF;
914:
915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
916:
917: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
918: THEN
919: -- RAISE FND_API.G_EXC_ERROR;
913: END IF;
914:
915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
916:
917: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
918: THEN
919: -- RAISE FND_API.G_EXC_ERROR;
920: IF l_debug_mode = 'Y' THEN
921: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned error';
915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
916:
917: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
918: THEN
919: -- RAISE FND_API.G_EXC_ERROR;
920: IF l_debug_mode = 'Y' THEN
921: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned error';
922: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
923: END IF;
939: ,p_attribute3 => p_budget_type_code
940: ,p_attribute4 => ''
941: ,p_attribute5 => '');
942: END IF;
943: x_return_status := FND_API.G_RET_STS_ERROR;
944: l_any_error_occurred_flag := 'Y';
945:
946: -- RAISE FND_API.G_EXC_ERROR;
947: END IF;
942: END IF;
943: x_return_status := FND_API.G_RET_STS_ERROR;
944: l_any_error_occurred_flag := 'Y';
945:
946: -- RAISE FND_API.G_EXC_ERROR;
947: END IF;
948:
949: -- ----------------------------------------------------------------------
950:
971: pa_debug.g_err_stage:= 'Budget entry method is missing';
972: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
973: END IF;
974: END IF;
975: x_return_status := FND_API.G_RET_STS_ERROR;
976: l_any_error_occurred_flag := 'Y';
977:
978: -- RAISE FND_API.G_EXC_ERROR;
979: ELSE -- entry method is not null
974: END IF;
975: x_return_status := FND_API.G_RET_STS_ERROR;
976: l_any_error_occurred_flag := 'Y';
977:
978: -- RAISE FND_API.G_EXC_ERROR;
979: ELSE -- entry method is not null
980:
981: -- check validity of this budget entry method code, and store associated fields in record
982:
1002: pa_debug.g_err_stage:= 'Budget entry method is invlaid';
1003: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1004: END IF;
1005: END IF;
1006: x_return_status := FND_API.G_RET_STS_ERROR;
1007: l_any_error_occurred_flag := 'Y';
1008:
1009: CLOSE l_budget_entry_method_csr;
1010: -- RAISE FND_API.G_EXC_ERROR;
1006: x_return_status := FND_API.G_RET_STS_ERROR;
1007: l_any_error_occurred_flag := 'Y';
1008:
1009: CLOSE l_budget_entry_method_csr;
1010: -- RAISE FND_API.G_EXC_ERROR;
1011:
1012: ELSE
1013:
1014: CLOSE l_budget_entry_method_csr;
1061: ELSE
1062:
1063: px_resource_list_id := l_uncategorized_list_id;
1064:
1065: -- RAISE FND_API.G_EXC_ERROR;
1066: END IF; -- IF l_err_code <> 0 THEN
1067:
1068:
1069: ELSIF l_budget_entry_method_rec.categorization_code = 'R' THEN
1078: p_resource_list_id => px_resource_list_id_in,
1079: p_out_resource_list_id => px_resource_list_id,
1080: p_return_status => x_return_status );
1081:
1082: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1083: x_return_status := x_return_status;
1084: --dbms_output.put_line('Unexp error as Resource list id not derived properly');
1085: IF l_debug_mode = 'Y' THEN
1086: pa_debug.g_err_stage:= 'Unexp error while deriving res list';
1086: pa_debug.g_err_stage:= 'Unexp error while deriving res list';
1087: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1088: END IF;
1089:
1090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1091:
1092: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1093: x_return_status := x_return_status;
1094: -- RAISE FND_API.G_EXC_ERROR;
1088: END IF;
1089:
1090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1091:
1092: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1093: x_return_status := x_return_status;
1094: -- RAISE FND_API.G_EXC_ERROR;
1095: PA_UTILS.ADD_MESSAGE
1096: (p_app_short_name => 'PA',
1090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1091:
1092: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1093: x_return_status := x_return_status;
1094: -- RAISE FND_API.G_EXC_ERROR;
1095: PA_UTILS.ADD_MESSAGE
1096: (p_app_short_name => 'PA',
1097: p_msg_name => 'PA_FP_INVALID_RESOURCE_LIST',
1098: p_token1 => 'PROJECT',
1096: (p_app_short_name => 'PA',
1097: p_msg_name => 'PA_FP_INVALID_RESOURCE_LIST',
1098: p_token1 => 'PROJECT',
1099: p_value1 => l_amg_project_rec.segment1);
1100: x_return_status := FND_API.G_RET_STS_ERROR;
1101: --dbms_output.put_line('exp error as Resource list id not derived properly');
1102: l_any_error_occurred_flag := 'Y';
1103: IF l_debug_mode = 'Y' THEN
1104: pa_debug.g_err_stage:= 'error while deriving uncat res list';
1114: FROM pa_resource_lists_all_bg
1115: WHERE resource_list_id = px_resource_list_id;
1116: EXCEPTION
1117: WHEN NO_DATA_FOUND THEN
1118: x_return_status := FND_API.G_RET_STS_ERROR;
1119: PA_UTILS.ADD_MESSAGE
1120: (p_app_short_name => 'PA',
1121: p_msg_name => 'PA_FP_INVALID_RESOURCE_LIST',
1122: p_token1 => 'PROJECT',
1120: (p_app_short_name => 'PA',
1121: p_msg_name => 'PA_FP_INVALID_RESOURCE_LIST',
1122: p_token1 => 'PROJECT',
1123: p_value1 => l_amg_project_rec.segment1);
1124: x_return_status := FND_API.G_RET_STS_ERROR;
1125:
1126: l_any_error_occurred_flag := 'Y';
1127: IF l_debug_mode = 'Y' THEN
1128: pa_debug.g_err_stage:= 'error while deriving uncat res list';
1129: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1130: END IF;
1131: END;
1132: IF l_res_list_migration_code = 'N' THEN
1133: x_return_status := FND_API.G_RET_STS_ERROR;
1134: l_any_error_occurred_flag := 'Y';
1135: PA_UTILS.ADD_MESSAGE
1136: (p_app_short_name => 'PA',
1137: p_msg_name => 'PA_FP_NEW_RES_LIST_OLD_MODEL');
1141: END IF;
1142: END IF;
1143: /* bug 3954329 ends */
1144: ELSE -- There is no valid resource list id
1145: x_return_status := FND_API.G_RET_STS_ERROR; --AMG UT2
1146: l_any_error_occurred_flag := 'Y';
1147:
1148: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1149: pa_interface_utils_pub.map_new_amg_msg
1161: pa_debug.g_err_stage:= 'res list is missing';
1162: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1163: END IF;
1164:
1165: -- RAISE FND_API.G_EXC_ERROR;
1166: END IF;
1167: END IF ; -- If l_budget_entry_method_rec.categorization_code = 'N
1168: END IF;--l_budget_entry_method_csr%NOTFOUND
1169: END IF;--p_entry_method_code IS NULL
1196: (p_app_short_name => 'PA',
1197: p_msg_name => 'PA_FP_AUTO_BASELINE_ENABLED',
1198: p_token1 => 'PROJECT',
1199: p_value1 => l_amg_project_rec.segment1);
1200: x_return_status := FND_API.G_RET_STS_ERROR;
1201: l_any_error_occurred_flag := 'Y';
1202:
1203: --RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1204: --dbms_output.put_line('Autobaseline error');
1217: PA_UTILS.ADD_MESSAGE
1218: (p_app_short_name => 'PA',
1219: p_msg_name => 'PA_FP_BUDGET_TYPE_UPGRADED');
1220:
1221: x_return_status := FND_API.G_RET_STS_ERROR;
1222: l_any_error_occurred_flag := 'Y';
1223: --dbms_output.put_line('Budget type upgraded error');
1224: IF l_debug_mode = 'Y' THEN
1225: pa_debug.g_err_stage:= 'Budget type is already upgraded';
1246: ,x_msg_count => x_msg_count
1247: ,x_msg_data => x_msg_data);
1248:
1249: -- Throw the error if the above API is not successfully executed
1250: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1251:
1252: IF l_debug_mode = 'Y' THEN
1253: pa_debug.g_err_stage := 'Get_Appr_Cost_Plan_Type_Info API returned error' ;
1254: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1267: PA_UTILS.ADD_MESSAGE
1268: (p_app_short_name => 'PA',
1269: p_msg_name => 'PA_FP_AC_PLAN_TYPE_EXISTS');
1270:
1271: x_return_status := FND_API.G_RET_STS_ERROR;
1272: l_any_error_occurred_flag := 'Y';
1273:
1274: END IF; --IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1275:
1270:
1271: x_return_status := FND_API.G_RET_STS_ERROR;
1272: l_any_error_occurred_flag := 'Y';
1273:
1274: END IF; --IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1275:
1276: END IF; --IF (p_budget_type_code = PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AC)
1277:
1278: -- If an Approved Revenue plan version exists for the project in new model then a budget
1288: ,x_msg_count => x_msg_count
1289: ,x_msg_data => x_msg_data) ;
1290:
1291: -- Throw the error if the above API is not successfully executed
1292: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1293:
1294: IF l_debug_mode = 'Y' THEN
1295: pa_debug.g_err_stage := 'Get_Appr_Cost_Plan_Type_Info API returned error' ;
1296: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1308:
1309: PA_UTILS.ADD_MESSAGE
1310: (p_app_short_name => 'PA',
1311: p_msg_name => 'PA_FP_AR_PLAN_TYPE_EXISTS');
1312: x_return_status := FND_API.G_RET_STS_ERROR;
1313: l_any_error_occurred_flag := 'Y';
1314:
1315: END IF;
1316: END IF;
1338: ,p_attribute3 => p_budget_type_code
1339: ,p_attribute4 => ''
1340: ,p_attribute5 => '');
1341: END IF;
1342: x_return_status := FND_API.G_RET_STS_ERROR;
1343: l_any_error_occurred_flag := 'Y';
1344: --RAISE FND_API.G_EXC_ERROR;
1345:
1346: END IF;--l_budget_status_code = 'S'
1340: ,p_attribute5 => '');
1341: END IF;
1342: x_return_status := FND_API.G_RET_STS_ERROR;
1343: l_any_error_occurred_flag := 'Y';
1344: --RAISE FND_API.G_EXC_ERROR;
1345:
1346: END IF;--l_budget_status_code = 'S'
1347:
1348:
1358: ,x_msg_data => x_msg_data);
1359: --dbms_output.put_line('After the getting plan id');
1360:
1361: -- Throw the error if the above API is not successfully executed
1362: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1363:
1364: IF l_debug_mode = 'Y' THEN
1365: pa_debug.g_err_stage := 'Can not get the value of Fin Plan Type Id' ;
1366: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1398: (p_app_short_name => 'PA',
1399: p_msg_name => 'PA_FP_WP_BV_CR_NO_ALLOWED');
1400:
1401: --Bug # 3507156 : Patchset M: B and F impact changes : AMG
1402: x_return_status := FND_API.G_RET_STS_ERROR;
1403: l_any_error_occurred_flag := 'Y';
1404:
1405: END IF;
1406:
1464: ,x_return_status => x_return_status
1465: ,x_msg_count => x_msg_count
1466: ,x_msg_data => x_msg_data);
1467:
1468: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1469:
1470: IF l_debug_mode = 'Y' THEN
1471: pa_debug.g_err_stage := 'Faied in get_Version_type' ;
1472: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
1492: ,X_msg_data => x_msg_data);
1493:
1494: -- Throw the error if the above API is not successfully executed
1495:
1496: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1497:
1498: IF l_debug_mode = 'Y' THEN
1499: pa_debug.g_err_stage := 'Can not check if plan type is editable' ;
1500: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1523:
1524: --
1525: --Setting the error statuses if plan type is not editable.
1526:
1527: x_return_status := FND_API.G_RET_STS_ERROR;
1528: l_any_error_occurred_flag := 'Y';
1529:
1530: END IF;
1531: END IF;
1560: p_msg_name => 'PA_FP_AUTO_BASELINE_ENABLED',
1561: p_token1 => 'PROJECT',
1562: p_value1 => l_amg_project_rec.segment1);
1563:
1564: x_return_status := FND_API.G_RET_STS_ERROR;
1565: l_any_error_occurred_flag := 'Y';
1566:
1567: --RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1568: --dbms_output.put_line('Autobaseline error');
1578: ,p_version_type => px_version_type
1579: ,x_return_status => x_return_status
1580: ,x_ret_code => l_security_ret_code );
1581:
1582: IF (x_return_status <>FND_API.G_RET_STS_SUCCESS OR
1583: l_security_ret_code='N') THEN
1584: --dbms_output.put_line('Exc in security');
1585: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1586: END IF;
1617: p_msg_name => 'PA_FP_AUTO_BASELINE_ENABLED',
1618: p_token1 => 'PROJECT',
1619: p_value1 => l_amg_project_rec.segment1);
1620:
1621: x_return_status := FND_API.G_RET_STS_ERROR;
1622: l_any_error_occurred_flag := 'Y';
1623: --RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1624:
1625: END IF;
1683: p_value1 => l_amg_project_rec.segment1,
1684: p_token2 => 'PLAN_TYPE',
1685: p_value2 => l_fin_plan_type_name);
1686:
1687: x_return_status := FND_API.G_RET_STS_ERROR;
1688: l_any_error_occurred_flag := 'Y';
1689:
1690: END IF;
1691:
1740: ELSE
1741:
1742: px_resource_list_id := l_uncategorized_list_id;
1743:
1744: -- RAISE FND_API.G_EXC_ERROR;
1745: END IF; -- IF l_err_code <> 0 THEN
1746: ELSE
1747: IF( px_resource_list_name IS NULL OR
1748: px_resource_list_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )AND
1764: p_resource_list_id => px_resource_list_id_in,
1765: p_out_resource_list_id => px_resource_list_id,
1766: p_return_status => x_return_status );
1767:
1768: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1769:
1770: PA_UTILS.ADD_MESSAGE
1771: (p_app_short_name => 'PA',
1772: p_msg_name => 'PA_FP_INVALID_RESOURCE_LIST',
1778: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1779: END IF;
1780:
1781:
1782: x_return_status := FND_API.G_RET_STS_ERROR;
1783: l_any_error_occurred_flag := 'Y';
1784:
1785: END IF;
1786:
1791: FROM pa_resource_lists_all_bg
1792: WHERE resource_list_id = px_resource_list_id;
1793: EXCEPTION
1794: WHEN NO_DATA_FOUND THEN
1795: x_return_status := FND_API.G_RET_STS_ERROR;
1796: PA_UTILS.ADD_MESSAGE
1797: (p_app_short_name => 'PA',
1798: p_msg_name => 'PA_FP_INVALID_RESOURCE_LIST',
1799: p_token1 => 'PROJECT',
1797: (p_app_short_name => 'PA',
1798: p_msg_name => 'PA_FP_INVALID_RESOURCE_LIST',
1799: p_token1 => 'PROJECT',
1800: p_value1 => l_amg_project_rec.segment1);
1801: x_return_status := FND_API.G_RET_STS_ERROR;
1802:
1803: l_any_error_occurred_flag := 'Y';
1804: IF l_debug_mode = 'Y' THEN
1805: pa_debug.g_err_stage:= 'error while deriving uncat res list';
1806: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1807: END IF;
1808: END;
1809: IF l_res_list_migration_code IS NULL THEN
1810: x_return_status := FND_API.G_RET_STS_ERROR;
1811: l_any_error_occurred_flag := 'Y';
1812: PA_UTILS.ADD_MESSAGE
1813: (p_app_short_name => 'PA',
1814: p_msg_name => 'PA_FP_OLD_RES_LIST_NEW_MODEL');
1851: p_value1 => l_amg_project_rec.segment1,
1852: p_token2 => 'PLAN_TYPE',
1853: p_value2 => l_fin_plan_type_name);
1854:
1855: x_return_status := FND_API.G_RET_STS_ERROR;
1856: l_any_error_occurred_flag := 'Y';
1857:
1858:
1859: --
1884: x_return_status => x_return_status,
1885: x_msg_count => x_msg_count,
1886: x_msg_data => x_msg_data );
1887:
1888: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1889:
1890: IF l_debug_mode = 'Y' THEN
1891: pa_debug.g_err_stage:= 'get current period profile gave error' ||px_pa_project_id;
1892: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1899: IF(l_period_profile_id IS NULL) THEN
1900:
1901: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1902: p_msg_name => 'PA_FP_NO_PERIOD_PROFILE');
1903: x_return_status := FND_API.G_RET_STS_ERROR;
1904: l_any_error_occurred_flag := 'Y';
1905: IF l_debug_mode = 'Y' THEN
1906: pa_debug.g_err_stage:= 'Project does not have a period profile';
1907: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1934: PA_UTILS.ADD_MESSAGE
1935: (p_app_short_name => 'PA',
1936: p_msg_name => 'PA_FP_NO_PERIOD_MASK');
1937:
1938: x_return_status := FND_API.G_RET_STS_ERROR;
1939: END;
1940: END IF; -- IF pa_fin_plan_utils.get_lookup_value
1941:
1942: END IF; -- IF(px_time_phased_code IS NULL) THEN
1965: ,x_return_status => x_return_status
1966: ,x_msg_count => x_msg_count
1967: ,x_msg_data => x_msg_data);
1968:
1969: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1970:
1971: IF l_debug_mode = 'Y' THEN
1972: pa_debug.g_err_stage:= 'pa_fin_plan_utils.Get_Project_Curr_Attributes errored out for project' ||px_pa_project_id;
1973: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2025: p_value1 => l_amg_project_rec.segment1,
2026: p_token2 => 'PLAN_TYPE',
2027: p_value2 => l_fin_plan_type_name);
2028:
2029: x_return_status := FND_API.G_RET_STS_ERROR;
2030: l_any_error_occurred_flag := 'Y';
2031: l_validate_mc_attributes := 'N';
2032:
2033: END IF;
2045:
2046: PA_UTILS.ADD_MESSAGE
2047: (p_app_short_name => 'PA',
2048: p_msg_name => 'PA_FP_INVALID_AR_AT_PROJ_TEMP');
2049: x_return_status := FND_API.G_RET_STS_ERROR;
2050: l_any_error_occurred_flag := 'Y';
2051:
2052: l_validate_mc_attributes := 'N';
2053:
2074: p_token2 => 'PLAN_TYPE',
2075: p_value2 => l_fin_plan_type_name);
2076:
2077:
2078: x_return_status := FND_API.G_RET_STS_ERROR;
2079: l_any_error_occurred_flag := 'Y';
2080: */
2081: l_validate_mc_attributes := 'Y';
2082: px_plan_in_multi_curr_flag := 'Y';
2114: p_value1 => l_amg_project_rec.segment1,
2115: p_token2 => 'PLAN_TYPE',
2116: p_value2 => l_fin_plan_type_name);
2117:
2118: x_return_status := FND_API.G_RET_STS_ERROR;
2119: l_any_error_occurred_flag := 'Y';
2120: l_validate_mc_attributes := 'N';
2121:
2122:
2198: x_return_status => x_return_status,
2199: x_msg_count => x_msg_count,
2200: x_msg_data => x_msg_data);
2201:
2202: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2203:
2204: IF l_debug_mode = 'Y' THEN
2205: pa_debug.g_err_stage:= 'valid_rate_type returned error';
2206: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2224: p_value1 => l_amg_project_rec.segment1,
2225: p_token2 => 'PLAN_TYPE',
2226: p_value2 => l_fin_plan_type_name);
2227:
2228: x_return_status := FND_API.G_RET_STS_ERROR;
2229: l_any_error_occurred_flag := 'Y';
2230:
2231: ELSE
2232: --dbms_output.put_line('The value of l_conv_attrs_to_be_validated is ' ||l_conv_attrs_to_be_validated);
2255: ,x_return_status =>x_return_status
2256: ,x_msg_count =>x_msg_count
2257: ,x_msg_data =>x_msg_data);
2258:
2259: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2260: x_return_status:=FND_API.G_RET_STS_ERROR;
2261:
2262: IF l_debug_mode = 'Y' THEN
2263: pa_debug.g_err_stage:= 'Validate currency attributes returned error';
2256: ,x_msg_count =>x_msg_count
2257: ,x_msg_data =>x_msg_data);
2258:
2259: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2260: x_return_status:=FND_API.G_RET_STS_ERROR;
2261:
2262: IF l_debug_mode = 'Y' THEN
2263: pa_debug.g_err_stage:= 'Validate currency attributes returned error';
2264: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2300: p_token1 => 'PROJECT',
2301: p_value1 => l_amg_project_rec.segment1,
2302: p_token2 => 'PLAN_TYPE',
2303: p_value2 => l_fin_plan_type_name);
2304: x_return_status := FND_API.G_RET_STS_ERROR;
2305: l_any_error_occurred_flag := 'Y';
2306: IF l_debug_mode = 'Y' THEN
2307: pa_debug.g_err_stage:= 'Invalid values for amount flags ';
2308: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2316:
2317: PA_UTILS.ADD_MESSAGE
2318: (p_app_short_name => 'PA',
2319: p_msg_name => 'PA_FP_NO_PLAN_AMT_CHECKED');
2320: x_return_status := FND_API.G_RET_STS_ERROR;
2321: l_any_error_occurred_flag := 'Y';
2322: IF l_debug_mode = 'Y' THEN
2323: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
2324: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2339: p_token1 => 'PROJECT',
2340: p_value1 => l_amg_project_rec.segment1,
2341: p_token2 => 'PLAN_TYPE',
2342: p_value2 => l_fin_plan_type_name);
2343: x_return_status := FND_API.G_RET_STS_ERROR;
2344: l_any_error_occurred_flag := 'Y';
2345: IF l_debug_mode = 'Y' THEN
2346: pa_debug.g_err_stage:= 'Invalid value for the amount flags ';
2347: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2355:
2356: PA_UTILS.ADD_MESSAGE
2357: (p_app_short_name => 'PA',
2358: p_msg_name => 'PA_FP_NO_PLAN_AMT_CHECKED');
2359: x_return_status := FND_API.G_RET_STS_ERROR;
2360: l_any_error_occurred_flag := 'Y';
2361: IF l_debug_mode = 'Y' THEN
2362: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
2363: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2383: p_token1 => 'PROJECT',
2384: p_value1 => l_amg_project_rec.segment1,
2385: p_token2 => 'PLAN_TYPE',
2386: p_value2 => l_fin_plan_type_name);
2387: x_return_status := FND_API.G_RET_STS_ERROR;
2388: l_any_error_occurred_flag := 'Y';
2389: IF l_debug_mode = 'Y' THEN
2390: pa_debug.g_err_stage:= 'Invalid value for the amount flags ';
2391: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2402:
2403: PA_UTILS.ADD_MESSAGE
2404: (p_app_short_name => 'PA',
2405: p_msg_name => 'PA_FP_NO_PLAN_AMT_CHECKED');
2406: x_return_status := FND_API.G_RET_STS_ERROR;
2407: l_any_error_occurred_flag := 'Y';
2408: IF l_debug_mode = 'Y' THEN
2409: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
2410: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2427: p_value1 => l_amg_project_rec.segment1,
2428: p_token2 => 'PLAN_TYPE',
2429: p_value2 => l_fin_plan_type_name);
2430:
2431: x_return_status := FND_API.G_RET_STS_ERROR;
2432: l_any_error_occurred_flag := 'Y';
2433: IF l_debug_mode = 'Y' THEN
2434: pa_debug.g_err_stage:= 'Create replace CW version flags are invalid ';
2435: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2480: ,p_attribute2 => ''
2481: ,p_attribute3 => l_fin_plan_type_name
2482: ,p_attribute4 => ''
2483: ,p_attribute5 => '');
2484: x_return_status := FND_API.G_RET_STS_ERROR;
2485: l_any_error_occurred_flag := 'Y';
2486:
2487: IF l_finplan_CW_ver_rec.plan_processing_code IN ('XLUE','XLUP') THEN
2488:
2493: ,x_return_status => x_return_status
2494: ,x_msg_count => x_msg_count
2495: ,x_msg_data => x_msg_data);
2496:
2497: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2498: x_return_status:=FND_API.G_RET_STS_ERROR;
2499:
2500: IF l_debug_mode = 'Y' THEN
2501: pa_debug.g_err_stage:= 'pa_fin_plan_utils.return_and_vldt_plan_prc_code returned error';
2494: ,x_msg_count => x_msg_count
2495: ,x_msg_data => x_msg_data);
2496:
2497: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2498: x_return_status:=FND_API.G_RET_STS_ERROR;
2499:
2500: IF l_debug_mode = 'Y' THEN
2501: pa_debug.g_err_stage:= 'pa_fin_plan_utils.return_and_vldt_plan_prc_code returned error';
2502: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2553: pa_debug.g_err_stage:= 'Invalid Change Reason code ';
2554: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2555: END IF;
2556: END IF;
2557: x_return_status := FND_API.G_RET_STS_ERROR;
2558: l_any_error_occurred_flag := 'Y';
2559:
2560: --RAISE FND_API.G_EXC_ERROR;
2561:
2556: END IF;
2557: x_return_status := FND_API.G_RET_STS_ERROR;
2558: l_any_error_occurred_flag := 'Y';
2559:
2560: --RAISE FND_API.G_EXC_ERROR;
2561:
2562: ELSE
2563:
2564: CLOSE l_budget_change_reason_csr;
2579: IF(l_debug_mode='Y') THEN
2580: pa_debug.g_err_stage := 'About to display all the messages';
2581: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
2582: END IF;
2583: x_return_status := FND_API.G_RET_STS_ERROR;
2584: l_any_error_occurred_flag := 'Y';
2585: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2586: END IF;
2587:
2591: EXCEPTION
2592:
2593: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2594: IF x_return_status IS NULL OR
2595: x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2596: x_return_status := FND_API.G_RET_STS_ERROR;
2597: END IF;
2598:
2599: l_msg_count := FND_MSG_PUB.count_msg;
2592:
2593: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2594: IF x_return_status IS NULL OR
2595: x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2596: x_return_status := FND_API.G_RET_STS_ERROR;
2597: END IF;
2598:
2599: l_msg_count := FND_MSG_PUB.count_msg;
2600: --dbms_output.put_line('MSG count in the stack ' || l_msg_count);
2600: --dbms_output.put_line('MSG count in the stack ' || l_msg_count);
2601:
2602: IF l_msg_count = 1 AND x_msg_data IS NULL THEN
2603: PA_INTERFACE_UTILS_PUB.get_messages
2604: (p_encoded => FND_API.G_TRUE,
2605: p_msg_index => 1,
2606: p_msg_count => l_msg_count,
2607: p_msg_data => l_msg_data,
2608: p_data => l_data,
2620: END IF;
2621: RETURN;
2622:
2623: WHEN OTHERS THEN
2624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2625: x_msg_count := 1;
2626: x_msg_data := SQLERRM;
2627:
2628: FND_MSG_PUB.add_exc_msg
2865: BEGIN
2866:
2867:
2868: x_msg_count :=0;
2869: x_return_status := FND_API.G_RET_STS_SUCCESS;
2870: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2871: l_module_name := g_module_name || 'validate_header_info: ';
2872:
2873: IF l_debug_mode = 'Y' THEN
2875: p_debug_mode => l_debug_mode );
2876: END IF;
2877:
2878: -- Initialize the message table if requested.
2879: IF FND_API.TO_BOOLEAN( p_init_msg_list )
2880: THEN
2881: FND_MSG_PUB.initialize;
2882: END IF;
2883:
2890: --Standard call to check for call compatibility.
2891: --We do not perform the call compatibility check if p_api_name
2892: --is null. Internal APIs should pass this parameter as null.
2893: IF p_api_name IS NOT NULL THEN
2894: IF NOT FND_API.compatible_api_call ( PA_BUDGET_PUB.g_api_version_number,
2895: p_api_version_number ,
2896: p_api_name ,
2897: PA_BUDGET_PUB.G_PKG_NAME )
2898: THEN
2895: p_api_version_number ,
2896: p_api_name ,
2897: PA_BUDGET_PUB.G_PKG_NAME )
2898: THEN
2899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2900: END IF;
2901: END IF;
2902:
2903: --Convert following IN parameters from G_PA_MISS_XXX to null
2982: pa_debug.g_err_stage:= 'PM Product code is missing';
2983: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
2984: END IF;
2985:
2986: x_return_status := FND_API.G_RET_STS_ERROR;
2987: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2988:
2989: ELSE --p_pm_product_code is not null
2990:
3010: pa_debug.g_err_stage:= 'PM Product code is invalid';
3011: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3012: END IF;
3013:
3014: x_return_status := FND_API.G_RET_STS_ERROR;
3015: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3016: END IF;
3017: END IF;-- p_pm_product_code IS NULL
3018:
3027: IF px_pa_project_id_tmp IS NOT NULL then /* Bug 7498493 */
3028: px_pa_project_id := px_pa_project_id_tmp;
3029: END IF;
3030:
3031: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3032: THEN
3033: IF l_debug_mode = 'Y' THEN
3034: pa_debug.g_err_stage:= 'Unexpected error while deriving project id';
3035: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3033: IF l_debug_mode = 'Y' THEN
3034: pa_debug.g_err_stage:= 'Unexpected error while deriving project id';
3035: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3036: END IF;
3037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3038:
3039: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3040: THEN
3041: IF l_debug_mode = 'Y' THEN
3035: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3036: END IF;
3037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3038:
3039: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3040: THEN
3041: IF l_debug_mode = 'Y' THEN
3042: pa_debug.g_err_stage:= 'Error while deriving project id';
3043: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3086:
3087: -- the above API adds the error message to stack. Hence the message is not added here.
3088: -- Also, as security check is important further validations are not done in case this
3089: -- validation fails.
3090: IF (x_return_status<>FND_API.G_RET_STS_SUCCESS OR
3091: l_security_ret_code = 'N') THEN
3092:
3093: IF l_debug_mode = 'Y' THEN
3094: pa_debug.g_err_stage:= 'Security API Failed';
3118: ,p_attribute3 => px_budget_type_code
3119: ,p_attribute4 => ''
3120: ,p_attribute5 => '');
3121: END IF;
3122: x_return_status := FND_API.G_RET_STS_ERROR;
3123:
3124: IF l_debug_mode = 'Y' THEN
3125: pa_debug.g_err_stage:= 'Budget type is invalid';
3126: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3172: , x_msg_count => x_msg_count
3173: );
3174:
3175: -- calling api above adds the error message to stack hence not adding the error message here.
3176: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3177: THEN
3178: IF l_debug_mode = 'Y' THEN
3179: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned unexp error';
3180: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3178: IF l_debug_mode = 'Y' THEN
3179: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned unexp error';
3180: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3181: END IF;
3182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3183:
3184: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3185: THEN
3186: IF l_debug_mode = 'Y' THEN
3180: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3181: END IF;
3182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3183:
3184: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3185: THEN
3186: IF l_debug_mode = 'Y' THEN
3187: pa_debug.g_err_stage:= 'get_budget_ctrl_options returned error';
3188: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3211: );
3212:
3213:
3214: -- calling api above adds the error message to stack hence not adding the error message here.
3215: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3216: THEN
3217: IF l_debug_mode = 'Y' THEN
3218: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned unexp error';
3219: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3217: IF l_debug_mode = 'Y' THEN
3218: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned unexp error';
3219: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3220: END IF;
3221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3222: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3223: THEN
3224: IF l_debug_mode = 'Y' THEN
3225: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned error';
3218: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned unexp error';
3219: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3220: END IF;
3221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3222: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
3223: THEN
3224: IF l_debug_mode = 'Y' THEN
3225: pa_debug.g_err_stage:= 'Get_Latest_BC_Year returned error';
3226: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3242: ,p_attribute3 => px_budget_type_code
3243: ,p_attribute4 => ''
3244: ,p_attribute5 => '');
3245:
3246: x_return_status := FND_API.G_RET_STS_ERROR;
3247: l_any_error_occurred_flag := 'Y';
3248: END IF;
3249: */
3250:
3304: ,p_attribute4 => ''
3305: ,p_attribute5 => '');
3306: END IF;
3307:
3308: x_return_status := FND_API.G_RET_STS_ERROR;
3309: l_any_error_occurred_flag := 'Y';
3310: IF l_debug_mode = 'Y' THEN
3311: pa_debug.g_err_stage:= 'Budget entry method is missing';
3312: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3335: ,p_attribute3 => px_budget_type_code
3336: ,p_attribute4 => ''
3337: ,p_attribute5 => '');
3338: END IF;
3339: x_return_status := FND_API.G_RET_STS_ERROR;
3340: l_any_error_occurred_flag := 'Y';
3341: IF l_debug_mode = 'Y' THEN
3342: pa_debug.g_err_stage:= 'Budget entry method is invalid';
3343: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3361: ,x_msg_count => x_msg_count
3362: ,x_msg_data => x_msg_data);
3363:
3364: -- Throw the error if the above API is not successfully executed
3365: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3366: IF l_debug_mode = 'Y' THEN
3367: pa_debug.g_err_stage := 'Cannot get the value of Fin Plan Type Id' ;
3368: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3369: END IF;
3406: ,x_return_status => x_return_status
3407: ,x_msg_count => x_msg_count
3408: ,x_msg_data => x_msg_data);
3409:
3410: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3411: IF l_debug_mode = 'Y' THEN
3412: pa_debug.g_err_stage := 'Failed in get_Version_type' ;
3413: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3414: END IF;
3427: pa_debug.g_err_stage := 'Org_Forecast plan type has been passed' ;
3428: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3429: END IF;
3430:
3431: x_return_status := FND_API.G_RET_STS_ERROR;
3432: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3433: END IF; --org_forecast
3434:
3435: --Check function security
3442: ,p_version_type => px_version_type
3443: ,x_return_status => x_return_status
3444: ,x_ret_code => l_security_ret_code );
3445:
3446: IF (x_return_status <>FND_API.G_RET_STS_SUCCESS OR
3447: l_security_ret_code='N') THEN
3448: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3449: END IF;
3450:
3473: ,x_return_status => x_return_status
3474: ,x_msg_count => x_msg_count
3475: ,x_msg_data => x_msg_data );
3476:
3477: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3478: IF l_debug_mode = 'Y' THEN
3479: pa_debug.g_err_stage := 'Get_Curr_Working_Version_Info api Failed ' ;
3480: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3481: END IF;
3478: IF l_debug_mode = 'Y' THEN
3479: pa_debug.g_err_stage := 'Get_Curr_Working_Version_Info api Failed ' ;
3480: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3481: END IF;
3482: RAISE FND_API.G_EXC_ERROR;
3483: END IF;
3484:
3485: END IF; --p_budget_version_number IS NOT NULL
3486:
3522: x_return_status => x_return_status,
3523: x_msg_count => x_msg_count,
3524: x_msg_data => x_msg_data);
3525:
3526: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3527: IF l_debug_mode = 'Y' THEN
3528: pa_debug.g_err_stage := 'This budget version can not be edited';
3529: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3530: END IF;
3597: ,p_attribute3 => l_context_info
3598: ,p_attribute4 => ''
3599: ,p_attribute5 => '');
3600: END IF;
3601: x_return_status := FND_API.G_RET_STS_ERROR;
3602: l_any_error_occurred_flag := 'Y';
3603: IF l_debug_mode = 'Y' THEN
3604: pa_debug.g_err_stage:= 'Invalid Change Reason code ';
3605: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3618: ,x_return_status => x_return_status
3619: ,x_msg_count => x_msg_count
3620: ,x_msg_data => x_msg_data );
3621:
3622: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3623: IF(l_debug_mode='Y') THEN
3624: pa_debug.g_err_stage := 'Auto baseline API falied';
3625: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3626: END IF;
3623: IF(l_debug_mode='Y') THEN
3624: pa_debug.g_err_stage := 'Auto baseline API falied';
3625: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3626: END IF;
3627: RAISE FND_API.G_EXC_ERROR;
3628: END IF;
3629:
3630: IF l_result = 'F' THEN
3631: IF(l_debug_mode='Y') THEN
3654: ,x_return_status => x_return_status
3655: ,x_msg_count => x_msg_count
3656: ,x_msg_data => x_msg_data);
3657:
3658: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3659: IF(l_debug_mode='Y') THEN
3660: pa_debug.g_err_stage := 'return_and_vldt_plan_prc_code API falied';
3661: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3662: END IF;
3659: IF(l_debug_mode='Y') THEN
3660: pa_debug.g_err_stage := 'return_and_vldt_plan_prc_code API falied';
3661: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3662: END IF;
3663: RAISE FND_API.G_EXC_ERROR;
3664: END IF;
3665:
3666: /* Plan Amount Entry flags validations start : bug 6408139 */
3667: IF px_budget_type_code IS NULL THEN -- for plan versions only, we are checking the flags
3704: ,x_message_count => x_msg_count
3705: ,x_return_status => x_return_status
3706: ,x_message_data => x_msg_data) ;
3707:
3708: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
3709: THEN
3710: -- RAISE FND_API.G_EXC_ERROR;
3711: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3712: END IF;
3706: ,x_message_data => x_msg_data) ;
3707:
3708: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
3709: THEN
3710: -- RAISE FND_API.G_EXC_ERROR;
3711: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3712: END IF;
3713:
3714: IF ( px_raw_cost_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) THEN
3763: p_token1 => 'PROJECT',
3764: p_value1 => x_project_number,
3765: p_token2 => 'PLAN_TYPE',
3766: p_value2 => px_fin_plan_type_name);
3767: x_return_status := FND_API.G_RET_STS_ERROR;
3768: l_any_error_occurred_flag := 'Y';
3769:
3770: IF l_debug_mode = 'Y' THEN
3771: pa_debug.g_err_stage:= 'Invalid values for amount flags ';
3780:
3781: PA_UTILS.ADD_MESSAGE
3782: (p_app_short_name => 'PA',
3783: p_msg_name => 'PA_FP_NO_PLAN_AMT_CHECKED');
3784: x_return_status := FND_API.G_RET_STS_ERROR;
3785: l_any_error_occurred_flag := 'Y';
3786: IF l_debug_mode = 'Y' THEN
3787: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
3788: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3803: p_token1 => 'PROJECT',
3804: p_value1 => x_project_number,
3805: p_token2 => 'PLAN_TYPE',
3806: p_value2 => px_fin_plan_type_name);
3807: x_return_status := FND_API.G_RET_STS_ERROR;
3808: l_any_error_occurred_flag := 'Y';
3809: IF l_debug_mode = 'Y' THEN
3810: pa_debug.g_err_stage:= 'Invalid value for the amount flags ';
3811: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3819:
3820: PA_UTILS.ADD_MESSAGE
3821: (p_app_short_name => 'PA',
3822: p_msg_name => 'PA_FP_NO_PLAN_AMT_CHECKED');
3823: x_return_status := FND_API.G_RET_STS_ERROR;
3824: l_any_error_occurred_flag := 'Y';
3825: IF l_debug_mode = 'Y' THEN
3826: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
3827: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3845: p_token1 => 'PROJECT',
3846: p_value1 => x_project_number,
3847: p_token2 => 'PLAN_TYPE',
3848: p_value2 => px_fin_plan_type_name);
3849: x_return_status := FND_API.G_RET_STS_ERROR;
3850: l_any_error_occurred_flag := 'Y';
3851: IF l_debug_mode = 'Y' THEN
3852: pa_debug.g_err_stage:= 'Invalid value for the amount flags ';
3853: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3864:
3865: PA_UTILS.ADD_MESSAGE
3866: (p_app_short_name => 'PA',
3867: p_msg_name => 'PA_FP_NO_PLAN_AMT_CHECKED');
3868: x_return_status := FND_API.G_RET_STS_ERROR;
3869: l_any_error_occurred_flag := 'Y';
3870: IF l_debug_mode = 'Y' THEN
3871: pa_debug.g_err_stage:= 'None of the amount flags are Y ';
3872: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3887: IF(l_debug_mode='Y') THEN
3888: pa_debug.g_err_stage := 'About to display all the messages';
3889: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3890: END IF;
3891: x_return_status := FND_API.G_RET_STS_ERROR;
3892: l_any_error_occurred_flag := 'Y';
3893: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3894: END IF;
3895:
3905: EXCEPTION
3906:
3907: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3908: IF x_return_status IS NULL
3909: OR x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3910: x_return_status := FND_API.G_RET_STS_ERROR;
3911: END IF;
3912:
3913: x_msg_count := FND_MSG_PUB.count_msg;
3906:
3907: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3908: IF x_return_status IS NULL
3909: OR x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3910: x_return_status := FND_API.G_RET_STS_ERROR;
3911: END IF;
3912:
3913: x_msg_count := FND_MSG_PUB.count_msg;
3914:
3913: x_msg_count := FND_MSG_PUB.count_msg;
3914:
3915: IF x_msg_count = 1 AND x_msg_data IS NULL THEN
3916: PA_INTERFACE_UTILS_PUB.get_messages
3917: (p_encoded => FND_API.G_TRUE,
3918: p_msg_index => 1,
3919: p_msg_count => x_msg_count,
3920: p_msg_data => x_msg_data,
3921: p_data => l_data,
3929: END IF;
3930:
3931: RETURN;
3932:
3933: WHEN FND_API.G_EXC_ERROR
3934: THEN
3935:
3936: x_return_status := FND_API.G_RET_STS_ERROR;
3937:
3932:
3933: WHEN FND_API.G_EXC_ERROR
3934: THEN
3935:
3936: x_return_status := FND_API.G_RET_STS_ERROR;
3937:
3938: FND_MSG_PUB.count_and_get
3939: ( p_count => x_msg_count ,
3940: p_data => x_msg_data );
3942: IF ( l_debug_mode = 'Y' ) THEN
3943: pa_debug.reset_curr_function;
3944: END IF;
3945:
3946: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3947: THEN
3948:
3949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3950:
3945:
3946: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3947: THEN
3948:
3949: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3950:
3951: FND_MSG_PUB.count_and_get
3952: ( p_count => x_msg_count ,
3953: p_data => x_msg_data );
3956: pa_debug.reset_curr_function;
3957: END IF;
3958:
3959: WHEN OTHERS THEN
3960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3961: x_msg_count := 1;
3962: x_msg_data := SQLERRM;
3963:
3964: FND_MSG_PUB.add_exc_msg
4139: SAVEPOINT insert_budget_line_pvt;
4140:
4141: --Set API return status to success
4142:
4143: p_return_status := FND_API.G_RET_STS_SUCCESS;
4144:
4145: --get unit_of_measure and track_as_labor_flag associated to
4146: --the resource member and check whether this is a valid member for this list
4147: OPEN l_resource_csr( p_member_id
4163: ,p_attribute5 => to_char(p_budget_start_date));
4164: END IF;
4165:
4166: CLOSE l_resource_csr;
4167: p_return_status := FND_API.G_RET_STS_ERROR;
4168: RAISE FND_API.G_EXC_ERROR;
4169:
4170: ELSE
4171: CLOSE l_resource_csr;
4164: END IF;
4165:
4166: CLOSE l_resource_csr;
4167: p_return_status := FND_API.G_RET_STS_ERROR;
4168: RAISE FND_API.G_EXC_ERROR;
4169:
4170: ELSE
4171: CLOSE l_resource_csr;
4172:
4196: dbms_output.put_line('MSG count in the stack ' || FND_MSG_PUB.count_msg);
4197: dbms_output.put_line('added msg to stack');
4198: dbms_output.put_line('MSG count in the stack 2 ' || FND_MSG_PUB.count_msg);
4199: END IF;
4200: p_return_status := FND_API.G_RET_STS_ERROR;
4201: END IF;
4202: -- bug 3062294
4203:
4204: Bug 3218822 - PM_PRODUCT_CODE could be Null. We need valid it if it is NOT NULL
4580: ,x_msg_count => l_msg_count
4581: ,x_msg_data => l_msg_data
4582: ,x_return_status => l_return_status);
4583:
4584: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4585: RAISE FND_API.G_EXC_ERROR;
4586: END IF;
4587:
4588: IF l_debug_mode = 'Y' THEN
4581: ,x_msg_data => l_msg_data
4582: ,x_return_status => l_return_status);
4583:
4584: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4585: RAISE FND_API.G_EXC_ERROR;
4586: END IF;
4587:
4588: IF l_debug_mode = 'Y' THEN
4589: pa_debug.g_err_stage := 'Validate Budget Lines got executed successfully';
4678: END IF;
4679:
4680: END IF;
4681:
4682: RAISE FND_API.G_EXC_ERROR;
4683:
4684: ELSIF l_err_code < 0
4685: THEN
4686:
4698: ,p_attribute3 => p_budget_type_code
4699: ,p_attribute4 => ''
4700: ,p_attribute5 => to_char(p_budget_start_date));
4701: END IF;
4702: RAISE FND_API.G_EXC_ERROR;
4703: ELSE
4704:
4705: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4706: THEN
4710: , p_procedure_name => 'CREATE_LINE'
4711: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0') );
4712:
4713: END IF;
4714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4715: END IF;
4716:
4717: END IF;
4718: END IF; --all zero's
4718: END IF; --all zero's
4719:
4720: EXCEPTION
4721:
4722: WHEN FND_API.G_EXC_ERROR
4723: THEN
4724:
4725: ROLLBACK TO insert_budget_line_pvt;
4726:
4723: THEN
4724:
4725: ROLLBACK TO insert_budget_line_pvt;
4726:
4727: p_return_status := FND_API.G_RET_STS_ERROR;
4728:
4729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4730: THEN
4731:
4725: ROLLBACK TO insert_budget_line_pvt;
4726:
4727: p_return_status := FND_API.G_RET_STS_ERROR;
4728:
4729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4730: THEN
4731:
4732: ROLLBACK TO insert_budget_line_pvt;
4733:
4730: THEN
4731:
4732: ROLLBACK TO insert_budget_line_pvt;
4733:
4734: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4735:
4736: WHEN OTHERS THEN
4737:
4738: ROLLBACK TO insert_budget_line_pvt;
4736: WHEN OTHERS THEN
4737:
4738: ROLLBACK TO insert_budget_line_pvt;
4739:
4740: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4741:
4742: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4743: THEN
4744: FND_MSG_PUB.add_exc_msg
4771: -- 10-MAY-2005 Ritesh Shukla Bug 4224464- This procedure has been modified extensively
4772: -- during FP.M changes for AMG. If you do not want to update
4773: -- a parameter then either do not pass it or pass its value
4774: -- as NULL, and if you want to null out a parameter then
4775: -- pass it as FND_API.G_MISS_XXX
4776: -- 13-MAY-2005 Ritesh Shukla Bug 4224464-Removed parameter p_budget_amount_code from
4777: -- procedure update_budget_line_sql since it has become redundant.
4778:
4779: PROCEDURE update_budget_line_sql
4858: SAVEPOINT update_budget_line_sql_pvt;
4859:
4860: -- Set API return status to success
4861:
4862: p_return_status := FND_API.G_RET_STS_SUCCESS;
4863:
4864: --get the current values for this budget line
4865:
4866: OPEN l_budget_line_csr( p_resource_assignment_id, p_start_date );
4877: --dbms_output.put_line('p_description : '||p_description);
4878: --dbms_output.put_line('l_budget_line_rec.description: '||l_budget_line_rec.description);
4879:
4880: IF p_description IS NOT NULL
4881: AND p_description <> nvl(l_budget_line_rec.description,FND_API.G_MISS_CHAR)
4882: THEN
4883: l_statement := l_statement ||
4884: ' DESCRIPTION = :xDescription'||',';
4885: l_update_yes_flag := 'Y';
4888: --dbms_output.put_line('New Raw cost: '||nvl(to_char(p_raw_cost),'NULL'));
4889: --dbms_output.put_line('Old Raw cost: '||nvl(to_char(l_budget_line_rec.raw_cost),'NULL'));
4890:
4891: IF p_raw_cost IS NOT NULL
4892: AND p_raw_cost <> nvl(l_budget_line_rec.raw_cost,FND_API.G_MISS_NUM)
4893: THEN
4894: l_statement := l_statement ||
4895: ' RAW_COST = :xRawCost'||',';
4896:
4906: THEN
4907: /* Bug 2864086 - Added this check for p_raw_cost before updating burdened cost with the p_raw_cost */
4908:
4909: IF p_raw_cost IS NOT NULL
4910: AND p_raw_cost <> nvl(l_budget_line_rec.burdened_cost,FND_API.G_MISS_NUM)
4911: THEN
4912: l_statement := l_statement ||
4913: ' BURDENED_COST = :xRawCostForB'||',';
4914:
4916: END If;
4917: ELSE
4918:
4919: IF p_burdened_cost IS NOT NULL
4920: AND p_burdened_cost <> nvl(l_budget_line_rec.burdened_cost,FND_API.G_MISS_NUM)
4921: THEN
4922: l_statement := l_statement ||
4923: ' BURDENED_COST = :xBurdenedCost'||',';
4924:
4926: END IF;
4927: END IF;--l_burdened_cost_flag = 'N'
4928:
4929: IF p_revenue IS NOT NULL
4930: AND p_revenue <> nvl(l_budget_line_rec.revenue,FND_API.G_MISS_NUM)
4931: THEN
4932: l_statement := l_statement ||
4933: ' REVENUE = :xRevenue'||',';
4934:
4935: l_update_yes_flag := 'Y';
4936: END IF;
4937:
4938: IF p_quantity IS NOT NULL
4939: AND p_quantity <> nvl(l_budget_line_rec.quantity,FND_API.G_MISS_NUM)
4940: THEN
4941: l_statement := l_statement ||
4942: ' QUANTITY = :xQuantity'||',';
4943:
4944: l_update_yes_flag := 'Y';
4945: END IF;
4946:
4947: IF p_change_reason_code IS NOT NULL
4948: AND p_change_reason_code <> nvl(l_budget_line_rec.change_reason_code,FND_API.G_MISS_CHAR)
4949: THEN
4950: l_statement := l_statement ||
4951: ' CHANGE_REASON_CODE = :xChangeReasonCode'||',';
4952: l_update_yes_flag := 'Y';
4952: l_update_yes_flag := 'Y';
4953: END IF;
4954:
4955: IF p_attribute_category IS NOT NULL
4956: AND p_attribute_category <> nvl(l_budget_line_rec.attribute_category,FND_API.G_MISS_CHAR)
4957: THEN
4958: l_statement := l_statement ||
4959: ' ATTRIBUTE_CATEGORY = :xAttributeCategory'||',';
4960: l_update_yes_flag := 'Y';
4960: l_update_yes_flag := 'Y';
4961: END IF;
4962:
4963: IF p_attribute1 IS NOT NULL
4964: AND p_attribute1 <> nvl(l_budget_line_rec.attribute1,FND_API.G_MISS_CHAR)
4965: THEN
4966: l_statement := l_statement ||
4967: ' ATTRIBUTE1 = :xAttribute1'||',';
4968: l_update_yes_flag := 'Y';
4968: l_update_yes_flag := 'Y';
4969: END IF;
4970:
4971: IF p_attribute2 IS NOT NULL
4972: AND p_attribute2 <> nvl(l_budget_line_rec.attribute2,FND_API.G_MISS_CHAR)
4973: THEN
4974: l_statement := l_statement ||
4975: ' ATTRIBUTE2 = :xAttribute2'||',';
4976: l_update_yes_flag := 'Y';
4976: l_update_yes_flag := 'Y';
4977: END IF;
4978:
4979: IF p_attribute3 IS NOT NULL
4980: AND p_attribute3 <> nvl(l_budget_line_rec.attribute3,FND_API.G_MISS_CHAR)
4981: THEN
4982: l_statement := l_statement ||
4983: ' ATTRIBUTE3 = :xAttribute3'||',';
4984: l_update_yes_flag := 'Y';
4984: l_update_yes_flag := 'Y';
4985: END IF;
4986:
4987: IF p_attribute4 IS NOT NULL
4988: AND p_attribute4 <> nvl(l_budget_line_rec.attribute4,FND_API.G_MISS_CHAR)
4989: THEN
4990: l_statement := l_statement ||
4991: ' ATTRIBUTE4 = :xAttribute4'||',';
4992: l_update_yes_flag := 'Y';
4992: l_update_yes_flag := 'Y';
4993: END IF;
4994:
4995: IF p_attribute5 IS NOT NULL
4996: AND p_attribute5 <> nvl(l_budget_line_rec.attribute5,FND_API.G_MISS_CHAR)
4997: THEN
4998: l_statement := l_statement ||
4999: ' ATTRIBUTE5 = :xAttribute5'||',';
5000: l_update_yes_flag := 'Y';
5000: l_update_yes_flag := 'Y';
5001: END IF;
5002:
5003: IF p_attribute6 IS NOT NULL
5004: AND p_attribute6 <> nvl(l_budget_line_rec.attribute6,FND_API.G_MISS_CHAR)
5005: THEN
5006: l_statement := l_statement ||
5007: ' ATTRIBUTE6 = :xAttribute6'||',';
5008: l_update_yes_flag := 'Y';
5008: l_update_yes_flag := 'Y';
5009: END IF;
5010:
5011: IF p_attribute7 IS NOT NULL
5012: AND p_attribute7 <> nvl(l_budget_line_rec.attribute7,FND_API.G_MISS_CHAR)
5013: THEN
5014: l_statement := l_statement ||
5015: ' ATTRIBUTE7 = :xAttribute7'||',';
5016: l_update_yes_flag := 'Y';
5016: l_update_yes_flag := 'Y';
5017: END IF;
5018:
5019: IF p_attribute8 IS NOT NULL
5020: AND p_attribute8 <> nvl(l_budget_line_rec.attribute8,FND_API.G_MISS_CHAR)
5021: THEN
5022: l_statement := l_statement ||
5023: ' ATTRIBUTE8 = :xAttribute8'||',';
5024: l_update_yes_flag := 'Y';
5024: l_update_yes_flag := 'Y';
5025: END IF;
5026:
5027: IF p_attribute9 IS NOT NULL
5028: AND p_attribute9 <> nvl(l_budget_line_rec.attribute9,FND_API.G_MISS_CHAR)
5029: THEN
5030: l_statement := l_statement ||
5031: ' ATTRIBUTE9 = :xAttribute9'||',';
5032: l_update_yes_flag := 'Y';
5032: l_update_yes_flag := 'Y';
5033: END IF;
5034:
5035: IF p_attribute10 IS NOT NULL
5036: AND p_attribute10 <> nvl(l_budget_line_rec.attribute10,FND_API.G_MISS_CHAR)
5037: THEN
5038: l_statement := l_statement ||
5039: ' ATTRIBUTE10 = :xAttribute10'||',';
5040: l_update_yes_flag := 'Y';
5040: l_update_yes_flag := 'Y';
5041: END IF;
5042:
5043: IF p_attribute11 IS NOT NULL
5044: AND p_attribute11 <> nvl(l_budget_line_rec.attribute11,FND_API.G_MISS_CHAR)
5045: THEN
5046: l_statement := l_statement ||
5047: ' ATTRIBUTE11 = :xAttribute11'||',';
5048: l_update_yes_flag := 'Y';
5048: l_update_yes_flag := 'Y';
5049: END IF;
5050:
5051: IF p_attribute12 IS NOT NULL
5052: AND p_attribute12 <> nvl(l_budget_line_rec.attribute12,FND_API.G_MISS_CHAR)
5053: THEN
5054: l_statement := l_statement ||
5055: ' ATTRIBUTE12 = :xAttribute12'||',';
5056: l_update_yes_flag := 'Y';
5056: l_update_yes_flag := 'Y';
5057: END IF;
5058:
5059: IF p_attribute13 IS NOT NULL
5060: AND p_attribute13 <> nvl(l_budget_line_rec.attribute13,FND_API.G_MISS_CHAR)
5061: THEN
5062: l_statement := l_statement ||
5063: ' ATTRIBUTE13 = :xAttribute13'||',';
5064: l_update_yes_flag := 'Y';
5064: l_update_yes_flag := 'Y';
5065: END IF;
5066:
5067: IF p_attribute14 IS NOT NULL
5068: AND p_attribute14 <> nvl(l_budget_line_rec.attribute14,FND_API.G_MISS_CHAR)
5069: THEN
5070: l_statement := l_statement ||
5071: ' ATTRIBUTE14 = :xAttribute14'||',';
5072: l_update_yes_flag := 'Y';
5072: l_update_yes_flag := 'Y';
5073: END IF;
5074:
5075: IF p_attribute15 IS NOT NULL
5076: AND p_attribute15 <> nvl(l_budget_line_rec.attribute15,FND_API.G_MISS_CHAR)
5077: THEN
5078: l_statement := l_statement ||
5079: ' ATTRIBUTE15 = :xAttribute15'||',';
5080: l_update_yes_flag := 'Y';
5130: l_cursor_id := DBMS_SQL.open_cursor;
5131: DBMS_SQL.parse(l_cursor_id, l_statement, DBMS_SQL.native);
5132:
5133: IF p_description IS NOT NULL
5134: AND p_description <> nvl(l_budget_line_rec.description,FND_API.G_MISS_CHAR)
5135: THEN
5136: IF p_description = FND_API.G_MISS_CHAR THEN
5137: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xDescription', TO_CHAR(NULL));
5138: ELSE
5132:
5133: IF p_description IS NOT NULL
5134: AND p_description <> nvl(l_budget_line_rec.description,FND_API.G_MISS_CHAR)
5135: THEN
5136: IF p_description = FND_API.G_MISS_CHAR THEN
5137: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xDescription', TO_CHAR(NULL));
5138: ELSE
5139: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xDescription', p_description);
5140: END IF;
5140: END IF;
5141: END IF;
5142:
5143: IF p_raw_cost IS NOT NULL
5144: AND p_raw_cost <> nvl(l_budget_line_rec.raw_cost,FND_API.G_MISS_NUM)
5145: THEN
5146: IF p_raw_cost = FND_API.G_MISS_NUM THEN
5147: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xRawCost', TO_NUMBER(NULL));
5148: ELSE
5142:
5143: IF p_raw_cost IS NOT NULL
5144: AND p_raw_cost <> nvl(l_budget_line_rec.raw_cost,FND_API.G_MISS_NUM)
5145: THEN
5146: IF p_raw_cost = FND_API.G_MISS_NUM THEN
5147: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xRawCost', TO_NUMBER(NULL));
5148: ELSE
5149: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xRawCost', p_raw_cost);
5150: END IF;
5153: IF l_burdened_cost_flag = 'N' -- added for burden_distributed_cost ='N'
5154: THEN
5155:
5156: IF p_raw_cost IS NOT NULL
5157: AND p_raw_cost <> nvl(l_budget_line_rec.burdened_cost,FND_API.G_MISS_NUM)
5158: THEN
5159: IF p_raw_cost = FND_API.G_MISS_NUM THEN
5160: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xRawCostForB', TO_NUMBER(NULL));
5161: ELSE
5155:
5156: IF p_raw_cost IS NOT NULL
5157: AND p_raw_cost <> nvl(l_budget_line_rec.burdened_cost,FND_API.G_MISS_NUM)
5158: THEN
5159: IF p_raw_cost = FND_API.G_MISS_NUM THEN
5160: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xRawCostForB', TO_NUMBER(NULL));
5161: ELSE
5162: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xRawCostForB', p_raw_cost);
5163: END IF;
5165:
5166: ELSE
5167:
5168: IF p_burdened_cost IS NOT NULL
5169: AND p_burdened_cost <> nvl(l_budget_line_rec.burdened_cost,FND_API.G_MISS_NUM)
5170: THEN
5171: IF p_burdened_cost = FND_API.G_MISS_NUM THEN
5172: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xBurdenedCost', TO_NUMBER(NULL));
5173: ELSE
5167:
5168: IF p_burdened_cost IS NOT NULL
5169: AND p_burdened_cost <> nvl(l_budget_line_rec.burdened_cost,FND_API.G_MISS_NUM)
5170: THEN
5171: IF p_burdened_cost = FND_API.G_MISS_NUM THEN
5172: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xBurdenedCost', TO_NUMBER(NULL));
5173: ELSE
5174: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xBurdenedCost', p_burdened_cost);
5175: END IF;
5177:
5178: END IF;--l_burdened_cost_flag = 'N'
5179:
5180: IF p_revenue IS NOT NULL
5181: AND p_revenue <> nvl(l_budget_line_rec.revenue,FND_API.G_MISS_NUM)
5182: THEN
5183: IF p_revenue = FND_API.G_MISS_NUM THEN
5184: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xRevenue',TO_NUMBER(NULL));
5185: ELSE
5179:
5180: IF p_revenue IS NOT NULL
5181: AND p_revenue <> nvl(l_budget_line_rec.revenue,FND_API.G_MISS_NUM)
5182: THEN
5183: IF p_revenue = FND_API.G_MISS_NUM THEN
5184: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xRevenue',TO_NUMBER(NULL));
5185: ELSE
5186: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xRevenue',p_revenue);
5187: END IF;
5187: END IF;
5188: END IF;
5189:
5190: IF p_quantity IS NOT NULL
5191: AND p_quantity <> nvl(l_budget_line_rec.quantity,FND_API.G_MISS_NUM)
5192: THEN
5193: IF p_quantity = FND_API.G_MISS_NUM THEN
5194: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xQuantity',TO_NUMBER(NULL));
5195: ELSE
5189:
5190: IF p_quantity IS NOT NULL
5191: AND p_quantity <> nvl(l_budget_line_rec.quantity,FND_API.G_MISS_NUM)
5192: THEN
5193: IF p_quantity = FND_API.G_MISS_NUM THEN
5194: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xQuantity',TO_NUMBER(NULL));
5195: ELSE
5196: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xQuantity',p_quantity);
5197: END IF;
5197: END IF;
5198: END IF;
5199:
5200: IF p_change_reason_code IS NOT NULL
5201: AND p_change_reason_code <> nvl(l_budget_line_rec.change_reason_code,FND_API.G_MISS_CHAR)
5202: THEN
5203: IF p_change_reason_code = FND_API.G_MISS_CHAR THEN
5204: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xChangeReasonCode', TO_CHAR(NULL));
5205: ELSE
5199:
5200: IF p_change_reason_code IS NOT NULL
5201: AND p_change_reason_code <> nvl(l_budget_line_rec.change_reason_code,FND_API.G_MISS_CHAR)
5202: THEN
5203: IF p_change_reason_code = FND_API.G_MISS_CHAR THEN
5204: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xChangeReasonCode', TO_CHAR(NULL));
5205: ELSE
5206: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xChangeReasonCode', p_change_reason_code);
5207: END IF;
5207: END IF;
5208: END IF;
5209:
5210: IF p_attribute_category IS NOT NULL
5211: AND p_attribute_category <> nvl(l_budget_line_rec.attribute_category,FND_API.G_MISS_CHAR)
5212: THEN
5213: IF p_attribute_category = FND_API.G_MISS_CHAR THEN
5214: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttributeCategory', TO_CHAR(NULL));
5215: ELSE
5209:
5210: IF p_attribute_category IS NOT NULL
5211: AND p_attribute_category <> nvl(l_budget_line_rec.attribute_category,FND_API.G_MISS_CHAR)
5212: THEN
5213: IF p_attribute_category = FND_API.G_MISS_CHAR THEN
5214: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttributeCategory', TO_CHAR(NULL));
5215: ELSE
5216: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttributeCategory', p_attribute_category);
5217: END IF;
5217: END IF;
5218: END IF;
5219:
5220: IF p_attribute1 IS NOT NULL
5221: AND p_attribute1 <> nvl(l_budget_line_rec.attribute1,FND_API.G_MISS_CHAR)
5222: THEN
5223: IF p_attribute1 = FND_API.G_MISS_CHAR THEN
5224: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute1', TO_CHAR(NULL));
5225: ELSE
5219:
5220: IF p_attribute1 IS NOT NULL
5221: AND p_attribute1 <> nvl(l_budget_line_rec.attribute1,FND_API.G_MISS_CHAR)
5222: THEN
5223: IF p_attribute1 = FND_API.G_MISS_CHAR THEN
5224: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute1', TO_CHAR(NULL));
5225: ELSE
5226: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute1', p_attribute1);
5227: END IF;
5227: END IF;
5228: END IF;
5229:
5230: IF p_attribute2 IS NOT NULL
5231: AND p_attribute2 <> nvl(l_budget_line_rec.attribute2,FND_API.G_MISS_CHAR)
5232: THEN
5233: IF p_attribute2 = FND_API.G_MISS_CHAR THEN
5234: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute2', TO_CHAR(NULL));
5235: ELSE
5229:
5230: IF p_attribute2 IS NOT NULL
5231: AND p_attribute2 <> nvl(l_budget_line_rec.attribute2,FND_API.G_MISS_CHAR)
5232: THEN
5233: IF p_attribute2 = FND_API.G_MISS_CHAR THEN
5234: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute2', TO_CHAR(NULL));
5235: ELSE
5236: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute2', p_attribute2);
5237: END IF;
5237: END IF;
5238: END IF;
5239:
5240: IF p_attribute3 IS NOT NULL
5241: AND p_attribute3 <> nvl(l_budget_line_rec.attribute3,FND_API.G_MISS_CHAR)
5242: THEN
5243: IF p_attribute3 = FND_API.G_MISS_CHAR THEN
5244: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute3', TO_CHAR(NULL));
5245: ELSE
5239:
5240: IF p_attribute3 IS NOT NULL
5241: AND p_attribute3 <> nvl(l_budget_line_rec.attribute3,FND_API.G_MISS_CHAR)
5242: THEN
5243: IF p_attribute3 = FND_API.G_MISS_CHAR THEN
5244: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute3', TO_CHAR(NULL));
5245: ELSE
5246: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute3', p_attribute3);
5247: END IF;
5247: END IF;
5248: END IF;
5249:
5250: IF p_attribute4 IS NOT NULL
5251: AND p_attribute4 <> nvl(l_budget_line_rec.attribute4,FND_API.G_MISS_CHAR)
5252: THEN
5253: IF p_attribute4 = FND_API.G_MISS_CHAR THEN
5254: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute4', TO_CHAR(NULL));
5255: ELSE
5249:
5250: IF p_attribute4 IS NOT NULL
5251: AND p_attribute4 <> nvl(l_budget_line_rec.attribute4,FND_API.G_MISS_CHAR)
5252: THEN
5253: IF p_attribute4 = FND_API.G_MISS_CHAR THEN
5254: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute4', TO_CHAR(NULL));
5255: ELSE
5256: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute4', p_attribute4);
5257: END IF;
5257: END IF;
5258: END IF;
5259:
5260: IF p_attribute5 IS NOT NULL
5261: AND p_attribute5 <> nvl(l_budget_line_rec.attribute5,FND_API.G_MISS_CHAR)
5262: THEN
5263: IF p_attribute5 = FND_API.G_MISS_CHAR THEN
5264: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute5', TO_CHAR(NULL));
5265: ELSE
5259:
5260: IF p_attribute5 IS NOT NULL
5261: AND p_attribute5 <> nvl(l_budget_line_rec.attribute5,FND_API.G_MISS_CHAR)
5262: THEN
5263: IF p_attribute5 = FND_API.G_MISS_CHAR THEN
5264: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute5', TO_CHAR(NULL));
5265: ELSE
5266: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute5', p_attribute5);
5267: END IF;
5267: END IF;
5268: END IF;
5269:
5270: IF p_attribute6 IS NOT NULL
5271: AND p_attribute6 <> nvl(l_budget_line_rec.attribute6,FND_API.G_MISS_CHAR)
5272: THEN
5273: IF p_attribute6 = FND_API.G_MISS_CHAR THEN
5274: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute6', TO_CHAR(NULL));
5275: ELSE
5269:
5270: IF p_attribute6 IS NOT NULL
5271: AND p_attribute6 <> nvl(l_budget_line_rec.attribute6,FND_API.G_MISS_CHAR)
5272: THEN
5273: IF p_attribute6 = FND_API.G_MISS_CHAR THEN
5274: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute6', TO_CHAR(NULL));
5275: ELSE
5276: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute6', p_attribute6);
5277: END IF;
5277: END IF;
5278: END IF;
5279:
5280: IF p_attribute7 IS NOT NULL
5281: AND p_attribute7 <> nvl(l_budget_line_rec.attribute7,FND_API.G_MISS_CHAR)
5282: THEN
5283: IF p_attribute7 = FND_API.G_MISS_CHAR THEN
5284: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute7', TO_CHAR(NULL));
5285: ELSE
5279:
5280: IF p_attribute7 IS NOT NULL
5281: AND p_attribute7 <> nvl(l_budget_line_rec.attribute7,FND_API.G_MISS_CHAR)
5282: THEN
5283: IF p_attribute7 = FND_API.G_MISS_CHAR THEN
5284: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute7', TO_CHAR(NULL));
5285: ELSE
5286: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute7', p_attribute7);
5287: END IF;
5287: END IF;
5288: END IF;
5289:
5290: IF p_attribute8 IS NOT NULL
5291: AND p_attribute8 <> nvl(l_budget_line_rec.attribute8,FND_API.G_MISS_CHAR)
5292: THEN
5293: IF p_attribute8 = FND_API.G_MISS_CHAR THEN
5294: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute8', TO_CHAR(NULL));
5295: ELSE
5289:
5290: IF p_attribute8 IS NOT NULL
5291: AND p_attribute8 <> nvl(l_budget_line_rec.attribute8,FND_API.G_MISS_CHAR)
5292: THEN
5293: IF p_attribute8 = FND_API.G_MISS_CHAR THEN
5294: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute8', TO_CHAR(NULL));
5295: ELSE
5296: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute8', p_attribute8);
5297: END IF;
5297: END IF;
5298: END IF;
5299:
5300: IF p_attribute9 IS NOT NULL
5301: AND p_attribute9 <> nvl(l_budget_line_rec.attribute9,FND_API.G_MISS_CHAR)
5302: THEN
5303: IF p_attribute9 = FND_API.G_MISS_CHAR THEN
5304: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute9', TO_CHAR(NULL));
5305: ELSE
5299:
5300: IF p_attribute9 IS NOT NULL
5301: AND p_attribute9 <> nvl(l_budget_line_rec.attribute9,FND_API.G_MISS_CHAR)
5302: THEN
5303: IF p_attribute9 = FND_API.G_MISS_CHAR THEN
5304: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute9', TO_CHAR(NULL));
5305: ELSE
5306: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute9', p_attribute9);
5307: END IF;
5307: END IF;
5308: END IF;
5309:
5310: IF p_attribute10 IS NOT NULL
5311: AND p_attribute10 <> nvl(l_budget_line_rec.attribute10,FND_API.G_MISS_CHAR)
5312: THEN
5313: IF p_attribute10 = FND_API.G_MISS_CHAR THEN
5314: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute10', TO_CHAR(NULL));
5315: ELSE
5309:
5310: IF p_attribute10 IS NOT NULL
5311: AND p_attribute10 <> nvl(l_budget_line_rec.attribute10,FND_API.G_MISS_CHAR)
5312: THEN
5313: IF p_attribute10 = FND_API.G_MISS_CHAR THEN
5314: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute10', TO_CHAR(NULL));
5315: ELSE
5316: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute10', p_attribute10);
5317: END IF;
5317: END IF;
5318: END IF;
5319:
5320: IF p_attribute11 IS NOT NULL
5321: AND p_attribute11 <> nvl(l_budget_line_rec.attribute11,FND_API.G_MISS_CHAR)
5322: THEN
5323: IF p_attribute11 = FND_API.G_MISS_CHAR THEN
5324: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute11', TO_CHAR(NULL));
5325: ELSE
5319:
5320: IF p_attribute11 IS NOT NULL
5321: AND p_attribute11 <> nvl(l_budget_line_rec.attribute11,FND_API.G_MISS_CHAR)
5322: THEN
5323: IF p_attribute11 = FND_API.G_MISS_CHAR THEN
5324: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute11', TO_CHAR(NULL));
5325: ELSE
5326: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute11', p_attribute11);
5327: END IF;
5327: END IF;
5328: END IF;
5329:
5330: IF p_attribute12 IS NOT NULL
5331: AND p_attribute12 <> nvl(l_budget_line_rec.attribute12,FND_API.G_MISS_CHAR)
5332: THEN
5333: IF p_attribute12 = FND_API.G_MISS_CHAR THEN
5334: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute12', TO_CHAR(NULL));
5335: ELSE
5329:
5330: IF p_attribute12 IS NOT NULL
5331: AND p_attribute12 <> nvl(l_budget_line_rec.attribute12,FND_API.G_MISS_CHAR)
5332: THEN
5333: IF p_attribute12 = FND_API.G_MISS_CHAR THEN
5334: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute12', TO_CHAR(NULL));
5335: ELSE
5336: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute12', p_attribute12);
5337: END IF;
5337: END IF;
5338: END IF;
5339:
5340: IF p_attribute13 IS NOT NULL
5341: AND p_attribute13 <> nvl(l_budget_line_rec.attribute13,FND_API.G_MISS_CHAR)
5342: THEN
5343: IF p_attribute13 = FND_API.G_MISS_CHAR THEN
5344: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute13', TO_CHAR(NULL));
5345: ELSE
5339:
5340: IF p_attribute13 IS NOT NULL
5341: AND p_attribute13 <> nvl(l_budget_line_rec.attribute13,FND_API.G_MISS_CHAR)
5342: THEN
5343: IF p_attribute13 = FND_API.G_MISS_CHAR THEN
5344: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute13', TO_CHAR(NULL));
5345: ELSE
5346: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute13', p_attribute13);
5347: END IF;
5347: END IF;
5348: END IF;
5349:
5350: IF p_attribute14 IS NOT NULL
5351: AND p_attribute14 <> nvl(l_budget_line_rec.attribute14,FND_API.G_MISS_CHAR)
5352: THEN
5353: IF p_attribute14 = FND_API.G_MISS_CHAR THEN
5354: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute14', TO_CHAR(NULL));
5355: ELSE
5349:
5350: IF p_attribute14 IS NOT NULL
5351: AND p_attribute14 <> nvl(l_budget_line_rec.attribute14,FND_API.G_MISS_CHAR)
5352: THEN
5353: IF p_attribute14 = FND_API.G_MISS_CHAR THEN
5354: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute14', TO_CHAR(NULL));
5355: ELSE
5356: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute14', p_attribute14);
5357: END IF;
5357: END IF;
5358: END IF;
5359:
5360: IF p_attribute15 IS NOT NULL
5361: AND p_attribute15 <> nvl(l_budget_line_rec.attribute15,FND_API.G_MISS_CHAR)
5362: THEN
5363: IF p_attribute15 = FND_API.G_MISS_CHAR THEN
5364: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute15', TO_CHAR(NULL));
5365: ELSE
5359:
5360: IF p_attribute15 IS NOT NULL
5361: AND p_attribute15 <> nvl(l_budget_line_rec.attribute15,FND_API.G_MISS_CHAR)
5362: THEN
5363: IF p_attribute15 = FND_API.G_MISS_CHAR THEN
5364: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute15', TO_CHAR(NULL));
5365: ELSE
5366: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':xAttribute15', p_attribute15);
5367: END IF;
5418: x_msg_count => l_msg_count,
5419: x_msg_data => l_msg_data);
5420: END IF;
5421:
5422: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5423: RAISE g_mrc_exception;
5424: END IF;
5425:
5426: END IF;--nvl(l_rows,0) > 0
5482: x_msg_count => l_msg_count,
5483: x_msg_data => l_msg_data);
5484: END IF;
5485:
5486: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5487: RAISE g_mrc_exception;
5488: END IF;
5489: END IF; --nvl(l_rows,0) > 0
5490: */
5499: ( p_pkg_name => 'PA_BUDGET_LINES_V_PKG'
5500: , p_procedure_name => 'DELETE_ROW'
5501: , p_error_text => SQLCODE );
5502: END IF;
5503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5504: END;
5505:
5506: END IF;
5507: END IF; --time phased by PA or GL period
5508: END IF;--l_update_yes_flag = 'Y'
5509:
5510: EXCEPTION
5511:
5512: WHEN FND_API.G_EXC_ERROR
5513: THEN
5514:
5515: ROLLBACK TO update_budget_line_sql_pvt;
5516:
5513: THEN
5514:
5515: ROLLBACK TO update_budget_line_sql_pvt;
5516:
5517: p_return_status := FND_API.G_RET_STS_ERROR;
5518:
5519: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5520: THEN
5521:
5515: ROLLBACK TO update_budget_line_sql_pvt;
5516:
5517: p_return_status := FND_API.G_RET_STS_ERROR;
5518:
5519: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
5520: THEN
5521:
5522: ROLLBACK TO update_budget_line_sql_pvt;
5523:
5520: THEN
5521:
5522: ROLLBACK TO update_budget_line_sql_pvt;
5523:
5524: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5525:
5526: WHEN OTHERS THEN
5527:
5528: ROLLBACK TO update_budget_line_sql_pvt;
5526: WHEN OTHERS THEN
5527:
5528: ROLLBACK TO update_budget_line_sql_pvt;
5529:
5530: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5531:
5532: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5533: THEN
5534: FND_MSG_PUB.add_exc_msg
6035: l_cbs_enabled_project varchar2(1) :='N'; -- Added for CBS 16604257
6036:
6037: BEGIN
6038: x_msg_count :=0;
6039: x_return_status := FND_API.G_RET_STS_SUCCESS;
6040: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
6041: l_module_name := 'Validate_Budget_Lines: ' || g_module_name;
6042:
6043: IF l_debug_mode = 'Y' THEN
6157: IF p_budget_type_code is not null and l_cbs_enabled_project ='Y' THEN --Form based project are not supported for CBS
6158: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
6159: ,p_msg_name => 'PA_FP_CBS_ENABLED'
6160: );
6161: l_return_status := FND_API.G_RET_STS_ERROR;
6162: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6163: END IF;
6164:
6165: -- Bug 3986129: FP.M Web ADI Dev changes:
6254:
6255: END IF; -- Bug 5509192
6256:
6257: --Set API return status to success
6258: x_return_status := FND_API.G_RET_STS_SUCCESS;
6259:
6260: -- Get segment1 for AMG messages
6261: OPEN l_amg_project_csr( p_pa_project_id );
6262: FETCH l_amg_project_csr INTO l_amg_project_rec;
6360: ,x_return_status => x_return_status
6361: ,x_msg_count => x_msg_count
6362: ,x_msg_data => x_msg_data);
6363:
6364: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6365:
6366: IF l_debug_mode = 'Y' THEN
6367: pa_debug.g_err_stage:= 'pa_fin_plan_utils.Get_Project_Curr_Attributes errored out for project' ||p_pa_project_id;
6368: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6404: IF px_budget_lines_in.exists(px_budget_lines_in.first) THEN
6405: --Loop thru the pl/sql table and validate each budget line
6406: FOR i IN px_budget_lines_in.first..px_budget_lines_in.last LOOP
6407: /* Bug 3133930 */
6408: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_SUCCESS;
6409: --Initialise all the global variables to null
6410: pa_budget_pvt.g_Task_number := NULL;
6411: pa_budget_pvt.g_start_date := NULL;
6412: pa_budget_pvt.g_resource_alias := NULL;
6440: IF l_debug_mode = 'Y' THEN
6441: pa_debug.g_err_stage:= 'PM Product code is invalid';
6442: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6443: END IF;
6444: x_return_status := FND_API.G_RET_STS_ERROR;
6445: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_ERROR;
6446: l_any_error_occurred_flag:='Y';
6447: END IF;
6448:
6441: pa_debug.g_err_stage:= 'PM Product code is invalid';
6442: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6443: END IF;
6444: x_return_status := FND_API.G_RET_STS_ERROR;
6445: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_ERROR;
6446: l_any_error_occurred_flag:='Y';
6447: END IF;
6448:
6449: END IF;
6519: pa_debug.g_err_stage:= 'Converted Task Id is ' || px_budget_lines_in(i).pa_task_id;
6520: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
6521: END IF;
6522:
6523: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6524: /* Bug 3133930- set the return status to the new output variable */
6525: x_budget_lines_out(i).return_status := x_return_status;
6526:
6527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6523: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6524: /* Bug 3133930- set the return status to the new output variable */
6525: x_budget_lines_out(i).return_status := x_return_status;
6526:
6527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6528: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6529: -- exception is raised here because we cannot go ahead and do further validations
6530: -- as other validations depend upon task id to be correct.
6531: --RAISE FND_API.G_EXC_ERROR; AMG UT2
6524: /* Bug 3133930- set the return status to the new output variable */
6525: x_budget_lines_out(i).return_status := x_return_status;
6526:
6527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6528: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6529: -- exception is raised here because we cannot go ahead and do further validations
6530: -- as other validations depend upon task id to be correct.
6531: --RAISE FND_API.G_EXC_ERROR; AMG UT2
6532: x_budget_lines_out(i).return_status := x_return_status;
6527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6528: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6529: -- exception is raised here because we cannot go ahead and do further validations
6530: -- as other validations depend upon task id to be correct.
6531: --RAISE FND_API.G_EXC_ERROR; AMG UT2
6532: x_budget_lines_out(i).return_status := x_return_status;
6533: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6534: --Changed the elsif below for bug#4488926.
6535: ELSIF (px_budget_lines_in(i).pa_task_id IS NOT NULL) THEN /*if the API above executes successfully
6604: ,p_attribute3 => ''
6605: ,p_attribute4 => ''
6606: ,p_attribute5 => '');
6607: END IF;
6608: -- RAISE FND_API.G_EXC_ERROR;
6609: x_return_status := FND_API.G_RET_STS_ERROR;
6610: /* Bug 3133930- set the return status to the new output variable */
6611: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_ERROR;
6612:
6605: ,p_attribute4 => ''
6606: ,p_attribute5 => '');
6607: END IF;
6608: -- RAISE FND_API.G_EXC_ERROR;
6609: x_return_status := FND_API.G_RET_STS_ERROR;
6610: /* Bug 3133930- set the return status to the new output variable */
6611: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_ERROR;
6612:
6613: l_any_error_occurred_flag:='Y';
6607: END IF;
6608: -- RAISE FND_API.G_EXC_ERROR;
6609: x_return_status := FND_API.G_RET_STS_ERROR;
6610: /* Bug 3133930- set the return status to the new output variable */
6611: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_ERROR;
6612:
6613: l_any_error_occurred_flag:='Y';
6614: END IF;
6615: ELSIF p_entry_level_code = 'L' -- then check whether it is lowest task
6629: ,p_attribute3 => ''
6630: ,p_attribute4 => ''
6631: ,p_attribute5 => '');
6632: END IF;
6633: --RAISE FND_API.G_EXC_ERROR;
6634: x_return_status := FND_API.G_RET_STS_ERROR;
6635: /* Bug 3133930- set the return status to the new output variable */
6636: x_budget_lines_out(i).return_status := x_return_status;
6637:
6630: ,p_attribute4 => ''
6631: ,p_attribute5 => '');
6632: END IF;
6633: --RAISE FND_API.G_EXC_ERROR;
6634: x_return_status := FND_API.G_RET_STS_ERROR;
6635: /* Bug 3133930- set the return status to the new output variable */
6636: x_budget_lines_out(i).return_status := x_return_status;
6637:
6638: l_any_error_occurred_flag:='Y';
6667: ,p_attribute3 => ''
6668: ,p_attribute4 => ''
6669: ,p_attribute5 => '');
6670: END IF;
6671: --RAISE FND_API.G_EXC_ERROR;
6672: x_return_status := FND_API.G_RET_STS_ERROR;
6673: /* Bug 3133930- set the return status to the new output variable */
6674: x_budget_lines_out(i).return_status := x_return_status;
6675:
6668: ,p_attribute4 => ''
6669: ,p_attribute5 => '');
6670: END IF;
6671: --RAISE FND_API.G_EXC_ERROR;
6672: x_return_status := FND_API.G_RET_STS_ERROR;
6673: /* Bug 3133930- set the return status to the new output variable */
6674: x_budget_lines_out(i).return_status := x_return_status;
6675:
6676: l_any_error_occurred_flag:='Y';
6713: p_token2 => 'TASK',
6714: p_value2 => l_amg_top_task_number);
6715:
6716:
6717: x_return_status := FND_API.G_RET_STS_ERROR;
6718: /* Bug 3133930- set the return status to the new output variable */
6719: x_budget_lines_out(i).return_status := x_return_status;
6720:
6721: l_any_error_occurred_flag := 'Y';
6761: ,p_attribute3 => ''
6762: ,p_attribute4 => ''
6763: ,p_attribute5 => '');
6764: END IF;
6765: -- RAISE FND_API.G_EXC_ERROR;
6766: x_return_status := FND_API.G_RET_STS_ERROR;
6767: /* Bug 3133930- set the return status to the new output variable */
6768: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_ERROR;
6769: END IF;
6762: ,p_attribute4 => ''
6763: ,p_attribute5 => '');
6764: END IF;
6765: -- RAISE FND_API.G_EXC_ERROR;
6766: x_return_status := FND_API.G_RET_STS_ERROR;
6767: /* Bug 3133930- set the return status to the new output variable */
6768: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_ERROR;
6769: END IF;
6770: l_any_error_occurred_flag:='Y';
6764: END IF;
6765: -- RAISE FND_API.G_EXC_ERROR;
6766: x_return_status := FND_API.G_RET_STS_ERROR;
6767: /* Bug 3133930- set the return status to the new output variable */
6768: x_budget_lines_out(i).return_status := FND_API.G_RET_STS_ERROR;
6769: END IF;
6770: l_any_error_occurred_flag:='Y';
6771: END IF;
6772:
6804: IF x_return_status <> 'S' THEN
6805: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
6806: ,p_msg_name => x_msg_data
6807: );
6808: x_return_status := FND_API.G_RET_STS_ERROR;
6809: x_budget_lines_out(i).return_status := x_return_status;
6810:
6811: END IF;
6812:
6815: ,p_msg_name => 'PA_CBS_WP__COST_CODE_MNDTR'
6816: ,p_token1 => 'RES_NAME'
6817: ,p_value1 => PA_TASK_UTILS.get_resource_name(px_budget_lines_in(i).resource_list_member_id)
6818: );
6819: x_return_status := FND_API.G_RET_STS_ERROR;
6820: x_budget_lines_out(i).return_status := x_return_status;
6821: --RAISE FND_API.G_EXC_ERROR;
6822:
6823:
6817: ,p_value1 => PA_TASK_UTILS.get_resource_name(px_budget_lines_in(i).resource_list_member_id)
6818: );
6819: x_return_status := FND_API.G_RET_STS_ERROR;
6820: x_budget_lines_out(i).return_status := x_return_status;
6821: --RAISE FND_API.G_EXC_ERROR;
6822:
6823:
6824: END IF;
6825:
6833: IF ( p_calling_context not in ('RES_ASSGNMT_LEVEL_VALIDATION','UPDATE_PLANNING_ELEMENT_ATTR') )
6834: THEN
6835: IF p_calling_context = 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
6836: -- checking if the planning start date/end date has been explcitely nulled ou
6837: IF p_planning_start_date_tbl(i) = FND_API.G_MISS_DATE OR
6838: p_planning_end_date_tbl(i) = FND_API.G_MISS_DATE THEN
6839: l_webadi_err_code_tbl.extend(1);
6840: l_webadi_err_code_tbl(l_webadi_err_code_tbl.COUNT) := 'PA_FP_WA_PLAN_DATES_NULLED_OUT';
6841: l_webadi_err_task_id_tbl.extend(1);
6834: THEN
6835: IF p_calling_context = 'WEBADI' THEN -- Bug 3986129: FP.M Web ADI Dev changes
6836: -- checking if the planning start date/end date has been explcitely nulled ou
6837: IF p_planning_start_date_tbl(i) = FND_API.G_MISS_DATE OR
6838: p_planning_end_date_tbl(i) = FND_API.G_MISS_DATE THEN
6839: l_webadi_err_code_tbl.extend(1);
6840: l_webadi_err_code_tbl(l_webadi_err_code_tbl.COUNT) := 'PA_FP_WA_PLAN_DATES_NULLED_OUT';
6841: l_webadi_err_task_id_tbl.extend(1);
6842: l_webadi_err_task_id_tbl(l_webadi_err_task_id_tbl.COUNT) := px_budget_lines_in(i).pa_task_id;
6850: END IF;
6851:
6852: -- before calling get_valid_periods_dates validating the followings
6853: IF (px_budget_lines_in(i).budget_start_date IS NOT NULL OR
6854: px_budget_lines_in(i).budget_start_date <> FND_API.G_MISS_DATE) AND
6855: (px_budget_lines_in(i).budget_end_date IS NOT NULL OR
6856: px_budget_lines_in(i).budget_end_date <> FND_API.G_MISS_DATE) THEN
6857:
6858: -- checking if the budget line start date/ end date falls between
6852: -- before calling get_valid_periods_dates validating the followings
6853: IF (px_budget_lines_in(i).budget_start_date IS NOT NULL OR
6854: px_budget_lines_in(i).budget_start_date <> FND_API.G_MISS_DATE) AND
6855: (px_budget_lines_in(i).budget_end_date IS NOT NULL OR
6856: px_budget_lines_in(i).budget_end_date <> FND_API.G_MISS_DATE) THEN
6857:
6858: -- checking if the budget line start date/ end date falls between
6859: -- the planning start date/ end date
6860: -- Added for the bug 4414062
6924: ,p_context => 'WEBADI'
6925: ,p_return_status => x_return_status
6926: ,x_error_code => l_new_error_code);
6927:
6928: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
6929: -- populationg the error tbl variables to call process_errors at the end
6930: l_webadi_err_code_tbl.extend(1);
6931: l_webadi_err_code_tbl(l_webadi_err_code_tbl.COUNT) := l_new_error_code;
6932: l_webadi_err_task_id_tbl.extend(1);
6947: END IF;
6948:
6949: IF (l_calling_model_context = 'BUDGETSMODEL') or (NOT(p_time_phased_code = 'N' AND -- Bug no 5846942
6950: (px_budget_lines_in(i).budget_start_date IS NULL
6951: OR px_budget_lines_in(i).budget_start_date = FND_API.G_MISS_DATE )
6952: AND (px_budget_lines_in(i).budget_end_date IS NULL
6953: OR px_budget_lines_in(i).budget_end_date = FND_API.G_MISS_DATE )) )THEN
6954:
6955:
6949: IF (l_calling_model_context = 'BUDGETSMODEL') or (NOT(p_time_phased_code = 'N' AND -- Bug no 5846942
6950: (px_budget_lines_in(i).budget_start_date IS NULL
6951: OR px_budget_lines_in(i).budget_start_date = FND_API.G_MISS_DATE )
6952: AND (px_budget_lines_in(i).budget_end_date IS NULL
6953: OR px_budget_lines_in(i).budget_end_date = FND_API.G_MISS_DATE )) )THEN
6954:
6955:
6956: get_valid_period_dates
6957: ( p_project_id => p_pa_project_id
6970: END IF;
6971: END IF; -- Bug 3986129
6972:
6973: pa_budget_pvt.g_start_date := px_budget_lines_in(i).budget_start_date;
6974: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6975: -- RAISE FND_API.G_EXC_ERROR;
6976: -- as the API get_valid_period_dates adds the error msg to the stack hence we
6977: -- do not need to add the error msg in this API.
6978: /* Bug 3133930- set the return status to the new output variable */
6971: END IF; -- Bug 3986129
6972:
6973: pa_budget_pvt.g_start_date := px_budget_lines_in(i).budget_start_date;
6974: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6975: -- RAISE FND_API.G_EXC_ERROR;
6976: -- as the API get_valid_period_dates adds the error msg to the stack hence we
6977: -- do not need to add the error msg in this API.
6978: /* Bug 3133930- set the return status to the new output variable */
6979: x_budget_lines_out(i).return_status := x_return_status;
7022: ,p_allow_burd_cost_rate_flag => p_allow_burd_cost_rate_flag
7023: ,p_allow_bill_rate_flag => p_allow_bill_rate_flag
7024: ,x_webadi_error_code => l_new_error_code);
7025:
7026: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
7027: l_webadi_err_code_tbl.extend(1);
7028: l_webadi_err_code_tbl(l_webadi_err_code_tbl.COUNT) := l_new_error_code;
7029: l_webadi_err_task_id_tbl.extend(1);
7030: l_webadi_err_task_id_tbl(l_webadi_err_task_id_tbl.COUNT) := px_budget_lines_in(i).pa_task_id;
7051: ,p_allow_revenue_flag => p_allow_revenue_flag
7052: ,x_webadi_error_code => l_new_error_code);
7053: END IF; -- Bug 3986129
7054: END IF;
7055: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7056: THEN
7057: /* Bug 3133930- set the return status to the new output variable */
7058: x_budget_lines_out(i).return_status := x_return_status;
7059:
7056: THEN
7057: /* Bug 3133930- set the return status to the new output variable */
7058: x_budget_lines_out(i).return_status := x_return_status;
7059:
7060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7061:
7062: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
7063: THEN
7064: --RAISE FND_API.G_EXC_ERROR;
7058: x_budget_lines_out(i).return_status := x_return_status;
7059:
7060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7061:
7062: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
7063: THEN
7064: --RAISE FND_API.G_EXC_ERROR;
7065: -- as the called api adds msg to stack hence no need to add err msg here.
7066:
7060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7061:
7062: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
7063: THEN
7064: --RAISE FND_API.G_EXC_ERROR;
7065: -- as the called api adds msg to stack hence no need to add err msg here.
7066:
7067: /* Bug 3133930- set the return status to the new output variable */
7068: x_budget_lines_out(i).return_status := x_return_status;
7135: ,p_out_resource_list_member_id => px_budget_lines_in(i).resource_list_member_id
7136: ,p_return_status => x_return_status );
7137:
7138: --dbms_output.put_line('----- p_out_resource_list_member_id: -----' || p_out_resource_list_member_id);
7139: IF x_return_status = FND_API.G_RET_STS_SUCCESS
7140: THEN
7141: -- Initialise valid rlmid variable to Y
7142: l_valid_rlmid := 'Y';
7143: IF((p_budget_type_code IS NOT NULL) AND
7161: ,p_attribute3 => l_context_info
7162: ,p_attribute4 => ''
7163: ,p_attribute5 => to_char(px_budget_lines_in(i).budget_start_date));
7164: END IF;
7165: x_return_status := FND_API.G_RET_STS_ERROR;
7166: /* Bug 3133930- set the return status to the new output variable */
7167: x_budget_lines_out(i).return_status := x_return_status;
7168: CLOSE l_resource_csr;
7169:
7168: CLOSE l_resource_csr;
7169:
7170: l_any_error_occurred_flag:='Y';
7171: l_valid_rlmid := 'N';
7172: --RAISE FND_API.G_EXC_ERROR;
7173: ELSE
7174: CLOSE l_resource_csr;
7175: END IF;
7176:
7177: /* bug 3954329: included the following check */
7178: IF l_rlm_migration_code = 'N' THEN
7179: l_any_error_occurred_flag:='Y';
7180: l_valid_rlmid := 'N';
7181: x_return_status := FND_API.G_RET_STS_ERROR;
7182: x_budget_lines_out(i).return_status := x_return_status;
7183: PA_UTILS.ADD_MESSAGE
7184: ( p_app_short_name => 'PA',
7185: p_msg_name => 'PA_FP_OLD_MOD_NEW_RLM_PASSED');
7214: ,p_attribute3 => l_context_info
7215: ,p_attribute4 => ''
7216: ,p_attribute5 => to_char(px_budget_lines_in(i).budget_start_date));
7217: END IF;
7218: x_return_status := FND_API.G_RET_STS_ERROR;
7219: x_budget_lines_out(i).return_status := x_return_status;
7220: END IF;
7221: CLOSE l_resource_csr_fp;
7222:
7238: l_webadi_err_txn_curr_tbl(l_webadi_err_txn_curr_tbl.COUNT) := px_budget_lines_in(i).txn_currency_code;
7239: l_webadi_err_amt_type_tbl.extend(1);
7240: l_webadi_err_amt_type_tbl(l_webadi_err_amt_type_tbl.COUNT) := p_amount_type_tbl(i);
7241: ELSE
7242: x_return_status := FND_API.G_RET_STS_ERROR;
7243: x_budget_lines_out(i).return_status := x_return_status;
7244: PA_UTILS.ADD_MESSAGE
7245: ( p_app_short_name => 'PA',
7246: p_msg_name => 'PA_FP_NEW_MOD_OLD_RLM_PASSED');
7270: IF l_resource_type_code = 'UNCLASSIFIED' THEN
7271:
7272: l_any_error_occurred_flag:='Y';
7273: l_valid_rlmid := 'N';
7274: x_return_status := FND_API.G_RET_STS_ERROR;
7275: /* Bug 3133930- set the return status to the new output variable */
7276: x_budget_lines_out(i).return_status := x_return_status;
7277:
7278: PA_UTILS.ADD_MESSAGE
7326: l_rlm_id_tbl('RLMID' || px_budget_lines_in(i).resource_list_member_id) :=
7327: px_budget_lines_in(i).resource_list_member_id;
7328: END IF;
7329: END IF;
7330: END IF; --x_return_status = FND_API.G_RET_STS_SUCCESS THEN
7331:
7332: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7333: THEN
7334: /* Bug 3133930- set the return status to the new output variable */
7328: END IF;
7329: END IF;
7330: END IF; --x_return_status = FND_API.G_RET_STS_SUCCESS THEN
7331:
7332: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7333: THEN
7334: /* Bug 3133930- set the return status to the new output variable */
7335: x_budget_lines_out(i).return_status := x_return_status;
7336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7332: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
7333: THEN
7334: /* Bug 3133930- set the return status to the new output variable */
7335: x_budget_lines_out(i).return_status := x_return_status;
7336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7337:
7338: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
7339: THEN
7340: /* Bug 3133930- set the return status to the new output variable */
7334: /* Bug 3133930- set the return status to the new output variable */
7335: x_budget_lines_out(i).return_status := x_return_status;
7336: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7337:
7338: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
7339: THEN
7340: /* Bug 3133930- set the return status to the new output variable */
7341: x_budget_lines_out(i).return_status := x_return_status;
7342: --RAISE FND_API.G_EXC_ERROR;
7338: ELSIF x_return_status = FND_API.G_RET_STS_ERROR
7339: THEN
7340: /* Bug 3133930- set the return status to the new output variable */
7341: x_budget_lines_out(i).return_status := x_return_status;
7342: --RAISE FND_API.G_EXC_ERROR;
7343: -- error message is added by the called API. Hence no error msg need to be added here.
7344: l_any_error_occurred_flag:='Y';
7345: END IF;
7346: ELSE --IF( NOT(l_rlm_id_tbl.exists(l_distinct_rlmid_idx) ) )
7367: ,p_attribute2 => l_amg_task_number
7368: ,p_attribute3 => l_context_info
7369: ,p_attribute4 => ''
7370: ,p_attribute5 => to_char(px_budget_lines_in(i).budget_start_date));
7371: --RAISE FND_API.G_EXC_ERROR;
7372: END IF;
7373: x_return_status := FND_API.G_RET_STS_ERROR;
7374: /* Bug 3133930- set the return status to the new output variable */
7375: x_budget_lines_out(i).return_status := x_return_status;
7369: ,p_attribute4 => ''
7370: ,p_attribute5 => to_char(px_budget_lines_in(i).budget_start_date));
7371: --RAISE FND_API.G_EXC_ERROR;
7372: END IF;
7373: x_return_status := FND_API.G_RET_STS_ERROR;
7374: /* Bug 3133930- set the return status to the new output variable */
7375: x_budget_lines_out(i).return_status := x_return_status;
7376: l_any_error_occurred_flag:='Y';
7377: END IF;
7394: (p_calling_context='UPDATE_PLANNING_ELEMENT_ATTR' and l_valid_rlmid ='Y') THEN --Bug 5509192
7395:
7396: -- validating resource level attributes
7397: IF p_uom_tbl(i) IS NOT NULL AND
7398: p_uom_tbl(i) = FND_API.G_MISS_CHAR THEN
7399: -- UOM has been nulled out
7400: l_webadi_err_code_tbl.extend(1);
7401: l_webadi_err_code_tbl(l_webadi_err_code_tbl.COUNT) := 'PA_FP_WA_UOM_NULLED_OUT';
7402: l_webadi_err_task_id_tbl.extend(1);
7408: l_webadi_err_amt_type_tbl.extend(1);
7409: l_webadi_err_amt_type_tbl(l_webadi_err_amt_type_tbl.COUNT) := p_amount_type_tbl(i);
7410: l_any_error_occurred_flag := 'Y';
7411: ELSIF p_uom_tbl(i) IS NOT NULL AND
7412: p_uom_tbl(i) <> FND_API.G_MISS_CHAR THEN
7413: -- value for UOM has been passed
7414: -- calling an api to validate the UOM passed
7415: PA_BUDGET_CHECK_PVT.validate_uom_passed
7416: (p_res_list_mem_id => px_budget_lines_in(i).resource_list_member_id,
7419: x_return_status => x_return_status,
7420: x_msg_data => x_msg_data,
7421: x_msg_count => x_msg_count);
7422:
7423: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
7424: IF l_new_error_code IS NOT NULL THEN
7425: l_webadi_err_code_tbl.extend(1);
7426: l_webadi_err_code_tbl(l_webadi_err_code_tbl.COUNT) := l_new_error_code;
7427: l_webadi_err_task_id_tbl.extend(1);
7444: l_etc_method_code :=null;
7445:
7446: IF p_etc_method_name_tbl(i) IS NOT NULL AND
7447: (p_calling_context = 'UPDATE_PLANNING_ELEMENT_ATTR' or
7448: p_etc_method_name_tbl(i) <> FND_API.G_MISS_CHAR) THEN
7449: BEGIN
7450: SELECT lookup_code
7451: INTO l_etc_method_code
7452: FROM pa_lookups
7501:
7502:
7503:
7504: IF p_mfc_cost_type_tbl(i) IS NOT NULL AND
7505: p_mfc_cost_type_tbl(i) <> FND_API.G_MISS_CHAR THEN
7506: BEGIN
7507: SELECT cost_type_id
7508: INTO l_mfc_cost_type_id
7509: FROM CST_COST_TYPES_V
7541: l_spread_curve_id :=null;
7542:
7543: -- validating spread curve
7544: IF p_calling_context='WEBADI' and p_spread_curve_id_tbl.EXISTS(i) AND
7545: (p_spread_curve_id_tbl(i) IS NULL OR p_spread_curve_id_tbl(i) <> FND_API.G_MISS_NUM) THEN
7546: x_spread_curve_id_tbl.EXTEND(1);
7547: x_spread_curve_id_tbl(x_spread_curve_id_tbl.COUNT) := p_spread_curve_id_tbl(i);
7548: ELSE
7549: IF p_spread_curve_name_tbl(i) IS NOT NULL AND
7546: x_spread_curve_id_tbl.EXTEND(1);
7547: x_spread_curve_id_tbl(x_spread_curve_id_tbl.COUNT) := p_spread_curve_id_tbl(i);
7548: ELSE
7549: IF p_spread_curve_name_tbl(i) IS NOT NULL AND
7550: p_spread_curve_name_tbl(i) = FND_API.G_MISS_CHAR AND
7551: p_calling_context <> 'UPDATE_PLANNING_ELEMENT_ATTR' THEN
7552:
7553: l_webadi_err_code_tbl.extend(1);
7554: l_webadi_err_code_tbl(l_webadi_err_code_tbl.COUNT) := 'PA_FP_WA_SC_NULLED_OUT';
7562: l_webadi_err_amt_type_tbl(l_webadi_err_amt_type_tbl.COUNT) := p_amount_type_tbl(i);
7563: l_any_error_occurred_flag := 'Y';
7564: ELSIF p_spread_curve_name_tbl(i) IS NOT NULL AND
7565: (p_calling_context = 'UPDATE_PLANNING_ELEMENT_ATTR' or
7566: p_spread_curve_name_tbl(i) <> FND_API.G_MISS_CHAR) THEN
7567:
7568: BEGIN
7569: SELECT spread_curve_id
7570: INTO l_spread_curve_id
7684: end if;
7685:
7686: l_invalid_plandates_flag :='N';
7687:
7688: if p_planning_start_date_tbl(i) = FND_API.G_MISS_DATE or
7689: p_planning_end_date_tbl(i) = FND_API.G_MISS_DATE then
7690: if px_budget_lines_in(i).pa_task_id <> 0 then
7691: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7692: p_msg_name => 'INVALID_PLANNING_DATES_AMG',
7685:
7686: l_invalid_plandates_flag :='N';
7687:
7688: if p_planning_start_date_tbl(i) = FND_API.G_MISS_DATE or
7689: p_planning_end_date_tbl(i) = FND_API.G_MISS_DATE then
7690: if px_budget_lines_in(i).pa_task_id <> 0 then
7691: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7692: p_msg_name => 'INVALID_PLANNING_DATES_AMG',
7693: p_token1 => 'PROJECT_OR_TASK_NUMBER',
7711: ((p_planning_start_date_tbl(i) is null and
7712: p_planning_end_date_tbl(i) is not null) or
7713: (p_planning_start_date_tbl(i) is not null and
7714: p_planning_end_date_tbl(i) is null) or
7715: (nvl(p_planning_end_date_tbl(i),FND_API.G_MISS_DATE) <
7716: nvl(p_planning_start_date_tbl(i),FND_API.G_MISS_DATE)))) then
7717:
7718: if px_budget_lines_in(i).pa_task_id <> 0 then
7719: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7712: p_planning_end_date_tbl(i) is not null) or
7713: (p_planning_start_date_tbl(i) is not null and
7714: p_planning_end_date_tbl(i) is null) or
7715: (nvl(p_planning_end_date_tbl(i),FND_API.G_MISS_DATE) <
7716: nvl(p_planning_start_date_tbl(i),FND_API.G_MISS_DATE)))) then
7717:
7718: if px_budget_lines_in(i).pa_task_id <> 0 then
7719: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7720: p_msg_name => 'INVALID_PLANNING_DATES_AMG',
7735:
7736: end if;
7737:
7738: IF l_spread_curve_id = l_fixed_date_sp_id THEN
7739: if (l_sp_fixed_date is null and (p_sp_fixed_date_tbl(i) is null or p_sp_fixed_date_tbl(i)= FND_API.G_MISS_DATE )) or
7740: (l_sp_fixed_date is not null and p_sp_fixed_date_tbl(i)= FND_API.G_MISS_DATE)
7741: then
7742: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7743: p_msg_name => 'PA_FP_SP_FIXED_DATE_NULL');
7736: end if;
7737:
7738: IF l_spread_curve_id = l_fixed_date_sp_id THEN
7739: if (l_sp_fixed_date is null and (p_sp_fixed_date_tbl(i) is null or p_sp_fixed_date_tbl(i)= FND_API.G_MISS_DATE )) or
7740: (l_sp_fixed_date is not null and p_sp_fixed_date_tbl(i)= FND_API.G_MISS_DATE)
7741: then
7742: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7743: p_msg_name => 'PA_FP_SP_FIXED_DATE_NULL');
7744: l_any_error_occurred_flag := 'Y';
7784: Nvl(p_delete_flag_tbl(i), 'N') <> 'Y')))
7785: THEN
7786: --Validate the change reason code. This validation is added for Fin plan model in FP L
7787: IF (px_budget_lines_in(i).change_reason_code IS NOT NULL AND
7788: ((p_calling_context = 'WEBADI' AND px_budget_lines_in(i).change_reason_code <> FND_API.G_MISS_CHAR) OR
7789: (p_calling_context <> 'WEBADI' AND px_budget_lines_in(i).change_reason_code <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR))) THEN
7790:
7791: OPEN l_budget_change_reason_csr( px_budget_lines_in(i).change_reason_code );
7792: FETCH l_budget_change_reason_csr INTO l_dummy;
7816: p_value3 => l_context_info ,
7817: p_token4 => 'START_DATE',
7818: p_value4 => to_char(px_budget_lines_in(i).budget_start_date));
7819: END IF;
7820: x_return_status := FND_API.G_RET_STS_ERROR;
7821: /* Bug 3133930- set the return status to the new output variable */
7822: x_budget_lines_out(i).return_status := x_return_status;
7823: --RAISE FND_API.G_EXC_ERROR;
7824: ELSE --p_calling_context <> 'WEBADI' THEN
7819: END IF;
7820: x_return_status := FND_API.G_RET_STS_ERROR;
7821: /* Bug 3133930- set the return status to the new output variable */
7822: x_budget_lines_out(i).return_status := x_return_status;
7823: --RAISE FND_API.G_EXC_ERROR;
7824: ELSE --p_calling_context <> 'WEBADI' THEN
7825: -- populate the error code specific to webadi context
7826: l_webadi_err_code_tbl.extend(1);
7827: l_webadi_err_code_tbl(l_webadi_err_code_tbl.COUNT) := 'PA_FP_WA_INV_RESN_CODE_PASSED';
7861: IF ( p_calling_context = 'BUDGET_LINE_LEVEL_VALIDATION' and p_version_info_rec.x_budget_version_id is not null)
7862: THEN
7863: -- Start of Bug 8854015
7864: IF (px_budget_lines_in(i).budget_start_date IS NOT NULL AND
7865: px_budget_lines_in(i).budget_start_date <> FND_API.G_MISS_DATE) AND
7866: (px_budget_lines_in(i).budget_end_date IS NOT NULL AND
7867: px_budget_lines_in(i).budget_end_date <> FND_API.G_MISS_DATE) AND
7868: l_period_time_phased_code = 'N'
7869: THEN
7863: -- Start of Bug 8854015
7864: IF (px_budget_lines_in(i).budget_start_date IS NOT NULL AND
7865: px_budget_lines_in(i).budget_start_date <> FND_API.G_MISS_DATE) AND
7866: (px_budget_lines_in(i).budget_end_date IS NOT NULL AND
7867: px_budget_lines_in(i).budget_end_date <> FND_API.G_MISS_DATE) AND
7868: l_period_time_phased_code = 'N'
7869: THEN
7870: IF (px_budget_lines_in(i).budget_end_date < px_budget_lines_in(i).budget_start_date)
7871: THEN
7868: l_period_time_phased_code = 'N'
7869: THEN
7870: IF (px_budget_lines_in(i).budget_end_date < px_budget_lines_in(i).budget_start_date)
7871: THEN
7872: x_return_status := FND_API.G_RET_STS_ERROR;
7873: x_budget_lines_out(i).return_status := x_return_status;
7874: PA_UTILS.add_message
7875: (p_app_short_name => 'PA',
7876: p_msg_name => 'PA_INVALID_END_DATE');
7879: l_plan_start_date := px_budget_lines_in(i).budget_start_date;
7880: l_plan_end_date := px_budget_lines_in(i).budget_end_date;
7881:
7882: IF (px_budget_lines_in(i).resource_alias IS NOT NULL AND
7883: px_budget_lines_in(i).resource_alias <> FND_API.G_MISS_CHAR)
7884: THEN
7885:
7886: l_resource_alias := px_budget_lines_in(i).resource_alias;
7887:
7952: --We should do these validations only when the above query returned a record.
7953: IF (l_plan_start_date is not null)
7954: THEN
7955: IF (px_budget_lines_in(i).budget_start_date IS NOT NULL AND
7956: px_budget_lines_in(i).budget_start_date <> FND_API.G_MISS_DATE) AND
7957: (px_budget_lines_in(i).budget_end_date IS NOT NULL AND
7958: px_budget_lines_in(i).budget_end_date <> FND_API.G_MISS_DATE) THEN
7959:
7960: -- checking if the budget line start date/ end date falls between
7954: THEN
7955: IF (px_budget_lines_in(i).budget_start_date IS NOT NULL AND
7956: px_budget_lines_in(i).budget_start_date <> FND_API.G_MISS_DATE) AND
7957: (px_budget_lines_in(i).budget_end_date IS NOT NULL AND
7958: px_budget_lines_in(i).budget_end_date <> FND_API.G_MISS_DATE) THEN
7959:
7960: -- checking if the budget line start date/ end date falls between
7961: -- the planning start date/ end date
7962:
7986:
7987: IF (px_budget_lines_in(i).budget_start_date < l_period_start_date OR
7988: px_budget_lines_in(i).budget_end_date > l_period_end_date)
7989: THEN
7990: x_return_status := FND_API.G_RET_STS_ERROR;
7991: x_budget_lines_out(i).return_status := x_return_status;
7992: PA_UTILS.add_message
7993: (p_app_short_name => 'PA',
7994: p_msg_name => 'PA_FP_START_END_DATE_NOT_VALID',
8003: l_any_error_occurred_flag:='Y';
8004: END IF;
8005: ELSIF ( p_time_phased_code = 'N' and
8006: (px_budget_lines_in(i).budget_start_date IS NULL
8007: OR px_budget_lines_in(i).budget_start_date = FND_API.G_MISS_DATE )
8008: AND (px_budget_lines_in(i).budget_end_date IS NULL
8009: OR px_budget_lines_in(i).budget_end_date = FND_API.G_MISS_DATE ) )THEN
8010:
8011: px_budget_lines_in(i).budget_start_date := l_plan_start_date;
8005: ELSIF ( p_time_phased_code = 'N' and
8006: (px_budget_lines_in(i).budget_start_date IS NULL
8007: OR px_budget_lines_in(i).budget_start_date = FND_API.G_MISS_DATE )
8008: AND (px_budget_lines_in(i).budget_end_date IS NULL
8009: OR px_budget_lines_in(i).budget_end_date = FND_API.G_MISS_DATE ) )THEN
8010:
8011: px_budget_lines_in(i).budget_start_date := l_plan_start_date;
8012: px_budget_lines_in(i).budget_end_date := l_period_end_date;
8013:
8065: p_token3 => 'CURRENCY',
8066: p_value3 => px_budget_lines_in(i).txn_currency_code);
8067:
8068:
8069: x_return_status := FND_API.G_RET_STS_ERROR;
8070: /* Bug 3133930- set the return status to the new output variable */
8071: x_budget_lines_out(i).return_status := x_return_status;
8072:
8073: ELSE
8166: p_value2 => l_fin_plan_type_name,
8167: p_token3 => 'CURRENCY',
8168: p_value3 => px_budget_lines_in(i).txn_currency_code);
8169:
8170: x_return_status := FND_API.G_RET_STS_ERROR;
8171: /* Bug 3133930- set the return status to the new output variable */
8172: x_budget_lines_out(i).return_status := x_return_status;
8173:
8174: IF l_debug_mode = 'Y' THEN
8283: -- Bug 3986129: FP.M Web ADI Dev changes: included the following check
8284: IF p_calling_context = 'WEBADI' AND
8285: l_wa_val_conv_attr_flag='Y' THEN
8286:
8287: IF px_budget_lines_in(i).project_cost_rate_type = FND_API.G_MISS_CHAR THEN
8288: l_wa_project_cost_rate_typ := NULL;
8289: ELSE
8290: l_wa_project_cost_rate_typ := px_budget_lines_in(i).project_cost_rate_type;
8291: END IF;
8288: l_wa_project_cost_rate_typ := NULL;
8289: ELSE
8290: l_wa_project_cost_rate_typ := px_budget_lines_in(i).project_cost_rate_type;
8291: END IF;
8292: IF px_budget_lines_in(i).project_cost_rate_date_type = FND_API.G_MISS_CHAR THEN
8293: l_wa_project_cost_rate_dt_typ := NULL;
8294: ELSE
8295: l_wa_project_cost_rate_dt_typ := px_budget_lines_in(i).project_cost_rate_date_type;
8296: END IF;
8293: l_wa_project_cost_rate_dt_typ := NULL;
8294: ELSE
8295: l_wa_project_cost_rate_dt_typ := px_budget_lines_in(i).project_cost_rate_date_type;
8296: END IF;
8297: IF px_budget_lines_in(i).project_cost_rate_date = FND_API.G_MISS_DATE THEN
8298: l_wa_project_cost_rate_date := NULL;
8299: ELSE
8300: l_wa_project_cost_rate_date := px_budget_lines_in(i).project_cost_rate_date;
8301: END IF;
8298: l_wa_project_cost_rate_date := NULL;
8299: ELSE
8300: l_wa_project_cost_rate_date := px_budget_lines_in(i).project_cost_rate_date;
8301: END IF;
8302: IF px_budget_lines_in(i).project_cost_exchange_rate = FND_API.G_MISS_NUM THEN
8303: l_wa_project_cost_exc_rate := NULL;
8304: ELSE
8305: l_wa_project_cost_exc_rate := px_budget_lines_in(i).project_cost_exchange_rate;
8306: END IF;
8303: l_wa_project_cost_exc_rate := NULL;
8304: ELSE
8305: l_wa_project_cost_exc_rate := px_budget_lines_in(i).project_cost_exchange_rate;
8306: END IF;
8307: IF px_budget_lines_in(i).projfunc_cost_rate_type = FND_API.G_MISS_CHAR THEN
8308: l_wa_projfunc_cost_rate_typ := NULL;
8309: ELSE
8310: l_wa_projfunc_cost_rate_typ := px_budget_lines_in(i).projfunc_cost_rate_type;
8311: END IF;
8308: l_wa_projfunc_cost_rate_typ := NULL;
8309: ELSE
8310: l_wa_projfunc_cost_rate_typ := px_budget_lines_in(i).projfunc_cost_rate_type;
8311: END IF;
8312: IF px_budget_lines_in(i).projfunc_cost_rate_date_type = FND_API.G_MISS_CHAR THEN
8313: l_wa_projfunc_cost_rate_dt_typ := NULL;
8314: ELSE
8315: l_wa_projfunc_cost_rate_dt_typ := px_budget_lines_in(i).projfunc_cost_rate_date_type;
8316: END IF;
8313: l_wa_projfunc_cost_rate_dt_typ := NULL;
8314: ELSE
8315: l_wa_projfunc_cost_rate_dt_typ := px_budget_lines_in(i).projfunc_cost_rate_date_type;
8316: END IF;
8317: IF px_budget_lines_in(i).projfunc_cost_rate_date = FND_API.G_MISS_DATE THEN
8318: l_wa_projfunc_cost_rate_date := NULL;
8319: ELSE
8320: l_wa_projfunc_cost_rate_date := px_budget_lines_in(i).projfunc_cost_rate_date;
8321: END IF;
8318: l_wa_projfunc_cost_rate_date := NULL;
8319: ELSE
8320: l_wa_projfunc_cost_rate_date := px_budget_lines_in(i).projfunc_cost_rate_date;
8321: END IF;
8322: IF px_budget_lines_in(i).projfunc_cost_exchange_rate = FND_API.G_MISS_NUM THEN
8323: l_wa_projfunc_cost_exc_rate := NULL;
8324: ELSE
8325: l_wa_projfunc_cost_exc_rate := px_budget_lines_in(i).projfunc_cost_exchange_rate;
8326: END IF;
8323: l_wa_projfunc_cost_exc_rate := NULL;
8324: ELSE
8325: l_wa_projfunc_cost_exc_rate := px_budget_lines_in(i).projfunc_cost_exchange_rate;
8326: END IF;
8327: IF px_budget_lines_in(i).project_rev_rate_type = FND_API.G_MISS_CHAR THEN
8328: l_wa_project_rev_rate_typ := NULL;
8329: ELSE
8330: l_wa_project_rev_rate_typ := px_budget_lines_in(i).project_rev_rate_type;
8331: END IF;
8328: l_wa_project_rev_rate_typ := NULL;
8329: ELSE
8330: l_wa_project_rev_rate_typ := px_budget_lines_in(i).project_rev_rate_type;
8331: END IF;
8332: IF px_budget_lines_in(i).project_rev_rate_date_type = FND_API.G_MISS_CHAR THEN
8333: l_wa_project_rev_rate_dt_typ := NULL;
8334: ELSE
8335: l_wa_project_rev_rate_dt_typ := px_budget_lines_in(i).project_rev_rate_date_type;
8336: END IF;
8333: l_wa_project_rev_rate_dt_typ := NULL;
8334: ELSE
8335: l_wa_project_rev_rate_dt_typ := px_budget_lines_in(i).project_rev_rate_date_type;
8336: END IF;
8337: IF px_budget_lines_in(i).project_rev_rate_date = FND_API.G_MISS_DATE THEN
8338: l_wa_project_rev_rate_date := NULL;
8339: ELSE
8340: l_wa_project_rev_rate_date := px_budget_lines_in(i).project_rev_rate_date;
8341: END IF;
8338: l_wa_project_rev_rate_date := NULL;
8339: ELSE
8340: l_wa_project_rev_rate_date := px_budget_lines_in(i).project_rev_rate_date;
8341: END IF;
8342: IF px_budget_lines_in(i).project_rev_exchange_rate = FND_API.G_MISS_NUM THEN
8343: l_wa_project_rev_exc_rate := NULL;
8344: ELSE
8345: l_wa_project_rev_exc_rate := px_budget_lines_in(i).project_rev_exchange_rate;
8346: END IF;
8343: l_wa_project_rev_exc_rate := NULL;
8344: ELSE
8345: l_wa_project_rev_exc_rate := px_budget_lines_in(i).project_rev_exchange_rate;
8346: END IF;
8347: IF px_budget_lines_in(i).projfunc_rev_rate_type = FND_API.G_MISS_CHAR THEN
8348: l_wa_projfunc_rev_rate_typ := NULL;
8349: ELSE
8350: l_wa_projfunc_rev_rate_typ := px_budget_lines_in(i).projfunc_rev_rate_type;
8351: END IF;
8348: l_wa_projfunc_rev_rate_typ := NULL;
8349: ELSE
8350: l_wa_projfunc_rev_rate_typ := px_budget_lines_in(i).projfunc_rev_rate_type;
8351: END IF;
8352: IF px_budget_lines_in(i).projfunc_rev_rate_date_type = FND_API.G_MISS_CHAR THEN
8353: l_wa_projfunc_rev_rate_dt_typ := NULL;
8354: ELSE
8355: l_wa_projfunc_rev_rate_dt_typ := px_budget_lines_in(i).projfunc_rev_rate_date_type;
8356: END IF;
8353: l_wa_projfunc_rev_rate_dt_typ := NULL;
8354: ELSE
8355: l_wa_projfunc_rev_rate_dt_typ := px_budget_lines_in(i).projfunc_rev_rate_date_type;
8356: END IF;
8357: IF px_budget_lines_in(i).projfunc_rev_rate_date = FND_API.G_MISS_DATE THEN
8358: l_wa_projfunc_rev_rate_date := NULL;
8359: ELSE
8360: l_wa_projfunc_rev_rate_date := px_budget_lines_in(i).projfunc_rev_rate_date;
8361: END IF;
8358: l_wa_projfunc_rev_rate_date := NULL;
8359: ELSE
8360: l_wa_projfunc_rev_rate_date := px_budget_lines_in(i).projfunc_rev_rate_date;
8361: END IF;
8362: IF px_budget_lines_in(i).projfunc_rev_exchange_rate = FND_API.G_MISS_NUM THEN
8363: l_wa_projfunc_rev_exc_rate := NULL;
8364: ELSE
8365: l_wa_projfunc_rev_exc_rate := px_budget_lines_in(i).projfunc_rev_exchange_rate;
8366: END IF;
8418: ,x_return_status =>x_return_status
8419: ,x_msg_count =>x_msg_count
8420: ,x_msg_data =>x_msg_data);
8421: END IF;
8422: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8423: IF p_calling_context <> 'WEBADI' THEN
8424: /* Bug 3133930- set the return status to the new output variable */
8425: x_budget_lines_out(i).return_status := x_return_status;
8426:
8437: l_webadi_err_amt_type_tbl(l_webadi_err_amt_type_tbl.COUNT) := p_amount_type_tbl(i);
8438: END IF;
8439:
8440: l_any_error_occurred_flag:='Y';
8441: ELSIF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
8442: IF p_calling_context = 'WEBADI' THEN --Bug 4382980
8443: -- copying back the validated attribute in the rac type
8444: px_budget_lines_in(i).project_cost_rate_type := l_wa_project_cost_rate_typ;
8445: px_budget_lines_in(i).project_cost_rate_date_type := l_wa_project_cost_rate_dt_typ;
8555: x_return_status => x_return_status,
8556: x_msg_data => x_msg_data,
8557: x_msg_count => x_msg_count);
8558:
8559: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8560: IF l_debug_mode = 'Y' THEN
8561: pa_debug.g_err_stage := 'Call to process_errors returned with error';
8562: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8563: END IF;
8594: EXCEPTION
8595: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8596:
8597: IF x_return_status IS NULL OR
8598: x_return_status = FND_API.G_RET_STS_SUCCESS THEN
8599: x_return_status := FND_API.G_RET_STS_ERROR;
8600:
8601: END IF;
8602:
8595: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8596:
8597: IF x_return_status IS NULL OR
8598: x_return_status = FND_API.G_RET_STS_SUCCESS THEN
8599: x_return_status := FND_API.G_RET_STS_ERROR;
8600:
8601: END IF;
8602:
8603: l_msg_count := FND_MSG_PUB.count_msg;
8603: l_msg_count := FND_MSG_PUB.count_msg;
8604:
8605: IF l_msg_count = 1 and x_msg_data IS NULL THEN
8606: PA_INTERFACE_UTILS_PUB.get_messages
8607: (p_encoded => FND_API.G_TRUE
8608: ,p_msg_index => 1
8609: ,p_msg_count => l_msg_count
8610: ,p_msg_data => l_msg_data
8611: ,p_data => l_data
8621: RETURN;
8622:
8623: WHEN OTHERS THEN
8624:
8625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8626:
8627: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8628:
8629: THEN
8686:
8687: BEGIN
8688:
8689: x_msg_count := 0;
8690: x_return_status := FND_API.G_RET_STS_SUCCESS;
8691: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8692: l_module_name := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS ';
8693:
8694: IF l_debug_mode = 'Y' THEN
8717: ,p_procedure_name => 'GET_FIN_PLAN_LINES_STATUS' );
8718:
8719: END IF;
8720:
8721: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8722:
8723: END IF;
8724:
8725: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8864: END IF ; --IF nvl(p_budget_lines_in.LAST,0) > 0
8865:
8866:
8867: IF (l_count = 0) THEN
8868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8869: END IF;
8870:
8871: END LOOP;
8872:
8880: EXCEPTION
8881:
8882: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8883:
8884: x_return_status := FND_API.G_RET_STS_ERROR;
8885: IF l_debug_mode = 'Y' THEN
8886: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
8887: pa_debug.write('GET_FIN_PLAN_LINES_STATUS: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8888: -- bug 7813303 - replaced reset_err_stack with reset_curr_function
8893: RETURN;
8894:
8895: WHEN OTHERS THEN
8896:
8897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8898: x_msg_count := 1;
8899: x_msg_data := SQLERRM;
8900:
8901: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_budget_pvt'
8979:
8980: BEGIN
8981:
8982: x_msg_count := 0;
8983: x_return_status := FND_API.G_RET_STS_SUCCESS;
8984:
8985: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
8986: l_module_name := 'PA_BUDGET_PVT.GET_FIN_PLAN_LINES_STATUS ';
8987:
9006: EXCEPTION
9007:
9008: WHEN OTHERS THEN
9009:
9010: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9011: x_msg_count := 1;
9012: x_msg_data := SQLERRM;
9013:
9014: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_budget_pvt'