PACKAGE BODY: APPS.EAM_ENTER_LOT_SERIAL

Source

1 PACKAGE BODY eam_enter_lot_serial AS
2   /* $Header: EAMPELSB.pls 115.1 2003/06/25 18:49:24 ayang ship $*/
3  g_pkg_name    CONSTANT VARCHAR2(30):= 'eam_enter_lot_serial';
4 
5 PROCEDURE insert_ser_trx(p_trx_tmp_id 		IN	VARCHAR2,
6 			 p_serial_trx_tmp_id 	IN 	NUMBER,
7 			 p_trx_header_id	IN	NUMBER,
8 			 p_user_id 		IN	NUMBER,
9 			 p_fm_ser_num 		IN	VARCHAR2,
10 			 p_to_ser_num		IN	VARCHAR2,
11 			 p_item_id		IN      NUMBER,
12 			 p_org_id		IN 	NUMBER,
13 			 x_err_code		OUT  NOCOPY	NUMBER,
14 		 	 x_err_message  	OUT  NOCOPY	VARCHAR2) IS
15 BEGIN
16 
17     x_err_code := inv_trx_util_pub.insert_ser_trx(
18                p_trx_tmp_id     => p_serial_trx_tmp_id,
19                p_user_id        => p_user_id,
20                p_fm_ser_num     => p_fm_ser_num,
21                p_to_ser_num     => p_to_ser_num,
22                x_proc_msg       => x_err_message);
23 
24     if (x_err_code = 0) then
25 	serial_check.inv_mark_serial(
26 		from_serial_number	=> p_fm_ser_num,
27 		to_serial_number	=> p_to_ser_num,
28 		item_id			=> p_item_id,
29 		org_id			=> p_org_id,
30 		hdr_id			=> p_trx_header_id,
31 		temp_id			=> p_trx_tmp_id,
32 		lot_temp_id		=> p_serial_trx_tmp_id,
33 		success			=> x_err_code);
34     end if;
35 
36 END insert_ser_trx;
37 
38 PROCEDURE create_serial_temp_id(p_trx_tmp_id IN VARCHAR2,
39 				p_lot_number IN VARCHAR2) IS
40 BEGIN
41     update mtl_transaction_lots_temp
42     set serial_transaction_temp_id = mtl_material_transactions_s.nextval
43     where transaction_temp_id = p_trx_tmp_id and lot_number = p_lot_number;
44 END create_serial_temp_id;
45 
46 END eam_enter_lot_serial;