[Home] [Help]
PACKAGE BODY: APPS.PAY_NAF_SHD
Source
1 PACKAGE BODY pay_naf_shd
2 /* $Header: pynafrhi.pkb 120.1.12020000.1 2012/08/14 10:05:06 achandwa noship $ */
3 AS
4
5 g_package varchar2(33) DEFAULT ' pay_naf_shd.';
6
7 FUNCTION convert_args
8 (p_transfer_id IN number
9 ,p_transfer_status IN varchar2
10 ,p_concurrent_request_id IN number
11 ,p_payroll_action_id IN number
12 ,p_report_name IN varchar2
13 ,p_run_effective_date IN date
14 ,p_shipment_reference_number IN varchar2
15 ,p_organization_id IN number
16 ,p_business_group_id IN number
17 ,p_reciept_id IN number
18 ,p_reciept_status IN varchar2
19 ,p_reciept_text IN varchar2
20 ,p_receipt_last_updated IN varchar2
21 ,p_alt_element_id IN number
22 ,p_alt_archive_ref IN varchar2
23 ,p_curr_state IN varchar2
24 ,p_next_state IN varchar2
25 ,p_object_version_number IN number
26 ,p_tfr_information_category IN varchar2
27 ,p_tfr_information1 IN varchar2
28 ,p_tfr_information2 IN varchar2
29 ,p_tfr_information3 IN varchar2
30 ,p_tfr_information4 IN varchar2
31 ,p_tfr_information5 IN varchar2
32 ,p_tfr_information6 IN varchar2
33 ,p_tfr_information7 IN varchar2
34 ,p_tfr_information8 IN varchar2
35 ,p_tfr_information9 IN varchar2
36 ,p_tfr_information10 IN varchar2
37 ,p_tfr_information11 IN varchar2
38 ,p_tfr_information12 IN varchar2
39 ,p_tfr_information13 IN varchar2
40 ,p_tfr_information14 IN varchar2
41 ,p_tfr_information15 IN varchar2
42 ,p_tfr_information16 IN varchar2
43 ,p_tfr_information17 IN varchar2
44 ,p_tfr_information18 IN varchar2
45 ,p_tfr_information19 IN varchar2
46 ,p_tfr_information20 IN varchar2) RETURN g_rec_type IS
47 l_rec g_rec_type;
48 l_proc varchar2(72) DEFAULT g_package
49 || 'convert_args';
50 BEGIN
51 hr_utility.set_location ('Entering:'
52 || l_proc
53 ,5);
54
55 l_rec.transfer_id := p_transfer_id;
56
57 l_rec.transfer_status := p_transfer_status;
58
59 l_rec.concurrent_request_id := p_concurrent_request_id;
60
61 l_rec.payroll_action_id := p_payroll_action_id;
62
63 l_rec.report_name := p_report_name;
64
65 l_rec.run_effective_date := p_run_effective_date;
66
67 l_rec.shipment_reference := p_shipment_reference_number;
68
69 l_rec.organization_id := p_organization_id;
70
71 l_rec.business_group_id := p_business_group_id;
72
73 l_rec.receipt_id := p_reciept_id;
74
75 l_rec.receipt_status := p_reciept_status;
76
77 l_rec.receipt_text := p_reciept_text;
78
79 l_rec.alt_element_id := p_alt_element_id;
80
81 l_rec.alt_archive_ref := p_alt_archive_ref;
82
83 l_rec.curr_state := p_curr_state;
84
85 l_rec.next_state := p_next_state;
86
87 l_rec.object_version_number := p_object_version_number;
88
89 l_rec.tfr_information_category := p_tfr_information_category;
90
91 l_rec.tfr_information1 := p_tfr_information1;
92
93 l_rec.tfr_information2 := p_tfr_information2;
94
95 l_rec.tfr_information3 := p_tfr_information3;
96
97 l_rec.tfr_information4 := p_tfr_information4;
98
99 l_rec.tfr_information5 := p_tfr_information5;
100
101 l_rec.tfr_information6 := p_tfr_information6;
102
103 l_rec.tfr_information7 := p_tfr_information7;
104
105 l_rec.tfr_information8 := p_tfr_information8;
106
107 l_rec.tfr_information9 := p_tfr_information9;
108
109 l_rec.tfr_information10 := p_tfr_information10;
110
111 l_rec.tfr_information11 := p_tfr_information11;
112
113 l_rec.tfr_information12 := p_tfr_information12;
114
115 l_rec.tfr_information13 := p_tfr_information13;
116
117 l_rec.tfr_information14 := p_tfr_information14;
118
119 l_rec.tfr_information15 := p_tfr_information15;
120
121 l_rec.tfr_information16 := p_tfr_information16;
122
123 l_rec.tfr_information17 := p_tfr_information17;
124
125 l_rec.tfr_information18 := p_tfr_information18;
126
127 l_rec.tfr_information19 := p_tfr_information19;
128
129 l_rec.tfr_information20 := p_tfr_information20;
130
131 hr_utility.set_location (' Leaving:'
132 || l_proc
133 ,10);
134
135 RETURN (l_rec);
136 END convert_args;
137
138 FUNCTION api_updating
139 (p_transfer_id IN number
140 ,p_object_version_number IN number) RETURN boolean IS
141 CURSOR c_sel1 IS
142 SELECT transfer_id
143 ,transfer_status
144 ,concurrent_request_id
145 ,payroll_action_id
146 ,report_name
147 ,run_effective_date
148 ,shipment_reference
149 ,organization_id
150 ,business_group_id
151 ,receipt_id
152 ,receipt_status
153 ,receipt_text
154 ,receipt_last_updated
155 ,alt_element_id
156 ,alt_archive_ref
157 ,curr_state
158 ,next_state
159 ,tfr_information_category
160 ,tfr_information1
161 ,tfr_information2
162 ,tfr_information3
163 ,tfr_information4
164 ,tfr_information5
165 ,tfr_information6
166 ,tfr_information7
167 ,tfr_information8
168 ,tfr_information9
169 ,tfr_information10
170 ,tfr_information11
171 ,tfr_information12
172 ,tfr_information13
173 ,tfr_information14
174 ,tfr_information15
175 ,tfr_information16
176 ,tfr_information17
177 ,tfr_information18
178 ,tfr_information19
179 ,tfr_information20
180 ,object_version_number
181 FROM pay_no_altinn_transfers
182 WHERE transfer_id = p_transfer_id;
183 l_proc varchar2(72) DEFAULT g_package
184 || 'api_updating';
185 l_fct_ret boolean;
186 BEGIN
187 hr_utility.set_location ('Entering:'
188 || l_proc
189 ,5);
190
191 IF (p_transfer_id IS NULL
192 AND p_object_version_number IS NULL) THEN
193 l_fct_ret := FALSE;
194 ELSE
195 IF (p_transfer_id = g_old_rec.transfer_id
196 AND p_object_version_number = g_old_rec.object_version_number) THEN
197 hr_utility.set_location (l_proc
198 ,10);
199
200 l_fct_ret := TRUE;
201 ELSE
202 OPEN c_sel1;
203
204 FETCH c_sel1
205 INTO g_old_rec;
206
207 IF c_sel1%NOTFOUND THEN
208 CLOSE c_sel1;
209
210 fnd_message.set_name ('PAY'
211 ,'HR_7220_INVALID_PRIMARY_KEY');
212
213 fnd_message.raise_error;
214 END IF;
215
216 CLOSE c_sel1;
217
218
219 IF (p_object_version_number <> g_old_rec.object_version_number) THEN
220 fnd_message.set_name ('PAY'
221 ,'HR_7155_OBJECT_INVALID');
222
223 fnd_message.raise_error;
224 END IF;
225
226 hr_utility.set_location (l_proc
227 ,15);
228
229 l_fct_ret := TRUE;
230 END IF;
231 END IF;
232
233 hr_utility.set_location (' Leaving:'
234 || l_proc
235 ,20);
236
237 RETURN (l_fct_ret);
238 END api_updating;
239
240 PROCEDURE lck
241 (p_transfer_id IN number
242 ,p_object_version_number IN number) IS
243 CURSOR c_sel1 IS
244 SELECT transfer_id
245 ,transfer_status
246 ,concurrent_request_id
247 ,payroll_action_id
248 ,report_name
249 ,run_effective_date
250 ,shipment_reference
251 ,organization_id
252 ,business_group_id
253 ,receipt_id
254 ,receipt_status
255 ,receipt_text
256 ,receipt_last_updated
257 ,alt_element_id
258 ,alt_archive_ref
259 ,curr_state
260 ,next_state
261 ,object_version_number
262 ,tfr_information_category
263 ,tfr_information1
264 ,tfr_information2
265 ,tfr_information3
266 ,tfr_information4
267 ,tfr_information5
268 ,tfr_information6
269 ,tfr_information7
270 ,tfr_information8
271 ,tfr_information9
272 ,tfr_information10
273 ,tfr_information11
274 ,tfr_information12
275 ,tfr_information13
276 ,tfr_information14
277 ,tfr_information15
278 ,tfr_information16
279 ,tfr_information17
280 ,tfr_information18
281 ,tfr_information19
282 ,tfr_information20
283 FROM pay_no_altinn_transfers
284 WHERE transfer_id = p_transfer_id
285 FOR UPDATE NOWAIT;
286 l_proc varchar2(72) DEFAULT g_package
287 || 'lck';
288 BEGIN
289 hr_utility.set_location ('Entering:'
290 || l_proc
291 ,5);
292
293 hr_utility.set_location ('transfer_id:'
294 || p_transfer_id
295 ,5);
296
297 OPEN c_sel1;
298
299 FETCH c_sel1
300 INTO g_old_rec;
301
302 IF c_sel1%NOTFOUND THEN
303 CLOSE c_sel1;
304
305 fnd_message.set_name ('PAY'
306 ,'HR_7220_INVALID_PRIMARY_KEY');
307
308 fnd_message.raise_error;
309 END IF;
310
311 CLOSE c_sel1;
312
313 IF (p_object_version_number <> g_old_rec.object_version_number) THEN
314 fnd_message.set_name ('PAY'
315 ,'HR_7155_OBJECT_INVALID');
316
317 fnd_message.raise_error;
318 END IF;
319
320 hr_utility.set_location (' Leaving:'
321 || l_proc
322 ,10);
323 EXCEPTION
324 WHEN hr_api.object_locked THEN
325 fnd_message.set_name ('PAY'
326 ,'HR_7165_OBJECT_LOCKED');
327
328 fnd_message.set_token ('TABLE_NAME'
329 ,'pay_no_altinn_transfers');
330
331 fnd_message.raise_error;
332 END lck;
333
334 FUNCTION return_api_dml_status RETURN boolean IS
335 BEGIN
336 RETURN TRUE;
337 END return_api_dml_status;
338
339 PROCEDURE constraint_error
340 (p_constraint_name IN all_constraints.constraint_name%TYPE) IS
341 BEGIN
342 NULL;
343 END constraint_error;
344 END pay_naf_shd;