[Home] [Help]
150: pa_fp_view_plans_pub.G_FP_VIEW_VERSION_ID := p_orgfcst_version_id;
151: pa_fp_view_plans_pub.G_AMT_OR_PD := p_amt_or_pd; -- this will be used by other procedures
152:
153: -- populate G_UNCAT_RLM_ID: the uncategorized resource list member id
154: pa_fin_plan_utils.Get_Uncat_Resource_List_Info
155: (x_resource_list_id => l_uncat_resource_list_id
156: ,x_resource_list_member_id => l_uncat_rlm_id
157: ,x_track_as_labor_flag => l_track_as_labor_flag
158: ,x_unit_of_measure => l_unit_of_measure
859: x_cost_budget_status_code
860: from pa_budget_versions
861: --4/16/03 where budget_version_id = pa_fp_view_plans_pub.G_FP_COST_VERSION_ID;
862: where budget_version_id = x_cost_bv_id;
863: pa_fin_plan_utils.Check_Locked_By_User
864: (p_user_id => p_user_id,
865: --4/16/03 p_budget_version_id => pa_fp_view_plans_pub.G_FP_COST_VERSION_ID,
866: p_budget_version_id => x_cost_bv_id,
867: x_is_locked_by_userid => l_is_cost_locked_by_user,
872: if l_is_cost_locked_by_user = 'N' then
873: if l_cost_locked_by_person_id is null then
874: x_cost_locked_name := 'NONE';
875: else
876: x_cost_locked_name := pa_fin_plan_utils.get_person_name(l_cost_locked_by_person_id);
877: end if;
878: else
879: x_cost_locked_name := 'SELF';
880: end if; -- is_cost_locked_by_user
890: x_rev_budget_status_code
891: from pa_budget_versions
892: -- where budget_version_id = pa_fp_view_plans_pub.G_FP_REV_VERSION_ID;
893: where budget_version_id = x_revenue_bv_id;
894: pa_fin_plan_utils.Check_Locked_By_User
895: (p_user_id => p_user_id,
896: -- p_budget_version_id => pa_fp_view_plans_pub.G_FP_REV_VERSION_ID,
897: p_budget_version_id => x_revenue_bv_id,
898: x_is_locked_by_userid => l_is_rev_locked_by_user,
903: if l_is_rev_locked_by_user = 'N' then
904: if l_rev_locked_by_person_id is null then
905: x_rev_locked_name := 'NONE';
906: else
907: x_rev_locked_name := pa_fin_plan_utils.get_person_name(l_rev_locked_by_person_id);
908: end if;
909: else
910: x_rev_locked_name := 'SELF';
911: end if; -- is_rev_locked_by_user
1091: x_auto_baselined_flag :=
1092: Pa_Fp_Control_Items_Utils.IsFpAutoBaselineEnabled(p_project_id);
1093:
1094: -- populate G_UNCAT_RLM_ID: the uncategorized resource list member id
1095: pa_fin_plan_utils.Get_Uncat_Resource_List_Info
1096: (x_resource_list_id => l_uncat_resource_list_id
1097: ,x_resource_list_member_id => l_uncat_rlm_id
1098: ,x_track_as_labor_flag => l_track_as_labor_flag
1099: ,x_unit_of_measure => l_unit_of_measure
1953: into x_cost_rv_number,
1954: x_budget_status_code
1955: from pa_budget_versions
1956: where budget_version_id = pa_fp_view_plans_pub.G_FP_COST_VERSION_ID;
1957: pa_fin_plan_utils.Check_Locked_By_User
1958: (p_user_id => p_user_id,
1959: p_budget_version_id => pa_fp_view_plans_pub.G_FP_COST_VERSION_ID,
1960: x_is_locked_by_userid => l_is_cost_locked_by_user,
1961: x_locked_by_person_id => l_cost_locked_by_person_id,
1965: if l_is_cost_locked_by_user = 'N' then
1966: if l_cost_locked_by_person_id is null then
1967: x_cost_locked_name := 'NONE';
1968: else
1969: x_cost_locked_name := pa_fin_plan_utils.get_person_name(l_cost_locked_by_person_id);
1970: end if;
1971: else
1972: x_cost_locked_name := 'SELF';
1973: end if; -- is_cost_locked_by_user
1981: into x_rev_rv_number,
1982: x_budget_status_code
1983: from pa_budget_versions
1984: where budget_version_id = pa_fp_view_plans_pub.G_FP_REV_VERSION_ID;
1985: pa_fin_plan_utils.Check_Locked_By_User
1986: (p_user_id => p_user_id,
1987: p_budget_version_id => pa_fp_view_plans_pub.G_FP_REV_VERSION_ID,
1988: x_is_locked_by_userid => l_is_rev_locked_by_user,
1989: x_locked_by_person_id => l_rev_locked_by_person_id,
1993: if l_is_rev_locked_by_user = 'N' then
1994: if l_rev_locked_by_person_id is null then
1995: x_rev_locked_name := 'NONE';
1996: else
1997: x_rev_locked_name := pa_fin_plan_utils.get_person_name(l_rev_locked_by_person_id);
1998: end if;
1999: else
2000: x_rev_locked_name := 'SELF';
2001: end if; -- is_rev_locked_by_user