[Home] [Help]
124: -- OverLoaded Procedure insertSerial for eAM
125: PROCEDURE insertserial
126: (
127: p_api_version IN NUMBER
128: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
129: , p_commit IN VARCHAR2 := fnd_api.g_false
130: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
131: , p_inventory_item_id IN NUMBER
132: , p_organization_id IN NUMBER
125: PROCEDURE insertserial
126: (
127: p_api_version IN NUMBER
128: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
129: , p_commit IN VARCHAR2 := fnd_api.g_false
130: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
131: , p_inventory_item_id IN NUMBER
132: , p_organization_id IN NUMBER
133: , p_serial_number IN VARCHAR2
126: (
127: p_api_version IN NUMBER
128: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
129: , p_commit IN VARCHAR2 := fnd_api.g_false
130: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
131: , p_inventory_item_id IN NUMBER
132: , p_organization_id IN NUMBER
133: , p_serial_number IN VARCHAR2
134: , p_current_status IN NUMBER
162: -- Standard Start of API savepoint
163: SAVEPOINT apiinsertserial_apipub;
164:
165: -- Standard call to check for call compatibility.
166: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
167: RAISE fnd_api.g_exc_unexpected_error;
168: END IF;
169:
170: -- Initialize message list if p_init_msg_list is set to TRUE.
163: SAVEPOINT apiinsertserial_apipub;
164:
165: -- Standard call to check for call compatibility.
166: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
167: RAISE fnd_api.g_exc_unexpected_error;
168: END IF;
169:
170: -- Initialize message list if p_init_msg_list is set to TRUE.
171: IF fnd_api.to_boolean(p_init_msg_list) THEN
167: RAISE fnd_api.g_exc_unexpected_error;
168: END IF;
169:
170: -- Initialize message list if p_init_msg_list is set to TRUE.
171: IF fnd_api.to_boolean(p_init_msg_list) THEN
172: fnd_msg_pub.initialize;
173: END IF;
174:
175: -- Initialize API return status to success
189: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
190: fnd_msg_pub.add_exc_msg('INV_SERIAL_NUMBER_PUB', 'insertSerial');
191: END IF;
192:
193: RAISE fnd_api.g_exc_unexpected_error;
194: END;
195:
196: IF (item_count = 0) THEN
197: fnd_message.set_name('INV', 'INV_INVALID_ORGANIZATION');
196: IF (item_count = 0) THEN
197: fnd_message.set_name('INV', 'INV_INVALID_ORGANIZATION');
198: fnd_msg_pub.ADD;
199: --Bug 3153585:Raising exception to populate error message correctly.
200: RAISE fnd_api.g_exc_error;
201: END IF;
202:
203: -- Block to check the Serial Control Code
204: BEGIN
213: IF (l_serial_control_code = 1) THEN
214: fnd_message.set_name('INV', 'INV_ITEM_NOT_SERIAL_CONTROLLED');
215: fnd_msg_pub.ADD;
216: --Bug 3153585:Raising exception to populate error message correctly.
217: RAISE fnd_api.g_exc_error;
218: END IF;
219:
220: IF eam_item IS NULL THEN
221: l_current_status := 1;
222: ELSE
223: l_current_status := p_current_status;
224: END IF;
225: EXCEPTION
226: WHEN fnd_api.g_exc_error THEN
227: RAISE fnd_api.g_exc_error;
228: --Bug 3153585:Raising exception to populate error message correctly.
229: WHEN NO_DATA_FOUND THEN
230: fnd_message.set_name('INV', 'INV_INVALID_ITEM');
223: l_current_status := p_current_status;
224: END IF;
225: EXCEPTION
226: WHEN fnd_api.g_exc_error THEN
227: RAISE fnd_api.g_exc_error;
228: --Bug 3153585:Raising exception to populate error message correctly.
229: WHEN NO_DATA_FOUND THEN
230: fnd_message.set_name('INV', 'INV_INVALID_ITEM');
231: fnd_msg_pub.ADD;
229: WHEN NO_DATA_FOUND THEN
230: fnd_message.set_name('INV', 'INV_INVALID_ITEM');
231: fnd_msg_pub.ADD;
232: --Bug 3153585:Raising exception to populate error message correctly.
233: RAISE fnd_api.g_exc_error;
234: WHEN OTHERS THEN
235: --Bug 3152585:Raising Exception to populate error message correctly.
236: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
237: fnd_msg_pub.add_exc_msg('INV_SERIAL_NUMBER_PUB', 'insertSerial');
236: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
237: fnd_msg_pub.add_exc_msg('INV_SERIAL_NUMBER_PUB', 'insertSerial');
238: END IF;
239:
240: RAISE fnd_api.g_exc_unexpected_error;
241: END;
242:
243: SELECT mtl_gen_object_id_s.NEXTVAL
244: INTO x_object_id
291: , NVL(p_planning_tp_type, 2)
292: );
293: END IF;
294:
295: x_return_status := fnd_api.g_ret_sts_success;
296:
297: -- End of API body.
298: -- Standard check of p_commit.
299: IF fnd_api.to_boolean(p_commit) THEN
295: x_return_status := fnd_api.g_ret_sts_success;
296:
297: -- End of API body.
298: -- Standard check of p_commit.
299: IF fnd_api.to_boolean(p_commit) THEN
300: COMMIT WORK;
301: END IF;
302:
303: -- Standard call to get message count and if count is 1, get message info.
300: COMMIT WORK;
301: END IF;
302:
303: -- Standard call to get message count and if count is 1, get message info.
304: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
305: EXCEPTION
306: WHEN fnd_api.g_exc_error THEN
307: ROLLBACK TO apiinsertserial_apipub;
308: --Bug 3153585:Populating the message from the message stack
302:
303: -- Standard call to get message count and if count is 1, get message info.
304: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
305: EXCEPTION
306: WHEN fnd_api.g_exc_error THEN
307: ROLLBACK TO apiinsertserial_apipub;
308: --Bug 3153585:Populating the message from the message stack
309: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
310: x_return_status := fnd_api.g_ret_sts_error;
305: EXCEPTION
306: WHEN fnd_api.g_exc_error THEN
307: ROLLBACK TO apiinsertserial_apipub;
308: --Bug 3153585:Populating the message from the message stack
309: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
310: x_return_status := fnd_api.g_ret_sts_error;
311: WHEN fnd_api.g_exc_unexpected_error THEN
312: --Bug 3153585:Populating the message from the message stack
313: ROLLBACK TO apiinsertserial_apipub;
306: WHEN fnd_api.g_exc_error THEN
307: ROLLBACK TO apiinsertserial_apipub;
308: --Bug 3153585:Populating the message from the message stack
309: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
310: x_return_status := fnd_api.g_ret_sts_error;
311: WHEN fnd_api.g_exc_unexpected_error THEN
312: --Bug 3153585:Populating the message from the message stack
313: ROLLBACK TO apiinsertserial_apipub;
314: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
307: ROLLBACK TO apiinsertserial_apipub;
308: --Bug 3153585:Populating the message from the message stack
309: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
310: x_return_status := fnd_api.g_ret_sts_error;
311: WHEN fnd_api.g_exc_unexpected_error THEN
312: --Bug 3153585:Populating the message from the message stack
313: ROLLBACK TO apiinsertserial_apipub;
314: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
315: x_return_status := fnd_api.g_ret_sts_unexp_error;
310: x_return_status := fnd_api.g_ret_sts_error;
311: WHEN fnd_api.g_exc_unexpected_error THEN
312: --Bug 3153585:Populating the message from the message stack
313: ROLLBACK TO apiinsertserial_apipub;
314: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
315: x_return_status := fnd_api.g_ret_sts_unexp_error;
316: WHEN OTHERS THEN
317: ROLLBACK TO apiinsertserial_apipub;
318:
311: WHEN fnd_api.g_exc_unexpected_error THEN
312: --Bug 3153585:Populating the message from the message stack
313: ROLLBACK TO apiinsertserial_apipub;
314: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
315: x_return_status := fnd_api.g_ret_sts_unexp_error;
316: WHEN OTHERS THEN
317: ROLLBACK TO apiinsertserial_apipub;
318:
319: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
319: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
320: fnd_msg_pub.add_exc_msg('INV_SERIAL_NUMBER_PUB', 'insertSerial');
321: END IF;
322:
323: x_return_status := fnd_api.g_ret_sts_unexp_error;
324: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
325: END insertserial;
326:
327: -- 'Serial Tracking in WIP project. insert wip_entity_id, operation_seq_num and intraoperation_step_type
320: fnd_msg_pub.add_exc_msg('INV_SERIAL_NUMBER_PUB', 'insertSerial');
321: END IF;
322:
323: x_return_status := fnd_api.g_ret_sts_unexp_error;
324: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
325: END insertserial;
326:
327: -- 'Serial Tracking in WIP project. insert wip_entity_id, operation_seq_num and intraoperation_step_type
328: -- into MSN.
327: -- 'Serial Tracking in WIP project. insert wip_entity_id, operation_seq_num and intraoperation_step_type
328: -- into MSN.
329: PROCEDURE insertserial(
330: p_api_version IN NUMBER
331: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
332: , p_commit IN VARCHAR2 := fnd_api.g_false
333: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
334: , p_inventory_item_id IN NUMBER
335: , p_organization_id IN NUMBER
328: -- into MSN.
329: PROCEDURE insertserial(
330: p_api_version IN NUMBER
331: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
332: , p_commit IN VARCHAR2 := fnd_api.g_false
333: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
334: , p_inventory_item_id IN NUMBER
335: , p_organization_id IN NUMBER
336: , p_serial_number IN VARCHAR2
329: PROCEDURE insertserial(
330: p_api_version IN NUMBER
331: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
332: , p_commit IN VARCHAR2 := fnd_api.g_false
333: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
334: , p_inventory_item_id IN NUMBER
335: , p_organization_id IN NUMBER
336: , p_serial_number IN VARCHAR2
337: , p_initialization_date IN DATE
450: inv_trx_util_pub.TRACE('In insertserial() procedure. ', 'INV_SERIAL_NUMBER_PUB', 9);
451: END IF;
452:
453: -- Standard call to check for call compatibility.
454: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
455: RAISE fnd_api.g_exc_unexpected_error;
456: END IF;
457:
458: -- Initialize message list if p_init_msg_list is set to TRUE.
451: END IF;
452:
453: -- Standard call to check for call compatibility.
454: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
455: RAISE fnd_api.g_exc_unexpected_error;
456: END IF;
457:
458: -- Initialize message list if p_init_msg_list is set to TRUE.
459: IF fnd_api.to_boolean(p_init_msg_list) THEN
455: RAISE fnd_api.g_exc_unexpected_error;
456: END IF;
457:
458: -- Initialize message list if p_init_msg_list is set to TRUE.
459: IF fnd_api.to_boolean(p_init_msg_list) THEN
460: fnd_msg_pub.initialize;
461: END IF;
462:
463: /** ssia we don't need this if condition **/
462:
463: /** ssia we don't need this if condition **/
464: /*IF (p_transaction_action_id = 3 AND g_firstscan = FALSE) THEN*/
465: /*** ssia note end ****/
466: x_return_status := fnd_api.g_ret_sts_success;
467:
468: /**ELSE**/
469: BEGIN
470: SELECT serial_number_control_code
478: -- invtrace('serial_control_code is 1.there is no serial control.');
479: fnd_message.set_name('INV', 'INV_ITEM_NOT_SERIAL_CONTROLLED');
480: fnd_msg_pub.ADD;
481: --Bug 3153585:Populating the message from the message stack
482: RAISE fnd_api.g_exc_error;
483: END IF;
484: EXCEPTION
485: WHEN NO_DATA_FOUND THEN
486: fnd_message.set_name('INV', 'INV_INVALID_ITEM');
484: EXCEPTION
485: WHEN NO_DATA_FOUND THEN
486: fnd_message.set_name('INV', 'INV_INVALID_ITEM');
487: fnd_msg_pub.ADD;
488: RAISE fnd_api.g_exc_error;
489: END;
490:
491: SELECT mtl_gen_object_id_s.NEXTVAL
492: INTO x_object_id
597: , p_lot_serial_number => p_serial_number
598: , p_attributes => l_attributes_in
599: );
600:
601: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
602: x_return_status := l_return_status;
603: RAISE fnd_api.g_exc_unexpected_error;
604: END IF;
605:
599: );
600:
601: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
602: x_return_status := l_return_status;
603: RAISE fnd_api.g_exc_unexpected_error;
604: END IF;
605:
606: IF (l_attributes_default_count > 0) THEN
607: FOR i IN 1 .. l_attributes_default_count LOOP
889: , x_serial_status_enabled => l_serial_status_enabled
890: , x_default_serial_status_id => l_default_serial_status_id
891: );
892:
893: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
894: x_return_status := l_return_status;
895: RAISE fnd_api.g_exc_unexpected_error;
896: END IF;
897:
891: );
892:
893: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
894: x_return_status := l_return_status;
895: RAISE fnd_api.g_exc_unexpected_error;
896: END IF;
897:
898: IF (NVL(l_serial_status_enabled, 'Y') = 'Y') THEN
899: l_status_id := l_default_serial_status_id;
1219: -- invtrace('operation_seq_num is ' || p_operation_seq_num);
1220: -- invtrace('intraoperation_step_type is ' || p_intraoperation_step_type);
1221: END IF;
1222:
1223: x_return_status := fnd_api.g_ret_sts_success;
1224:
1225: -- insert into the status history table for bug 1870120
1226: IF (l_status_id IS NOT NULL) THEN
1227: l_status_rec.update_method := inv_material_status_pub.g_update_method_auto;
1233: inv_material_status_pkg.insert_status_history(l_status_rec);
1234: END IF;
1235:
1236: -- Standard check of p_commit.
1237: IF fnd_api.to_boolean(p_commit) THEN
1238: COMMIT WORK;
1239: END IF;
1240:
1241: -- Standard call to get message count and if count is 1, get message info.
1238: COMMIT WORK;
1239: END IF;
1240:
1241: -- Standard call to get message count and if count is 1, get message info.
1242: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
1243: EXCEPTION
1244: WHEN fnd_api.g_exc_error THEN
1245: ROLLBACK TO apiinsertserial_apipub;
1246: --Bug 3153585:Populating x_msg_data from message stack
1240:
1241: -- Standard call to get message count and if count is 1, get message info.
1242: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
1243: EXCEPTION
1244: WHEN fnd_api.g_exc_error THEN
1245: ROLLBACK TO apiinsertserial_apipub;
1246: --Bug 3153585:Populating x_msg_data from message stack
1247: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
1248: x_return_status := fnd_api.g_ret_sts_error;
1243: EXCEPTION
1244: WHEN fnd_api.g_exc_error THEN
1245: ROLLBACK TO apiinsertserial_apipub;
1246: --Bug 3153585:Populating x_msg_data from message stack
1247: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
1248: x_return_status := fnd_api.g_ret_sts_error;
1249: WHEN OTHERS THEN
1250: ROLLBACK TO apiinsertserial_apipub;
1251:
1244: WHEN fnd_api.g_exc_error THEN
1245: ROLLBACK TO apiinsertserial_apipub;
1246: --Bug 3153585:Populating x_msg_data from message stack
1247: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
1248: x_return_status := fnd_api.g_ret_sts_error;
1249: WHEN OTHERS THEN
1250: ROLLBACK TO apiinsertserial_apipub;
1251:
1252: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1253: fnd_msg_pub.add_exc_msg('INV_SERIAL_NUMBER_PUB', 'insertSerial');
1254: END IF;
1255:
1256: --Bug 3153585:Populating x_msg_data from message stack
1257: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
1258: x_return_status := fnd_api.g_ret_sts_unexp_error;
1259: END insertserial;
1260:
1261: PROCEDURE insert_range_serial(
1254: END IF;
1255:
1256: --Bug 3153585:Populating x_msg_data from message stack
1257: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
1258: x_return_status := fnd_api.g_ret_sts_unexp_error;
1259: END insertserial;
1260:
1261: PROCEDURE insert_range_serial(
1262: p_api_version IN NUMBER
1259: END insertserial;
1260:
1261: PROCEDURE insert_range_serial(
1262: p_api_version IN NUMBER
1263: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1264: , p_commit IN VARCHAR2 := fnd_api.g_false
1265: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1266: , p_inventory_item_id IN NUMBER
1267: , p_organization_id IN NUMBER
1260:
1261: PROCEDURE insert_range_serial(
1262: p_api_version IN NUMBER
1263: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1264: , p_commit IN VARCHAR2 := fnd_api.g_false
1265: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1266: , p_inventory_item_id IN NUMBER
1267: , p_organization_id IN NUMBER
1268: , p_from_serial_number IN VARCHAR2
1261: PROCEDURE insert_range_serial(
1262: p_api_version IN NUMBER
1263: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1264: , p_commit IN VARCHAR2 := fnd_api.g_false
1265: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1266: , p_inventory_item_id IN NUMBER
1267: , p_organization_id IN NUMBER
1268: , p_from_serial_number IN VARCHAR2
1269: , p_to_serial_number IN VARCHAR2
1308: l_temp_prefix VARCHAR2(30);
1309: l_cur_serial_number VARCHAR2(30);
1310: l_cur_ser_number NUMBER;
1311: l_object_id NUMBER;
1312: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1313: l_msg_count NUMBER;
1314: l_msg_data VARCHAR2(2000);
1315: l_current_status NUMBER;
1316: l_group_mark_id NUMBER;
1321: -- invtrace('INV_SERIAL_NUMBER_PUB', 'insert_range_serial - 10');
1322: SAVEPOINT sp_insert_range_serial;
1323:
1324: -- Standard call to check for call compatibility.
1325: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1326: RAISE fnd_api.g_exc_unexpected_error;
1327: END IF;
1328:
1329: -- Initialize message list if p_init_msg_list is set to TRUE.
1322: SAVEPOINT sp_insert_range_serial;
1323:
1324: -- Standard call to check for call compatibility.
1325: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1326: RAISE fnd_api.g_exc_unexpected_error;
1327: END IF;
1328:
1329: -- Initialize message list if p_init_msg_list is set to TRUE.
1330: IF fnd_api.to_boolean(p_init_msg_list) THEN
1326: RAISE fnd_api.g_exc_unexpected_error;
1327: END IF;
1328:
1329: -- Initialize message list if p_init_msg_list is set to TRUE.
1330: IF fnd_api.to_boolean(p_init_msg_list) THEN
1331: fnd_msg_pub.initialize;
1332: END IF;
1333:
1334: -- Initialize API return status to success
1331: fnd_msg_pub.initialize;
1332: END IF;
1333:
1334: -- Initialize API return status to success
1335: x_return_status := fnd_api.g_ret_sts_success;
1336: -- get the number part of the from serial
1337: inv_validate.number_from_sequence(p_from_serial_number, l_temp_prefix, l_from_ser_number);
1338: -- get the number part of the to serial
1339: inv_validate.number_from_sequence(p_to_serial_number, l_temp_prefix, l_to_ser_number);
1416: IF is_serial_unique(p_org_id => p_organization_id, p_item_id => p_inventory_item_id, p_serial => l_cur_serial_number
1417: , x_proc_msg => l_msg_data) = 1 THEN
1418: fnd_message.set_name('INV', 'INV_SERIAL_USED');
1419: fnd_msg_pub.ADD;
1420: RAISE fnd_api.g_exc_error;
1421: ELSE
1422: -- invtrace('INV_SERIAL_NUMBER_PUB', 'insert_range_serial - 60');
1423: -- uniqueness check passed
1424: -- and it is not a pre-defined serial
1463: , p_planning_org_id => p_planning_org_id
1464: , p_planning_tp_type => p_planning_tp_type
1465: );
1466:
1467: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1468: fnd_message.set_name('INV', 'INV_SERIAL');
1469: fnd_msg_pub.ADD;
1470: RAISE fnd_api.g_exc_unexpected_error;
1471: END IF;
1466:
1467: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1468: fnd_message.set_name('INV', 'INV_SERIAL');
1469: fnd_msg_pub.ADD;
1470: RAISE fnd_api.g_exc_unexpected_error;
1471: END IF;
1472: END IF;
1473: END IF;
1474:
1505: AND current_status IN(1, 4, 5, 6);
1506: END IF;
1507: END LOOP;
1508:
1509: x_return_status := fnd_api.g_ret_sts_success;
1510:
1511: -- End of API body
1512: -- Standard check of p_commit.
1513: IF fnd_api.to_boolean(p_commit) THEN
1509: x_return_status := fnd_api.g_ret_sts_success;
1510:
1511: -- End of API body
1512: -- Standard check of p_commit.
1513: IF fnd_api.to_boolean(p_commit) THEN
1514: COMMIT WORK;
1515: END IF;
1516:
1517: -- Standard call to get message count and if count is 1,
1517: -- Standard call to get message count and if count is 1,
1518: -- get message info.
1519: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1520: EXCEPTION
1521: WHEN fnd_api.g_exc_error THEN
1522: ROLLBACK TO sp_insert_range_serial;
1523: x_return_status := fnd_api.g_ret_sts_error;
1524: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1525: WHEN fnd_api.g_exc_unexpected_error THEN
1519: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1520: EXCEPTION
1521: WHEN fnd_api.g_exc_error THEN
1522: ROLLBACK TO sp_insert_range_serial;
1523: x_return_status := fnd_api.g_ret_sts_error;
1524: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1525: WHEN fnd_api.g_exc_unexpected_error THEN
1526: ROLLBACK TO sp_insert_range_serial;
1527: x_return_status := fnd_api.g_ret_sts_unexp_error;
1521: WHEN fnd_api.g_exc_error THEN
1522: ROLLBACK TO sp_insert_range_serial;
1523: x_return_status := fnd_api.g_ret_sts_error;
1524: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1525: WHEN fnd_api.g_exc_unexpected_error THEN
1526: ROLLBACK TO sp_insert_range_serial;
1527: x_return_status := fnd_api.g_ret_sts_unexp_error;
1528: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1529: WHEN OTHERS THEN
1523: x_return_status := fnd_api.g_ret_sts_error;
1524: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1525: WHEN fnd_api.g_exc_unexpected_error THEN
1526: ROLLBACK TO sp_insert_range_serial;
1527: x_return_status := fnd_api.g_ret_sts_unexp_error;
1528: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1529: WHEN OTHERS THEN
1530: ROLLBACK TO sp_insert_range_serial;
1531: x_return_status := fnd_api.g_ret_sts_unexp_error;
1527: x_return_status := fnd_api.g_ret_sts_unexp_error;
1528: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1529: WHEN OTHERS THEN
1530: ROLLBACK TO sp_insert_range_serial;
1531: x_return_status := fnd_api.g_ret_sts_unexp_error;
1532: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1533: END insert_range_serial;
1534:
1535: PROCEDURE updateserial(
1533: END insert_range_serial;
1534:
1535: PROCEDURE updateserial(
1536: p_api_version IN NUMBER
1537: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1538: , p_commit IN VARCHAR2 := fnd_api.g_false
1539: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1540: , p_inventory_item_id IN NUMBER
1541: , p_organization_id IN NUMBER
1534:
1535: PROCEDURE updateserial(
1536: p_api_version IN NUMBER
1537: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1538: , p_commit IN VARCHAR2 := fnd_api.g_false
1539: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1540: , p_inventory_item_id IN NUMBER
1541: , p_organization_id IN NUMBER
1542: , p_serial_number IN VARCHAR2
1535: PROCEDURE updateserial(
1536: p_api_version IN NUMBER
1537: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1538: , p_commit IN VARCHAR2 := fnd_api.g_false
1539: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1540: , p_inventory_item_id IN NUMBER
1541: , p_organization_id IN NUMBER
1542: , p_serial_number IN VARCHAR2
1543: , p_initialization_date IN DATE
1686: invtrace('*** Inside UpdateSerial ****');
1687: END IF;
1688:
1689: -- Standard call to check for call compatibility.
1690: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1691: RAISE fnd_api.g_exc_unexpected_error;
1692: END IF;
1693:
1694: -- Initialize message list if p_init_msg_list is set to TRUE.
1687: END IF;
1688:
1689: -- Standard call to check for call compatibility.
1690: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1691: RAISE fnd_api.g_exc_unexpected_error;
1692: END IF;
1693:
1694: -- Initialize message list if p_init_msg_list is set to TRUE.
1695: IF fnd_api.to_boolean(p_init_msg_list) THEN
1691: RAISE fnd_api.g_exc_unexpected_error;
1692: END IF;
1693:
1694: -- Initialize message list if p_init_msg_list is set to TRUE.
1695: IF fnd_api.to_boolean(p_init_msg_list) THEN
1696: fnd_msg_pub.initialize;
1697: END IF;
1698:
1699: -- Initialize API return status to success
1696: fnd_msg_pub.initialize;
1697: END IF;
1698:
1699: -- Initialize API return status to success
1700: x_return_status := fnd_api.g_ret_sts_success;
1701: -- API body
1702:
1703: IF (l_debug = 1) THEN
1704: invtrace('CurStat =' || p_current_status || ',CG=' ||
2032: AND serial_number = p_serial_number
2033: AND DECODE(current_status, 6, 1, current_status) = DECODE(p_last_status, 6, 1, p_last_status);
2034: END IF;
2035:
2036: x_return_status := fnd_api.g_ret_sts_success;
2037:
2038: -- End of API body.
2039: -- Standard check of p_commit.
2040: IF fnd_api.to_boolean(p_commit) THEN
2036: x_return_status := fnd_api.g_ret_sts_success;
2037:
2038: -- End of API body.
2039: -- Standard check of p_commit.
2040: IF fnd_api.to_boolean(p_commit) THEN
2041: COMMIT WORK;
2042: END IF;
2043:
2044: -- Standard call to get message count and if count is 1, get message info.
2041: COMMIT WORK;
2042: END IF;
2043:
2044: -- Standard call to get message count and if count is 1, get message info.
2045: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2046: EXCEPTION
2047: WHEN OTHERS THEN
2048: ROLLBACK TO apiupdateserial_apipub;
2049:
2050: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2051: fnd_msg_pub.add_exc_msg('INV_SERIAL_NUMBER_PUB', 'updateSerial');
2052: END IF;
2053:
2054: x_return_status := fnd_api.g_ret_sts_unexp_error;
2055: END updateserial;
2056:
2057: PROCEDURE insertunittrx(
2058: p_api_version IN NUMBER
2055: END updateserial;
2056:
2057: PROCEDURE insertunittrx(
2058: p_api_version IN NUMBER
2059: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2060: , p_commit IN VARCHAR2 := fnd_api.g_false
2061: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2062: , p_inventory_item_id IN NUMBER
2063: , p_organization_id IN NUMBER
2056:
2057: PROCEDURE insertunittrx(
2058: p_api_version IN NUMBER
2059: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2060: , p_commit IN VARCHAR2 := fnd_api.g_false
2061: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2062: , p_inventory_item_id IN NUMBER
2063: , p_organization_id IN NUMBER
2064: , p_serial_number IN VARCHAR2
2057: PROCEDURE insertunittrx(
2058: p_api_version IN NUMBER
2059: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2060: , p_commit IN VARCHAR2 := fnd_api.g_false
2061: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
2062: , p_inventory_item_id IN NUMBER
2063: , p_organization_id IN NUMBER
2064: , p_serial_number IN VARCHAR2
2065: , p_current_locator_id IN NUMBER
2173: -- Standard Start of API savepoint
2174: SAVEPOINT apiinsertserial_apipub;
2175:
2176: -- Standard call to check for call compatibility.
2177: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2178: RAISE fnd_api.g_exc_unexpected_error;
2179: END IF;
2180:
2181: -- Initialize message list if p_init_msg_list is set to TRUE.
2174: SAVEPOINT apiinsertserial_apipub;
2175:
2176: -- Standard call to check for call compatibility.
2177: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
2178: RAISE fnd_api.g_exc_unexpected_error;
2179: END IF;
2180:
2181: -- Initialize message list if p_init_msg_list is set to TRUE.
2182: IF fnd_api.to_boolean(p_init_msg_list) THEN
2178: RAISE fnd_api.g_exc_unexpected_error;
2179: END IF;
2180:
2181: -- Initialize message list if p_init_msg_list is set to TRUE.
2182: IF fnd_api.to_boolean(p_init_msg_list) THEN
2183: fnd_msg_pub.initialize;
2184: END IF;
2185:
2186: -- Initialize API return status to success
2185:
2186: -- Initialize API return status to success
2187:
2188: /**IF (p_transaction_action_id = 3 AND g_firstscan = FALSE) THEN
2189: x_return_status := fnd_api.g_ret_sts_success;
2190: ELSE**/
2191: x_return_status := fnd_api.g_ret_sts_success;
2192: l_wms_installed :=
2193: wms_install.check_install(
2187:
2188: /**IF (p_transaction_action_id = 3 AND g_firstscan = FALSE) THEN
2189: x_return_status := fnd_api.g_ret_sts_success;
2190: ELSE**/
2191: x_return_status := fnd_api.g_ret_sts_success;
2192: l_wms_installed :=
2193: wms_install.check_install(
2194: x_return_status => l_return_status
2195: , x_msg_count => l_msg_count
2282: , p_lot_serial_number => p_serial_number
2283: , p_attributes => l_attributes_in
2284: );
2285:
2286: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2287: x_return_status := l_return_status;
2288: RAISE fnd_api.g_exc_unexpected_error;
2289: END IF;
2290:
2284: );
2285:
2286: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2287: x_return_status := l_return_status;
2288: RAISE fnd_api.g_exc_unexpected_error;
2289: END IF;
2290:
2291: /* Get the default attribs only when there is no value on the form (in MSNT).
2292: * In case the user changes the context and the attributes while recieving,
2978: END IF;
2979: END;
2980: END IF;
2981:
2982: x_return_status := fnd_api.g_ret_sts_success;
2983:
2984: -- End of API body.
2985: -- Standard check of p_commit.
2986: IF fnd_api.to_boolean(p_commit) THEN
2982: x_return_status := fnd_api.g_ret_sts_success;
2983:
2984: -- End of API body.
2985: -- Standard check of p_commit.
2986: IF fnd_api.to_boolean(p_commit) THEN
2987: COMMIT WORK;
2988: END IF;
2989:
2990: -- Standard call to get message count and if count is 1, get message info.
2987: COMMIT WORK;
2988: END IF;
2989:
2990: -- Standard call to get message count and if count is 1, get message info.
2991: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => l_msg_data);
2992: x_msg_data := SUBSTR(l_msg_data, 0, 198);
2993: EXCEPTION
2994: WHEN OTHERS THEN
2995: ROLLBACK TO apiinsertserial_apipub;
2997: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2998: fnd_msg_pub.add_exc_msg('INV_SERIAL_NUMBER_PUB', 'insertUnitTrx');
2999: END IF;
3000:
3001: x_return_status := fnd_api.g_ret_sts_unexp_error;
3002: END insertunittrx;
3003:
3004: ------------------------------------------------------------------------------
3005: -- Name: GENERATE_SERIALSJ
3076: , p_group_mark_id IN NUMBER DEFAULT NULL
3077: , p_line_mark_id IN NUMBER DEFAULT NULL
3078: ) IS
3079: PRAGMA AUTONOMOUS_TRANSACTION;
3080: v_commit VARCHAR2(12) := fnd_api.g_true;
3081: v_mesg VARCHAR2(2000);
3082: l_start_ser VARCHAR2(100);
3083: l_end_ser VARCHAR2(100);
3084: v_retval NUMBER;
3117: COMMIT;
3118: EXCEPTION
3119: WHEN OTHERS THEN
3120: x_retcode := 2;
3121: x_errbuf := SUBSTR(fnd_msg_pub.get(p_encoded => fnd_api.g_false), 1, 250);
3122: ret := fnd_concurrent.set_completion_status('ERROR', v_mesg);
3123: RAISE;
3124: END generate_serials;
3125:
3378: IF (l_debug = 1) THEN
3379: invtrace('VALIDATE_UPDATE_SERIAL_ATT:Entered...');
3380: END IF;
3381:
3382: x_return_status := FND_API.G_RET_STS_SUCCESS;
3383:
3384: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data);
3385:
3386: IF (l_debug = 1) THEN
3434: p_organization_id => p_organization_id,
3435: p_lot_serial_number => p_serial_number,
3436: p_attributes => g_serial_attributes_tbl);
3437:
3438: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3439: x_validation_status := 'N';
3440: x_return_status := l_return_status;
3441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3442: END IF;
3437:
3438: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3439: x_validation_status := 'N';
3440: x_return_status := l_return_status;
3441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3442: END IF;
3443:
3444: IF (l_debug = 1) THEN
3445: invtrace('VALIDATE_UPDATE_SERIAL_ATT:l_attributes_default_count='||l_attributes_default_count);
3613: IF (l_debug = 1) THEN
3614: invtrace('VALIDATE_UPDATE_SERIAL_ATT:l_status is FALSE');
3615: END IF;
3616: l_validation_status := 'N';
3617: x_return_status := FND_API.G_RET_STS_ERROR ;
3618: x_msg_data := fnd_flex_descval.error_message;
3619: fnd_message.set_name('INV', 'GENERIC');
3620: fnd_message.set_token('MSGBODY', x_msg_data );
3621: fnd_msg_pub.ADD;
3619: fnd_message.set_name('INV', 'GENERIC');
3620: fnd_message.set_token('MSGBODY', x_msg_data );
3621: fnd_msg_pub.ADD;
3622: x_msg_count := nvl(x_msg_count,0) + 1 ;
3623: RAISE FND_API.G_EXC_ERROR;
3624: END IF;
3625: END IF; -- if l_context_value is not null
3626:
3627: x_validation_status := l_validation_status;
3689: invtrace('VALIDATE_UPDATE_SERIAL_ATT:Exitting...');
3690: END IF;
3691:
3692: EXCEPTION
3693: WHEN FND_API.G_EXC_ERROR THEN
3694: x_validation_status := l_validation_status;
3695: x_return_status := FND_API.G_RET_STS_ERROR;
3696: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3691:
3692: EXCEPTION
3693: WHEN FND_API.G_EXC_ERROR THEN
3694: x_validation_status := l_validation_status;
3695: x_return_status := FND_API.G_RET_STS_ERROR;
3696: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3698: x_validation_status := l_validation_status;
3699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3693: WHEN FND_API.G_EXC_ERROR THEN
3694: x_validation_status := l_validation_status;
3695: x_return_status := FND_API.G_RET_STS_ERROR;
3696: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3698: x_validation_status := l_validation_status;
3699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3700: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3701: WHEN OTHERS THEN
3695: x_return_status := FND_API.G_RET_STS_ERROR;
3696: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3698: x_validation_status := l_validation_status;
3699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3700: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3701: WHEN OTHERS THEN
3702: x_validation_status := l_validation_status;
3703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3700: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3701: WHEN OTHERS THEN
3702: x_validation_status := l_validation_status;
3703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3704: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3705: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,'Validate_Attributes');
3706: END IF;
3707: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3851: IF (l_debug = 1) THEN
3852: invtrace('The transaction action is staging transfer. Bulk processing of serials are not supported for this transaction');
3853:
3854: END IF;
3855: RAISE FND_API.g_exc_unexpected_error;
3856: END IF;
3857:
3858: IF nvl(fnd_profile.value('INV_RESTRICT_RCPT_SER'), '2') = '1' THEN
3859: l_acct_prof_Value := 'Y';
3929: if( l_status = FALSE ) THEN
3930: IF (l_debug = 1) THEN
3931: invtrace('error from SNGetMask');
3932: END IF;
3933: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3934: end if;
3935:
3936: IF (l_debug = 1) THEN
3937: invtrace('l_to_status is ' || l_to_status);
4118: x_msg_count := 0;
4119: x_msg_data := NULL;
4120: END IF;
4121: EXCEPTION
4122: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4123: x_return_status := 'U';
4124: x_msg_data := substr(sqlerrm, 1, 255);
4125: x_msg_count := 1;
4126: IF (l_debug = 1) THEN
4760: END valsn;
4761:
4762: PROCEDURE insertRangeUnitTrx(
4763: p_api_version IN NUMBER,
4764: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4765: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4766: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4767: p_inventory_item_id IN NUMBER,
4768: p_organization_id IN NUMBER,
4761:
4762: PROCEDURE insertRangeUnitTrx(
4763: p_api_version IN NUMBER,
4764: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4765: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4766: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4767: p_inventory_item_id IN NUMBER,
4768: p_organization_id IN NUMBER,
4769: p_fm_serial_number IN VARCHAR2,
4762: PROCEDURE insertRangeUnitTrx(
4763: p_api_version IN NUMBER,
4764: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4765: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4766: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4767: p_inventory_item_id IN NUMBER,
4768: p_organization_id IN NUMBER,
4769: p_fm_serial_number IN VARCHAR2,
4770: p_to_serial_number IN VARCHAR2,
4928: ELSE
4929: IF ( p_transaction_temp_id <> g_first_row_trx_tmp_id ) THEN
4930: g_first_row_trx_tmp_id := p_transaction_temp_id;
4931: ELSE
4932: x_return_status := FND_API.G_RET_STS_SUCCESS;
4933: RETURN;
4934: END IF;
4935: END IF;
4936: */
4937: -- Standard Start of API savepoint
4938: SAVEPOINT apiinsertserial_apipub;
4939:
4940: -- Standard call to check for call compatibility.
4941: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4942: RAISE fnd_api.g_exc_unexpected_error;
4943: END IF;
4944: -- Initialize message list if p_init_msg_list is set to TRUE.
4945: IF fnd_api.to_boolean(p_init_msg_list) THEN
4938: SAVEPOINT apiinsertserial_apipub;
4939:
4940: -- Standard call to check for call compatibility.
4941: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4942: RAISE fnd_api.g_exc_unexpected_error;
4943: END IF;
4944: -- Initialize message list if p_init_msg_list is set to TRUE.
4945: IF fnd_api.to_boolean(p_init_msg_list) THEN
4946: fnd_msg_pub.initialize;
4941: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
4942: RAISE fnd_api.g_exc_unexpected_error;
4943: END IF;
4944: -- Initialize message list if p_init_msg_list is set to TRUE.
4945: IF fnd_api.to_boolean(p_init_msg_list) THEN
4946: fnd_msg_pub.initialize;
4947: END IF;
4948:
4949: -- Initialize API return status to success
4948:
4949: -- Initialize API return status to success
4950:
4951: /**IF (p_transaction_action_id = 3 AND g_firstscan = FALSE) THEN
4952: x_return_status := fnd_api.g_ret_sts_success;
4953: ELSE**/
4954: x_return_status := fnd_api.g_ret_sts_success;
4955: l_wms_installed :=
4956: wms_install.check_install(
4950:
4951: /**IF (p_transaction_action_id = 3 AND g_firstscan = FALSE) THEN
4952: x_return_status := fnd_api.g_ret_sts_success;
4953: ELSE**/
4954: x_return_status := fnd_api.g_ret_sts_success;
4955: l_wms_installed :=
4956: wms_install.check_install(
4957: x_return_status => l_return_status
4958: , x_msg_count => l_msg_count
5052: , p_lot_serial_number => p_fm_serial_number
5053: , p_attributes => l_attributes_in
5054: );
5055:
5056: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
5057: x_return_status := l_return_status;
5058: RAISE fnd_api.g_exc_unexpected_error;
5059: END IF;
5060:
5054: );
5055:
5056: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
5057: x_return_status := l_return_status;
5058: RAISE fnd_api.g_exc_unexpected_error;
5059: END IF;
5060:
5061: /* Get the default attribs only when there is no value on the form (in MSNT).
5062: * In case the user changes the context and the attributes while recieving,
6000:
6001: END;
6002: END IF;
6003:
6004: x_return_status := fnd_api.g_ret_sts_success;
6005: -- End of API body.
6006: -- Standard check of p_commit.
6007: IF fnd_api.to_boolean(p_commit) THEN
6008: COMMIT WORK;
6003:
6004: x_return_status := fnd_api.g_ret_sts_success;
6005: -- End of API body.
6006: -- Standard check of p_commit.
6007: IF fnd_api.to_boolean(p_commit) THEN
6008: COMMIT WORK;
6009: END IF;
6010:
6011: -- Standard call to get message count and if count is 1, get message info.
6008: COMMIT WORK;
6009: END IF;
6010:
6011: -- Standard call to get message count and if count is 1, get message info.
6012: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => l_msg_data);
6013: x_msg_data := SUBSTR(l_msg_data, 0, 198);
6014: EXCEPTION
6015: WHEN OTHERS THEN
6016: ROLLBACK TO apiinsertserial_apipub;
6018: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6019: fnd_msg_pub.add_exc_msg('INV_SERIAL_NUMBER_PUB', 'insertRangeUnitTrx');
6020: END IF;
6021:
6022: x_return_status := fnd_api.g_ret_sts_unexp_error;
6023: END insertRangeUnitTrx;
6024:
6025: END inv_serial_number_pub;