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