DBA Data[Home] [Help]

APPS.WSH_SHIPMENT_ADVICE_PKG dependencies on WSH_UTIL_CORE

Line 45: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;

41: l_debug_on BOOLEAN;
42: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Shipment_Advice_Inbound';
43: BEGIN
44: --
45: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
46: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
47: --
48: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
49: --

Line 46: WSH_UTIL_CORE.Set_Log_Level(p_log_level);

42: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Shipment_Advice_Inbound';
43: BEGIN
44: --
45: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
46: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
47: --
48: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
49: --
50: IF l_debug_on IS NULL

Line 90: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN

86: END IF;
87: --
88:
89:
90: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
91: l_completion_status := 'SUCCESS';
92: errbuf := 'Process Shipment Advices Program has completed successfully';
93: retcode := '0';
94: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN

Line 94: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN

90: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
91: l_completion_status := 'SUCCESS';
92: errbuf := 'Process Shipment Advices Program has completed successfully';
93: retcode := '0';
94: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
95: l_completion_status := 'WARNING';
96: errbuf := 'Process Shipment Advices Program has completed with warning';
97: retcode := '1';
98: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN

Line 98: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN

94: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
95: l_completion_status := 'WARNING';
96: errbuf := 'Process Shipment Advices Program has completed with warning';
97: retcode := '1';
98: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
99: l_completion_status := 'ERROR';
100: errbuf := 'Process Shipment Advices Program has completed with error';
101: retcode := '2';
102: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN

Line 102: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN

98: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
99: l_completion_status := 'ERROR';
100: errbuf := 'Process Shipment Advices Program has completed with error';
101: retcode := '2';
102: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
103: l_completion_status := 'UNEXPECTED ERROR';
104: errbuf := 'Process Shipment Advices Program has completed with unexpected error';
105: retcode := '2';
106: END IF;

Line 118: l_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;

114: END IF;
115: --
116: EXCEPTION
117: WHEN OTHERS THEN
118: l_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
119: errbuf := 'Process Shipment Advices Program is completed with unexpected error - ' || SQLCODE;
120: retcode := '2';
121: --
122: IF l_debug_on THEN

Line 247: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;

243: wsh_debug_sv.log(l_module_name, 'p_transaction_id', p_transaction_id);
244: END IF;
245: --
246:
247: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
248: l_tpw_install := FND_PROFILE.Value('WSH_SR_SOURCE');
249: IF nvl(l_tpw_install, FND_API.G_MISS_CHAR) <> 'B' THEN
250: --
251: IF l_debug_on THEN

Line 498: l_tmp_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;

494: END IF;
495: --
496: END IF;
497:
498: l_tmp_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
499: l_total := l_total + 1;
500: --Fulfillment Batch XML Project
501: --If the tranaction record is in Errored status and a workflow exists,
502: --the 'Process Shipment Advice' activity in workflow will be 'retried'

Line 528: l_tmp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;

524: wsh_debug_sv.log(l_module_name,'l_trx_status', l_trx_status);
525: END IF;
526:
527: IF l_trx_status <> 'SC' THEN
528: l_tmp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
529: END IF;
530:
531: ELSE
532: --

Line 548: IF l_tmp_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN

544: END IF;
545: --
546: END IF; --Fulfillment Batch XML Project
547: -- API Process_Shipment_Advice will return WARNING if its not able to lock tables.
548: IF l_tmp_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
549: l_success := l_success + 1;
550: ELSIF l_tmp_status = WSH_UTIL_CORE.G_RET_STS_ERROR
551: THEN
552: l_errors := l_errors + 1;

Line 550: ELSIF l_tmp_status = WSH_UTIL_CORE.G_RET_STS_ERROR

546: END IF; --Fulfillment Batch XML Project
547: -- API Process_Shipment_Advice will return WARNING if its not able to lock tables.
548: IF l_tmp_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
549: l_success := l_success + 1;
550: ELSIF l_tmp_status = WSH_UTIL_CORE.G_RET_STS_ERROR
551: THEN
552: l_errors := l_errors + 1;
553: ELSIF l_tmp_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
554: THEN

Line 553: ELSIF l_tmp_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR

549: l_success := l_success + 1;
550: ELSIF l_tmp_status = WSH_UTIL_CORE.G_RET_STS_ERROR
551: THEN
552: l_errors := l_errors + 1;
553: ELSIF l_tmp_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
554: THEN
555: --
556: IF l_debug_on THEN
557: wsh_debug_sv.log(l_module_name,'Unexpected error occurred in Process_Shipment_Advice', l_tmp_status);

Line 581: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;

577: END IF;
578: END IF;
579:
580: IF (l_total = l_success) THEN
581: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
582: ELSIF (l_total = l_errors) THEN
583: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
584: ELSE
585: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;

Line 583: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;

579:
580: IF (l_total = l_success) THEN
581: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
582: ELSIF (l_total = l_errors) THEN
583: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
584: ELSE
585: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
586: END IF;
587:

Line 585: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;

581: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
582: ELSIF (l_total = l_errors) THEN
583: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
584: ELSE
585: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
586: END IF;
587:
588: --
589: IF l_debug_on THEN

Line 609: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;

605: END IF;
606: --
607: EXCEPTION
608: when FND_API.G_EXC_ERROR then
609: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
610: IF p_transaction_id is not null THEN
611: IF C_Get_One_Transactions%ISOPEN THEN
612: CLOSE C_Get_One_Transactions;
613: END IF;

Line 647: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;

643: END IF;
644: --
645:
646: WHEN OTHERS THEN
647: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
648: IF p_transaction_id is not null THEN
649: IF C_Get_One_Transactions%ISOPEN THEN
650: CLOSE C_Get_One_Transactions;
651: END IF;