43: X_LAST_UPDATED_BY,
44: X_LAST_UPDATE_LOGIN
45: );
46:
47: insert into OKC_REP_RELATIONSHIPS_TL (
48: RELATIONSHIP_ROLE1_ID,
49: DESCRIPTION,
50: RELATIONSHIP_ROLE1_NAME,
51: RELATIONSHIP_ROLE2_NAME,
71: from FND_LANGUAGES L
72: where L.INSTALLED_FLAG in ('I', 'B')
73: and not exists
74: (select NULL
75: from OKC_REP_RELATIONSHIPS_TL T
76: where T.RELATIONSHIP_ROLE1_ID = X_RELATIONSHIP_ROLE1_ID
77: and T.LANGUAGE = L.LANGUAGE_CODE);
78:
79: open c;
110: RELATIONSHIP_ROLE1_NAME,
111: RELATIONSHIP_ROLE2_NAME,
112: DESCRIPTION,
113: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
114: from OKC_REP_RELATIONSHIPS_TL
115: where RELATIONSHIP_ROLE1_ID = X_RELATIONSHIP_ROLE1_ID
116: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
117: for update of RELATIONSHIP_ROLE1_ID nowait;
118: begin
179: if (sql%notfound) then
180: raise no_data_found;
181: end if;
182:
183: update OKC_REP_RELATIONSHIPS_TL set
184: RELATIONSHIP_ROLE1_NAME = X_RELATIONSHIP_ROLE1_NAME,
185: RELATIONSHIP_ROLE2_NAME = X_RELATIONSHIP_ROLE2_NAME,
186: DESCRIPTION = X_DESCRIPTION,
187: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
199: procedure DELETE_ROW (
200: X_RELATIONSHIP_ROLE1_ID in NUMBER
201: ) is
202: begin
203: delete from OKC_REP_RELATIONSHIPS_TL
204: where RELATIONSHIP_ROLE1_ID = X_RELATIONSHIP_ROLE1_ID;
205:
206: if (sql%notfound) then
207: raise no_data_found;
217:
218: procedure ADD_LANGUAGE
219: is
220: begin
221: delete from OKC_REP_RELATIONSHIPS_TL T
222: where not exists
223: (select NULL
224: from OKC_REP_RELATIONSHIPS_B B
225: where B.RELATIONSHIP_ROLE1_ID = T.RELATIONSHIP_ROLE1_ID
224: from OKC_REP_RELATIONSHIPS_B B
225: where B.RELATIONSHIP_ROLE1_ID = T.RELATIONSHIP_ROLE1_ID
226: );
227:
228: update OKC_REP_RELATIONSHIPS_TL T set (
229: RELATIONSHIP_ROLE1_NAME,
230: RELATIONSHIP_ROLE2_NAME,
231: DESCRIPTION
232: ) = (select
232: ) = (select
233: B.RELATIONSHIP_ROLE1_NAME,
234: B.RELATIONSHIP_ROLE2_NAME,
235: B.DESCRIPTION
236: from OKC_REP_RELATIONSHIPS_TL B
237: where B.RELATIONSHIP_ROLE1_ID = T.RELATIONSHIP_ROLE1_ID
238: and B.LANGUAGE = T.SOURCE_LANG)
239: where (
240: T.RELATIONSHIP_ROLE1_ID,
241: T.LANGUAGE
242: ) in (select
243: SUBT.RELATIONSHIP_ROLE1_ID,
244: SUBT.LANGUAGE
245: from OKC_REP_RELATIONSHIPS_TL SUBB, OKC_REP_RELATIONSHIPS_TL SUBT
246: where SUBB.RELATIONSHIP_ROLE1_ID = SUBT.RELATIONSHIP_ROLE1_ID
247: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
248: and (SUBB.RELATIONSHIP_ROLE1_NAME <> SUBT.RELATIONSHIP_ROLE1_NAME
249: or SUBB.RELATIONSHIP_ROLE2_NAME <> SUBT.RELATIONSHIP_ROLE2_NAME
251: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
252: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
253: ));
254:
255: insert into OKC_REP_RELATIONSHIPS_TL (
256: RELATIONSHIP_ROLE1_ID,
257: DESCRIPTION,
258: RELATIONSHIP_ROLE1_NAME,
259: RELATIONSHIP_ROLE2_NAME,
275: B.LAST_UPDATE_DATE,
276: B.LAST_UPDATE_LOGIN,
277: L.LANGUAGE_CODE,
278: B.SOURCE_LANG
279: from OKC_REP_RELATIONSHIPS_TL B, FND_LANGUAGES L
280: where L.INSTALLED_FLAG in ('I', 'B')
281: and B.LANGUAGE = userenv('LANG')
282: and not exists
283: (select NULL
280: where L.INSTALLED_FLAG in ('I', 'B')
281: and B.LANGUAGE = userenv('LANG')
282: and not exists
283: (select NULL
284: from OKC_REP_RELATIONSHIPS_TL T
285: where T.RELATIONSHIP_ROLE1_ID = B.RELATIONSHIP_ROLE1_ID
286: and T.LANGUAGE = L.LANGUAGE_CODE);
287: end ADD_LANGUAGE;
288: