50: l_api_name VARCHAR2(255):='save_message';
51: l_api_version_number NUMBER:=1.0;
52: l_seq_id NUMBER;
53:
54: l_return_status VARCHAR2(20) := FND_API.G_RET_STS_SUCCESS;
55: l_msg_count NUMBER := 0;
56: l_msg_data VARCHAR2(2000);
57: i INTEGER;
58: insert_arch_dtl_error EXCEPTION;
65: SAVEPOINT save_message_PVT;
66:
67: -- Standard call to check for call compatibility.
68:
69: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
70: p_api_version_number,
71: l_api_name,
72: G_PKG_NAME)
73: THEN
70: p_api_version_number,
71: l_api_name,
72: G_PKG_NAME)
73: THEN
74: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
75: END IF;
76:
77: -- Initialize message list if p_init_msg_list is set to TRUE.
78: IF FND_API.to_Boolean( p_init_msg_list )
74: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
75: END IF;
76:
77: -- Initialize message list if p_init_msg_list is set to TRUE.
78: IF FND_API.to_Boolean( p_init_msg_list )
79: THEN
80: FND_MSG_PUB.initialize;
81: END IF;
82:
80: FND_MSG_PUB.initialize;
81: END IF;
82:
83: -- Initialize API return status to SUCCESS
84: x_return_status := FND_API.G_RET_STS_SUCCESS;
85:
86: --begins here
87:
88: -- Insert Record into IEM_ARCH_MSG_DTLS
89: IEM_ARCH_MSGDTLS_PVT.create_item(
90: P_API_VERSION_NUMBER=>p_api_version_number,
91: P_INIT_MSG_LIST=>p_init_msg_list,
92: P_COMMIT=>p_commit,
93: p_MESSAGE_ID =>FND_API.G_MISS_NUM,
94: P_INBOUND_MESSAGE_ID=>p_inbound_message_id,
95: P_EMAIL_ACCOUNT_ID=>p_email_account_id,
96: P_MAILPROC_STATUS=>p_mailproc_status,
97: P_RT_CLASSIFICATION_ID=>p_rt_classification_id,
157: x_message_id := l_message_id;
158:
159:
160: -- Standard Check Of p_commit.
161: IF FND_API.To_Boolean(p_commit) THEN
162: COMMIT WORK;
163: END IF;
164:
165:
170: );
171:
172: EXCEPTION
173:
174: WHEN FND_API.G_EXC_ERROR THEN
175: ROLLBACK TO save_message_PVT;
176: x_return_status := FND_API.G_RET_STS_ERROR ;
177: FND_MSG_PUB.Count_And_Get
178:
172: EXCEPTION
173:
174: WHEN FND_API.G_EXC_ERROR THEN
175: ROLLBACK TO save_message_PVT;
176: x_return_status := FND_API.G_RET_STS_ERROR ;
177: FND_MSG_PUB.Count_And_Get
178:
179: ( p_count => x_msg_count,
180: p_data => x_msg_data
179: ( p_count => x_msg_count,
180: p_data => x_msg_data
181: );
182:
183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
184: ROLLBACK TO save_message_PVT;
185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
186: FND_MSG_PUB.Count_And_Get
187: ( p_count => x_msg_count,
181: );
182:
183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
184: ROLLBACK TO save_message_PVT;
185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
186: FND_MSG_PUB.Count_And_Get
187: ( p_count => x_msg_count,
188: p_data => x_msg_data
189: );
189: );
190:
191: WHEN OTHERS THEN
192: ROLLBACK TO save_message_PVT;
193: x_return_status := FND_API.G_RET_STS_ERROR;
194: IF FND_MSG_PUB.Check_Msg_Level
195: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
196: THEN
197: FND_MSG_PUB.Add_Exc_Msg
221: ) is
222: l_api_name VARCHAR2(255):='delete_message';
223: l_api_version_number NUMBER:=1.0;
224:
225: l_return_status VARCHAR2(20) := FND_API.G_RET_STS_SUCCESS;
226: l_msg_count NUMBER := 0;
227: l_msg_data VARCHAR2(2000);
228: delete_message_error EXCEPTION;
229:
232: SAVEPOINT save_message_PVT;
233:
234: -- Standard call to check for call compatibility.
235:
236: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
237: p_api_version_number,
238: l_api_name,
239: G_PKG_NAME)
240: THEN
237: p_api_version_number,
238: l_api_name,
239: G_PKG_NAME)
240: THEN
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: END IF;
243:
244: -- Initialize message list if p_init_msg_list is set to TRUE.
245: IF FND_API.to_Boolean( p_init_msg_list )
241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
242: END IF;
243:
244: -- Initialize message list if p_init_msg_list is set to TRUE.
245: IF FND_API.to_Boolean( p_init_msg_list )
246: THEN
247: FND_MSG_PUB.initialize;
248: END IF;
249:
247: FND_MSG_PUB.initialize;
248: END IF;
249:
250: -- Initialize API return status to SUCCESS
251: x_return_status := FND_API.G_RET_STS_SUCCESS;
252:
253: --begins here
254:
255: iem_mailitem_pub.ResolvedMessage (p_api_version_number => p_api_version_number,
266: END IF;
267:
268:
269: -- Standard Check Of p_commit.
270: IF FND_API.To_Boolean(p_commit) THEN
271: COMMIT WORK;
272: END IF;
273:
274:
279: );
280:
281: EXCEPTION
282:
283: WHEN FND_API.G_EXC_ERROR THEN
284: ROLLBACK TO delete_message_PVT;
285: x_return_status := FND_API.G_RET_STS_ERROR ;
286: FND_MSG_PUB.Count_And_Get
287:
281: EXCEPTION
282:
283: WHEN FND_API.G_EXC_ERROR THEN
284: ROLLBACK TO delete_message_PVT;
285: x_return_status := FND_API.G_RET_STS_ERROR ;
286: FND_MSG_PUB.Count_And_Get
287:
288: ( p_count => x_msg_count,
289: p_data => x_msg_data
288: ( p_count => x_msg_count,
289: p_data => x_msg_data
290: );
291:
292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
293: ROLLBACK TO delete_message_PVT;
294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
295: FND_MSG_PUB.Count_And_Get
296: ( p_count => x_msg_count,
290: );
291:
292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
293: ROLLBACK TO delete_message_PVT;
294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
295: FND_MSG_PUB.Count_And_Get
296: ( p_count => x_msg_count,
297: p_data => x_msg_data
298: );
298: );
299:
300: WHEN OTHERS THEN
301: ROLLBACK TO delete_message_PVT;
302: x_return_status := FND_API.G_RET_STS_ERROR;
303: IF FND_MSG_PUB.Check_Msg_Level
304: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
305: THEN
306: FND_MSG_PUB.Add_Exc_Msg