41: -- Standard start of API savepoint
42: SAVEPOINT Create_Note_PVT;
43:
44: -- Standard call to check for call compatibility
45: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
46: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
47: END IF;
48:
49: -- Initialize message list if p_init_msg_list is set to TRUE
42: SAVEPOINT Create_Note_PVT;
43:
44: -- Standard call to check for call compatibility
45: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
46: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
47: END IF;
48:
49: -- Initialize message list if p_init_msg_list is set to TRUE
50: IF FND_API.To_Boolean(p_init_msg_list) THEN
46: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
47: END IF;
48:
49: -- Initialize message list if p_init_msg_list is set to TRUE
50: IF FND_API.To_Boolean(p_init_msg_list) THEN
51: FND_MSG_PUB.initialize;
52: END IF;
53:
54: -- Initialize API return status to success
51: FND_MSG_PUB.initialize;
52: END IF;
53:
54: -- Initialize API return status to success
55: x_return_status := FND_API.G_RET_STS_SUCCESS;
56:
57: -- START OF BODY OF API
58: -- IF PG_DEBUG < 10 THEN
59: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
96: iex_debug_pub.LogMessage(G_PKG_NAME || '.Create_Note: Before call to jtf_notes_pub.create_note');
97: END IF;
98: jtf_notes_pub.create_note(
99: P_Api_Version => 1.0,
100: P_Init_Msg_List => FND_API.G_FALSE,
101: P_Commit => P_Commit,
102: p_jtf_note_id => FND_API.g_MISS_NUM,
103: p_validation_level => p_validation_level,
104: p_source_object_id => p_source_object_id,
98: jtf_notes_pub.create_note(
99: P_Api_Version => 1.0,
100: P_Init_Msg_List => FND_API.G_FALSE,
101: P_Commit => P_Commit,
102: p_jtf_note_id => FND_API.g_MISS_NUM,
103: p_validation_level => p_validation_level,
104: p_source_object_id => p_source_object_id,
105: p_source_object_code => p_source_object_code,
106: p_notes => p_notes,
127: iex_debug_pub.LogMessage(G_PKG_NAME || '.Create_Note: l_Return_Status: ' || l_Return_Status);
128: END IF;
129:
130: -- check for errors
131: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
132: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_CREATE_NOTE');
133: FND_MSG_PUB.Add;
134: RAISE FND_API.G_EXC_ERROR;
135: END IF;
130: -- check for errors
131: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
132: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_CREATE_NOTE');
133: FND_MSG_PUB.Add;
134: RAISE FND_API.G_EXC_ERROR;
135: END IF;
136:
137: -- END OF BODY OF API
138: -- IF PG_DEBUG < 10 THEN
140: iex_debug_pub.LogMessage(G_PKG_NAME || '.Create_Note: End');
141: END IF;
142:
143: -- Standard check of p_commit.
144: IF FND_API.To_Boolean( p_commit ) THEN
145: COMMIT WORK;
146: END IF;
147:
148: x_return_status := l_return_status;
148: x_return_status := l_return_status;
149:
150: -- Standard call to get message count and if count is 1, get message info
151: FND_MSG_PUB.Count_And_Get(
152: p_encoded => FND_API.G_FALSE,
153: p_count => x_msg_count,
154: p_data => x_msg_data);
155:
156: EXCEPTION
153: p_count => x_msg_count,
154: p_data => x_msg_data);
155:
156: EXCEPTION
157: WHEN FND_API.G_EXC_ERROR THEN
158: ROLLBACK TO Create_Note_PVT;
159: x_return_status := FND_API.G_RET_STS_ERROR;
160: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
161:
155:
156: EXCEPTION
157: WHEN FND_API.G_EXC_ERROR THEN
158: ROLLBACK TO Create_Note_PVT;
159: x_return_status := FND_API.G_RET_STS_ERROR;
160: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
161:
162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
163: ROLLBACK TO Create_Note_PVT;
158: ROLLBACK TO Create_Note_PVT;
159: x_return_status := FND_API.G_RET_STS_ERROR;
160: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
161:
162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
163: ROLLBACK TO Create_Note_PVT;
164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
165: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
166:
160: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
161:
162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
163: ROLLBACK TO Create_Note_PVT;
164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
165: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
166:
167: WHEN OTHERS THEN
168: ROLLBACK TO Create_Note_PVT;
165: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
166:
167: WHEN OTHERS THEN
168: ROLLBACK TO Create_Note_PVT;
169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
170: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
171: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
172: END IF;
173: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);