[Home] [Help]
8: g_file_name CONSTANT VARCHAR2 (12) := 'csdvrutb.pls';
9: g_debug_level CONSTANT NUMBER := csd_gen_utility_pvt.g_debug_level;
10: g_inspection_required CONSTANT VARCHAR2 (30) := 'Inspection Required';
11: g_inspection_routing CONSTANT NUMBER := 2;
12: g_standard_routing CONSTANT NUMBER := 1;
13:
14: /*--------------------------------------------------------------------------------------*/
15: /* function name: is_auto_rcv_available */
16: /* description : This function will check if the item is eligible for auto receive */
264: -- At org level check rcv_parameters. This is kept as dynamic sql
265: -- to remove code dependency for R10.
266:
267: BEGIN
268: EXECUTE IMMEDIATE 'SELECT nvl(RMA_RECEIPT_ROUTING_ID, '||g_standard_routing ||')'
269: || 'FROM RCV_PARAMETERS WHERE organization_id =:1'
270: --|| p_inv_org_id --4277749 TBD
271: --4277749 changed the exec to use using clause
272: INTO l_routing_header_id using p_inv_org_id;
271: --4277749 changed the exec to use using clause
272: INTO l_routing_header_id using p_inv_org_id;
273: EXCEPTION
274: WHEN NO_DATA_FOUND THEN
275: l_routing_header_id := g_standard_routing;
276: END;
277:
278: IF (l_routing_header_id = g_inspection_routing ) THEN
279: l_routing_header_id := -1;
287:
288:
289:
290: -----
291: -- Default the routing to standard if not set anywhere.
292:
293: IF(l_routing_header_id is null) THEN
294: l_routing_header_id := g_standard_routing;
295: END IF;
290: -----
291: -- Default the routing to standard if not set anywhere.
292:
293: IF(l_routing_header_id is null) THEN
294: l_routing_header_id := g_standard_routing;
295: END IF;
296:
297: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
298: THEN