PACKAGE BODY: APPS.FA_INVENTORY_PKG

Source

1 PACKAGE BODY FA_INVENTORY_PKG as
2 /* $Header: faxpidmb.pls 120.3 2005/07/25 10:00:22 yyoon 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 default null) 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)) then
28       return;
29     else
30       FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
31       APP_EXCEPTION.Raise_Exception;
32     end if;
33   END Lock_Row;
34 
35 
36   PROCEDURE Update_Row(X_Rowid           VARCHAR2,
37 		       X_inventory_id			     number,
38 		       X_unit_rec_mth_lookup_code  VARCHAR2,
39 		       X_loc_rec_mth_lookup_code	  VARCHAR2,
40 		       X_status_lookup_code		  VARCHAR2,
41              X_Last_Update_Date          DATE,
42              X_Last_Updated_By           NUMBER,
43              X_Last_Update_Login         NUMBER DEFAULT NULL,
44 		       X_Calling_Fn			        VARCHAR2,
45              p_log_level_rec      IN     FA_API_TYPES.log_level_rec_type default null) IS
46   BEGIN
47     if X_Rowid is not null then
48      UPDATE fa_inv_interface
49      SET
50 	unit_reconcile_mth    = X_unit_rec_mth_lookup_code,
51 	loc_reconcile_mth     = X_loc_rec_mth_lookup_code,
52 	status		      = X_status_lookup_code,
53 	Last_Update_Date      = X_Last_Update_Date ,
54         Last_Updated_By	      = X_Last_Updated_By,
55 	Last_Update_Login     = X_Last_Update_Login
56      WHERE rowid = X_Rowid;
57     else
58      UPDATE fa_inv_interface
59      SET
60 	unit_reconcile_mth    = X_unit_rec_mth_lookup_code,
61 	loc_reconcile_mth     = X_loc_rec_mth_lookup_code,
62 	status		      = X_status_lookup_code,
63 	Last_Update_Date      = X_Last_Update_Date ,
64         Last_Updated_By	      = X_Last_Updated_By,
65 	Last_Update_Login     = X_Last_Update_Login
66        where inventory_id = x_inventory_id;
67     end if;
68     if (SQL%NOTFOUND) then
69       Raise NO_DATA_FOUND;
70     end if;
71   EXCEPTION
72 	WHEN Others THEN
73 		FA_STANDARD_PKG.RAISE_ERROR
74 			(Called_Fn	=> 'FA_INVENTORY_PKG.Update_Row',
75 			Calling_Fn	=> X_Calling_Fn
76 			,p_log_level_rec => p_log_level_rec);
77   END Update_Row;
78   --
79 
80 END FA_INVENTORY_PKG;