347: dbms_lob.writeAppend( l_xfdf_string, length(l_str_pd_l),l_str_pd_l);
348:
349:
350:
351: hr_utility.set_location('Entering CHQR ',10);
352:
353: i := 0;
354:
355: If p_sort = 'ORG' then
476: End If;
477:
478: dbms_lob.writeAppend( l_xfdf_string, length(''),'');
479:
480: hr_utility.set_location('Finished creating xml data for Procedure CHQR ',20);
481:
482: DBMS_LOB.CREATETEMPORARY(l_xfdf_blob,TRUE);
483: clob_to_blob(l_xfdf_string,l_xfdf_blob);
484:
484:
485:
486: /*EXCEPTION
487: WHEN utl_file.invalid_path then
488: hr_utility.set_message(8301, 'GHR_38830_INVALID_UTL_FILE_PATH');
489: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
490: hr_utility.raise_error;
491: --
492: WHEN utl_file.invalid_mode then
485:
486: /*EXCEPTION
487: WHEN utl_file.invalid_path then
488: hr_utility.set_message(8301, 'GHR_38830_INVALID_UTL_FILE_PATH');
489: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
490: hr_utility.raise_error;
491: --
492: WHEN utl_file.invalid_mode then
493: hr_utility.set_message(8301, 'GHR_38831_INVALID_FILE_MODE');
486: /*EXCEPTION
487: WHEN utl_file.invalid_path then
488: hr_utility.set_message(8301, 'GHR_38830_INVALID_UTL_FILE_PATH');
489: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
490: hr_utility.raise_error;
491: --
492: WHEN utl_file.invalid_mode then
493: hr_utility.set_message(8301, 'GHR_38831_INVALID_FILE_MODE');
494: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
489: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
490: hr_utility.raise_error;
491: --
492: WHEN utl_file.invalid_mode then
493: hr_utility.set_message(8301, 'GHR_38831_INVALID_FILE_MODE');
494: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
495: hr_utility.raise_error;
496: --
497: WHEN utl_file.invalid_filehandle then
490: hr_utility.raise_error;
491: --
492: WHEN utl_file.invalid_mode then
493: hr_utility.set_message(8301, 'GHR_38831_INVALID_FILE_MODE');
494: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
495: hr_utility.raise_error;
496: --
497: WHEN utl_file.invalid_filehandle then
498: hr_utility.set_message(8301, 'GHR_38832_INVALID_FILE_HANDLE');
491: --
492: WHEN utl_file.invalid_mode then
493: hr_utility.set_message(8301, 'GHR_38831_INVALID_FILE_MODE');
494: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
495: hr_utility.raise_error;
496: --
497: WHEN utl_file.invalid_filehandle then
498: hr_utility.set_message(8301, 'GHR_38832_INVALID_FILE_HANDLE');
499: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
494: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
495: hr_utility.raise_error;
496: --
497: WHEN utl_file.invalid_filehandle then
498: hr_utility.set_message(8301, 'GHR_38832_INVALID_FILE_HANDLE');
499: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
500: hr_utility.raise_error;
501: --
502: WHEN utl_file.invalid_operation then
495: hr_utility.raise_error;
496: --
497: WHEN utl_file.invalid_filehandle then
498: hr_utility.set_message(8301, 'GHR_38832_INVALID_FILE_HANDLE');
499: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
500: hr_utility.raise_error;
501: --
502: WHEN utl_file.invalid_operation then
503: hr_utility.set_message(8301, 'GHR_38833_INVALID_OPER');
496: --
497: WHEN utl_file.invalid_filehandle then
498: hr_utility.set_message(8301, 'GHR_38832_INVALID_FILE_HANDLE');
499: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
500: hr_utility.raise_error;
501: --
502: WHEN utl_file.invalid_operation then
503: hr_utility.set_message(8301, 'GHR_38833_INVALID_OPER');
504: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
499: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
500: hr_utility.raise_error;
501: --
502: WHEN utl_file.invalid_operation then
503: hr_utility.set_message(8301, 'GHR_38833_INVALID_OPER');
504: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
505: hr_utility.raise_error;
506: --
507: WHEN utl_file.read_error then
500: hr_utility.raise_error;
501: --
502: WHEN utl_file.invalid_operation then
503: hr_utility.set_message(8301, 'GHR_38833_INVALID_OPER');
504: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
505: hr_utility.raise_error;
506: --
507: WHEN utl_file.read_error then
508: hr_utility.set_message(8301, 'GHR_38834_FILE_READ_ERROR');
501: --
502: WHEN utl_file.invalid_operation then
503: hr_utility.set_message(8301, 'GHR_38833_INVALID_OPER');
504: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
505: hr_utility.raise_error;
506: --
507: WHEN utl_file.read_error then
508: hr_utility.set_message(8301, 'GHR_38834_FILE_READ_ERROR');
509: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
504: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
505: hr_utility.raise_error;
506: --
507: WHEN utl_file.read_error then
508: hr_utility.set_message(8301, 'GHR_38834_FILE_READ_ERROR');
509: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
510: hr_utility.raise_error;
511: --
512: WHEN others THEN
505: hr_utility.raise_error;
506: --
507: WHEN utl_file.read_error then
508: hr_utility.set_message(8301, 'GHR_38834_FILE_READ_ERROR');
509: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
510: hr_utility.raise_error;
511: --
512: WHEN others THEN
513: hr_utility.set_message(800,'FFU10_GENERAL_ORACLE_ERROR');
506: --
507: WHEN utl_file.read_error then
508: hr_utility.set_message(8301, 'GHR_38834_FILE_READ_ERROR');
509: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
510: hr_utility.raise_error;
511: --
512: WHEN others THEN
513: hr_utility.set_message(800,'FFU10_GENERAL_ORACLE_ERROR');
514: hr_utility.set_message_token('2',substr(sqlerrm,1,200));
509: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
510: hr_utility.raise_error;
511: --
512: WHEN others THEN
513: hr_utility.set_message(800,'FFU10_GENERAL_ORACLE_ERROR');
514: hr_utility.set_message_token('2',substr(sqlerrm,1,200));
515: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
516: hr_utility.raise_error;*/
517: END CHEQUE_LISTING;
510: hr_utility.raise_error;
511: --
512: WHEN others THEN
513: hr_utility.set_message(800,'FFU10_GENERAL_ORACLE_ERROR');
514: hr_utility.set_message_token('2',substr(sqlerrm,1,200));
515: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
516: hr_utility.raise_error;*/
517: END CHEQUE_LISTING;
518: -------------------------------------------------------------------------------------------
511: --
512: WHEN others THEN
513: hr_utility.set_message(800,'FFU10_GENERAL_ORACLE_ERROR');
514: hr_utility.set_message_token('2',substr(sqlerrm,1,200));
515: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
516: hr_utility.raise_error;*/
517: END CHEQUE_LISTING;
518: -------------------------------------------------------------------------------------------
519:
512: WHEN others THEN
513: hr_utility.set_message(800,'FFU10_GENERAL_ORACLE_ERROR');
514: hr_utility.set_message_token('2',substr(sqlerrm,1,200));
515: fnd_file.put_line(fnd_file.log,HR_UTILITY.get_message);
516: hr_utility.raise_error;*/
517: END CHEQUE_LISTING;
518: -------------------------------------------------------------------------------------------
519:
520: PROCEDURE WritetoCLOB
530: l_str7 varchar2(1000);
531: l_str8 varchar2(240);
532: l_str9 varchar2(240);
533: BEGIN
534: hr_utility.set_location('Entered Procedure Write to clob ',100);
535: l_str1 := '
536:
537:
538: l_str2 := '