[Home] [Help]
PACKAGE BODY: APPS.AR_MEMO_LINES_PKG
Source
1 package body AR_MEMO_LINES_PKG as
2 /* $Header: ARPAMLSB.pls 120.3 2005/04/15 16:40:51 djancis ship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY VARCHAR2,
5 X_org_id in number default null, --SSA changes anukumar
6 X_MEMO_LINE_ID in NUMBER,
7 X_SET_OF_BOOKS_ID in NUMBER,
8 X_LINE_TYPE in VARCHAR2,
9 X_START_DATE in DATE,
10 X_GL_ID_REV in NUMBER,
11 X_TAX_CODE in VARCHAR2,
12 X_UOM_CODE in VARCHAR2,
13 X_UNIT_STD_PRICE in NUMBER,
14 X_INVOICING_RULE_ID in NUMBER,
15 X_ACCOUNTING_RULE_ID in NUMBER,
16 X_END_DATE in DATE,
17 X_ATTRIBUTE_CATEGORY in VARCHAR2,
18 X_ATTRIBUTE1 in VARCHAR2,
19 X_ATTRIBUTE2 in VARCHAR2,
20 X_ATTRIBUTE3 in VARCHAR2,
21 X_ATTRIBUTE4 in VARCHAR2,
22 X_ATTRIBUTE5 in VARCHAR2,
23 X_ATTRIBUTE6 in VARCHAR2,
24 X_ATTRIBUTE7 in VARCHAR2,
25 X_ATTRIBUTE8 in VARCHAR2,
26 X_ATTRIBUTE9 in VARCHAR2,
27 X_ATTRIBUTE10 in VARCHAR2,
28 X_ATTRIBUTE11 in VARCHAR2,
29 X_ATTRIBUTE12 in VARCHAR2,
30 X_ATTRIBUTE13 in VARCHAR2,
31 X_ATTRIBUTE14 in VARCHAR2,
32 X_ATTRIBUTE15 in VARCHAR2,
33 X_GLOBAL_ATTRIBUTE_CATEGORY in VARCHAR2,
34 X_GLOBAL_ATTRIBUTE1 in VARCHAR2,
35 X_GLOBAL_ATTRIBUTE2 in VARCHAR2,
36 X_GLOBAL_ATTRIBUTE3 in VARCHAR2,
37 X_GLOBAL_ATTRIBUTE4 in VARCHAR2,
38 X_GLOBAL_ATTRIBUTE5 in VARCHAR2,
39 X_GLOBAL_ATTRIBUTE6 in VARCHAR2,
40 X_GLOBAL_ATTRIBUTE7 in VARCHAR2,
41 X_GLOBAL_ATTRIBUTE8 in VARCHAR2,
42 X_GLOBAL_ATTRIBUTE9 in VARCHAR2,
43 X_GLOBAL_ATTRIBUTE10 in VARCHAR2,
44 X_GLOBAL_ATTRIBUTE11 in VARCHAR2,
45 X_GLOBAL_ATTRIBUTE12 in VARCHAR2,
46 X_GLOBAL_ATTRIBUTE13 in VARCHAR2,
47 X_GLOBAL_ATTRIBUTE14 in VARCHAR2,
48 X_GLOBAL_ATTRIBUTE15 in VARCHAR2,
49 X_GLOBAL_ATTRIBUTE16 in VARCHAR2,
50 X_GLOBAL_ATTRIBUTE17 in VARCHAR2,
51 X_GLOBAL_ATTRIBUTE18 in VARCHAR2,
52 X_GLOBAL_ATTRIBUTE19 in VARCHAR2,
53 X_GLOBAL_ATTRIBUTE20 in VARCHAR2,
54 X_NAME in VARCHAR2,
55 X_DESCRIPTION in VARCHAR2,
56 X_CREATION_DATE in DATE,
57 X_CREATED_BY in NUMBER,
58 X_LAST_UPDATE_DATE in DATE,
59 X_LAST_UPDATED_BY in NUMBER,
60 X_LAST_UPDATE_LOGIN in NUMBER,
61 X_TAX_PRODUCT_CATEGORY in VARCHAR2
62 ) is
63 -- SSA chnages anukumar X_ORG_ID NUMBER;
64 cursor C is select ROWID from AR_MEMO_LINES_ALL_B
65 where MEMO_LINE_ID = X_MEMO_LINE_ID
66 ;
67 begin
68
69 /*
70 bug 1722260 : do not nvl(org_id) to -99, rather simply return to_number(null)
71 Why do we need the decode for client_info = ' ' ?
72 Apparently there are situations wherein client_info returns a space rather then null
73 and the decode is necessary to avoid the bug logged in 1328940.
74 */
75
76 /* SSA chnages anukumar select TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),
77 ' ', NULL,
78 SUBSTRB(USERENV('CLIENT_INFO'),1,10)))
79 into X_ORG_ID
80 from dual;
81 */
82
83 insert into AR_MEMO_LINES_ALL_B (
84 ORG_ID,
85 MEMO_LINE_ID,
86 SET_OF_BOOKS_ID,
87 LINE_TYPE,
88 START_DATE,
89 GL_ID_REV,
90 TAX_CODE,
91 UOM_CODE,
92 UNIT_STD_PRICE,
93 INVOICING_RULE_ID,
94 ACCOUNTING_RULE_ID,
95 END_DATE,
96 ATTRIBUTE_CATEGORY,
97 ATTRIBUTE1,
98 ATTRIBUTE2,
99 ATTRIBUTE3,
100 ATTRIBUTE4,
101 ATTRIBUTE5,
102 ATTRIBUTE6,
103 ATTRIBUTE7,
104 ATTRIBUTE8,
105 ATTRIBUTE9,
106 ATTRIBUTE10,
107 ATTRIBUTE11,
108 ATTRIBUTE12,
109 ATTRIBUTE13,
110 ATTRIBUTE14,
111 ATTRIBUTE15,
112 GLOBAL_ATTRIBUTE_CATEGORY,
113 GLOBAL_ATTRIBUTE1,
114 GLOBAL_ATTRIBUTE2,
115 GLOBAL_ATTRIBUTE3,
116 GLOBAL_ATTRIBUTE4,
117 GLOBAL_ATTRIBUTE5,
118 GLOBAL_ATTRIBUTE6,
119 GLOBAL_ATTRIBUTE7,
120 GLOBAL_ATTRIBUTE8,
121 GLOBAL_ATTRIBUTE9,
122 GLOBAL_ATTRIBUTE10,
123 GLOBAL_ATTRIBUTE11,
124 GLOBAL_ATTRIBUTE12,
125 GLOBAL_ATTRIBUTE13,
126 GLOBAL_ATTRIBUTE14,
127 GLOBAL_ATTRIBUTE15,
128 GLOBAL_ATTRIBUTE16,
129 GLOBAL_ATTRIBUTE17,
130 GLOBAL_ATTRIBUTE18,
131 GLOBAL_ATTRIBUTE19,
132 GLOBAL_ATTRIBUTE20,
133 CREATION_DATE,
134 CREATED_BY,
135 LAST_UPDATE_DATE,
136 LAST_UPDATED_BY,
137 LAST_UPDATE_LOGIN,
138 TAX_PRODUCT_CATEGORY
139 ) values (
140 X_ORG_ID,
141 X_MEMO_LINE_ID,
142 X_SET_OF_BOOKS_ID,
143 X_LINE_TYPE,
144 X_START_DATE,
145 X_GL_ID_REV,
146 X_TAX_CODE,
147 X_UOM_CODE,
148 X_UNIT_STD_PRICE,
149 X_INVOICING_RULE_ID,
150 X_ACCOUNTING_RULE_ID,
151 X_END_DATE,
152 X_ATTRIBUTE_CATEGORY,
153 X_ATTRIBUTE1,
154 X_ATTRIBUTE2,
155 X_ATTRIBUTE3,
156 X_ATTRIBUTE4,
157 X_ATTRIBUTE5,
158 X_ATTRIBUTE6,
159 X_ATTRIBUTE7,
160 X_ATTRIBUTE8,
161 X_ATTRIBUTE9,
162 X_ATTRIBUTE10,
163 X_ATTRIBUTE11,
164 X_ATTRIBUTE12,
165 X_ATTRIBUTE13,
166 X_ATTRIBUTE14,
167 X_ATTRIBUTE15,
168 X_GLOBAL_ATTRIBUTE_CATEGORY,
169 X_GLOBAL_ATTRIBUTE1,
170 X_GLOBAL_ATTRIBUTE2,
171 X_GLOBAL_ATTRIBUTE3,
172 X_GLOBAL_ATTRIBUTE4,
173 X_GLOBAL_ATTRIBUTE5,
174 X_GLOBAL_ATTRIBUTE6,
175 X_GLOBAL_ATTRIBUTE7,
176 X_GLOBAL_ATTRIBUTE8,
177 X_GLOBAL_ATTRIBUTE9,
178 X_GLOBAL_ATTRIBUTE10,
179 X_GLOBAL_ATTRIBUTE11,
180 X_GLOBAL_ATTRIBUTE12,
181 X_GLOBAL_ATTRIBUTE13,
182 X_GLOBAL_ATTRIBUTE14,
183 X_GLOBAL_ATTRIBUTE15,
184 X_GLOBAL_ATTRIBUTE16,
185 X_GLOBAL_ATTRIBUTE17,
186 X_GLOBAL_ATTRIBUTE18,
187 X_GLOBAL_ATTRIBUTE19,
188 X_GLOBAL_ATTRIBUTE20,
189 X_CREATION_DATE,
190 X_CREATED_BY,
191 X_LAST_UPDATE_DATE,
192 X_LAST_UPDATED_BY,
193 X_LAST_UPDATE_LOGIN,
194 X_TAX_PRODUCT_CATEGORY
195 );
196
197 insert into AR_MEMO_LINES_ALL_TL (
198 ORG_ID,
199 MEMO_LINE_ID,
200 NAME,
201 DESCRIPTION,
202 LAST_UPDATE_DATE,
203 CREATION_DATE,
204 CREATED_BY,
205 LAST_UPDATED_BY,
206 LAST_UPDATE_LOGIN,
207 LANGUAGE,
208 SOURCE_LANG
209 ) select
210 X_ORG_ID,
211 X_MEMO_LINE_ID,
212 X_NAME,
213 X_DESCRIPTION,
214 X_LAST_UPDATE_DATE,
215 X_CREATION_DATE,
216 X_CREATED_BY,
217 X_LAST_UPDATED_BY,
218 X_LAST_UPDATE_LOGIN,
219 L.LANGUAGE_CODE,
220 userenv('LANG')
221 from FND_LANGUAGES L
222 where L.INSTALLED_FLAG in ('I', 'B')
223 and not exists
224 (select NULL
225 from AR_MEMO_LINES_ALL_TL T
226 where T.MEMO_LINE_ID = X_MEMO_LINE_ID
227 and T.LANGUAGE = L.LANGUAGE_CODE
228 /* SSA changes anukumar
229 and NVL(T.ORG_ID, NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),
230 ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
231 NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),
232 ' ', NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99) );
233 */
234 and NVL(T.ORG_ID,-99) = NVL(X_ORG_ID,-99) ); --SSA changes anukumar
235
236
237 open c;
238 fetch c into X_ROWID;
239 if (c%notfound) then
240 close c;
241 raise no_data_found;
242 end if;
243 close c;
244
245 end INSERT_ROW;
246
247 procedure LOCK_ROW (
248 X_org_id in number default null, --SSA changes anukumar
249 X_MEMO_LINE_ID in NUMBER,
250 X_SET_OF_BOOKS_ID in NUMBER,
251 X_LINE_TYPE in VARCHAR2,
252 X_START_DATE in DATE,
253 X_GL_ID_REV in NUMBER,
254 X_TAX_CODE in VARCHAR2,
255 X_UOM_CODE in VARCHAR2,
256 X_UNIT_STD_PRICE in NUMBER,
257 X_INVOICING_RULE_ID in NUMBER,
258 X_ACCOUNTING_RULE_ID in NUMBER,
259 X_END_DATE in DATE,
260 X_ATTRIBUTE_CATEGORY in VARCHAR2,
261 X_ATTRIBUTE1 in VARCHAR2,
262 X_ATTRIBUTE2 in VARCHAR2,
263 X_ATTRIBUTE3 in VARCHAR2,
264 X_ATTRIBUTE4 in VARCHAR2,
265 X_ATTRIBUTE5 in VARCHAR2,
266 X_ATTRIBUTE6 in VARCHAR2,
267 X_ATTRIBUTE7 in VARCHAR2,
268 X_ATTRIBUTE8 in VARCHAR2,
269 X_ATTRIBUTE9 in VARCHAR2,
270 X_ATTRIBUTE10 in VARCHAR2,
271 X_ATTRIBUTE11 in VARCHAR2,
272 X_ATTRIBUTE12 in VARCHAR2,
273 X_ATTRIBUTE13 in VARCHAR2,
274 X_ATTRIBUTE14 in VARCHAR2,
275 X_ATTRIBUTE15 in VARCHAR2,
276 X_GLOBAL_ATTRIBUTE_CATEGORY in VARCHAR2,
277 X_GLOBAL_ATTRIBUTE1 in VARCHAR2,
278 X_GLOBAL_ATTRIBUTE2 in VARCHAR2,
279 X_GLOBAL_ATTRIBUTE3 in VARCHAR2,
280 X_GLOBAL_ATTRIBUTE4 in VARCHAR2,
281 X_GLOBAL_ATTRIBUTE5 in VARCHAR2,
282 X_GLOBAL_ATTRIBUTE6 in VARCHAR2,
283 X_GLOBAL_ATTRIBUTE7 in VARCHAR2,
284 X_GLOBAL_ATTRIBUTE8 in VARCHAR2,
285 X_GLOBAL_ATTRIBUTE9 in VARCHAR2,
286 X_GLOBAL_ATTRIBUTE10 in VARCHAR2,
287 X_GLOBAL_ATTRIBUTE11 in VARCHAR2,
288 X_GLOBAL_ATTRIBUTE12 in VARCHAR2,
289 X_GLOBAL_ATTRIBUTE13 in VARCHAR2,
290 X_GLOBAL_ATTRIBUTE14 in VARCHAR2,
291 X_GLOBAL_ATTRIBUTE15 in VARCHAR2,
292 X_GLOBAL_ATTRIBUTE16 in VARCHAR2,
293 X_GLOBAL_ATTRIBUTE17 in VARCHAR2,
294 X_GLOBAL_ATTRIBUTE18 in VARCHAR2,
295 X_GLOBAL_ATTRIBUTE19 in VARCHAR2,
296 X_GLOBAL_ATTRIBUTE20 in VARCHAR2,
297 X_NAME in VARCHAR2,
298 X_DESCRIPTION in VARCHAR2,
299 X_TAX_PRODUCT_CATEGORY in VARCHAR2
300 ) is
301 cursor c is select
302 SET_OF_BOOKS_ID,
303 LINE_TYPE,
304 START_DATE,
305 GL_ID_REV,
306 TAX_CODE,
307 UOM_CODE,
308 UNIT_STD_PRICE,
309 INVOICING_RULE_ID,
310 ACCOUNTING_RULE_ID,
311 END_DATE,
312 ATTRIBUTE_CATEGORY,
313 ATTRIBUTE1,
314 ATTRIBUTE2,
315 ATTRIBUTE3,
316 ATTRIBUTE4,
317 ATTRIBUTE5,
318 ATTRIBUTE6,
319 ATTRIBUTE7,
320 ATTRIBUTE8,
321 ATTRIBUTE9,
322 ATTRIBUTE10,
323 ATTRIBUTE11,
324 ATTRIBUTE12,
325 ATTRIBUTE13,
326 ATTRIBUTE14,
327 ATTRIBUTE15,
328 GLOBAL_ATTRIBUTE_CATEGORY,
329 GLOBAL_ATTRIBUTE1,
330 GLOBAL_ATTRIBUTE2,
331 GLOBAL_ATTRIBUTE3,
332 GLOBAL_ATTRIBUTE4,
333 GLOBAL_ATTRIBUTE5,
334 GLOBAL_ATTRIBUTE6,
335 GLOBAL_ATTRIBUTE7,
336 GLOBAL_ATTRIBUTE8,
337 GLOBAL_ATTRIBUTE9,
338 GLOBAL_ATTRIBUTE10,
339 GLOBAL_ATTRIBUTE11,
340 GLOBAL_ATTRIBUTE12,
341 GLOBAL_ATTRIBUTE13,
342 GLOBAL_ATTRIBUTE14,
343 GLOBAL_ATTRIBUTE15,
344 GLOBAL_ATTRIBUTE16,
345 GLOBAL_ATTRIBUTE17,
346 GLOBAL_ATTRIBUTE18,
347 GLOBAL_ATTRIBUTE19,
348 GLOBAL_ATTRIBUTE20,
349 TAX_PRODUCT_CATEGORY /* ETAX */
350 from AR_MEMO_LINES_ALL_B
351 where MEMO_LINE_ID = X_MEMO_LINE_ID
352 /* SSA chnages anukumer
353 and NVL(ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
354 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
355 NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
356 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)
357 */
358 and NVL(ORG_ID,-99) = NVL(X_ORG_ID,-99) --SSA changes anukumar
359 for update of MEMO_LINE_ID nowait;
360 recinfo c%rowtype;
361
362 cursor c1 is select
363 NAME,
364 DESCRIPTION,
365 decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
366 from AR_MEMO_LINES_ALL_TL
367 where MEMO_LINE_ID = X_MEMO_LINE_ID
368 and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
369 and NVL(ORG_ID,-99) = NVL(X_ORG_ID,-99) --SSA changes anukumar
370 /* SSA chnages anukumer
371 and NVL(ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
372 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
373 NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
374 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)
375 */
376 for update of MEMO_LINE_ID nowait;
377 begin
378 open c;
379 fetch c into recinfo;
380 if (c%notfound) then
381 close c;
382 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
383 app_exception.raise_exception;
384 end if;
385 close c;
386 if ( (recinfo.SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID)
387 AND (recinfo.LINE_TYPE = X_LINE_TYPE)
388 AND (recinfo.START_DATE = X_START_DATE)
389 AND ((recinfo.GL_ID_REV = X_GL_ID_REV)
390 OR ((recinfo.GL_ID_REV is null) AND (X_GL_ID_REV is null)))
391 AND ((recinfo.TAX_CODE = X_TAX_CODE)
392 OR ((recinfo.TAX_CODE is null) AND (X_TAX_CODE is null)))
393 AND ((recinfo.UOM_CODE = X_UOM_CODE)
394 OR ((recinfo.UOM_CODE is null) AND (X_UOM_CODE is null)))
395 AND ((recinfo.UNIT_STD_PRICE = X_UNIT_STD_PRICE)
396 OR ((recinfo.UNIT_STD_PRICE is null) AND (X_UNIT_STD_PRICE is null)))
397 AND ((recinfo.INVOICING_RULE_ID = X_INVOICING_RULE_ID)
398 OR ((recinfo.INVOICING_RULE_ID is null) AND (X_INVOICING_RULE_ID is null)))
399 AND ((recinfo.ACCOUNTING_RULE_ID = X_ACCOUNTING_RULE_ID)
400 OR ((recinfo.ACCOUNTING_RULE_ID is null) AND (X_ACCOUNTING_RULE_ID is null)))
401 AND ((recinfo.END_DATE = X_END_DATE)
402 OR ((recinfo.END_DATE is null) AND (X_END_DATE is null)))
403 AND ((recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
404 OR ((recinfo.ATTRIBUTE_CATEGORY is null) AND (X_ATTRIBUTE_CATEGORY is null)))
405 AND ((recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
406 OR ((recinfo.ATTRIBUTE1 is null) AND (X_ATTRIBUTE1 is null)))
407 AND ((recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
408 OR ((recinfo.ATTRIBUTE2 is null) AND (X_ATTRIBUTE2 is null)))
409 AND ((recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
410 OR ((recinfo.ATTRIBUTE3 is null) AND (X_ATTRIBUTE3 is null)))
411 AND ((recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
412 OR ((recinfo.ATTRIBUTE4 is null) AND (X_ATTRIBUTE4 is null)))
413 AND ((recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
414 OR ((recinfo.ATTRIBUTE5 is null) AND (X_ATTRIBUTE5 is null)))
415 AND ((recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
416 OR ((recinfo.ATTRIBUTE6 is null) AND (X_ATTRIBUTE6 is null)))
417 AND ((recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
418 OR ((recinfo.ATTRIBUTE7 is null) AND (X_ATTRIBUTE7 is null)))
419 AND ((recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
420 OR ((recinfo.ATTRIBUTE8 is null) AND (X_ATTRIBUTE8 is null)))
421 AND ((recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
422 OR ((recinfo.ATTRIBUTE9 is null) AND (X_ATTRIBUTE9 is null)))
423 AND ((recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
424 OR ((recinfo.ATTRIBUTE10 is null) AND (X_ATTRIBUTE10 is null)))
425 AND ((recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
426 OR ((recinfo.ATTRIBUTE11 is null) AND (X_ATTRIBUTE11 is null)))
427 AND ((recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
428 OR ((recinfo.ATTRIBUTE12 is null) AND (X_ATTRIBUTE12 is null)))
429 AND ((recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
430 OR ((recinfo.ATTRIBUTE13 is null) AND (X_ATTRIBUTE13 is null)))
431 AND ((recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
432 OR ((recinfo.ATTRIBUTE14 is null) AND (X_ATTRIBUTE14 is null)))
433 AND ((recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
434 OR ((recinfo.ATTRIBUTE15 is null) AND (X_ATTRIBUTE15 is null)))
435 AND ((recinfo.GLOBAL_ATTRIBUTE_CATEGORY = X_GLOBAL_ATTRIBUTE_CATEGORY)
436 OR ((recinfo.GLOBAL_ATTRIBUTE_CATEGORY is null) AND (X_GLOBAL_ATTRIBUTE_CATEGORY is null)))
437 AND ((recinfo.GLOBAL_ATTRIBUTE1 = X_GLOBAL_ATTRIBUTE1)
438 OR ((recinfo.GLOBAL_ATTRIBUTE1 is null) AND (X_GLOBAL_ATTRIBUTE1 is null)))
439 AND ((recinfo.GLOBAL_ATTRIBUTE2 = X_GLOBAL_ATTRIBUTE2)
440 OR ((recinfo.GLOBAL_ATTRIBUTE2 is null) AND (X_GLOBAL_ATTRIBUTE2 is null)))
441 AND ((recinfo.GLOBAL_ATTRIBUTE3 = X_GLOBAL_ATTRIBUTE3)
442 OR ((recinfo.GLOBAL_ATTRIBUTE3 is null) AND (X_GLOBAL_ATTRIBUTE3 is null)))
443 AND ((recinfo.GLOBAL_ATTRIBUTE4 = X_GLOBAL_ATTRIBUTE4)
447 AND ((recinfo.GLOBAL_ATTRIBUTE6 = X_GLOBAL_ATTRIBUTE6)
444 OR ((recinfo.GLOBAL_ATTRIBUTE4 is null) AND (X_GLOBAL_ATTRIBUTE4 is null)))
445 AND ((recinfo.GLOBAL_ATTRIBUTE5 = X_GLOBAL_ATTRIBUTE5)
446 OR ((recinfo.GLOBAL_ATTRIBUTE5 is null) AND (X_GLOBAL_ATTRIBUTE5 is null)))
448 OR ((recinfo.GLOBAL_ATTRIBUTE6 is null) AND (X_GLOBAL_ATTRIBUTE6 is null)))
449 AND ((recinfo.GLOBAL_ATTRIBUTE7 = X_GLOBAL_ATTRIBUTE7)
450 OR ((recinfo.GLOBAL_ATTRIBUTE7 is null) AND (X_GLOBAL_ATTRIBUTE7 is null)))
451 AND ((recinfo.GLOBAL_ATTRIBUTE8 = X_GLOBAL_ATTRIBUTE8)
452 OR ((recinfo.GLOBAL_ATTRIBUTE8 is null) AND (X_GLOBAL_ATTRIBUTE8 is null)))
453 AND ((recinfo.GLOBAL_ATTRIBUTE9 = X_GLOBAL_ATTRIBUTE9)
454 OR ((recinfo.GLOBAL_ATTRIBUTE9 is null) AND (X_GLOBAL_ATTRIBUTE9 is null)))
455 AND ((recinfo.GLOBAL_ATTRIBUTE10 = X_GLOBAL_ATTRIBUTE10)
456 OR ((recinfo.GLOBAL_ATTRIBUTE10 is null) AND (X_GLOBAL_ATTRIBUTE10 is null)))
457 AND ((recinfo.GLOBAL_ATTRIBUTE11 = X_GLOBAL_ATTRIBUTE11)
458 OR ((recinfo.GLOBAL_ATTRIBUTE11 is null) AND (X_GLOBAL_ATTRIBUTE11 is null)))
459 AND ((recinfo.GLOBAL_ATTRIBUTE12 = X_GLOBAL_ATTRIBUTE12)
460 OR ((recinfo.GLOBAL_ATTRIBUTE12 is null) AND (X_GLOBAL_ATTRIBUTE12 is null)))
461 AND ((recinfo.GLOBAL_ATTRIBUTE13 = X_GLOBAL_ATTRIBUTE13)
462 OR ((recinfo.GLOBAL_ATTRIBUTE13 is null) AND (X_GLOBAL_ATTRIBUTE13 is null)))
463 AND ((recinfo.GLOBAL_ATTRIBUTE14 = X_GLOBAL_ATTRIBUTE14)
464 OR ((recinfo.GLOBAL_ATTRIBUTE14 is null) AND (X_GLOBAL_ATTRIBUTE14 is null)))
465 AND ((recinfo.GLOBAL_ATTRIBUTE15 = X_GLOBAL_ATTRIBUTE15)
466 OR ((recinfo.GLOBAL_ATTRIBUTE15 is null) AND (X_GLOBAL_ATTRIBUTE15 is null)))
467 AND ((recinfo.GLOBAL_ATTRIBUTE16 = X_GLOBAL_ATTRIBUTE16)
468 OR ((recinfo.GLOBAL_ATTRIBUTE16 is null) AND (X_GLOBAL_ATTRIBUTE16 is null)))
469 AND ((recinfo.GLOBAL_ATTRIBUTE17 = X_GLOBAL_ATTRIBUTE17)
470 OR ((recinfo.GLOBAL_ATTRIBUTE17 is null) AND (X_GLOBAL_ATTRIBUTE17 is null)))
471 AND ((recinfo.GLOBAL_ATTRIBUTE18 = X_GLOBAL_ATTRIBUTE18)
472 OR ((recinfo.GLOBAL_ATTRIBUTE18 is null) AND (X_GLOBAL_ATTRIBUTE18 is null)))
473 AND ((recinfo.GLOBAL_ATTRIBUTE19 = X_GLOBAL_ATTRIBUTE19)
474 OR ((recinfo.GLOBAL_ATTRIBUTE19 is null) AND (X_GLOBAL_ATTRIBUTE19 is null)))
475 AND ((recinfo.GLOBAL_ATTRIBUTE20 = X_GLOBAL_ATTRIBUTE20)
476 OR ((recinfo.GLOBAL_ATTRIBUTE20 is null) AND (X_GLOBAL_ATTRIBUTE20 is null)))
477 AND ((recinfo.TAX_PRODUCT_CATEGORY = X_TAX_PRODUCT_CATEGORY)
478 OR ((recinfo.TAX_PRODUCT_CATEGORY is null) AND (X_TAX_PRODUCT_CATEGORY is null)))
479 ) then
480 null;
481 else
482 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
483 app_exception.raise_exception;
484 end if;
485
486 for tlinfo in c1 loop
487 if (tlinfo.BASELANG = 'Y') then
488 if ( ((tlinfo.NAME = X_NAME)
489 OR ((tlinfo.NAME is null) AND (X_NAME is null)))
490 AND ((tlinfo.DESCRIPTION = X_DESCRIPTION)
491 OR ((tlinfo.DESCRIPTION is null) AND (X_DESCRIPTION is null)))
492 ) then
493 null;
494 else
495 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
496 app_exception.raise_exception;
497 end if;
498 end if;
499 end loop;
500 return;
501 end LOCK_ROW;
502
503 procedure UPDATE_ROW (
504 X_org_id in number default null, --SSA changes anukumar
505 X_MEMO_LINE_ID in NUMBER,
506 X_SET_OF_BOOKS_ID in NUMBER,
507 X_LINE_TYPE in VARCHAR2,
508 X_START_DATE in DATE,
509 X_GL_ID_REV in NUMBER,
510 X_TAX_CODE in VARCHAR2,
511 X_UOM_CODE in VARCHAR2,
512 X_UNIT_STD_PRICE in NUMBER,
513 X_INVOICING_RULE_ID in NUMBER,
514 X_ACCOUNTING_RULE_ID in NUMBER,
515 X_END_DATE in DATE,
516 X_ATTRIBUTE_CATEGORY in VARCHAR2,
517 X_ATTRIBUTE1 in VARCHAR2,
518 X_ATTRIBUTE2 in VARCHAR2,
519 X_ATTRIBUTE3 in VARCHAR2,
520 X_ATTRIBUTE4 in VARCHAR2,
521 X_ATTRIBUTE5 in VARCHAR2,
522 X_ATTRIBUTE6 in VARCHAR2,
523 X_ATTRIBUTE7 in VARCHAR2,
524 X_ATTRIBUTE8 in VARCHAR2,
525 X_ATTRIBUTE9 in VARCHAR2,
526 X_ATTRIBUTE10 in VARCHAR2,
527 X_ATTRIBUTE11 in VARCHAR2,
528 X_ATTRIBUTE12 in VARCHAR2,
529 X_ATTRIBUTE13 in VARCHAR2,
530 X_ATTRIBUTE14 in VARCHAR2,
531 X_ATTRIBUTE15 in VARCHAR2,
532 X_GLOBAL_ATTRIBUTE_CATEGORY in VARCHAR2,
533 X_GLOBAL_ATTRIBUTE1 in VARCHAR2,
534 X_GLOBAL_ATTRIBUTE2 in VARCHAR2,
535 X_GLOBAL_ATTRIBUTE3 in VARCHAR2,
536 X_GLOBAL_ATTRIBUTE4 in VARCHAR2,
537 X_GLOBAL_ATTRIBUTE5 in VARCHAR2,
538 X_GLOBAL_ATTRIBUTE6 in VARCHAR2,
539 X_GLOBAL_ATTRIBUTE7 in VARCHAR2,
540 X_GLOBAL_ATTRIBUTE8 in VARCHAR2,
541 X_GLOBAL_ATTRIBUTE9 in VARCHAR2,
542 X_GLOBAL_ATTRIBUTE10 in VARCHAR2,
543 X_GLOBAL_ATTRIBUTE11 in VARCHAR2,
544 X_GLOBAL_ATTRIBUTE12 in VARCHAR2,
545 X_GLOBAL_ATTRIBUTE13 in VARCHAR2,
546 X_GLOBAL_ATTRIBUTE14 in VARCHAR2,
547 X_GLOBAL_ATTRIBUTE15 in VARCHAR2,
548 X_GLOBAL_ATTRIBUTE16 in VARCHAR2,
549 X_GLOBAL_ATTRIBUTE17 in VARCHAR2,
550 X_GLOBAL_ATTRIBUTE18 in VARCHAR2,
551 X_GLOBAL_ATTRIBUTE19 in VARCHAR2,
552 X_GLOBAL_ATTRIBUTE20 in VARCHAR2,
553 X_NAME in VARCHAR2,
554 X_DESCRIPTION in VARCHAR2,
555 X_LAST_UPDATE_DATE in DATE,
556 X_LAST_UPDATED_BY in NUMBER,
557 X_LAST_UPDATE_LOGIN in NUMBER,
558 X_TAX_PRODUCT_CATEGORY in VARCHAR2
559 ) is
560 begin
561 update AR_MEMO_LINES_ALL_B set
562 SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID,
563 LINE_TYPE = X_LINE_TYPE,
567 UOM_CODE = X_UOM_CODE,
564 START_DATE = X_START_DATE,
565 GL_ID_REV = X_GL_ID_REV,
566 TAX_CODE = X_TAX_CODE,
568 UNIT_STD_PRICE = X_UNIT_STD_PRICE,
569 INVOICING_RULE_ID = X_INVOICING_RULE_ID,
570 ACCOUNTING_RULE_ID = X_ACCOUNTING_RULE_ID,
571 END_DATE = X_END_DATE,
572 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
573 ATTRIBUTE1 = X_ATTRIBUTE1,
574 ATTRIBUTE2 = X_ATTRIBUTE2,
575 ATTRIBUTE3 = X_ATTRIBUTE3,
576 ATTRIBUTE4 = X_ATTRIBUTE4,
577 ATTRIBUTE5 = X_ATTRIBUTE5,
578 ATTRIBUTE6 = X_ATTRIBUTE6,
579 ATTRIBUTE7 = X_ATTRIBUTE7,
580 ATTRIBUTE8 = X_ATTRIBUTE8,
581 ATTRIBUTE9 = X_ATTRIBUTE9,
582 ATTRIBUTE10 = X_ATTRIBUTE10,
583 ATTRIBUTE11 = X_ATTRIBUTE11,
584 ATTRIBUTE12 = X_ATTRIBUTE12,
585 ATTRIBUTE13 = X_ATTRIBUTE13,
586 ATTRIBUTE14 = X_ATTRIBUTE14,
587 ATTRIBUTE15 = X_ATTRIBUTE15,
588 GLOBAL_ATTRIBUTE_CATEGORY = X_GLOBAL_ATTRIBUTE_CATEGORY,
589 GLOBAL_ATTRIBUTE1 = X_GLOBAL_ATTRIBUTE1,
590 GLOBAL_ATTRIBUTE2 = X_GLOBAL_ATTRIBUTE2,
591 GLOBAL_ATTRIBUTE3 = X_GLOBAL_ATTRIBUTE3,
592 GLOBAL_ATTRIBUTE4 = X_GLOBAL_ATTRIBUTE4,
593 GLOBAL_ATTRIBUTE5 = X_GLOBAL_ATTRIBUTE5,
594 GLOBAL_ATTRIBUTE6 = X_GLOBAL_ATTRIBUTE6,
595 GLOBAL_ATTRIBUTE7 = X_GLOBAL_ATTRIBUTE7,
596 GLOBAL_ATTRIBUTE8 = X_GLOBAL_ATTRIBUTE8,
597 GLOBAL_ATTRIBUTE9 = X_GLOBAL_ATTRIBUTE9,
598 GLOBAL_ATTRIBUTE10 = X_GLOBAL_ATTRIBUTE10,
599 GLOBAL_ATTRIBUTE11 = X_GLOBAL_ATTRIBUTE11,
600 GLOBAL_ATTRIBUTE12 = X_GLOBAL_ATTRIBUTE12,
601 GLOBAL_ATTRIBUTE13 = X_GLOBAL_ATTRIBUTE13,
602 GLOBAL_ATTRIBUTE14 = X_GLOBAL_ATTRIBUTE14,
603 GLOBAL_ATTRIBUTE15 = X_GLOBAL_ATTRIBUTE15,
604 GLOBAL_ATTRIBUTE16 = X_GLOBAL_ATTRIBUTE16,
605 GLOBAL_ATTRIBUTE17 = X_GLOBAL_ATTRIBUTE17,
606 GLOBAL_ATTRIBUTE18 = X_GLOBAL_ATTRIBUTE18,
607 GLOBAL_ATTRIBUTE19 = X_GLOBAL_ATTRIBUTE19,
608 GLOBAL_ATTRIBUTE20 = X_GLOBAL_ATTRIBUTE20,
609 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
610 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
611 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
612 TAX_PRODUCT_CATEGORY = X_TAX_PRODUCT_CATEGORY
613 where MEMO_LINE_ID = X_MEMO_LINE_ID
614 /* SSA chnages anukumer
615 and NVL(ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
616 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
617 NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
618 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99);
619 */
620 and NVL(ORG_ID,-99) = NVL(X_ORG_ID,-99); --SSA chnages anukumar
621
622 if (sql%notfound) then
623 raise no_data_found;
624 end if;
625
626 update AR_MEMO_LINES_ALL_TL set
627 NAME = X_NAME,
628 DESCRIPTION = X_DESCRIPTION,
629 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
630 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
631 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
632 SOURCE_LANG = userenv('LANG')
633 where MEMO_LINE_ID = X_MEMO_LINE_ID
634 and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
635 /* SSA changes anukumer
636 and NVL(ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
637 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
638 NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
639 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99);
640 */
641 and NVL(ORG_ID,-99) = NVL(X_ORG_ID,-99); --SSA chnages anukumar
642
643 if (sql%notfound) then
644 raise no_data_found;
645 end if;
646 end UPDATE_ROW;
647
648 procedure DELETE_ROW (
649 X_org_id in number default null, --SSA changes anukumar
650 X_MEMO_LINE_ID in NUMBER
651 ) is
652 begin
653 delete from AR_MEMO_LINES_ALL_TL
654 where MEMO_LINE_ID = X_MEMO_LINE_ID
655 /* SSA chnages anukumer
656 and NVL(ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
657 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
658 NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
659 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99);
660 */
661 and NVL(ORG_ID,-99) = NVL(X_ORG_ID,-99); --SSA chnages anukumar
662
663 if (sql%notfound) then
664 raise no_data_found;
665 end if;
666
667 delete from AR_MEMO_LINES_ALL_B
668 where MEMO_LINE_ID = X_MEMO_LINE_ID
669 /* SSA chnages anukumar
670 and NVL(ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
671 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
672 NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
673 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99);
674 */
675 and NVL(ORG_ID,-99) = NVL(X_ORG_ID,-99); --SSA chnages anukumar
676
677
678 if (sql%notfound) then
679 raise no_data_found;
680 end if;
681 end DELETE_ROW;
682
683 procedure ADD_LANGUAGE
684 is
685 begin
686
687 delete from AR_MEMO_LINES_ALL_TL T
688 where not exists
689 (select NULL
690 from AR_MEMO_LINES_ALL_B B
691 where B.MEMO_LINE_ID = T.MEMO_LINE_ID
692 and NVL(B.ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
693 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
694 NVL(T.ORG_ID, NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
695 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99))
696 );
697
701 ) = (select
698 update AR_MEMO_LINES_ALL_TL T set (
699 NAME,
700 DESCRIPTION
702 B.NAME,
703 B.DESCRIPTION
704 from AR_MEMO_LINES_ALL_TL B
705 where B.MEMO_LINE_ID = T.MEMO_LINE_ID
706 and B.LANGUAGE = T.SOURCE_LANG
707 and NVL(B.ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
708 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
709 NVL(T.ORG_ID, NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
710 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) )
711 where (
712 T.MEMO_LINE_ID,
713 T.LANGUAGE
714 ) in (select
715 SUBT.MEMO_LINE_ID,
716 SUBT.LANGUAGE
717 from AR_MEMO_LINES_ALL_TL SUBB, AR_MEMO_LINES_ALL_TL SUBT
718 where SUBB.MEMO_LINE_ID = SUBT.MEMO_LINE_ID
719 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
720 and NVL(SUBB.ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
721 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
722 NVL(SUBT.ORG_ID, NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
723 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99))
724 and (SUBB.NAME <> SUBT.NAME
725 or (SUBB.NAME is null and SUBT.NAME is not null)
726 or (SUBB.NAME is not null and SUBT.NAME is null)
727 or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
728 or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
729 or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
730 ));
731
732 insert into AR_MEMO_LINES_ALL_TL (
733 ORG_ID,
734 MEMO_LINE_ID,
735 NAME,
736 DESCRIPTION,
737 LAST_UPDATE_DATE,
738 CREATION_DATE,
739 CREATED_BY,
740 LAST_UPDATED_BY,
741 LAST_UPDATE_LOGIN,
742 LANGUAGE,
743 SOURCE_LANG
744 ) select
745 B.ORG_ID,
746 B.MEMO_LINE_ID,
747 B.NAME,
748 B.DESCRIPTION,
749 B.LAST_UPDATE_DATE,
750 B.CREATION_DATE,
751 B.CREATED_BY,
752 B.LAST_UPDATED_BY,
753 B.LAST_UPDATE_LOGIN,
754 L.LANGUAGE_CODE,
755 B.SOURCE_LANG
756 from AR_MEMO_LINES_ALL_TL B, FND_LANGUAGES L
757 where L.INSTALLED_FLAG in ('I', 'B')
758 and B.LANGUAGE = userenv('LANG')
759 and not exists
760 (select NULL
761 from AR_MEMO_LINES_ALL_TL T
762 where T.MEMO_LINE_ID = B.MEMO_LINE_ID
763 and T.LANGUAGE = L.LANGUAGE_CODE
764 and NVL(T.ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
765 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
766 NVL(B.ORG_ID, NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
767 NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) );
768 end ADD_LANGUAGE;
769
770 procedure LOAD_ROW (
771 X_org_id in number default null, --SSA changes anukumar
772 X_MEMO_LINE_ID in NUMBER,
773 X_SET_OF_BOOKS_ID in NUMBER,
774 X_LINE_TYPE in VARCHAR2,
775 X_START_DATE in DATE,
776 X_GL_ID_REV in NUMBER,
777 X_TAX_CODE in VARCHAR2,
778 X_UOM_CODE in VARCHAR2,
779 X_UNIT_STD_PRICE in NUMBER,
780 X_INVOICING_RULE_ID in NUMBER,
781 X_ACCOUNTING_RULE_ID in NUMBER,
782 X_END_DATE in DATE,
783 X_ATTRIBUTE_CATEGORY in VARCHAR2,
784 X_ATTRIBUTE1 in VARCHAR2,
785 X_ATTRIBUTE2 in VARCHAR2,
786 X_ATTRIBUTE3 in VARCHAR2,
787 X_ATTRIBUTE4 in VARCHAR2,
788 X_ATTRIBUTE5 in VARCHAR2,
789 X_ATTRIBUTE6 in VARCHAR2,
790 X_ATTRIBUTE7 in VARCHAR2,
791 X_ATTRIBUTE8 in VARCHAR2,
792 X_ATTRIBUTE9 in VARCHAR2,
793 X_ATTRIBUTE10 in VARCHAR2,
794 X_ATTRIBUTE11 in VARCHAR2,
795 X_ATTRIBUTE12 in VARCHAR2,
796 X_ATTRIBUTE13 in VARCHAR2,
797 X_ATTRIBUTE14 in VARCHAR2,
798 X_ATTRIBUTE15 in VARCHAR2,
799 X_GLOBAL_ATTRIBUTE_CATEGORY in VARCHAR2,
800 X_GLOBAL_ATTRIBUTE1 in VARCHAR2,
801 X_GLOBAL_ATTRIBUTE2 in VARCHAR2,
802 X_GLOBAL_ATTRIBUTE3 in VARCHAR2,
803 X_GLOBAL_ATTRIBUTE4 in VARCHAR2,
804 X_GLOBAL_ATTRIBUTE5 in VARCHAR2,
805 X_GLOBAL_ATTRIBUTE6 in VARCHAR2,
806 X_GLOBAL_ATTRIBUTE7 in VARCHAR2,
807 X_GLOBAL_ATTRIBUTE8 in VARCHAR2,
808 X_GLOBAL_ATTRIBUTE9 in VARCHAR2,
809 X_GLOBAL_ATTRIBUTE10 in VARCHAR2,
810 X_GLOBAL_ATTRIBUTE11 in VARCHAR2,
811 X_GLOBAL_ATTRIBUTE12 in VARCHAR2,
812 X_GLOBAL_ATTRIBUTE13 in VARCHAR2,
813 X_GLOBAL_ATTRIBUTE14 in VARCHAR2,
814 X_GLOBAL_ATTRIBUTE15 in VARCHAR2,
815 X_GLOBAL_ATTRIBUTE16 in VARCHAR2,
816 X_GLOBAL_ATTRIBUTE17 in VARCHAR2,
817 X_GLOBAL_ATTRIBUTE18 in VARCHAR2,
818 X_GLOBAL_ATTRIBUTE19 in VARCHAR2,
819 X_GLOBAL_ATTRIBUTE20 in VARCHAR2,
820 X_NAME in VARCHAR2,
821 X_DESCRIPTION in VARCHAR2,
822 X_OWNER in VARCHAR2,
823 X_TAX_PRODUCT_CATEGORY in VARCHAR2
824 ) IS
825 begin
826
827 declare
828 user_id number := 0;
829 row_id varchar2(64);
830
831 begin
832
833 if (X_OWNER = 'SEED') then
834 user_id := -1;
835 end if;
836
837 AR_MEMO_LINES_PKG.UPDATE_ROW (
838 X_ORG_ID => X_ORG_ID, -- SSA changes anukumer
839 X_MEMO_LINE_ID => X_MEMO_LINE_ID,
840 X_SET_OF_BOOKS_ID => X_SET_OF_BOOKS_ID,
841 X_LINE_TYPE => X_LINE_TYPE,
845 X_UOM_CODE => X_UOM_CODE,
842 X_START_DATE => X_START_DATE,
843 X_GL_ID_REV => X_GL_ID_REV,
844 X_TAX_CODE => X_TAX_CODE,
846 X_UNIT_STD_PRICE => X_UNIT_STD_PRICE,
847 X_INVOICING_RULE_ID => X_INVOICING_RULE_ID,
848 X_ACCOUNTING_RULE_ID => X_ACCOUNTING_RULE_ID,
849 X_END_DATE => X_END_DATE,
850 X_ATTRIBUTE_CATEGORY => X_ATTRIBUTE_CATEGORY,
851 X_ATTRIBUTE1 => X_ATTRIBUTE1,
852 X_ATTRIBUTE2 => X_ATTRIBUTE2,
853 X_ATTRIBUTE3 => X_ATTRIBUTE3,
854 X_ATTRIBUTE4 => X_ATTRIBUTE4,
855 X_ATTRIBUTE5 => X_ATTRIBUTE5,
856 X_ATTRIBUTE6 => X_ATTRIBUTE6,
857 X_ATTRIBUTE7 => X_ATTRIBUTE7,
858 X_ATTRIBUTE8 => X_ATTRIBUTE8,
859 X_ATTRIBUTE9 => X_ATTRIBUTE9,
860 X_ATTRIBUTE10 => X_ATTRIBUTE10,
861 X_ATTRIBUTE11 => X_ATTRIBUTE11,
862 X_ATTRIBUTE12 => X_ATTRIBUTE12,
863 X_ATTRIBUTE13 => X_ATTRIBUTE13,
864 X_ATTRIBUTE14 => X_ATTRIBUTE14,
865 X_ATTRIBUTE15 => X_ATTRIBUTE15,
866 X_GLOBAL_ATTRIBUTE_CATEGORY => X_GLOBAL_ATTRIBUTE_CATEGORY,
867 X_GLOBAL_ATTRIBUTE1 => X_GLOBAL_ATTRIBUTE1,
868 X_GLOBAL_ATTRIBUTE2 => X_GLOBAL_ATTRIBUTE2,
869 X_GLOBAL_ATTRIBUTE3 => X_GLOBAL_ATTRIBUTE3,
870 X_GLOBAL_ATTRIBUTE4 => X_GLOBAL_ATTRIBUTE4,
871 X_GLOBAL_ATTRIBUTE5 => X_GLOBAL_ATTRIBUTE5,
872 X_GLOBAL_ATTRIBUTE6 => X_GLOBAL_ATTRIBUTE6,
873 X_GLOBAL_ATTRIBUTE7 => X_GLOBAL_ATTRIBUTE7,
874 X_GLOBAL_ATTRIBUTE8 => X_GLOBAL_ATTRIBUTE8,
875 X_GLOBAL_ATTRIBUTE9 => X_GLOBAL_ATTRIBUTE9,
876 X_GLOBAL_ATTRIBUTE10=> X_GLOBAL_ATTRIBUTE10,
877 X_GLOBAL_ATTRIBUTE11 => X_GLOBAL_ATTRIBUTE11,
878 X_GLOBAL_ATTRIBUTE12 => X_GLOBAL_ATTRIBUTE12,
879 X_GLOBAL_ATTRIBUTE13 => X_GLOBAL_ATTRIBUTE13,
880 X_GLOBAL_ATTRIBUTE14 => X_GLOBAL_ATTRIBUTE14,
881 X_GLOBAL_ATTRIBUTE15 => X_GLOBAL_ATTRIBUTE15,
882 X_GLOBAL_ATTRIBUTE16 => X_GLOBAL_ATTRIBUTE16,
883 X_GLOBAL_ATTRIBUTE17 => X_GLOBAL_ATTRIBUTE17,
884 X_GLOBAL_ATTRIBUTE18 => X_GLOBAL_ATTRIBUTE18,
885 X_GLOBAL_ATTRIBUTE19 => X_GLOBAL_ATTRIBUTE19,
886 X_GLOBAL_ATTRIBUTE20 => X_GLOBAL_ATTRIBUTE20,
887 X_NAME => X_NAME,
888 X_DESCRIPTION => X_DESCRIPTION,
889 X_LAST_UPDATE_DATE => sysdate,
890 X_LAST_UPDATED_BY => user_id,
891 X_LAST_UPDATE_LOGIN => 0,
892 X_TAX_PRODUCT_CATEGORY => X_TAX_PRODUCT_CATEGORY);
893
894 exception
895 when NO_DATA_FOUND then
896
897 AR_MEMO_LINES_PKG.INSERT_ROW (
898 X_ROWID => row_id,
899 X_ORG_ID => X_ORG_ID, --SSA changes anukumer
900 X_MEMO_LINE_ID => X_MEMO_LINE_ID,
901 X_SET_OF_BOOKS_ID => X_SET_OF_BOOKS_ID,
902 X_LINE_TYPE => X_LINE_TYPE,
903 X_START_DATE => X_START_DATE,
904 X_GL_ID_REV => X_GL_ID_REV,
905 X_TAX_CODE => X_TAX_CODE,
906 X_UOM_CODE => X_UOM_CODE,
907 X_UNIT_STD_PRICE => X_UNIT_STD_PRICE,
908 X_INVOICING_RULE_ID => X_INVOICING_RULE_ID,
909 X_ACCOUNTING_RULE_ID => X_ACCOUNTING_RULE_ID,
910 X_END_DATE => X_END_DATE,
911 X_ATTRIBUTE_CATEGORY => X_ATTRIBUTE_CATEGORY,
912 X_ATTRIBUTE1 => X_ATTRIBUTE1,
913 X_ATTRIBUTE2 => X_ATTRIBUTE2,
914 X_ATTRIBUTE3 => X_ATTRIBUTE3,
915 X_ATTRIBUTE4 => X_ATTRIBUTE4,
916 X_ATTRIBUTE5 => X_ATTRIBUTE5,
917 X_ATTRIBUTE6 => X_ATTRIBUTE6,
918 X_ATTRIBUTE7 => X_ATTRIBUTE7,
919 X_ATTRIBUTE8 => X_ATTRIBUTE8,
920 X_ATTRIBUTE9 => X_ATTRIBUTE9,
921 X_ATTRIBUTE10 => X_ATTRIBUTE10,
922 X_ATTRIBUTE11 => X_ATTRIBUTE11,
923 X_ATTRIBUTE12 => X_ATTRIBUTE12,
924 X_ATTRIBUTE13 => X_ATTRIBUTE13,
925 X_ATTRIBUTE14 => X_ATTRIBUTE14,
926 X_ATTRIBUTE15 => X_ATTRIBUTE15,
927 X_GLOBAL_ATTRIBUTE_CATEGORY => X_GLOBAL_ATTRIBUTE_CATEGORY,
928 X_GLOBAL_ATTRIBUTE1 => X_GLOBAL_ATTRIBUTE1,
929 X_GLOBAL_ATTRIBUTE2 => X_GLOBAL_ATTRIBUTE2,
930 X_GLOBAL_ATTRIBUTE3 => X_GLOBAL_ATTRIBUTE3,
931 X_GLOBAL_ATTRIBUTE4 => X_GLOBAL_ATTRIBUTE4,
932 X_GLOBAL_ATTRIBUTE5 => X_GLOBAL_ATTRIBUTE5,
933 X_GLOBAL_ATTRIBUTE6 => X_GLOBAL_ATTRIBUTE6,
934 X_GLOBAL_ATTRIBUTE7 => X_GLOBAL_ATTRIBUTE7,
935 X_GLOBAL_ATTRIBUTE8 => X_GLOBAL_ATTRIBUTE8,
936 X_GLOBAL_ATTRIBUTE9 => X_GLOBAL_ATTRIBUTE9,
937 X_GLOBAL_ATTRIBUTE10 => X_GLOBAL_ATTRIBUTE10,
938 X_GLOBAL_ATTRIBUTE11 => X_GLOBAL_ATTRIBUTE11,
939 X_GLOBAL_ATTRIBUTE12 => X_GLOBAL_ATTRIBUTE12,
940 X_GLOBAL_ATTRIBUTE13 => X_GLOBAL_ATTRIBUTE13,
941 X_GLOBAL_ATTRIBUTE14 => X_GLOBAL_ATTRIBUTE14,
942 X_GLOBAL_ATTRIBUTE15 => X_GLOBAL_ATTRIBUTE15,
943 X_GLOBAL_ATTRIBUTE16 => X_GLOBAL_ATTRIBUTE16,
944 X_GLOBAL_ATTRIBUTE17 => X_GLOBAL_ATTRIBUTE17,
945 X_GLOBAL_ATTRIBUTE18 => X_GLOBAL_ATTRIBUTE18,
946 X_GLOBAL_ATTRIBUTE19 => X_GLOBAL_ATTRIBUTE19,
947 X_GLOBAL_ATTRIBUTE20 => X_GLOBAL_ATTRIBUTE20,
948 X_NAME => X_NAME,
949 X_DESCRIPTION => X_DESCRIPTION,
950 X_CREATION_DATE => sysdate,
951 X_CREATED_BY => user_id,
952 X_LAST_UPDATE_DATE => sysdate,
953 X_LAST_UPDATED_BY => user_id,
954 X_LAST_UPDATE_LOGIN => 0,
955 X_TAX_PRODUCT_CATEGORY => X_TAX_PRODUCT_CATEGORY);
956 end;
957 end LOAD_ROW;
958
959 procedure TRANSLATE_ROW (
960 X_MEMO_LINE_ID in NUMBER,
961 X_NAME in VARCHAR2,
962 X_DESCRIPTION in VARCHAR2,
963 X_OWNER in VARCHAR2) IS
964 begin
965
966 -- note org_id is not used here because in NLS mode it is important
967 -- update a line id across all orgs because data will be translated
968 -- only once for a single org
969
970 update AR_MEMO_LINES_ALL_TL
971 set name = X_NAME,
972 description = X_DESCRIPTION,
973 source_lang = userenv('LANG'),
974 last_update_date = sysdate,
975 last_updated_by = decode(X_OWNER, 'SEED', -1, 0),
976 last_update_login = 0
977 where memo_line_id = X_MEMO_LINE_ID
978 and userenv('LANG') in (language, source_lang);
979
980 end TRANSLATE_ROW;
981
982 end AR_MEMO_LINES_PKG;