DBA Data[Home] [Help]

APPS.GMD_SAMPLING_PLANS_PVT dependencies on GMD_SAMPLING_PLANS

Line 1: package body GMD_SAMPLING_PLANS_PVT as

1: package body GMD_SAMPLING_PLANS_PVT as
2: /* $Header: GMDVSPNB.pls 120.0 2005/05/25 19:56:00 appldev noship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_SAMPLING_PLAN_ID in NUMBER,

Line 57: cursor C is select ROWID from GMD_SAMPLING_PLANS_B

53: X_LAST_UPDATE_DATE in DATE,
54: X_LAST_UPDATED_BY in NUMBER,
55: X_LAST_UPDATE_LOGIN in NUMBER
56: ) is
57: cursor C is select ROWID from GMD_SAMPLING_PLANS_B
58: where SAMPLING_PLAN_ID = X_SAMPLING_PLAN_ID
59: ;
60: begin
61: insert into GMD_SAMPLING_PLANS_B (

Line 61: insert into GMD_SAMPLING_PLANS_B (

57: cursor C is select ROWID from GMD_SAMPLING_PLANS_B
58: where SAMPLING_PLAN_ID = X_SAMPLING_PLAN_ID
59: ;
60: begin
61: insert into GMD_SAMPLING_PLANS_B (
62: ATTRIBUTE28,
63: ATTRIBUTE29,
64: ATTRIBUTE30,
65: ATTRIBUTE7,

Line 165: insert into GMD_SAMPLING_PLANS_TL (

161: X_LAST_UPDATED_BY,
162: X_LAST_UPDATE_LOGIN
163: );
164:
165: insert into GMD_SAMPLING_PLANS_TL (
166: SAMPLING_PLAN_ID,
167: LAST_UPDATE_DATE,
168: LAST_UPDATE_LOGIN,
169: SAMPLING_PLAN_DESC,

Line 189: from GMD_SAMPLING_PLANS_TL T

185: from FND_LANGUAGES L
186: where L.INSTALLED_FLAG in ('I', 'B')
187: and not exists
188: (select NULL
189: from GMD_SAMPLING_PLANS_TL T
190: where T.SAMPLING_PLAN_ID = X_SAMPLING_PLAN_ID
191: and T.LANGUAGE = L.LANGUAGE_CODE);
192:
193: open c;

Line 296: from GMD_SAMPLING_PLANS_B

292: ATTRIBUTE3,
293: ATTRIBUTE4,
294: ATTRIBUTE5,
295: ATTRIBUTE6
296: from GMD_SAMPLING_PLANS_B
297: where SAMPLING_PLAN_ID = X_SAMPLING_PLAN_ID
298: for update of SAMPLING_PLAN_ID nowait;
299: recinfo c%rowtype;
300:

Line 304: from GMD_SAMPLING_PLANS_TL

300:
301: cursor c1 is select
302: SAMPLING_PLAN_DESC,
303: decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
304: from GMD_SAMPLING_PLANS_TL
305: where SAMPLING_PLAN_ID = X_SAMPLING_PLAN_ID
306: and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
307: for update of SAMPLING_PLAN_ID nowait;
308: begin

Line 476: update GMD_SAMPLING_PLANS_B set

472: X_LAST_UPDATED_BY in NUMBER,
473: X_LAST_UPDATE_LOGIN in NUMBER
474: ) is
475: begin
476: update GMD_SAMPLING_PLANS_B set
477: ATTRIBUTE28 = X_ATTRIBUTE28,
478: ATTRIBUTE29 = X_ATTRIBUTE29,
479: ATTRIBUTE30 = X_ATTRIBUTE30,
480: ATTRIBUTE7 = X_ATTRIBUTE7,

Line 530: update GMD_SAMPLING_PLANS_TL set

526: if (sql%notfound) then
527: raise no_data_found;
528: end if;
529:
530: update GMD_SAMPLING_PLANS_TL set
531: SAMPLING_PLAN_DESC = X_SAMPLING_PLAN_DESC,
532: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
533: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
534: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,

Line 548: delete from GMD_SAMPLING_PLANS_TL

544: procedure DELETE_ROW (
545: X_SAMPLING_PLAN_ID in NUMBER
546: ) is
547: begin
548: delete from GMD_SAMPLING_PLANS_TL
549: where SAMPLING_PLAN_ID = X_SAMPLING_PLAN_ID;
550:
551: if (sql%notfound) then
552: raise no_data_found;

Line 555: delete from GMD_SAMPLING_PLANS_B

551: if (sql%notfound) then
552: raise no_data_found;
553: end if;
554:
555: delete from GMD_SAMPLING_PLANS_B
556: where SAMPLING_PLAN_ID = X_SAMPLING_PLAN_ID;
557:
558: if (sql%notfound) then
559: raise no_data_found;

Line 566: delete from GMD_SAMPLING_PLANS_TL T

562:
563: procedure ADD_LANGUAGE
564: is
565: begin
566: delete from GMD_SAMPLING_PLANS_TL T
567: where not exists
568: (select NULL
569: from GMD_SAMPLING_PLANS_B B
570: where B.SAMPLING_PLAN_ID = T.SAMPLING_PLAN_ID

Line 569: from GMD_SAMPLING_PLANS_B B

565: begin
566: delete from GMD_SAMPLING_PLANS_TL T
567: where not exists
568: (select NULL
569: from GMD_SAMPLING_PLANS_B B
570: where B.SAMPLING_PLAN_ID = T.SAMPLING_PLAN_ID
571: );
572:
573: update GMD_SAMPLING_PLANS_TL T set (

Line 573: update GMD_SAMPLING_PLANS_TL T set (

569: from GMD_SAMPLING_PLANS_B B
570: where B.SAMPLING_PLAN_ID = T.SAMPLING_PLAN_ID
571: );
572:
573: update GMD_SAMPLING_PLANS_TL T set (
574: SAMPLING_PLAN_DESC
575: ) = (select
576: B.SAMPLING_PLAN_DESC
577: from GMD_SAMPLING_PLANS_TL B

Line 577: from GMD_SAMPLING_PLANS_TL B

573: update GMD_SAMPLING_PLANS_TL T set (
574: SAMPLING_PLAN_DESC
575: ) = (select
576: B.SAMPLING_PLAN_DESC
577: from GMD_SAMPLING_PLANS_TL B
578: where B.SAMPLING_PLAN_ID = T.SAMPLING_PLAN_ID
579: and B.LANGUAGE = T.SOURCE_LANG)
580: where (
581: T.SAMPLING_PLAN_ID,

Line 586: from GMD_SAMPLING_PLANS_TL SUBB, GMD_SAMPLING_PLANS_TL SUBT

582: T.LANGUAGE
583: ) in (select
584: SUBT.SAMPLING_PLAN_ID,
585: SUBT.LANGUAGE
586: from GMD_SAMPLING_PLANS_TL SUBB, GMD_SAMPLING_PLANS_TL SUBT
587: where SUBB.SAMPLING_PLAN_ID = SUBT.SAMPLING_PLAN_ID
588: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
589: and (SUBB.SAMPLING_PLAN_DESC <> SUBT.SAMPLING_PLAN_DESC
590: ));

Line 592: insert into GMD_SAMPLING_PLANS_TL (

588: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
589: and (SUBB.SAMPLING_PLAN_DESC <> SUBT.SAMPLING_PLAN_DESC
590: ));
591:
592: insert into GMD_SAMPLING_PLANS_TL (
593: SAMPLING_PLAN_ID,
594: LAST_UPDATE_DATE,
595: LAST_UPDATE_LOGIN,
596: SAMPLING_PLAN_DESC,

Line 612: from GMD_SAMPLING_PLANS_TL B, FND_LANGUAGES L

608: B.CREATED_BY,
609: B.LAST_UPDATED_BY,
610: L.LANGUAGE_CODE,
611: B.SOURCE_LANG
612: from GMD_SAMPLING_PLANS_TL B, FND_LANGUAGES L
613: where L.INSTALLED_FLAG in ('I', 'B')
614: and B.LANGUAGE = userenv('LANG')
615: and not exists
616: (select NULL

Line 617: from GMD_SAMPLING_PLANS_TL T

613: where L.INSTALLED_FLAG in ('I', 'B')
614: and B.LANGUAGE = userenv('LANG')
615: and not exists
616: (select NULL
617: from GMD_SAMPLING_PLANS_TL T
618: where T.SAMPLING_PLAN_ID = B.SAMPLING_PLAN_ID
619: and T.LANGUAGE = L.LANGUAGE_CODE);
620: end ADD_LANGUAGE;
621:

Line 622: FUNCTION fetch_row (p_sampling_plan IN gmd_sampling_plans%ROWTYPE,

618: where T.SAMPLING_PLAN_ID = B.SAMPLING_PLAN_ID
619: and T.LANGUAGE = L.LANGUAGE_CODE);
620: end ADD_LANGUAGE;
621:
622: FUNCTION fetch_row (p_sampling_plan IN gmd_sampling_plans%ROWTYPE,
623: x_sampling_plan OUT NOCOPY gmd_sampling_plans%ROWTYPE )
624: RETURN BOOLEAN
625: IS
626: BEGIN

Line 623: x_sampling_plan OUT NOCOPY gmd_sampling_plans%ROWTYPE )

619: and T.LANGUAGE = L.LANGUAGE_CODE);
620: end ADD_LANGUAGE;
621:
622: FUNCTION fetch_row (p_sampling_plan IN gmd_sampling_plans%ROWTYPE,
623: x_sampling_plan OUT NOCOPY gmd_sampling_plans%ROWTYPE )
624: RETURN BOOLEAN
625: IS
626: BEGIN
627: IF (p_sampling_plan.sampling_plan_id IS NOT NULL) THEN

Line 630: FROM gmd_sampling_plans

626: BEGIN
627: IF (p_sampling_plan.sampling_plan_id IS NOT NULL) THEN
628: SELECT *
629: INTO x_sampling_plan
630: FROM gmd_sampling_plans
631: WHERE sampling_plan_id = p_sampling_plan.sampling_plan_id;
632: ELSIF (p_sampling_plan.sampling_plan_name IS NOT NULL) THEN
633:
634: SELECT *

Line 636: FROM gmd_sampling_plans

632: ELSIF (p_sampling_plan.sampling_plan_name IS NOT NULL) THEN
633:
634: SELECT *
635: INTO x_sampling_plan
636: FROM gmd_sampling_plans
637: WHERE sampling_plan_name = p_sampling_plan.sampling_plan_name;
638: ELSE
639: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SAMPLING_PLANS');
640: RETURN FALSE;

Line 639: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SAMPLING_PLANS');

635: INTO x_sampling_plan
636: FROM gmd_sampling_plans
637: WHERE sampling_plan_name = p_sampling_plan.sampling_plan_name;
638: ELSE
639: gmd_api_pub.log_message('GMD_NO_KEYS','TABLE_NAME', 'GMD_SAMPLING_PLANS');
640: RETURN FALSE;
641: END IF;
642:
643: RETURN TRUE;

Line 648: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SAMPLING_PLANS');

644:
645: EXCEPTION
646: WHEN NO_DATA_FOUND
647: THEN
648: gmd_api_pub.log_message('GMD_NO_DATA_FOUND','TABLE_NAME', 'GMD_SAMPLING_PLANS');
649: RETURN FALSE;
650: WHEN OTHERS
651: THEN
652: fnd_msg_pub.add_exc_msg ('GMD_SAMPLING_PLAN_PVT', 'FETCH_ROW');

Line 657: end GMD_SAMPLING_PLANS_PVT;

653: RETURN FALSE;
654:
655: END fetch_row;
656:
657: end GMD_SAMPLING_PLANS_PVT;