APPS.PO_EMAIL_GENERATE dependencies on UTL_FILE

Line 4108: v_filehandle UTL_FILE.FILE_TYPE;

4104: display_type in varchar2,
4105: document in out NOCOPY clob,
4106: document_type in out NOCOPY varchar2) IS
4107:
4108: v_filehandle UTL_FILE.FILE_TYPE;
4109: l_filedir varchar2(2000) := null;
4110: l_filename varchar2(2000) := null;
4111: v_terms varchar2(4000) := null;
4112: NL VARCHAR2(1) := fnd_global.newline;

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

4238: */
4239: l_filename_lang := l_filename || '_' || userenv('LANG');
4240: BEGIN
4241: /* open the file */
4242: v_filehandle := UTL_FILE.FOPEN(l_filedir,l_filename_lang,'r');
4243: EXCEPTION WHEN OTHERS THEN
4244: BEGIN
4245: l_filename_lang := l_filename || '_' || fnd_global.base_language;
4246: v_filehandle := UTL_FILE.FOPEN(l_filedir,l_filename_lang, 'r');

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

4242: v_filehandle := UTL_FILE.FOPEN(l_filedir,l_filename_lang,'r');
4243: EXCEPTION WHEN OTHERS THEN
4244: BEGIN
4245: l_filename_lang := l_filename || '_' || fnd_global.base_language;
4246: v_filehandle := UTL_FILE.FOPEN(l_filedir,l_filename_lang, 'r');
4247: EXCEPTION WHEN OTHERS THEN
4248: v_filehandle := UTL_FILE.FOPEN(l_filedir,l_filename, 'r');
4249: END;
4250: END;

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

4244: BEGIN
4245: l_filename_lang := l_filename || '_' || fnd_global.base_language;
4246: v_filehandle := UTL_FILE.FOPEN(l_filedir,l_filename_lang, 'r');
4247: EXCEPTION WHEN OTHERS THEN
4248: v_filehandle := UTL_FILE.FOPEN(l_filedir,l_filename, 'r');
4249: END;
4250: END;
4251: --EMAILPO FPH END--
4252:

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

4257:
4258: begin
4259: x_progress := '003';
4260: /* write the contents into the document */
4261: UTL_FILE.GET_LINE(v_filehandle,v_terms);
4262: l_document := l_document || v_terms || NL;
4263: l_document := l_document || '
' || NL;
4264: WF_NOTIFICATION.WriteToClob(document, l_document);
4265: l_document := null;

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

4283:
4284: begin
4285: x_progress := '003';
4286: /* write the contents into the document */
4287: UTL_FILE.GET_LINE(v_filehandle,v_terms);
4288: l_document := l_document || v_terms || NL;
4289: WF_NOTIFICATION.WriteToClob(document, l_document);
4290: x_progress := '004';
4291:

Line 4303: UTL_FILE.FCLOSE(v_filehandle);

4299:
4300:
4301: x_progress := '005';
4302: /* close the file */
4303: UTL_FILE.FCLOSE(v_filehandle);
4304:
4305: END IF;
4306:
4307: -- Bug 2792156

Line 4313: WHEN UTL_FILE.INVALID_PATH THEN

4309: -- it will no longer be raised. Instead, the Email notification will be sent out as
4310: -- normal but without any attachment of Terms and Conditions and a message will be logged
4311: -- in the FND_LOG_MESSAGES table.
4312: EXCEPTION
4313: WHEN UTL_FILE.INVALID_PATH THEN
4314: l_document := '

Line 4320: UTL_FILE.FCLOSE(v_filehandle);

4316: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4317: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, c_log_head || l_api_name ||'.EXCEPTION',
4318: 'generate_terms: Exception Type: INVALID_PATH' ||x_progress||sqlcode);
4319: END IF;
4320: UTL_FILE.FCLOSE(v_filehandle);
4321:
4322: WHEN UTL_FILE.INVALID_MODE THEN
4323: l_document := '

Line 4322: WHEN UTL_FILE.INVALID_MODE THEN

4318: 'generate_terms: Exception Type: INVALID_PATH' ||x_progress||sqlcode);
4319: END IF;
4320: UTL_FILE.FCLOSE(v_filehandle);
4321:
4322: WHEN UTL_FILE.INVALID_MODE THEN
4323: l_document := '

Line 4329: UTL_FILE.FCLOSE(v_filehandle);

4325: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4326: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, c_log_head || l_api_name ||'.EXCEPTION',
4327: 'generate_terms: Exception Type: INVALID_MODE' ||x_progress||sqlcode);
4328: END IF;
4329: UTL_FILE.FCLOSE(v_filehandle);
4330:
4331: WHEN UTL_FILE.INTERNAL_ERROR THEN
4332: l_document := '

Line 4331: WHEN UTL_FILE.INTERNAL_ERROR THEN

4327: 'generate_terms: Exception Type: INVALID_MODE' ||x_progress||sqlcode);
4328: END IF;
4329: UTL_FILE.FCLOSE(v_filehandle);
4330:
4331: WHEN UTL_FILE.INTERNAL_ERROR THEN
4332: l_document := '

Line 4338: UTL_FILE.FCLOSE(v_filehandle);

4334: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4335: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, c_log_head || l_api_name ||'.EXCEPTION',
4336: 'generate_terms: Exception Type: INTERNAL_ERROR' ||x_progress||sqlcode);
4337: END IF;
4338: UTL_FILE.FCLOSE(v_filehandle);
4339:
4340: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
4341: l_document := '

Line 4340: WHEN UTL_FILE.INVALID_FILEHANDLE THEN

4336: 'generate_terms: Exception Type: INTERNAL_ERROR' ||x_progress||sqlcode);
4337: END IF;
4338: UTL_FILE.FCLOSE(v_filehandle);
4339:
4340: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
4341: l_document := '

Line 4347: UTL_FILE.FCLOSE(v_filehandle);

4343: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4344: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, c_log_head || l_api_name ||'.EXCEPTION',
4345: 'generate_terms: Exception Type: INVALID_FILEHANDLE' ||x_progress||sqlcode);
4346: END IF;
4347: UTL_FILE.FCLOSE(v_filehandle);
4348:
4349: WHEN UTL_FILE.INVALID_OPERATION THEN
4350: l_document := '

Line 4349: WHEN UTL_FILE.INVALID_OPERATION THEN

4345: 'generate_terms: Exception Type: INVALID_FILEHANDLE' ||x_progress||sqlcode);
4346: END IF;
4347: UTL_FILE.FCLOSE(v_filehandle);
4348:
4349: WHEN UTL_FILE.INVALID_OPERATION THEN
4350: l_document := '

Line 4356: UTL_FILE.FCLOSE(v_filehandle);

4352: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4353: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, c_log_head || l_api_name ||'.EXCEPTION',
4354: 'generate_terms: Exception Type: INVALID_OPERATION' ||x_progress||sqlcode);
4355: END IF;
4356: UTL_FILE.FCLOSE(v_filehandle);
4357:
4358: WHEN UTL_FILE.READ_ERROR THEN
4359: l_document := '

Line 4358: WHEN UTL_FILE.READ_ERROR THEN

4354: 'generate_terms: Exception Type: INVALID_OPERATION' ||x_progress||sqlcode);
4355: END IF;
4356: UTL_FILE.FCLOSE(v_filehandle);
4357:
4358: WHEN UTL_FILE.READ_ERROR THEN
4359: l_document := '

Line 4365: UTL_FILE.FCLOSE(v_filehandle);

4361: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4362: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, c_log_head || l_api_name ||'.EXCEPTION',
4363: 'generate_terms: Exception Type: READ_ERROR' ||x_progress||sqlcode);
4364: END IF;
4365: UTL_FILE.FCLOSE(v_filehandle);
4366:
4367: WHEN OTHERS THEN
4368: l_document := '

Line 4374: UTL_FILE.FCLOSE(v_filehandle);

4370: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
4371: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION, c_log_head || l_api_name ||'.EXCEPTION',
4372: 'generate_terms: Exception Type: OTHERS' ||x_progress||sqlcode);
4373: END IF;
4374: UTL_FILE.FCLOSE(v_filehandle);
4375: END;
4376:
4377:
4378: END PO_EMAIL_GENERATE;