[Home] [Help]
114: X_LAST_UPDATED_BY,
115: X_LAST_UPDATE_LOGIN
116: ) RETURNING UNIT_DEFERRAL_ID INTO X_UNIT_DEFERRAL_ID;
117:
118: insert into AHL_UNIT_DEFERRALS_TL (
119: UNIT_DEFERRAL_ID,
120: LAST_UPDATE_DATE,
121: LAST_UPDATED_BY,
122: CREATION_DATE,
140: from FND_LANGUAGES L
141: where L.INSTALLED_FLAG in ('I', 'B')
142: and not exists
143: (select NULL
144: from AHL_UNIT_DEFERRALS_TL T
145: where T.UNIT_DEFERRAL_ID = X_UNIT_DEFERRAL_ID
146: and T.LANGUAGE = L.LANGUAGE_CODE);
147:
148: open c;
225: cursor c1 is select
226: REMARKS,
227: APPROVER_NOTES,
228: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
229: from AHL_UNIT_DEFERRALS_TL
230: where UNIT_DEFERRAL_ID = X_UNIT_DEFERRAL_ID
231: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
232: for update of UNIT_DEFERRAL_ID nowait;
233: begin
390: if (sql%notfound) then
391: raise no_data_found;
392: end if;
393:
394: update AHL_UNIT_DEFERRALS_TL set
395: REMARKS = X_REMARKS,
396: APPROVER_NOTES = X_APPROVER_NOTES,
397: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
398: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
409: procedure DELETE_ROW (
410: X_UNIT_DEFERRAL_ID in NUMBER
411: ) is
412: begin
413: delete from AHL_UNIT_DEFERRALS_TL
414: where UNIT_DEFERRAL_ID = X_UNIT_DEFERRAL_ID;
415:
416: if (sql%notfound) then
417: raise no_data_found;
427:
428: procedure ADD_LANGUAGE
429: is
430: begin
431: delete from AHL_UNIT_DEFERRALS_TL T
432: where not exists
433: (select NULL
434: from AHL_UNIT_DEFERRALS_B B
435: where B.UNIT_DEFERRAL_ID = T.UNIT_DEFERRAL_ID
434: from AHL_UNIT_DEFERRALS_B B
435: where B.UNIT_DEFERRAL_ID = T.UNIT_DEFERRAL_ID
436: );
437:
438: update AHL_UNIT_DEFERRALS_TL T set (
439: REMARKS,
440: APPROVER_NOTES
441: ) = (select
442: B.REMARKS,
440: APPROVER_NOTES
441: ) = (select
442: B.REMARKS,
443: B.APPROVER_NOTES
444: from AHL_UNIT_DEFERRALS_TL B
445: where B.UNIT_DEFERRAL_ID = T.UNIT_DEFERRAL_ID
446: and B.LANGUAGE = T.SOURCE_LANG)
447: where (
448: T.UNIT_DEFERRAL_ID,
449: T.LANGUAGE
450: ) in (select
451: SUBT.UNIT_DEFERRAL_ID,
452: SUBT.LANGUAGE
453: from AHL_UNIT_DEFERRALS_TL SUBB, AHL_UNIT_DEFERRALS_TL SUBT
454: where SUBB.UNIT_DEFERRAL_ID = SUBT.UNIT_DEFERRAL_ID
455: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
456: and (SUBB.REMARKS <> SUBT.REMARKS
457: or (SUBB.REMARKS is null and SUBT.REMARKS is not null)
460: or (SUBB.APPROVER_NOTES is null and SUBT.APPROVER_NOTES is not null)
461: or (SUBB.APPROVER_NOTES is not null and SUBT.APPROVER_NOTES is null)
462: ));
463:
464: insert into AHL_UNIT_DEFERRALS_TL (
465: UNIT_DEFERRAL_ID,
466: LAST_UPDATE_DATE,
467: LAST_UPDATED_BY,
468: CREATION_DATE,
482: B.REMARKS,
483: B.APPROVER_NOTES,
484: L.LANGUAGE_CODE,
485: B.SOURCE_LANG
486: from AHL_UNIT_DEFERRALS_TL B, FND_LANGUAGES L
487: where L.INSTALLED_FLAG in ('I', 'B')
488: and B.LANGUAGE = userenv('LANG')
489: and not exists
490: (select NULL
487: where L.INSTALLED_FLAG in ('I', 'B')
488: and B.LANGUAGE = userenv('LANG')
489: and not exists
490: (select NULL
491: from AHL_UNIT_DEFERRALS_TL T
492: where T.UNIT_DEFERRAL_ID = B.UNIT_DEFERRAL_ID
493: and T.LANGUAGE = L.LANGUAGE_CODE);
494: end ADD_LANGUAGE;
495: