[Home] [Help]
454: END check_pending_batch;
455:
456: -- ---------------------------------------------------
457: -- This procedure insert passed in information into
458: -- fa_hr_retirement_headers table
459: -- and returns a batch_id
460: -- ----------------------------------------------------
461: PROCEDURE insert_hr_retirement_hdrs(
462: x_event_code IN VARCHAR2
533: fetch C1 into x_batch_id;
534: close C1;
535:
536: x_err_stage:= 'Inserting retirement_headers';
537: Insert into fa_hr_retirement_headers(
538: event_code
539: , book_type_code
540: , status_code
541: , asset_hierarchy_id
1362: v_ret_value NUMBER;
1363:
1364: CURSOR c_hrh IS
1365: select *
1366: from fa_hr_retirement_headers
1367: where batch_id >= nvl(x_from_batch_num, batch_id )
1368: AND batch_id <= nvl(x_to_batch_num, batch_id)
1369: AND status_code IN ('IP', 'P', 'RC')
1370: order by creation_date
1375: BEGIN
1376: v_conc_request_id := fnd_global.conc_request_id;
1377:
1378: for hrh_rec IN c_hrh LOOP
1379: update fa_hr_retirement_headers
1380: set status_code = 'IP'
1381: where batch_id = hrh_rec.batch_id;
1382:
1383: update fa_hr_retirement_details
1440: End ;
1441:
1442: if v_dummy = 'Y' then
1443: v_dummy:= 'N';
1444: update fa_hr_retirement_headers
1445: set status_code = 'R' -- Rejected Processed
1446: , concurrent_request_id = v_conc_request_ID
1447: , last_updated_by = fnd_global.login_id
1448: , last_update_date = sysdate
1453: set status_code = 'P'
1454: where status_code <> 'R'
1455: and batch_id = hrh_rec.batch_id;
1456: else
1457: update fa_hr_retirement_headers
1458: set status_code = 'CP' -- Completetly Processed
1459: , concurrent_request_id = v_conc_request_ID
1460: , last_updated_by = fnd_global.login_id
1461: , last_update_date = sysdate