12: --Added by rtarway for FP.M Mapping
13: G_PROJECT_SHARING_TYPE VARCHAR2(250);
14: --Added by rtarway for FP.M Mapping
15: --PACKAGE GLOBAL to be used during updates -------------------------------------------
16: G_USER_ID CONSTANT NUMBER := FND_GLOBAL.user_id;
17: G_LOGIN_ID CONSTANT NUMBER := FND_GLOBAL.login_id;
18:
19: l_pm_product_code VARCHAR2(30) := 'Z'; /*for bug 2413400 a new variable defined.*/
20: /* increased the lenght for bug 2665656 */
13: G_PROJECT_SHARING_TYPE VARCHAR2(250);
14: --Added by rtarway for FP.M Mapping
15: --PACKAGE GLOBAL to be used during updates -------------------------------------------
16: G_USER_ID CONSTANT NUMBER := FND_GLOBAL.user_id;
17: G_LOGIN_ID CONSTANT NUMBER := FND_GLOBAL.login_id;
18:
19: l_pm_product_code VARCHAR2(30) := 'Z'; /*for bug 2413400 a new variable defined.*/
20: /* increased the lenght for bug 2665656 */
21:
685:
686: END IF;
687:
688:
689: l_resp_id := FND_GLOBAL.Resp_id;
690:
691:
692: --Bug#5559292
693:
3955: ,l_allow_inv_rate_type_fg
3956: ,l_bill_another_prj_flag
3957: ,l_receiver_task_id
3958: ,l_def_tt_cust_flag --Bug 3279981
3959: ,fnd_global.user_id
3960: ,fnd_global.login_id
3961: ,l_err_code
3962: ,l_err_stage
3963: ,l_err_stack );
3956: ,l_bill_another_prj_flag
3957: ,l_receiver_task_id
3958: ,l_def_tt_cust_flag --Bug 3279981
3959: ,fnd_global.user_id
3960: ,fnd_global.login_id
3961: ,l_err_code
3962: ,l_err_stage
3963: ,l_err_stack );
3964: ----dbms_output.put_line('After Calling create_customer_contacts l_err_code'||l_err_code);
5327:
5328: -- Bug 7335526
5329: IF G_PROJECT_NUMBER_GEN_MODE = 'AUTOMATIC' THEN
5330: PA_UTILS_SQNUM_PKG.revert_unique_proj_num(p_table_name => 'PA_PROJECTS',
5331: p_user_id => FND_GLOBAL.USER_ID,
5332: p_unique_number => to_number(l_project_number_out));
5333: END IF;
5334:
5335: --4218977, rtarway, unset this global variable upon unsuccessfull completion of create project
5346:
5347: -- Bug 7335526
5348: IF G_PROJECT_NUMBER_GEN_MODE = 'AUTOMATIC' THEN
5349: PA_UTILS_SQNUM_PKG.revert_unique_proj_num(p_table_name => 'PA_PROJECTS',
5350: p_user_id => FND_GLOBAL.USER_ID,
5351: p_unique_number => to_number(l_project_number_out));
5352: END IF;
5353:
5354: --4218977, rtarway, unset this global variable upon unsuccessfull completion of create project
5365:
5366: -- Bug 7335526
5367: IF G_PROJECT_NUMBER_GEN_MODE = 'AUTOMATIC' THEN
5368: PA_UTILS_SQNUM_PKG.revert_unique_proj_num(p_table_name => 'PA_PROJECTS',
5369: p_user_id => FND_GLOBAL.USER_ID,
5370: p_unique_number => to_number(l_project_number_out));
5371: END IF;
5372:
5373: --4218977, rtarway, unset this global variable upon unsuccessfull completion of create project
5811: RAISE FND_API.G_EXC_ERROR;
5812: END IF;
5813:
5814:
5815: l_resp_id := FND_GLOBAL.Resp_id;
5816: l_user_id := FND_GLOBAL.User_id;
5817: --l_module_name := p_pm_product_code||'.'||'PA_PM_ADD_TASK';
5818: l_module_name := 'PA_PM_ADD_TASK';
5819:
5812: END IF;
5813:
5814:
5815: l_resp_id := FND_GLOBAL.Resp_id;
5816: l_user_id := FND_GLOBAL.User_id;
5817: --l_module_name := p_pm_product_code||'.'||'PA_PM_ADD_TASK';
5818: l_module_name := 'PA_PM_ADD_TASK';
5819:
5820: --Moved from below for bug 2471668
10674: --bug 4538849
10675:
10676: -- Begin Bug # 4582750.
10677:
10678: l_prev_locked_status := PA_PROJECT_STRUCTURE_UTILS.IS_STRUC_VER_LOCKED_BY_USER(FND_GLOBAL.USER_ID,l_structure_version_id);
10679:
10680: if ( l_prev_locked_status = 'O' ) then
10681:
10682: -- End Bug # 4582750.
10763: ELSIF (struct_ver_updatable = 'Y') THEN
10764: -- structure version is locked by another user check must be done in both update modes. bug 4519809
10765: --IF (p_update_mode = 'PA_UPD_TASK_ATTR') THEN --bug 4534919
10766: --Check if str version is locked by another user
10767: if ( PA_PROJECT_STRUCTURE_UTILS.IS_STRUC_VER_LOCKED_BY_USER(FND_GLOBAL.USER_ID,l_structure_version_id) = 'O' ) then
10768: --if yes, raise error.
10769: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10770: p_msg_name => 'PA_STR_LOCKED_BY_OTHER');
10771: RAISE FND_API.G_EXC_ERROR;
10877: RAISE FND_API.G_EXC_ERROR;
10878: END IF;
10879: END IF; --bug 2841158
10880:
10881: l_resp_id := FND_GLOBAL.Resp_id;
10882: l_user_id := FND_GLOBAL.User_id;
10883: --l_module_name := p_pm_product_code||'.'||'PA_PM_UPDATE_PROJECT';
10884: l_module_name := 'PA_PM_UPDATE_PROJECT';
10885:
10878: END IF;
10879: END IF; --bug 2841158
10880:
10881: l_resp_id := FND_GLOBAL.Resp_id;
10882: l_user_id := FND_GLOBAL.User_id;
10883: --l_module_name := p_pm_product_code||'.'||'PA_PM_UPDATE_PROJECT';
10884: l_module_name := 'PA_PM_UPDATE_PROJECT';
10885:
10886: --bug 2665656
11540: ,X_task_manager_person_id => NULL
11541: ,X_Service_type => NULL
11542: ,X_task_start_date => NULL
11543: ,X_task_end_date => NULL
11544: ,X_entered_by_user_id => FND_GLOBAL.USER_ID
11545: ,X_attribute_category => l_project_rec.attribute_category
11546: ,X_attribute1 => l_project_rec.attribute1
11547: ,X_attribute2 => l_project_rec.attribute2
11548: ,X_attribute3 => l_project_rec.attribute3
20192: X_Inv_Exchange_Rate => l_INV_EXCHANGE_RATE, --bug 5554475
20193: X_Allow_Inv_Rate_Type_Fg => l_ALLOW_INV_USER_RATE_FLAG, --bug 5554475
20194: X_Bill_Another_Project_Fg => l_bill_another_project_flag, -- Added for 4153629
20195: X_Receiver_Task_Id => l_receiver_task_id , -- Added for 4153629
20196: X_User => FND_GLOBAL.USER_ID,
20197: X_Login => FND_GLOBAL.LOGIN_ID,
20198: X_Err_Code => l_err_code,
20199: X_Err_Stage => l_err_stage,
20200: X_Err_Stack => l_err_stack
20193: X_Allow_Inv_Rate_Type_Fg => l_ALLOW_INV_USER_RATE_FLAG, --bug 5554475
20194: X_Bill_Another_Project_Fg => l_bill_another_project_flag, -- Added for 4153629
20195: X_Receiver_Task_Id => l_receiver_task_id , -- Added for 4153629
20196: X_User => FND_GLOBAL.USER_ID,
20197: X_Login => FND_GLOBAL.LOGIN_ID,
20198: X_Err_Code => l_err_code,
20199: X_Err_Stage => l_err_stage,
20200: X_Err_Stack => l_err_stack
20201: );
20791: X_Inv_Exchange_Rate => l_INV_EXCHANGE_RATE, --bug 5554475
20792: X_Allow_Inv_Rate_Type_Fg => l_ALLOW_INV_USER_RATE_FLAG, --bug 5554475
20793: X_Bill_Another_Project_Fg => l_bill_another_project_flag ,-- Added for 4153629,
20794: X_Receiver_Task_Id => l_receiver_task_id, --Added for 4153629
20795: X_User => FND_GLOBAL.USER_ID,
20796: X_Login => FND_GLOBAL.LOGIN_ID,
20797: X_Err_Code => l_err_code,
20798: X_Err_Stage => l_err_stage,
20799: X_Err_Stack => l_err_stack
20792: X_Allow_Inv_Rate_Type_Fg => l_ALLOW_INV_USER_RATE_FLAG, --bug 5554475
20793: X_Bill_Another_Project_Fg => l_bill_another_project_flag ,-- Added for 4153629,
20794: X_Receiver_Task_Id => l_receiver_task_id, --Added for 4153629
20795: X_User => FND_GLOBAL.USER_ID,
20796: X_Login => FND_GLOBAL.LOGIN_ID,
20797: X_Err_Code => l_err_code,
20798: X_Err_Stage => l_err_stage,
20799: X_Err_Stack => l_err_stack
20800: );
28428:
28429: IS
28430: l_api_name CONSTANT VARCHAR2(30) := 'APPLY_LP_PROG_ON_CWV';
28431: l_api_version CONSTANT NUMBER := p_api_version;
28432: l_user_id NUMBER := FND_GLOBAL.USER_ID;
28433: l_login_id NUMBER := FND_GLOBAL.LOGIN_ID;
28434: l_return_status VARCHAR2(1);
28435: l_msg_count NUMBER;
28436: l_msg_data VARCHAR2(250);
28429: IS
28430: l_api_name CONSTANT VARCHAR2(30) := 'APPLY_LP_PROG_ON_CWV';
28431: l_api_version CONSTANT NUMBER := p_api_version;
28432: l_user_id NUMBER := FND_GLOBAL.USER_ID;
28433: l_login_id NUMBER := FND_GLOBAL.LOGIN_ID;
28434: l_return_status VARCHAR2(1);
28435: l_msg_count NUMBER;
28436: l_msg_data VARCHAR2(250);
28437:
28435: l_msg_count NUMBER;
28436: l_msg_data VARCHAR2(250);
28437:
28438: l_function_allowed VARCHAR2(1);
28439: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
28440: l_debug_mode VARCHAR2(1);
28441:
28442: l_project_id NUMBER;
28443:
29485:
29486: i NUMBER := 0;
29487: i_actn NUMBER := 0;
29488:
29489: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
29490: l_function_allowed VARCHAR2(1);
29491: l_pm_product_code VARCHAR2(2) :='Z'; /* Bug 3651113 */
29492:
29493: -- 3651542 added local variable
30155: l_err_message VARCHAR2(2000);
30156: l_unique_flag VARCHAR2(1);
30157:
30158: l_function_allowed VARCHAR2(1);
30159: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
30160:
30161: l_deliverable_id NUMBER := 0;
30162:
30163: i NUMBER := 1;
30636: i_actn_ins NUMBER := 0;
30637: i_actn_upd NUMBER := 0;
30638:
30639: l_function_allowed VARCHAR2(1);
30640: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
30641: l_pm_product_code VARCHAR2(2) :='Z'; /* Bug 3651113 */
30642:
30643: /*cursor added for Bug 3651113 */
30644: Cursor p_product_code_csr (p_pm_product_code IN VARCHAR2)
31243:
31244: l_project_id NUMBER := null;
31245: l_deliverable_id NUMBER := null;
31246: l_function_allowed VARCHAR2(1);
31247: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
31248:
31249: -- 3729250 added local variables
31250: l_fin_task_id NUMBER := NULL;
31251: l_action_id NUMBER := NULL;
31600: l_deliverable_id NUMBER;
31601: l_dlvr_version_id NUMBER;
31602: l_project_id NUMBER;
31603: l_function_allowed VARCHAR2(1);
31604: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
31605:
31606: l_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
31607: l_msg_index_out NUMBER;
31608: l_msg_count NUMBER ;
31867: l_dlvr_version_id NUMBER;
31868: l_function_code Pa_Proj_Elements.function_code%TYPE;
31869:
31870: l_function_allowed VARCHAR2(1);
31871: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
31872:
31873: l_msg_index_out NUMBER;
31874: l_msg_count NUMBER ;
31875: l_data VARCHAR2(2000);
32166: l_object_relationship_Id pa_object_relationships.object_relationship_Id%TYPE;
32167: l_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
32168:
32169: l_function_allowed VARCHAR2(1);
32170: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
32171:
32172: l_msg_index_out NUMBER;
32173: l_msg_count NUMBER ;
32174: l_data VARCHAR2(2000);
32453: l_function_code Pa_Proj_Elements.function_code%TYPE;
32454: l_object_relationship_Id pa_object_relationships.object_relationship_Id%TYPE;
32455:
32456: l_function_allowed VARCHAR2(1);
32457: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
32458:
32459: l_msg_index_out NUMBER;
32460: l_msg_count NUMBER ;
32461: l_data VARCHAR2(2000);
32742: l_object_relationship_Id pa_object_relationships.object_relationship_Id%TYPE;
32743: l_task_assignment_id NUMBER ;
32744:
32745: l_function_allowed VARCHAR2(1);
32746: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
32747:
32748: l_msg_index_out NUMBER;
32749: l_msg_count NUMBER ;
32750: l_data VARCHAR2(2000);
33021: l_object_relationship_Id pa_object_relationships.object_relationship_Id%TYPE;
33022: l_task_assignment_id NUMBER ;
33023:
33024: l_function_allowed VARCHAR2(1);
33025: l_resp_id NUMBER := FND_GLOBAL.Resp_id;
33026:
33027: l_msg_index_out NUMBER;
33028: l_msg_count NUMBER ;
33029: l_data VARCHAR2(2000);
35806:
35807: RAISE FND_API.G_EXC_ERROR;
35808: End If;
35809:
35810: l_responsibility_id := FND_GLOBAL.Resp_id;
35811: l_user_id := FND_GLOBAL.User_id;
35812:
35813:
35814: -- As part of enforcing project security, which would determine
35807: RAISE FND_API.G_EXC_ERROR;
35808: End If;
35809:
35810: l_responsibility_id := FND_GLOBAL.Resp_id;
35811: l_user_id := FND_GLOBAL.User_id;
35812:
35813:
35814: -- As part of enforcing project security, which would determine
35815: -- whether the user has the necessary privileges to update the project
36252: -- will error out as the user does not have access.
36253:
36254: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
36255: (p_api_version_number => p_api_version
36256: , p_responsibility_id => FND_GLOBAL.RESP_ID
36257: , p_function_name => 'PA_PM_UPDATE_PROJECT'
36258: , p_msg_count => l_msg_count
36259: , p_msg_data => l_msg_data
36260: , p_return_status => l_return_status
36668: if (p_program_links_tbl(l_count).structure_type = 'WORKPLAN'
36669: or PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(l_parent_project_id) = 'Y') then
36670: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
36671: (p_api_version_number => p_api_version
36672: , p_responsibility_id => FND_GLOBAL.RESP_ID
36673: , p_function_name => 'PA_PAXPREPR_WP_LINK_PROJ'
36674: , p_msg_count => l_msg_count
36675: , p_msg_data => l_msg_data
36676: , p_return_status => l_return_status
36704: if (p_program_links_tbl(l_count).structure_type = 'FINANCIAL'
36705: or PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(l_parent_project_id) = 'Y') then
36706: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
36707: (p_api_version_number => p_api_version
36708: , p_responsibility_id => FND_GLOBAL.RESP_ID
36709: , p_function_name => 'PA_PAXPREPR_OPT_SUBPROJECTS'
36710: , p_msg_count => l_msg_count
36711: , p_msg_data => l_msg_data
36712: , p_return_status => l_return_status
37282: if (p_program_links_tbl(l_count).structure_type = 'WORKPLAN'
37283: or PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(l_parent_project_id) = 'Y') then
37284: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
37285: (p_api_version_number => p_api_version
37286: , p_responsibility_id => FND_GLOBAL.RESP_ID
37287: , p_function_name => 'PA_PAXPREPR_WP_LINK_PROJ'
37288: , p_msg_count => l_msg_count
37289: , p_msg_data => l_msg_data
37290: , p_return_status => l_return_status
37319: if (p_program_links_tbl(l_count).structure_type = 'FINANCIAL'
37320: or PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(l_parent_project_id) = 'Y') then
37321: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
37322: (p_api_version_number => p_api_version
37323: , p_responsibility_id => FND_GLOBAL.RESP_ID
37324: , p_function_name => 'PA_PAXPREPR_OPT_SUBPROJECTS'
37325: , p_msg_count => l_msg_count
37326: , p_msg_data => l_msg_data
37327: , p_return_status => l_return_status
37806: if (p_structure_type = 'WORKPLAN'
37807: or PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(l_parent_project_id) = 'Y') then
37808: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
37809: (p_api_version_number => p_api_version
37810: , p_responsibility_id => FND_GLOBAL.RESP_ID
37811: , p_function_name => 'PA_PAXPREPR_WP_LINK_PROJ'
37812: , p_msg_count => l_msg_count
37813: , p_msg_data => l_msg_data
37814: , p_return_status => l_return_status
37838: if (p_structure_type = 'FINANCIAL'
37839: or PA_PROJECT_STRUCTURE_UTILS.CHECK_SHARING_ENABLED(l_parent_project_id) = 'Y') then
37840: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
37841: (p_api_version_number => p_api_version
37842: , p_responsibility_id => FND_GLOBAL.RESP_ID
37843: , p_function_name => 'PA_PAXPREPR_OPT_SUBPROJECTS'
37844: , p_msg_count => l_msg_count
37845: , p_msg_data => l_msg_data
37846: , p_return_status => l_return_status