[Home] [Help]
1906: fnd_global.login_id) RETURNING FIN_PLAN_AMOUNT_SET_ID INTO x_cost_amount_set_id;
1907:
1908: --SELECT pa_fin_plan_amount_sets_s.currval
1909: --into x_cost_amount_set_id
1910: --from dual;
1911:
1912: END IF;
1913: END IF; -- cost only
1914:
2013: RETURNING FIN_PLAN_AMOUNT_SET_ID INTO x_revenue_amount_set_id;
2014:
2015: --select pa_fin_plan_amount_sets_s.currval
2016: --into x_revenue_amount_set_id
2017: --from dual;
2018:
2019: END IF;
2020: END IF; -- revenue only
2021:
2117: RETURNING FIN_PLAN_AMOUNT_SET_ID INTO x_all_amount_set_id;
2118:
2119: --select pa_fin_plan_amount_sets_s.currval
2120: --into x_all_amount_set_id
2121: --from dual;
2122: END IF;
2123: END IF; -- cost and revenue
2124:
2125: commit;
3178: l_dummy number;
3179: BEGIN
3180: select 1
3181: into l_dummy
3182: from sys.dual
3183: where exists
3184: /* Changes for FP.M, Tracking Bug No - 3354518
3185: Adding conditon in the where clause below to
3186: check for new column use_for_workplan flag.
3551: not set to 'Y'. Please note that this API will not be called for workplan Usage*/
3552: /*
3553: Select 'Y'
3554: Into l_return
3555: From dual
3556: Where exists (Select 'x'
3557: from pa_budget_lines bl,
3558: pa_budget_versions bv
3559: where bl.budget_version_id = bv.budget_version_id
3581: /* Changes for FP.M, Tracking Bug No - 3354518 End here */
3582: /* Modified Select Clause */
3583: Select 'Y'
3584: Into l_return
3585: From dual
3586: Where exists (Select 'x'
3587: from pa_budget_lines bl,
3588: pa_budget_versions bv
3589: where bl.budget_version_id = bv.budget_version_id
5309:
5310: BEGIN
5311: select 1
5312: into dummy
5313: from dual
5314: where exists
5315: (select 1
5316: from pa_budget_versions bv
5317: where bv.project_id = x_project_id
5331:
5332: BEGIN
5333: select 1
5334: into dummy
5335: from dual
5336: where exists
5337: (select 1
5338: from pa_budget_versions bv
5339: where bv.project_id = x_project_id
5415: BEGIN
5416:
5417: select 1
5418: into dummy
5419: from dual
5420: where exists
5421: (select 1
5422: from pa_budget_versions bv
5423: , pa_tasks t
5442:
5443: BEGIN
5444: select 1
5445: into dummy
5446: from dual
5447: where exists
5448: (select 1
5449: from pa_budget_versions bv
5450: , pa_tasks t
6189: /*Validate Rate Type*/
6190: BEGIN
6191: SELECT 'Y'
6192: INTO l_exists
6193: FROM dual
6194: WHERE EXISTS (SELECT 'X'
6195: FROM pa_conversion_types_v
6196: WHERE ((p_project_cost_rate_type IS NULL
6197: OR p_project_cost_rate_type=conversion_type) OR
6243: /*VALIDATE RATE DATE TYPE*/
6244: BEGIN
6245: SELECT 'Y'
6246: INTO l_exists
6247: FROM dual
6248: WHERE EXISTS (SELECT 'X'
6249: FROM pa_lookups
6250: WHERE lookup_type='PA_FP_RATE_DATE_TYPE'
6251: AND ((p_project_cost_rate_date_typ IS NULL
7687: RETURN VARCHAR2 is
7688:
7689: cursor cur_check_elements is
7690: SELECT 'Y'
7691: FROM dual
7692: WHERE EXISTS (SELECT 'x'
7693: FROM pa_resource_assignments
7694: WHERE budget_version_id = p_budget_version_id);
7695:
8844:
8845: BEGIN
8846: SELECT 'N'
8847: INTO is_edit_allowed
8848: FROM DUAL
8849: WHERE EXISTS ( SELECT 'X'
8850: FROM pa_budget_versions a
8851: WHERE a.project_id = l_project_id
8852: AND a.fin_plan_type_id = l_fin_plan_type_id
8979:
8980:
8981: CURSOR delete_task_R_mode_cur IS
8982: SELECT 'N' validation_success /* If cursor returns a record, deletion is not allowed */
8983: FROM DUAL
8984: WHERE EXISTS (
8985: /* Commenting out as part of FP.M, Tracking Bug No - 3354518
8986: Since We will now check the existence of a budget version
8987: (having wp_version_flag = 'N') using pa_budget_version and
9022: /* The above cursor delete_task_R_mode_cur shall be used for both restricted as well as unrestructed mode */
9023: /*
9024: CURSOR delete_task_U_mode_cur IS
9025: SELECT 'N' validation_success -- If cursor returns a record, deletion is not allowed
9026: FROM DUAL
9027: WHERE EXISTS (
9028: SELECT 1
9029: FROM -- pa_fp_elements fe Commenting out for to replace pa_fp_elements by PA_RESOURCE_ASSIGNMENTS as part of FP.M, Tracking Bug No - 3354518
9030: pa_resource_assignments fe,
9501: l_exists VARCHAR2(1) := 'N';
9502:
9503: CURSOR C1 IS
9504: SELECT 'Y'
9505: FROM DUAL
9506: /* Changing reference of pa_fp_elements to pa_resource_assignments */
9507: WHERE EXISTS (SELECT 'X' FROM pa_resource_assignments WHERE TASK_ID = P_TASK_ID);
9508: /* WHERE EXISTS (SELECT 'X' FROM PA_FP_ELEMENTS WHERE TASK_ID = P_TASK_ID); */
9509:
9871:
9872: BEGIN
9873: select 'N'
9874: into x_editable_flag
9875: from dual where exists (
9876: select 1
9877: from pa_budget_versions
9878: where project_id = p_project_id
9879: and fin_plan_type_id = p_fin_plan_type_id
10416:
10417: IF p_task_id <> 0 THEN -- For Task Level Records
10418: SELECT 'Y'
10419: INTO l_exists
10420: FROM DUAL
10421: WHERE EXISTS (SELECT 'x'
10422: FROM PA_RESOURCE_ASSIGNMENTS a, pa_proj_element_versions pelm
10423: WHERE a.budget_version_id = p_budget_version_id
10424: AND a.task_id = pelm.proj_element_id
10428: AND pelm.parent_structure_version_id= l_structure_version_id);
10429: ELSE -- For Project Level Records
10430: SELECT 'Y'
10431: INTO l_exists
10432: FROM DUAL
10433: WHERE EXISTS (SELECT 'x'
10434: FROM PA_RESOURCE_ASSIGNMENTS a
10435: WHERE a.budget_version_id = p_budget_version_id
10436: AND a.resource_class_code = PA_FP_CONSTANTS_PKG.G_RESOURCE_CLASS_CODE_FIN
10457: BEGIN
10458: -- sagarwal -- Removed redundant join to pa_budget_versions from select statement below
10459: SELECT 'Y'
10460: INTO l_exists
10461: FROM DUAL
10462: WHERE EXISTS (SELECT 'x'
10463: FROM PA_RESOURCE_ASSIGNMENTS a
10464: WHERE a.budget_version_id = p_budget_version_id
10465: AND a.task_id = p_task_id
10946: BEGIN
10947: BEGIN
10948: select 'Y'
10949: into l_wp_resource_list_flag
10950: from dual
10951: where exists (select 'x'
10952: from pa_proj_fp_options a, pa_fin_plan_types_b b
10953: where a.project_id = p_project_id
10954: and a.fin_plan_option_level_code <> 'PROJECT'
10972: BEGIN
10973: BEGIN
10974: select 'Y'
10975: into l_fp_resource_list_flag
10976: from dual
10977: where exists (select 'x'
10978: from pa_proj_fp_options a
10979: where a.project_id = p_project_id
10980: and not exists (select 'x'
11809: l_exists varchar2(1) := 'N';
11810: begin
11811: select 'Y'
11812: into l_exists
11813: from dual
11814: where exists
11815: (select 1
11816: from pa_budget_lines
11817: where budget_version_id = p_budget_version_id
11867:
11868: BEGIN
11869: SELECT 'N'
11870: INTO l_delete_ok
11871: FROM DUAL
11872: WHERE EXISTS (SELECT 1
11873: FROM PA_PROJ_FP_OPTIONS
11874: WHERE RES_CLASS_RAW_COST_SCH_ID = p_bill_rate_sch_id OR
11875: RES_CLASS_BILL_RATE_SCH_ID = p_bill_rate_sch_id OR
11929:
11930: BEGIN
11931: SELECT 'N'
11932: INTO l_delete_ok
11933: FROM DUAL
11934: WHERE EXISTS (SELECT 1
11935: FROM PA_PROJ_FP_OPTIONS
11936: WHERE COST_BURDEN_RATE_SCH_ID = p_ind_rate_sch_id);
11937:
12048: IF p_context = 'WORKPLAN' THEN
12049: BEGIN
12050: SELECT 'N'
12051: INTO is_valid_flag
12052: FROM dual
12053: WHERE EXISTS (SELECT 1
12054: FROM pa_budget_versions bv,
12055: pa_budget_lines bl
12056: WHERE bv.project_id = p_project_id
12064: ELSIF p_context = 'FINPLAN' THEN
12065: BEGIN
12066: SELECT 'N'
12067: INTO is_valid_flag
12068: FROM dual
12069: WHERE EXISTS (SELECT 1
12070: FROM pa_budget_lines
12071: WHERE budget_version_id = p_budget_version_id
12072: AND txn_currency_code <> l_currency_code);
12188: l_delete_ok_flag := 'N';
12189: ELSE -- Check if amounts exist against this currency
12190: BEGIN
12191: SELECT 'N' INTO l_delete_ok_flag
12192: FROM DUAL
12193: WHERE EXISTS
12194: ( select 1 from pa_budget_lines bl
12195: where bl.budget_version_id = p_fin_plan_version_id
12196: and bl.txn_currency_code = p_txn_currency_code
12208: l_delete_ok_flag := 'N';
12209: ELSE -- Check if amounts exist against this currency
12210: BEGIN
12211: SELECT 'N' INTO l_delete_ok_flag
12212: FROM DUAL
12213: WHERE EXISTS
12214: ( select 1 from pa_budget_versions bv, pa_budget_lines bl
12215: where bv.project_id = p_project_id
12216: and bv.wp_version_flag = 'Y'
12292:
12293: -- Check if budget line exists for any of the workplan versions of the project
12294: Begin
12295: SELECT 'Y' INTO l_amounts_exist_flag
12296: FROM dual WHERE EXISTS
12297: (SELECT 1
12298: FROM pa_budget_lines bl,
12299: pa_budget_versions bv
12300: WHERE bv.project_id = p_project_id
12373:
12374: -- Check if task assignments exist for any of the workplan versions of the project
12375: Begin
12376: SELECT 'Y' INTO l_task_assignments_exist_flag
12377: FROM dual WHERE EXISTS
12378: (SELECT 1
12379: FROM pa_budget_versions bv,
12380: pa_resource_assignments ra
12381: WHERE bv.project_id = p_project_id
12460:
12461: -- Check if budget line exists for any of the budget versions of the project-plan type
12462: Begin
12463: SELECT 'Y' INTO l_amounts_exist_flag
12464: FROM dual WHERE EXISTS
12465: (SELECT 1
12466: FROM pa_budget_lines bl,
12467: pa_budget_versions bv
12468: WHERE bv.project_id = p_project_id
12910: /* Changes for FP.M, Tracking Bug No - 3619687. Making a check if the plan version/type is
12911: a source of generation fot other plan types*/
12912: BEGIN
12913: IF ( p_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY) THEN
12914: SELECT 1 INTO l_exists FROM dual WHERE EXISTS (SELECT fin_plan_type_id
12915: FROM PA_PROJ_FP_OPTIONS
12916: WHERE Project_id = p_project_id AND
12917: (GEN_SRC_REV_PLAN_TYPE_ID = p_fin_plan_type_id
12918: OR GEN_SRC_COST_PLAN_TYPE_ID= p_fin_plan_type_id