PACKAGE BODY: APPS.PQH_POPL_CRITERIA_OVRRD

Source

1 Package Body pqh_popl_criteria_ovrrd as
2 /* $Header: pqrbcovd.pkb 120.1 2005/09/02 12:17 srajakum noship $ */
3 --
4 g_package                 varchar2(33) := 'pqh_popl_criteria_ovrrd';  -- Global package name
5 g_last_criteria_index     number(15);
6 --
7 
8 -------------------------< init_criteria_override_tbl >----------------------------------
9 Procedure init_criteria_override_tbl is
10 --
11 l_proc             varchar2(72) := g_package||'init_criteria_override_tbl';
12 --
13 Begin
14   --
15   hr_utility.set_location('Entering:'||l_proc, 5);
16   --
17   g_criteria_count := 0;
18   g_last_criteria_index := 0;
19   g_criteria_override_val.DELETE;
20   --
21   hr_utility.set_location('Leaving:'||l_proc, 10);
22   --
23 End;
24 
25 
26 Procedure insert_criteria_override(p_crit_ovrrd_val_rec IN g_crit_ovrrd_val_rec) is
27 --
28 l_proc             varchar2(72) := g_package||'insert_criteria_override';
29 --
30 Begin
31   --
32   hr_utility.set_location('Entering:'||l_proc, 5);
33   --
34   g_last_criteria_index := g_last_criteria_index +1;
35   g_criteria_count := g_last_criteria_index;
36   g_criteria_override_val(g_last_criteria_index).criteria_short_code := p_crit_ovrrd_val_rec.criteria_short_code;
37   g_criteria_override_val(g_last_criteria_index).number_value1 := p_crit_ovrrd_val_rec.number_value1;
38   g_criteria_override_val(g_last_criteria_index).number_value2 := p_crit_ovrrd_val_rec.number_value2;
39   g_criteria_override_val(g_last_criteria_index).char_value1 := p_crit_ovrrd_val_rec.char_value1;
40   g_criteria_override_val(g_last_criteria_index).char_value2 := p_crit_ovrrd_val_rec.char_value2;
41   g_criteria_override_val(g_last_criteria_index).date_value1 := p_crit_ovrrd_val_rec.date_value1;
42   g_criteria_override_val(g_last_criteria_index).date_value2 := p_crit_ovrrd_val_rec.date_value2;
43 
44   --
45   hr_utility.set_location('Leaving:'||l_proc, 10);
46   --
47 End;
48 
49 
50 Procedure get_criteria_override(p_crit_ovrrd_val_rec OUT nocopy g_crit_ovrrd_val_rec) is
51 --
52 l_proc             varchar2(72) := g_package||'get_criteria_override';
53 --
54 Begin
55   --
56   hr_utility.set_location('Entering:'||l_proc, 5);
57   --
58   g_last_criteria_index := g_last_criteria_index +1;
59   --
60   p_crit_ovrrd_val_rec.criteria_short_code := g_criteria_override_val(g_last_criteria_index).criteria_short_code ;
61   p_crit_ovrrd_val_rec.number_value1 := g_criteria_override_val(g_last_criteria_index).number_value1 ;
62   p_crit_ovrrd_val_rec.number_value2 :=  g_criteria_override_val(g_last_criteria_index).number_value2 ;
63   p_crit_ovrrd_val_rec.char_value1 := g_criteria_override_val(g_last_criteria_index).char_value1 ;
64   p_crit_ovrrd_val_rec.char_value2 := g_criteria_override_val(g_last_criteria_index).char_value2 ;
65   p_crit_ovrrd_val_rec.date_value1 := g_criteria_override_val(g_last_criteria_index).date_value1 ;
66   p_crit_ovrrd_val_rec.date_value2 := g_criteria_override_val(g_last_criteria_index).date_value2 ;
67   --
68   hr_utility.set_location('Leaving:'||l_proc, 10);
69   --
70 End;
71 --
72 End pqh_popl_criteria_ovrrd;