6: /* ----------------------------------------------------------------------- */
7:
8: PROCEDURE Enforce_Concurrency_Control
9: ( p_api_version IN NUMBER,
10: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
12: p_return_status OUT NOCOPY VARCHAR2,
13: p_msg_count OUT NOCOPY NUMBER,
14: p_msg_data OUT NOCOPY VARCHAR2,
7:
8: PROCEDURE Enforce_Concurrency_Control
9: ( p_api_version IN NUMBER,
10: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
11: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
12: p_return_status OUT NOCOPY VARCHAR2,
13: p_msg_count OUT NOCOPY NUMBER,
14: p_msg_data OUT NOCOPY VARCHAR2,
15: p_concurrency_class IN VARCHAR2 := 'MAINTENANCE',
23: BEGIN
24:
25: -- Standard call to check for call compatibility.
26:
27: if not FND_API.Compatible_API_Call (l_api_version,
28: p_api_version,
29: l_api_name,
30: G_PKG_NAME)
31: then
28: p_api_version,
29: l_api_name,
30: G_PKG_NAME)
31: then
32: raise FND_API.G_EXC_UNEXPECTED_ERROR;
33: end if;
34:
35:
36: -- Initialize message list if p_init_msg_list is set to TRUE.
34:
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:
56: p_data => p_msg_data);
57:
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:
57:
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:
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
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:
63: p_data => p_msg_data);
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:
69: p_data => p_msg_data);
70:
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);
85: --Added Release Concurrency Control procedure
86:
87: PROCEDURE Release_Concurrency_Control
88: ( p_api_version IN NUMBER,
89: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
90: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
91: p_return_status OUT NOCOPY VARCHAR2,
92: p_msg_count OUT NOCOPY NUMBER,
93: p_msg_data OUT NOCOPY VARCHAR2,
86:
87: PROCEDURE Release_Concurrency_Control
88: ( p_api_version IN NUMBER,
89: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
90: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
91: p_return_status OUT NOCOPY VARCHAR2,
92: p_msg_count OUT NOCOPY NUMBER,
93: p_msg_data OUT NOCOPY VARCHAR2,
94: p_concurrency_class IN VARCHAR2 := 'MAINTENANCE',
102: BEGIN
103:
104: -- Standard call to check for call compatibility.
105:
106: if not FND_API.Compatible_API_Call (l_api_version,
107: p_api_version,
108: l_api_name,
109: G_PKG_NAME)
110: then
107: p_api_version,
108: l_api_name,
109: G_PKG_NAME)
110: then
111: raise FND_API.G_EXC_UNEXPECTED_ERROR;
112: end if;
113:
114:
115: -- Initialize message list if p_init_msg_list is set to TRUE.
113:
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:
135:
136: EXCEPTION
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:
136: EXCEPTION
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:
142: p_data => p_msg_data);
143:
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);