[Home] [Help]
PACKAGE BODY: APPS.HXC_ULQ_SHD
Source
1 Package Body hxc_ulq_shd as
2 /* $Header: hxculqrhi.pkb 120.2 2005/09/23 06:26:40 rchennur noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' hxc_ulq_shd.'; -- Global package name
9 g_debug boolean := hr_utility.debug_enabled;
10 --
11 -- ----------------------------------------------------------------------------
12 -- |---------------------------< constraint_error >---------------------------|
13 -- ----------------------------------------------------------------------------
14 Procedure constraint_error
15 (p_constraint_name in all_constraints.constraint_name%TYPE
16 ) Is
17 --
18 l_proc varchar2(72) := g_package||'constraint_error';
19 --
20 Begin
21 --
22 If (p_constraint_name = 'HXC_LAYOUT_COMP_QUALIFIERS_PK') Then
23 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
24 fnd_message.set_token('PROCEDURE', l_proc);
25 fnd_message.set_token('STEP','5');
26 fnd_message.raise_error;
27 ElsIf (p_constraint_name = 'HXC_LAYOUT_COMP_QUALIFIERS_UK1') Then
28 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
29 fnd_message.set_token('PROCEDURE', l_proc);
30 fnd_message.set_token('STEP','10');
31 fnd_message.raise_error;
32 Else
33 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
34 fnd_message.set_token('PROCEDURE', l_proc);
35 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
36 fnd_message.raise_error;
37 End If;
38 --
39 End constraint_error;
40 --
41 -- ----------------------------------------------------------------------------
42 -- |-----------------------------< api_updating >-----------------------------|
43 -- ----------------------------------------------------------------------------
44 Function api_updating
45 (p_layout_comp_qualifier_id in number
46 ,p_object_version_number in number
47 )
48 Return Boolean Is
49 --
50 --
51 -- Cursor selects the 'current' row from the HR Schema
52 --
53 Cursor C_Sel1 is
54 select
55 layout_comp_qualifier_id
56 ,layout_component_id
57 ,qualifier_name
58 ,qualifier_attribute_category
59 ,qualifier_attribute1
60 ,qualifier_attribute2
61 ,qualifier_attribute3
62 ,qualifier_attribute4
63 ,qualifier_attribute5
64 ,qualifier_attribute6
65 ,qualifier_attribute7
66 ,qualifier_attribute8
67 ,qualifier_attribute9
68 ,qualifier_attribute10
69 ,qualifier_attribute11
70 ,qualifier_attribute12
71 ,qualifier_attribute13
72 ,qualifier_attribute14
73 ,qualifier_attribute15
74 ,qualifier_attribute16
75 ,qualifier_attribute17
76 ,qualifier_attribute18
77 ,qualifier_attribute19
78 ,qualifier_attribute20
79 ,qualifier_attribute21
80 ,qualifier_attribute22
81 ,qualifier_attribute23
82 ,qualifier_attribute24
83 ,qualifier_attribute25
84 ,qualifier_attribute26
85 ,qualifier_attribute27
86 ,qualifier_attribute28
87 ,qualifier_attribute29
88 ,qualifier_attribute30
89 ,object_version_number
90 from hxc_layout_comp_qualifiers
91 where layout_comp_qualifier_id = p_layout_comp_qualifier_id;
92 --
93 l_fct_ret boolean;
94 --
95 Begin
96 --
97 If (p_layout_comp_qualifier_id is null and
98 p_object_version_number is null
99 ) Then
100 --
101 -- One of the primary key arguments is null therefore we must
102 -- set the returning function value to false
103 --
104 l_fct_ret := false;
105 Else
106 If (p_layout_comp_qualifier_id
107 = hxc_ulq_shd.g_old_rec.layout_comp_qualifier_id and
108 p_object_version_number
109 = hxc_ulq_shd.g_old_rec.object_version_number
110 ) Then
111 --
112 -- The g_old_rec is current therefore we must
113 -- set the returning function to true
114 --
115 l_fct_ret := true;
116 Else
117 --
118 -- Select the current row into g_old_rec
119 --
120 Open C_Sel1;
121 Fetch C_Sel1 Into hxc_ulq_shd.g_old_rec;
122 If C_Sel1%notfound Then
123 Close C_Sel1;
124 --
125 -- The primary key is invalid therefore we must error
126 --
127 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
128 fnd_message.raise_error;
129 End If;
130 Close C_Sel1;
131 If (p_object_version_number
132 <> hxc_ulq_shd.g_old_rec.object_version_number) Then
133 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
134 fnd_message.raise_error;
135 End If;
136 l_fct_ret := true;
137 End If;
138 End If;
139 Return (l_fct_ret);
140 --
141 End api_updating;
142 --
143 -- ----------------------------------------------------------------------------
144 -- |---------------------------------< lck >----------------------------------|
145 -- ----------------------------------------------------------------------------
146 Procedure lck
147 (p_layout_comp_qualifier_id in number
148 ,p_object_version_number in number
149 ) is
150 --
151 -- Cursor selects the 'current' row from the hxc Schema
152 --
153 Cursor C_Sel1 is
154 select
155 layout_comp_qualifier_id
156 ,layout_component_id
157 ,qualifier_name
158 ,qualifier_attribute_category
159 ,qualifier_attribute1
160 ,qualifier_attribute2
161 ,qualifier_attribute3
162 ,qualifier_attribute4
163 ,qualifier_attribute5
164 ,qualifier_attribute6
165 ,qualifier_attribute7
166 ,qualifier_attribute8
167 ,qualifier_attribute9
168 ,qualifier_attribute10
169 ,qualifier_attribute11
170 ,qualifier_attribute12
171 ,qualifier_attribute13
172 ,qualifier_attribute14
173 ,qualifier_attribute15
174 ,qualifier_attribute16
175 ,qualifier_attribute17
176 ,qualifier_attribute18
177 ,qualifier_attribute19
178 ,qualifier_attribute20
179 ,qualifier_attribute21
180 ,qualifier_attribute22
181 ,qualifier_attribute23
182 ,qualifier_attribute24
183 ,qualifier_attribute25
184 ,qualifier_attribute26
185 ,qualifier_attribute27
186 ,qualifier_attribute28
187 ,qualifier_attribute29
188 ,qualifier_attribute30
189 ,object_version_number
190 from hxc_layout_comp_qualifiers
191 where layout_comp_qualifier_id = p_layout_comp_qualifier_id
192 for update nowait;
193 --
194 l_proc varchar2(72) ;
195 --
196 Begin
197 g_debug :=hr_utility.debug_enabled;
198 if g_debug then
199 l_proc := g_package||'lck';
200 hr_utility.set_location('Entering:'||l_proc, 5);
201 end if;
202 --
203 hr_api.mandatory_arg_error
204 (p_api_name => l_proc
205 ,p_argument => 'LAYOUT_COMP_QUALIFIER_ID'
206 ,p_argument_value => p_layout_comp_qualifier_id
207 );
208 --
209 Open C_Sel1;
210 Fetch C_Sel1 Into hxc_ulq_shd.g_old_rec;
211 If C_Sel1%notfound then
212 Close C_Sel1;
213 --
214 -- The primary key is invalid therefore we must error
215 --
216 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
217 fnd_message.raise_error;
218 End If;
219 Close C_Sel1;
220 If (p_object_version_number
221 <> hxc_ulq_shd.g_old_rec.object_version_number) Then
222 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
223 fnd_message.raise_error;
224 End If;
225 --
226 if g_debug then
227 hr_utility.set_location(' Leaving:'||l_proc, 10);
228 end if;
229 --
230 -- We need to trap the ORA LOCK exception
231 --
232 Exception
233 When HR_Api.Object_Locked then
234 --
235 -- The object is locked therefore we need to supply a meaningful
236 -- error message.
237 --
238 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
239 fnd_message.set_token('TABLE_NAME', 'hxc_layout_comp_qualifiers');
240 fnd_message.raise_error;
241 End lck;
242 --
243 -- ----------------------------------------------------------------------------
244 -- |-----------------------------< convert_args >-----------------------------|
245 -- ----------------------------------------------------------------------------
246 Function convert_args
247 (p_layout_comp_qualifier_id in number
248 ,p_layout_component_id in number
249 ,p_qualifier_name in varchar2
250 ,p_qualifier_attribute_category in varchar2
251 ,p_qualifier_attribute1 in varchar2
252 ,p_qualifier_attribute2 in varchar2
253 ,p_qualifier_attribute3 in varchar2
254 ,p_qualifier_attribute4 in varchar2
255 ,p_qualifier_attribute5 in varchar2
256 ,p_qualifier_attribute6 in varchar2
257 ,p_qualifier_attribute7 in varchar2
258 ,p_qualifier_attribute8 in varchar2
259 ,p_qualifier_attribute9 in varchar2
260 ,p_qualifier_attribute10 in varchar2
261 ,p_qualifier_attribute11 in varchar2
262 ,p_qualifier_attribute12 in varchar2
263 ,p_qualifier_attribute13 in varchar2
264 ,p_qualifier_attribute14 in varchar2
265 ,p_qualifier_attribute15 in varchar2
266 ,p_qualifier_attribute16 in varchar2
267 ,p_qualifier_attribute17 in varchar2
268 ,p_qualifier_attribute18 in varchar2
269 ,p_qualifier_attribute19 in varchar2
270 ,p_qualifier_attribute20 in varchar2
271 ,p_qualifier_attribute21 in varchar2
272 ,p_qualifier_attribute22 in varchar2
273 ,p_qualifier_attribute23 in varchar2
274 ,p_qualifier_attribute24 in varchar2
275 ,p_qualifier_attribute25 in varchar2
276 ,p_qualifier_attribute26 in varchar2
277 ,p_qualifier_attribute27 in varchar2
278 ,p_qualifier_attribute28 in varchar2
279 ,p_qualifier_attribute29 in varchar2
280 ,p_qualifier_attribute30 in varchar2
281 ,p_object_version_number in number
282 )
283 Return g_rec_type is
284 --
285 l_rec g_rec_type;
286 --
287 Begin
288 --
289 -- Convert arguments into local l_rec structure.
290 --
291 l_rec.layout_comp_qualifier_id := p_layout_comp_qualifier_id;
292 l_rec.layout_component_id := p_layout_component_id;
293 l_rec.qualifier_name := p_qualifier_name;
294 l_rec.qualifier_attribute_category := p_qualifier_attribute_category;
295 l_rec.qualifier_attribute1 := p_qualifier_attribute1;
296 l_rec.qualifier_attribute2 := p_qualifier_attribute2;
297 l_rec.qualifier_attribute3 := p_qualifier_attribute3;
298 l_rec.qualifier_attribute4 := p_qualifier_attribute4;
299 l_rec.qualifier_attribute5 := p_qualifier_attribute5;
300 l_rec.qualifier_attribute6 := p_qualifier_attribute6;
301 l_rec.qualifier_attribute7 := p_qualifier_attribute7;
302 l_rec.qualifier_attribute8 := p_qualifier_attribute8;
303 l_rec.qualifier_attribute9 := p_qualifier_attribute9;
304 l_rec.qualifier_attribute10 := p_qualifier_attribute10;
305 l_rec.qualifier_attribute11 := p_qualifier_attribute11;
306 l_rec.qualifier_attribute12 := p_qualifier_attribute12;
307 l_rec.qualifier_attribute13 := p_qualifier_attribute13;
308 l_rec.qualifier_attribute14 := p_qualifier_attribute14;
309 l_rec.qualifier_attribute15 := p_qualifier_attribute15;
310 l_rec.qualifier_attribute16 := p_qualifier_attribute16;
311 l_rec.qualifier_attribute17 := p_qualifier_attribute17;
312 l_rec.qualifier_attribute18 := p_qualifier_attribute18;
313 l_rec.qualifier_attribute19 := p_qualifier_attribute19;
314 l_rec.qualifier_attribute20 := p_qualifier_attribute20;
315 l_rec.qualifier_attribute21 := p_qualifier_attribute21;
316 l_rec.qualifier_attribute22 := p_qualifier_attribute22;
317 l_rec.qualifier_attribute23 := p_qualifier_attribute23;
318 l_rec.qualifier_attribute24 := p_qualifier_attribute24;
319 l_rec.qualifier_attribute25 := p_qualifier_attribute25;
320 l_rec.qualifier_attribute26 := p_qualifier_attribute26;
321 l_rec.qualifier_attribute27 := p_qualifier_attribute27;
322 l_rec.qualifier_attribute28 := p_qualifier_attribute28;
323 l_rec.qualifier_attribute29 := p_qualifier_attribute29;
324 l_rec.qualifier_attribute30 := p_qualifier_attribute30;
325 l_rec.object_version_number := p_object_version_number;
326 --
327 -- Return the plsql record structure.
328 --
329 Return(l_rec);
330 --
331 End convert_args;
332 --
333 end hxc_ulq_shd;