[Home] [Help]
1: Package body pqh_rank_utility as
2: /* $Header: pqrnkutl.pkb 120.7 2012/01/19 07:25:43 rpahune ship $ */
3:
4: g_package constant Varchar2(30) := 'pqh_rank_utility.';
5: g_debug constant boolean := hr_utility.debug_enabled;
6:
7:
8: -- ---------------------------------------------------------------------------
9: -- -------------
13: return varchar2 is
14: l_proc constant varchar2(72) := g_package||'.is_ranking_enabled_for_txn';
15: l_use_rank varchar2(1);
16: begin
17: hr_utility.set_location('Entering:'|| l_proc, 10);
18: select information12
19: into l_use_rank
20: from ben_copy_entity_results
21: where copy_entity_txn_id = p_copy_entity_txn_id
50: where rp.pgm_id = p_pgm_id
51: and rp.per_in_ler_id = p_per_in_ler_id
52: and rp.pl_id = p_pl_id ;
53: begin
54: hr_utility.set_location('Entering:'|| l_proc, 10);
55:
56: -- test for ranking enabled for this gl
57: if ( get_grade_ladder_option (p_pgm_id , 'RANK_ENABLED')= 'N' ) then
58: l_ben_action_id := -1 ;
78: end if;
79: return l_ben_action_id ;
80: exception
81: when others then
82: hr_utility.set_location('Problem in determining Total Score',10);
83: raise;
84: end get_ben_action_id ;
85: -- ---------------------------------------------------------------------------
86: -- -------------
117: and rp.per_in_ler_id = p_per_in_ler_id
118: and rp.rank_process_id = rpa.rank_process_id
119: and rp.pl_id = p_pl_id ;
120: begin
121: hr_utility.set_location('Entering:'|| l_proc, 10);
122: l_date := sysdate ;
123: -- Dont update If rank is not enabled for this grade ladder
124: if ( get_grade_ladder_option (p_pgm_id , 'RANK_ENABLED')= 'N' ) then
125: return ;
152: End If;
153:
154: exception
155: when others then
156: hr_utility.set_location('Problem in updating proposed Rank',10);
157: raise;
158: end update_proposed_rank ;
159:
160: -- ---------------------------------------------------------------------------
196: and rp.PROCESS_DATE = p_life_event_dt
197: and rp.rank_process_id = rpa.rank_process_id
198: and rp.pl_id = p_pl_id ;
199: begin
200: hr_utility.set_location('Entering:'|| l_proc, 10);
201: l_date := sysdate ;
202: -- Dont update If rank is not enabled for this grade ladder
203: if ( get_grade_ladder_option (p_pgm_id , 'RANK_ENABLED')= 'N' ) then
204: return ;
231: End If;
232:
233: exception
234: when others then
235: hr_utility.set_location('Problem in updating proposed Rank',10);
236: raise;
237: end update_proposed_rank ;
238:
239: -- ---------------------------------------------------------------------------
283: and rp.per_in_ler_id = p_per_in_ler_id
284: and rp.rank_process_id = rpa.rank_process_id
285: and rp.pl_id = p_pl_id ;
286: begin
287: hr_utility.set_location('Entering:'|| l_proc, 10);
288: -- Test for ranking enabled for this gl
289: if ( get_grade_ladder_option (p_pgm_id , 'RANK_ENABLED')= 'N' ) then
290: return 0 ;
291: end if ;
329: end if;
330: return l_rank ;
331: exception
332: when others then
333: hr_utility.set_location('Problem in determining Rank',10);
334: raise;
335: end get_rank ;
336:
337: -- ---------------------------------------------------------------------------
357: where rp.pgm_id = p_pgm_id
358: and rp.per_in_ler_id = p_per_in_ler_id
359: and rp.pl_id = p_pl_id ;
360: begin
361: hr_utility.set_location('Entering:'|| l_proc, 10);
362: -- may be test for ranking enabled for this gl be doen
363: if ( get_grade_ladder_option (p_pgm_id , 'RANK_ENABLED')= 'N' ) then
364: l_total_score := 0 ;
365: return l_total_score ;
384: end if;
385: return l_total_score ;
386: exception
387: when others then
388: hr_utility.set_location('Problem in determining Total Score',10);
389: raise;
390: end get_total_score ;
391:
392:
397: return varchar2 is
398: l_proc constant varchar2(72) := g_package||'is_ranking_enabled_for_bg';
399: l_present_flag varchar2(1) ;
400: begin
401: hr_utility.set_location('Entering:'|| l_proc, 10);
402: begin
403: select 'Y'
404: into l_present_flag
405: from ben_pgm_f pgm
412: exception
413: when no_data_found then
414: l_present_flag := 'N' ;
415: when others then
416: hr_utility.set_location('Problem in determining Ranking Enabled for BG ',10);
417: raise;
418: end ;
419: return l_present_flag ;
420: end is_ranking_enabled_for_bg;
429: l_proc constant varchar2(72) := g_package||'.get_grade_ladder_option';
430: l_option_value varchar2(100);
431: l_present_flag varchar2(10);
432: begin
433: hr_utility.set_location('Entering:'|| l_proc, 10);
434: l_present_flag := 'N';
435: if (p_option = 'WORKFLOW_STATUS') then
436: begin
437: --NS 4/23/05: If not set, treat it as not found
476: end if ;
477: return l_option_value ;
478: exception
479: when others then
480: hr_utility.set_location('Problem in determining Ranking Enabled for BG ',10);
481: raise;
482: end get_grade_ladder_option;
483:
484: -- ---------------------------------------------------------------
697: l_prog_style varchar2(30) ;
698: l_rank_enabled varchar2(10) ;
699: l_return_value varchar2(30) ;
700: begin
701: hr_utility.set_location('Entering:'|| l_proc, 10);
702: --
703: -- fetch the grade ladder of the person
704: --
705: pqh_gsp_post_process.get_persons_gl_and_grade(p_person_id => p_person_id