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:'
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
79: END IF;
80:
81: IF (p_rec.tfr_information1 = hr_api.g_varchar2) THEN
82: p_rec.tfr_information1 := pay_naf_shd.g_old_rec.tfr_information1;
78: p_rec.next_state := pay_naf_shd.g_old_rec.next_state;
79: END IF;
80:
81: IF (p_rec.tfr_information1 = hr_api.g_varchar2) THEN
82: p_rec.tfr_information1 := pay_naf_shd.g_old_rec.tfr_information1;
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;
82: p_rec.tfr_information1 := pay_naf_shd.g_old_rec.tfr_information1;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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:'
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:'
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: || '-'
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:'
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
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);
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:'
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