eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.PAY_NAF_UPD

Source


1 PACKAGE BODY pay_naf_upd
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_upd.';
6 
7   PROCEDURE convert_defs
8     (p_rec IN OUT NOCOPY pay_naf_shd.g_rec_type) IS
9     l_proc varchar2(72) DEFAULT g_package
10                                 || 'convert_defs';
11   BEGIN
12     hr_utility.set_location ('Entering:'
13                              || l_proc
14                             ,5);
15 
16 
17     IF (p_rec.transfer_status = hr_api.g_varchar2) THEN
18       p_rec.transfer_status := pay_naf_shd.g_old_rec.transfer_status;
19     END IF;
20 
21     IF (p_rec.concurrent_request_id = hr_api.g_number) THEN
22       p_rec.concurrent_request_id := pay_naf_shd.g_old_rec.concurrent_request_id;
23     END IF;
24 
25     IF (p_rec.payroll_action_id = hr_api.g_number) THEN
26       p_rec.payroll_action_id := pay_naf_shd.g_old_rec.payroll_action_id;
27     END IF;
28 
29     IF (p_rec.report_name = hr_api.g_varchar2) THEN
30       p_rec.report_name := pay_naf_shd.g_old_rec.report_name;
31     END IF;
32 
33     IF (p_rec.run_effective_date = hr_api.g_date) THEN
34       p_rec.run_effective_date := pay_naf_shd.g_old_rec.run_effective_date;
35     END IF;
36 
37     IF (p_rec.shipment_reference = hr_api.g_varchar2) THEN
38       p_rec.shipment_reference := pay_naf_shd.g_old_rec.shipment_reference;
39     END IF;
40 
41     IF (p_rec.organization_id = hr_api.g_number) THEN
42       p_rec.organization_id := pay_naf_shd.g_old_rec.organization_id;
43     END IF;
44 
45     IF (p_rec.business_group_id = hr_api.g_number) THEN
46       p_rec.business_group_id := pay_naf_shd.g_old_rec.business_group_id;
47     END IF;
48 
49     IF (p_rec.receipt_id = hr_api.g_number) THEN
50       p_rec.receipt_id := pay_naf_shd.g_old_rec.receipt_id;
51     END IF;
52 
53     IF (p_rec.receipt_status = hr_api.g_varchar2) THEN
54       p_rec.receipt_status := pay_naf_shd.g_old_rec.receipt_status;
55     END IF;
56 
57     IF (p_rec.receipt_text = hr_api.g_varchar2) THEN
58       p_rec.receipt_text := pay_naf_shd.g_old_rec.receipt_text;
59     END IF;
60 
61     IF (p_rec.receipt_last_updated = hr_api.g_date) THEN
62       p_rec.receipt_last_updated := pay_naf_shd.g_old_rec.receipt_last_updated;
63     END IF;
64 
65     IF (p_rec.alt_element_id = hr_api.g_number) THEN
66       p_rec.alt_element_id := pay_naf_shd.g_old_rec.alt_element_id;
67     END IF;
68 
69     IF (p_rec.alt_archive_ref = hr_api.g_varchar2) THEN
70       p_rec.alt_archive_ref := pay_naf_shd.g_old_rec.alt_archive_ref;
71     END IF;
72 
73     IF (p_rec.curr_state = hr_api.g_varchar2) THEN
74       p_rec.curr_state := pay_naf_shd.g_old_rec.curr_state;
75     END IF;
76 
77     IF (p_rec.next_state = hr_api.g_varchar2) THEN
78       p_rec.next_state := pay_naf_shd.g_old_rec.next_state;
82       p_rec.tfr_information1 := pay_naf_shd.g_old_rec.tfr_information1;
79     END IF;
80 
81     IF (p_rec.tfr_information1 = hr_api.g_varchar2) THEN
83     END IF;
84 
85     IF (p_rec.tfr_information2 = hr_api.g_varchar2) THEN
86       p_rec.tfr_information2 := pay_naf_shd.g_old_rec.tfr_information2;
87     END IF;
88 
89     IF (p_rec.tfr_information3 = hr_api.g_varchar2) THEN
90       p_rec.tfr_information3 := pay_naf_shd.g_old_rec.tfr_information3;
91     END IF;
92 
93     IF (p_rec.tfr_information4 = hr_api.g_varchar2) THEN
94       p_rec.tfr_information4 := pay_naf_shd.g_old_rec.tfr_information4;
95     END IF;
96 
97     IF (p_rec.tfr_information5 = hr_api.g_varchar2) THEN
98       p_rec.tfr_information5 := pay_naf_shd.g_old_rec.tfr_information5;
99     END IF;
100 
101     IF (p_rec.tfr_information6 = hr_api.g_varchar2) THEN
102       p_rec.tfr_information6 := pay_naf_shd.g_old_rec.tfr_information6;
103     END IF;
104 
105     IF (p_rec.tfr_information6 = hr_api.g_varchar2) THEN
106       p_rec.tfr_information6 := pay_naf_shd.g_old_rec.tfr_information6;
107     END IF;
108 
109     IF (p_rec.tfr_information7 = hr_api.g_varchar2) THEN
110       p_rec.tfr_information7 := pay_naf_shd.g_old_rec.tfr_information7;
111     END IF;
112 
113     IF (p_rec.tfr_information8 = hr_api.g_varchar2) THEN
114       p_rec.tfr_information8 := pay_naf_shd.g_old_rec.tfr_information8;
115     END IF;
116 
117     IF (p_rec.tfr_information9 = hr_api.g_varchar2) THEN
118       p_rec.tfr_information9 := pay_naf_shd.g_old_rec.tfr_information9;
119     END IF;
120 
121     IF (p_rec.tfr_information10 = hr_api.g_varchar2) THEN
122       p_rec.tfr_information10 := pay_naf_shd.g_old_rec.tfr_information10;
123     END IF;
124 
125     IF (p_rec.tfr_information11 = hr_api.g_varchar2) THEN
126       p_rec.tfr_information11 := pay_naf_shd.g_old_rec.tfr_information11;
127     END IF;
128 
129     IF (p_rec.tfr_information12 = hr_api.g_varchar2) THEN
130       p_rec.tfr_information12 := pay_naf_shd.g_old_rec.tfr_information12;
131     END IF;
132 
133     IF (p_rec.tfr_information13 = hr_api.g_varchar2) THEN
134       p_rec.tfr_information13 := pay_naf_shd.g_old_rec.tfr_information13;
135     END IF;
136 
137     IF (p_rec.tfr_information14 = hr_api.g_varchar2) THEN
138       p_rec.tfr_information14 := pay_naf_shd.g_old_rec.tfr_information14;
139     END IF;
140 
141     IF (p_rec.tfr_information15 = hr_api.g_varchar2) THEN
142       p_rec.tfr_information15 := pay_naf_shd.g_old_rec.tfr_information15;
143     END IF;
144 
145     IF (p_rec.tfr_information16 = hr_api.g_varchar2) THEN
146       p_rec.tfr_information16 := pay_naf_shd.g_old_rec.tfr_information16;
147     END IF;
148 
149     IF (p_rec.tfr_information17 = hr_api.g_varchar2) THEN
150       p_rec.tfr_information17 := pay_naf_shd.g_old_rec.tfr_information17;
151     END IF;
152 
153     IF (p_rec.tfr_information18 = hr_api.g_varchar2) THEN
154       p_rec.tfr_information18 := pay_naf_shd.g_old_rec.tfr_information18;
155     END IF;
156 
157     IF (p_rec.tfr_information19 = hr_api.g_varchar2) THEN
158       p_rec.tfr_information19 := pay_naf_shd.g_old_rec.tfr_information19;
159     END IF;
160 
161     IF (p_rec.tfr_information20 = hr_api.g_varchar2) THEN
162       p_rec.tfr_information20 := pay_naf_shd.g_old_rec.tfr_information20;
163     END IF;
164 
165     IF (p_rec.object_version_number = hr_api.g_number) THEN
166       p_rec.object_version_number := pay_naf_shd.g_old_rec.object_version_number;
167     END IF;
168 
169     hr_utility.set_location (' Leaving:'
170                              || l_proc
171                             ,10);
172   END convert_defs;
173 
174   PROCEDURE pre_update
175     (p_rec IN pay_naf_shd.g_rec_type) IS
176     l_proc varchar2(72) DEFAULT g_package
177                                 || 'pre_update';
178   BEGIN
179     hr_utility.set_location ('Entering:'
180                              || l_proc
181                             ,5);
182 
183     hr_utility.set_location (' Leaving:'
184                              || l_proc
185                             ,10);
186   END pre_update;
187 
188   PROCEDURE update_dml
189     (p_rec IN OUT NOCOPY pay_naf_shd.g_rec_type) IS
190     l_proc varchar2(72) DEFAULT g_package
191                                 || 'update_dml';
192   BEGIN
193     hr_utility.set_location ('Entering:'
194                              || l_proc
195                             ,5);
196 
197     p_rec.object_version_number := p_rec.object_version_number + 1;
198 
199 
200     pay_naf_shd.g_api_dml := TRUE;
201 
202     hr_utility.set_location ('update_dml:'
203                              || p_rec.transfer_id
204                              || '-'
205                             ,5);
206 
207     UPDATE  pay_no_altinn_transfers
208     SET     transfer_status = p_rec.transfer_status
209            ,concurrent_request_id = p_rec.concurrent_request_id
210            ,payroll_action_id = p_rec.payroll_action_id
211            ,report_name = p_rec.report_name
212            ,run_effective_date = p_rec.run_effective_date
213            ,shipment_reference = p_rec.shipment_reference
214            ,receipt_id = p_rec.receipt_id
215            ,receipt_status = p_rec.receipt_status
216            ,receipt_text = p_rec.receipt_text
217            ,receipt_last_updated = p_rec.receipt_last_updated
218            ,alt_element_id = p_rec.alt_element_id
222            ,next_state = p_rec.next_state
219            ,alt_archive_ref = p_rec.alt_archive_ref
220            ,object_version_number = p_rec.object_version_number
221            ,curr_state = p_rec.curr_state
223            ,tfr_information1 = p_rec.tfr_information1
224            ,tfr_information2 = p_rec.tfr_information2
225            ,tfr_information3 = p_rec.tfr_information3
226            ,tfr_information4 = p_rec.tfr_information4
227            ,tfr_information5 = p_rec.tfr_information5
228            ,tfr_information6 = p_rec.tfr_information6
229            ,tfr_information7 = p_rec.tfr_information7
230            ,tfr_information8 = p_rec.tfr_information8
231            ,tfr_information9 = p_rec.tfr_information9
232            ,tfr_information10 = p_rec.tfr_information10
233            ,tfr_information11 = p_rec.tfr_information11
234            ,tfr_information12 = p_rec.tfr_information12
235            ,tfr_information13 = p_rec.tfr_information13
236            ,tfr_information14 = p_rec.tfr_information14
237            ,tfr_information15 = p_rec.tfr_information15
238            ,tfr_information16 = p_rec.tfr_information16
239            ,tfr_information17 = p_rec.tfr_information17
240            ,tfr_information18 = p_rec.tfr_information18
241            ,tfr_information19 = p_rec.tfr_information19
242            ,tfr_information20 = p_rec.tfr_information20
243     WHERE   transfer_id = p_rec.transfer_id;
244   END update_dml;
245 
246   PROCEDURE post_update
247     (p_rec IN pay_naf_shd.g_rec_type) IS
248     l_proc varchar2(72) DEFAULT g_package
249                                 || 'post_update';
250   BEGIN
251     hr_utility.set_location ('Entering:'
252                              || l_proc
253                             ,5);
254 
255     hr_utility.set_location (' Leaving:'
256                              || l_proc
257                             ,10);
258   END post_update;
259 
260   PROCEDURE upd
261     (p_rec      IN OUT NOCOPY pay_naf_shd.g_rec_type
262     ,p_validate IN            boolean                DEFAULT FALSE) IS
263     l_proc varchar2(72) DEFAULT g_package
264                                 || 'upd';
265   BEGIN
266     hr_utility.set_location ('Entering:'
267                              || l_proc
268                             ,5);
269 
270     IF p_validate THEN
271       SAVEPOINT upd_pay_naf;
272     END IF;
273 
274 
275     pay_naf_shd.lck (p_rec.transfer_id
276                     ,p_rec.object_version_number);
277 
278 
279     convert_defs (p_rec);
280 
281 
282     pay_naf_bus.update_validate (p_rec);
283 
284 
285     pre_update (p_rec);
286 
287 
288     update_dml (p_rec);
289 
290     post_update (p_rec);
291 
292     IF p_validate THEN
293       RAISE hr_api.validate_enabled;
294     END IF;
295 
296     hr_utility.set_location (' Leaving:'
297                              || l_proc
298                             ,10);
299   EXCEPTION
300     WHEN hr_api.validate_enabled THEN
301       ROLLBACK TO upd_pay_naf;
302   END upd;
303 
304   PROCEDURE upd
305     (p_transfer_id               IN            number
306     ,p_object_version_number     IN OUT NOCOPY number
307     ,p_transfer_status           IN            varchar2
308     ,p_concurrent_request_id     IN            number
309     ,p_payroll_action_id         IN            number
310     ,p_report_name               IN            varchar2
311     ,p_run_effective_date        IN            date
312     ,p_shipment_reference_number IN            varchar2 DEFAULT hr_api.g_varchar2
313     ,p_organization_id           IN            number
314     ,p_business_group_id         IN            number
315     ,p_reciept_id                IN            number   DEFAULT hr_api.g_number
316     ,p_reciept_status            IN            varchar2 DEFAULT hr_api.g_varchar2
317     ,p_reciept_text              IN            varchar2 DEFAULT hr_api.g_varchar2
318     ,p_reciept_last_updated      IN            date     DEFAULT hr_api.g_date
319     ,p_alt_element_id            IN            number   DEFAULT hr_api.g_number
320     ,p_alt_archive_ref           IN            varchar2 DEFAULT hr_api.g_varchar2
321     ,p_curr_state                IN            varchar2 DEFAULT hr_api.g_varchar2
322     ,p_next_state                IN            varchar2 DEFAULT hr_api.g_varchar2
323     ,p_tfr_information_category  IN            varchar2 DEFAULT hr_api.g_varchar2
324     ,p_tfr_information1          IN            varchar2 DEFAULT hr_api.g_varchar2
325     ,p_tfr_information2          IN            varchar2 DEFAULT hr_api.g_varchar2
326     ,p_tfr_information3          IN            varchar2 DEFAULT hr_api.g_varchar2
327     ,p_tfr_information4          IN            varchar2 DEFAULT hr_api.g_varchar2
328     ,p_tfr_information5          IN            varchar2 DEFAULT hr_api.g_varchar2
329     ,p_tfr_information6          IN            varchar2 DEFAULT hr_api.g_varchar2
330     ,p_tfr_information7          IN            varchar2 DEFAULT hr_api.g_varchar2
331     ,p_tfr_information8          IN            varchar2 DEFAULT hr_api.g_varchar2
332     ,p_tfr_information9          IN            varchar2 DEFAULT hr_api.g_varchar2
333     ,p_tfr_information10         IN            varchar2 DEFAULT hr_api.g_varchar2
334     ,p_tfr_information11         IN            varchar2 DEFAULT hr_api.g_varchar2
335     ,p_tfr_information12         IN            varchar2 DEFAULT hr_api.g_varchar2
336     ,p_tfr_information13         IN            varchar2 DEFAULT hr_api.g_varchar2
337     ,p_tfr_information14         IN            varchar2 DEFAULT hr_api.g_varchar2
338     ,p_tfr_information15         IN            varchar2 DEFAULT hr_api.g_varchar2
339     ,p_tfr_information16         IN            varchar2 DEFAULT hr_api.g_varchar2
340     ,p_tfr_information17         IN            varchar2 DEFAULT hr_api.g_varchar2
341     ,p_tfr_information18         IN            varchar2 DEFAULT hr_api.g_varchar2
342     ,p_tfr_information19         IN            varchar2 DEFAULT hr_api.g_varchar2
343     ,p_tfr_information20         IN            varchar2 DEFAULT hr_api.g_varchar2
344     ,p_validate                  IN            boolean  DEFAULT FALSE) IS
345     l_rec pay_naf_shd.g_rec_type;
346     l_proc varchar2(72) DEFAULT g_package
347                                 || 'upd';
348   BEGIN
349     hr_utility.trace ('start object_version_number:'
350                       || p_object_version_number);
351 
352     l_rec := pay_naf_shd.convert_args (p_transfer_id
353                                       ,p_transfer_status
354                                       ,p_concurrent_request_id
355                                       ,p_payroll_action_id
356                                       ,p_report_name
357                                       ,p_run_effective_date
358                                       ,p_shipment_reference_number
359                                       ,p_organization_id
360                                       ,p_business_group_id
361                                       ,p_reciept_id
362                                       ,p_reciept_status
363                                       ,p_reciept_text
364                                       ,p_reciept_last_updated
365                                       ,p_alt_element_id
366                                       ,p_alt_archive_ref
367                                       ,p_curr_state
368                                       ,p_next_state
369                                       ,p_object_version_number
370                                       ,p_tfr_information_category
371                                       ,p_tfr_information1
372                                       ,p_tfr_information2
373                                       ,p_tfr_information3
374                                       ,p_tfr_information4
375                                       ,p_tfr_information5
376                                       ,p_tfr_information6
377                                       ,p_tfr_information7
378                                       ,p_tfr_information8
379                                       ,p_tfr_information9
380                                       ,p_tfr_information10
381                                       ,p_tfr_information11
382                                       ,p_tfr_information12
383                                       ,p_tfr_information13
384                                       ,p_tfr_information14
385                                       ,p_tfr_information15
386                                       ,p_tfr_information16
387                                       ,p_tfr_information17
388                                       ,p_tfr_information18
389                                       ,p_tfr_information19
390                                       ,p_tfr_information20);
391 
392 
393     upd (l_rec
394         ,p_validate);
395 
396     p_object_version_number := l_rec.object_version_number;
397   END upd;
398 END pay_naf_upd;