DBA Data[Home] [Help]

APPS.GMD_QC_TESTS_PVT dependencies on GMD_QC_TESTS

Line 1: PACKAGE BODY gmd_qc_tests_pvt AS

1: PACKAGE BODY gmd_qc_tests_pvt AS
2: /* $Header: GMDVTSTB.pls 115.8 2004/05/05 09:47:18 rboddu noship $ */
3: PROCEDURE insert_row (
4: X_ROWID in out NOCOPY ROWID,
5: X_TEST_ID in out NOCOPY NUMBER,

Line 70: CURSOR C IS SELECT ROWID FROM gmd_qc_tests_b

66: X_LAST_UPDATED_BY in NUMBER,
67: X_LAST_UPDATE_LOGIN in NUMBER,
68: X_TEST_GROUP_ORDER IN NUMBER
69: ) is
70: CURSOR C IS SELECT ROWID FROM gmd_qc_tests_b
71: WHERE TEST_ID = X_TEST_ID
72: ;
73:
74: BEGIN

Line 80: insert into GMD_QC_TESTS_B (

76: IF X_TEST_ID IS NULL THEN
77: SELECT GMD_QC_TEST_ID_S.NEXTVAL INTO X_TEST_ID FROM DUAL;
78: END IF;
79:
80: insert into GMD_QC_TESTS_B (
81: TEST_OPRN_LINE_ID,
82: TEST_PROVIDER_CODE,
83: DELETE_MARK,
84: TEXT_CODE,

Line 210: insert into GMD_QC_TESTS_TL (

206: NVL(X_LAST_UPDATE_LOGIN,FND_GLOBAL.LOGIN_ID),
207: X_TEST_GROUP_ORDER
208: );
209:
210: insert into GMD_QC_TESTS_TL (
211: TEST_ID,
212: TEST_DESC,
213: CREATION_DATE,
214: CREATED_BY,

Line 234: from GMD_QC_TESTS_TL T

230: from FND_LANGUAGES L
231: where L.INSTALLED_FLAG in ('I', 'B')
232: and not exists
233: (select NULL
234: from GMD_QC_TESTS_TL T
235: where T.TEST_ID = X_TEST_ID
236: and T.LANGUAGE = L.LANGUAGE_CODE);
237:
238: open c;

Line 248: FUNCTION INSERT_ROW(p_qc_tests_rec IN OUT NOCOPY GMD_QC_TESTS%ROWTYPE)

244: close c;
245:
246: end INSERT_ROW;
247:
248: FUNCTION INSERT_ROW(p_qc_tests_rec IN OUT NOCOPY GMD_QC_TESTS%ROWTYPE)
249: RETURN BOOLEAN IS
250: l_rowid ROWID ;
251: BEGIN
252:

Line 253: GMD_QC_TESTS_PVT.INSERT_ROW(

249: RETURN BOOLEAN IS
250: l_rowid ROWID ;
251: BEGIN
252:
253: GMD_QC_TESTS_PVT.INSERT_ROW(
254: X_ROWID => l_rowid,
255: X_TEST_ID => p_qc_tests_rec.TEST_ID,
256: X_TEST_OPRN_LINE_ID => p_qc_tests_rec.TEST_OPRN_LINE_ID,
257: X_TEST_PROVIDER_CODE => p_qc_tests_rec.TEST_PROVIDER_CODE,

Line 323: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_QC_TESTS_PVT.INSERT_ROW','ERROR',

319:
320: return TRUE;
321:
322: EXCEPTION WHEN OTHERS THEN
323: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_QC_TESTS_PVT.INSERT_ROW','ERROR',
324: SUBSTR(SQLERRM,1,100),'POSITION','010');
325: RETURN FALSE;
326:
327: END INSERT_ROW;

Line 448: from GMD_QC_TESTS_B

444: REPORT_PRECISION,
445: PRIORITY,
446: TEST_OPRN_ID,
447: TEST_GROUP_ORDER
448: from GMD_QC_TESTS_B
449: where TEST_ID = X_TEST_ID
450: for update of TEST_ID nowait;
451: recinfo c%rowtype;
452:

Line 456: from GMD_QC_TESTS_TL

452:
453: cursor c1 is select
454: TEST_DESC,
455: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
456: from GMD_QC_TESTS_TL
457: where TEST_ID = X_TEST_ID
458: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
459: for update of TEST_ID nowait;
460: BEGIN

Line 665: update GMD_QC_TESTS_B set

661: X_LAST_UPDATE_LOGIN in NUMBER,
662: X_TEST_GROUP_ORDER IN NUMBER
663: ) is
664: begin
665: update GMD_QC_TESTS_B set
666: TEST_OPRN_LINE_ID = X_TEST_OPRN_LINE_ID,
667: TEST_PROVIDER_CODE = X_TEST_PROVIDER_CODE,
668: DELETE_MARK = X_DELETE_MARK,
669: TEXT_CODE = X_TEXT_CODE,

Line 732: update GMD_QC_TESTS_TL set

728: if (sql%notfound) then
729: raise no_data_found;
730: end if;
731:
732: update GMD_QC_TESTS_TL set
733: TEST_DESC = X_TEST_DESC,
734: LAST_UPDATE_DATE = NVL(X_LAST_UPDATE_DATE,SYSDATE),
735: LAST_UPDATED_BY = NVL(X_LAST_UPDATED_BY,FND_GLOBAL.USER_ID),
736: LAST_UPDATE_LOGIN = NVL(X_LAST_UPDATE_LOGIN,FND_GLOBAL.LOGIN_ID),

Line 749: delete from GMD_QC_TESTS_TL T

745:
746: procedure ADD_LANGUAGE
747: is
748: begin
749: delete from GMD_QC_TESTS_TL T
750: where not exists
751: (select NULL
752: from GMD_QC_TESTS_B B
753: where B.TEST_ID = T.TEST_ID

Line 752: from GMD_QC_TESTS_B B

748: begin
749: delete from GMD_QC_TESTS_TL T
750: where not exists
751: (select NULL
752: from GMD_QC_TESTS_B B
753: where B.TEST_ID = T.TEST_ID
754: );
755:
756: update GMD_QC_TESTS_TL T set (

Line 756: update GMD_QC_TESTS_TL T set (

752: from GMD_QC_TESTS_B B
753: where B.TEST_ID = T.TEST_ID
754: );
755:
756: update GMD_QC_TESTS_TL T set (
757: TEST_DESC
758: ) = (select
759: B.TEST_DESC
760: from GMD_QC_TESTS_TL B

Line 760: from GMD_QC_TESTS_TL B

756: update GMD_QC_TESTS_TL T set (
757: TEST_DESC
758: ) = (select
759: B.TEST_DESC
760: from GMD_QC_TESTS_TL B
761: where B.TEST_ID = T.TEST_ID
762: and B.LANGUAGE = T.SOURCE_LANG)
763: where (
764: T.TEST_ID,

Line 769: from GMD_QC_TESTS_TL SUBB, GMD_QC_TESTS_TL SUBT

765: T.LANGUAGE
766: ) in (select
767: SUBT.TEST_ID,
768: SUBT.LANGUAGE
769: from GMD_QC_TESTS_TL SUBB, GMD_QC_TESTS_TL SUBT
770: where SUBB.TEST_ID = SUBT.TEST_ID
771: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
772: and (SUBB.TEST_DESC <> SUBT.TEST_DESC
773: ));

Line 775: insert into GMD_QC_TESTS_TL (

771: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
772: and (SUBB.TEST_DESC <> SUBT.TEST_DESC
773: ));
774:
775: insert into GMD_QC_TESTS_TL (
776: TEST_ID,
777: TEST_DESC,
778: CREATION_DATE,
779: CREATED_BY,

Line 795: from GMD_QC_TESTS_TL B, FND_LANGUAGES L

791: B.LAST_UPDATE_DATE,
792: B.LAST_UPDATE_LOGIN,
793: L.LANGUAGE_CODE,
794: B.SOURCE_LANG
795: from GMD_QC_TESTS_TL B, FND_LANGUAGES L
796: where L.INSTALLED_FLAG in ('I', 'B')
797: and B.LANGUAGE = userenv('LANG')
798: and not exists
799: (select NULL

Line 800: from GMD_QC_TESTS_TL T

796: where L.INSTALLED_FLAG in ('I', 'B')
797: and B.LANGUAGE = userenv('LANG')
798: and not exists
799: (select NULL
800: from GMD_QC_TESTS_TL T
801: where T.TEST_ID = B.TEST_ID
802: and T.LANGUAGE = L.LANGUAGE_CODE);
803: end ADD_LANGUAGE;
804:

Line 807: p_gmd_qc_tests IN gmd_qc_tests%ROWTYPE ,

803: end ADD_LANGUAGE;
804:
805:
806: FUNCTION fetch_row (
807: p_gmd_qc_tests IN gmd_qc_tests%ROWTYPE ,
808: x_gmd_qc_tests OUT NOCOPY gmd_qc_tests%ROWTYPE
809: )
810: RETURN BOOLEAN
811: IS

Line 808: x_gmd_qc_tests OUT NOCOPY gmd_qc_tests%ROWTYPE

804:
805:
806: FUNCTION fetch_row (
807: p_gmd_qc_tests IN gmd_qc_tests%ROWTYPE ,
808: x_gmd_qc_tests OUT NOCOPY gmd_qc_tests%ROWTYPE
809: )
810: RETURN BOOLEAN
811: IS
812: BEGIN

Line 815: IF (p_gmd_qc_tests.test_id IS NOT NULL) THEN

811: IS
812: BEGIN
813:
814:
815: IF (p_gmd_qc_tests.test_id IS NOT NULL) THEN
816: SELECT *
817: INTO x_gmd_qc_tests
818: FROM gmd_qc_tests
819: WHERE test_id = p_gmd_qc_tests.test_id ;

Line 817: INTO x_gmd_qc_tests

813:
814:
815: IF (p_gmd_qc_tests.test_id IS NOT NULL) THEN
816: SELECT *
817: INTO x_gmd_qc_tests
818: FROM gmd_qc_tests
819: WHERE test_id = p_gmd_qc_tests.test_id ;
820: RETURN TRUE;
821: ELSIF (p_gmd_qc_tests.test_code IS NOT NULL) THEN

Line 818: FROM gmd_qc_tests

814:
815: IF (p_gmd_qc_tests.test_id IS NOT NULL) THEN
816: SELECT *
817: INTO x_gmd_qc_tests
818: FROM gmd_qc_tests
819: WHERE test_id = p_gmd_qc_tests.test_id ;
820: RETURN TRUE;
821: ELSIF (p_gmd_qc_tests.test_code IS NOT NULL) THEN
822: SELECT *

Line 819: WHERE test_id = p_gmd_qc_tests.test_id ;

815: IF (p_gmd_qc_tests.test_id IS NOT NULL) THEN
816: SELECT *
817: INTO x_gmd_qc_tests
818: FROM gmd_qc_tests
819: WHERE test_id = p_gmd_qc_tests.test_id ;
820: RETURN TRUE;
821: ELSIF (p_gmd_qc_tests.test_code IS NOT NULL) THEN
822: SELECT *
823: INTO x_gmd_qc_tests

Line 821: ELSIF (p_gmd_qc_tests.test_code IS NOT NULL) THEN

817: INTO x_gmd_qc_tests
818: FROM gmd_qc_tests
819: WHERE test_id = p_gmd_qc_tests.test_id ;
820: RETURN TRUE;
821: ELSIF (p_gmd_qc_tests.test_code IS NOT NULL) THEN
822: SELECT *
823: INTO x_gmd_qc_tests
824: FROM gmd_qc_tests
825: WHERE test_code = p_gmd_qc_tests.test_code ;

Line 823: INTO x_gmd_qc_tests

819: WHERE test_id = p_gmd_qc_tests.test_id ;
820: RETURN TRUE;
821: ELSIF (p_gmd_qc_tests.test_code IS NOT NULL) THEN
822: SELECT *
823: INTO x_gmd_qc_tests
824: FROM gmd_qc_tests
825: WHERE test_code = p_gmd_qc_tests.test_code ;
826: RETURN TRUE;
827: ELSE

Line 824: FROM gmd_qc_tests

820: RETURN TRUE;
821: ELSIF (p_gmd_qc_tests.test_code IS NOT NULL) THEN
822: SELECT *
823: INTO x_gmd_qc_tests
824: FROM gmd_qc_tests
825: WHERE test_code = p_gmd_qc_tests.test_code ;
826: RETURN TRUE;
827: ELSE
828: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_QC_TESTS');

Line 825: WHERE test_code = p_gmd_qc_tests.test_code ;

821: ELSIF (p_gmd_qc_tests.test_code IS NOT NULL) THEN
822: SELECT *
823: INTO x_gmd_qc_tests
824: FROM gmd_qc_tests
825: WHERE test_code = p_gmd_qc_tests.test_code ;
826: RETURN TRUE;
827: ELSE
828: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_QC_TESTS');
829: RETURN FALSE;

Line 828: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_QC_TESTS');

824: FROM gmd_qc_tests
825: WHERE test_code = p_gmd_qc_tests.test_code ;
826: RETURN TRUE;
827: ELSE
828: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_QC_TESTS');
829: RETURN FALSE;
830: END IF;
831:
832:

Line 838: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_QC_TESTS');

834:
835: EXCEPTION
836: WHEN NO_DATA_FOUND
837: THEN
838: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_QC_TESTS');
839: RETURN FALSE;
840: WHEN OTHERS
841: THEN
842: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_QC_TESTS_PVT.FETCH_ROW','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');

Line 842: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_QC_TESTS_PVT.FETCH_ROW','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');

838: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_QC_TESTS');
839: RETURN FALSE;
840: WHEN OTHERS
841: THEN
842: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_QC_TESTS_PVT.FETCH_ROW','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');
843: RETURN FALSE;
844: END fetch_row;
845:
846: FUNCTION lock_row (

Line 859: FROM gmd_qc_tests_b

855:
856: IF (p_test_id IS NOT NULL) THEN
857: SELECT test_id
858: INTO dummy
859: FROM gmd_qc_tests_b
860: WHERE test_id = p_test_id
861: FOR UPDATE OF test_id NOWAIT ;
862: ELSIF (p_test_code IS NOT NULL) THEN
863: SELECT test_id

Line 865: FROM gmd_qc_tests_b

861: FOR UPDATE OF test_id NOWAIT ;
862: ELSIF (p_test_code IS NOT NULL) THEN
863: SELECT test_id
864: INTO dummy
865: FROM gmd_qc_tests_b
866: WHERE test_code = p_test_code
867: FOR UPDATE OF test_id NOWAIT ;
868: ELSE
869: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_QC_TESTS');

Line 869: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_QC_TESTS');

865: FROM gmd_qc_tests_b
866: WHERE test_code = p_test_code
867: FOR UPDATE OF test_id NOWAIT ;
868: ELSE
869: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_QC_TESTS');
870: RETURN FALSE;
871: END IF;
872:
873: RETURN TRUE;

Line 878: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_QC_TESTS');

874:
875: EXCEPTION
876: WHEN NO_DATA_FOUND
877: THEN
878: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_QC_TESTS');
879: RETURN FALSE;
880: WHEN OTHERS
881: THEN
882: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_QC_TESTS_PVT.LOCK_ROW','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');

Line 882: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_QC_TESTS_PVT.LOCK_ROW','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');

878: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_QC_TESTS');
879: RETURN FALSE;
880: WHEN OTHERS
881: THEN
882: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_QC_TESTS_PVT.LOCK_ROW','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');
883: RETURN FALSE;
884: END lock_row;
885:
886: FUNCTION mark_for_delete (

Line 899: UPDATE gmd_qc_tests_b

895:
896: BEGIN
897:
898: IF (p_test_id IS NOT NULL) THEN
899: UPDATE gmd_qc_tests_b
900: SET delete_mark = 1,
901: last_update_date = NVL(p_last_update_date,SYSDATE),
902: last_updated_by = NVL(p_last_updated_by,FND_GLOBAL.USER_ID),
903: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)

Line 909: UPDATE gmd_qc_tests_b

905: IF SQL%NOTFOUND THEN
906: RAISE NO_DATA_FOUND ;
907: END IF;
908: ELSIF (p_test_code IS NOT NULL) THEN
909: UPDATE gmd_qc_tests_b
910: SET delete_mark = 1,
911: last_update_date = NVL(p_last_update_date,SYSDATE),
912: last_updated_by = NVL(p_last_updated_by,FND_GLOBAL.USER_ID),
913: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)

Line 919: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_QC_TESTS');

915: IF SQL%NOTFOUND THEN
916: RAISE NO_DATA_FOUND ;
917: END IF;
918: ELSE
919: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_QC_TESTS');
920: RETURN FALSE;
921: END IF;
922:
923: RETURN TRUE;

Line 928: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_QC_TESTS');

924:
925: EXCEPTION
926: WHEN NO_DATA_FOUND
927: THEN
928: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_QC_TESTS');
929: RETURN FALSE;
930: WHEN OTHERS
931: THEN
932: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_QC_TESTS_PVT.MARK_FOR_DELETE','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');

Line 932: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_QC_TESTS_PVT.MARK_FOR_DELETE','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');

928: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_QC_TESTS');
929: RETURN FALSE;
930: WHEN OTHERS
931: THEN
932: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_QC_TESTS_PVT.MARK_FOR_DELETE','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');
933: RETURN FALSE;
934: END mark_for_delete;
935:
936: END gmd_qc_tests_pvt;

Line 936: END gmd_qc_tests_pvt;

932: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_QC_TESTS_PVT.MARK_FOR_DELETE','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');
933: RETURN FALSE;
934: END mark_for_delete;
935:
936: END gmd_qc_tests_pvt;