[Home] [Help]
122: --
123: Procedure ini_person is
124: L_proc varchar2(80) := g_package||'.ini_person';
125: Begin
126: hr_utility.set_location ('Entering '|| l_proc,5);
127: g_cache_person := NULL;
128: hr_utility.set_location ('Leaving ' || l_proc,10);
129: End ini_person;
130: --
124: L_proc varchar2(80) := g_package||'.ini_person';
125: Begin
126: hr_utility.set_location ('Entering '|| l_proc,5);
127: g_cache_person := NULL;
128: hr_utility.set_location ('Leaving ' || l_proc,10);
129: End ini_person;
130: --
131: -- ============================================================================
132: -- <
134: --
135: Procedure ini_comp_obj is
136: L_proc varchar2(80) := g_package||'.ini_comp_obj';
137: Begin
138: hr_utility.set_location ('Entering ' || l_proc, 5);
139: g_cache_comp.delete;
140: g_cache_comp_cnt := 0;
141: hr_utility.set_location ('Leaving ' || l_proc, 10);
142: End ini_comp_obj ;
137: Begin
138: hr_utility.set_location ('Entering ' || l_proc, 5);
139: g_cache_comp.delete;
140: g_cache_comp_cnt := 0;
141: hr_utility.set_location ('Leaving ' || l_proc, 10);
142: End ini_comp_obj ;
143: --
144: -- ============================================================================
145: -- <
179: l_rec c1%rowtype;
180: l_cnt Number(15) := g_cache_comp_cnt;
181: L_proc varchar2(80) := g_package||'.Cache_comp_obj';
182: Begin
183: hr_utility.set_location ('Entering '||l_proc,10);
184: l_cnt := l_cnt + 1;
185: If (p_prtt_enrt_rslt_id is not NULL) then
186: Open c1;
187: fetch c1 into l_rec;
222: If (p_suspended = 'Y') then
223: g_cache_comp(l_cnt).susp_flag := TRUE;
224: End if;
225: g_cache_comp_cnt := l_cnt;
226: hr_utility.set_location ('Leaving '||l_proc,10);
227: End Cache_comp_obj;
228: --
229: -- ============================================================================
230: -- <
260: l_proc varchar2(80) := g_package||'.write_comp';
261: l_output varchar2(3000); -- UTF8 Change Bug 2254683 varchar2(1000)
262: l_first Boolean := TRUE;
263: Begin
264: hr_utility.set_location ('Entering '||l_proc,5 );
265: For i in 1..g_cache_comp_cnt loop
266: If (g_cache_comp(i).def_flag
267: or g_cache_comp(i).ins_flag
268: or g_cache_comp(i).upd_flag
328: ', End:'||to_char(g_cache_comp(i).cvg_thru_dt,'DD/MM/YYYY') ;
329: write(p_text => l_output);
330: End if;
331: End loop;
332: hr_utility.set_location ('Leaving '||l_proc,10);
333: End write_comp;
334: --
335: -- ============================================================================
336: -- <
351: --
352: Procedure ini_proc_info is
353: L_proc varchar2(80) := g_package||'.ini_proc_info';
354: Begin
355: hr_utility.set_location ('Entering '||l_proc,05);
356: g_proc_info := NULL;
357: g_proc_info.start_date := sysdate;
358: g_proc_info.start_time_numeric := dbms_utility.get_time;
359: g_proc_info.num_persons_selected := 0;
362: g_proc_info.num_persons_processed_succ := 0;
363: g_proc_info.num_persons_processed := 0;
364: g_num_processes := 0;
365: g_processes_tbl.delete;
366: hr_utility.set_location ('Leaving '||l_proc,10);
367: End ini_proc_info;
368:
369: --
370: -- ============================================================================
373: --
374: Procedure ini(p_actn_cd varchar2 default hr_api.g_varchar2) is
375: L_proc varchar2(80) := g_package||'.ini';
376: Begin
377: hr_utility.set_location ('Entering '||l_proc,05);
378: If(p_actn_cd = hr_api.g_varchar2) then
379: ini_comp_obj;
380: ini_person;
381: ini_comp_obj_name;
387: ini_comp_obj_name;
388: Elsif(upper(substr(p_actn_cd,1,9)) = 'PROC_INFO') then
389: ini_proc_info;
390: End if;
391: hr_utility.set_location ('Leaving '||l_proc,10);
392: End ini;
393: --
394: -- ============================================================================
395: -- << Rpt_error >>
403: Begin
404: If (p_rpt_flag ) then
405: write(p_text => '<<
406: End if;
407: hr_utility.set_location('> Fail in ' || p_proc, 999 );
408: hr_utility.set_location('>> While ' || p_last_actn, 999);
409: End rpt_error;
410: --
411: -- ============================================================================
404: If (p_rpt_flag ) then
405: write(p_text => '<<
406: End if;
407: hr_utility.set_location('> Fail in ' || p_proc, 999 );
408: hr_utility.set_location('>> While ' || p_last_actn, 999);
409: End rpt_error;
410: --
411: -- ============================================================================
412: -- << Function: get_pgm_name >>
430: l_actn varchar2(80);
431: l_idx binary_integer;
432: l_fetch Boolean := FALSE;
433: begin
434: hr_utility.set_location ('Entering '||l_proc,10);
435: --
436: l_actn := 'Retrieve program from cache or database...';
437: --
438: If (p_pgm_id is NULL) then
462: ret_str := g_pgm_tbl(l_idx).name;
463: End if;
464: close c1;
465: End if;
466: hr_utility.set_location ('Leaving '||l_proc,70);
467: return ret_str;
468: Exception
469: when others then
470: rpt_error(p_proc => l_proc
496: l_actn varchar2(80);
497: l_idx Binary_integer;
498: l_fetch Boolean := FALSE;
499: Begin
500: hr_utility.set_location ('Entering '||l_proc,10);
501: l_actn := 'Initializing...';
502: If (p_pl_typ_id is NULL) then
503: ret_str := 'NO PLAN TYPE';
504: Elsif (p_pl_typ_id > g_mx_binary_integer) then
525: ret_str := g_pl_typ_tbl(l_idx).name;
526: End if;
527: close c1;
528: End if;
529: hr_utility.set_location ('Leaving '||l_proc,70);
530: return ret_str;
531: Exception
532: When others then
533: rpt_error(p_proc => l_proc
559: l_actn varchar2(80);
560: l_idx binary_integer;
561: l_fetch Boolean := FALSE;
562: Begin
563: hr_utility.set_location ('Entering '||l_proc,10);
564: --
565: l_actn := 'Initializing...';
566: --
567: If (p_pl_id is NULL) then
591: ret_str := g_pl_tbl(l_idx).name;
592: End if;
593: close c1;
594: End if;
595: hr_utility.set_location ('Leaving '||l_proc,70);
596: return ret_str;
597: Exception
598: when others then
599: rpt_error(p_proc => l_proc
630: l_actn varchar2(80);
631: l_idx binary_integer;
632: l_fetch Boolean := FALSE;
633: Begin
634: hr_utility.set_location ('Entering '||l_proc,10);
635: --
636: l_actn := 'Initializing...';
637: --
638: If (p_oipl_id is NULL) then
662: ret_str := g_opt_tbl(l_idx).name;
663: End if;
664: close c1;
665: End if;
666: hr_utility.set_location ('Leaving '||l_proc,70);
667: return ret_str;
668: Exception
669: when others then
670: rpt_error(p_proc => l_proc
683: ,p_non_person_cd in varchar2 default null
684: ) is
685: l_proc varchar2(80) := g_package||'.write_logfile';
686: begin
687: hr_utility.set_location ('Entering '||l_proc,10);
688: write(p_text => benutils.g_banner_minus);
689: write(p_text => 'Benefits Statistical Information');
690: write(p_text => benutils.g_banner_minus);
691:
701: to_char(p_num_pers_processed+p_num_pers_errored));
702: end if;
703: write(p_text => benutils.g_banner_minus);
704:
705: hr_utility.set_location ('Leaving '||l_proc,99);
706: Exception
707: when others then
708: fnd_message.set_name('BEN','BEN_91663_BENMNGLE_LOGGING');
709: fnd_message.set_token('PROC',l_proc);
721: ) is
722: l_proc varchar2(80) := g_package||'.write_rec';
723: l_rec ben_type.g_report_rec := g_rec;
724: Begin
725: hr_utility.set_location ('Entering ' || l_proc,05);
726: l_rec.rep_typ_cd := p_typ_cd;
727: l_rec.text := p_text;
728: l_rec.ERROR_MESSAGE_CODE := p_err_cd;
729: benutils.write(p_rec => l_rec);
726: l_rec.rep_typ_cd := p_typ_cd;
727: l_rec.text := p_text;
728: l_rec.ERROR_MESSAGE_CODE := p_err_cd;
729: benutils.write(p_rec => l_rec);
730: hr_utility.set_location ('Leaving ' || l_proc,10);
731: End write_rec;
732: --
733: -- ============================================================================
734: -- <
751: l_proc varchar2(80) := g_package||'.End_process';
752: l_batch_proc_id number;
753: l_object_version_number number;
754: Begin
755: hr_utility.set_location ('Entering ' || l_proc,05);
756: --
757: -- Get totals for unprocessed, processed successfully and errored
758: --
759: open c_actions;
757: -- Get totals for unprocessed, processed successfully and errored
758: --
759: open c_actions;
760: Loop
761: hr_utility.set_location (l_proc,6);
762: fetch c_actions into l_actions;
763: exit when c_actions%notfound;
764: If l_actions.action_status_cd = 'P' then
765: g_proc_info.num_persons_processed_succ := l_actions.amount;
767: g_proc_info.num_persons_errored := l_actions.amount;
768: Elsif l_actions.action_status_cd in ('U', 'T') then
769: g_proc_info.num_persons_unprocessed := l_actions.amount;
770: End if;
771: hr_utility.set_location (l_proc,7);
772: End loop;
773: hr_utility.set_location (l_proc,8);
774: close c_actions;
775: g_proc_info.num_persons_selected := p_person_selected;
769: g_proc_info.num_persons_unprocessed := l_actions.amount;
770: End if;
771: hr_utility.set_location (l_proc,7);
772: End loop;
773: hr_utility.set_location (l_proc,8);
774: close c_actions;
775: g_proc_info.num_persons_selected := p_person_selected;
776: hr_utility.set_location (l_proc,9);
777: --
772: End loop;
773: hr_utility.set_location (l_proc,8);
774: close c_actions;
775: g_proc_info.num_persons_selected := p_person_selected;
776: hr_utility.set_location (l_proc,9);
777: --
778: -- Set value of number of persons processed
779: --
780: g_proc_info.num_persons_processed
779: --
780: g_proc_info.num_persons_processed
781: := g_proc_info.num_persons_errored +
782: g_proc_info.num_persons_processed_succ;
783: hr_utility.set_location (l_proc,10);
784: hr_utility.set_location (l_proc||' start_date='||g_proc_info.start_date||'.',10);
785: ben_batch_proc_info_api.create_batch_proc_info
786: (P_VALIDATE => FALSE
787: ,P_BATCH_PROC_ID => l_batch_proc_id
780: g_proc_info.num_persons_processed
781: := g_proc_info.num_persons_errored +
782: g_proc_info.num_persons_processed_succ;
783: hr_utility.set_location (l_proc,10);
784: hr_utility.set_location (l_proc||' start_date='||g_proc_info.start_date||'.',10);
785: ben_batch_proc_info_api.create_batch_proc_info
786: (P_VALIDATE => FALSE
787: ,P_BATCH_PROC_ID => l_batch_proc_id
788: ,P_BENEFIT_ACTION_ID => p_benefit_action_id
799: ,P_PER_ERR => g_proc_info.num_persons_errored
800: ,P_BUSINESS_GROUP_ID => p_business_group_id
801: ,P_OBJECT_VERSION_NUMBER=> l_object_version_number
802: );
803: hr_utility.set_location (l_proc,11);
804: benutils.write_table_and_file(p_table => true,
805: p_file => true);
806: hr_utility.set_location (l_proc,12);
807: commit;
802: );
803: hr_utility.set_location (l_proc,11);
804: benutils.write_table_and_file(p_table => true,
805: p_file => true);
806: hr_utility.set_location (l_proc,12);
807: commit;
808: hr_utility.set_location ('Leaving ' || l_proc,100);
809: End end_process;
810: --
804: benutils.write_table_and_file(p_table => true,
805: p_file => true);
806: hr_utility.set_location (l_proc,12);
807: commit;
808: hr_utility.set_location ('Leaving ' || l_proc,100);
809: End end_process;
810: --
811: -- ============================================================================
812: -- <
814: --
815: Procedure write (p_text varchar2) is
816: l_proc varchar2(80) := g_package||'.Write';
817: Begin
818: --hr_utility.set_location ('Entering '||l_proc,05);
819: If fnd_global.conc_request_id <> -1 then
820: fnd_file.put_line(which=>fnd_file.log
821: ,buff => p_text);
822: End if;
819: If fnd_global.conc_request_id <> -1 then
820: fnd_file.put_line(which=>fnd_file.log
821: ,buff => p_text);
822: End if;
823: --hr_utility.set_location ('Leaving '||l_proc,99);
824: End write;
825: --
826: -- ============================================================================
827: -- <
992: l_proc varchar2(80) := g_package||'.cache_person_information';
993: l_count number(9) := 0;
994: l_person_type c_person_type%rowtype;
995: begin
996: hr_utility.set_location ('Entering '||l_proc,05);
997: open c_person;
998: fetch c_person into g_cache_person.full_name
999: ,g_cache_person.date_of_birth
1000: ,g_cache_person.date_of_death
1147: -- Put person_id into g_rec cache
1148: --
1149: g_rec.person_id := p_person_id;
1150: g_rec.national_identifier := g_cache_person.national_identifier;
1151: hr_utility.set_location ('Leaving '||l_proc,10);
1152: end cache_person_information;
1153: --
1154: -- ============================================================================
1155: -- <
1164: l_proc varchar2(80) := g_package||'.person_header';
1165: l_output_string varchar2(2000); -- UTF8 Change Bug 2254683 varchar2(100)
1166: --
1167: Begin
1168: hr_utility.set_location ('Entering '||l_proc,10);
1169: --
1170: -- Cache person data
1171: --
1172: cache_person_information
1221: ' Pyr: '||
1222: rpad(substr(g_cache_person.payroll_name,1,15),15,' ')||
1223: rpad(benutils.id(g_cache_person.payroll_id),8,' ');
1224: write(p_text => l_output_string);
1225: hr_utility.set_location ('Leaving '||l_proc,10);
1226: end person_header;
1227: --
1228: -- ============================================================================
1229: -- <
1263: l_proc varchar2(80) := g_package||'.print_parameters';
1264: l_string varchar2(80);
1265: l_actn varchar2(80);
1266: begin
1267: hr_utility.set_location ('Entering '||l_proc,10);
1268: write(p_text => 'Runtime Parameters');
1269: write(p_text => '------------------');
1270: -- bug 5450842
1271: if p_mode is not null AND p_mode <> hr_api.g_varchar2
1470: If (nvl(p_audit_log,'xxxx') <> hr_api.g_varchar2) then
1471: write(p_text => 'Audit log flag :'||
1472: hr_general.decode_lookup('YES_NO',p_audit_log));
1473: End if;
1474: hr_utility.set_location ('Leaving '||l_proc,10);
1475: exception
1476: when others then
1477: ben_batch_utils.rpt_error(p_proc => l_proc
1478: ,p_last_actn => l_actn );
1517: l_return varchar2(30);
1518: l_assignment_id number;
1519: l_actn varchar2(80);
1520: Begin
1521: hr_utility.set_location ('Entering '||l_proc,10);
1522: --
1523: -- Get assignment ID form per_assignments_f table.
1524: --
1525: l_actn := 'Opening Assignment cursor...';
1580: fnd_message.set_token('PROC',l_proc);
1581: Raise ben_batch_utils.g_record_error;
1582: End if;
1583: return l_return;
1584: hr_utility.set_location ('Leaving '||l_proc,10);
1585: Exception
1586: When ben_batch_utils.g_record_error then
1587: raise;
1588: when others then
1606: From fnd_concurrent_requests fnd
1607: Where fnd.phase_code <> 'C'
1608: And fnd.request_id = p_request_id;
1609: Begin
1610: hr_utility.set_location ('Entering '||l_proc,5);
1611: If g_num_processes <> 0 then
1612: l_actn := 'Checking Slaves.....';
1613: While l_no_slaves loop
1614: l_no_slaves := false;
1626: dbms_lock.sleep(5);
1627: End if;
1628: End loop;
1629: End if;
1630: hr_utility.set_location ('Leavinging '||l_proc,5);
1631: Exception
1632: when others then
1633: rpt_error(p_proc =>l_proc,p_last_actn=>l_actn,p_rpt_flag=>p_rpt_flag);
1634: raise;
1671: l_num_persons number := 0;
1672: l_range_id number;
1673: l_actn varchar2(80);
1674: Begin
1675: hr_utility.set_location ('Leaving '||l_proc,10);
1676: --
1677: -- Delete ranges from ben_batch_ranges table
1678: --
1679: l_actn := 'Calling ben_benmngle_purge.delete_batch_range_rows...';
1740: commit;
1741: End if;
1742: p_num_ranges := l_num_ranges;
1743: p_num_persons := l_num_persons;
1744: hr_utility.set_location ('Leaving '||l_proc,10);
1745: Exception
1746: when others then
1747: rpt_error(p_proc => l_proc, p_last_actn => l_actn);
1748: raise;
1760: ) is
1761: l_proc varchar2(80) := g_package||'.batch_reports';
1762: l_request_id number;
1763: Begin
1764: hr_utility.set_location('Entering :'||l_proc,10);
1765: If (p_subtitle is NULL) then
1766: l_request_id := fnd_request.submit_request
1767: (application => 'BEN'
1768: ,program => p_program_name
1784: raise ben_batch_utils.g_record_error;
1785: Else
1786: p_request_id := l_request_id;
1787: End if;
1788: hr_utility.set_location('Leaving :'||l_proc,10);
1789: Exception
1790: when others then
1791: rpt_error(p_proc => l_proc, p_last_actn => 'Submitting ' || p_program_name);
1792: raise;
1864: l_val_9 number :=0;
1865: l_val_10 number :=0;
1866: l_reporting c_reporting%rowtype;
1867: Begin
1868: hr_utility.set_location('Entering :'||l_proc,10);
1869: open c_reporting;
1870: loop
1871: fetch c_reporting into l_reporting;
1872: exit when c_reporting%notfound;
1892: p_val_10 := l_reporting.amount;
1893: End if;
1894: End loop;
1895: close c_reporting;
1896: hr_utility.set_location('Leaving :'||l_proc,10);
1897: End summary_by_action;
1898: --
1899: -- ============================================================================
1900: -- <
1951: l_cnt binary_integer := 1;
1952: lc binary_integer := 0;
1953: l_actn varchar2(80);
1954: Begin
1955: hr_utility.set_location('Entering :'||l_proc,05);
1956: l_actn := 'Openning C1 cursor...';
1957: open c1;
1958: fetch c1 into l_exec;
1959: If c1%found then
2036: Else
2037: l_cnt := 0;
2038: End if;
2039: close c1;
2040: hr_utility.set_location('Leaving :'||l_proc,10);
2041: Exception
2042: When others then
2043: rpt_error(p_proc => l_proc, p_last_actn => l_actn);
2044: raise;
2258: ;
2259: --
2260: begin
2261: --
2262: hr_utility.set_location('Entering :'||l_proc,10);
2263: --
2264: -- Get parameter information from batch process run
2265: --
2266: open c_benefit_actions;
2298: p_date_from; /* Bug 3517604 */
2299: --
2300: close c_benefit_actions;
2301: --
2302: hr_utility.set_location('Leaving :'||l_proc,10);
2303: --
2304: end standard_header;
2305: --
2306: --Bug 2978945
2317: g_dynamic_sql VARCHAR2(2000);
2318: g_debug BOOLEAN;
2319: --
2320: BEGIN
2321: g_debug := hr_utility.debug_enabled;
2322: IF g_debug THEN
2323: l_proc := g_package||'rows_exist';
2324: hr_utility.set_location('Entering:'||l_proc, 5);
2325: END IF;
2320: BEGIN
2321: g_debug := hr_utility.debug_enabled;
2322: IF g_debug THEN
2323: l_proc := g_package||'rows_exist';
2324: hr_utility.set_location('Entering:'||l_proc, 5);
2325: END IF;
2326: IF (p_base_key_value IS NOT NULL) THEN
2327: IF p_base_table_name IS NULL OR
2328: p_base_key_column IS NULL THEN
2348: INTO l_ret_column
2349: USING p_base_key_value;
2350: -- one row exists so return true
2351: IF g_debug THEN
2352: hr_utility.set_location('Leaving:'||l_proc, 10);
2353: END IF;
2354: RETURN(TRUE);
2355: END IF;
2356: EXCEPTION
2355: END IF;
2356: EXCEPTION
2357: WHEN NO_DATA_FOUND THEN
2358: IF g_debug THEN
2359: hr_utility.set_location('Leaving:'||l_proc, 15);
2360: END IF;
2361: -- return false as no rows exist
2362: RETURN(FALSE);
2363: WHEN TOO_MANY_ROWS THEN
2361: -- return false as no rows exist
2362: RETURN(FALSE);
2363: WHEN TOO_MANY_ROWS THEN
2364: IF g_debug THEN
2365: hr_utility.set_location('Leaving:'||l_proc, 20);
2366: END IF;
2367: -- return TRUE because more than one row exists
2368: RETURN(TRUE);
2369: WHEN OTHERS THEN
2412: l_actn varchar2(80);
2413: l_flag boolean;
2414: value_exception exception ;
2415: Begin
2416: hr_utility.set_location ('Entering '||l_proc,10);
2417: l_flag := true;
2418: --
2419: -- Get assignment ID form per_assignments_f table.
2420: --
2464: --
2465: If upper(p_return) not in ('Y', 'N') then
2466: Raise value_exception ;
2467: End if;
2468: hr_utility.set_location ('Leaving '||l_proc,10);
2469: Exception
2470: When ben_batch_utils.g_record_error then
2471: p_return := 'N' ;
2472: fnd_message.set_name('BEN','BEN_91698_NO_ASSIGNMENT_FND');