[Home] [Help]
PACKAGE BODY: APPS.BEN_DM_DATA_UTIL
Source
1 PACKAGE BODY ben_dm_data_util AS
2 /* $Header: benfdmdutl.pkb 120.0 2006/05/04 04:38:10 nkkrishn noship $ */
3 g_package varchar2(100) := 'ben_dm_data_util.' ;
4 g_group_tab charTab;
5
6
7
8 g_status varchar2(50);
9 g_industry varchar2(50);
10 g_per_owner varchar2(30);
11 g_ben_owner varchar2(30);
12 g_pay_owner varchar2(30);
13 g_ff_owner varchar2(30);
14 g_fnd_owner varchar2(30);
15 g_apps_owner varchar2(30);
16
17 g_prev_group_order number;
18 g_prev_line_text varchar2(32767);
19
20 l_ret1 boolean := FND_INSTALLATION.GET_APP_INFO ('PAY', g_status,g_industry, g_pay_owner);
21 l_ret2 boolean := FND_INSTALLATION.GET_APP_INFO ('BEN', g_status,g_industry, g_ben_owner);
22 l_ret3 boolean := FND_INSTALLATION.GET_APP_INFO ('FF', g_status,g_industry, g_ff_owner);
23 l_ret4 boolean := FND_INSTALLATION.GET_APP_INFO ('FND', g_status,g_industry, g_fnd_owner);
24 l_ret5 boolean := FND_INSTALLATION.GET_APP_INFO ('PER', g_status,g_industry, g_per_owner);
25 l_ret6 boolean := FND_INSTALLATION.GET_APP_INFO ('APPS',g_status,g_industry, g_apps_owner);
26
27 --
28 ------------------------- get_mapping_target -----------------------------------
29 -- This procedure get the target id for the mapping_id
30 --
31 --------------------------------------------------------------------------------
32 function get_mapping_target(
33 p_resolve_mapping_id in NUMBER
34 ) return number as
35
36
37 l_proc varchar2(75) ;
38
39 cursor c1 is
40 select target_id
41 from ben_dm_resolve_mappings bdm
42 where resolve_mapping_id = p_resolve_mapping_id
43 ;
44 l_target_id number ;
45 begin
46
47 l_proc := g_package || 'get_mapping_target' ;
48 hr_utility.set_location('Entering:'||l_proc, 5);
49 open c1 ;
50 fetch c1 into l_target_id ;
51 if c1%notfound then
52 close c1 ;
53 fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
54 fnd_message.raise_error;
55 end if ;
56 close c1 ;
57 return l_target_id ;
58 hr_utility.set_location(' Leaving:'||l_proc, 10);
59 Exception
60 when others then
61 hr_utility.set_location(' exception :'||substr(sqlerrm ,1, 100), 30);
62 ben_dm_utility.message('INFO',' get_mapping_target ' || substr(sqlerrm ,1, 100) ,140);
63 raise ;
64 End get_mapping_target ;
65
66 -------------------------------- get_mapping_target ------------------------
67 -- this procedure called from upload package to find the target_id for
68 -- the foreign keys this procedure called with
69 -- p_table_name = ben_dm_hierarchies.parent_table_name
70 -- p_source_id = ben_dm_hierarchies.column_name value
71 -- p_source_column = ben_dm_hierarchies.parent_id_column_name
72 -- p_business_group_name = target business group name
73 -- when the hierarchy type is 'S' this procedure is called
74 ----------------------------------------------------------------------------
75 function get_mapping_target(p_table_name in varchar2
76 ,p_source_id in number
77 ,p_source_column in varchar2
78 ,p_business_group_name in varchar2
79 ) return number as
80
81
82 l_proc varchar2(75) ;
83
84
85
86 l_target_id number ;
87 l_key varchar2(255);
88
89
90 cursor c1 is
91 select target_id
92 from ben_dm_resolve_mappings bdm
93 where table_name = p_table_name
94 and column_name = p_source_column
95 and source_id = p_source_id
96 ;
97
98
99 begin
100
101 l_proc := g_package || 'get_mapping_target' ;
102 hr_utility.set_location('Entering:'||l_proc, 5);
103
104 if p_source_id = hr_api.g_number then
105 return p_source_id ;
106 end if ;
107
108 l_key := p_table_name||','||p_source_column||','||p_source_id||','||p_business_group_name;
109 if g_fk_maping_tbl.exists(l_key) then
110 l_target_id := g_fk_maping_tbl(l_key);
111 end if;
112
113 if l_target_id is null then
114 hr_utility.set_location('Target Id not found for : ' ||p_table_name||'.'||p_source_column||
115 '.'||p_source_id , 5);
116 ben_dm_utility.message('INFO',' Target ID Error ' ||p_table_name||'.'||p_source_column||
117 '.'||p_source_id ,5) ;
118 fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
119 fnd_message.raise_error;
120
121 end if ;
122
123
124 hr_utility.set_location(' Leaving:'||l_proc, 10);
125 Return l_target_id ;
126
127 Exception
128 when others then
129 hr_utility.set_location(' exception :'||substr(sqlerrm ,1, 100), 30);
130 ben_dm_utility.message('INFO',' get_mapping_target ' || substr(sqlerrm ,1, 100) ,140);
131 raise ;
132 End get_mapping_target ;
133
134 -------------------------------- get_cache_target ------------------------
135 -- this procedure called from upload package to find the target_id for
136 -- the foreign keys this procedure called with
137 -- p_table_name = ben_dm_hierarchies.parent_table_name
138 -- p_source_id = ben_dm_hierarchies.column_name value
139 -- p_source_column = ben_dm_hierarchies.parent_id_column_name
140 -- p_business_group_name = target business group name
141 -- when the hierarchy type is not 'S' and the key is not in cache dont error
142 -- the key may be created later - some special procedure will take care of it
143 ----------------------------------------------------------------------------
144 function get_cache_target(p_table_name in varchar2
145 ,p_source_id in number
146 ,p_source_column in varchar2
147 ,p_business_group_name in varchar2
148 ) return number as
149
150
151 l_proc varchar2(75) ;
152
153
154 l_target_id number ;
155 l_key varchar2(255);
156
157
158 begin
159
160 l_proc := g_package || 'get_cache_target' ;
161
162 l_target_id := p_source_id ;
163 l_key := p_table_name||','||p_source_column||','||p_source_id||','||p_business_group_name;
164
165 if g_pk_maping_tbl.exists(l_key) then
166 l_target_id := g_pk_maping_tbl(l_key);
167 end if;
168 hr_utility.set_location('new id :'|| l_target_id , 5);
169
170 Return l_target_id ;
171
172 Exception
173 when others then
174 hr_utility.set_location(' exception :'||substr(sqlerrm , 1,100), 30);
175 ben_dm_utility.message('INFO',' get_cache_target ' || substr(sqlerrm ,1, 100) ,140);
176 raise ;
177 End get_cache_target ;
178
179 ------------------------------------- create_pk_cache ------------------------
180 -- This procedure called from upload pakcakged
181 -- this is always called while creating the PK so the existence id not validated
182 -- p_target_id = person_id values created to insert
183 -- p_table_name = 'PER_ALL_PEOPLE_F'
184 -- p_source_id = person_id from the souce instance
185 -- p_source_column = 'PERSON_ID'
186 -- p_business_group_name = target business group name
187 --------------------------------------------------------------------------------
188 procedure create_pk_cache ( p_target_id in number
189 ,p_table_name in varchar2
190 ,p_source_id in number
191 ,p_source_column in varchar2
192 ,p_business_group_name in varchar2
193 ) is
194
195
196 l_number number ;
197 l_key varchar2(255);
198 l_proc varchar2(75) ;
199 Begin
200 l_proc := g_package||'create_pk_cache' ;
201 hr_utility.set_location(' Entering:'||l_proc, 10);
202
203
204 hr_utility.set_location('table :'||p_table_name , 5);
205 hr_utility.set_location('column :'||p_source_column , 5);
206 hr_utility.set_location('old id :'||p_source_id , 5);
207 hr_utility.set_location('new id :'||p_target_id , 5);
208 hr_utility.set_location('bg :'||p_business_group_name , 5);
209
210 l_key := p_table_name||','||p_source_column||','||p_source_id||','||p_business_group_name;
211
212 g_pk_maping_tbl(l_key) := p_target_id ;
213
214 hr_utility.set_location(' Leaving:'||l_proc, 10);
215 End ;
216
217 ------------------------------------- create_fk_cache ------------------------
218 --- This procedure called from upload master package
219 --- this load the fk target information into cache
220 -----------------------------------------------------------------------------------
221 procedure create_fk_cache is
222
223
224 l_number number ;
225 l_proc varchar2(75) ;
226 l_key varchar2(255);
227
228 cursor c1 is
229 select target_id,
230 table_name,
231 source_id,
232 column_name,
233 business_group_name
234 from ben_dm_resolve_mappings
235 where target_id is not null
236 ;
237 Begin
238 l_proc := g_package||'create_fk_cache' ;
239 hr_utility.set_location(' Entering:'||l_proc, 10);
240
241
242 g_fk_maping_tbl.delete ;
243 l_number := 1 ;
244
245 for i in c1
246 Loop
247
248 l_key := i.table_name||','||i.column_name||','||i.source_id||','||i.business_group_name;
249 g_fk_maping_tbl(l_key) := i.target_id ;
250 End Loop ;
251
252 hr_utility.set_location(' Leaving:'||l_proc, 10);
253 End ;
254 -------------------------------- update_pk_mapping ---------------------------
255 -- This procedure update the target_id into ben_resolve_mappings
256 -- this can be called with three type of parameter set
257 -- 1
258 -- p_resolve_mapping_id = resolve mapping table id
259 --
260 -- 2
261 --
262 -- p_table_name = ben_dm_resolve_mappings.table_name
263 -- p_column_name = ben_dm_resolve_mappings.column_name
264 -- p_source_id is not null = ben_dm_resolve_mappings.source_id
265 -- p_business_group_name = target instance business group name
266 --
267 -- 3
268 --
269 -- p_source_id = ben_dm_resolve_mappings.source_id
270 -- p_source_column = ben_dm_hierarchies.column_name
271 -- p_business_group_name = target instance business group name
272 -- p_Table_id = ben_dm_hierarchies.table_id
273 --------------------------------------------------------------------------------
274 procedure update_pk_mapping(
275 p_resolve_mapping_id in NUMBER DEFAULT null
276 ,p_target_id in NUMBER
277 ,p_table_name in VARCHAR2 DEFAULT null
278 ,p_column_name in VARCHAR2 DEFAULT null
279 ,p_source_id in NUMBER DEFAULT null
280 ,p_source_column in VARCHAR2 DEFAULT null
281 ,p_business_group_name in VARCHAR2 DEFAULT null
282 ,p_table_id in NUMBER DEFAULT null
283 ) is
284 l_proc varchar2(75) ;
285 l_dummy varchar2(1) ;
286
287 cursor c1 is
288 select target_id
289 from ben_dm_resolve_mappings brm
290 where brm.resolve_mapping_id = p_resolve_mapping_id
291 ;
292
293
294
295 cursor c2 (c_column_name varchar2 ,
296 c_table_name varchar2) is
297 select brm.resolve_mapping_id ,
298 brm.target_id
299 from ben_dm_resolve_mappings brm
300 where table_name = c_table_name
301 and source_id = p_source_id
302 and column_name = c_column_name
303 and business_group_name = p_business_group_name
304 ;
305
306
307 -- the promary key of the tables
308 cursor c3 is
309 select parent_id_column_name, -- confirm with sarju
310 parent_table_name
311 from ben_dm_hierarchies
312 where table_id = p_table_id
313 and column_name = p_source_column
314 ;
315
316
317 l_target_id ben_dm_resolve_mappings.target_id%type ;
318 l_resolve_mapping_id ben_dm_resolve_mappings.resolve_mapping_id%type ;
319 l_column_name ben_dm_resolve_mappings.column_name%type ;
320 l_table_name ben_dm_resolve_mappings.table_name%type ;
321
322 begin
323
324 l_proc := g_package || 'update_pk_mapping' ;
325 hr_utility.set_location('Entering:'||l_proc, 5);
326
327 if p_target_id is not null then
328 if p_resolve_mapping_id is not null then
329 l_resolve_mapping_id := p_resolve_mapping_id ;
330 open c1 ;
331 fetch c1 into l_target_id ;
332 if c1%notfound then
333 close c1 ;
334 fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
335 fnd_message.raise_error;
336 end if ;
337 close c1 ;
338
339 if l_target_id is not null then
340 -- if the target is already available what we do ?
341 return ;
342 end if ;
343 elsif p_table_name is not null and p_column_name is not null and
344 p_source_id is not null and p_business_group_name is not null then
345 --- when the parameter has table name column name and source key
346 open c2 (p_column_name , p_table_name ) ;
347 fetch c2 into
348 l_resolve_mapping_id,
349 l_target_id ;
350 close c2 ;
351
352 if l_target_id is not null then
353 -- if the target is already available what we do ?
354 return ;
355 end if ;
356
357 elsif p_source_id is not null and p_source_column is not null
358 and p_business_group_name is not null
359 and p_Table_id is not null then
360
361 open c3 ;
362 fetch c3 into l_column_name,l_table_name ;
363 close c3 ;
364
365 if l_column_name is not null then
366
367 open c2 (l_column_name , l_table_name) ;
368 fetch c2 into
369 l_resolve_mapping_id,
370 l_target_id ;
371 close c2 ;
372
373 if l_target_id is not null then
374 -- if the target is already available what we do ?
375 return ;
376 end if ;
377
378 end if ;
379
380 end if ;
381
382 if l_resolve_mapping_id is not null then
383
384 update ben_dm_resolve_mappings
385 set target_id = p_target_id
386 where resolve_mapping_id = l_resolve_mapping_id ;
387 end if ;
388 end if ;
389 hr_utility.set_location(' Leaving:'||l_proc, 10);
390
391 Exception
392 when others then
393 hr_utility.set_location(' exception :'||substr(sqlerrm , 100), 30);
394 ben_dm_utility.message('INFO',' update_pk_mapping ' || substr(sqlerrm ,1, 100) ,140);
395 raise ;
396 end update_pk_mapping ;
397
398 ------------------------------------------------------------------------------
399 --create pk_mapping
400 --This procedure insert the data into table BEN_DM_RESOLVE_MAPPINGS
401 --if the parameter is the table id , convert them into name
402 -------------------------------------------------------------------------------
403 procedure create_pk_mapping(
404 p_resolve_mapping_id out nocopy NUMBER
405 ,p_table_name in VARCHAR2 DEFAULT NULL
406 ,p_table_id in NUMBER DEFAULT NULl
407 ,p_column_name in VARCHAR2
408 ,p_source_id in NUMBER
409 ,p_source_key in VARCHAR2
410 ,p_target_id in NUMBER DEFAULT NULL
411 ,p_business_group_name in VARCHAR2 -- target bg
412 ,p_mapping_type in VARCHAR2 default 'D'
413 ,p_resolve_mapping_id1 in NUMBER default null
414 ,p_resolve_mapping_id2 in NUMBER default null
415 ,p_resolve_mapping_id3 in NUMBER default null
416 ,p_resolve_mapping_id4 in NUMBER default null
417 ,p_resolve_mapping_id5 in NUMBER default null
418 ,p_resolve_mapping_id6 in NUMBER default null
419 ,p_resolve_mapping_id7 in NUMBER default null
420 ,p_last_update_date in DATE DEFAULT NULl
421 ,p_last_updated_by in NUMBER DEFAULT NULl
422 ,p_last_update_login in NUMBER DEFAULT NULL
423 ,p_created_by in NUMBER DEFAULT NULL
424 ,p_creation_date in DATE DEFAULT NULL ) is
425
426 cursor c1 is
427 select table_name from
428 ben_dm_tables bdt
429 where bdt.table_id = p_table_id
430 ;
431
432
433 cursor c2 (c_table_name varchar2) is
437 and brm.column_name = p_column_name
434 select resolve_mapping_id
435 from ben_dm_resolve_mappings brm
436 where brm.table_name = c_table_name
438 and brm.source_id = p_source_id
439 and brm.business_group_name = p_business_group_name
440 ;
441
442 l_table_name ben_dm_tables.table_name%type ;
443 l_proc varchar2(75) ;
444 l_dummy varchar2(1) ;
445 l_resolve_mapping_id number(15) ;
446 l_count number;
447
448 begin
449
450 l_proc := g_package || 'create_pk_mapping' ;
451 hr_utility.set_location('Entering:'||l_proc, 5);
452
453 -- error if table_id and table name is null
454 if p_table_name is null and p_table_id is null then
455 fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
456 fnd_message.raise_error;
457 end if ;
458
459 l_table_name := p_table_name ;
460 hr_utility.set_location('table_name:'||l_table_name, 5);
461 -- get the table name from the id
462 if p_table_name is null and p_table_id is not null then
463 open c1 ;
464 fetch c1 into l_table_name ;
465 if c1%notfound then
466 close c1 ;
467 hr_utility.set_location('error on table_id :'|| p_table_id , 10);
468 fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
469 fnd_message.raise_error;
470 end if ;
471 close c1 ;
472 end if ;
473
474 for i in 1..g_resolve_mapping_cache.count
475 loop
476 if g_resolve_mapping_cache(i).table_name = l_table_name and
477 g_resolve_mapping_cache(i).source_id = p_source_id and
478 g_resolve_mapping_cache(i).column_name = p_column_name and
479 g_resolve_mapping_cache(i).business_group_name = p_business_group_name
480 then
481 p_resolve_mapping_id := g_resolve_mapping_cache(i).resolve_mapping_id;
482 return;
483 end if;
484
485 end loop;
486
487 -- validate the diplication of the key before insert
488 open c2(l_table_name) ;
489 fetch c2 into l_resolve_mapping_id;
490 if c2%found then
491 close c2 ;
492 -- since the key found do nothing and return
493 hr_utility.set_location(' Leaving:'||l_proc, 15);
494 p_resolve_mapping_id := l_resolve_mapping_id;
495 Return ;
496 end if ;
497 close c2 ;
498 hr_utility.set_location(' Inserting the value :'||l_proc, 20);
499 -- get the pk key
500 select BEN_DM_RESOLVE_MAPPINGS_S.nextval
501 into p_resolve_mapping_id from dual ;
502
503 --p_resolve_mapping_id := BEN_DM_RESOLVE_MAPPINGS_S.nextval ;
504 insert into ben_dm_resolve_mappings
505 ( resolve_mapping_id
506 ,table_name
507 ,column_name
508 ,source_id
509 ,source_key
510 ,target_id
511 ,business_group_name
512 ,mapping_type
513 ,resolve_mapping_id1
514 ,resolve_mapping_id2
515 ,resolve_mapping_id3
516 ,resolve_mapping_id4
517 ,resolve_mapping_id5
518 ,resolve_mapping_id6
519 ,resolve_mapping_id7
520 ,last_update_date
521 ,last_updated_by
522 ,last_update_login
523 ,created_by
524 ,creation_date
525 ) values
526 (p_resolve_mapping_id
527 ,l_table_name
528 ,p_column_name
529 ,p_source_id
530 ,p_source_key
531 ,p_target_id
532 ,p_business_group_name
533 ,p_mapping_type
534 ,p_resolve_mapping_id1
535 ,p_resolve_mapping_id2
536 ,p_resolve_mapping_id3
537 ,p_resolve_mapping_id4
538 ,p_resolve_mapping_id5
539 ,p_resolve_mapping_id6
540 ,p_resolve_mapping_id7
541 ,p_last_update_date
542 ,p_last_updated_by
543 ,p_last_update_login
544 ,p_created_by
545 ,p_creation_date
546 ) ;
547
548 l_count := g_resolve_mapping_cache.count +1;
549 g_resolve_mapping_cache(l_count).table_name := l_table_name;
550 g_resolve_mapping_cache(l_count).source_id := p_source_id;
551 g_resolve_mapping_cache(l_count).column_name := p_column_name;
552 g_resolve_mapping_cache(l_count).business_group_name := p_business_group_name;
553 g_resolve_mapping_cache(l_count).resolve_mapping_id := p_resolve_mapping_id;
554
555 hr_utility.set_location(' Leaving:'||l_proc, 10);
556 Exception
557 when others then
558 hr_utility.set_location(' exception :'||substr(sqlerrm , 100), 30);
559 ben_dm_utility.message('INFO',' create_pk_mapping ' || substr(sqlerrm ,1, 100) ,140);
560 raise ;
561
562 end create_pk_mapping;
563
564 --------------------------------------------------------------------------------
565 -- create_entity_result
566 -- This procedure insert the data into table _BEN_DM_ENTITY_RESULTS
567 --------------------------------------------------------------------------------
568
569 procedure create_entity_result(p_entity_result_id OUT NOCOPY NUMBER ,
570 p_migration_id IN NUMBER ,
571 p_table_name IN VARCHAR2 ,
572 p_group_order IN NUMBER ,
573 p_information1 IN VARCHAR2 DEFAULT NULL ,
574 p_information2 IN VARCHAR2 DEFAULT NULL ,
575 p_information3 IN VARCHAR2 DEFAULT NULL ,
576 p_information4 IN VARCHAR2 DEFAULT NULL ,
577 p_information5 IN VARCHAR2 DEFAULT NULL ,
578 p_information6 IN VARCHAR2 DEFAULT NULL ,
579 p_information7 IN VARCHAR2 DEFAULT NULL ,
583 p_information11 IN VARCHAR2 DEFAULT NULL ,
580 p_information8 IN VARCHAR2 DEFAULT NULL ,
581 p_information9 IN VARCHAR2 DEFAULT NULL ,
582 p_information10 IN VARCHAR2 DEFAULT NULL ,
584 p_information12 IN VARCHAR2 DEFAULT NULL ,
585 p_information13 IN VARCHAR2 DEFAULT NULL ,
586 p_information14 IN VARCHAR2 DEFAULT NULL ,
587 p_information15 IN VARCHAR2 DEFAULT NULL ,
588 p_information16 IN VARCHAR2 DEFAULT NULL ,
589 p_information17 IN VARCHAR2 DEFAULT NULL ,
590 p_information18 IN VARCHAR2 DEFAULT NULL ,
591 p_information19 IN VARCHAR2 DEFAULT NULL ,
592 p_information20 IN VARCHAR2 DEFAULT NULL ,
593 p_information21 IN VARCHAR2 DEFAULT NULL ,
594 p_information22 IN VARCHAR2 DEFAULT NULL ,
595 p_information23 IN VARCHAR2 DEFAULT NULL ,
596 p_information24 IN VARCHAR2 DEFAULT NULL ,
597 p_information25 IN VARCHAR2 DEFAULT NULL ,
598 p_information26 IN VARCHAR2 DEFAULT NULL ,
599 p_information27 IN VARCHAR2 DEFAULT NULL ,
600 p_information28 IN VARCHAR2 DEFAULT NULL ,
601 p_information29 IN VARCHAR2 DEFAULT NULL ,
602 p_information30 IN VARCHAR2 DEFAULT NULL ,
603 p_information31 IN VARCHAR2 DEFAULT NULL ,
604 p_information32 IN VARCHAR2 DEFAULT NULL ,
605 p_information33 IN VARCHAR2 DEFAULT NULL ,
606 p_information34 IN VARCHAR2 DEFAULT NULL ,
607 p_information35 IN VARCHAR2 DEFAULT NULL ,
608 p_information36 IN VARCHAR2 DEFAULT NULL ,
609 p_information37 IN VARCHAR2 DEFAULT NULL ,
610 p_information38 IN VARCHAR2 DEFAULT NULL ,
611 p_information39 IN VARCHAR2 DEFAULT NULL ,
612 p_information40 IN VARCHAR2 DEFAULT NULL ,
613 p_information41 IN VARCHAR2 DEFAULT NULL ,
614 p_information42 IN VARCHAR2 DEFAULT NULL ,
615 p_information43 IN VARCHAR2 DEFAULT NULL ,
616 p_information44 IN VARCHAR2 DEFAULT NULL ,
617 p_information45 IN VARCHAR2 DEFAULT NULL ,
618 p_information46 IN VARCHAR2 DEFAULT NULL ,
619 p_information47 IN VARCHAR2 DEFAULT NULL ,
620 p_information48 IN VARCHAR2 DEFAULT NULL ,
621 p_information49 IN VARCHAR2 DEFAULT NULL ,
622 p_information50 IN VARCHAR2 DEFAULT NULL ,
623 p_information51 IN VARCHAR2 DEFAULT NULL ,
624 p_information52 IN VARCHAR2 DEFAULT NULL ,
625 p_information53 IN VARCHAR2 DEFAULT NULL ,
626 p_information54 IN VARCHAR2 DEFAULT NULL ,
627 p_information55 IN VARCHAR2 DEFAULT NULL ,
628 p_information56 IN VARCHAR2 DEFAULT NULL ,
629 p_information57 IN VARCHAR2 DEFAULT NULL ,
630 p_information58 IN VARCHAR2 DEFAULT NULL ,
631 p_information59 IN VARCHAR2 DEFAULT NULL ,
632 p_information60 IN VARCHAR2 DEFAULT NULL ,
633 p_information61 IN VARCHAR2 DEFAULT NULL ,
634 p_information62 IN VARCHAR2 DEFAULT NULL ,
635 p_information63 IN VARCHAR2 DEFAULT NULL ,
636 p_information64 IN VARCHAR2 DEFAULT NULL ,
637 p_information65 IN VARCHAR2 DEFAULT NULL ,
638 p_information66 IN VARCHAR2 DEFAULT NULL ,
639 p_information67 IN VARCHAR2 DEFAULT NULL ,
640 p_information68 IN VARCHAR2 DEFAULT NULL ,
641 p_information69 IN VARCHAR2 DEFAULT NULL ,
642 p_information70 IN VARCHAR2 DEFAULT NULL ,
643 p_information71 IN VARCHAR2 DEFAULT NULL ,
644 p_information72 IN VARCHAR2 DEFAULT NULL ,
645 p_information73 IN VARCHAR2 DEFAULT NULL ,
646 p_information74 IN VARCHAR2 DEFAULT NULL ,
647 p_information75 IN VARCHAR2 DEFAULT NULL ,
648 p_information76 IN VARCHAR2 DEFAULT NULL ,
649 p_information77 IN VARCHAR2 DEFAULT NULL ,
650 p_information78 IN VARCHAR2 DEFAULT NULL ,
651 p_information79 IN VARCHAR2 DEFAULT NULL ,
652 p_information80 IN VARCHAR2 DEFAULT NULL ,
653 p_information81 IN VARCHAR2 DEFAULT NULL ,
654 p_information82 IN VARCHAR2 DEFAULT NULL ,
655 p_information83 IN VARCHAR2 DEFAULT NULL ,
659 p_information87 IN VARCHAR2 DEFAULT NULL ,
656 p_information84 IN VARCHAR2 DEFAULT NULL ,
657 p_information85 IN VARCHAR2 DEFAULT NULL ,
658 p_information86 IN VARCHAR2 DEFAULT NULL ,
660 p_information88 IN VARCHAR2 DEFAULT NULL ,
661 p_information89 IN VARCHAR2 DEFAULT NULL ,
662 p_information90 IN VARCHAR2 DEFAULT NULL ,
663 p_information91 IN VARCHAR2 DEFAULT NULL ,
664 p_information92 IN VARCHAR2 DEFAULT NULL ,
665 p_information93 IN VARCHAR2 DEFAULT NULL ,
666 p_information94 IN VARCHAR2 DEFAULT NULL ,
667 p_information95 IN VARCHAR2 DEFAULT NULL ,
668 p_information96 IN VARCHAR2 DEFAULT NULL ,
669 p_information97 IN VARCHAR2 DEFAULT NULL ,
670 p_information98 IN VARCHAR2 DEFAULT NULL ,
671 p_information99 IN VARCHAR2 DEFAULT NULL ,
672 p_information100 IN VARCHAR2 DEFAULT NULL ,
673 p_information101 IN VARCHAR2 DEFAULT NULL ,
674 p_information102 IN VARCHAR2 DEFAULT NULL ,
675 p_information103 IN VARCHAR2 DEFAULT NULL ,
676 p_information104 IN VARCHAR2 DEFAULT NULL ,
677 p_information105 IN VARCHAR2 DEFAULT NULL ,
678 p_information106 IN VARCHAR2 DEFAULT NULL ,
679 p_information107 IN VARCHAR2 DEFAULT NULL ,
680 p_information108 IN VARCHAR2 DEFAULT NULL ,
681 p_information109 IN VARCHAR2 DEFAULT NULL ,
682 p_information110 IN VARCHAR2 DEFAULT NULL ,
683 p_information111 IN VARCHAR2 DEFAULT NULL ,
684 p_information112 IN VARCHAR2 DEFAULT NULL ,
685 p_information113 IN VARCHAR2 DEFAULT NULL ,
686 p_information114 IN VARCHAR2 DEFAULT NULL ,
687 p_information115 IN VARCHAR2 DEFAULT NULL ,
688 p_information116 IN VARCHAR2 DEFAULT NULL ,
689 p_information117 IN VARCHAR2 DEFAULT NULL ,
690 p_information118 IN VARCHAR2 DEFAULT NULL ,
691 p_information119 IN VARCHAR2 DEFAULT NULL ,
692 p_information120 IN VARCHAR2 DEFAULT NULL ,
693 p_information121 IN VARCHAR2 DEFAULT NULL ,
694 p_information122 IN VARCHAR2 DEFAULT NULL ,
695 p_information123 IN VARCHAR2 DEFAULT NULL ,
696 p_information124 IN VARCHAR2 DEFAULT NULL ,
697 p_information125 IN VARCHAR2 DEFAULT NULL ,
698 p_information126 IN VARCHAR2 DEFAULT NULL ,
699 p_information127 IN VARCHAR2 DEFAULT NULL ,
700 p_information128 IN VARCHAR2 DEFAULT NULL ,
701 p_information129 IN VARCHAR2 DEFAULT NULL ,
702 p_information130 IN VARCHAR2 DEFAULT NULL ,
703 p_information131 IN NUMBER DEFAULT NULL ,
704 p_information132 IN NUMBER DEFAULT NULL ,
705 p_information133 IN NUMBER DEFAULT NULL ,
706 p_information134 IN NUMBER DEFAULT NULL ,
707 p_information135 IN NUMBER DEFAULT NULL ,
708 p_information136 IN NUMBER DEFAULT NULL ,
709 p_information137 IN NUMBER DEFAULT NULL ,
710 p_information138 IN NUMBER DEFAULT NULL ,
711 p_information139 IN NUMBER DEFAULT NULL ,
712 p_information140 IN NUMBER DEFAULT NULL ,
713 p_information141 IN NUMBER DEFAULT NULL ,
714 p_information142 IN NUMBER DEFAULT NULL ,
715 p_information143 IN NUMBER DEFAULT NULL ,
716 p_information144 IN NUMBER DEFAULT NULL ,
717 p_information145 IN NUMBER DEFAULT NULL ,
718 p_information146 IN NUMBER DEFAULT NULL ,
719 p_information147 IN NUMBER DEFAULT NULL ,
720 p_information148 IN NUMBER DEFAULT NULL ,
721 p_information149 IN NUMBER DEFAULT NULL ,
722 p_information150 IN NUMBER DEFAULT NULL ,
723 p_information151 IN NUMBER DEFAULT NULL ,
724 p_information152 IN NUMBER DEFAULT NULL ,
725 p_information153 IN NUMBER DEFAULT NULL ,
726 p_information154 IN NUMBER DEFAULT NULL ,
727 p_information155 IN NUMBER DEFAULT NULL ,
728 p_information156 IN NUMBER DEFAULT NULL ,
729 p_information157 IN NUMBER DEFAULT NULL ,
730 p_information158 IN NUMBER DEFAULT NULL ,
731 p_information159 IN NUMBER DEFAULT NULL ,
732 p_information160 IN NUMBER DEFAULT NULL ,
736 p_information164 IN NUMBER DEFAULT NULL ,
733 p_information161 IN NUMBER DEFAULT NULL ,
734 p_information162 IN NUMBER DEFAULT NULL ,
735 p_information163 IN NUMBER DEFAULT NULL ,
737 p_information165 IN NUMBER DEFAULT NULL ,
738 p_information166 IN NUMBER DEFAULT NULL ,
739 p_information167 IN NUMBER DEFAULT NULL ,
740 p_information168 IN NUMBER DEFAULT NULL ,
741 p_information169 IN NUMBER DEFAULT NULL ,
742 p_information170 IN NUMBER DEFAULT NULL ,
743 p_information171 IN NUMBER DEFAULT NULL ,
744 p_information172 IN NUMBER DEFAULT NULL ,
745 p_information173 IN NUMBER DEFAULT NULL ,
746 p_information174 IN NUMBER DEFAULT NULL ,
747 p_information175 IN NUMBER DEFAULT NULL ,
748 p_information176 IN NUMBER DEFAULT NULL ,
749 p_information177 IN NUMBER DEFAULT NULL ,
750 p_information178 IN NUMBER DEFAULT NULL ,
751 p_information179 IN NUMBER DEFAULT NULL ,
752 p_information180 IN NUMBER DEFAULT NULL ,
753 p_information181 IN NUMBER DEFAULT NULL ,
754 p_information182 IN NUMBER DEFAULT NULL ,
755 p_information183 IN NUMBER DEFAULT NULL ,
756 p_information184 IN NUMBER DEFAULT NULL ,
757 p_information185 IN NUMBER DEFAULT NULL ,
758 p_information186 IN NUMBER DEFAULT NULL ,
759 p_information187 IN NUMBER DEFAULT NULL ,
760 p_information188 IN NUMBER DEFAULT NULL ,
761 p_information189 IN NUMBER DEFAULT NULL ,
762 p_information190 IN NUMBER DEFAULT NULL ,
763 p_information191 IN NUMBER DEFAULT NULL ,
764 p_information192 IN NUMBER DEFAULT NULL ,
765 p_information193 IN NUMBER DEFAULT NULL ,
766 p_information194 IN NUMBER DEFAULT NULL ,
767 p_information195 IN NUMBER DEFAULT NULL ,
768 p_information196 IN NUMBER DEFAULT NULL ,
769 p_information197 IN NUMBER DEFAULT NULL ,
770 p_information198 IN NUMBER DEFAULT NULL ,
771 p_information199 IN NUMBER DEFAULT NULL ,
772 p_information200 IN NUMBER DEFAULT NULL ,
773 p_information201 IN NUMBER DEFAULT NULL ,
774 p_information202 IN NUMBER DEFAULT NULL ,
775 p_information203 IN NUMBER DEFAULT NULL ,
776 p_information204 IN NUMBER DEFAULT NULL ,
777 p_information205 IN NUMBER DEFAULT NULL ,
778 p_information206 IN NUMBER DEFAULT NULL ,
779 p_information207 IN NUMBER DEFAULT NULL ,
780 p_information208 IN NUMBER DEFAULT NULL ,
781 p_information209 IN NUMBER DEFAULT NULL ,
782 p_information210 IN NUMBER DEFAULT NULL ,
783 p_information211 IN DATE DEFAULT NULL ,
784 p_information212 IN DATE DEFAULT NULL ,
785 p_information213 IN DATE DEFAULT NULL ,
786 p_information214 IN DATE DEFAULT NULL ,
787 p_information215 IN DATE DEFAULT NULL ,
788 p_information216 IN DATE DEFAULT NULL ,
789 p_information217 IN DATE DEFAULT NULL ,
790 p_information218 IN DATE DEFAULT NULL ,
791 p_information219 IN DATE DEFAULT NULL ,
792 p_information220 IN DATE DEFAULT NULL ,
793 p_information221 IN DATE DEFAULT NULL ,
794 p_information222 IN DATE DEFAULT NULL ,
795 p_information223 IN DATE DEFAULT NULL ,
796 p_information224 IN DATE DEFAULT NULL ,
797 p_information225 IN DATE DEFAULT NULL ,
798 p_information226 IN DATE DEFAULT NULL ,
799 p_information227 IN DATE DEFAULT NULL ,
800 p_information228 IN DATE DEFAULT NULL ,
801 p_information229 IN DATE DEFAULT NULL ,
802 p_information230 IN DATE DEFAULT NULL ,
803 p_information231 IN DATE DEFAULT NULL ,
804 p_information232 IN DATE DEFAULT NULL ,
805 p_information233 IN DATE DEFAULT NULL ,
806 p_information234 IN DATE DEFAULT NULL ,
807 p_information235 IN DATE DEFAULT NULL ,
808 p_information236 IN DATE DEFAULT NULL ,
809 p_information237 IN DATE DEFAULT NULL ,
810 p_information238 IN DATE DEFAULT NULL ,
811 p_information239 IN DATE DEFAULT NULL ,
815 p_information243 IN DATE DEFAULT NULL ,
812 p_information240 IN DATE DEFAULT NULL ,
813 p_information241 IN DATE DEFAULT NULL ,
814 p_information242 IN DATE DEFAULT NULL ,
816 p_information244 IN DATE DEFAULT NULL ,
817 p_information245 IN DATE DEFAULT NULL
818 ) is
819 -- validtion migration
820
821 l_text varchar2(32667);
822 l_delimiter varchar2(1) := fnd_global.local_chr(01);
823 l_table_name ben_dm_tables.table_name%type ;
824 l_proc varchar2(75) ;
825 l_dummy varchar2(1) ;
826 begin
827
828 l_proc := g_package || 'create_entity_result' ;
829 hr_utility.set_location('Entering:'||l_proc, 5);
830
831
832 -- ths procedure not validating any FK, assume everything is validated
833 -- before cal to the procedure
834 -- get the PK
835
836 select ben_dm_entity_results_s.nextval
837 into p_entity_result_id from dual ;
838
839 l_text := p_ENTITY_RESULT_ID||l_delimiter||
840 p_MIGRATION_ID||l_delimiter||
841 p_TABLE_NAME||l_delimiter||
842 p_GROUP_ORDER||l_delimiter||
843 p_INFORMATION1||l_delimiter||
844 p_INFORMATION2||l_delimiter||
845 p_INFORMATION3||l_delimiter||
846 p_INFORMATION4||l_delimiter||
847 p_INFORMATION5||l_delimiter||
848 p_INFORMATION6||l_delimiter||
849 p_INFORMATION7||l_delimiter||
850 p_INFORMATION8||l_delimiter||
851 p_INFORMATION9||l_delimiter||
852 p_INFORMATION10||l_delimiter||
853 p_INFORMATION11||l_delimiter||
854 p_INFORMATION12||l_delimiter||
855 p_INFORMATION13||l_delimiter||
856 p_INFORMATION14||l_delimiter||
857 p_INFORMATION15||l_delimiter||
858 p_INFORMATION16||l_delimiter||
859 p_INFORMATION17||l_delimiter||
860 p_INFORMATION18||l_delimiter||
861 p_INFORMATION19||l_delimiter||
862 p_INFORMATION20||l_delimiter||
863 p_INFORMATION21||l_delimiter||
864 p_INFORMATION22||l_delimiter||
865 p_INFORMATION23||l_delimiter||
866 p_INFORMATION24||l_delimiter||
867 p_INFORMATION25||l_delimiter||
868 p_INFORMATION26||l_delimiter||
869 p_INFORMATION27||l_delimiter||
870 p_INFORMATION28||l_delimiter||
871 p_INFORMATION29||l_delimiter||
872 p_INFORMATION30||l_delimiter||
873 p_INFORMATION31||l_delimiter||
874 p_INFORMATION32||l_delimiter||
875 p_INFORMATION33||l_delimiter||
876 p_INFORMATION34||l_delimiter||
877 p_INFORMATION35||l_delimiter||
878 p_INFORMATION36||l_delimiter||
879 p_INFORMATION37||l_delimiter||
880 p_INFORMATION38||l_delimiter||
881 p_INFORMATION39||l_delimiter||
882 p_INFORMATION40||l_delimiter||
883 p_INFORMATION41||l_delimiter||
884 p_INFORMATION42||l_delimiter||
885 p_INFORMATION43||l_delimiter||
886 p_INFORMATION44||l_delimiter||
887 p_INFORMATION45||l_delimiter||
888 p_INFORMATION46||l_delimiter||
889 p_INFORMATION47||l_delimiter||
890 p_INFORMATION48||l_delimiter||
891 p_INFORMATION49||l_delimiter||
892 p_INFORMATION50||l_delimiter||
893 p_INFORMATION51||l_delimiter||
894 p_INFORMATION52||l_delimiter||
895 p_INFORMATION53||l_delimiter||
896 p_INFORMATION54||l_delimiter||
897 p_INFORMATION55||l_delimiter||
898 p_INFORMATION56||l_delimiter||
899 p_INFORMATION57||l_delimiter||
900 p_INFORMATION58||l_delimiter||
901 p_INFORMATION59||l_delimiter||
902 p_INFORMATION60||l_delimiter||
903 p_INFORMATION61||l_delimiter||
904 p_INFORMATION62||l_delimiter||
905 p_INFORMATION63||l_delimiter||
906 p_INFORMATION64||l_delimiter||
907 p_INFORMATION65||l_delimiter||
908 p_INFORMATION66||l_delimiter||
909 p_INFORMATION67||l_delimiter||
910 p_INFORMATION68||l_delimiter||
911 p_INFORMATION69||l_delimiter||
912 p_INFORMATION70||l_delimiter||
913 p_INFORMATION71||l_delimiter||
914 p_INFORMATION72||l_delimiter||
915 p_INFORMATION73||l_delimiter||
916 p_INFORMATION74||l_delimiter||
917 p_INFORMATION75||l_delimiter||
918 p_INFORMATION76||l_delimiter||
919 p_INFORMATION77||l_delimiter||
920 p_INFORMATION78||l_delimiter||
921 p_INFORMATION79||l_delimiter||
922 p_INFORMATION80||l_delimiter||
923 p_INFORMATION81||l_delimiter||
924 p_INFORMATION82||l_delimiter||
925 p_INFORMATION83||l_delimiter||
926 p_INFORMATION84||l_delimiter||
927 p_INFORMATION85||l_delimiter||
928 p_INFORMATION86||l_delimiter||
929 p_INFORMATION87||l_delimiter||
930 p_INFORMATION88||l_delimiter||
931 p_INFORMATION89||l_delimiter||
932 p_INFORMATION90||l_delimiter||
933 p_INFORMATION91||l_delimiter||
934 p_INFORMATION92||l_delimiter||
935 p_INFORMATION93||l_delimiter||
936 p_INFORMATION94||l_delimiter||
937 p_INFORMATION95||l_delimiter||
938 p_INFORMATION96||l_delimiter||
939 p_INFORMATION97||l_delimiter||
940 p_INFORMATION98||l_delimiter||
941 p_INFORMATION99||l_delimiter||
942 p_INFORMATION100||l_delimiter||
943 p_INFORMATION101||l_delimiter||
944 p_INFORMATION102||l_delimiter||
945 p_INFORMATION103||l_delimiter||
946 p_INFORMATION104||l_delimiter||
947 p_INFORMATION105||l_delimiter||
948 p_INFORMATION106||l_delimiter||
949 p_INFORMATION107||l_delimiter||
950 p_INFORMATION108||l_delimiter||
951 p_INFORMATION109||l_delimiter||
952 p_INFORMATION110||l_delimiter||
953 p_INFORMATION111||l_delimiter||
954 p_INFORMATION112||l_delimiter||
955 p_INFORMATION113||l_delimiter||
956 p_INFORMATION114||l_delimiter||
957 p_INFORMATION115||l_delimiter||
958 p_INFORMATION116||l_delimiter||
959 p_INFORMATION117||l_delimiter||
960 p_INFORMATION118||l_delimiter||
961 p_INFORMATION119||l_delimiter||
962 p_INFORMATION120||l_delimiter||
966 p_INFORMATION124||l_delimiter||
963 p_INFORMATION121||l_delimiter||
964 p_INFORMATION122||l_delimiter||
965 p_INFORMATION123||l_delimiter||
967 p_INFORMATION125||l_delimiter||
968 p_INFORMATION126||l_delimiter||
969 p_INFORMATION127||l_delimiter||
970 p_INFORMATION128||l_delimiter||
971 p_INFORMATION129||l_delimiter||
972 p_INFORMATION130||l_delimiter||
973 p_INFORMATION131||l_delimiter||
974 p_INFORMATION132||l_delimiter||
975 p_INFORMATION133||l_delimiter||
976 p_INFORMATION134||l_delimiter||
977 p_INFORMATION135||l_delimiter||
978 p_INFORMATION136||l_delimiter||
979 p_INFORMATION137||l_delimiter||
980 p_INFORMATION138||l_delimiter||
981 p_INFORMATION139||l_delimiter||
982 p_INFORMATION140||l_delimiter||
983 p_INFORMATION141||l_delimiter||
984 p_INFORMATION142||l_delimiter||
985 p_INFORMATION143||l_delimiter||
986 p_INFORMATION144||l_delimiter||
987 p_INFORMATION145||l_delimiter||
988 p_INFORMATION146||l_delimiter||
989 p_INFORMATION147||l_delimiter||
990 p_INFORMATION148||l_delimiter||
991 p_INFORMATION149||l_delimiter||
992 p_INFORMATION150||l_delimiter||
993 p_INFORMATION151||l_delimiter||
994 p_INFORMATION152||l_delimiter||
995 p_INFORMATION153||l_delimiter||
996 p_INFORMATION154||l_delimiter||
997 p_INFORMATION155||l_delimiter||
998 p_INFORMATION156||l_delimiter||
999 p_INFORMATION157||l_delimiter||
1000 p_INFORMATION158||l_delimiter||
1001 p_INFORMATION159||l_delimiter||
1002 p_INFORMATION160||l_delimiter||
1003 p_INFORMATION161||l_delimiter||
1004 p_INFORMATION162||l_delimiter||
1005 p_INFORMATION163||l_delimiter||
1006 p_INFORMATION164||l_delimiter||
1007 p_INFORMATION165||l_delimiter||
1008 p_INFORMATION166||l_delimiter||
1009 p_INFORMATION167||l_delimiter||
1010 p_INFORMATION168||l_delimiter||
1011 p_INFORMATION169||l_delimiter||
1012 p_INFORMATION170||l_delimiter||
1013 p_INFORMATION171||l_delimiter||
1014 p_INFORMATION172||l_delimiter||
1015 p_INFORMATION173||l_delimiter||
1016 p_INFORMATION174||l_delimiter||
1017 p_INFORMATION175||l_delimiter||
1018 p_INFORMATION176||l_delimiter||
1019 p_INFORMATION177||l_delimiter||
1020 p_INFORMATION178||l_delimiter||
1021 p_INFORMATION179||l_delimiter||
1022 p_INFORMATION180||l_delimiter||
1023 p_INFORMATION181||l_delimiter||
1024 p_INFORMATION182||l_delimiter||
1025 p_INFORMATION183||l_delimiter||
1026 p_INFORMATION184||l_delimiter||
1027 p_INFORMATION185||l_delimiter||
1028 p_INFORMATION186||l_delimiter||
1029 p_INFORMATION187||l_delimiter||
1030 p_INFORMATION188||l_delimiter||
1031 p_INFORMATION189||l_delimiter||
1032 p_INFORMATION190||l_delimiter||
1033 p_INFORMATION191||l_delimiter||
1034 p_INFORMATION192||l_delimiter||
1035 p_INFORMATION193||l_delimiter||
1036 p_INFORMATION194||l_delimiter||
1037 p_INFORMATION195||l_delimiter||
1038 p_INFORMATION196||l_delimiter||
1039 p_INFORMATION197||l_delimiter||
1040 p_INFORMATION198||l_delimiter||
1041 p_INFORMATION199||l_delimiter||
1042 p_INFORMATION200||l_delimiter||
1043 p_INFORMATION201||l_delimiter||
1044 p_INFORMATION202||l_delimiter||
1045 p_INFORMATION203||l_delimiter||
1046 p_INFORMATION204||l_delimiter||
1047 p_INFORMATION205||l_delimiter||
1048 p_INFORMATION206||l_delimiter||
1049 p_INFORMATION207||l_delimiter||
1050 p_INFORMATION208||l_delimiter||
1051 p_INFORMATION209||l_delimiter||
1052 p_INFORMATION210||l_delimiter||
1053 to_char(p_INFORMATION211,'dd-mon-rrrr')||l_delimiter||
1054 to_char(p_INFORMATION212,'dd-mon-rrrr')||l_delimiter||
1055 to_char(p_INFORMATION213,'dd-mon-rrrr')||l_delimiter||
1056 to_char(p_INFORMATION214,'dd-mon-rrrr')||l_delimiter||
1057 to_char(p_INFORMATION215,'dd-mon-rrrr')||l_delimiter||
1058 to_char(p_INFORMATION216,'dd-mon-rrrr')||l_delimiter||
1059 to_char(p_INFORMATION217,'dd-mon-rrrr')||l_delimiter||
1060 to_char(p_INFORMATION218,'dd-mon-rrrr')||l_delimiter||
1061 to_char(p_INFORMATION219,'dd-mon-rrrr')||l_delimiter||
1062 to_char(p_INFORMATION220,'dd-mon-rrrr')||l_delimiter||
1063 to_char(p_INFORMATION221,'dd-mon-rrrr')||l_delimiter||
1064 to_char(p_INFORMATION222,'dd-mon-rrrr')||l_delimiter||
1065 to_char(p_INFORMATION223,'dd-mon-rrrr')||l_delimiter||
1066 to_char(p_INFORMATION224,'dd-mon-rrrr')||l_delimiter||
1067 to_char(p_INFORMATION225,'dd-mon-rrrr')||l_delimiter||
1068 to_char(p_INFORMATION226,'dd-mon-rrrr')||l_delimiter||
1069 to_char(p_INFORMATION227,'dd-mon-rrrr')||l_delimiter||
1070 to_char(p_INFORMATION228,'dd-mon-rrrr')||l_delimiter||
1071 to_char(p_INFORMATION229,'dd-mon-rrrr')||l_delimiter||
1072 to_char(p_INFORMATION230,'dd-mon-rrrr')||l_delimiter||
1073 to_char(p_INFORMATION231,'dd-mon-rrrr')||l_delimiter||
1074 to_char(p_INFORMATION232,'dd-mon-rrrr')||l_delimiter||
1075 to_char(p_INFORMATION233,'dd-mon-rrrr')||l_delimiter||
1076 to_char(p_INFORMATION234,'dd-mon-rrrr')||l_delimiter||
1077 to_char(p_INFORMATION235,'dd-mon-rrrr')||l_delimiter||
1078 to_char(p_INFORMATION236,'dd-mon-rrrr')||l_delimiter||
1079 to_char(p_INFORMATION237,'dd-mon-rrrr')||l_delimiter||
1080 to_char(p_INFORMATION238,'dd-mon-rrrr')||l_delimiter||
1081 to_char(p_INFORMATION239,'dd-mon-rrrr')||l_delimiter||
1082 to_char(p_INFORMATION240,'dd-mon-rrrr')||l_delimiter||
1083 to_char(p_INFORMATION241,'dd-mon-rrrr')||l_delimiter||
1084 to_char(p_INFORMATION242,'dd-mon-rrrr')||l_delimiter||
1085 to_char(p_INFORMATION243,'dd-mon-rrrr')||l_delimiter||
1086 to_char(p_INFORMATION244,'dd-mon-rrrr')||l_delimiter||
1087 to_char(p_INFORMATION245,'dd-mon-rrrr');
1088
1089 utl_file.put_line(ben_dm_gen_master.g_file_handle,l_text);
1090
1091 hr_utility.set_location(' Leaving:'||l_proc, 10);
1092 Exception
1093 when others then
1094 hr_utility.set_location(' exception :'||substr(sqlerrm , 100), 30);
1095 raise ;
1096 End create_entity_result ;
1097
1098 function get_bg_id(p_business_group_name in VARCHAR2) Return Number is
1102
1099
1100 l_bg_id number;
1101 begin
1103 select business_group_id
1104 into l_bg_id
1105 from per_business_groups
1106 where name = p_business_group_name;
1107
1108 return l_bg_id;
1109
1110 exception
1111 when no_data_found then
1112 hr_utility.set_location(' exception : no bg found', 30);
1113 ben_dm_utility.message('INFO','bg not found:'||p_business_group_name , 5);
1114 raise;
1115
1116 end get_bg_id;
1117
1118 function priv_indent
1119 ( p_indent_spaces in number default 8
1120 ) return varchar2 is
1121 l_spaces varchar2(100);
1122 begin
1123 l_spaces := c_newline || rpad(' ', p_indent_spaces) || '- ' ;
1124 return l_spaces;
1125 exception
1126 when others then
1127 ben_dm_utility.error(SQLCODE,'hr_dm_library.priv_indent',
1128 '(none)',
1129 'R');
1130 raise;
1131 end priv_indent;
1132
1133 procedure get_generator_version
1134 (
1135 p_generator_version out nocopy varchar2,
1136 p_format_output in varchar2 default 'N'
1137 )
1138 is
1139 l_package_version varchar2(1000);
1140 l_generator_version hr_dm_tables.generator_version%type;
1141 l_proc varchar2(75) ;
1142 begin
1143
1144 l_proc := g_package ||'get_generator_version' ;
1145 hr_utility.set_location('Entering:'||l_proc, 5);
1146
1147 ben_dm_utility.message('ROUT','entry: ' || l_proc , 5);
1148
1149 -- get the version of download generator
1150 hr_dm_library.get_package_version ( p_package_name => 'BEN_DM_GEN_DOWNLOAD',
1151 p_package_version => l_package_version);
1152
1153 if p_format_output = 'Y' then
1154 l_generator_version := priv_indent || l_package_version;
1155 else
1156 l_generator_version := l_package_version;
1157 end if;
1158
1159 -- get the version of upload generator
1160 hr_dm_library.get_package_version ( p_package_name => 'BEN_DM_GEN_UPLOAD',
1161 p_package_version => l_package_version);
1162
1163 if p_format_output = 'Y' then
1164 l_generator_version := l_generator_version || priv_indent || l_package_version;
1165 else
1166 l_generator_version := l_generator_version || ' :: ' || l_package_version;
1167 end if;
1168
1169
1170
1171 -- get the version of data utility
1172 hr_dm_library.get_package_version ( p_package_name => 'BEN_DM_DATA_UTIL',
1173 p_package_version => l_package_version);
1174
1175 if p_format_output = 'Y' then
1176 l_generator_version := l_generator_version || priv_indent || l_package_version;
1177 else
1178 l_generator_version := l_generator_version || ' :: ' || l_package_version;
1179 end if;
1180
1181 -- get the version of package download foreign keys.
1182 hr_dm_library.get_package_version ( p_package_name => 'BEN_DM_UPLOAD_DK',
1183 p_package_version => l_package_version);
1184
1185
1186 if p_format_output = 'Y' then
1187 l_generator_version := l_generator_version || priv_indent ||
1188 l_package_version;
1189 else
1190 l_generator_version := l_generator_version || ' :: ' || l_package_version;
1191 end if;
1192
1193 -- get the version of TDS generator
1194 hr_dm_library.get_package_version ( p_package_name => 'BEN_DM_DOWNLOAD_DK',
1195 p_package_version => l_package_version);
1196
1197 if p_format_output = 'Y' then
1198 l_generator_version := l_generator_version || priv_indent ||
1199 l_package_version;
1200 else
1201 l_generator_version := l_generator_version || ' :: ' || l_package_version;
1202 end if;
1203
1204
1205 -- get the version of TDS generator
1206 hr_dm_library.get_package_version ( p_package_name => 'BEN_DM_GEN_SELF_REF',
1207 p_package_version => l_package_version);
1208
1209 if p_format_output = 'Y' then
1210 l_generator_version := l_generator_version || priv_indent ||
1211 l_package_version;
1212 else
1213 l_generator_version := l_generator_version || ' :: ' || l_package_version;
1214 end if;
1215
1216 p_generator_version := l_generator_version;
1217
1218 ben_dm_utility.message('PARA','(p_generator_version - ' ||
1219 p_generator_version || ')', 30);
1220 ben_dm_utility.message('ROUT','exit: ' || l_proc , 25);
1221
1222 hr_utility.set_location('Leaving :'||l_proc, 15);
1223 exception
1224 when others then
1225 ben_dm_utility.error(SQLCODE,l_proc, '(p_generator_version - ' || p_generator_version ||
1226 ')','R');
1227 raise;
1228 end get_generator_version;
1229
1230 --
1231 -- Procedure to delete data given Group Order. The group order may consist of
1232 -- more than 1 person id's.
1233 --
1234 procedure delete_process
1235 (p_migration_id in number
1236 ,p_group_order in number) is
1237
1238 --
1239 -- cursor to Fetch Data from BEN_DM_FILE_INPUT table.
1240 --
1241 cursor csr_get_inf is
1242 select *
1243 from ben_dm_input_file inf
1244 where group_order = p_group_order
1245 and person_type = 'P'
1246 ;
1247
1248 cursor csr_get_person (c_business_group_id number, c_national_identifier varchar2) is
1249 select person_id
1250 from per_all_people_f
1251 where business_group_id = c_business_group_id
1252 and national_identifier = c_national_identifier;
1253
1254 -- Declare cursors and local variables
1255 --
1256 l_proc varchar2(72) := g_package || 'delete_process';
1260 l_table_rec_per csr_get_person%rowtype;
1257 TYPE person_tab IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
1258 l_person_table person_tab;
1259 l_table_rec csr_get_inf%rowtype;
1261 l_counter Number := 0;
1262 l_person_id Number := 0;
1263 l_bg_id Number;
1264
1265 begin
1266 --
1267 -- Initialize PL/SQL table that will store the person id's that will
1268 -- be deleted if they exist in the target for a given group.
1269 --
1270 hr_utility.set_location('Entering:'||l_proc, 5);
1271 l_counter := 0;
1272 l_person_table.delete;
1273 --
1274 for x in csr_get_inf loop
1275 --
1276 -- Check to see if target SSN exists. If it exists then
1277 -- return the person_id else return the person_id = 0;
1278 --
1279
1280 if x.target_national_identifier is not null then
1281 l_bg_id := ben_dm_data_util.get_bg_id(x.target_business_group_name);
1282
1283 open csr_get_person(c_business_group_id => l_bg_id
1284 ,c_national_identifier => x.target_national_identifier);
1285 fetch csr_get_person into l_table_rec_per;
1286 if csr_get_person%notfound then
1287 l_person_id := 0;
1288 else
1289 l_person_id := l_table_rec_per.person_id;
1290 end if;
1291 close csr_get_person;
1292 else
1293 l_bg_id := ben_dm_data_util.get_bg_id(x.target_business_group_name);
1294
1295 open csr_get_person(c_business_group_id => l_bg_id
1296 ,c_national_identifier => x.source_national_identifier);
1297 fetch csr_get_person into l_table_rec_per;
1298 if csr_get_person%notfound then
1299 l_person_id := 0;
1300 else
1301 l_person_id := l_table_rec_per.person_id;
1302 end if;
1303 close csr_get_person;
1304
1305 end if;
1306
1307 --
1308 -- Set the l_person_table with the person_id that will need to be deleted.
1309 --
1310
1311 if l_person_id <> 0 then
1312 l_counter := l_counter+1;
1313 l_person_table(l_counter) := l_person_id;
1314 end if;
1315 end loop;
1316
1317 --
1318 -- Now loop theough the l_person_table and call the delete_target to perform actual delete.
1319 --
1320
1321 For i in 1..l_counter loop
1322
1323 ben_person_delete.delete_ben_rows(l_person_table(i));
1324 hr_person_delete.delete_a_person(l_person_table(i), FALSE, SYSDATE);
1325
1326 end loop;
1327
1328 hr_utility.set_location(' Leaving:'||l_proc, 10);
1329 -- debug messages
1330 exception
1331 when others then
1332 hr_utility.set_location(' Exception :'||l_proc, 10);
1333 raise;
1334 end;
1335
1336 Procedure Load_table ( p_table_name in varchar2
1337 ,p_owner in varchar2
1338 ,p_last_update_date in varchar2
1339 ,p_upload_table_name in varchar2
1340 ,p_table_alias in varchar2
1341 ,p_datetrack in varchar2
1342 ,p_derive_sql in varchar2
1343 ,p_surrogate_pk_column_name in varchar2
1344 ,p_short_name in varchar2
1345 ,p_sequence_name in varchar2
1346 ) is
1347
1348
1349
1350 cursor c1 is
1351 select table_id
1352 from ben_dm_tables
1353 where table_name = p_table_name ;
1354
1355 l_table_id number ;
1356 l_proc varchar2(70) ;
1357 Begin
1358 l_proc := g_package || 'Load_table' ;
1359 hr_utility.set_location('Entering:'||l_proc, 5);
1360 ----ptilak(l_proc) ;
1361 open c1 ;
1362 fetch c1 into l_table_id ;
1363 if c1%found then
1364 hr_utility.set_location(' Insert :'||p_table_name, 10);
1365 update ben_dm_tables
1366 set table_name = p_table_name
1367 ,upload_table_name = p_upload_table_name
1368 ,table_alias = p_table_alias
1369 ,datetrack = p_datetrack
1370 ,derive_sql = p_derive_sql
1371 ,surrogate_pk_column_name = p_surrogate_pk_column_name
1372 ,short_name = p_short_name
1373 ,sequence_name = p_sequence_name
1374 ,last_update_date = sysdate
1375 ,last_updated_by = fnd_global.user_id
1376 ,last_update_login = fnd_global.login_id
1377 where table_id = l_table_id ;
1378
1379 else
1380 hr_utility.set_location(' Update :'||p_table_name, 10);
1381 insert into ben_dm_tables
1382 ( table_id
1383 ,table_name
1384 ,upload_table_name
1385 ,table_alias
1386 ,datetrack
1387 ,derive_sql
1388 ,surrogate_pk_column_name
1389 ,short_name
1390 ,sequence_name
1391 ,last_update_date
1392 ,last_updated_by
1393 ,last_update_login
1394 ,created_by
1395 ,creation_date
1396 ) values
1397 (
1398 ben_dm_tables_s.nextval
1399 ,p_table_name
1400 ,p_upload_table_name
1401 ,p_table_alias
1402 ,p_datetrack
1403 ,p_derive_sql
1404 ,p_surrogate_pk_column_name
1405 ,p_short_name
1406 ,p_sequence_name
1407 ,sysdate
1411 ,sysdate
1408 ,fnd_global.user_id
1409 ,fnd_global.login_id
1410 ,fnd_global.user_id
1412 ) ;
1413 end if ;
1414 close c1 ;
1415
1416 hr_utility.set_location(' Leaving:'||l_proc, 10);
1417 exception
1418 when others then
1419 raise ;
1420 end Load_table ;
1421
1422
1423 procedure load_table_order(
1424 p_Table_name in varchar2
1425 ,p_owner in varchar2
1426 ,p_table_order in varchar2
1427 ,p_last_update_date in varchar2
1428 ) is
1429
1430
1431
1432 cursor c1 is
1433 select table_id
1434 from ben_dm_tables
1435 where table_name = p_table_name ;
1436
1437 l_table_id number ;
1438
1439 cursor c2 is
1440 select table_order_id
1441 from ben_dm_table_order
1442 where table_id = l_table_id
1443 -- and table_order = p_Table_order
1444 ;
1445 l_table_order_id number ;
1446
1447 l_proc varchar2(70) ;
1448 Begin
1449 l_proc := g_package || 'load_table_order' ;
1450 --ptilak(l_proc) ;
1451 hr_utility.set_location('Entering:'||l_proc, 5);
1452
1453 open c1 ;
1454 fetch c1 into l_table_id ;
1455 if c1%notfound then
1456 close c1 ;
1457 raise_application_error(-20001,' Table '|| p_table_name ||
1458 ' not found for table order '||p_table_order);
1459 end if ;
1460 close c1 ;
1461
1462 open c2 ;
1463 fetch c2 into l_table_order_id ;
1464 if c2%found then
1465
1466 hr_utility.set_location(' Insert :'||p_table_name, 10);
1467 update ben_dm_table_order
1468 set table_order = p_table_order
1469 ,last_update_date = sysdate
1470 ,last_updated_by = fnd_global.user_id
1471 ,last_update_login = fnd_global.login_id
1472 where table_order_id = l_table_order_id
1473 ;
1474 else
1475 hr_utility.set_location(' Update :'||p_table_name, 10);
1476 insert into ben_dm_table_order
1477 (table_order_id
1478 ,table_id
1479 ,table_order
1480 ,last_update_date
1481 ,last_updated_by
1482 ,last_update_login
1483 ,created_by
1484 ,creation_date
1485 ) Values
1486 (ben_dm_table_order_s.nextval
1487 ,l_table_id
1488 ,p_table_order
1489 ,sysdate
1490 ,fnd_global.user_id
1491 ,fnd_global.login_id
1492 ,fnd_global.user_id
1493 ,sysdate
1494 );
1495 end if ;
1496 close c2 ;
1497
1498
1499 hr_utility.set_location(' Leaving:'||l_proc, 10);
1500 exception
1501 when others then
1502 raise ;
1503
1504 END Load_TABLE_ORDER ;
1505
1506 procedure load_HIERARCHY(
1507 p_Table_name in varchar2
1508 ,p_column_name in varchar2
1509 ,p_hierarchy_type in varchar2
1510 ,p_owner in varchar2
1511 ,p_last_update_date in varchar2
1512 ,p_parent_table_name in varchar2
1513 ,p_parent_column_name in varchar2
1514 ,p_parent_id_column_name in varchar2
1515 ) is
1516
1517 cursor c1 is
1518 select table_id
1519 from ben_dm_tables
1520 where table_name = p_table_name ;
1521
1522 l_table_id number ;
1523
1524 cursor c2 is
1525 select hierarchy_id
1526 from ben_dm_hierarchies
1527 where table_id = l_table_id
1528 and column_name = p_column_name
1529 ;
1530 l_hierarchy_id number ;
1531
1532 l_proc varchar2(70) ;
1533 Begin
1534 l_proc := g_package || 'load_hierarchy' ;
1535 hr_utility.set_location('Entering:'||l_proc, 5);
1536
1537 open c1 ;
1538 fetch c1 into l_table_id ;
1539 if c1%notfound then
1540 close c1 ;
1541 --raise error
1542 raise_application_error(-20001,' Table '|| p_table_name ||
1543 ' not found for hierarchy column '||p_column_name);
1544 end if ;
1545 close c1 ;
1546
1547 open c2 ;
1548 fetch c2 into l_hierarchy_id ;
1549 if c2%found then
1550
1551 hr_utility.set_location(' Insert :'||p_table_name, 10);
1552 update ben_dm_hierarchies
1553 set parent_table_name = p_parent_table_name
1554 ,parent_column_name = p_parent_column_name
1555 ,parent_id_column_name = p_parent_id_column_name
1556 ,last_update_date = sysdate
1557 ,last_updated_by = fnd_global.user_id
1558 ,last_update_login = fnd_global.login_id
1559 where hierarchy_id = l_hierarchy_id
1560 ;
1561 else
1562 hr_utility.set_location(' Update :'||p_table_name, 10);
1563 insert into ben_dm_hierarchies
1564 ( hierarchy_id
1565 ,hierarchy_type
1566 ,table_id
1567 ,column_name
1568 ,parent_table_name
1569 ,parent_column_name
1570 ,parent_id_column_name
1571 ,last_update_date
1572 ,last_updated_by
1573 ,last_update_login
1574 ,created_by
1575 ,creation_date
1576 ) values
1577 ( ben_dm_hierarchies_s.nextval
1578 ,p_hierarchy_type
1579 ,l_table_id
1580 ,p_column_name
1581 ,p_parent_table_name
1585 ,fnd_global.user_id
1582 ,p_parent_column_name
1583 ,p_parent_id_column_name
1584 ,sysdate
1586 ,fnd_global.login_id
1587 ,fnd_global.user_id
1588 ,sysdate
1589 ) ;
1590 end if ;
1591 close c2 ;
1592
1593
1594 hr_utility.set_location(' Leaving:'||l_proc, 10);
1595 exception
1596 when others then
1597 raise ;
1598
1599 END Load_HIERARCHY ;
1600
1601 procedure load_mappings(
1602 p_Table_name in varchar2
1603 ,p_column_name in varchar2
1604 ,p_owner in varchar2
1605 ,p_last_update_date in varchar2
1606 ,p_entity_result_column_name in varchar2
1607 ) is
1608 cursor c1 is
1609 select table_id
1610 from ben_dm_tables
1611 where table_name = p_table_name ;
1612
1613 l_table_id number ;
1614
1615 cursor c2 is
1616 select column_mapping_id
1617 from ben_dm_column_mappings
1618 where table_id = l_table_id
1619 and column_name = p_column_name
1620 ;
1621 l_column_mapping_id number ;
1622
1623 l_proc varchar2(70) ;
1624 Begin
1625 l_proc := g_package || 'load_mappings' ;
1626 hr_utility.set_location('Entering:'||l_proc, 5);
1627
1628 open c1 ;
1629 fetch c1 into l_table_id ;
1630 if c1%notfound then
1631 close c1 ;
1632 --raise error
1633 raise_application_error(-20001,' Table '|| p_table_name ||
1634 ' not found for column mapping '||p_column_name);
1635 end if ;
1636 close c1 ;
1637
1638 open c2 ;
1639 fetch c2 into l_column_mapping_id ;
1640 if c2%found then
1641
1642 hr_utility.set_location(' Insert :'||p_table_name, 10);
1643 update ben_dm_column_mappings
1644 set entity_result_column_name = entity_result_column_name
1645 where column_mapping_id = l_column_mapping_id
1646 ;
1647 else
1648 hr_utility.set_location(' Update :'||p_table_name, 10);
1649 insert into ben_dm_column_mappings
1650 ( column_mapping_id
1651 ,table_id
1652 ,column_name
1653 ,ENTITY_RESULT_COLUMN_NAME
1654 ,last_update_date
1655 ,last_updated_by
1656 ,last_update_login
1657 ,created_by
1658 ,creation_date
1659 ) values
1660 ( ben_dm_column_mappings_s.nextval
1661 ,l_table_id
1662 ,p_column_name
1663 ,p_entity_result_column_name
1664 ,sysdate
1665 ,fnd_global.user_id
1666 ,fnd_global.login_id
1667 ,fnd_global.user_id
1668 ,sysdate
1669 ) ;
1670 end if ;
1671 close c2 ;
1672
1673 hr_utility.set_location(' Leaving:'||l_proc, 10);
1674 exception
1675 when others then
1676 raise ;
1677 END load_mappings ;
1678
1679 procedure load_HR_PHASE_RULE(
1680 p_MIGRATION_TYPE IN VARCHAR2
1681 ,p_PHASE_NAME IN VARCHAR2
1682 ,p_PREVIOUS_PHASE IN VARCHAR2
1683 ,p_NEXT_PHASE IN VARCHAR2
1684 ,p_DATABASE_LOCATION IN VARCHAR2
1685 ,p_LAST_UPDATE_DATE IN VARCHAR2
1686 ,p_OWNER IN VARCHAR2
1687 ,p_SECURITY_GROUP_ID IN VARCHAR2
1688 )is
1689
1690 cursor c1 is
1691 select 'x'
1692 from hr_dm_phase_rules
1693 where p_MIGRATION_TYPE = MIGRATION_TYPE
1694 and p_PHASE_NAME = PHASE_NAME
1695 and p_PREVIOUS_PHASE = PREVIOUS_PHASE
1696 and p_NEXT_PHASE = NEXT_PHASE
1697 and p_DATABASE_LOCATION = DATABASE_LOCATION
1698 ;
1699 l_dummy varchar2(1) ;
1700
1701 l_proc varchar2(70) ;
1702 Begin
1703 l_proc := g_package || 'load_HR_PHASE_RULE' ;
1704 hr_utility.set_location('Entering:'||l_proc, 5);
1705
1706 open c1 ;
1707 fetch c1 into l_dummy ;
1708 if c1%notfound then
1709 insert into hr_dm_phase_rules
1710 ( phase_rule_id
1711 ,MIGRATION_TYPE
1712 ,PHASE_NAME
1713 ,PREVIOUS_PHASE
1714 ,NEXT_PHASE
1715 ,DATABASE_LOCATION
1716 ,LAST_UPDATE_DATE
1717 ,LAST_UPDATED_BY
1718 ,LAST_UPDATE_LOGIN
1719 ,CREATED_BY
1720 ,CREATION_DATE
1721 ,SECURITY_GROUP_ID
1722 ) Values
1723 ( hr_dm_phase_rules_s.nextval
1724 ,p_MIGRATION_TYPE
1725 ,p_PHASE_NAME
1726 ,p_PREVIOUS_PHASE
1727 ,p_NEXT_PHASE
1728 ,p_DATABASE_LOCATION
1729 ,sysdate
1730 ,fnd_global.user_id
1731 ,fnd_global.login_id
1732 ,fnd_global.user_id
1733 ,sysdate
1734 ,p_SECURITY_GROUP_ID
1735 ) ;
1736
1737 end if ;
1738 close c1 ;
1739
1740 hr_utility.set_location(' Leaving:'||l_proc, 10);
1741 exception
1742 when others then
1743 raise ;
1744 END load_HR_PHASE_RULE ;
1745
1746 Procedure update_gen_version (p_table_id in number
1747 ,p_version in varchar2
1748 ) is
1749 l_proc varchar2(75) ;
1750 Begin
1751 l_proc := g_package || 'update_gen_version' ;
1752 hr_utility.set_location('Entering :'||l_proc, 5);
1756 , LAST_GENERATED_DATE = sysdate
1753
1754 update ben_dm_tables
1755 set GENERATOR_VERSION = replace(replace (p_version,' $Header:',''),' - ',':')
1757 where table_id = p_table_id ;
1758
1759 hr_utility.set_location('Leaving:'||l_proc, 10);
1760 end ;
1761 --
1762 function get_dm_flag return varchar2 as
1763 l_return varchar2(30) ;
1764 begin
1765 l_return := hr_general.g_data_migrator_mode;
1766 return l_return;
1767 end get_dm_flag ;
1768 --
1769 end ben_dm_data_util;