DBA Data[Home] [Help]

APPS.QA_PLANS_PUB dependencies on QA_PLANS

Line 1: PACKAGE BODY qa_plans_pub AS

1: PACKAGE BODY qa_plans_pub AS
2: /* $Header: qltpplnb.plb 120.9.12010000.1 2008/07/25 09:22:03 appldev ship $ */
3:
4:
5: -- Start of comments

Line 6: -- API name : qa_plans_pub

2: /* $Header: qltpplnb.plb 120.9.12010000.1 2008/07/25 09:22:03 appldev ship $ */
3:
4:
5: -- Start of comments
6: -- API name : qa_plans_pub
7: -- Type : Public
8: -- End of comments
9:
10:

Line 17: g_pkg_name CONSTANT VARCHAR2(30) := 'qa_plans_pub';

13:
14: -- global variables section
15:
16:
17: g_pkg_name CONSTANT VARCHAR2(30) := 'qa_plans_pub';
18: g_max_char_columns CONSTANT NUMBER := qltninrb.res_char_columns;
19:
20: --
21: -- Safe globals.

Line 169: RETURN nvl(qa_plans_api.plan_id(p_name), -1);

165: -- the plan ID, if not return -1.
166: --
167: BEGIN
168:
169: RETURN nvl(qa_plans_api.plan_id(p_name), -1);
170:
171: END plan_exists;
172:
173:

Line 1063: l_plan_name qa_plans.name%TYPE;

1059: p_to_org_id IN NUMBER,
1060: p_user_id IN NUMBER)
1061: RETURN NUMBER IS
1062:
1063: l_plan_name qa_plans.name%TYPE;
1064: l_plan_view qa_plans.view_name%TYPE;
1065: l_import_view qa_plans.import_view_name%TYPE;
1066: l_to_plan_id NUMBER;
1067:

Line 1064: l_plan_view qa_plans.view_name%TYPE;

1060: p_user_id IN NUMBER)
1061: RETURN NUMBER IS
1062:
1063: l_plan_name qa_plans.name%TYPE;
1064: l_plan_view qa_plans.view_name%TYPE;
1065: l_import_view qa_plans.import_view_name%TYPE;
1066: l_to_plan_id NUMBER;
1067:
1068: BEGIN

Line 1065: l_import_view qa_plans.import_view_name%TYPE;

1061: RETURN NUMBER IS
1062:
1063: l_plan_name qa_plans.name%TYPE;
1064: l_plan_view qa_plans.view_name%TYPE;
1065: l_import_view qa_plans.import_view_name%TYPE;
1066: l_to_plan_id NUMBER;
1067:
1068: BEGIN
1069:

Line 1078: -- Create a new plan header in qa_plans table.

1074: l_to_plan_id := plan_exists(l_plan_name);
1075:
1076: IF l_to_plan_id = -1 THEN
1077: --
1078: -- Create a new plan header in qa_plans table.
1079: --
1080: SELECT qa_plans_s.nextval INTO l_to_plan_id FROM dual;
1081:
1082: l_plan_view := get_plan_view_name(l_plan_name);

Line 1080: SELECT qa_plans_s.nextval INTO l_to_plan_id FROM dual;

1076: IF l_to_plan_id = -1 THEN
1077: --
1078: -- Create a new plan header in qa_plans table.
1079: --
1080: SELECT qa_plans_s.nextval INTO l_to_plan_id FROM dual;
1081:
1082: l_plan_view := get_plan_view_name(l_plan_name);
1083: l_import_view := get_import_view_name(l_plan_name);
1084:

Line 1100: INSERT INTO qa_plans(

1096:
1097: -- 12.1 QWB Usability Improvements Project
1098: -- Added the Multirow flag column
1099: -- ntungare
1100: INSERT INTO qa_plans(
1101: plan_id,
1102: organization_id,
1103: last_update_date,
1104: last_updated_by,

Line 1140: FROM qa_plans

1136: template_plan_id,
1137: esig_mode,
1138: instructions,
1139: multirow_flag
1140: FROM qa_plans
1141: WHERE plan_id = p_from_plan_id;
1142:
1143: END IF;
1144:

Line 2403: DELETE FROM qa_plans

2399: PROCEDURE delete_plan_header(p_plan_id IN NUMBER) IS
2400:
2401: BEGIN
2402:
2403: DELETE FROM qa_plans
2404: WHERE plan_id = p_plan_id;
2405:
2406: END delete_plan_header;
2407:

Line 2498: p_spec_assignment_type IN NUMBER := qa_plans_pub.g_spec_type_none,

2494: p_plan_type IN VARCHAR2,
2495: p_description IN VARCHAR2 := NULL,
2496: p_effective_from IN DATE := sysdate,
2497: p_effective_to IN DATE := NULL,
2498: p_spec_assignment_type IN NUMBER := qa_plans_pub.g_spec_type_none,
2499: p_multirow_flag IN NUMBER := 2,
2500: x_plan_id OUT NOCOPY NUMBER,
2501: x_msg_count OUT NOCOPY NUMBER,
2502: x_msg_data OUT NOCOPY VARCHAR2,

Line 2511: l_plan_name qa_plans.name%TYPE;

2507:
2508: l_org_id NUMBER;
2509: l_user_id NUMBER;
2510: l_plan_type_code VARCHAR2(30);
2511: l_plan_name qa_plans.name%TYPE;
2512: l_plan_view qa_plans.view_name%TYPE;
2513: l_import_view qa_plans.import_view_name%TYPE;
2514:
2515: BEGIN

Line 2512: l_plan_view qa_plans.view_name%TYPE;

2508: l_org_id NUMBER;
2509: l_user_id NUMBER;
2510: l_plan_type_code VARCHAR2(30);
2511: l_plan_name qa_plans.name%TYPE;
2512: l_plan_view qa_plans.view_name%TYPE;
2513: l_import_view qa_plans.import_view_name%TYPE;
2514:
2515: BEGIN
2516:

Line 2513: l_import_view qa_plans.import_view_name%TYPE;

2509: l_user_id NUMBER;
2510: l_plan_type_code VARCHAR2(30);
2511: l_plan_name qa_plans.name%TYPE;
2512: l_plan_view qa_plans.view_name%TYPE;
2513: l_import_view qa_plans.import_view_name%TYPE;
2514:
2515: BEGIN
2516:
2517: -- Standard Start of API savepoint

Line 2559: l_org_id := qa_plans_api.get_org_id(p_organization_code);

2555: fnd_msg_pub.add();
2556: raise fnd_api.g_exc_error;
2557: END IF;
2558:
2559: l_org_id := qa_plans_api.get_org_id(p_organization_code);
2560: IF (l_org_id IS NULL) THEN
2561: fnd_message.set_name('QA', 'QA_API_INVALID_ORG_CODE');
2562: fnd_msg_pub.add();
2563: raise fnd_api.g_exc_error;

Line 2593: SELECT qa_plans_s.nextval INTO x_plan_id FROM dual;

2589:
2590: l_plan_view := get_plan_view_name(l_plan_name);
2591: l_import_view := get_import_view_name(l_plan_name);
2592:
2593: SELECT qa_plans_s.nextval INTO x_plan_id FROM dual;
2594:
2595: INSERT INTO qa_plans(
2596: plan_id,
2597: organization_id,

Line 2595: INSERT INTO qa_plans(

2591: l_import_view := get_import_view_name(l_plan_name);
2592:
2593: SELECT qa_plans_s.nextval INTO x_plan_id FROM dual;
2594:
2595: INSERT INTO qa_plans(
2596: plan_id,
2597: organization_id,
2598: last_update_date,
2599: last_updated_by,

Line 2758: l_plan_id := qa_plans_api.plan_id(upper(p_plan_name));

2754: fnd_msg_pub.add();
2755: raise fnd_api.g_exc_error;
2756: END IF;
2757:
2758: l_plan_id := qa_plans_api.plan_id(upper(p_plan_name));
2759: IF (l_plan_id IS NULL) THEN
2760: fnd_message.set_name('QA', 'QA_API_INVALID_PLAN');
2761: fnd_msg_pub.add();
2762: raise fnd_api.g_exc_error;

Line 2999: l_plan_name qa_plans.name%TYPE;

2995: l_api_version CONSTANT NUMBER := 1.0;
2996:
2997: l_user_id NUMBER;
2998: l_plan_id NUMBER;
2999: l_plan_name qa_plans.name%TYPE;
3000:
3001: BEGIN
3002:
3003: -- Standard Start of API savepoint

Line 3031: l_plan_id := qa_plans_api.plan_id(l_plan_name);

3027: raise fnd_api.g_exc_error;
3028: END IF;
3029:
3030: l_plan_name := upper(p_plan_name);
3031: l_plan_id := qa_plans_api.plan_id(l_plan_name);
3032: IF (l_plan_id IS NULL) THEN
3033: fnd_message.set_name('QA', 'QA_API_INVALID_PLAN');
3034: fnd_msg_pub.add();
3035: raise fnd_api.g_exc_error;

Line 3106: l_to_plan_name qa_plans.name%TYPE;

3102: l_api_version CONSTANT NUMBER := 1.0;
3103:
3104: l_user_id NUMBER;
3105: l_from_plan_id NUMBER;
3106: l_to_plan_name qa_plans.name%TYPE;
3107: l_to_org_id NUMBER;
3108:
3109: BEGIN
3110:

Line 3143: l_from_plan_id := qa_plans_api.plan_id(p_plan_name);

3139: -- An unusual case for copy plan. The template plans have
3140: -- mixed case, but all regular plans have upper case. So,
3141: -- try them both.
3142: --
3143: l_from_plan_id := qa_plans_api.plan_id(p_plan_name);
3144: IF (l_from_plan_id IS NULL) THEN
3145: l_from_plan_id := qa_plans_api.plan_id(upper(p_plan_name));
3146: IF (l_from_plan_id IS NULL) THEN
3147: fnd_message.set_name('QA', 'QA_API_INVALID_PLAN');

Line 3145: l_from_plan_id := qa_plans_api.plan_id(upper(p_plan_name));

3141: -- try them both.
3142: --
3143: l_from_plan_id := qa_plans_api.plan_id(p_plan_name);
3144: IF (l_from_plan_id IS NULL) THEN
3145: l_from_plan_id := qa_plans_api.plan_id(upper(p_plan_name));
3146: IF (l_from_plan_id IS NULL) THEN
3147: fnd_message.set_name('QA', 'QA_API_INVALID_PLAN');
3148: fnd_msg_pub.add();
3149: raise fnd_api.g_exc_error;

Line 3160: l_to_org_id := qa_plans_api.get_org_id(p_to_organization_code);

3156: fnd_msg_pub.add();
3157: raise fnd_api.g_exc_error;
3158: END IF;
3159:
3160: l_to_org_id := qa_plans_api.get_org_id(p_to_organization_code);
3161: IF (l_to_org_id IS NULL) THEN
3162: fnd_message.set_name('QA', 'QA_API_INVALID_ORG_CODE');
3163: fnd_msg_pub.add();
3164: raise fnd_api.g_exc_error;

Line 3265: l_plan_name qa_plans.name%TYPE;

3261: l_user_id NUMBER;
3262: l_plan_id NUMBER;
3263: l_element_id NUMBER;
3264: l_org_id NUMBER;
3265: l_plan_name qa_plans.name%TYPE;
3266:
3267:
3268: BEGIN
3269:

Line 3298: l_plan_id := qa_plans_api.plan_id(l_plan_name);

3294: raise fnd_api.g_exc_error;
3295: END IF;
3296:
3297: l_plan_name := upper(p_plan_name);
3298: l_plan_id := qa_plans_api.plan_id(l_plan_name);
3299: IF (l_plan_id IS NULL) THEN
3300: fnd_message.set_name('QA', 'QA_API_INVALID_PLAN');
3301: fnd_msg_pub.add();
3302: RAISE fnd_api.g_exc_error;

Line 3385: l_plan_name qa_plans.name%TYPE;

3381:
3382: l_user_id NUMBER;
3383: l_plan_id NUMBER;
3384: l_org_id NUMBER;
3385: l_plan_name qa_plans.name%TYPE;
3386:
3387: BEGIN
3388:
3389: -- Standard Start of API savepoint

Line 3418: l_plan_id := qa_plans_api.plan_id(l_plan_name);

3414: raise fnd_api.g_exc_error;
3415: END IF;
3416:
3417: l_plan_name := upper(p_plan_name);
3418: l_plan_id := qa_plans_api.plan_id(l_plan_name);
3419: IF l_plan_id IS NULL THEN
3420: fnd_message.set_name('QA', 'QA_API_INVALID_PLAN');
3421: fnd_msg_pub.add();
3422: raise fnd_api.g_exc_error;

Line 3496: END qa_plans_pub;

3492: RETURN ret_val;
3493:
3494: END get_plan_type;
3495:
3496: END qa_plans_pub;
3497: