[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPOPTVALUES_PUB
Source
1 PACKAGE BODY OKL_SETUPOPTVALUES_PUB AS
2 /* $Header: OKLPSOVB.pls 115.4 2004/04/13 11:19:08 rnaik noship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE get_rec for: OKL_FMLA_OPRNDS_V
6 ---------------------------------------------------------------------------
7 PROCEDURE get_rec(p_ovev_rec IN ovev_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_ovev_rec OUT NOCOPY ovev_rec_type) IS
12 l_ovev_rec ovev_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_ovev_rec := p_ovev_rec;
18 x_return_status := FND_API.G_RET_STS_SUCCESS;
19 x_no_data_found := TRUE;
20
21 okl_setupoptvalues_pvt.get_rec(p_ovev_rec => l_ovev_rec,
22 x_return_status => l_return_status,
23 x_no_data_found => l_no_data_found,
24 x_ovev_rec => x_ovev_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_optvalues
41 -- Public wrapper for insert_optvalues process api
42 ---------------------------------------------------------------------------
43 PROCEDURE insert_optvalues(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 x_ovev_rec OUT NOCOPY ovev_rec_type) IS
51 l_optv_rec optv_rec_type;
52 l_ovev_rec ovev_rec_type;
53 l_data VARCHAR2(100);
54 l_api_name CONSTANT VARCHAR2(30) := 'insert_optvalues';
55 l_count NUMBER ;
56 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
57 BEGIN
58 x_return_status := FND_API.G_RET_STS_SUCCESS;
59 SAVEPOINT sp_insert_optvalues;
60
61 l_optv_rec := p_optv_rec;
62 l_ovev_rec := p_ovev_rec;
63
64
65
66 -- call process api to insert formula operands
67 okl_setupoptvalues_pvt.insert_optvalues(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_optv_rec => l_optv_rec,
73 p_ovev_rec => l_ovev_rec,
74 x_ovev_rec => x_ovev_rec);
75
76 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
77 RAISE FND_API.G_EXC_ERROR;
78 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
79 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
80 END IF;
81
82 /* re-assign local record structure using output record from pvt api */
83 l_ovev_rec := x_ovev_rec;
84
85
86
87 EXCEPTION
88 WHEN FND_API.G_EXC_ERROR THEN
89 ROLLBACK TO sp_insert_optvalues;
90 -- notify caller of an UNEXPECTED error
91 x_return_status := FND_API.G_RET_STS_ERROR;
92
93 -- store SQL error message on message stack for caller
94 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
95 p_count => x_msg_count,
96 p_data => x_msg_data);
97
98 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
99 ROLLBACK TO sp_insert_optvalues;
100 -- notify caller of an UNEXPECTED error
101 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
102
103 -- store SQL error message on message stack for caller
104 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
105 p_count => x_msg_count,
106 p_data => x_msg_data);
107
108 WHEN OTHERS THEN
109 -- notify caller of an UNEXPECTED error
110 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
111 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPOPTVALUES_PUB','insert_optvalues');
112
113 -- store SQL error message on message stack for caller
114 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
115 p_count => x_msg_count,
116 p_data => x_msg_data);
117 END insert_optvalues;
118
119 ---------------------------------------------------------------------------
120 -- PROCEDURE update_optvalues
121 -- Public wrapper for update_optvalues process api
122 ---------------------------------------------------------------------------
123 PROCEDURE update_optvalues(p_api_version IN NUMBER,
124 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
125 x_return_status OUT NOCOPY VARCHAR2,
126 x_msg_count OUT NOCOPY NUMBER,
127 x_msg_data OUT NOCOPY VARCHAR2,
128 p_optv_rec IN optv_rec_type,
129 p_ovev_rec IN ovev_rec_type,
130 x_ovev_rec OUT NOCOPY ovev_rec_type) IS
131 l_optv_rec optv_rec_type;
132 l_ovev_rec ovev_rec_type;
133 l_data VARCHAR2(100);
134 l_count NUMBER ;
135 l_api_name CONSTANT VARCHAR2(30) := 'update_optvalues';
136 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
137 BEGIN
138 x_return_status := FND_API.G_RET_STS_SUCCESS;
139 SAVEPOINT sp_update_optvalues;
140
141 l_optv_rec := p_optv_rec;
142 l_ovev_rec := p_ovev_rec;
143
144
145
146 -- call process api to update formula operands
147 okl_setupoptvalues_pvt.update_optvalues(p_api_version => p_api_version,
148 p_init_msg_list => p_init_msg_list,
149 x_return_status => l_return_status,
150 x_msg_count => x_msg_count,
151 x_msg_data => x_msg_data,
152 p_optv_rec => l_optv_rec,
153 p_ovev_rec => l_ovev_rec,
154 x_ovev_rec => x_ovev_rec);
155
156 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
157 RAISE FND_API.G_EXC_ERROR;
158 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
159 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160 END IF;
161
162 /* re-assign local record structure using output record from pvt api */
163 l_ovev_rec := x_ovev_rec;
164
165
166
167 EXCEPTION
168 WHEN FND_API.G_EXC_ERROR THEN
169 ROLLBACK TO sp_update_optvalues;
170 -- notify caller of an UNEXPECTED error
171 x_return_status := FND_API.G_RET_STS_ERROR;
172
173 -- store SQL error message on message stack for caller
174 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
175 p_count => x_msg_count,
176 p_data => x_msg_data);
177
178 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
179 ROLLBACK TO sp_update_optvalues;
180 -- notify caller of an UNEXPECTED error
181 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
182
183 -- store SQL error message on message stack for caller
184 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
185 p_count => x_msg_count,
186 p_data => x_msg_data);
187
188 WHEN OTHERS THEN
189 -- notify caller of an UNEXPECTED error
190 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
191 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPOPTVALUES_PUB','update_optvalues');
192
193 -- store SQL error message on message stack for caller
194 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
195 p_count => x_msg_count,
196 p_data => x_msg_data);
197 END update_optvalues;
198
199 END OKL_SETUPOPTVALUES_PUB;