40: X_LAST_UPDATED_BY,
41: X_LAST_UPDATE_LOGIN
42: );
43:
44: insert into JTF_PROFILE_RULES_TL (
45: SECURITY_GROUP_ID,
46: PROFILE_RULES_ID,
47: BASE_PROPERTY_VALUE,
48: CREATION_DATE,
66: from FND_LANGUAGES L
67: where L.INSTALLED_FLAG in ('I', 'B')
68: and not exists
69: (select NULL
70: from JTF_PROFILE_RULES_TL T
71: where T.PROFILE_RULES_ID = X_PROFILE_RULES_ID
72: and T.LANGUAGE = L.LANGUAGE_CODE);
73:
74: open c;
100:
101: cursor c1 is select
102: BASE_PROPERTY_VALUE,
103: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
104: from JTF_PROFILE_RULES_TL
105: where PROFILE_RULES_ID = X_PROFILE_RULES_ID
106: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
107: for update of PROFILE_RULES_ID nowait;
108: begin
168: if (sql%notfound) then
169: raise no_data_found;
170: end if;
171:
172: update JTF_PROFILE_RULES_TL set
173: BASE_PROPERTY_VALUE = X_BASE_PROPERTY_VALUE,
174: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
175: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
176: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
186: procedure DELETE_ROW (
187: X_PROFILE_RULES_ID in NUMBER
188: ) is
189: begin
190: delete from JTF_PROFILE_RULES_TL
191: where PROFILE_RULES_ID = X_PROFILE_RULES_ID;
192:
193: if (sql%notfound) then
194: raise no_data_found;
204:
205: procedure ADD_LANGUAGE
206: is
207: begin
208: delete from JTF_PROFILE_RULES_TL T
209: where not exists
210: (select NULL
211: from JTF_PROFILE_RULES_B B
212: where B.PROFILE_RULES_ID = T.PROFILE_RULES_ID
211: from JTF_PROFILE_RULES_B B
212: where B.PROFILE_RULES_ID = T.PROFILE_RULES_ID
213: );
214:
215: update JTF_PROFILE_RULES_TL T set (
216: BASE_PROPERTY_VALUE
217: ) = (select
218: B.BASE_PROPERTY_VALUE
219: from JTF_PROFILE_RULES_TL B
215: update JTF_PROFILE_RULES_TL T set (
216: BASE_PROPERTY_VALUE
217: ) = (select
218: B.BASE_PROPERTY_VALUE
219: from JTF_PROFILE_RULES_TL B
220: where B.PROFILE_RULES_ID = T.PROFILE_RULES_ID
221: and B.LANGUAGE = T.SOURCE_LANG)
222: where (
223: T.PROFILE_RULES_ID,
224: T.LANGUAGE
225: ) in (select
226: SUBT.PROFILE_RULES_ID,
227: SUBT.LANGUAGE
228: from JTF_PROFILE_RULES_TL SUBB, JTF_PROFILE_RULES_TL SUBT
229: where SUBB.PROFILE_RULES_ID = SUBT.PROFILE_RULES_ID
230: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
231: and (SUBB.BASE_PROPERTY_VALUE <> SUBT.BASE_PROPERTY_VALUE
232: or (SUBB.BASE_PROPERTY_VALUE is null and SUBT.BASE_PROPERTY_VALUE is not null)
232: or (SUBB.BASE_PROPERTY_VALUE is null and SUBT.BASE_PROPERTY_VALUE is not null)
233: or (SUBB.BASE_PROPERTY_VALUE is not null and SUBT.BASE_PROPERTY_VALUE is null)
234: ));
235:
236: insert into JTF_PROFILE_RULES_TL (
237: SECURITY_GROUP_ID,
238: PROFILE_RULES_ID,
239: BASE_PROPERTY_VALUE,
240: DESCRIPTION,
256: B.LAST_UPDATED_BY,
257: B.LAST_UPDATE_LOGIN,
258: L.LANGUAGE_CODE,
259: B.SOURCE_LANG
260: from JTF_PROFILE_RULES_TL B, FND_LANGUAGES L
261: where L.INSTALLED_FLAG in ('I', 'B')
262: and B.LANGUAGE = userenv('LANG')
263: and not exists
264: (select NULL
261: where L.INSTALLED_FLAG in ('I', 'B')
262: and B.LANGUAGE = userenv('LANG')
263: and not exists
264: (select NULL
265: from JTF_PROFILE_RULES_TL T
266: where T.PROFILE_RULES_ID = B.PROFILE_RULES_ID
267: and T.LANGUAGE = L.LANGUAGE_CODE);
268: end ADD_LANGUAGE;
269:
273: X_OWNER in VARCHAR2
274: ) is
275:
276: begin
277: update JTF_PROFILE_RULES_TL set
278: BASE_PROPERTY_VALUE = X_BASE_PROPERTY_VALUE,
279: SOURCE_LANG = userenv('LANG'),
280: last_update_date = sysdate,
281: last_updated_by = decode(X_OWNER,'SEED',1,0),