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
96: , G_MODULE_PREFIX || l_api_name || '.invoked'
97: , 'Entry');
98: END IF;
99:
100: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
101: FND_MSG_PUB.initialize;
102: END IF;
103:
104: IF NOT FND_API.Compatible_API_Call( l_api_version
100: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
101: FND_MSG_PUB.initialize;
102: END IF;
103:
104: IF NOT FND_API.Compatible_API_Call( l_api_version
105: , p_api_version
106: , l_api_name
107: , G_PKG_NAME
108: )
106: , l_api_name
107: , G_PKG_NAME
108: )
109: THEN
110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
111: END IF;
112:
113: x_return_status := FND_API.G_RET_STS_SUCCESS;
114: -- End API initialization
109: THEN
110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
111: END IF;
112:
113: x_return_status := FND_API.G_RET_STS_SUCCESS;
114: -- End API initialization
115:
116: SELECT 'Y'
117: INTO l_vmiorconsign_flag
146: END IF;
147: EXCEPTION
148: WHEN NO_DATA_FOUND THEN
149: x_vmiorconsign_flag := 'N';
150: x_return_status := FND_API.G_RET_STS_ERROR;
151: WHEN FND_API.G_EXC_ERROR THEN
152: FND_MSG_PUB.Count_And_Get
153: ( p_count => x_msg_count
154: , p_data => x_msg_data
147: EXCEPTION
148: WHEN NO_DATA_FOUND THEN
149: x_vmiorconsign_flag := 'N';
150: x_return_status := FND_API.G_RET_STS_ERROR;
151: WHEN FND_API.G_EXC_ERROR THEN
152: FND_MSG_PUB.Count_And_Get
153: ( p_count => x_msg_count
154: , p_data => x_msg_data
155: );
152: FND_MSG_PUB.Count_And_Get
153: ( p_count => x_msg_count
154: , p_data => x_msg_data
155: );
156: x_return_status := FND_API.G_RET_STS_ERROR;
157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
158: FND_MSG_PUB.Count_And_Get
159: ( p_count => x_msg_count
160: , p_data => x_msg_data
153: ( p_count => x_msg_count
154: , p_data => x_msg_data
155: );
156: x_return_status := FND_API.G_RET_STS_ERROR;
157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
158: FND_MSG_PUB.Count_And_Get
159: ( p_count => x_msg_count
160: , p_data => x_msg_data
161: );
158: FND_MSG_PUB.Count_And_Get
159: ( p_count => x_msg_count
160: , p_data => x_msg_data
161: );
162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
163: WHEN OTHERS THEN
164: FND_MSG_PUB.Count_And_Get
165: ( p_count => x_msg_count
166: , p_data => x_msg_data
165: ( p_count => x_msg_count
166: , p_data => x_msg_data
167: );
168:
169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
170: --myerrams, changed the following code to comply with File.Sql.46 GSCC standard, Bug: 4202824
171: -- IF (g_fnd_debug = 'Y')
172: IF (g_fnd_debug = 'Y' and FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
173: THEN
180: ---=========================================================================
181: -- PROCEDURE : Check_Consign_Enabled
182: -- PARAMETERS:
183: -- p_api_version REQUIRED. API version
184: -- p_init_msg_list REQUIRED. FND_API.G_TRUE to reset the message list
185: -- FND_API.G_FALSE to not reset it.
186: -- If pass NULL, it means FND_API.G_FALSE.
187: -- x_return_status REQUIRED. Value can be
188: -- FND_API.G_RET_STS_SUCCESS
181: -- PROCEDURE : Check_Consign_Enabled
182: -- PARAMETERS:
183: -- p_api_version REQUIRED. API version
184: -- p_init_msg_list REQUIRED. FND_API.G_TRUE to reset the message list
185: -- FND_API.G_FALSE to not reset it.
186: -- If pass NULL, it means FND_API.G_FALSE.
187: -- x_return_status REQUIRED. Value can be
188: -- FND_API.G_RET_STS_SUCCESS
189: -- FND_API.G_RET_STS_ERROR
182: -- PARAMETERS:
183: -- p_api_version REQUIRED. API version
184: -- p_init_msg_list REQUIRED. FND_API.G_TRUE to reset the message list
185: -- FND_API.G_FALSE to not reset it.
186: -- If pass NULL, it means FND_API.G_FALSE.
187: -- x_return_status REQUIRED. Value can be
188: -- FND_API.G_RET_STS_SUCCESS
189: -- FND_API.G_RET_STS_ERROR
190: -- FND_API.G_RET_STS_UNEXP_ERROR
184: -- p_init_msg_list REQUIRED. FND_API.G_TRUE to reset the message list
185: -- FND_API.G_FALSE to not reset it.
186: -- If pass NULL, it means FND_API.G_FALSE.
187: -- x_return_status REQUIRED. Value can be
188: -- FND_API.G_RET_STS_SUCCESS
189: -- FND_API.G_RET_STS_ERROR
190: -- FND_API.G_RET_STS_UNEXP_ERROR
191: -- x_msg_count REQUIRED. Number of messages on the message list
192: -- x_msg_data REQUIRED. Return message data if message count is 1
185: -- FND_API.G_FALSE to not reset it.
186: -- If pass NULL, it means FND_API.G_FALSE.
187: -- x_return_status REQUIRED. Value can be
188: -- FND_API.G_RET_STS_SUCCESS
189: -- FND_API.G_RET_STS_ERROR
190: -- FND_API.G_RET_STS_UNEXP_ERROR
191: -- x_msg_count REQUIRED. Number of messages on the message list
192: -- x_msg_data REQUIRED. Return message data if message count is 1
193: -- p_item_id REQUIRED. Inventory Item Id
186: -- If pass NULL, it means FND_API.G_FALSE.
187: -- x_return_status REQUIRED. Value can be
188: -- FND_API.G_RET_STS_SUCCESS
189: -- FND_API.G_RET_STS_ERROR
190: -- FND_API.G_RET_STS_UNEXP_ERROR
191: -- x_msg_count REQUIRED. Number of messages on the message list
192: -- x_msg_data REQUIRED. Return message data if message count is 1
193: -- p_item_id REQUIRED. Inventory Item Id
194: -- p_organization_id REQUIRED. Inventory organization ID
226: , G_MODULE_PREFIX || l_api_name || '.invoked'
227: , 'Entry');
228: END IF;
229:
230: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
231: FND_MSG_PUB.initialize;
232: END IF;
233:
234: IF NOT FND_API.Compatible_API_Call( l_api_version
230: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
231: FND_MSG_PUB.initialize;
232: END IF;
233:
234: IF NOT FND_API.Compatible_API_Call( l_api_version
235: , p_api_version
236: , l_api_name
237: , G_PKG_NAME
238: )
236: , l_api_name
237: , G_PKG_NAME
238: )
239: THEN
240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
241: END IF;
242:
243: x_return_status := FND_API.G_RET_STS_SUCCESS;
244:
239: THEN
240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
241: END IF;
242:
243: x_return_status := FND_API.G_RET_STS_SUCCESS;
244:
245: IF fnd_profile.value('AP_SUPPLIER_CONSIGNED_ENABLED') <> 'Y' THEN
246: x_consign_flag := 'N';
247: ELSE
281: END IF;
282: EXCEPTION
283: WHEN NO_DATA_FOUND THEN
284: x_consign_flag := 'N';
285: x_return_status := FND_API.G_RET_STS_ERROR;
286: WHEN FND_API.G_EXC_ERROR THEN
287: FND_MSG_PUB.Count_And_Get
288: ( p_count => x_msg_count
289: , p_data => x_msg_data
282: EXCEPTION
283: WHEN NO_DATA_FOUND THEN
284: x_consign_flag := 'N';
285: x_return_status := FND_API.G_RET_STS_ERROR;
286: WHEN FND_API.G_EXC_ERROR THEN
287: FND_MSG_PUB.Count_And_Get
288: ( p_count => x_msg_count
289: , p_data => x_msg_data
290: );
287: FND_MSG_PUB.Count_And_Get
288: ( p_count => x_msg_count
289: , p_data => x_msg_data
290: );
291: x_return_status := FND_API.G_RET_STS_ERROR;
292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
293: FND_MSG_PUB.Count_And_Get
294: ( p_count => x_msg_count
295: , p_data => x_msg_data
288: ( p_count => x_msg_count
289: , p_data => x_msg_data
290: );
291: x_return_status := FND_API.G_RET_STS_ERROR;
292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
293: FND_MSG_PUB.Count_And_Get
294: ( p_count => x_msg_count
295: , p_data => x_msg_data
296: );
293: FND_MSG_PUB.Count_And_Get
294: ( p_count => x_msg_count
295: , p_data => x_msg_data
296: );
297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
298: WHEN OTHERS THEN
299: FND_MSG_PUB.Count_And_Get
300: ( p_count => x_msg_count
301: , p_data => x_msg_data
300: ( p_count => x_msg_count
301: , p_data => x_msg_data
302: );
303:
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
305: --myerrams, changed the following code to comply with File.Sql.46 GSCC standard, Bug: 4202824
306: -- IF (g_fnd_debug = 'Y')
307: IF (g_fnd_debug = 'Y' and FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
308: THEN