DBA Data[Home] [Help]

APPS.GMD_SPECIFICATIONS_PVT dependencies on GMD_SPECIFICATIONS

Line 1: PACKAGE BODY GMD_SPECIFICATIONS_PVT AS

1: PACKAGE BODY GMD_SPECIFICATIONS_PVT AS
2: /* $Header: GMDVSPCB.pls 120.0 2005/05/25 19:41:51 appldev noship $ */
3: PROCEDURE INSERT_ROW (
4: X_ROWID IN OUT NOCOPY VARCHAR2,
5: X_SPEC_ID IN OUT NOCOPY NUMBER,

Line 58: CURSOR C IS SELECT ROWID FROM GMD_SPECIFICATIONS_B

54: X_LAST_UPDATE_DATE IN DATE,
55: X_LAST_UPDATED_BY IN NUMBER,
56: X_LAST_UPDATE_LOGIN IN NUMBER
57: ) IS
58: CURSOR C IS SELECT ROWID FROM GMD_SPECIFICATIONS_B
59: WHERE SPEC_ID = X_SPEC_ID
60: ;
61: BEGIN
62:

Line 67: INSERT INTO GMD_SPECIFICATIONS_B (

63: IF X_SPEC_ID IS NULL THEN
64: SELECT GMD_QC_SPEC_ID_S.NEXTVAL INTO X_SPEC_ID FROM DUAL;
65: END IF;
66:
67: INSERT INTO GMD_SPECIFICATIONS_B (
68: SPEC_ID,
69: SPEC_NAME,
70: SPEC_VERS,
71: INVENTORY_ITEM_ID,

Line 173: INSERT INTO GMD_SPECIFICATIONS_TL (

169: NVL(X_LAST_UPDATED_BY,FND_GLOBAL.USER_ID),
170: NVL(X_LAST_UPDATE_LOGIN,FND_GLOBAL.LOGIN_ID)
171: );
172:
173: INSERT INTO GMD_SPECIFICATIONS_TL (
174: SPEC_ID,
175: SPEC_DESC,
176: CREATION_DATE,
177: CREATED_BY,

Line 197: FROM GMD_SPECIFICATIONS_TL T

193: FROM FND_LANGUAGES L
194: WHERE L.INSTALLED_FLAG IN ('I', 'B')
195: AND NOT EXISTS
196: (SELECT NULL
197: FROM GMD_SPECIFICATIONS_TL T
198: WHERE T.SPEC_ID = X_SPEC_ID
199: AND T.LANGUAGE = L.LANGUAGE_CODE);
200:
201: OPEN c;

Line 306: FROM GMD_SPECIFICATIONS_B

302: ATTRIBUTE27,
303: ATTRIBUTE28,
304: ATTRIBUTE29,
305: ATTRIBUTE30
306: FROM GMD_SPECIFICATIONS_B
307: WHERE SPEC_ID = X_SPEC_ID
308: FOR UPDATE OF SPEC_ID NOWAIT;
309: recinfo c%ROWTYPE;
310:

Line 314: FROM GMD_SPECIFICATIONS_TL

310:
311: CURSOR c1 IS SELECT
312: SPEC_DESC,
313: DECODE(LANGUAGE, USERENV('LANG'), 'Y', 'N') BASELANG
314: FROM GMD_SPECIFICATIONS_TL
315: WHERE SPEC_ID = X_SPEC_ID
316: AND USERENV('LANG') IN (LANGUAGE, SOURCE_LANG)
317: FOR UPDATE OF SPEC_ID NOWAIT;
318: BEGIN

Line 484: UPDATE GMD_SPECIFICATIONS_B SET

480: X_LAST_UPDATED_BY IN NUMBER,
481: X_LAST_UPDATE_LOGIN IN NUMBER
482: ) IS
483: BEGIN
484: UPDATE GMD_SPECIFICATIONS_B SET
485: SPEC_NAME = X_SPEC_NAME,
486: SPEC_VERS = X_SPEC_VERS,
487: INVENTORY_ITEM_ID = X_INVENTORY_ITEM_ID,
488: REVISION = X_REVISION,

Line 539: UPDATE GMD_SPECIFICATIONS_TL SET

535: IF (SQL%NOTFOUND) THEN
536: RAISE NO_DATA_FOUND;
537: END IF;
538:
539: UPDATE GMD_SPECIFICATIONS_TL SET
540: SPEC_DESC = X_SPEC_DESC,
541: LAST_UPDATE_DATE = NVL(X_LAST_UPDATE_DATE,SYSDATE),
542: LAST_UPDATED_BY = NVL(X_LAST_UPDATED_BY,FND_GLOBAL.USER_ID),
543: LAST_UPDATE_LOGIN = NVL(X_LAST_UPDATE_LOGIN,FND_GLOBAL.LOGIN_ID),

Line 556: DELETE FROM GMD_SPECIFICATIONS_TL T

552:
553: PROCEDURE ADD_LANGUAGE
554: IS
555: BEGIN
556: DELETE FROM GMD_SPECIFICATIONS_TL T
557: WHERE NOT EXISTS
558: (SELECT NULL
559: FROM GMD_SPECIFICATIONS_B B
560: WHERE B.SPEC_ID = T.SPEC_ID

Line 559: FROM GMD_SPECIFICATIONS_B B

555: BEGIN
556: DELETE FROM GMD_SPECIFICATIONS_TL T
557: WHERE NOT EXISTS
558: (SELECT NULL
559: FROM GMD_SPECIFICATIONS_B B
560: WHERE B.SPEC_ID = T.SPEC_ID
561: );
562:
563: UPDATE GMD_SPECIFICATIONS_TL T SET (

Line 563: UPDATE GMD_SPECIFICATIONS_TL T SET (

559: FROM GMD_SPECIFICATIONS_B B
560: WHERE B.SPEC_ID = T.SPEC_ID
561: );
562:
563: UPDATE GMD_SPECIFICATIONS_TL T SET (
564: SPEC_DESC
565: ) = (SELECT
566: B.SPEC_DESC
567: FROM GMD_SPECIFICATIONS_TL B

Line 567: FROM GMD_SPECIFICATIONS_TL B

563: UPDATE GMD_SPECIFICATIONS_TL T SET (
564: SPEC_DESC
565: ) = (SELECT
566: B.SPEC_DESC
567: FROM GMD_SPECIFICATIONS_TL B
568: WHERE B.SPEC_ID = T.SPEC_ID
569: AND B.LANGUAGE = T.SOURCE_LANG)
570: WHERE (
571: T.SPEC_ID,

Line 576: FROM GMD_SPECIFICATIONS_TL SUBB, GMD_SPECIFICATIONS_TL SUBT

572: T.LANGUAGE
573: ) IN (SELECT
574: SUBT.SPEC_ID,
575: SUBT.LANGUAGE
576: FROM GMD_SPECIFICATIONS_TL SUBB, GMD_SPECIFICATIONS_TL SUBT
577: WHERE SUBB.SPEC_ID = SUBT.SPEC_ID
578: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
579: AND (SUBB.SPEC_DESC <> SUBT.SPEC_DESC
580: ));

Line 582: INSERT INTO GMD_SPECIFICATIONS_TL (

578: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
579: AND (SUBB.SPEC_DESC <> SUBT.SPEC_DESC
580: ));
581:
582: INSERT INTO GMD_SPECIFICATIONS_TL (
583: SPEC_ID,
584: SPEC_DESC,
585: CREATION_DATE,
586: CREATED_BY,

Line 602: FROM GMD_SPECIFICATIONS_TL B, FND_LANGUAGES L

598: B.LAST_UPDATE_DATE,
599: B.LAST_UPDATE_LOGIN,
600: L.LANGUAGE_CODE,
601: B.SOURCE_LANG
602: FROM GMD_SPECIFICATIONS_TL B, FND_LANGUAGES L
603: WHERE L.INSTALLED_FLAG IN ('I', 'B')
604: AND B.LANGUAGE = USERENV('LANG')
605: AND NOT EXISTS
606: (SELECT NULL

Line 607: FROM GMD_SPECIFICATIONS_TL T

603: WHERE L.INSTALLED_FLAG IN ('I', 'B')
604: AND B.LANGUAGE = USERENV('LANG')
605: AND NOT EXISTS
606: (SELECT NULL
607: FROM GMD_SPECIFICATIONS_TL T
608: WHERE T.SPEC_ID = B.SPEC_ID
609: AND T.LANGUAGE = L.LANGUAGE_CODE);
610: END ADD_LANGUAGE;
611:

Line 613: p_specifications IN gmd_specifications%ROWTYPE

609: AND T.LANGUAGE = L.LANGUAGE_CODE);
610: END ADD_LANGUAGE;
611:
612: FUNCTION fetch_row (
613: p_specifications IN gmd_specifications%ROWTYPE
614: , x_specifications OUT NOCOPY gmd_specifications%ROWTYPE
615: )
616: RETURN BOOLEAN
617: IS

Line 614: , x_specifications OUT NOCOPY gmd_specifications%ROWTYPE

610: END ADD_LANGUAGE;
611:
612: FUNCTION fetch_row (
613: p_specifications IN gmd_specifications%ROWTYPE
614: , x_specifications OUT NOCOPY gmd_specifications%ROWTYPE
615: )
616: RETURN BOOLEAN
617: IS
618: BEGIN

Line 623: FROM gmd_specifications

619:
620: IF (p_specifications.spec_id IS NOT NULL) THEN
621: SELECT *
622: INTO x_specifications
623: FROM gmd_specifications
624: WHERE spec_id = p_specifications.spec_id
625: ;
626: ELSIF ((p_specifications.spec_name IS NOT NULL) AND
627: (p_specifications.spec_vers IS NOT NULL)) THEN

Line 630: FROM gmd_specifications

626: ELSIF ((p_specifications.spec_name IS NOT NULL) AND
627: (p_specifications.spec_vers IS NOT NULL)) THEN
628: SELECT *
629: INTO x_specifications
630: FROM gmd_specifications
631: WHERE spec_name = p_specifications.spec_name
632: AND spec_vers = p_specifications.spec_vers
633: ;
634: ELSE

Line 635: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SPECIFICATIONS');

631: WHERE spec_name = p_specifications.spec_name
632: AND spec_vers = p_specifications.spec_vers
633: ;
634: ELSE
635: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SPECIFICATIONS');
636: RETURN FALSE;
637: END IF;
638:
639: RETURN TRUE;

Line 644: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SPECIFICATIONS');

640:
641: EXCEPTION
642: WHEN NO_DATA_FOUND
643: THEN
644: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SPECIFICATIONS');
645: RETURN FALSE;
646: WHEN OTHERS
647: THEN
648: fnd_msg_pub.add_exc_msg ('GMD_SPECIFICATIONS_PVT', 'FETCH_ROW');

Line 648: fnd_msg_pub.add_exc_msg ('GMD_SPECIFICATIONS_PVT', 'FETCH_ROW');

644: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SPECIFICATIONS');
645: RETURN FALSE;
646: WHEN OTHERS
647: THEN
648: fnd_msg_pub.add_exc_msg ('GMD_SPECIFICATIONS_PVT', 'FETCH_ROW');
649: RETURN FALSE;
650:
651: END fetch_row;
652:

Line 666: FROM gmd_specifications_b

662:
663: IF (p_spec_id IS NOT NULL) THEN
664: SELECT spec_id
665: INTO dummy
666: FROM gmd_specifications_b
667: WHERE spec_id = p_spec_id
668: FOR UPDATE OF spec_id NOWAIT ;
669: ELSIF (p_spec_name IS NOT NULL and p_spec_vers IS NOT NULL) THEN
670: SELECT spec_id

Line 672: FROM gmd_specifications_b

668: FOR UPDATE OF spec_id NOWAIT ;
669: ELSIF (p_spec_name IS NOT NULL and p_spec_vers IS NOT NULL) THEN
670: SELECT spec_id
671: INTO dummy
672: FROM gmd_specifications_b
673: WHERE spec_name = p_spec_name and spec_vers = p_spec_vers
674: FOR UPDATE OF spec_id NOWAIT ;
675: ELSE
676: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SPECIFICATIONS');

Line 676: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SPECIFICATIONS');

672: FROM gmd_specifications_b
673: WHERE spec_name = p_spec_name and spec_vers = p_spec_vers
674: FOR UPDATE OF spec_id NOWAIT ;
675: ELSE
676: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SPECIFICATIONS');
677: RETURN FALSE;
678: END IF;
679:
680: RETURN TRUE;

Line 685: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SPECIFICATIONS');

681:
682: EXCEPTION
683: WHEN NO_DATA_FOUND
684: THEN
685: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SPECIFICATIONS');
686: RETURN FALSE;
687: WHEN OTHERS
688: THEN
689: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SPECIFICATIONS_PVT.LOCK_ROW','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');

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

685: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SPECIFICATIONS');
686: RETURN FALSE;
687: WHEN OTHERS
688: THEN
689: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SPECIFICATIONS_PVT.LOCK_ROW','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');
690: RETURN FALSE;
691: END lock_row;
692:
693: FUNCTION mark_for_delete (

Line 707: UPDATE gmd_specifications_b

703:
704: BEGIN
705:
706: IF (p_spec_id IS NOT NULL) THEN
707: UPDATE gmd_specifications_b
708: SET delete_mark = 1,
709: last_update_date = NVL(p_last_update_date,SYSDATE),
710: last_updated_by = NVL(p_last_updated_by,FND_GLOBAL.USER_ID),
711: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)

Line 717: UPDATE gmd_specifications_b

713: IF SQL%NOTFOUND THEN
714: RAISE NO_DATA_FOUND ;
715: END IF;
716: ELSIF (p_spec_name IS NOT NULL and p_spec_vers IS NOT NULL) THEN
717: UPDATE gmd_specifications_b
718: SET delete_mark = 1,
719: last_update_date = NVL(p_last_update_date,SYSDATE),
720: last_updated_by = NVL(p_last_updated_by,FND_GLOBAL.USER_ID),
721: last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)

Line 727: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SPECIFICATIONS');

723: IF SQL%NOTFOUND THEN
724: RAISE NO_DATA_FOUND ;
725: END IF;
726: ELSE
727: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SPECIFICATIONS');
728: RETURN FALSE;
729: END IF;
730:
731: RETURN TRUE;

Line 736: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SPECIFICATIONS');

732:
733: EXCEPTION
734: WHEN NO_DATA_FOUND
735: THEN
736: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SPECIFICATIONS');
737: RETURN FALSE;
738: WHEN OTHERS
739: THEN
740: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SPECIFICATIONS_PVT.MARK_FOR_DELETE','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');

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

736: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SPECIFICATIONS');
737: RETURN FALSE;
738: WHEN OTHERS
739: THEN
740: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SPECIFICATIONS_PVT.MARK_FOR_DELETE','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');
741: RETURN FALSE;
742: END mark_for_delete;
743:
744: FUNCTION INSERT_ROW(p_spec IN OUT NOCOPY GMD_SPECIFICATIONS%ROWTYPE)

Line 744: FUNCTION INSERT_ROW(p_spec IN OUT NOCOPY GMD_SPECIFICATIONS%ROWTYPE)

740: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SPECIFICATIONS_PVT.MARK_FOR_DELETE','ERROR',SUBSTR(SQLERRM,1,100),'POSITION','010');
741: RETURN FALSE;
742: END mark_for_delete;
743:
744: FUNCTION INSERT_ROW(p_spec IN OUT NOCOPY GMD_SPECIFICATIONS%ROWTYPE)
745: RETURN BOOLEAN IS
746: l_rowid ROWID ;
747: BEGIN
748:

Line 749: GMD_Specifications_PVT.INSERT_ROW(

745: RETURN BOOLEAN IS
746: l_rowid ROWID ;
747: BEGIN
748:
749: GMD_Specifications_PVT.INSERT_ROW(
750: X_ROWID => l_rowid,
751: X_SPEC_ID => p_spec.spec_id,
752: X_SPEC_NAME => p_spec.spec_name,
753: X_SPEC_VERS => p_spec.spec_vers,

Line 807: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SPECIFICATIONS_PVT.INSERT_ROW','ERROR',

803:
804: return TRUE;
805:
806: EXCEPTION WHEN OTHERS THEN
807: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_SPECIFICATIONS_PVT.INSERT_ROW','ERROR',
808: SUBSTR(SQLERRM,1,100),'POSITION','010');
809: RETURN FALSE;
810:
811: END INSERT_ROW;

Line 812: END Gmd_Specifications_Pvt;

808: SUBSTR(SQLERRM,1,100),'POSITION','010');
809: RETURN FALSE;
810:
811: END INSERT_ROW;
812: END Gmd_Specifications_Pvt;