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_PROCESSED_ASSIGNM

Source


1 package body hrdpp_CREATE_PROCESSED_ASSIGNM as
2 /*
3  * Generated by hr_pump_meta_mapper at: 2007/01/03 23:01:55
4  * Generated for API: PER_BF_PROC_ASSIGNMENT_API.CREATE_PROCESSED_ASSIGNMENT
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
67 (user_key_id, batch_line_id,user_key_value,unique_key_id)
68 values
69 (hr_pump_batch_line_user_keys_s.nextval,
70 p_batch_line_id,
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_EFFECTIVE_DATE in date
83 ,P_BPA_ATTRIBUTE_CATEGORY in varchar2 default null
84 ,P_BPA_ATTRIBUTE1 in varchar2 default null
85 ,P_BPA_ATTRIBUTE2 in varchar2 default null
86 ,P_BPA_ATTRIBUTE3 in varchar2 default null
87 ,P_BPA_ATTRIBUTE4 in varchar2 default null
88 ,P_BPA_ATTRIBUTE5 in varchar2 default null
89 ,P_BPA_ATTRIBUTE6 in varchar2 default null
90 ,P_BPA_ATTRIBUTE7 in varchar2 default null
91 ,P_BPA_ATTRIBUTE8 in varchar2 default null
92 ,P_BPA_ATTRIBUTE9 in varchar2 default null
93 ,P_BPA_ATTRIBUTE10 in varchar2 default null
94 ,P_BPA_ATTRIBUTE11 in varchar2 default null
95 ,P_BPA_ATTRIBUTE12 in varchar2 default null
96 ,P_BPA_ATTRIBUTE13 in varchar2 default null
97 ,P_BPA_ATTRIBUTE14 in varchar2 default null
98 ,P_BPA_ATTRIBUTE15 in varchar2 default null
99 ,P_BPA_ATTRIBUTE16 in varchar2 default null
100 ,P_BPA_ATTRIBUTE17 in varchar2 default null
101 ,P_BPA_ATTRIBUTE18 in varchar2 default null
102 ,P_BPA_ATTRIBUTE19 in varchar2 default null
103 ,P_BPA_ATTRIBUTE20 in varchar2 default null
104 ,P_BPA_ATTRIBUTE21 in varchar2 default null
105 ,P_BPA_ATTRIBUTE22 in varchar2 default null
106 ,P_BPA_ATTRIBUTE23 in varchar2 default null
107 ,P_BPA_ATTRIBUTE24 in varchar2 default null
108 ,P_BPA_ATTRIBUTE25 in varchar2 default null
109 ,P_BPA_ATTRIBUTE26 in varchar2 default null
110 ,P_BPA_ATTRIBUTE27 in varchar2 default null
111 ,P_BPA_ATTRIBUTE28 in varchar2 default null
112 ,P_BPA_ATTRIBUTE29 in varchar2 default null
113 ,P_BPA_ATTRIBUTE30 in varchar2 default null
114 ,P_EMPLOYEE_NUMBER in varchar2
115 ,P_PAYROLL_RUN_USER_KEY in varchar2) is
116 blid number := p_data_pump_batch_line_id;
117 begin
118 if blid is not null then
119 delete from hr_pump_batch_lines where batch_line_id = blid;
120 delete from hr_pump_batch_exceptions
121 where source_type = 'BATCH_LINE' and source_id = blid;
122 end if;
123 insert into hr_pump_batch_lines
124 (batch_id
125 ,batch_line_id
126 ,business_group_name
127 ,api_module_id
128 ,line_status
129 ,user_sequence
130 ,link_value
131 ,pval001
132 ,pval002
133 ,pval003
134 ,pval004
135 ,pval005
136 ,pval006
137 ,pval007
138 ,pval008
139 ,pval009
140 ,pval010
141 ,pval011
142 ,pval012
143 ,pval013
144 ,pval014
145 ,pval015
146 ,pval016
147 ,pval017
148 ,pval018
149 ,pval019
150 ,pval020
151 ,pval021
152 ,pval022
153 ,pval023
154 ,pval024
155 ,pval025
156 ,pval026
157 ,pval027
158 ,pval028
159 ,pval029
160 ,pval030
161 ,pval031
162 ,pval032
163 ,pval035
164 ,pval036)
165 values
166 (p_batch_id
167 ,nvl(blid,hr_pump_batch_lines_s.nextval)
168 ,p_data_pump_business_grp_name
169 ,2221
170 ,'U'
171 ,p_user_sequence
172 ,p_link_value
173 ,dc(P_EFFECTIVE_DATE)
174 ,P_BPA_ATTRIBUTE_CATEGORY
175 ,P_BPA_ATTRIBUTE1
176 ,P_BPA_ATTRIBUTE2
177 ,P_BPA_ATTRIBUTE3
178 ,P_BPA_ATTRIBUTE4
179 ,P_BPA_ATTRIBUTE5
180 ,P_BPA_ATTRIBUTE6
181 ,P_BPA_ATTRIBUTE7
182 ,P_BPA_ATTRIBUTE8
183 ,P_BPA_ATTRIBUTE9
184 ,P_BPA_ATTRIBUTE10
185 ,P_BPA_ATTRIBUTE11
186 ,P_BPA_ATTRIBUTE12
187 ,P_BPA_ATTRIBUTE13
188 ,P_BPA_ATTRIBUTE14
189 ,P_BPA_ATTRIBUTE15
190 ,P_BPA_ATTRIBUTE16
191 ,P_BPA_ATTRIBUTE17
192 ,P_BPA_ATTRIBUTE18
193 ,P_BPA_ATTRIBUTE19
194 ,P_BPA_ATTRIBUTE20
195 ,P_BPA_ATTRIBUTE21
196 ,P_BPA_ATTRIBUTE22
197 ,P_BPA_ATTRIBUTE23
198 ,P_BPA_ATTRIBUTE24
199 ,P_BPA_ATTRIBUTE25
200 ,P_BPA_ATTRIBUTE26
201 ,P_BPA_ATTRIBUTE27
202 ,P_BPA_ATTRIBUTE28
203 ,P_BPA_ATTRIBUTE29
204 ,P_BPA_ATTRIBUTE30
205 ,P_EMPLOYEE_NUMBER
206 ,P_PAYROLL_RUN_USER_KEY);
207 end insert_batch_lines;
208 --
209 procedure call
210 (p_business_group_id in number,
211 p_batch_line_id     in number) is
212 cursor cr is
213 select l.rowid myrowid,
214 decode(l.pval001,cn,dn,d(l.pval001)) p1,
215 decode(l.pval002,cn,vn,vn,vn,l.pval002) p2,
216 l.pval002 d2,
217 decode(l.pval003,cn,vn,vn,vn,l.pval003) p3,
218 l.pval003 d3,
219 decode(l.pval004,cn,vn,vn,vn,l.pval004) p4,
220 l.pval004 d4,
221 decode(l.pval005,cn,vn,vn,vn,l.pval005) p5,
222 l.pval005 d5,
223 decode(l.pval006,cn,vn,vn,vn,l.pval006) p6,
224 l.pval006 d6,
225 decode(l.pval007,cn,vn,vn,vn,l.pval007) p7,
226 l.pval007 d7,
227 decode(l.pval008,cn,vn,vn,vn,l.pval008) p8,
228 l.pval008 d8,
229 decode(l.pval009,cn,vn,vn,vn,l.pval009) p9,
230 l.pval009 d9,
231 decode(l.pval010,cn,vn,vn,vn,l.pval010) p10,
232 l.pval010 d10,
233 decode(l.pval011,cn,vn,vn,vn,l.pval011) p11,
234 l.pval011 d11,
235 decode(l.pval012,cn,vn,vn,vn,l.pval012) p12,
236 l.pval012 d12,
237 decode(l.pval013,cn,vn,vn,vn,l.pval013) p13,
238 l.pval013 d13,
239 decode(l.pval014,cn,vn,vn,vn,l.pval014) p14,
240 l.pval014 d14,
241 decode(l.pval015,cn,vn,vn,vn,l.pval015) p15,
242 l.pval015 d15,
243 decode(l.pval016,cn,vn,vn,vn,l.pval016) p16,
244 l.pval016 d16,
245 decode(l.pval017,cn,vn,vn,vn,l.pval017) p17,
246 l.pval017 d17,
247 decode(l.pval018,cn,vn,vn,vn,l.pval018) p18,
248 l.pval018 d18,
249 decode(l.pval019,cn,vn,vn,vn,l.pval019) p19,
250 l.pval019 d19,
251 decode(l.pval020,cn,vn,vn,vn,l.pval020) p20,
252 l.pval020 d20,
253 decode(l.pval021,cn,vn,vn,vn,l.pval021) p21,
254 l.pval021 d21,
255 decode(l.pval022,cn,vn,vn,vn,l.pval022) p22,
256 l.pval022 d22,
257 decode(l.pval023,cn,vn,vn,vn,l.pval023) p23,
258 l.pval023 d23,
259 decode(l.pval024,cn,vn,vn,vn,l.pval024) p24,
260 l.pval024 d24,
261 decode(l.pval025,cn,vn,vn,vn,l.pval025) p25,
262 l.pval025 d25,
263 decode(l.pval026,cn,vn,vn,vn,l.pval026) p26,
264 l.pval026 d26,
265 decode(l.pval027,cn,vn,vn,vn,l.pval027) p27,
266 l.pval027 d27,
267 decode(l.pval028,cn,vn,vn,vn,l.pval028) p28,
268 l.pval028 d28,
269 decode(l.pval029,cn,vn,vn,vn,l.pval029) p29,
270 l.pval029 d29,
271 decode(l.pval030,cn,vn,vn,vn,l.pval030) p30,
272 l.pval030 d30,
273 decode(l.pval031,cn,vn,vn,vn,l.pval031) p31,
274 l.pval031 d31,
275 decode(l.pval032,cn,vn,vn,vn,l.pval032) p32,
276 l.pval032 d32,
277 l.pval033 p33,
278 l.pval034 p34,
279 decode(l.pval035,cn,vn,l.pval035) p35,
280 decode(l.pval036,cn,vn,l.pval036) p36
281 from hr_pump_batch_lines l
282 where l.batch_line_id = p_batch_line_id;
283 --
284 c cr%rowtype;
285 l_validate boolean := false;
286 L_ASSIGNMENT_ID number;
287 L_PAYROLL_RUN_ID number;
288 --
289 begin
290 hr_data_pump.entry('call');
291 open cr;
292 fetch cr into c;
293 if cr%notfound then
294 hr_utility.set_message(800,'HR_50326_DP_NO_ROW');
295 hr_utility.set_message_token('TABLE','HR_PUMP_BATCH_LINES');
296 hr_utility.set_message_token('COLUMN','P_BATCH_LINE_ID');
297 hr_utility.set_message_token('VALUE',p_batch_line_id);
298 hr_utility.raise_error;
299 end if;
300 --
301 if c.p35 is null or
302 c.p1 is null then
303 L_ASSIGNMENT_ID:=nn;
304 else
305 L_ASSIGNMENT_ID := 
306 PER_BF_GEN_DATA_PUMP.get_assignment_id
307 (P_EMPLOYEE_NUMBER => c.p35
308 ,P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID
309 ,P_EFFECTIVE_DATE => c.p1);
310 end if;
311 --
312 if c.p36 is null then
313 L_PAYROLL_RUN_ID:=nn;
314 else
315 L_PAYROLL_RUN_ID := 
316 PER_BF_GEN_DATA_PUMP.get_payroll_run_id
317 (P_PAYROLL_RUN_USER_KEY => c.p36);
318 end if;
319 --
320 hr_data_pump.api_trc_on;
321 PER_BF_PROC_ASSIGNMENT_API.CREATE_PROCESSED_ASSIGNMENT
322 (p_validate => l_validate
323 ,P_EFFECTIVE_DATE => c.p1
324 ,P_ASSIGNMENT_ID => L_ASSIGNMENT_ID
325 ,P_PAYROLL_RUN_ID => L_PAYROLL_RUN_ID
326 ,P_BPA_ATTRIBUTE_CATEGORY => c.p2
327 ,P_BPA_ATTRIBUTE1 => c.p3
328 ,P_BPA_ATTRIBUTE2 => c.p4
329 ,P_BPA_ATTRIBUTE3 => c.p5
330 ,P_BPA_ATTRIBUTE4 => c.p6
331 ,P_BPA_ATTRIBUTE5 => c.p7
332 ,P_BPA_ATTRIBUTE6 => c.p8
333 ,P_BPA_ATTRIBUTE7 => c.p9
334 ,P_BPA_ATTRIBUTE8 => c.p10
335 ,P_BPA_ATTRIBUTE9 => c.p11
336 ,P_BPA_ATTRIBUTE10 => c.p12
337 ,P_BPA_ATTRIBUTE11 => c.p13
338 ,P_BPA_ATTRIBUTE12 => c.p14
339 ,P_BPA_ATTRIBUTE13 => c.p15
340 ,P_BPA_ATTRIBUTE14 => c.p16
341 ,P_BPA_ATTRIBUTE15 => c.p17
342 ,P_BPA_ATTRIBUTE16 => c.p18
343 ,P_BPA_ATTRIBUTE17 => c.p19
344 ,P_BPA_ATTRIBUTE18 => c.p20
345 ,P_BPA_ATTRIBUTE19 => c.p21
346 ,P_BPA_ATTRIBUTE20 => c.p22
347 ,P_BPA_ATTRIBUTE21 => c.p23
348 ,P_BPA_ATTRIBUTE22 => c.p24
349 ,P_BPA_ATTRIBUTE23 => c.p25
350 ,P_BPA_ATTRIBUTE24 => c.p26
351 ,P_BPA_ATTRIBUTE25 => c.p27
352 ,P_BPA_ATTRIBUTE26 => c.p28
353 ,P_BPA_ATTRIBUTE27 => c.p29
354 ,P_BPA_ATTRIBUTE28 => c.p30
355 ,P_BPA_ATTRIBUTE29 => c.p31
356 ,P_BPA_ATTRIBUTE30 => c.p32
357 ,P_PROCESSED_ASSIGNMENT_ID => c.p33
358 ,P_PROCESSED_ASSIGNMENT_OVN => c.p34);
359 hr_data_pump.api_trc_off;
360 
361 --
362 update hr_pump_batch_lines l set
363 l.pval033 = decode(c.p33,null,cn,c.p33),
364 l.pval034 = decode(c.p34,null,cn,c.p34)
365 where l.rowid = c.myrowid;
366 --
367 close cr;
368 --
369 hr_data_pump.exit('call');
370 exception
371  when hr_multi_message.error_message_exist then
372    if cr%isopen then
373     close cr;
374    end if;
375    hr_pump_utils.set_multi_msg_error_flag(true);
376  when others then
377  if cr%isopen then
378   close cr;
379  end if;
380  raise;
381 end call;
382 end hrdpp_CREATE_PROCESSED_ASSIGNM;