171: X_LAST_UPDATED_BY,
172: X_LAST_UPDATE_LOGIN
173: );
174:
175: insert into AHL_WARRANTY_CLAIMS_TL (
176: WARRANTY_CLAIM_ID,
177: LAST_UPDATE_DATE,
178: LAST_UPDATED_BY,
179: CREATION_DATE,
197: from FND_LANGUAGES L
198: where L.INSTALLED_FLAG in ('I', 'B')
199: and not exists
200: (select NULL
201: from AHL_WARRANTY_CLAIMS_TL T
202: where T.WARRANTY_CLAIM_ID = X_WARRANTY_CLAIM_ID
203: and T.LANGUAGE = L.LANGUAGE_CODE);
204:
205: open c;
320: cursor c1 is select
321: NOTES,
322: REIMBURSEMENT_NOTES,
323: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
324: from AHL_WARRANTY_CLAIMS_TL
325: where WARRANTY_CLAIM_ID = X_WARRANTY_CLAIM_ID
326: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
327: for update of WARRANTY_CLAIM_ID nowait;
328: begin
557: if (sql%notfound) then
558: raise no_data_found;
559: end if;
560:
561: update AHL_WARRANTY_CLAIMS_TL set
562: NOTES = X_NOTES,
563: REIMBURSEMENT_NOTES = X_REIMBURSEMENT_NOTES,
564: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
565: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
576: procedure DELETE_ROW (
577: X_WARRANTY_CLAIM_ID in NUMBER
578: ) is
579: begin
580: delete from AHL_WARRANTY_CLAIMS_TL
581: where WARRANTY_CLAIM_ID = X_WARRANTY_CLAIM_ID;
582:
583: if (sql%notfound) then
584: raise no_data_found;
594:
595: procedure ADD_LANGUAGE
596: is
597: begin
598: delete from AHL_WARRANTY_CLAIMS_TL T
599: where not exists
600: (select NULL
601: from AHL_WARRANTY_CLAIMS_B B
602: where B.WARRANTY_CLAIM_ID = T.WARRANTY_CLAIM_ID
601: from AHL_WARRANTY_CLAIMS_B B
602: where B.WARRANTY_CLAIM_ID = T.WARRANTY_CLAIM_ID
603: );
604:
605: update AHL_WARRANTY_CLAIMS_TL T set (
606: NOTES,
607: REIMBURSEMENT_NOTES
608: ) = (select
609: B.NOTES,
607: REIMBURSEMENT_NOTES
608: ) = (select
609: B.NOTES,
610: B.REIMBURSEMENT_NOTES
611: from AHL_WARRANTY_CLAIMS_TL B
612: where B.WARRANTY_CLAIM_ID = T.WARRANTY_CLAIM_ID
613: and B.LANGUAGE = T.SOURCE_LANG)
614: where (
615: T.WARRANTY_CLAIM_ID,
616: T.LANGUAGE
617: ) in (select
618: SUBT.WARRANTY_CLAIM_ID,
619: SUBT.LANGUAGE
620: from AHL_WARRANTY_CLAIMS_TL SUBB, AHL_WARRANTY_CLAIMS_TL SUBT
621: where SUBB.WARRANTY_CLAIM_ID = SUBT.WARRANTY_CLAIM_ID
622: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
623: and (SUBB.NOTES <> SUBT.NOTES
624: or (SUBB.NOTES is null and SUBT.NOTES is not null)
627: or (SUBB.REIMBURSEMENT_NOTES is null and SUBT.REIMBURSEMENT_NOTES is not null)
628: or (SUBB.REIMBURSEMENT_NOTES is not null and SUBT.REIMBURSEMENT_NOTES is null)
629: ));
630:
631: insert into AHL_WARRANTY_CLAIMS_TL (
632: WARRANTY_CLAIM_ID,
633: LAST_UPDATE_DATE,
634: LAST_UPDATED_BY,
635: CREATION_DATE,
649: B.NOTES,
650: B.REIMBURSEMENT_NOTES,
651: L.LANGUAGE_CODE,
652: B.SOURCE_LANG
653: from AHL_WARRANTY_CLAIMS_TL B, FND_LANGUAGES L
654: where L.INSTALLED_FLAG in ('I', 'B')
655: and B.LANGUAGE = userenv('LANG')
656: and not exists
657: (select NULL
654: where L.INSTALLED_FLAG in ('I', 'B')
655: and B.LANGUAGE = userenv('LANG')
656: and not exists
657: (select NULL
658: from AHL_WARRANTY_CLAIMS_TL T
659: where T.WARRANTY_CLAIM_ID = B.WARRANTY_CLAIM_ID
660: and T.LANGUAGE = L.LANGUAGE_CODE);
661: end ADD_LANGUAGE;
662: