[Home] [Help]
PACKAGE BODY: APPS.FA_INS_LINES_PKG
Source
1 PACKAGE BODY FA_INS_LINES_PKG AS
2 /* $Header: faxinslb.pls 120.3 2005/07/25 10:01:07 yyoon ship $ */
3
4 PROCEDURE Insert_Row( X_Rowid IN OUT NOCOPY VARCHAR2,
5 X_Asset_policy_id NUMBER,
6 X_Vendor_id NUMBER,
7 X_Policy_number VARCHAR2,
8 X_Asset_id NUMBER,
9 X_policy_line NUMBER,
10 X_insurance_category VARCHAR2,
11 X_hazard_class VARCHAR2,
12 X_comments VARCHAR2,
13 X_Last_update_date DATE,
14 X_Last_updated_by VARCHAR2,
15 X_Last_update_login VARCHAR2,
16 X_Creation_date DATE,
17 X_Created_by VARCHAR2,
18 X_Attribute_category VARCHAR2,
19 X_Attribute1 VARCHAR2,
20 X_Attribute2 VARCHAR2,
21 X_Attribute3 VARCHAR2,
22 X_Attribute4 VARCHAR2,
23 X_Attribute5 VARCHAR2,
24 X_Attribute6 VARCHAR2,
25 X_Attribute7 VARCHAR2,
26 X_Attribute8 VARCHAR2,
27 X_Attribute9 VARCHAR2,
28 X_Attribute10 VARCHAR2,
29 X_Attribute11 VARCHAR2,
30 X_Attribute12 VARCHAR2,
31 X_Attribute13 VARCHAR2,
32 X_Attribute14 VARCHAR2,
33 X_Attribute15 VARCHAR2,
34 X_Attribute16 VARCHAR2,
35 X_Attribute17 VARCHAR2,
36 X_Attribute18 VARCHAR2,
37 X_Attribute19 VARCHAR2,
38 X_Attribute20 VARCHAR2,
39 p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
40
41 CURSOR C IS SELECT rowid FROM fa_ins_lines
42 WHERE asset_policy_id = X_Asset_policy_id;
43
44 BEGIN
45 INSERT INTO fa_ins_lines
46 (
47 asset_policy_id,
48 vendor_id,
49 policy_number,
50 asset_id,
51 policy_line,
52 insurance_category,
53 hazard_class,
54 comments,
55 last_update_date,
56 last_updated_by,
57 last_update_login,
58 creation_date,
59 created_by,
60 attribute_category,
61 attribute1,
62 attribute2,
63 attribute3,
64 attribute4,
65 attribute5,
66 attribute6,
67 attribute7,
68 attribute8,
69 attribute9,
70 attribute10,
71 attribute11,
72 attribute12,
73 attribute13,
74 attribute14,
75 attribute15,
76 attribute16,
77 attribute17,
78 attribute18,
79 attribute19,
80 attribute20
81 )
82 VALUES
83 (
84 X_Asset_policy_id,
85 X_Vendor_id,
86 X_Policy_number,
87 X_Asset_id,
88 X_Policy_line,
89 X_Insurance_category,
90 X_Hazard_class,
91 X_Comments,
92 X_Last_update_date,
93 X_Last_updated_by,
94 X_Last_update_login,
95 X_Creation_date,
96 X_Created_by,
97 X_Attribute_category,
98 X_Attribute1,
99 X_Attribute2,
100 X_Attribute3,
101 X_Attribute4,
102 X_Attribute5,
103 X_Attribute6,
104 X_Attribute7,
105 X_Attribute8,
106 X_Attribute9,
107 X_Attribute10,
108 X_Attribute11,
109 X_Attribute12,
110 X_Attribute13,
111 X_Attribute14,
112 X_Attribute15,
113 X_Attribute16,
114 X_Attribute17,
115 X_Attribute18,
116 X_Attribute19,
117 X_Attribute20
118 );
119
120 -- Check to see whether insert was successful
121
122 OPEN C;
123
124 FETCH C INTO X_Rowid;
125
126 IF C%NOTFOUND THEN
127 CLOSE C;
128 RAISE NO_DATA_FOUND;
129 END IF;
130
131 CLOSE C;
132
133 END Insert_Row;
134
135
136 PROCEDURE Lock_Row( X_Rowid VARCHAR2,
137 X_Asset_policy_id NUMBER,
138 X_Vendor_id NUMBER,
139 X_Policy_number VARCHAR2,
140 X_Asset_id NUMBER,
141 X_policy_line NUMBER,
142 X_insurance_category VARCHAR2,
143 X_hazard_class VARCHAR2,
144 X_comments VARCHAR2,
145 X_Last_update_date DATE,
146 X_Last_updated_by VARCHAR2,
147 X_Last_update_login VARCHAR2,
148 X_Creation_date DATE,
149 X_Created_by VARCHAR2,
150 X_Attribute_category VARCHAR2,
151 X_Attribute1 VARCHAR2,
152 X_Attribute2 VARCHAR2,
153 X_Attribute3 VARCHAR2,
154 X_Attribute4 VARCHAR2,
155 X_Attribute5 VARCHAR2,
156 X_Attribute6 VARCHAR2,
157 X_Attribute7 VARCHAR2,
158 X_Attribute8 VARCHAR2,
159 X_Attribute9 VARCHAR2,
160 X_Attribute10 VARCHAR2,
161 X_Attribute11 VARCHAR2,
162 X_Attribute12 VARCHAR2,
163 X_Attribute13 VARCHAR2,
164 X_Attribute14 VARCHAR2,
165 X_Attribute15 VARCHAR2,
166 X_Attribute16 VARCHAR2,
167 X_Attribute17 VARCHAR2,
168 X_Attribute18 VARCHAR2,
169 X_Attribute19 VARCHAR2,
170 X_Attribute20 VARCHAR2,
171 p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
172
173 CURSOR C IS
174 SELECT *
175 FROM fa_ins_lines
176 WHERE rowid = X_Rowid
177 FOR UPDATE OF vendor_id NOWAIT;
178
179 recinfo C%ROWTYPE;
180
181 BEGIN
182 OPEN C;
183 FETCH C INTO recinfo;
184 IF C%NOTFOUND THEN
185 CLOSE C;
186 FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
187 APP_EXCEPTION.Raise_Exception;
188 END IF;
189 CLOSE C;
190 IF (
191 (recinfo.vendor_id = X_vendor_id)
192 AND ( (recinfo.policy_number = X_policy_number)
193 OR ( (recinfo.policy_number IS NULL)
194 AND (X_policy_number IS NULL)))
195 AND ( (recinfo.asset_id = X_asset_id)
196 OR ( (recinfo.asset_id IS NULL)
197 AND (X_asset_id IS NULL)))
198 AND ( (recinfo.policy_line = X_policy_line)
199 OR ( (recinfo.policy_line IS NULL)
200 AND (X_policy_line IS NULL)))
201 AND ( (recinfo.insurance_category = X_insurance_category)
202 OR ( (recinfo.insurance_category IS NULL)
203 AND (X_insurance_category IS NULL)))
204 AND ( (recinfo.hazard_class = X_hazard_class)
205 OR ( (recinfo.hazard_class IS NULL)
206 AND (X_hazard_class IS NULL)))
207 AND ( (recinfo.comments = X_comments)
208 OR ( (recinfo.comments IS NULL)
209 AND (X_comments IS NULL)))
210 AND ( (recinfo.attribute_category = X_Attribute_category)
211 OR ( (recinfo.attribute_category IS NULL)
212 AND (X_Attribute_category IS NULL)))
213 AND ( (recinfo.attribute1 = X_attribute1)
214 OR ( (recinfo.attribute1 IS NULL)
215 AND (X_Attribute1 IS NULL)))
216 AND ( (recinfo.attribute2 = X_attribute2)
217 OR ( (recinfo.attribute2 IS NULL)
218 AND (X_Attribute2 IS NULL)))
219 AND ( (recinfo.attribute3 = X_attribute3)
220 OR ( (recinfo.attribute3 IS NULL)
221 AND (X_Attribute3 IS NULL)))
222 AND ( (recinfo.attribute4 = X_attribute4)
223 OR ( (recinfo.attribute4 IS NULL)
224 AND (X_Attribute4 IS NULL)))
225 AND ( (recinfo.attribute5 = X_attribute5)
226 OR ( (recinfo.attribute5 IS NULL)
227 AND (X_Attribute5 IS NULL)))
228 AND ( (recinfo.attribute6 = X_attribute6)
229 OR ( (recinfo.attribute6 IS NULL)
230 AND (X_Attribute6 IS NULL)))
231 AND ( (recinfo.attribute7 = X_attribute7)
232 OR ( (recinfo.attribute7 IS NULL)
233 AND (X_Attribute7 IS NULL)))
234 AND ( (recinfo.attribute8 = X_attribute8)
235 OR ( (recinfo.attribute8 IS NULL)
236 AND (X_Attribute8 IS NULL)))
237 AND ( (recinfo.attribute9 = X_attribute9)
238 OR ( (recinfo.attribute9 IS NULL)
239 AND (X_Attribute9 IS NULL)))
240 AND ( (recinfo.attribute10 = X_attribute10)
241 OR ( (recinfo.attribute10 IS NULL)
242 AND (X_Attribute10 IS NULL)))
243 AND ( (recinfo.attribute11 = X_attribute11)
244 OR ( (recinfo.attribute11 IS NULL)
245 AND (X_Attribute11 IS NULL)))
246 AND ( (recinfo.attribute12 = X_attribute12)
247 OR ( (recinfo.attribute12 IS NULL)
248 AND (X_Attribute12 IS NULL)))
249 AND ( (recinfo.attribute13 = X_attribute13)
250 OR ( (recinfo.attribute13 IS NULL)
251 AND (X_Attribute13 IS NULL)))
252 AND ( (recinfo.attribute14 = X_attribute14)
253 OR ( (recinfo.attribute14 IS NULL)
254 AND (X_Attribute14 IS NULL)))
255 AND ( (recinfo.attribute15 = X_attribute15)
256 OR ( (recinfo.attribute15 IS NULL)
257 AND (X_Attribute15 IS NULL)))
258 AND ( (recinfo.attribute16 = X_attribute16)
259 OR ( (recinfo.attribute16 IS NULL)
260 AND (X_Attribute16 IS NULL)))
261 AND ( (recinfo.attribute17 = X_attribute17)
262 OR ( (recinfo.attribute17 IS NULL)
263 AND (X_Attribute17 IS NULL)))
264 AND ( (recinfo.attribute18 = X_attribute18)
265 OR ( (recinfo.attribute18 IS NULL)
266 AND (X_Attribute18 IS NULL)))
267 AND ( (recinfo.attribute19 = X_attribute19)
268 OR ( (recinfo.attribute19 IS NULL)
269 AND (X_Attribute19 IS NULL)))
270 AND ( (recinfo.attribute20 = X_attribute20)
271 OR ( (recinfo.attribute20 IS NULL)
272 AND (X_Attribute20 IS NULL)))) THEN
273 RETURN;
274 ELSE
275 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
276 APP_EXCEPTION.Raise_Exception;
277 END IF;
278 END Lock_Row;
279
280
281 PROCEDURE Update_Row( X_Rowid VARCHAR2,
282 X_Asset_policy_id NUMBER,
283 X_Vendor_id NUMBER,
284 X_Policy_number VARCHAR2,
285 X_Asset_id NUMBER,
286 X_policy_line NUMBER,
287 X_insurance_category VARCHAR2,
288 X_hazard_class VARCHAR2,
289 X_comments VARCHAR2,
290 X_Last_update_date DATE,
291 X_Last_updated_by VARCHAR2,
292 X_Last_update_login VARCHAR2,
293 X_Creation_date DATE,
294 X_Created_by VARCHAR2,
295 X_Attribute_category VARCHAR2,
296 X_Attribute1 VARCHAR2,
297 X_Attribute2 VARCHAR2,
298 X_Attribute3 VARCHAR2,
299 X_Attribute4 VARCHAR2,
300 X_Attribute5 VARCHAR2,
301 X_Attribute6 VARCHAR2,
302 X_Attribute7 VARCHAR2,
303 X_Attribute8 VARCHAR2,
304 X_Attribute9 VARCHAR2,
305 X_Attribute10 VARCHAR2,
306 X_Attribute11 VARCHAR2,
307 X_Attribute12 VARCHAR2,
308 X_Attribute13 VARCHAR2,
309 X_Attribute14 VARCHAR2,
310 X_Attribute15 VARCHAR2,
311 X_Attribute16 VARCHAR2,
312 X_Attribute17 VARCHAR2,
313 X_Attribute18 VARCHAR2,
314 X_Attribute19 VARCHAR2,
315 X_Attribute20 VARCHAR2,
316 p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
317
318 BEGIN
319
320 UPDATE fa_ins_lines
321 SET
322 asset_policy_id = X_Asset_policy_id,
323 vendor_id = X_vendor_id,
324 policy_number = X_policy_number,
325 asset_id = X_asset_id,
326 policy_line = X_policy_line,
327 insurance_category = X_insurance_category,
328 hazard_class = X_hazard_class,
329 comments = X_comments,
330 last_update_date = X_Last_update_date,
331 last_updated_by = X_Last_updated_by,
332 last_update_login = X_Last_update_login,
333 creation_date = X_Creation_date,
334 created_by = X_Created_by,
335 attribute_category = X_Attribute_category,
336 attribute1 = X_Attribute1,
337 attribute2 = X_Attribute2,
338 attribute3 = X_Attribute3,
339 attribute4 = X_Attribute4,
340 attribute5 = X_Attribute5,
341 attribute6 = X_Attribute6,
342 attribute7 = X_Attribute7,
343 attribute8 = X_Attribute8,
344 attribute9 = X_Attribute9,
345 attribute10 = X_Attribute10,
346 attribute11 = X_Attribute11,
347 attribute12 = X_Attribute12,
348 attribute13 = X_Attribute13,
349 attribute14 = X_Attribute14,
350 attribute15 = X_Attribute15,
351 attribute16 = X_Attribute16,
352 attribute17 = X_Attribute17,
353 attribute18 = X_Attribute18,
354 attribute19 = X_Attribute19,
355 attribute20 = X_Attribute20
356 WHERE rowid = X_Rowid;
357
358 IF (SQL%NOTFOUND) THEN
359 RAISE NO_DATA_FOUND;
360 END IF;
361
362 END Update_Row;
363
364
365 PROCEDURE Delete_Row( X_Rowid VARCHAR2,
366 p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
367
368 BEGIN
369
370 DELETE FROM fa_ins_lines
371 WHERE rowid = X_Rowid;
372
373 IF (SQL%NOTFOUND) THEN
374 RAISE NO_DATA_FOUND;
375 END IF;
376
377 END Delete_Row;
378
379 END FA_INS_LINES_PKG;