1963: IF (l_debug = 1) THEN
1964: mdebug ('lpn '||l_lpn_id||' is reserved.');
1965: END IF;
1966: x_return := 'N';
1967: fnd_message.set_name('INV', 'INV_LPN_RESERVED');
1968: x_return_msg := fnd_message.get;
1969: RETURN x_return;
1970: end if;
1971:
1964: mdebug ('lpn '||l_lpn_id||' is reserved.');
1965: END IF;
1966: x_return := 'N';
1967: fnd_message.set_name('INV', 'INV_LPN_RESERVED');
1968: x_return_msg := fnd_message.get;
1969: RETURN x_return;
1970: end if;
1971:
1972: END LOOP;
2018: IF (l_debug = 1) THEN
2019: mdebug ('lpn '||l_lpn_id||' is allocated.');
2020: END IF;
2021: x_return := 'N';
2022: fnd_message.set_name('INV', 'INV_LPN_ALLOCATED');
2023: x_return_msg := fnd_message.get;
2024: RETURN x_return;
2025: end if;
2026: END LOOP;
2019: mdebug ('lpn '||l_lpn_id||' is allocated.');
2020: END IF;
2021: x_return := 'N';
2022: fnd_message.set_name('INV', 'INV_LPN_ALLOCATED');
2023: x_return_msg := fnd_message.get;
2024: RETURN x_return;
2025: end if;
2026: END LOOP;
2027: CLOSE c_lpn_content;
2090: IF (l_debug = 1) THEN
2091: mdebug ('serial no: '||l_serial_number||' in lpn '||l_lpn_id||' is allocated.');
2092: END IF;
2093: x_return := 'N';
2094: fnd_message.set_name('INV', 'INV_SERIAL_ALLOCATED');
2095: x_return_msg := fnd_message.get;
2096: RETURN x_return;
2097: end if;
2098: exception
2091: mdebug ('serial no: '||l_serial_number||' in lpn '||l_lpn_id||' is allocated.');
2092: END IF;
2093: x_return := 'N';
2094: fnd_message.set_name('INV', 'INV_SERIAL_ALLOCATED');
2095: x_return_msg := fnd_message.get;
2096: RETURN x_return;
2097: end if;
2098: exception
2099: when no_data_found then
2166: IF (l_debug = 1) THEN
2167: mdebug ('LPN '||l_lpn_number||' has contents which are part of a loaded task.');
2168: END IF;
2169: x_return := 'N';
2170: fnd_message.set_name('WMS', 'WMS_LPN_LOADED');
2171: fnd_message.set_token('LPN_NAME',l_lpn_number);
2172: x_return_msg := fnd_message.get;
2173: IF (l_debug = 1) THEN
2174: mdebug (x_return_msg);
2167: mdebug ('LPN '||l_lpn_number||' has contents which are part of a loaded task.');
2168: END IF;
2169: x_return := 'N';
2170: fnd_message.set_name('WMS', 'WMS_LPN_LOADED');
2171: fnd_message.set_token('LPN_NAME',l_lpn_number);
2172: x_return_msg := fnd_message.get;
2173: IF (l_debug = 1) THEN
2174: mdebug (x_return_msg);
2175: END IF;
2168: END IF;
2169: x_return := 'N';
2170: fnd_message.set_name('WMS', 'WMS_LPN_LOADED');
2171: fnd_message.set_token('LPN_NAME',l_lpn_number);
2172: x_return_msg := fnd_message.get;
2173: IF (l_debug = 1) THEN
2174: mdebug (x_return_msg);
2175: END IF;
2176: RETURN x_return;
2218: and msnt.transaction_temp_id = nvl(mtlt.serial_transaction_temp_id, mmtt.transaction_temp_id);
2219:
2220: if l_cnt = 1 then
2221: x_return := 'N';
2222: fnd_message.set_name('INV', 'INV_SERIAL_ALLOCATED');
2223: x_return_msg := fnd_message.get;
2224: RETURN x_return;
2225: end if;
2226:
2219:
2220: if l_cnt = 1 then
2221: x_return := 'N';
2222: fnd_message.set_name('INV', 'INV_SERIAL_ALLOCATED');
2223: x_return_msg := fnd_message.get;
2224: RETURN x_return;
2225: end if;
2226:
2227: exception
2659: l_lot_number := l_record.lot_number;
2660:
2661: IF l_lpn_context NOT IN (1) THEN
2662: x_return := 'N';
2663: fnd_message.set_name('INV', 'INV_NOT_INVENTORY');
2664: x_return_msg := fnd_message.get;
2665: RETURN x_return;
2666: END IF ;
2667:
2660:
2661: IF l_lpn_context NOT IN (1) THEN
2662: x_return := 'N';
2663: fnd_message.set_name('INV', 'INV_NOT_INVENTORY');
2664: x_return_msg := fnd_message.get;
2665: RETURN x_return;
2666: END IF ;
2667:
2668: SELECT revision_qty_control_code ,
2722: x_return := 'Y';
2723: x_return_msg :='SUCCESS';
2724: ELSE
2725: x_return := 'F';
2726: FND_MESSAGE.set_name('INV', 'INV_LPN_QTY_ERR');
2727: x_return_msg :=fnd_message.get;
2728: RETURN x_return;
2729: END IF ;
2730: ELSE
2723: x_return_msg :='SUCCESS';
2724: ELSE
2725: x_return := 'F';
2726: FND_MESSAGE.set_name('INV', 'INV_LPN_QTY_ERR');
2727: x_return_msg :=fnd_message.get;
2728: RETURN x_return;
2729: END IF ;
2730: ELSE
2731: x_return :='F';
2728: RETURN x_return;
2729: END IF ;
2730: ELSE
2731: x_return :='F';
2732: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2733: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2734: x_return_msg := fnd_message.get;
2735: RETURN x_return;
2736: END IF ;
2729: END IF ;
2730: ELSE
2731: x_return :='F';
2732: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2733: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2734: x_return_msg := fnd_message.get;
2735: RETURN x_return;
2736: END IF ;
2737: l_updt_qoh := - l_qoh;
2730: ELSE
2731: x_return :='F';
2732: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2733: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2734: x_return_msg := fnd_message.get;
2735: RETURN x_return;
2736: END IF ;
2737: l_updt_qoh := - l_qoh;
2738: /*need to update qty tree */
2904: l_lot_number := l_record.lot_number;
2905:
2906: IF l_lpn_context NOT IN (1) THEN
2907: x_return := 'N';
2908: fnd_message.set_name('INV', 'INV_NOT_INVENTORY');
2909: x_return_msg := fnd_message.get;
2910: RETURN x_return;
2911: END IF ;
2912:
2905:
2906: IF l_lpn_context NOT IN (1) THEN
2907: x_return := 'N';
2908: fnd_message.set_name('INV', 'INV_NOT_INVENTORY');
2909: x_return_msg := fnd_message.get;
2910: RETURN x_return;
2911: END IF ;
2912:
2913: SELECT revision_qty_control_code ,
2987: END IF;
2988: x_return_msg := 'VALIDATE_INV_LPN_QTY_ERR';
2989: END IF;
2990: ELSE
2991: FND_MESSAGE.set_name('INV', 'INV_LPN_QTY_ERR');
2992: x_return_msg := fnd_message.get;
2993: END IF;
2994: RETURN x_return;
2995: END IF;
2988: x_return_msg := 'VALIDATE_INV_LPN_QTY_ERR';
2989: END IF;
2990: ELSE
2991: FND_MESSAGE.set_name('INV', 'INV_LPN_QTY_ERR');
2992: x_return_msg := fnd_message.get;
2993: END IF;
2994: RETURN x_return;
2995: END IF;
2996:
2995: END IF;
2996:
2997: ELSE
2998: x_return :='F';
2999: FND_MESSAGE.set_name('INV', 'INV-INVALID_QUANTITY_TYPE');
3000: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3001: x_return_msg := fnd_message.get;
3002: RETURN x_return;
3003: END IF ;
2996:
2997: ELSE
2998: x_return :='F';
2999: FND_MESSAGE.set_name('INV', 'INV-INVALID_QUANTITY_TYPE');
3000: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3001: x_return_msg := fnd_message.get;
3002: RETURN x_return;
3003: END IF ;
3004:
2997: ELSE
2998: x_return :='F';
2999: FND_MESSAGE.set_name('INV', 'INV-INVALID_QUANTITY_TYPE');
3000: FND_MESSAGE.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3001: x_return_msg := fnd_message.get;
3002: RETURN x_return;
3003: END IF ;
3004:
3005: -- Added for lpn reservations
3115: END IF ;
3116:
3117: IF (p_inventory_item_id IS NULL) THEN
3118: x_return := 'N';
3119: fnd_message.set_name('INV', 'INV_INT_ITMCODE');
3120: x_return_msg := fnd_message.get;
3121: RETURN x_return;
3122: END IF ;
3123:
3116:
3117: IF (p_inventory_item_id IS NULL) THEN
3118: x_return := 'N';
3119: fnd_message.set_name('INV', 'INV_INT_ITMCODE');
3120: x_return_msg := fnd_message.get;
3121: RETURN x_return;
3122: END IF ;
3123:
3124: IF (p_lpn_id is NOT NULL AND p_lpn_id <> 0)
3137:
3138: IF x_lpn_onhand is NULL
3139: THEN
3140: x_return := 'N';
3141: fnd_message.set_name('INV', 'INV_LPN_INVALID');
3142: x_return_msg := fnd_message.get;
3143: RETURN x_return;
3144: END IF;*/
3145: ELSE
3138: IF x_lpn_onhand is NULL
3139: THEN
3140: x_return := 'N';
3141: fnd_message.set_name('INV', 'INV_LPN_INVALID');
3142: x_return_msg := fnd_message.get;
3143: RETURN x_return;
3144: END IF;*/
3145: ELSE
3146: l_tree_mode := INV_Quantity_Tree_PUB.g_loose_only_mode;
3204: RETURN x_return;
3205: END IF ;
3206: ELSE
3207: x_return :='F';
3208: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3209: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3210: x_return_msg := fnd_message.get;
3211: RETURN x_return;
3212: END IF ;
3205: END IF ;
3206: ELSE
3207: x_return :='F';
3208: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3209: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3210: x_return_msg := fnd_message.get;
3211: RETURN x_return;
3212: END IF ;
3213:
3206: ELSE
3207: x_return :='F';
3208: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3209: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3210: x_return_msg := fnd_message.get;
3211: RETURN x_return;
3212: END IF ;
3213:
3214: RETURN x_return;
3295: END IF ;
3296:
3297: IF (p_inventory_item_id IS NULL) THEN
3298: x_return := 'N';
3299: fnd_message.set_name('INV', 'INV_INT_ITMCODE');
3300: x_return_msg := fnd_message.get;
3301: RETURN x_return;
3302: END IF ;
3303:
3296:
3297: IF (p_inventory_item_id IS NULL) THEN
3298: x_return := 'N';
3299: fnd_message.set_name('INV', 'INV_INT_ITMCODE');
3300: x_return_msg := fnd_message.get;
3301: RETURN x_return;
3302: END IF ;
3303:
3304: IF (p_lpn_id is NOT NULL AND p_lpn_id <> 0)
3317:
3318: IF x_lpn_onhand is NULL
3319: THEN
3320: x_return := 'N';
3321: fnd_message.set_name('INV', 'INV_LPN_INVALID');
3322: x_return_msg := fnd_message.get;
3323: RETURN x_return;
3324: END IF;*/
3325: ELSE
3318: IF x_lpn_onhand is NULL
3319: THEN
3320: x_return := 'N';
3321: fnd_message.set_name('INV', 'INV_LPN_INVALID');
3322: x_return_msg := fnd_message.get;
3323: RETURN x_return;
3324: END IF;*/
3325: ELSE
3326: l_tree_mode := INV_Quantity_Tree_PUB.g_loose_only_mode;
3394: RETURN x_return;
3395: END IF ;
3396: ELSE
3397: x_return :='F';
3398: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3399: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3400: x_return_msg := fnd_message.get;
3401: RETURN x_return;
3402: END IF ;
3395: END IF ;
3396: ELSE
3397: x_return :='F';
3398: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3399: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3400: x_return_msg := fnd_message.get;
3401: RETURN x_return;
3402: END IF ;
3403:
3396: ELSE
3397: x_return :='F';
3398: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3399: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3400: x_return_msg := fnd_message.get;
3401: RETURN x_return;
3402: END IF ;
3403:
3404: RETURN x_return;
3469: END IF ;
3470:
3471: IF (p_inventory_item_id IS NULL) THEN
3472: x_return := 'N';
3473: fnd_message.set_name('INV', 'INV_INT_ITMCODE');
3474: x_return_msg := fnd_message.get;
3475: RETURN x_return;
3476: END IF ;
3477:
3470:
3471: IF (p_inventory_item_id IS NULL) THEN
3472: x_return := 'N';
3473: fnd_message.set_name('INV', 'INV_INT_ITMCODE');
3474: x_return_msg := fnd_message.get;
3475: RETURN x_return;
3476: END IF ;
3477:
3478: IF (p_lpn_id is NOT NULL AND p_lpn_id <> 0)
3491:
3492: IF x_lpn_onhand is NULL
3493: THEN
3494: x_return := 'N';
3495: fnd_message.set_name('INV', 'INV_LPN_INVALID');
3496: x_return_msg := fnd_message.get;
3497: RETURN x_return;
3498: END IF;*/
3499: ELSE
3492: IF x_lpn_onhand is NULL
3493: THEN
3494: x_return := 'N';
3495: fnd_message.set_name('INV', 'INV_LPN_INVALID');
3496: x_return_msg := fnd_message.get;
3497: RETURN x_return;
3498: END IF;*/
3499: ELSE
3500: l_tree_mode := INV_Quantity_Tree_PUB.g_loose_only_mode;
3550: RETURN x_return;
3551: END IF ;
3552: ELSE
3553: x_return :='F';
3554: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3555: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3556: x_return_msg := fnd_message.get;
3557: RETURN x_return;
3558: END IF ;
3551: END IF ;
3552: ELSE
3553: x_return :='F';
3554: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3555: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3556: x_return_msg := fnd_message.get;
3557: RETURN x_return;
3558: END IF ;
3559:
3552: ELSE
3553: x_return :='F';
3554: FND_MESSAGE.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3555: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3556: x_return_msg := fnd_message.get;
3557: RETURN x_return;
3558: END IF ;
3559:
3560: RETURN x_return;
3908: x_serial_processed := 'NO'; -- No processing has been done
3909:
3910: IF p_subinventory_code = p_to_subinventory_code
3911: AND Nvl(p_locator_id, -1) = Nvl(p_to_locator_id, -1) THEN
3912: fnd_message.set_name('INV', 'INV_NOT_SAME_LOC');
3913:
3914: IF p_locator_id IS NOT NULL THEN
3915: x_serial_processed := 'TOLOC';
3916: ELSE
3916: ELSE
3917: x_serial_processed := 'TOSUB';
3918: END IF;
3919:
3920: x_return_msg := fnd_message.get;
3921: RETURN;
3922: END IF;
3923:
3924: -- Check if the serial number is available to be transacted for this transaction
3939: IF (l_debug = 1) THEN
3940: inv_log_util.trace('Status Allowed: ' || l_status_allowed, 'process_serial_subxfr');
3941: END IF;
3942: IF l_status_allowed <> 'Y' THEN
3943: fnd_message.set_name('INV', 'INV_TRX_SER_NA_DUE_MS');
3944: fnd_message.set_token('TOKEN1', p_serial_number);
3945: fnd_message.set_token('TOKEN2', p_inventory_item);
3946: x_serial_processed := 'SERIAL';
3947: x_return_msg := fnd_message.get;
3940: inv_log_util.trace('Status Allowed: ' || l_status_allowed, 'process_serial_subxfr');
3941: END IF;
3942: IF l_status_allowed <> 'Y' THEN
3943: fnd_message.set_name('INV', 'INV_TRX_SER_NA_DUE_MS');
3944: fnd_message.set_token('TOKEN1', p_serial_number);
3945: fnd_message.set_token('TOKEN2', p_inventory_item);
3946: x_serial_processed := 'SERIAL';
3947: x_return_msg := fnd_message.get;
3948: RETURN;
3941: END IF;
3942: IF l_status_allowed <> 'Y' THEN
3943: fnd_message.set_name('INV', 'INV_TRX_SER_NA_DUE_MS');
3944: fnd_message.set_token('TOKEN1', p_serial_number);
3945: fnd_message.set_token('TOKEN2', p_inventory_item);
3946: x_serial_processed := 'SERIAL';
3947: x_return_msg := fnd_message.get;
3948: RETURN;
3949: END IF;
3943: fnd_message.set_name('INV', 'INV_TRX_SER_NA_DUE_MS');
3944: fnd_message.set_token('TOKEN1', p_serial_number);
3945: fnd_message.set_token('TOKEN2', p_inventory_item);
3946: x_serial_processed := 'SERIAL';
3947: x_return_msg := fnd_message.get;
3948: RETURN;
3949: END IF;
3950:
3951: inv_ui_item_sub_loc_lovs.get_to_sub(x_to_sub => l_ref_cur,
3978: inv_log_util.trace('l_to_subinventory_code: ' || l_to_subinventory_code, 'process_serial_subxfr');
3979: END IF;
3980:
3981: IF p_to_subinventory_code <> Nvl(l_to_subinventory_code, '@@@') THEN
3982: fnd_message.set_name('INV', 'INV_INVALID_SUB');
3983: x_serial_processed := 'TOSUB';
3984: x_return_msg := fnd_message.get;
3985: RETURN;
3986: END IF;
3980:
3981: IF p_to_subinventory_code <> Nvl(l_to_subinventory_code, '@@@') THEN
3982: fnd_message.set_name('INV', 'INV_INVALID_SUB');
3983: x_serial_processed := 'TOSUB';
3984: x_return_msg := fnd_message.get;
3985: RETURN;
3986: END IF;
3987:
3988:
4035: inv_log_util.trace('l_to_locator_id: ' || l_to_locator_id, 'process_serial_subxfr');
4036: END IF;
4037:
4038: IF p_to_locator_id <> Nvl(l_to_locator_id, -1) THEN
4039: fnd_message.set_name('INV', 'INV_INT_LOCCODE');
4040: x_serial_processed := 'TOLOC';
4041: x_return_msg := fnd_message.get;
4042: RETURN;
4043: END IF;
4037:
4038: IF p_to_locator_id <> Nvl(l_to_locator_id, -1) THEN
4039: fnd_message.set_name('INV', 'INV_INT_LOCCODE');
4040: x_serial_processed := 'TOLOC';
4041: x_return_msg := fnd_message.get;
4042: RETURN;
4043: END IF;
4044: END IF;
4045: -- End of the newly added loop I Development Bug 2634570
4084: x_att => l_att,
4085: x_atr => l_atr);
4086:
4087: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4088: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
4089: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
4090: x_return_msg := fnd_message.get;
4091: RETURN;
4092: END IF;
4085: x_atr => l_atr);
4086:
4087: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4088: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
4089: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
4090: x_return_msg := fnd_message.get;
4091: RETURN;
4092: END IF;
4093: IF (l_debug = 1) THEN
4086:
4087: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4088: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
4089: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
4090: x_return_msg := fnd_message.get;
4091: RETURN;
4092: END IF;
4093: IF (l_debug = 1) THEN
4094: inv_log_util.trace('ATT: ' || l_att, 'process_serial_subxfr');
4141: x_att => l_att,
4142: x_atr => l_atr);
4143:
4144: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4145: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
4146: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
4147: x_return_msg := fnd_message.get;
4148: RETURN;
4149: END IF;
4142: x_atr => l_atr);
4143:
4144: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4145: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
4146: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
4147: x_return_msg := fnd_message.get;
4148: RETURN;
4149: END IF;
4150: IF (l_debug = 1) THEN
4143:
4144: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4145: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
4146: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
4147: x_return_msg := fnd_message.get;
4148: RETURN;
4149: END IF;
4150: IF (l_debug = 1) THEN
4151: inv_log_util.trace('ATT in source: ' || l_att, 'process_serial_subxfr');
4178: x_att => l_att,
4179: x_atr => l_atr);
4180:
4181: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4182: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
4183: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
4184: x_return_msg := fnd_message.get;
4185: RETURN;
4186: END IF;
4179: x_atr => l_atr);
4180:
4181: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4182: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
4183: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
4184: x_return_msg := fnd_message.get;
4185: RETURN;
4186: END IF;
4187:
4180:
4181: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4182: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
4183: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
4184: x_return_msg := fnd_message.get;
4185: RETURN;
4186: END IF;
4187:
4188: IF (l_debug = 1) THEN
4321:
4322: x_serial_processed := 'YES';
4323:
4324: ELSE -- att < 0
4325: FND_MESSAGE.set_name('INV', 'INV_SERIAL_EXCEED_AVAILABLE');
4326: x_return_msg := fnd_message.get;
4327: RETURN;
4328: END IF;
4329:
4322: x_serial_processed := 'YES';
4323:
4324: ELSE -- att < 0
4325: FND_MESSAGE.set_name('INV', 'INV_SERIAL_EXCEED_AVAILABLE');
4326: x_return_msg := fnd_message.get;
4327: RETURN;
4328: END IF;
4329:
4330: END IF;
4844: IF (l_debug = 1) THEN
4845: mdebug ('lpn '||l_lpn_id||' has some pending transactions to be completed.');
4846: END IF;
4847: x_return := 'N';
4848: fnd_message.set_name('INV', 'INV_PENDING_TXNS_EXISTS');
4849: x_return_msg := fnd_message.get;
4850: RETURN x_return;
4851: end if;
4852: END LOOP;
4845: mdebug ('lpn '||l_lpn_id||' has some pending transactions to be completed.');
4846: END IF;
4847: x_return := 'N';
4848: fnd_message.set_name('INV', 'INV_PENDING_TXNS_EXISTS');
4849: x_return_msg := fnd_message.get;
4850: RETURN x_return;
4851: end if;
4852: END LOOP;
4853: CLOSE c_lpn_content;