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*/
369: fetch fet_psft_sync into l_dummy;
370: close fet_psft_sync;
371: if l_dummy = 0
372: then
373: FND_FILE.NEW_LINE(FND_FILE.log, 1);
374: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
375: FND_FILE.put_line(fnd_file.log,'Location Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
376: hr_full_sync_messages.insert_psft_sync_run(2,'LOC_FULL_SYNC',errbuf,retcode);
377:
370: close fet_psft_sync;
371: if l_dummy = 0
372: then
373: FND_FILE.NEW_LINE(FND_FILE.log, 1);
374: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
375: FND_FILE.put_line(fnd_file.log,'Location Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
376: hr_full_sync_messages.insert_psft_sync_run(2,'LOC_FULL_SYNC',errbuf,retcode);
377:
378: open fet_loc_sync;
371: if l_dummy = 0
372: then
373: FND_FILE.NEW_LINE(FND_FILE.log, 1);
374: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
375: FND_FILE.put_line(fnd_file.log,'Location Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
376: hr_full_sync_messages.insert_psft_sync_run(2,'LOC_FULL_SYNC',errbuf,retcode);
377:
378: open fet_loc_sync;
379: loop
382: p_town_or_city,p_region_1,p_region_2,p_region_3,p_postal_code,p_tel_no_1,p_tel_no_2 ,
383: 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,
384: p_loc_info_19,p_loc_info_20;
385: exit when fet_loc_sync%notfound;
386: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,p_bg_id||fnd_global.local_chr(400)||p_loc_id||
387: fnd_global.local_chr(400)||p_active_date||
388: fnd_global.local_chr(400)||p_effecive_status||fnd_global.local_chr(400)||
389: p_loc_code||fnd_global.local_chr(400)|| p_loc_desc||fnd_global.local_chr(400)||'ADDRESS_START'||
390: fnd_global.local_chr(400)||p_loc_style ||fnd_global.local_chr(400)|| p_add_line_1||
398: fnd_global.local_chr(400)||p_loc_info_16||fnd_global.local_chr(400)||p_loc_info_17||
399: fnd_global.local_chr(400)||p_loc_info_18||fnd_global.local_chr(400)||
400: p_loc_info_19||fnd_global.local_chr(400)||p_loc_info_20||fnd_global.local_chr(400)||'ADDRESS_END'||
401: fnd_global.local_chr(400));
402: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
403: end loop;
404: close fet_loc_sync;
405:
406: hr_full_sync_messages.update_psft_sync_run(1,'LOC_FULL_SYNC',p_effective_date,errbuf,retcode);
403: end loop;
404: close fet_loc_sync;
405:
406: hr_full_sync_messages.update_psft_sync_run(1,'LOC_FULL_SYNC',p_effective_date,errbuf,retcode);
407: FND_FILE.NEW_LINE(FND_FILE.log, 1);
408: FND_FILE.put_line(fnd_file.log,'Location Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
409:
410: end if;
411:
404: close fet_loc_sync;
405:
406: hr_full_sync_messages.update_psft_sync_run(1,'LOC_FULL_SYNC',p_effective_date,errbuf,retcode);
407: FND_FILE.NEW_LINE(FND_FILE.log, 1);
408: FND_FILE.put_line(fnd_file.log,'Location Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
409:
410: end if;
411:
412: exception
413: when OTHERS then
414: hr_full_sync_messages.update_psft_sync_run(3,'LOC_FULL_SYNC',p_effective_date,errbuf,retcode);
415: errbuf := errbuf||SQLERRM;
416: retcode := '1';
417: FND_FILE.put_line(fnd_file.log, 'Error in Location Full Synch Data Extraction: '||SQLCODE);
418: FND_FILE.NEW_LINE(FND_FILE.log, 1);
419: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
420:
421: end HR_LOCATION_FULL_SYNC;
414: hr_full_sync_messages.update_psft_sync_run(3,'LOC_FULL_SYNC',p_effective_date,errbuf,retcode);
415: errbuf := errbuf||SQLERRM;
416: retcode := '1';
417: FND_FILE.put_line(fnd_file.log, 'Error in Location Full Synch Data Extraction: '||SQLCODE);
418: FND_FILE.NEW_LINE(FND_FILE.log, 1);
419: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
420:
421: end HR_LOCATION_FULL_SYNC;
422: /*Procedure to extract Location data for Full Synch messages Ends*/
415: errbuf := errbuf||SQLERRM;
416: retcode := '1';
417: FND_FILE.put_line(fnd_file.log, 'Error in Location Full Synch Data Extraction: '||SQLCODE);
418: FND_FILE.NEW_LINE(FND_FILE.log, 1);
419: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
420:
421: end HR_LOCATION_FULL_SYNC;
422: /*Procedure to extract Location data for Full Synch messages Ends*/
423:
578:
579: if l_dummy = 0 then
580: l_current_date :=sysdate;
581:
582: FND_FILE.NEW_LINE(FND_FILE.log, 1);
583: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
584: FND_FILE.put_line(fnd_file.log,'Person Full Synch Data Extraction Begins:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
585: hr_full_sync_messages.insert_psft_sync_run(2,'PERSON_FULL_SYNC',errbuf,retcode);
586:
579: if l_dummy = 0 then
580: l_current_date :=sysdate;
581:
582: FND_FILE.NEW_LINE(FND_FILE.log, 1);
583: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
584: FND_FILE.put_line(fnd_file.log,'Person Full Synch Data Extraction Begins:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
585: hr_full_sync_messages.insert_psft_sync_run(2,'PERSON_FULL_SYNC',errbuf,retcode);
586:
587: open csr_person_data;
580: l_current_date :=sysdate;
581:
582: FND_FILE.NEW_LINE(FND_FILE.log, 1);
583: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
584: FND_FILE.put_line(fnd_file.log,'Person Full Synch Data Extraction Begins:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
585: hr_full_sync_messages.insert_psft_sync_run(2,'PERSON_FULL_SYNC',errbuf,retcode);
586:
587: open csr_person_data;
588: loop
594: L_POSTAL_CODE, L_EMAIL_ADDRESS, L_PHONE_TYPE
595: ,L_PHONE_NUMBER,L_NATIONALITY ,L_NATIONAL_IDENTIFIER ;
596:
597: exit when csr_person_data%notfound;
598: 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
599: ||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
600: ||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
601: ||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
602: ||fnd_global.local_chr(400)||L_SUFFIX||fnd_global.local_chr(400)||L_TITLE||fnd_global.local_chr(400)||L_LAST_NAME
605: ||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
606: ||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
607: ||fnd_global.local_chr(400)||L_PHONE_NUMBER||fnd_global.local_chr(400)||L_NATIONALITY||fnd_global.local_chr(400)||L_NATIONAL_IDENTIFIER
608: );
609: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
610: end loop;
611: close csr_person_data;
612:
613: hr_full_sync_messages.update_psft_sync_run(1,'PERSON_FULL_SYNC',l_current_date,errbuf,retcode);
610: end loop;
611: close csr_person_data;
612:
613: hr_full_sync_messages.update_psft_sync_run(1,'PERSON_FULL_SYNC',l_current_date,errbuf,retcode);
614: FND_FILE.NEW_LINE(FND_FILE.log, 1);
615: FND_FILE.put_line(fnd_file.log,'Person Full Synch Data Extraction Ends:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
616:
617: END if;
618:
611: close csr_person_data;
612:
613: hr_full_sync_messages.update_psft_sync_run(1,'PERSON_FULL_SYNC',l_current_date,errbuf,retcode);
614: FND_FILE.NEW_LINE(FND_FILE.log, 1);
615: FND_FILE.put_line(fnd_file.log,'Person Full Synch Data Extraction Ends:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
616:
617: END if;
618:
619: exception
620: when OTHERS then
621: hr_full_sync_messages.update_psft_sync_run(3,'PERSON_FULL_SYNC',l_current_date,errbuf,retcode);
622: errbuf := errbuf||SQLERRM;
623: retcode := '1';
624: FND_FILE.put_line(fnd_file.log, 'Error in Person Full Synch Data Extraction: '||SQLCODE);
625: FND_FILE.NEW_LINE(FND_FILE.log, 1);
626: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
627:
628: end hr_person_full_sync;
621: hr_full_sync_messages.update_psft_sync_run(3,'PERSON_FULL_SYNC',l_current_date,errbuf,retcode);
622: errbuf := errbuf||SQLERRM;
623: retcode := '1';
624: FND_FILE.put_line(fnd_file.log, 'Error in Person Full Synch Data Extraction: '||SQLCODE);
625: FND_FILE.NEW_LINE(FND_FILE.log, 1);
626: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
627:
628: end hr_person_full_sync;
629: /*Procedure to extract Country data for Full Synch messages Ends*/
622: errbuf := errbuf||SQLERRM;
623: retcode := '1';
624: FND_FILE.put_line(fnd_file.log, 'Error in Person Full Synch Data Extraction: '||SQLCODE);
625: FND_FILE.NEW_LINE(FND_FILE.log, 1);
626: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
627:
628: end hr_person_full_sync;
629: /*Procedure to extract Country data for Full Synch messages Ends*/
630:
656:
657: if l_dummy = 0
658: then
659:
660: FND_FILE.NEW_LINE(FND_FILE.log, 1);
661: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
662: 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'));
663: hr_full_sync_messages.insert_psft_sync_run(2,'JOBCODE_FULL_SYNC',errbuf,retcode);
664:
657: if l_dummy = 0
658: then
659:
660: FND_FILE.NEW_LINE(FND_FILE.log, 1);
661: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
662: 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'));
663: hr_full_sync_messages.insert_psft_sync_run(2,'JOBCODE_FULL_SYNC',errbuf,retcode);
664:
665: OPEN jobcode_full FOR
658: then
659:
660: FND_FILE.NEW_LINE(FND_FILE.log, 1);
661: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
662: 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'));
663: hr_full_sync_messages.insert_psft_sync_run(2,'JOBCODE_FULL_SYNC',errbuf,retcode);
664:
665: OPEN jobcode_full FOR
666: SELECT BUSINESS_GROUP_ID SETID,
698: END LOOP;
699:
700: FOR I IN 1 .. p_cnt Loop
701:
702: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
703: Jobcodefulltype.SETID(I)||fnd_global.local_chr(400)||
704: Jobcodefulltype.JOBCODE(I)||fnd_global.local_chr(400)||
705: Jobcodefulltype.EFFDT(I)||fnd_global.local_chr(400)||
706: Jobcodefulltype.EFF_STATUS(I)||fnd_global.local_chr(400)||
705: Jobcodefulltype.EFFDT(I)||fnd_global.local_chr(400)||
706: Jobcodefulltype.EFF_STATUS(I)||fnd_global.local_chr(400)||
707: Jobcodefulltype.DESCR(I)
708: );
709: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
710: END Loop;
711: end if;
712: hr_full_sync_messages.update_psft_sync_run(1,'JOBCODE_FULL_SYNC',l_current_date,errbuf,retcode);
713: FND_FILE.NEW_LINE(FND_FILE.log, 1);
709: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
710: END Loop;
711: end if;
712: hr_full_sync_messages.update_psft_sync_run(1,'JOBCODE_FULL_SYNC',l_current_date,errbuf,retcode);
713: FND_FILE.NEW_LINE(FND_FILE.log, 1);
714: 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'));
715:
716: EXCEPTION WHEN OTHERS THEN
717: update_psft_sync_run(3,'JOBCODE_FULL_SYNC',l_current_date,errbuf,retcode);
710: END Loop;
711: end if;
712: hr_full_sync_messages.update_psft_sync_run(1,'JOBCODE_FULL_SYNC',l_current_date,errbuf,retcode);
713: FND_FILE.NEW_LINE(FND_FILE.log, 1);
714: 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'));
715:
716: EXCEPTION WHEN OTHERS THEN
717: update_psft_sync_run(3,'JOBCODE_FULL_SYNC',l_current_date,errbuf,retcode);
718: errbuf := errbuf||SQLERRM;
716: EXCEPTION WHEN OTHERS THEN
717: update_psft_sync_run(3,'JOBCODE_FULL_SYNC',l_current_date,errbuf,retcode);
718: errbuf := errbuf||SQLERRM;
719: retcode := '1';
720: FND_FILE.put_line(fnd_file.log, 'Error in jobcode_fullsync: '||SQLCODE);
721: FND_FILE.NEW_LINE(FND_FILE.log, 1);
722: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
723:
724: END hr_jobcode_full_sync;
717: update_psft_sync_run(3,'JOBCODE_FULL_SYNC',l_current_date,errbuf,retcode);
718: errbuf := errbuf||SQLERRM;
719: retcode := '1';
720: FND_FILE.put_line(fnd_file.log, 'Error in jobcode_fullsync: '||SQLCODE);
721: FND_FILE.NEW_LINE(FND_FILE.log, 1);
722: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
723:
724: END hr_jobcode_full_sync;
725:
718: errbuf := errbuf||SQLERRM;
719: retcode := '1';
720: FND_FILE.put_line(fnd_file.log, 'Error in jobcode_fullsync: '||SQLCODE);
721: FND_FILE.NEW_LINE(FND_FILE.log, 1);
722: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
723:
724: END hr_jobcode_full_sync;
725:
726: /*Procedure to extract Job data for Full Synch messages Ends*/
751:
752: if l_dummy = 0
753: then
754:
755: FND_FILE.NEW_LINE(FND_FILE.log, 1);
756: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
757: FND_FILE.put_line(fnd_file.log,'Workforce Full Synch Data Extraction Begins:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
758: hr_full_sync_messages.insert_psft_sync_run(2,'WORKFORCE_FULL_SYNC',errbuf,retcode);
759:
752: if l_dummy = 0
753: then
754:
755: FND_FILE.NEW_LINE(FND_FILE.log, 1);
756: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
757: FND_FILE.put_line(fnd_file.log,'Workforce Full Synch Data Extraction Begins:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
758: hr_full_sync_messages.insert_psft_sync_run(2,'WORKFORCE_FULL_SYNC',errbuf,retcode);
759:
760: OPEN workforce_full FOR
753: then
754:
755: FND_FILE.NEW_LINE(FND_FILE.log, 1);
756: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
757: FND_FILE.put_line(fnd_file.log,'Workforce Full Synch Data Extraction Begins:'||to_char(l_current_date, 'DD/MM/RRRR HH:MI:SS'));
758: hr_full_sync_messages.insert_psft_sync_run(2,'WORKFORCE_FULL_SYNC',errbuf,retcode);
759:
760: OPEN workforce_full FOR
761: SELECT ppf.employee_number,1 AS empl_rcd ,ppf.original_date_of_hire,
823:
824:
825: FOR I IN 1 .. p_cnt Loop
826:
827: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
828: WorkForceFullType.EMPLID(I)||fnd_global.local_chr(400)||
829: WorkForceFullType.EMPL_RCD(I)||fnd_global.local_chr(400)||
830: WorkForceFullType.ORIG_HIRE_DT(I)||fnd_global.local_chr(400)||
831: WorkForceFullType.PROBATION_DT(I)||fnd_global.local_chr(400)||
846: WorkForceFullType.TERMINATION_DT(I)||fnd_global.local_chr(400)||
847: WorkForceFullType.LAST_DATE_WORKED(I)
848: );
849:
850: FND_FILE.NEW_LINE(FND_FILE.output, 1);
851: END Loop;
852:
853: hr_full_sync_messages.update_psft_sync_run(1,'WORKFORCE_FULL_SYNC',l_current_date,errbuf,retcode);
854: FND_FILE.NEW_LINE(FND_FILE.log, 1);
850: FND_FILE.NEW_LINE(FND_FILE.output, 1);
851: END Loop;
852:
853: hr_full_sync_messages.update_psft_sync_run(1,'WORKFORCE_FULL_SYNC',l_current_date,errbuf,retcode);
854: FND_FILE.NEW_LINE(FND_FILE.log, 1);
855: 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'));
856:
857: End if;
858:
851: END Loop;
852:
853: hr_full_sync_messages.update_psft_sync_run(1,'WORKFORCE_FULL_SYNC',l_current_date,errbuf,retcode);
854: FND_FILE.NEW_LINE(FND_FILE.log, 1);
855: 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'));
856:
857: End if;
858:
859: EXCEPTION
860: WHEN OTHERS THEN
861: hr_full_sync_messages.update_psft_sync_run(3,'WORKFORCE_FULL_SYNC',l_current_date,errbuf,retcode);
862: errbuf := errbuf||SQLERRM;
863: retcode := '1';
864: FND_FILE.put_line(fnd_file.log, 'Error in workforce_fullsync: '||SQLCODE);
865: FND_FILE.NEW_LINE(FND_FILE.log, 1);
866: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
867:
868: end hr_workforce_full_sync;
861: hr_full_sync_messages.update_psft_sync_run(3,'WORKFORCE_FULL_SYNC',l_current_date,errbuf,retcode);
862: errbuf := errbuf||SQLERRM;
863: retcode := '1';
864: FND_FILE.put_line(fnd_file.log, 'Error in workforce_fullsync: '||SQLCODE);
865: FND_FILE.NEW_LINE(FND_FILE.log, 1);
866: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
867:
868: end hr_workforce_full_sync;
869:
862: errbuf := errbuf||SQLERRM;
863: retcode := '1';
864: FND_FILE.put_line(fnd_file.log, 'Error in workforce_fullsync: '||SQLCODE);
865: FND_FILE.NEW_LINE(FND_FILE.log, 1);
866: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
867:
868: end hr_workforce_full_sync;
869:
870: /*Procedure to extract the workforce data for full synch process ends*/
921: fetch fet_psft_sync into l_dummy;
922: close fet_psft_sync;
923: if l_dummy = 0
924: then
925: FND_FILE.NEW_LINE(FND_FILE.log, 1);
926: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
927: FND_FILE.put_line(fnd_file.log,'Organization Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
928: hr_full_sync_messages.insert_psft_sync_run(2,'ORG_FULL_SYNC',errbuf,retcode);
929: open fet_org_fsync;
922: close fet_psft_sync;
923: if l_dummy = 0
924: then
925: FND_FILE.NEW_LINE(FND_FILE.log, 1);
926: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
927: FND_FILE.put_line(fnd_file.log,'Organization Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
928: hr_full_sync_messages.insert_psft_sync_run(2,'ORG_FULL_SYNC',errbuf,retcode);
929: open fet_org_fsync;
930: loop
923: if l_dummy = 0
924: then
925: FND_FILE.NEW_LINE(FND_FILE.log, 1);
926: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
927: FND_FILE.put_line(fnd_file.log,'Organization Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
928: hr_full_sync_messages.insert_psft_sync_run(2,'ORG_FULL_SYNC',errbuf,retcode);
929: open fet_org_fsync;
930: loop
931: 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;
930: loop
931: 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;
932: exit when fet_org_fsync%notfound;
933:
934: 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||
935: fnd_global.local_chr(400)||
936: p_eff_status||fnd_global.local_chr(400)||p_bg_name||fnd_global.local_chr(400)||
937: p_loc_id||fnd_global.local_chr(400)||p_person_id||fnd_global.local_chr(400)||p_full_name);
938: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
934: 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||
935: fnd_global.local_chr(400)||
936: p_eff_status||fnd_global.local_chr(400)||p_bg_name||fnd_global.local_chr(400)||
937: p_loc_id||fnd_global.local_chr(400)||p_person_id||fnd_global.local_chr(400)||p_full_name);
938: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
939: end loop;
940: close fet_org_fsync;
941:
942:
940: close fet_org_fsync;
941:
942:
943: hr_full_sync_messages.update_psft_sync_run(1,'ORG_FULL_SYNC',p_effective_date,errbuf,retcode);
944: FND_FILE.NEW_LINE(FND_FILE.log, 1);
945: FND_FILE.put_line(fnd_file.log,'Organization Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
946:
947: end if;
948:
941:
942:
943: hr_full_sync_messages.update_psft_sync_run(1,'ORG_FULL_SYNC',p_effective_date,errbuf,retcode);
944: FND_FILE.NEW_LINE(FND_FILE.log, 1);
945: FND_FILE.put_line(fnd_file.log,'Organization Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
946:
947: end if;
948:
949: exception
950: when OTHERS then
951: hr_full_sync_messages.update_psft_sync_run(3,'ORG_FULL_SYNC',p_effective_date,errbuf,retcode);
952: errbuf := errbuf||SQLERRM;
953: retcode := '1';
954: FND_FILE.put_line(fnd_file.log, 'Error in Organization Data Full Synch Extraction: '||SQLCODE);
955: FND_FILE.NEW_LINE(FND_FILE.log, 1);
956: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
957: end hr_organizaton_full_sync;
958: /*Procedure to extract the organization data for full synch process ends*/
951: hr_full_sync_messages.update_psft_sync_run(3,'ORG_FULL_SYNC',p_effective_date,errbuf,retcode);
952: errbuf := errbuf||SQLERRM;
953: retcode := '1';
954: FND_FILE.put_line(fnd_file.log, 'Error in Organization Data Full Synch Extraction: '||SQLCODE);
955: FND_FILE.NEW_LINE(FND_FILE.log, 1);
956: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
957: end hr_organizaton_full_sync;
958: /*Procedure to extract the organization data for full synch process ends*/
959:
952: errbuf := errbuf||SQLERRM;
953: retcode := '1';
954: FND_FILE.put_line(fnd_file.log, 'Error in Organization Data Full Synch Extraction: '||SQLCODE);
955: FND_FILE.NEW_LINE(FND_FILE.log, 1);
956: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
957: end hr_organizaton_full_sync;
958: /*Procedure to extract the organization data for full synch process ends*/
959:
960: /*Procedure to extract the business group data for full synch process begins*/
995: fetch fet_psft_sync into l_dummy;
996: close fet_psft_sync;
997: if l_dummy = 0
998: then
999: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1000: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1001: FND_FILE.put_line(fnd_file.log,'Business Group Full Synch Data Extraction Begins:'
1002: ||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1003: hr_full_sync_messages.insert_psft_sync_run(2,'BG_FULL_SYNC',errbuf,retcode);
996: close fet_psft_sync;
997: if l_dummy = 0
998: then
999: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1000: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1001: FND_FILE.put_line(fnd_file.log,'Business Group Full Synch Data Extraction Begins:'
1002: ||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1003: hr_full_sync_messages.insert_psft_sync_run(2,'BG_FULL_SYNC',errbuf,retcode);
1004: open fet_bg_fsync;
997: if l_dummy = 0
998: then
999: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1000: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1001: FND_FILE.put_line(fnd_file.log,'Business Group Full Synch Data Extraction Begins:'
1002: ||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1003: hr_full_sync_messages.insert_psft_sync_run(2,'BG_FULL_SYNC',errbuf,retcode);
1004: open fet_bg_fsync;
1005: loop
1004: open fet_bg_fsync;
1005: loop
1006: fetch fet_bg_fsync into p_bg_id,p_bg_name,p_eff_date,p_eff_status;
1007: exit when fet_bg_fsync%notfound;
1008: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,p_bg_id||fnd_global.local_chr(400)||p_bg_name||fnd_global.local_chr(400)||
1009: p_eff_date||fnd_global.local_chr(400)||p_eff_status);
1010: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1011: end loop;
1012: close fet_bg_fsync;
1006: fetch fet_bg_fsync into p_bg_id,p_bg_name,p_eff_date,p_eff_status;
1007: exit when fet_bg_fsync%notfound;
1008: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,p_bg_id||fnd_global.local_chr(400)||p_bg_name||fnd_global.local_chr(400)||
1009: p_eff_date||fnd_global.local_chr(400)||p_eff_status);
1010: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1011: end loop;
1012: close fet_bg_fsync;
1013:
1014:
1012: close fet_bg_fsync;
1013:
1014:
1015: hr_full_sync_messages.update_psft_sync_run(1,'BG_FULL_SYNC',p_effective_date,errbuf,retcode);
1016: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1017: 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'));
1018:
1019: end if;
1020:
1013:
1014:
1015: hr_full_sync_messages.update_psft_sync_run(1,'BG_FULL_SYNC',p_effective_date,errbuf,retcode);
1016: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1017: 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'));
1018:
1019: end if;
1020:
1021: exception
1022: when OTHERS then
1023: hr_full_sync_messages.update_psft_sync_run(3,'BG_FULL_SYNC',p_effective_date,errbuf,retcode);
1024: errbuf := errbuf||SQLERRM;
1025: retcode := '1';
1026: FND_FILE.put_line(fnd_file.log, 'Error in Business Group Data Full Synch Extraction: '||SQLCODE);
1027: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1028: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
1029: end hr_businessgrp_full_sync;
1030: /*Procedure to extract the business group data for full synch process ends*/
1023: hr_full_sync_messages.update_psft_sync_run(3,'BG_FULL_SYNC',p_effective_date,errbuf,retcode);
1024: errbuf := errbuf||SQLERRM;
1025: retcode := '1';
1026: FND_FILE.put_line(fnd_file.log, 'Error in Business Group Data Full Synch Extraction: '||SQLCODE);
1027: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1028: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
1029: end hr_businessgrp_full_sync;
1030: /*Procedure to extract the business group data for full synch process ends*/
1031:
1024: errbuf := errbuf||SQLERRM;
1025: retcode := '1';
1026: FND_FILE.put_line(fnd_file.log, 'Error in Business Group Data Full Synch Extraction: '||SQLCODE);
1027: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1028: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
1029: end hr_businessgrp_full_sync;
1030: /*Procedure to extract the business group data for full synch process ends*/
1031:
1032: /*Procedure to extract the payroll group data for full synch process begins*/
1070: fetch fet_psft_sync into l_dummy;
1071: close fet_psft_sync;
1072: if l_dummy = 0
1073: then
1074: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1075: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1076: FND_FILE.put_line(fnd_file.log,'Payroll Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1077: hr_full_sync_messages.insert_psft_sync_run(2,'PYRL_FULL_SYNC',errbuf,retcode);
1078: open fet_pyrl_fsync;
1071: close fet_psft_sync;
1072: if l_dummy = 0
1073: then
1074: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1075: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1076: FND_FILE.put_line(fnd_file.log,'Payroll Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1077: hr_full_sync_messages.insert_psft_sync_run(2,'PYRL_FULL_SYNC',errbuf,retcode);
1078: open fet_pyrl_fsync;
1079: loop
1072: if l_dummy = 0
1073: then
1074: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1075: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1076: FND_FILE.put_line(fnd_file.log,'Payroll Full Synch Data Extraction Begins:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1077: hr_full_sync_messages.insert_psft_sync_run(2,'PYRL_FULL_SYNC',errbuf,retcode);
1078: open fet_pyrl_fsync;
1079: loop
1080:
1079: loop
1080:
1081: fetch fet_pyrl_fsync into p_pyrl_id,p_pyrl_name,p_bg_id,p_eff_date,p_eff_status;
1082: exit when fet_pyrl_fsync%notfound;
1083: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,p_pyrl_id||fnd_global.local_chr(400)||
1084: 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);
1085: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1086: end loop;
1087: close fet_pyrl_fsync;
1081: fetch fet_pyrl_fsync into p_pyrl_id,p_pyrl_name,p_bg_id,p_eff_date,p_eff_status;
1082: exit when fet_pyrl_fsync%notfound;
1083: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,p_pyrl_id||fnd_global.local_chr(400)||
1084: 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);
1085: FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 1);
1086: end loop;
1087: close fet_pyrl_fsync;
1088:
1089:
1087: close fet_pyrl_fsync;
1088:
1089:
1090: hr_full_sync_messages.update_psft_sync_run(1,'PYRL_FULL_SYNC',p_effective_date,errbuf,retcode);
1091: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1092: FND_FILE.put_line(fnd_file.log,'Payroll Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1093:
1094: end if;
1095:
1088:
1089:
1090: hr_full_sync_messages.update_psft_sync_run(1,'PYRL_FULL_SYNC',p_effective_date,errbuf,retcode);
1091: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1092: FND_FILE.put_line(fnd_file.log,'Payroll Full Synch Data Extraction Ends:'||to_char(p_effective_date, 'DD/MM/RRRR HH:MI:SS'));
1093:
1094: end if;
1095:
1096: exception
1097: when OTHERS then
1098: hr_full_sync_messages.update_psft_sync_run(3,'PYRL_FULL_SYNC',p_effective_date,errbuf,retcode);
1099: errbuf := errbuf||SQLERRM;
1100: retcode := '1';
1101: FND_FILE.put_line(fnd_file.log, 'Error in Payroll Data Full Synch Extraction: '||SQLCODE);
1102: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1103: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
1104: end hr_payroll_full_sync;
1105: /*Procedure to extract the payroll group data for full synch process ends*/
1098: hr_full_sync_messages.update_psft_sync_run(3,'PYRL_FULL_SYNC',p_effective_date,errbuf,retcode);
1099: errbuf := errbuf||SQLERRM;
1100: retcode := '1';
1101: FND_FILE.put_line(fnd_file.log, 'Error in Payroll Data Full Synch Extraction: '||SQLCODE);
1102: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1103: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
1104: end hr_payroll_full_sync;
1105: /*Procedure to extract the payroll group data for full synch process ends*/
1106:
1099: errbuf := errbuf||SQLERRM;
1100: retcode := '1';
1101: FND_FILE.put_line(fnd_file.log, 'Error in Payroll Data Full Synch Extraction: '||SQLCODE);
1102: FND_FILE.NEW_LINE(FND_FILE.log, 1);
1103: FND_FILE.put_line(fnd_file.log, 'Error Msg: '||substr(SQLERRM,1,700));
1104: end hr_payroll_full_sync;
1105: /*Procedure to extract the payroll group data for full synch process ends*/
1106:
1107: /*Common Procedure called from concurrent program begins*/