[Home] [Help]
587: -- determine locked status of budget version(s)
588: -- BUG 2813661: use pa_fp_view_plans_util.get_plan_version_res_level to set
589: -- x_grouping_type and x_planned_resources_flag
590: if x_display_from = 'ANY' then
591: pa_fin_plan_utils.Check_Locked_By_User
592: (p_user_id => p_user_id,
593: p_budget_version_id => pa_fp_view_plans_txn_pub.G_COST_VERSION_ID,
594: x_is_locked_by_userid => l_is_cost_locked_by_user,
595: x_locked_by_person_id => l_cost_locked_by_person_id,
600: if l_cost_locked_by_person_id is null then
601: x_cost_locked_name := 'NONE';
602: x_rev_locked_name := 'NONE';
603: else
604: x_cost_locked_name := pa_fin_plan_utils.get_person_name(l_cost_locked_by_person_id);
605: x_rev_locked_name := pa_fin_plan_utils.get_person_name(l_cost_locked_by_person_id);
606: end if;
607: else
608: x_cost_locked_name := 'SELF';
601: x_cost_locked_name := 'NONE';
602: x_rev_locked_name := 'NONE';
603: else
604: x_cost_locked_name := pa_fin_plan_utils.get_person_name(l_cost_locked_by_person_id);
605: x_rev_locked_name := pa_fin_plan_utils.get_person_name(l_cost_locked_by_person_id);
606: end if;
607: else
608: x_cost_locked_name := 'SELF';
609: x_rev_locked_name := 'SELF';
643: return;
644: end if;
645:
646: elsif x_display_from = 'COST' then
647: pa_fin_plan_utils.Check_Locked_By_User
648: (p_user_id => p_user_id,
649: p_budget_version_id => pa_fp_view_plans_txn_pub.G_COST_VERSION_ID,
650: x_is_locked_by_userid => l_is_cost_locked_by_user,
651: x_locked_by_person_id => l_cost_locked_by_person_id,
655: if l_is_cost_locked_by_user = 'N' then
656: if l_cost_locked_by_person_id is null then
657: x_cost_locked_name := 'NONE';
658: else
659: x_cost_locked_name := pa_fin_plan_utils.get_person_name(l_cost_locked_by_person_id);
660: end if;
661: else
662: x_cost_locked_name := 'SELF';
663: end if; -- is_cost_locked_by_user
696: return;
697: end if;
698:
699: elsif x_display_from = 'REVENUE' then
700: pa_fin_plan_utils.Check_Locked_By_User
701: (p_user_id => p_user_id,
702: p_budget_version_id => pa_fp_view_plans_txn_pub.G_REV_VERSION_ID,
703: x_is_locked_by_userid => l_is_rev_locked_by_user,
704: x_locked_by_person_id => l_rev_locked_by_person_id,
708: if l_is_rev_locked_by_user = 'N' then
709: if l_rev_locked_by_person_id is null then
710: x_rev_locked_name := 'NONE';
711: else
712: x_rev_locked_name := pa_fin_plan_utils.get_person_name(l_rev_locked_by_person_id);
713: end if;
714: else
715: x_rev_locked_name := 'SELF';
716: end if; -- is_rev_locked_by_user
751:
752: elsif x_display_from = 'BOTH' then
753:
754: -- FOR COST VERSION
755: pa_fin_plan_utils.Check_Locked_By_User
756: (p_user_id => p_user_id,
757: p_budget_version_id => pa_fp_view_plans_txn_pub.G_COST_VERSION_ID,
758: x_is_locked_by_userid => l_is_cost_locked_by_user,
759: x_locked_by_person_id => l_cost_locked_by_person_id,
763: if l_is_cost_locked_by_user = 'N' then
764: if l_cost_locked_by_person_id is null then
765: x_cost_locked_name := 'NONE';
766: else
767: x_cost_locked_name := pa_fin_plan_utils.get_person_name(l_cost_locked_by_person_id);
768: end if;
769: else
770: x_cost_locked_name := 'SELF';
771: end if; -- is_cost_locked_by_user
790: return;
791: end if;
792:
793: -- FOR REVENUE VERSION
794: pa_fin_plan_utils.Check_Locked_By_User
795: (p_user_id => p_user_id,
796: p_budget_version_id => pa_fp_view_plans_txn_pub.G_REV_VERSION_ID,
797: x_is_locked_by_userid => l_is_rev_locked_by_user,
798: x_locked_by_person_id => l_rev_locked_by_person_id,
802: if l_is_rev_locked_by_user = 'N' then
803: if l_rev_locked_by_person_id is null then
804: x_rev_locked_name := 'NONE';
805: else
806: x_rev_locked_name := pa_fin_plan_utils.get_person_name(l_rev_locked_by_person_id);
807: end if;
808: else
809: x_rev_locked_name := 'SELF';
810: end if; -- is_cost_locked_by_user
2939: end if;
2940:
2941: -- determine locked status of budget version(s)
2942: if x_display_from = 'ANY' then
2943: pa_fin_plan_utils.Check_Locked_By_User
2944: (p_user_id => p_user_id,
2945: p_budget_version_id => pa_fp_view_plans_txn_pub.G_COST_VERSION_ID,
2946: x_is_locked_by_userid => l_is_cost_locked_by_user,
2947: x_locked_by_person_id => l_cost_locked_by_person_id,
2952: if l_cost_locked_by_person_id is null then
2953: x_cost_locked_name := 'NONE';
2954: x_rev_locked_name := 'NONE';
2955: else
2956: x_cost_locked_name := pa_fin_plan_utils.get_person_name(l_cost_locked_by_person_id);
2957: x_rev_locked_name := pa_fin_plan_utils.get_person_name(l_cost_locked_by_person_id);
2958: end if;
2959: else
2960: x_cost_locked_name := 'SELF';
2953: x_cost_locked_name := 'NONE';
2954: x_rev_locked_name := 'NONE';
2955: else
2956: x_cost_locked_name := pa_fin_plan_utils.get_person_name(l_cost_locked_by_person_id);
2957: x_rev_locked_name := pa_fin_plan_utils.get_person_name(l_cost_locked_by_person_id);
2958: end if;
2959: else
2960: x_cost_locked_name := 'SELF';
2961: x_rev_locked_name := 'SELF';
2997: return;
2998: end if;
2999:
3000: elsif x_display_from = 'COST' then
3001: pa_fin_plan_utils.Check_Locked_By_User
3002: (p_user_id => p_user_id,
3003: p_budget_version_id => pa_fp_view_plans_txn_pub.G_COST_VERSION_ID,
3004: x_is_locked_by_userid => l_is_cost_locked_by_user,
3005: x_locked_by_person_id => l_cost_locked_by_person_id,
3009: if l_is_cost_locked_by_user = 'N' then
3010: if l_cost_locked_by_person_id is null then
3011: x_cost_locked_name := 'NONE';
3012: else
3013: x_cost_locked_name := pa_fin_plan_utils.get_person_name(l_cost_locked_by_person_id);
3014: end if;
3015: else
3016: x_cost_locked_name := 'SELF';
3017: end if; -- is_cost_locked_by_user
3050: return;
3051: end if;
3052:
3053: elsif x_display_from = 'REVENUE' then
3054: pa_fin_plan_utils.Check_Locked_By_User
3055: (p_user_id => p_user_id,
3056: p_budget_version_id => pa_fp_view_plans_txn_pub.G_REV_VERSION_ID,
3057: x_is_locked_by_userid => l_is_rev_locked_by_user,
3058: x_locked_by_person_id => l_rev_locked_by_person_id,
3062: if l_is_rev_locked_by_user = 'N' then
3063: if l_rev_locked_by_person_id is null then
3064: x_rev_locked_name := 'NONE';
3065: else
3066: x_rev_locked_name := pa_fin_plan_utils.get_person_name(l_rev_locked_by_person_id);
3067: end if;
3068: else
3069: x_rev_locked_name := 'SELF';
3070: end if; -- is_rev_locked_by_user
3104: end if;
3105:
3106: elsif x_display_from = 'BOTH' then
3107: -- FOR COST VERSION
3108: pa_fin_plan_utils.Check_Locked_By_User
3109: (p_user_id => p_user_id,
3110: p_budget_version_id => pa_fp_view_plans_txn_pub.G_COST_VERSION_ID,
3111: x_is_locked_by_userid => l_is_cost_locked_by_user,
3112: x_locked_by_person_id => l_cost_locked_by_person_id,
3116: if l_is_cost_locked_by_user = 'N' then
3117: if l_cost_locked_by_person_id is null then
3118: x_cost_locked_name := 'NONE';
3119: else
3120: x_cost_locked_name := pa_fin_plan_utils.get_person_name(l_cost_locked_by_person_id);
3121: end if;
3122: else
3123: x_cost_locked_name := 'SELF';
3124: end if; -- is_cost_locked_by_user
3143: return;
3144: end if;
3145:
3146: -- FOR REVENUE VERSION
3147: pa_fin_plan_utils.Check_Locked_By_User
3148: (p_user_id => p_user_id,
3149: p_budget_version_id => pa_fp_view_plans_txn_pub.G_REV_VERSION_ID,
3150: x_is_locked_by_userid => l_is_rev_locked_by_user,
3151: x_locked_by_person_id => l_rev_locked_by_person_id,
3155: if l_is_rev_locked_by_user = 'N' then
3156: if l_rev_locked_by_person_id is null then
3157: x_rev_locked_name := 'NONE';
3158: else
3159: x_rev_locked_name := pa_fin_plan_utils.get_person_name(l_rev_locked_by_person_id);
3160: end if;
3161: else
3162: x_rev_locked_name := 'SELF';
3163: end if; -- is_cost_locked_by_user