[Home] [Help]
737: p_type in varchar2,
738: p_id in number,
739: p_processing in boolean default false
740: ) return varchar2 is
741: l_exception_text hr_pump_batch_exceptions.exception_text%type;
742: l_encoded varchar2(2000); -- hold AOL encoded text.
743: begin
744:
745: -- Need to get text from appropriate place.
778: when others then
779: clear_debug;
780: end;
781:
782: insert into hr_pump_batch_exceptions (
783: exception_sequence,
784: exception_level,
785: source_id,
786: source_type,
785: source_id,
786: source_type,
787: format,
788: exception_text)
789: values (hr_pump_batch_exceptions_s.nextval,
790: p_level,
791: p_id,
792: p_type,
793: 'TRANSLATED',
1328:
1329: /*
1330: * Updates results for a range. Used at after the API have been executed
1331: * to:
1332: * DELETE existing rows from HR_PUMP_BATCH_EXCEPTIONS.
1333: * UPDATE HR_PUMP_BATCH_LINES LINE_STATUS.
1334: * INSERT rows into HR_PUMP_BATCH_EXCEPTIONS.
1335: */
1336: procedure update_range_results
1330: * Updates results for a range. Used at after the API have been executed
1331: * to:
1332: * DELETE existing rows from HR_PUMP_BATCH_EXCEPTIONS.
1333: * UPDATE HR_PUMP_BATCH_LINES LINE_STATUS.
1334: * INSERT rows into HR_PUMP_BATCH_EXCEPTIONS.
1335: */
1336: procedure update_range_results
1337: (p_failed_lines in dbms_sql.number_table
1338: ,p_exc_ids in dbms_sql.number_table
1345: nrows binary_integer;
1346: begin
1347: hr_data_pump.entry('update_range_results');
1348:
1349: -- Delete the existing HR_PUMP_BATCH_EXCEPTIONS rows.
1350: lbound := 1;
1351: nrows := 250;
1352: while lbound <= p_failed_lines.count loop
1353: ubound := lbound + nrows - 1;
1355: ubound := p_failed_lines.count;
1356: end if;
1357:
1358: FORALL i IN lbound .. ubound
1359: delete from hr_pump_batch_exceptions e
1360: where e.source_id = p_failed_lines(i)
1361: and e.source_type = 'BATCH_LINE'
1362: ;
1363:
1390: ubound := p_exc_ids.count;
1391: end if;
1392:
1393: FORALL i IN lbound .. ubound
1394: insert into hr_pump_batch_exceptions
1395: (exception_sequence
1396: ,exception_level
1397: ,source_id
1398: ,source_type
1399: ,format
1400: ,exception_text
1401: )
1402: values
1403: (hr_pump_batch_exceptions_s.nextval
1404: ,'F'
1405: ,p_exc_ids(i)
1406: ,'BATCH_LINE'
1407: ,'TRANSLATED'
1458: l_ret := hr_multi_message.unexpected_error_add(l_procedure);
1459: end if;
1460:
1461: --
1462: -- Update hr_pump_batch_exceptions error text list.
1463: --
1464: i := p_exc_ids.count + 1;
1465: for j in 1 .. fnd_msg_pub.count_msg loop
1466: --
1541: --
1542: l_failed_lines dbms_sql.number_table;
1543:
1544: --
1545: -- Exceptions list. This is used to update HR_PUMP_BATCH_EXCEPTIONS.
1546: --
1547: l_exc_ids dbms_sql.number_table;
1548: l_exc_text dbms_sql.varchar2_table;
1549:
2277: ins_pump_request(p_batch_id, 'MASTER');
2278:
2279: -- Remove any messages that are might exist for
2280: -- the batch header.
2281: delete from hr_pump_batch_exceptions e
2282: where e.source_id = p_batch_id
2283: and e.source_type = 'BATCH_HEADER';
2284:
2285: -- We delete any existing range rows for this batch_id each time
2573:
2574: ----------------------------------------------------
2575: -- 3. Delete the batch exceptions for this batch. --
2576: ----------------------------------------------------
2577: hr_data_pump.message('HR_PUMP_BATCH_EXCEPTIONS');
2578:
2579: l_work_to_do := true;
2580: while l_work_to_do loop
2581: delete
2578:
2579: l_work_to_do := true;
2580: while l_work_to_do loop
2581: delete
2582: from hr_pump_batch_exceptions e
2583: where (
2584: (
2585: e.source_id = p_batch_id and
2586: e.source_type = 'BATCH_HEADER'