eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.AHL_PRD_PRINT_PVT dependencies on DBMS_LOB

Line 464: dbms_lob.createTemporary( l_merged_lob, true );

460: FND_MSG_PUB.initialize;
461: END IF;
462:
463: -- Open a temporary lob for merging the contents.
464: dbms_lob.createTemporary( l_merged_lob, true );
465: dbms_lob.open( l_merged_lob, dbms_lob.lob_readwrite );
466:
467: --determine the user role based on employee parameter if it is not passed already in the input. Concurrent program is an example
468: l_user_role := p_user_role;

Line 465: dbms_lob.open( l_merged_lob, dbms_lob.lob_readwrite );

461: END IF;
462:
463: -- Open a temporary lob for merging the contents.
464: dbms_lob.createTemporary( l_merged_lob, true );
465: dbms_lob.open( l_merged_lob, dbms_lob.lob_readwrite );
466:
467: --determine the user role based on employee parameter if it is not passed already in the input. Concurrent program is an example
468: l_user_role := p_user_role;
469:

Line 476: dbms_lob.write(l_merged_lob,length(''),1,'');

472: l_user_role := AHL_PRD_WO_LOGIN_PVT.Get_User_Role;
473: END IF;
474:
475: -- XML generated with dbms_xmlgen doesnt have encoding information. so we need to manually insert into the resultant CLOB.
476: dbms_lob.write(l_merged_lob,length(''),1,'');
477:
478: --Put the root node to maintain the XML completeness.
479: dbms_lob.write(l_merged_lob, length(''),length(l_merged_lob)+1, '');
480:

Line 479: dbms_lob.write(l_merged_lob, length(''),length(l_merged_lob)+1, '');

475: -- XML generated with dbms_xmlgen doesnt have encoding information. so we need to manually insert into the resultant CLOB.
476: dbms_lob.write(l_merged_lob,length(''),1,'');
477:
478: --Put the root node to maintain the XML completeness.
479: dbms_lob.write(l_merged_lob, length(''),length(l_merged_lob)+1, '');
480:
481: /***************************************************************************************
482: *Start Actual API processing here
483: ***************************************************************************************/

Line 526: dbms_lob.write(l_merged_lob, length(''),length(l_merged_lob)+1, '');

522: );
523: END IF;
524:
525: --copy the workcard start tag
526: dbms_lob.write(l_merged_lob, length(''),length(l_merged_lob)+1, '');
527:
528: /********************************************************************
529: * Create XML data related to employee
530: ********************************************************************/

Line 535: dbms_lob.write(

531: -- add employee details to the XML output
532: IF l_emp_tbl(l_count).employee_name IS NOT NULL
533: THEN
534:
535: dbms_lob.write(
536: l_merged_lob,
537: length(''||l_emp_tbl(l_count).employee_name),
538: length(l_merged_lob)+1, ''||dbms_xmlgen.convert(l_emp_tbl(l_count).employee_name)
539: );

Line 541: dbms_lob.write(

537: length(''||l_emp_tbl(l_count).employee_name),
538: length(l_merged_lob)+1, ''||dbms_xmlgen.convert(l_emp_tbl(l_count).employee_name)
539: );
540:
541: dbms_lob.write(
542: l_merged_lob,
543: length(''),
544: length(l_merged_lob)+1,
545: ''

Line 607: IF dbms_lob.getlength(l_wo_details_lob) > 0

603: -- free the temp variable for query after every iteration.
604: l_wo_con_query := null;
605:
606: -- Write to lob only when some data exists.
607: IF dbms_lob.getlength(l_wo_details_lob) > 0
608: THEN
609: -- The generated XML itself puts the XML instruction tag which is already there
610: -- in final CLOB. so copy only rest of the details to the final output.
611: l_offset := dbms_lob.INSTR(l_wo_details_lob, '>');

Line 611: l_offset := dbms_lob.INSTR(l_wo_details_lob, '>');

607: IF dbms_lob.getlength(l_wo_details_lob) > 0
608: THEN
609: -- The generated XML itself puts the XML instruction tag which is already there
610: -- in final CLOB. so copy only rest of the details to the final output.
611: l_offset := dbms_lob.INSTR(l_wo_details_lob, '>');
612:
613: -- copy workorder details into final lob
614: dbms_lob.copy(l_merged_lob, l_wo_details_lob, dbms_lob.getlength(l_wo_details_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);
615: END IF;

Line 614: dbms_lob.copy(l_merged_lob, l_wo_details_lob, dbms_lob.getlength(l_wo_details_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);

610: -- in final CLOB. so copy only rest of the details to the final output.
611: l_offset := dbms_lob.INSTR(l_wo_details_lob, '>');
612:
613: -- copy workorder details into final lob
614: dbms_lob.copy(l_merged_lob, l_wo_details_lob, dbms_lob.getlength(l_wo_details_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);
615: END IF;
616:
617: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
618: fnd_log.string

Line 653: IF dbms_lob.getlength(l_wo_qa_lob) > 0

649: l_wo_qa_lob := dbms_xmlgen.getXML(context,DBMS_XMLGEN.NONE);
650: dbms_xmlgen.closeContext(context);
651:
652: -- Write to lob only when some data exists.
653: IF dbms_lob.getlength(l_wo_qa_lob) > 0
654: THEN
655: -- The generated XML itself puts the XML instruction tag which is already there
656: -- in final CLOB. so copy only rest of the details to the final output.
657: l_offset := dbms_lob.INSTR(l_wo_qa_lob, '>');

Line 657: l_offset := dbms_lob.INSTR(l_wo_qa_lob, '>');

653: IF dbms_lob.getlength(l_wo_qa_lob) > 0
654: THEN
655: -- The generated XML itself puts the XML instruction tag which is already there
656: -- in final CLOB. so copy only rest of the details to the final output.
657: l_offset := dbms_lob.INSTR(l_wo_qa_lob, '>');
658:
659: -- copy workorder details into final lob
660: dbms_lob.copy(l_merged_lob, l_wo_qa_lob, dbms_lob.getlength(l_wo_qa_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);
661: END IF;

Line 660: dbms_lob.copy(l_merged_lob, l_wo_qa_lob, dbms_lob.getlength(l_wo_qa_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);

656: -- in final CLOB. so copy only rest of the details to the final output.
657: l_offset := dbms_lob.INSTR(l_wo_qa_lob, '>');
658:
659: -- copy workorder details into final lob
660: dbms_lob.copy(l_merged_lob, l_wo_qa_lob, dbms_lob.getlength(l_wo_qa_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);
661: END IF;
662: END IF;
663:
664: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN

Line 687: dbms_lob.write(

683: OPEN get_op_qa_ids_csr(p_workorders_tbl(wo_count));
684: FETCH get_op_qa_ids_csr INTO l_plan_id, l_collection_id;
685: CLOSE get_op_qa_ids_csr;
686: */
687: dbms_lob.write(
688: l_merged_lob,
689: length(''),
690: length(l_merged_lob)+1,
691: ''

Line 704: dbms_lob.write(

700:
701: IF l_plan_id IS NOT NULL AND l_collection_id IS NOT NULL
702: THEN
703:
704: dbms_lob.write(
705: l_merged_lob,
706: length(''||l_op_seq_num||''),
707: length(l_merged_lob)+1,
708: ''||l_op_seq_num||''

Line 726: IF dbms_lob.getlength(l_op_qa_lob) > 0

722: l_op_qa_lob := dbms_xmlgen.getXML(context,DBMS_XMLGEN.NONE);
723: dbms_xmlgen.closeContext(context);
724:
725: -- Write to lob only when some data exists.
726: IF dbms_lob.getlength(l_op_qa_lob) > 0
727: THEN
728: -- The generated XML itself puts the XML instruction tag which is already there
729: -- in final CLOB. so copy only rest of the details to the final output.
730: l_offset := dbms_lob.INSTR(l_op_qa_lob, '>');

Line 730: l_offset := dbms_lob.INSTR(l_op_qa_lob, '>');

726: IF dbms_lob.getlength(l_op_qa_lob) > 0
727: THEN
728: -- The generated XML itself puts the XML instruction tag which is already there
729: -- in final CLOB. so copy only rest of the details to the final output.
730: l_offset := dbms_lob.INSTR(l_op_qa_lob, '>');
731:
732: -- copy workorder details into final lob
733: dbms_lob.copy(l_merged_lob, l_op_qa_lob, dbms_lob.getlength(l_op_qa_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);
734: END IF;

Line 733: dbms_lob.copy(l_merged_lob, l_op_qa_lob, dbms_lob.getlength(l_op_qa_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);

729: -- in final CLOB. so copy only rest of the details to the final output.
730: l_offset := dbms_lob.INSTR(l_op_qa_lob, '>');
731:
732: -- copy workorder details into final lob
733: dbms_lob.copy(l_merged_lob, l_op_qa_lob, dbms_lob.getlength(l_op_qa_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);
734: END IF;
735:
736: dbms_lob.write(
737: l_merged_lob,

Line 736: dbms_lob.write(

732: -- copy workorder details into final lob
733: dbms_lob.copy(l_merged_lob, l_op_qa_lob, dbms_lob.getlength(l_op_qa_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);
734: END IF;
735:
736: dbms_lob.write(
737: l_merged_lob,
738: length(''),
739: length(l_merged_lob)+1,
740: ''

Line 747: dbms_lob.write(

743: END IF;
744: END LOOP;
745: -- Bug # 6777371 -- end
746:
747: dbms_lob.write(
748: l_merged_lob,
749: length(''),
750: length(l_merged_lob)+1,
751: ''

Line 775: IF dbms_lob.getlength(l_ton_lob) > 0

771: l_ton_lob := dbms_xmlgen.getXML(context,DBMS_XMLGEN.NONE);
772: dbms_xmlgen.closeContext(context);
773:
774: -- Write to lob only when some data exists.
775: IF dbms_lob.getlength(l_ton_lob) > 0
776: THEN
777: -- The generated XML itself puts the XML instruction tag which is already there
778: -- in final CLOB. so copy only rest of the details to the final output.
779: l_offset := dbms_lob.INSTR(l_ton_lob, '>');

Line 779: l_offset := dbms_lob.INSTR(l_ton_lob, '>');

775: IF dbms_lob.getlength(l_ton_lob) > 0
776: THEN
777: -- The generated XML itself puts the XML instruction tag which is already there
778: -- in final CLOB. so copy only rest of the details to the final output.
779: l_offset := dbms_lob.INSTR(l_ton_lob, '>');
780:
781: -- copy workorder details into final lob
782: dbms_lob.copy(l_merged_lob, l_ton_lob, dbms_lob.getlength(l_ton_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);
783: END IF;

Line 782: dbms_lob.copy(l_merged_lob, l_ton_lob, dbms_lob.getlength(l_ton_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);

778: -- in final CLOB. so copy only rest of the details to the final output.
779: l_offset := dbms_lob.INSTR(l_ton_lob, '>');
780:
781: -- copy workorder details into final lob
782: dbms_lob.copy(l_merged_lob, l_ton_lob, dbms_lob.getlength(l_ton_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);
783: END IF;
784:
785: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
786: fnd_log.string

Line 842: IF dbms_lob.getlength(l_op_lob) > 0

838: -- Free temp variable once the query is executed for next iteration.
839: l_op_con_query := null;
840:
841: -- Write to lob only when some data exists.
842: IF dbms_lob.getlength(l_op_lob) > 0
843: THEN
844: -- The generated XML itself puts the XML instruction tag which is already there
845: -- in final CLOB. so copy only rest of the details to the final output.
846: l_offset := dbms_lob.INSTR(l_op_lob, '>');

Line 846: l_offset := dbms_lob.INSTR(l_op_lob, '>');

842: IF dbms_lob.getlength(l_op_lob) > 0
843: THEN
844: -- The generated XML itself puts the XML instruction tag which is already there
845: -- in final CLOB. so copy only rest of the details to the final output.
846: l_offset := dbms_lob.INSTR(l_op_lob, '>');
847:
848: -- copy workorder details into final lob
849: dbms_lob.copy(l_merged_lob, l_op_lob, dbms_lob.getlength(l_op_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);
850: /********************************************************************

Line 849: dbms_lob.copy(l_merged_lob, l_op_lob, dbms_lob.getlength(l_op_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);

845: -- in final CLOB. so copy only rest of the details to the final output.
846: l_offset := dbms_lob.INSTR(l_op_lob, '>');
847:
848: -- copy workorder details into final lob
849: dbms_lob.copy(l_merged_lob, l_op_lob, dbms_lob.getlength(l_op_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);
850: /********************************************************************
851: * Create XML data for resource transactions
852: ********************************************************************/
853: --Invoke AHL_PRD_RESOURCE_TRANX_PVT.Get_Resource_Txn_Defaults to get

Line 877: l_offset := dbms_lob.INSTR(l_merged_lob, '', length(l_merged_lob)-12, 1);

873: IF l_x_res_txn_tbl.COUNT > 0
874: THEN
875: -- The end tag of operation has to come after its resource transaction records.
876: --hence overwrite the end tag
877: l_offset := dbms_lob.INSTR(l_merged_lob, '', length(l_merged_lob)-12, 1);
878:
879: --Insert the start tag for current resource transaction.
880: dbms_lob.write(l_merged_lob, length(''),l_offset, '');
881:

Line 880: dbms_lob.write(l_merged_lob, length(''),l_offset, '');

876: --hence overwrite the end tag
877: l_offset := dbms_lob.INSTR(l_merged_lob, '', length(l_merged_lob)-12, 1);
878:
879: --Insert the start tag for current resource transaction.
880: dbms_lob.write(l_merged_lob, length(''),l_offset, '');
881:
882: FOR j IN l_x_res_txn_tbl.FIRST .. l_x_res_txn_tbl.LAST LOOP
883:
884: l_dummy_string := ''||''||l_x_res_txn_tbl(j).operation_sequence_num||'';

Line 889: dbms_lob.write(l_merged_lob, length(l_dummy_string),length(l_merged_lob)+1, l_dummy_string);

885: l_dummy_string := l_dummy_string ||''||l_x_res_txn_tbl(j).resource_sequence_num||'';
886: l_dummy_string := l_dummy_string || ''||dbms_xmlgen.convert(l_x_res_txn_tbl(j).resource_type_name)||'';
887: l_dummy_string := l_dummy_string || ''||dbms_xmlgen.convert(l_x_res_txn_tbl(j).resource_name)||'';
888: l_dummy_string := l_dummy_string || ''||dbms_xmlgen.convert(l_x_res_txn_tbl(j).employee_name)||''||'';
889: dbms_lob.write(l_merged_lob, length(l_dummy_string),length(l_merged_lob)+1, l_dummy_string);
890: END LOOP;
891:
892: --Insert the end tag for current resource transaction.
893: dbms_lob.write(l_merged_lob, length(''),length(l_merged_lob)+1, '');

Line 893: dbms_lob.write(l_merged_lob, length(''),length(l_merged_lob)+1, '');

889: dbms_lob.write(l_merged_lob, length(l_dummy_string),length(l_merged_lob)+1, l_dummy_string);
890: END LOOP;
891:
892: --Insert the end tag for current resource transaction.
893: dbms_lob.write(l_merged_lob, length(''),length(l_merged_lob)+1, '');
894: dbms_lob.write(l_merged_lob, length(''),length(l_merged_lob)+1, '');
895: END IF;
896: END IF;
897: END LOOP;

Line 894: dbms_lob.write(l_merged_lob, length(''),length(l_merged_lob)+1, '');

890: END LOOP;
891:
892: --Insert the end tag for current resource transaction.
893: dbms_lob.write(l_merged_lob, length(''),length(l_merged_lob)+1, '');
894: dbms_lob.write(l_merged_lob, length(''),length(l_merged_lob)+1, '');
895: END IF;
896: END IF;
897: END LOOP;
898:

Line 922: IF dbms_lob.getlength(l_wo_mat_lob) > 0

918: l_wo_mat_lob := dbms_xmlgen.getXML(context,DBMS_XMLGEN.NONE);
919: dbms_xmlgen.closeContext(context);
920:
921: -- Write to lob only when some data exists.
922: IF dbms_lob.getlength(l_wo_mat_lob) > 0
923: THEN
924: -- The generated XML itself puts the XML instruction tag which is already there
925: -- in final CLOB. so copy only rest of the details to the final output.
926: l_offset := dbms_lob.INSTR(l_wo_mat_lob, '>');

Line 926: l_offset := dbms_lob.INSTR(l_wo_mat_lob, '>');

922: IF dbms_lob.getlength(l_wo_mat_lob) > 0
923: THEN
924: -- The generated XML itself puts the XML instruction tag which is already there
925: -- in final CLOB. so copy only rest of the details to the final output.
926: l_offset := dbms_lob.INSTR(l_wo_mat_lob, '>');
927:
928: -- copy workorder details into final lob
929: dbms_lob.copy(l_merged_lob, l_wo_mat_lob, dbms_lob.getlength(l_wo_mat_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);
930:

Line 929: dbms_lob.copy(l_merged_lob, l_wo_mat_lob, dbms_lob.getlength(l_wo_mat_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);

925: -- in final CLOB. so copy only rest of the details to the final output.
926: l_offset := dbms_lob.INSTR(l_wo_mat_lob, '>');
927:
928: -- copy workorder details into final lob
929: dbms_lob.copy(l_merged_lob, l_wo_mat_lob, dbms_lob.getlength(l_wo_mat_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);
930:
931: END IF;
932:
933: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN

Line 961: IF dbms_lob.getlength(l_wo_doc_lob) > 0

957: l_wo_doc_lob := dbms_xmlgen.getXML(context,DBMS_XMLGEN.NONE);
958: dbms_xmlgen.closeContext(context);
959:
960: -- Write to lob only when some data exists.
961: IF dbms_lob.getlength(l_wo_doc_lob) > 0
962: THEN
963: -- The generated XML itself puts the XML instruction tag which is already there
964: -- in final CLOB. so copy only rest of the details to the final output.
965: l_offset := dbms_lob.INSTR(l_wo_doc_lob, '>');

Line 965: l_offset := dbms_lob.INSTR(l_wo_doc_lob, '>');

961: IF dbms_lob.getlength(l_wo_doc_lob) > 0
962: THEN
963: -- The generated XML itself puts the XML instruction tag which is already there
964: -- in final CLOB. so copy only rest of the details to the final output.
965: l_offset := dbms_lob.INSTR(l_wo_doc_lob, '>');
966:
967: -- copy workorder details into final lob
968: dbms_lob.copy(l_merged_lob, l_wo_doc_lob, dbms_lob.getlength(l_wo_doc_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);
969:

Line 968: dbms_lob.copy(l_merged_lob, l_wo_doc_lob, dbms_lob.getlength(l_wo_doc_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);

964: -- in final CLOB. so copy only rest of the details to the final output.
965: l_offset := dbms_lob.INSTR(l_wo_doc_lob, '>');
966:
967: -- copy workorder details into final lob
968: dbms_lob.copy(l_merged_lob, l_wo_doc_lob, dbms_lob.getlength(l_wo_doc_lob), dbms_lob.getlength(l_merged_lob)+1, l_offset+ 1);
969:
970: END IF;
971:
972: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN

Line 982: dbms_lob.write(l_merged_lob, length(''),length(l_merged_lob)+1, '');

978: );
979: END IF;
980:
981: --copy the workcard end tag
982: dbms_lob.write(l_merged_lob, length(''),length(l_merged_lob)+1, '');
983: END LOOP;
984:
985: END IF;
986:

Line 994: dbms_lob.write(l_merged_lob, length(''),length(l_merged_lob)+1, '');

990: *End Actual API processing here
991: ***************************************************************************************/
992:
993: -- Insert ending root node to maintain the XML completeness.
994: dbms_lob.write(l_merged_lob, length(''),length(l_merged_lob)+1, '');
995:
996: x_xml_data := l_merged_lob;
997:
998: --Close and release the temporary lobs

Line 999: dbms_lob.close( l_merged_lob );

995:
996: x_xml_data := l_merged_lob;
997:
998: --Close and release the temporary lobs
999: dbms_lob.close( l_merged_lob );
1000: --dbms_lob.close(l_wo_details_lob);
1001: dbms_lob.freeTemporary( l_merged_lob );
1002:
1003: /*

Line 1000: --dbms_lob.close(l_wo_details_lob);

996: x_xml_data := l_merged_lob;
997:
998: --Close and release the temporary lobs
999: dbms_lob.close( l_merged_lob );
1000: --dbms_lob.close(l_wo_details_lob);
1001: dbms_lob.freeTemporary( l_merged_lob );
1002:
1003: /*
1004: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN

Line 1001: dbms_lob.freeTemporary( l_merged_lob );

997:
998: --Close and release the temporary lobs
999: dbms_lob.close( l_merged_lob );
1000: --dbms_lob.close(l_wo_details_lob);
1001: dbms_lob.freeTemporary( l_merged_lob );
1002:
1003: /*
1004: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1005: l_fnd_offset := 1;

Line 1042: 'xml data ->'||dbms_lob.substr(x_xml_data, dbms_lob.getlength(x_xml_data), 1)

1038: fnd_log.string
1039: (
1040: fnd_log.level_statement,
1041: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name ,
1042: 'xml data ->'||dbms_lob.substr(x_xml_data, dbms_lob.getlength(x_xml_data), 1)
1043: );
1044: END IF;
1045:
1046: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)

Line 1347: l_clob_size := dbms_lob.getlength(l_clob);

1343: );
1344:
1345: l_offset := 1;
1346: l_chunk_size := 3000;
1347: l_clob_size := dbms_lob.getlength(l_clob);
1348:
1349: WHILE (l_clob_size > 0) LOOP
1350: fnd_file.put(fnd_file.log, dbms_lob.substr (l_clob, l_chunk_size, l_offset));
1351: l_clob_size := l_clob_size - l_chunk_size;

Line 1350: fnd_file.put(fnd_file.log, dbms_lob.substr (l_clob, l_chunk_size, l_offset));

1346: l_chunk_size := 3000;
1347: l_clob_size := dbms_lob.getlength(l_clob);
1348:
1349: WHILE (l_clob_size > 0) LOOP
1350: fnd_file.put(fnd_file.log, dbms_lob.substr (l_clob, l_chunk_size, l_offset));
1351: l_clob_size := l_clob_size - l_chunk_size;
1352: l_offset := l_offset + l_chunk_size;
1353: END LOOP;
1354:

Line 1363: --fnd_file.put_line(fnd_file.output, dbms_lob.substr(l_clob, dbms_lob.getlength(l_clob), 1));

1359: ELSIF (l_msg_count > 0 AND l_return_status = FND_API.G_RET_STS_SUCCESS)
1360: THEN
1361: retcode := 1; -- warning based on return status + msg count
1362: ELSE
1363: --fnd_file.put_line(fnd_file.output, dbms_lob.substr(l_clob, dbms_lob.getlength(l_clob), 1));
1364:
1365: l_offset := 1;
1366: l_chunk_size := 3000;
1367: l_clob_size := dbms_lob.getlength(l_clob);

Line 1367: l_clob_size := dbms_lob.getlength(l_clob);

1363: --fnd_file.put_line(fnd_file.output, dbms_lob.substr(l_clob, dbms_lob.getlength(l_clob), 1));
1364:
1365: l_offset := 1;
1366: l_chunk_size := 3000;
1367: l_clob_size := dbms_lob.getlength(l_clob);
1368:
1369: WHILE (l_clob_size > 0) LOOP
1370: fnd_file.put(fnd_file.output, dbms_lob.substr (l_clob, l_chunk_size, l_offset));
1371: l_clob_size := l_clob_size - l_chunk_size;

Line 1370: fnd_file.put(fnd_file.output, dbms_lob.substr (l_clob, l_chunk_size, l_offset));

1366: l_chunk_size := 3000;
1367: l_clob_size := dbms_lob.getlength(l_clob);
1368:
1369: WHILE (l_clob_size > 0) LOOP
1370: fnd_file.put(fnd_file.output, dbms_lob.substr (l_clob, l_chunk_size, l_offset));
1371: l_clob_size := l_clob_size - l_chunk_size;
1372: l_offset := l_offset + l_chunk_size;
1373: END LOOP;
1374: