993: x_err_stack := x_err_stack||'->'||'generate_retirement_batch';
994:
995: x_err_stage:= 'Initializing Parameters';
996: v_sysdate:= sysdate;
997: v_conc_request_id := fnd_global.conc_request_id;
998: v_created_by:= nvl(TO_NUMBER(fnd_profile.value('USER_ID')),-1);
999: v_last_updated_by:= v_created_by;
1000: v_last_update_login:= nvl(TO_NUMBER(fnd_profile.value('LOGIN_ID')),-1);
1001:
1378:
1379: BEGIN
1380: RETCODE:= '0';
1381: BEGIN
1382: v_conc_request_id := fnd_global.conc_request_id;
1383:
1384: for hrh_rec IN c_hrh LOOP
1385: update fa_hr_retirement_headers
1386: set status_code = 'IP'
1450: v_dummy:= 'N';
1451: update fa_hr_retirement_headers
1452: set status_code = 'R' -- Rejected Processed
1453: , concurrent_request_id = v_conc_request_ID
1454: , last_updated_by = fnd_global.login_id
1455: , last_update_date = sysdate
1456: , last_update_login = fnd_global.login_id
1457: where batch_id = hrh_rec.batch_id;
1458:
1452: set status_code = 'R' -- Rejected Processed
1453: , concurrent_request_id = v_conc_request_ID
1454: , last_updated_by = fnd_global.login_id
1455: , last_update_date = sysdate
1456: , last_update_login = fnd_global.login_id
1457: where batch_id = hrh_rec.batch_id;
1458:
1459: Update fa_hr_retirement_details
1460: set status_code = 'P'
1463: else
1464: update fa_hr_retirement_headers
1465: set status_code = 'CP' -- Completetly Processed
1466: , concurrent_request_id = v_conc_request_ID
1467: , last_updated_by = fnd_global.login_id
1468: , last_update_date = sysdate
1469: , last_update_login = fnd_global.login_id
1470: where batch_id = hrh_rec.batch_id;
1471: end if;
1465: set status_code = 'CP' -- Completetly Processed
1466: , concurrent_request_id = v_conc_request_ID
1467: , last_updated_by = fnd_global.login_id
1468: , last_update_date = sysdate
1469: , last_update_login = fnd_global.login_id
1470: where batch_id = hrh_rec.batch_id;
1471: end if;
1472:
1473: commit;