[Home] [Help]
1: PACKAGE BODY WMS_SHIPPING_TRANSACTION_PUB AS
2: /* $Header: WMSPSHPB.pls 120.50.12020000.6 2013/03/14 00:04:52 stdavid ship $ */
3: G_Debug NUMBER;
4:
5: G_RET_STS_SUCCESS VARCHAR2(1) := FND_API.g_ret_sts_success;
6: G_RET_STS_ERROR VARCHAR2(1) := FND_API.g_ret_sts_error;
7: G_RET_STS_UNEXP_ERROR VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
8: G_FALSE VARCHAR2(1) := FND_API.G_FALSE;
9: G_TRUE VARCHAR2(1) := FND_API.G_TRUE;
2: /* $Header: WMSPSHPB.pls 120.50.12020000.6 2013/03/14 00:04:52 stdavid ship $ */
3: G_Debug NUMBER;
4:
5: G_RET_STS_SUCCESS VARCHAR2(1) := FND_API.g_ret_sts_success;
6: G_RET_STS_ERROR VARCHAR2(1) := FND_API.g_ret_sts_error;
7: G_RET_STS_UNEXP_ERROR VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
8: G_FALSE VARCHAR2(1) := FND_API.G_FALSE;
9: G_TRUE VARCHAR2(1) := FND_API.G_TRUE;
10:
3: G_Debug NUMBER;
4:
5: G_RET_STS_SUCCESS VARCHAR2(1) := FND_API.g_ret_sts_success;
6: G_RET_STS_ERROR VARCHAR2(1) := FND_API.g_ret_sts_error;
7: G_RET_STS_UNEXP_ERROR VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
8: G_FALSE VARCHAR2(1) := FND_API.G_FALSE;
9: G_TRUE VARCHAR2(1) := FND_API.G_TRUE;
10:
11: --Inline branching
4:
5: G_RET_STS_SUCCESS VARCHAR2(1) := FND_API.g_ret_sts_success;
6: G_RET_STS_ERROR VARCHAR2(1) := FND_API.g_ret_sts_error;
7: G_RET_STS_UNEXP_ERROR VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
8: G_FALSE VARCHAR2(1) := FND_API.G_FALSE;
9: G_TRUE VARCHAR2(1) := FND_API.G_TRUE;
10:
11: --Inline branching
12: G_WMS_CURRENT_RELEASE_LEVEL NUMBER := wms_control.g_current_release_level;
5: G_RET_STS_SUCCESS VARCHAR2(1) := FND_API.g_ret_sts_success;
6: G_RET_STS_ERROR VARCHAR2(1) := FND_API.g_ret_sts_error;
7: G_RET_STS_UNEXP_ERROR VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
8: G_FALSE VARCHAR2(1) := FND_API.G_FALSE;
9: G_TRUE VARCHAR2(1) := FND_API.G_TRUE;
10:
11: --Inline branching
12: G_WMS_CURRENT_RELEASE_LEVEL NUMBER := wms_control.g_current_release_level;
13: G_J_RELEASE_LEVEL NUMBER := inv_release.g_j_release_level;
882: l_delivery_id_tab(1) := l_delivery_id;
883:
884: wsh_interface_ext_grp.delivery_action
885: (p_api_version_number => 1.0,
886: p_init_msg_list => fnd_api.g_false,
887: p_commit => fnd_api.g_false,
888: p_action_prms => l_action_prms,
889: p_delivery_id_tab => l_delivery_id_tab,
890: x_delivery_out_rec => l_delivery_out_rec,
883:
884: wsh_interface_ext_grp.delivery_action
885: (p_api_version_number => 1.0,
886: p_init_msg_list => fnd_api.g_false,
887: p_commit => fnd_api.g_false,
888: p_action_prms => l_action_prms,
889: p_delivery_id_tab => l_delivery_id_tab,
890: x_delivery_out_rec => l_delivery_out_rec,
891: x_return_status => l_return_status,
1322: IF l_return_status IN (G_RET_STS_ERROR, G_RET_STS_UNEXP_ERROR) THEN
1323: debug('wsh_integration.set_inv_pc_attributes failed'
1324: || ' with status: ' || l_return_status,'nested_serial_check');
1325: --check where to handle this error
1326: RAISE fnd_api.g_exc_unexpected_error;
1327: END IF;
1328:
1329:
1330: l_detail_attributes(1).delivery_detail_id :=
1348: IF l_return_status IN (G_RET_STS_ERROR, G_RET_STS_UNEXP_ERROR) THEN
1349: debug('wsh_interface.update_shipping_attributes failed'
1350: || ' with status: ' || l_return_status,'nested_serial_check');
1351: --check where to handle this error
1352: RAISE fnd_api.g_exc_unexpected_error;
1353: END IF;
1354: END IF;
1355: exit delivery_details_loop;
1356:
2013: || ' with status: ' || l_return_status, 'LPN_SUBMIT');
2014: debug('l_msg_count: ' || l_msg_count,'LPN_SUBMIT');
2015: debug('l_msg_data: ' || l_msg_data,'LPN_SUBMIT');
2016: END IF;
2017: RAISE fnd_api.g_exc_unexpected_error;
2018: END IF;
2019: END IF;
2020: --\Shipping API cleanup
2021:
2068:
2069: -- to let other people know this LPN is loaded
2070: commit;
2071: EXCEPTION
2072: WHEN fnd_api.g_exc_unexpected_error THEN
2073: --if keep current structure of returning error_code
2074: --no need to get message from stack as java side does it
2075: fnd_msg_pub.count_and_get(p_count => l_msg_count,
2076: p_data => l_msg_data);
2312: l_action_prms.event := wsh_interface_ext_grp.g_start_of_shipping;
2313: l_action_prms.action_code := 'IGNORE_PLAN';
2314: wsh_interface_ext_grp.delivery_action
2315: (p_api_version_number => 1.0,
2316: p_init_msg_list => fnd_api.g_false,
2317: p_commit => fnd_api.g_false,
2318: p_action_prms => l_action_prms,
2319: p_delivery_id_tab => l_delivery_id_tab,
2320: x_delivery_out_rec => l_delivery_out_rec,
2313: l_action_prms.action_code := 'IGNORE_PLAN';
2314: wsh_interface_ext_grp.delivery_action
2315: (p_api_version_number => 1.0,
2316: p_init_msg_list => fnd_api.g_false,
2317: p_commit => fnd_api.g_false,
2318: p_action_prms => l_action_prms,
2319: p_delivery_id_tab => l_delivery_id_tab,
2320: x_delivery_out_rec => l_delivery_out_rec,
2321: x_return_status => l_return_status,
2324:
2325: IF (l_debug = 1) THEN
2326: debug('Called wsh_interface_ext_grp.delivery_action with action_code IGNORE_PLAN and return status: ' || l_return_status, 'LPN_CHECK');
2327: END IF;
2328: IF l_return_status = fnd_api.g_ret_sts_error THEN
2329: x_error_code := 7;
2330: return;
2331: END IF;
2332: END IF;
2560: ,p_TabOfDelDets => l_del_detail_id
2561: ,p_action =>'ASSIGN'
2562: ,p_delivery_id => l_open_del_ids(j));
2563:
2564: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2565: IF (l_debug = 1) THEN
2566: DEBUG('Found an open delivery satisfying '||l_open_del_ids(j),'MOB_SHIP');
2567: END IF;
2568: EXIT;
2565: IF (l_debug = 1) THEN
2566: DEBUG('Found an open delivery satisfying '||l_open_del_ids(j),'MOB_SHIP');
2567: END IF;
2568: EXIT;
2569: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2570: IF (l_debug = 1) THEN
2571: DEBUG('expected error','MOB_SHIP');
2572: END IF;
2573: NULL;
2570: IF (l_debug = 1) THEN
2571: DEBUG('expected error','MOB_SHIP');
2572: END IF;
2573: NULL;
2574: ELSIF l_return_status =FND_API.G_RET_STS_UNEXP_ERROR THEN
2575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2576: EXIT;
2577: END IF;
2578: END LOOP;
2571: DEBUG('expected error','MOB_SHIP');
2572: END IF;
2573: NULL;
2574: ELSIF l_return_status =FND_API.G_RET_STS_UNEXP_ERROR THEN
2575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2576: EXIT;
2577: END IF;
2578: END LOOP;
2579: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2576: EXIT;
2577: END IF;
2578: END LOOP;
2579: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2580: x_message := l_msg_data;
2581: IF (l_debug = 1) THEN
2582: DEBUG('Failed while assigning the delivery lines to the delivery '||l_del_rows(i)||' - '||l_msg_data,'MOB_SHIP');
2583: END IF;
2581: IF (l_debug = 1) THEN
2582: DEBUG('Failed while assigning the delivery lines to the delivery '||l_del_rows(i)||' - '||l_msg_data,'MOB_SHIP');
2583: END IF;
2584: RETURN;
2585: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2586: k := k+1;
2587: l_new_del_id(k) :=l_del_rows(i);
2588: END IF;
2589: END LOOP;
2598: END IF;
2599:
2600: WSH_DELIVERY_DETAILS_PUB.autocreate_deliveries
2601: (p_api_version_number =>1.0
2602: , p_init_msg_list =>FND_API.G_FALSE
2603: , p_commit =>FND_API.G_FALSE
2604: , x_return_status =>l_return_status
2605: , x_msg_count =>l_msg_count
2606: , x_msg_data =>l_msg_data
2599:
2600: WSH_DELIVERY_DETAILS_PUB.autocreate_deliveries
2601: (p_api_version_number =>1.0
2602: , p_init_msg_list =>FND_API.G_FALSE
2603: , p_commit =>FND_API.G_FALSE
2604: , x_return_status =>l_return_status
2605: , x_msg_count =>l_msg_count
2606: , x_msg_data =>l_msg_data
2607: , p_line_rows =>l_new_del_id
2611: DEBUG('cALLING aUTO CREATE DELIVIERIES -No open deliveries','mob_ship');
2612: END IF;
2613: WSH_DELIVERY_DETAILS_PUB.autocreate_deliveries
2614: (p_api_version_number =>1.0
2615: , p_init_msg_list =>FND_API.G_FALSE
2616: , p_commit =>FND_API.G_FALSE
2617: , x_return_status =>l_return_status
2618: , x_msg_count =>l_msg_count
2619: , x_msg_data =>l_msg_data
2612: END IF;
2613: WSH_DELIVERY_DETAILS_PUB.autocreate_deliveries
2614: (p_api_version_number =>1.0
2615: , p_init_msg_list =>FND_API.G_FALSE
2616: , p_commit =>FND_API.G_FALSE
2617: , x_return_status =>l_return_status
2618: , x_msg_count =>l_msg_count
2619: , x_msg_data =>l_msg_data
2620: , p_line_rows =>l_del_rows
2778: l_trip_info.ship_method_code :=p_ship_method_code;
2779:
2780: WSH_TRIPS_PUB.Create_Update_Trip
2781: (p_api_version_number => 1.0
2782: ,p_init_msg_list => FND_API.G_TRUE
2783: ,x_return_status => x_return_status
2784: ,x_msg_count => x_msg_count
2785: ,x_msg_data => x_msg_data
2786: ,p_action_code => 'UPDATE'
2949: END IF;
2950:
2951: wsh_deliveries_pub.create_update_delivery
2952: (p_api_version_number => 1.0,
2953: p_init_msg_list => fnd_api.g_false,
2954: x_return_status => x_return_status,
2955: x_msg_count => l_msg_count,
2956: x_msg_data => l_msg_data,
2957: p_action_code => 'UPDATE',
3736: EXCEPTION
3737: when no_data_found then
3738: -- put message in the message stack
3739: rollback to ship_confirm;
3740: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3741: when TOO_MANY_ROWS then
3742: rollback to ship_confirm;
3743: -- put message in the message stack
3744: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3740: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3741: when TOO_MANY_ROWS then
3742: rollback to ship_confirm;
3743: -- put message in the message stack
3744: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3745: END;
3746: END;
3747: end if;
3748:
3757:
3758: IF l_return_status NOT IN ('S','W') THEN
3759: debug('update_delivery failed with status: '
3760: || l_return_status, 'SHIP_CONFIRM_ALL');
3761: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3762: END IF;
3763: --\Shipping API cleanup
3764:
3765: --patchset J. LPN hierarchy
3859: IF (l_debug = 1) THEN
3860: debug('l_return_status is ' || l_return_status, 'Ship_Confirm');
3861: END IF;
3862: rollback;
3863: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3864: else
3865: x_return_status := l_return_status;
3866: print_label(l_del_rows, l_return_status);
3867: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3863: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3864: else
3865: x_return_status := l_return_status;
3866: print_label(l_del_rows, l_return_status);
3867: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3868: debug('print_label failed','ship_confirm_all');
3869: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_CRT_PRINT_LAB_FAIL');
3870: FND_MSG_PUB.ADD;
3871: x_return_status := 'W';
3885: debug('Actual message pass back to java: ' || x_msg_data,'SHIP_CONFIRM_ALL');
3886: debug('Msg count passed back: ' || x_msg_count,'SHIP_CONFIRM_ALL');
3887:
3888: EXCEPTION
3889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3890: ROLLBACK;
3891: x_return_status := l_return_status;
3892:
3893: --DHERRING Bug#5651219. Fix starts
3892:
3893: --DHERRING Bug#5651219. Fix starts
3894: x_msg_count := FND_MSG_PUB.Count_msg;
3895: FOR i in 1..x_msg_count LOOP
3896: FND_MSG_PUB.get(p_encoded => FND_API.G_FALSE, p_msg_index => i, p_data=> l_tmp_buffer,
3897: p_msg_index_out => l_tmp_out);
3898: x_msg_data:=x_msg_data ||'|'|| l_tmp_buffer;
3899: END LOOP;
3900:
3932: IF ship_confirm_parameters%isopen THEN
3933: CLOSE ship_confirm_parameters;
3934: END IF;
3935: ROLLBACK;
3936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3937: END SHIP_CONFIRM_ALL;
3938:
3939: PROCEDURE SHIP_CONFIRM(p_delivery_id IN NUMBER,
3940: p_organization_id IN NUMBER,
4184:
4185: BEGIN
4186: savepoint ship_confirm;
4187:
4188: x_return_status := FND_API.G_RET_STS_SUCCESS;
4189:
4190: IF g_debug IS NULL THEN
4191: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4192: END IF;
4285: EXCEPTION
4286: when no_data_found then
4287: -- put message in the message stack
4288: rollback to ship_confirm;
4289: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4290: when TOO_MANY_ROWS then
4291: rollback to ship_confirm;
4292: -- put message in the message stack
4293: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4289: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4290: when TOO_MANY_ROWS then
4291: rollback to ship_confirm;
4292: -- put message in the message stack
4293: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4294: END;
4295: END;
4296: end if;
4297:
4386: end if;
4387:
4388: -- print the shipping labels
4389: print_label(l_del_rows, l_return_status);
4390: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4391: debug('print_label failed','ship_confirm_lpn_deliveries');
4392: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_CRT_PRINT_LAB_FAIL');
4393: FND_MSG_PUB.ADD;
4394: l_num_warnings := l_num_warnings + 1;
4456: END IF;
4457:
4458: wsh_deliveries_pub.delivery_action
4459: (p_api_version_number => 1.0,
4460: p_init_msg_list => fnd_api.g_true,
4461: x_return_status => l_return_status,
4462: x_msg_count => l_msg_count,
4463: x_msg_data => l_msg_data,
4464: p_action_code => 'CONFIRM',
4481: || 'with status ' || l_return_status,'SHIP_CONFIRM_LPN_DELIVERIES');
4482: END IF;
4483:
4484: ROLLBACK;
4485: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4486:
4487: ELSIF l_return_status = 'W' THEN
4488: l_num_warnings := l_num_warnings + 1;
4489:
4492: --\Shipping API cleanup
4493:
4494: -- bug 3805194
4495: print_label(l_del_rows, l_return_status);
4496: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4497: debug('print_label failed','SHIP_CONFIRM_LPN_DELIVERIES');
4498: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_CRT_PRINT_LAB_FAIL');
4499: FND_MSG_PUB.ADD;
4500:
4601:
4602:
4603: wsh_deliveries_pub.delivery_action
4604: (p_api_version_number => 1.0,
4605: p_init_msg_list => fnd_api.g_false,
4606: x_return_status => l_return_status,
4607: x_msg_count => l_msg_count,
4608: x_msg_data => l_msg_data,
4609: p_action_code => 'CONFIRM',
4626: || 'with status ' || l_return_status,'SHIP_CONFIRM_LPN_DELIVERIES');
4627: END IF;
4628:
4629: ROLLBACK;
4630: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4631:
4632: ELSIF l_return_status = 'W' THEN
4633: l_num_warnings := l_num_warnings + 1;
4634:
4665: IF (l_debug = 1) THEN
4666: debug('l_return_status is ' || l_return_status, 'Ship_Confirm');
4667: END IF;
4668: rollback;
4669: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4670:
4671: ELSIF l_return_status = 'W' THEN
4672: l_num_warnings := l_num_warnings + 1;
4673:
4734: and dock_appoint_flag = 'N'
4735: and nvl(direct_ship_flag,'N') = 'N';
4736:
4737: print_label(l_del_rows, l_return_status);
4738: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4739: debug('print_label failed','SHIP_CONFIRM_LPN_DELIVERIES');
4740: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_CRT_PRINT_LAB_FAIL');
4741: FND_MSG_PUB.ADD;
4742:
4815:
4816:
4817: wsh_deliveries_pub.delivery_action
4818: (p_api_version_number => 1.0,
4819: p_init_msg_list => fnd_api.g_false,
4820: x_return_status => l_return_status,
4821: x_msg_count => l_msg_count,
4822: x_msg_data => l_msg_data,
4823: p_action_code => 'CONFIRM',
4840: || 'with status ' || l_return_status,'SHIP_CONFIRM_LPN_DELIVERIES');
4841: END IF;
4842:
4843: ROLLBACK;
4844: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4845:
4846: ELSIF l_return_status = 'W' THEN
4847: l_num_warnings := l_num_warnings + 1;
4848:
4875: IF (l_debug = 1) THEN
4876: debug('l_return_status is ' || l_return_status, 'Ship_Confirm');
4877: END IF;
4878: rollback;
4879: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4880: ELSE -- l_return_status
4881:
4882: IF l_return_status = 'W' THEN
4883: l_num_warnings := l_num_warnings + 1;
4958: end if;
4959:
4960: -- print the shipping labels
4961: print_label(l_del_rows, l_return_status);
4962: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4963: debug('print_label failed','SHIP_CONFIRM_LPN_DELIVERIES');
4964: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_CRT_PRINT_LAB_FAIL');
4965: FND_MSG_PUB.ADD;
4966:
4993: debug('Actual message pass back to java: ' || x_msg_data,'SHIP_CONFIRM_LPN_DELIVERIES');
4994: debug('Msg count passed back: ' || x_msg_count,'SHIP_CONFIRM_LPN_DELIVERIES');
4995:
4996: EXCEPTION
4997: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4998: debug('Unexpected error raised: ' || SQLERRM, 'SHIP_CONFIRM_LPN_DELIVERIES');
4999: x_return_status := l_return_status;
5000:
5001: --DHERRING Bug#5651219. Fix starts
5000:
5001: --DHERRING Bug#5651219. Fix starts
5002: x_msg_count := FND_MSG_PUB.Count_msg;
5003: FOR i in 1..x_msg_count LOOP
5004: FND_MSG_PUB.get(p_encoded => FND_API.G_FALSE, p_msg_index => i, p_data=> l_tmp_buffer,
5005: p_msg_index_out => l_tmp_out);
5006: x_msg_data:=x_msg_data ||'|'|| l_tmp_buffer;
5007: END LOOP;
5008:
5160: PROCEDURE UNASSIGN_DELIVERY_LINE(
5161: p_delivery_detail_id IN NUMBER,
5162: x_return_status OUT NOCOPY VARCHAR2,
5163: p_delivery_id IN NUMBER DEFAULT NULL,
5164: p_commit_flag IN VARCHAR2 DEFAULT fnd_api.g_true) IS
5165: --l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5166: l_debug number;
5167:
5168: /* Bug: 5585359: 10/09/06 Start*/
5244: DEBUG('Unfirm delivery for unassignment','UNASSIGN_DELIVERY_LINE');
5245: END IF;
5246: wsh_interface_ext_grp.delivery_action
5247: (p_api_version_number => 1.0,
5248: p_init_msg_list => fnd_api.g_false,
5249: p_commit => fnd_api.g_false,
5250: p_action_prms => l_action_prms,
5251: p_delivery_id_tab => l_delivery_id_tab,
5252: x_delivery_out_rec => l_delivery_out_rec,
5245: END IF;
5246: wsh_interface_ext_grp.delivery_action
5247: (p_api_version_number => 1.0,
5248: p_init_msg_list => fnd_api.g_false,
5249: p_commit => fnd_api.g_false,
5250: p_action_prms => l_action_prms,
5251: p_delivery_id_tab => l_delivery_id_tab,
5252: x_delivery_out_rec => l_delivery_out_rec,
5253: x_return_status => x_return_status,
5258: IF l_debug = 1 THEN
5259: debug('Unfirming delivery failed!','UNASSIGN_DELIVERY_LINE');
5260: debug('msg_data: ' || l_msg_data,'UNASSIGN_DELIVERY_LINE');
5261: END IF;
5262: RAISE fnd_api.g_exc_unexpected_error;
5263: END IF;
5264: END IF;
5265:
5266: IF l_debug = 1 THEN
5298: DEBUG('firm delivery after unassignment','UNASSIGN_DELIVERY_LINE');
5299: END IF;
5300: wsh_interface_ext_grp.delivery_action
5301: (p_api_version_number => 1.0,
5302: p_init_msg_list => fnd_api.g_false,
5303: p_commit => p_commit_flag,
5304: p_action_prms => l_action_prms,
5305: p_delivery_id_tab => l_delivery_id_tab,
5306: x_delivery_out_rec => l_delivery_out_rec,
5384: debug('p_locator_id = ' || p_locator_id, 'WMS_SHIPPING_TRANSACTION_PUB');
5385: END IF;
5386:
5387: SAVEPOINT update_wdd_loc_sp;
5388: x_return_status := FND_API.G_RET_STS_SUCCESS;
5389:
5390: OPEN cur_delivery_details;
5391:
5392: l_progress := '20';
5429:
5430: WSH_DELIVERY_DETAILS_ACTIONS.Unassign_Detail_from_Cont
5431: ( P_DETAIL_ID => l_shipping_attr_tab(l_wdd_counter).delivery_detail_id,
5432: X_RETURN_STATUS => l_return_status );
5433: if (l_return_status <> fnd_api.g_ret_sts_success) then
5434: IF (l_debug = 1) THEN
5435: debug('Error Unassign_Detail_from_Cont'|| l_return_status, 'WMS_SHIPPING_TRANSACTION_PUB');
5436: END IF;
5437: FND_MESSAGE.SET_NAME('INV', 'INV_UNASSIGN_DEL_FAILURE');
5435: debug('Error Unassign_Detail_from_Cont'|| l_return_status, 'WMS_SHIPPING_TRANSACTION_PUB');
5436: END IF;
5437: FND_MESSAGE.SET_NAME('INV', 'INV_UNASSIGN_DEL_FAILURE');
5438: FND_MSG_PUB.ADD;
5439: RAISE FND_API.G_EXC_ERROR;
5440: end if;
5441:
5442: l_wdd_counter := l_wdd_counter + 1;
5443: END LOOP;
5463: debug('update_wdd_loc_by_lpn 25 - WSH_INTERFACE.Update_Shipping_Attributes returns : '
5464: ||l_return_status, 'WMS_SHIPPING_TRANSACTION_PUB');
5465: END IF;
5466:
5467: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5468: IF (l_debug = 1) THEN
5469: debug('update_wdd_loc_by_lpn 30 - return expected error from update_shipping_attributes',
5470: 'WMS_SHIPPING_TRANSACTION_PUB');
5471: END IF;
5469: debug('update_wdd_loc_by_lpn 30 - return expected error from update_shipping_attributes',
5470: 'WMS_SHIPPING_TRANSACTION_PUB');
5471: END IF;
5472:
5473: RAISE FND_API.G_EXC_ERROR;
5474:
5475: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5476: IF (l_debug = 1) THEN
5477: debug('update_wdd_loc_by_lpn 40 - return unexpected error from update_shipping_attributes',
5471: END IF;
5472:
5473: RAISE FND_API.G_EXC_ERROR;
5474:
5475: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5476: IF (l_debug = 1) THEN
5477: debug('update_wdd_loc_by_lpn 40 - return unexpected error from update_shipping_attributes',
5478: 'WMS_SHIPPING_TRANSACTION_PUB');
5479: END IF;
5477: debug('update_wdd_loc_by_lpn 40 - return unexpected error from update_shipping_attributes',
5478: 'WMS_SHIPPING_TRANSACTION_PUB');
5479: END IF;
5480:
5481: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5482: END IF;
5483:
5484: l_progress := '60';
5485:
5487: debug('update_wdd_loc_by_lpn 50 - complete','WMS_SHIPPING_TRANSACTION_PUB');
5488: END IF;
5489:
5490: EXCEPTION
5491: WHEN fnd_api.g_exc_error THEN
5492: x_return_status := fnd_api.g_ret_sts_error;
5493: ROLLBACK TO update_wdd_loc_sp;
5494:
5495: IF cur_delivery_details%isopen THEN
5488: END IF;
5489:
5490: EXCEPTION
5491: WHEN fnd_api.g_exc_error THEN
5492: x_return_status := fnd_api.g_ret_sts_error;
5493: ROLLBACK TO update_wdd_loc_sp;
5494:
5495: IF cur_delivery_details%isopen THEN
5496: CLOSE cur_delivery_details;
5502: IF (l_debug = 1) THEN
5503: debug('update_wdd_loc_by_lpn 60 - expected error', 'WMS_SHIPPING_TRANSACTION_PUB');
5504: END IF;
5505:
5506: WHEN fnd_api.g_exc_unexpected_error THEN
5507: x_return_status := fnd_api.g_ret_sts_unexp_error;
5508: ROLLBACK TO update_wdd_loc_sp;
5509:
5510: IF cur_delivery_details%isopen THEN
5503: debug('update_wdd_loc_by_lpn 60 - expected error', 'WMS_SHIPPING_TRANSACTION_PUB');
5504: END IF;
5505:
5506: WHEN fnd_api.g_exc_unexpected_error THEN
5507: x_return_status := fnd_api.g_ret_sts_unexp_error;
5508: ROLLBACK TO update_wdd_loc_sp;
5509:
5510: IF cur_delivery_details%isopen THEN
5511: CLOSE cur_delivery_details;
5519: END IF;
5520:
5521: WHEN OTHERS THEN
5522: ROLLBACK TO update_wdd_loc_sp;
5523: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5524: IF cur_delivery_details%isopen THEN
5525: CLOSE cur_delivery_details;
5526: END IF;
5527:
5686: IF l_debug = 1 THEN
5687: debug('wsh_delivery_details_pub.update_shipping_attributes failed'
5688: || ' with status: ' || l_return_status, 'LPN_UNLOAD');
5689: END IF;
5690: RAISE fnd_api.g_exc_unexpected_error;
5691: END IF;
5692: END IF;
5693: --\Shipping API cleanup
5694:
5714: -- Commit if no errors
5715: COMMIT;
5716:
5717: EXCEPTION
5718: WHEN fnd_api.g_exc_unexpected_error THEN
5719: x_error_code := 9999;
5720: ROLLBACK;
5721: WHEN OTHERS THEN
5722: x_error_code := 9999;
6735: procedure close_truck
6736: ( P_dock_door_id IN NUMBER,
6737: P_organization_id IN NUMBER,
6738: p_shipping_mode IN VARCHAR2 DEFAULT null,
6739: p_commit_flag IN VARCHAR2 DEFAULT fnd_api.g_true,
6740: x_return_status OUT NOCOPY VARCHAR2,
6741: x_return_msg OUT NOCOPY VARCHAR2
6742: )
6743: IS
6778: l_debug number;
6779:
6780: BEGIN
6781:
6782: x_return_status := FND_API.g_ret_sts_success;
6783: IF g_debug IS NULL THEN
6784: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6785: END IF;
6786: l_debug := g_debug;
6838: IF l_error_code <> 0 THEN
6839: IF (l_debug = 1) THEN
6840: debug('check_lpn_deliveries delivery failed','CLOSE_TRUCK');
6841: END IF;
6842: RAISE FND_API.G_EXC_ERROR;
6843: END IF;
6844: END LOOP;
6845: CLOSE normal_lpns_for_dock;
6846: EXCEPTION
6847: when no_data_found then
6848: IF (l_debug = 1) THEN
6849: debug('check_lpn_deliveries: NO DATA FOUND','CLOSE_TRUCK');
6850: END IF;
6851: RAISE FND_API.G_EXC_ERROR;
6852: END;
6853:
6854: --Following api process ship LPNs with dock-appointment and without dock
6855: -- appointment, ALL that are loaded TO the dock door
6875: END IF;
6876:
6877: IF l_return_status IN ('S','W') THEN
6878:
6879: IF p_commit_flag = fnd_api.g_true THEN
6880: IF (l_debug = 1) THEN
6881: debug(' Commit', 'CLOSE_TRUCK');
6882: END IF;
6883:
6894:
6895: IF (l_debug = 1) THEN
6896: debug(' returning Error', 'CLOSE_TRUCK');
6897: END IF;
6898: RAISE fnd_api.g_exc_error;
6899:
6900: END IF;
6901: END IF;
6902:
6929:
6930:
6931: IF l_return_status IN ('S','W') THEN
6932:
6933: IF p_commit_flag = fnd_api.g_true THEN
6934: IF (l_debug = 1) THEN
6935: debug(' Commit', 'CLOSE_TRUCK');
6936: END IF;
6937:
6945: END IF;
6946:
6947: ELSE
6948: debug(' returning Error', 'CLOSE_TRUCK');
6949: RAISE fnd_api.g_exc_error;
6950:
6951: END IF;
6952:
6953: END IF;