[Home] [Help]
1181: IF l_temp_eff_flag = 'N' THEN
1182:
1183: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1184:
1185: pa_utils.add_message
1186: (
1187: p_app_short_name => 'PA'
1188: ,p_msg_name => 'PA_TEMPLATE_NOT_ACTIVE'
1189: );
2159: ,p_attribute5 => '');
2160: */
2161:
2162: -- Added below code which throws correct error message
2163: pa_utils.add_message
2164: (
2165: p_app_short_name => 'PA'
2166: ,p_msg_name => 'PA_SU_INVALID_DATES'
2167: );
2221: IF l_project_in_rec.early_finish_date < l_early_start_date THEN
2222:
2223: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2224:
2225: pa_utils.add_message
2226: (
2227: p_app_short_name => 'PA'
2228: ,p_msg_name => 'PA_SU_INVALID_DATES'
2229: );
2256: IF l_project_in_rec.late_finish_date < l_late_start_date THEN
2257:
2258: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2259:
2260: pa_utils.add_message
2261: (
2262: p_app_short_name => 'PA'
2263: ,p_msg_name => 'PA_SU_INVALID_DATES'
2264: );
2351: ,p_attribute5 => '');
2352: */
2353:
2354: -- Added below code which throws correct error message
2355: pa_utils.add_message
2356: (
2357: p_app_short_name => 'PA'
2358: ,p_msg_name => 'PA_SU_INVALID_DATES'
2359: );
2720:
2721: ELSE
2722: --Added for bug 5214431
2723: IF l_project_in_rec.project_value IS NOT NULL AND l_project_in_rec.project_value < 0 THEN
2724: PA_UTILS.ADD_MESSAGE
2725: ( p_app_short_name => 'PA'
2726: ,p_msg_name => 'PA_INVLD_OPPORTUNITY_VALUE');
2727: RAISE FND_API.G_EXC_ERROR;
2728: ELSE
2994: IF l_valid_prio_code = 'N' THEN
2995:
2996: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2997:
2998: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
2999: ,p_msg_name => 'PA_INVALID_PRIORITY_CODE');
3000:
3001: l_return_status := FND_API.G_RET_STS_ERROR;
3002:
3097: CLOSE cur_rev_inv;
3098: */
3099: IF nvl(l_enable_funds_flag,'N')='N' AND l_project_in_rec.date_eff_funds_flag ='Y' THEN
3100:
3101: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
3102: ,p_msg_name => 'PA_FUNDS_FLAG_CANT_ENABLED'
3103: );
3104:
3105: l_return_status := FND_API.G_RET_STS_ERROR;
3108: END IF;
3109: /*
3110: IF nvl(l_chk_rev_inv_flag,'N') ='Y' AND l_project_in_rec.date_eff_funds_flag <> l_orig_date_eff_funds_flag THEN
3111:
3112: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
3113: ,p_msg_name => 'PA_FUNDS_FLAG_NOT_UPDATBL'
3114: );
3115:
3116: l_return_status := FND_API.G_RET_STS_ERROR;
3575: /*IF p_customers_in(i).project_relationship_code IS NULL OR
3576: p_customers_in(i).project_relationship_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR then
3577: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3578: THEN
3579: pa_utils.add_message
3580: ( p_app_short_name => 'PA'-- new message for AA TRACKING
3581: ,p_msg_name => 'PA_RELATIONSHIP_CODE_REQD'
3582: ,p_token1 => 'PROJECT_NAME'
3583: ,p_value1 => l_project_rec.segment1
3603:
3604: IF (p_customers_in(i).PROJECT_CONTACT_TYPE_CODE IS NULL) OR (p_customers_in(i).PROJECT_CONTACT_TYPE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )THEN
3605: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3606: THEN
3607: pa_utils.add_message
3608: ( p_app_short_name => 'PA'-- new message for tracking bug
3609: ,p_msg_name => 'PA_CONTACT_TYPE_REQD'
3610: ,p_token1 => 'PROJECT_NAME'
3611: ,p_value1 => l_project_in_rec.pm_project_reference
4204: l_orig_def_tt_flag = 'N'
4205: )
4206: )
4207: THEN
4208: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
4209: ,p_msg_name => 'PA_TASK_FUNDING_EXIST'
4210: );
4211:
4212: l_return_status := FND_API.G_RET_STS_ERROR;
4337: FETCH c_prj_count INTO l_prj_mgr_count;
4338: CLOSE c_prj_count;
4339: IF l_prj_mgr_count = 0 THEN
4340: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4341: pa_utils.add_message
4342: ( p_app_short_name => 'PA'
4343: ,p_msg_name => 'PA_PR_INSUF_PROJ_MGR'
4344: );
4345: RAISE FND_API.G_EXC_ERROR;
4524: l_bug_fp_enabled := PA_PROJECT_STRUCTURE_UTILS.check_financial_enabled( l_project_in_rec.created_from_project_id );
4525:
4526: IF l_bug_wp_enabled = 'N' AND l_bug_fp_enabled = 'N' AND p_tasks_in.exists(i)
4527: THEN
4528: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
4529: p_msg_name =>'PA_WRONG_STR_TYPE_AMG'); -- 'PA_TASKS_NOT_ALLOWD_AMG' -- It is decided to use the same message in this case too
4530: -- Workplan or Financial Structures must be enabled at source project/template level in order to enter Tasks.
4531: RAISE FND_API.G_EXC_ERROR ;
4532: ELSIF l_bug_wp_enabled = 'Y' AND l_bug_fp_enabled = 'N' AND p_tasks_in.exists(i) AND l_structure_in_rec.structure_type = 'FINANCIAL'
4530: -- Workplan or Financial Structures must be enabled at source project/template level in order to enter Tasks.
4531: RAISE FND_API.G_EXC_ERROR ;
4532: ELSIF l_bug_wp_enabled = 'Y' AND l_bug_fp_enabled = 'N' AND p_tasks_in.exists(i) AND l_structure_in_rec.structure_type = 'FINANCIAL'
4533: THEN
4534: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
4535: p_msg_name => 'PA_WRONG_STR_TYPE_AMG' );
4536: -- Please enter the correct structure type or enable the Workplan/Financial structure at the source project/template level.
4537: RAISE FND_API.G_EXC_ERROR ;
4538: ELSIF l_bug_wp_enabled = 'N' AND l_bug_fp_enabled = 'Y' AND p_tasks_in.exists(i) AND l_structure_in_rec.structure_type = 'WORKPLAN'
4536: -- Please enter the correct structure type or enable the Workplan/Financial structure at the source project/template level.
4537: RAISE FND_API.G_EXC_ERROR ;
4538: ELSIF l_bug_wp_enabled = 'N' AND l_bug_fp_enabled = 'Y' AND p_tasks_in.exists(i) AND l_structure_in_rec.structure_type = 'WORKPLAN'
4539: THEN
4540: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
4541: p_msg_name => 'PA_WRONG_STR_TYPE_AMG' );
4542: -- Please enter the correct structure type or enable the Workplan/Financial structure at the source project/template level.
4543: RAISE FND_API.G_EXC_ERROR ;
4544: END IF;
4601: CLOSE c_adj_on_std_inv;
4602:
4603: if task_adj_on_std_inv <> 'X' then
4604:
4605: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
4606: ,p_msg_name => 'PA_INVALID_ADJ_ON_STD_INV');
4607:
4608: l_return_status := FND_API.G_RET_STS_ERROR;
4609:
5359: END IF;
5360:
5361: ELSE
5362: IF i IS NOT NULL THEN
5363: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
5364: ,p_msg_name => 'PA_DLV_STRUCTURE_DISABLED');
5365: l_return_status := FND_API.G_RET_STS_ERROR;
5366: RAISE FND_API.G_EXC_ERROR;
5367: END IF;
5460: --end: cklee fix bug: 9065594
5461:
5462: -- Bug 7335526
5463: IF G_PROJECT_NUMBER_GEN_MODE = 'AUTOMATIC' THEN
5464: PA_UTILS_SQNUM_PKG.revert_unique_proj_num(p_table_name => 'PA_PROJECTS',
5465: p_user_id => FND_GLOBAL.USER_ID,
5466: p_unique_number => to_number(l_project_number_out));
5467: END IF;
5468:
5486: --end: cklee fix bug: 9065594
5487:
5488: -- Bug 7335526
5489: IF G_PROJECT_NUMBER_GEN_MODE = 'AUTOMATIC' THEN
5490: PA_UTILS_SQNUM_PKG.revert_unique_proj_num(p_table_name => 'PA_PROJECTS',
5491: p_user_id => FND_GLOBAL.USER_ID,
5492: p_unique_number => to_number(l_project_number_out));
5493: END IF;
5494:
5512: --end: cklee fix bug: 9065594
5513:
5514: -- Bug 7335526
5515: IF G_PROJECT_NUMBER_GEN_MODE = 'AUTOMATIC' THEN
5516: PA_UTILS_SQNUM_PKG.revert_unique_proj_num(p_table_name => 'PA_PROJECTS',
5517: p_user_id => FND_GLOBAL.USER_ID,
5518: p_unique_number => to_number(l_project_number_out));
5519: END IF;
5520:
6019: CLOSE c_adj_on_std_inv;
6020:
6021: if task_adj_on_std_inv <> 'X'then
6022:
6023: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
6024: ,p_msg_name => 'PA_INVALID_ADJ_ON_STD_INV');
6025:
6026: l_return_status := FND_API.G_RET_STS_ERROR;
6027:
6084: -- id. So we should derive the id and use it.
6085: -- PA L Changes 3010538
6086: -- Need not use map new amg msg api here as we donot have context information to be displayed and
6087: -- _AMG messages are not defined.
6088: -- Using PA_UTILS.ADD_MESSAGE
6089: --IF p_structure_type IS NOT NULL THEN Replaced p_structure_type by l_str_type for 3746912
6090: IF l_str_type IS NOT NULL THEN
6091:
6092: -- Begin fix for Bug # 4373055.
6099: IF nvl(l_process_code,'-1') = 'WUP' THEN
6100: l_request_id := PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_ID(p_project_id => l_project_id -- bug 3106457 p_pa_project_id -- Bug 3091798
6101: ,p_structure_type => l_str_type ); --p_structure_type 3746912
6102:
6103: PA_UTILS.ADD_MESSAGE
6104: (p_app_short_name => 'PA',
6105: --p_msg_name => 'PA_PS_VD_UPDWBS_PRC_INPROC');
6106: p_msg_name => 'PA_PS_UPDWBS_PRC_INPROC_AMG', -- Bug 3091798. Message includes the request id.
6107: p_token1 => 'REQUESTID',
6113: ELSIF nvl(l_process_code,'-1') = 'WUE' THEN
6114: l_request_id := PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_ID(p_project_id => l_project_id -- bug 3106457 p_pa_project_id -- Bug 3091798
6115: ,p_structure_type => l_str_type ); --p_structure_type 3746912
6116:
6117: PA_UTILS.ADD_MESSAGE
6118: (p_app_short_name => 'PA',
6119: -- p_msg_name => 'PA_PS_VD_UPD_WBS_PRC_ERR');
6120: p_msg_name => 'PA_PS_UPDWBS_PRC_ERR_AMG', -- Bug 3091798. Message includes the request id.
6121: p_token1 => 'REQUESTID',
6140:
6141:
6142: if l_message_name is not null then
6143:
6144: PA_UTILS.ADD_MESSAGE(
6145: p_app_short_name => 'PA'
6146: , p_msg_name => l_message_name
6147: , p_token1 => 'REQUESTID'
6148: , p_value1 => l_conc_request_id);
6473: ,p_attribute3 => ''
6474: ,p_attribute4 => ''
6475: ,p_attribute5 => '');
6476: ELSE
6477: PA_UTILS.ADD_MESSAGE
6478: (p_app_short_name => 'PA',
6479: p_msg_name => 'PA_INVALID_PROJECT_CUSTOMER',
6480: p_token1 => 'CUSTOMER_NAME',
6481: p_value1 => l_customer_name
6792: -- Bug 3075623 : Added following condition to throw error if no ref task id
6793: -- IF (( (p_pa_parent_task_id IS NOT NULL AND p_pa_parent_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM) OR
6794: -- (p_pm_parent_task_reference IS NOT NULL AND p_pm_parent_task_reference <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR))
6795: -- AND l_ref_task_id is null ) THEN
6796: -- PA_UTILS.ADD_MESSAGE
6797: -- (p_app_short_name => 'PA',
6798: -- p_msg_name => 'PA_PS_INV_REF_TASK_ID');
6799: --
6800: -- RAISE FND_API.G_EXC_ERROR;
6924: End If;
6925: End IF;
6926:
6927: IF l_financial_task_flag = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
6928: PA_UTILS.ADD_MESSAGE('PA', 'PA_AMG_RES_INV_PARAMS',
6929: 'INVALID_PARAMS', 'FINANCIAL_TASK_FLAG');
6930: RAISE FND_API.G_EXC_ERROR;
6931: End If;
6932: --Bug 6410745 End Changes
7831: IF nvl(l_process_code,'-1') = 'WUP' THEN
7832: l_request_id := PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_ID(p_project_id => l_project_id -- Bug 3091798
7833: ,p_structure_type => p_structure_type );
7834:
7835: PA_UTILS.ADD_MESSAGE
7836: (p_app_short_name => 'PA',
7837: -- p_msg_name => 'PA_PS_VD_UPDWBS_PRC_INPROC');
7838: p_msg_name => 'PA_PS_UPDWBS_PRC_INPROC_AMG', -- Bug 3091798. Message includes the request id.
7839: p_token1 => 'REQUESTID',
7844: ELSIF nvl(l_process_code,'-1') = 'WUE' THEN
7845: l_request_id := PA_PROJECT_STRUCTURE_UTILS.GET_CONC_REQUEST_ID(p_project_id => l_project_id --Bug 3091798
7846: ,p_structure_type => p_structure_type );
7847:
7848: PA_UTILS.ADD_MESSAGE
7849: (p_app_short_name => 'PA',
7850: -- p_msg_name => 'PA_PS_VD_UPD_WBS_PRC_ERR');
7851: p_msg_name => 'PA_PS_UPDWBS_PRC_ERR_AMG', -- Bug 3091798. Message includes the request id.
7852: p_token1 => 'REQUESTID',
7870:
7871:
7872: if l_message_name is not null then
7873:
7874: PA_UTILS.ADD_MESSAGE(
7875: p_app_short_name => 'PA'
7876: , p_msg_name => l_message_name
7877: , p_token1 => 'REQUESTID'
7878: , p_value1 => l_conc_request_id);
10946: AND PA_RELATIONSHIP_UTILS.Check_subproject_link_exists( p_project_in.pa_project_id ) = 'Y'
10947: AND p_structure_in.structure_version_name <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR -- Added the condition for Bug 7248969
10948: AND p_tasks_in.count > 0 -- Added the condition for Bug 7248969
10949: THEN
10950: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10951: p_msg_name => 'PA_PS_CANT_UPDATE_PROG_PRJ');
10952: RAISE FND_API.G_EXC_ERROR;
10953: END IF;
10954: --end bug 4619824
10971:
10972: -- End Bug # 4582750.
10973:
10974: --if yes, raise error.
10975: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10976: p_msg_name => 'PA_STR_LOCKED_BY_OTHER');
10977: RAISE FND_API.G_EXC_ERROR;
10978:
10979: -- Begin Bug # 4582750.
11036: CLOSE c_adj_on_std_inv;
11037:
11038: if t_adj_on_std_inv <> 'X' then
11039:
11040: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
11041: ,p_msg_name => 'PA_INVALID_ADJ_ON_STD_INV');
11042:
11043: l_return_status := FND_API.G_RET_STS_ERROR;
11044:
11083: --IF (p_update_mode = 'PA_UPD_TASK_ATTR') THEN --bug 4534919
11084: --Check if str version is locked by another user
11085: if ( PA_PROJECT_STRUCTURE_UTILS.IS_STRUC_VER_LOCKED_BY_USER(FND_GLOBAL.USER_ID,l_structure_version_id) = 'O' ) then
11086: --if yes, raise error.
11087: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
11088: p_msg_name => 'PA_STR_LOCKED_BY_OTHER');
11089: RAISE FND_API.G_EXC_ERROR;
11090: end if;
11091: --END IF;
11116: ,p_attribute4 => ''
11117: ,p_attribute5 => '');
11118: END IF;
11119:
11120: -- PA_UTILS.ADD_MESSAGE('PA', 'PA_ORG_FC_CANT_UPD_ORG_PRJ');
11121: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
11122: RAISE FND_API.G_EXC_ERROR;
11123: END IF;
11124: --Organization Forecasting.
11471: open cur_prog_name(l_project_id);
11472: fetch cur_prog_name into l_prog_name;
11473: close cur_prog_name;
11474:
11475: PA_UTILS.ADD_MESSAGE('PA','PA_PS_PRJ_CURR_LNK_ERR','PROJ',l_proj_name,'PROG',l_prog_name); -- Bug # 4329284.
11476:
11477: -- Bug # 4329284.
11478:
11479: END IF ;
12212: l_validate, l_start_date_status, l_end_date_status);
12213:
12214: If l_validate = 'Y' and l_start_date_status = 'I' Then
12215:
12216: pa_utils.add_message
12217: ( p_app_short_name => 'PA'
12218: ,p_msg_name => 'PA_PROJ_DATE_START_ERROR'
12219: ,p_token1 => ''
12220: ,p_value1 => ''
12228: End If;
12229:
12230: If l_validate = 'Y' and l_end_date_status = 'I' Then
12231:
12232: pa_utils.add_message
12233: ( p_app_short_name => 'PA'
12234: ,p_msg_name => 'PA_PROJ_DATE_FINISH_ERROR'
12235: ,p_token1 => ''
12236: ,p_value1 => ''
12367: IF p_project_in.early_finish_date < p_project_in.early_start_date THEN
12368:
12369: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12370:
12371: pa_utils.add_message
12372: (
12373: p_app_short_name => 'PA'
12374: ,p_msg_name => 'PA_SU_INVALID_DATES'
12375: );
12388: IF p_project_in.early_finish_date < l_project_rec.early_start_date THEN
12389:
12390: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12391:
12392: pa_utils.add_message
12393: (
12394: p_app_short_name => 'PA'
12395: ,p_msg_name => 'PA_SU_INVALID_DATES'
12396: );
12457: IF p_project_in.late_finish_date < p_project_in.late_start_date THEN
12458:
12459: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12460:
12461: pa_utils.add_message
12462: (
12463: p_app_short_name => 'PA'
12464: ,p_msg_name => 'PA_SU_INVALID_DATES'
12465: );
12476: IF p_project_in.late_finish_date < l_project_rec.late_start_date THEN
12477:
12478: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12479:
12480: pa_utils.add_message
12481: (
12482: p_app_short_name => 'PA'
12483: ,p_msg_name => 'PA_SU_INVALID_DATES'
12484: );
12791: FETCH l_cur_retention_tax_code INTO l_dummy_cur_output_tax_code;
12792: CLOSE l_cur_retention_tax_code;
12793:
12794: IF l_dummy_cur_output_tax_code <> 'Y' THEN
12795: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
12796: p_msg_name => 'PA_INVLD_OUTPUT_TAX_CODE');
12797:
12798: p_return_status := FND_API.G_RET_STS_ERROR;
12799: RAISE FND_API.G_EXC_ERROR;
12829: FETCH l_cur_retention_tax_code INTO l_dummy_cur_retention_tax_code;
12830: CLOSE l_cur_retention_tax_code;
12831:
12832: IF l_dummy_cur_retention_tax_code <> 'Y' THEN
12833: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
12834: p_msg_name => 'PA_INVLD_RETENTION_TAX_CODE');
12835:
12836: p_return_status := FND_API.G_RET_STS_ERROR;
12837: RAISE FND_API.G_EXC_ERROR;
12890: IF l_allow_update_flag = 'N' THEN
12891:
12892: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12893:
12894: pa_utils.add_message
12895: (
12896: p_app_short_name => 'PA'
12897: ,p_msg_name => 'PA_CURR_CODE_NOT_UPDATBL'
12898: );
12919:
12920: --invalid currency code has been passed hence throw error
12921: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12922:
12923: pa_utils.add_message
12924: (
12925: p_app_short_name => 'PA'
12926: ,p_msg_name => 'PA_INVALID_PROJ_CURR_CODE'
12927: );
13004: CLOSE l_cur_project_rate_type;
13005:
13006: IF l_dummy_project_rate_type <> 'Y' THEN
13007:
13008: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
13009: p_msg_name => 'PA_INVLD_PROJ_RATE_TYPE');
13010: p_return_status := FND_API.G_RET_STS_ERROR;
13011: RAISE FND_API.G_EXC_ERROR;
13012: END IF ;
13341: TO_CHAR(p_project_in.project_value)||',';
13342: */--Added for bug 5214431
13343: -- changed from l_project_in_rec.project_value to p_project_in.project_value
13344: IF p_project_in.project_value IS NOT NULL AND p_project_in.project_value < 0 THEN
13345: PA_UTILS.ADD_MESSAGE
13346: ( p_app_short_name => 'PA'
13347: ,p_msg_name => 'PA_INVLD_OPPORTUNITY_VALUE');
13348: RAISE FND_API.G_EXC_ERROR;
13349: END IF;
15072: IF l_valid_prio_code = 'N' THEN
15073:
15074: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
15075:
15076: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
15077: ,p_msg_name => 'PA_INVALID_PRIORITY_CODE');
15078:
15079: l_return_status := FND_API.G_RET_STS_ERROR;
15080:
15609: l_enable_top_task_cust_flag := 'Y';
15610: l_update_yes_flag := 'Y';
15611: ELSE--Added by rtarway for BUG 4168069
15612: --Add the error message in the pl/sql stack and raise exception
15613: PA_UTILS.ADD_MESSAGE(
15614: p_app_short_name => 'PA',
15615: p_msg_name =>'PA_NO_TOP_TASK_CUST_ALLOWED'
15616: );
15617: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15679: l_statement := l_statement || ' enable_top_task_inv_mth_flag = :enable_top_task_inv_mth_flg ,';
15680: l_enable_top_task_inv_mth_flag := 'Y';
15681: l_update_yes_flag := 'Y';
15682: ELSE --Added for Bug 4193730
15683: PA_UTILS.ADD_MESSAGE(
15684: p_app_short_name => 'PA',
15685: p_msg_name => 'PA_INV_MTH_TT_NOT_SET'
15686: );
15687: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15759: CLOSE cur_rev_inv;
15760:
15761: IF nvl(l_enable_funds_flag,'N')='N' AND p_project_in.date_eff_funds_flag ='Y' THEN
15762:
15763: PA_UTILS.ADD_MESSAGE(
15764: p_app_short_name => 'PA',
15765: p_msg_name => 'PA_FUNDS_FLAG_CANT_ENABLED'
15766: );
15767: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
15769: END IF;
15770:
15771: IF nvl(l_chk_rev_inv_flag,'N')= 'Y' THEN
15772:
15773: PA_UTILS.ADD_MESSAGE(
15774: p_app_short_name => 'PA',
15775: p_msg_name => 'PA_FUNDS_FLAG_NOT_UPDATBL'
15776: );
15777: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
16473: END IF;
16474:
16475:
16476: if l_return_status <> 'S' then
16477: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
16478: p_msg_name => 'PA_ERR_MOD_PROJ_OPP_ATTR');
16479: RAISE FND_API.G_EXC_ERROR;
16480: end if;
16481: END IF;
16966:
16967: --BUG 4413568 DHI ER , rtarway, if p_update_mode is PA_UPD_TASK_ATTR, WBS/FBS hierarchy can not be changed.
16968: --if l_task_id is null, means this is a new task, so we should be raising an error at this point itself
16969: IF ( p_update_mode = 'PA_UPD_TASK_ATTR') THEN
16970: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
16971: p_msg_name => 'PA_WBS_CANT_CHANGE');
16972: RAISE FND_API.G_EXC_ERROR;
16973: END IF;
16974:
17255: p_tasks_in(i).task_completion_date IS NOT NULL AND
17256: p_tasks_in(i).task_completion_date < x_si_date ) THEN
17257: close cur_inv_date;
17258:
17259: PA_UTILS.ADD_MESSAGE(
17260: p_app_short_name => 'PA'
17261: , p_msg_name => 'PA_SI_INVALID_FINISH_DATE'
17262: , p_token1 => 'SIFINISHDATE'
17263: , p_value1 => x_si_date);
17839: end if;
17840: /* Code addition for bug 2982057 ends */
17841: --DHI ER, bug 4413568
17842: IF ( p_update_mode = 'PA_UPD_TASK_ATTR' ) THEN --bug 4534919
17843: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
17844: p_msg_name => 'PA_WBS_CANT_CHANGE');
17845: RAISE FND_API.G_EXC_ERROR;
17846: END IF;
17847: PA_PROJECT_PVT.add_task_round_one
18783: IF p_key_members(i).start_date IS NULL OR
18784: p_key_members(i).start_date = PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE then
18785: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
18786: THEN
18787: pa_utils.add_message
18788: ( p_app_short_name => 'PA'-- new message for bug 3326468
18789: ,p_msg_name => 'PA_KEYMBR_NO_START_DATE'
18790: ,p_token1 => 'PROJECT_NAME'
18791: ,p_value1 => l_project_rec.segment1
19097: FETCH c_prj_count INTO l_prj_mgr_count;
19098: CLOSE c_prj_count;
19099: IF l_prj_mgr_count = 0 THEN
19100: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
19101: pa_utils.add_message
19102: ( p_app_short_name => 'PA'
19103: ,p_msg_name => 'PA_PR_INSUF_PROJ_MGR'
19104: );
19105: RAISE FND_API.G_EXC_ERROR;
19479: --dbms_output.put_line('five'||l_check_relationship_flag);
19480: --passed customer does not exist
19481: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
19482: --Changed the error message from PA_CUSTOMER_NOT_EXIST to PA_CUSTOMER_ID_INVALID for Bug#5183150
19483: pa_utils.add_message
19484: ( p_app_short_name => 'PA'
19485: ,p_msg_name => 'PA_CUSTOMER_ID_INVALID'
19486: );
19487: END IF;
19493: --dbms_output.put_line('four'||l_check_relationship_flag);
19494: IF ( l_cust_status = 'I' ) THEN
19495: --customer is not active
19496: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
19497: pa_utils.add_message
19498: ( p_app_short_name => 'PA'
19499: ,p_msg_name => 'PA_CUSTOMER_NOT_ACTIVE'
19500: ,p_token1 => 'PROJECT_NAME'
19501: ,p_value1 => l_project_rec.segment1
20072: IF p_customers_in(i).project_relationship_code IS NULL OR
20073: p_customers_in(i).project_relationship_code = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
20074: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20075: THEN
20076: pa_utils.add_message
20077: ( p_app_short_name => 'PA'-- using existing message for AA TRACKING
20078: ,p_msg_name => 'PA_RELATIONSHIP_CODE_REQD'
20079: ,p_token1 => 'PROJECT_NAME'
20080: ,p_value1 => l_project_rec.segment1
20095: IF p_customers_in(i).CUSTOMER_BILL_SPLIT IS NULL OR
20096: p_customers_in(i).CUSTOMER_BILL_SPLIT = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM then
20097: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20098: THEN
20099: pa_utils.add_message
20100: ( p_app_short_name => 'PA'-- new message for AA TRACKING
20101: ,p_msg_name => 'PA_CUST_BILL_SPLIT_REQD'
20102: ,p_token1 => 'PROJECT_NAME'
20103: ,p_value1 => l_project_rec.segment1
20112: ( p_customer_bill_split => p_customers_in(i).CUSTOMER_BILL_SPLIT
20113: ,x_return_status => l_return_status
20114: ,x_error_msg_code => l_error_msg_code);
20115: If l_return_status <> FND_API.G_RET_STS_SUCCESS then
20116: pa_utils.add_message
20117: ( p_app_short_name => 'PA' --TRACKING
20118: ,p_msg_name => 'PA_CUST_BILL_SPLIT_INVALID'
20119: ,p_token1 => 'PROJECT_NAME'
20120: ,p_value1 => l_project_rec.segment1
20266:
20267: IF (p_customers_in(i).PROJECT_CONTACT_TYPE_CODE IS NULL) OR (p_customers_in(i).PROJECT_CONTACT_TYPE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )THEN
20268: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20269: THEN
20270: pa_utils.add_message
20271: ( p_app_short_name => 'PA'-- existing message for tracking bug
20272: ,p_msg_name => 'PA_CONTACT_TYPE_REQD'
20273: ,p_token1 => 'PROJECT_NAME'
20274: ,p_value1 => l_project_in_rec.pm_project_reference
20722: Else
20723: If (pa_customer_info.revenue_accrued_or_billed(l_project_id)) then
20724: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20725: THEN
20726: pa_utils.add_message
20727: ( p_app_short_name => 'PA'-- new message for bug 3326468
20728: ,p_msg_name => 'PA_UPD_CUST_NOT_ALLOWED'
20729: ,p_token1 => 'PROJECT_NAME'
20730: ,p_value1 => l_project_id
20750: Else /* Some value of passed for receiver_task_id */
20751: If l_bill_another_project_flag = 'N' Then
20752: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20753: THEN
20754: pa_utils.add_message
20755: ( p_app_short_name => 'PA'-- new message for bug 4153629
20756: ,p_msg_name => 'PA_UPD_RCVR_TSK_NOT_ALLOWED'
20757: ,p_token1 => 'PROJECT_NAME'
20758: ,p_value1 => l_project_id
20772: ,x_error_msg_code => l_error_msg_code
20773: );
20774: --dbms_output..put_line('value of l_bill_another_project_flag'||l_bill_another_project_flag);
20775: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
20776: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
20777: p_msg_name => l_error_msg_code
20778: ,p_token1 => 'PROJECT_NAME'
20779: ,p_value1 => l_project_id
20780: ,p_token2 => 'CUSTOMER_ID'
20795: Else /* Some value of passed for receiver_task_id */
20796: If l_bill_another_project_flag = 'N' Then
20797: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20798: THEN
20799: pa_utils.add_message
20800: ( p_app_short_name => 'PA'-- new message for bug 4153629
20801: ,p_msg_name => 'PA_UPD_RCVR_TSK_NOT_ALLOWED'
20802: ,p_token1 => 'PROJECT_NAME'
20803: ,p_value1 => l_project_id
20818: );
20819: --dbms_output..put_line('value of l_bill_another_project_flag'||l_bill_another_project_flag);
20820:
20821: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
20822: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
20823: p_msg_name => l_error_msg_code
20824: ,p_token1 => 'PROJECT_NAME'
20825: ,p_value1 => l_project_id
20826: ,p_token2 => 'CUSTOMER_ID'
20866:
20867: IF (p_customers_in(i).PROJECT_CONTACT_TYPE_CODE IS NULL) OR (p_customers_in(i).PROJECT_CONTACT_TYPE_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )THEN
20868: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
20869: THEN
20870: pa_utils.add_message
20871: ( p_app_short_name => 'PA'-- existing message for tracking bug
20872: ,p_msg_name => 'PA_CONTACT_TYPE_REQD'
20873: ,p_token1 => 'PROJECT_NAME'
20874: ,p_value1 => l_project_in_rec.pm_project_reference
21286: ,p_attribute2 => ''
21287: ,p_attribute3 => ''
21288: ,p_attribute4 => ''
21289: ,p_attribute5 => ''); */
21290: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
21291: ,p_msg_name => 'PA_TOT_CUST_BILL_SPLIT_INVLD');
21292: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
21293: p_return_status := FND_API.G_RET_STS_ERROR;
21294: RAISE FND_API.G_EXC_ERROR;
21558: l_old_cust_top_task_flag = 'N'
21559: )
21560: )
21561: THEN
21562: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
21563: ,p_msg_name => 'PA_TASK_FUNDING_EXIST'
21564: );
21565: p_project_out.return_status := FND_API.G_RET_STS_ERROR;
21566: RAISE FND_API.G_EXC_ERROR;
23013:
23014:
23015: if task_adj_on_std_inv <> 'X' then
23016:
23017: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
23018: ,p_msg_name => 'PA_INVALID_ADJ_ON_STD_INV');
23019:
23020: l_return_status := FND_API.G_RET_STS_ERROR;
23021:
23428: ,p_attribute3 => ''
23429: ,p_attribute4 => ''
23430: ,p_attribute5 => '');
23431: ELSE
23432: PA_UTILS.ADD_MESSAGE
23433: (p_app_short_name => 'PA',
23434: p_msg_name => 'PA_INVALID_PROJECT_CUSTOMER',
23435: p_token1 => 'CUSTOMER_NAME',
23436: p_value1 => l_customer_name
28057: -- Validate the structure type. It should be FINANCIAL / WORKPLAN /DELIVERABLE.
28058: -- Throw an error otherwise.
28059:
28060: IF nvl(p_structure_type,'-99') not in ('FINANCIAL','WORKPLAN', 'DELIVERABLE') THEN
28061: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
28062: ,p_msg_name => 'PA_PS_INV_STR_TYPE');
28063:
28064: RAISE FND_API.G_EXC_ERROR;
28065: END IF;
28824: --although it does not convey full message here and we will change it later
28825: --The message PA_PS_INV_STR_VER_ID does not have the AMG at the end so I cant use the standard api
28826: --call for AMG messages i.e,pa_interface_utils_pub.map_new_amg_msg
28827:
28828: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
28829: ,p_msg_name => 'PA_PS_INV_STR_VER_ID');
28830: END IF;
28831: p_return_status := FND_API.G_RET_STS_ERROR;
28832: RAISE FND_API.G_EXC_ERROR;
28947: THEN
28948:
28949: -- Using the message name PA_PS_INV_STR_VER_ID
28950:
28951: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
28952: ,p_msg_name => 'PA_PS_INV_STR_VER_ID');
28953: END IF;
28954: p_return_status := FND_API.G_RET_STS_ERROR;
28955: RAISE FND_API.G_EXC_ERROR;
28963: CLOSE l_temp_cursor;
28964: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
28965: THEN
28966: -- Using the message name PA_PS_INV_STR_VER_ID
28967: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
28968: ,p_msg_name => 'PA_PS_INV_STR_VER_ID');
28969: END IF;
28970: p_return_status := FND_API.G_RET_STS_ERROR;
28971: RAISE FND_API.G_EXC_ERROR;
29179: ,x_msg_count => l_msg_count
29180: ,x_msg_data => l_msg_data);
29181:
29182: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
29183: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
29184: p_msg_name => l_msg_data);
29185: p_msg_data := l_msg_data;
29186: p_return_status := 'E';
29187: p_msg_count := l_msg_count;
30214: RAISE FND_API.G_EXC_ERROR;
30215: END IF;
30216:
30217: IF l_function_allowed = 'N' THEN
30218: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
30219: ,p_msg_name => 'PA_FUNCTION_SECURITY_ENFORCED');
30220: x_return_status := FND_API.G_RET_STS_ERROR;
30221: RAISE FND_API.G_EXC_ERROR;
30222: END IF;
30270:
30271: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
30272: THEN
30273:
30274: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
30275: ,p_msg_name => 'PA_TASK_ID_INVALID');
30276:
30277: x_return_status := FND_API.G_RET_STS_ERROR;
30278: RAISE FND_API.G_EXC_ERROR;
30343: END IF;
30344: END IF;
30345:
30346: IF G_DLVR_STRUCTURE_ENABLED = 'N' THEN
30347: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
30348: ,p_msg_name => 'PA_DLV_STRUCTURE_DISABLED');
30349: x_return_status := FND_API.G_RET_STS_ERROR;
30350: RAISE FND_API.G_EXC_ERROR;
30351: END IF;
30565: ELSE --l_dlvr_action_enabled <> 'Y'
30566:
30567: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
30568: l_err_message := FND_MESSAGE.GET_STRING('PA','DLVR_ACTION_NOT_ENABLED') ;
30569: PA_UTILS.ADD_MESSAGE
30570: (p_app_short_name => 'PA',
30571: p_msg_name => 'PA_DLVR_VALID_ERR',
30572: p_token1 => 'PROJECT',
30573: p_value1 => l_project_number,
31038: ELSE --l_dlvr_action_enabled <> 'Y'
31039:
31040: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
31041: l_err_message := FND_MESSAGE.GET_STRING('PA','DLVR_ACTION_NOT_ENABLED') ;
31042: PA_UTILS.ADD_MESSAGE
31043: (p_app_short_name => 'PA',
31044: p_msg_name => 'PA_DLVR_VALID_ERR',
31045: p_token1 => 'PROJECT',
31046: p_value1 => l_project_number,
32276: RAISE FND_API.G_EXC_ERROR;
32277: END IF;
32278:
32279: IF l_function_allowed = 'N' THEN
32280: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
32281: ,p_msg_name => 'PA_FUNCTION_SECURITY_ENFORCED');
32282: x_return_status := FND_API.G_RET_STS_ERROR;
32283: RAISE FND_API.G_EXC_ERROR;
32284: END IF;
33200:
33201: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
33202: THEN
33203:
33204: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
33205: ,p_msg_name => 'PA_TASK_ID_INVALID');
33206:
33207: x_return_status := FND_API.G_RET_STS_ERROR;
33208: RAISE FND_API.G_EXC_ERROR;
35195: --
35196: --Bug 3768875
35197: If PA_PROJECT_STRUCTURE_UTILS.Check_Project_exists(l_project_id) = 'Y' Then
35198: If PA_PROJECT_STRUCTURE_UTILS.Check_Structure_Ver_Exists(l_project_id,p_structure_version_id) <> 'Y' THEN
35199: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35200: p_msg_name => 'PA_INV_STRUCUTRE_VER_ID');
35201: RAISE FND_API.G_EXC_ERROR;
35202: End If;
35203: Else
35200: p_msg_name => 'PA_INV_STRUCUTRE_VER_ID');
35201: RAISE FND_API.G_EXC_ERROR;
35202: End If;
35203: Else
35204: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35205: p_msg_name => 'PA_INV_PROJECT_ID');
35206: RAISE FND_API.G_EXC_ERROR;
35207: End If;
35208: --
35222: OPEN get_workplan_status(l_project_id, p_structure_version_id);
35223: FETCH get_workplan_status into l_wp_status;
35224: CLOSE get_workplan_status;
35225: IF l_wp_status <> 'STRUCTURE_WORKING' THEN
35226: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35227: p_msg_name => 'PA_UPDATE_PUB_VER_ERR');
35228: RAISE FND_API.G_EXC_ERROR;
35229: END IF;
35230: ELSE
35228: RAISE FND_API.G_EXC_ERROR;
35229: END IF;
35230: ELSE
35231: IF (l_versioning IS NULL) THEN
35232: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35233: p_msg_name => 'PA_PS_WORKPLAN_DISABLED');
35234: RAISE FND_API.G_EXC_ERROR;
35235: END IF;
35236: END IF;
35241: open get_task_ver_id(l_project_id, p_pm_task_reference);
35242: Fetch get_task_ver_id into l_task_ver_id;
35243: -- Bug 3768875
35244: IF get_task_ver_id%NOTFOUND THEN
35245: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35246: p_msg_name => 'PA_PS_INV_TASK_ID');
35247: CLOSE get_task_ver_id;
35248: RAISE FND_API.G_EXC_ERROR;
35249: END IF;
35255: --need to get id using task id
35256: OPEN get_task_ver_id2(l_project_id, p_pa_task_id);
35257: FETCH get_task_Ver_id2 into l_task_ver_id;
35258: IF get_task_ver_id2%NOTFOUND THEN
35259: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35260: p_msg_name => 'PA_PS_INV_TASK_ID');
35261: CLOSE get_task_ver_id2;
35262: RAISE FND_API.G_EXC_ERROR;
35263: END IF;
35270: open get_task_ver_id(l_project_id, p_pm_pred_reference);
35271: Fetch get_task_ver_id into l_pred_ver_id;
35272: --Bug 3768875
35273: IF get_task_ver_id%NOTFOUND THEN
35274: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35275: p_msg_name => 'PA_PS_INV_TASK_ID');
35276: CLOSE get_task_ver_id;
35277: RAISE FND_API.G_EXC_ERROR;
35278: END IF;
35284: --need to get id using task id
35285: OPEN get_task_ver_id2(l_project_id, p_pa_pred_id);
35286: FETCH get_task_Ver_id2 into l_pred_ver_id;
35287: IF get_task_ver_id2%NOTFOUND THEN
35288: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35289: p_msg_name => 'PA_PS_INV_TASK_ID');
35290: CLOSE get_task_ver_id2;
35291: RAISE FND_API.G_EXC_ERROR;
35292: END IF;
35296: --
35297: -- Bug 3768933 Validating the relationship_subtype
35298: -- Bug 8513869 - Replaced lookup type PA_OBJECT_DEPENDENCY_TYPES with PA_DEPENDENCY_TYPE
35299: IF PA_PROJ_ELEMENTS_UTILS.check_pa_lookup_exists('PA_DEPENDENCY_TYPE',p_type) <> 'Y' THEN
35300: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35301: p_msg_name => 'PA_PS_INV_REL_SUBTYPE_VAL');
35302: RAISE FND_API.G_EXC_ERROR;
35303: END IF;
35304: --
35454: --
35455: --Bug 3769089
35456: If PA_PROJECT_STRUCTURE_UTILS.Check_Project_exists(l_project_id) = 'Y' Then
35457: If PA_PROJECT_STRUCTURE_UTILS.Check_Structure_Ver_Exists(l_project_id,p_structure_version_id) <> 'Y' THEN
35458: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35459: p_msg_name => 'PA_INV_STRUCUTRE_VER_ID');
35460:
35461: RAISE FND_API.G_EXC_ERROR;
35462: End If;
35460:
35461: RAISE FND_API.G_EXC_ERROR;
35462: End If;
35463: Else
35464: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35465: p_msg_name => 'PA_INV_PROJECT_ID');
35466: RAISE FND_API.G_EXC_ERROR;
35467: End If;
35468: --
35483: OPEN get_workplan_status(l_project_id, p_structure_version_id);
35484: FETCH get_workplan_status into l_wp_status;
35485: CLOSE get_workplan_status;
35486: IF l_wp_status <> 'STRUCTURE_WORKING' THEN
35487: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35488: p_msg_name => 'PA_UPDATE_PUB_VER_ERR');
35489: RAISE FND_API.G_EXC_ERROR;
35490: END IF;
35491: ELSE
35489: RAISE FND_API.G_EXC_ERROR;
35490: END IF;
35491: ELSE
35492: IF (l_versioning IS NULL) THEN
35493: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35494: p_msg_name => 'PA_PS_WORKPLAN_DISABLED');
35495: RAISE FND_API.G_EXC_ERROR;
35496: END IF;
35497: END IF;
35502: open get_task_ver_id(l_project_id, p_pm_task_reference);
35503: Fetch get_task_ver_id into l_task_ver_id;
35504: --Bug 3769089
35505: IF get_task_ver_id%NOTFOUND THEN
35506: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35507: p_msg_name => 'PA_PS_INV_TASK_ID');
35508: CLOSE get_task_ver_id;
35509: RAISE FND_API.G_EXC_ERROR;
35510: END IF;
35516: --need to get id using task id
35517: OPEN get_task_ver_id2(l_project_id, p_pa_task_id);
35518: FETCH get_task_Ver_id2 into l_task_ver_id;
35519: IF get_task_ver_id2%NOTFOUND THEN
35520: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35521: p_msg_name => 'PA_PS_INV_TASK_ID');
35522: CLOSE get_task_ver_id2;
35523: RAISE FND_API.G_EXC_ERROR;
35524: END IF;
35532: open get_task_ver_id(l_project_id, p_pm_pred_reference);
35533: Fetch get_task_ver_id into l_pred_ver_id;
35534: --Bug 3769089
35535: IF get_task_ver_id%NOTFOUND THEN
35536: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35537: p_msg_name => 'PA_PS_INV_TASK_ID');
35538: CLOSE get_task_ver_id;
35539: RAISE FND_API.G_EXC_ERROR;
35540: END IF;
35546: --need to get id using task id
35547: OPEN get_task_ver_id2(l_project_id, p_pa_pred_id);
35548: FETCH get_task_Ver_id2 into l_pred_ver_id;
35549: IF get_task_ver_id2%NOTFOUND THEN
35550: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35551: p_msg_name => 'PA_PS_INV_TASK_ID');
35552: CLOSE get_task_ver_id2;
35553: RAISE FND_API.G_EXC_ERROR;
35554: END IF;
35561: open get_rvn(l_task_ver_id, l_pred_ver_id);
35562: FETCH get_rvn into l_record_version_number;
35563: --Bug 3769047
35564: IF get_rvn%NOTFOUND THEN
35565: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35566: p_msg_name => 'PA_PS_INV_DEP_ID');
35567: RAISE FND_API.G_EXC_ERROR;
35568: END IF;
35569: CLOSE get_rvn;
35715: --
35716: --Bug 3769079
35717: If PA_PROJECT_STRUCTURE_UTILS.Check_Project_exists(l_project_id) = 'Y' Then
35718: If PA_PROJECT_STRUCTURE_UTILS.Check_Structure_Ver_Exists(l_project_id,p_structure_version_id) <> 'Y' THEN
35719: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35720: p_msg_name => 'PA_INV_STRUCUTRE_VER_ID');
35721: RAISE FND_API.G_EXC_ERROR;
35722: End If;
35723: Else
35720: p_msg_name => 'PA_INV_STRUCUTRE_VER_ID');
35721: RAISE FND_API.G_EXC_ERROR;
35722: End If;
35723: Else
35724: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35725: p_msg_name => 'PA_INV_PROJECT_ID');
35726: RAISE FND_API.G_EXC_ERROR;
35727: End If;
35728: --
35743: OPEN get_workplan_status(l_project_id, p_structure_version_id);
35744: FETCH get_workplan_status into l_wp_status;
35745: CLOSE get_workplan_status;
35746: IF l_wp_status <> 'STRUCTURE_WORKING' THEN
35747: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35748: p_msg_name => 'PA_UPDATE_PUB_VER_ERR');
35749: RAISE FND_API.G_EXC_ERROR;
35750: END IF;
35751: ELSE
35749: RAISE FND_API.G_EXC_ERROR;
35750: END IF;
35751: ELSE
35752: IF (l_versioning IS NULL) THEN
35753: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35754: p_msg_name => 'PA_PS_WORKPLAN_DISABLED');
35755: RAISE FND_API.G_EXC_ERROR;
35756: END IF;
35757: END IF;
35762: open get_task_ver_id(l_project_id, p_pm_task_reference);
35763: Fetch get_task_ver_id into l_task_ver_id;
35764: --Bug 3769079
35765: IF get_task_ver_id%NOTFOUND THEN
35766: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35767: p_msg_name => 'PA_PS_INV_TASK_ID');
35768: CLOSE get_task_ver_id;
35769: RAISE FND_API.G_EXC_ERROR;
35770: END IF;
35776: --need to get id using task id
35777: OPEN get_task_ver_id2(l_project_id, p_pa_task_id);
35778: FETCH get_task_Ver_id2 into l_task_ver_id;
35779: IF get_task_ver_id2%NOTFOUND THEN
35780: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35781: p_msg_name => 'PA_PS_INV_TASK_ID');
35782: CLOSE get_task_ver_id2;
35783: RAISE FND_API.G_EXC_ERROR;
35784: END IF;
35791: open get_task_ver_id(l_project_id, p_pm_pred_reference);
35792: Fetch get_task_ver_id into l_pred_ver_id;
35793: --Bug 3769079
35794: IF get_task_ver_id%NOTFOUND THEN
35795: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35796: p_msg_name => 'PA_PS_INV_TASK_ID');
35797: CLOSE get_task_ver_id;
35798: RAISE FND_API.G_EXC_ERROR;
35799: END IF;
35805: --need to get id using task id
35806: OPEN get_task_ver_id2(l_project_id, p_pa_pred_id);
35807: FETCH get_task_Ver_id2 into l_pred_ver_id;
35808: IF get_task_ver_id2%NOTFOUND THEN
35809: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35810: p_msg_name => 'PA_PS_INV_TASK_ID');
35811: CLOSE get_task_ver_id2;
35812: RAISE FND_API.G_EXC_ERROR;
35813: END IF;
35821: open get_rvn(l_task_ver_id, l_pred_ver_id);
35822: FETCH get_rvn into l_obj_rel_id, l_record_version_number;
35823: --Bug 3769066
35824: IF get_rvn%NOTFOUND THEN
35825: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
35826: p_msg_name => 'PA_PS_INV_DEP_ID');
35827: RAISE FND_API.G_EXC_ERROR;
35828: END IF;
35829: CLOSE get_rvn;
36452:
36453: END IF;
36454:
36455: If PA_PROJECT_STRUCTURE_UTILS.Check_Structure_Ver_Exists(l_project_id, p_structure_version_id) <> 'Y' THEN
36456: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
36457: p_msg_name => 'PA_INV_STRUCUTRE_VER_ID');
36458:
36459: RAISE FND_API.G_EXC_ERROR;
36460: End If;
36519: ,p_structure_version_id => p_structure_version_id );
36520:
36521: IF l_process_code = 'PUE'
36522: THEN
36523: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
36524: ,p_msg_name => 'PA_PS_PUBLISH_ERROR');
36525:
36526: RAISE FND_API.G_EXC_ERROR;
36527: END IF;
37205: close l_cur_task_ver_id;
37206:
37207: -- Validate that the task has a version in the specified structure type.
37208: if (l_task_version_id is null) then
37209: PA_UTILS.ADD_MESSAGE('PA','PA_TASK_ID_INVALID');
37210: l_exp_error_flag := 'Y';
37211: end if;
37212:
37213: end if;
37221: if (l_exp_error_flag = 'N' and l_unexp_error_flag = 'N') then -- Indicates no errors thus far in the loop iteration.
37222: open l_cur_project_id2(l_task_version_id);
37223: fetch l_cur_project_id2 into l_parent_project_id, l_task_id;
37224: if l_cur_project_id2%NOTFOUND then
37225: PA_UTILS.ADD_MESSAGE('PA','PA_TASK_VERSION_REQUIRED');
37226: l_exp_error_flag := 'Y';
37227: end if;
37228: close l_cur_project_id2;
37229: end if;
37279: end if;
37280:
37281: if (l_sub_project_id is null) then
37282:
37283: PA_UTILS.ADD_MESSAGE('PA','PA_INV_PROJECT_ID');
37284: l_exp_error_flag := 'Y';
37285:
37286: l_parent_sub_flag := 'S'; -- Indicates that the error is for the sub-project.
37287:
37304: open l_cur_task_name(l_task_version_id);
37305: fetch l_cur_task_name into l_task_name;
37306: close l_cur_task_name;
37307:
37308: PA_UTILS.ADD_MESSAGE('PA','PA_PS_CANT_LINK_SUMMARY_TASK'
37309: ,'PROJ', l_project_name
37310: ,'PROG', l_program_name
37311: ,'TASK', l_task_name);
37312:
37398: open l_cur_proj_name(l_sub_project_id);
37399: fetch l_cur_proj_name into l_project_name;
37400: close l_cur_proj_name;
37401:
37402: PA_UTILS.ADD_MESSAGE('PA','PA_PS_NO_WORKPLAN_TO_LINK'
37403: ,'PROJ', l_project_name);
37404: l_exp_error_flag := 'Y';
37405:
37406: l_parent_sub_flag := 'S'; -- Indicates that the error is for the sub-project.
37412: open l_cur_proj_name(l_sub_project_id);
37413: fetch l_cur_proj_name into l_project_name;
37414: close l_cur_proj_name;
37415:
37416: PA_UTILS.ADD_MESSAGE('PA','PA_PS_NO_FINANCIAL_TO_LINK'
37417: ,'PROJ', l_project_name);
37418: l_exp_error_flag := 'Y';
37419:
37420: l_parent_sub_flag := 'S'; -- Indicates that the error is for the sub-project.
37519: -- Clear all previous messages from the message stack.
37520: FND_MSG_PUB.initialize;
37521:
37522: -- Populate the generic error message.
37523: PA_UTILS.ADD_MESSAGE('PA','PA_PS_GENERIC_ERROR');
37524:
37525: -- Loop through the local pl/sql error table to populate the tokenized error messages.
37526: for l in l_prog_error_tbl.first..l_prog_error_tbl.last
37527: loop
37525: -- Loop through the local pl/sql error table to populate the tokenized error messages.
37526: for l in l_prog_error_tbl.first..l_prog_error_tbl.last
37527: loop
37528: if (l_prog_error_tbl.exists(l)) then
37529: PA_UTILS.ADD_MESSAGE('PA','PA_PS_TOKENIZED_ERROR'
37530: ,'TASKNAME',l_prog_error_tbl(l).program_name
37531: ,'TASKNUMBER',l_prog_error_tbl(l).object_relationship_id
37532: ,'ERRORMSG', l_prog_error_tbl(l).error_msg);
37533: end if;
37802: close l_cur_task_ver_id;
37803:
37804: -- Validate that the task has a version in the specified structure type.
37805: if (l_task_version_id is null) then
37806: PA_UTILS.ADD_MESSAGE('PA','PA_TASK_ID_INVALID');
37807: l_exp_error_flag := 'Y';
37808: end if;
37809:
37810: end if;
37818: if (l_exp_error_flag = 'N' and l_unexp_error_flag = 'N') then -- Indicates no errors thus far in the loop iteration.
37819: open l_cur_project_id2(l_task_version_id);
37820: fetch l_cur_project_id2 into l_parent_project_id, l_task_id;
37821: if l_cur_project_id2%NOTFOUND then
37822: PA_UTILS.ADD_MESSAGE('PA','PA_TASK_VERSION_REQUIRED');
37823: l_exp_error_flag := 'Y';
37824: end if;
37825:
37826: close l_cur_project_id2;
37877: end if;
37878:
37879: if (l_sub_project_id is null) then
37880:
37881: PA_UTILS.ADD_MESSAGE('PA','PA_INV_PROJECT_ID');
37882: l_exp_error_flag := 'Y';
37883:
37884: l_parent_sub_flag := 'S'; -- Indicates that the error is for the sub-project.
37885:
37903: open l_cur_task_name(l_task_version_id);
37904: fetch l_cur_task_name into l_task_name;
37905: close l_cur_task_name;
37906:
37907: PA_UTILS.ADD_MESSAGE('PA','PA_PS_NO_LINK_EXISTS'
37908: ,'PROJ', l_project_name
37909: ,'PROG', l_program_name
37910: ,'TASK', l_task_name
37911: ,'STR', p_program_links_tbl(l_count).structure_type);
37921: open l_cur_por2(p_program_links_tbl(l_count).object_relationship_id);
37922: fetch l_cur_por2 into l_object_relationship_id, l_record_version_number, l_parent_project_id;
37923: if l_cur_por2%NOTFOUND then
37924: -- Invalid object_relationship_id.
37925: PA_UTILS.ADD_MESSAGE('PA','PA_PS_INVALID_OBJ_REL_ID'
37926: ,'OBJRELID', p_program_links_tbl(l_count).object_relationship_id);
37927:
37928: l_exp_error_flag := 'Y';
37929: end if;
38102: -- Clear all previous messages from the message stack.
38103: FND_MSG_PUB.initialize;
38104:
38105: -- Populate the generic error message.
38106: PA_UTILS.ADD_MESSAGE('PA','PA_PS_GENERIC_ERROR');
38107:
38108: -- Loop through the local pl/sql error table to populate the tokenized error messages.
38109: for l in l_prog_error_tbl.first..l_prog_error_tbl.last
38110: loop
38108: -- Loop through the local pl/sql error table to populate the tokenized error messages.
38109: for l in l_prog_error_tbl.first..l_prog_error_tbl.last
38110: loop
38111: if (l_prog_error_tbl.exists(l)) then
38112: PA_UTILS.ADD_MESSAGE('PA','PA_PS_TOKENIZED_ERROR'
38113: ,'TASKNAME',l_prog_error_tbl(l).program_name
38114: ,'TASKNUMBER',l_prog_error_tbl(l).object_relationship_id
38115: ,'ERRORMSG', l_prog_error_tbl(l).error_msg);
38116: end if;
38339: close l_cur_task_ver_id;
38340:
38341: -- Validate that the task has a version in the specified structure type.
38342: if (l_task_version_id is null) then
38343: PA_UTILS.ADD_MESSAGE('PA','PA_TASK_ID_INVALID');
38344: raise FND_API.G_EXC_ERROR;
38345: end if;
38346:
38347: -- If task version id is passed in.
38350:
38351: open l_cur_project_id2(l_task_version_id);
38352: fetch l_cur_project_id2 into l_parent_project_id, l_task_id;
38353: if l_cur_project_id2%NOTFOUND then
38354: PA_UTILS.ADD_MESSAGE('PA','PA_TASK_VERSION_REQUIRED');
38355: raise FND_API.G_EXC_ERROR;
38356: end if;
38357: close l_cur_project_id2;
38358:
38403: end if;
38404:
38405: if (l_sub_project_id is null) then
38406:
38407: PA_UTILS.ADD_MESSAGE('PA','PA_INV_PROJECT_ID');
38408: raise FND_API.G_EXC_ERROR;
38409:
38410: end if;
38411:
38425: open l_cur_task_name(l_task_version_id);
38426: fetch l_cur_task_name into l_task_name;
38427: close l_cur_task_name;
38428:
38429: PA_UTILS.ADD_MESSAGE('PA','PA_PS_NO_LINK_EXISTS'
38430: ,'PROJ', l_project_name
38431: ,'PROG', l_program_name
38432: ,'TASK', l_task_name
38433: ,'STR', p_structure_type);
38445: fetch l_cur_por2 into l_object_relationship_id, l_record_version_number, l_parent_project_id;
38446: if l_cur_por2%NOTFOUND then
38447: -- Invalid object_relationship_id.
38448:
38449: PA_UTILS.ADD_MESSAGE('PA','PA_PS_INVALID_OBJ_REL_ID'
38450: ,'OBJRELID', p_object_relationship_id);
38451:
38452: close l_cur_por2;
38453:
38759: and value = 'Y';
38760:
38761: exception
38762: when no_data_found then
38763: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
38764: p_msg_name => 'PA_LITE_API_CANT_USE');
38765: RAISE FND_API.G_EXC_ERROR;
38766: when others then
38767:
38778:
38779: --IF NVL(PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(l_project_id),' ') <> 'SHARE_FULL'
38780: IF NVL(l_project_details_rec.structure_sharing_code,' ') <> 'SHARE_FULL'
38781: OR NVL(PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_project_id),'N') = 'Y' THEN
38782: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
38783: p_msg_name => 'PA_CANT_USE_LITE_API');
38784: RAISE FND_API.G_EXC_ERROR;
38785: END IF;
38786:
38808: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
38809: PA_PROJECT_PVT.CONC_LOCK_PROJECT(p_project_id,'UPDATE',l_msg_data,l_return_status);
38810: IF l_return_status <> 'S'
38811: THEN
38812: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
38813: p_msg_name =>'PA_CANT_USE_LITE_API' );
38814: RAISE FND_API.G_EXC_ERROR;
38815: ELSE
38816: PA_PROJECT_PVT.LOG_ROLLUP_EVENT(p_project_id,l_structure_version_id,'UPDATE');
38940: p_op_validate_flag => p_op_validate_flag,
38941: p_pass_entire_structure => p_pass_entire_structure,
38942: p_update_mode => p_update_mode);
38943: IF l_return_status <> 'S' THEN
38944: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
38945: p_msg_name => 'PA_ERROR_UPDATING_PROJECT');
38946: RAISE FND_API.G_EXC_ERROR;
38947: END IF;
38948: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39075: and value = 'Y';
39076:
39077: exception
39078: when no_data_found then
39079: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39080: p_msg_name => 'PA_LITE_API_CANT_USE');
39081: RAISE FND_API.G_EXC_ERROR;
39082: when others then
39083:
39101:
39102: --IF NVL(PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(l_project_id),' ') <> 'SHARE_FULL'
39103: IF NVL(l_project_details_rec.structure_sharing_code,' ') <> 'SHARE_FULL'
39104: OR NVL(PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_project_id),'N') = 'Y' THEN
39105: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39106: p_msg_name => 'PA_CANT_USE_LITE_API');
39107: RAISE FND_API.G_EXC_ERROR;
39108: END IF;
39109:
39130: PA_PROJECT_PVT.CONC_LOCK_PROJECT(p_project_id,'ADD_F',l_msg_data,l_return_status);
39131: END IF;
39132: IF l_return_status <> 'S'
39133: THEN
39134: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39135: p_msg_name =>l_msg_data );
39136: RAISE FND_API.G_EXC_ERROR;
39137: ELSE
39138: PA_PROJECT_PVT.LOG_ROLLUP_EVENT(p_project_id,PA_PROJECT_PUB.G_STRUC_VERSION_ID,'ADD');
39237: p_CRITICAL_FLAG => p_tasks_in(j).CRITICAL_FLAG,
39238: p_financial_task_flag => p_tasks_in(j).financial_task_flag
39239: );
39240: IF l_return_status <> 'S' THEN
39241: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39242: p_msg_name => 'PA_ERROR_ADDING_TASKS');
39243: RAISE FND_API.G_EXC_ERROR;
39244: ELSE
39245: IF(p_commit=FND_API.G_TRUE) THEN
39331: p_CRITICAL_FLAG => p_tasks_in(j).CRITICAL_FLAG,
39332: p_financial_task_flag => p_tasks_in(j).financial_task_flag
39333: );
39334: IF l_return_status <> 'S' THEN
39335: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39336: p_msg_name => 'PA_ERROR_ADDING_TASKS');
39337: RAISE FND_API.G_EXC_ERROR;
39338: ELSE
39339: IF(p_commit=FND_API.G_TRUE) THEN
39480: p_op_validate_flag => p_op_validate_flag,
39481: p_pass_entire_structure => p_pass_entire_structure,
39482: p_update_mode => p_update_mode);
39483: IF l_return_status <> 'S' THEN
39484: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39485: p_msg_name => 'PA_ERROR_UPDATING_PROJECT');
39486: RAISE FND_API.G_EXC_ERROR;
39487: END IF;
39488: PA_PROJECT_PVT.LOG_TASK_LEVEL_EVENT(p_project_id,PA_PROJECT_PUB.G_STRUC_VERSION_ID,PA_PROJECT_PUB.G_STRUC_VERSION_ID,'ADD_FIRST');
39501: ,x_msg_data => l_msg_data
39502: );
39503:
39504: IF l_return_status <> 'S' THEN
39505: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39506: p_msg_name => 'PA_ERROR_REFRESHING_STRUCTURE');
39507: RAISE FND_API.G_EXC_ERROR;
39508: END IF;
39509: END IF;
39713: and value = 'Y';
39714:
39715: exception
39716: when no_data_found then
39717: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39718: p_msg_name => 'PA_LITE_API_CANT_USE');
39719: RAISE FND_API.G_EXC_ERROR;
39720: when others then
39721:
39723: end;
39724:
39725: IF NVL(PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(l_project_id),' ') <> 'SHARE_FULL'
39726: OR NVL(PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(l_project_id),'N') = 'Y' THEN
39727: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39728: p_msg_name => 'PA_CANT_USE_LITE_API');
39729: RAISE FND_API.G_EXC_ERROR;
39730: END IF;
39731: -- Set the G_ROLLUP_FLAG based on profile options
39733: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
39734: PA_PROJECT_PVT.CONC_LOCK_PROJECT(l_project_id,'MOVE',l_msg_data,l_return_status);
39735: IF l_return_status <> 'S'
39736: THEN
39737: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39738: p_msg_name =>l_msg_data );
39739: RAISE FND_API.G_EXC_ERROR;
39740: ELSE
39741: PA_PROJECT_PVT.LOG_ROLLUP_EVENT(l_project_id,p_structure_version_id,'MOVE');
39785: P_ERROR_STACK => l_err_stack,
39786: P_ERROR_STAGE => l_err_stage );
39787:
39788: IF l_err_code <> 0 THEN
39789: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39790: p_msg_name => l_err_stage);
39791: END IF;
39792: IF l_update_parent_task_allowed = 'N' THEN
39793: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39789: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39790: p_msg_name => l_err_stage);
39791: END IF;
39792: IF l_update_parent_task_allowed = 'N' THEN
39793: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
39794: p_msg_name => 'PA_PR_PM_NO_MOVE_TASK');
39795: raise FND_API.G_EXC_ERROR;
39796: END IF;
39797: End If;
40223: and value = 'Y';
40224:
40225: exception
40226: when no_data_found then
40227: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40228: p_msg_name => 'PA_LITE_API_CANT_USE');
40229: RAISE FND_API.G_EXC_ERROR;
40230: when others then
40231:
40233: end;
40234:
40235: IF NVL(PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_project_id),' ') <> 'SHARE_FULL'
40236: OR NVL(PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_project_id),'N') = 'Y' THEN
40237: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40238: p_msg_name => 'PA_CANT_USE_LITE_API');
40239: RAISE FND_API.G_EXC_ERROR;
40240: END IF;
40241:
40247: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
40248: PA_PROJECT_PVT.CONC_LOCK_PROJECT(p_project_id,'INDENT',l_msg_data,l_return_status);
40249: IF l_return_status <> 'S'
40250: THEN
40251: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40252: p_msg_name =>l_msg_data );
40253: RAISE FND_API.G_EXC_ERROR;
40254: ELSE
40255: PA_PROJECT_PVT.LOG_ROLLUP_EVENT(p_project_id,p_structure_version_id,'INDENT');
40302: P_ERROR_STACK => l_err_stack,
40303: P_ERROR_STAGE => l_err_stage );
40304:
40305: IF l_err_code <> 0 THEN
40306: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40307: p_msg_name => l_err_stage);
40308: END IF;
40309: IF l_update_parent_task_allowed = 'N' THEN
40310: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40306: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40307: p_msg_name => l_err_stage);
40308: END IF;
40309: IF l_update_parent_task_allowed = 'N' THEN
40310: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40311: p_msg_name => 'PA_PR_PM_NO_MOVE_TASK');
40312: raise FND_API.G_EXC_ERROR;
40313: END IF;
40314: END IF;
40333: IF (Nvl(pa_relationship_utils.check_task_has_sub_proj(p_project_id
40334: , src_proj_element_id
40335: , p_task_version_id),'N') = 'Y') THEN
40336: --deleting linked task. Error
40337: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_IND_LINKED_TASK');
40338: raise FND_API.G_EXC_ERROR;
40339: END IF;
40340: END IF;
40341:
40360:
40361: IF ('Y' = pa_proj_elements_utils.CHECK_ELEMENT_HAS_PHASE(
40362: src_proj_element_id)) THEN
40363: --Indenting a task with phase. Error
40364: PA_UTILS.ADD_MESSAGE('PA', 'PA_LC_NO_INDENT_PHASE_TASK');
40365: raise FND_API.G_EXC_ERROR;
40366: END IF;
40367: END IF;
40368:
40367: END IF;
40368:
40369:
40370: IF src_seq_number = 1 then
40371: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
40372: ,p_msg_name => 'PA_PS_CANNOT_INDENT');
40373: raise FND_API.G_EXC_ERROR;
40374: END IF;
40375:
40387: AND project_id = p_project_id
40388: AND object_type = 'PA_TASKS';
40389:
40390: IF src_wbs_level > ref_wbs_level then
40391: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
40392: ,p_msg_name => 'PA_PS_CANNOT_INDENT');
40393: raise FND_API.G_EXC_ERROR;
40394: END IF;
40395:
40424:
40425: END IF;
40426:
40427: IF PA_PROJ_ELEMENTS_UTILS.check_deliv_in_hierarchy(p_task_version_id, l_ref_tsk_version_id) = 'Y' THEN
40428: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40429: p_msg_name => 'PA_PS_CHK_DELIV_UPDATE');
40430: raise FND_API.G_EXC_ERROR;
40431: END IF;
40432:
40437: ,x_error_message_code => l_error_msg_code
40438: );
40439:
40440: IF (l_return_status <> 'Y') THEN
40441: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40442: p_msg_name => l_error_msg_code);
40443: raise FND_API.G_EXC_ERROR;
40444: END IF;
40445:
40460: FETCH get_top_task_ver_id into l_old_par_ver_id;
40461: CLOSE get_top_task_Ver_id;
40462:
40463: IF (NVL(l_new_par_ver_id, -99) <> NVL (l_old_par_ver_id, -99)) THEN
40464: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40465: p_msg_name => 'PA_CANT_CHANGE_PARENT');
40466: raise FND_API.G_EXC_ERROR;
40467: END IF;
40468: END IF;
40474: ,x_error_message_code => l_error_msg_code
40475: );
40476:
40477: IF (l_return_status <> 'Y') THEN
40478: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40479: p_msg_name => l_error_msg_code);
40480: raise FND_API.G_EXC_ERROR;
40481: END IF;
40482:
40481: END IF;
40482:
40483: --bug 4099488
40484: IF PA_RELATIONSHIP_UTILS.check_dependencies_valid(l_parent_ver_id, p_task_version_id) = 'N' THEN
40485: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40486: p_msg_name => 'PA_INV_MOV_TSK_DEP_ERR');
40487: raise FND_API.G_EXC_ERROR;
40488: END IF;
40489: --end bug 4099488
40499: FETCH get_top_task_ver_id into l_old_par_ver_id;
40500: CLOSE get_top_task_Ver_id;
40501:
40502: IF (NVL(l_new_par_ver_id, -99) <> NVL (l_old_par_ver_id, -99)) THEN
40503: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40504: p_msg_name => 'PA_CANT_CHANGE_PARENT');
40505: raise FND_API.G_EXC_ERROR;
40506: END IF;
40507: END IF;
40514: ,x_error_message_code => l_error_msg_code
40515: );
40516:
40517: IF (l_return_status <> 'Y') THEN
40518: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40519: p_msg_name => l_error_msg_code);
40520: raise FND_API.G_EXC_ERROR;
40521: END IF;
40522:
40521: END IF;
40522:
40523: --bug 4099488
40524: IF PA_RELATIONSHIP_UTILS.check_dependencies_valid(ref_elem_ver_id, p_task_version_id) = 'N' THEN
40525: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40526: p_msg_name => 'PA_INV_MOV_TSK_DEP_ERR');
40527: raise FND_API.G_EXC_ERROR;
40528: END IF;
40529: --end bug 4099488
40541: , x_msg_data => x_msg_data
40542: , x_error_msg_code => l_error_msg_code);
40543:
40544: IF (x_return_status <> 'S') THEN -- 4275757 : Changed from 'Y' to 'S'
40545: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
40546: p_msg_name => l_error_msg_code);
40547: raise FND_API.G_EXC_ERROR;
40548: End If;
40549: End If;
41030: --bug 2967204
41031: --Cannot move out of the current hierarchy
41032: IF NVL( l_top_task_id, -99 ) <> NVL( l_old_top_task_id, -99 )
41033: THEN
41034: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41035: p_msg_name => 'PA_CANT_CHANGE_PARENT');
41036: raise FND_API.G_EXC_ERROR;
41037: END IF;
41038: --End bug 2967204
41678: and value = 'Y';
41679:
41680: exception
41681: when no_data_found then
41682: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41683: p_msg_name => 'PA_LITE_API_CANT_USE');
41684: RAISE FND_API.G_EXC_ERROR;
41685: when others then
41686:
41689:
41690:
41691: IF NVL(PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_project_id),' ') <> 'SHARE_FULL'
41692: OR NVL(PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_project_id),'N') = 'Y' THEN
41693: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41694: p_msg_name => 'PA_CANT_USE_LITE_API');
41695: RAISE FND_API.G_EXC_ERROR;
41696: END IF;
41697:
41702: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
41703: PA_PROJECT_PVT.CONC_LOCK_PROJECT(p_project_id,'OUTDENT',l_msg_data,l_return_status);
41704: IF l_return_status <> 'S'
41705: THEN
41706: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41707: p_msg_name =>l_msg_data );
41708: RAISE FND_API.G_EXC_ERROR;
41709: ELSE
41710: PA_PROJECT_PVT.LOG_ROLLUP_EVENT(p_project_id,p_structure_version_id,'OUTDENT');
41757: P_ERROR_STACK => l_err_stack,
41758: P_ERROR_STAGE => l_err_stage );
41759:
41760: IF l_err_code <> 0 THEN
41761: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41762: p_msg_name => l_err_stage);
41763: END IF;
41764: IF l_update_parent_task_allowed = 'N' THEN
41765: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41761: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41762: p_msg_name => l_err_stage);
41763: END IF;
41764: IF l_update_parent_task_allowed = 'N' THEN
41765: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41766: p_msg_name => 'PA_PR_PM_NO_MOVE_TASK');
41767: raise FND_API.G_EXC_ERROR;
41768: END IF;
41769: END IF;
41774: IF ('N' = pa_proj_elements_utils.check_task_in_structure(
41775: p_structure_version_id,
41776: p_task_version_id)) THEN
41777: --deleting linked task. Error
41778: PA_UTILS.ADD_MESSAGE('PA', 'PA_PS_NO_OUTD_LINKED_TASK');
41779: raise FND_API.G_EXC_ERROR;
41780: END IF;
41781: END IF;
41782:
41809:
41810: -- Lifecycle Phase validation Changes should be implemented here
41811:
41812: IF src_wbs_level = 1 then
41813: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
41814: ,p_msg_name => 'PA_PS_CANNOT_OUTDENT');
41815: raise FND_API.G_EXC_ERROR;
41816: END IF;
41817:
41839: -- It will never return NO_DATA_FOUND as there will always at least one task with wbs_level-1
41840: END;
41841:
41842: IF src_wbs_level < ref_wbs_level then
41843: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
41844: ,p_msg_name => 'PA_PS_CANNOT_OUTDENT');
41845: raise FND_API.G_EXC_ERROR;
41846: END IF;
41847:
41864: IF (p_debug_mode = 'Y') THEN
41865: pa_debug.debug('ERROR - PA_PROJECT_PUB.BULK_OUTDENT_TASKS_LITE ');
41866: END IF;
41867:
41868: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41869: p_msg_name => 'PA_PS_TASK_HAS_SUB_PROJ');
41870: raise FND_API.G_EXC_ERROR;
41871:
41872: end if;
41878: ,x_error_message_code => l_error_msg_code
41879: );
41880:
41881: IF (l_return_status <> 'Y') THEN
41882: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41883: p_msg_name => l_error_msg_code);
41884: raise FND_API.G_EXC_ERROR;
41885: END IF;
41886:
41899: FETCH get_top_task_ver_id into l_old_par_ver_id;
41900: CLOSE get_top_task_Ver_id;
41901:
41902: IF (NVL(l_new_par_ver_id, -99) <> NVL (l_old_par_ver_id, -99)) THEN
41903: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41904: p_msg_name => 'PA_CANT_CHANGE_PARENT');
41905: raise FND_API.G_EXC_ERROR;
41906: END IF;
41907: END IF;
41912: ,x_error_message_code => l_error_msg_code
41913: );
41914:
41915: IF (l_return_status <> 'Y') THEN
41916: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41917: p_msg_name => l_error_msg_code);
41918: raise FND_API.G_EXC_ERROR;
41919: END IF;
41920:
41932: , x_msg_data => x_msg_data
41933: , x_error_msg_code => l_error_msg_code);
41934:
41935: IF (x_return_status <> 'S') THEN --Bug 3831786 Added
41936: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
41937: p_msg_name => l_error_msg_code);
41938: raise FND_API.G_EXC_ERROR;
41939: End If;
41940: End If;
42364: CLOSE get_sub_tasks;
42365:
42366: --bug 4099488
42367: IF PA_RELATIONSHIP_UTILS.check_dependencies_valid(p_task_version_id, cur_new_child_rec.object_id_to1) = 'N' THEN
42368: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
42369: p_msg_name => 'PA_INV_MOV_TSK_DEP_ERR');
42370: raise FND_API.G_EXC_ERROR;
42371: END IF;
42372: --end bug 4099488
42545: --bug 2967204
42546: --Cannot move out of the current hierarchy
42547: IF NVL( l_top_task_id, -99 ) <> NVL( l_old_top_task_id, -99 )
42548: THEN
42549: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
42550: p_msg_name => 'PA_CANT_CHANGE_PARENT');
42551: raise FND_API.G_EXC_ERROR;
42552: END IF;
42553: END IF;
42892: and value = 'Y';
42893:
42894: exception
42895: when no_data_found then
42896: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
42897: p_msg_name => 'PA_LITE_API_CANT_USE');
42898: RAISE FND_API.G_EXC_ERROR;
42899: when others then
42900: raise;
42904: l_process_mode:=p_process_mode;
42905:
42906: IF NVL(PA_PROJECT_STRUCTURE_UTILS.get_Structure_sharing_code(p_pa_project_id),' ') <> 'SHARE_FULL'
42907: OR NVL(PA_WORKPLAN_ATTR_UTILS.CHECK_WP_VERSIONING_ENABLED(p_pa_project_id),'N') = 'Y' THEN
42908: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
42909: p_msg_name => 'PA_CANT_USE_LITE_API');
42910: RAISE FND_API.G_EXC_ERROR;
42911: END IF;
42912:
42918: IF (PA_PROJECT_PUB.G_ROLLUP_DEFER='Y') THEN
42919: PA_PROJECT_PVT.CONC_LOCK_PROJECT(p_pa_project_id,'DELETE',p_msg_data,p_return_status);
42920: IF p_return_status <> 'S'
42921: THEN
42922: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
42923: p_msg_name => p_msg_data);
42924: RAISE FND_API.G_EXC_ERROR;
42925: ELSE
42926: PA_PROJECT_PVT.LOG_ROLLUP_EVENT(p_pa_project_id,l_structure_version_id,'DELETE');
43041: and value = 'Y';
43042:
43043: exception
43044: when no_data_found then
43045: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
43046: p_msg_name => 'PA_LITE_API_CANT_USE');
43047: RAISE FND_API.G_EXC_ERROR;
43048: when others then
43049:
43077: ,x_msg_count => l_msg_count
43078: ,x_msg_data => l_msg_data
43079: );
43080: IF l_return_status <> 'S' THEN
43081: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
43082: p_msg_name => 'PA_ERROR_UPDATING_PROJECT');
43083: RAISE FND_API.G_EXC_ERROR;
43084: END IF;
43085:
43090: ,x_msg_count => l_msg_count
43091: ,x_msg_data => l_msg_data
43092: );
43093: IF l_return_status <> 'S' THEN
43094: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
43095: p_msg_name => 'PA_ERROR_UPDATING_PROJECT');
43096: RAISE FND_API.G_EXC_ERROR;
43097: END IF;
43098:
43115: ,x_msg_count => l_msg_count
43116: ,x_msg_data => l_msg_data);
43117:
43118: IF l_return_status <> 'S' THEN
43119: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
43120: p_msg_name => 'PA_ERROR_UPDATING_PROJECT');
43121: RAISE FND_API.G_EXC_ERROR;
43122: END IF;
43123:
43148: ,x_msg_count => l_msg_count
43149: ,x_msg_data => l_msg_data
43150: );
43151: IF l_return_status <> 'S' THEN
43152: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
43153: p_msg_name => 'PA_ERROR_UPDATING_PROJECT');
43154: RAISE FND_API.G_EXC_ERROR;
43155: END IF;
43156:
43161: ,x_msg_count => l_msg_count
43162: ,x_msg_data => l_msg_data
43163: );
43164: IF l_return_status <> 'S' THEN
43165: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
43166: p_msg_name => 'PA_ERROR_UPDATING_PROJECT');
43167: RAISE FND_API.G_EXC_ERROR;
43168: END IF;
43169:
43186: ,x_msg_count => l_msg_count
43187: ,x_msg_data => l_msg_data);
43188:
43189: IF l_return_status <> 'S' THEN
43190: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
43191: p_msg_name => 'PA_ERROR_REFRESHING_STRUCTURE');
43192: RAISE FND_API.G_EXC_ERROR;
43193: END IF;
43194:
43369: Fetch c1 into l_cbs_enabled_flag;
43370: CLOSE C1;
43371:
43372: If l_cbs_enabled_flag <> 'Y' THEN
43373: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43374: ,p_msg_name => 'PA_CBS_PRJ_NOT_CBS'
43375: );
43376: x_return_status := FND_API.G_RET_STS_ERROR;
43377: RAISE FND_API.G_EXC_ERROR;
43398:
43399: l_Cbs_Element_Id_tbl(i) := PA_ALTERNATE_TASK_PVT.convert_cost_code_to_id(
43400: p_task_cost_code_in(i).cost_code ,p_pa_project_id );
43401: IF l_Cbs_Element_Id_tbl(i) is NULL THEN
43402: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43403: ,p_msg_name => 'PA_CBS_COST_CODE_ID_REQ'
43404: ,p_token1 => 'TASK'
43405: ,p_value1 =>l_Proj_Element_Id_tbl(i)
43406: );
43414: FETCH Check_cost_code_valid into l_count;
43415: CLOSE Check_cost_code_valid;
43416:
43417: if l_count = 0 Then
43418: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43419: ,p_msg_name => 'PA_CBS_COST_CODE_INVALID'
43420: ,p_token1 => 'COST_CODE'
43421: ,p_value1 =>p_task_cost_code_in(i).cost_code
43422: );
43458:
43459: END IF;
43460:
43461: IF l_Proj_Element_Id_tbl(i) is null Then
43462: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43463: ,p_msg_name => 'PA_CBS_TASK_DETAILS_REQ'
43464: );
43465: x_return_status := FND_API.G_RET_STS_ERROR;
43466: X_Msg_Data := 'PA_CBS_TASK_DETAILS_REQ';
43469: RAISE FND_API.G_EXC_ERROR;
43470:
43471: END IF;
43472: If l_count = 0 Then
43473: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43474: ,p_msg_name => 'PA_CBS_TASK_INVALID'
43475: ,p_token1 => 'TASK'
43476: ,p_value1 =>l_Proj_Element_Id_tbl(i)
43477: );
43662: Fetch c1 into l_cbs_enabled_flag;
43663: CLOSE C1;
43664:
43665: If l_cbs_enabled_flag <> 'Y' THEN
43666: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43667: ,p_msg_name => 'PA_CBS_PRJ_NOT_CBS'
43668: );
43669: x_return_status := FND_API.G_RET_STS_ERROR;
43670: RAISE FND_API.G_EXC_ERROR;
43691:
43692: l_Cbs_Element_Id_tbl(i) := PA_ALTERNATE_TASK_PVT.convert_cost_code_to_id(
43693: p_task_cost_code_in(i).cost_code ,p_pa_project_id );
43694: IF l_Cbs_Element_Id_tbl(i) is NULL THEN
43695: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43696: ,p_msg_name => 'PA_CBS_COST_CODE_ID_REQ'
43697: ,p_token1 => 'TASK'
43698: ,p_value1 =>l_Proj_Element_Id_tbl(i)
43699: );
43707: FETCH Check_cost_code_valid into l_count;
43708: CLOSE Check_cost_code_valid;
43709:
43710: if l_count = 0 Then
43711: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43712: ,p_msg_name => 'PA_CBS_COST_CODE_INVALID'
43713: ,p_token1 => 'COST_CODE'
43714: ,p_value1 =>p_task_cost_code_in(i).cost_code
43715: );
43751:
43752: END IF;
43753:
43754: IF l_Proj_Element_Id_tbl(i) is null Then
43755: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43756: ,p_msg_name => 'PA_CBS_TASK_DETAILS_REQ'
43757: );
43758: x_return_status := FND_API.G_RET_STS_ERROR;
43759: X_Msg_Data := 'PA_CBS_TASK_DETAILS_REQ';
43762: RAISE FND_API.G_EXC_ERROR;
43763:
43764: END IF;
43765: If l_count = 0 Then
43766: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43767: ,p_msg_name => 'PA_CBS_TASK_INVALID'
43768: ,p_token1 => 'TASK'
43769: ,p_value1 =>l_Proj_Element_Id_tbl(i)
43770: );
43782: Fetch Get_alt_Task into l_alt_task_id_tbl(i);
43783: Close Get_alt_Task;
43784:
43785: IF l_alt_task_id_tbl(i) is null then
43786: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
43787: ,p_msg_name => 'PA_CBS_INVALID_ALT_TASK'
43788: ,p_token1 => 'TASK'
43789: ,p_value1 =>l_Proj_Element_Id_tbl(i)
43790: ,p_token2 => 'COST_CODE_ID'