38: -- We will not remove it for dependency reasons
39:
40: -- Output Parameters
41: -- x_printer => Printer Name
42: -- x_api_status => FND_API.G_RET_STS_SUCESSS or
43: -- FND_API.G_RET_STS_ERROR or
44: -- FND_API.G_RET_STS_UNEXP_ERROR
45: -- x_error_message => Error message
46: --
39:
40: -- Output Parameters
41: -- x_printer => Printer Name
42: -- x_api_status => FND_API.G_RET_STS_SUCESSS or
43: -- FND_API.G_RET_STS_ERROR or
44: -- FND_API.G_RET_STS_UNEXP_ERROR
45: -- x_error_message => Error message
46: --
47:
40: -- Output Parameters
41: -- x_printer => Printer Name
42: -- x_api_status => FND_API.G_RET_STS_SUCESSS or
43: -- FND_API.G_RET_STS_ERROR or
44: -- FND_API.G_RET_STS_UNEXP_ERROR
45: -- x_error_message => Error message
46: --
47:
48: PROCEDURE Get_Printer (
220: -- Removed Label_Id parameter for Bug 2996792.
221: Select_Printer( p_concurrent_program_id, l_organization_id, level_table(i).level_type_id,
222: level_table(i).level_value_id, p_equipment_instance, x_printer);
223: if x_printer is not null then -- was able to get a printer
224: x_api_status := FND_API.G_RET_STS_SUCCESS;
225: x_error_message := null;
226: --
227: -- Debug Statements
228: --
262: and (equipment_instance is null and p_equipment_instance is not null)
263: and rownum = 1; -- make sure we get only 1 row.
264:
265: if x_printer is not null then -- was able to get a printer
266: x_api_status := FND_API.G_RET_STS_SUCCESS;
267: x_error_message := null;
268: --
269: -- Debug Statements
270: --
302: END IF;
303: --
304: EXCEPTION
305: when NULL_PROGRAM_ID then
306: x_api_status := FND_API.G_RET_STS_ERROR;
307: FND_MESSAGE.Set_Name('WSH', 'WSH_DEFPRT_NULL_PROGID');
308: x_error_message := fnd_message.get;
309:
310: --
315: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NULL_PROGRAM_ID');
316: END IF;
317: --
318: when NULL_LEVELS then
319: x_api_status := FND_API.G_RET_STS_ERROR;
320: FND_MESSAGE.Set_Name('WSH', 'WSH_DEFPRT_NULL_LEVEL');
321: x_error_message := fnd_message.get;
322:
323: --
328: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NULL_LEVELS');
329: END IF;
330: --
331: when NULL_EQUIPMENT_INSTANCE then
332: x_api_status := FND_API.G_RET_STS_ERROR;
333: FND_MESSAGE.Set_Name('WSH', 'WSH_DEFPRT_NULL_EQINST');
334: x_error_message := fnd_message.get;
335:
336: --
341: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NULL_EQUIPMENT_INSTANCE');
342: END IF;
343: --
344: when NULL_EQUIPMENT_TYPE then
345: x_api_status := FND_API.G_RET_STS_ERROR;
346: FND_MESSAGE.Set_Name('WSH', 'WSH_DEFPRT_NULL_EQUIP');
347: x_error_message := fnd_message.get;
348:
349: --
354: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NULL_EQUIPMENT_TYPE');
355: END IF;
356: --
357: when NULL_organization_id then
358: x_api_status := FND_API.G_RET_STS_ERROR;
359: FND_MESSAGE.Set_Name('WSH', 'WSH_DEFPRT_NULL_ORG');
360: x_error_message := fnd_message.get;
361:
362: --
367: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NULL_ORGANIZATION_ID');
368: END IF;
369: --
370: when PRINTER_NOT_FOUND then
371: x_api_status := FND_API.G_RET_STS_ERROR;
372: FND_MESSAGE.Set_Name('WSH', 'WSH_DEFPRT_NOTFOUND');
373: x_error_message := fnd_message.get;
374:
375: --
380: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:PRINTER_NOT_FOUND');
381: END IF;
382: --
383: when OTHERS then
384: x_api_status := FND_API.G_RET_STS_UNEXP_ERROR;
385: FND_MESSAGE.Set_Name('WSH', 'WSH_UNEXP_ERROR');
386: FND_MESSAGE.set_token ('PACKAGE',g_pkg_name);
387: FND_MESSAGE.set_token ('ORA_ERROR',to_char(sqlcode));
388: FND_MESSAGE.set_token ('ORA_TEXT','Failure in performing action');