[Home] [Help]
1904: fnd_global.login_id) RETURNING FIN_PLAN_AMOUNT_SET_ID INTO x_cost_amount_set_id;
1905:
1906: --SELECT pa_fin_plan_amount_sets_s.currval
1907: --into x_cost_amount_set_id
1908: --from dual;
1909:
1910: END IF;
1911: END IF; -- cost only
1912:
2011: RETURNING FIN_PLAN_AMOUNT_SET_ID INTO x_revenue_amount_set_id;
2012:
2013: --select pa_fin_plan_amount_sets_s.currval
2014: --into x_revenue_amount_set_id
2015: --from dual;
2016:
2017: END IF;
2018: END IF; -- revenue only
2019:
2115: RETURNING FIN_PLAN_AMOUNT_SET_ID INTO x_all_amount_set_id;
2116:
2117: --select pa_fin_plan_amount_sets_s.currval
2118: --into x_all_amount_set_id
2119: --from dual;
2120: END IF;
2121: END IF; -- cost and revenue
2122:
2123: commit;
3176: l_dummy number;
3177: BEGIN
3178: select 1
3179: into l_dummy
3180: from sys.dual
3181: where exists
3182: /* Changes for FP.M, Tracking Bug No - 3354518
3183: Adding conditon in the where clause below to
3184: check for new column use_for_workplan flag.
3549: not set to 'Y'. Please note that this API will not be called for workplan Usage*/
3550: /*
3551: Select 'Y'
3552: Into l_return
3553: From dual
3554: Where exists (Select 'x'
3555: from pa_budget_lines bl,
3556: pa_budget_versions bv
3557: where bl.budget_version_id = bv.budget_version_id
3579: /* Changes for FP.M, Tracking Bug No - 3354518 End here */
3580: /* Modified Select Clause */
3581: Select 'Y'
3582: Into l_return
3583: From dual
3584: Where exists (Select 'x'
3585: from pa_budget_lines bl,
3586: pa_budget_versions bv
3587: where bl.budget_version_id = bv.budget_version_id
5307:
5308: BEGIN
5309: select 1
5310: into dummy
5311: from dual
5312: where exists
5313: (select 1
5314: from pa_budget_versions bv
5315: where bv.project_id = x_project_id
5329:
5330: BEGIN
5331: select 1
5332: into dummy
5333: from dual
5334: where exists
5335: (select 1
5336: from pa_budget_versions bv
5337: where bv.project_id = x_project_id
5413: BEGIN
5414:
5415: select 1
5416: into dummy
5417: from dual
5418: where exists
5419: (select 1
5420: from pa_budget_versions bv
5421: , pa_tasks t
5440:
5441: BEGIN
5442: select 1
5443: into dummy
5444: from dual
5445: where exists
5446: (select 1
5447: from pa_budget_versions bv
5448: , pa_tasks t
6183: /*Validate Rate Type*/
6184: BEGIN
6185: SELECT 'Y'
6186: INTO l_exists
6187: FROM dual
6188: WHERE EXISTS (SELECT 'X'
6189: FROM pa_conversion_types_v
6190: WHERE ((p_project_cost_rate_type IS NULL
6191: OR p_project_cost_rate_type=conversion_type) OR
6237: /*VALIDATE RATE DATE TYPE*/
6238: BEGIN
6239: SELECT 'Y'
6240: INTO l_exists
6241: FROM dual
6242: WHERE EXISTS (SELECT 'X'
6243: FROM pa_lookups
6244: WHERE lookup_type='PA_FP_RATE_DATE_TYPE'
6245: AND ((p_project_cost_rate_date_typ IS NULL
7681: RETURN VARCHAR2 is
7682:
7683: cursor cur_check_elements is
7684: SELECT 'Y'
7685: FROM dual
7686: WHERE EXISTS (SELECT 'x'
7687: FROM pa_resource_assignments
7688: WHERE budget_version_id = p_budget_version_id);
7689:
8838:
8839: BEGIN
8840: SELECT 'N'
8841: INTO is_edit_allowed
8842: FROM DUAL
8843: WHERE EXISTS ( SELECT 'X'
8844: FROM pa_budget_versions a
8845: WHERE a.project_id = l_project_id
8846: AND a.fin_plan_type_id = l_fin_plan_type_id
8973:
8974:
8975: CURSOR delete_task_R_mode_cur IS
8976: SELECT 'N' validation_success /* If cursor returns a record, deletion is not allowed */
8977: FROM DUAL
8978: WHERE EXISTS (
8979: /* Commenting out as part of FP.M, Tracking Bug No - 3354518
8980: Since We will now check the existence of a budget version
8981: (having wp_version_flag = 'N') using pa_budget_version and
9016: /* The above cursor delete_task_R_mode_cur shall be used for both restricted as well as unrestructed mode */
9017: /*
9018: CURSOR delete_task_U_mode_cur IS
9019: SELECT 'N' validation_success -- If cursor returns a record, deletion is not allowed
9020: FROM DUAL
9021: WHERE EXISTS (
9022: SELECT 1
9023: 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
9024: pa_resource_assignments fe,
9495: l_exists VARCHAR2(1) := 'N';
9496:
9497: CURSOR C1 IS
9498: SELECT 'Y'
9499: FROM DUAL
9500: /* Changing reference of pa_fp_elements to pa_resource_assignments */
9501: WHERE EXISTS (SELECT 'X' FROM pa_resource_assignments WHERE TASK_ID = P_TASK_ID);
9502: /* WHERE EXISTS (SELECT 'X' FROM PA_FP_ELEMENTS WHERE TASK_ID = P_TASK_ID); */
9503:
9865:
9866: BEGIN
9867: select 'N'
9868: into x_editable_flag
9869: from dual where exists (
9870: select 1
9871: from pa_budget_versions
9872: where project_id = p_project_id
9873: and fin_plan_type_id = p_fin_plan_type_id
10410:
10411: IF p_task_id <> 0 THEN -- For Task Level Records
10412: SELECT 'Y'
10413: INTO l_exists
10414: FROM DUAL
10415: WHERE EXISTS (SELECT 'x'
10416: FROM PA_RESOURCE_ASSIGNMENTS a, pa_proj_element_versions pelm
10417: WHERE a.budget_version_id = p_budget_version_id
10418: AND a.task_id = pelm.proj_element_id
10422: AND pelm.parent_structure_version_id= l_structure_version_id);
10423: ELSE -- For Project Level Records
10424: SELECT 'Y'
10425: INTO l_exists
10426: FROM DUAL
10427: WHERE EXISTS (SELECT 'x'
10428: FROM PA_RESOURCE_ASSIGNMENTS a
10429: WHERE a.budget_version_id = p_budget_version_id
10430: AND a.resource_class_code = PA_FP_CONSTANTS_PKG.G_RESOURCE_CLASS_CODE_FIN
10451: BEGIN
10452: -- sagarwal -- Removed redundant join to pa_budget_versions from select statement below
10453: SELECT 'Y'
10454: INTO l_exists
10455: FROM DUAL
10456: WHERE EXISTS (SELECT 'x'
10457: FROM PA_RESOURCE_ASSIGNMENTS a
10458: WHERE a.budget_version_id = p_budget_version_id
10459: AND a.task_id = p_task_id
10940: BEGIN
10941: BEGIN
10942: select 'Y'
10943: into l_wp_resource_list_flag
10944: from dual
10945: where exists (select 'x'
10946: from pa_proj_fp_options a, pa_fin_plan_types_b b
10947: where a.project_id = p_project_id
10948: and a.fin_plan_option_level_code <> 'PROJECT'
10966: BEGIN
10967: BEGIN
10968: select 'Y'
10969: into l_fp_resource_list_flag
10970: from dual
10971: where exists (select 'x'
10972: from pa_proj_fp_options a
10973: where a.project_id = p_project_id
10974: and not exists (select 'x'
11803: l_exists varchar2(1) := 'N';
11804: begin
11805: select 'Y'
11806: into l_exists
11807: from dual
11808: where exists
11809: (select 1
11810: from pa_budget_lines
11811: where budget_version_id = p_budget_version_id
11861:
11862: BEGIN
11863: SELECT 'N'
11864: INTO l_delete_ok
11865: FROM DUAL
11866: WHERE EXISTS (SELECT 1
11867: FROM PA_PROJ_FP_OPTIONS
11868: WHERE RES_CLASS_RAW_COST_SCH_ID = p_bill_rate_sch_id OR
11869: RES_CLASS_BILL_RATE_SCH_ID = p_bill_rate_sch_id OR
11923:
11924: BEGIN
11925: SELECT 'N'
11926: INTO l_delete_ok
11927: FROM DUAL
11928: WHERE EXISTS (SELECT 1
11929: FROM PA_PROJ_FP_OPTIONS
11930: WHERE COST_BURDEN_RATE_SCH_ID = p_ind_rate_sch_id);
11931:
12042: IF p_context = 'WORKPLAN' THEN
12043: BEGIN
12044: SELECT 'N'
12045: INTO is_valid_flag
12046: FROM dual
12047: WHERE EXISTS (SELECT 1
12048: FROM pa_budget_versions bv,
12049: pa_budget_lines bl
12050: WHERE bv.project_id = p_project_id
12058: ELSIF p_context = 'FINPLAN' THEN
12059: BEGIN
12060: SELECT 'N'
12061: INTO is_valid_flag
12062: FROM dual
12063: WHERE EXISTS (SELECT 1
12064: FROM pa_budget_lines
12065: WHERE budget_version_id = p_budget_version_id
12066: AND txn_currency_code <> l_currency_code);
12182: l_delete_ok_flag := 'N';
12183: ELSE -- Check if amounts exist against this currency
12184: BEGIN
12185: SELECT 'N' INTO l_delete_ok_flag
12186: FROM DUAL
12187: WHERE EXISTS
12188: ( select 1 from pa_budget_lines bl
12189: where bl.budget_version_id = p_fin_plan_version_id
12190: and bl.txn_currency_code = p_txn_currency_code
12202: l_delete_ok_flag := 'N';
12203: ELSE -- Check if amounts exist against this currency
12204: BEGIN
12205: SELECT 'N' INTO l_delete_ok_flag
12206: FROM DUAL
12207: WHERE EXISTS
12208: ( select 1 from pa_budget_versions bv, pa_budget_lines bl
12209: where bv.project_id = p_project_id
12210: and bv.wp_version_flag = 'Y'
12286:
12287: -- Check if budget line exists for any of the workplan versions of the project
12288: Begin
12289: SELECT 'Y' INTO l_amounts_exist_flag
12290: FROM dual WHERE EXISTS
12291: (SELECT 1
12292: FROM pa_budget_lines bl,
12293: pa_budget_versions bv
12294: WHERE bv.project_id = p_project_id
12367:
12368: -- Check if task assignments exist for any of the workplan versions of the project
12369: Begin
12370: SELECT 'Y' INTO l_task_assignments_exist_flag
12371: FROM dual WHERE EXISTS
12372: (SELECT 1
12373: FROM pa_budget_versions bv,
12374: pa_resource_assignments ra
12375: WHERE bv.project_id = p_project_id
12454:
12455: -- Check if budget line exists for any of the budget versions of the project-plan type
12456: Begin
12457: SELECT 'Y' INTO l_amounts_exist_flag
12458: FROM dual WHERE EXISTS
12459: (SELECT 1
12460: FROM pa_budget_lines bl,
12461: pa_budget_versions bv
12462: WHERE bv.project_id = p_project_id
12904: /* Changes for FP.M, Tracking Bug No - 3619687. Making a check if the plan version/type is
12905: a source of generation fot other plan types*/
12906: BEGIN
12907: IF ( p_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY) THEN
12908: SELECT 1 INTO l_exists FROM dual WHERE EXISTS (SELECT fin_plan_type_id
12909: FROM PA_PROJ_FP_OPTIONS
12910: WHERE Project_id = p_project_id AND
12911: (GEN_SRC_REV_PLAN_TYPE_ID = p_fin_plan_type_id
12912: OR GEN_SRC_COST_PLAN_TYPE_ID= p_fin_plan_type_id