[Home] [Help]
1: PACKAGE BODY WSH_ASN_RECEIPT_PVT as
2: /* $Header: WSHVASRB.pls 120.2 2005/10/26 02:00:40 rahujain noship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_ASN_RECEIPT_PVT';
1: PACKAGE BODY WSH_ASN_RECEIPT_PVT as
2: /* $Header: WSHVASRB.pls 120.2 2005/10/26 02:00:40 rahujain noship $ */
3:
4:
5: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_ASN_RECEIPT_PVT';
6: LIMITED_PRECISION NUMBER := 5;
7:
8: --{ --NNP-WV
9:
214: END IF;
215: --
216: WHEN OTHERS THEN
217: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
218: wsh_util_core.default_handler('WSH_ASN_RECEIPT_PVT.addWeightVolume');
219: --
220: -- Debug Statements
221: --
222: IF l_debug_on THEN
233: -- API name : processWeightVolume
234: -- Type : Public
235: -- Pre-reqs : None.
236: -- Function : The basic job of this API is to take care of the changes in gross weight,net weight
237: -- and volume changes.This it does by making calls to the API WSH_ASN_RECEIPT_PVT.addWeightVolume
238: -- by giving the appropriate inputs each time.
239: -- Parameters :
240: -- IN:
241: -- p_delivery_lpn_id IN NUMBER
339: IF p_delivery_lpn_id IS NOT NULL
340: THEN
341: --{
342: IF l_debug_on THEN
343: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.addWeightVolume-GWT',WSH_DEBUG_SV.C_PROC_LEVEL);
344: END IF;
345: --
346:
347: --call for changes in gross weight.
344: END IF;
345: --
346:
347: --call for changes in gross weight.
348: WSH_ASN_RECEIPT_PVT.addWeightVolume
349: (
350: p_key => p_delivery_lpn_id,
351: p_value => p_diff_gross_weight,
352: x_cacheTbl => x_GWTcacheTbl,
369: );
370: --
371: --
372: IF l_debug_on THEN
373: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.addWeightVolume-NWT',WSH_DEBUG_SV.C_PROC_LEVEL);
374: END IF;
375: --
376: --call for changes in net weight.
377: WSH_ASN_RECEIPT_PVT.addWeightVolume
373: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.addWeightVolume-NWT',WSH_DEBUG_SV.C_PROC_LEVEL);
374: END IF;
375: --
376: --call for changes in net weight.
377: WSH_ASN_RECEIPT_PVT.addWeightVolume
378: (
379: p_key => p_delivery_lpn_id,
380: p_value => p_diff_net_weight,
381: x_cacheTbl => x_NWTcacheTbl,
398: );
399: --
400: --
401: IF l_debug_on THEN
402: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.addWeightVolume-VOL',WSH_DEBUG_SV.C_PROC_LEVEL);
403: END IF;
404: --
405: --call for changes in volume.
406: WSH_ASN_RECEIPT_PVT.addWeightVolume
402: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.addWeightVolume-VOL',WSH_DEBUG_SV.C_PROC_LEVEL);
403: END IF;
404: --
405: --call for changes in volume.
406: WSH_ASN_RECEIPT_PVT.addWeightVolume
407: (
408: p_key => p_delivery_lpn_id,
409: p_value => p_diff_volume,
410: x_cacheTbl => x_VOLcacheTbl,
486: END IF;
487: --
488: WHEN OTHERS THEN
489: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
490: wsh_util_core.default_handler('WSH_ASN_RECEIPT_PVT.processWeightVolume');
491: --
492: -- Debug Statements
493: --
494: IF l_debug_on THEN
703: END IF;
704: --
705: WHEN OTHERS THEN
706: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
707: wsh_util_core.default_handler('WSH_ASN_RECEIPT_PVT.getNetWeightVolume');
708: --
709: -- Debug Statements
710: --
711: IF l_debug_on THEN
870: END IF;
871: --
872: WHEN OTHERS THEN
873: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
874: wsh_util_core.default_handler('WSH_ASN_RECEIPT_PVT.updateDlvyWeightVolume');
875: --
876: -- Debug Statements
877: --
878: IF l_debug_on THEN
1037: END IF;
1038: --
1039: WHEN OTHERS THEN
1040: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1041: wsh_util_core.default_handler('WSH_ASN_RECEIPT_PVT.updateLPNWeightVolume');
1042: --
1043: -- Debug Statements
1044: --
1045: IF l_debug_on THEN
1152: --
1153: --
1154: IF l_debug_on THEN
1155: WSH_DEBUG_SV.log(l_module_name,'l_diff_gross_weight',l_diff_gross_weight);
1156: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.getNetWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
1157: END IF;
1158: --
1159: --
1160: -- This API whether the weight/volume has changed for the given
1158: --
1159: --
1160: -- This API whether the weight/volume has changed for the given
1161: -- delivery/LPN and returns the difference if any.
1162: WSH_ASN_RECEIPT_PVT.getNetWeightVolume
1163: (
1164: p_key => l_delivery_lpn_id,
1165: x_NWTcachetbl => x_NWTcachetbl,
1166: x_NWTcacheExttbl => x_NWTcacheExttbl,
1194: IF p_entity = 'DLVY'
1195: THEN
1196: --{
1197: IF l_debug_on THEN
1198: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.updateDlvyWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
1199: END IF;
1200: --
1201: --
1202: WSH_ASN_RECEIPT_PVT.updateDlvyWeightVolume
1198: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.updateDlvyWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
1199: END IF;
1200: --
1201: --
1202: WSH_ASN_RECEIPT_PVT.updateDlvyWeightVolume
1203: (
1204: p_deliveryId => l_delivery_lpn_id,
1205: p_diff_gross_weight => l_diff_gross_weight,
1206: p_diff_net_weight => l_diff_net_weight,
1211: ELSIF p_entity = 'LPN'
1212: THEN
1213: --{
1214: IF l_debug_on THEN
1215: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.updateLPNWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
1216: END IF;
1217: --
1218: --
1219: WSH_ASN_RECEIPT_PVT.updateLPNWeightVolume
1215: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.updateLPNWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
1216: END IF;
1217: --
1218: --
1219: WSH_ASN_RECEIPT_PVT.updateLPNWeightVolume
1220: (
1221: p_LPNId => l_delivery_lpn_id,
1222: p_diff_gross_weight => l_diff_gross_weight,
1223: p_diff_net_weight => l_diff_net_weight,
1261: --
1262: --
1263: IF l_debug_on THEN
1264: WSH_DEBUG_SV.log(l_module_name,'l_diff_gross_weight',l_diff_gross_weight);
1265: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.getNetWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
1266: END IF;
1267: --
1268: --
1269: -- This API whether the weight/volume has changed for the given
1267: --
1268: --
1269: -- This API whether the weight/volume has changed for the given
1270: -- delivery/LPN and returns the difference if any.
1271: WSH_ASN_RECEIPT_PVT.getNetWeightVolume
1272: (
1273: p_key => l_delivery_lpn_id,
1274: x_NWTcachetbl => x_NWTcachetbl,
1275: x_NWTcacheExttbl => x_NWTcacheExttbl,
1303: IF p_entity = 'DLVY'
1304: THEN
1305: --{
1306: IF l_debug_on THEN
1307: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.updateDlvyWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
1308: END IF;
1309: --
1310: --
1311: WSH_ASN_RECEIPT_PVT.updateDlvyWeightVolume
1307: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.updateDlvyWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
1308: END IF;
1309: --
1310: --
1311: WSH_ASN_RECEIPT_PVT.updateDlvyWeightVolume
1312: (
1313: p_deliveryId => l_delivery_lpn_id,
1314: p_diff_gross_weight => l_diff_gross_weight,
1315: p_diff_net_weight => l_diff_net_weight,
1320: ELSIF p_entity = 'LPN'
1321: THEN
1322: --{
1323: IF l_debug_on THEN
1324: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.updateLPNWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
1325: END IF;
1326: --
1327: --
1328: WSH_ASN_RECEIPT_PVT.updateLPNWeightVolume
1324: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.updateLPNWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
1325: END IF;
1326: --
1327: --
1328: WSH_ASN_RECEIPT_PVT.updateLPNWeightVolume
1329: (
1330: p_LPNId => l_delivery_lpn_id,
1331: p_diff_gross_weight => l_diff_gross_weight,
1332: p_diff_net_weight => l_diff_net_weight,
1412: END IF;
1413: --
1414: WHEN OTHERS THEN
1415: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1416: wsh_util_core.default_handler('WSH_ASN_RECEIPT_PVT.updateWeightVolume');
1417: --
1418: -- Debug Statements
1419: --
1420: IF l_debug_on THEN
2859: IF l_line_rec.lpn_wv_frozen_flag <> 'Y'
2860: THEN
2861: --{
2862: IF l_debug_on THEN
2863: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.processWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
2864: END IF;
2865: --
2866: WSH_ASN_RECEIPT_PVT.processWeightVolume
2867: (
2862: IF l_debug_on THEN
2863: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.processWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
2864: END IF;
2865: --
2866: WSH_ASN_RECEIPT_PVT.processWeightVolume
2867: (
2868: p_delivery_lpn_id => l_line_rec.parent_delivery_detail_id,
2869: p_diff_gross_weight => l_diff_dd_gross_weight,
2870: p_diff_net_weight => l_diff_dd_net_weight,
2896: AND l_line_rec.dlvy_wv_frozen_flag <> 'Y'
2897: THEN
2898: --{
2899: IF l_debug_on THEN
2900: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.processWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
2901: END IF;
2902: --
2903: WSH_ASN_RECEIPT_PVT.processWeightVolume
2904: (
2899: IF l_debug_on THEN
2900: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.processWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
2901: END IF;
2902: --
2903: WSH_ASN_RECEIPT_PVT.processWeightVolume
2904: (
2905: p_delivery_lpn_id => l_line_rec.delivery_id,
2906: p_diff_gross_weight => l_diff_dd_gross_weight,
2907: p_diff_net_weight => l_diff_dd_net_weight,
3474: END IF;
3475: --}
3476:
3477: IF l_debug_on THEN
3478: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.INITIALIZE_TXNS',WSH_DEBUG_SV.C_PROC_LEVEL);
3479: END IF;
3480:
3481:
3482: Initialize_txns(
3546: END IF;
3547: --}
3548:
3549: IF l_debug_on THEN
3550: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.RECONFIGURE_DEL_TRIPS',WSH_DEBUG_SV.C_PROC_LEVEL);
3551: END IF;
3552:
3553:
3554: Reconfigure_del_trips(
3693: --
3694: WHEN OTHERS THEN
3695: ROLLBACK TO Process_Matched_Txns_PVT;
3696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3697: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_ASN_RECEIPT_PVT.Process_Matched_Txns',l_module_name);
3698:
3699:
3700: --
3701: -- Debug Statements
4036: --
4037:
4038: --Call Update status by passing list of the deliveries, trips and trip stops.
4039: IF l_debug_on THEN
4040: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.UPDATE_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
4041: END IF;
4042:
4043: update_status(
4044: p_action_prms => p_action_prms,
4211: --
4212: WHEN OTHERS THEN
4213: ROLLBACK TO Cancel_ASN_PVT;
4214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4215: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_ASN_RECEIPT_PVT.Cancel_ASN');
4216:
4217: --
4218: -- Debug Statements
4219: --
4545:
4546: EXCEPTION
4547: WHEN OTHERS THEN
4548: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4549: WSH_UTIL_CORE.Default_Handler('WSH_ASN_RECEIPT_PVT.UNASSIGN_OPEN_DET_FROM_DEL');
4550:
4551: --
4552: -- Debug Statements
4553: --
5009: WHERE trip_id = l_new_trip_ids(i);
5010: END IF;
5011:
5012: --collecting unique del ids into a table from a non-contiguous table, to be passed to
5013: --WSH_ASN_RECEIPT_PVT.UNASSIGN_OPEN_DET_FROM_DEL
5014:
5015: j := 1;
5016: l_ind := p_uniq_del_ids_tab.FIRST;
5017: WHILE l_ind IS NOT NULL
5028: --
5029: -- Debug Statements
5030: --
5031: IF l_debug_on THEN
5032: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.UNASSIGN_OPEN_DET_FROM_DEL',WSH_DEBUG_SV.C_PROC_LEVEL);
5033: WSH_DEBUG_SV.log(l_module_name,'l_del_ids.count',l_del_ids.count);
5034: END IF;
5035: --
5036: unassign_open_det_from_del(
5081: END IF;
5082: --
5083: WHEN OTHERS THEN
5084: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5085: WSH_UTIL_CORE.Default_Handler('WSH_ASN_RECEIPT_PVT.UPDATE_STATUS');
5086:
5087: --
5088: -- Debug Statements
5089: --
5341: --Once sorted, the records of the l_local_dd_rec are considered
5342: --to be in LOGICAL GROUPS based on the BOL. i.e records
5343: --having the same Trip,Delivery ID and BOL
5344: --are considered to be a logical group.
5345: --For every such group we need to execute WSH_ASN_RECEIPT_PVT.SYNCH_BOLS
5346: --for the first group within the delivery. For the subsequent groups, a call is made
5347: --to the API WSH_INBOUND_UTIL_PKG.SPLIT_INBOUND_DELIVERY to create a new delivery
5348: --for this logical group based on the existing Delivery ID.But the calls to
5349: --above mentioned APIs are not directly made from the current Procedure, rather the API
5398: l_wdd_tbl(l_wdd_tbl.count + 1) := l_local_dd_rec(i).del_detail_id ;
5399:
5400:
5401:
5402: -- WSH_ASN_RECEIPT_PVT.CREATE_UPDATE_WAYBILL_PSNO_BOL() is called
5403: -- 1. when ever the delivery changes from the previous record of l_local_dd_rec
5404: -- 2. when ever the BOl changes from the previous record of l_local_dd_rec
5405: -- 3. After this for loop(the outer most loop of this procedure) so that we don't
5406: -- miss the call for the last set of records.
5917: --
5918: WHEN OTHERS THEN
5919: ROLLBACK TO RECONFIG_DEL_TRIPS_PVT;
5920: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5921: WSH_UTIL_CORE.Default_Handler('WSH_ASN_RECEIPT_PVT.RECONFIGURE_DEL_TRIPS');
5922:
5923: --
5924: -- Debug Statements
5925: --
6109:
6110: EXCEPTION
6111: WHEN OTHERS THEN
6112: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
6113: WSH_UTIL_CORE.Default_Handler('WSH_ASN_RECEIPT_PVT.SORT_DD_REC');
6114: --
6115: -- Debug Statements
6116: --
6117: IF l_debug_on THEN
6213: -- delivery leg id, then the corresponding row is updated with the new BOL,
6214: -- if the BOLs are different i.e if the BOL passed as an input to this API
6215: -- is different from the BOL present in the table.
6216: -- If there is no row in the table wsh_document_instances for this
6217: -- delivery leg id, then the API WSH_ASN_RECEIPT_PVT.CREATE_UPDATE_INBOUND_DOCUMENT
6218: -- is called to create a new row.
6219:
6220: IF c_BOL%FOUND THEN
6221: IF ((p_bol IS NOT NULL) AND (nvl(p_bol,'$$$$') <> nvl(l_bol,'$$$$'))) THEN
6231: ELSIF (c_BOL%NOTFOUND) AND (p_bol IS NOT NULL) THEN
6232:
6233:
6234: IF l_debug_on THEN
6235: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.CREATE_UPDATE_INBOUND_DOCUMENT',WSH_DEBUG_SV.C_PROC_LEVEL);
6236: END IF;
6237:
6238:
6239: create_update_inbound_document (
6290: END IF;
6291: --
6292: WHEN OTHERS THEN
6293: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
6294: WSH_UTIL_CORE.Default_Handler('WSH_ASN_RECEIPT_PVT.SYNCH_BOLS',l_module_name);
6295:
6296: --
6297: -- Debug Statements
6298: --
6681: IF ( NOT(l_flag) AND(p_action_prms.action_code ='ASN' OR p_action_prms.action_code ='RECEIPT') )
6682: THEN
6683: --{
6684: IF l_debug_on THEN
6685: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.updateWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
6686: END IF;
6687: --
6688: --
6689: WSH_ASN_RECEIPT_PVT.updateWeightVolume
6685: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.updateWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
6686: END IF;
6687: --
6688: --
6689: WSH_ASN_RECEIPT_PVT.updateWeightVolume
6690: (
6691: p_entity => 'DLVY',
6692: x_GWTcachetbl => x_dlvyGWTcachetbl,
6693: x_GWTcacheExttbl => x_dlvyGWTcacheExttbl,
6710: x_num_errors => l_num_errors
6711: );
6712: --
6713: IF l_debug_on THEN
6714: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.updateWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
6715: END IF;
6716: --
6717: --
6718: WSH_ASN_RECEIPT_PVT.updateWeightVolume
6714: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.updateWeightVolume',WSH_DEBUG_SV.C_PROC_LEVEL);
6715: END IF;
6716: --
6717: --
6718: WSH_ASN_RECEIPT_PVT.updateWeightVolume
6719: (
6720: p_entity => 'LPN',
6721: x_GWTcachetbl => x_LPNGWTcachetbl,
6722: x_GWTcacheExttbl => x_LPNGWTcacheExttbl,
6762: EXCEPTION
6763: WHEN OTHERS THEN
6764: ROLLBACK TO UPDATE_STATUS_PVT;
6765: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
6766: WSH_UTIL_CORE.Default_Handler('WSH_ASN_RECEIPT_PVT.UPDATE_STATUS',l_module_name);
6767:
6768: --
6769: -- Debug Statements
6770: --
6934:
6935: EXCEPTION
6936: WHEN OTHERS THEN
6937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6938: WSH_UTIL_CORE.Default_Handler('WSH_ASN_RECEIPT_PVT.CONSOLIDATE_QTY',l_module_name);
6939:
6940: --
6941: -- Debug Statements
6942: --
7283:
7284: EXCEPTION
7285: WHEN OTHERS THEN
7286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7287: WSH_UTIL_CORE.Default_Handler('WSH_ASN_RECEIPT_PVT.POPULATE_UPDATE_DD_REC',l_module_name);
7288:
7289: --
7290: -- Debug Statements
7291: --
7535: -- with the BOL number curr_bol for the current Delivery.
7536: IF (c_get_last_leg%FOUND) AND (curr_bol IS NOT NULL) THEN
7537:
7538: IF l_debug_on THEN
7539: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.CREATE_UPDATE_INBOUND_DOCUMENT ',WSH_DEBUG_SV.C_PROC_LEVEL);
7540: END IF;
7541:
7542: --Call to API create_update_inbound_document
7543: create_update_inbound_document (
7575:
7576: IF c_get_last_leg%FOUND THEN
7577:
7578: IF l_debug_on THEN
7579: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.SYNCH_BOLS',WSH_DEBUG_SV.C_PROC_LEVEL);
7580: END IF;
7581:
7582: --API to update/synch the BOL.
7583: synch_bols(
7616:
7617: -- Update the Packing Slip number for the current delivery after checking
7618: -- for the existence of a matching record in wsh_document_instances.
7619: -- If there is no matching record insert a new record using the
7620: -- API WSH_ASN_RECEIPT_PVT.CREATE_UPDATE_INBOUND_DOCUMENT.
7621: IF ((l_psno_flag = 0) AND (l_psno IS NOT NULL) ) THEN
7622: UPDATE wsh_document_instances
7623: SET
7624: sequence_number = l_psno,
7633:
7634: IF SQL%NOTFOUND THEN
7635:
7636: IF l_debug_on THEN
7637: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ASN_RECEIPT_PVT.CREATE_UPDATE_INBOUND_DOCUMENT',WSH_DEBUG_SV.C_PROC_LEVEL);
7638: END IF;
7639:
7640: create_update_inbound_document (
7641: p_document_number => l_psno,
7714: END IF;
7715: --
7716: WHEN OTHERS THEN
7717: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
7718: WSH_UTIL_CORE.Default_Handler('WSH_ASN_RECEIPT_PVT.create_update_waybill_psno_bol',l_module_name);
7719:
7720: --
7721: -- Debug Statements
7722: --
8063: END IF;
8064: --
8065: WHEN OTHERS THEN
8066: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
8067: WSH_UTIL_CORE.Default_Handler('WSH_ASN_RECEIPT_PVT.create_update_inbound_document ',l_module_name);
8068: --
8069: -- Debug Statements
8070: --
8071: IF l_debug_on THEN
8082: -- API name : cancel_close_pending_txns
8083: -- Type : Public
8084: -- Pre-reqs : None.
8085: -- Function : This API calls the WSH_PO_CMG_PVT.close_cancel_po with two sets of data
8086: -- which were collected in the API WSH_ASN_RECEIPT_PVT.Process_Matched_Txns
8087: -- .These(two sets of data) contain rows which were tried to be closed or
8088: -- cancelled when txns were pending against them and therefore those lines
8089: -- have to be closed when the txns have been matched.This job is taken care
8090: -- of this API.
8236: END IF;
8237: --
8238: WHEN OTHERS THEN
8239: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
8240: WSH_UTIL_CORE.Default_Handler('WSH_ASN_RECEIPT_PVT.cancel_close_pending_txns');
8241:
8242: --
8243: -- Debug Statements
8244: --
8248: END IF;
8249: --
8250: END cancel_close_pending_txns;
8251:
8252: END WSH_ASN_RECEIPT_PVT;