PACKAGE BODY: APPS.FA_INVENTORY_PKG

Source

1 PACKAGE BODY FA_INVENTORY_PKG as
2 /* $Header: faxpidmb.pls 120.4 2009/03/27 04:19:25 bridgway ship $ */
3 
4 PROCEDURE Lock_Row(X_Rowid			IN OUT NOCOPY  VARCHAR2,
5 		   X_inventory_id			NUMBER,
6 	           X_Calling_Fn			        VARCHAR2
7   , p_log_level_rec        IN     FA_API_TYPES.log_level_rec_type) IS
8  cursor c_inv is
9  SELECT *
10  FROM FA_INV_INTERFACE
11  WHERE ROWID = X_ROWID
12  FOR UPDATE OF STATUS NOWAIT;
13  Recinfo c_inv%rowtype;
14 
15 Begin
16  Open c_inv;
17  Fetch c_inv into recinfo;
18  IF (c_inv%notfound) then
19    close c_inv;
20    fnd_message.set_name('FND','FORM_RECORD_DELETED');
21    app_exception.raise_exception;
22 
23  End if;
24  Close c_inv;
25 --
26     if (
27        (recinfo.inventory_id = X_inventory_id)
28       ) then
29       return;
30     else
31       FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
32       APP_EXCEPTION.Raise_Exception;
33     end if;
34   END Lock_Row;
35 
36 
37   PROCEDURE Update_Row(X_Rowid                          VARCHAR2,
38 		       X_inventory_id			number,
39 		       X_unit_rec_mth_lookup_code	VARCHAR2,
40 		       X_loc_rec_mth_lookup_code	VARCHAR2,
41 		       X_status_lookup_code		VARCHAR2,
42                        X_Last_Update_Date               DATE,
43                        X_Last_Updated_By                NUMBER,
44                        X_Last_Update_Login              NUMBER DEFAULT NULL,
45 		       X_Calling_Fn			VARCHAR2
46   , p_log_level_rec        IN     FA_API_TYPES.log_level_rec_type) IS
47   BEGIN
48     if X_Rowid is not null then
49      UPDATE fa_inv_interface
50      SET
51 	unit_reconcile_mth    = X_unit_rec_mth_lookup_code,
52 	loc_reconcile_mth     = X_loc_rec_mth_lookup_code,
53 	status		      = X_status_lookup_code,
54 	Last_Update_Date      = X_Last_Update_Date ,
55         Last_Updated_By	      = X_Last_Updated_By,
56 	Last_Update_Login     = X_Last_Update_Login
57      WHERE rowid = X_Rowid;
58     else
59      UPDATE fa_inv_interface
60      SET
61 	unit_reconcile_mth    = X_unit_rec_mth_lookup_code,
62 	loc_reconcile_mth     = X_loc_rec_mth_lookup_code,
63 	status		      = X_status_lookup_code,
64 	Last_Update_Date      = X_Last_Update_Date ,
65         Last_Updated_By	      = X_Last_Updated_By,
66 	Last_Update_Login     = X_Last_Update_Login
67        where inventory_id = x_inventory_id;
68     end if;
69     if (SQL%NOTFOUND) then
70       Raise NO_DATA_FOUND;
71     end if;
72   EXCEPTION
73 	WHEN Others THEN
74 		FA_STANDARD_PKG.RAISE_ERROR
75 			(Called_Fn	=> 'FA_INVENTORY_PKG.Update_Row',
76 			Calling_Fn	=> X_Calling_Fn, p_log_level_rec => p_log_level_rec);
77   END Update_Row;
78   --
79 
80 END FA_INVENTORY_PKG;