DBA Data[Home] [Help]

APPS.WSH_SHIPMENT_BATCH_PKG dependencies on WSH_UTIL_CORE

Line 63: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;

59: l_debug_on BOOLEAN;
60: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Create_Shipment_Batch1';
61: BEGIN
62: --
63: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
64: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
65: --
66: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
67: --

Line 64: WSH_UTIL_CORE.Set_Log_Level(p_log_level);

60: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Create_Shipment_Batch1';
61: BEGIN
62: --
63: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
64: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
65: --
66: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
67: --
68: IF l_debug_on IS NULL

Line 120: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN

116: WSH_DEBUG_SV.log(l_module_name, 'Return Status of Create_Shipment_Batch', l_return_status);
117: END IF;
118: --
119:
120: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
121: l_completion_status := 'SUCCESS';
122: errbuf := 'Create Shipment Batches Program has completed successfully';
123: retcode := '0';
124: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN

Line 124: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN

120: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
121: l_completion_status := 'SUCCESS';
122: errbuf := 'Create Shipment Batches Program has completed successfully';
123: retcode := '0';
124: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
125: l_completion_status := 'WARNING';
126: errbuf := 'Create Shipment Batches Program has completed with warning';
127: retcode := '1';
128: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN

Line 128: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN

124: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
125: l_completion_status := 'WARNING';
126: errbuf := 'Create Shipment Batches Program has completed with warning';
127: retcode := '1';
128: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
129: l_completion_status := 'ERROR';
130: errbuf := 'Create Shipment Batches Program has completed with error';
131: retcode := '2';
132: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN

Line 132: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN

128: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
129: l_completion_status := 'ERROR';
130: errbuf := 'Create Shipment Batches Program has completed with error';
131: retcode := '2';
132: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
133: l_completion_status := 'UNEXPECTED ERROR';
134: errbuf := 'Create Shipment Batches Program has completed with unexpected error';
135: retcode := '2';
136: END IF;

Line 138: IF l_return_status in ( WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING )

134: errbuf := 'Create Shipment Batches Program has completed with unexpected error';
135: retcode := '2';
136: END IF;
137:
138: IF l_return_status in ( WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING )
139: THEN
140: --
141: IF l_debug_on THEN
142: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting the transaction......');

Line 165: l_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;

161: END IF;
162: --
163: EXCEPTION
164: WHEN OTHERS THEN
165: l_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
166: errbuf := 'Create Shipment Batches Program is completed with unexpected error - ' || SQLCODE;
167: retcode := '2';
168: --
169: IF l_debug_on THEN

Line 296: l_dd_batch_id_tbl WSH_UTIL_CORE.Id_Tab_Type;

292: l_fob_code_tbl DBMS_SQL.Varchar2_Table;
293: l_group_id_tbl DBMS_SQL.Number_Table;
294:
295: l_shipment_batch_tbl Shipment_Batch_Tbl;
296: l_dd_batch_id_tbl WSH_UTIL_CORE.Id_Tab_Type;
297: l_dd_line_num_tbl WSH_UTIL_CORE.Id_Tab_Type;
298: l_wdd_update_flag WSH_UTIL_CORE.Column_Tab_Type;
299: l_batch_tbl WSH_UTIL_CORE.Id_Tab_Type;
300: --Fulfillment Batch XML Project --Start

Line 297: l_dd_line_num_tbl WSH_UTIL_CORE.Id_Tab_Type;

293: l_group_id_tbl DBMS_SQL.Number_Table;
294:
295: l_shipment_batch_tbl Shipment_Batch_Tbl;
296: l_dd_batch_id_tbl WSH_UTIL_CORE.Id_Tab_Type;
297: l_dd_line_num_tbl WSH_UTIL_CORE.Id_Tab_Type;
298: l_wdd_update_flag WSH_UTIL_CORE.Column_Tab_Type;
299: l_batch_tbl WSH_UTIL_CORE.Id_Tab_Type;
300: --Fulfillment Batch XML Project --Start
301: l_raise_batch_tbl WSH_UTIL_CORE.Id_Tab_Type;

Line 298: l_wdd_update_flag WSH_UTIL_CORE.Column_Tab_Type;

294:
295: l_shipment_batch_tbl Shipment_Batch_Tbl;
296: l_dd_batch_id_tbl WSH_UTIL_CORE.Id_Tab_Type;
297: l_dd_line_num_tbl WSH_UTIL_CORE.Id_Tab_Type;
298: l_wdd_update_flag WSH_UTIL_CORE.Column_Tab_Type;
299: l_batch_tbl WSH_UTIL_CORE.Id_Tab_Type;
300: --Fulfillment Batch XML Project --Start
301: l_raise_batch_tbl WSH_UTIL_CORE.Id_Tab_Type;
302: l_be_return_status VARCHAR2(1);

Line 299: l_batch_tbl WSH_UTIL_CORE.Id_Tab_Type;

295: l_shipment_batch_tbl Shipment_Batch_Tbl;
296: l_dd_batch_id_tbl WSH_UTIL_CORE.Id_Tab_Type;
297: l_dd_line_num_tbl WSH_UTIL_CORE.Id_Tab_Type;
298: l_wdd_update_flag WSH_UTIL_CORE.Column_Tab_Type;
299: l_batch_tbl WSH_UTIL_CORE.Id_Tab_Type;
300: --Fulfillment Batch XML Project --Start
301: l_raise_batch_tbl WSH_UTIL_CORE.Id_Tab_Type;
302: l_be_return_status VARCHAR2(1);
303: l_txns_history_rec WSH_TRANSACTIONS_HISTORY_PKG.Txns_History_Record_Type;

Line 301: l_raise_batch_tbl WSH_UTIL_CORE.Id_Tab_Type;

297: l_dd_line_num_tbl WSH_UTIL_CORE.Id_Tab_Type;
298: l_wdd_update_flag WSH_UTIL_CORE.Column_Tab_Type;
299: l_batch_tbl WSH_UTIL_CORE.Id_Tab_Type;
300: --Fulfillment Batch XML Project --Start
301: l_raise_batch_tbl WSH_UTIL_CORE.Id_Tab_Type;
302: l_be_return_status VARCHAR2(1);
303: l_txns_history_rec WSH_TRANSACTIONS_HISTORY_PKG.Txns_History_Record_Type;
304: wsh_raise_event_error EXCEPTION;
305: l_dist_src_entity_profile VARCHAR2 (10);

Line 348: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;

344: WSH_DEBUG_SV.log(l_module_name, 'p_include_lines_with_hold', p_include_lines_with_hold);
345: END IF;
346: --
347:
348: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
349:
350: l_dist_src_entity_profile := NVL(FND_PROFILE.VALUE('WSH_SR_SOURCE'),'D'); --Fulfillment Batch XML Project
351:
352: OPEN c_wh_flag_cur; --Fulfillment Batch XML Project

Line 376: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN

372: WSH_DEBUG_SV.log(l_module_name, 'l_wh_type,l_return_status',l_wh_type||','||l_return_status);
373: END IF;
374: --
375:
376: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
377: --
378: IF l_debug_on THEN
379: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type returned error');
380: END IF;

Line 748: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN

744: p_source_code => 'OE',
745: p_init_flag => 'N',
746: x_return_status => l_return_status);
747:
748: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
749: RAISE Credit_or_Hold_Failed;
750: END IF;
751: END IF;
752: --Bug 14620571 - End

Line 763: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;

759: END IF;
760:
761: EXCEPTION
762: WHEN Credit_or_Hold_Failed THEN
763: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
764: --Delivery Detail cannot be assigned to batch.
765: l_wdd_update_flag(i) := 'N';
766: l_dd_line_num_tbl(i) := 0;
767: l_dd_batch_id_tbl(i) := 0;

Line 775: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;

771: END IF;
772: --
773: goto skip_record;
774: WHEN RECORD_LOCKED THEN
775: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
776: --Delivery Detail cannot be assigned to batch.
777: l_wdd_update_flag(i) := 'N';
778: l_dd_line_num_tbl(i) := 0;
779: l_dd_batch_id_tbl(i) := 0;

Line 782: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );

778: l_dd_line_num_tbl(i) := 0;
779: l_dd_batch_id_tbl(i) := 0;
780: FND_MESSAGE.Set_Name('WSH', 'WSH_DLVB_LOCK_FAILED');
781: FND_MESSAGE.Set_Token('ENTITY_NAME', l_del_detail_tbl(i));
782: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
783: --
784: IF l_debug_on THEN
785: WSH_DEBUG_SV.log(l_module_name,'Warning: Not able to obtain lock, so skipping delivery detail', l_del_detail_tbl(i) );
786: END IF;

Line 979: IF (l_be_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN

975:
976: IF l_debug_on THEN
977: WSH_DEBUG_SV.log(l_module_name, 'Return Status of Raise Business Event', l_be_return_status);
978: END IF;
979: IF (l_be_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
980: raise wsh_raise_event_error;
981: END IF;
982: END LOOP;
983:

Line 1066: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;

1062: --
1063:
1064: EXCEPTION
1065: when FND_API.G_EXC_ERROR then
1066: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1067: --
1068: IF l_debug_on THEN
1069: wsh_debug_sv.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1070: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');

Line 1074: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;

1070: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
1071: END IF;
1072: --
1073: WHEN wsh_raise_event_error THEN --Fulfillment Batch XML Project
1074: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1075: IF l_debug_on THEN
1076: wsh_debug_sv.logmsg(l_module_name,'wsh_raise_event_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1077: wsh_debug_sv.pop(l_module_name,'EXCEPTION:wsh_raise_event_error');
1078: END IF;

Line 1080: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;

1076: wsh_debug_sv.logmsg(l_module_name,'wsh_raise_event_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1077: wsh_debug_sv.pop(l_module_name,'EXCEPTION:wsh_raise_event_error');
1078: END IF;
1079: WHEN OTHERS THEN
1080: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1081: --
1082: IF l_debug_on THEN
1083: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1084: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');

Line 1139: l_unassign_detail_tab WSH_UTIL_CORE.Id_Tab_Type;

1135: l_cancel_quantity2 NUMBER;
1136:
1137: l_return_status VARCHAR2(1);
1138:
1139: l_unassign_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
1140:
1141: RECORD_LOCKED EXCEPTION;
1142: PRAGMA EXCEPTION_INIT(RECORD_LOCKED, -54);
1143:

Line 1165: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;

1161: WSH_DEBUG_SV.log(l_module_name, 'p_line_number', p_line_number);
1162: WSH_DEBUG_SV.log(l_module_name, 'p_cancel_quantity', p_cancel_quantity);
1163: END IF;
1164: --
1165: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1166: l_pending_cancel_qty := p_cancel_quantity;
1167:
1168: --{ Cursor Loops Ends
1169: FOR i in c_del_details

Line 1196: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN

1192: WSH_DEBUG_SV.log(l_module_name, 'Return Status of WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details', l_return_status);
1193: END IF;
1194: --
1195:
1196: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1197: x_return_status := l_return_status;
1198: RAISE FND_API.G_EXC_ERROR;
1199: ELSE
1200: l_unassign_detail_tab(l_unassign_detail_tab.count+1) := l_new_detail_id;

Line 1255: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;

1251: END IF;
1252: --
1253: EXCEPTION
1254: WHEN RECORD_LOCKED THEN
1255: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1256: --
1257: IF l_debug_on THEN
1258: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1259: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');

Line 1264: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN

1260: END IF;
1261: --
1262:
1263: WHEN FND_API.G_EXC_ERROR THEN
1264: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1265: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1266: END IF;
1267: --
1268: IF l_debug_on THEN

Line 1265: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;

1261: --
1262:
1263: WHEN FND_API.G_EXC_ERROR THEN
1264: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1265: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1266: END IF;
1267: --
1268: IF l_debug_on THEN
1269: WSH_DEBUG_SV.logmsg(l_module_name,'Rolling back the transactions');

Line 1278: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;

1274: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured while spliting line');
1275: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1276: END IF;
1277: WHEN others THEN
1278: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1279: --
1280: IF l_debug_on THEN
1281: WSH_DEBUG_SV.logmsg(l_module_name,'Rolling back the transactions');
1282: END IF;