[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
326:
327: CURSOR l_get_details_for_wf_csr (l_project_id IN NUMBER ) IS
328: SELECT project_type,
329: project_status_code
330: FROM pa_projects
331: WHERE project_id = l_project_id;
332:
333: -- for opportunity value changes
334: -- anlee
342:
343: CURSOR l_get_details_for_opp_csr (c_project_id IN NUMBER) IS
344: SELECT expected_approval_date, projfunc_currency_code, project_currency_code
345: ,target_start_date, target_finish_date, calendar_id --bug 2805602
346: FROM pa_projects
347: WHERE project_id = c_project_id;
348:
349: l_target_start_date DATE; --added for bug 2805602
350: l_target_finish_date DATE; --added for bug 2805602
359:
360: -- Bug 7482391
361: cursor new_prj_end_date_csr(c_project_id IN NUMBER) IS
362: SELECT COMPLETION_DATE
363: FROM PA_PROJECTS_ALL
364: WHERE project_id=c_project_id;
365:
366: -- anlee
367: /*
409: ----End selective copy project options. Tracking bug No 3464332
410: --Bug 3279981 FP_M Project Setup development
411: CURSOR cur_get_orig_bill_info IS
412: SELECT enable_top_task_inv_mth_flag, revenue_accrual_method, invoice_method
413: FROM pa_projects_all
414: WHERE project_id = x_orig_project_id;
415:
416: -- 4055319 Added below cursor to retrieve source's funding approval status code
417:
419: select
420: ppa.funding_approval_status_code,
421: pps.project_system_status_code
422: from
423: pa_projects_all ppa,
424: pa_project_statuses pps
425: where
426: ppa.project_id = x_orig_project_id
427: and ppa.funding_approval_status_code = pps.project_status_code;
664: project_type,
665: carrying_out_organization_id,
666: initial_team_template_id,
667: baseline_funding_flag
668: from pa_projects
669: where project_id = x_orig_project_id;
670:
671: -- use min(start_date) as pseudo original project start
672: cursor c2 is
788: from pa_project_statuses ps
789: where project_status_code = x_project_status_code;
790:
791: cursor p2 is select ps.project_system_status_code, ps.starting_status_flag, ps.project_status_code
792: from pa_project_statuses ps, pa_projects pp
793: where ps.project_status_code = pp.project_status_code
794: and pp.project_id = x_orig_project_id;
795:
796: cursor p3 is select ps.project_system_status_code, ps.starting_status_flag, ps.project_status_code
793: where ps.project_status_code = pp.project_status_code
794: and pp.project_id = x_orig_project_id;
795:
796: cursor p3 is select ps.project_system_status_code, ps.starting_status_flag, ps.project_status_code
797: from pa_project_statuses ps, pa_project_types pt, pa_projects pp
798: where ps.project_status_code = pt.def_start_proj_status_code
799: and pt.project_type = pp.project_type
800: and pp.project_id = x_orig_project_id;
801:
1110:
1111: -- copy project
1112: declare
1113: cursor c1 is
1114: select pa_projects_s.nextval from sys.dual;
1115:
1116: --bug 2434241
1117: cursor c2 is
1118: select retn_accounting_flag from pa_implementations;
1123: Cursor c3 is
1124: SELECT 'YES' FROM DUAL
1125: WHERE EXISTS ( SELECT 1 FROM FND_DESCRIPTIVE_FLEXS
1126: WHERE APPLICATION_ID=275
1127: AND APPLICATION_TABLE_NAME='PA_PROJECTS_ALL'
1128: AND DESCRIPTIVE_FLEXFIELD_NAME = 'PA_PROJECTS_DESC_FLEX'
1129: AND CONTEXT_COLUMN_NAME = 'ATTRIBUTE_CATEGORY'
1130: AND DEFAULT_CONTEXT_FIELD_NAME = 'TEMPLATE_FLAG' );
1131:
1124: SELECT 'YES' FROM DUAL
1125: WHERE EXISTS ( SELECT 1 FROM FND_DESCRIPTIVE_FLEXS
1126: WHERE APPLICATION_ID=275
1127: AND APPLICATION_TABLE_NAME='PA_PROJECTS_ALL'
1128: AND DESCRIPTIVE_FLEXFIELD_NAME = 'PA_PROJECTS_DESC_FLEX'
1129: AND CONTEXT_COLUMN_NAME = 'ATTRIBUTE_CATEGORY'
1130: AND DEFAULT_CONTEXT_FIELD_NAME = 'TEMPLATE_FLAG' );
1131:
1132: l_is_dff_reference_temp_flag VARCHAR2(3) :='NO'; -- Bug 2900258
1217: END IF;
1218:
1219: -- 4055319 end
1220:
1221: insert into pa_projects (
1222: project_id,
1223: name,
1224: long_name, --long name changes
1225: segment1,
1653: decode(p_date_eff_funds_flag, null, nvl(t.DATE_EFF_FUNDS_CONSUMPTION,'N'), p_date_eff_funds_flag)
1654: --sunkalya:federal Bug#5511353
1655: ,t.ar_rec_notify_flag -- 7508661 : EnC
1656: ,t.auto_release_pwp_inv -- 7508661 : EnC
1657: from pa_projects t
1658: where t.project_id = x_orig_project_id;
1659:
1660: if (SQL%NOTFOUND) then
1661: x_err_code := 90;
1707: l_return_status VARCHAR2(1);
1708: CURSOR get_proj_attr
1709: IS
1710: SELECT name, long_name, segment1, description, template_flag
1711: FROM PA_PROJECTS_ALL
1712: WHERE project_id = x_new_project_id;
1713:
1714: l_name VARCHAR2(30);
1715: l_long_name VARCHAR2(240);
1803: DECLARE
1804: CURSOR get_subteams_csr(c_project_id NUMBER) IS
1805: SELECT name, description
1806: FROM pa_project_subteams
1807: WHERE object_type = 'PA_PROJECTS'
1808: AND object_id = c_project_id;
1809:
1810: l_name PA_PROJECT_SUBTEAMS.name%TYPE;
1811: l_description PA_PROJECT_SUBTEAMS.description%TYPE;
1822: EXIT WHEN get_subteams_csr%NOTFOUND;
1823:
1824: PA_PROJECT_SUBTEAMS_PUB.Create_Subteam(
1825: p_subteam_name => l_name
1826: ,p_object_type => 'PA_PROJECTS'
1827: ,p_object_id => x_new_project_id
1828: ,p_description => l_description
1829: ,p_record_version_number => 1
1830: ,p_calling_module => 'PROJECT_SUBTEAMS'
2161: , p_validate_only => FND_API.G_FALSE -- p_validate_only
2162: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
2163: , p_debug_mode => 'N' -- p_debug_mode
2164: , p_object_id => x_new_project_id -- p_object_id
2165: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
2166: , p_project_role_id => v_null_number -- p_project_role_id
2167: , p_project_role_type => c_role_based_loop_rec_1.project_role_type -- p_project_role_type
2168: , p_RESOURCE_TYPE_ID => c_role_based_loop_rec_1.resource_type_id -- p_RESOURCE_TYPE_ID
2169: , p_resource_source_id => c_role_based_loop_rec_1.resource_source_id -- p_resource_source_id
2318: , p_validate_only => FND_API.G_FALSE -- p_validate_only
2319: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
2320: , p_debug_mode => 'N' -- p_debug_mode
2321: , p_object_id => x_new_project_id -- p_object_id
2322: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
2323: , p_project_role_id => v_null_number -- p_project_role_id
2324: , p_project_role_type => c_role_based_loop_rec_2.project_role_type -- p_project_role_type
2325: , p_RESOURCE_TYPE_ID => c_role_based_loop_rec_2.resource_type_id -- p_RESOURCE_TYPE_ID
2326: , p_resource_source_id => c_role_based_loop_rec_2.resource_source_id -- p_resource_source_id
2497: , p_validate_only => FND_API.G_FALSE
2498: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2499: , p_debug_mode => 'N'
2500: , p_object_id => x_new_project_id
2501: , p_OBJECT_TYPE => 'PA_PROJECTS'
2502: , p_project_role_id => v_null_number
2503: , p_project_role_type => c_role_based_loop_rec_1.project_role_type
2504: , p_RESOURCE_TYPE_ID => 112
2505: , p_resource_source_id => c_role_based_loop_rec_1.resource_source_id
2563: , p_validate_only => FND_API.G_FALSE
2564: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2565: , p_debug_mode => 'N'
2566: , p_object_id => x_new_project_id
2567: , p_OBJECT_TYPE => 'PA_PROJECTS'
2568: , p_project_role_id => v_null_number
2569: , p_project_role_type => c_role_based_loop_rec_2.project_role_type
2570: , p_RESOURCE_TYPE_ID => 112
2571: , p_resource_source_id => c_role_based_loop_rec_2.resource_source_id
2657: , pc.class_code
2658: , pc.class_category
2659: , pc.code_percentage
2660: , x_new_project_id
2661: , 'PA_PROJECTS'
2662: , sysdate
2663: , FND_GLOBAL.USER_ID
2664: , sysdate
2665: , FND_GLOBAL.USER_ID
2728: , pc.class_code
2729: , pc.class_category
2730: , pc.code_percentage
2731: , x_new_project_id
2732: , 'PA_PROJECTS'
2733: , sysdate
2734: , FND_GLOBAL.USER_ID
2735: , sysdate
2736: , FND_GLOBAL.USER_ID
2773: DECLARE
2774:
2775: CURSOR cur_get_orig_tt_cust_flag IS
2776: SELECT enable_top_task_customer_flag
2777: FROM pa_projects_all
2778: WHERE project_id = x_orig_project_id;
2779:
2780: --sunkalya:federal Bug#5511353
2781:
2783: IS
2784: SELECT
2785: nvl(DATE_EFF_FUNDS_CONSUMPTION,'N')
2786: FROM
2787: pa_projects_all
2788: WHERE project_id = x_orig_project_id ;
2789: --sunkalya:federal Bug#5511353
2790:
2791: l_exclude_cust_id_tbl PA_PLSQL_DATATYPES.NumTabTyp;
3024:
3025: PA_PROJECT_PARTIES_PUB.CREATE_PROJECT_PARTY(
3026: p_validate_only => FND_API.G_FALSE
3027: , p_object_id => x_new_project_id
3028: , p_OBJECT_TYPE => 'PA_PROJECTS'
3029: , p_project_role_id => 100
3030: , p_project_role_type => 'CUSTOMER_ORG'
3031: , p_RESOURCE_TYPE_ID => 112
3032: , p_resource_source_id => l_party_id
3150: -- Fetch all the customers for the source project. Call get_customer_info to obtain the
3151: -- Valid customer details. Use this info thus obtained to insert a customer record.
3152: DECLARE
3153: -- Define the cursor to fetch the customer details from the source.
3154: CURSOR cur_cust_info(c_project_id pa_projects_all.project_id%TYPE,
3155: c_created_from_proj_id pa_projects_all.project_id%TYPE ) IS -- Added the parameter for bug 3726109
3156: SELECT
3157: cust.customer_id
3158: , cust.project_relationship_code
3151: -- Valid customer details. Use this info thus obtained to insert a customer record.
3152: DECLARE
3153: -- Define the cursor to fetch the customer details from the source.
3154: CURSOR cur_cust_info(c_project_id pa_projects_all.project_id%TYPE,
3155: c_created_from_proj_id pa_projects_all.project_id%TYPE ) IS -- Added the parameter for bug 3726109
3156: SELECT
3157: cust.customer_id
3158: , cust.project_relationship_code
3159: , cust.customer_bill_split
3177: from pa_project_copy_overrides
3178: where project_id = c_created_from_proj_id
3179: and field_name = 'CUSTOMER_NAME');
3180: --CURSORS BELOW ADDED BY ADITI for Bug 3110489 Code Change Begins
3181: CURSOR cur_contact_info(c_project_id pa_projects_all.project_id%TYPE,
3182: c_created_from_proj_id pa_projects_all.project_id%TYPE,
3183: c_customer_id pa_project_customers.customer_id%TYPE)
3184: IS
3185: select contact.customer_id,
3178: where project_id = c_created_from_proj_id
3179: and field_name = 'CUSTOMER_NAME');
3180: --CURSORS BELOW ADDED BY ADITI for Bug 3110489 Code Change Begins
3181: CURSOR cur_contact_info(c_project_id pa_projects_all.project_id%TYPE,
3182: c_created_from_proj_id pa_projects_all.project_id%TYPE,
3183: c_customer_id pa_project_customers.customer_id%TYPE)
3184: IS
3185: select contact.customer_id,
3186: contact.contact_id,
3194: where project_id = c_created_from_proj_id
3195: and field_name = 'CUSTOMER_NAME')
3196: and contact.customer_id = c_customer_id;
3197:
3198: CURSOR cur_cust_override_exists (c_created_from_proj_id pa_projects_all.project_id%TYPE )
3199: IS
3200: select 'Y'
3201: from pa_project_copy_overrides
3202: where project_id = c_created_from_proj_id
3744:
3745: PA_PROJECT_PARTIES_PUB.CREATE_PROJECT_PARTY(
3746: p_validate_only => FND_API.G_FALSE
3747: , p_object_id => x_new_project_id
3748: , p_OBJECT_TYPE => 'PA_PROJECTS'
3749: , p_project_role_id => 100
3750: , p_project_role_type => 'CUSTOMER_ORG'
3751: , p_RESOURCE_TYPE_ID => 112
3752: , p_resource_source_id => l_party_id
4931: CLOSE cur_get_flag;
4932: --Following two IF conditions added for selective copy project
4933: IF 'Y' = l_pr_attachments_flag THEN
4934: IF 'Y' = l_pr_frm_src_tmpl_flag THEN
4935: fnd_attached_documents2_pkg.copy_attachments('PA_PROJECTS',
4936: --x_orig_project_id, Bug 3694616
4937: x_created_from_proj_id,
4938: null,
4939: null,
4938: null,
4939: null,
4940: null,
4941: null,
4942: 'PA_PROJECTS',
4943: --x_created_from_proj_id, Bug 3694616
4944: x_new_project_id,
4945: null,
4946: null,
4949: FND_GLOBAL.USER_ID,
4950: FND_GLOBAL.LOGIN_ID,
4951: 275, null, null);
4952: ELSE
4953: fnd_attached_documents2_pkg.copy_attachments('PA_PROJECTS',
4954: x_orig_project_id,
4955: null,
4956: null,
4957: null,
4955: null,
4956: null,
4957: null,
4958: null,
4959: 'PA_PROJECTS',
4960: x_new_project_id,
4961: null,
4962: null,
4963: null,
5057: select enable_top_task_customer_flag ,
5058: enable_top_task_inv_mth_flag
5059: Into l_enable_top_task_cust_flag,
5060: l_enable_top_task_inv_mth_flag
5061: from pa_projects
5062: where project_id = x_new_project_id;
5063:
5064: IF nvl(l_enable_top_task_cust_flag,'N') ='Y' Then
5065: If x_customer_id is not null then
5213: --EH Changes
5214: BEGIN
5215: x_err_stage := 'Copy Object Page Layouts';
5216: PA_Page_layout_Utils.copy_object_page_layouts(
5217: p_object_type => 'PA_PROJECTS',
5218: P_object_id_from => x_orig_project_id ,
5219: P_object_id_to => x_new_project_id,
5220: x_return_status => l_return_status,
5221: x_msg_count => l_msg_count,
5307: /* Bug#3480409 : FP.M Changes: Added code for copying Perf/Score rules, starts here */
5308: BEGIN
5309: x_err_stage := 'Copy object Perf/Score rules';
5310: PA_PERF_EXCP_UTILS.copy_object_rule_assoc
5311: ( p_from_object_type => 'PA_PROJECTS'
5312: ,p_from_object_id => x_orig_project_id
5313: ,p_to_object_type => 'PA_PROJECTS'
5314: ,p_to_object_id => x_new_project_id
5315: ,x_return_status => l_return_status
5309: x_err_stage := 'Copy object Perf/Score rules';
5310: PA_PERF_EXCP_UTILS.copy_object_rule_assoc
5311: ( p_from_object_type => 'PA_PROJECTS'
5312: ,p_from_object_id => x_orig_project_id
5313: ,p_to_object_type => 'PA_PROJECTS'
5314: ,p_to_object_id => x_new_project_id
5315: ,x_return_status => l_return_status
5316: ,x_msg_count => l_msg_count
5317: ,x_msg_data => l_msg_data );
5392: IF 'Y' = l_pr_user_defn_att_flag THEN
5393: PA_USER_ATTR_PUB.COPY_USER_ATTRS_DATA
5394: ( p_object_id_from => x_orig_project_id
5395: ,p_object_id_to => x_new_project_id
5396: ,p_object_type => 'PA_PROJECTS'
5397: ,x_return_status => l_return_status
5398: ,x_errorcode => l_errorcode
5399: ,x_msg_count => l_msg_count
5400: ,x_msg_data => l_msg_data);
5766: -- ------------------------------------------------------------------
5767:
5768: IF x_err_code = 0 THEN
5769: IF l_wf_enabled_flag = 'Y' THEN -- start the project workflow
5770: UPDATE pa_projects
5771: SET wf_status_code = 'IN_ROUTE'
5772: WHERE project_id = x_new_project_id;
5773: Pa_project_wf.Start_Project_Wf
5774: (p_project_id => x_new_project_id,
5781: --SMukka Added this plsql block of code
5782: /* BEGIN
5783: PA_PERF_EXCP_UTILS.copy_object_rule_assoc
5784: (
5785: p_from_object_type =>'PA_PROJECTS'
5786: ,p_from_object_id =>x_orig_project_id
5787: ,p_to_object_type =>'PA_PROJECTS'
5788: ,p_to_object_id =>x_project_id
5789: ,x_msg_count =>l_msg_count
5783: PA_PERF_EXCP_UTILS.copy_object_rule_assoc
5784: (
5785: p_from_object_type =>'PA_PROJECTS'
5786: ,p_from_object_id =>x_orig_project_id
5787: ,p_to_object_type =>'PA_PROJECTS'
5788: ,p_to_object_id =>x_project_id
5789: ,x_msg_count =>l_msg_count
5790: ,x_msg_data =>l_msg_data
5791: ,x_return_status =>l_return_status
5941:
5942: IS
5943: Cursor C1(param_1 Number) IS
5944: select project_id
5945: from pa_projects_all
5946: where segment1 = to_char(param_1);
5947: loop_cnt number := 0;
5948: x_id number;
5949: old_stack varchar2(630);
5968: as the new proj number. */
5969:
5970: UPDATE PA_UNIQUE_IDENTIFIER_CONTROL
5971: Set Next_Unique_Identifier = next_proj_num
5972: Where Table_Name = 'PA_PROJECTS';
5973: x_error_stack := old_stack;
5974: Return ;
5975: end if;
5976: