325: nextBlock VARCHAR2(2000);
326: i BINARY_INTEGER;
327: BEGIN
328: i := 0;
329: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
330: FND_MESSAGE.Set_Token('PACKAGE',function_name);
331: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
332: FND_MESSAGE.Set_Token('ORA_TEXT',msg_txt);
333: IF Wshsrc = 'u' THEN
326: i BINARY_INTEGER;
327: BEGIN
328: i := 0;
329: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
330: FND_MESSAGE.Set_Token('PACKAGE',function_name);
331: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
332: FND_MESSAGE.Set_Token('ORA_TEXT',msg_txt);
333: IF Wshsrc = 'u' THEN
334: APP_EXCEPTION.Raise_Exception;
327: BEGIN
328: i := 0;
329: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
330: FND_MESSAGE.Set_Token('PACKAGE',function_name);
331: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
332: FND_MESSAGE.Set_Token('ORA_TEXT',msg_txt);
333: IF Wshsrc = 'u' THEN
334: APP_EXCEPTION.Raise_Exception;
335: ELSE
328: i := 0;
329: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
330: FND_MESSAGE.Set_Token('PACKAGE',function_name);
331: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
332: FND_MESSAGE.Set_Token('ORA_TEXT',msg_txt);
333: IF Wshsrc = 'u' THEN
334: APP_EXCEPTION.Raise_Exception;
335: ELSE
336: theMessage := FND_MESSAGE.Get;
332: FND_MESSAGE.Set_Token('ORA_TEXT',msg_txt);
333: IF Wshsrc = 'u' THEN
334: APP_EXCEPTION.Raise_Exception;
335: ELSE
336: theMessage := FND_MESSAGE.Get;
337: tempMessage := theMessage;
338:
339: LOOP
340: firstBlock := SUBSTR(tempMessage,1,80);
445:
446: IF (delivery_id IS NULL and departure_id IS NULL)
447: OR
448: (delivery_id = 0 AND departure_id = 0 ) THEN
449: FND_MESSAGE.Set_Name('OE','WSH_UTL_INVALID_PARA');
450: return FALSE;
451: END IF;
452:
453: x_return_val:= FND_TRANSACTION.Synchronous(1000,
463: TO_CHAR(0),
464: NULL);
465:
466: IF (x_return_val = 2) THEN
467: FND_MESSAGE.Set_Name('OE','SHP_ONLINE_NO_MANAGER');
468: return FALSE;
469: ELSIF (x_return_val <> 0) THEN
470: FND_MESSAGE.Set_Name('OE','SHP_AOL_ONLINE_FAILED');
471: FND_MESSAGE.Set_Token('PROGRAM','Update Shipping Information');
466: IF (x_return_val = 2) THEN
467: FND_MESSAGE.Set_Name('OE','SHP_ONLINE_NO_MANAGER');
468: return FALSE;
469: ELSIF (x_return_val <> 0) THEN
470: FND_MESSAGE.Set_Name('OE','SHP_AOL_ONLINE_FAILED');
471: FND_MESSAGE.Set_Token('PROGRAM','Update Shipping Information');
472: return FALSE;
473: ELSE
474: IF (x_return_msg = 'FAILURE') THEN
467: FND_MESSAGE.Set_Name('OE','SHP_ONLINE_NO_MANAGER');
468: return FALSE;
469: ELSIF (x_return_val <> 0) THEN
470: FND_MESSAGE.Set_Name('OE','SHP_AOL_ONLINE_FAILED');
471: FND_MESSAGE.Set_Token('PROGRAM','Update Shipping Information');
472: return FALSE;
473: ELSE
474: IF (x_return_msg = 'FAILURE') THEN
475: x_return_val := FND_TRANSACTION.get_values(x_check_failure,
492: x_dummy,
493: x_dummy,
494: x_dummy);
495: IF (x_check_failure = 'SUCCESS') THEN
496: FND_MESSAGE.Set_Name('OE','WSH_INVENTORY_INTERFACE_FAILED');
497: RETURN FALSE;
498: ELSE
499: FND_MESSAGE.Set_Name('OE','WSH_UPDATE_SHIPPING_FAILED');
500: RETURN FALSE;
495: IF (x_check_failure = 'SUCCESS') THEN
496: FND_MESSAGE.Set_Name('OE','WSH_INVENTORY_INTERFACE_FAILED');
497: RETURN FALSE;
498: ELSE
499: FND_MESSAGE.Set_Name('OE','WSH_UPDATE_SHIPPING_FAILED');
500: RETURN FALSE;
501: END IF;
502: ELSE
503: -- Transaction manager went through and successfully closed the pick slip
506: END IF;
507: EXCEPTION
508:
509: WHEN OTHERS THEN
510: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
511: FND_MESSAGE.Set_Token('PACKAGE','WSH_UTIL.sc_online');
512: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
513: FND_MESSAGE.Set_Token('ORA_TEXT','Unexpected exception');
514: RETURN FALSE;
507: EXCEPTION
508:
509: WHEN OTHERS THEN
510: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
511: FND_MESSAGE.Set_Token('PACKAGE','WSH_UTIL.sc_online');
512: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
513: FND_MESSAGE.Set_Token('ORA_TEXT','Unexpected exception');
514: RETURN FALSE;
515:
508:
509: WHEN OTHERS THEN
510: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
511: FND_MESSAGE.Set_Token('PACKAGE','WSH_UTIL.sc_online');
512: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
513: FND_MESSAGE.Set_Token('ORA_TEXT','Unexpected exception');
514: RETURN FALSE;
515:
516: END sc_online;
509: WHEN OTHERS THEN
510: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
511: FND_MESSAGE.Set_Token('PACKAGE','WSH_UTIL.sc_online');
512: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
513: FND_MESSAGE.Set_Token('ORA_TEXT','Unexpected exception');
514: RETURN FALSE;
515:
516: END sc_online;
517:
533: END IF;
534:
535: EXCEPTION
536: WHEN OTHERS THEN
537: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
538: FND_MESSAGE.Set_Token('PACKAGE','WSH_UTIL');
539: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
540: FND_MESSAGE.Set_Token('ORA_TEXT','Failure initializing package');
541: APP_EXCEPTION.Raise_Exception;
534:
535: EXCEPTION
536: WHEN OTHERS THEN
537: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
538: FND_MESSAGE.Set_Token('PACKAGE','WSH_UTIL');
539: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
540: FND_MESSAGE.Set_Token('ORA_TEXT','Failure initializing package');
541: APP_EXCEPTION.Raise_Exception;
542:
535: EXCEPTION
536: WHEN OTHERS THEN
537: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
538: FND_MESSAGE.Set_Token('PACKAGE','WSH_UTIL');
539: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
540: FND_MESSAGE.Set_Token('ORA_TEXT','Failure initializing package');
541: APP_EXCEPTION.Raise_Exception;
542:
543: END WSH_UTIL;
536: WHEN OTHERS THEN
537: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
538: FND_MESSAGE.Set_Token('PACKAGE','WSH_UTIL');
539: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
540: FND_MESSAGE.Set_Token('ORA_TEXT','Failure initializing package');
541: APP_EXCEPTION.Raise_Exception;
542:
543: END WSH_UTIL;