[Home] [Help]
62: x_err_code := 10;
63: x_err_stage := 'PA_NO_GEN_MODE';
64: return;
65: elsif proj_number_gen_mode = 'AUTOMATIC' then
66: PA_UTILS_SQNUM_PKG.get_unique_proj_num('PA_PROJECTS',
67: FND_GLOBAL.USER_ID,
68: unique_id,
69: status);
70: if status = 0 then
134: PROCEDURE revert_proj_number(p_proj_number_gen_mode IN VARCHAR2,
135: p_project_number IN VARCHAR2 ) IS
136: BEGIN
137: IF p_proj_number_gen_mode = 'AUTOMATIC' THEN
138: PA_UTILS_SQNUM_PKG.revert_unique_proj_num(p_table_name => 'PA_PROJECTS',
139: p_user_id => FND_GLOBAL.USER_ID,
140: p_unique_number => TO_NUMBER(p_project_number));
141: END IF;
142: END revert_proj_number;
186: -- 17-JUL-2000 Mohnish
187: -- added code for ROLE BASED SECURITY:
188: -- added the call to PA_PROJECT_PARTIES_PUB.CREATE_PROJECT_PARTY
189: -- 19-JUL-2000 Mohnish incorporated PA_PROJECT_PARTIES_PUB API changes
190: -- 15-AUG-2000 Sakthi Modified 'PROJECTS' TO 'PA_PROJECTS' in PA_PROJECT_PARTIES_PUB API changes
191: --
192: -- 24-Sep-02 msundare Added additional parameter x_security_level
193: -- 18-DEC-02 gjain For bug 2588244 Added logic in copy_project to copy the
194: -- default calendar from the organization specified in quick entry
330:
331: CURSOR l_get_details_for_wf_csr (l_project_id IN NUMBER ) IS
332: SELECT project_type,
333: project_status_code
334: FROM pa_projects
335: WHERE project_id = l_project_id;
336:
337: -- for opportunity value changes
338: -- anlee
346:
347: CURSOR l_get_details_for_opp_csr (c_project_id IN NUMBER) IS
348: SELECT expected_approval_date, projfunc_currency_code, project_currency_code
349: ,target_start_date, target_finish_date, calendar_id --bug 2805602
350: FROM pa_projects
351: WHERE project_id = c_project_id;
352:
353: l_target_start_date DATE; --added for bug 2805602
354: l_target_finish_date DATE; --added for bug 2805602
363:
364: -- Bug 7482391
365: cursor new_prj_end_date_csr(c_project_id IN NUMBER) IS
366: SELECT COMPLETION_DATE
367: FROM PA_PROJECTS_ALL
368: WHERE project_id=c_project_id;
369:
370: -- anlee
371: /*
413: ----End selective copy project options. Tracking bug No 3464332
414: --Bug 3279981 FP_M Project Setup development
415: CURSOR cur_get_orig_bill_info IS
416: SELECT enable_top_task_inv_mth_flag, revenue_accrual_method, invoice_method
417: FROM pa_projects_all
418: WHERE project_id = x_orig_project_id;
419:
420: -- 4055319 Added below cursor to retrieve source's funding approval status code
421:
423: select
424: ppa.funding_approval_status_code,
425: pps.project_system_status_code
426: from
427: pa_projects_all ppa,
428: pa_project_statuses pps
429: where
430: ppa.project_id = x_orig_project_id
431: and ppa.funding_approval_status_code = pps.project_status_code;
676: project_type,
677: carrying_out_organization_id,
678: initial_team_template_id,
679: baseline_funding_flag
680: from pa_projects
681: where project_id = x_orig_project_id;
682:
683: -- use min(start_date) as pseudo original project start
684: cursor c2 is
800: from pa_project_statuses ps
801: where project_status_code = x_project_status_code;
802:
803: cursor p2 is select ps.project_system_status_code, ps.starting_status_flag, ps.project_status_code
804: from pa_project_statuses ps, pa_projects pp
805: where ps.project_status_code = pp.project_status_code
806: and pp.project_id = x_orig_project_id;
807:
808: cursor p3 is select ps.project_system_status_code, ps.starting_status_flag, ps.project_status_code
805: where ps.project_status_code = pp.project_status_code
806: and pp.project_id = x_orig_project_id;
807:
808: cursor p3 is select ps.project_system_status_code, ps.starting_status_flag, ps.project_status_code
809: from pa_project_statuses ps, pa_project_types pt, pa_projects pp
810: where ps.project_status_code = pt.def_start_proj_status_code
811: and pt.project_type = pp.project_type
812: and pp.project_id = x_orig_project_id;
813:
1122:
1123: -- copy project
1124: declare
1125: cursor c1 is
1126: select pa_projects_s.nextval from sys.dual;
1127:
1128: --bug 2434241
1129: cursor c2 is
1130: select retn_accounting_flag from pa_implementations;
1135: Cursor c3 is
1136: SELECT 'YES' FROM DUAL
1137: WHERE EXISTS ( SELECT 1 FROM FND_DESCRIPTIVE_FLEXS
1138: WHERE APPLICATION_ID=275
1139: AND APPLICATION_TABLE_NAME='PA_PROJECTS_ALL'
1140: AND DESCRIPTIVE_FLEXFIELD_NAME = 'PA_PROJECTS_DESC_FLEX'
1141: AND CONTEXT_COLUMN_NAME = 'ATTRIBUTE_CATEGORY'
1142: AND DEFAULT_CONTEXT_FIELD_NAME = 'TEMPLATE_FLAG' );
1143:
1136: SELECT 'YES' FROM DUAL
1137: WHERE EXISTS ( SELECT 1 FROM FND_DESCRIPTIVE_FLEXS
1138: WHERE APPLICATION_ID=275
1139: AND APPLICATION_TABLE_NAME='PA_PROJECTS_ALL'
1140: AND DESCRIPTIVE_FLEXFIELD_NAME = 'PA_PROJECTS_DESC_FLEX'
1141: AND CONTEXT_COLUMN_NAME = 'ATTRIBUTE_CATEGORY'
1142: AND DEFAULT_CONTEXT_FIELD_NAME = 'TEMPLATE_FLAG' );
1143:
1144: l_is_dff_reference_temp_flag VARCHAR2(3) :='NO'; -- Bug 2900258
1229: END IF;
1230:
1231: -- 4055319 end
1232:
1233: insert into pa_projects (
1234: project_id,
1235: name,
1236: long_name, --long name changes
1237: segment1,
1678: ,t.adj_on_std_inv,
1679: /* Added for 12.2 Payroll billing ER 11847616 */
1680: cbs_version_id -- bug# 15834912
1681: ,cbs_enable_flag -- for CBS Phase 2 16083858
1682: from pa_projects t
1683: where t.project_id = x_orig_project_id;
1684:
1685: if (SQL%NOTFOUND) then
1686: x_err_code := 90;
1743: l_return_status VARCHAR2(1);
1744: CURSOR get_proj_attr
1745: IS
1746: SELECT name, long_name, segment1, description, template_flag
1747: FROM PA_PROJECTS_ALL
1748: WHERE project_id = x_new_project_id;
1749:
1750: l_name VARCHAR2(30);
1751: l_long_name VARCHAR2(240);
1839: DECLARE
1840: CURSOR get_subteams_csr(c_project_id NUMBER) IS
1841: SELECT name, description
1842: FROM pa_project_subteams
1843: WHERE object_type = 'PA_PROJECTS'
1844: AND object_id = c_project_id;
1845:
1846: l_name PA_PROJECT_SUBTEAMS.name%TYPE;
1847: l_description PA_PROJECT_SUBTEAMS.description%TYPE;
1858: EXIT WHEN get_subteams_csr%NOTFOUND;
1859:
1860: PA_PROJECT_SUBTEAMS_PUB.Create_Subteam(
1861: p_subteam_name => l_name
1862: ,p_object_type => 'PA_PROJECTS'
1863: ,p_object_id => x_new_project_id
1864: ,p_description => l_description
1865: ,p_record_version_number => 1
1866: ,p_calling_module => 'PROJECT_SUBTEAMS'
2198: , p_validate_only => FND_API.G_FALSE -- p_validate_only
2199: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
2200: , p_debug_mode => 'N' -- p_debug_mode
2201: , p_object_id => x_new_project_id -- p_object_id
2202: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
2203: , p_project_role_id => v_null_number -- p_project_role_id
2204: , p_project_role_type => c_role_based_loop_rec_1.project_role_type -- p_project_role_type
2205: , p_RESOURCE_TYPE_ID => c_role_based_loop_rec_1.resource_type_id -- p_RESOURCE_TYPE_ID
2206: , p_resource_source_id => c_role_based_loop_rec_1.resource_source_id -- p_resource_source_id
2361: , p_validate_only => FND_API.G_FALSE -- p_validate_only
2362: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
2363: , p_debug_mode => 'N' -- p_debug_mode
2364: , p_object_id => x_new_project_id -- p_object_id
2365: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
2366: , p_project_role_id => v_null_number -- p_project_role_id
2367: , p_project_role_type => c_role_based_loop_rec_2.project_role_type -- p_project_role_type
2368: , p_RESOURCE_TYPE_ID => c_role_based_loop_rec_2.resource_type_id -- p_RESOURCE_TYPE_ID
2369: , p_resource_source_id => c_role_based_loop_rec_2.resource_source_id -- p_resource_source_id
2540: , p_validate_only => FND_API.G_FALSE
2541: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2542: , p_debug_mode => 'N'
2543: , p_object_id => x_new_project_id
2544: , p_OBJECT_TYPE => 'PA_PROJECTS'
2545: , p_project_role_id => v_null_number
2546: , p_project_role_type => c_role_based_loop_rec_1.project_role_type
2547: , p_RESOURCE_TYPE_ID => 112
2548: , p_resource_source_id => c_role_based_loop_rec_1.resource_source_id
2606: , p_validate_only => FND_API.G_FALSE
2607: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2608: , p_debug_mode => 'N'
2609: , p_object_id => x_new_project_id
2610: , p_OBJECT_TYPE => 'PA_PROJECTS'
2611: , p_project_role_id => v_null_number
2612: , p_project_role_type => c_role_based_loop_rec_2.project_role_type
2613: , p_RESOURCE_TYPE_ID => 112
2614: , p_resource_source_id => c_role_based_loop_rec_2.resource_source_id
2700: , pc.class_code
2701: , pc.class_category
2702: , pc.code_percentage
2703: , x_new_project_id
2704: , 'PA_PROJECTS'
2705: , sysdate
2706: , FND_GLOBAL.USER_ID
2707: , sysdate
2708: , FND_GLOBAL.USER_ID
2771: , pc.class_code
2772: , pc.class_category
2773: , pc.code_percentage
2774: , x_new_project_id
2775: , 'PA_PROJECTS'
2776: , sysdate
2777: , FND_GLOBAL.USER_ID
2778: , sysdate
2779: , FND_GLOBAL.USER_ID
2816: DECLARE
2817:
2818: CURSOR cur_get_orig_tt_cust_flag IS
2819: SELECT enable_top_task_customer_flag
2820: FROM pa_projects_all
2821: WHERE project_id = x_orig_project_id;
2822:
2823: --sunkalya:federal Bug#5511353
2824:
2826: IS
2827: SELECT
2828: nvl(DATE_EFF_FUNDS_CONSUMPTION,'N')
2829: FROM
2830: pa_projects_all
2831: WHERE project_id = x_orig_project_id ;
2832: --sunkalya:federal Bug#5511353
2833:
2834: l_exclude_cust_id_tbl PA_PLSQL_DATATYPES.NumTabTyp;
3067:
3068: PA_PROJECT_PARTIES_PUB.CREATE_PROJECT_PARTY(
3069: p_validate_only => FND_API.G_FALSE
3070: , p_object_id => x_new_project_id
3071: , p_OBJECT_TYPE => 'PA_PROJECTS'
3072: , p_project_role_id => 100
3073: , p_project_role_type => 'CUSTOMER_ORG'
3074: , p_RESOURCE_TYPE_ID => 112
3075: , p_resource_source_id => l_party_id
3193: -- Fetch all the customers for the source project. Call get_customer_info to obtain the
3194: -- Valid customer details. Use this info thus obtained to insert a customer record.
3195: DECLARE
3196: -- Define the cursor to fetch the customer details from the source.
3197: CURSOR cur_cust_info(c_project_id pa_projects_all.project_id%TYPE,
3198: c_created_from_proj_id pa_projects_all.project_id%TYPE ) IS -- Added the parameter for bug 3726109
3199: SELECT
3200: cust.customer_id
3201: , cust.project_relationship_code
3194: -- Valid customer details. Use this info thus obtained to insert a customer record.
3195: DECLARE
3196: -- Define the cursor to fetch the customer details from the source.
3197: CURSOR cur_cust_info(c_project_id pa_projects_all.project_id%TYPE,
3198: c_created_from_proj_id pa_projects_all.project_id%TYPE ) IS -- Added the parameter for bug 3726109
3199: SELECT
3200: cust.customer_id
3201: , cust.project_relationship_code
3202: , cust.customer_bill_split
3220: from pa_project_copy_overrides
3221: where project_id = c_created_from_proj_id
3222: and field_name = 'CUSTOMER_NAME');
3223: --CURSORS BELOW ADDED BY ADITI for Bug 3110489 Code Change Begins
3224: CURSOR cur_contact_info(c_project_id pa_projects_all.project_id%TYPE,
3225: c_created_from_proj_id pa_projects_all.project_id%TYPE,
3226: c_customer_id pa_project_customers.customer_id%TYPE)
3227: IS
3228: select contact.customer_id,
3221: where project_id = c_created_from_proj_id
3222: and field_name = 'CUSTOMER_NAME');
3223: --CURSORS BELOW ADDED BY ADITI for Bug 3110489 Code Change Begins
3224: CURSOR cur_contact_info(c_project_id pa_projects_all.project_id%TYPE,
3225: c_created_from_proj_id pa_projects_all.project_id%TYPE,
3226: c_customer_id pa_project_customers.customer_id%TYPE)
3227: IS
3228: select contact.customer_id,
3229: contact.contact_id,
3237: where project_id = c_created_from_proj_id
3238: and field_name = 'CUSTOMER_NAME')
3239: and contact.customer_id = c_customer_id;
3240:
3241: CURSOR cur_cust_override_exists (c_created_from_proj_id pa_projects_all.project_id%TYPE )
3242: IS
3243: select 'Y'
3244: from pa_project_copy_overrides
3245: where project_id = c_created_from_proj_id
3787:
3788: PA_PROJECT_PARTIES_PUB.CREATE_PROJECT_PARTY(
3789: p_validate_only => FND_API.G_FALSE
3790: , p_object_id => x_new_project_id
3791: , p_OBJECT_TYPE => 'PA_PROJECTS'
3792: , p_project_role_id => 100
3793: , p_project_role_type => 'CUSTOMER_ORG'
3794: , p_RESOURCE_TYPE_ID => 112
3795: , p_resource_source_id => l_party_id
4979: CLOSE cur_get_flag;
4980: --Following two IF conditions added for selective copy project
4981: IF 'Y' = l_pr_attachments_flag THEN
4982: IF 'Y' = l_pr_frm_src_tmpl_flag THEN
4983: fnd_attached_documents2_pkg.copy_attachments('PA_PROJECTS',
4984: --x_orig_project_id, Bug 3694616
4985: x_created_from_proj_id,
4986: null,
4987: null,
4986: null,
4987: null,
4988: null,
4989: null,
4990: 'PA_PROJECTS',
4991: --x_created_from_proj_id, Bug 3694616
4992: x_new_project_id,
4993: null,
4994: null,
4997: FND_GLOBAL.USER_ID,
4998: FND_GLOBAL.LOGIN_ID,
4999: 275, null, null);
5000: ELSE
5001: fnd_attached_documents2_pkg.copy_attachments('PA_PROJECTS',
5002: x_orig_project_id,
5003: null,
5004: null,
5005: null,
5003: null,
5004: null,
5005: null,
5006: null,
5007: 'PA_PROJECTS',
5008: x_new_project_id,
5009: null,
5010: null,
5011: null,
5105: select enable_top_task_customer_flag ,
5106: enable_top_task_inv_mth_flag
5107: Into l_enable_top_task_cust_flag,
5108: l_enable_top_task_inv_mth_flag
5109: from pa_projects
5110: where project_id = x_new_project_id;
5111:
5112: IF nvl(l_enable_top_task_cust_flag,'N') ='Y' Then
5113: If x_customer_id is not null then
5281: --EH Changes
5282: BEGIN
5283: x_err_stage := 'Copy Object Page Layouts';
5284: PA_Page_layout_Utils.copy_object_page_layouts(
5285: p_object_type => 'PA_PROJECTS',
5286: P_object_id_from => x_orig_project_id ,
5287: P_object_id_to => x_new_project_id,
5288: x_return_status => l_return_status,
5289: x_msg_count => l_msg_count,
5375: /* Bug#3480409 : FP.M Changes: Added code for copying Perf/Score rules, starts here */
5376: BEGIN
5377: x_err_stage := 'Copy object Perf/Score rules';
5378: PA_PERF_EXCP_UTILS.copy_object_rule_assoc
5379: ( p_from_object_type => 'PA_PROJECTS'
5380: ,p_from_object_id => x_orig_project_id
5381: ,p_to_object_type => 'PA_PROJECTS'
5382: ,p_to_object_id => x_new_project_id
5383: ,x_return_status => l_return_status
5377: x_err_stage := 'Copy object Perf/Score rules';
5378: PA_PERF_EXCP_UTILS.copy_object_rule_assoc
5379: ( p_from_object_type => 'PA_PROJECTS'
5380: ,p_from_object_id => x_orig_project_id
5381: ,p_to_object_type => 'PA_PROJECTS'
5382: ,p_to_object_id => x_new_project_id
5383: ,x_return_status => l_return_status
5384: ,x_msg_count => l_msg_count
5385: ,x_msg_data => l_msg_data );
5460: IF 'Y' = l_pr_user_defn_att_flag THEN
5461: PA_USER_ATTR_PUB.COPY_USER_ATTRS_DATA
5462: ( p_object_id_from => x_orig_project_id
5463: ,p_object_id_to => x_new_project_id
5464: ,p_object_type => 'PA_PROJECTS'
5465: ,x_return_status => l_return_status
5466: ,x_errorcode => l_errorcode
5467: ,x_msg_count => l_msg_count
5468: ,x_msg_data => l_msg_data);
5834: -- ------------------------------------------------------------------
5835:
5836: IF x_err_code = 0 THEN
5837: IF l_wf_enabled_flag = 'Y' THEN -- start the project workflow
5838: UPDATE pa_projects
5839: SET wf_status_code = 'IN_ROUTE'
5840: WHERE project_id = x_new_project_id;
5841: Pa_project_wf.Start_Project_Wf
5842: (p_project_id => x_new_project_id,
5849: --SMukka Added this plsql block of code
5850: /* BEGIN
5851: PA_PERF_EXCP_UTILS.copy_object_rule_assoc
5852: (
5853: p_from_object_type =>'PA_PROJECTS'
5854: ,p_from_object_id =>x_orig_project_id
5855: ,p_to_object_type =>'PA_PROJECTS'
5856: ,p_to_object_id =>x_project_id
5857: ,x_msg_count =>l_msg_count
5851: PA_PERF_EXCP_UTILS.copy_object_rule_assoc
5852: (
5853: p_from_object_type =>'PA_PROJECTS'
5854: ,p_from_object_id =>x_orig_project_id
5855: ,p_to_object_type =>'PA_PROJECTS'
5856: ,p_to_object_id =>x_project_id
5857: ,x_msg_count =>l_msg_count
5858: ,x_msg_data =>l_msg_data
5859: ,x_return_status =>l_return_status
6009:
6010: IS
6011: Cursor C1(param_1 Number) IS
6012: select project_id
6013: from pa_projects_all
6014: where segment1 = to_char(param_1);
6015: loop_cnt number := 0;
6016: x_id number;
6017: old_stack varchar2(630);
6036: as the new proj number. */
6037:
6038: UPDATE PA_UNIQUE_IDENTIFIER_CONTROL
6039: Set Next_Unique_Identifier = next_proj_num
6040: Where Table_Name = 'PA_PROJECTS';
6041: x_error_stack := old_stack;
6042: Return ;
6043: end if;
6044: