95: where process = p_process_name
96: and run_date = p_run_date;
97: commit;
98:
99: FND_FILE.NEW_LINE(FND_FILE.log, 1);
100:
101: EXCEPTION WHEN OTHERS THEN
102: errbuf := errbuf||SQLERRM;
103: retcode := '1';
100:
101: EXCEPTION WHEN OTHERS THEN
102: errbuf := errbuf||SQLERRM;
103: retcode := '1';
104: FND_FILE.put_line(fnd_file.log,'Error in update_psft_sync_run: '||SQLCODE);
105: FND_FILE.NEW_LINE(FND_FILE.log, 1);
106: FND_FILE.put_line(fnd_file.log,'Error Msg: '||substr(SQLERRM,1,700));
107:
108: END update_psft_sync_run;
101: EXCEPTION WHEN OTHERS THEN
102: errbuf := errbuf||SQLERRM;
103: retcode := '1';
104: FND_FILE.put_line(fnd_file.log,'Error in update_psft_sync_run: '||SQLCODE);
105: FND_FILE.NEW_LINE(FND_FILE.log, 1);
106: FND_FILE.put_line(fnd_file.log,'Error Msg: '||substr(SQLERRM,1,700));
107:
108: END update_psft_sync_run;
109: /*Common procedure to update the hr_psft_sync_run table ends here*/
102: errbuf := errbuf||SQLERRM;
103: retcode := '1';
104: FND_FILE.put_line(fnd_file.log,'Error in update_psft_sync_run: '||SQLCODE);
105: FND_FILE.NEW_LINE(FND_FILE.log, 1);
106: FND_FILE.put_line(fnd_file.log,'Error Msg: '||substr(SQLERRM,1,700));
107:
108: END update_psft_sync_run;
109: /*Common procedure to update the hr_psft_sync_run table ends here*/
110:
118: IS
119: l_status varchar2(10);
120: BEGIN
121:
122: FND_FILE.NEW_LINE(FND_FILE.log, 1);
123:
124: if p_status = 1 then
125: l_status := 'COMPLETED';
126: elsif p_status = 2 then
132: INSERT INTO hr_psft_sync_run(run_date,status,process)
133: Values(sysdate,l_status,p_process_name);
134: commit;
135:
136: FND_FILE.NEW_LINE(FND_FILE.log, 1);
137:
138: EXCEPTION WHEN OTHERS THEN
139: errbuf := errbuf||SQLERRM;
140: retcode := '1';
137:
138: EXCEPTION WHEN OTHERS THEN
139: errbuf := errbuf||SQLERRM;
140: retcode := '1';
141: FND_FILE.put_line(fnd_file.log,'Error in insert_psft_sync_run: '||SQLCODE);
142: FND_FILE.NEW_LINE(FND_FILE.log, 1);
143: FND_FILE.put_line(fnd_file.log,'Error Msg: '||substr(SQLERRM,1,700));
144:
145: END insert_psft_sync_run;
138: EXCEPTION WHEN OTHERS THEN
139: errbuf := errbuf||SQLERRM;
140: retcode := '1';
141: FND_FILE.put_line(fnd_file.log,'Error in insert_psft_sync_run: '||SQLCODE);
142: FND_FILE.NEW_LINE(FND_FILE.log, 1);
143: FND_FILE.put_line(fnd_file.log,'Error Msg: '||substr(SQLERRM,1,700));
144:
145: END insert_psft_sync_run;
146: /*Common procedure to insert into psft_sync_run table ends here*/
139: errbuf := errbuf||SQLERRM;
140: retcode := '1';
141: FND_FILE.put_line(fnd_file.log,'Error in insert_psft_sync_run: '||SQLCODE);
142: FND_FILE.NEW_LINE(FND_FILE.log, 1);
143: FND_FILE.put_line(fnd_file.log,'Error Msg: '||substr(SQLERRM,1,700));
144:
145: END insert_psft_sync_run;
146: /*Common procedure to insert into psft_sync_run table ends here*/
147:
179: fetch fet_psft_sync into l_dummy;
180: close fet_psft_sync;
181: if l_dummy = 0
182: then
183: FND_FILE.NEW_LINE(FND_FILE.log, 1);
184: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
185: FND_FILE.put_line(fnd_file.log,'State Full synch Data Extraction Begins:'||to_char(p_effective_date,
186: 'DD/MM/RRRR HH:MI:SS'));
187: hr_full_sync_messages.insert_psft_sync_run(2,'STATE_FULL_SYNC',errbuf,retcode);
180: close fet_psft_sync;
181: if l_dummy = 0
182: then
183: FND_FILE.NEW_LINE(FND_FILE.log, 1);
184: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
185: FND_FILE.put_line(fnd_file.log,'State Full synch Data Extraction Begins:'||to_char(p_effective_date,
186: 'DD/MM/RRRR HH:MI:SS'));
187: hr_full_sync_messages.insert_psft_sync_run(2,'STATE_FULL_SYNC',errbuf,retcode);
188:
181: if l_dummy = 0
182: then
183: FND_FILE.NEW_LINE(FND_FILE.log, 1);
184: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
185: FND_FILE.put_line(fnd_file.log,'State Full synch Data Extraction Begins:'||to_char(p_effective_date,
186: 'DD/MM/RRRR HH:MI:SS'));
187: hr_full_sync_messages.insert_psft_sync_run(2,'STATE_FULL_SYNC',errbuf,retcode);
188:
189: open fet_state_sync;
190: loop
191: fetch fet_state_sync into p_cntry_code,p_state_code,p_state_desc,p_enabled_flag;
192: exit when fet_state_sync%notfound;
193:
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,p_cntry_code||fnd_global.local_chr(400)||p_state_code
195: ||fnd_global.local_chr(400)||p_state_desc||fnd_global.local_chr(400)||p_enabled_flag);
196: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
197: end loop;
198: close fet_state_sync;
192: exit when fet_state_sync%notfound;
193:
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,p_cntry_code||fnd_global.local_chr(400)||p_state_code
195: ||fnd_global.local_chr(400)||p_state_desc||fnd_global.local_chr(400)||p_enabled_flag);
196: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
197: end loop;
198: close fet_state_sync;
199:
200: hr_full_sync_messages.update_psft_sync_run(1,'STATE_FULL_SYNC',p_effective_date,errbuf,retcode);
197: end loop;
198: close fet_state_sync;
199:
200: hr_full_sync_messages.update_psft_sync_run(1,'STATE_FULL_SYNC',p_effective_date,errbuf,retcode);
201: FND_FILE.NEW_LINE(FND_FILE.log, 1);
202: FND_FILE.put_line(fnd_file.log,'State Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
203: end if;
204:
205:
198: close fet_state_sync;
199:
200: hr_full_sync_messages.update_psft_sync_run(1,'STATE_FULL_SYNC',p_effective_date,errbuf,retcode);
201: FND_FILE.NEW_LINE(FND_FILE.log, 1);
202: FND_FILE.put_line(fnd_file.log,'State Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
203: end if;
204:
205:
206: exception
207: when OTHERS then
208: hr_full_sync_messages.update_psft_sync_run(3,'STATE_FULL_SYNC',p_effective_date,errbuf,retcode);
209: errbuf := errbuf||SQLERRM;
210: retcode := '1';
211: FND_FILE.put_line(fnd_file.log, 'Error in State Data Full Synch Extraction: '||SQLCODE);
212: FND_FILE.NEW_LINE(FND_FILE.log, 1);
213: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
214:
215: end HR_STATE_FULL_SYNC;
208: hr_full_sync_messages.update_psft_sync_run(3,'STATE_FULL_SYNC',p_effective_date,errbuf,retcode);
209: errbuf := errbuf||SQLERRM;
210: retcode := '1';
211: FND_FILE.put_line(fnd_file.log, 'Error in State Data Full Synch Extraction: '||SQLCODE);
212: FND_FILE.NEW_LINE(FND_FILE.log, 1);
213: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
214:
215: end HR_STATE_FULL_SYNC;
216: /*Procedure to extract state data for Full Synch messages ends*/
209: errbuf := errbuf||SQLERRM;
210: retcode := '1';
211: FND_FILE.put_line(fnd_file.log, 'Error in State Data Full Synch Extraction: '||SQLCODE);
212: FND_FILE.NEW_LINE(FND_FILE.log, 1);
213: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
214:
215: end HR_STATE_FULL_SYNC;
216: /*Procedure to extract state data for Full Synch messages ends*/
217:
248: fetch fet_psft_sync into l_dummy;
249: close fet_psft_sync;
250: if l_dummy = 0
251: then
252: FND_FILE.NEW_LINE(FND_FILE.log, 1);
253: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
254: FND_FILE.put_line(fnd_file.log,'Country Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
255: hr_full_sync_messages.insert_psft_sync_run(2,'COUNTRY_FULL_SYNC',errbuf,retcode);
256: open fet_cntry_fsync;
249: close fet_psft_sync;
250: if l_dummy = 0
251: then
252: FND_FILE.NEW_LINE(FND_FILE.log, 1);
253: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
254: FND_FILE.put_line(fnd_file.log,'Country Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
255: hr_full_sync_messages.insert_psft_sync_run(2,'COUNTRY_FULL_SYNC',errbuf,retcode);
256: open fet_cntry_fsync;
257: loop
250: if l_dummy = 0
251: then
252: FND_FILE.NEW_LINE(FND_FILE.log, 1);
253: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
254: FND_FILE.put_line(fnd_file.log,'Country Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
255: hr_full_sync_messages.insert_psft_sync_run(2,'COUNTRY_FULL_SYNC',errbuf,retcode);
256: open fet_cntry_fsync;
257: loop
258: fetch fet_cntry_fsync into p_cntry_code,p_cntry_desc,p_cntry_code,p_obsolete_flag;
256: open fet_cntry_fsync;
257: loop
258: fetch fet_cntry_fsync into p_cntry_code,p_cntry_desc,p_cntry_code,p_obsolete_flag;
259: exit when fet_cntry_fsync%notfound;
260: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,p_cntry_code||fnd_global.local_chr(400)||p_cntry_desc||fnd_global.local_chr(400)
261: ||p_cntry_code||fnd_global.local_chr(400)||p_obsolete_flag);
262: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
263: end loop;
264: close fet_cntry_fsync;
258: fetch fet_cntry_fsync into p_cntry_code,p_cntry_desc,p_cntry_code,p_obsolete_flag;
259: exit when fet_cntry_fsync%notfound;
260: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,p_cntry_code||fnd_global.local_chr(400)||p_cntry_desc||fnd_global.local_chr(400)
261: ||p_cntry_code||fnd_global.local_chr(400)||p_obsolete_flag);
262: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
263: end loop;
264: close fet_cntry_fsync;
265:
266:
264: close fet_cntry_fsync;
265:
266:
267: hr_full_sync_messages.update_psft_sync_run(1,'COUNTRY_FULL_SYNC',p_effective_date,errbuf,retcode);
268: FND_FILE.NEW_LINE(FND_FILE.log, 1);
269: FND_FILE.put_line(fnd_file.log,'Country Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
270:
271: end if;
272:
265:
266:
267: hr_full_sync_messages.update_psft_sync_run(1,'COUNTRY_FULL_SYNC',p_effective_date,errbuf,retcode);
268: FND_FILE.NEW_LINE(FND_FILE.log, 1);
269: FND_FILE.put_line(fnd_file.log,'Country Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
270:
271: end if;
272:
273: exception
274: when OTHERS then
275: hr_full_sync_messages.update_psft_sync_run(3,'COUNTRY_FULL_SYNC',p_effective_date,errbuf,retcode);
276: errbuf := errbuf||SQLERRM;
277: retcode := '1';
278: FND_FILE.put_line(fnd_file.log, 'Error in Country Data Full Synch Extraction: '||SQLCODE);
279: FND_FILE.NEW_LINE(FND_FILE.log, 1);
280: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
281:
282: end HR_COUNTRY_FULL_SYNC;
275: hr_full_sync_messages.update_psft_sync_run(3,'COUNTRY_FULL_SYNC',p_effective_date,errbuf,retcode);
276: errbuf := errbuf||SQLERRM;
277: retcode := '1';
278: FND_FILE.put_line(fnd_file.log, 'Error in Country Data Full Synch Extraction: '||SQLCODE);
279: FND_FILE.NEW_LINE(FND_FILE.log, 1);
280: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
281:
282: end HR_COUNTRY_FULL_SYNC;
283:
276: errbuf := errbuf||SQLERRM;
277: retcode := '1';
278: FND_FILE.put_line(fnd_file.log, 'Error in Country Data Full Synch Extraction: '||SQLCODE);
279: FND_FILE.NEW_LINE(FND_FILE.log, 1);
280: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
281:
282: end HR_COUNTRY_FULL_SYNC;
283:
284: /*Procedure to extract country data for Full Synch messages ends*/
368: fetch fet_psft_sync into l_dummy;
369: close fet_psft_sync;
370: if l_dummy = 0
371: then
372: FND_FILE.NEW_LINE(FND_FILE.log, 1);
373: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
374: FND_FILE.put_line(fnd_file.log,'Location Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
375: hr_full_sync_messages.insert_psft_sync_run(2,'LOC_FULL_SYNC',errbuf,retcode);
376:
369: close fet_psft_sync;
370: if l_dummy = 0
371: then
372: FND_FILE.NEW_LINE(FND_FILE.log, 1);
373: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
374: FND_FILE.put_line(fnd_file.log,'Location Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
375: hr_full_sync_messages.insert_psft_sync_run(2,'LOC_FULL_SYNC',errbuf,retcode);
376:
377: open fet_loc_sync;
370: if l_dummy = 0
371: then
372: FND_FILE.NEW_LINE(FND_FILE.log, 1);
373: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
374: FND_FILE.put_line(fnd_file.log,'Location Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
375: hr_full_sync_messages.insert_psft_sync_run(2,'LOC_FULL_SYNC',errbuf,retcode);
376:
377: open fet_loc_sync;
378: loop
381: p_town_or_city,p_region_1,p_region_2,p_region_3,p_postal_code,p_tel_no_1,p_tel_no_2 ,
382: p_tel_no_3,p_loc_info_13, p_loc_info_14,p_loc_info_15,p_loc_info_16,p_loc_info_17,p_loc_info_18,
383: p_loc_info_19,p_loc_info_20;
384: exit when fet_loc_sync%notfound;
385: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,p_bg_id||fnd_global.local_chr(400)||p_loc_id||
386: fnd_global.local_chr(400)||p_active_date||
387: fnd_global.local_chr(400)||p_effecive_status||fnd_global.local_chr(400)||
388: p_loc_code||fnd_global.local_chr(400)|| p_loc_desc||fnd_global.local_chr(400)||'ADDRESS_START'||
389: fnd_global.local_chr(400)||p_loc_style ||fnd_global.local_chr(400)|| p_add_line_1||
397: fnd_global.local_chr(400)||p_loc_info_16||fnd_global.local_chr(400)||p_loc_info_17||
398: fnd_global.local_chr(400)||p_loc_info_18||fnd_global.local_chr(400)||
399: p_loc_info_19||fnd_global.local_chr(400)||p_loc_info_20||fnd_global.local_chr(400)||'ADDRESS_END'||
400: fnd_global.local_chr(400));
401: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
402: end loop;
403: close fet_loc_sync;
404:
405: hr_full_sync_messages.update_psft_sync_run(1,'LOC_FULL_SYNC',p_effective_date,errbuf,retcode);
402: end loop;
403: close fet_loc_sync;
404:
405: hr_full_sync_messages.update_psft_sync_run(1,'LOC_FULL_SYNC',p_effective_date,errbuf,retcode);
406: FND_FILE.NEW_LINE(FND_FILE.log, 1);
407: FND_FILE.put_line(fnd_file.log,'Location Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
408:
409: end if;
410:
403: close fet_loc_sync;
404:
405: hr_full_sync_messages.update_psft_sync_run(1,'LOC_FULL_SYNC',p_effective_date,errbuf,retcode);
406: FND_FILE.NEW_LINE(FND_FILE.log, 1);
407: FND_FILE.put_line(fnd_file.log,'Location Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
408:
409: end if;
410:
411: exception
412: when OTHERS then
413: hr_full_sync_messages.update_psft_sync_run(3,'LOC_FULL_SYNC',p_effective_date,errbuf,retcode);
414: errbuf := errbuf||SQLERRM;
415: retcode := '1';
416: FND_FILE.put_line(fnd_file.log, 'Error in Location Full Synch Data Extraction: '||SQLCODE);
417: FND_FILE.NEW_LINE(FND_FILE.log, 1);
418: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
419:
420: end HR_LOCATION_FULL_SYNC;
413: hr_full_sync_messages.update_psft_sync_run(3,'LOC_FULL_SYNC',p_effective_date,errbuf,retcode);
414: errbuf := errbuf||SQLERRM;
415: retcode := '1';
416: FND_FILE.put_line(fnd_file.log, 'Error in Location Full Synch Data Extraction: '||SQLCODE);
417: FND_FILE.NEW_LINE(FND_FILE.log, 1);
418: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
419:
420: end HR_LOCATION_FULL_SYNC;
421: /*Procedure to extract Location data for Full Synch messages Ends*/
414: errbuf := errbuf||SQLERRM;
415: retcode := '1';
416: FND_FILE.put_line(fnd_file.log, 'Error in Location Full Synch Data Extraction: '||SQLCODE);
417: FND_FILE.NEW_LINE(FND_FILE.log, 1);
418: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
419:
420: end HR_LOCATION_FULL_SYNC;
421: /*Procedure to extract Location data for Full Synch messages Ends*/
422:
577:
578: if l_dummy = 0 then
579: l_current_date :=sysdate;
580:
581: FND_FILE.NEW_LINE(FND_FILE.log, 1);
582: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
583: FND_FILE.put_line(fnd_file.log,'Person Full Synch Data Extraction Begins:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
584: hr_full_sync_messages.insert_psft_sync_run(2,'PERSON_FULL_SYNC',errbuf,retcode);
585:
578: if l_dummy = 0 then
579: l_current_date :=sysdate;
580:
581: FND_FILE.NEW_LINE(FND_FILE.log, 1);
582: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
583: FND_FILE.put_line(fnd_file.log,'Person Full Synch Data Extraction Begins:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
584: hr_full_sync_messages.insert_psft_sync_run(2,'PERSON_FULL_SYNC',errbuf,retcode);
585:
586: open csr_person_data;
579: l_current_date :=sysdate;
580:
581: FND_FILE.NEW_LINE(FND_FILE.log, 1);
582: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
583: FND_FILE.put_line(fnd_file.log,'Person Full Synch Data Extraction Begins:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
584: hr_full_sync_messages.insert_psft_sync_run(2,'PERSON_FULL_SYNC',errbuf,retcode);
585:
586: open csr_person_data;
587: loop
593: L_POSTAL_CODE, L_EMAIL_ADDRESS, L_PHONE_TYPE
594: ,L_PHONE_NUMBER,L_NATIONALITY ,L_NATIONAL_IDENTIFIER ;
595:
596: exit when csr_person_data%notfound;
597: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,L_EMPLOYEE_NUMBER||fnd_global.local_chr(400)||L_USER_PERSON_TYPE||fnd_global.local_chr(400)||L_DATE_OF_BIRTH
598: ||fnd_global.local_chr(400)||L_TOWN_OF_BIRTH||fnd_global.local_chr(400)||L_COUNTRY_OF_BIRTH||fnd_global.local_chr(400)||L_DATE_OF_DEATH
599: ||fnd_global.local_chr(400)||L_ORIGINAL_DATE_OF_HIRE||fnd_global.local_chr(400)||L_EFFECTIVE_START_DATE||fnd_global.local_chr(400)||L_SEX
600: ||fnd_global.local_chr(400)||L_MARITAL_STATUS||fnd_global.local_chr(400)||L_FULL_NAME||fnd_global.local_chr(400)||L_PRE_NAME_ADJUNCT
601: ||fnd_global.local_chr(400)||L_SUFFIX||fnd_global.local_chr(400)||L_TITLE||fnd_global.local_chr(400)||L_LAST_NAME
604: ||fnd_global.local_chr(400)||L_ADDRESS_LINE2||fnd_global.local_chr(400)||L_ADDRESS_LINE3||fnd_global.local_chr(400)||L_TOWN_OR_CITY
605: ||fnd_global.local_chr(400)||L_TELEPHONE_NUMBER_1||fnd_global.local_chr(400)||L_REGION_1||fnd_global.local_chr(400)||L_REGION_2
606: ||fnd_global.local_chr(400)||L_PHONE_NUMBER||fnd_global.local_chr(400)||L_NATIONALITY||fnd_global.local_chr(400)||L_NATIONAL_IDENTIFIER
607: );
608: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
609: end loop;
610: close csr_person_data;
611:
612: hr_full_sync_messages.update_psft_sync_run(1,'PERSON_FULL_SYNC',l_current_date,errbuf,retcode);
609: end loop;
610: close csr_person_data;
611:
612: hr_full_sync_messages.update_psft_sync_run(1,'PERSON_FULL_SYNC',l_current_date,errbuf,retcode);
613: FND_FILE.NEW_LINE(FND_FILE.log, 1);
614: FND_FILE.put_line(fnd_file.log,'Person Full Synch Data Extraction Ends:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
615:
616: END if;
617:
610: close csr_person_data;
611:
612: hr_full_sync_messages.update_psft_sync_run(1,'PERSON_FULL_SYNC',l_current_date,errbuf,retcode);
613: FND_FILE.NEW_LINE(FND_FILE.log, 1);
614: FND_FILE.put_line(fnd_file.log,'Person Full Synch Data Extraction Ends:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
615:
616: END if;
617:
618: exception
619: when OTHERS then
620: hr_full_sync_messages.update_psft_sync_run(3,'PERSON_FULL_SYNC',l_current_date,errbuf,retcode);
621: errbuf := errbuf||SQLERRM;
622: retcode := '1';
623: FND_FILE.put_line(fnd_file.log, 'Error in Person Full Synch Data Extraction: '||SQLCODE);
624: FND_FILE.NEW_LINE(FND_FILE.log, 1);
625: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
626:
627: end hr_person_full_sync;
620: hr_full_sync_messages.update_psft_sync_run(3,'PERSON_FULL_SYNC',l_current_date,errbuf,retcode);
621: errbuf := errbuf||SQLERRM;
622: retcode := '1';
623: FND_FILE.put_line(fnd_file.log, 'Error in Person Full Synch Data Extraction: '||SQLCODE);
624: FND_FILE.NEW_LINE(FND_FILE.log, 1);
625: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
626:
627: end hr_person_full_sync;
628: /*Procedure to extract Country data for Full Synch messages Ends*/
621: errbuf := errbuf||SQLERRM;
622: retcode := '1';
623: FND_FILE.put_line(fnd_file.log, 'Error in Person Full Synch Data Extraction: '||SQLCODE);
624: FND_FILE.NEW_LINE(FND_FILE.log, 1);
625: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
626:
627: end hr_person_full_sync;
628: /*Procedure to extract Country data for Full Synch messages Ends*/
629:
655:
656: if l_dummy = 0
657: then
658:
659: FND_FILE.NEW_LINE(FND_FILE.log, 1);
660: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
661: FND_FILE.put_line(fnd_file.log,'Job Code Full Synch Data Extraction Begins:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
662: hr_full_sync_messages.insert_psft_sync_run(2,'JOBCODE_FULL_SYNC',errbuf,retcode);
663:
656: if l_dummy = 0
657: then
658:
659: FND_FILE.NEW_LINE(FND_FILE.log, 1);
660: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
661: FND_FILE.put_line(fnd_file.log,'Job Code Full Synch Data Extraction Begins:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
662: hr_full_sync_messages.insert_psft_sync_run(2,'JOBCODE_FULL_SYNC',errbuf,retcode);
663:
664: OPEN jobcode_full FOR
657: then
658:
659: FND_FILE.NEW_LINE(FND_FILE.log, 1);
660: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
661: FND_FILE.put_line(fnd_file.log,'Job Code Full Synch Data Extraction Begins:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
662: hr_full_sync_messages.insert_psft_sync_run(2,'JOBCODE_FULL_SYNC',errbuf,retcode);
663:
664: OPEN jobcode_full FOR
665: SELECT BUSINESS_GROUP_ID SETID,
697: END LOOP;
698:
699: FOR I IN 1 .. p_cnt Loop
700:
701: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
702: Jobcodefulltype.SETID(I)||fnd_global.local_chr(400)||
703: Jobcodefulltype.JOBCODE(I)||fnd_global.local_chr(400)||
704: Jobcodefulltype.EFFDT(I)||fnd_global.local_chr(400)||
705: Jobcodefulltype.EFF_STATUS(I)||fnd_global.local_chr(400)||
704: Jobcodefulltype.EFFDT(I)||fnd_global.local_chr(400)||
705: Jobcodefulltype.EFF_STATUS(I)||fnd_global.local_chr(400)||
706: Jobcodefulltype.DESCR(I)
707: );
708: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
709: END Loop;
710: end if;
711: hr_full_sync_messages.update_psft_sync_run(1,'JOBCODE_FULL_SYNC',l_current_date,errbuf,retcode);
712: FND_FILE.NEW_LINE(FND_FILE.log, 1);
708: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
709: END Loop;
710: end if;
711: hr_full_sync_messages.update_psft_sync_run(1,'JOBCODE_FULL_SYNC',l_current_date,errbuf,retcode);
712: FND_FILE.NEW_LINE(FND_FILE.log, 1);
713: FND_FILE.put_line(fnd_file.log,'Job Code Full Synch Data Extraction Ends:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
714:
715: EXCEPTION WHEN OTHERS THEN
716: update_psft_sync_run(3,'JOBCODE_FULL_SYNC',l_current_date,errbuf,retcode);
709: END Loop;
710: end if;
711: hr_full_sync_messages.update_psft_sync_run(1,'JOBCODE_FULL_SYNC',l_current_date,errbuf,retcode);
712: FND_FILE.NEW_LINE(FND_FILE.log, 1);
713: FND_FILE.put_line(fnd_file.log,'Job Code Full Synch Data Extraction Ends:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
714:
715: EXCEPTION WHEN OTHERS THEN
716: update_psft_sync_run(3,'JOBCODE_FULL_SYNC',l_current_date,errbuf,retcode);
717: errbuf := errbuf||SQLERRM;
715: EXCEPTION WHEN OTHERS THEN
716: update_psft_sync_run(3,'JOBCODE_FULL_SYNC',l_current_date,errbuf,retcode);
717: errbuf := errbuf||SQLERRM;
718: retcode := '1';
719: FND_FILE.put_line(fnd_file.log, 'Error in jobcode_fullsync: '||SQLCODE);
720: FND_FILE.NEW_LINE(FND_FILE.log, 1);
721: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
722:
723: END hr_jobcode_full_sync;
716: update_psft_sync_run(3,'JOBCODE_FULL_SYNC',l_current_date,errbuf,retcode);
717: errbuf := errbuf||SQLERRM;
718: retcode := '1';
719: FND_FILE.put_line(fnd_file.log, 'Error in jobcode_fullsync: '||SQLCODE);
720: FND_FILE.NEW_LINE(FND_FILE.log, 1);
721: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
722:
723: END hr_jobcode_full_sync;
724:
717: errbuf := errbuf||SQLERRM;
718: retcode := '1';
719: FND_FILE.put_line(fnd_file.log, 'Error in jobcode_fullsync: '||SQLCODE);
720: FND_FILE.NEW_LINE(FND_FILE.log, 1);
721: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
722:
723: END hr_jobcode_full_sync;
724:
725: /*Procedure to extract Job data for Full Synch messages Ends*/
750:
751: if l_dummy = 0
752: then
753:
754: FND_FILE.NEW_LINE(FND_FILE.log, 1);
755: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
756: FND_FILE.put_line(fnd_file.log,'Workforce Full Synch Data Extraction Begins:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
757: hr_full_sync_messages.insert_psft_sync_run(2,'WORKFORCE_FULL_SYNC',errbuf,retcode);
758:
751: if l_dummy = 0
752: then
753:
754: FND_FILE.NEW_LINE(FND_FILE.log, 1);
755: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
756: FND_FILE.put_line(fnd_file.log,'Workforce Full Synch Data Extraction Begins:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
757: hr_full_sync_messages.insert_psft_sync_run(2,'WORKFORCE_FULL_SYNC',errbuf,retcode);
758:
759: OPEN workforce_full FOR
752: then
753:
754: FND_FILE.NEW_LINE(FND_FILE.log, 1);
755: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
756: FND_FILE.put_line(fnd_file.log,'Workforce Full Synch Data Extraction Begins:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
757: hr_full_sync_messages.insert_psft_sync_run(2,'WORKFORCE_FULL_SYNC',errbuf,retcode);
758:
759: OPEN workforce_full FOR
760: SELECT ppf.employee_number,1 AS empl_rcd ,ppf.original_date_of_hire,
822:
823:
824: FOR I IN 1 .. p_cnt Loop
825:
826: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
827: WorkForceFullType.EMPLID(I)||fnd_global.local_chr(400)||
828: WorkForceFullType.EMPL_RCD(I)||fnd_global.local_chr(400)||
829: WorkForceFullType.ORIG_HIRE_DT(I)||fnd_global.local_chr(400)||
830: WorkForceFullType.PROBATION_DT(I)||fnd_global.local_chr(400)||
845: WorkForceFullType.TERMINATION_DT(I)||fnd_global.local_chr(400)||
846: WorkForceFullType.LAST_DATE_WORKED(I)
847: );
848:
849: FND_FILE.NEW_LINE(FND_FILE.output, 1);
850: END Loop;
851:
852: hr_full_sync_messages.update_psft_sync_run(1,'WORKFORCE_FULL_SYNC',l_current_date,errbuf,retcode);
853: FND_FILE.NEW_LINE(FND_FILE.log, 1);
849: FND_FILE.NEW_LINE(FND_FILE.output, 1);
850: END Loop;
851:
852: hr_full_sync_messages.update_psft_sync_run(1,'WORKFORCE_FULL_SYNC',l_current_date,errbuf,retcode);
853: FND_FILE.NEW_LINE(FND_FILE.log, 1);
854: FND_FILE.put_line(fnd_file.log,'Work Force Full Synch Data Extraction Ends:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
855:
856: End if;
857:
850: END Loop;
851:
852: hr_full_sync_messages.update_psft_sync_run(1,'WORKFORCE_FULL_SYNC',l_current_date,errbuf,retcode);
853: FND_FILE.NEW_LINE(FND_FILE.log, 1);
854: FND_FILE.put_line(fnd_file.log,'Work Force Full Synch Data Extraction Ends:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
855:
856: End if;
857:
858: EXCEPTION
859: WHEN OTHERS THEN
860: hr_full_sync_messages.update_psft_sync_run(3,'WORKFORCE_FULL_SYNC',l_current_date,errbuf,retcode);
861: errbuf := errbuf||SQLERRM;
862: retcode := '1';
863: FND_FILE.put_line(fnd_file.log, 'Error in workforce_fullsync: '||SQLCODE);
864: FND_FILE.NEW_LINE(FND_FILE.log, 1);
865: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
866:
867: end hr_workforce_full_sync;
860: hr_full_sync_messages.update_psft_sync_run(3,'WORKFORCE_FULL_SYNC',l_current_date,errbuf,retcode);
861: errbuf := errbuf||SQLERRM;
862: retcode := '1';
863: FND_FILE.put_line(fnd_file.log, 'Error in workforce_fullsync: '||SQLCODE);
864: FND_FILE.NEW_LINE(FND_FILE.log, 1);
865: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
866:
867: end hr_workforce_full_sync;
868:
861: errbuf := errbuf||SQLERRM;
862: retcode := '1';
863: FND_FILE.put_line(fnd_file.log, 'Error in workforce_fullsync: '||SQLCODE);
864: FND_FILE.NEW_LINE(FND_FILE.log, 1);
865: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
866:
867: end hr_workforce_full_sync;
868:
869: /*Procedure to extract the workforce data for full synch process ends*/
920: fetch fet_psft_sync into l_dummy;
921: close fet_psft_sync;
922: if l_dummy = 0
923: then
924: FND_FILE.NEW_LINE(FND_FILE.log, 1);
925: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
926: FND_FILE.put_line(fnd_file.log,'Organization Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
927: hr_full_sync_messages.insert_psft_sync_run(2,'ORG_FULL_SYNC',errbuf,retcode);
928: open fet_org_fsync;
921: close fet_psft_sync;
922: if l_dummy = 0
923: then
924: FND_FILE.NEW_LINE(FND_FILE.log, 1);
925: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
926: FND_FILE.put_line(fnd_file.log,'Organization Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
927: hr_full_sync_messages.insert_psft_sync_run(2,'ORG_FULL_SYNC',errbuf,retcode);
928: open fet_org_fsync;
929: loop
922: if l_dummy = 0
923: then
924: FND_FILE.NEW_LINE(FND_FILE.log, 1);
925: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
926: FND_FILE.put_line(fnd_file.log,'Organization Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
927: hr_full_sync_messages.insert_psft_sync_run(2,'ORG_FULL_SYNC',errbuf,retcode);
928: open fet_org_fsync;
929: loop
930: fetch fet_org_fsync into p_bg_id,p_dept_id,p_eff_date,p_eff_status,p_bg_name,p_loc_id,p_person_id,p_full_name;
929: loop
930: fetch fet_org_fsync into p_bg_id,p_dept_id,p_eff_date,p_eff_status,p_bg_name,p_loc_id,p_person_id,p_full_name;
931: exit when fet_org_fsync%notfound;
932:
933: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,p_bg_id||fnd_global.local_chr(400)||p_dept_id||fnd_global.local_chr(400)||p_eff_date||
934: fnd_global.local_chr(400)||
935: p_eff_status||fnd_global.local_chr(400)||p_bg_name||fnd_global.local_chr(400)||
936: p_loc_id||fnd_global.local_chr(400)||p_person_id||fnd_global.local_chr(400)||p_full_name);
937: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
933: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,p_bg_id||fnd_global.local_chr(400)||p_dept_id||fnd_global.local_chr(400)||p_eff_date||
934: fnd_global.local_chr(400)||
935: p_eff_status||fnd_global.local_chr(400)||p_bg_name||fnd_global.local_chr(400)||
936: p_loc_id||fnd_global.local_chr(400)||p_person_id||fnd_global.local_chr(400)||p_full_name);
937: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
938: end loop;
939: close fet_org_fsync;
940:
941:
939: close fet_org_fsync;
940:
941:
942: hr_full_sync_messages.update_psft_sync_run(1,'ORG_FULL_SYNC',p_effective_date,errbuf,retcode);
943: FND_FILE.NEW_LINE(FND_FILE.log, 1);
944: FND_FILE.put_line(fnd_file.log,'Organization Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
945:
946: end if;
947:
940:
941:
942: hr_full_sync_messages.update_psft_sync_run(1,'ORG_FULL_SYNC',p_effective_date,errbuf,retcode);
943: FND_FILE.NEW_LINE(FND_FILE.log, 1);
944: FND_FILE.put_line(fnd_file.log,'Organization Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
945:
946: end if;
947:
948: exception
949: when OTHERS then
950: hr_full_sync_messages.update_psft_sync_run(3,'ORG_FULL_SYNC',p_effective_date,errbuf,retcode);
951: errbuf := errbuf||SQLERRM;
952: retcode := '1';
953: FND_FILE.put_line(fnd_file.log, 'Error in Organization Data Full Synch Extraction: '||SQLCODE);
954: FND_FILE.NEW_LINE(FND_FILE.log, 1);
955: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
956: end hr_organizaton_full_sync;
957: /*Procedure to extract the organization data for full synch process ends*/
950: hr_full_sync_messages.update_psft_sync_run(3,'ORG_FULL_SYNC',p_effective_date,errbuf,retcode);
951: errbuf := errbuf||SQLERRM;
952: retcode := '1';
953: FND_FILE.put_line(fnd_file.log, 'Error in Organization Data Full Synch Extraction: '||SQLCODE);
954: FND_FILE.NEW_LINE(FND_FILE.log, 1);
955: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
956: end hr_organizaton_full_sync;
957: /*Procedure to extract the organization data for full synch process ends*/
958:
951: errbuf := errbuf||SQLERRM;
952: retcode := '1';
953: FND_FILE.put_line(fnd_file.log, 'Error in Organization Data Full Synch Extraction: '||SQLCODE);
954: FND_FILE.NEW_LINE(FND_FILE.log, 1);
955: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
956: end hr_organizaton_full_sync;
957: /*Procedure to extract the organization data for full synch process ends*/
958:
959: /*Procedure to extract the business group data for full synch process begins*/
994: fetch fet_psft_sync into l_dummy;
995: close fet_psft_sync;
996: if l_dummy = 0
997: then
998: FND_FILE.NEW_LINE(FND_FILE.log, 1);
999: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1000: FND_FILE.put_line(fnd_file.log,'Business Group Full Synch Data Extraction Begins:'
1001: ||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1002: hr_full_sync_messages.insert_psft_sync_run(2,'BG_FULL_SYNC',errbuf,retcode);
995: close fet_psft_sync;
996: if l_dummy = 0
997: then
998: FND_FILE.NEW_LINE(FND_FILE.log, 1);
999: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1000: FND_FILE.put_line(fnd_file.log,'Business Group Full Synch Data Extraction Begins:'
1001: ||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1002: hr_full_sync_messages.insert_psft_sync_run(2,'BG_FULL_SYNC',errbuf,retcode);
1003: open fet_bg_fsync;
996: if l_dummy = 0
997: then
998: FND_FILE.NEW_LINE(FND_FILE.log, 1);
999: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1000: FND_FILE.put_line(fnd_file.log,'Business Group Full Synch Data Extraction Begins:'
1001: ||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1002: hr_full_sync_messages.insert_psft_sync_run(2,'BG_FULL_SYNC',errbuf,retcode);
1003: open fet_bg_fsync;
1004: loop
1003: open fet_bg_fsync;
1004: loop
1005: fetch fet_bg_fsync into p_bg_id,p_bg_name,p_eff_date,p_eff_status;
1006: exit when fet_bg_fsync%notfound;
1007: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,p_bg_id||fnd_global.local_chr(400)||p_bg_name||fnd_global.local_chr(400)||
1008: p_eff_date||fnd_global.local_chr(400)||p_eff_status);
1009: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1010: end loop;
1011: close fet_bg_fsync;
1005: fetch fet_bg_fsync into p_bg_id,p_bg_name,p_eff_date,p_eff_status;
1006: exit when fet_bg_fsync%notfound;
1007: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,p_bg_id||fnd_global.local_chr(400)||p_bg_name||fnd_global.local_chr(400)||
1008: p_eff_date||fnd_global.local_chr(400)||p_eff_status);
1009: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1010: end loop;
1011: close fet_bg_fsync;
1012:
1013:
1011: close fet_bg_fsync;
1012:
1013:
1014: hr_full_sync_messages.update_psft_sync_run(1,'BG_FULL_SYNC',p_effective_date,errbuf,retcode);
1015: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1016: FND_FILE.put_line(fnd_file.log,'Business Group Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1017:
1018: end if;
1019:
1012:
1013:
1014: hr_full_sync_messages.update_psft_sync_run(1,'BG_FULL_SYNC',p_effective_date,errbuf,retcode);
1015: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1016: FND_FILE.put_line(fnd_file.log,'Business Group Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1017:
1018: end if;
1019:
1020: exception
1021: when OTHERS then
1022: hr_full_sync_messages.update_psft_sync_run(3,'BG_FULL_SYNC',p_effective_date,errbuf,retcode);
1023: errbuf := errbuf||SQLERRM;
1024: retcode := '1';
1025: FND_FILE.put_line(fnd_file.log, 'Error in Business Group Data Full Synch Extraction: '||SQLCODE);
1026: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1027: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
1028: end hr_businessgrp_full_sync;
1029: /*Procedure to extract the business group data for full synch process ends*/
1022: hr_full_sync_messages.update_psft_sync_run(3,'BG_FULL_SYNC',p_effective_date,errbuf,retcode);
1023: errbuf := errbuf||SQLERRM;
1024: retcode := '1';
1025: FND_FILE.put_line(fnd_file.log, 'Error in Business Group Data Full Synch Extraction: '||SQLCODE);
1026: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1027: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
1028: end hr_businessgrp_full_sync;
1029: /*Procedure to extract the business group data for full synch process ends*/
1030:
1023: errbuf := errbuf||SQLERRM;
1024: retcode := '1';
1025: FND_FILE.put_line(fnd_file.log, 'Error in Business Group Data Full Synch Extraction: '||SQLCODE);
1026: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1027: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
1028: end hr_businessgrp_full_sync;
1029: /*Procedure to extract the business group data for full synch process ends*/
1030:
1031: /*Procedure to extract the payroll group data for full synch process begins*/
1069: fetch fet_psft_sync into l_dummy;
1070: close fet_psft_sync;
1071: if l_dummy = 0
1072: then
1073: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1074: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1075: FND_FILE.put_line(fnd_file.log,'Payroll Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1076: hr_full_sync_messages.insert_psft_sync_run(2,'PYRL_FULL_SYNC',errbuf,retcode);
1077: open fet_pyrl_fsync;
1070: close fet_psft_sync;
1071: if l_dummy = 0
1072: then
1073: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1074: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1075: FND_FILE.put_line(fnd_file.log,'Payroll Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1076: hr_full_sync_messages.insert_psft_sync_run(2,'PYRL_FULL_SYNC',errbuf,retcode);
1077: open fet_pyrl_fsync;
1078: loop
1071: if l_dummy = 0
1072: then
1073: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1074: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1075: FND_FILE.put_line(fnd_file.log,'Payroll Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1076: hr_full_sync_messages.insert_psft_sync_run(2,'PYRL_FULL_SYNC',errbuf,retcode);
1077: open fet_pyrl_fsync;
1078: loop
1079:
1078: loop
1079:
1080: fetch fet_pyrl_fsync into p_pyrl_id,p_pyrl_name,p_bg_id,p_eff_date,p_eff_status;
1081: exit when fet_pyrl_fsync%notfound;
1082: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,p_pyrl_id||fnd_global.local_chr(400)||
1083: p_pyrl_name||fnd_global.local_chr(400)||p_bg_id||fnd_global.local_chr(400)||p_eff_date||fnd_global.local_chr(400)||p_eff_status);
1084: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1085: end loop;
1086: close fet_pyrl_fsync;
1080: fetch fet_pyrl_fsync into p_pyrl_id,p_pyrl_name,p_bg_id,p_eff_date,p_eff_status;
1081: exit when fet_pyrl_fsync%notfound;
1082: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,p_pyrl_id||fnd_global.local_chr(400)||
1083: p_pyrl_name||fnd_global.local_chr(400)||p_bg_id||fnd_global.local_chr(400)||p_eff_date||fnd_global.local_chr(400)||p_eff_status);
1084: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1085: end loop;
1086: close fet_pyrl_fsync;
1087:
1088:
1086: close fet_pyrl_fsync;
1087:
1088:
1089: hr_full_sync_messages.update_psft_sync_run(1,'PYRL_FULL_SYNC',p_effective_date,errbuf,retcode);
1090: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1091: FND_FILE.put_line(fnd_file.log,'Payroll Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1092:
1093: end if;
1094:
1087:
1088:
1089: hr_full_sync_messages.update_psft_sync_run(1,'PYRL_FULL_SYNC',p_effective_date,errbuf,retcode);
1090: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1091: FND_FILE.put_line(fnd_file.log,'Payroll Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1092:
1093: end if;
1094:
1095: exception
1096: when OTHERS then
1097: hr_full_sync_messages.update_psft_sync_run(3,'PYRL_FULL_SYNC',p_effective_date,errbuf,retcode);
1098: errbuf := errbuf||SQLERRM;
1099: retcode := '1';
1100: FND_FILE.put_line(fnd_file.log, 'Error in Payroll Data Full Synch Extraction: '||SQLCODE);
1101: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1102: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
1103: end hr_payroll_full_sync;
1104: /*Procedure to extract the payroll group data for full synch process ends*/
1097: hr_full_sync_messages.update_psft_sync_run(3,'PYRL_FULL_SYNC',p_effective_date,errbuf,retcode);
1098: errbuf := errbuf||SQLERRM;
1099: retcode := '1';
1100: FND_FILE.put_line(fnd_file.log, 'Error in Payroll Data Full Synch Extraction: '||SQLCODE);
1101: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1102: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
1103: end hr_payroll_full_sync;
1104: /*Procedure to extract the payroll group data for full synch process ends*/
1105:
1098: errbuf := errbuf||SQLERRM;
1099: retcode := '1';
1100: FND_FILE.put_line(fnd_file.log, 'Error in Payroll Data Full Synch Extraction: '||SQLCODE);
1101: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1102: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
1103: end hr_payroll_full_sync;
1104: /*Procedure to extract the payroll group data for full synch process ends*/
1105:
1106: /*Common Procedure called from concurrent program begins*/