[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPOVERULES_PUB
Source
1 PACKAGE BODY OKL_SETUPOVERULES_PUB AS
2 /* $Header: OKLPSODB.pls 115.4 2004/04/13 11:18:26 rnaik noship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE get_rec for: OKL_OPV_RULES_V
6 ---------------------------------------------------------------------------
7 PROCEDURE get_rec(p_ovdv_rec IN ovdv_rec_type,
8 x_return_status OUT NOCOPY VARCHAR2,
9 x_msg_data OUT NOCOPY VARCHAR2,
10 x_no_data_found OUT NOCOPY BOOLEAN,
11 x_ovdv_rec OUT NOCOPY ovdv_rec_type) IS
12 l_ovdv_rec ovdv_rec_type;
13 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
14 l_no_data_found BOOLEAN;
15 BEGIN
16
17 l_ovdv_rec := p_ovdv_rec;
18 x_return_status := FND_API.G_RET_STS_SUCCESS;
19 x_no_data_found := TRUE;
20
21 okl_setupoverules_pvt.get_rec(p_ovdv_rec => l_ovdv_rec,
22 x_return_status => l_return_status,
23 x_no_data_found => l_no_data_found,
24 x_ovdv_rec => x_ovdv_rec);
25
26 IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
27 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
28 END IF;
29
30 EXCEPTION
31 WHEN OTHERS THEN
32 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
33 x_no_data_found := FALSE;
34 FND_MESSAGE.set_name(application => G_APP_NAME,
35 name => G_UNEXPECTED_ERROR);
36 x_msg_data := FND_MESSAGE.get;
37 END get_rec;
38
39 ---------------------------------------------------------------------------
40 -- PROCEDURE insert_overules
41 -- Public wrapper for insert_overules process api
42 ---------------------------------------------------------------------------
43 PROCEDURE insert_overules(p_api_version IN NUMBER,
44 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
45 x_return_status OUT NOCOPY VARCHAR2,
46 x_msg_count OUT NOCOPY NUMBER,
47 x_msg_data OUT NOCOPY VARCHAR2,
48 p_optv_rec IN optv_rec_type,
49 p_ovev_rec IN ovev_rec_type,
50 p_ovdv_rec IN ovdv_rec_type,
51 x_ovdv_rec OUT NOCOPY ovdv_rec_type) IS
52 l_optv_rec optv_rec_type;
53 l_ovev_rec ovev_rec_type;
54 l_ovdv_rec ovdv_rec_type;
55 l_data VARCHAR2(100);
56 l_api_name CONSTANT VARCHAR2(30) := 'insert_overules';
57 l_count NUMBER ;
58 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
59 BEGIN
60 x_return_status := FND_API.G_RET_STS_SUCCESS;
61 SAVEPOINT sp_insert_overules;
62
63 l_optv_rec := p_optv_rec;
64 l_ovev_rec := p_ovev_rec;
65 l_ovdv_rec := p_ovdv_rec;
66
67
68
69 -- call process api to insert formula operands
70 okl_setupoverules_pvt.insert_overules(p_api_version => p_api_version,
71 p_init_msg_list => p_init_msg_list,
72 x_return_status => l_return_status,
73 x_msg_count => x_msg_count,
74 x_msg_data => x_msg_data,
75 p_optv_rec => l_optv_rec,
76 p_ovev_rec => l_ovev_rec,
77 p_ovdv_rec => l_ovdv_rec,
78 x_ovdv_rec => x_ovdv_rec);
79
80 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
81 RAISE FND_API.G_EXC_ERROR;
82 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
83 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
84 END IF;
85
86 /* re-assign local record structure using output record from pvt api */
87 l_ovdv_rec := x_ovdv_rec;
88
89
90
91 EXCEPTION
92 WHEN FND_API.G_EXC_ERROR THEN
93 ROLLBACK TO sp_insert_overules;
94 -- notify caller of an UNEXPECTED error
95 x_return_status := FND_API.G_RET_STS_ERROR;
96
97 -- store SQL error message on message stack for caller
98 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
99 p_count => x_msg_count,
100 p_data => x_msg_data);
101
102 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
103 ROLLBACK TO sp_insert_overules;
104 -- notify caller of an UNEXPECTED error
105 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
106
107 -- store SQL error message on message stack for caller
108 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
109 p_count => x_msg_count,
110 p_data => x_msg_data);
111
112 WHEN OTHERS THEN
113 -- notify caller of an UNEXPECTED error
114 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
115 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPOVERULES_PUB','insert_overules');
116
117 -- store SQL error message on message stack for caller
118 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
119 p_count => x_msg_count,
120 p_data => x_msg_data);
121 END insert_overules;
122
123 ---------------------------------------------------------------------------
124 -- PROCEDURE delete_overules
125 -- Public wrapper for delete_overules process api
126 ---------------------------------------------------------------------------
127 PROCEDURE delete_overules(p_api_version IN NUMBER,
128 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
129 x_return_status OUT NOCOPY VARCHAR2,
130 x_msg_count OUT NOCOPY NUMBER,
131 x_msg_data OUT NOCOPY VARCHAR2,
132 p_optv_rec IN optv_rec_type,
133 p_ovev_rec IN ovev_rec_type,
134 p_ovdv_tbl IN ovdv_tbl_type) IS
135 l_optv_rec optv_rec_type;
136 l_ovev_rec ovev_rec_type;
137 l_ovdv_tbl ovdv_tbl_type;
138 l_data VARCHAR2(100);
139 l_count NUMBER ;
140 l_api_name CONSTANT VARCHAR2(30) := 'delete_overules';
141 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
142 BEGIN
143 x_return_status := FND_API.G_RET_STS_SUCCESS;
144 SAVEPOINT sp_delete_overules;
145
146 l_optv_rec := p_optv_rec;
147 l_ovev_rec := p_ovev_rec;
148 l_ovdv_tbl := p_ovdv_tbl;
149
150
151
152 -- call process api to delete formula operands
153 okl_setupoverules_pvt.delete_overules(p_api_version => p_api_version,
154 p_init_msg_list => p_init_msg_list,
155 x_return_status => l_return_status,
156 x_msg_count => x_msg_count,
157 x_msg_data => x_msg_data,
158 p_optv_rec => l_optv_rec,
159 p_ovev_rec => l_ovev_rec,
160 p_ovdv_tbl => l_ovdv_tbl);
161
162 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
163 RAISE FND_API.G_EXC_ERROR;
164 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
165 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
166 END IF;
167
168
169
170 EXCEPTION
171 WHEN FND_API.G_EXC_ERROR THEN
172 ROLLBACK TO sp_delete_overules;
173 -- notify caller of an UNEXPECTED error
174 x_return_status := FND_API.G_RET_STS_ERROR;
175
176 -- store SQL error message on message stack for caller
177 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
178 p_count => x_msg_count,
179 p_data => x_msg_data);
180
181 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
182 ROLLBACK TO sp_delete_overules;
183 -- notify caller of an UNEXPECTED error
184 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
185
186 -- store SQL error message on message stack for caller
187 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
188 p_count => x_msg_count,
189 p_data => x_msg_data);
190
191 WHEN OTHERS THEN
192 -- notify caller of an UNEXPECTED error
193 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
194 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPOVERULES_PUB','delete_overules');
195
196 -- store SQL error message on message stack for caller
197 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
198 p_count => x_msg_count,
199 p_data => x_msg_data);
200 END delete_overules;
201
202 END OKL_SETUPOVERULES_PUB;