[Home] [Help]
57: X_LAST_UPDATE_LOGIN,
58: X_DISPLAY_ORDER
59: ) RETURNING USERTYPE_ID INTO X_USERTYPE_ID;
60:
61: insert into JTF_UM_USERTYPES_TL (
62: CREATED_BY,
63: LAST_UPDATE_DATE,
64: LAST_UPDATED_BY,
65: LAST_UPDATE_LOGIN,
85: from FND_LANGUAGES L
86: where L.INSTALLED_FLAG in ('I', 'B')
87: and not exists
88: (select NULL
89: from JTF_UM_USERTYPES_TL T
90: where T.USERTYPE_ID = X_USERTYPE_ID
91: and T.LANGUAGE = L.LANGUAGE_CODE);
92:
93: open c;
129: cursor c1 is select
130: USERTYPE_NAME,
131: DESCRIPTION,
132: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
133: from JTF_UM_USERTYPES_TL
134: where USERTYPE_ID = X_USERTYPE_ID
135: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
136: for update of USERTYPE_ID nowait;
137: begin
210: if (sql%notfound) then
211: raise no_data_found;
212: end if;
213:
214: update JTF_UM_USERTYPES_TL set
215: USERTYPE_NAME = X_USERTYPE_NAME,
216: DESCRIPTION = X_DESCRIPTION,
217: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
218: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
230: procedure DELETE_ROW (
231: X_USERTYPE_ID in NUMBER
232: ) is
233: begin
234: delete from JTF_UM_USERTYPES_TL
235: where USERTYPE_ID = X_USERTYPE_ID;
236:
237: if (sql%notfound) then
238: raise no_data_found;
248:
249: procedure ADD_LANGUAGE
250: is
251: begin
252: delete from JTF_UM_USERTYPES_TL T
253: where not exists
254: (select NULL
255: from JTF_UM_USERTYPES_B B
256: where B.USERTYPE_ID = T.USERTYPE_ID
255: from JTF_UM_USERTYPES_B B
256: where B.USERTYPE_ID = T.USERTYPE_ID
257: );
258:
259: update JTF_UM_USERTYPES_TL T set (
260: USERTYPE_NAME,
261: DESCRIPTION,
262: USERTYPE_SHORTNAME
263: ) = (select
263: ) = (select
264: B.USERTYPE_NAME,
265: B.DESCRIPTION,
266: B.USERTYPE_SHORTNAME
267: from JTF_UM_USERTYPES_TL B
268: where B.USERTYPE_ID = T.USERTYPE_ID
269: and B.LANGUAGE = T.SOURCE_LANG)
270: where (
271: T.USERTYPE_ID,
272: T.LANGUAGE
273: ) in (select
274: SUBT.USERTYPE_ID,
275: SUBT.LANGUAGE
276: from JTF_UM_USERTYPES_TL SUBB, JTF_UM_USERTYPES_TL SUBT
277: where SUBB.USERTYPE_ID = SUBT.USERTYPE_ID
278: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
279: and (SUBB.USERTYPE_NAME <> SUBT.USERTYPE_NAME
280: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
280: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
281: or SUBB.USERTYPE_SHORTNAME <> SUBT.USERTYPE_SHORTNAME
282: ));
283:
284: insert into JTF_UM_USERTYPES_TL (
285: CREATED_BY,
286: LAST_UPDATE_DATE,
287: LAST_UPDATED_BY,
288: LAST_UPDATE_LOGIN,
304: B.USERTYPE_ID,
305: L.LANGUAGE_CODE,
306: B.SOURCE_LANG,
307: B.USERTYPE_SHORTNAME
308: from JTF_UM_USERTYPES_TL B, FND_LANGUAGES L
309: where L.INSTALLED_FLAG in ('I', 'B')
310: and B.LANGUAGE = userenv('LANG')
311: and not exists
312: (select NULL
309: where L.INSTALLED_FLAG in ('I', 'B')
310: and B.LANGUAGE = userenv('LANG')
311: and not exists
312: (select NULL
313: from JTF_UM_USERTYPES_TL T
314: where T.USERTYPE_ID = B.USERTYPE_ID
315: and T.LANGUAGE = L.LANGUAGE_CODE);
316: end ADD_LANGUAGE;
317:
801: -- there is a row for this app_id and this app_short_name
802: -- Exception is thrown otherwise.
803: select LAST_UPDATED_BY, LAST_UPDATE_DATE
804: into db_luby, db_ludate
805: FROM JTF_UM_USERTYPES_TL
806: where USERTYPE_ID = X_USERTYPE_ID
807: and LANGUAGE = userenv('LANG');
808:
809: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
808:
809: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
810: db_ludate, X_CUSTOM_MODE)) then
811:
812: update JTF_UM_USERTYPES_TL set
813: USERTYPE_NAME = X_USERTYPE_NAME,
814: DESCRIPTION = X_DESCRIPTION,
815: LAST_UPDATE_DATE = f_ludate,
816: LAST_UPDATED_BY = f_luby,
922: if (sql%notfound) then
923: raise no_data_found;
924: end if;
925:
926: update JTF_UM_USERTYPES_TL set
927: USERTYPE_NAME = X_USERTYPE_NAME,
928: LAST_UPDATED_BY = l_user_id,
929: LAST_UPDATE_LOGIN = l_user_id,
930: LAST_UPDATE_DATE = SYSDATE,