61: IF l_formula_id IS NULL
62: THEN
63: -- Raise error as the criteria is not generated
64: CLOSE csr_get_asg_set_info;
65: hr_utility.raise_error;
66: END IF; -- End if of formula id is null check ...
67: END IF; -- End if of asg criteria row found check ...
68: CLOSE csr_get_asg_set_info;
69: fnd_file.put_line(fnd_file.LOG,' before csr_get_asg_amd ');
380: l_include_flag VARCHAR2(10);
381: skip_assignment Exception;
382: l_flag VARCHAR2(2);
383: begin
384: hr_utility.set_location('Entering get_p60_details',10);
385: vCtr := 0;
386: vXMLTable(vCtr).xmlstring := '';
387: vXMLTable(vCtr).xmlstring := vXMLTable(vCtr).xmlstring || '
388: vCtr := vCtr +1;
509: PROCEDURE WritetoCLOB (p_xml out nocopy clob) IS
510: l_xfdf_string clob;
511: l_str1 varchar2(6000);
512: begin
513: hr_utility.set_location('Entered Procedure Write to clob ',100);
514: dbms_lob.createtemporary(p_xml,FALSE,DBMS_LOB.CALL);
515: dbms_lob.open(p_xml,dbms_lob.lob_readwrite);
516: if vXMLTable.count > 0 then
517: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST LOOP
521: END LOOP;
522: end if;
523: --DBMS_LOB.CREATETEMPORARY(p_xml,TRUE);
524: --clob_to_blob(l_xfdf_string,p_xml);
525: hr_utility.set_location('Finished Procedure Write to CLOB ,Before clob to blob ',110);
526: EXCEPTION
527: WHEN OTHERS then
528: HR_UTILITY.TRACE('sqleerm ' || SQLERRM);
529: HR_UTILITY.RAISE_ERROR;
524: --clob_to_blob(l_xfdf_string,p_xml);
525: hr_utility.set_location('Finished Procedure Write to CLOB ,Before clob to blob ',110);
526: EXCEPTION
527: WHEN OTHERS then
528: HR_UTILITY.TRACE('sqleerm ' || SQLERRM);
529: HR_UTILITY.RAISE_ERROR;
530: END WritetoCLOB;
531:
532: Procedure clob_to_blob(p_clob clob
525: hr_utility.set_location('Finished Procedure Write to CLOB ,Before clob to blob ',110);
526: EXCEPTION
527: WHEN OTHERS then
528: HR_UTILITY.TRACE('sqleerm ' || SQLERRM);
529: HR_UTILITY.RAISE_ERROR;
530: END WritetoCLOB;
531:
532: Procedure clob_to_blob(p_clob clob
533: ,p_blob IN OUT NOCOPY blob)
539: l_buffer_len number:= 32000;
540: l_chunk_len number;
541: l_blob blob;
542: begin
543: hr_utility.set_location('Entered Procedure clob to blob',120);
544: l_length_clob := dbms_lob.getlength(p_clob);
545: l_offset := 1;
546: while l_length_clob > 0 loop
547: hr_utility.trace('l_length_clob '|| l_length_clob);
543: hr_utility.set_location('Entered Procedure clob to blob',120);
544: l_length_clob := dbms_lob.getlength(p_clob);
545: l_offset := 1;
546: while l_length_clob > 0 loop
547: hr_utility.trace('l_length_clob '|| l_length_clob);
548: if l_length_clob < l_buffer_len then
549: l_chunk_len := l_length_clob;
550: else
551: l_chunk_len := l_buffer_len;
551: l_chunk_len := l_buffer_len;
552: end if;
553: DBMS_LOB.READ(p_clob,l_chunk_len,l_offset,l_varchar_buffer);
554: l_raw_buffer := utl_raw.cast_to_raw(l_varchar_buffer);
555: hr_utility.trace('l_varchar_buffer '|| l_varchar_buffer);
556: dbms_lob.writeappend(p_blob,l_chunk_len,l_raw_buffer);
557: l_offset := l_offset + l_chunk_len;
558: l_length_clob := l_length_clob - l_chunk_len;
559: hr_utility.trace('l_length_blob '|| dbms_lob.getlength(p_blob));
555: hr_utility.trace('l_varchar_buffer '|| l_varchar_buffer);
556: dbms_lob.writeappend(p_blob,l_chunk_len,l_raw_buffer);
557: l_offset := l_offset + l_chunk_len;
558: l_length_clob := l_length_clob - l_chunk_len;
559: hr_utility.trace('l_length_blob '|| dbms_lob.getlength(p_blob));
560: end loop;
561: hr_utility.set_location('Finished Procedure clob to blob ',130);
562: end clob_to_blob;
563:
557: l_offset := l_offset + l_chunk_len;
558: l_length_clob := l_length_clob - l_chunk_len;
559: hr_utility.trace('l_length_blob '|| dbms_lob.getlength(p_blob));
560: end loop;
561: hr_utility.set_location('Finished Procedure clob to blob ',130);
562: end clob_to_blob;
563:
564: Procedure fetch_rtf_blob (p_template_id number
565: ,p_rtf_blob OUT NOCOPY blob) IS