87: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
88: --
89: IF l_debug_on IS NULL
90: THEN
91: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
92: END IF;
93: --
94: IF l_debug_on THEN
95: WSH_DEBUG_SV.push(l_module_name);
91: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
92: END IF;
93: --
94: IF l_debug_on THEN
95: WSH_DEBUG_SV.push(l_module_name);
96: --
97: WSH_DEBUG_SV.log(l_module_name,'P_CONCURRENT_PROGRAM_ID',P_CONCURRENT_PROGRAM_ID);
98: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
99: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_TYPE_ID',P_EQUIPMENT_TYPE_ID);
93: --
94: IF l_debug_on THEN
95: WSH_DEBUG_SV.push(l_module_name);
96: --
97: WSH_DEBUG_SV.log(l_module_name,'P_CONCURRENT_PROGRAM_ID',P_CONCURRENT_PROGRAM_ID);
98: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
99: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_TYPE_ID',P_EQUIPMENT_TYPE_ID);
100: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_INSTANCE',P_EQUIPMENT_INSTANCE);
101: WSH_DEBUG_SV.log(l_module_name,'P_USER_ID',P_USER_ID);
94: IF l_debug_on THEN
95: WSH_DEBUG_SV.push(l_module_name);
96: --
97: WSH_DEBUG_SV.log(l_module_name,'P_CONCURRENT_PROGRAM_ID',P_CONCURRENT_PROGRAM_ID);
98: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
99: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_TYPE_ID',P_EQUIPMENT_TYPE_ID);
100: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_INSTANCE',P_EQUIPMENT_INSTANCE);
101: WSH_DEBUG_SV.log(l_module_name,'P_USER_ID',P_USER_ID);
102: WSH_DEBUG_SV.log(l_module_name,'P_ZONE',P_ZONE);
95: WSH_DEBUG_SV.push(l_module_name);
96: --
97: WSH_DEBUG_SV.log(l_module_name,'P_CONCURRENT_PROGRAM_ID',P_CONCURRENT_PROGRAM_ID);
98: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
99: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_TYPE_ID',P_EQUIPMENT_TYPE_ID);
100: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_INSTANCE',P_EQUIPMENT_INSTANCE);
101: WSH_DEBUG_SV.log(l_module_name,'P_USER_ID',P_USER_ID);
102: WSH_DEBUG_SV.log(l_module_name,'P_ZONE',P_ZONE);
103: WSH_DEBUG_SV.log(l_module_name,'P_DEPARTMENT_ID',P_DEPARTMENT_ID);
96: --
97: WSH_DEBUG_SV.log(l_module_name,'P_CONCURRENT_PROGRAM_ID',P_CONCURRENT_PROGRAM_ID);
98: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
99: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_TYPE_ID',P_EQUIPMENT_TYPE_ID);
100: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_INSTANCE',P_EQUIPMENT_INSTANCE);
101: WSH_DEBUG_SV.log(l_module_name,'P_USER_ID',P_USER_ID);
102: WSH_DEBUG_SV.log(l_module_name,'P_ZONE',P_ZONE);
103: WSH_DEBUG_SV.log(l_module_name,'P_DEPARTMENT_ID',P_DEPARTMENT_ID);
104: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSIBILITY_ID',P_RESPONSIBILITY_ID);
97: WSH_DEBUG_SV.log(l_module_name,'P_CONCURRENT_PROGRAM_ID',P_CONCURRENT_PROGRAM_ID);
98: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
99: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_TYPE_ID',P_EQUIPMENT_TYPE_ID);
100: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_INSTANCE',P_EQUIPMENT_INSTANCE);
101: WSH_DEBUG_SV.log(l_module_name,'P_USER_ID',P_USER_ID);
102: WSH_DEBUG_SV.log(l_module_name,'P_ZONE',P_ZONE);
103: WSH_DEBUG_SV.log(l_module_name,'P_DEPARTMENT_ID',P_DEPARTMENT_ID);
104: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSIBILITY_ID',P_RESPONSIBILITY_ID);
105: WSH_DEBUG_SV.log(l_module_name,'P_APPLICATION_ID',P_APPLICATION_ID);
98: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
99: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_TYPE_ID',P_EQUIPMENT_TYPE_ID);
100: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_INSTANCE',P_EQUIPMENT_INSTANCE);
101: WSH_DEBUG_SV.log(l_module_name,'P_USER_ID',P_USER_ID);
102: WSH_DEBUG_SV.log(l_module_name,'P_ZONE',P_ZONE);
103: WSH_DEBUG_SV.log(l_module_name,'P_DEPARTMENT_ID',P_DEPARTMENT_ID);
104: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSIBILITY_ID',P_RESPONSIBILITY_ID);
105: WSH_DEBUG_SV.log(l_module_name,'P_APPLICATION_ID',P_APPLICATION_ID);
106: WSH_DEBUG_SV.log(l_module_name,'P_SITE_ID',P_SITE_ID);
99: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_TYPE_ID',P_EQUIPMENT_TYPE_ID);
100: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_INSTANCE',P_EQUIPMENT_INSTANCE);
101: WSH_DEBUG_SV.log(l_module_name,'P_USER_ID',P_USER_ID);
102: WSH_DEBUG_SV.log(l_module_name,'P_ZONE',P_ZONE);
103: WSH_DEBUG_SV.log(l_module_name,'P_DEPARTMENT_ID',P_DEPARTMENT_ID);
104: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSIBILITY_ID',P_RESPONSIBILITY_ID);
105: WSH_DEBUG_SV.log(l_module_name,'P_APPLICATION_ID',P_APPLICATION_ID);
106: WSH_DEBUG_SV.log(l_module_name,'P_SITE_ID',P_SITE_ID);
107: END IF;
100: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_INSTANCE',P_EQUIPMENT_INSTANCE);
101: WSH_DEBUG_SV.log(l_module_name,'P_USER_ID',P_USER_ID);
102: WSH_DEBUG_SV.log(l_module_name,'P_ZONE',P_ZONE);
103: WSH_DEBUG_SV.log(l_module_name,'P_DEPARTMENT_ID',P_DEPARTMENT_ID);
104: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSIBILITY_ID',P_RESPONSIBILITY_ID);
105: WSH_DEBUG_SV.log(l_module_name,'P_APPLICATION_ID',P_APPLICATION_ID);
106: WSH_DEBUG_SV.log(l_module_name,'P_SITE_ID',P_SITE_ID);
107: END IF;
108: --
101: WSH_DEBUG_SV.log(l_module_name,'P_USER_ID',P_USER_ID);
102: WSH_DEBUG_SV.log(l_module_name,'P_ZONE',P_ZONE);
103: WSH_DEBUG_SV.log(l_module_name,'P_DEPARTMENT_ID',P_DEPARTMENT_ID);
104: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSIBILITY_ID',P_RESPONSIBILITY_ID);
105: WSH_DEBUG_SV.log(l_module_name,'P_APPLICATION_ID',P_APPLICATION_ID);
106: WSH_DEBUG_SV.log(l_module_name,'P_SITE_ID',P_SITE_ID);
107: END IF;
108: --
109: if (p_concurrent_program_id is null )
102: WSH_DEBUG_SV.log(l_module_name,'P_ZONE',P_ZONE);
103: WSH_DEBUG_SV.log(l_module_name,'P_DEPARTMENT_ID',P_DEPARTMENT_ID);
104: WSH_DEBUG_SV.log(l_module_name,'P_RESPONSIBILITY_ID',P_RESPONSIBILITY_ID);
105: WSH_DEBUG_SV.log(l_module_name,'P_APPLICATION_ID',P_APPLICATION_ID);
106: WSH_DEBUG_SV.log(l_module_name,'P_SITE_ID',P_SITE_ID);
107: END IF;
108: --
109: if (p_concurrent_program_id is null )
110: then
226: --
227: -- Debug Statements
228: --
229: IF l_debug_on THEN
230: WSH_DEBUG_SV.pop(l_module_name);
231: END IF;
232: --
233: RETURN;
234: end if;
268: --
269: -- Debug Statements
270: --
271: IF l_debug_on THEN
272: WSH_DEBUG_SV.pop(l_module_name);
273: END IF;
274: --
275: RETURN;
276: end if;
288: --
289: -- Debug Statements
290: --
291: IF l_debug_on THEN
292: WSH_DEBUG_SV.pop(l_module_name);
293: END IF;
294: --
295: RETURN;
296:
297: --
298: -- Debug Statements
299: --
300: IF l_debug_on THEN
301: WSH_DEBUG_SV.pop(l_module_name);
302: END IF;
303: --
304: EXCEPTION
305: when NULL_PROGRAM_ID then
310: --
311: -- Debug Statements
312: --
313: IF l_debug_on THEN
314: WSH_DEBUG_SV.logmsg(l_module_name,'NULL_PROGRAM_ID exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
315: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NULL_PROGRAM_ID');
316: END IF;
317: --
318: when NULL_LEVELS then
311: -- Debug Statements
312: --
313: IF l_debug_on THEN
314: WSH_DEBUG_SV.logmsg(l_module_name,'NULL_PROGRAM_ID exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
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;
323: --
324: -- Debug Statements
325: --
326: IF l_debug_on THEN
327: WSH_DEBUG_SV.logmsg(l_module_name,'NULL_LEVELS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
328: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NULL_LEVELS');
329: END IF;
330: --
331: when NULL_EQUIPMENT_INSTANCE then
324: -- Debug Statements
325: --
326: IF l_debug_on THEN
327: WSH_DEBUG_SV.logmsg(l_module_name,'NULL_LEVELS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
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;
336: --
337: -- Debug Statements
338: --
339: IF l_debug_on THEN
340: WSH_DEBUG_SV.logmsg(l_module_name,'NULL_EQUIPMENT_INSTANCE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
341: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NULL_EQUIPMENT_INSTANCE');
342: END IF;
343: --
344: when NULL_EQUIPMENT_TYPE then
337: -- Debug Statements
338: --
339: IF l_debug_on THEN
340: WSH_DEBUG_SV.logmsg(l_module_name,'NULL_EQUIPMENT_INSTANCE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
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;
349: --
350: -- Debug Statements
351: --
352: IF l_debug_on THEN
353: WSH_DEBUG_SV.logmsg(l_module_name,'NULL_EQUIPMENT_TYPE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
354: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NULL_EQUIPMENT_TYPE');
355: END IF;
356: --
357: when NULL_organization_id then
350: -- Debug Statements
351: --
352: IF l_debug_on THEN
353: WSH_DEBUG_SV.logmsg(l_module_name,'NULL_EQUIPMENT_TYPE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
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;
362: --
363: -- Debug Statements
364: --
365: IF l_debug_on THEN
366: WSH_DEBUG_SV.logmsg(l_module_name,'NULL_ORGANIZATION_ID exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
367: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NULL_ORGANIZATION_ID');
368: END IF;
369: --
370: when PRINTER_NOT_FOUND then
363: -- Debug Statements
364: --
365: IF l_debug_on THEN
366: WSH_DEBUG_SV.logmsg(l_module_name,'NULL_ORGANIZATION_ID exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
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;
375: --
376: -- Debug Statements
377: --
378: IF l_debug_on THEN
379: WSH_DEBUG_SV.logmsg(l_module_name,'PRINTER_NOT_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
380: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:PRINTER_NOT_FOUND');
381: END IF;
382: --
383: when OTHERS then
376: -- Debug Statements
377: --
378: IF l_debug_on THEN
379: WSH_DEBUG_SV.logmsg(l_module_name,'PRINTER_NOT_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
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;
391: --
392: -- Debug Statements
393: --
394: IF l_debug_on THEN
395: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
396: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
397: END IF;
398: --
399: END Get_Printer;
392: -- Debug Statements
393: --
394: IF l_debug_on THEN
395: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
396: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
397: END IF;
398: --
399: END Get_Printer;
400:
442: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
443: --
444: IF l_debug_on IS NULL
445: THEN
446: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
447: END IF;
448: --
449: IF l_debug_on THEN
450: WSH_DEBUG_SV.push(l_module_name);
446: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
447: END IF;
448: --
449: IF l_debug_on THEN
450: WSH_DEBUG_SV.push(l_module_name);
451: --
452: WSH_DEBUG_SV.log(l_module_name,'P_CONCURRENT_PROGRAM_ID',P_CONCURRENT_PROGRAM_ID);
453: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
454: WSH_DEBUG_SV.log(l_module_name,'P_LEVEL_TYPE_ID',P_LEVEL_TYPE_ID);
448: --
449: IF l_debug_on THEN
450: WSH_DEBUG_SV.push(l_module_name);
451: --
452: WSH_DEBUG_SV.log(l_module_name,'P_CONCURRENT_PROGRAM_ID',P_CONCURRENT_PROGRAM_ID);
453: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
454: WSH_DEBUG_SV.log(l_module_name,'P_LEVEL_TYPE_ID',P_LEVEL_TYPE_ID);
455: WSH_DEBUG_SV.log(l_module_name,'P_LEVEL_VALUE_ID',P_LEVEL_VALUE_ID);
456: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_INSTANCE',P_EQUIPMENT_INSTANCE);
449: IF l_debug_on THEN
450: WSH_DEBUG_SV.push(l_module_name);
451: --
452: WSH_DEBUG_SV.log(l_module_name,'P_CONCURRENT_PROGRAM_ID',P_CONCURRENT_PROGRAM_ID);
453: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
454: WSH_DEBUG_SV.log(l_module_name,'P_LEVEL_TYPE_ID',P_LEVEL_TYPE_ID);
455: WSH_DEBUG_SV.log(l_module_name,'P_LEVEL_VALUE_ID',P_LEVEL_VALUE_ID);
456: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_INSTANCE',P_EQUIPMENT_INSTANCE);
457: END IF;
450: WSH_DEBUG_SV.push(l_module_name);
451: --
452: WSH_DEBUG_SV.log(l_module_name,'P_CONCURRENT_PROGRAM_ID',P_CONCURRENT_PROGRAM_ID);
453: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
454: WSH_DEBUG_SV.log(l_module_name,'P_LEVEL_TYPE_ID',P_LEVEL_TYPE_ID);
455: WSH_DEBUG_SV.log(l_module_name,'P_LEVEL_VALUE_ID',P_LEVEL_VALUE_ID);
456: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_INSTANCE',P_EQUIPMENT_INSTANCE);
457: END IF;
458: --
451: --
452: WSH_DEBUG_SV.log(l_module_name,'P_CONCURRENT_PROGRAM_ID',P_CONCURRENT_PROGRAM_ID);
453: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
454: WSH_DEBUG_SV.log(l_module_name,'P_LEVEL_TYPE_ID',P_LEVEL_TYPE_ID);
455: WSH_DEBUG_SV.log(l_module_name,'P_LEVEL_VALUE_ID',P_LEVEL_VALUE_ID);
456: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_INSTANCE',P_EQUIPMENT_INSTANCE);
457: END IF;
458: --
459: open printer;
452: WSH_DEBUG_SV.log(l_module_name,'P_CONCURRENT_PROGRAM_ID',P_CONCURRENT_PROGRAM_ID);
453: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
454: WSH_DEBUG_SV.log(l_module_name,'P_LEVEL_TYPE_ID',P_LEVEL_TYPE_ID);
455: WSH_DEBUG_SV.log(l_module_name,'P_LEVEL_VALUE_ID',P_LEVEL_VALUE_ID);
456: WSH_DEBUG_SV.log(l_module_name,'P_EQUIPMENT_INSTANCE',P_EQUIPMENT_INSTANCE);
457: END IF;
458: --
459: open printer;
460: fetch printer into x_printer;
461: close printer;
462: --
463: -- Debug Statements
464: --
465: WSH_DEBUG_SV.log(l_module_name,'Printer Selected : ',x_printer);
466: IF l_debug_on THEN
467: WSH_DEBUG_SV.pop(l_module_name);
468: END IF;
469: --
463: -- Debug Statements
464: --
465: WSH_DEBUG_SV.log(l_module_name,'Printer Selected : ',x_printer);
466: IF l_debug_on THEN
467: WSH_DEBUG_SV.pop(l_module_name);
468: END IF;
469: --
470: RETURN; -- irrespective of whether cursor failed to fetch anything, just return.
471:
472: --
473: -- Debug Statements
474: --
475: IF l_debug_on THEN
476: WSH_DEBUG_SV.pop(l_module_name);
477: END IF;
478: --
479: END Select_Printer;
480: