50: ---=========================================================================
51: -- PROCEDURE : Check_VmiOrConsign_Enabled
52: -- PARAMETERS:
53: -- p_api_version REQUIRED. API version
54: -- p_init_msg_list REQUIRED. FND_API.G_TRUE to reset the message list
55: -- FND_API.G_FALSE to not reset it.
56: -- If pass NULL, it means FND_API.G_FALSE.
57: -- x_return_status REQUIRED. Value can be
58: -- FND_API.G_RET_STS_SUCCESS
51: -- PROCEDURE : Check_VmiOrConsign_Enabled
52: -- PARAMETERS:
53: -- p_api_version REQUIRED. API version
54: -- p_init_msg_list REQUIRED. FND_API.G_TRUE to reset the message list
55: -- FND_API.G_FALSE to not reset it.
56: -- If pass NULL, it means FND_API.G_FALSE.
57: -- x_return_status REQUIRED. Value can be
58: -- FND_API.G_RET_STS_SUCCESS
59: -- FND_API.G_RET_STS_ERROR
52: -- PARAMETERS:
53: -- p_api_version REQUIRED. API version
54: -- p_init_msg_list REQUIRED. FND_API.G_TRUE to reset the message list
55: -- FND_API.G_FALSE to not reset it.
56: -- If pass NULL, it means FND_API.G_FALSE.
57: -- x_return_status REQUIRED. Value can be
58: -- FND_API.G_RET_STS_SUCCESS
59: -- FND_API.G_RET_STS_ERROR
60: -- FND_API.G_RET_STS_UNEXP_ERROR
54: -- p_init_msg_list REQUIRED. FND_API.G_TRUE to reset the message list
55: -- FND_API.G_FALSE to not reset it.
56: -- If pass NULL, it means FND_API.G_FALSE.
57: -- x_return_status REQUIRED. Value can be
58: -- FND_API.G_RET_STS_SUCCESS
59: -- FND_API.G_RET_STS_ERROR
60: -- FND_API.G_RET_STS_UNEXP_ERROR
61: -- x_msg_count REQUIRED. Number of messages on the message list
62: -- x_msg_data REQUIRED. Return message data if message count is 1
55: -- FND_API.G_FALSE to not reset it.
56: -- If pass NULL, it means FND_API.G_FALSE.
57: -- x_return_status REQUIRED. Value can be
58: -- FND_API.G_RET_STS_SUCCESS
59: -- FND_API.G_RET_STS_ERROR
60: -- FND_API.G_RET_STS_UNEXP_ERROR
61: -- x_msg_count REQUIRED. Number of messages on the message list
62: -- x_msg_data REQUIRED. Return message data if message count is 1
63: -- p_item_id REQUIRED. Inventory Item Id
56: -- If pass NULL, it means FND_API.G_FALSE.
57: -- x_return_status REQUIRED. Value can be
58: -- FND_API.G_RET_STS_SUCCESS
59: -- FND_API.G_RET_STS_ERROR
60: -- FND_API.G_RET_STS_UNEXP_ERROR
61: -- x_msg_count REQUIRED. Number of messages on the message list
62: -- x_msg_data REQUIRED. Return message data if message count is 1
63: -- p_item_id REQUIRED. Inventory Item Id
64: -- p_organization_id REQUIRED. Inventory organization ID
98: , G_MODULE_PREFIX || l_api_name || '.invoked'
99: , 'Entry');
100: END IF;
101:
102: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
103: FND_MSG_PUB.initialize;
104: END IF;
105:
106: IF NOT FND_API.Compatible_API_Call( l_api_version
102: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
103: FND_MSG_PUB.initialize;
104: END IF;
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: )
108: , l_api_name
109: , G_PKG_NAME
110: )
111: THEN
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: END IF;
114:
115: x_return_status := FND_API.G_RET_STS_SUCCESS;
116: -- End API initialization
111: THEN
112: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113: END IF;
114:
115: x_return_status := FND_API.G_RET_STS_SUCCESS;
116: -- End API initialization
117:
118: -- bug 12359866, replace query with new API
119: PO_AUTOSOURCE_SV.get_VmiOrConsignEnabled_info(
162: END IF;
163: EXCEPTION
164: WHEN NO_DATA_FOUND THEN
165: x_vmiorconsign_flag := 'N';
166: x_return_status := FND_API.G_RET_STS_ERROR;
167: WHEN FND_API.G_EXC_ERROR THEN
168: FND_MSG_PUB.Count_And_Get
169: ( p_count => x_msg_count
170: , p_data => x_msg_data
163: EXCEPTION
164: WHEN NO_DATA_FOUND THEN
165: x_vmiorconsign_flag := 'N';
166: x_return_status := FND_API.G_RET_STS_ERROR;
167: WHEN FND_API.G_EXC_ERROR THEN
168: FND_MSG_PUB.Count_And_Get
169: ( p_count => x_msg_count
170: , p_data => x_msg_data
171: );
168: FND_MSG_PUB.Count_And_Get
169: ( p_count => x_msg_count
170: , p_data => x_msg_data
171: );
172: x_return_status := FND_API.G_RET_STS_ERROR;
173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
174: FND_MSG_PUB.Count_And_Get
175: ( p_count => x_msg_count
176: , p_data => x_msg_data
169: ( p_count => x_msg_count
170: , p_data => x_msg_data
171: );
172: x_return_status := FND_API.G_RET_STS_ERROR;
173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
174: FND_MSG_PUB.Count_And_Get
175: ( p_count => x_msg_count
176: , p_data => x_msg_data
177: );
174: FND_MSG_PUB.Count_And_Get
175: ( p_count => x_msg_count
176: , p_data => x_msg_data
177: );
178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
179: WHEN OTHERS THEN
180: FND_MSG_PUB.Count_And_Get
181: ( p_count => x_msg_count
182: , p_data => x_msg_data
181: ( p_count => x_msg_count
182: , p_data => x_msg_data
183: );
184:
185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
186: --myerrams, changed the following code to comply with File.Sql.46 GSCC standard, Bug: 4202824
187: -- IF (g_fnd_debug = 'Y')
188: IF (g_fnd_debug = 'Y' and FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
189: THEN
196: ---=========================================================================
197: -- PROCEDURE : Check_Consign_Enabled
198: -- PARAMETERS:
199: -- p_api_version REQUIRED. API version
200: -- p_init_msg_list REQUIRED. FND_API.G_TRUE to reset the message list
201: -- FND_API.G_FALSE to not reset it.
202: -- If pass NULL, it means FND_API.G_FALSE.
203: -- x_return_status REQUIRED. Value can be
204: -- FND_API.G_RET_STS_SUCCESS
197: -- PROCEDURE : Check_Consign_Enabled
198: -- PARAMETERS:
199: -- p_api_version REQUIRED. API version
200: -- p_init_msg_list REQUIRED. FND_API.G_TRUE to reset the message list
201: -- FND_API.G_FALSE to not reset it.
202: -- If pass NULL, it means FND_API.G_FALSE.
203: -- x_return_status REQUIRED. Value can be
204: -- FND_API.G_RET_STS_SUCCESS
205: -- FND_API.G_RET_STS_ERROR
198: -- PARAMETERS:
199: -- p_api_version REQUIRED. API version
200: -- p_init_msg_list REQUIRED. FND_API.G_TRUE to reset the message list
201: -- FND_API.G_FALSE to not reset it.
202: -- If pass NULL, it means FND_API.G_FALSE.
203: -- x_return_status REQUIRED. Value can be
204: -- FND_API.G_RET_STS_SUCCESS
205: -- FND_API.G_RET_STS_ERROR
206: -- FND_API.G_RET_STS_UNEXP_ERROR
200: -- p_init_msg_list REQUIRED. FND_API.G_TRUE to reset the message list
201: -- FND_API.G_FALSE to not reset it.
202: -- If pass NULL, it means FND_API.G_FALSE.
203: -- x_return_status REQUIRED. Value can be
204: -- FND_API.G_RET_STS_SUCCESS
205: -- FND_API.G_RET_STS_ERROR
206: -- FND_API.G_RET_STS_UNEXP_ERROR
207: -- x_msg_count REQUIRED. Number of messages on the message list
208: -- x_msg_data REQUIRED. Return message data if message count is 1
201: -- FND_API.G_FALSE to not reset it.
202: -- If pass NULL, it means FND_API.G_FALSE.
203: -- x_return_status REQUIRED. Value can be
204: -- FND_API.G_RET_STS_SUCCESS
205: -- FND_API.G_RET_STS_ERROR
206: -- FND_API.G_RET_STS_UNEXP_ERROR
207: -- x_msg_count REQUIRED. Number of messages on the message list
208: -- x_msg_data REQUIRED. Return message data if message count is 1
209: -- p_item_id REQUIRED. Inventory Item Id
202: -- If pass NULL, it means FND_API.G_FALSE.
203: -- x_return_status REQUIRED. Value can be
204: -- FND_API.G_RET_STS_SUCCESS
205: -- FND_API.G_RET_STS_ERROR
206: -- FND_API.G_RET_STS_UNEXP_ERROR
207: -- x_msg_count REQUIRED. Number of messages on the message list
208: -- x_msg_data REQUIRED. Return message data if message count is 1
209: -- p_item_id REQUIRED. Inventory Item Id
210: -- p_organization_id REQUIRED. Inventory organization ID
243: , G_MODULE_PREFIX || l_api_name || '.invoked'
244: , 'Entry');
245: END IF;
246:
247: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
248: FND_MSG_PUB.initialize;
249: END IF;
250:
251: IF NOT FND_API.Compatible_API_Call( l_api_version
247: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
248: FND_MSG_PUB.initialize;
249: END IF;
250:
251: IF NOT FND_API.Compatible_API_Call( l_api_version
252: , p_api_version
253: , l_api_name
254: , G_PKG_NAME
255: )
253: , l_api_name
254: , G_PKG_NAME
255: )
256: THEN
257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
258: END IF;
259:
260: x_return_status := FND_API.G_RET_STS_SUCCESS;
261:
256: THEN
257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
258: END IF;
259:
260: x_return_status := FND_API.G_RET_STS_SUCCESS;
261:
262: IF fnd_profile.value('AP_SUPPLIER_CONSIGNED_ENABLED') <> 'Y' THEN
263: x_consign_flag := 'N';
264: ELSE
306: END IF;
307: EXCEPTION
308: WHEN NO_DATA_FOUND THEN
309: x_consign_flag := 'N';
310: x_return_status := FND_API.G_RET_STS_ERROR;
311: WHEN FND_API.G_EXC_ERROR THEN
312: FND_MSG_PUB.Count_And_Get
313: ( p_count => x_msg_count
314: , p_data => x_msg_data
307: EXCEPTION
308: WHEN NO_DATA_FOUND THEN
309: x_consign_flag := 'N';
310: x_return_status := FND_API.G_RET_STS_ERROR;
311: WHEN FND_API.G_EXC_ERROR THEN
312: FND_MSG_PUB.Count_And_Get
313: ( p_count => x_msg_count
314: , p_data => x_msg_data
315: );
312: FND_MSG_PUB.Count_And_Get
313: ( p_count => x_msg_count
314: , p_data => x_msg_data
315: );
316: x_return_status := FND_API.G_RET_STS_ERROR;
317: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
318: FND_MSG_PUB.Count_And_Get
319: ( p_count => x_msg_count
320: , p_data => x_msg_data
313: ( p_count => x_msg_count
314: , p_data => x_msg_data
315: );
316: x_return_status := FND_API.G_RET_STS_ERROR;
317: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
318: FND_MSG_PUB.Count_And_Get
319: ( p_count => x_msg_count
320: , p_data => x_msg_data
321: );
318: FND_MSG_PUB.Count_And_Get
319: ( p_count => x_msg_count
320: , p_data => x_msg_data
321: );
322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323: WHEN OTHERS THEN
324: FND_MSG_PUB.Count_And_Get
325: ( p_count => x_msg_count
326: , p_data => x_msg_data
325: ( p_count => x_msg_count
326: , p_data => x_msg_data
327: );
328:
329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
330: --myerrams, changed the following code to comply with File.Sql.46 GSCC standard, Bug: 4202824
331: -- IF (g_fnd_debug = 'Y')
332: IF (g_fnd_debug = 'Y' and FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
333: THEN