69: X_LAST_UPDATED_BY,
70: X_LAST_UPDATE_LOGIN
71: );
72:
73: insert into UMX_REG_SERVICES_TL (
74: REG_SERVICE_CODE,
75: DISPLAY_NAME,
76: DESCRIPTION,
77: USAGE,
99: from FND_LANGUAGES L
100: where L.INSTALLED_FLAG in ('I', 'B')
101: and not exists
102: (select NULL
103: from UMX_REG_SERVICES_TL T
104: where T.REG_SERVICE_CODE = X_REG_SERVICE_CODE
105: and T.LANGUAGE = L.LANGUAGE_CODE);
106:
107: open c;
154: DISPLAY_NAME,
155: DESCRIPTION,
156: USAGE,
157: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
158: from UMX_REG_SERVICES_TL
159: where REG_SERVICE_CODE = X_REG_SERVICE_CODE
160: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
161: for update of REG_SERVICE_CODE nowait;
162: begin
254: if (sql%notfound) then
255: raise no_data_found;
256: end if;
257:
258: update UMX_REG_SERVICES_TL set
259: DISPLAY_NAME = X_DISPLAY_NAME,
260: DESCRIPTION = X_DESCRIPTION,
261: USAGE = X_USAGE,
262: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
274: procedure DELETE_ROW (
275: X_REG_SERVICE_CODE in VARCHAR2
276: ) is
277: begin
278: delete from UMX_REG_SERVICES_TL
279: where REG_SERVICE_CODE = X_REG_SERVICE_CODE;
280:
281: if (sql%notfound) then
282: raise no_data_found;
292:
293: procedure ADD_LANGUAGE
294: is
295: begin
296: delete from UMX_REG_SERVICES_TL T
297: where not exists
298: (select NULL
299: from UMX_REG_SERVICES_B B
300: where B.REG_SERVICE_CODE = T.REG_SERVICE_CODE
299: from UMX_REG_SERVICES_B B
300: where B.REG_SERVICE_CODE = T.REG_SERVICE_CODE
301: );
302:
303: update UMX_REG_SERVICES_TL T set (
304: DISPLAY_NAME,
305: DESCRIPTION,
306: USAGE
307: ) = (select
307: ) = (select
308: B.DISPLAY_NAME,
309: B.DESCRIPTION,
310: B.USAGE
311: from UMX_REG_SERVICES_TL B
312: where B.REG_SERVICE_CODE = T.REG_SERVICE_CODE
313: and B.LANGUAGE = T.SOURCE_LANG)
314: where (
315: T.REG_SERVICE_CODE,
316: T.LANGUAGE
317: ) in (select
318: SUBT.REG_SERVICE_CODE,
319: SUBT.LANGUAGE
320: from UMX_REG_SERVICES_TL SUBB, UMX_REG_SERVICES_TL SUBT
321: where SUBB.REG_SERVICE_CODE = SUBT.REG_SERVICE_CODE
322: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
323: and (SUBB.DISPLAY_NAME <> SUBT.DISPLAY_NAME
324: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
324: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
325: or SUBB.USAGE <> SUBT.USAGE
326: ));
327:
328: insert into UMX_REG_SERVICES_TL (
329: REG_SERVICE_CODE,
330: DISPLAY_NAME,
331: DESCRIPTION,
332: USAGE,
350: B.LAST_UPDATE_LOGIN,
351: B.SECURITY_GROUP_ID,
352: L.LANGUAGE_CODE,
353: B.SOURCE_LANG
354: from UMX_REG_SERVICES_TL B, FND_LANGUAGES L
355: where L.INSTALLED_FLAG in ('I', 'B')
356: and B.LANGUAGE = userenv('LANG')
357: and not exists
358: (select NULL
355: where L.INSTALLED_FLAG in ('I', 'B')
356: and B.LANGUAGE = userenv('LANG')
357: and not exists
358: (select NULL
359: from UMX_REG_SERVICES_TL T
360: where T.REG_SERVICE_CODE = B.REG_SERVICE_CODE
361: and T.LANGUAGE = L.LANGUAGE_CODE);
362: end ADD_LANGUAGE;
363:
618: f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
619:
620: select LAST_UPDATED_BY, LAST_UPDATE_DATE
621: into db_luby, db_ludate
622: from umx_reg_services_tl
623: where reg_service_code = X_REG_SERVICE_CODE
624: and userenv('LANG') = LANGUAGE;
625:
626: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
625:
626: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
627: db_ludate, X_CUSTOM_MODE)) then
628:
629: update umx_reg_services_tl
630: set
631: display_name = nvl(X_DISPLAY_NAME, display_name),
632: description = nvl(X_DESCRIPTION, description),
633: usage = nvl(X_USAGE,usage),