[Home] [Help]
138: -- OTM R12
139: -- g. Freight Costs
140: -- h. Stamping the loading sequence number for WMS org
141: -- i. Calling WMS api to send the Dock Appointment info. from OTM to WMS for WMS org.
142: -- j. If any errors exist, then log errors in wsh_interface_errors table and
143: -- (error)exceptions for all the deliveries within this GC3 trip (as per l_dleg_info_tab)
144: -- Elsif no errors encountered: Log (info only) Delivery Exception, Update Interface Status
145: -- to 'ANSWER_RECEIVED', Purge
146: -- END LOOP;
1383:
1384: -- Errors are logged always for the deliveries
1385: --FORALL l_del_wti_index in INDICES OF l_del_wti_tab
1386: FORALL i in l_del_wti_tab.FIRST..l_del_wti_tab.LAST
1387: DELETE from wsh_interface_errors wie
1388: WHERE wie.interface_table_name = 'WSH_NEW_DEL_INTERFACE'
1389: AND wie.interface_id in (
1390: select wdli.delivery_interface_id
1391: from wsh_trip_stops_interface wtsi,
3769: -- For Delete Shipment Cases, there will not be any delivery level information
3770: IF l_dleg_local_tab.count > 0 THEN--{
3771: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN--{
3772:
3773: -- Insert record in wsh_interface_errors table
3774: -- Generic error message is to be logged against all deliveries
3775: -- Handled in stamp_interface_errors
3776: stamp_interface_error(
3777: p_group_id => l_trip_info_tab(i).group_id, --Bug7717569 replaced p_group_id with l_trip_info_tab(i).group_id
4181: -- for WSH_OTM_SHIPMENT_ERROR
4182: -- elsif p_exception_action = CLOSE, then close the exception
4183: -- for WSH_OTM_SHIPMENT_ERROR(used for reprocessing from Interface Mesg
4184: -- Corrections Form)
4185: -- Purge any records in wsh_interface_errors
4186: -- Purge records in wsh_new_del_interface
4187: -- Purge records in wsh_del_legs_interface
4188: -- Purge records in wsh_trip_stops_interface
4189: -- Purge records in wsh_trips_interface
4313: and we.exception_name IN ('WSH_OTM_SHIPMENT_ERROR','WSH_OTM_INVALID_LOC')
4314: and we.status = 'OPEN';
4315: END IF;--}
4316:
4317: -- Purge wsh_interface_errors
4318: -- for each of the above entity, there could be errors logged in wsh_interface_errors
4319: -- table_name can be WSH_NEW_DEL_INTERFACE, WSH_TRIP_STOPS_INTERFACE,
4320: -- WSH_TRIPS_INTERFACE
4321:
4314: and we.status = 'OPEN';
4315: END IF;--}
4316:
4317: -- Purge wsh_interface_errors
4318: -- for each of the above entity, there could be errors logged in wsh_interface_errors
4319: -- table_name can be WSH_NEW_DEL_INTERFACE, WSH_TRIP_STOPS_INTERFACE,
4320: -- WSH_TRIPS_INTERFACE
4321:
4322: IF l_debug_on THEN
4323: WSH_DEBUG_SV.logmsg(l_module_name,'Start Purging Interface Errors Data for delivery');
4324: END IF;
4325: -- Delete errors logged for deliveries
4326: FORALL i in l_trip_interface_id_tab.FIRST..l_trip_interface_id_tab.LAST
4327: Delete from wsh_interface_errors wie
4328: where wie.interface_table_name = 'WSH_NEW_DEL_INTERFACE'
4329: and wie.interface_id in (
4330: select wdli.delivery_interface_id
4331: from wsh_trip_stops_interface wtsi,
4340: WSH_DEBUG_SV.logmsg(l_module_name,'Start Purging Interface Errors Data for Trip Stops');
4341: END IF;
4342: -- Delete errors logged for trip stops
4343: FORALL i in l_trip_interface_id_tab.FIRST..l_trip_interface_id_tab.LAST
4344: Delete from wsh_interface_errors wie
4345: where wie.interface_table_name = 'WSH_TRIP_STOPS_INTERFACE'
4346: and wie.interface_id in (
4347: select wtsi.stop_interface_id
4348: from wsh_trip_stops_interface wtsi
4354: IF l_debug_on THEN
4355: WSH_DEBUG_SV.logmsg(l_module_name,'Start Purging Interface Errors Data for Trips');
4356: END IF;
4357: FORALL i in l_trip_interface_id_tab.FIRST..l_trip_interface_id_tab.LAST
4358: Delete from wsh_interface_errors wie
4359: where wie.interface_table_name = 'WSH_TRIPS_INTERFACE'
4360: and wie.interface_id = l_trip_interface_id_tab(i)
4361: and wie.interface_action_code = G_TMS_RELEASE_CODE;
4362:
4458: -- p_token_3_value optional token 3 value
4459: -- p_token_4_name optional token 4 name
4460: -- p_token_4_value optional token 4 value
4461: -- p_dleg_tab Table of Delivery Leg information
4462: -- x_errors_tab list of errors to insert into wsh_interface_errors at the end
4463: -- x_return_status return status
4464: --
4465: -- Description:
4466: -- Inserts the error information for each delivery
4485: p_dleg_tab IN TMS_DLEG_TAB_TYPE,
4486: x_errors_tab IN OUT NOCOPY INTERFACE_ERRORS_TAB_TYPE,
4487: x_return_status OUT NOCOPY VARCHAR2) IS
4488:
4489: TYPE text_tab_type IS TABLE OF WSH_INTERFACE_ERRORS.ERROR_MESSAGE%TYPE INDEX BY BINARY_INTEGER;
4490: --
4491: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'STAMP_INTERFACE_ERROR';
4492: --
4493: l_debug_on BOOLEAN;
4624: END LOOP;
4625:
4626: IF l_dlvy_id_tab.count > 0 THEN
4627: FORALL i IN p_dleg_tab.FIRST .. p_dleg_tab.LAST
4628: INSERT INTO WSH_INTERFACE_ERRORS (
4629: INTERFACE_ERROR_ID,
4630: INTERFACE_ERROR_GROUP_ID,
4631: INTERFACE_TABLE_NAME,
4632: INTERFACE_ID,
4637: CREATED_BY,
4638: LAST_UPDATE_DATE,
4639: LAST_UPDATED_BY)
4640: VALUES (
4641: WSH_INTERFACE_ERRORS_S.nextval,
4642: p_group_id, --l_groups(i),
4643: 'WSH_NEW_DEL_INTERFACE', --l_table_names(i),
4644: l_dlvy_id_tab(i),--l_interface_ids(i),
4645: G_TMS_RELEASE_CODE,