[Home] [Help]
140: X_LAST_UPDATED_BY,
141: X_LAST_UPDATE_LOGIN
142: );
143:
144: insert into AHL_DOC_REVISIONS_TL (
145: LAST_UPDATE_LOGIN,
146: COMMENTS,
147: CREATION_DATE,
148: CREATED_BY,
164: from FND_LANGUAGES L
165: where L.INSTALLED_FLAG in ('I', 'B')
166: and not exists
167: (select NULL
168: from AHL_DOC_REVISIONS_TL T
169: where T.DOC_REVISION_ID = X_DOC_REVISION_ID
170: and T.LANGUAGE = L.LANGUAGE_CODE);
171:
172: open c;
265:
266: cursor c1 is select
267: COMMENTS,
268: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
269: from AHL_DOC_REVISIONS_TL
270: where DOC_REVISION_ID = X_DOC_REVISION_ID
271: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
272: for update of DOC_REVISION_ID nowait;
273: begin
459: if (sql%notfound) then
460: raise no_data_found;
461: end if;
462:
463: update AHL_DOC_REVISIONS_TL set
464: COMMENTS = X_COMMENTS,
465: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
466: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
467: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
477: procedure DELETE_ROW (
478: X_DOC_REVISION_ID in NUMBER
479: ) is
480: begin
481: delete from AHL_DOC_REVISIONS_TL
482: where DOC_REVISION_ID = X_DOC_REVISION_ID;
483:
484: if (sql%notfound) then
485: raise no_data_found;
495:
496: procedure ADD_LANGUAGE
497: is
498: begin
499: delete from AHL_DOC_REVISIONS_TL T
500: where not exists
501: (select NULL
502: from AHL_DOC_REVISIONS_B B
503: where B.DOC_REVISION_ID = T.DOC_REVISION_ID
502: from AHL_DOC_REVISIONS_B B
503: where B.DOC_REVISION_ID = T.DOC_REVISION_ID
504: );
505:
506: update AHL_DOC_REVISIONS_TL T set (
507: COMMENTS
508: ) = (select
509: B.COMMENTS
510: from AHL_DOC_REVISIONS_TL B
506: update AHL_DOC_REVISIONS_TL T set (
507: COMMENTS
508: ) = (select
509: B.COMMENTS
510: from AHL_DOC_REVISIONS_TL B
511: where B.DOC_REVISION_ID = T.DOC_REVISION_ID
512: and B.LANGUAGE = T.SOURCE_LANG)
513: where (
514: T.DOC_REVISION_ID,
515: T.LANGUAGE
516: ) in (select
517: SUBT.DOC_REVISION_ID,
518: SUBT.LANGUAGE
519: from AHL_DOC_REVISIONS_TL SUBB, AHL_DOC_REVISIONS_TL SUBT
520: where SUBB.DOC_REVISION_ID = SUBT.DOC_REVISION_ID
521: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
522: and (SUBB.COMMENTS <> SUBT.COMMENTS
523: or (SUBB.COMMENTS is null and SUBT.COMMENTS is not null)
523: or (SUBB.COMMENTS is null and SUBT.COMMENTS is not null)
524: or (SUBB.COMMENTS is not null and SUBT.COMMENTS is null)
525: ));
526:
527: insert into AHL_DOC_REVISIONS_TL (
528: LAST_UPDATE_LOGIN,
529: COMMENTS,
530: CREATION_DATE,
531: CREATED_BY,
543: B.LAST_UPDATE_DATE,
544: B.LAST_UPDATED_BY,
545: L.LANGUAGE_CODE,
546: B.SOURCE_LANG
547: from AHL_DOC_REVISIONS_TL B, FND_LANGUAGES L
548: where L.INSTALLED_FLAG in ('I', 'B')
549: and B.LANGUAGE = userenv('LANG')
550: and not exists
551: (select NULL
548: where L.INSTALLED_FLAG in ('I', 'B')
549: and B.LANGUAGE = userenv('LANG')
550: and not exists
551: (select NULL
552: from AHL_DOC_REVISIONS_TL T
553: where T.DOC_REVISION_ID = B.DOC_REVISION_ID
554: and T.LANGUAGE = L.LANGUAGE_CODE);
555: end ADD_LANGUAGE;
556:
714: X_COMMENTS in VARCHAR2,
715: X_OWNER in VARCHAR2
716: ) is
717: begin
718: update AHl_DOC_REVISIONS_TL set
719: comments = nvl(X_COMMENTS, comments),
720: source_lang = userenv('LANG'),
721: last_update_date = sysdate,
722: last_updated_by = decode(X_OWNER, 'SEED', 1, 0),