PACKAGE BODY: APPS.INVADPT1

Source

1 PACKAGE BODY INVADPT1 as
2 /* $Header: INVADPTB.pls 120.1 2005/07/01 11:47:34 appldev ship $ */
3 
4 procedure update_adjustments (
5 	v_orgid mtl_parameters.organization_id%TYPE,
6 	v_physinvid mtl_physical_inventories.physical_inventory_id%TYPE,
7 	v_adjid mtl_physical_adjustments.adjustment_id%TYPE,
8 	v_last_updated_by mtl_physical_adjustments.last_updated_by%TYPE,
9 	v_adj_count_quantity mtl_physical_adjustments.count_quantity%TYPE)
10 is
11 begin
12 
13 	update mtl_physical_adjustments
14 	set last_update_date = sysdate,
15 	last_updated_by = nvl(last_updated_by, -1),
16 	count_quantity = v_adj_count_quantity,
17 	adjustment_quantity = nvl(v_adj_count_quantity,nvl(system_quantity,0))
18 				- nvl(system_quantity,0),
19 	approval_status = null,
20 	approved_by_employee_id = null
21 	where adjustment_id = v_adjid
22 	and physical_inventory_id = v_physinvid
23 	and organization_id = v_orgid;
24 
25 	commit;
26 
27 end update_adjustments;
28 
29 end INVADPT1;