[Home] [Help]
PACKAGE BODY: APPS.GCS_CURR_TREATMENTS_PKG
Source
1 PACKAGE BODY GCS_CURR_TREATMENTS_PKG AS
2 /* $Header: gcs_curr_trtb.pls 120.1 2005/10/30 05:17:15 appldev noship $ */
3
4
5 PROCEDURE Insert_Row
6 (
7 row_id IN OUT NOCOPY VARCHAR2,
8 CURR_TREATMENT_ID NUMBER,
9 ENDING_RATE_TYPE VARCHAR2,
10 AVERAGE_RATE_TYPE VARCHAR2,
11 EQUITY_MODE_CODE VARCHAR2,
12 INC_STMT_MODE_CODE VARCHAR2,
13 ENABLED_FLAG VARCHAR2,
14 DEFAULT_FLAG VARCHAR2,
15 FINANCIAL_ELEM_ID NUMBER,
16 PRODUCT_ID NUMBER,
17 NATURAL_ACCOUNT_ID NUMBER,
18 CHANNEL_ID NUMBER,
19 LINE_ITEM_ID NUMBER,
20 PROJECT_ID NUMBER,
21 CUSTOMER_ID NUMBER,
22 CTA_USER_DIM1_ID NUMBER,
23 CTA_USER_DIM2_ID NUMBER,
24 CTA_USER_DIM3_ID NUMBER,
25 CTA_USER_DIM4_ID NUMBER,
26 CTA_USER_DIM5_ID NUMBER,
27 CTA_USER_DIM6_ID NUMBER,
28 CTA_USER_DIM7_ID NUMBER,
29 CTA_USER_DIM8_ID NUMBER,
30 CTA_USER_DIM9_ID NUMBER,
31 CTA_USER_DIM10_ID NUMBER,
32 TASK_ID NUMBER,
33 CREATION_DATE DATE,
34 CREATED_BY NUMBER,
35 LAST_UPDATE_DATE DATE,
36 LAST_UPDATED_BY NUMBER,
37 LAST_UPDATE_LOGIN NUMBER,
38 OBJECT_VERSION_NUMBER NUMBER,
39 CURR_TREATMENT_NAME VARCHAR2,
40 DESCRIPTION VARCHAR2
41 ) IS
42
43 CURSOR curtreat_row IS
44 SELECT rowid
45 FROM gcs_curr_treatments_b cb
46 WHERE cb.CURR_TREATMENT_ID= insert_row.CURR_TREATMENT_ID;
47
48 BEGIN
49 IF CURR_TREATMENT_ID IS NULL THEN
50 raise no_data_found;
51 END IF;
52
53 INSERT INTO gcs_curr_treatments_b
54 (
55 CURR_TREATMENT_ID,
56 ENDING_RATE_TYPE,
57 AVERAGE_RATE_TYPE,
58 EQUITY_MODE_CODE,
59 INC_STMT_MODE_CODE,
60 ENABLED_FLAG,
61 DEFAULT_FLAG,
62 FINANCIAL_ELEM_ID,
63 PRODUCT_ID,
64 NATURAL_ACCOUNT_ID,
65 CHANNEL_ID,
66 LINE_ITEM_ID,
67 PROJECT_ID,
68 CUSTOMER_ID,
69 CTA_USER_DIM1_ID,
70 CTA_USER_DIM2_ID,
71 CTA_USER_DIM3_ID,
72 CTA_USER_DIM4_ID,
73 CTA_USER_DIM5_ID,
74 CTA_USER_DIM6_ID,
75 CTA_USER_DIM7_ID,
76 CTA_USER_DIM8_ID,
77 CTA_USER_DIM9_ID,
78 CTA_USER_DIM10_ID,
79 TASK_ID,
80 LAST_UPDATE_DATE,
81 LAST_UPDATED_BY,
82 CREATION_DATE,
83 CREATED_BY,
84 LAST_UPDATE_LOGIN,
85 OBJECT_VERSION_NUMBER
86 )
87 SELECT
88 CURR_TREATMENT_ID,
89 ENDING_RATE_TYPE,
90 AVERAGE_RATE_TYPE,
91 EQUITY_MODE_CODE,
92 INC_STMT_MODE_CODE,
93 ENABLED_FLAG,
94 DEFAULT_FLAG,
95 FINANCIAL_ELEM_ID,
96 PRODUCT_ID,
97 NATURAL_ACCOUNT_ID,
98 CHANNEL_ID,
99 LINE_ITEM_ID,
100 PROJECT_ID,
101 CUSTOMER_ID,
102 CTA_USER_DIM1_ID,
103 CTA_USER_DIM2_ID,
104 CTA_USER_DIM3_ID,
105 CTA_USER_DIM4_ID,
106 CTA_USER_DIM5_ID,
107 CTA_USER_DIM6_ID,
108 CTA_USER_DIM7_ID,
109 CTA_USER_DIM8_ID,
110 CTA_USER_DIM9_ID,
111 CTA_USER_DIM10_ID,
112 TASK_ID,
113 LAST_UPDATE_DATE,
114 LAST_UPDATED_BY,
115 CREATION_DATE,
116 CREATED_BY,
117 LAST_UPDATE_LOGIN,
118 OBJECT_VERSION_NUMBER
119 FROM dual
120 WHERE NOT EXISTS
121 (SELECT 1
122 FROM gcs_curr_treatments_b cb
123 WHERE cb.CURR_TREATMENT_ID= insert_row.CURR_TREATMENT_ID);
124
125 INSERT INTO gcs_curr_treatments_tl
126 (
127 CURR_TREATMENT_ID,
128 LANGUAGE,
129 SOURCE_LANG,
130 CURR_TREATMENT_NAME,
131 CREATION_DATE,
132 CREATED_BY,
133 LAST_UPDATE_DATE,
134 LAST_UPDATED_BY,
135 LAST_UPDATE_LOGIN,
136 DESCRIPTION
137 )
138 SELECT
139 CURR_TREATMENT_ID,
140 userenv('LANG'),
141 userenv('LANG'),
142 CURR_TREATMENT_NAME,
143 CREATION_DATE,
144 CREATED_BY,
145 LAST_UPDATE_DATE,
146 LAST_UPDATED_BY,
147 LAST_UPDATE_LOGIN,
148 DESCRIPTION
149 FROM dual
150 WHERE NOT EXISTS
151 (SELECT 1
152 FROM gcs_curr_treatments_tl ctl
153 WHERE ctl.CURR_TREATMENT_ID = insert_row.CURR_TREATMENT_ID
154 AND ctl.language = userenv('LANG'));
155
156 OPEN curtreat_row;
157
158 FETCH curtreat_row INTO row_id;
159 IF curtreat_row%NOTFOUND THEN
160 CLOSE curtreat_row;
161 raise no_data_found;
162 END IF;
163 CLOSE curtreat_row;
164
165 END Insert_Row;
166
167
168 --****************************************
169
170 PROCEDURE Update_Row
171 (
172 row_id IN OUT NOCOPY VARCHAR2,
173 CURR_TREATMENT_ID NUMBER,
174 ENDING_RATE_TYPE VARCHAR2,
175 AVERAGE_RATE_TYPE VARCHAR2,
176 EQUITY_MODE_CODE VARCHAR2,
177 INC_STMT_MODE_CODE VARCHAR2,
178 ENABLED_FLAG VARCHAR2,
179 DEFAULT_FLAG VARCHAR2,
180 LAST_UPDATE_DATE DATE,
181 LAST_UPDATED_BY NUMBER,
182 CREATION_DATE DATE,
183 CREATED_BY NUMBER,
184 LAST_UPDATE_LOGIN NUMBER,
185 FINANCIAL_ELEM_ID NUMBER,
186 PRODUCT_ID NUMBER,
187 NATURAL_ACCOUNT_ID NUMBER,
188 CHANNEL_ID NUMBER,
189 LINE_ITEM_ID NUMBER,
190 PROJECT_ID NUMBER,
191 CUSTOMER_ID NUMBER,
192 CTA_USER_DIM1_ID NUMBER,
193 CTA_USER_DIM2_ID NUMBER,
194 CTA_USER_DIM3_ID NUMBER,
195 CTA_USER_DIM4_ID NUMBER,
196 CTA_USER_DIM5_ID NUMBER,
197 CTA_USER_DIM6_ID NUMBER,
198 CTA_USER_DIM7_ID NUMBER,
199 CTA_USER_DIM8_ID NUMBER,
200 CTA_USER_DIM9_ID NUMBER,
201 CTA_USER_DIM10_ID NUMBER,
202 TASK_ID NUMBER,
203 OBJECT_VERSION_NUMBER NUMBER,
204 CURR_TREATMENT_NAME VARCHAR2,
205 DESCRIPTION VARCHAR2
206 ) IS
207 BEGIN
208
209 UPDATE gcs_curr_treatments_b cb
210 SET
211 ENDING_RATE_TYPE=update_row.ENDING_RATE_TYPE,
212 AVERAGE_RATE_TYPE=update_row.AVERAGE_RATE_TYPE,
213 EQUITY_MODE_CODE=update_row.EQUITY_MODE_CODE,
214 INC_STMT_MODE_CODE=update_row.INC_STMT_MODE_CODE,
215 ENABLED_FLAG=update_row.ENABLED_FLAG,
216 DEFAULT_FLAG=update_row.DEFAULT_FLAG,
217 LAST_UPDATE_DATE=update_row.LAST_UPDATE_DATE,
218 LAST_UPDATED_BY=update_row.LAST_UPDATED_BY,
219 CREATION_DATE=update_row.CREATION_DATE,
220 CREATED_BY=update_row.CREATED_BY,
221 LAST_UPDATE_LOGIN=update_row.LAST_UPDATE_LOGIN,
222 FINANCIAL_ELEM_ID=update_row.FINANCIAL_ELEM_ID,
223 PRODUCT_ID=update_row.PRODUCT_ID,
224 NATURAL_ACCOUNT_ID=update_row.NATURAL_ACCOUNT_ID,
225 CHANNEL_ID=update_row.CHANNEL_ID,
226 LINE_ITEM_ID=update_row.LINE_ITEM_ID,
227 PROJECT_ID=update_row.PROJECT_ID,
228 CUSTOMER_ID=update_row.CUSTOMER_ID,
229 CTA_USER_DIM1_ID=update_row.CTA_USER_DIM1_ID,
230 CTA_USER_DIM2_ID=update_row.CTA_USER_DIM2_ID,
231 CTA_USER_DIM3_ID=update_row.CTA_USER_DIM3_ID,
232 CTA_USER_DIM4_ID=update_row.CTA_USER_DIM4_ID,
233 CTA_USER_DIM5_ID=update_row.CTA_USER_DIM5_ID,
234 CTA_USER_DIM6_ID=update_row.CTA_USER_DIM6_ID,
235 CTA_USER_DIM7_ID=update_row.CTA_USER_DIM7_ID,
236 CTA_USER_DIM8_ID=update_row.CTA_USER_DIM8_ID,
237 CTA_USER_DIM9_ID=update_row.CTA_USER_DIM9_ID,
238 CTA_USER_DIM10_ID=update_row.CTA_USER_DIM10_ID,
239 TASK_ID=update_row.TASK_ID,
240 OBJECT_VERSION_NUMBER=update_row.OBJECT_VERSION_NUMBER
241
242 WHERE cb.CURR_TREATMENT_ID = update_row.CURR_TREATMENT_ID;
243
244 IF SQL%NOTFOUND THEN
245 raise no_data_found;
246 END IF;
247
248 INSERT INTO
249 GCS_CURR_TREATMENTS_TL
250 (
251 CURR_TREATMENT_ID,
252 LANGUAGE,
253 SOURCE_LANG,
254 CURR_TREATMENT_NAME,
255 LAST_UPDATE_DATE,
256 LAST_UPDATED_BY,
257 CREATION_DATE,
258 CREATED_BY,
259 LAST_UPDATE_LOGIN,
260 DESCRIPTION
261 )
262 SELECT
263 CURR_TREATMENT_ID,
264 userenv('LANG'),
265 userenv('LANG'),
266 CURR_TREATMENT_NAME,
267 LAST_UPDATE_DATE,
268 LAST_UPDATED_BY,
269 CREATION_DATE,
270 CREATED_BY,
271 LAST_UPDATE_LOGIN,
272 DESCRIPTION
273 FROM dual
274 WHERE NOT EXISTS
275 (
276 SELECT 1
277 FROM GCS_CURR_TREATMENTS_TL ctl
278 WHERE ctl.CURR_TREATMENT_ID = update_row.CURR_TREATMENT_ID
279 AND ctl.language = userenv('LANG')
280 );
281
282
283
284 UPDATE GCS_CURR_TREATMENTS_TL ctl
285 SET
286 CURR_TREATMENT_NAME = update_row.CURR_TREATMENT_NAME,
287 LAST_UPDATE_DATE = update_row.LAST_UPDATE_DATE,
288 LAST_UPDATED_BY = update_row.LAST_UPDATED_BY,
289 CREATION_DATE = update_row.CREATION_DATE,
290 CREATED_BY = update_row.CREATED_BY,
291 LAST_UPDATE_LOGIN = update_row.LAST_UPDATE_LOGIN,
292 DESCRIPTION = update_row.DESCRIPTION
293 WHERE ctl.CURR_TREATMENT_ID = update_row.CURR_TREATMENT_ID
294 AND ctl.language = userenv('LANG');
295
296 IF SQL%NOTFOUND THEN
297 raise no_data_found;
298 END IF;
299 END Update_Row;
300
301 --****************************************
302 PROCEDURE Load_Row
303 (
304 row_id IN OUT NOCOPY VARCHAR2,
305 CURR_TREATMENT_ID NUMBER,
306 ENDING_RATE_TYPE VARCHAR2,
307 AVERAGE_RATE_TYPE VARCHAR2,
308 EQUITY_MODE_CODE VARCHAR2,
309 INC_STMT_MODE_CODE VARCHAR2,
310 ENABLED_FLAG VARCHAR2,
311 DEFAULT_FLAG VARCHAR2,
312 LAST_UPDATE_DATE DATE,
313 LAST_UPDATED_BY NUMBER,
314 CREATION_DATE DATE,
315 CREATED_BY NUMBER,
316 LAST_UPDATE_LOGIN NUMBER,
317 FINANCIAL_ELEM_ID NUMBER,
318 PRODUCT_ID NUMBER,
319 NATURAL_ACCOUNT_ID NUMBER,
320 CHANNEL_ID NUMBER,
321 LINE_ITEM_ID NUMBER,
322 PROJECT_ID NUMBER,
323 CUSTOMER_ID NUMBER,
324 CTA_USER_DIM1_ID NUMBER,
325 CTA_USER_DIM2_ID NUMBER,
326 CTA_USER_DIM3_ID NUMBER,
327 CTA_USER_DIM4_ID NUMBER,
328 CTA_USER_DIM5_ID NUMBER,
329 CTA_USER_DIM6_ID NUMBER,
330 CTA_USER_DIM7_ID NUMBER,
331 CTA_USER_DIM8_ID NUMBER,
332 CTA_USER_DIM9_ID NUMBER,
333 CTA_USER_DIM10_ID NUMBER,
334 TASK_ID NUMBER,
335 OBJECT_VERSION_NUMBER NUMBER,
336 CURR_TREATMENT_NAME VARCHAR2,
337 DESCRIPTION VARCHAR2,
338 owner VARCHAR2,
339 custom_mode varchar2
340 ) IS
341
342
343 f_luby NUMBER; -- category owner in file
344 f_ludate DATE; -- category update date in file
345 db_luby NUMBER; -- category owner in db
346 db_ludate DATE; -- category update date in db
347
348 f_start_date DATE; -- start date in file
349 BEGIN
350 -- Get last updated information from the loader data file
351 f_luby := fnd_load_util.owner_id(owner);
352 f_ludate := nvl(to_date(last_update_date, 'YYYY/MM/DD'), sysdate);
353
354 BEGIN
355 SELECT cb.last_updated_by, cb.last_update_date
356 INTO db_luby, db_ludate
357 FROM GCS_CURR_TREATMENTS_B cb
358 WHERE cb.CURR_TREATMENT_ID = load_row.CURR_TREATMENT_ID;
359
360 -- Test for customization information
361 IF fnd_load_util.upload_test(f_luby, f_ludate, db_luby, db_ludate,
362 custom_mode) THEN
363 update_row
364 (
365 row_id=>row_id,
366 CURR_TREATMENT_ID=>CURR_TREATMENT_ID,
367 ENDING_RATE_TYPE=>ENDING_RATE_TYPE,
368 AVERAGE_RATE_TYPE=>AVERAGE_RATE_TYPE,
369 EQUITY_MODE_CODE=>EQUITY_MODE_CODE,
370 INC_STMT_MODE_CODE=>INC_STMT_MODE_CODE,
371 ENABLED_FLAG=>ENABLED_FLAG,
372 DEFAULT_FLAG=>DEFAULT_FLAG,
373 LAST_UPDATE_DATE=>f_ludate,
374 LAST_UPDATED_BY=>f_luby,
375 CREATION_DATE=>f_ludate,
376 CREATED_BY=>f_luby,
377 LAST_UPDATE_LOGIN=>0,
378 FINANCIAL_ELEM_ID=>FINANCIAL_ELEM_ID,
379 PRODUCT_ID=>PRODUCT_ID,
380 NATURAL_ACCOUNT_ID=>NATURAL_ACCOUNT_ID,
381 CHANNEL_ID=>CHANNEL_ID,
382 LINE_ITEM_ID=>LINE_ITEM_ID,
383 PROJECT_ID=>PROJECT_ID,
384 CUSTOMER_ID=>CUSTOMER_ID,
385 CTA_USER_DIM1_ID=>CTA_USER_DIM1_ID,
386 CTA_USER_DIM2_ID=>CTA_USER_DIM2_ID,
387 CTA_USER_DIM3_ID=>CTA_USER_DIM3_ID,
388 CTA_USER_DIM4_ID=>CTA_USER_DIM4_ID,
389 CTA_USER_DIM5_ID=>CTA_USER_DIM5_ID,
390 CTA_USER_DIM6_ID=>CTA_USER_DIM6_ID,
391 CTA_USER_DIM7_ID=>CTA_USER_DIM7_ID,
392 CTA_USER_DIM8_ID=>CTA_USER_DIM8_ID,
393 CTA_USER_DIM9_ID=>CTA_USER_DIM9_ID,
394 CTA_USER_DIM10_ID=>CTA_USER_DIM10_ID,
395 TASK_ID=>TASK_ID,
396 OBJECT_VERSION_NUMBER=>OBJECT_VERSION_NUMBER,
397 CURR_TREATMENT_NAME => CURR_TREATMENT_NAME,
398 DESCRIPTION=>DESCRIPTION
399 );
400 END IF;
401 EXCEPTION
402 WHEN NO_DATA_FOUND THEN
403 insert_row
404 (
405 row_id=>row_id,
406 CURR_TREATMENT_ID=>CURR_TREATMENT_ID,
407 ENDING_RATE_TYPE=>ENDING_RATE_TYPE,
408 AVERAGE_RATE_TYPE=>AVERAGE_RATE_TYPE,
409 EQUITY_MODE_CODE=>EQUITY_MODE_CODE,
410 INC_STMT_MODE_CODE=>INC_STMT_MODE_CODE,
411 ENABLED_FLAG=>ENABLED_FLAG,
412 DEFAULT_FLAG=>DEFAULT_FLAG,
413 LAST_UPDATE_DATE=>f_ludate,
414 LAST_UPDATED_BY=>f_luby,
415 CREATION_DATE=>f_ludate,
416 CREATED_BY=>f_luby,
417 LAST_UPDATE_LOGIN=>0,
418 FINANCIAL_ELEM_ID=>FINANCIAL_ELEM_ID,
419 PRODUCT_ID=>PRODUCT_ID,
420 NATURAL_ACCOUNT_ID=>NATURAL_ACCOUNT_ID,
421 CHANNEL_ID=>CHANNEL_ID,
422 LINE_ITEM_ID=>LINE_ITEM_ID,
426 CTA_USER_DIM2_ID=>CTA_USER_DIM2_ID,
423 PROJECT_ID=>PROJECT_ID,
424 CUSTOMER_ID=>CUSTOMER_ID,
425 CTA_USER_DIM1_ID=>CTA_USER_DIM1_ID,
427 CTA_USER_DIM3_ID=>CTA_USER_DIM3_ID,
428 CTA_USER_DIM4_ID=>CTA_USER_DIM4_ID,
429 CTA_USER_DIM5_ID=>CTA_USER_DIM5_ID,
430 CTA_USER_DIM6_ID=>CTA_USER_DIM6_ID,
431 CTA_USER_DIM7_ID=>CTA_USER_DIM7_ID,
432 CTA_USER_DIM8_ID=>CTA_USER_DIM8_ID,
433 CTA_USER_DIM9_ID=>CTA_USER_DIM9_ID,
434 CTA_USER_DIM10_ID=>CTA_USER_DIM10_ID,
435 TASK_ID=>TASK_ID,
436 OBJECT_VERSION_NUMBER=>OBJECT_VERSION_NUMBER,
437 CURR_TREATMENT_NAME=>CURR_TREATMENT_NAME,
438 DESCRIPTION=>DESCRIPTION
439 );
440
441
442
443
444 END;
445
446 END Load_Row;
447
448
449 --****************************************
450
451 PROCEDURE Translate_Row
452 (
453 CURR_TREATMENT_ID NUMBER,
454 CURR_TREATMENT_NAME VARCHAR2,
455 LAST_UPDATE_DATE DATE,
456 LAST_UPDATED_BY NUMBER,
457 CREATION_DATE DATE,
458 CREATED_BY NUMBER,
459 LAST_UPDATE_LOGIN NUMBER,
460 DESCRIPTION VARCHAR2,
461 owner VARCHAR2,
462 custom_mode varchar2
463 ) IS
464 f_luby NUMBER; -- category owner in file
465 f_ludate DATE; -- category update date in file
466 db_luby NUMBER; -- category owner in db
467 db_ludate DATE; -- category update date in db
468 BEGIN
469 -- Get last updated information from the loader data file
470 f_luby := fnd_load_util.owner_id(owner);
471 f_ludate := nvl(to_date(last_update_date, 'YYYY/MM/DD'), sysdate);
472
473 BEGIN
474 SELECT ctl.last_updated_by, ctl.last_update_date
475 INTO db_luby, db_ludate
476 FROM GCS_CURR_TREATMENTS_TL ctl
477 WHERE ctl.CURR_TREATMENT_ID = translate_row.CURR_TREATMENT_ID
478 AND ctl.language = userenv('LANG');
479
480 -- Test for customization information
481 IF fnd_load_util.upload_test(f_luby, f_ludate, db_luby, db_ludate,
482 custom_mode) THEN
483 UPDATE
484 GCS_CURR_TREATMENTS_TL ctl
485 SET
486 LANGUAGE=userenv('LANG'),
487 SOURCE_LANG= userenv('LANG'),
488 CURR_TREATMENT_NAME=translate_row.CURR_TREATMENT_NAME,
489 LAST_UPDATE_DATE=f_ludate,
490 LAST_UPDATED_BY=f_luby,
491 LAST_UPDATE_LOGIN=0,
492 DESCRIPTION=translate_row.DESCRIPTION
493 WHERE
494 ctl.CURR_TREATMENT_ID = translate_row.CURR_TREATMENT_ID
495 AND userenv('LANG') IN (ctl.language, ctl.source_lang);
496 END IF;
497 EXCEPTION
498 WHEN NO_DATA_FOUND THEN
499 null;
500 END;
501 END Translate_Row;
502
503
504
505
506 procedure ADD_LANGUAGE
507 is
508 begin
509 insert /*+ append parallel(tt) */ into
510 gcs_curr_treatments_tl tt
511 (
512 CURR_TREATMENT_ID,
513 LANGUAGE ,
514 SOURCE_LANG ,
515 CURR_TREATMENT_NAME ,
516 LAST_UPDATE_DATE,
517 LAST_UPDATED_BY ,
518 CREATION_DATE,
519 CREATED_BY,
520 LAST_UPDATE_LOGIN,
521 DESCRIPTION
522 )
523
524 select /*+ parallel(v) parallel(t) use_nl(t) */
525 v.*
526 from
527 ( SELECT /*+ no_merge ordered parellel(b) */
528 B.CURR_TREATMENT_ID,
529 L.LANGUAGE_CODE ,
530 B.SOURCE_LANG ,
531 B.CURR_TREATMENT_NAME ,
532 B.LAST_UPDATE_DATE,
533 B.LAST_UPDATED_BY ,
534 B.CREATION_DATE,
535 B.CREATED_BY,
536 B.LAST_UPDATE_LOGIN,
537 B.DESCRIPTION
538
539
540 from gcs_curr_treatments_tl B,
541 FND_LANGUAGES L
542 where L.INSTALLED_FLAG in ('I', 'B')
543 and B.LANGUAGE = userenv('LANG')
544 ) v, gcs_curr_treatments_tl t
545 where T.CURR_TREATMENT_ID(+) = v.CURR_TREATMENT_ID
546 and T.LANGUAGE(+) = v.LANGUAGE_CODE
547 and t.CURR_TREATMENT_ID IS NULL;
548
549 end ADD_LANGUAGE;
550
551
552
553
554 END GCS_CURR_TREATMENTS_PKG;