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.HRDPP_CREATE_SALARY_BASIS

Source


4  * Generated for API: HR_SALARY_BASIS_API.CREATE_SALARY_BASIS
1 package body hrdpp_CREATE_SALARY_BASIS as
2 /*
3  * Generated by hr_pump_meta_mapper at: 2012/11/27 04:11:00
5  */
6 --
7 dh constant date := hr_api.g_date;
8 nh constant number := hr_api.g_number;
9 vh constant varchar2(64) := hr_api.g_varchar2;
10 c_sot constant date := to_date('01010001','DDMMYYYY');
11 cn constant varchar2(32) := '<NULL>';
12 dn constant date := null;
13 nn constant number := null;
14 vn constant varchar2(1) := null;
15 --
16 function dc(p in date) return varchar2 is
17 begin
18 if p<c_sot then
19  if p<>trunc(p) then
20   return to_char(p,'SYYYY/MM/DD HH24:MI:SS');
21  end if;
22  return to_char(p,'SYYYY/MM/DD');
23 elsif p<>trunc(p) then
24  return to_char(p,'YYYY/MM/DD HH24:MI:SS');
25 end if;
26 return to_char(p,'YYYY/MM/DD');
27 end dc;
28 function d(p in varchar2) return date is
29 begin
30 if length(p)=10 then
31 return to_date(p,'YYYY/MM/DD');
32 elsif length(p)=19 then
33 return to_date(p,'YYYY/MM/DD HH24:MI:SS');
34 elsif length(p)=11 then
35 return to_date(p,'SYYYY/MM/DD');
36 elsif length(p)=20 then
37 return to_date(p,'SYYYY/MM/DD HH24:MI:SS');
38 end if;
39 -- Try default format as last resort.
40 return to_date(p,'YYYY/MM/DD');
41 end d;
42 function n(p in varchar2) return number is
43 begin
44 return to_number(p);
45 end n;
46 function dd(p in date,i in varchar2)
47 return varchar2 is
48 begin
49 if upper(i) = 'N' then return dc(p);
50 else return cn; end if;
51 end dd;
52 function nd(p in number,i in varchar2)
53 return varchar2 is
54 begin
55 if upper(i) = 'N' then return to_char(p);
56 else return cn; end if;
57 end nd;
58 --
59 procedure iuk
60 (p_batch_line_id  in number,
61 p_user_key_value in varchar2,
62 p_unique_key_id  in number)
63 is
64 begin
65 hr_data_pump.entry('ins_user_key');
66 insert into hr_pump_batch_line_user_keys
70 p_batch_line_id,
67 (user_key_id, batch_line_id,user_key_value,unique_key_id)
68 values
69 (hr_pump_batch_line_user_keys_s.nextval,
71 p_user_key_value,
72 p_unique_key_id);
73 hr_data_pump.exit('ins_user_key');
74 end iuk;
75 --
76 procedure insert_batch_lines
77 (p_batch_id      in number
78 ,p_data_pump_batch_line_id in number default null
79 ,p_data_pump_business_grp_name in varchar2 default null
80 ,p_user_sequence in number default null
81 ,p_link_value    in number default null
82 ,P_NAME in varchar2
83 ,P_PAY_BASIS in varchar2
84 ,P_RATE_BASIS in varchar2
85 ,P_PAY_ANNUALIZATION_FACTOR in number default null
86 ,P_GRADE_ANNUALIZATION_FACTOR in number default null
87 ,P_ATTRIBUTE_CATEGORY in varchar2 default null
88 ,P_ATTRIBUTE1 in varchar2 default null
89 ,P_ATTRIBUTE2 in varchar2 default null
90 ,P_ATTRIBUTE3 in varchar2 default null
91 ,P_ATTRIBUTE4 in varchar2 default null
92 ,P_ATTRIBUTE5 in varchar2 default null
93 ,P_ATTRIBUTE6 in varchar2 default null
94 ,P_ATTRIBUTE7 in varchar2 default null
95 ,P_ATTRIBUTE8 in varchar2 default null
96 ,P_ATTRIBUTE9 in varchar2 default null
97 ,P_ATTRIBUTE10 in varchar2 default null
98 ,P_ATTRIBUTE11 in varchar2 default null
99 ,P_ATTRIBUTE12 in varchar2 default null
100 ,P_ATTRIBUTE13 in varchar2 default null
101 ,P_ATTRIBUTE14 in varchar2 default null
102 ,P_ATTRIBUTE15 in varchar2 default null
103 ,P_ATTRIBUTE16 in varchar2 default null
104 ,P_ATTRIBUTE17 in varchar2 default null
105 ,P_ATTRIBUTE18 in varchar2 default null
106 ,P_ATTRIBUTE19 in varchar2 default null
107 ,P_ATTRIBUTE20 in varchar2 default null
108 ,P_LAST_UPDATE_DATE in date default null
109 ,P_LAST_UPDATED_BY in number default null
110 ,P_LAST_UPDATE_LOGIN in number default null
111 ,P_CREATED_BY in number default null
112 ,P_CREATION_DATE in date default null
113 ,P_INFORMATION_CATEGORY in varchar2 default null
114 ,P_INFORMATION1 in varchar2 default null
115 ,P_INFORMATION2 in varchar2 default null
116 ,P_INFORMATION3 in varchar2 default null
117 ,P_INFORMATION4 in varchar2 default null
118 ,P_INFORMATION5 in varchar2 default null
119 ,P_INFORMATION6 in varchar2 default null
120 ,P_INFORMATION7 in varchar2 default null
121 ,P_INFORMATION8 in varchar2 default null
122 ,P_INFORMATION9 in varchar2 default null
123 ,P_INFORMATION10 in varchar2 default null
124 ,P_INFORMATION11 in varchar2 default null
125 ,P_INFORMATION12 in varchar2 default null
126 ,P_INFORMATION13 in varchar2 default null
127 ,P_INFORMATION14 in varchar2 default null
128 ,P_INFORMATION15 in varchar2 default null
129 ,P_INFORMATION16 in varchar2 default null
130 ,P_INFORMATION17 in varchar2 default null
131 ,P_INFORMATION18 in varchar2 default null
132 ,P_INFORMATION19 in varchar2 default null
133 ,P_INFORMATION20 in varchar2 default null
134 ,P_INPUT_VALUE_NAME in varchar2
135 ,P_ELEMENT_NAME in varchar2
136 ,P_EFFECTIVE_DATE in date
137 ,P_LANGUAGE_CODE in varchar2
138 ,P_RATE_NAME in varchar2 default null) is
139 blid number := p_data_pump_batch_line_id;
140 begin
141 if blid is not null then
142 delete from hr_pump_batch_lines where batch_line_id = blid;
143 delete from hr_pump_batch_exceptions
144 where source_type = 'BATCH_LINE' and source_id = blid;
145 end if;
146 insert into hr_pump_batch_lines
147 (batch_id
148 ,batch_line_id
149 ,business_group_name
150 ,api_module_id
151 ,line_status
152 ,user_sequence
153 ,link_value
154 ,pval001
155 ,pval002
156 ,pval003
157 ,pval004
158 ,pval005
159 ,pval006
160 ,pval007
161 ,pval008
162 ,pval009
163 ,pval010
164 ,pval011
165 ,pval012
166 ,pval013
167 ,pval014
168 ,pval015
169 ,pval016
170 ,pval017
171 ,pval018
172 ,pval019
173 ,pval020
174 ,pval021
175 ,pval022
176 ,pval023
177 ,pval024
178 ,pval025
179 ,pval026
180 ,pval027
181 ,pval028
182 ,pval029
183 ,pval030
184 ,pval031
185 ,pval032
186 ,pval033
187 ,pval034
188 ,pval035
189 ,pval036
190 ,pval037
191 ,pval038
192 ,pval039
193 ,pval040
194 ,pval041
195 ,pval042
196 ,pval043
197 ,pval044
198 ,pval045
199 ,pval046
200 ,pval047
201 ,pval048
202 ,pval049
203 ,pval050
204 ,pval051
205 ,pval052
206 ,pval055
207 ,pval056
208 ,pval057
209 ,pval058
210 ,pval059)
211 values
212 (p_batch_id
213 ,nvl(blid,hr_pump_batch_lines_s.nextval)
214 ,p_data_pump_business_grp_name
215 ,2842
216 ,'U'
217 ,p_user_sequence
218 ,p_link_value
219 ,P_NAME
220 ,P_PAY_BASIS
221 ,P_RATE_BASIS
222 ,P_PAY_ANNUALIZATION_FACTOR
223 ,P_GRADE_ANNUALIZATION_FACTOR
224 ,P_ATTRIBUTE_CATEGORY
225 ,P_ATTRIBUTE1
226 ,P_ATTRIBUTE2
227 ,P_ATTRIBUTE3
228 ,P_ATTRIBUTE4
229 ,P_ATTRIBUTE5
230 ,P_ATTRIBUTE6
231 ,P_ATTRIBUTE7
232 ,P_ATTRIBUTE8
233 ,P_ATTRIBUTE9
234 ,P_ATTRIBUTE10
235 ,P_ATTRIBUTE11
236 ,P_ATTRIBUTE12
237 ,P_ATTRIBUTE13
238 ,P_ATTRIBUTE14
239 ,P_ATTRIBUTE15
240 ,P_ATTRIBUTE16
241 ,P_ATTRIBUTE17
242 ,P_ATTRIBUTE18
243 ,P_ATTRIBUTE19
244 ,P_ATTRIBUTE20
245 ,dc(P_LAST_UPDATE_DATE)
246 ,P_LAST_UPDATED_BY
247 ,P_LAST_UPDATE_LOGIN
248 ,P_CREATED_BY
249 ,dc(P_CREATION_DATE)
250 ,P_INFORMATION_CATEGORY
251 ,P_INFORMATION1
252 ,P_INFORMATION2
253 ,P_INFORMATION3
254 ,P_INFORMATION4
255 ,P_INFORMATION5
256 ,P_INFORMATION6
257 ,P_INFORMATION7
258 ,P_INFORMATION8
259 ,P_INFORMATION9
263 ,P_INFORMATION13
260 ,P_INFORMATION10
261 ,P_INFORMATION11
262 ,P_INFORMATION12
264 ,P_INFORMATION14
265 ,P_INFORMATION15
266 ,P_INFORMATION16
267 ,P_INFORMATION17
268 ,P_INFORMATION18
269 ,P_INFORMATION19
270 ,P_INFORMATION20
271 ,P_INPUT_VALUE_NAME
272 ,P_ELEMENT_NAME
273 ,dc(P_EFFECTIVE_DATE)
274 ,P_LANGUAGE_CODE
275 ,P_RATE_NAME);
276 end insert_batch_lines;
277 --
278 procedure call
279 (p_business_group_id in number,
280 p_batch_line_id     in number) is
281 cursor cr is
282 select l.rowid myrowid,
283 decode(l.pval001,cn,vn,l.pval001) p1,
284 decode(l.pval002,cn,vn,l.pval002) p2,
285 decode(l.pval003,cn,vn,l.pval003) p3,
286 decode(l.pval004,cn,nn,vn,nn,n(l.pval004)) p4,
287 l.pval004 d4,
288 decode(l.pval005,cn,nn,vn,nn,n(l.pval005)) p5,
289 l.pval005 d5,
290 decode(l.pval006,cn,vn,vn,vn,l.pval006) p6,
291 l.pval006 d6,
292 decode(l.pval007,cn,vn,vn,vn,l.pval007) p7,
293 l.pval007 d7,
294 decode(l.pval008,cn,vn,vn,vn,l.pval008) p8,
295 l.pval008 d8,
296 decode(l.pval009,cn,vn,vn,vn,l.pval009) p9,
297 l.pval009 d9,
298 decode(l.pval010,cn,vn,vn,vn,l.pval010) p10,
299 l.pval010 d10,
300 decode(l.pval011,cn,vn,vn,vn,l.pval011) p11,
301 l.pval011 d11,
302 decode(l.pval012,cn,vn,vn,vn,l.pval012) p12,
303 l.pval012 d12,
304 decode(l.pval013,cn,vn,vn,vn,l.pval013) p13,
305 l.pval013 d13,
306 decode(l.pval014,cn,vn,vn,vn,l.pval014) p14,
307 l.pval014 d14,
308 decode(l.pval015,cn,vn,vn,vn,l.pval015) p15,
309 l.pval015 d15,
310 decode(l.pval016,cn,vn,vn,vn,l.pval016) p16,
311 l.pval016 d16,
312 decode(l.pval017,cn,vn,vn,vn,l.pval017) p17,
313 l.pval017 d17,
314 decode(l.pval018,cn,vn,vn,vn,l.pval018) p18,
315 l.pval018 d18,
316 decode(l.pval019,cn,vn,vn,vn,l.pval019) p19,
317 l.pval019 d19,
318 decode(l.pval020,cn,vn,vn,vn,l.pval020) p20,
319 l.pval020 d20,
320 decode(l.pval021,cn,vn,vn,vn,l.pval021) p21,
321 l.pval021 d21,
322 decode(l.pval022,cn,vn,vn,vn,l.pval022) p22,
323 l.pval022 d22,
324 decode(l.pval023,cn,vn,vn,vn,l.pval023) p23,
325 l.pval023 d23,
326 decode(l.pval024,cn,vn,vn,vn,l.pval024) p24,
327 l.pval024 d24,
328 decode(l.pval025,cn,vn,vn,vn,l.pval025) p25,
329 l.pval025 d25,
330 decode(l.pval026,cn,vn,vn,vn,l.pval026) p26,
331 l.pval026 d26,
332 decode(l.pval027,cn,dn,vn,dn,d(l.pval027)) p27,
333 l.pval027 d27,
334 decode(l.pval028,cn,nn,vn,nn,n(l.pval028)) p28,
335 l.pval028 d28,
336 decode(l.pval029,cn,nn,vn,nn,n(l.pval029)) p29,
337 l.pval029 d29,
338 decode(l.pval030,cn,nn,vn,nn,n(l.pval030)) p30,
339 l.pval030 d30,
340 decode(l.pval031,cn,dn,vn,dn,d(l.pval031)) p31,
341 l.pval031 d31,
342 decode(l.pval032,cn,vn,vn,vn,l.pval032) p32,
343 l.pval032 d32,
344 decode(l.pval033,cn,vn,vn,vn,l.pval033) p33,
345 l.pval033 d33,
346 decode(l.pval034,cn,vn,vn,vn,l.pval034) p34,
347 l.pval034 d34,
348 decode(l.pval035,cn,vn,vn,vn,l.pval035) p35,
349 l.pval035 d35,
350 decode(l.pval036,cn,vn,vn,vn,l.pval036) p36,
351 l.pval036 d36,
352 decode(l.pval037,cn,vn,vn,vn,l.pval037) p37,
353 l.pval037 d37,
354 decode(l.pval038,cn,vn,vn,vn,l.pval038) p38,
355 l.pval038 d38,
356 decode(l.pval039,cn,vn,vn,vn,l.pval039) p39,
357 l.pval039 d39,
358 decode(l.pval040,cn,vn,vn,vn,l.pval040) p40,
359 l.pval040 d40,
360 decode(l.pval041,cn,vn,vn,vn,l.pval041) p41,
361 l.pval041 d41,
362 decode(l.pval042,cn,vn,vn,vn,l.pval042) p42,
363 l.pval042 d42,
364 decode(l.pval043,cn,vn,vn,vn,l.pval043) p43,
365 l.pval043 d43,
366 decode(l.pval044,cn,vn,vn,vn,l.pval044) p44,
367 l.pval044 d44,
368 decode(l.pval045,cn,vn,vn,vn,l.pval045) p45,
369 l.pval045 d45,
370 decode(l.pval046,cn,vn,vn,vn,l.pval046) p46,
371 l.pval046 d46,
372 decode(l.pval047,cn,vn,vn,vn,l.pval047) p47,
373 l.pval047 d47,
374 decode(l.pval048,cn,vn,vn,vn,l.pval048) p48,
375 l.pval048 d48,
376 decode(l.pval049,cn,vn,vn,vn,l.pval049) p49,
377 l.pval049 d49,
378 decode(l.pval050,cn,vn,vn,vn,l.pval050) p50,
379 l.pval050 d50,
380 decode(l.pval051,cn,vn,vn,vn,l.pval051) p51,
381 l.pval051 d51,
382 decode(l.pval052,cn,vn,vn,vn,l.pval052) p52,
383 l.pval052 d52,
384 l.pval053 p53,
385 l.pval054 p54,
386 decode(l.pval055,cn,vn,l.pval055) p55,
387 decode(l.pval056,cn,vn,l.pval056) p56,
388 decode(l.pval057,cn,dn,d(l.pval057)) p57,
389 decode(l.pval058,cn,vn,l.pval058) p58,
390 decode(l.pval059,cn,vn,vn,vn,l.pval059) p59,
391 l.pval059 d59
392 from hr_pump_batch_lines l
393 where l.batch_line_id = p_batch_line_id;
394 --
395 c cr%rowtype;
396 l_validate boolean := false;
397 L_INPUT_VALUE_ID number;
398 L_RATE_ID number;
399 --
400 begin
401 hr_data_pump.entry('call');
402 open cr;
403 fetch cr into c;
404 if cr%notfound then
405 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
406 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
407 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
408 hr_utility.set_message_token('VALUE',p_batch_line_id);
409 hr_utility.raise_error;
410 end if;
411 --
412 if c.p55 is null or
413 c.p56 is null or
414 c.p57 is null or
415 c.p58 is null then
416 L_INPUT_VALUE_ID:=nn;
417 else
418 L_INPUT_VALUE_ID := 
419 hr_pump_get.get_input_value_id
420 (P_INPUT_VALUE_NAME => c.p55
421 ,P_ELEMENT_NAME => c.p56
422 ,P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
423 ,P_EFFECTIVE_DATE => c.p57
424 ,P_LANGUAGE_CODE => c.p58);
425 end if;
426 --
427 if c.p59 is null then
428 L_RATE_ID:=nn;
429 else
433 ,P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID);
430 L_RATE_ID := 
431 hr_pump_get.get_rate_id
432 (P_RATE_NAME => c.p59
434 end if;
435 --
436 hr_data_pump.api_trc_on;
437 HR_SALARY_BASIS_API.CREATE_SALARY_BASIS
438 (p_validate => l_validate
439 ,p_business_group_id => p_business_group_id
440 ,P_INPUT_VALUE_ID => L_INPUT_VALUE_ID
441 ,P_RATE_ID => L_RATE_ID
442 ,P_NAME => c.p1
443 ,P_PAY_BASIS => c.p2
444 ,P_RATE_BASIS => c.p3
445 ,P_PAY_ANNUALIZATION_FACTOR => c.p4
446 ,P_GRADE_ANNUALIZATION_FACTOR => c.p5
447 ,P_ATTRIBUTE_CATEGORY => c.p6
448 ,P_ATTRIBUTE1 => c.p7
449 ,P_ATTRIBUTE2 => c.p8
450 ,P_ATTRIBUTE3 => c.p9
451 ,P_ATTRIBUTE4 => c.p10
452 ,P_ATTRIBUTE5 => c.p11
453 ,P_ATTRIBUTE6 => c.p12
454 ,P_ATTRIBUTE7 => c.p13
455 ,P_ATTRIBUTE8 => c.p14
456 ,P_ATTRIBUTE9 => c.p15
457 ,P_ATTRIBUTE10 => c.p16
458 ,P_ATTRIBUTE11 => c.p17
459 ,P_ATTRIBUTE12 => c.p18
460 ,P_ATTRIBUTE13 => c.p19
461 ,P_ATTRIBUTE14 => c.p20
462 ,P_ATTRIBUTE15 => c.p21
463 ,P_ATTRIBUTE16 => c.p22
464 ,P_ATTRIBUTE17 => c.p23
465 ,P_ATTRIBUTE18 => c.p24
466 ,P_ATTRIBUTE19 => c.p25
467 ,P_ATTRIBUTE20 => c.p26
468 ,P_LAST_UPDATE_DATE => c.p27
469 ,P_LAST_UPDATED_BY => c.p28
470 ,P_LAST_UPDATE_LOGIN => c.p29
471 ,P_CREATED_BY => c.p30
472 ,P_CREATION_DATE => c.p31
473 ,P_INFORMATION_CATEGORY => c.p32
474 ,P_INFORMATION1 => c.p33
475 ,P_INFORMATION2 => c.p34
476 ,P_INFORMATION3 => c.p35
477 ,P_INFORMATION4 => c.p36
478 ,P_INFORMATION5 => c.p37
479 ,P_INFORMATION6 => c.p38
480 ,P_INFORMATION7 => c.p39
481 ,P_INFORMATION8 => c.p40
482 ,P_INFORMATION9 => c.p41
483 ,P_INFORMATION10 => c.p42
484 ,P_INFORMATION11 => c.p43
485 ,P_INFORMATION12 => c.p44
486 ,P_INFORMATION13 => c.p45
487 ,P_INFORMATION14 => c.p46
488 ,P_INFORMATION15 => c.p47
489 ,P_INFORMATION16 => c.p48
490 ,P_INFORMATION17 => c.p49
491 ,P_INFORMATION18 => c.p50
492 ,P_INFORMATION19 => c.p51
493 ,P_INFORMATION20 => c.p52
494 ,P_PAY_BASIS_ID => c.p53
495 ,P_OBJECT_VERSION_NUMBER => c.p54);
496 hr_data_pump.api_trc_off;
497 
498 --
499 update hr_pump_batch_lines l set
500 l.pval053 = decode(c.p53,null,cn,c.p53),
501 l.pval054 = decode(c.p54,null,cn,c.p54)
502 where l.rowid = c.myrowid;
503 --
504 close cr;
505 --
506 hr_data_pump.exit('call');
507 exception
508  when hr_multi_message.error_message_exist then
509    if cr%isopen then
510     close cr;
511    end if;
512    hr_pump_utils.set_multi_msg_error_flag(true);
513  when others then
514  if cr%isopen then
515   close cr;
516  end if;
517  raise;
518 end call;
519 end hrdpp_CREATE_SALARY_BASIS;