[Home] [Help]
PACKAGE BODY: APPS.FA_LEASES_PKG
Source
1 PACKAGE BODY FA_LEASES_PKG as
2 /* $Header: faxilsb.pls 120.4 2009/03/27 03:06:42 bridgway 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) 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, p_log_level_rec => p_log_level_rec);
106 END Insert_Row;
107 --
108 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
109
110 X_Lease_Id NUMBER,
111 X_Lease_Number VARCHAR2,
112 X_Lessor_Id NUMBER,
113 X_Description VARCHAR2,
114 X_Attribute1 VARCHAR2 DEFAULT NULL,
115 X_Attribute2 VARCHAR2 DEFAULT NULL,
116 X_Attribute3 VARCHAR2 DEFAULT NULL,
117 X_Attribute4 VARCHAR2 DEFAULT NULL,
118 X_Attribute5 VARCHAR2 DEFAULT NULL,
119 X_Attribute6 VARCHAR2 DEFAULT NULL,
120 X_Attribute7 VARCHAR2 DEFAULT NULL,
121 X_Attribute8 VARCHAR2 DEFAULT NULL,
122 X_Attribute9 VARCHAR2 DEFAULT NULL,
123 X_Attribute10 VARCHAR2 DEFAULT NULL,
124 X_Attribute11 VARCHAR2 DEFAULT NULL,
125 X_Attribute12 VARCHAR2 DEFAULT NULL,
126 X_Attribute13 VARCHAR2 DEFAULT NULL,
127 X_Attribute14 VARCHAR2 DEFAULT NULL,
128 X_Attribute15 VARCHAR2 DEFAULT NULL,
129 X_Attribute_Category_Code VARCHAR2 DEFAULT NULL,
130 X_Calling_Fn VARCHAR2
131 , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
132 CURSOR C IS
133 SELECT *
134 FROM fa_leases
135 WHERE rowid = X_Rowid
136 FOR UPDATE of Lease_Id NOWAIT;
137 Recinfo C%ROWTYPE;
138
139
140 BEGIN
141 OPEN C;
142 FETCH C INTO Recinfo;
143 if (C%NOTFOUND) then
144 CLOSE C;
145 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
146 APP_EXCEPTION.Raise_Exception;
147 end if;
148 CLOSE C;
149 if (
150
151 (Recinfo.lease_id = X_Lease_Id)
152 AND (Recinfo.lease_number = X_Lease_Number)
153 AND (Recinfo.lessor_id = X_Lessor_Id)
154 AND (Recinfo.description = X_Description)
155 AND ( (Recinfo.attribute1 = X_Attribute1)
156 OR ( (Recinfo.attribute1 IS NULL)
157 AND (X_Attribute1 IS NULL)))
158 AND ( (Recinfo.attribute2 = X_Attribute2)
159 OR ( (Recinfo.attribute2 IS NULL)
160 AND (X_Attribute2 IS NULL)))
161 AND ( (Recinfo.attribute3 = X_Attribute3)
162 OR ( (Recinfo.attribute3 IS NULL)
163 AND (X_Attribute3 IS NULL)))
164 AND ( (Recinfo.attribute4 = X_Attribute4)
165 OR ( (Recinfo.attribute4 IS NULL)
166 AND (X_Attribute4 IS NULL)))
167 AND ( (Recinfo.attribute5 = X_Attribute5)
168 OR ( (Recinfo.attribute5 IS NULL)
169 AND (X_Attribute5 IS NULL)))
170 AND ( (Recinfo.attribute6 = X_Attribute6)
171 OR ( (Recinfo.attribute6 IS NULL)
172 AND (X_Attribute6 IS NULL)))
173 AND ( (Recinfo.attribute7 = X_Attribute7)
174 OR ( (Recinfo.attribute7 IS NULL)
175 AND (X_Attribute7 IS NULL)))
176 AND ( (Recinfo.attribute8 = X_Attribute8)
177 OR ( (Recinfo.attribute8 IS NULL)
178 AND (X_Attribute8 IS NULL)))
179 AND ( (Recinfo.attribute9 = X_Attribute9)
180 OR ( (Recinfo.attribute9 IS NULL)
181 AND (X_Attribute9 IS NULL)))
182 AND ( (Recinfo.attribute10 = X_Attribute10)
183 OR ( (Recinfo.attribute10 IS NULL)
184 AND (X_Attribute10 IS NULL)))
185 AND ( (Recinfo.attribute11 = X_Attribute11)
186 OR ( (Recinfo.attribute11 IS NULL)
187 AND (X_Attribute11 IS NULL)))
188 AND ( (Recinfo.attribute12 = X_Attribute12)
189 OR ( (Recinfo.attribute12 IS NULL)
190 AND (X_Attribute12 IS NULL)))
191 AND ( (Recinfo.attribute13 = X_Attribute13)
192 OR ( (Recinfo.attribute13 IS NULL)
193 AND (X_Attribute13 IS NULL)))
194 AND ( (Recinfo.attribute14 = X_Attribute14)
195 OR ( (Recinfo.attribute14 IS NULL)
196 AND (X_Attribute14 IS NULL)))
197 AND ( (Recinfo.attribute15 = X_Attribute15)
198 OR ( (Recinfo.attribute15 IS NULL)
199 AND (X_Attribute15 IS NULL)))
200 AND ((Recinfo.attribute_category_code = X_Attribute_Category_Code)
201 OR ( (Recinfo.attribute_category_code IS NULL)
202 AND (X_Attribute_Category_Code IS NULL)))
203 ) 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
240 , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
241 BEGIN
242 UPDATE fa_leases
243 SET
244 lease_id = X_Lease_Id,
245 lease_number = X_Lease_Number,
246 lessor_id = X_Lessor_Id,
247 description = X_Description,
248 last_update_date = X_Last_Update_Date,
249 last_updated_by = X_Last_Updated_By,
250 last_update_login = X_Last_Update_Login,
251 attribute1 = X_Attribute1,
252 attribute2 = X_Attribute2,
253 attribute3 = X_Attribute3,
254 attribute4 = X_Attribute4,
255 attribute5 = X_Attribute5,
256 attribute6 = X_Attribute6,
257 attribute7 = X_Attribute7,
258 attribute8 = X_Attribute8,
259 attribute9 = X_Attribute9,
260 attribute10 = X_Attribute10,
261 attribute11 = X_Attribute11,
262 attribute12 = X_Attribute12,
263 attribute13 = X_Attribute13,
264 attribute14 = X_Attribute14,
265 attribute15 = X_Attribute15,
266 attribute_category_code = X_Attribute_Category_Code
267 WHERE rowid = X_Rowid;
268
269 if (SQL%NOTFOUND) then
270 Raise NO_DATA_FOUND;
271 end if;
272
273 X_Return_Status := TRUE;
274 EXCEPTION
275 WHEN Others THEN
276 FA_SRVR_MSG.Add_SQL_Error(
277 CALLING_FN => 'FA_LEASES_PKG.Update_Row', 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, p_log_level_rec => p_log_level_rec);
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, p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
287 BEGIN
288 if X_Rowid is not null then
289 DELETE FROM fa_leases
290 WHERE rowid = X_Rowid;
291 elsif X_Lease_Id is not null then
292 DELETE FROM fa_leases
293 WHERE lease_id = X_Lease_Id;
294 else
295 -- error
296 null;
297 end if;
298 if (SQL%NOTFOUND) then
299 Raise NO_DATA_FOUND;
300 end if;
301 EXCEPTION
302 WHEN Others THEN
303 FA_STANDARD_PKG.RAISE_ERROR
304 (Called_Fn => 'FA_LEASES_PKG.Delete_Row',
305 Calling_Fn => X_Calling_Fn, p_log_level_rec => p_log_level_rec);
306 END Delete_Row;
307
308
309 END FA_LEASES_PKG;