[Home] [Help]
1: PACKAGE BODY WMS_SHIPPING_TRANSACTION_PUB AS
2: /* $Header: WMSPSHPB.pls 120.35.12010000.3 2008/09/30 09:21:36 shrmitra 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.35.12010000.3 2008/09/30 09:21:36 shrmitra 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;
829: l_delivery_id_tab(1) := l_delivery_id;
830:
831: wsh_interface_ext_grp.delivery_action
832: (p_api_version_number => 1.0,
833: p_init_msg_list => fnd_api.g_false,
834: p_commit => fnd_api.g_false,
835: p_action_prms => l_action_prms,
836: p_delivery_id_tab => l_delivery_id_tab,
837: x_delivery_out_rec => l_delivery_out_rec,
830:
831: wsh_interface_ext_grp.delivery_action
832: (p_api_version_number => 1.0,
833: p_init_msg_list => fnd_api.g_false,
834: p_commit => fnd_api.g_false,
835: p_action_prms => l_action_prms,
836: p_delivery_id_tab => l_delivery_id_tab,
837: x_delivery_out_rec => l_delivery_out_rec,
838: x_return_status => l_return_status,
1264: IF l_return_status IN (G_RET_STS_ERROR, G_RET_STS_UNEXP_ERROR) THEN
1265: debug('wsh_integration.set_inv_pc_attributes failed'
1266: || ' with status: ' || l_return_status,'nested_serial_check');
1267: --check where to handle this error
1268: RAISE fnd_api.g_exc_unexpected_error;
1269: END IF;
1270:
1271:
1272: l_detail_attributes(1).delivery_detail_id :=
1290: IF l_return_status IN (G_RET_STS_ERROR, G_RET_STS_UNEXP_ERROR) THEN
1291: debug('wsh_interface.update_shipping_attributes failed'
1292: || ' with status: ' || l_return_status,'nested_serial_check');
1293: --check where to handle this error
1294: RAISE fnd_api.g_exc_unexpected_error;
1295: END IF;
1296: END IF;
1297: exit delivery_details_loop;
1298:
1953: || ' with status: ' || l_return_status, 'LPN_SUBMIT');
1954: debug('l_msg_count: ' || l_msg_count,'LPN_SUBMIT');
1955: debug('l_msg_data: ' || l_msg_data,'LPN_SUBMIT');
1956: END IF;
1957: RAISE fnd_api.g_exc_unexpected_error;
1958: END IF;
1959: --\Shipping API cleanup
1960:
1961: -- change the LPN context
2007:
2008: -- to let other people know this LPN is loaded
2009: commit;
2010: EXCEPTION
2011: WHEN fnd_api.g_exc_unexpected_error THEN
2012: --if keep current structure of returning error_code
2013: --no need to get message from stack as java side does it
2014: fnd_msg_pub.count_and_get(p_count => l_msg_count,
2015: p_data => l_msg_data);
2251: l_action_prms.event := wsh_interface_ext_grp.g_start_of_shipping;
2252: l_action_prms.action_code := 'IGNORE_PLAN';
2253: wsh_interface_ext_grp.delivery_action
2254: (p_api_version_number => 1.0,
2255: p_init_msg_list => fnd_api.g_false,
2256: p_commit => fnd_api.g_false,
2257: p_action_prms => l_action_prms,
2258: p_delivery_id_tab => l_delivery_id_tab,
2259: x_delivery_out_rec => l_delivery_out_rec,
2252: l_action_prms.action_code := 'IGNORE_PLAN';
2253: wsh_interface_ext_grp.delivery_action
2254: (p_api_version_number => 1.0,
2255: p_init_msg_list => fnd_api.g_false,
2256: p_commit => fnd_api.g_false,
2257: p_action_prms => l_action_prms,
2258: p_delivery_id_tab => l_delivery_id_tab,
2259: x_delivery_out_rec => l_delivery_out_rec,
2260: x_return_status => l_return_status,
2263:
2264: IF (l_debug = 1) THEN
2265: debug('Called wsh_interface_ext_grp.delivery_action with action_code IGNORE_PLAN and return status: ' || l_return_status, 'LPN_CHECK');
2266: END IF;
2267: IF l_return_status = fnd_api.g_ret_sts_error THEN
2268: x_error_code := 7;
2269: return;
2270: END IF;
2271: END IF;
2499: ,p_TabOfDelDets => l_del_detail_id
2500: ,p_action =>'ASSIGN'
2501: ,p_delivery_id => l_open_del_ids(j));
2502:
2503: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2504: IF (l_debug = 1) THEN
2505: DEBUG('Found an open delivery satisfying '||l_open_del_ids(j),'MOB_SHIP');
2506: END IF;
2507: EXIT;
2504: IF (l_debug = 1) THEN
2505: DEBUG('Found an open delivery satisfying '||l_open_del_ids(j),'MOB_SHIP');
2506: END IF;
2507: EXIT;
2508: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2509: IF (l_debug = 1) THEN
2510: DEBUG('expected error','MOB_SHIP');
2511: END IF;
2512: NULL;
2509: IF (l_debug = 1) THEN
2510: DEBUG('expected error','MOB_SHIP');
2511: END IF;
2512: NULL;
2513: ELSIF l_return_status =FND_API.G_RET_STS_UNEXP_ERROR THEN
2514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2515: EXIT;
2516: END IF;
2517: END LOOP;
2510: DEBUG('expected error','MOB_SHIP');
2511: END IF;
2512: NULL;
2513: ELSIF l_return_status =FND_API.G_RET_STS_UNEXP_ERROR THEN
2514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2515: EXIT;
2516: END IF;
2517: END LOOP;
2518: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2515: EXIT;
2516: END IF;
2517: END LOOP;
2518: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2519: x_message := l_msg_data;
2520: IF (l_debug = 1) THEN
2521: DEBUG('Failed while assigning the delivery lines to the delivery '||l_del_rows(i)||' - '||l_msg_data,'MOB_SHIP');
2522: END IF;
2520: IF (l_debug = 1) THEN
2521: DEBUG('Failed while assigning the delivery lines to the delivery '||l_del_rows(i)||' - '||l_msg_data,'MOB_SHIP');
2522: END IF;
2523: RETURN;
2524: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2525: k := k+1;
2526: l_new_del_id(k) :=l_del_rows(i);
2527: END IF;
2528: END LOOP;
2537: END IF;
2538:
2539: WSH_DELIVERY_DETAILS_PUB.autocreate_deliveries
2540: (p_api_version_number =>1.0
2541: , p_init_msg_list =>FND_API.G_FALSE
2542: , p_commit =>FND_API.G_FALSE
2543: , x_return_status =>l_return_status
2544: , x_msg_count =>l_msg_count
2545: , x_msg_data =>l_msg_data
2538:
2539: WSH_DELIVERY_DETAILS_PUB.autocreate_deliveries
2540: (p_api_version_number =>1.0
2541: , p_init_msg_list =>FND_API.G_FALSE
2542: , p_commit =>FND_API.G_FALSE
2543: , x_return_status =>l_return_status
2544: , x_msg_count =>l_msg_count
2545: , x_msg_data =>l_msg_data
2546: , p_line_rows =>l_new_del_id
2550: DEBUG('cALLING aUTO CREATE DELIVIERIES -No open deliveries','mob_ship');
2551: END IF;
2552: WSH_DELIVERY_DETAILS_PUB.autocreate_deliveries
2553: (p_api_version_number =>1.0
2554: , p_init_msg_list =>FND_API.G_FALSE
2555: , p_commit =>FND_API.G_FALSE
2556: , x_return_status =>l_return_status
2557: , x_msg_count =>l_msg_count
2558: , x_msg_data =>l_msg_data
2551: END IF;
2552: WSH_DELIVERY_DETAILS_PUB.autocreate_deliveries
2553: (p_api_version_number =>1.0
2554: , p_init_msg_list =>FND_API.G_FALSE
2555: , p_commit =>FND_API.G_FALSE
2556: , x_return_status =>l_return_status
2557: , x_msg_count =>l_msg_count
2558: , x_msg_data =>l_msg_data
2559: , p_line_rows =>l_del_rows
2717: l_trip_info.ship_method_code :=p_ship_method_code;
2718:
2719: WSH_TRIPS_PUB.Create_Update_Trip
2720: (p_api_version_number => 1.0
2721: ,p_init_msg_list => FND_API.G_TRUE
2722: ,x_return_status => x_return_status
2723: ,x_msg_count => x_msg_count
2724: ,x_msg_data => x_msg_data
2725: ,p_action_code => 'UPDATE'
2888: END IF;
2889:
2890: wsh_deliveries_pub.create_update_delivery
2891: (p_api_version_number => 1.0,
2892: p_init_msg_list => fnd_api.g_false,
2893: x_return_status => x_return_status,
2894: x_msg_count => l_msg_count,
2895: x_msg_data => l_msg_data,
2896: p_action_code => 'UPDATE',
3656: EXCEPTION
3657: when no_data_found then
3658: -- put message in the message stack
3659: rollback to ship_confirm;
3660: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3661: when TOO_MANY_ROWS then
3662: rollback to ship_confirm;
3663: -- put message in the message stack
3664: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3660: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3661: when TOO_MANY_ROWS then
3662: rollback to ship_confirm;
3663: -- put message in the message stack
3664: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3665: END;
3666: END;
3667: end if;
3668:
3677:
3678: IF l_return_status NOT IN ('S','W') THEN
3679: debug('update_delivery failed with status: '
3680: || l_return_status, 'SHIP_CONFIRM_ALL');
3681: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3682: END IF;
3683: --\Shipping API cleanup
3684:
3685: --patchset J. LPN hierarchy
3729: IF (l_debug = 1) THEN
3730: debug('l_return_status is ' || l_return_status, 'Ship_Confirm');
3731: END IF;
3732: rollback;
3733: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3734: else
3735: x_return_status := l_return_status;
3736: print_label(l_del_rows, l_return_status);
3737: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3733: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3734: else
3735: x_return_status := l_return_status;
3736: print_label(l_del_rows, l_return_status);
3737: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3738: debug('print_label failed','ship_confirm_all');
3739: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_CRT_PRINT_LAB_FAIL');
3740: FND_MSG_PUB.ADD;
3741: x_return_status := 'W';
3755: debug('Actual message pass back to java: ' || x_msg_data,'SHIP_CONFIRM_ALL');
3756: debug('Msg count passed back: ' || x_msg_count,'SHIP_CONFIRM_ALL');
3757:
3758: EXCEPTION
3759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3760: ROLLBACK;
3761: x_return_status := l_return_status;
3762:
3763: --DHERRING Bug#5651219. Fix starts
3762:
3763: --DHERRING Bug#5651219. Fix starts
3764: x_msg_count := FND_MSG_PUB.Count_msg;
3765: FOR i in 1..x_msg_count LOOP
3766: FND_MSG_PUB.get(p_encoded => FND_API.G_FALSE, p_msg_index => i, p_data=> l_tmp_buffer,
3767: p_msg_index_out => l_tmp_out);
3768: x_msg_data:=x_msg_data ||'|'|| l_tmp_buffer;
3769: END LOOP;
3770:
3796: debug('Others exception raised!','SHIP_CONFIRM_ALL');
3797: debug(SQLERRM,'SHIP_CONFIRM_ALL');
3798: END IF;
3799: ROLLBACK;
3800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3801: END SHIP_CONFIRM_ALL;
3802:
3803: PROCEDURE SHIP_CONFIRM(p_delivery_id IN NUMBER,
3804: p_organization_id IN NUMBER,
4024:
4025: BEGIN
4026: savepoint ship_confirm;
4027:
4028: x_return_status := FND_API.G_RET_STS_SUCCESS;
4029:
4030: IF g_debug IS NULL THEN
4031: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4032: END IF;
4125: EXCEPTION
4126: when no_data_found then
4127: -- put message in the message stack
4128: rollback to ship_confirm;
4129: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4130: when TOO_MANY_ROWS then
4131: rollback to ship_confirm;
4132: -- put message in the message stack
4133: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4129: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4130: when TOO_MANY_ROWS then
4131: rollback to ship_confirm;
4132: -- put message in the message stack
4133: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4134: END;
4135: END;
4136: end if;
4137:
4226: end if;
4227:
4228: -- print the shipping labels
4229: print_label(l_del_rows, l_return_status);
4230: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4231: debug('print_label failed','ship_confirm_lpn_deliveries');
4232: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_CRT_PRINT_LAB_FAIL');
4233: FND_MSG_PUB.ADD;
4234: l_num_warnings := l_num_warnings + 1;
4296: END IF;
4297:
4298: wsh_deliveries_pub.delivery_action
4299: (p_api_version_number => 1.0,
4300: p_init_msg_list => fnd_api.g_true,
4301: x_return_status => l_return_status,
4302: x_msg_count => l_msg_count,
4303: x_msg_data => l_msg_data,
4304: p_action_code => 'CONFIRM',
4321: || 'with status ' || l_return_status,'SHIP_CONFIRM_LPN_DELIVERIES');
4322: END IF;
4323:
4324: ROLLBACK;
4325: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4326:
4327: ELSIF l_return_status = 'W' THEN
4328: l_num_warnings := l_num_warnings + 1;
4329:
4332: --\Shipping API cleanup
4333:
4334: -- bug 3805194
4335: print_label(l_del_rows, l_return_status);
4336: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4337: debug('print_label failed','SHIP_CONFIRM_LPN_DELIVERIES');
4338: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_CRT_PRINT_LAB_FAIL');
4339: FND_MSG_PUB.ADD;
4340:
4441:
4442:
4443: wsh_deliveries_pub.delivery_action
4444: (p_api_version_number => 1.0,
4445: p_init_msg_list => fnd_api.g_false,
4446: x_return_status => l_return_status,
4447: x_msg_count => l_msg_count,
4448: x_msg_data => l_msg_data,
4449: p_action_code => 'CONFIRM',
4466: || 'with status ' || l_return_status,'SHIP_CONFIRM_LPN_DELIVERIES');
4467: END IF;
4468:
4469: ROLLBACK;
4470: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4471:
4472: ELSIF l_return_status = 'W' THEN
4473: l_num_warnings := l_num_warnings + 1;
4474:
4505: IF (l_debug = 1) THEN
4506: debug('l_return_status is ' || l_return_status, 'Ship_Confirm');
4507: END IF;
4508: rollback;
4509: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4510:
4511: ELSIF l_return_status = 'W' THEN
4512: l_num_warnings := l_num_warnings + 1;
4513:
4574: and dock_appoint_flag = 'N'
4575: and nvl(direct_ship_flag,'N') = 'N';
4576:
4577: print_label(l_del_rows, l_return_status);
4578: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4579: debug('print_label failed','SHIP_CONFIRM_LPN_DELIVERIES');
4580: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_CRT_PRINT_LAB_FAIL');
4581: FND_MSG_PUB.ADD;
4582:
4655:
4656:
4657: wsh_deliveries_pub.delivery_action
4658: (p_api_version_number => 1.0,
4659: p_init_msg_list => fnd_api.g_false,
4660: x_return_status => l_return_status,
4661: x_msg_count => l_msg_count,
4662: x_msg_data => l_msg_data,
4663: p_action_code => 'CONFIRM',
4680: || 'with status ' || l_return_status,'SHIP_CONFIRM_LPN_DELIVERIES');
4681: END IF;
4682:
4683: ROLLBACK;
4684: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4685:
4686: ELSIF l_return_status = 'W' THEN
4687: l_num_warnings := l_num_warnings + 1;
4688:
4715: IF (l_debug = 1) THEN
4716: debug('l_return_status is ' || l_return_status, 'Ship_Confirm');
4717: END IF;
4718: rollback;
4719: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4720: ELSE -- l_return_status
4721:
4722: IF l_return_status = 'W' THEN
4723: l_num_warnings := l_num_warnings + 1;
4798: end if;
4799:
4800: -- print the shipping labels
4801: print_label(l_del_rows, l_return_status);
4802: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4803: debug('print_label failed','SHIP_CONFIRM_LPN_DELIVERIES');
4804: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_CRT_PRINT_LAB_FAIL');
4805: FND_MSG_PUB.ADD;
4806:
4833: debug('Actual message pass back to java: ' || x_msg_data,'SHIP_CONFIRM_LPN_DELIVERIES');
4834: debug('Msg count passed back: ' || x_msg_count,'SHIP_CONFIRM_LPN_DELIVERIES');
4835:
4836: EXCEPTION
4837: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4838: debug('Unexpected error raised: ' || SQLERRM, 'SHIP_CONFIRM_LPN_DELIVERIES');
4839: x_return_status := l_return_status;
4840:
4841: --DHERRING Bug#5651219. Fix starts
4840:
4841: --DHERRING Bug#5651219. Fix starts
4842: x_msg_count := FND_MSG_PUB.Count_msg;
4843: FOR i in 1..x_msg_count LOOP
4844: FND_MSG_PUB.get(p_encoded => FND_API.G_FALSE, p_msg_index => i, p_data=> l_tmp_buffer,
4845: p_msg_index_out => l_tmp_out);
4846: x_msg_data:=x_msg_data ||'|'|| l_tmp_buffer;
4847: END LOOP;
4848:
5000: PROCEDURE UNASSIGN_DELIVERY_LINE(
5001: p_delivery_detail_id IN NUMBER,
5002: x_return_status OUT NOCOPY VARCHAR2,
5003: p_delivery_id IN NUMBER DEFAULT NULL,
5004: p_commit_flag IN VARCHAR2 DEFAULT fnd_api.g_true) IS
5005: --l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5006: l_debug number;
5007:
5008: /* Bug: 5585359: 10/09/06 Start*/
5084: DEBUG('Unfirm delivery for unassignment','UNASSIGN_DELIVERY_LINE');
5085: END IF;
5086: wsh_interface_ext_grp.delivery_action
5087: (p_api_version_number => 1.0,
5088: p_init_msg_list => fnd_api.g_false,
5089: p_commit => fnd_api.g_false,
5090: p_action_prms => l_action_prms,
5091: p_delivery_id_tab => l_delivery_id_tab,
5092: x_delivery_out_rec => l_delivery_out_rec,
5085: END IF;
5086: wsh_interface_ext_grp.delivery_action
5087: (p_api_version_number => 1.0,
5088: p_init_msg_list => fnd_api.g_false,
5089: p_commit => fnd_api.g_false,
5090: p_action_prms => l_action_prms,
5091: p_delivery_id_tab => l_delivery_id_tab,
5092: x_delivery_out_rec => l_delivery_out_rec,
5093: x_return_status => x_return_status,
5098: IF l_debug = 1 THEN
5099: debug('Unfirming delivery failed!','UNASSIGN_DELIVERY_LINE');
5100: debug('msg_data: ' || l_msg_data,'UNASSIGN_DELIVERY_LINE');
5101: END IF;
5102: RAISE fnd_api.g_exc_unexpected_error;
5103: END IF;
5104: END IF;
5105:
5106: IF l_debug = 1 THEN
5138: DEBUG('firm delivery after unassignment','UNASSIGN_DELIVERY_LINE');
5139: END IF;
5140: wsh_interface_ext_grp.delivery_action
5141: (p_api_version_number => 1.0,
5142: p_init_msg_list => fnd_api.g_false,
5143: p_commit => p_commit_flag,
5144: p_action_prms => l_action_prms,
5145: p_delivery_id_tab => l_delivery_id_tab,
5146: x_delivery_out_rec => l_delivery_out_rec,
5224: debug('p_locator_id = ' || p_locator_id, 'WMS_SHIPPING_TRANSACTION_PUB');
5225: END IF;
5226:
5227: SAVEPOINT update_wdd_loc_sp;
5228: x_return_status := FND_API.G_RET_STS_SUCCESS;
5229:
5230: OPEN cur_delivery_details;
5231:
5232: l_progress := '20';
5269:
5270: WSH_DELIVERY_DETAILS_ACTIONS.Unassign_Detail_from_Cont
5271: ( P_DETAIL_ID => l_shipping_attr_tab(l_wdd_counter).delivery_detail_id,
5272: X_RETURN_STATUS => l_return_status );
5273: if (l_return_status <> fnd_api.g_ret_sts_success) then
5274: IF (l_debug = 1) THEN
5275: debug('Error Unassign_Detail_from_Cont'|| l_return_status, 'WMS_SHIPPING_TRANSACTION_PUB');
5276: END IF;
5277: FND_MESSAGE.SET_NAME('INV', 'INV_UNASSIGN_DEL_FAILURE');
5275: debug('Error Unassign_Detail_from_Cont'|| l_return_status, 'WMS_SHIPPING_TRANSACTION_PUB');
5276: END IF;
5277: FND_MESSAGE.SET_NAME('INV', 'INV_UNASSIGN_DEL_FAILURE');
5278: FND_MSG_PUB.ADD;
5279: RAISE FND_API.G_EXC_ERROR;
5280: end if;
5281:
5282: l_wdd_counter := l_wdd_counter + 1;
5283: END LOOP;
5303: debug('update_wdd_loc_by_lpn 25 - WSH_INTERFACE.Update_Shipping_Attributes returns : '
5304: ||l_return_status, 'WMS_SHIPPING_TRANSACTION_PUB');
5305: END IF;
5306:
5307: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5308: IF (l_debug = 1) THEN
5309: debug('update_wdd_loc_by_lpn 30 - return expected error from update_shipping_attributes',
5310: 'WMS_SHIPPING_TRANSACTION_PUB');
5311: END IF;
5309: debug('update_wdd_loc_by_lpn 30 - return expected error from update_shipping_attributes',
5310: 'WMS_SHIPPING_TRANSACTION_PUB');
5311: END IF;
5312:
5313: RAISE FND_API.G_EXC_ERROR;
5314:
5315: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5316: IF (l_debug = 1) THEN
5317: debug('update_wdd_loc_by_lpn 40 - return unexpected error from update_shipping_attributes',
5311: END IF;
5312:
5313: RAISE FND_API.G_EXC_ERROR;
5314:
5315: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5316: IF (l_debug = 1) THEN
5317: debug('update_wdd_loc_by_lpn 40 - return unexpected error from update_shipping_attributes',
5318: 'WMS_SHIPPING_TRANSACTION_PUB');
5319: END IF;
5317: debug('update_wdd_loc_by_lpn 40 - return unexpected error from update_shipping_attributes',
5318: 'WMS_SHIPPING_TRANSACTION_PUB');
5319: END IF;
5320:
5321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5322: END IF;
5323:
5324: l_progress := '60';
5325:
5327: debug('update_wdd_loc_by_lpn 50 - complete','WMS_SHIPPING_TRANSACTION_PUB');
5328: END IF;
5329:
5330: EXCEPTION
5331: WHEN fnd_api.g_exc_error THEN
5332: x_return_status := fnd_api.g_ret_sts_error;
5333: ROLLBACK TO update_wdd_loc_sp;
5334:
5335: IF cur_delivery_details%isopen THEN
5328: END IF;
5329:
5330: EXCEPTION
5331: WHEN fnd_api.g_exc_error THEN
5332: x_return_status := fnd_api.g_ret_sts_error;
5333: ROLLBACK TO update_wdd_loc_sp;
5334:
5335: IF cur_delivery_details%isopen THEN
5336: CLOSE cur_delivery_details;
5342: IF (l_debug = 1) THEN
5343: debug('update_wdd_loc_by_lpn 60 - expected error', 'WMS_SHIPPING_TRANSACTION_PUB');
5344: END IF;
5345:
5346: WHEN fnd_api.g_exc_unexpected_error THEN
5347: x_return_status := fnd_api.g_ret_sts_unexp_error;
5348: ROLLBACK TO update_wdd_loc_sp;
5349:
5350: IF cur_delivery_details%isopen THEN
5343: debug('update_wdd_loc_by_lpn 60 - expected error', 'WMS_SHIPPING_TRANSACTION_PUB');
5344: END IF;
5345:
5346: WHEN fnd_api.g_exc_unexpected_error THEN
5347: x_return_status := fnd_api.g_ret_sts_unexp_error;
5348: ROLLBACK TO update_wdd_loc_sp;
5349:
5350: IF cur_delivery_details%isopen THEN
5351: CLOSE cur_delivery_details;
5359: END IF;
5360:
5361: WHEN OTHERS THEN
5362: ROLLBACK TO update_wdd_loc_sp;
5363: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5364: IF cur_delivery_details%isopen THEN
5365: CLOSE cur_delivery_details;
5366: END IF;
5367:
5510: IF l_debug = 1 THEN
5511: debug('wsh_delivery_details_pub.update_shipping_attributes failed'
5512: || ' with status: ' || l_return_status, 'LPN_UNLOAD');
5513: END IF;
5514: RAISE fnd_api.g_exc_unexpected_error;
5515: END IF;
5516: --\Shipping API cleanup
5517:
5518: --Patchset J LPN hierarchy
5537: -- Commit if no errors
5538: COMMIT;
5539:
5540: EXCEPTION
5541: WHEN fnd_api.g_exc_unexpected_error THEN
5542: x_error_code := 9999;
5543: ROLLBACK;
5544: WHEN OTHERS THEN
5545: x_error_code := 9999;
6488: procedure close_truck
6489: ( P_dock_door_id IN NUMBER,
6490: P_organization_id IN NUMBER,
6491: p_shipping_mode IN VARCHAR2 DEFAULT null,
6492: p_commit_flag IN VARCHAR2 DEFAULT fnd_api.g_true,
6493: x_return_status OUT NOCOPY VARCHAR2,
6494: x_return_msg OUT NOCOPY VARCHAR2
6495: )
6496: IS
6531: l_debug number;
6532:
6533: BEGIN
6534:
6535: x_return_status := FND_API.g_ret_sts_success;
6536: IF g_debug IS NULL THEN
6537: g_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6538: END IF;
6539: l_debug := g_debug;
6591: IF l_error_code <> 0 THEN
6592: IF (l_debug = 1) THEN
6593: debug('check_lpn_deliveries delivery failed','CLOSE_TRUCK');
6594: END IF;
6595: RAISE FND_API.G_EXC_ERROR;
6596: END IF;
6597: END LOOP;
6598: CLOSE normal_lpns_for_dock;
6599: EXCEPTION
6600: when no_data_found then
6601: IF (l_debug = 1) THEN
6602: debug('check_lpn_deliveries: NO DATA FOUND','CLOSE_TRUCK');
6603: END IF;
6604: RAISE FND_API.G_EXC_ERROR;
6605: END;
6606:
6607: --Following api process ship LPNs with dock-appointment and without dock
6608: -- appointment, ALL that are loaded TO the dock door
6628: END IF;
6629:
6630: IF l_return_status IN ('S','W') THEN
6631:
6632: IF p_commit_flag = fnd_api.g_true THEN
6633: IF (l_debug = 1) THEN
6634: debug(' Commit', 'CLOSE_TRUCK');
6635: END IF;
6636:
6647:
6648: IF (l_debug = 1) THEN
6649: debug(' returning Error', 'CLOSE_TRUCK');
6650: END IF;
6651: RAISE fnd_api.g_exc_error;
6652:
6653: END IF;
6654: END IF;
6655:
6682:
6683:
6684: IF l_return_status IN ('S','W') THEN
6685:
6686: IF p_commit_flag = fnd_api.g_true THEN
6687: IF (l_debug = 1) THEN
6688: debug(' Commit', 'CLOSE_TRUCK');
6689: END IF;
6690:
6698: END IF;
6699:
6700: ELSE
6701: debug(' returning Error', 'CLOSE_TRUCK');
6702: RAISE fnd_api.g_exc_error;
6703:
6704: END IF;
6705:
6706: END IF;