11: l_status_before_p1 NUMBER := 0;
12: MSN_UPDATE_FIRST_PASS BOOLEAN := TRUE;
13:
14: PROCEDURE set_firstscan(p_firstscan IN BOOLEAN) IS
15: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
16: BEGIN
17: g_firstscan := p_firstscan;
18: END;
19:
20: -- Procedure used to trace message for debugging
21: PROCEDURE invtrace(p_msg VARCHAR2 := NULL) IS
22: --Bug: 3772309: Performance bug fix.The fnd call happens everytime
23: -- debug_print is called.
24: -- l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
25: BEGIN
26: -- IF (l_debug = 1) THEN
27: inv_log_util.TRACE(p_msg, 'INVSER', 9);
28: -- END IF;
28: -- END IF;
29: END;
30:
31: PROCEDURE populateattributescolumn IS
32: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
33: BEGIN
34: g_serial_attributes_tbl(1).column_name := 'SERIAL_ATTRIBUTE_CATEGORY';
35: g_serial_attributes_tbl(1).column_type := 'VARCHAR2';
36: g_serial_attributes_tbl(2).column_name := 'ORIGINATION_DATE';
188: item_count NUMBER;
189: eam_item NUMBER;
190: l_current_status NUMBER;
191: x_object_id NUMBER;
192: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
193: BEGIN
194: -- Standard Start of API savepoint
195: SAVEPOINT apiinsertserial_apipub;
196:
473: WHERE transaction_temp_id = p_transaction_temp_id
474: AND p_serial_number BETWEEN fm_serial_number AND NVL(to_serial_number, fm_serial_number);
475:
476: l_input_idx BINARY_INTEGER;
477: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
478: BEGIN
479: -- Standard Start of API savepoint
480: SAVEPOINT apiinsertserial_apipub;
481:
1335: isunique NUMBER;
1336: item_count NUMBER;
1337: l_current_status NUMBER;
1338: x_object_id NUMBER;
1339: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1340: BEGIN
1341: -- Standard Start of API savepoint
1342: SAVEPOINT apiinsertserial_apipub;
1343:
1639: l_current_status NUMBER;
1640: l_group_mark_id NUMBER;
1641: l_api_version CONSTANT NUMBER := 1.0;
1642: l_api_name CONSTANT VARCHAR2(30) := 'insert_range_serial';
1643: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1644: l_previous_status NUMBER; -- 13564609
1645: BEGIN
1646: -- invtrace('INV_SERIAL_NUMBER_PUB', 'insert_range_serial - 10');
1647: SAVEPOINT sp_insert_range_serial;
2007: FROM mtl_serial_numbers_temp
2008: WHERE transaction_temp_id = p_serial_temp_id
2009: AND p_serial_number BETWEEN fm_serial_number AND NVL(to_serial_number, fm_serial_number);
2010:
2011: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2012: BEGIN
2013: -- Standard Start of API savepoint
2014: SAVEPOINT apiupdateserial_apipub;
2015:
2498: AND LPAD(p_serial_number,30) BETWEEN LPAD(fm_serial_number,30) AND LPAD(NVL(to_serial_number, fm_serial_number),30);
2499: /* Bug 3622025 -- Added the LPAD function in the above where clause */
2500:
2501: l_input_idx BINARY_INTEGER;
2502: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2503: BEGIN
2504: -- Standard Start of API savepoint
2505: SAVEPOINT apiinsertserial_apipub;
2506:
3414: l_end_ser VARCHAR2(100);
3415: v_retval NUMBER;
3416: ret BOOLEAN;
3417: l_skip_serial NUMBER := 1;
3418: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3419: BEGIN
3420: v_retval :=
3421: generate_serialsj(
3422: p_org_id => p_org_id
3489: RETURN NUMBER AS
3490: PRAGMA AUTONOMOUS_TRANSACTION;
3491: l_retval NUMBER;
3492: l_skip_serial NUMBER := NVL(p_skip_serial, 0);
3493: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3494: BEGIN
3495: l_retval :=
3496: generate_serialsj(
3497: p_org_id => p_org_id
3650: ) --Bug# 2656316
3651: RETURN NUMBER AS
3652: ret_number NUMBER := 0;
3653: local_locator_id NUMBER;
3654: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3655: BEGIN
3656: IF (l_debug = 1) THEN
3657: inv_trx_util_pub.TRACE('About to call VALIDATE_SERIALSJ ', 'VALIDATE_SERIALS', 9);
3658: END IF;
3729: l_status BOOLEAN;
3730: l_count NUMBER := 0;
3731: l_rs_lot_attr_category VARCHAR2(30);
3732: l_st_lot_attr_category VARCHAR2(30);
3733: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3734: BEGIN
3735: IF (l_debug = 1) THEN
3736: invtrace('VALIDATE_UPDATE_SERIAL_ATT:Entered...');
3737: END IF;
4225: l_error_code NUMBER;
4226: l_dynamic_ok NUMBER;
4227: l_mask VARCHAR2(17); -- Bug 7427382
4228: l_status BOOLEAN;
4229: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4230: BEGIN
4231: null;
4232:
4233: IF (p_trx_act_id = inv_globals.g_action_stgxfr) THEN
4237: END IF;
4238: RAISE FND_API.g_exc_unexpected_error;
4239: END IF;
4240:
4241: IF nvl(fnd_profile.value('INV_RESTRICT_RCPT_SER'), '2') = '1' THEN
4242: l_acct_prof_Value := 'Y';
4243: else
4244: l_acct_prof_value := 'N';
4245: end if;
4588: p_xfr_Ser_num_ctrl_code IN NUMBER,
4589: p_isRestrictRcptSerial IN NUMBER
4590: ) return number
4591: IS
4592: --l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4593: l_groupId NUMBER := 0;
4594: l_newStatus NUMBER := p_curr_status;
4595: l_isRestrictRcptSerial NUMBER := p_isRestrictRcptSerial;
4596: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4592: --l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4593: l_groupId NUMBER := 0;
4594: l_newStatus NUMBER := p_curr_status;
4595: l_isRestrictRcptSerial NUMBER := p_isRestrictRcptSerial;
4596: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4597:
4598: BEGIN
4599: if( l_debug = 1 ) then
4600: invtrace('inside validate_status, p_trx_src_type_id = ' || p_trx_src_type_id);
4605: invtrace('inside validate_status, p_xfr_ser_num_ctrl_code = ' || p_xfr_ser_num_ctrl_code);
4606: end if;
4607: l_groupId := getGroupId(p_trx_src_type_id, p_trx_action_id);
4608:
4609: --l_isRestrictRcptSerial := fnd_profile.value('INV_RESTRICT_RCPT_SER');
4610:
4611: /*if( l_debug = 1 ) then
4612: invtrace('l_groupId = ' || l_groupId);
4613: end if;*/
4796: l_retval NUMBER := 0;
4797: l_parent_ser_number VARCHAR2(30) := '';
4798: l_isRestrictRcptSerial NUMBER;
4799: l_groupId NUMBER := 0;
4800: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4801: BEGIN
4802: --null;
4803: IF (l_debug = 1) THEN
4804: invtrace('p_trx_src_type_id = ' || p_trx_src_type_id);
5285:
5286: l_fm_serial_number VARCHAR2(30) := lpad(p_fm_serial_number, 30);
5287: l_to_serial_number VARCHAR2(30) := lpad(p_to_serial_number, 30);
5288: l_wms_installed BOOLEAN;
5289: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5290: BEGIN
5291: IF (l_debug = 1) THEN
5292: invtrace('Inside InsertRangeUnitTrx');
5293: invtrace('l_fm_serial_number is ' || l_fm_serial_number);
6443: l_serial_control_code NUMBER;
6444: l_xfer_serial_control_code NUMBER := 1;
6445: l_tagged NUMBER;
6446: l_txn_type_id NUMBER;
6447: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6448: BEGIN
6449:
6450: x_serial_control := 1;
6451: x_return_status := fnd_api.g_ret_sts_success;
6629: p_to_item_id IN NUMBER DEFAULT NULL,
6630: p_to_template_id IN NUMBER DEFAULT NULL,
6631: x_return_status OUT NOCOPY VARCHAR2)
6632: IS
6633: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6634: l_userid NUMBER := fnd_global.user_id;
6635: l_loginid NUMBER := fnd_global.login_id;
6636: BEGIN
6637:
6797: p_inventory_item_id IN NUMBER DEFAULT NULL,
6798: p_organization_id IN NUMBER DEFAULT NULL,
6799: p_template_id IN NUMBER,
6800: x_return_status OUT NOCOPY VARCHAR2) IS
6801: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6802: BEGIN
6803: x_return_status := fnd_api.g_ret_sts_success;
6804:
6805: IF ( p_inventory_item_id IS NULL