7: X_TEST_METHOD_DESC IN VARCHAR2,
8: X_OWNER IN VARCHAR2
9: ) IS
10: BEGIN
11: UPDATE GMD_TEST_METHODS_TL SET
12: TEST_METHOD_ID = X_TEST_METHOD_ID,
13: TEST_METHOD_DESC = X_TEST_METHOD_DESC,
14: LAST_UPDATE_DATE = sysdate,
15: LAST_UPDATED_BY = Decode(X_OWNER, 'SEED', 1, 0),
138: LAST_UPDATED_BY = l_user_id,
139: LAST_UPDATE_LOGIN = 0
140: WHERE TEST_METHOD_ID = X_TEST_METHOD_ID;
141:
142: UPDATE GMD_TEST_METHODS_TL SET
143: TEST_METHOD_DESC = X_TEST_METHOD_DESC,
144: LAST_UPDATE_DATE = l_sysdate,
145: LAST_UPDATED_BY = l_user_id,
146: LAST_UPDATE_LOGIN = 0,
256: l_sysdate,
257: l_user_id,
258: 0);
259:
260: INSERT into GMD_TEST_METHODS_TL(
261: TEST_METHOD_ID,
262: TEST_METHOD_DESC,
263: CREATION_DATE,
264: CREATED_BY,
279: userenv('LANG')
280: FROM FND_LANGUAGES L
281: WHERE L.INSTALLED_FLAG in ('I','B') and not exists
282: (select NULL
283: from GMD_TEST_METHODS_TL T
284: where T.TEST_METHOD_ID = X_TEST_METHOD_ID
285: and T.LANGUAGE = L.LANGUAGE_CODE);
286:
287: END IF;
457: X_LAST_UPDATED_BY,
458: X_LAST_UPDATE_LOGIN
459: );
460:
461: insert into GMD_TEST_METHODS_TL (
462: TEST_METHOD_ID,
463: TEST_METHOD_DESC,
464: CREATION_DATE,
465: CREATED_BY,
481: from FND_LANGUAGES L
482: where L.INSTALLED_FLAG in ('I', 'B')
483: and not exists
484: (select NULL
485: from GMD_TEST_METHODS_TL T
486: where T.TEST_METHOD_ID = X_TEST_METHOD_ID
487: and T.LANGUAGE = L.LANGUAGE_CODE);
488:
489: open c;
600:
601: cursor c1 is select
602: TEST_METHOD_DESC,
603: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
604: from GMD_TEST_METHODS_TL
605: where TEST_METHOD_ID = X_TEST_METHOD_ID
606: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
607: for update of TEST_METHOD_ID nowait;
608: begin
833: if (sql%notfound) then
834: raise no_data_found;
835: end if;
836:
837: update GMD_TEST_METHODS_TL set
838: TEST_METHOD_DESC = X_TEST_METHOD_DESC,
839: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
840: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
841: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
851: procedure DELETE_ROW (
852: X_TEST_METHOD_ID in NUMBER
853: ) is
854: begin
855: delete from GMD_TEST_METHODS_TL
856: where TEST_METHOD_ID = X_TEST_METHOD_ID;
857:
858: if (sql%notfound) then
859: raise no_data_found;
869:
870: procedure ADD_LANGUAGE
871: is
872: begin
873: delete from GMD_TEST_METHODS_TL T
874: where not exists
875: (select NULL
876: from GMD_TEST_METHODS_B B
877: where B.TEST_METHOD_ID = T.TEST_METHOD_ID
876: from GMD_TEST_METHODS_B B
877: where B.TEST_METHOD_ID = T.TEST_METHOD_ID
878: );
879:
880: update GMD_TEST_METHODS_TL T set (
881: TEST_METHOD_DESC
882: ) = (select
883: B.TEST_METHOD_DESC
884: from GMD_TEST_METHODS_TL B
880: update GMD_TEST_METHODS_TL T set (
881: TEST_METHOD_DESC
882: ) = (select
883: B.TEST_METHOD_DESC
884: from GMD_TEST_METHODS_TL B
885: where B.TEST_METHOD_ID = T.TEST_METHOD_ID
886: and B.LANGUAGE = T.SOURCE_LANG)
887: where (
888: T.TEST_METHOD_ID,
889: T.LANGUAGE
890: ) in (select
891: SUBT.TEST_METHOD_ID,
892: SUBT.LANGUAGE
893: from GMD_TEST_METHODS_TL SUBB, GMD_TEST_METHODS_TL SUBT
894: where SUBB.TEST_METHOD_ID = SUBT.TEST_METHOD_ID
895: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
896: and (SUBB.TEST_METHOD_DESC <> SUBT.TEST_METHOD_DESC
897: ));
895: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
896: and (SUBB.TEST_METHOD_DESC <> SUBT.TEST_METHOD_DESC
897: ));
898:
899: insert into GMD_TEST_METHODS_TL (
900: TEST_METHOD_ID,
901: TEST_METHOD_DESC,
902: CREATION_DATE,
903: CREATED_BY,
915: B.LAST_UPDATE_DATE,
916: B.LAST_UPDATE_LOGIN,
917: L.LANGUAGE_CODE,
918: B.SOURCE_LANG
919: from GMD_TEST_METHODS_TL B, FND_LANGUAGES L
920: where L.INSTALLED_FLAG in ('I', 'B')
921: and B.LANGUAGE = userenv('LANG')
922: and not exists
923: (select NULL
920: where L.INSTALLED_FLAG in ('I', 'B')
921: and B.LANGUAGE = userenv('LANG')
922: and not exists
923: (select NULL
924: from GMD_TEST_METHODS_TL T
925: where T.TEST_METHOD_ID = B.TEST_METHOD_ID
926: and T.LANGUAGE = L.LANGUAGE_CODE);
927: end ADD_LANGUAGE;
928: