[Home] [Help]
Skip to content
PACKAGE BODY: APPS.PAY_AIF_SHD
Source
4 -- ----------------------------------------------------------------------------
1 Package Body pay_aif_shd as
2 /* $Header: pyaifrhi.pkb 120.3.12020000.2 2012/07/04 20:39:11 amnaraya ship $ */
3 --
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pay_aif_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |---------------------------< constraint_error >---------------------------|
12 -- ----------------------------------------------------------------------------
13 Procedure constraint_error
14 (p_constraint_name in all_constraints.constraint_name%TYPE
15 ) Is
16 --
17 l_proc varchar2(72) := g_package||'constraint_error';
18 --
19 Begin
20 --
21 If (p_constraint_name = 'PAY_ACTION_INFORMATION_PK') Then
22 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
23 fnd_message.set_token('PROCEDURE', l_proc);
24 fnd_message.set_token('STEP','5');
25 fnd_message.raise_error;
26 Else
27 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
28 fnd_message.set_token('PROCEDURE', l_proc);
29 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
30 fnd_message.raise_error;
31 End If;
32 --
33 End constraint_error;
34 --
35 -- ----------------------------------------------------------------------------
36 -- |-----------------------------< api_updating >-----------------------------|
37 -- ----------------------------------------------------------------------------
38 Function api_updating
39 (p_action_information_id in number
40 ,p_object_version_number in number
41 )
42 Return Boolean Is
43 --
44 --
45 -- Cursor selects the 'current' row from the HR Schema
46 --
47 Cursor C_Sel1 is
48 select
49 action_information_id
50 ,action_context_id
51 ,action_context_type
52 ,tax_unit_id
53 ,jurisdiction_code
54 ,source_id
55 ,source_text
56 ,tax_group
57 ,object_version_number
58 ,effective_date
59 ,assignment_id
60 ,action_information_category
61 ,action_information1
62 ,action_information2
63 ,action_information3
64 ,action_information4
65 ,action_information5
66 ,action_information6
67 ,action_information7
68 ,action_information8
69 ,action_information9
70 ,action_information10
71 ,action_information11
72 ,action_information12
73 ,action_information13
74 ,action_information14
75 ,action_information15
76 ,action_information16
77 ,action_information17
78 ,action_information18
79 ,action_information19
80 ,action_information20
81 ,action_information21
82 ,action_information22
83 ,action_information23
84 ,action_information24
85 ,action_information25
86 ,action_information26
87 ,action_information27
88 ,action_information28
89 ,action_information29
90 ,action_information30
91 from pay_action_information
92 where action_information_id = p_action_information_id;
93 --
94 l_fct_ret boolean;
95 --
96 Begin
97 --
98 If (p_action_information_id is null and
99 p_object_version_number is null
100 ) Then
101 --
102 -- One of the primary key arguments is null therefore we must
103 -- set the returning function value to false
104 --
105 l_fct_ret := false;
106 Else
107 If (p_action_information_id
108 = pay_aif_shd.g_old_rec.action_information_id and
109 p_object_version_number
110 = pay_aif_shd.g_old_rec.object_version_number
111 ) Then
112 --
113 -- The g_old_rec is current therefore we must
114 -- set the returning function to true
115 --
116 l_fct_ret := true;
117 Else
118 --
119 -- Select the current row into g_old_rec
120 --
121 Open C_Sel1;
122 Fetch C_Sel1 Into pay_aif_shd.g_old_rec;
126 -- The primary key is invalid therefore we must error
123 If C_Sel1%notfound Then
124 Close C_Sel1;
125 --
127 --
128 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
129 fnd_message.raise_error;
130 End If;
131 Close C_Sel1;
132 If (p_object_version_number
133 <> pay_aif_shd.g_old_rec.object_version_number) Then
134 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
135 fnd_message.raise_error;
136 End If;
137 l_fct_ret := true;
138 End If;
139 End If;
140 Return (l_fct_ret);
141 --
142 End api_updating;
143 --
144 -- ----------------------------------------------------------------------------
145 -- |---------------------------------< lck >----------------------------------|
146 -- ----------------------------------------------------------------------------
147 Procedure lck
148 (p_action_information_id in number
149 ,p_object_version_number in number
150 ) is
151 --
152 -- Cursor selects the 'current' row from the HR Schema
153 --
154 Cursor C_Sel1 is
155 select
156 action_information_id
157 ,action_context_id
158 ,action_context_type
159 ,tax_unit_id
160 ,jurisdiction_code
161 ,source_id
162 ,source_text
163 ,tax_group
164 ,object_version_number
165 ,effective_date
166 ,assignment_id
167 ,action_information_category
168 ,action_information1
169 ,action_information2
170 ,action_information3
171 ,action_information4
172 ,action_information5
173 ,action_information6
174 ,action_information7
175 ,action_information8
176 ,action_information9
177 ,action_information10
178 ,action_information11
179 ,action_information12
180 ,action_information13
181 ,action_information14
182 ,action_information15
183 ,action_information16
184 ,action_information17
185 ,action_information18
186 ,action_information19
187 ,action_information20
191 ,action_information24
188 ,action_information21
189 ,action_information22
190 ,action_information23
192 ,action_information25
193 ,action_information26
194 ,action_information27
195 ,action_information28
196 ,action_information29
197 ,action_information30
198 from pay_action_information
202 l_proc varchar2(72) := g_package||'lck';
199 where action_information_id = p_action_information_id
200 for update nowait;
201 --
203 --
204 Begin
205 hr_utility.set_location('Entering:'||l_proc, 5);
206 --
207 hr_api.mandatory_arg_error
208 (p_api_name => l_proc
209 ,p_argument => 'ACTION_INFORMATION_ID'
210 ,p_argument_value => p_action_information_id
211 );
212 --
213 Open C_Sel1;
214 Fetch C_Sel1 Into pay_aif_shd.g_old_rec;
215 If C_Sel1%notfound then
216 Close C_Sel1;
217 --
218 -- The primary key is invalid therefore we must error
219 --
220 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
221 fnd_message.raise_error;
222 End If;
223 Close C_Sel1;
224 If (p_object_version_number
225 <> pay_aif_shd.g_old_rec.object_version_number) Then
226 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
227 fnd_message.raise_error;
228 End If;
229 --
230 hr_utility.set_location(' Leaving:'||l_proc, 10);
231 --
232 -- We need to trap the ORA LOCK exception
233 --
234 Exception
235 When HR_Api.Object_Locked then
236 --
237 -- The object is locked therefore we need to supply a meaningful
238 -- error message.
239 --
240 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
241 fnd_message.set_token('TABLE_NAME', 'pay_action_information');
242 fnd_message.raise_error;
243 End lck;
244 --
245 -- ----------------------------------------------------------------------------
246 -- |-----------------------------< convert_args >-----------------------------|
247 -- ----------------------------------------------------------------------------
248 Function convert_args
249 (p_action_information_id in number
250 ,p_action_context_id in number
251 ,p_action_context_type in varchar2
252 ,p_tax_unit_id in number
253 ,p_jurisdiction_code in varchar2
254 ,p_source_id in number
255 ,p_source_text in varchar2
256 ,p_tax_group in varchar2
257 ,p_object_version_number in number
258 ,p_effective_date in date
259 ,p_assignment_id in number
260 ,p_action_information_category in varchar2
261 ,p_action_information1 in varchar2
262 ,p_action_information2 in varchar2
263 ,p_action_information3 in varchar2
264 ,p_action_information4 in varchar2
265 ,p_action_information5 in varchar2
266 ,p_action_information6 in varchar2
267 ,p_action_information7 in varchar2
268 ,p_action_information8 in varchar2
269 ,p_action_information9 in varchar2
270 ,p_action_information10 in varchar2
271 ,p_action_information11 in varchar2
272 ,p_action_information12 in varchar2
273 ,p_action_information13 in varchar2
274 ,p_action_information14 in varchar2
275 ,p_action_information15 in varchar2
276 ,p_action_information16 in varchar2
277 ,p_action_information17 in varchar2
278 ,p_action_information18 in varchar2
279 ,p_action_information19 in varchar2
280 ,p_action_information20 in varchar2
281 ,p_action_information21 in varchar2
282 ,p_action_information22 in varchar2
283 ,p_action_information23 in varchar2
284 ,p_action_information24 in varchar2
285 ,p_action_information25 in varchar2
286 ,p_action_information26 in varchar2
287 ,p_action_information27 in varchar2
288 ,p_action_information28 in varchar2
289 ,p_action_information29 in varchar2
290 ,p_action_information30 in varchar2
291 )
292 Return g_rec_type is
293 --
294 l_rec g_rec_type;
295 --
296 Begin
297 --
298 -- Convert arguments into local l_rec structure.
299 --
300 l_rec.action_information_id := p_action_information_id;
301 l_rec.action_context_id := p_action_context_id;
302 l_rec.action_context_type := p_action_context_type;
303 l_rec.tax_unit_id := p_tax_unit_id;
304 l_rec.jurisdiction_code := p_jurisdiction_code;
305 l_rec.source_id := p_source_id;
306 l_rec.source_text := p_source_text;
307 l_rec.tax_group := p_tax_group;
308 l_rec.object_version_number := p_object_version_number;
309 l_rec.effective_date := p_effective_date;
310 l_rec.assignment_id := p_assignment_id;
311 l_rec.action_information_category := p_action_information_category;
312 l_rec.action_information1 := p_action_information1;
313 l_rec.action_information2 := p_action_information2;
314 l_rec.action_information3 := p_action_information3;
315 l_rec.action_information4 := p_action_information4;
316 l_rec.action_information5 := p_action_information5;
317 l_rec.action_information6 := p_action_information6;
318 l_rec.action_information7 := p_action_information7;
319 l_rec.action_information8 := p_action_information8;
320 l_rec.action_information9 := p_action_information9;
321 l_rec.action_information10 := p_action_information10;
322 l_rec.action_information11 := p_action_information11;
326 l_rec.action_information15 := p_action_information15;
323 l_rec.action_information12 := p_action_information12;
324 l_rec.action_information13 := p_action_information13;
325 l_rec.action_information14 := p_action_information14;
327 l_rec.action_information16 := p_action_information16;
328 l_rec.action_information17 := p_action_information17;
329 l_rec.action_information18 := p_action_information18;
330 l_rec.action_information19 := p_action_information19;
331 l_rec.action_information20 := p_action_information20;
335 l_rec.action_information24 := p_action_information24;
332 l_rec.action_information21 := p_action_information21;
333 l_rec.action_information22 := p_action_information22;
334 l_rec.action_information23 := p_action_information23;
336 l_rec.action_information25 := p_action_information25;
337 l_rec.action_information26 := p_action_information26;
338 l_rec.action_information27 := p_action_information27;
339 l_rec.action_information28 := p_action_information28;
340 l_rec.action_information29 := p_action_information29;
341 l_rec.action_information30 := p_action_information30;
342 --
343 -- Return the plsql record structure.
344 --
345 Return(l_rec);
346 --
347 End convert_args;
348 --
349 end pay_aif_shd;