137: X_LAST_UPDATED_BY,
138: X_LAST_UPDATE_LOGIN
139: );
140:
141: insert into GMD_TEST_INTERVAL_PLANS_TL (
142: TEST_INTERVAL_PLAN_ID,
143: DESCRIPTION,
144: CREATION_DATE,
145: CREATED_BY,
161: from FND_LANGUAGES L
162: where L.INSTALLED_FLAG in ('I', 'B')
163: and not exists
164: (select NULL
165: from GMD_TEST_INTERVAL_PLANS_TL T
166: where T.TEST_INTERVAL_PLAN_ID = X_TEST_INTERVAL_PLAN_ID
167: and T.LANGUAGE = L.LANGUAGE_CODE);
168:
169: open c;
260:
261: cursor c1 is select
262: DESCRIPTION,
263: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
264: from GMD_TEST_INTERVAL_PLANS_TL
265: where TEST_INTERVAL_PLAN_ID = X_TEST_INTERVAL_PLAN_ID
266: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
267: for update of TEST_INTERVAL_PLAN_ID nowait;
268: begin
454: if (sql%notfound) then
455: raise no_data_found;
456: end if;
457:
458: update GMD_TEST_INTERVAL_PLANS_TL set
459: DESCRIPTION = X_DESCRIPTION,
460: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
461: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
462: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
472: procedure DELETE_ROW (
473: X_TEST_INTERVAL_PLAN_ID in NUMBER
474: ) is
475: begin
476: delete from GMD_TEST_INTERVAL_PLANS_TL
477: where TEST_INTERVAL_PLAN_ID = X_TEST_INTERVAL_PLAN_ID;
478:
479: if (sql%notfound) then
480: raise no_data_found;
490:
491: procedure ADD_LANGUAGE
492: is
493: begin
494: delete from GMD_TEST_INTERVAL_PLANS_TL T
495: where not exists
496: (select NULL
497: from GMD_TEST_INTERVAL_PLANS_B B
498: where B.TEST_INTERVAL_PLAN_ID = T.TEST_INTERVAL_PLAN_ID
497: from GMD_TEST_INTERVAL_PLANS_B B
498: where B.TEST_INTERVAL_PLAN_ID = T.TEST_INTERVAL_PLAN_ID
499: );
500:
501: update GMD_TEST_INTERVAL_PLANS_TL T set (
502: DESCRIPTION
503: ) = (select
504: B.DESCRIPTION
505: from GMD_TEST_INTERVAL_PLANS_TL B
501: update GMD_TEST_INTERVAL_PLANS_TL T set (
502: DESCRIPTION
503: ) = (select
504: B.DESCRIPTION
505: from GMD_TEST_INTERVAL_PLANS_TL B
506: where B.TEST_INTERVAL_PLAN_ID = T.TEST_INTERVAL_PLAN_ID
507: and B.LANGUAGE = T.SOURCE_LANG)
508: where (
509: T.TEST_INTERVAL_PLAN_ID,
510: T.LANGUAGE
511: ) in (select
512: SUBT.TEST_INTERVAL_PLAN_ID,
513: SUBT.LANGUAGE
514: from GMD_TEST_INTERVAL_PLANS_TL SUBB, GMD_TEST_INTERVAL_PLANS_TL SUBT
515: where SUBB.TEST_INTERVAL_PLAN_ID = SUBT.TEST_INTERVAL_PLAN_ID
516: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
517: and (SUBB.DESCRIPTION <> SUBT.DESCRIPTION
518: ));
516: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
517: and (SUBB.DESCRIPTION <> SUBT.DESCRIPTION
518: ));
519:
520: insert into GMD_TEST_INTERVAL_PLANS_TL (
521: TEST_INTERVAL_PLAN_ID,
522: DESCRIPTION,
523: CREATION_DATE,
524: CREATED_BY,
536: B.LAST_UPDATE_DATE,
537: B.LAST_UPDATE_LOGIN,
538: L.LANGUAGE_CODE,
539: B.SOURCE_LANG
540: from GMD_TEST_INTERVAL_PLANS_TL B, FND_LANGUAGES L
541: where L.INSTALLED_FLAG in ('I', 'B')
542: and B.LANGUAGE = userenv('LANG')
543: and not exists
544: (select NULL
541: where L.INSTALLED_FLAG in ('I', 'B')
542: and B.LANGUAGE = userenv('LANG')
543: and not exists
544: (select NULL
545: from GMD_TEST_INTERVAL_PLANS_TL T
546: where T.TEST_INTERVAL_PLAN_ID = B.TEST_INTERVAL_PLAN_ID
547: and T.LANGUAGE = L.LANGUAGE_CODE);
548: end ADD_LANGUAGE;
549: