[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPPMVALUES_PUB
Source
1 PACKAGE BODY OKL_SETUPPMVALUES_PUB AS
2 /* $Header: OKLPSMVB.pls 120.3 2007/03/04 09:52:45 dcshanmu ship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE get_rec for: OKL_PTL_PTQ_VALS_V
6 ---------------------------------------------------------------------------
7 PROCEDURE get_rec(p_pmvv_rec IN pmvv_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_pmvv_rec OUT NOCOPY pmvv_rec_type) IS
12 l_pmvv_rec pmvv_rec_type;
13 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
14 l_no_data_found BOOLEAN;
15 BEGIN
16 l_pmvv_rec := p_pmvv_rec;
17 x_return_status := FND_API.G_RET_STS_SUCCESS;
18 x_no_data_found := TRUE;
19
20 okl_SETUPPMVALUES_pvt.get_rec(p_pmvv_rec => l_pmvv_rec,
21 x_return_status => l_return_status,
22 x_no_data_found => l_no_data_found,
23 x_pmvv_rec => x_pmvv_rec);
24
25 IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
26 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
27 END IF;
28
29 EXCEPTION
30 WHEN OTHERS THEN
31 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
32 x_no_data_found := FALSE;
33 FND_MESSAGE.set_name(application => G_APP_NAME,
34 name => G_UNEXPECTED_ERROR);
35 x_msg_data := FND_MESSAGE.get;
36 END get_rec;
37
38 ---------------------------------------------------------------------------
39 -- PROCEDURE insert_pmvalues
40 -- Public wrapper for Product Template Value process api
41 ---------------------------------------------------------------------------
42 PROCEDURE insert_pmvalues(p_api_version IN NUMBER,
43 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
44 x_return_status OUT NOCOPY VARCHAR2,
45 x_msg_count OUT NOCOPY NUMBER,
46 x_msg_data OUT NOCOPY VARCHAR2,
47 p_ptlv_rec IN ptlv_rec_type,
48 p_pmvv_rec IN pmvv_rec_type,
49 x_pmvv_rec OUT NOCOPY pmvv_rec_type) IS
50 l_pmvv_rec pmvv_rec_type;
51 l_ptlv_rec ptlv_rec_type;
52 l_data VARCHAR2(100);
53 l_api_name CONSTANT VARCHAR2(30) := 'insert_pmvalues';
54 l_count NUMBER ;
55 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
56 BEGIN
57 x_return_status := FND_API.G_RET_STS_SUCCESS;
58 SAVEPOINT sp_insert_pmvalues;
59 l_pmvv_rec := p_pmvv_rec;
60 l_ptlv_rec := p_ptlv_rec;
61
62
63
64 -- call process api to insert Product Template Values.
65 okl_SETUPPMVALUES_pvt.insert_pmvalues(p_api_version => p_api_version,
66 p_init_msg_list => p_init_msg_list,
67 x_return_status => l_return_status,
68 x_msg_count => x_msg_count,
69 x_msg_data => x_msg_data,
70 p_ptlv_rec => l_ptlv_rec,
71 p_pmvv_rec => l_pmvv_rec,
72 x_pmvv_rec => x_pmvv_rec);
73
74 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
75 RAISE FND_API.G_EXC_ERROR;
76 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
77 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
78 END IF;
79
80 /* re-assign local record structure using output record from pvt api */
81 l_pmvv_rec := x_pmvv_rec;
82
83
84
85 EXCEPTION
86 WHEN FND_API.G_EXC_ERROR THEN
87 ROLLBACK TO sp_insert_pmvalues;
88 -- notify caller of an UNEXPECTED error
89 x_return_status := FND_API.G_RET_STS_ERROR;
90
91 -- store SQL error message on message stack for caller
92 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
93 p_count => x_msg_count,
94 p_data => x_msg_data);
95
96 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
97 ROLLBACK TO pm_insert_pmvalues;
98 -- notify caller of an UNEXPECTED error
99 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
100
101 -- store SQL error message on message stack for caller
102 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
103 p_count => x_msg_count,
104 p_data => x_msg_data);
105
106 WHEN OTHERS THEN
107 -- notify caller of an UNEXPECTED error
108 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
109 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPPMVALUES_PUB','insert_pmvalues');
110
111 -- store SQL error message on message stack for caller
112 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
113 p_count => x_msg_count,
114 p_data => x_msg_data);
115 END insert_pmvalues;
116
117
118 PROCEDURE insert_pmvalues(p_api_version IN NUMBER,
119 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
120 x_return_status OUT NOCOPY VARCHAR2,
121 x_msg_count OUT NOCOPY NUMBER,
122 x_msg_data OUT NOCOPY VARCHAR2,
123 p_ptlv_rec IN ptlv_rec_type,
124 p_pmvv_tbl IN pmvv_tbl_type,
125 x_pmvv_tbl OUT NOCOPY pmvv_tbl_type) IS
126 l_pmvv_tbl pmvv_tbl_type;
127 l_ptlv_rec ptlv_rec_type;
128 l_data VARCHAR2(100);
129 l_api_name CONSTANT VARCHAR2(30) := 'insert_pmvalues';
130 l_count NUMBER ;
131 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
132 BEGIN
133 x_return_status := FND_API.G_RET_STS_SUCCESS;
134 SAVEPOINT sp_insert_pmvalues;
135 l_pmvv_tbl := p_pmvv_tbl;
136 l_ptlv_rec := p_ptlv_rec;
137
138
139
140 -- call process api to insert Product Template Values.
141 okl_SETUPPMVALUES_pvt.insert_pmvalues(p_api_version => p_api_version,
142 p_init_msg_list => p_init_msg_list,
143 x_return_status => l_return_status,
144 x_msg_count => x_msg_count,
145 x_msg_data => x_msg_data,
146 p_ptlv_rec => l_ptlv_rec,
147 p_pmvv_tbl => l_pmvv_tbl,
148 x_pmvv_tbl => x_pmvv_tbl);
149
150 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
151 RAISE FND_API.G_EXC_ERROR;
152 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
153 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
154 END IF;
155
156 /* re-assign local record structure using output record from pvt api */
157 l_pmvv_tbl := x_pmvv_tbl;
158
159
160
161 EXCEPTION
162 WHEN FND_API.G_EXC_ERROR THEN
163 ROLLBACK TO sp_insert_pmvalues;
164 -- notify caller of an UNEXPECTED error
165 x_return_status := FND_API.G_RET_STS_ERROR;
166
167 -- store SQL error message on message stack for caller
168 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
169 p_count => x_msg_count,
170 p_data => x_msg_data);
171
172 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
173 ROLLBACK TO pm_insert_pmvalues;
174 -- notify caller of an UNEXPECTED error
175 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
176
177 -- store SQL error message on message stack for caller
178 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
179 p_count => x_msg_count,
180 p_data => x_msg_data);
181
182 WHEN OTHERS THEN
183 -- notify caller of an UNEXPECTED error
184 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
185 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPPMVALUES_PUB','insert_pmvalues');
186
187 -- store SQL error message on message stack for caller
188 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
189 p_count => x_msg_count,
190 p_data => x_msg_data);
191 END insert_pmvalues;
192
193 ---------------------------------------------------------------------------
194 -- PROCEDURE delete_pmvalues
195 -- Public wrapper for delete Product Template Value process api
196 ---------------------------------------------------------------------------
197
198 PROCEDURE delete_pmvalues(p_api_version IN NUMBER,
199 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
200 x_return_status OUT NOCOPY VARCHAR2,
201 x_msg_count OUT NOCOPY NUMBER,
202 x_msg_data OUT NOCOPY VARCHAR2,
203 p_ptlv_rec IN ptlv_rec_type,
204 p_pmvv_tbl IN pmvv_tbl_type) IS
205 l_pmvv_tbl pmvv_tbl_type;
206 l_ptlv_rec ptlv_rec_type;
207 l_data VARCHAR2(100);
208 l_count NUMBER ;
209 l_api_name CONSTANT VARCHAR2(30) := 'delete_pmvalues';
210 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
211 BEGIN
212 x_return_status := FND_API.G_RET_STS_SUCCESS;
213 SAVEPOINT sp_delete_pmvalues;
214 l_pmvv_tbl := p_pmvv_tbl;
215 l_ptlv_rec := p_ptlv_rec;
216
217
218
219 -- call process api to update Product Template Values.
220 okl_SETUPPMVALUES_pvt.delete_pmvalues(p_api_version => p_api_version,
221 p_init_msg_list => p_init_msg_list,
222 x_return_status => l_return_status,
223 x_msg_count => x_msg_count,
224 x_msg_data => x_msg_data,
225 p_ptlv_rec => l_ptlv_rec,
226 p_pmvv_tbl => l_pmvv_tbl);
227
228 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
229 RAISE FND_API.G_EXC_ERROR;
230 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
231 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
232 END IF;
233
234
235
236 EXCEPTION
237 WHEN FND_API.G_EXC_ERROR THEN
238 ROLLBACK TO sp_delete_pmvalues;
239 -- notify caller of an UNEXPECTED error
240 x_return_status := FND_API.G_RET_STS_ERROR;
241
242 -- store SQL error message on message stack for caller
243 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
244 p_count => x_msg_count,
245 p_data => x_msg_data);
246
247 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
248 ROLLBACK TO sp_delete_pmvalues;
249 -- notify caller of an UNEXPECTED error
250 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
251
252 -- store SQL error message on message stack for caller
253 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
254 p_count => x_msg_count,
255 p_data => x_msg_data);
256
257 WHEN OTHERS THEN
258 -- notify caller of an UNEXPECTED error
259 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
260 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPPMVALUES_PUB','delete_pmvalues');
261
262 -- store SQL error message on message stack for caller
263 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
264 p_count => x_msg_count,
265 p_data => x_msg_data);
266 END delete_pmvalues;
267
268 END OKL_SETUPPMVALUES_PUB;