64: i INTEGER;
65:
66:
67: BEGIN
68: -- Standard Start of API savepoint
69: SAVEPOINT create_arch_msgdtls_PVT;
70:
71: -- Standard call to check for call compatibility.
72:
67: BEGIN
68: -- Standard Start of API savepoint
69: SAVEPOINT create_arch_msgdtls_PVT;
70:
71: -- Standard call to check for call compatibility.
72:
73: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
74: p_api_version_number,
75: l_api_name,
195:
196:
197: x_message_id := l_seq_id;
198:
199: -- Standard Check Of p_commit.
200: IF FND_API.To_Boolean(p_commit) THEN
201: COMMIT WORK;
202: END IF;
203:
201: COMMIT WORK;
202: END IF;
203:
204:
205: -- Standard callto get message count and if count is 1, get message info.
206: FND_MSG_PUB.Count_And_Get
207: ( p_count => x_msg_count,
208: p_data => x_msg_data
209: );