35:
36: -- Initialize message list if p_init_msg_list is set to TRUE.
37:
38: if FND_API.to_Boolean (p_init_msg_list) then
39: FND_MSG_PUB.initialize;
40: end if;
41:
42:
43: -- Call Private Function
51:
52:
53: -- Standard call to get message count and if count is 1, get message info.
54:
55: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
56: p_data => p_msg_data);
57:
58: EXCEPTION
59:
58: EXCEPTION
59:
60: when FND_API.G_EXC_ERROR then
61: p_return_status := FND_API.G_RET_STS_ERROR;
62: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
63: p_data => p_msg_data);
64:
65:
66: when FND_API.G_EXC_UNEXPECTED_ERROR then
64:
65:
66: when FND_API.G_EXC_UNEXPECTED_ERROR then
67: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
68: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
69: p_data => p_msg_data);
70:
71:
72: when OTHERS then
71:
72: when OTHERS then
73: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
74:
75: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
76: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
77: l_api_name);
78: end if;
79:
72: when OTHERS then
73: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
74:
75: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
76: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
77: l_api_name);
78: end if;
79:
80: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
76: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
77: l_api_name);
78: end if;
79:
80: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
81: p_data => p_msg_data);
82:
83: END Enforce_Concurrency_Control;
84:
114:
115: -- Initialize message list if p_init_msg_list is set to TRUE.
116:
117: if FND_API.to_Boolean (p_init_msg_list) then
118: FND_MSG_PUB.initialize;
119: end if;
120:
121:
122: -- Call Private Function
129: p_concurrency_entity_id => p_concurrency_entity_id);
130:
131: -- Standard call to get message count and if count is 1, get message info.
132:
133: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
134: p_data => p_msg_data);
135:
136: EXCEPTION
137:
137:
138:
139: when FND_API.G_EXC_UNEXPECTED_ERROR then
140: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
141: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
142: p_data => p_msg_data);
143:
144:
145: when OTHERS then
144:
145: when OTHERS then
146: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
147:
148: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
149: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
150: l_api_name);
151: end if;
152:
145: when OTHERS then
146: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
147:
148: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
149: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
150: l_api_name);
151: end if;
152:
153: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
149: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
150: l_api_name);
151: end if;
152:
153: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
154: p_data => p_msg_data);
155:
156: END Release_Concurrency_Control;
157: