[Home] [Help]
PACKAGE BODY: APPS.FA_LEASES_PKG
Source
1 PACKAGE BODY FA_LEASES_PKG as
2 /* $Header: faxilsb.pls 120.3 2005/07/25 10:01:17 yyoon ship $ */
3
4 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5 X_Lease_Id NUMBER,
6 X_Lease_Number VARCHAR2,
7 X_Lessor_Id NUMBER,
8 X_Description VARCHAR2,
9 X_Last_Update_Date DATE,
10 X_Last_Updated_By NUMBER,
11 X_Created_By NUMBER DEFAULT NULL,
12 X_Creation_Date DATE DEFAULT NULL,
13 X_Last_Update_Login NUMBER DEFAULT NULL,
14 X_Attribute1 VARCHAR2 DEFAULT NULL,
15 X_Attribute2 VARCHAR2 DEFAULT NULL,
16 X_Attribute3 VARCHAR2 DEFAULT NULL,
17 X_Attribute4 VARCHAR2 DEFAULT NULL,
18 X_Attribute5 VARCHAR2 DEFAULT NULL,
19 X_Attribute6 VARCHAR2 DEFAULT NULL,
20 X_Attribute7 VARCHAR2 DEFAULT NULL,
21 X_Attribute8 VARCHAR2 DEFAULT NULL,
22 X_Attribute9 VARCHAR2 DEFAULT NULL,
23 X_Attribute10 VARCHAR2 DEFAULT NULL,
24 X_Attribute11 VARCHAR2 DEFAULT NULL,
25 X_Attribute12 VARCHAR2 DEFAULT NULL,
26 X_Attribute13 VARCHAR2 DEFAULT NULL,
27 X_Attribute14 VARCHAR2 DEFAULT NULL,
28 X_Attribute15 VARCHAR2 DEFAULT NULL,
29 X_Attribute_Category_Code VARCHAR2 DEFAULT NULL,
30 X_Calling_Fn VARCHAR2,
31 p_log_level_rec in fa_api_types.log_level_rec_type default null) IS
32 CURSOR C IS SELECT rowid FROM fa_leases
33 WHERE lease_id = X_Lease_Id;
34
35 BEGIN
36
37
38 INSERT INTO fa_leases(
39
40 lease_id,
41 lease_number,
42 lessor_id,
43 description,
44 last_update_date,
45 last_updated_by,
46 created_by,
47 creation_date,
48 last_update_login,
49 attribute1,
50 attribute2,
51 attribute3,
52 attribute4,
53 attribute5,
54 attribute6,
55 attribute7,
56 attribute8,
57 attribute9,
58 attribute10,
59 attribute11,
60 attribute12,
61 attribute13,
62 attribute14,
63 attribute15,
64 attribute_category_code
65 ) VALUES (
66
67 X_Lease_Id,
68 X_Lease_Number,
69 X_Lessor_Id,
70 X_Description,
71 X_Last_Update_Date,
72 X_Last_Updated_By,
73 X_Created_By,
74 X_Creation_Date,
75 X_Last_Update_Login,
76 X_Attribute1,
77 X_Attribute2,
78 X_Attribute3,
79 X_Attribute4,
80 X_Attribute5,
81 X_Attribute6,
82 X_Attribute7,
83 X_Attribute8,
84 X_Attribute9,
85 X_Attribute10,
86 X_Attribute11,
87 X_Attribute12,
88 X_Attribute13,
89 X_Attribute14,
90 X_Attribute15,
91 X_Attribute_Category_Code
92 );
93
94 OPEN C;
95 FETCH C INTO X_Rowid;
96 if (C%NOTFOUND) then
97 CLOSE C;
98 Raise NO_DATA_FOUND;
99 end if;
100 CLOSE C;
101 EXCEPTION
102 WHEN Others THEN
103 FA_STANDARD_PKG.RAISE_ERROR
104 (Called_Fn => 'FA_LEASES_PKG.Insert_Row',
105 Calling_Fn => X_Calling_Fn
106 ,p_log_level_rec => p_log_level_rec);
107 END Insert_Row;
108 --
109 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
110
111 X_Lease_Id NUMBER,
112 X_Lease_Number VARCHAR2,
113 X_Lessor_Id NUMBER,
114 X_Description VARCHAR2,
115 X_Attribute1 VARCHAR2 DEFAULT NULL,
116 X_Attribute2 VARCHAR2 DEFAULT NULL,
117 X_Attribute3 VARCHAR2 DEFAULT NULL,
118 X_Attribute4 VARCHAR2 DEFAULT NULL,
119 X_Attribute5 VARCHAR2 DEFAULT NULL,
120 X_Attribute6 VARCHAR2 DEFAULT NULL,
121 X_Attribute7 VARCHAR2 DEFAULT NULL,
122 X_Attribute8 VARCHAR2 DEFAULT NULL,
123 X_Attribute9 VARCHAR2 DEFAULT NULL,
124 X_Attribute10 VARCHAR2 DEFAULT NULL,
125 X_Attribute11 VARCHAR2 DEFAULT NULL,
126 X_Attribute12 VARCHAR2 DEFAULT NULL,
127 X_Attribute13 VARCHAR2 DEFAULT NULL,
128 X_Attribute14 VARCHAR2 DEFAULT NULL,
129 X_Attribute15 VARCHAR2 DEFAULT NULL,
130 X_Attribute_Category_Code VARCHAR2 DEFAULT NULL,
131 X_Calling_Fn VARCHAR2,
132 p_log_level_rec in fa_api_types.log_level_rec_type default null) IS
133 CURSOR C IS
134 SELECT *
135 FROM fa_leases
136 WHERE rowid = X_Rowid
137 FOR UPDATE of Lease_Id NOWAIT;
138 Recinfo C%ROWTYPE;
139
140
141 BEGIN
142 OPEN C;
143 FETCH C INTO Recinfo;
144 if (C%NOTFOUND) then
145 CLOSE C;
146 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
147 APP_EXCEPTION.Raise_Exception;
148 end if;
149 CLOSE C;
150 if (
151
152 (Recinfo.lease_id = X_Lease_Id)
153 AND (Recinfo.lease_number = X_Lease_Number)
154 AND (Recinfo.lessor_id = X_Lessor_Id)
155 AND (Recinfo.description = X_Description)
156 AND ( (Recinfo.attribute1 = X_Attribute1)
157 OR ( (Recinfo.attribute1 IS NULL)
158 AND (X_Attribute1 IS NULL)))
159 AND ( (Recinfo.attribute2 = X_Attribute2)
160 OR ( (Recinfo.attribute2 IS NULL)
161 AND (X_Attribute2 IS NULL)))
162 AND ( (Recinfo.attribute3 = X_Attribute3)
163 OR ( (Recinfo.attribute3 IS NULL)
164 AND (X_Attribute3 IS NULL)))
165 AND ( (Recinfo.attribute4 = X_Attribute4)
166 OR ( (Recinfo.attribute4 IS NULL)
167 AND (X_Attribute4 IS NULL)))
168 AND ( (Recinfo.attribute5 = X_Attribute5)
169 OR ( (Recinfo.attribute5 IS NULL)
170 AND (X_Attribute5 IS NULL)))
171 AND ( (Recinfo.attribute6 = X_Attribute6)
172 OR ( (Recinfo.attribute6 IS NULL)
173 AND (X_Attribute6 IS NULL)))
174 AND ( (Recinfo.attribute7 = X_Attribute7)
175 OR ( (Recinfo.attribute7 IS NULL)
176 AND (X_Attribute7 IS NULL)))
177 AND ( (Recinfo.attribute8 = X_Attribute8)
178 OR ( (Recinfo.attribute8 IS NULL)
179 AND (X_Attribute8 IS NULL)))
180 AND ( (Recinfo.attribute9 = X_Attribute9)
181 OR ( (Recinfo.attribute9 IS NULL)
182 AND (X_Attribute9 IS NULL)))
183 AND ( (Recinfo.attribute10 = X_Attribute10)
184 OR ( (Recinfo.attribute10 IS NULL)
185 AND (X_Attribute10 IS NULL)))
186 AND ( (Recinfo.attribute11 = X_Attribute11)
187 OR ( (Recinfo.attribute11 IS NULL)
188 AND (X_Attribute11 IS NULL)))
189 AND ( (Recinfo.attribute12 = X_Attribute12)
190 OR ( (Recinfo.attribute12 IS NULL)
191 AND (X_Attribute12 IS NULL)))
192 AND ( (Recinfo.attribute13 = X_Attribute13)
193 OR ( (Recinfo.attribute13 IS NULL)
194 AND (X_Attribute13 IS NULL)))
195 AND ( (Recinfo.attribute14 = X_Attribute14)
196 OR ( (Recinfo.attribute14 IS NULL)
197 AND (X_Attribute14 IS NULL)))
198 AND ( (Recinfo.attribute15 = X_Attribute15)
199 OR ( (Recinfo.attribute15 IS NULL)
200 AND (X_Attribute15 IS NULL)))
201 AND ((Recinfo.attribute_category_code = X_Attribute_Category_Code)
202 OR ( (Recinfo.attribute_category_code IS NULL)
203 AND (X_Attribute_Category_Code IS NULL)))) then
204 return;
205 else
206 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
207 APP_EXCEPTION.Raise_Exception;
208 end if;
209 END Lock_Row;
210
211
212 -- syoung: added X_Return_Status.
213 PROCEDURE Update_Row(X_Rowid VARCHAR2,
214 X_Lease_Id NUMBER,
215 X_Lease_Number VARCHAR2,
216 X_Lessor_Id NUMBER,
217 X_Description VARCHAR2,
218 X_Last_Update_Date DATE,
219 X_Last_Updated_By NUMBER,
220 X_Last_Update_Login NUMBER,
221 X_Attribute1 VARCHAR2,
222 X_Attribute2 VARCHAR2,
223 X_Attribute3 VARCHAR2,
224 X_Attribute4 VARCHAR2,
225 X_Attribute5 VARCHAR2,
226 X_Attribute6 VARCHAR2,
227 X_Attribute7 VARCHAR2,
228 X_Attribute8 VARCHAR2,
229 X_Attribute9 VARCHAR2,
230 X_Attribute10 VARCHAR2,
231 X_Attribute11 VARCHAR2,
232 X_Attribute12 VARCHAR2,
233 X_Attribute13 VARCHAR2,
234 X_Attribute14 VARCHAR2,
235 X_Attribute15 VARCHAR2,
236 X_Attribute_Category_Code VARCHAR2,
237 X_Return_Status OUT NOCOPY BOOLEAN,
238 X_Calling_Fn VARCHAR2,
239 p_log_level_rec in fa_api_types.log_level_rec_type default null) IS
240 BEGIN
241 UPDATE fa_leases
242 SET
243 lease_id = X_Lease_Id,
244 lease_number = X_Lease_Number,
245 lessor_id = X_Lessor_Id,
246 description = X_Description,
247 last_update_date = X_Last_Update_Date,
248 last_updated_by = X_Last_Updated_By,
249 last_update_login = X_Last_Update_Login,
250 attribute1 = X_Attribute1,
251 attribute2 = X_Attribute2,
252 attribute3 = X_Attribute3,
253 attribute4 = X_Attribute4,
254 attribute5 = X_Attribute5,
255 attribute6 = X_Attribute6,
256 attribute7 = X_Attribute7,
257 attribute8 = X_Attribute8,
258 attribute9 = X_Attribute9,
259 attribute10 = X_Attribute10,
260 attribute11 = X_Attribute11,
261 attribute12 = X_Attribute12,
262 attribute13 = X_Attribute13,
263 attribute14 = X_Attribute14,
264 attribute15 = X_Attribute15,
265 attribute_category_code = X_Attribute_Category_Code
266 WHERE rowid = X_Rowid;
267
268 if (SQL%NOTFOUND) then
269 Raise NO_DATA_FOUND;
270 end if;
271
272 X_Return_Status := TRUE;
273 EXCEPTION
274 WHEN Others THEN
275 FA_SRVR_MSG.Add_SQL_Error(
276 CALLING_FN => 'FA_LEASES_PKG.Update_Row'
277 ,p_log_level_rec => p_log_level_rec);
278 -- FA_STANDARD_PKG.RAISE_ERROR
279 -- (Called_Fn => 'FA_LEASES_PKG.Update_Row',
280 -- Calling_Fn => X_Calling_Fn);
281 X_Return_Status := FALSE;
282 END Update_Row;
283 --
284 PROCEDURE Delete_Row(X_Rowid VARCHAR2 DEFAULT NULL,
285 X_Lease_Id NUMBER DEFAULT NULL,
286 X_Calling_Fn VARCHAR2,
287 p_log_level_rec in fa_api_types.log_level_rec_type default null) IS
288 BEGIN
289 if X_Rowid is not null then
290 DELETE FROM fa_leases
291 WHERE rowid = X_Rowid;
292 elsif X_Lease_Id is not null then
293 DELETE FROM fa_leases
294 WHERE lease_id = X_Lease_Id;
295 else
296 -- error
297 null;
298 end if;
299 if (SQL%NOTFOUND) then
300 Raise NO_DATA_FOUND;
301 end if;
302 EXCEPTION
303 WHEN Others THEN
304 FA_STANDARD_PKG.RAISE_ERROR
305 (Called_Fn => 'FA_LEASES_PKG.Delete_Row',
306 Calling_Fn => X_Calling_Fn
307 ,p_log_level_rec => p_log_level_rec);
308 END Delete_Row;
309
310
311 END FA_LEASES_PKG;