131: X_LAST_UPDATED_BY,
132: X_LAST_UPDATE_LOGIN
133: );
134:
135: insert into GMD_UNITS_TL (
136: LAST_UPDATE_DATE,
137: LAST_UPDATED_BY,
138: LAST_UPDATE_LOGIN,
139: QCUNIT_CODE,
155: from FND_LANGUAGES L
156: where L.INSTALLED_FLAG in ('I', 'B')
157: and not exists
158: (select NULL
159: from GMD_UNITS_TL T
160: where T.QCUNIT_CODE = X_QCUNIT_CODE
161: and T.LANGUAGE = L.LANGUAGE_CODE);
162:
163: open c;
250:
251: cursor c1 is select
252: QCUNIT_DESC,
253: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
254: from GMD_UNITS_TL
255: where QCUNIT_CODE = X_QCUNIT_CODE
256: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
257: for update of QCUNIT_CODE nowait;
258: begin
437: if (sql%notfound) then
438: raise no_data_found;
439: end if;
440:
441: update GMD_UNITS_TL set
442: QCUNIT_DESC = X_QCUNIT_DESC,
443: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
444: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
445: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
455: procedure DELETE_ROW (
456: X_QCUNIT_CODE in VARCHAR2
457: ) is
458: begin
459: delete from GMD_UNITS_TL
460: where QCUNIT_CODE = X_QCUNIT_CODE;
461:
462: if (sql%notfound) then
463: raise no_data_found;
473:
474: procedure ADD_LANGUAGE
475: is
476: begin
477: delete from GMD_UNITS_TL T
478: where not exists
479: (select NULL
480: from GMD_UNITS_B B
481: where B.QCUNIT_CODE = T.QCUNIT_CODE
480: from GMD_UNITS_B B
481: where B.QCUNIT_CODE = T.QCUNIT_CODE
482: );
483:
484: update GMD_UNITS_TL T set (
485: QCUNIT_DESC
486: ) = (select
487: B.QCUNIT_DESC
488: from GMD_UNITS_TL B
484: update GMD_UNITS_TL T set (
485: QCUNIT_DESC
486: ) = (select
487: B.QCUNIT_DESC
488: from GMD_UNITS_TL B
489: where B.QCUNIT_CODE = T.QCUNIT_CODE
490: and B.LANGUAGE = T.SOURCE_LANG)
491: where (
492: T.QCUNIT_CODE,
493: T.LANGUAGE
494: ) in (select
495: SUBT.QCUNIT_CODE,
496: SUBT.LANGUAGE
497: from GMD_UNITS_TL SUBB, GMD_UNITS_TL SUBT
498: where SUBB.QCUNIT_CODE = SUBT.QCUNIT_CODE
499: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
500: and (SUBB.QCUNIT_DESC <> SUBT.QCUNIT_DESC
501: ));
499: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
500: and (SUBB.QCUNIT_DESC <> SUBT.QCUNIT_DESC
501: ));
502:
503: insert into GMD_UNITS_TL (
504: LAST_UPDATE_DATE,
505: LAST_UPDATED_BY,
506: LAST_UPDATE_LOGIN,
507: QCUNIT_CODE,
519: B.CREATION_DATE,
520: B.CREATED_BY,
521: L.LANGUAGE_CODE,
522: B.SOURCE_LANG
523: from GMD_UNITS_TL B, FND_LANGUAGES L
524: where L.INSTALLED_FLAG in ('I', 'B')
525: and B.LANGUAGE = userenv('LANG')
526: and not exists
527: (select NULL
524: where L.INSTALLED_FLAG in ('I', 'B')
525: and B.LANGUAGE = userenv('LANG')
526: and not exists
527: (select NULL
528: from GMD_UNITS_TL T
529: where T.QCUNIT_CODE = B.QCUNIT_CODE
530: and T.LANGUAGE = L.LANGUAGE_CODE);
531: end ADD_LANGUAGE;
532: