[Home] [Help]
81: l_name ben_Ext_dfn.name%type ;
82: --
83: begin
84: --
85: hr_Utility.set_location('Entering'||l_proc, 5);
86: l_effective_date := to_date(p_ext_rslt_date, 'YYYY/MM/DD HH24:MI:SS');
87: l_effective_date := to_date(to_char(trunc(l_effective_date), 'DD/MM/RRRR'),
88: 'DD/MM/RRRR');
89:
94: fetch c_xdf into l_name ;
95: close c_Xdf ;
96:
97:
98: hr_Utility.set_location('processing '||l_name, 5);
99: --- Deleting Details
100: l_rcd_count := 0 ;
101: for l_xrd in c_xrd(l_xrs.ext_rslt_id)
102: Loop
99: --- Deleting Details
100: l_rcd_count := 0 ;
101: for l_xrd in c_xrd(l_xrs.ext_rslt_id)
102: Loop
103: hr_Utility.set_location('detail '||l_name || ' ' || l_rcd_count, 5);
104: l_object_version_number := l_xrd.object_version_number ;
105: ben_EXT_RSLT_DTL_api. delete_EXT_RSLT_DTL
106: (p_ext_rslt_dtl_id => l_xrd.ext_rslt_dtl_id
107: ,p_object_version_number => l_object_version_number
112:
113: -- Deleting Error detail for the resultr
114: for l_xre in c_xre(l_xrs.ext_rslt_id)
115: Loop
116: hr_Utility.set_location('error '||l_name , 5);
117: l_object_version_number := l_xre.object_version_number ;
118: ben_EXT_RSLT_ERR_api. delete_EXT_RSLT_ERR
119: (p_ext_rslt_err_id => l_xre.ext_rslt_err_id
120: ,p_object_version_number => l_object_version_number
140: if not ben_populate_rbv.validate_mode
141: (p_validate => p_validate)
142: then
143: --
144: hr_utility.set_location('commit '||l_xrs.ext_rslt_id, 15);
145: commit ;
146:
147: --
148: end if;
153: (p_validate => p_validate
154: )
155: then
156: --
157: hr_utility.set_location('rollback '||l_proc, 15);
158: rollback;
159: --
160: end if;
161:
167: -- write to logfile the record count
168: fnd_file.put_line(fnd_file.log, to_char(l_file_count) ||' '||'Results are purged') ;
169:
170: commit;
171: hr_utility.set_location('Exiting'||l_proc, 15);
172: --
173: --
174: EXCEPTION
175: --
233: l_person_name per_all_people_f.full_name%type ;
234: --
235: begin
236: --
237: hr_Utility.set_location('Entering'||l_proc, 5);
238:
239: if p_effective_date is null and p_actual_date is null then
240: fnd_message.set_name('PER','FFU10_GENERAL_ORACLE_ERROR');
241: fnd_message.set_token('2' , 'Either Effective date or Actual date must be entered' );
266: -- first time , print for the first person
267: if l_person_name is not null then
268: -- write to logfile the record count
269: fnd_file.put_line(fnd_file.log, rpad(l_person_name,45) ||' '||lpad(l_person_count,6)) ;
270: hr_utility.set_location(rpad(l_person_name,45) ||' '||lpad(l_person_count,6),99 ) ;
271: end if ;
272: l_person_count := 0 ;
273: l_prv_person_id := l_person_id ;
274: open c_name (l_person_id) ;
306:
307: if l_person_name is not null then
308: fnd_file.put_line(fnd_file.log, rpad(l_person_name,45) ||' '||lpad(l_person_count,6)) ;
309: end if;
310: hr_utility.set_location(rpad(l_person_name,45) ||' '||lpad(l_person_count,6),99 ) ;
311: fnd_file.put_line(fnd_file.log, rpad(' ',45) ||' '||'------') ;
312: fnd_file.put_line(fnd_file.log, rpad(' ',45) ||' '||lpad(l_log_count,6)) ;
313: hr_utility.set_location(lpad(l_log_count,6),99 ) ;
314: end if ;
309: end if;
310: hr_utility.set_location(rpad(l_person_name,45) ||' '||lpad(l_person_count,6),99 ) ;
311: fnd_file.put_line(fnd_file.log, rpad(' ',45) ||' '||'------') ;
312: fnd_file.put_line(fnd_file.log, rpad(' ',45) ||' '||lpad(l_log_count,6)) ;
313: hr_utility.set_location(lpad(l_log_count,6),99 ) ;
314: end if ;
315: close c_chg_log ;
316:
317:
319: (p_validate => p_validate
320: )
321: then
322: --
323: hr_utility.set_location('rollback '||l_proc, 15);
324: rollback;
325: --
326: end if;
327:
328: -- write to logfile a successful completion message
329: fnd_message.set_name('BEN','BEN_91877_GENERAL_JOB_SUCCESS');
330: fnd_file.put_line(fnd_file.log, fnd_message.get);
331: commit;
332: hr_utility.set_location('Exiting'||l_proc, 15);
333: --
334: --
335: EXCEPTION
336: --