17: uFile_type FILE_TYPE;
18:
19: BEGIN
20: x_return_status := G_RET_STS_SUCCESS;
21: uFile_type := utl_file.fopen(Fnd_Profile.VALUE(G_LOG_DIR),p_file_name,'A');
22:
23: FOR i IN 1..p_msgs_tbl.COUNT
24: LOOP
25:
26: IF Fnd_Api.TO_BOOLEAN(p_translate)
27: THEN
28: FOR l_okl_csr_fnd_msg IN okl_csr_fnd_msg(p_msgs_tbl(i))
29: LOOP
30: utl_file.put_line(uFile_type,l_okl_csr_fnd_msg.message_text);
31: END LOOP;
32: ELSE
33: utl_file.put_line(uFile_type,p_msgs_tbl(i));
34: END IF;
29: LOOP
30: utl_file.put_line(uFile_type,l_okl_csr_fnd_msg.message_text);
31: END LOOP;
32: ELSE
33: utl_file.put_line(uFile_type,p_msgs_tbl(i));
34: END IF;
35:
36: END LOOP;
37:
34: END IF;
35:
36: END LOOP;
37:
38: utl_file.fclose(uFile_type);
39:
40: EXCEPTION
41: WHEN utl_file.write_error THEN
42: IF (utl_file.is_open(uFile_type)) THEN
37:
38: utl_file.fclose(uFile_type);
39:
40: EXCEPTION
41: WHEN utl_file.write_error THEN
42: IF (utl_file.is_open(uFile_type)) THEN
43: utl_file.fclose(uFile_type);
44: END IF;
45:
38: utl_file.fclose(uFile_type);
39:
40: EXCEPTION
41: WHEN utl_file.write_error THEN
42: IF (utl_file.is_open(uFile_type)) THEN
43: utl_file.fclose(uFile_type);
44: END IF;
45:
46: WHEN utl_file.invalid_path THEN
39:
40: EXCEPTION
41: WHEN utl_file.write_error THEN
42: IF (utl_file.is_open(uFile_type)) THEN
43: utl_file.fclose(uFile_type);
44: END IF;
45:
46: WHEN utl_file.invalid_path THEN
47: x_return_status := G_RET_STS_ERROR;
42: IF (utl_file.is_open(uFile_type)) THEN
43: utl_file.fclose(uFile_type);
44: END IF;
45:
46: WHEN utl_file.invalid_path THEN
47: x_return_status := G_RET_STS_ERROR;
48:
49: WHEN utl_file.invalid_operation THEN
50: x_return_status := G_RET_STS_ERROR;
45:
46: WHEN utl_file.invalid_path THEN
47: x_return_status := G_RET_STS_ERROR;
48:
49: WHEN utl_file.invalid_operation THEN
50: x_return_status := G_RET_STS_ERROR;
51: IF (utl_file.is_open(uFile_type)) THEN
52: utl_file.fclose(uFile_type);
53: END IF;
47: x_return_status := G_RET_STS_ERROR;
48:
49: WHEN utl_file.invalid_operation THEN
50: x_return_status := G_RET_STS_ERROR;
51: IF (utl_file.is_open(uFile_type)) THEN
52: utl_file.fclose(uFile_type);
53: END IF;
54: WHEN OTHERS THEN
55: x_return_status := G_RET_STS_UNEXP_ERROR;
48:
49: WHEN utl_file.invalid_operation THEN
50: x_return_status := G_RET_STS_ERROR;
51: IF (utl_file.is_open(uFile_type)) THEN
52: utl_file.fclose(uFile_type);
53: END IF;
54: WHEN OTHERS THEN
55: x_return_status := G_RET_STS_UNEXP_ERROR;
56: IF (utl_file.is_open(uFile_type)) THEN
52: utl_file.fclose(uFile_type);
53: END IF;
54: WHEN OTHERS THEN
55: x_return_status := G_RET_STS_UNEXP_ERROR;
56: IF (utl_file.is_open(uFile_type)) THEN
57: utl_file.fclose(uFile_type);
58: END IF;
59:
60: END LOG_MESSAGE;
53: END IF;
54: WHEN OTHERS THEN
55: x_return_status := G_RET_STS_UNEXP_ERROR;
56: IF (utl_file.is_open(uFile_type)) THEN
57: utl_file.fclose(uFile_type);
58: END IF;
59:
60: END LOG_MESSAGE;
61:
75: uFile_type FILE_TYPE;
76:
77: BEGIN
78: x_return_status := G_RET_STS_SUCCESS;
79: uFile_type := utl_file.fopen(Fnd_Profile.VALUE(G_LOG_DIR),p_file_name,'A');
80:
81: IF Fnd_Api.TO_BOOLEAN(p_translate)
82: THEN
83: FOR l_okl_csr_fnd_msg IN okl_csr_fnd_msg(p_msg_name)
81: IF Fnd_Api.TO_BOOLEAN(p_translate)
82: THEN
83: FOR l_okl_csr_fnd_msg IN okl_csr_fnd_msg(p_msg_name)
84: LOOP
85: utl_file.put_line(uFile_type,l_okl_csr_fnd_msg.message_text);
86: END LOOP;
87: ELSE
88: utl_file.put_line(uFile_type,p_msg_name);
89: END IF;
84: LOOP
85: utl_file.put_line(uFile_type,l_okl_csr_fnd_msg.message_text);
86: END LOOP;
87: ELSE
88: utl_file.put_line(uFile_type,p_msg_name);
89: END IF;
90:
91: utl_file.fclose(uFile_type);
92:
87: ELSE
88: utl_file.put_line(uFile_type,p_msg_name);
89: END IF;
90:
91: utl_file.fclose(uFile_type);
92:
93: EXCEPTION
94: WHEN utl_file.write_error THEN
95: x_return_status := G_RET_STS_ERROR;
90:
91: utl_file.fclose(uFile_type);
92:
93: EXCEPTION
94: WHEN utl_file.write_error THEN
95: x_return_status := G_RET_STS_ERROR;
96: IF (utl_file.is_open(uFile_type)) THEN
97: utl_file.fclose(uFile_type);
98: END IF;
92:
93: EXCEPTION
94: WHEN utl_file.write_error THEN
95: x_return_status := G_RET_STS_ERROR;
96: IF (utl_file.is_open(uFile_type)) THEN
97: utl_file.fclose(uFile_type);
98: END IF;
99:
100: WHEN utl_file.invalid_path THEN
93: EXCEPTION
94: WHEN utl_file.write_error THEN
95: x_return_status := G_RET_STS_ERROR;
96: IF (utl_file.is_open(uFile_type)) THEN
97: utl_file.fclose(uFile_type);
98: END IF;
99:
100: WHEN utl_file.invalid_path THEN
101: x_return_status := G_RET_STS_ERROR;
96: IF (utl_file.is_open(uFile_type)) THEN
97: utl_file.fclose(uFile_type);
98: END IF;
99:
100: WHEN utl_file.invalid_path THEN
101: x_return_status := G_RET_STS_ERROR;
102:
103: WHEN utl_file.invalid_operation THEN
104: x_return_status := G_RET_STS_ERROR;
99:
100: WHEN utl_file.invalid_path THEN
101: x_return_status := G_RET_STS_ERROR;
102:
103: WHEN utl_file.invalid_operation THEN
104: x_return_status := G_RET_STS_ERROR;
105: IF (utl_file.is_open(uFile_type)) THEN
106: utl_file.fclose(uFile_type);
107: END IF;
101: x_return_status := G_RET_STS_ERROR;
102:
103: WHEN utl_file.invalid_operation THEN
104: x_return_status := G_RET_STS_ERROR;
105: IF (utl_file.is_open(uFile_type)) THEN
106: utl_file.fclose(uFile_type);
107: END IF;
108: WHEN OTHERS THEN
109: x_return_status := G_RET_STS_UNEXP_ERROR;
102:
103: WHEN utl_file.invalid_operation THEN
104: x_return_status := G_RET_STS_ERROR;
105: IF (utl_file.is_open(uFile_type)) THEN
106: utl_file.fclose(uFile_type);
107: END IF;
108: WHEN OTHERS THEN
109: x_return_status := G_RET_STS_UNEXP_ERROR;
110: -- store SQL error message on message stack for caller
113: p_token1 => G_SQLCODE_TOKEN,
114: p_token1_value => SQLCODE,
115: p_token2 => G_SQLERRM_TOKEN,
116: p_token2_value => SQLERRM );
117: IF (utl_file.is_open(uFile_type)) THEN
118: utl_file.fclose(uFile_type);
119: END IF;
120:
121: END LOG_MESSAGE;
114: p_token1_value => SQLCODE,
115: p_token2 => G_SQLERRM_TOKEN,
116: p_token2_value => SQLERRM );
117: IF (utl_file.is_open(uFile_type)) THEN
118: utl_file.fclose(uFile_type);
119: END IF;
120:
121: END LOG_MESSAGE;
122: