158: FND_PROFILE.VALUE('AHL_APPLN_USAGE')
159: )
160: RETURNING MR_HEADER_ID INTO X_MR_HEADER_ID;
161:
162: insert into AHL_MR_HEADERS_TL (
163: COMMENTS,
164: DESCRIPTION,
165: CREATED_BY,
166: LAST_UPDATE_LOGIN,
184: from FND_LANGUAGES L
185: where L.INSTALLED_FLAG in ('I', 'B')
186: and not exists
187: (select NULL
188: from AHL_MR_HEADERS_TL T
189: where T.MR_HEADER_ID = X_MR_HEADER_ID
190: and T.LANGUAGE = L.LANGUAGE_CODE);
191:
192: end INSERT_ROW;
295: if sql%rowcount=0 then
296: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
297: FND_MSG_PUB.ADD;
298: else
299: update AHL_MR_HEADERS_TL set
300: DESCRIPTION = X_DESCRIPTION,
301: COMMENTS = X_COMMENTS,
302: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
303: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
311: procedure DELETE_ROW (
312: X_MR_HEADER_ID in NUMBER
313: ) is
314: begin
315: delete from AHL_MR_HEADERS_TL
316: where MR_HEADER_ID = X_MR_HEADER_ID;
317:
318: delete from AHL_MR_HEADERS_B
319: where MR_HEADER_ID = X_MR_HEADER_ID;
321:
322: procedure ADD_LANGUAGE
323: is
324: begin
325: delete from AHL_MR_HEADERS_TL T
326: where not exists
327: (select NULL
328: from AHL_MR_HEADERS_B B
329: where B.MR_HEADER_ID = T.MR_HEADER_ID
328: from AHL_MR_HEADERS_B B
329: where B.MR_HEADER_ID = T.MR_HEADER_ID
330: );
331:
332: update AHL_MR_HEADERS_TL T set (
333: DESCRIPTION,
334: COMMENTS
335: ) = (select
336: B.DESCRIPTION,
334: COMMENTS
335: ) = (select
336: B.DESCRIPTION,
337: B.COMMENTS
338: from AHL_MR_HEADERS_TL B
339: where B.MR_HEADER_ID = T.MR_HEADER_ID
340: and B.LANGUAGE = T.SOURCE_LANG)
341: where (
342: T.MR_HEADER_ID,
343: T.LANGUAGE
344: ) in (select
345: SUBT.MR_HEADER_ID,
346: SUBT.LANGUAGE
347: from AHL_MR_HEADERS_TL SUBB, AHL_MR_HEADERS_TL SUBT
348: where SUBB.MR_HEADER_ID = SUBT.MR_HEADER_ID
349: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
350: and (SUBB.DESCRIPTION <> SUBT.DESCRIPTION
351: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
354: or (SUBB.COMMENTS is null and SUBT.COMMENTS is not null)
355: or (SUBB.COMMENTS is not null and SUBT.COMMENTS is null)
356: ));
357:
358: insert into AHL_MR_HEADERS_TL (
359: COMMENTS,
360: DESCRIPTION,
361: CREATED_BY,
362: LAST_UPDATE_LOGIN,
376: B.CREATION_DATE,
377: B.MR_HEADER_ID,
378: L.LANGUAGE_CODE,
379: B.SOURCE_LANG
380: from AHL_MR_HEADERS_TL B, FND_LANGUAGES L
381: where L.INSTALLED_FLAG in ('I', 'B')
382: and B.LANGUAGE = userenv('LANG')
383: and not exists
384: (select NULL
381: where L.INSTALLED_FLAG in ('I', 'B')
382: and B.LANGUAGE = userenv('LANG')
383: and not exists
384: (select NULL
385: from AHL_MR_HEADERS_TL T
386: where T.MR_HEADER_ID = B.MR_HEADER_ID
387: and T.LANGUAGE = L.LANGUAGE_CODE);
388: end ADD_LANGUAGE;
389: