[Home] [Help]
35: NVL(L_USER_ID_FOR_SEED,HZ_UTILITY_V2PUB.LAST_UPDATED_BY),
36: DECODE( X_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, X_OBJECT_VERSION_NUMBER )
37: );
38:
39: insert into HZ_STYLES_TL (
40: STYLE_CODE,
41: STYLE_NAME,
42: DESCRIPTION,
43: LANGUAGE,
61: from FND_LANGUAGES L
62: where L.INSTALLED_FLAG in ('I', 'B')
63: and not exists
64: (select NULL
65: from HZ_STYLES_TL T
66: where T.STYLE_CODE = X_STYLE_CODE
67: and T.LANGUAGE = L.LANGUAGE_CODE);
68:
69: open c;
92: cursor c1 is select
93: STYLE_NAME,
94: DESCRIPTION,
95: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
96: from HZ_STYLES_TL
97: where STYLE_CODE = X_STYLE_CODE
98: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
99: for update of STYLE_CODE nowait;
100: begin
151: if (sql%notfound) then
152: raise no_data_found;
153: end if;
154:
155: update HZ_STYLES_TL set
156: STYLE_NAME = DECODE( X_STYLE_NAME, NULL, STYLE_NAME, FND_API.G_MISS_CHAR, NULL, X_STYLE_NAME ),
157: DESCRIPTION = DECODE( X_DESCRIPTION, NULL, DESCRIPTION, FND_API.G_MISS_CHAR, NULL, X_DESCRIPTION ),
158: LAST_UPDATE_DATE = HZ_UTILITY_V2PUB.LAST_UPDATE_DATE,
159: LAST_UPDATED_BY = NVL(L_USER_ID_FOR_SEED,HZ_UTILITY_V2PUB.LAST_UPDATED_BY),
183: INTO X_STYLE_CODE,
184: X_DATABASE_OBJECT_NAME,
185: X_STYLE_NAME,
186: X_DESCRIPTION
187: FROM HZ_STYLES_B B, HZ_STYLES_TL T
188: WHERE B.STYLE_CODE = X_STYLE_CODE
189: AND T.STYLE_CODE = X_STYLE_CODE
190: AND T.LANGUAGE = userenv('LANG');
191:
203: procedure DELETE_ROW (
204: X_STYLE_CODE in VARCHAR2
205: ) is
206: begin
207: delete from HZ_STYLES_TL
208: where STYLE_CODE = X_STYLE_CODE;
209:
210: if (sql%notfound) then
211: raise no_data_found;
221:
222: procedure ADD_LANGUAGE
223: is
224: begin
225: delete from HZ_STYLES_TL T
226: where not exists
227: (select NULL
228: from HZ_STYLES_B B
229: where B.STYLE_CODE = T.STYLE_CODE
228: from HZ_STYLES_B B
229: where B.STYLE_CODE = T.STYLE_CODE
230: );
231:
232: update HZ_STYLES_TL T set (
233: STYLE_NAME,
234: DESCRIPTION
235: ) = (select
236: B.STYLE_NAME,
234: DESCRIPTION
235: ) = (select
236: B.STYLE_NAME,
237: B.DESCRIPTION
238: from HZ_STYLES_TL B
239: where B.STYLE_CODE = T.STYLE_CODE
240: and B.LANGUAGE = T.SOURCE_LANG)
241: where (
242: T.STYLE_CODE,
243: T.LANGUAGE
244: ) in (select
245: SUBT.STYLE_CODE,
246: SUBT.LANGUAGE
247: from HZ_STYLES_TL SUBB, HZ_STYLES_TL SUBT
248: where SUBB.STYLE_CODE = SUBT.STYLE_CODE
249: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
250: and (SUBB.STYLE_NAME <> SUBT.STYLE_NAME
251: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
252: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
253: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
254: ));
255:
256: insert into HZ_STYLES_TL (
257: STYLE_CODE,
258: STYLE_NAME,
259: DESCRIPTION,
260: LAST_UPDATE_DATE,
274: B.CREATED_BY,
275: B.LAST_UPDATE_LOGIN,
276: L.LANGUAGE_CODE,
277: B.SOURCE_LANG
278: from HZ_STYLES_TL B, FND_LANGUAGES L
279: where L.INSTALLED_FLAG in ('I', 'B')
280: and B.LANGUAGE = userenv('LANG')
281: and not exists
282: (select NULL
279: where L.INSTALLED_FLAG in ('I', 'B')
280: and B.LANGUAGE = userenv('LANG')
281: and not exists
282: (select NULL
283: from HZ_STYLES_TL T
284: where T.STYLE_CODE = B.STYLE_CODE
285: and T.LANGUAGE = L.LANGUAGE_CODE);
286: end ADD_LANGUAGE;
287:
380:
381: begin
382: select LAST_UPDATED_BY, LAST_UPDATE_DATE
383: into l_db_luby, l_db_ludate
384: from HZ_STYLES_TL
385: where STYLE_CODE = x_style_code
386: and LANGUAGE = userenv('LANG');
387:
388: -- Update record, honoring customization mode.
394: if ((x_custom_mode = 'FORCE') or
395: ((l_f_luby = 0) and (l_db_luby = 1)) or
396: ((l_f_luby = l_db_luby) and (l_f_ludate > l_db_ludate)))
397: then
398: update HZ_STYLES_TL
399: set STYLE_NAME = nvl(X_STYLE_NAME,STYLE_NAME),
400: DESCRIPTION = nvl(X_DESCRIPTION,DESCRIPTION),
401: LAST_UPDATE_DATE = l_f_ludate,
402: LAST_UPDATED_BY = l_f_luby,