DBA Data[Home] [Help]

APPS.GHR_TSP_PLAN_DESIGN dependencies on HR_UTILITY

Line 42: hr_utility.set_location('Entering:'|| g_package||l_proc, 5);

38: --
39: Begin
40: l_proc := g_package||'create_tsp_program_and_plans';
41:
42: hr_utility.set_location('Entering:'|| g_package||l_proc, 5);
43:
44: Open get_txn_category_id;
45: Fetch get_txn_category_id into p_transaction_category_id;
46: hr_utility.trace('Transaction Category Id :'|| p_transaction_category_id);

Line 46: hr_utility.trace('Transaction Category Id :'|| p_transaction_category_id);

42: hr_utility.set_location('Entering:'|| g_package||l_proc, 5);
43:
44: Open get_txn_category_id;
45: Fetch get_txn_category_id into p_transaction_category_id;
46: hr_utility.trace('Transaction Category Id :'|| p_transaction_category_id);
47: hr_utility.set_location('Opening cursor get_copy_txn_id '||l_proc, 10);
48: --dbms_output.put_line('txn category id '||p_transaction_category_id);
49:
50: Open get_copy_txn_id;

Line 47: hr_utility.set_location('Opening cursor get_copy_txn_id '||l_proc, 10);

43:
44: Open get_txn_category_id;
45: Fetch get_txn_category_id into p_transaction_category_id;
46: hr_utility.trace('Transaction Category Id :'|| p_transaction_category_id);
47: hr_utility.set_location('Opening cursor get_copy_txn_id '||l_proc, 10);
48: --dbms_output.put_line('txn category id '||p_transaction_category_id);
49:
50: Open get_copy_txn_id;
51: fetch get_copy_txn_id into p_copy_entity_txn_id;

Line 55: hr_utility.trace('Copy entity Txn. Id :'|| p_copy_entity_txn_id);

51: fetch get_copy_txn_id into p_copy_entity_txn_id;
52: If get_copy_txn_id%notfound then
53: Raise Nothing_to_do;
54: End If;
55: hr_utility.trace('Copy entity Txn. Id :'|| p_copy_entity_txn_id);
56: --dbms_output.put_line('copy_entity_txn_id :'||p_copy_entity_txn_id );
57:
58:
59: -- Set the variables

Line 93: hr_utility.set_location('Leaving :'|| g_package||l_proc, 50);

89: End If;
90: If get_copy_txn_id%ISOPEN then
91: CLOSE get_copy_txn_id;
92: End If;
93: hr_utility.set_location('Leaving :'|| g_package||l_proc, 50);
94:
95: Exception
96: When Nothing_to_do Then
97: If get_txn_category_id%ISOPEN then

Line 111: hr_utility.set_location('Leaving :'|| g_package||l_proc, 70);

107: End If;
108: If get_copy_txn_id%ISOPEN then
109: CLOSE get_copy_txn_id;
110: End If;
111: hr_utility.set_location('Leaving :'|| g_package||l_proc, 70);
112: Raise;
113: End create_tsp_program_and_plans;
114:
115:

Line 135: hr_utility.set_location('entering :'|| g_package||l_proc, 10);

131:
132: Begin
133: l_proc := 'Populate_tsp_plan_design.';
134: p_exists:= 'N';
135: hr_utility.set_location('entering :'|| g_package||l_proc, 10);
136: hr_utility.trace('Business Group Id ' ||p_target_business_group_id);
137: Open check_pgm_exists;
138: Fetch check_pgm_exists into p_exists;
139: If check_pgm_exists%NOTFOUND Then

Line 136: hr_utility.trace('Business Group Id ' ||p_target_business_group_id);

132: Begin
133: l_proc := 'Populate_tsp_plan_design.';
134: p_exists:= 'N';
135: hr_utility.set_location('entering :'|| g_package||l_proc, 10);
136: hr_utility.trace('Business Group Id ' ||p_target_business_group_id);
137: Open check_pgm_exists;
138: Fetch check_pgm_exists into p_exists;
139: If check_pgm_exists%NOTFOUND Then
140: p_exists := 'N';

Line 149: hr_utility.trace('After create_program_and_plans....');

145:
146: savepoint create_tsp_plan_design;
147: --dbms_output.put_line('now starting plan design ' ||p_target_business_group_id);
148: create_tsp_program_and_plans(p_target_business_group_id);
149: hr_utility.trace('After create_program_and_plans....');
150: commit;
151: If check_pgm_exists%ISOPEN then
152: CLOSE check_pgm_exists;
153: End If;

Line 154: hr_utility.set_location('Leaving :'|| g_package||l_proc, 50);

150: commit;
151: If check_pgm_exists%ISOPEN then
152: CLOSE check_pgm_exists;
153: End If;
154: hr_utility.set_location('Leaving :'|| g_package||l_proc, 50);
155: Exception
156: When Nothing_to_do Then
157: If check_pgm_exists%ISOPEN then
158: CLOSE check_pgm_exists;

Line 165: hr_utility.set_location('Leaving :'|| g_package||l_proc, 60);

161: When others then
162: If check_pgm_exists%ISOPEN then
163: CLOSE check_pgm_exists;
164: End If;
165: hr_utility.set_location('Leaving :'|| g_package||l_proc, 60);
166: hr_utility.trace('Error ' ||sqlerrm(sqlcode));
167: l_err_msg := substr(p_target_business_group_id||':'||nvl(fnd_message.get,sqlerrm),1,1999) ;
168: rollback to create_tsp_plan_design;
169: ghr_wgi_pkg.create_ghr_errorlog

Line 166: hr_utility.trace('Error ' ||sqlerrm(sqlcode));

162: If check_pgm_exists%ISOPEN then
163: CLOSE check_pgm_exists;
164: End If;
165: hr_utility.set_location('Leaving :'|| g_package||l_proc, 60);
166: hr_utility.trace('Error ' ||sqlerrm(sqlcode));
167: l_err_msg := substr(p_target_business_group_id||':'||nvl(fnd_message.get,sqlerrm),1,1999) ;
168: rollback to create_tsp_plan_design;
169: ghr_wgi_pkg.create_ghr_errorlog
170: (p_program_name => l_proc,

Line 331: hr_utility.set_location('entering :'|| g_package||l_proc, 10);

327: --dbms_output.put_line(' start ' ||p_effective_date);
328: l_proc := 'TSP Cont. Coverage';
329: l_element_name := 'TSP';
330: l_input_value_name := 'Emp Contrib Elig Date';
331: hr_utility.set_location('entering :'|| g_package||l_proc, 10);
332: hr_utility.trace('Person Id ' ||p_person_id);
333: l_err_msg := null;
334:
335: --Check if any current open record exists in the Ben table for this person and program

Line 332: hr_utility.trace('Person Id ' ||p_person_id);

328: l_proc := 'TSP Cont. Coverage';
329: l_element_name := 'TSP';
330: l_input_value_name := 'Emp Contrib Elig Date';
331: hr_utility.set_location('entering :'|| g_package||l_proc, 10);
332: hr_utility.trace('Person Id ' ||p_person_id);
333: l_err_msg := null;
334:
335: --Check if any current open record exists in the Ben table for this person and program
336: hr_utility.set_location(l_proc, 20);

Line 336: hr_utility.set_location(l_proc, 20);

332: hr_utility.trace('Person Id ' ||p_person_id);
333: l_err_msg := null;
334:
335: --Check if any current open record exists in the Ben table for this person and program
336: hr_utility.set_location(l_proc, 20);
337: l_exists := FALSE;
338: for emp_in_tsp in c_emp_in_tsp loop
339: --dbms_output.put_line('Data exists in Ben Table' );
340: l_exists := TRUE;

Line 350: hr_utility.set_location(l_proc, 30);

346: Raise Nothing_to_do;
347: End If;
348:
349: -- Get Ler Id for 'Termination of Appointment' life event
350: hr_utility.set_location(l_proc, 30);
351: For get_ler_id in c_get_ler_id loop
352: l_term_ler_id := get_ler_id.ler_id;
353: Exit;
354: End loop;

Line 356: hr_utility.set_location(l_proc, 40);

352: l_term_ler_id := get_ler_id.ler_id;
353: Exit;
354: End loop;
355:
356: hr_utility.set_location(l_proc, 40);
357: open c_get_ee_last_tsp_enrt_rec;
358: fetch c_get_ee_last_tsp_enrt_rec into get_ee_last_tsp_enrt_rec;
359: --dbms_output.put_line('Plan id :' ||get_ee_last_tsp_enrt_rec.pl_id||'...pl_typ_id: '||get_ee_last_tsp_enrt_rec.pl_typ_id);
360: If get_ee_last_tsp_enrt_rec.pl_id is null Then

Line 373: hr_utility.set_location(l_proc, 50);

369: l_rt_val := get_prtt_rt_val.rt_val;
370: exit;
371: End Loop;
372:
373: hr_utility.set_location(l_proc, 50);
374: --dbms_output.put_line('Rate Value :' ||l_rt_val);
375:
376: -- Run Process Life Events for the EE
377: --dbms_output.put_line('Before calling p_proc_lf_evts_from_benauthe 1');

Line 398: hr_utility.set_location(l_proc, 60);

394: ,p_errbuf => l_errbuf
395: ,p_retcode => l_retcode);
396: --
397: --dbms_output.put_line('Before calling p_proc_lf_evts_from_benauthe 2');
398: hr_utility.set_location(l_proc, 60);
399: ben_on_line_lf_evt.p_proc_lf_evts_from_benauthe(
400: p_person_id => p_person_id
401: ,p_effective_date => p_effective_date
402: ,p_business_group_id => p_business_group_id

Line 411: hr_utility.set_location(l_proc, 70);

407: ,p_errbuf => l_errbuf
408: ,p_retcode => l_retcode);
409: --
410: --dbms_output.put_line('After calling p_proc_lf_evts_from_benauthe 2');
411: hr_utility.set_location(l_proc, 70);
412: open c_get_elig_chc_id;
413: fetch c_get_elig_chc_id into l_elig_per_elctbl_chc_id,l_per_in_ler_id;
414: If c_get_elig_chc_id%NOTFOUND then
415: l_err_msg := 'Person_ID '|| p_person_id||':No Electable Choice found for this person' ;

Line 423: hr_utility.set_location(l_proc, 80);

419: --dbms_output.put_line('Electable choice id ' || l_elig_per_elctbl_chc_id);
420: --dbms_output.put_line('PER in LER ID ' || l_per_in_ler_id);
421:
422:
423: hr_utility.set_location(l_proc, 80);
424: open c_get_enrt_rt_id;
425: fetch c_get_enrt_rt_id into l_enrt_rt_id;
426: If c_get_enrt_rt_id%NOTFOUND then
427: l_err_msg := 'Person_ID '|| p_person_id||':No Electable Rate found for this person' ;

Line 433: hr_utility.set_location(l_proc, 90);

429: Raise Nothing_to_do;
430: End If;
431: --dbms_output.put_line('Electable rate id ' || l_enrt_rt_id||':'||p_effective_date);
432:
433: hr_utility.set_location(l_proc, 90);
434: ben_election_information.election_information
435: (p_elig_per_elctbl_chc_id => l_elig_per_elctbl_chc_id
436: ,p_prtt_enrt_rslt_id => l_prtt_enrt_rslt_id
437: ,p_effective_date => p_effective_date

Line 466: hr_utility.set_location(l_proc, 100);

462: ,p_bnf_actn_warning => l_Boolean
463: ,p_ctfn_actn_warning => l_Boolean
464: );
465: --dbms_output.put_line('NOw calling ben-proc_common_enrt_rslt.post_enrt');
466: hr_utility.set_location(l_proc, 100);
467: ben_proc_common_enrt_rslt.process_post_enrt_calls_w
468: (p_validate => 'N'
469: ,p_person_id => p_person_id
470: ,p_per_in_ler_id => l_per_in_ler_id

Line 513: hr_utility.set_location(l_proc, 200);

509: );
510:
511: End If;
512: */
513: hr_utility.set_location(l_proc, 200);
514: hr_utility.set_location('leaving :'|| g_package||l_proc, 210);
515: Exception
516: When Nothing_to_do Then
517: hr_utility.set_location('Exception' ||l_proc, 300);

Line 514: hr_utility.set_location('leaving :'|| g_package||l_proc, 210);

510:
511: End If;
512: */
513: hr_utility.set_location(l_proc, 200);
514: hr_utility.set_location('leaving :'|| g_package||l_proc, 210);
515: Exception
516: When Nothing_to_do Then
517: hr_utility.set_location('Exception' ||l_proc, 300);
518: If c_get_elig_chc_id%ISOPEN Then

Line 517: hr_utility.set_location('Exception' ||l_proc, 300);

513: hr_utility.set_location(l_proc, 200);
514: hr_utility.set_location('leaving :'|| g_package||l_proc, 210);
515: Exception
516: When Nothing_to_do Then
517: hr_utility.set_location('Exception' ||l_proc, 300);
518: If c_get_elig_chc_id%ISOPEN Then
519: close c_get_elig_chc_id;
520: End If;
521: rollback;

Line 530: hr_utility.set_location('Exception' ||l_proc, 310);

526: p_log_date => sysdate
527: );
528: --dbms_output.put_line('Data Issue... Nothing_to_do! ');
529: When others then
530: hr_utility.set_location('Exception' ||l_proc, 310);
531: --dbms_output.put_line('Script Failed. Contact Your System Administrator.! ');
532: If c_get_elig_chc_id%ISOPEN then
533: close c_get_elig_chc_id;
534: End If;

Line 578: hr_utility.set_location('Entering' ||l_proc, 100);

574:
575: BEGIN
576: --dbms_output.put_line(' start ' );
577: l_proc := 'TSP_Cont_Cvg_CP';
578: hr_utility.set_location('Entering' ||l_proc, 100);
579: l_err_msg := null;
580:
581: -- get all potential employees
582: for get_ptnl_emps in c_get_ptnl_emps Loop

Line 584: hr_utility.set_location(l_proc, 110);

580:
581: -- get all potential employees
582: for get_ptnl_emps in c_get_ptnl_emps Loop
583: Begin
584: hr_utility.set_location(l_proc, 110);
585: l_person_id := get_ptnl_emps.person_id;
586: l_business_group_id := get_ptnl_emps.business_group_id;
587: l_ler_id := get_ptnl_emps.ler_id;
588: l_effective_date := get_ptnl_emps.lf_evt_ocrd_dt;

Line 589: hr_utility.trace('Person id ' ||l_person_id||' BG ID : '||l_business_group_id);

585: l_person_id := get_ptnl_emps.person_id;
586: l_business_group_id := get_ptnl_emps.business_group_id;
587: l_ler_id := get_ptnl_emps.ler_id;
588: l_effective_date := get_ptnl_emps.lf_evt_ocrd_dt;
589: hr_utility.trace('Person id ' ||l_person_id||' BG ID : '||l_business_group_id);
590: hr_utility.trace('ler id ' ||l_ler_id||' EFf DT : '||l_effective_date);
591:
592: -- Get Program Id
593: for pgm_rec in c_get_pgm_id loop

Line 590: hr_utility.trace('ler id ' ||l_ler_id||' EFf DT : '||l_effective_date);

586: l_business_group_id := get_ptnl_emps.business_group_id;
587: l_ler_id := get_ptnl_emps.ler_id;
588: l_effective_date := get_ptnl_emps.lf_evt_ocrd_dt;
589: hr_utility.trace('Person id ' ||l_person_id||' BG ID : '||l_business_group_id);
590: hr_utility.trace('ler id ' ||l_ler_id||' EFf DT : '||l_effective_date);
591:
592: -- Get Program Id
593: for pgm_rec in c_get_pgm_id loop
594: l_pgm_id := pgm_rec.pgm_id;