45: X_LAST_UPDATED_BY,
46: X_LAST_UPDATE_LOGIN
47: );
48:
49: insert into QPR_REPORT_TYPE_HDRS_TL (
50: REPORT_TYPE_HEADER_ID,
51: REPORT_TYPE_NAME,
52: REPORT_TYPE_TITLE,
53: CREATION_DATE,
71: from FND_LANGUAGES L
72: where L.INSTALLED_FLAG in ('I', 'B')
73: and not exists
74: (select NULL
75: from QPR_REPORT_TYPE_HDRS_TL T
76: where T.REPORT_TYPE_HEADER_ID = X_REPORT_TYPE_HEADER_ID
77: and T.LANGUAGE = L.LANGUAGE_CODE);
78:
79: open c;
110: cursor c1 is select
111: REPORT_TYPE_NAME,
112: REPORT_TYPE_TITLE,
113: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
114: from QPR_REPORT_TYPE_HDRS_TL
115: where REPORT_TYPE_HEADER_ID = X_REPORT_TYPE_HEADER_ID
116: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
117: for update of REPORT_TYPE_HEADER_ID nowait;
118: begin
186: if (sql%notfound) then
187: raise no_data_found;
188: end if;
189:
190: update QPR_REPORT_TYPE_HDRS_TL set
191: REPORT_TYPE_NAME = X_REPORT_TYPE_NAME,
192: REPORT_TYPE_TITLE = X_REPORT_TYPE_TITLE,
193: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
194: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
205: procedure DELETE_ROW (
206: X_REPORT_TYPE_HEADER_ID in NUMBER
207: ) is
208: begin
209: delete from QPR_REPORT_TYPE_HDRS_TL
210: where REPORT_TYPE_HEADER_ID = X_REPORT_TYPE_HEADER_ID;
211:
212: if (sql%notfound) then
213: raise no_data_found;
223:
224: procedure ADD_LANGUAGE
225: is
226: begin
227: delete from QPR_REPORT_TYPE_HDRS_TL T
228: where not exists
229: (select NULL
230: from QPR_REPORT_TYPE_HDRS_B B
231: where B.REPORT_TYPE_HEADER_ID = T.REPORT_TYPE_HEADER_ID
230: from QPR_REPORT_TYPE_HDRS_B B
231: where B.REPORT_TYPE_HEADER_ID = T.REPORT_TYPE_HEADER_ID
232: );
233:
234: update QPR_REPORT_TYPE_HDRS_TL T set (
235: REPORT_TYPE_NAME,
236: REPORT_TYPE_TITLE
237: ) = (select
238: B.REPORT_TYPE_NAME,
236: REPORT_TYPE_TITLE
237: ) = (select
238: B.REPORT_TYPE_NAME,
239: B.REPORT_TYPE_TITLE
240: from QPR_REPORT_TYPE_HDRS_TL B
241: where B.REPORT_TYPE_HEADER_ID = T.REPORT_TYPE_HEADER_ID
242: and B.LANGUAGE = T.SOURCE_LANG)
243: where (
244: T.REPORT_TYPE_HEADER_ID,
245: T.LANGUAGE
246: ) in (select
247: SUBT.REPORT_TYPE_HEADER_ID,
248: SUBT.LANGUAGE
249: from QPR_REPORT_TYPE_HDRS_TL SUBB, QPR_REPORT_TYPE_HDRS_TL SUBT
250: where SUBB.REPORT_TYPE_HEADER_ID = SUBT.REPORT_TYPE_HEADER_ID
251: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
252: and (SUBB.REPORT_TYPE_NAME <> SUBT.REPORT_TYPE_NAME
253: or (SUBB.REPORT_TYPE_NAME is null and SUBT.REPORT_TYPE_NAME is not null)
256: or (SUBB.REPORT_TYPE_TITLE is null and SUBT.REPORT_TYPE_TITLE is not null)
257: or (SUBB.REPORT_TYPE_TITLE is not null and SUBT.REPORT_TYPE_TITLE is null)
258: ));
259:
260: insert into QPR_REPORT_TYPE_HDRS_TL (
261: REPORT_TYPE_HEADER_ID,
262: REPORT_TYPE_NAME,
263: REPORT_TYPE_TITLE,
264: CREATION_DATE,
278: B.LAST_UPDATED_BY,
279: B.LAST_UPDATE_LOGIN,
280: L.LANGUAGE_CODE,
281: B.SOURCE_LANG
282: from QPR_REPORT_TYPE_HDRS_TL B, FND_LANGUAGES L
283: where L.INSTALLED_FLAG in ('I', 'B')
284: and B.LANGUAGE = userenv('LANG')
285: and not exists
286: (select NULL
283: where L.INSTALLED_FLAG in ('I', 'B')
284: and B.LANGUAGE = userenv('LANG')
285: and not exists
286: (select NULL
287: from QPR_REPORT_TYPE_HDRS_TL T
288: where T.REPORT_TYPE_HEADER_ID = B.REPORT_TYPE_HEADER_ID
289: and T.LANGUAGE = L.LANGUAGE_CODE);
290: end ADD_LANGUAGE;
291: