[Home] [Help]
1: PACKAGE BODY PA_CI_IMPACT_TYPE_USAGE_pvt AS
2: /* $Header: PACIIMVB.pls 115.2 2002/11/23 19:22:56 syao noship $ */
3:
4: PROCEDURE create_ci_impact_type_usage (
5: p_api_version IN NUMBER := 1.0,
25: l_rowid VARCHAR2(30);
26: CURSOR check_exists is
27: SELECT 'Y' FROM dual
28: WHERE exists (SELECT ci_impact_type_usage_id FROM
29: pa_ci_impact_type_usage
30: WHERE ci_type_class_code = p_ci_type_class_code
31: AND ci_type_id = p_ci_type_id
32: AND impact_type_code = p_impact_type_code);
33:
33:
34: l_dummy VARCHAR2(1);
35:
36: BEGIN
37: pa_debug.set_err_stack ('PA_CI_IMPACT_TYPE_USAGE_PVT.CREATE_CI_IMPACT_TYPE_USAGE');
38:
39: IF p_commit = 'T' THEN
40: SAVEPOINT create_ci_impact_type_usage;
41: END IF;
60: END IF;
61: CLOSE check_exists;
62:
63: IF (p_validate_only <> 'T' AND x_return_status = 'S') THEN
64: PA_CI_IMPACT_TYPE_USAGE_pkg.insert_row(
65: x_rowid => l_rowid,
66: x_ci_impact_type_usage_id => x_ci_impact_type_usage_id,
67: x_impact_type_code => p_impact_type_code,
68: x_ci_type_class_code => p_ci_type_class_code,
93: ROLLBACK TO create_ci_impact_type_usage;
94: END IF;
95:
96: x_return_status := 'U';
97: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_CI_IMPACT_TYPE_USAGE_PVT',
98: p_procedure_name => 'CREATE_CI_IMPACT_TYPE_USAGE',
99: p_error_text => SUBSTRB(SQLERRM,1,240));
100:
101: fnd_msg_pub.count_and_get(p_count => x_msg_count,
121: l_temp VARCHAR2(1);
122: CURSOR check_exists is
123: SELECT 'Y' FROM dual
124: WHERE exists (SELECT ci_impact_type_usage_id FROM
125: pa_ci_impact_type_usage
126: WHERE ci_impact_type_usage_id = p_ci_impact_type_usage_id
127: );
128:
129:
128:
129:
130: l_dummy VARCHAR2(1);
131: BEGIN
132: pa_debug.set_err_stack ('PA_CI_IMPACT_TYPE_USAGE_PVT.DELETE_CI_IMPACT_TYPE_USAGE');
133:
134: IF p_commit = 'T' THEN
135: SAVEPOINT delete_ci_impact_type_usage;
136: END IF;
162: IF p_ci_type_id IS NOT NULL
163: AND p_impact_type_code IS NOT NULL
164: THEN
165:
166: l_dummy := pa_ci_impact_type_usage_pub.delete_impact_type_usage_ok
167: (p_impact_type_code, p_ci_type_id);
168:
169: IF l_dummy = 'N' THEN
170: PA_UTILS.Add_Message( p_app_short_name => 'PA'
178: END IF;
179:
180:
181: IF (p_validate_only <> 'T' AND x_return_status = 'S') THEN
182: PA_CI_IMPACT_TYPE_USAGE_pkg.delete_row(
183: x_ci_impact_type_usage_id => p_ci_impact_type_usage_id);
184: END IF;
185:
186:
215:
216:
217:
218:
219: END PA_CI_IMPACT_TYPE_USAGE_pvt;