[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPPOVALUES_PUB
Source
1 PACKAGE BODY OKL_SETUPPOVALUES_PUB AS
2 /* $Header: OKLPSDVB.pls 115.5 2004/04/13 11:05:13 rnaik noship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE get_rec for: okl_pdt_opt_vals_v
6 ---------------------------------------------------------------------------
7 PROCEDURE get_rec(p_povv_rec IN povv_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_povv_rec OUT NOCOPY povv_rec_type) IS
12 l_povv_rec povv_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_povv_rec := p_povv_rec;
18 x_return_status := FND_API.G_RET_STS_SUCCESS;
19 x_no_data_found := TRUE;
20
21 okl_SETUPPOVALUES_pvt.get_rec(p_povv_rec => l_povv_rec,
22 x_return_status => l_return_status,
23 x_no_data_found => l_no_data_found,
24 x_povv_rec => x_povv_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_povalues
41 -- Public wrapper for insert_povalues process api
42 ---------------------------------------------------------------------------
43 PROCEDURE insert_povalues(p_api_version IN NUMBER,
44 p_init_msg_list IN VARCHAR2 DEFAULT OKL_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_pdtv_rec IN pdtv_rec_type,
49 p_optv_rec IN optv_rec_type,
50 p_povv_rec IN povv_rec_type,
51 x_povv_rec OUT NOCOPY povv_rec_type
52 ) IS
53 l_povv_rec povv_rec_type;
54 l_pdtv_rec pdtv_rec_type;
55 l_optv_rec optv_rec_type;
56
57 l_data VARCHAR2(100);
58 l_api_name CONSTANT VARCHAR2(30) := 'insert_povalues';
59 l_count NUMBER ;
60 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
61 BEGIN
62 x_return_status := FND_API.G_RET_STS_SUCCESS;
63 SAVEPOINT sp_insert_povalues;
64 l_povv_rec := p_povv_rec;
65 l_pdtv_rec := p_pdtv_rec;
66 l_optv_rec := p_optv_rec;
67
68
69
70 -- call process api to insert Product Option Values
71 okl_SETUPPOVALUES_pvt.insert_povalues(p_api_version => p_api_version,
72 p_init_msg_list => p_init_msg_list,
73 x_return_status => l_return_status,
74 x_msg_count => x_msg_count,
75 x_msg_data => x_msg_data,
76 p_povv_rec => l_povv_rec,
77 x_povv_rec => x_povv_rec,
78 p_pdtv_rec => l_pdtv_rec,
79 p_optv_rec => l_optv_rec
80 );
81
82 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
83 RAISE FND_API.G_EXC_ERROR;
84 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
85 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
86 END IF;
87
88 /* re-assign local record structure using output record from pvt api */
89 l_povv_rec := x_povv_rec;
90
91
92
93 EXCEPTION
94 WHEN FND_API.G_EXC_ERROR THEN
95 ROLLBACK TO sp_insert_povalues;
96 -- notify caller of an UNEXPECTED error
97 x_return_status := FND_API.G_RET_STS_ERROR;
98
99 -- store SQL error message on message stack for caller
100 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
101 p_count => x_msg_count,
102 p_data => x_msg_data);
103
104 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
105 ROLLBACK TO sp_insert_povalues;
106 -- notify caller of an UNEXPECTED error
107 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
108
109 -- store SQL error message on message stack for caller
110 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
111 p_count => x_msg_count,
112 p_data => x_msg_data);
113
114 WHEN OTHERS THEN
115 -- notify caller of an UNEXPECTED error
116 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
117 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPPOVALUES_PUB','insert_povalues');
118
119 -- store SQL error message on message stack for caller
120 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
121 p_count => x_msg_count,
122 p_data => x_msg_data);
123 END insert_povalues;
124
125 ---------------------------------------------------------------------------
126 -- PROCEDURE delete_povalues
127 -- Public wrapper for delete_povalues process api
128 ---------------------------------------------------------------------------
129 PROCEDURE delete_povalues(p_api_version IN NUMBER,
130 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
131 x_return_status OUT NOCOPY VARCHAR2,
132 x_msg_count OUT NOCOPY NUMBER,
133 x_msg_data OUT NOCOPY VARCHAR2,
134 p_pdtv_rec IN pdtv_rec_type,
135 p_optv_rec IN optv_rec_type,
136 P_povv_tbl IN povv_tbl_type) IS
137 l_povv_tbl povv_tbl_type;
138 l_pdtv_rec pdtv_rec_type;
139 l_optv_rec optv_rec_type;
140 l_data VARCHAR2(100);
141 l_count NUMBER ;
142 l_api_name CONSTANT VARCHAR2(30) := 'delete_povalues';
143 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
144 BEGIN
145 x_return_status := FND_API.G_RET_STS_SUCCESS;
146 SAVEPOINT sp_delete_povalues;
147 l_povv_tbl := p_povv_tbl;
148 l_pdtv_rec := p_pdtv_rec;
149 l_optv_rec := p_optv_rec;
150
151
152
153 -- call process api to delete_povalues
154 okl_SETUPPOVALUES_pvt.delete_povalues(p_api_version => p_api_version,
155 p_init_msg_list => p_init_msg_list,
156 x_return_status => l_return_status,
157 x_msg_count => x_msg_count,
158 x_msg_data => x_msg_data,
159 p_pdtv_rec => l_pdtv_rec,
160 p_optv_rec => l_optv_rec,
161 p_povv_tbl => l_povv_tbl);
162
163 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
164 RAISE FND_API.G_EXC_ERROR;
165 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
166 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
167 END IF;
168
169
170
171 EXCEPTION
172 WHEN FND_API.G_EXC_ERROR THEN
173 ROLLBACK TO sp_delete_povalues;
174 -- notify caller of an UNEXPECTED error
175 x_return_status := FND_API.G_RET_STS_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 FND_API.G_EXC_UNEXPECTED_ERROR THEN
183 ROLLBACK TO sp_delete_povalues;
184 -- notify caller of an UNEXPECTED error
185 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
192 WHEN OTHERS THEN
193 -- notify caller of an UNEXPECTED error
194 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
195 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPPOVALUES_PUB','delete_povalues');
196
197 -- store SQL error message on message stack for caller
198 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
199 p_count => x_msg_count,
200 p_data => x_msg_data);
201 END delete_povalues;
202
203 END OKL_SETUPPOVALUES_PUB;