APPS.PO_EMAIL_GENERATE dependencies on UTL_FILE

Line 4572: v_filehandle UTL_FILE.FILE_TYPE;

4568: display_type in varchar2,
4569: document in out NOCOPY clob,
4570: document_type in out NOCOPY varchar2) IS
4571:
4572: v_filehandle UTL_FILE.FILE_TYPE;
4573: l_filedir varchar2(2000) := null;
4574: l_filename varchar2(2000) := null;
4575: v_terms varchar2(4000) := null;
4576: NL VARCHAR2(1) := fnd_global.newline;

Line 4742: v_filehandle := UTL_FILE.FOPEN(l_filedir,l_filename_lang,'r');

4738: */
4739: l_filename_lang := l_filename || '_' || userenv('LANG');
4740: BEGIN
4741: /* open the file */
4742: v_filehandle := UTL_FILE.FOPEN(l_filedir,l_filename_lang,'r');
4743: EXCEPTION WHEN OTHERS THEN
4744: BEGIN
4745: l_filename_lang := l_filename || '_' || fnd_global.base_language;
4746: v_filehandle := UTL_FILE.FOPEN(l_filedir,l_filename_lang, 'r');

Line 4746: v_filehandle := UTL_FILE.FOPEN(l_filedir,l_filename_lang, 'r');

4742: v_filehandle := UTL_FILE.FOPEN(l_filedir,l_filename_lang,'r');
4743: EXCEPTION WHEN OTHERS THEN
4744: BEGIN
4745: l_filename_lang := l_filename || '_' || fnd_global.base_language;
4746: v_filehandle := UTL_FILE.FOPEN(l_filedir,l_filename_lang, 'r');
4747: EXCEPTION WHEN OTHERS THEN
4748: v_filehandle := UTL_FILE.FOPEN(l_filedir,l_filename, 'r');
4749: END;
4750: END;

Line 4748: v_filehandle := UTL_FILE.FOPEN(l_filedir,l_filename, 'r');

4744: BEGIN
4745: l_filename_lang := l_filename || '_' || fnd_global.base_language;
4746: v_filehandle := UTL_FILE.FOPEN(l_filedir,l_filename_lang, 'r');
4747: EXCEPTION WHEN OTHERS THEN
4748: v_filehandle := UTL_FILE.FOPEN(l_filedir,l_filename, 'r');
4749: END;
4750: END;
4751: --EMAILPO FPH END--
4752:

Line 4761: UTL_FILE.GET_LINE(v_filehandle,v_terms);

4757:
4758: begin
4759: x_progress := '003';
4760: /* write the contents into the document */
4761: UTL_FILE.GET_LINE(v_filehandle,v_terms);
4762: l_document := l_document || v_terms || NL;
4763: l_document := l_document || '
' || NL;
4764: WF_NOTIFICATION.WriteToClob(document, l_document);
4765: l_document := null;

Line 4787: UTL_FILE.GET_LINE(v_filehandle,v_terms);

4783:
4784: begin
4785: x_progress := '003';
4786: /* write the contents into the document */
4787: UTL_FILE.GET_LINE(v_filehandle,v_terms);
4788: l_document := l_document || v_terms || NL;
4789: WF_NOTIFICATION.WriteToClob(document, l_document);
4790: x_progress := '004';
4791:

Line 4803: UTL_FILE.FCLOSE(v_filehandle);

4799:
4800:
4801: x_progress := '005';
4802: /* close the file */
4803: UTL_FILE.FCLOSE(v_filehandle);
4804:
4805: END IF;
4806:
4807: -- Bug 2792156

Line 4813: WHEN UTL_FILE.INVALID_PATH THEN

4809: -- it will no longer be raised. Instead, the Email notification will be sent out as
4810: -- normal but without any attachment of Terms and Conditions and a message will be logged
4811: -- in the FND_LOG_MESSAGES table.
4812: EXCEPTION
4813: WHEN UTL_FILE.INVALID_PATH THEN
4814: l_document := '

Line 4820: UTL_FILE.FCLOSE(v_filehandle);

4816: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4817: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, c_log_head || l_api_name ||'.EXCEPTION',
4818: 'generate_terms: Exception Type: INVALID_PATH' ||x_progress||sqlcode);
4819: END IF;
4820: UTL_FILE.FCLOSE(v_filehandle);
4821:
4822: WHEN UTL_FILE.INVALID_MODE THEN
4823: l_document := '

Line 4822: WHEN UTL_FILE.INVALID_MODE THEN

4818: 'generate_terms: Exception Type: INVALID_PATH' ||x_progress||sqlcode);
4819: END IF;
4820: UTL_FILE.FCLOSE(v_filehandle);
4821:
4822: WHEN UTL_FILE.INVALID_MODE THEN
4823: l_document := '

Line 4829: UTL_FILE.FCLOSE(v_filehandle);

4825: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4826: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, c_log_head || l_api_name ||'.EXCEPTION',
4827: 'generate_terms: Exception Type: INVALID_MODE' ||x_progress||sqlcode);
4828: END IF;
4829: UTL_FILE.FCLOSE(v_filehandle);
4830:
4831: WHEN UTL_FILE.INTERNAL_ERROR THEN
4832: l_document := '

Line 4831: WHEN UTL_FILE.INTERNAL_ERROR THEN

4827: 'generate_terms: Exception Type: INVALID_MODE' ||x_progress||sqlcode);
4828: END IF;
4829: UTL_FILE.FCLOSE(v_filehandle);
4830:
4831: WHEN UTL_FILE.INTERNAL_ERROR THEN
4832: l_document := '

Line 4838: UTL_FILE.FCLOSE(v_filehandle);

4834: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4835: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, c_log_head || l_api_name ||'.EXCEPTION',
4836: 'generate_terms: Exception Type: INTERNAL_ERROR' ||x_progress||sqlcode);
4837: END IF;
4838: UTL_FILE.FCLOSE(v_filehandle);
4839:
4840: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
4841: l_document := '

Line 4840: WHEN UTL_FILE.INVALID_FILEHANDLE THEN

4836: 'generate_terms: Exception Type: INTERNAL_ERROR' ||x_progress||sqlcode);
4837: END IF;
4838: UTL_FILE.FCLOSE(v_filehandle);
4839:
4840: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
4841: l_document := '

Line 4847: UTL_FILE.FCLOSE(v_filehandle);

4843: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4844: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, c_log_head || l_api_name ||'.EXCEPTION',
4845: 'generate_terms: Exception Type: INVALID_FILEHANDLE' ||x_progress||sqlcode);
4846: END IF;
4847: UTL_FILE.FCLOSE(v_filehandle);
4848:
4849: WHEN UTL_FILE.INVALID_OPERATION THEN
4850: l_document := '

Line 4849: WHEN UTL_FILE.INVALID_OPERATION THEN

4845: 'generate_terms: Exception Type: INVALID_FILEHANDLE' ||x_progress||sqlcode);
4846: END IF;
4847: UTL_FILE.FCLOSE(v_filehandle);
4848:
4849: WHEN UTL_FILE.INVALID_OPERATION THEN
4850: l_document := '

Line 4856: UTL_FILE.FCLOSE(v_filehandle);

4852: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4853: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, c_log_head || l_api_name ||'.EXCEPTION',
4854: 'generate_terms: Exception Type: INVALID_OPERATION' ||x_progress||sqlcode);
4855: END IF;
4856: UTL_FILE.FCLOSE(v_filehandle);
4857:
4858: WHEN UTL_FILE.READ_ERROR THEN
4859: l_document := '

Line 4858: WHEN UTL_FILE.READ_ERROR THEN

4854: 'generate_terms: Exception Type: INVALID_OPERATION' ||x_progress||sqlcode);
4855: END IF;
4856: UTL_FILE.FCLOSE(v_filehandle);
4857:
4858: WHEN UTL_FILE.READ_ERROR THEN
4859: l_document := '

Line 4865: UTL_FILE.FCLOSE(v_filehandle);

4861: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4862: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, c_log_head || l_api_name ||'.EXCEPTION',
4863: 'generate_terms: Exception Type: READ_ERROR' ||x_progress||sqlcode);
4864: END IF;
4865: UTL_FILE.FCLOSE(v_filehandle);
4866:
4867: WHEN OTHERS THEN
4868: l_document := '

Line 4874: UTL_FILE.FCLOSE(v_filehandle);

4870: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4871: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, c_log_head || l_api_name ||'.EXCEPTION',
4872: 'generate_terms: Exception Type: OTHERS' ||x_progress||sqlcode);
4873: END IF;
4874: UTL_FILE.FCLOSE(v_filehandle);
4875: END;
4876:
4877:
4878: END PO_EMAIL_GENERATE;