[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPPOPTIONS_PUB
Source
1 PACKAGE BODY OKL_setuppoptions_PUB AS
2 /* $Header: OKLPSPOB.pls 115.6 2004/04/13 11:19:18 rnaik noship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE get_rec for: OKL_PDT_OPTS_V
6 ---------------------------------------------------------------------------
7 PROCEDURE get_rec(p_ponv_rec IN ponv_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_ponv_rec OUT NOCOPY ponv_rec_type) IS
12 l_ponv_rec ponv_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_ponv_rec := p_ponv_rec;
18 x_return_status := FND_API.G_RET_STS_SUCCESS;
19 x_no_data_found := TRUE;
20
21 okl_setuppoptions_pvt.get_rec(p_ponv_rec => l_ponv_rec,
22 x_return_status => l_return_status,
23 x_no_data_found => l_no_data_found,
24 x_ponv_rec => x_ponv_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_poptions
41 -- Public wrapper for insert_poptions process api
42 ---------------------------------------------------------------------------
43 PROCEDURE insert_poptions(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_ponv_rec IN ponv_rec_type,
50 x_ponv_rec OUT NOCOPY ponv_rec_type
51 ) IS
52 l_ponv_rec ponv_rec_type;
53 l_pdtv_rec pdtv_rec_type;
54 l_data VARCHAR2(100);
55 l_api_name CONSTANT VARCHAR2(30) := 'insert_poptions';
56 l_count NUMBER ;
57 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
58 BEGIN
59 x_return_status := FND_API.G_RET_STS_SUCCESS;
60 SAVEPOINT sp_insert_poptions;
61 l_ponv_rec := p_ponv_rec;
62 l_pdtv_rec := p_pdtv_rec;
63
64
65
66 -- call process api to insert poptions
67 okl_setuppoptions_pvt.insert_poptions(p_api_version => p_api_version,
68 p_init_msg_list => p_init_msg_list,
69 x_return_status => l_return_status,
70 x_msg_count => x_msg_count,
71 x_msg_data => x_msg_data,
72 p_ponv_rec => l_ponv_rec,
73 x_ponv_rec => x_ponv_rec,
74 p_pdtv_rec => l_pdtv_rec
75 );
76
77 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
78 RAISE FND_API.G_EXC_ERROR;
79 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
80 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
81 END IF;
82 l_ponv_rec := x_ponv_rec;
83
84
85 EXCEPTION
86 WHEN FND_API.G_EXC_ERROR THEN
87 ROLLBACK TO sp_insert_poptions;
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 sp_insert_poptions;
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_setuppoptions_PUB','insert_poptions');
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_poptions;
116
117 ---------------------------------------------------------------------------
118 -- PROCEDURE delete_poptions
119 -- Public wrapper for delete_poptions process api
120 ---------------------------------------------------------------------------
121 PROCEDURE delete_poptions(p_api_version IN NUMBER,
122 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
123 x_return_status OUT NOCOPY VARCHAR2,
124 x_msg_count OUT NOCOPY NUMBER,
125 x_msg_data OUT NOCOPY VARCHAR2,
126 p_pdtv_rec IN pdtv_rec_type,
127 p_ponv_tbl IN ponv_tbl_type) IS
128 l_ponv_tbl ponv_tbl_type;
129 l_pdtv_rec pdtv_rec_type;
130 l_data VARCHAR2(100);
131 l_count NUMBER ;
132 l_api_name CONSTANT VARCHAR2(30) := 'delete_poptions';
133 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
134 BEGIN
135 x_return_status := FND_API.G_RET_STS_SUCCESS;
136 SAVEPOINT sp_delete_poptions;
137 l_ponv_tbl := p_ponv_tbl;
138 l_pdtv_rec := p_pdtv_rec;
139
140
141
142 -- call process api to update formulae
143 okl_setuppoptions_pvt.delete_poptions(p_api_version => p_api_version,
144 p_init_msg_list => p_init_msg_list,
145 x_return_status => l_return_status,
146 x_msg_count => x_msg_count,
147 x_msg_data => x_msg_data,
148 p_pdtv_rec => l_pdtv_rec,
149 p_ponv_tbl => l_ponv_tbl);
150
151 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
152 RAISE FND_API.G_EXC_ERROR;
153 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
154 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155 END IF;
156
157
158
159 EXCEPTION
160 WHEN FND_API.G_EXC_ERROR THEN
161 ROLLBACK TO sp_delete_poptions;
162 -- notify caller of an UNEXPECTED error
163 x_return_status := FND_API.G_RET_STS_ERROR;
164
165 -- store SQL error message on message stack for caller
166 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
167 p_count => x_msg_count,
168 p_data => x_msg_data);
169
170 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
171 ROLLBACK TO sp_delete_poptions;
172 -- notify caller of an UNEXPECTED error
173 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
174
175 -- store SQL error message on message stack for caller
176 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
177 p_count => x_msg_count,
178 p_data => x_msg_data);
179
180 WHEN OTHERS THEN
181 -- notify caller of an UNEXPECTED error
182 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
183 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPPOPTIONS_PUB','delete_poptions');
184
185 -- store SQL error message on message stack for caller
186 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
187 p_count => x_msg_count,
188 p_data => x_msg_data);
189 END delete_poptions;
190
191 END OKL_SETUPPOPTIONS_PUB;