[Home] [Help]
31:
32: --needed to get the field values associated to a particular project
33:
34: CURSOR l_project_csr
35: (p_pa_project_id pa_projects.project_id%type)
36: IS
37: SELECT *
38: FROM pa_projects p
39: WHERE p.project_id = p_pa_project_id;
34: CURSOR l_project_csr
35: (p_pa_project_id pa_projects.project_id%type)
36: IS
37: SELECT *
38: FROM pa_projects p
39: WHERE p.project_id = p_pa_project_id;
40:
41: /*new cursor for bug no 2413400*/
42: Cursor p_product_code_csr (p_pm_product_code IN VARCHAR2)
168:
169: --needed for validation of distribution rule
170: CURSOR l_source_project_type_csr (p_source_template_id IN NUMBER )IS
171: SELECT project_type
172: FROM pa_projects
173: WHERE project_id = p_source_template_id;
174:
175: CURSOR l_get_wf_status_csr (l_project_id IN NUMBER)
176: IS
174:
175: CURSOR l_get_wf_status_csr (l_project_id IN NUMBER)
176: IS
177: SELECT wf_status_code
178: FROM pa_projects
179: WHERE project_id = l_project_id;
180:
181: -- IC and Multi National Currency changes Starts ...
182:
197: -- below cursor added for bug 2254661
198: Cursor l_temp_flag_csr(p_proj_id NUMBER)
199: Is
200: select NVL(template_flag,'N')
201: from pa_projects
202: where project_id = p_proj_id;
203:
204: -- 5182868 Added below cursor to validate template for effectiveness
205:
205:
206: Cursor l_temp_eff_flag_csr(p_proj_id NUMBER)
207: Is
208: select 'N'
209: from pa_projects_all
210: where project_id = p_proj_id
211: and template_flag = 'Y'
212: and ((nvl(trunc(template_start_date_active), trunc(sysdate)) > trunc(sysdate)) or
213: (nvl(trunc(template_end_date_active), trunc(sysdate)) < trunc(sysdate)));
239: i NUMBER := 0; --counter
240: j NUMBER := 0; --counter
241: l_is_overridable BOOLEAN := FALSE;
242: l_project_type_rec pa_project_types%rowtype;
243: l_project_rec pa_projects%rowtype;
244: l_project_in_rec project_in_rec_type;
245: l_override_fields_rec l_override_fields_csr%rowtype;
246: l_override_fields_tab override_fields_tbl_type;
247: l_key_members project_role_tbl_type;
430:
431: --Bug 3279981
432: CURSOR cur_get_orig_tt_cust_flag( c_project_id IN NUMBER ) IS
433: SELECT enable_top_task_customer_flag
434: FROM pa_projects_all
435: WHERE project_id = c_project_id ;
436:
437: l_orig_def_tt_flag VARCHAR2(1);
438: l_cust_bill_split NUMBER;
461: -- Commented this cursor for Performance Bug 4878696
462: -- CURSOR c_prj(c_project_id IN NUMBER ) IS
463: -- select project_system_status_code
464: -- ,project_type_class_code
465: -- from pa_projects_v
466: -- where project_id = c_project_id;
467:
468: -- Added the following cursor instead of the commented one as above for Performance Bug 4878696
469: CURSOR c_prj(c_project_id IN NUMBER ) IS
467:
468: -- Added the following cursor instead of the commented one as above for Performance Bug 4878696
469: CURSOR c_prj(c_project_id IN NUMBER ) IS
470: select PROJECT_SYSTEM_STATUS_CODE , PROJECT_TYPE_CLASS_CODE
471: from pa_projects_all ppa,pa_project_statuses pps,pa_project_types ppt
472: where ppa.project_id = c_project_id
473: and ppa.PROJECT_STATUS_CODE = pps.PROJECT_STATUS_CODE
474: and ppa.PROJECT_TYPE = ppt.PROJECT_TYPE
475: and pps.STATUS_TYPE = 'PROJECT'
482: from pa_project_players
483: where project_id = c_project_id
484: and project_role_type='PROJECT MANAGER';
485:
486: l_proj_status pa_projects_all.project_status_code%TYPE;
487: l_proj_type_class pa_project_types_all.project_type_class_code%TYPE;
488: l_prj_mgr_count NUMBER;
489: /* End of code for bug #2111806. */
490:
538: SELECT
539: NULL
540: FROM
541: pa_probability_members ppm,
542: pa_projects pp,
543: pa_project_types ppt
544: WHERE
545: pp.project_type = ppt.project_type AND
546: pp.org_id = ppt.org_id AND
559: IS
560: SELECT
561: nvl(DATE_EFF_FUNDS_CONSUMPTION,'N')
562: FROM
563: pa_projects_all
564: WHERE project_id = c_project_id ;
565:
566: /* 7508661 : EnC : Start */
567:
572: IS
573: SELECT
574: nvl(AR_REC_NOTIFY_FLAG,'N')
575: FROM
576: pa_projects_all
577: WHERE project_id = c_project_id ;
578:
579: l_auto_release_pwp_inv VARCHAR2(1);
580: l_orig_auto_release_pwp_inv VARCHAR2(1);
583: IS
584: SELECT
585: nvl(AUTO_RELEASE_PWP_INV,'Y')
586: FROM
587: pa_projects_all
588: WHERE project_id = c_project_id ;
589:
590: /* 7508661 : EnC : End */
591:
592: CURSOR cur_enable_funds_flag(p_project_id IN VARCHAR2)
593: IS
594: SELECT 'Y'
595: FROM
596: pa_projects_all p,
597: pa_project_types_all pt
598: WHERE
599: p.project_id = p_project_id AND
600: pt.project_type_class_code = 'CONTRACT' AND
658:
659: /*Added for bug 7830143*/
660: CURSOR c_get_org_id(c_project_id NUMBER) IS
661: select org_id
662: from pa_projects_all
663: where project_id = c_project_id;
664:
665: l_org_id NUMBER ;
666: /*Added for bug 7830143*/
1161:
1162: l_created_from_proj_id := l_project_in_rec.created_from_project_id;
1163: else
1164: select created_from_project_id into l_created_from_proj_id
1165: from pa_projects_all
1166: where project_id = l_project_in_rec.created_from_project_id;
1167: end if;
1168: --code addition for bug 2254661 ends
1169:
3324:
3325: end IF;
3326:
3327: /* Not required anymore since they are passed as input to copy project
3328: UPDATE pa_projects
3329: SET pm_project_reference = l_project_in_rec.pm_project_reference
3330: , pm_product_code = p_pm_product_code
3331: WHERE project_id = l_project_id;
3332: */
4059:
4060: PA_PROJECT_PARTIES_PUB.CREATE_PROJECT_PARTY(
4061: p_validate_only => FND_API.G_FALSE
4062: , p_object_id => l_project_id
4063: , p_OBJECT_TYPE => 'PA_PROJECTS'
4064: , p_project_role_id => 100
4065: , p_project_role_type => 'CUSTOMER_ORG'
4066: , p_RESOURCE_TYPE_ID => 112
4067: , p_resource_source_id => l_party_id
5326: ROLLBACK TO create_project_pub;
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:
5345: ROLLBACK TO create_project_pub;
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:
5364: ROLLBACK TO create_project_pub;
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:
5606: l_d_struct_ver_id NUMBER;
5607:
5608: --custom parameters
5609: l_project_type_rec pa_project_types%rowtype;
5610: l_project_rec pa_projects%rowtype;
5611: l_task_in_rec task_in_rec_type;
5612: l_project_id pa_projects.project_id%type;
5613: l_task_id pa_tasks.task_id%type;
5614: l_msg_count NUMBER ;
5608: --custom parameters
5609: l_project_type_rec pa_project_types%rowtype;
5610: l_project_rec pa_projects%rowtype;
5611: l_task_in_rec task_in_rec_type;
5612: l_project_id pa_projects.project_id%type;
5613: l_task_id pa_tasks.task_id%type;
5614: l_msg_count NUMBER ;
5615: l_msg_data VARCHAR2(2000);
5616: l_function_allowed VARCHAR2(1);
5623: l_customer_name VARCHAR2(360); -- Added for Bug 4689888 -- Modified to VARCHAR2(360) for bug 5856469
5624: --needed to get the field values associated to a AMG message
5625:
5626: CURSOR l_amg_project_csr
5627: (p_pa_project_id pa_projects.project_id%type)
5628: IS
5629: SELECT segment1
5630: FROM pa_projects p
5631: WHERE p.project_id = p_pa_project_id;
5626: CURSOR l_amg_project_csr
5627: (p_pa_project_id pa_projects.project_id%type)
5628: IS
5629: SELECT segment1
5630: FROM pa_projects p
5631: WHERE p.project_id = p_pa_project_id;
5632:
5633: --Added for bug 3280610
5634: --needed to get task_id of a task using project_id and task_reference.
5644: --Bug 3279981. Fetch project information
5645: CURSOR cur_get_proj_billing_info IS
5646: SELECT enable_top_task_customer_flag, enable_top_task_inv_mth_flag,
5647: revenue_accrual_method, invoice_method, project_type
5648: FROM pa_projects_all
5649: WHERE project_id = p_pa_project_id;
5650:
5651: CURSOR cur_check_proj_cust_exist (c_customer_id IN NUMBER ) IS
5652: SELECT 'Y'
7064: END IF; --<< n_structure_type >>
7065:
7066: p_task_id := l_task_id;
7067: p_pa_project_id_out := l_project_rec.project_id;
7068: p_pa_project_number_out := l_project_rec.segment1; --this is the project_number field in PA_PROJECTS
7069:
7070: --Begin Add by rtarway FP.M Development
7071: G_PROJECT_SHARING_TYPE := PA_PROJ_TASK_STRUC_PUB.GET_SHARE_TYPE(l_project_id);
7072: IF (G_PROJECT_SHARING_TYPE='SPLIT_MAPPING' AND l_structure_type = 'WORKPLAN' ) THEN
9568: CURSOR l_project_csr
9569: (l_pa_project_id NUMBER)
9570: IS
9571: SELECT *
9572: FROM pa_projects p
9573: WHERE p.project_id = l_pa_project_id;
9574:
9575: /**************************************
9576: ** The following cursor l_get_org_csr is not used anywhere in this
9617: , pt.service_type_code
9618: , pt.revaluate_funding_flag /*Bug 2891513 : selecting the columns revaluate_funding_flag and include_gains_losses_flag*/
9619: , pt.include_gains_losses_flag
9620: FROM pa_project_types pt
9621: , pa_projects p
9622: WHERE p.project_type = pt.project_type
9623: AND p.project_id = p_pa_project_id;
9624:
9625: --needed to check whether given project number is unique
9625: --needed to check whether given project number is unique
9626: CURSOR l_project_number_unique_csr( p_project_number VARCHAR2)
9627: IS
9628: SELECT 'x'
9629: FROM pa_projects_all
9630: WHERE segment1 = p_project_number;
9631:
9632: --needed to check whether given project name is unique
9633: CURSOR l_project_name_unique_csr( p_project_name VARCHAR2)
9632: --needed to check whether given project name is unique
9633: CURSOR l_project_name_unique_csr( p_project_name VARCHAR2)
9634: IS
9635: SELECT 'x'
9636: FROM pa_projects_all
9637: WHERE name = p_project_name;
9638:
9639: --needed to check whether given long name is unique
9640: CURSOR l_long_name_unique_csr( p_long_name VARCHAR2)
9639: --needed to check whether given long name is unique
9640: CURSOR l_long_name_unique_csr( p_long_name VARCHAR2)
9641: IS
9642: SELECT 'x'
9643: FROM pa_projects_all
9644: WHERE long_name = p_long_name;
9645:
9646: /* Modidified the cursor l_key_member_csr to add start_date_active as logical
9647: primary key */
9697: /* bug 4541103
9698: CURSOR l_lock_rows_csr( p_project_id NUMBER)
9699: IS
9700: SELECT 'x'
9701: FROM pa_projects p
9702: WHERE p.project_id = p_project_id
9703: FOR UPDATE OF p.project_id NOWAIT;
9704: */
9705:
9761: NULL USER_NAME,
9762: -999 USER_ID,
9763: ppp.resource_source_id RESOURCE_PARTY_ID
9764: FROM pa_project_parties ppp,
9765: pa_projects_all ppa,
9766: pa_project_role_types_vl pprt,
9767: hz_parties hzo,
9768: hz_contact_points hzcp
9769: WHERE ppp.resource_type_id = 112
9823: NULL USER_NAME,
9824: -999 USER_ID,
9825: ppp.resource_source_id RESOURCE_PARTY_ID
9826: FROM pa_project_parties ppp,
9827: pa_projects_all ppa,
9828: pa_project_role_types_vl pprt,
9829: hz_parties hzo
9830: WHERE ppp.resource_type_id = 112
9831: AND ppp.project_id = ppa.project_id
9840:
9841: -- 3693229 end
9842:
9843: --Cursor to get the current published version when structure type and project id is known
9844: CURSOR cur_struc_ver_fin(c_project_id pa_projects_all.project_id%TYPE, c_structure_type pa_structure_types.structure_type%TYPE)
9845: IS
9846: SELECT c.element_version_id
9847: FROM pa_proj_element_versions c, pa_structure_types a, pa_proj_structure_types b
9848: ,pa_proj_elem_ver_structure d
9855: AND d.status_code = 'STRUCTURE_PUBLISHED'
9856: AND d.latest_eff_published_flag = 'Y';
9857:
9858: --Cursor to get the working version when structure type and project id is known
9859: CURSOR cur_struc_ver_wp(c_project_id pa_projects_all.project_id%TYPE, c_structure_type pa_structure_types.structure_type%TYPE)
9860: IS
9861: SELECT c.element_version_id
9862: FROM pa_proj_element_versions c, pa_structure_types a, pa_proj_structure_types b
9863: ,pa_proj_elem_ver_structure d
9871:
9872: -- Cursor to get the Project's System Status Code Bug 3611598
9873: CURSOR c_project_sys_status_code IS
9874: SELECT project_system_status_code
9875: FROM PA_PROJECT_STATUSES sta,PA_PROJECTS_ALL pa
9876: WHERE pa.project_id = p_project_in.pa_project_id
9877: AND sta.project_status_code = pa.project_status_code;
9878:
9879: TYPE deferred_tasks_rec IS RECORD
9888: l_dummy_cur_output_tax_code VARCHAR2(1) :='N'; -- Added For Bug 5188246.
9889: l_status_code PA_PROJECT_STATUSES.project_system_status_code%TYPE; -- Bug 3611598
9890: l_deferred_tasks_index_tbl deferred_tasks_tbl_typ;
9891:
9892: l_project_rec pa_projects%ROWTYPE;
9893: l_project_in_rec pa_project_pub.project_in_rec_type;
9894: l_temp_org_id NUMBER;
9895: l_temp VARCHAR2(1);
9896:
10023: --added by rtarway FP.M Devlopment
10024: --needed to get the field values associated to a AMG message
10025:
10026: CURSOR l_amg_project_csr
10027: (p_pa_project_id pa_projects.project_id%type)
10028: IS
10029: SELECT segment1
10030: FROM pa_projects p
10031: WHERE p.project_id = p_pa_project_id;
10026: CURSOR l_amg_project_csr
10027: (p_pa_project_id pa_projects.project_id%type)
10028: IS
10029: SELECT segment1
10030: FROM pa_projects p
10031: WHERE p.project_id = p_pa_project_id;
10032:
10033: l_amg_segment1 VARCHAR2(25);
10034:
10236: -- Commented this cursor for Performance Bug 4878696
10237: -- CURSOR c_prj(c_project_id IN NUMBER ) IS
10238: -- select project_system_status_code
10239: -- ,project_type_class_code
10240: -- from pa_projects_v
10241: -- where project_id = c_project_id;
10242:
10243: -- Added the following cursor instead of the commented one as above for Performance Bug 4878696
10244: CURSOR c_prj(c_project_id IN NUMBER ) IS
10242:
10243: -- Added the following cursor instead of the commented one as above for Performance Bug 4878696
10244: CURSOR c_prj(c_project_id IN NUMBER ) IS
10245: select PROJECT_SYSTEM_STATUS_CODE , PROJECT_TYPE_CLASS_CODE
10246: from pa_projects_all ppa,pa_project_statuses pps,pa_project_types ppt
10247: where ppa.project_id = c_project_id
10248: and ppa.PROJECT_STATUS_CODE = pps.PROJECT_STATUS_CODE
10249: and ppa.PROJECT_TYPE = ppt.PROJECT_TYPE
10250: and pps.STATUS_TYPE = 'PROJECT'
10257: from pa_project_players
10258: where project_id = c_project_id
10259: and project_role_type='PROJECT MANAGER';
10260:
10261: l_proj_status pa_projects_all.project_status_code%TYPE;
10262: l_proj_type_class pa_project_types_all.project_type_class_code%TYPE;
10263: l_prj_mgr_count NUMBER;
10264: /* End of code for bug #2111806. */
10265:
10308:
10309:
10310: CURSOR l_get_details_for_opp_csr (c_project_id IN NUMBER) IS
10311: SELECT expected_approval_date, projfunc_currency_code, project_currency_code
10312: FROM pa_projects
10313: WHERE project_id = c_project_id;
10314:
10315: CURSOR l_get_details_for_opp_csr2 (c_project_id IN NUMBER) IS
10316: SELECT opportunity_value, opp_value_currency_code
10333: -- Bug # 4329284.
10334:
10335: cursor cur_proj_name (c_project_id NUMBER) is
10336: select ppa.name
10337: from pa_projects_all ppa
10338: where ppa.project_id = c_project_id;
10339:
10340: cursor cur_prog_name (c_project_id NUMBER) is
10341: select ppa.name
10338: where ppa.project_id = c_project_id;
10339:
10340: cursor cur_prog_name (c_project_id NUMBER) is
10341: select ppa.name
10342: from pa_projects_all ppa, pa_object_relationships por
10343: where ppa.project_id = por.object_id_to2
10344: and por.object_id_to2 = c_project_id
10345: and por.relationship_type in ('LW','LF')
10346: union all
10344: and por.object_id_to2 = c_project_id
10345: and por.relationship_type in ('LW','LF')
10346: union all
10347: select ppa.name
10348: from pa_projects_all ppa, pa_object_relationships por
10349: where ppa.project_id = por.object_id_from2
10350: and por.object_id_from2 = c_project_id
10351: and por.relationship_type in ('LW','LF');
10352:
10414: SELECT
10415: NULL
10416: FROM
10417: pa_probability_members ppm,
10418: pa_projects pp,
10419: pa_project_types ppt
10420: WHERE
10421: pp.project_type = ppt.project_type AND
10422: pp.org_id = ppt.org_id AND
10433: SELECT
10434: 'Y'
10435: FROM
10436: pa_work_types_vl pwt,
10437: pa_projects pp,
10438: pa_project_types ppt
10439: WHERE
10440: trunc(sysdate) BETWEEN pwt.start_date_active AND nvl(pwt.end_date_active,trunc(SYSDATE)) AND
10441: pp.project_type = ppt.project_type AND
10466: IS
10467: SELECT
10468: ppt.cc_prvdr_flag
10469: FROM
10470: pa_projects pp,
10471: pa_project_types ppt
10472: WHERE
10473: pp.project_type = ppt.project_type AND
10474: pp.org_id = ppt.org_id AND --this condition is not mandatory
10486: IS
10487: select 'x'
10488: from pa_project_role_types_v roles,
10489: pa_role_controls controls,
10490: pa_projects_all proj
10491: where proj.project_id=p_project_id
10492: and proj.ROLE_LIST_ID is null
10493: and roles.project_role_id=controls.project_role_id
10494: and roles.PROJECT_ROLE_TYPE=p_role_type
10497: union all
10498: select 'x'
10499: from pa_project_role_types_v roles,
10500: pa_role_controls controls,
10501: pa_projects_all proj,
10502: pa_role_list_members prlm
10503: where proj.project_id=p_project_id
10504: and proj.ROLE_LIST_ID =prlm.role_list_id
10505: and prlm.project_role_id = roles.project_role_id
10518: CURSOR cur_enable_funds_flag(p_project_id IN VARCHAR2)
10519: IS
10520: SELECT 'Y'
10521: FROM
10522: pa_projects_all p,
10523: pa_project_types_all pt
10524: WHERE
10525: p.project_id = p_project_id AND
10526: pt.project_type_class_code = 'CONTRACT' AND
11210:
11211:
11212:
11213: l_update_yes_flag := 'N';
11214: l_statement := 'UPDATE PA_PROJECTS SET ';
11215:
11216: --PROJECT NUMBER
11217: -- Check for implementation defined Project number generation mode
11218: -- If project number generation is automatic then ignore the input
15135: --End PA L changes
15136:
15137: ------------------- FP_M changes begin (venkat) 2 -----------------------------------------------
15138:
15139: /* ------ Begin Commented for now as the column sys_program_flag not exist in the pa_projects -----
15140:
15141: IF (p_project_in.sys_program_flag <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
15142: (p_project_in.sys_program_flag IS NOT NULL)
15143: THEN
15987:
15988: -- FP_M changes begin (venkat) 3
15989:
15990: -- COMMENT BEGIN --
15991: -------------- Begin Comment : Diable for now as the col sys_program_flag not in pa_projects -------
15992: -- IF l_sys_program_flag = 'Y' THEN
15993: -- DBMS_SQL.BIND_VARIABLE(l_cursor, ':sys_program_flg', RTRIM(p_project_in.sys_program_flag));
15994: -- END IF;
15995: -------------- end Comment : Diable for now as the col sys_program_flag not in pa_projects ---------
15991: -------------- Begin Comment : Diable for now as the col sys_program_flag not in pa_projects -------
15992: -- IF l_sys_program_flag = 'Y' THEN
15993: -- DBMS_SQL.BIND_VARIABLE(l_cursor, ':sys_program_flg', RTRIM(p_project_in.sys_program_flag));
15994: -- END IF;
15995: -------------- end Comment : Diable for now as the col sys_program_flag not in pa_projects ---------
15996: -- COMMENT END --
15997:
15998: -- Bug # 5072032.
15999:
16198: --Update the distribution rule with the correct invoice method, if no distribution rule has been passed
16199: --Call the api to default the invoice method to the tasks
16200: IF 'Y' = l_enable_top_task_inv_mth_flag AND 'N' = p_project_in.enable_top_task_inv_mth_flag THEN
16201: IF nvl(p_project_in.distribution_rule,PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR THEN
16202: UPDATE pa_projects_all
16203: SET distribution_rule =
16204: substr(distribution_rule,1,instr(distribution_rule,'/')-1)||'/'||l_proj_invoice_method
16205: WHERE project_id = l_project_id;
16206: END IF;
16235:
16236: --IF the invoice method at top task flag is checked,
16237: --invoice method of the distribution rule must internally be populated as WORK
16238: IF 'Y' = l_proj_top_task_inv_mth_flag THEN
16239: UPDATE pa_projects_all
16240: SET distribution_rule =
16241: substr(distribution_rule,1,instr(distribution_rule,'/')-1)||'/'||'WORK'
16242: WHERE project_id = l_project_id;
16243: END IF;
18585: -- updating START_DATE_ACTIVE and END_DATE_ACTIVE of
18586: -- PA_PROJECT_PLAYERS for the rowid in the cursor
18587: SELECT COMPLETION_DATE
18588: INTO v_completion_date
18589: FROM pa_projects p
18590: WHERE p.project_id = l_key_members_rec.project_id;
18591: /*Added the OR condition in the below statement for the bug 2846478*/
18592: if l_key_members_rec.scheduled_flag = 'N' OR l_key_members_rec.scheduled_flag IS NULL
18593: then
18598: , p_validate_only => FND_API.G_FALSE -- p_validate_only
18599: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
18600: , p_debug_mode => 'N' -- p_debug_mode
18601: , p_object_id => l_key_members_rec.project_id -- p_object_id
18602: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
18603: , p_project_role_id => NULL -------Bug 2100142l_key_members_rec.project_id -- p_project_role_id
18604: , p_project_role_type => l_key_members_rec.project_role_type -- p_project_role_type
18605: , p_resource_type_id => l_key_members_rec.resource_type_id -- p_resource_type_id
18606: , p_resource_source_id => l_key_members_rec.person_id -- p_resource_source_id
18801:
18802:
18803: SELECT COMPLETION_DATE
18804: INTO v_completion_date
18805: FROM pa_projects p
18806: WHERE p.project_id = l_org_roles_rec.project_id;
18807: if l_org_roles_rec.scheduled_flag = 'N'
18808: then
18809: PA_PROJECT_PARTIES_PUB.UPDATE_PROJECT_PARTY(
18813: , p_validate_only => FND_API.G_FALSE -- p_validate_only
18814: , p_validation_level => FND_API.G_VALID_LEVEL_FULL -- p_validation_level
18815: , p_debug_mode => 'N' -- p_debug_mode
18816: , p_object_id => l_org_roles_rec.project_id -- p_object_id
18817: , p_OBJECT_TYPE => 'PA_PROJECTS' -- p_OBJECT_TYPE
18818: , p_project_role_id => NULL -------Bug 2100142l_key_members_rec.project_id -- p_project_role_id
18819: , p_project_role_type => l_org_roles_rec.project_role_type -- p_project_role_type
18820: , p_resource_type_id => l_org_roles_rec.resource_type_id -- p_resource_type_id
18821: , p_resource_source_id => l_org_roles_rec.resource_source_id -- p_resource_source_id
20048: end if;
20049:
20050: Select pt.CC_PRVDR_FLAG,pa.multi_currency_billing_flag
20051: into l_cc_prvdr_flag,l_mcb_flag
20052: From pa_project_types pt, pa_projects pa
20053: where pa.project_type=pt.project_type AND
20054: pt.org_id = pa.org_id and
20055: pa.project_id=l_project_id;
20056:
20642: END if;
20643:
20644: Select pt.CC_PRVDR_FLAG,pa.multi_currency_billing_flag
20645: into l_cc_prvdr_flag,l_mcb_flag
20646: From pa_project_types pt, pa_projects pa
20647: where pa.project_type=pt.project_type
20648: AND pa.org_id = pt.org_id
20649: and pa.project_id=l_project_id;
20650:
21220: IF l_verify_ok_flag = 'N' THEN
21221: p_project_out.return_status := l_return_status;
21222: RAISE FND_API.G_EXC_ERROR;
21223: END IF;
21224: l_statement := 'UPDATE PA_PROJECTS SET ';
21225: -- special case for update to and from 'CLOSED'
21226: IF l_closing_project = 'Y' THEN
21227: l_statement := l_statement ||
21228: ' PROJECT_STATUS_CODE = ' ||
22335: --Bug 3279981. Fetch project information
22336: CURSOR cur_get_proj_billing_info(c_project_id IN NUMBER) IS
22337: SELECT enable_top_task_customer_flag, enable_top_task_inv_mth_flag,
22338: revenue_accrual_method, invoice_method, project_type
22339: FROM pa_projects_all
22340: WHERE project_id = c_project_id;
22341:
22342: CURSOR cur_check_proj_cust_exist (c_project_id IN NUMBER , c_customer_id IN NUMBER ) IS
22343: SELECT 'Y'
22375: l_customer_name VARCHAR2(360); -- Added for bug 4689888 -- Modified to VARCHAR2(360) for bug 5856469
22376: l_top_task_customer_id NUMBER; -- Added for Bug 5242015
22377: /* Added for bug 3705333 */
22378: CURSOR l_amg_project_csr
22379: (p_pa_project_id pa_projects.project_id%type)
22380: IS
22381: SELECT segment1
22382: FROM pa_projects p
22383: WHERE p.project_id = l_project_id ; --Bug#3747312 p_pa_project_id;
22378: CURSOR l_amg_project_csr
22379: (p_pa_project_id pa_projects.project_id%type)
22380: IS
22381: SELECT segment1
22382: FROM pa_projects p
22383: WHERE p.project_id = l_project_id ; --Bug#3747312 p_pa_project_id;
22384: /* changes end for bug 3705333 */
22385: --Bug 3279981
22386: --rtarway, BUG 3908013
29462: IS
29463:
29464: l_project_id NUMBER;
29465: l_task_id NUMBER;
29466: l_project_number Pa_Projects_All.Segment1%TYPE;
29467: l_task_number Pa_Proj_Elements.Name%TYPE;
29468: l_task_source_reference VARCHAR2(240);
29469: l_deliverable_element_id NUMBER;
29470: l_deliverable_version_id NUMBER;
29687: l_task_number := null;
29688: END IF;
29689:
29690: SELECT segment1 INTO l_project_number
29691: FROM Pa_Projects_All
29692: WHERE project_id = l_project_id;
29693:
29694: IF p_debug_mode = 'Y' THEN
29695: pa_debug.g_err_stage := 'Creating deliverable ['|| p_deliverable_short_name||']['||p_pm_deliverable_reference||']['
30139: l_action_out_tbl action_out_tbl_type ;
30140:
30141: l_project_id NUMBER;
30142: l_task_id NUMBER;
30143: l_project_number Pa_Projects_All.Segment1%TYPE;
30144: l_task_number Pa_Proj_Elements.Name%TYPE;
30145: l_dlvr_type_id Pa_Proj_Elements.type_id%TYPE;
30146:
30147: l_dlvr_prg_enabled VARCHAR2(1) := NULL;
33370: p_debug_mode => l_debug_mode );
33371: END IF;
33372:
33373: IF l_debug_mode = 'Y' THEN
33374: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : DELETE_MAPPING : Printing Input parameters';
33375: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33376: l_debug_level3);
33377: Pa_Debug.WRITE(g_pkg_name,'p_wp_task_version_id'||':'||p_wp_task_version_id,
33378: l_debug_level3);
33393:
33394: END IF;
33395: --Validate for input parameters
33396: IF l_debug_mode = 'Y' THEN
33397: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : DELETE_MAPPING : Validating Input parameters';
33398: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33399: l_debug_level3);
33400: END IF;
33401:
33432: l_project_id := p_project_id;
33433: END IF;
33434:
33435: IF p_debug_mode = 'Y' THEN
33436: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'DELETE_MAPPING'||'Project ID:'||l_project_id;
33437: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33438: END IF;
33439: --1.1 Get the task ids if these are null
33440: --WP TASK ID
33541: x_msg_count := l_msg_count;
33542: x_msg_data := l_msg_data;
33543:
33544: IF p_debug_mode = 'Y' THEN
33545: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'DELETE_MAPPING'||'After Calling PA_PROJ_STRUC_MAPPING_PUB.DELETE_MAPPING:'||x_return_status;
33546: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33547: END IF;
33548:
33549: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33655: p_debug_mode => l_debug_mode );
33656: END IF;
33657:
33658: IF l_debug_mode = 'Y' THEN
33659: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : Printing Input parameters';
33660: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33661: l_debug_level3);
33662: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
33663: l_debug_level3);
33675: l_debug_level3);
33676: END IF;
33677: --Validate for input parameters
33678: IF l_debug_mode = 'Y' THEN
33679: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : Validating Input parameters';
33680: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33681: l_debug_level3);
33682: END IF;
33683:
33686: (p_proj_source_reference IS NULL OR p_proj_source_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
33687: )
33688: THEN
33689: IF l_debug_mode = 'Y' THEN
33690: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : At least one of the parameters for deriving Project id should be passed';
33691: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33692: l_debug_level3);
33693: END IF;
33694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33700: ( p_mapped_task_name IS NULL OR p_mapped_task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
33701: )
33702: THEN
33703: IF l_debug_mode = 'Y' THEN
33704: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : At least one of the parameters for deriving financial task version id should be passed';
33705: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33706: l_debug_level3);
33707: END IF;
33708: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33714: (p_wkp_task_name IS NULL OR p_wkp_task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )
33715: )
33716: THEN
33717: IF l_debug_mode = 'Y' THEN
33718: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : CREATE_MAPPING : At least one of the parameters for deriving workplan task version id should be passed';
33719: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
33720: l_debug_level3);
33721: END IF;
33722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33782: );
33783: END IF;
33784:
33785: IF p_debug_mode = 'Y' THEN
33786: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'Project ID:'||l_project_id;
33787: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33788: END IF;
33789:
33790: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
33807: , p_out_task_id => l_wkp_task_id
33808: , p_return_status => x_return_status );
33809:
33810: IF p_debug_mode = 'Y' THEN
33811: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'wkp_task_id:'||l_wkp_task_id;
33812: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33813: END IF;
33814:
33815: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33833: , p_return_status => x_return_status );
33834:
33835: --Assign mapped task_id to px_mapped_task_id as it is in out parameter
33836: IF p_debug_mode = 'Y' THEN
33837: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'mapped_task_id:'||l_mapped_task_id;
33838: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33839: END IF;
33840: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
33841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
33868: fetch cur_get_mapped_task_version_id into l_mapped_task_version_id;
33869: close cur_get_mapped_task_version_id ;
33870: END IF;
33871: IF p_debug_mode = 'Y' THEN
33872: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'Before Calling PA_PROJ_STRUC_MAPPING_PUB.CREATE_MAPPING:';
33873: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33874: END IF;
33875:
33876:
33897: x_msg_count := l_msg_count;
33898: x_msg_data := l_msg_data;
33899:
33900: IF p_debug_mode = 'Y' THEN
33901: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'CREATE_MAPPING'||'After Calling PA_PROJ_STRUC_MAPPING_PUB.CREATE_MAPPING:'||x_return_status;
33902: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
33903: END IF;
33904:
33905: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34017: p_debug_mode => l_debug_mode );
34018: END IF;
34019:
34020: IF l_debug_mode = 'Y' THEN
34021: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : Printing Input parameters';
34022: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34023: l_debug_level3);
34024: Pa_Debug.WRITE(g_pkg_name,'px_mapped_task_id'||':'||px_mapped_task_id,
34025: l_debug_level3);
34037: l_debug_level3);
34038: END IF;
34039: --Validate for input parameters
34040: IF l_debug_mode = 'Y' THEN
34041: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : Validating Input parameters';
34042: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34043: l_debug_level3);
34044: END IF;
34045:
34048: (p_proj_source_reference IS NULL OR p_proj_source_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
34049: )
34050: THEN
34051: IF l_debug_mode = 'Y' THEN
34052: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : At least one of the parameters for deriving Project id should be passed';
34053: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34054: l_debug_level3);
34055: END IF;
34056: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34065: ( p_wkp_task_name IS NULL OR p_wkp_task_name = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR )
34066: )
34067: THEN
34068: IF l_debug_mode = 'Y' THEN
34069: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : UPDATE_MAPPING : At least one of the parameters for deriving workplan task version id should be passed';
34070: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34071: l_debug_level3);
34072: END IF;
34073: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34133: );
34134: END IF;
34135:
34136: IF p_debug_mode = 'Y' THEN
34137: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'Project ID:'||l_project_id;
34138: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34139: END IF;
34140:
34141: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34156: , p_out_task_id => l_wkp_task_id
34157: , p_return_status => x_return_status );
34158:
34159: IF p_debug_mode = 'Y' THEN
34160: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'wkp_task_id:'||l_wkp_task_id;
34161: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34162: END IF;
34163:
34164: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34181: , p_out_task_id => l_mapped_task_id
34182: , p_return_status => x_return_status );
34183:
34184: IF p_debug_mode = 'Y' THEN
34185: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'mapped_task_id:'||l_mapped_task_id;
34186: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34187: END IF;
34188: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
34189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34215:
34216: END IF;
34217:
34218: IF p_debug_mode = 'Y' THEN
34219: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'Before Calling PA_PROJ_STRUC_MAPPING_PUB.UPDATE_MAPPING:';
34220: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34221: END IF;
34222:
34223:
34245: x_msg_count := l_msg_count;
34246: x_msg_data := l_msg_data;
34247:
34248: IF p_debug_mode = 'Y' THEN
34249: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'UPDATE_MAPPING'||'After Calling PA_PROJ_STRUC_MAPPING_PUB.UPDATE_MAPPING:'||x_return_status;
34250: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34251: END IF;
34252:
34253: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34333: p_debug_mode => l_debug_mode );
34334: END IF;
34335:
34336: IF l_debug_mode = 'Y' THEN
34337: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Printing Input parameters';
34338: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34339: l_debug_level3);
34340: Pa_Debug.WRITE(g_pkg_name,'p_project_id'||':'||p_project_id,
34341: l_debug_level3);
34343: l_debug_level3);
34344: END IF;
34345: --Validate for input parameters
34346: IF l_debug_mode = 'Y' THEN
34347: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Validating Input parameters';
34348: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34349: l_debug_level3);
34350: END IF;
34351:
34354: (p_proj_source_reference IS NULL OR p_proj_source_reference = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR)
34355: )
34356: THEN
34357: IF l_debug_mode = 'Y' THEN
34358: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : At least one of the parameters for deriving Project id should be passed';
34359: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34360: l_debug_level3);
34361: END IF;
34362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34364:
34365: IF ( p_tasks_in_tbl IS NULL OR p_tasks_in_tbl.count <= 0 )
34366: THEN
34367: IF l_debug_mode = 'Y' THEN
34368: Pa_Debug.g_err_stage:= 'PA_PROJECTS_PUB : PROCESS_TASK_TABLE : Empty or NULL Task Table';
34369: Pa_Debug.WRITE(g_pkg_name,Pa_Debug.g_err_stage,
34370: l_debug_level3);
34371: END IF;
34372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34388: );
34389: END IF;
34390:
34391: IF p_debug_mode = 'Y' THEN
34392: pa_debug.g_err_stage := 'PA_PROJECTS_PUB:'||'PROCESS_TASK_TABLE'||'Project ID:'||l_project_id;
34393: pa_debug.write(g_pkg_name,pa_debug.g_err_stage,3);
34394: END IF;
34395:
34396: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
34515:
34516: CURSOR get_template_flag(c_project_id NUMBER)
34517: IS
34518: select template_flag
34519: from pa_projects_all
34520: where project_id = c_project_id;
34521:
34522: CURSOR get_workplan_status(c_project_id NUMBER, c_structure_version_id NUMBER)
34523: IS
34766:
34767: CURSOR get_template_flag(c_project_id NUMBER)
34768: IS
34769: select template_flag
34770: from pa_projects_all
34771: where project_id = c_project_id;
34772:
34773: CURSOR get_workplan_status(c_project_id NUMBER, c_structure_version_id NUMBER)
34774: IS
35027:
35028: CURSOR get_template_flag(c_project_id NUMBER)
35029: IS
35030: select template_flag
35031: from pa_projects_all
35032: where project_id = c_project_id;
35033:
35034: CURSOR get_workplan_status(c_project_id NUMBER, c_structure_version_id NUMBER)
35035: IS
35731: l_user_id NUMBER := 0;
35732: l_module_name VARCHAR2(80);
35733: l_function_allowed VARCHAR2(1);
35734:
35735: l_project_id pa_projects.project_id%type;
35736:
35737: l_update_wbs_flag VARCHAR2(1);
35738:
35739: l_str_ver_id NUMBER:= null;
36002: ,ppes.element_version_id structure_version_id
36003: ,ppa.segment1 project_number
36004: ,ppes.name structure_name
36005: from pa_proj_elem_ver_structure ppes,
36006: pa_projects_all ppa
36007: where ppa.project_id = ppes.project_id
36008: and ppes.process_update_wbs_flag = 'Y'
36009: and NVL(ppes.process_code,'WUE') = 'WUE'
36010: and ppa.segment1 between nvl(p_project_num_from,ppa.segment1)
36179: l_allow_multi_program_rollup VARCHAR2(1) := NULL;
36180:
36181: cursor l_cur_sys_program_flag(c_project_id NUMBER) is
36182: select ppa.sys_program_flag
36183: from pa_projects_all ppa
36184: where ppa.project_id = c_project_id;
36185:
36186: cursor l_cur_allow_multi_prog_rollup(c_project_id NUMBER) is
36187: select ppa.allow_multi_program_rollup
36184: where ppa.project_id = c_project_id;
36185:
36186: cursor l_cur_allow_multi_prog_rollup(c_project_id NUMBER) is
36187: select ppa.allow_multi_program_rollup
36188: from pa_projects_all ppa
36189: where ppa.project_id = c_project_id;
36190:
36191: l_msg_index_out NUMBER := NULL;
36192: l_return_status VARCHAR2(1) := NULL;
36409: l_msg_data VARCHAR2(2000) := NULL;
36410:
36411: cursor l_cur_prog_name (c_task_version_id NUMBER) is
36412: select ppa.name
36413: from pa_projects_all ppa, pa_proj_element_versions ppev
36414: where ppa.project_id = ppev.project_id
36415: and ppev.element_version_id = c_task_version_id;
36416:
36417: cursor l_cur_prog_name2 (c_project_id NUMBER) is
36415: and ppev.element_version_id = c_task_version_id;
36416:
36417: cursor l_cur_prog_name2 (c_project_id NUMBER) is
36418: select ppa.name
36419: from pa_projects_all ppa
36420: where ppa.project_id = c_project_id;
36421:
36422: cursor l_cur_proj_name (c_project_id NUMBER) is
36423: select ppa.name
36420: where ppa.project_id = c_project_id;
36421:
36422: cursor l_cur_proj_name (c_project_id NUMBER) is
36423: select ppa.name
36424: from pa_projects_all ppa
36425: where ppa.project_id = c_project_id;
36426:
36427: cursor l_cur_task_name (c_task_ver_id NUMBER) is
36428: select ppe.name
36432: and ppev.element_version_id = c_task_ver_id;
36433:
36434: cursor l_cur_sub_proj1(c_sub_project_reference VARCHAR2, c_sub_project_id NUMBER) is
36435: select ppa.project_id
36436: from pa_projects_all ppa
36437: where pm_project_reference = c_sub_project_reference
36438: and ppa.project_id = c_sub_project_id;
36439:
36440: cursor l_cur_sub_proj2(c_sub_project_reference VARCHAR2) is
36438: and ppa.project_id = c_sub_project_id;
36439:
36440: cursor l_cur_sub_proj2(c_sub_project_reference VARCHAR2) is
36441: select ppa.project_id
36442: from pa_projects_all ppa
36443: where pm_project_reference = c_sub_project_reference;
36444:
36445: cursor l_cur_sub_proj3(c_sub_project_id NUMBER) is
36446: select ppa.project_id
36443: where pm_project_reference = c_sub_project_reference;
36444:
36445: cursor l_cur_sub_proj3(c_sub_project_id NUMBER) is
36446: select ppa.project_id
36447: from pa_projects_all ppa
36448: where ppa.project_id = c_sub_project_id;
36449:
36450: l_parent_sub_flag VARCHAR2(1) := NULL;
36451:
36987: and por.object_relationship_id = c_object_relationship_id;
36988:
36989: cursor l_cur_prog_name (c_task_version_id NUMBER) is
36990: select ppa.name
36991: from pa_projects_all ppa, pa_proj_element_versions ppev
36992: where ppa.project_id = ppev.project_id
36993: and ppev.element_version_id = c_task_version_id;
36994:
36995: cursor l_cur_prog_name2 (c_project_id NUMBER) is
36993: and ppev.element_version_id = c_task_version_id;
36994:
36995: cursor l_cur_prog_name2 (c_project_id NUMBER) is
36996: select ppa.name
36997: from pa_projects_all ppa
36998: where ppa.project_id = c_project_id;
36999:
37000: cursor l_cur_proj_name (c_project_id NUMBER) is
37001: select ppa.name
36998: where ppa.project_id = c_project_id;
36999:
37000: cursor l_cur_proj_name (c_project_id NUMBER) is
37001: select ppa.name
37002: from pa_projects_all ppa
37003: where ppa.project_id = c_project_id;
37004:
37005: cursor l_cur_task_name (c_task_ver_id NUMBER) is
37006: select ppe.name
37015: where ppev.element_version_id = c_task_version_id;
37016:
37017: cursor l_cur_sub_proj1(c_sub_project_reference VARCHAR2, c_sub_project_id NUMBER) is
37018: select ppa.project_id
37019: from pa_projects_all ppa
37020: where pm_project_reference = c_sub_project_reference
37021: and ppa.project_id = c_sub_project_id;
37022:
37023: cursor l_cur_sub_proj2(c_sub_project_reference VARCHAR2) is
37021: and ppa.project_id = c_sub_project_id;
37022:
37023: cursor l_cur_sub_proj2(c_sub_project_reference VARCHAR2) is
37024: select ppa.project_id
37025: from pa_projects_all ppa
37026: where pm_project_reference = c_sub_project_reference;
37027:
37028: cursor l_cur_sub_proj3(c_sub_project_id NUMBER) is
37029: select ppa.project_id
37026: where pm_project_reference = c_sub_project_reference;
37027:
37028: cursor l_cur_sub_proj3(c_sub_project_id NUMBER) is
37029: select ppa.project_id
37030: from pa_projects_all ppa
37031: where ppa.project_id = c_sub_project_id;
37032:
37033: l_parent_sub_flag VARCHAR2(1) := NULL;
37034:
37575: and por.object_relationship_id = c_object_relationship_id;
37576:
37577: cursor l_cur_prog_name (c_task_version_id NUMBER) is
37578: select ppa.name
37579: from pa_projects_all ppa, pa_proj_element_versions ppev
37580: where ppa.project_id = ppev.project_id
37581: and ppev.element_version_id = c_task_version_id;
37582:
37583: cursor l_cur_proj_name (c_project_id NUMBER) is
37581: and ppev.element_version_id = c_task_version_id;
37582:
37583: cursor l_cur_proj_name (c_project_id NUMBER) is
37584: select ppa.name
37585: from pa_projects_all ppa
37586: where ppa.project_id = c_project_id;
37587:
37588: cursor l_cur_task_name (c_task_ver_id NUMBER) is
37589: select ppe.name
37598: where ppev.element_version_id = c_task_version_id;
37599:
37600: cursor l_cur_sub_proj1(c_sub_project_reference VARCHAR2, c_sub_project_id NUMBER) is
37601: select ppa.project_id
37602: from pa_projects_all ppa
37603: where pm_project_reference = c_sub_project_reference
37604: and ppa.project_id = c_sub_project_id;
37605:
37606: cursor l_cur_sub_proj2(c_sub_project_reference VARCHAR2) is
37604: and ppa.project_id = c_sub_project_id;
37605:
37606: cursor l_cur_sub_proj2(c_sub_project_reference VARCHAR2) is
37607: select ppa.project_id
37608: from pa_projects_all ppa
37609: where pm_project_reference = c_sub_project_reference;
37610:
37611: cursor l_cur_sub_proj3(c_sub_project_id NUMBER) is
37612: select ppa.project_id
37609: where pm_project_reference = c_sub_project_reference;
37610:
37611: cursor l_cur_sub_proj3(c_sub_project_id NUMBER) is
37612: select ppa.project_id
37613: from pa_projects_all ppa
37614: where ppa.project_id = c_sub_project_id;
37615:
37616: l_program_name VARCHAR2(30) := NULL;
37617: l_project_name VARCHAR2(30) := NULL;