98: X_LAST_UPDATED_BY,
99: X_LAST_UPDATE_LOGIN
100: );
101:
102: insert into OKC_BUS_DOC_TYPES_TL (
103: LAST_UPDATE_LOGIN,
104: DOCUMENT_TYPE,
105: SOURCE_LANG,
106: NAME,
122: from FND_LANGUAGES L
123: where L.INSTALLED_FLAG in ('I', 'B')
124: and not exists
125: (select NULL
126: from OKC_BUS_DOC_TYPES_TL T
127: where T.DOCUMENT_TYPE = X_DOCUMENT_TYPE
128: and T.LANGUAGE = L.LANGUAGE_CODE);
129:
130: open c;
195:
196: cursor c1 is select
197: NAME,
198: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
199: from OKC_BUS_DOC_TYPES_TL
200: where DOCUMENT_TYPE = X_DOCUMENT_TYPE
201: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
202: for update of DOCUMENT_TYPE nowait;
203: begin
294: if (sql%notfound) then
295: raise no_data_found;
296: end if;
297:
298: update OKC_BUS_DOC_TYPES_TL set
299: NAME = X_NAME,
300: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
301: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
302: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
320: where DOCUMENT_TYPE = X_DOCUMENT_TYPE;
321: --
322: --
323:
324: delete from OKC_BUS_DOC_TYPES_TL
325: where DOCUMENT_TYPE = X_DOCUMENT_TYPE;
326:
327: if (sql%notfound) then
328: raise no_data_found;
338:
339: procedure ADD_LANGUAGE
340: is
341: begin
342: delete from OKC_BUS_DOC_TYPES_TL T
343: where not exists
344: (select NULL
345: from OKC_BUS_DOC_TYPES_B B
346: where B.DOCUMENT_TYPE = T.DOCUMENT_TYPE
345: from OKC_BUS_DOC_TYPES_B B
346: where B.DOCUMENT_TYPE = T.DOCUMENT_TYPE
347: );
348:
349: update OKC_BUS_DOC_TYPES_TL T set (
350: NAME
351: ) = (select
352: B.NAME
353: from OKC_BUS_DOC_TYPES_TL B
349: update OKC_BUS_DOC_TYPES_TL T set (
350: NAME
351: ) = (select
352: B.NAME
353: from OKC_BUS_DOC_TYPES_TL B
354: where B.DOCUMENT_TYPE = T.DOCUMENT_TYPE
355: and B.LANGUAGE = T.SOURCE_LANG)
356: where (
357: T.DOCUMENT_TYPE,
358: T.LANGUAGE
359: ) in (select
360: SUBT.DOCUMENT_TYPE,
361: SUBT.LANGUAGE
362: from OKC_BUS_DOC_TYPES_TL SUBB, OKC_BUS_DOC_TYPES_TL SUBT
363: where SUBB.DOCUMENT_TYPE = SUBT.DOCUMENT_TYPE
364: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
365: and (SUBB.NAME <> SUBT.NAME
366: ));
364: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
365: and (SUBB.NAME <> SUBT.NAME
366: ));
367:
368: insert into OKC_BUS_DOC_TYPES_TL (
369: LAST_UPDATE_LOGIN,
370: DOCUMENT_TYPE,
371: SOURCE_LANG,
372: NAME,
384: B.CREATION_DATE,
385: B.LAST_UPDATED_BY,
386: B.LAST_UPDATE_DATE,
387: L.LANGUAGE_CODE
388: from OKC_BUS_DOC_TYPES_TL B, FND_LANGUAGES L
389: where L.INSTALLED_FLAG in ('I', 'B')
390: and B.LANGUAGE = userenv('LANG')
391: and not exists
392: (select NULL
389: where L.INSTALLED_FLAG in ('I', 'B')
390: and B.LANGUAGE = userenv('LANG')
391: and not exists
392: (select NULL
393: from OKC_BUS_DOC_TYPES_TL T
394: where T.DOCUMENT_TYPE = B.DOCUMENT_TYPE
395: and T.LANGUAGE = L.LANGUAGE_CODE);
396: end ADD_LANGUAGE;
397: