[Home] [Help]
219: WHEN FND_API.G_EXC_ERROR THEN
220: --
221: x_return_status := FND_API.G_RET_STS_ERROR;
222: --
223: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
224: , p_data => x_msg_data);
225: --
226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
227: --
226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
227: --
228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
229: --
230: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
231: , p_data => x_msg_data);
232: --
233: WHEN OTHERS THEN
234: ROLLBACK TO Pick_Release_PUB;
234: ROLLBACK TO Pick_Release_PUB;
235: --
236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
237: --
238: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
239: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
240: END IF;
241: --
242: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
235: --
236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
237: --
238: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
239: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
240: END IF;
241: --
242: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
243: , p_data => x_msg_data);
238: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
239: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
240: END IF;
241: --
242: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
243: , p_data => x_msg_data);
244: END;
245:
246:
415: WHEN no_data_found THEN
416: ROLLBACK TO Assign_Pick_slip;
417: FND_MESSAGE.SET_NAME('INV','INV_NO_HEADER_FOUND');
418: FND_MESSAGE.SET_TOKEN('MO_LINE_ID','');
419: FND_MSG_PUB.Add;
420: RAISE fnd_api.g_exc_unexpected_error;
421: END;
422:
423: IF (l_debug = 1) THEN
436: EXCEPTION
437: WHEN no_data_found THEN
438: ROLLBACK TO Assign_pick_slip;
439: FND_MESSAGE.SET_NAME('INV','INV-NO ORG INFORMATION');
440: FND_MSG_PUB.Add;
441: RAISE fnd_api.g_exc_unexpected_error;
442: END;
443: END IF; -- get header rule
444: END IF; -- return status
508: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
509: ROLLBACK TO assign_pick_slip;
510: fnd_message.set_name('INV', 'INV_PRINT_PICK_SLIP_FAILED');
511: fnd_message.set_token('PICK_SLIP_NUM', TO_CHAR(l_pick_slip_number));
512: fnd_msg_pub.ADD;
513: RAISE fnd_api.g_exc_unexpected_error;
514: END IF;
515: END IF;
516:
549: IF l_api_return_status <> fnd_api.g_ret_sts_success
550: OR l_pick_slip_number = -1 THEN
551: ROLLBACK TO assign_pick_slip;
552: fnd_message.set_name('INV', 'INV_NO_PICK_SLIP_NUMBER');
553: fnd_msg_pub.ADD;
554: RAISE fnd_api.g_exc_unexpected_error;
555: END IF;
556:
557: IF ( p_ps_mode <> 'I' ) THEN
621: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
622: ROLLBACK TO process_line_pvt;
623: fnd_message.set_name('INV', 'INV_PRINT_PICK_SLIP_FAILED');
624: fnd_message.set_token('PICK_SLIP_NUM', TO_CHAR(l_pick_slip_number));
625: fnd_msg_pub.ADD;
626: RAISE fnd_api.g_exc_unexpected_error;
627: END IF;
628: END IF;
629: END IF;
634: ROLLBACK TO Assign_pick_slip;
635: --
636: x_return_status := FND_API.G_RET_STS_ERROR;
637: --
638: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
639: , p_data => x_msg_data);
640: --
641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
642: ROLLBACK TO Assign_pick_slip;
642: ROLLBACK TO Assign_pick_slip;
643: --
644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
645: --
646: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
647: , p_data => x_msg_data);
648: --
649: WHEN OTHERS THEN
650: ROLLBACK TO Assign_pick_slip;
650: ROLLBACK TO Assign_pick_slip;
651: --
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
653: --
654: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
655: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
656: END IF;
657: --
658: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
651: --
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
653: --
654: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
655: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
656: END IF;
657: --
658: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
659: , p_data => x_msg_data);
654: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
655: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
656: END IF;
657: --
658: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
659: , p_data => x_msg_data);
660: END assign_pick_slip_number;
661:
662:
1033: END IF;
1034:
1035: -- Initialize message list if p_init_msg_list is set to true
1036: IF fnd_api.to_Boolean(p_init_msg_list) THEN
1037: fnd_msg_pub.initialize;
1038: END IF;
1039:
1040: -- Initialize API return status to success
1041: x_return_status := fnd_api.g_ret_sts_success;
1052: End If;
1053:
1054: ROLLBACK TO Pick_Release_PUB;
1055: FND_MESSAGE.SET_NAME('INV','INV_NO_LINES_TO_PICK');
1056: FND_MSG_PUB.Add;
1057: RAISE fnd_api.g_exc_unexpected_error;
1058: END IF;
1059:
1060: -- Set move order transaction date if passed in as not NULL
1093: End If;
1094:
1095: ROLLBACK TO Pick_Release_PUB;
1096: FND_MESSAGE.SET_NAME('INV','INV_PICK_DIFFERENT_ORG');
1097: FND_MSG_PUB.Add;
1098: RAISE fnd_api.g_exc_unexpected_error;
1099: END IF;
1100:
1101: -- Verify that the line status is approved or pre-approved
1105: End If;
1106:
1107: ROLLBACK TO Pick_Release_PUB;
1108: FND_MESSAGE.SET_NAME('INV','INV_PICK_LINE_STATUS');
1109: FND_MSG_PUB.Add;
1110: RAISE fnd_api.g_exc_unexpected_error;
1111: END IF;
1112:
1113: IF l_mo_line.header_id <> l_current_header_id OR
1131:
1132: ROLLBACK TO Pick_Release_PUB;
1133: FND_MESSAGE.SET_NAME('INV','INV_NON_PICK_WAVE_MO');
1134: FND_MESSAGE.SET_TOKEN('MO_NUMBER',l_mo_number);
1135: FND_MSG_PUB.Add;
1136: RAISE fnd_api.g_exc_unexpected_error;
1137: END IF;
1138: l_mol_id_tbl(l_mol_id_index) := l_mo_line.line_id;
1139: l_mol_id_index := l_mol_id_index + 1;
1323: 'Inv_Pick_Release_PUB.Pick_release');
1324: End If;
1325: --ROLLBACK TO Pick_Release_PUB;
1326: --FND_MESSAGE.SET_NAME('INV','INV_DELIV_INFO_MISSING');
1327: -- FND_MSG_PUB.Add;
1328: -- RAISE fnd_api.g_exc_unexpected_error;
1329: END;
1330:
1331: l_return_value := INV_CACHE.set_mso_rec(l_oe_header_id);
1431: print_debug('Error: Invalid auto_pick_confirm flag','INV_Pick_Release_Pub.Pick_Release');
1432: End If;
1433: ROLLBACK TO Pick_Release_PUB;
1434: FND_MESSAGE.SET_NAME('INV','INV_AUTO_PICK_CONFIRM_PARAM');
1435: FND_MSG_PUB.Add;
1436: RAISE fnd_api.g_exc_unexpected_error;
1437: ELSE
1438: l_auto_pick_confirm := p_auto_pick_confirm;
1439: END IF;
1469: print_debug('Error: print_pick_slip_mode not defined','INV_Pick_Release_Pub.Pick_Release');
1470: End If;
1471: ROLLBACK TO Pick_Release_PUB;
1472: FND_MESSAGE.SET_NAME('INV','INV_WSH_ORG_NOT_FOUND');
1473: FND_MSG_PUB.Add;
1474: RAISE fnd_api.g_exc_unexpected_error;
1475: END;
1476:
1477: g_organization_id := l_organization_id;
1486: print_debug('Error: invalid partial pick parameter','INV_Pick_Release_Pub.Pick_Release');
1487: End If;
1488: ROLLBACK TO Pick_Release_PUB;
1489: FND_MESSAGE.SET_NAME('INV','INV_INVALID_PARTIAL_PICK_PARAM');
1490: FND_MSG_PUB.Add;
1491: RAISE fnd_api.g_exc_unexpected_error;
1492: END IF;
1493:
1494: If is_debug then
1637: 'INV_Pick_Release_Pub.Pick_Release');
1638: End If;
1639: ROLLBACK TO Pick_Release_PUB;
1640: FND_MESSAGE.SET_NAME('INV','INV-NO ORG INFORMATION');
1641: FND_MSG_PUB.Add;
1642: RAISE fnd_api.g_exc_unexpected_error;
1643: END;
1644:
1645: If g_organization_id IS NULL Or
1813: IF p_allow_partial_pick = fnd_api.g_false THEN
1814: x_pick_release_status.delete;
1815: ROLLBACK TO Pick_Release_PUB;
1816: FND_MESSAGE.SET_NAME('INV','INV_COULD_NOT_PICK_FULL');
1817: FND_MSG_PUB.Add;
1818: RAISE fnd_api.g_exc_unexpected_error;
1819: END IF;
1820: END IF;
1821:
2204: 'Inv_Pick_Release_Pub.Pick_Release');
2205: End If;
2206: ROLLBACK TO Pick_Release_PUB;
2207: FND_MESSAGE.SET_NAME('INV','INV_DELIV_INFO_MISSING');
2208: FND_MSG_PUB.Add;
2209: RAISE fnd_api.g_exc_unexpected_error;
2210: END;
2211:
2212: -- convert to primary UOM
2325: 'Inv_Pick_Release_Pub.Pick_Release');
2326: End If;
2327: ROLLBACK TO Pick_Release_PUB;
2328: FND_MESSAGE.SET_NAME('INV','INV_DELIV_INFO_MISSING');
2329: FND_MSG_PUB.Add;
2330: RAISE fnd_api.g_exc_unexpected_error;
2331: END;
2332:
2333: --convert to primary quantity
3310: IF (l_debug = 1) THEN
3311: print_debug('failed to print labels', 'Inv_Pick_Release_Pub.Pick_Release');
3312: END IF;
3313: fnd_message.set_name('WMS','WMS_PRINT_LABEL_FAIL');
3314: fnd_msg_pub.ADD;
3315: END IF;
3316:
3317:
3318: END LOOP; --}
3326: IF (l_debug = 1) THEN
3327: print_debug('Exception occured while calling print_label', 'Inv_Pick_Release_Pub.Pick_Release');
3328: END IF;
3329: fnd_message.set_name('WMS', 'WMS_PRINT_LABEL_FAIL');
3330: fnd_msg_pub.ADD;
3331:
3332: IF c_wpr_casepick_labels%ISOPEN THEN
3333: CLOSE c_wpr_casepick_labels;
3334: END IF;
3490: x_return_status := FND_API.G_RET_STS_ERROR;
3491: l_return_value := inv_cache.set_pick_release(FALSE); --Added bug3237702
3492: inv_log_util.g_maintain_log_profile := TRUE;
3493: --
3494: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3495: , p_data => x_msg_data);
3496: --
3497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3498: --
3499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3500: l_return_value := inv_cache.set_pick_release(FALSE); --Added bug3237702
3501: inv_log_util.g_maintain_log_profile := TRUE;
3502: --
3503: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3504: , p_data => x_msg_data);
3505: --
3506: WHEN OTHERS THEN
3507: IF is_debug THEN
3514: l_return_value := inv_cache.set_pick_release(FALSE); --Added bug3237702
3515: inv_log_util.g_maintain_log_profile := TRUE;
3516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3517: --
3518: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3519: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3520: END IF;
3521: --
3522: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3515: inv_log_util.g_maintain_log_profile := TRUE;
3516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3517: --
3518: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3519: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3520: END IF;
3521: --
3522: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3523: , p_data => x_msg_data);
3518: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3519: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3520: END IF;
3521: --
3522: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3523: , p_data => x_msg_data);
3524: END Pick_Release;
3525:
3526:
3643: END IF;
3644:
3645: -- Initialize message list if p_init_msg_list is set to true
3646: IF fnd_api.to_Boolean(p_init_msg_list) THEN
3647: fnd_msg_pub.initialize;
3648: END IF;
3649:
3650: -- Initialize API return status to success
3651: x_return_status := fnd_api.g_ret_sts_success;
3654:
3655: -- First make sure that missing quantity is not <= 0
3656: IF p_missing_quantity <= 0 THEN
3657: FND_MESSAGE.SET_NAME('INV','INV_NO_QTY_TO_TRANSFER');
3658: FND_MSG_PUB.Add;
3659: RAISE fnd_api.g_exc_unexpected_error;
3660: END IF;
3661:
3662: -- Determine whether the reservation id was given, or if it must be derived
3678: p_demand_source_header_id IS NULL OR
3679: p_demand_source_line_id = fnd_api.g_miss_num OR
3680: p_demand_source_line_id IS NULL THEN
3681: FND_MESSAGE.SET_NAME('INV','INV_COULD_NOT_ID_RSV');
3682: FND_MSG_PUB.Add;
3683: RAISE fnd_api.g_exc_unexpected_error;
3684: END IF;
3685:
3686: -- First attempt to convert the demand source header id given
3688: /*l_mso_header_id :=
3689: inv_salesorder.get_salesorder_for_oeheader(p_demand_source_header_id);
3690: IF l_mso_header_id IS NULL THEN
3691: FND_MESSAGE.SET_NAME('INV','INV_COULD_NOT_GET_MSO_HEADER');
3692: FND_MSG_PUB.Add;
3693: RAISE fnd_api.g_exc_unexpected_error;
3694: END IF;*/
3695:
3696: l_reservation_rec.inventory_item_id := p_inventory_item_id;
3742: );
3743: -- Return an error if the query reservations call failed
3744: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
3745: FND_MESSAGE.SET_NAME('INV','INV_QRY_RSV_FAILED');
3746: FND_MSG_PUB.Add;
3747: RAISE fnd_api.g_exc_unexpected_error;
3748: END IF;
3749:
3750: -- Only 1 reservation record should have been returned, since the parameters
3750: -- Only 1 reservation record should have been returned, since the parameters
3751: -- passed are supposed to uniquely identify a reservation record.
3752: IF l_reservation_count = 0 THEN
3753: FND_MESSAGE.SET_NAME('INV','INV_NO_RSVS_FOUND');
3754: FND_MSG_PUB.Add;
3755: RAISE fnd_api.g_exc_unexpected_error;
3756: END IF;
3757:
3758: IF l_reservation_count > 1 THEN
3756: END IF;
3757:
3758: IF l_reservation_count > 1 THEN
3759: FND_MESSAGE.SET_NAME('INV','INV_NON_UNIQUE_RSV');
3760: FND_MSG_PUB.Add;
3761: RAISE fnd_api.g_exc_unexpected_error;
3762: END IF;
3763:
3764: -- Determine whether the quantity to transfer is greater
3764: -- Determine whether the quantity to transfer is greater
3765: -- than the currently reserved quantity
3766: IF p_missing_quantity > l_reservations_tbl(1).primary_reservation_quantity THEN
3767: FND_MESSAGE.SET_NAME('INV','INV_INSUFF_QTY_RSV');
3768: FND_MSG_PUB.Add;
3769: RAISE fnd_api.g_exc_unexpected_error;
3770: END IF;
3771:
3772: -- Initialize the querying record with the reservation ID so that the update
3810: );
3811: -- Return an error if the transfer reservations call failed
3812: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
3813: FND_MESSAGE.SET_NAME('INV','INV_TRANSFER_RSV_FAILED');
3814: FND_MSG_PUB.Add;
3815: RAISE fnd_api.g_exc_unexpected_error;
3816: END IF;
3817:
3818: -- Commit if necessary
3829: WHEN FND_API.G_EXC_ERROR THEN
3830: --
3831: x_return_status := FND_API.G_RET_STS_ERROR;
3832: --
3833: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3834: , p_data => x_msg_data);
3835: --
3836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3837: --
3836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3837: --
3838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3839: --
3840: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3841: , p_data => x_msg_data);
3842: --
3843: WHEN OTHERS THEN
3844: ROLLBACK TO Reserve_Unconfirmed_Qty_PUB;
3844: ROLLBACK TO Reserve_Unconfirmed_Qty_PUB;
3845: --
3846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3847: --
3848: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3849: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3850: END IF;
3851: --
3852: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3845: --
3846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3847: --
3848: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3849: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3850: END IF;
3851: --
3852: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3853: , p_data => x_msg_data);
3848: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3849: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3850: END IF;
3851: --
3852: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3853: , p_data => x_msg_data);
3854: END Reserve_Unconfirmed_Quantity;
3855:
3856:
3910: 'INV_Pick_Release_Pub.Pick_Release');
3911: End If;
3912: --ROLLBACK TO Pick_Release_PUB;
3913: FND_MESSAGE.SET_NAME('INV','INV_WSH_ORG_NOT_FOUND');
3914: FND_MSG_PUB.Add;
3915: RAISE fnd_api.g_exc_unexpected_error;
3916: END;
3917:
3918: g_organization_id := p_org_id;
3992: WHEN FND_API.G_EXC_ERROR THEN
3993: --
3994: x_return_status := FND_API.G_RET_STS_ERROR;
3995: --
3996: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
3997: , p_data => x_msg_data);
3998: --
3999: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4000: --
3999: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4000: --
4001: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4002: --
4003: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
4004: , p_data => x_msg_data);
4005: --
4006: WHEN OTHERS THEN
4007: ROLLBACK TO PR_Call_cartonization;
4007: ROLLBACK TO PR_Call_cartonization;
4008: --
4009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4010: --
4011: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4012: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Call_Cartonization');
4013: END IF;
4014: --
4015: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
4008: --
4009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4010: --
4011: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4012: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Call_Cartonization');
4013: END IF;
4014: --
4015: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
4016: , p_data => x_msg_data);
4011: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4012: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Call_Cartonization');
4013: END IF;
4014: --
4015: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
4016: , p_data => x_msg_data);
4017: END call_cartonization;
4018:
4019: /* Bug 7504490* - Added the procedure Reserve_Unconfqty_lpn. This procedure transfers the reservation
4090: END IF;
4091:
4092: -- Initialize message list if p_init_msg_list is set to true
4093: IF fnd_api.to_Boolean(p_init_msg_list) THEN
4094: fnd_msg_pub.initialize;
4095: END IF;
4096:
4097: -- Initialize API return status to success
4098: x_return_status := fnd_api.g_ret_sts_success;
4101:
4102: -- First make sure that missing quantity is not <= 0
4103: IF p_missing_quantity <= 0 THEN
4104: FND_MESSAGE.SET_NAME('INV','INV_NO_QTY_TO_TRANSFER');
4105: FND_MSG_PUB.Add;
4106: RAISE fnd_api.g_exc_unexpected_error;
4107: END IF;
4108:
4109: -- Determine whether the reservation id was given, or if it must be derived
4125: p_demand_source_header_id IS NULL OR
4126: p_demand_source_line_id = fnd_api.g_miss_num OR
4127: p_demand_source_line_id IS NULL THEN
4128: FND_MESSAGE.SET_NAME('INV','INV_COULD_NOT_ID_RSV');
4129: FND_MSG_PUB.Add;
4130: RAISE fnd_api.g_exc_unexpected_error;
4131: END IF;
4132:
4133: -- First attempt to convert the demand source header id given
4135: /*l_mso_header_id :=
4136: inv_salesorder.get_salesorder_for_oeheader(p_demand_source_header_id);
4137: IF l_mso_header_id IS NULL THEN
4138: FND_MESSAGE.SET_NAME('INV','INV_COULD_NOT_GET_MSO_HEADER');
4139: FND_MSG_PUB.Add;
4140: RAISE fnd_api.g_exc_unexpected_error;
4141: END IF;*/
4142:
4143: l_reservation_rec.inventory_item_id := p_inventory_item_id;
4194: );
4195: -- Return an error if the query reservations call failed
4196: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
4197: FND_MESSAGE.SET_NAME('INV','INV_QRY_RSV_FAILED');
4198: FND_MSG_PUB.Add;
4199: RAISE fnd_api.g_exc_unexpected_error;
4200: END IF;
4201:
4202: -- Only 1 reservation record should have been returned, since the parameters
4202: -- Only 1 reservation record should have been returned, since the parameters
4203: -- passed are supposed to uniquely identify a reservation record.
4204: IF l_reservation_count = 0 THEN
4205: FND_MESSAGE.SET_NAME('INV','INV_NO_RSVS_FOUND');
4206: FND_MSG_PUB.Add;
4207: RAISE fnd_api.g_exc_unexpected_error;
4208: END IF;
4209:
4210: IF l_reservation_count > 1 THEN
4208: END IF;
4209:
4210: IF l_reservation_count > 1 THEN
4211: FND_MESSAGE.SET_NAME('INV','INV_NON_UNIQUE_RSV');
4212: FND_MSG_PUB.Add;
4213: RAISE fnd_api.g_exc_unexpected_error;
4214: END IF;
4215:
4216: -- Determine whether the quantity to transfer is greater
4216: -- Determine whether the quantity to transfer is greater
4217: -- than the currently reserved quantity
4218: IF p_missing_quantity > l_reservations_tbl(1).primary_reservation_quantity THEN
4219: FND_MESSAGE.SET_NAME('INV','INV_INSUFF_QTY_RSV');
4220: FND_MSG_PUB.Add;
4221: RAISE fnd_api.g_exc_unexpected_error;
4222: END IF;
4223:
4224: -- Initialize the querying record with the reservation ID so that the update
4258: );
4259: -- Return an error if the transfer reservations call failed
4260: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
4261: FND_MESSAGE.SET_NAME('INV','INV_TRANSFER_RSV_FAILED');
4262: FND_MSG_PUB.Add;
4263: RAISE fnd_api.g_exc_unexpected_error;
4264: END IF;
4265: x_new_rsv_id := l_new_rsv_id ; --Bug#8301348
4266: -- Commit if necessary
4277: WHEN FND_API.G_EXC_ERROR THEN
4278: --
4279: x_return_status := FND_API.G_RET_STS_ERROR;
4280: --
4281: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
4282: , p_data => x_msg_data);
4283: --
4284: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4285: --
4284: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4285: --
4286: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4287: --
4288: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
4289: , p_data => x_msg_data);
4290: --
4291: WHEN OTHERS THEN
4292: ROLLBACK TO Reserve_Unconfirmed_Qty_PUB;
4292: ROLLBACK TO Reserve_Unconfirmed_Qty_PUB;
4293: --
4294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4295: --
4296: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4297: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4298: END IF;
4299: --
4300: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
4293: --
4294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4295: --
4296: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4297: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4298: END IF;
4299: --
4300: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
4301: , p_data => x_msg_data);
4296: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4297: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4298: END IF;
4299: --
4300: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
4301: , p_data => x_msg_data);
4302: END Reserve_Unconfqty_lpn;
4303:
4304: