1 PACKAGE BODY AS_CURRENT_ENVIRONMENT_PKG as
2 /* $Header: asxcuceb.pls 115.5 2002/02/05 16:27:19 pkm ship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out VARCHAR2,
5 X_CURRENT_ENVIRONMENT_ID in out NUMBER,
6 X_ADDRESS_ID in NUMBER,
7 X_CUSTOMER_ID in NUMBER,
8 X_ENABLED_FLAG in VARCHAR2,
9 X_INTEREST_TYPE_ID in NUMBER,
10 X_PRIMARY_INTEREST_CODE_ID in NUMBER,
11 X_SECONDARY_INTEREST_CODE_ID in NUMBER,
12 X_DESCRIPTION in VARCHAR2,
13 X_SOURCE in VARCHAR2,
14 X_SOURCE_ID in NUMBER,
15 X_INVENTORY_ITEM_ID in NUMBER,
16 X_QUANTITY in NUMBER,
17 X_PRICE in NUMBER,
18 X_AMOUNT in NUMBER,
19 X_COMMENTS in VARCHAR2,
20 X_USER_DEF_NUM1 in NUMBER,
21 X_USER_DEF_NUM2 in NUMBER,
22 X_USER_DEF_NUM3 in NUMBER,
23 X_USER_DEF_TEXT1 in VARCHAR2,
24 X_USER_DEF_TEXT2 in VARCHAR2,
25 X_USER_DEF_TEXT3 in VARCHAR2,
26 X_INSTALLATION_DATE in DATE,
27 X_USER_DEF_DATE in DATE,
28 X_REEVALUATION_DATE in DATE,
29 X_ATTRIBUTE_CATEGORY in VARCHAR2,
30 X_ATTRIBUTE1 in VARCHAR2,
31 X_ATTRIBUTE2 in VARCHAR2,
32 X_ATTRIBUTE3 in VARCHAR2,
33 X_ATTRIBUTE4 in VARCHAR2,
34 X_ATTRIBUTE5 in VARCHAR2,
35 X_ATTRIBUTE6 in VARCHAR2,
36 X_ATTRIBUTE7 in VARCHAR2,
37 X_ATTRIBUTE8 in VARCHAR2,
38 X_ATTRIBUTE9 in VARCHAR2,
39 X_ATTRIBUTE10 in VARCHAR2,
40 X_ATTRIBUTE11 in VARCHAR2,
41 X_ATTRIBUTE12 in VARCHAR2,
42 X_ATTRIBUTE13 in VARCHAR2,
43 X_ATTRIBUTE14 in VARCHAR2,
44 X_ATTRIBUTE15 in VARCHAR2,
45 X_LAST_UPDATE_DATE DATE,
46 X_LAST_UPDATED_BY NUMBER,
47 X_LAST_UPDATE_LOGIN NUMBER,
48 X_CREATION_DATE DATE,
49 X_CREATED_BY NUMBER,
50 X_MODE in VARCHAR2 default 'R'
51 ) is
52 cursor C is select ROWID from AS_CURRENT_ENVIRONMENT
53 where CURRENT_ENVIRONMENT_ID = X_CURRENT_ENVIRONMENT_ID;
54
55 CURSOR C_Curr_Env_Id IS
56 SELECT AS_Current_Environment_S.nextval
57 FROM sys.dual;
58
59
60 begin
61
62
63 OPEN C_Curr_Env_Id;
64 FETCH C_Curr_Env_Id INTO X_Current_Environment_Id;
65 CLOSE C_Curr_Env_Id;
66
67
68
69 insert into AS_CURRENT_ENVIRONMENT (
70
71 CURRENT_ENVIRONMENT_ID,
72 ADDRESS_ID,
73 CUSTOMER_ID,
74 ENABLED_FLAG,
75 INTEREST_TYPE_ID,
76 PRIMARY_INTEREST_CODE_ID,
77 SECONDARY_INTEREST_CODE_ID,
78 DESCRIPTION,
79 SOURCE,
80 SOURCE_ID,
81 INVENTORY_ITEM_ID,
82 QUANTITY,
83 PRICE,
84 AMOUNT,
85 COMMENTS,
86 USER_DEF_NUM1,
87 USER_DEF_NUM2,
88 USER_DEF_NUM3,
89 USER_DEF_TEXT1,
90 USER_DEF_TEXT2,
91 USER_DEF_TEXT3,
92 INSTALLATION_DATE,
93 USER_DEF_DATE,
94 REEVALUATION_DATE,
95 ATTRIBUTE_CATEGORY,
96 ATTRIBUTE1,
97 ATTRIBUTE2,
98 ATTRIBUTE3,
99 ATTRIBUTE4,
100 ATTRIBUTE5,
101 ATTRIBUTE6,
102 ATTRIBUTE7,
103 ATTRIBUTE8,
104 ATTRIBUTE9,
105 ATTRIBUTE10,
106 ATTRIBUTE11,
107 ATTRIBUTE12,
108 ATTRIBUTE13,
109 ATTRIBUTE14,
110 ATTRIBUTE15,
111 CREATION_DATE,
112 CREATED_BY,
113 LAST_UPDATE_DATE,
114 LAST_UPDATED_BY,
115 LAST_UPDATE_LOGIN
116 ) values (
117
118 X_CURRENT_ENVIRONMENT_ID,
119 X_ADDRESS_ID,
120 X_CUSTOMER_ID,
121 X_ENABLED_FLAG,
122 X_INTEREST_TYPE_ID,
123 X_PRIMARY_INTEREST_CODE_ID,
124 X_SECONDARY_INTEREST_CODE_ID,
125 X_DESCRIPTION,
126 X_SOURCE,
127 X_SOURCE_ID,
128 X_INVENTORY_ITEM_ID,
129 X_QUANTITY,
130 X_PRICE,
131 X_AMOUNT,
132 X_COMMENTS,
133 X_USER_DEF_NUM1,
134 X_USER_DEF_NUM2,
135 X_USER_DEF_NUM3,
136 X_USER_DEF_TEXT1,
137 X_USER_DEF_TEXT2,
138 X_USER_DEF_TEXT3,
139 X_INSTALLATION_DATE,
140 X_USER_DEF_DATE,
141 X_REEVALUATION_DATE,
142 X_ATTRIBUTE_CATEGORY,
143 X_ATTRIBUTE1,
144 X_ATTRIBUTE2,
145 X_ATTRIBUTE3,
146 X_ATTRIBUTE4,
147 X_ATTRIBUTE5,
148 X_ATTRIBUTE6,
149 X_ATTRIBUTE7,
150 X_ATTRIBUTE8,
151 X_ATTRIBUTE9,
152 X_ATTRIBUTE10,
153 X_ATTRIBUTE11,
154 X_ATTRIBUTE12,
155 X_ATTRIBUTE13,
156 X_ATTRIBUTE14,
157 X_ATTRIBUTE15,
158 X_CREATION_DATE,
159 X_CREATED_BY,
160 X_LAST_UPDATE_DATE,
161 X_LAST_UPDATED_BY,
162 X_LAST_UPDATE_LOGIN
163 );
164
165 open c;
166 fetch c into X_ROWID;
167 if (c%notfound) then
168 close c;
169 raise no_data_found;
170 end if;
171 close c;
172
173 end INSERT_ROW;
174
175 procedure LOCK_ROW (
176 X_CURRENT_ENVIRONMENT_ID in NUMBER,
177 X_ADDRESS_ID in NUMBER,
178 X_CUSTOMER_ID in NUMBER,
179 X_ENABLED_FLAG in VARCHAR2,
180 X_INTEREST_TYPE_ID in NUMBER,
181 X_PRIMARY_INTEREST_CODE_ID in NUMBER,
182 X_SECONDARY_INTEREST_CODE_ID in NUMBER,
183 X_DESCRIPTION in VARCHAR2,
184 X_SOURCE in VARCHAR2,
185 X_SOURCE_ID in NUMBER,
186 X_INVENTORY_ITEM_ID in NUMBER,
187 X_QUANTITY in NUMBER,
188 X_PRICE in NUMBER,
189 X_AMOUNT in NUMBER,
190 X_COMMENTS in VARCHAR2,
191 X_USER_DEF_NUM1 in NUMBER,
192 X_USER_DEF_NUM2 in NUMBER,
193 X_USER_DEF_NUM3 in NUMBER,
194 X_USER_DEF_TEXT1 in VARCHAR2,
195 X_USER_DEF_TEXT2 in VARCHAR2,
196 X_USER_DEF_TEXT3 in VARCHAR2,
197 X_INSTALLATION_DATE in DATE,
198 X_USER_DEF_DATE in DATE,
199 X_REEVALUATION_DATE in DATE,
200 X_ATTRIBUTE_CATEGORY in VARCHAR2,
201 X_ATTRIBUTE1 in VARCHAR2,
202 X_ATTRIBUTE2 in VARCHAR2,
203 X_ATTRIBUTE3 in VARCHAR2,
204 X_ATTRIBUTE4 in VARCHAR2,
205 X_ATTRIBUTE5 in VARCHAR2,
206 X_ATTRIBUTE6 in VARCHAR2,
207 X_ATTRIBUTE7 in VARCHAR2,
208 X_ATTRIBUTE8 in VARCHAR2,
209 X_ATTRIBUTE9 in VARCHAR2,
210 X_ATTRIBUTE10 in VARCHAR2,
211 X_ATTRIBUTE11 in VARCHAR2,
212 X_ATTRIBUTE12 in VARCHAR2,
213 X_ATTRIBUTE13 in VARCHAR2,
214 X_ATTRIBUTE14 in VARCHAR2,
215 X_ATTRIBUTE15 in VARCHAR2,
216 X_LAST_UPDATE_DATE DATE,
217 X_LAST_UPDATED_BY NUMBER,
218 X_LAST_UPDATE_LOGIN NUMBER,
219 X_CREATION_DATE DATE,
220 X_CREATED_BY NUMBER
221 ) is
222 cursor c is select
223
224 ADDRESS_ID,
225 CUSTOMER_ID,
226 ENABLED_FLAG,
227 INTEREST_TYPE_ID,
228 PRIMARY_INTEREST_CODE_ID,
229 SECONDARY_INTEREST_CODE_ID,
230 DESCRIPTION,
231 SOURCE,
232 SOURCE_ID,
233 INVENTORY_ITEM_ID,
234 QUANTITY,
235 PRICE,
236 AMOUNT,
237 COMMENTS,
238 USER_DEF_NUM1,
239 USER_DEF_NUM2,
240 USER_DEF_NUM3,
241 USER_DEF_TEXT1,
242 USER_DEF_TEXT2,
243 USER_DEF_TEXT3,
244 INSTALLATION_DATE,
245 USER_DEF_DATE,
246 REEVALUATION_DATE,
247 ATTRIBUTE_CATEGORY,
248 ATTRIBUTE1,
249 ATTRIBUTE2,
250 ATTRIBUTE3,
251 ATTRIBUTE4,
252 ATTRIBUTE5,
253 ATTRIBUTE6,
254 ATTRIBUTE7,
255 ATTRIBUTE8,
256 ATTRIBUTE9,
257 ATTRIBUTE10,
258 ATTRIBUTE11,
259 ATTRIBUTE12,
260 ATTRIBUTE13,
261 ATTRIBUTE14,
262 ATTRIBUTE15,
263 LAST_UPDATE_DATE,
264 LAST_UPDATED_BY,
265 LAST_UPDATE_LOGIN,
266 CREATION_DATE,
267 CREATED_BY
268 from AS_CURRENT_ENVIRONMENT
269 where CURRENT_ENVIRONMENT_ID = X_CURRENT_ENVIRONMENT_ID
270 for update nowait;
271 recinfo c%rowtype;
272
273 begin
274 open c;
275 fetch c into recinfo;
276 if (c%notfound) then
277 close c;
278 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
279 app_exception.raise_exception;
280 end if;
281 close c;
282 if ( ((recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
283 OR ((recinfo.ATTRIBUTE9 is null)
284 AND (X_ATTRIBUTE9 is null)))
285 AND ((recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
286 OR ((recinfo.ATTRIBUTE10 is null)
287 AND (X_ATTRIBUTE10 is null)))
288 AND ((recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
289 OR ((recinfo.ATTRIBUTE11 is null)
290 AND (X_ATTRIBUTE11 is null)))
291 AND ((recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
292 OR ((recinfo.ATTRIBUTE12 is null)
293 AND (X_ATTRIBUTE12 is null)))
294 AND ((recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
295 OR ((recinfo.ATTRIBUTE13 is null)
296 AND (X_ATTRIBUTE13 is null)))
297 AND ((recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
298 OR ((recinfo.ATTRIBUTE14 is null)
299 AND (X_ATTRIBUTE14 is null)))
300 AND ((recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
301 OR ((recinfo.ATTRIBUTE15 is null)
302 AND (X_ATTRIBUTE15 is null)))
303 AND (recinfo.ADDRESS_ID = X_ADDRESS_ID)
304 AND (recinfo.CUSTOMER_ID = X_CUSTOMER_ID)
305 AND (recinfo.ENABLED_FLAG = X_ENABLED_FLAG)
306 AND ((recinfo.INTEREST_TYPE_ID = X_INTEREST_TYPE_ID)
307 OR ((recinfo.INTEREST_TYPE_ID is null)
308 AND (X_INTEREST_TYPE_ID is null)))
309 AND ((recinfo.PRIMARY_INTEREST_CODE_ID = X_PRIMARY_INTEREST_CODE_ID)
310 OR ((recinfo.PRIMARY_INTEREST_CODE_ID is null)
311 AND (X_PRIMARY_INTEREST_CODE_ID is null)))
312 AND ((recinfo.SECONDARY_INTEREST_CODE_ID = X_SECONDARY_INTEREST_CODE_ID)
313 OR ((recinfo.SECONDARY_INTEREST_CODE_ID is null)
314 AND (X_SECONDARY_INTEREST_CODE_ID is null)))
315 AND ((recinfo.DESCRIPTION = X_DESCRIPTION)
316 OR ((recinfo.DESCRIPTION is null)
317 AND (X_DESCRIPTION is null)))
318 AND ((recinfo.SOURCE = X_SOURCE)
319 OR ((recinfo.SOURCE is null)
320 AND (X_SOURCE is null)))
321 AND ((recinfo.SOURCE_ID = X_SOURCE_ID)
322 OR ((recinfo.SOURCE_ID is null)
323 AND (X_SOURCE_ID is null)))
324 AND ((recinfo.INVENTORY_ITEM_ID = X_INVENTORY_ITEM_ID)
325 OR ((recinfo.INVENTORY_ITEM_ID is null)
326 AND (X_INVENTORY_ITEM_ID is null)))
327 AND ((recinfo.QUANTITY = X_QUANTITY)
328 OR ((recinfo.QUANTITY is null)
329 AND (X_QUANTITY is null)))
330 AND ((recinfo.PRICE = X_PRICE)
331 OR ((recinfo.PRICE is null)
332 AND (X_PRICE is null)))
333 AND ((recinfo.AMOUNT = X_AMOUNT)
334 OR ((recinfo.AMOUNT is null)
335 AND (X_AMOUNT is null)))
336 AND ((recinfo.COMMENTS = X_COMMENTS)
337 OR ((recinfo.COMMENTS is null)
338 AND (X_COMMENTS is null)))
339 AND ((recinfo.USER_DEF_NUM1 = X_USER_DEF_NUM1)
340 OR ((recinfo.USER_DEF_NUM1 is null)
341 AND (X_USER_DEF_NUM1 is null)))
342 AND ((recinfo.USER_DEF_NUM2 = X_USER_DEF_NUM2)
343 OR ((recinfo.USER_DEF_NUM2 is null)
344 AND (X_USER_DEF_NUM2 is null)))
345 AND ((recinfo.USER_DEF_NUM3 = X_USER_DEF_NUM3)
346 OR ((recinfo.USER_DEF_NUM3 is null)
347 AND (X_USER_DEF_NUM3 is null)))
348 AND ((recinfo.USER_DEF_TEXT1 = X_USER_DEF_TEXT1)
349 OR ((recinfo.USER_DEF_TEXT1 is null)
350 AND (X_USER_DEF_TEXT1 is null)))
351 AND ((recinfo.USER_DEF_TEXT2 = X_USER_DEF_TEXT2)
352 OR ((recinfo.USER_DEF_TEXT2 is null)
353 AND (X_USER_DEF_TEXT2 is null)))
354 AND ((recinfo.USER_DEF_TEXT3 = X_USER_DEF_TEXT3)
355 OR ((recinfo.USER_DEF_TEXT3 is null)
356 AND (X_USER_DEF_TEXT3 is null)))
357 AND ((recinfo.INSTALLATION_DATE = X_INSTALLATION_DATE)
358 OR ((recinfo.INSTALLATION_DATE is null)
359 AND (X_INSTALLATION_DATE is null)))
360 AND ((recinfo.USER_DEF_DATE = X_USER_DEF_DATE)
361 OR ((recinfo.USER_DEF_DATE is null)
362 AND (X_USER_DEF_DATE is null)))
363 AND ((recinfo.REEVALUATION_DATE = X_REEVALUATION_DATE)
364 OR ((recinfo.REEVALUATION_DATE is null)
365 AND (X_REEVALUATION_DATE is null)))
366 AND ((recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
367 OR ((recinfo.ATTRIBUTE_CATEGORY is null)
368 AND (X_ATTRIBUTE_CATEGORY is null)))
369 AND ((recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
370 OR ((recinfo.ATTRIBUTE1 is null)
371 AND (X_ATTRIBUTE1 is null)))
372 AND ((recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
373 OR ((recinfo.ATTRIBUTE2 is null)
374 AND (X_ATTRIBUTE2 is null)))
375 AND ((recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
376 OR ((recinfo.ATTRIBUTE3 is null)
377 AND (X_ATTRIBUTE3 is null)))
378 AND ((recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
379 OR ((recinfo.ATTRIBUTE4 is null)
380 AND (X_ATTRIBUTE4 is null)))
381 AND ((recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
382 OR ((recinfo.ATTRIBUTE5 is null)
383 AND (X_ATTRIBUTE5 is null)))
384 AND ((recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
385 OR ((recinfo.ATTRIBUTE6 is null)
386 AND (X_ATTRIBUTE6 is null)))
387 AND ((recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
388 OR ((recinfo.ATTRIBUTE7 is null)
389 AND (X_ATTRIBUTE7 is null)))
390 AND ((recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
391 OR ((recinfo.ATTRIBUTE8 is null)
392 AND (X_ATTRIBUTE8 is null)))
393 AND (recinfo.LAST_UPDATE_DATE = X_LAST_UPDATE_DATE)
394 AND (recinfo.LAST_UPDATED_BY = X_LAST_UPDATED_BY)
395 AND (recinfo.LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN)
396 AND (recinfo.CREATION_DATE = X_CREATION_DATE)
397 AND (recinfo.CREATED_BY = X_CREATED_BY)
398 ) then
399 null;
400 else
401 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
402 app_exception.raise_exception;
403 end if;
404 return;
405 end LOCK_ROW;
406
407 procedure UPDATE_ROW (
408 X_CURRENT_ENVIRONMENT_ID in NUMBER,
409 X_ADDRESS_ID in NUMBER,
410 X_CUSTOMER_ID in NUMBER,
411 X_ENABLED_FLAG in VARCHAR2,
412 X_INTEREST_TYPE_ID in NUMBER,
413 X_PRIMARY_INTEREST_CODE_ID in NUMBER,
414 X_SECONDARY_INTEREST_CODE_ID in NUMBER,
415 X_DESCRIPTION in VARCHAR2,
416 X_SOURCE in VARCHAR2,
417 X_SOURCE_ID in NUMBER,
418 X_INVENTORY_ITEM_ID in NUMBER,
419 X_QUANTITY in NUMBER,
420 X_PRICE in NUMBER,
421 X_AMOUNT in NUMBER,
422 X_COMMENTS in VARCHAR2,
423 X_USER_DEF_NUM1 in NUMBER,
424 X_USER_DEF_NUM2 in NUMBER,
425 X_USER_DEF_NUM3 in NUMBER,
426 X_USER_DEF_TEXT1 in VARCHAR2,
427 X_USER_DEF_TEXT2 in VARCHAR2,
428 X_USER_DEF_TEXT3 in VARCHAR2,
429 X_INSTALLATION_DATE in DATE,
430 X_USER_DEF_DATE in DATE,
431 X_REEVALUATION_DATE in DATE,
432 X_ATTRIBUTE_CATEGORY in VARCHAR2,
433 X_ATTRIBUTE1 in VARCHAR2,
434 X_ATTRIBUTE2 in VARCHAR2,
435 X_ATTRIBUTE3 in VARCHAR2,
436 X_ATTRIBUTE4 in VARCHAR2,
437 X_ATTRIBUTE5 in VARCHAR2,
438 X_ATTRIBUTE6 in VARCHAR2,
439 X_ATTRIBUTE7 in VARCHAR2,
440 X_ATTRIBUTE8 in VARCHAR2,
441 X_ATTRIBUTE9 in VARCHAR2,
442 X_ATTRIBUTE10 in VARCHAR2,
443 X_ATTRIBUTE11 in VARCHAR2,
444 X_ATTRIBUTE12 in VARCHAR2,
445 X_ATTRIBUTE13 in VARCHAR2,
446 X_ATTRIBUTE14 in VARCHAR2,
447 X_ATTRIBUTE15 in VARCHAR2,
448 X_LAST_UPDATE_DATE DATE,
449 X_LAST_UPDATED_BY NUMBER,
450 X_LAST_UPDATE_LOGIN NUMBER,
451 X_MODE in VARCHAR2 default 'R'
452 ) is
453
454 begin
455
456
457 update AS_CURRENT_ENVIRONMENT set
458 CURRENT_ENVIRONMENT_ID = X_CURRENT_ENVIRONMENT_ID,
459 ADDRESS_ID = X_ADDRESS_ID,
463 PRIMARY_INTEREST_CODE_ID = X_PRIMARY_INTEREST_CODE_ID,
460 CUSTOMER_ID = X_CUSTOMER_ID,
461 ENABLED_FLAG = X_ENABLED_FLAG,
462 INTEREST_TYPE_ID = X_INTEREST_TYPE_ID,
464 SECONDARY_INTEREST_CODE_ID = X_SECONDARY_INTEREST_CODE_ID,
465 DESCRIPTION = X_DESCRIPTION,
466 SOURCE = X_SOURCE,
467 SOURCE_ID = X_SOURCE_ID,
468 INVENTORY_ITEM_ID = X_INVENTORY_ITEM_ID,
469 QUANTITY = X_QUANTITY,
470 PRICE = X_PRICE,
471 AMOUNT = X_AMOUNT,
472 COMMENTS = X_COMMENTS,
473 USER_DEF_NUM1 = X_USER_DEF_NUM1,
474 USER_DEF_NUM2 = X_USER_DEF_NUM2,
475 USER_DEF_NUM3 = X_USER_DEF_NUM3,
476 USER_DEF_TEXT1 = X_USER_DEF_TEXT1,
477 USER_DEF_TEXT2 = X_USER_DEF_TEXT2,
478 USER_DEF_TEXT3 = X_USER_DEF_TEXT3,
479 INSTALLATION_DATE = X_INSTALLATION_DATE,
480 USER_DEF_DATE = X_USER_DEF_DATE,
481 REEVALUATION_DATE = X_REEVALUATION_DATE,
482 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
483 ATTRIBUTE1 = X_ATTRIBUTE1,
484 ATTRIBUTE2 = X_ATTRIBUTE2,
485 ATTRIBUTE3 = X_ATTRIBUTE3,
486 ATTRIBUTE4 = X_ATTRIBUTE4,
487 ATTRIBUTE5 = X_ATTRIBUTE5,
488 ATTRIBUTE6 = X_ATTRIBUTE6,
489 ATTRIBUTE7 = X_ATTRIBUTE7,
490 ATTRIBUTE8 = X_ATTRIBUTE8,
491 ATTRIBUTE9 = X_ATTRIBUTE9,
492 ATTRIBUTE10 = X_ATTRIBUTE10,
493 ATTRIBUTE11 = X_ATTRIBUTE11,
494 ATTRIBUTE12 = X_ATTRIBUTE12,
495 ATTRIBUTE13 = X_ATTRIBUTE13,
496 ATTRIBUTE14 = X_ATTRIBUTE14,
497 ATTRIBUTE15 = X_ATTRIBUTE15,
498 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
499 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
500 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
501 where CURRENT_ENVIRONMENT_ID = X_CURRENT_ENVIRONMENT_ID;
502 if (sql%notfound) then
503 raise no_data_found;
504 end if;
505
506 end UPDATE_ROW;
507
508 procedure DELETE_ROW (
509 X_CURRENT_ENVIRONMENT_ID in NUMBER
510 ) is
511 begin
512 delete from AS_CURRENT_ENVIRONMENT
513 where CURRENT_ENVIRONMENT_ID = X_CURRENT_ENVIRONMENT_ID;
514
515 if (sql%notfound) then
516 raise no_data_found;
517 end if;
518
519 end DELETE_ROW;
520
521
522 PROCEDURE SELECT_TOTAL_AMOUNT(X_CUSTOMER_ID IN NUMBER,
523 X_ADDRESS_ID IN NUMBER,
524 X_TOTAL IN OUT NUMBER,
525 X_TOTAL_RTOT_DB IN OUT NUMBER) IS
526
527 BEGIN
528 SELECT NVL(SUM(Amount),0)
529 INTO X_TOTAL
530 FROM AS_CURRENT_ENVIRONMENT
531 WHERE X_CUSTOMER_ID = Customer_Id AND
532 X_ADDRESS_ID = Address_Id;
533
534 X_TOTAL_RTOT_DB := X_TOTAL;
535
536 END SELECT_TOTAL_AMOUNT;
537
538
539 PROCEDURE SELECT_TOTAL_USER_DEF_NUM1(X_CUSTOMER_ID IN NUMBER,
540 X_ADDRESS_ID IN NUMBER,
541 X_TOTAL IN OUT NUMBER,
542 X_TOTAL_RTOT_DB IN OUT NUMBER) IS
543
544 BEGIN
545 SELECT NVL(SUM(User_Def_Num1),0)
546 INTO X_TOTAL
547 FROM AS_CURRENT_ENVIRONMENT
548 WHERE X_CUSTOMER_ID = Customer_Id AND
549 X_ADDRESS_ID = Address_Id;
550
551 X_TOTAL_RTOT_DB := X_TOTAL;
552
553 END SELECT_TOTAL_USER_DEF_NUM1;
554
555
556 end AS_CURRENT_ENVIRONMENT_PKG;