[Home] [Help]
PACKAGE BODY: APPS.HR_CGD_SHD
Source
1 Package Body hr_cgd_shd as
2 /* $Header: hrcgdrhi.pkb 115.4 2002/12/03 09:17:25 hjonnala ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' hr_cgd_shd.'; -- Global package name
9 -- ----------------------------------------------------------------------------
10 -- |-----------------------------< api_updating >-----------------------------|
11 -- ----------------------------------------------------------------------------
12 Function api_updating(p_cagr_grade_def_id in number) Return Boolean Is
13 --
14 --
15 -- Cursor selects the 'current' row from the HR Schema
16 --
17 Cursor C_Sel1 is
18 select
19 cagr_grade_def_id,
20 id_flex_num,
21 summary_flag,
22 enabled_flag,
23 start_date_active,
24 end_date_active,
25 segment1,
26 segment2,
27 segment3,
28 segment4,
29 segment5,
30 segment6,
31 segment7,
32 segment8,
33 segment9,
34 segment10,
35 segment11,
36 segment12,
37 segment13,
38 segment14,
39 segment15,
40 segment16,
41 segment17,
42 segment18,
43 segment19,
44 segment20
45 from per_cagr_grades_def
46 where cagr_grade_def_id = p_cagr_grade_def_id;
47 --
48 l_proc varchar2(72) := g_package||'api_updating';
49 l_fct_ret boolean;
50 --
51 Begin
52 hr_utility.set_location('Entering:'||l_proc, 5);
53 --
54 If (p_cagr_grade_def_id is null) Then
55 --
56 -- One of the primary key arguments is null therefore we must
57 -- set the returning function value to false
58 --
59 l_fct_ret := false;
60 Else
61 If (p_cagr_grade_def_id = g_old_rec.cagr_grade_def_id) Then
62 hr_utility.set_location(l_proc, 10);
63 --
64 -- The g_old_rec is current therefore we must
65 -- set the returning function to true
66 --
67 l_fct_ret := true;
68 Else
69 --
70 -- Select the current row into g_old_rec
71 --
72 Open C_Sel1;
73 Fetch C_Sel1 Into g_old_rec;
74 If C_Sel1%notfound Then
75 Close C_Sel1;
76 --
77 -- The primary key is invalid therefore we must error
78 --
79 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
80 hr_utility.raise_error;
81 End If;
82 Close C_Sel1;
83 --
84 hr_utility.set_location(l_proc, 15);
85 l_fct_ret := true;
86 End If;
87 End If;
88 hr_utility.set_location(' Leaving:'||l_proc, 20);
89 Return (l_fct_ret);
90 --
91 End api_updating;
92 --
93 -- ----------------------------------------------------------------------------
94 -- |-----------------------------< convert_args >-----------------------------|
95 -- ----------------------------------------------------------------------------
96 Function convert_args
97 (
98 p_cagr_grade_def_id in number,
99 p_id_flex_num in number,
100 p_summary_flag in varchar2,
101 p_enabled_flag in varchar2,
102 p_start_date_active in date,
103 p_end_date_active in date,
104 p_segment1 in varchar2,
105 p_segment2 in varchar2,
106 p_segment3 in varchar2,
107 p_segment4 in varchar2,
108 p_segment5 in varchar2,
109 p_segment6 in varchar2,
110 p_segment7 in varchar2,
111 p_segment8 in varchar2,
112 p_segment9 in varchar2,
113 p_segment10 in varchar2,
114 p_segment11 in varchar2,
115 p_segment12 in varchar2,
116 p_segment13 in varchar2,
117 p_segment14 in varchar2,
118 p_segment15 in varchar2,
119 p_segment16 in varchar2,
120 p_segment17 in varchar2,
121 p_segment18 in varchar2,
122 p_segment19 in varchar2,
123 p_segment20 in varchar2
124 )
125 Return g_rec_type is
126 --
127 l_rec g_rec_type;
128 l_proc varchar2(72) := g_package||'convert_args';
129 --
130 Begin
131 --
132 hr_utility.set_location('Entering:'||l_proc, 5);
133 --
134 -- Convert arguments into local l_rec structure.
135 --
136 l_rec.cagr_grade_def_id := p_cagr_grade_def_id;
137 l_rec.id_flex_num := p_id_flex_num;
138 l_rec.summary_flag := p_summary_flag;
139 l_rec.enabled_flag := p_enabled_flag;
140 l_rec.start_date_active := p_start_date_active;
141 l_rec.end_date_active := p_end_date_active;
142 l_rec.segment1 := p_segment1;
143 l_rec.segment2 := p_segment2;
144 l_rec.segment3 := p_segment3;
145 l_rec.segment4 := p_segment4;
146 l_rec.segment5 := p_segment5;
147 l_rec.segment6 := p_segment6;
148 l_rec.segment7 := p_segment7;
149 l_rec.segment8 := p_segment8;
150 l_rec.segment9 := p_segment9;
151 l_rec.segment10 := p_segment10;
152 l_rec.segment11 := p_segment11;
153 l_rec.segment12 := p_segment12;
154 l_rec.segment13 := p_segment13;
155 l_rec.segment14 := p_segment14;
156 l_rec.segment15 := p_segment15;
157 l_rec.segment16 := p_segment16;
158 l_rec.segment17 := p_segment17;
159 l_rec.segment18 := p_segment18;
160 l_rec.segment19 := p_segment19;
161 l_rec.segment20 := p_segment20;
162 --
163 -- Return the plsql record structure.
164 --
165 hr_utility.set_location(' Leaving:'||l_proc, 10);
166 Return(l_rec);
167 --
168 End convert_args;
169 --
170 end hr_cgd_shd;