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: --
311: -- Debug Statements
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: --
311: -- Debug Statements
312: --
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: --
324: -- Debug Statements
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: --
324: -- Debug Statements
325: --
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: --
337: -- Debug Statements
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: --
337: -- Debug Statements
338: --
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: --
350: -- Debug Statements
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: --
350: -- Debug Statements
351: --
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: --
363: -- Debug Statements
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: --
363: -- Debug Statements
364: --
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: --
376: -- Debug Statements
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: --
376: -- Debug Statements
377: --
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');
389: x_error_message := fnd_message.get;
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');
389: x_error_message := fnd_message.get;
390:
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');
389: x_error_message := fnd_message.get;
390:
391: --
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');
389: x_error_message := fnd_message.get;
390:
391: --
392: -- Debug Statements
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');
389: x_error_message := fnd_message.get;
390:
391: --
392: -- Debug Statements
393: --