[Home] [Help]
PACKAGE BODY: APPS.PAY_NAF_INS
Source
1 PACKAGE BODY pay_naf_ins
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_ins.';
6
7 PROCEDURE pre_insert
8 (p_rec IN OUT NOCOPY pay_naf_shd.g_rec_type) IS
9 l_proc varchar2(72) DEFAULT g_package
10 || 'pre_insert';
11 CURSOR c_seq IS
12 SELECT pay_no_altinn_transfers_s.nextval
13 FROM sys.dual;
14 BEGIN
15 hr_utility.set_location ('Entering:'
16 || l_proc
17 ,5);
18
19 OPEN c_seq;
20
21 FETCH c_seq
22 INTO p_rec.transfer_id;
23
24 CLOSE c_seq;
25
26 hr_utility.set_location (' Leaving:'
27 || l_proc
28 ,10);
29 END pre_insert;
30
31 PROCEDURE post_insert
32 (p_rec IN pay_naf_shd.g_rec_type) IS
33 l_proc varchar2(72) DEFAULT g_package
34 || 'post_insert';
35 BEGIN
36 hr_utility.set_location ('Entering:'
37 || l_proc
38 ,5);
39
40 hr_utility.set_location (' Leaving:'
41 || l_proc
42 ,10);
43 END post_insert;
44
45 PROCEDURE insert_dml
46 (p_rec IN OUT NOCOPY pay_naf_shd.g_rec_type) IS
47 l_proc varchar2(72) DEFAULT g_package
48 || 'insert_dml';
49 BEGIN
50 hr_utility.set_location ('Entering:'
51 || l_proc
52 ,5);
53
54 p_rec.object_version_number := 1;
55
56 pay_naf_shd.g_api_dml := TRUE;
57
58 INSERT
59 INTO pay_no_altinn_transfers
60 (transfer_id
61 ,transfer_status
62 ,concurrent_request_id
63 ,payroll_action_id
64 ,report_name
65 ,run_effective_date
66 ,shipment_reference
67 ,organization_id
68 ,business_group_id
69 ,receipt_id
70 ,receipt_status
71 ,receipt_text
72 ,receipt_last_updated
73 ,alt_element_id
74 ,alt_archive_ref
75 ,curr_state
76 ,next_state
77 ,object_version_number
78 ,tfr_information_category
79 ,tfr_information1
80 ,tfr_information2
81 ,tfr_information3
82 ,tfr_information4
83 ,tfr_information5
84 ,tfr_information6
85 ,tfr_information7
86 ,tfr_information8
87 ,tfr_information9
88 ,tfr_information10
89 ,tfr_information11
90 ,tfr_information12
91 ,tfr_information13
92 ,tfr_information14
93 ,tfr_information15
94 ,tfr_information16
95 ,tfr_information17
96 ,tfr_information18
97 ,tfr_information19
98 ,tfr_information20)
99 VALUES
100 (p_rec.transfer_id
101 ,p_rec.transfer_status
102 ,p_rec.concurrent_request_id
103 ,p_rec.payroll_action_id
104 ,p_rec.report_name
105 ,p_rec.run_effective_date
106 ,p_rec.shipment_reference
107 ,p_rec.organization_id
108 ,p_rec.business_group_id
109 ,p_rec.receipt_id
110 ,p_rec.receipt_status
111 ,p_rec.receipt_text
112 ,p_rec.receipt_last_updated
113 ,p_rec.alt_element_id
114 ,p_rec.alt_archive_ref
115 ,p_rec.curr_state
116 ,p_rec.next_state
117 ,p_rec.object_version_number
118 ,p_rec.tfr_information_category
119 ,p_rec.tfr_information1
120 ,p_rec.tfr_information2
121 ,p_rec.tfr_information3
122 ,p_rec.tfr_information4
123 ,p_rec.tfr_information5
124 ,p_rec.tfr_information6
125 ,p_rec.tfr_information7
126 ,p_rec.tfr_information8
127 ,p_rec.tfr_information9
128 ,p_rec.tfr_information10
129 ,p_rec.tfr_information11
130 ,p_rec.tfr_information12
131 ,p_rec.tfr_information13
132 ,p_rec.tfr_information14
133 ,p_rec.tfr_information15
134 ,p_rec.tfr_information16
135 ,p_rec.tfr_information17
136 ,p_rec.tfr_information18
137 ,p_rec.tfr_information19
138 ,p_rec.tfr_information20);
139
140 pay_naf_shd.g_api_dml := FALSE;
141
142 hr_utility.set_location (' Leaving:'
143 || l_proc
144 ,10);
145 END insert_dml;
146
147 PROCEDURE ins
148 (p_rec IN OUT NOCOPY pay_naf_shd.g_rec_type
149 ,p_validate IN boolean DEFAULT FALSE) IS
150 l_proc varchar2(72) DEFAULT g_package
151 || 'ins.';
152 BEGIN
153 hr_utility.set_location ('Entering:'
154 || l_proc
155 ,5);
156
157 IF p_validate THEN
158 SAVEPOINT ins_naf_shd;
159 END IF;
160
161 pay_naf_bus.insert_validate (p_rec);
162
163 pre_insert (p_rec);
164
165 insert_dml (p_rec);
166
167 post_insert (p_rec);
168
169 IF p_validate THEN
170 RAISE hr_api.validate_enabled;
171 END IF;
172
173 hr_utility.set_location (' Leaving:'
174 || l_proc
175 ,10);
176 END ins;
177
178 PROCEDURE ins
179 (p_transfer_id OUT NOCOPY number
180 ,p_object_version_number OUT NOCOPY number
181 ,p_transfer_status IN varchar2
182 ,p_concurrent_request_id IN number
183 ,p_payroll_action_id IN number
184 ,p_report_name IN varchar2
185 ,p_run_effective_date IN date
186 ,p_shipment_reference_number IN varchar2 DEFAULT NULL
187 ,p_organization_id IN number
188 ,p_business_group_id IN number
189 ,p_reciept_id IN number DEFAULT NULL
190 ,p_reciept_status IN varchar2 DEFAULT NULL
191 ,p_reciept_text IN varchar2 DEFAULT NULL
192 ,p_reciept_last_updated IN date DEFAULT NULL
193 ,p_alt_element_id IN number DEFAULT NULL
194 ,p_alt_archive_referencce IN varchar2 DEFAULT NULL
195 ,p_curr_state IN varchar2 DEFAULT NULL
196 ,p_next_state IN varchar2 DEFAULT NULL
197 ,p_tfr_information_category IN varchar2 DEFAULT NULL
198 ,p_tfr_information1 IN varchar2 DEFAULT NULL
199 ,p_tfr_information2 IN varchar2 DEFAULT NULL
200 ,p_tfr_information3 IN varchar2 DEFAULT NULL
201 ,p_tfr_information4 IN varchar2 DEFAULT NULL
202 ,p_tfr_information5 IN varchar2 DEFAULT NULL
203 ,p_tfr_information6 IN varchar2 DEFAULT NULL
204 ,p_tfr_information7 IN varchar2 DEFAULT NULL
205 ,p_tfr_information8 IN varchar2 DEFAULT NULL
206 ,p_tfr_information9 IN varchar2 DEFAULT NULL
207 ,p_tfr_information10 IN varchar2 DEFAULT NULL
208 ,p_tfr_information11 IN varchar2 DEFAULT NULL
209 ,p_tfr_information12 IN varchar2 DEFAULT NULL
210 ,p_tfr_information13 IN varchar2 DEFAULT NULL
211 ,p_tfr_information14 IN varchar2 DEFAULT NULL
212 ,p_tfr_information15 IN varchar2 DEFAULT NULL
213 ,p_tfr_information16 IN varchar2 DEFAULT NULL
214 ,p_tfr_information17 IN varchar2 DEFAULT NULL
215 ,p_tfr_information18 IN varchar2 DEFAULT NULL
216 ,p_tfr_information19 IN varchar2 DEFAULT NULL
217 ,p_tfr_information20 IN varchar2 DEFAULT NULL
218 ,p_validate IN boolean DEFAULT FALSE) IS
219 l_rec pay_naf_shd.g_rec_type;
220 l_proc varchar2(72) DEFAULT g_package
221 || 'ins';
222 BEGIN
223 hr_utility.set_location ('Entering:'
224 || l_proc
225 ,5);
226
227 l_rec := pay_naf_shd.convert_args (NULL
228 ,p_transfer_status
229 ,p_concurrent_request_id
230 ,p_payroll_action_id
231 ,p_report_name
232 ,p_run_effective_date
233 ,p_shipment_reference_number
234 ,p_organization_id
235 ,p_business_group_id
236 ,p_reciept_id
237 ,p_reciept_status
238 ,p_reciept_text
239 ,p_reciept_last_updated
240 ,p_alt_element_id
241 ,p_alt_archive_referencce
242 ,p_curr_state
243 ,p_next_state
244 ,p_object_version_number
245 ,p_tfr_information_category
246 ,p_tfr_information1
247 ,p_tfr_information2
248 ,p_tfr_information3
249 ,p_tfr_information4
250 ,p_tfr_information5
251 ,p_tfr_information6
252 ,p_tfr_information7
253 ,p_tfr_information8
254 ,p_tfr_information9
255 ,p_tfr_information10
256 ,p_tfr_information11
257 ,p_tfr_information12
258 ,p_tfr_information13
259 ,p_tfr_information14
260 ,p_tfr_information5
261 ,p_tfr_information16
262 ,p_tfr_information17
263 ,p_tfr_information18
264 ,p_tfr_information19
265 ,p_tfr_information20);
266
267 ins (l_rec
268 ,p_validate);
269
270 p_transfer_id := l_rec.transfer_id;
271
272 p_object_version_number := l_rec.object_version_number;
273
274 hr_utility.set_location (' Leaving:'
275 || l_proc
276 ,10);
277 END ins;
278 END pay_naf_ins;