87: , X_ATTRIBUTE14
88: , X_ATTRIBUTE15
89: );
90:
91: insert into OKE_PRINT_FORMS_TL (
92: PRINT_FORM_CODE
93: , LANGUAGE
94: , CREATION_DATE
95: , CREATED_BY
113: from FND_LANGUAGES L
114: where L.INSTALLED_FLAG in ('I', 'B')
115: and not exists
116: (select NULL
117: from OKE_PRINT_FORMS_TL T
118: where T.PRINT_FORM_CODE = X_PRINT_FORM_CODE
119: and T.LANGUAGE = L.LANGUAGE_CODE)
120: ;
121:
182: cursor c1 is select
183: PRINT_FORM_NAME
184: ,DESCRIPTION
185: ,decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
186: from OKE_PRINT_FORMS_TL
187: where PRINT_FORM_CODE= X_PRINT_FORM_CODE
188: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
189: for update of PRINT_FORM_CODE nowait;
190: tlinfo c1%rowtype;
320: if (sql%notfound) then
321: raise no_data_found;
322: end if;
323:
324: update OKE_PRINT_FORMS_TL set
325: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE
326: , LAST_UPDATED_BY = X_LAST_UPDATED_BY
327: , LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
328: , PRINT_FORM_NAME = X_PRINT_FORM_NAME
339:
340: procedure ADD_LANGUAGE
341: is
342: begin
343: delete from OKE_PRINT_FORMS_TL T
344: where not exists
345: (select NULL
346: from OKE_PRINT_FORMS_B B
347: where B.PRINT_FORM_CODE = T.PRINT_FORM_CODE
346: from OKE_PRINT_FORMS_B B
347: where B.PRINT_FORM_CODE = T.PRINT_FORM_CODE
348: );
349:
350: update OKE_PRINT_FORMS_TL T set (
351: PRINT_FORM_NAME,
352: DESCRIPTION
353: ) = (select
354: B.PRINT_FORM_NAME,
352: DESCRIPTION
353: ) = (select
354: B.PRINT_FORM_NAME,
355: B.DESCRIPTION
356: from OKE_PRINT_FORMS_TL B
357: where B.PRINT_FORM_CODE = T.PRINT_FORM_CODE
358: and B.LANGUAGE = T.SOURCE_LANG)
359: where (
360: T.PRINT_FORM_CODE,
361: T.LANGUAGE
362: ) in (select
363: SUBT.PRINT_FORM_CODE,
364: SUBT.LANGUAGE
365: from OKE_PRINT_FORMS_TL SUBB, OKE_PRINT_FORMS_TL SUBT
366: where SUBB.PRINT_FORM_CODE = SUBT.PRINT_FORM_CODE
367: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
368: and (SUBB.PRINT_FORM_NAME <> SUBT.PRINT_FORM_NAME
369: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
370: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
371: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
372: ));
373:
374: insert into OKE_PRINT_FORMS_TL (
375: PRINT_FORM_NAME,
376: DESCRIPTION,
377: LAST_UPDATE_LOGIN,
378: LAST_UPDATED_BY,
392: B.LAST_UPDATE_DATE,
393: B.PRINT_FORM_CODE,
394: L.LANGUAGE_CODE,
395: B.SOURCE_LANG
396: from OKE_PRINT_FORMS_TL B, FND_LANGUAGES L
397: where L.INSTALLED_FLAG in ('I', 'B')
398: and B.LANGUAGE = userenv('LANG')
399: and not exists
400: (select NULL
397: where L.INSTALLED_FLAG in ('I', 'B')
398: and B.LANGUAGE = userenv('LANG')
399: and not exists
400: (select NULL
401: from OKE_PRINT_FORMS_TL T
402: where T.PRINT_FORM_CODE = B.PRINT_FORM_CODE
403: and T.LANGUAGE = L.LANGUAGE_CODE);
404: end ADD_LANGUAGE;
405: