DBA Data[Home] [Help]

PACKAGE BODY: APPS.PAY_LOAD_PROCESS_FLOWS

Source


1 PACKAGE BODY PAY_LOAD_PROCESS_FLOWS AS
2 /* $Header: pyprflld.pkb 120.1.12020000.1 2013/03/22 08:07:20 nvankadh noship $ */
3 /*
4  ******************************************************************
5  *                                                                *
6  *  Copyright (C) 1993 Oracle Corporation UK Ltd.,                *
7  *                   Chertsey, England.                           *
8  *                                                                *
9  *  All rights reserved.                                          *
10  *                                                                *
11  *  This material has been provided pursuant to an agreement      *
12  *  containing restrictions on its use.  The material is also     *
13  *  protected by copyright law.  No part of this material may     *
14  *  be copied or distributed, transmitted or transcribed, in      *
15  *  any form or by any means, electronic, mechanical, magnetic,   *
16  *  manual, or otherwise, or disclosed to third parties without   *
17  *  the express written permission of Oracle Corporation UK Ltd,  *
18  *  Oracle Park, Bittams Lane, Guildford Road, Chertsey, Surrey,  *
19  *  England.                                                      *
20  *                                                                *
21  ******************************************************************
22 
23  ======================================================================
24 
25  Change List
26  ===========
27 
28  Version Date       Author    ER/CR No. Description of Change
29  -------+---------+----------+---------+-------------------------------
30  115.0   03/03/08  ckesanap   6820127   Created the file.
31  ----------------------------------------------------------------------
32 */
33 
34 -- ----------------------------------------------------------------------------
35 -- |--------------------------< load_parameter_sets >--------------------------|
36 -- ----------------------------------------------------------------------------
37 --
38 -- Description:
39 -- Procedure used to upload seed data for the table PAY_PARAMETER_SETS
40 --
41 -- ----------------------------------------------------------------------------
42 procedure load_parameter_sets
43            ( p_set_name  in varchar2
44 	    ,p_bg_name   in varchar2
45 	    ,p_desc      in varchar2
46 	    ,p_wrap_pkg  in varchar2
47 	    ,p_leg_code  in VARCHAR2
48 	    ,p_owner     IN varchar2
49 	   )     AS
50 
51 cursor ppsexists(p_set_name varchar2) is
52          select pps.set_id
53            from pay_parameter_sets pps,
54 	        pay_parameters pp,
55 		pay_parameter_definitions ppd,
56 		PER_BUSINESS_GROUPS pbg
57           where ppd.parameter_name = p_set_name
58 	    and ppd.parameter_def_id = pp.parameter_def_id
59 	    and pp.parameter_id = pps.set_name_id
60 	    AND pps.business_group_id = pbg.business_group_id(+)
61         and nvl(pbg.name,'CORE') = nvl(p_bg_name,'CORE')
62         and nvl(pps.legislation_code,'CORE') = nvl(p_leg_code,'CORE') ;
63 
64 	cursor c_get_set_name_id (p_set_name varchar2) IS
65          select pp.parameter_id
66          from PAY_PARAMETERS pp,
67               PAY_PARAMETER_DEFINITIONS ppd
68          where ppd.parameter_name = p_set_name
69          and ppd.parameter_def_id = pp.parameter_def_id;
70 --
71 
72 found boolean;
73 l_set_id number;
74 l_set_name_id number;
75 l_business_group_id number;
76 
77 begin
78    -- upload code
79            found := FALSE;
80 
81               for getrec in ppsexists(p_set_name) loop
82                 l_set_id := getrec.set_id;
83                 found := TRUE;
84             end loop;
85 
86 --
87             if (p_bg_name is not null) then
88               select business_group_id
89                 into l_business_group_id
90                 from per_business_groups
91                where name = p_bg_name;
92             end if;
93 --
94             hr_utility.trace('After getting bg_name : '||l_business_group_id);
95 
96             if(found = TRUE) then
97 
98               UPDATE PAY_PARAMETER_SETS SET
99                    description       = p_desc
100                  , wrapper_pkg       = p_wrap_pkg
101                  , LAST_UPDATED_BY   = decode(p_owner,'SEED',1,0)
102                  , LAST_UPDATE_DATE  = SYSDATE
103                  , LAST_UPDATE_LOGIN = fnd_global.login_id
104               WHERE set_id           = l_set_id ;
105 
106             else
107 
108 	        OPEN c_get_set_name_id(p_set_name);
109             FETCH c_get_set_name_id into l_set_name_id;
110             CLOSE c_get_set_name_id;
111 
112 
113              hr_utility.trace('After get_set_name_id : '||l_set_name_id);
114 
115               INSERT INTO PAY_PARAMETER_SETS (
119                          , wrapper_pkg
116                            set_id
117                          , set_name_id
118                          , description
120                          , business_group_id
121                          , legislation_code
122                          ,LAST_UPDATED_BY
123                          ,LAST_UPDATE_DATE
124                          ,LAST_UPDATE_LOGIN
125                          ,CREATION_DATE
126                          ,CREATED_BY  )
127               VALUES    (
128                          PAY_PARAMETER_SETS_S.nextval
129                          , l_set_name_id
130                          , p_desc
131                          , p_wrap_pkg
132                          , l_business_group_id
133                          , p_leg_code
134                          , decode(p_owner,'SEED',1,0)
135                          , SYSDATE
136                          , fnd_global.login_id
137                          , SYSDATE
138                          , decode(p_owner,'SEED',1,0) );
139 
140             end if;
141 --
142 exception
143 when others then
144 hr_utility.trace('An exception was raised : '||dbms_utility.format_error_stack );
145 --
146 end load_parameter_sets;
147 
148 --------
149 -- ----------------------------------------------------------------------------
150 -- |-------------------------< load_para_set_variables >-----------------------|
151 -- ----------------------------------------------------------------------------
152 --
153 -- Description:
154 -- Procedure used to upload seed data for the table PAY_PARAMETER_SET_VARIABLES
155 --
156 -- ----------------------------------------------------------------------------
157 procedure load_para_set_variables
158            ( p_set_name     in varchar2
159             ,p_bg_name      in varchar2
160             ,p_leg_code     in varchar2
161 	    ,p_param_name   in varchar2
162 	    ,p_group_id     in varchar2
163 	    ,p_set_var_seq  in varchar2
164 	    ,p_var_type     in varchar2
165 	    ,p_def_type     in varchar2
166 	    ,p_def_value    in varchar2
167 	    ,p_disp_flag    in varchar2
168 	    ,p_desc         in VARCHAR2
169 	    ,p_owner        in varchar2
170 	   )       AS
171 
172         cursor psvexists( p_set_name   varchar2
173 	                 ,p_param_name varchar2) is
174          select psv.set_variable_id
175            from pay_para_set_variables psv,
176 	        pay_parameter_sets pps,
177 	        pay_parameters pp1,
178 		pay_parameters pp2,
179 		pay_parameter_definitions ppd1,
180 		pay_parameter_definitions ppd2,
181 		per_business_groups pbg
182           where ppd1.parameter_name = p_set_name
183 	    and ppd1.parameter_def_id = pp1.parameter_def_id
184 	    and pp1.parameter_id = pps.set_name_id
185 	    and pps.set_id = psv.set_id
186 	    and psv.parameter_id = pp2.parameter_id
187 	    and pp2.parameter_def_id = ppd2.parameter_def_id
188 	    and ppd2.parameter_name = p_param_name
189 	    and psv.group_id = p_group_id
190 	    AND psv.business_group_id = pbg.business_group_id(+)
191         and nvl(pbg.name,'CORE') = nvl(p_bg_name,'CORE')
192         and nvl(psv.legislation_code,'CORE') = nvl(p_leg_code,'CORE') ;
193 
194      cursor get_param_id( l_parameter_name in varchar2) is
195 	  select pp.parameter_id
196 	    from pay_parameters pp,
197 	         pay_parameter_definitions ppd
198            where ppd.parameter_name = l_parameter_name
199 	     and ppd.parameter_def_id = pp.parameter_def_id;
200 
201 	 cursor c_get_set_id ( p_set_name in varchar2 ) IS
202           select pps.set_id
203           from PAY_PARAMETERS pp,
204                PAY_PARAMETER_DEFINITIONS ppd,
205 	       pay_parameter_sets pps
206           where ppd.parameter_name = p_set_name
207           and ppd.parameter_def_id = pp.parameter_def_id
208 	  and pp.parameter_id = pps.set_name_id;
209 --
210 
211 found boolean;
212 l_set_variable_id number;
213 l_set_id number;
214 l_parameter_id number;
215 l_business_group_id number;
216 begin
217   -- upload code
218            found := FALSE;
219 
220             for getrec in psvexists(p_set_name,p_param_name) loop
221                 l_set_variable_id := getrec.set_variable_id;
222                 found := TRUE;
223             end loop;
224 hr_utility.trace('After getrec, l_set_variable_id : '||l_set_variable_id);
225 --
226             if (p_bg_name is not null) then
227               select business_group_id
228                 into l_business_group_id
229                 from per_business_groups
230                where name = p_bg_name;
231             end if;
232 --
233             if(found = TRUE) then
234 
235 
236               UPDATE PAY_PARA_SET_VARIABLES SET
237                    set_var_sequence   = p_set_var_seq
238                  , variable_type      = p_var_type
239                  , default_type       = p_def_type
240 		         , default_value      = p_def_value
241 	        	 , display_flag       = p_disp_flag
242 	        	 , description        = p_desc
243                  ,LAST_UPDATED_BY     = decode(p_owner,'SEED',1,0)
244                  ,LAST_UPDATE_DATE    = SYSDATE
245                  ,LAST_UPDATE_LOGIN   = fnd_global.login_id
246               WHERE set_variable_id   = l_set_variable_id ;
247 
248             else
249 
250 	    open get_param_id(p_param_name);
251 	    fetch get_param_id into l_parameter_id;
252 	    close get_param_id;
253 
254 	    OPEN c_get_set_id(p_set_name);
255             FETCH c_get_set_id into l_set_id;
256             CLOSE c_get_set_id;
257 
261                            set_variable_id
258             hr_utility.trace('Before inserting, l_set_id : '||l_set_id);
259 
260               INSERT INTO PAY_PARA_SET_VARIABLES (
262                          , set_id
263                          , parameter_id
264 			 , group_id
265 			 , variable_type
266 			 , default_type
267 			 , default_value
268 			 , display_flag
269 			 , set_var_sequence
270                          , description
271                          , business_group_id
272                          , legislation_code
273                          ,LAST_UPDATED_BY
274                          ,LAST_UPDATE_DATE
275                          ,LAST_UPDATE_LOGIN
276                          ,CREATION_DATE
277                          ,CREATED_BY  )
278               VALUES    (
279                          PAY_PARA_SET_VARIABLES_S.nextval
280 			 , l_set_id
281                          , l_parameter_id
282                          , p_group_id
283 			 , p_var_type
284 			 , p_def_type
285 			 , p_def_value
286 			 , p_disp_flag
287 			 , p_set_var_seq
288 			 , p_desc
289 			 , l_business_group_id
290                          , p_leg_code
291                          , decode(p_owner,'SEED',1,0)
292                          , SYSDATE
293                          , fnd_global.login_id
294                          , SYSDATE
295                          , decode(p_owner,'SEED',1,0) );
296 
297             end if;
298 --
299 exception
300 when others then
301 hr_utility.trace('An exception was raised : '||dbms_utility.format_error_stack );
302 --
303 end load_para_set_variables;
304 
305 --------
306 -- ----------------------------------------------------------------------------
307 -- |-----------------------< load_para_set_override_vars >---------------------|
308 -- ----------------------------------------------------------------------------
309 --
310 -- Description:
311 -- Procedure used to upload seed data for the table PAY_PARA_SET_OVERRIDE_VARS
312 --
313 -- ----------------------------------------------------------------------------
314 procedure load_para_set_override_vars
315            ( p_flow_name    in varchar2
316 	    ,p_flow_param    in varchar2
317 	    ,p_set_name    in varchar2
318 	    ,p_set_param    in varchar2
319 	    ,p_bg_name      in varchar2
320 	    ,p_leg_code     in VARCHAR2
321 	    ,p_owner     IN varchar2
322 	   ) AS
323 
324         cursor psovexists( p_flow_name    varchar2
325                       ,p_flow_param   varchar2
326 	                  ,p_set_name     varchar2
327 	                  ,p_set_param   varchar2
328 	                  ) is
329          select psov.shared_variable_id
330            from pay_para_set_override_vars psov,
331 	        pay_para_set_variables psv_flow,
332 		pay_para_set_variables psv_set,
333 	        pay_parameter_sets pps_flow,
334 		pay_parameter_sets pps_set,
335 	        pay_parameters pp_flow,
336 		pay_parameters pp_flow_param,
337 		pay_parameters pp_set,
338 		pay_parameters pp_set_param,
339 		pay_parameter_definitions ppd_flow,
340 		pay_parameter_definitions ppd_flow_param,
341 		pay_parameter_definitions ppd_set,
342 		pay_parameter_definitions ppd_set_param,
343 		per_business_groups pbg
344       where ppd_flow.parameter_name = p_flow_name
345 	    and ppd_flow.parameter_def_id = pp_flow.parameter_def_id
346 	    and pp_flow.parameter_id = pps_flow.set_name_id
347 	    and pps_flow.set_id = psv_flow.set_id
348 	    and psv_flow.set_variable_id = psov.source_set_var_id
349 	    and psov.destin_set_var_id = psv_set.set_variable_id
350 	    and psv_set.set_id = pps_set.set_id
351 	    and pps_set.set_name_id = pp_set.parameter_id
352 	    and pp_set.parameter_def_id = ppd_set.parameter_def_id
353 	    and ppd_set.parameter_name = p_set_name
354 	    and psv_flow.parameter_id = pp_flow_param.parameter_id
355 	    and pp_flow_param.parameter_def_id = ppd_flow_param.parameter_def_id
356 	    and ppd_flow_param.parameter_name = p_flow_param
357         and psv_set.parameter_id = pp_set_param.parameter_id
358 	    and pp_set_param.parameter_def_id = ppd_set_param.parameter_def_id
359 	    and ppd_set_param.parameter_name = p_set_param
360 	    AND psov.business_group_id = pbg.business_group_id(+)
361         and nvl(pbg.name,'CORE') = nvl(p_bg_name,'CORE')
362         and nvl(psov.legislation_code,'CORE') = nvl(p_leg_code,'CORE') ;
363 
364   cursor get_src_dstn_set_var_id( p_flow_or_set_name varchar2,
365 	                                 p_param_name in varchar2) is
366 	  select psv.set_variable_id
367 	    from pay_parameters pp1,
368 	         pay_parameters pp2,
369 	         pay_parameter_definitions ppd1,
370 		 pay_parameter_definitions ppd2,
371 		 pay_parameter_sets pps,
372 		 pay_para_set_variables psv
373            where ppd1.parameter_name = p_flow_or_set_name
374 	     and ppd1.parameter_def_id = pp1.parameter_def_id
375 	     and pp1.parameter_id = pps.set_name_id
376 	     and pps.set_id = psv.set_id
377 	     and ppd2.parameter_name = p_param_name
378 	     and ppd2.parameter_def_id = pp2.parameter_def_id
379 	     and psv.parameter_id = pp2.parameter_id ;
380 
381 --
382 
383 found boolean;
384 l_shared_variable_id number;
385 l_source_set_var_id number;
386 l_destin_set_var_id number;
387 l_business_group_id number;
388 begin
389   -- upload code
390            found := FALSE;
391 
392             for getrec in psovexists(p_flow_name,p_flow_param,p_set_name,p_set_param) loop
393                 l_shared_variable_id := getrec.shared_variable_id;
394                 found := TRUE;
398 
395             end loop;
396 
397             hr_utility.trace('After getrec, l_shared_variable_id: '||l_shared_variable_id);
399 --
400             if (p_bg_name is not null) then
401               select business_group_id
402                 into l_business_group_id
403                 from per_business_groups
404                where name = p_bg_name;
405             end if;
406 --
407             if(found = TRUE) then
408 
409               null;
410 
411             else
412 
413 	    open get_src_dstn_set_var_id(p_flow_name,p_flow_param);
414 	    fetch get_src_dstn_set_var_id into l_source_set_var_id;
415 	    close get_src_dstn_set_var_id;
416 
417         hr_utility.trace('After get_src_id :'|| l_source_set_var_id);
418 
419 	    open get_src_dstn_set_var_id(p_set_name,p_set_param);
420             fetch get_src_dstn_set_var_id into l_destin_set_var_id;
421             close get_src_dstn_set_var_id;
422 
423         hr_utility.trace('After get_dest_id :'|| l_destin_set_var_id);
424 
425               INSERT INTO PAY_PARA_SET_OVERRIDE_VARS (
426                            shared_variable_id
427                          , source_set_var_id
428                          , destin_set_var_id
429                          , business_group_id
430                          , legislation_code
431                          ,LAST_UPDATED_BY
432                          ,LAST_UPDATE_DATE
433                          ,LAST_UPDATE_LOGIN
434                          ,CREATION_DATE
435                          ,CREATED_BY  )
436               VALUES    (
437                          PAY_PARA_SET_OVERRIDE_VARS_S.nextval
438 			             , l_source_set_var_id
439                          , l_destin_set_var_id
440                          , l_business_group_id
441                          , p_leg_code
442                          , decode(p_owner,'SEED',1,0)
443                          , SYSDATE
444                          , fnd_global.login_id
445                          , SYSDATE
446                          , decode(p_owner,'SEED',1,0) );
447 
448             end if;
449 --
450 exception
451 when others then
452 hr_utility.trace('An exception was raised : '||dbms_utility.format_error_stack );
453 --
454 end load_para_set_override_vars;
455 
456 --------
457 -- ----------------------------------------------------------------------------
458 -- |---------------------------< load_process_flows >--------------------------|
459 -- ----------------------------------------------------------------------------
460 --
461 -- Description:
462 -- Procedure used to upload seed data for the table PAY_PROCESS_FLOWS
463 --
464 -- ----------------------------------------------------------------------------
465 procedure load_process_flows
466            ( p_flow_name   in varchar2
467 	    ,p_bg_name     in varchar2
468 	    ,p_desc        in varchar2
469 	    ,p_init_proc   in varchar2
470 	    ,p_leg_code    in VARCHAR2
471 	    ,p_owner     IN varchar2
472 	   )      AS
473 
474         cursor ppfexists(p_flow_name varchar2) is
475          select ppf.process_flow_id
476            from pay_process_flows ppf,
477 	        pay_parameter_sets pps,
478 	        pay_parameters pp,
479 		pay_parameter_definitions ppd,
480 		per_business_groups pbg
481           where ppd.parameter_name = p_flow_name
482 	    and ppd.parameter_def_id = pp.parameter_def_id
483 	    and pp.parameter_id = pps.set_name_id
484 	    and pps.set_id = ppf.set_id
485 	    AND ppf.business_group_id = pbg.business_group_id(+)
486         and nvl(pbg.name,'CORE') = nvl(p_bg_name,'CORE')
487         and nvl(ppf.legislation_code,'CORE') = nvl(p_leg_code,'CORE');
488 
489 	 cursor c_get_set_id ( flow_name in varchar2 ) IS
490           select pps.set_id
491           from PAY_PARAMETERS pp,
492                PAY_PARAMETER_DEFINITIONS ppd,
493 	       pay_parameter_sets pps
494           where ppd.parameter_name = flow_name
495           and ppd.parameter_def_id = pp.parameter_def_id
496 	  and pp.parameter_id = pps.set_name_id;
497 --
498 
499 found boolean;
500 l_process_flow_id number;
501 l_set_id number;
502 l_business_group_id number;
503 
504 begin
505            -- upload code
506            found := FALSE;
507 
508             for getrec in ppfexists(p_flow_name) loop
509                 l_process_flow_id := getrec.process_flow_id;
510                 found := TRUE;
511             end loop;
512 
513 --
514 
515            if (p_bg_name is not null) then
516               select business_group_id
517                 into l_business_group_id
518                 from per_business_groups
519                where name = p_bg_name;
520             end if;
521 --
522             if(found = TRUE) then
523 
524               UPDATE PAY_PROCESS_FLOWS	 SET
525                   initialization_procedure       = p_init_proc
526         		 ,description        = p_desc
527                  ,LAST_UPDATED_BY     = decode(p_owner,'SEED',1,0)
528                  ,LAST_UPDATE_DATE    = SYSDATE
529                  ,LAST_UPDATE_LOGIN   = fnd_global.login_id
530               WHERE process_flow_id   = l_process_flow_id ;
531 
532             else
533 
534 	        OPEN c_get_set_id(p_flow_name);
535             FETCH c_get_set_id into l_set_id;
536             CLOSE c_get_set_id;
537 
538               INSERT INTO PAY_PROCESS_FLOWS (
539                            process_flow_id
540                          , set_id
541                          , description
545                          ,LAST_UPDATED_BY
542 			 , initialization_procedure
543                          , business_group_id
544                          , legislation_code
546                          ,LAST_UPDATE_DATE
547                          ,LAST_UPDATE_LOGIN
548                          ,CREATION_DATE
549                          ,CREATED_BY  )
550               VALUES    (
551                          PAY_PROCESS_FLOWS_S.nextval
552 			 , l_set_id
553                          , p_desc
554                          , p_init_proc
555                          , l_business_group_id
556                          , p_leg_code
557                          , decode(p_owner,'SEED',1,0)
558                          , SYSDATE
559                          , fnd_global.login_id
560                          , SYSDATE
561                          , decode(p_owner,'SEED',1,0));
562 
563             end if;
564 --
565 exception
566 when others then
567 hr_utility.trace('An exception was raised : '||dbms_utility.format_error_stack );
568 --
569 end load_process_flows;
570 
571 
572 ---------
573 -- ----------------------------------------------------------------------------
574 -- |-------------------------< load_process_flow_sets >------------------------|
575 -- ----------------------------------------------------------------------------
576 --
577 -- Description:
578 -- Procedure used to upload seed data for the table PAY_PROCESS_FLOW_SETS
579 --
580 -- ----------------------------------------------------------------------------
581 procedure load_process_flow_sets
582             ( p_flow_name      in varchar2
583             ,p_bg_name   in varchar2
584             ,p_leg_code  in varchar2
585 	    ,p_set_name       in varchar2
586 	    ,p_proc_flow_seq  in VARCHAR2
587 	    ,p_owner     IN varchar2
588 	    )       AS
589 
590         cursor pfsexists( p_flow_name varchar2
591 	                 ,p_set_name  varchar2) is
592          select pfs.process_flow_set_id
593            from pay_process_flow_sets pfs,
594 	        pay_process_flows ppf,
595 	        pay_parameter_sets pps1,
596 		pay_parameter_sets pps2,
597 	        pay_parameters pp1,
598 	        pay_parameters pp2,
599 		pay_parameter_definitions ppd1,
600 		pay_parameter_definitions ppd2,
601 		per_business_groups pbg
602           where ppd1.parameter_name = p_flow_name
603 	    and ppd1.parameter_def_id = pp1.parameter_def_id
604 	    and pp1.parameter_id = pps1.set_name_id
605 	    and pps1.set_id = ppf.set_id
606 	    and ppf.process_flow_id = pfs.process_flow_id
607 	    and pfs.set_id = pps2.set_id
608 	    and pps2.set_name_id = pp2.parameter_id
609 	    and pp2.parameter_def_id = ppd2.parameter_def_id
610 	    and ppd2.parameter_name = p_set_name
611 	    AND pfs.business_group_id = pbg.business_group_id(+)
612         and nvl(pbg.name,'CORE') = nvl(p_bg_name,'CORE')
613         and nvl(pfs.legislation_code,'CORE') = nvl(p_leg_code,'CORE');
614 
615          cursor c_get_flow_id ( p_flow_name in varchar2 ) IS
616           select ppf.process_flow_id
617           from pay_process_flows ppf,
618 	       pay_parameter_sets pps,
619 	       PAY_PARAMETERS pp,
620                PAY_PARAMETER_DEFINITIONS ppd
621           where ppd.parameter_name = p_flow_name
622           and ppd.parameter_def_id = pp.parameter_def_id
623 	  and pp.parameter_id = pps.set_name_id
624 	  and pps.set_id = ppf.set_id;
625 
626 	 cursor c_get_set_id ( p_set_name in varchar2 ) IS
627           select pps.set_id
628           from PAY_PARAMETERS pp,
629                PAY_PARAMETER_DEFINITIONS ppd,
630 	       pay_parameter_sets pps
631           where ppd.parameter_name = p_set_name
632           and ppd.parameter_def_id = pp.parameter_def_id
633 	  and pp.parameter_id = pps.set_name_id;
634 --
635 
636 found boolean;
637 l_process_flow_set_id number;
638 l_process_flow_id number;
639 l_set_id number;
640 l_business_group_id number;
641 begin
642            -- upload code
643            found := FALSE;
644 
645             for getrec in pfsexists(p_flow_name, p_set_name) loop
646                 l_process_flow_set_id := getrec.process_flow_set_id;
647                 found := TRUE;
648             end loop;
649 
650 --
651             if (p_bg_name is not null) then
652               select business_group_id
653                 into l_business_group_id
654                 from per_business_groups
655                where name = p_bg_name;
656             end if;
657 --
658             if(found = TRUE) then
659 
660               UPDATE PAY_PROCESS_FLOW_SETS   SET
661 	          process_flow_seq  = p_proc_flow_seq
662                  ,LAST_UPDATED_BY     = decode(p_owner,'SEED',1,0)
663                  ,LAST_UPDATE_DATE    = SYSDATE
664                  ,LAST_UPDATE_LOGIN   = fnd_global.login_id
665               WHERE process_flow_set_id   = l_process_flow_set_id ;
666 
667             else
668 
669 	    OPEN c_get_set_id(p_set_name);
670             FETCH c_get_set_id into l_set_id;
671             CLOSE c_get_set_id;
672 
673 	    OPEN c_get_flow_id(p_flow_name);
674             FETCH c_get_flow_id into l_process_flow_id;
675             CLOSE c_get_flow_id;
676 
677             hr_utility.trace('Before inserting, l_set_id: '|| l_set_id);
678             hr_utility.trace('Before inserting, l_process_flow_id: '|| l_process_flow_id);
679 
680               INSERT INTO PAY_PROCESS_FLOW_SETS (
681                            process_flow_set_id
682                          , process_flow_id
683                          , set_id
684                          , process_flow_seq
685                          , business_group_id
686                          , legislation_code
687                          ,LAST_UPDATED_BY
688                          ,LAST_UPDATE_DATE
689                          ,LAST_UPDATE_LOGIN
690                          ,CREATION_DATE
691                          ,CREATED_BY  )
692               VALUES    (
693                          PAY_PROCESS_FLOW_SETS_S.nextval
694 			             , l_process_flow_id
695 		             	 , l_set_id
696                          , p_proc_flow_seq
697                          , l_business_group_id
698                          , p_leg_code
699                          , decode(p_owner,'SEED',1,0)
700                          , SYSDATE
701                          , fnd_global.login_id
702                          , SYSDATE
703                          , decode(p_owner,'SEED',1,0) );
704 
705             end if;
706 --
707 exception
708 when others then
709 hr_utility.trace('An exception was raised : '||dbms_utility.format_error_stack );
710 --
711 end load_process_flow_sets;
712 
713 end PAY_LOAD_PROCESS_FLOWS;