1: PACKAGE BODY GMD_TEST_METHODS_PVT as
2: /* $Header: GMDVMTDB.pls 120.1 2006/06/16 11:28:51 rlnagara noship $ */
3:
4: PROCEDURE TRANSLATE_ROW
5: (
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),
70: X_ATTRIBUTE29 IN VARCHAR2,
71: X_ATTRIBUTE30 IN VARCHAR2,
72: X_OWNER IN VARCHAR2
73: )IS
74: cursor c1 is select * from GMD_TEST_METHODS_B where (TEST_METHOD_ID=X_TEST_METHOD_ID);
75: l_pkpresent c1%rowtype;
76: l_user_id NUMBER := 0;
77: l_sysdate DATE;
78: l_test_method_id NUMBER;
86: OPEN c1;
87: fetch c1 into l_pkpresent;
88: IF (c1%found) THEN
89:
90: UPDATE GMD_TEST_METHODS_B SET
91: TEST_METHOD_CODE = X_TEST_METHOD_CODE,
92: TEST_QTY = X_TEST_QTY,
93: TEST_QTY_UOM = X_TEST_QTY_UOM,
94: DELETE_MARK = X_DELETE_MARK ,
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,
149: userenv('LANG') in (LANGUAGE,SOURCE_LANG);
150:
151: ELSIF (c1%notfound) then
152:
153: INSERT INTO GMD_TEST_METHODS_B(
154: TEST_METHOD_ID,
155: TEST_METHOD_CODE,
156: TEST_QTY,
157: TEST_QTY_UOM,
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;
345: X_LAST_UPDATE_DATE in DATE,
346: X_LAST_UPDATED_BY in NUMBER,
347: X_LAST_UPDATE_LOGIN in NUMBER
348: ) is
349: cursor C is select ROWID from GMD_TEST_METHODS_B
350: where TEST_METHOD_ID = X_TEST_METHOD_ID
351: ;
352: begin
353: insert into GMD_TEST_METHODS_B (
349: cursor C is select ROWID from GMD_TEST_METHODS_B
350: where TEST_METHOD_ID = X_TEST_METHOD_ID
351: ;
352: begin
353: insert into GMD_TEST_METHODS_B (
354: TEST_METHOD_ID,
355: TEST_METHOD_CODE,
356: TEST_QTY,
357: TEST_QTY_UOM,
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;
592: ATTRIBUTE27,
593: ATTRIBUTE28,
594: ATTRIBUTE29,
595: ATTRIBUTE30
596: from GMD_TEST_METHODS_B
597: where TEST_METHOD_ID = X_TEST_METHOD_ID
598: for update of TEST_METHOD_ID nowait;
599: recinfo c%rowtype;
600:
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
777: X_LAST_UPDATED_BY in NUMBER,
778: X_LAST_UPDATE_LOGIN in NUMBER
779: ) is
780: begin
781: update GMD_TEST_METHODS_B set
782: TEST_METHOD_CODE = X_TEST_METHOD_CODE,
783: TEST_QTY = X_TEST_QTY,
784: TEST_QTY_UOM = X_TEST_QTY_UOM,
785: DISPLAY_PRECISION = X_DISPLAY_PRECISION,
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;
858: if (sql%notfound) then
859: raise no_data_found;
860: end if;
861:
862: delete from GMD_TEST_METHODS_B
863: where TEST_METHOD_ID = X_TEST_METHOD_ID;
864:
865: if (sql%notfound) then
866: 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
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
878: );
879:
880: update GMD_TEST_METHODS_TL T set (
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:
926: and T.LANGUAGE = L.LANGUAGE_CODE);
927: end ADD_LANGUAGE;
928:
929:
930: FUNCTION fetch_row (p_test_methods IN gmd_test_methods%ROWTYPE,
931: x_test_methods OUT NOCOPY gmd_test_methods%ROWTYPE )
932: RETURN BOOLEAN
933: IS
934: BEGIN
927: end ADD_LANGUAGE;
928:
929:
930: FUNCTION fetch_row (p_test_methods IN gmd_test_methods%ROWTYPE,
931: x_test_methods OUT NOCOPY gmd_test_methods%ROWTYPE )
932: RETURN BOOLEAN
933: IS
934: BEGIN
935:
935:
936: IF (p_test_methods.test_method_id IS NOT NULL) THEN
937: SELECT *
938: INTO x_test_methods
939: FROM gmd_test_methods
940: WHERE test_method_id = p_test_methods.test_method_id
941: ;
942: ELSIF (p_test_methods.test_method_code IS NOT NULL) THEN
943:
942: ELSIF (p_test_methods.test_method_code IS NOT NULL) THEN
943:
944: SELECT *
945: INTO x_test_methods
946: FROM gmd_test_methods
947: WHERE test_method_code = p_test_methods.test_method_code;
948: ELSE
949: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_test_methods');
950: RETURN FALSE;
945: INTO x_test_methods
946: FROM gmd_test_methods
947: WHERE test_method_code = p_test_methods.test_method_code;
948: ELSE
949: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_test_methods');
950: RETURN FALSE;
951: END IF;
952:
953: RETURN TRUE;
954:
955: EXCEPTION
956: WHEN NO_DATA_FOUND
957: THEN
958: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_test_methods');
959: RETURN FALSE;
960: WHEN OTHERS
961: THEN
962: fnd_msg_pub.add_exc_msg ('GMD_test_methods_PVT', 'FETCH_ROW');
958: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_test_methods');
959: RETURN FALSE;
960: WHEN OTHERS
961: THEN
962: fnd_msg_pub.add_exc_msg ('GMD_test_methods_PVT', 'FETCH_ROW');
963: RETURN FALSE;
964:
965: END fetch_row;
966: END gmd_test_methods_pvt;
962: fnd_msg_pub.add_exc_msg ('GMD_test_methods_PVT', 'FETCH_ROW');
963: RETURN FALSE;
964:
965: END fetch_row;
966: END gmd_test_methods_pvt;