[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPOVDTEMPLATES_PUB
Source
1 PACKAGE BODY OKL_SETUPOVDTEMPLATES_PUB AS
2 /* $Header: OKLPSVTB.pls 115.4 2004/04/13 11:22:45 rnaik noship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE get_rec for: OKL_OVD_RUL_TMLS_V
6 ---------------------------------------------------------------------------
7 PROCEDURE get_rec(p_ovtv_rec IN ovtv_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_ovtv_rec OUT NOCOPY ovtv_rec_type) IS
12 l_ovtv_rec ovtv_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_ovtv_rec := p_ovtv_rec;
18 x_return_status := FND_API.G_RET_STS_SUCCESS;
19 x_no_data_found := TRUE;
20
21 okl_setupovdtemplates_pvt.get_rec(p_ovtv_rec => l_ovtv_rec,
22 x_return_status => l_return_status,
23 x_no_data_found => l_no_data_found,
24 x_ovtv_rec => x_ovtv_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_ovdtemplates
41 -- Public wrapper for insert_ovdtemplates process api
42 ---------------------------------------------------------------------------
43 PROCEDURE insert_ovdtemplates(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 p_ovtv_rec IN ovtv_rec_type,
52 x_ovtv_rec OUT NOCOPY ovtv_rec_type) IS
53 l_optv_rec optv_rec_type;
54 l_ovev_rec ovev_rec_type;
55 l_ovdv_rec ovdv_rec_type;
56 l_ovtv_rec ovtv_rec_type;
57 l_data VARCHAR2(100);
58 l_api_name CONSTANT VARCHAR2(30) := 'insert_ovdtemplates';
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_ovdtemplates;
64
65 l_optv_rec := p_optv_rec;
66 l_ovev_rec := p_ovev_rec;
67 l_ovdv_rec := p_ovdv_rec;
68 l_ovtv_rec := p_ovtv_rec;
69
70
71
72 -- call process api to insert formula operands
73 okl_setupovdtemplates_pvt.insert_ovdtemplates(p_api_version => p_api_version,
74 p_init_msg_list => p_init_msg_list,
75 x_return_status => l_return_status,
76 x_msg_count => x_msg_count,
77 x_msg_data => x_msg_data,
78 p_optv_rec => l_optv_rec,
79 p_ovev_rec => l_ovev_rec,
80 p_ovdv_rec => l_ovdv_rec,
81 p_ovtv_rec => l_ovtv_rec,
82 x_ovtv_rec => x_ovtv_rec);
83
84 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
85 RAISE FND_API.G_EXC_ERROR;
86 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
87 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
88 END IF;
89
90 /* re-assign local record structure using output record from pvt api */
91 l_ovtv_rec := x_ovtv_rec;
92
93
94
95 EXCEPTION
96 WHEN FND_API.G_EXC_ERROR THEN
97 ROLLBACK TO sp_insert_ovdtemplates;
98 -- notify caller of an UNEXPECTED error
99 x_return_status := FND_API.G_RET_STS_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 FND_API.G_EXC_UNEXPECTED_ERROR THEN
107 ROLLBACK TO sp_insert_ovdtemplates;
108 -- notify caller of an UNEXPECTED error
109 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
116 WHEN OTHERS THEN
117 -- notify caller of an UNEXPECTED error
118 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
119 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPOVDTEMPLATES_PUB','insert_ovdtemplates');
120
121 -- store SQL error message on message stack for caller
122 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
123 p_count => x_msg_count,
124 p_data => x_msg_data);
125 END insert_ovdtemplates;
126
127 ---------------------------------------------------------------------------
128 -- PROCEDURE delete_ovdtemplates
129 -- Public wrapper for delete_ovdtemplates process api
130 ---------------------------------------------------------------------------
131 PROCEDURE delete_ovdtemplates(p_api_version IN NUMBER,
132 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
133 x_return_status OUT NOCOPY VARCHAR2,
134 x_msg_count OUT NOCOPY NUMBER,
135 x_msg_data OUT NOCOPY VARCHAR2,
136 p_optv_rec IN optv_rec_type,
137 p_ovev_rec IN ovev_rec_type,
138 p_ovdv_rec IN ovdv_rec_type,
139 p_ovtv_tbl IN ovtv_tbl_type) IS
140 l_optv_rec optv_rec_type;
141 l_ovev_rec ovev_rec_type;
142 l_ovdv_rec ovdv_rec_type;
143 l_ovtv_tbl ovtv_tbl_type;
144 l_data VARCHAR2(100);
145 l_count NUMBER ;
146 l_api_name CONSTANT VARCHAR2(30) := 'delete_ovdtemplates';
147 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
148 BEGIN
149 x_return_status := FND_API.G_RET_STS_SUCCESS;
150 SAVEPOINT sp_delete_ovdtemplates;
151
152 l_optv_rec := p_optv_rec;
153 l_ovev_rec := p_ovev_rec;
154 l_ovdv_rec := p_ovdv_rec;
155 l_ovtv_tbl := p_ovtv_tbl;
156
157
158
159 -- call process api to delete formula operands
160 okl_setupovdtemplates_pvt.delete_ovdtemplates(p_api_version => p_api_version,
161 p_init_msg_list => p_init_msg_list,
162 x_return_status => l_return_status,
163 x_msg_count => x_msg_count,
164 x_msg_data => x_msg_data,
165 p_optv_rec => l_optv_rec,
166 p_ovev_rec => l_ovev_rec,
167 p_ovdv_rec => l_ovdv_rec,
168 p_ovtv_tbl => l_ovtv_tbl);
169
170 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
171 RAISE FND_API.G_EXC_ERROR;
172 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
173 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
174 END IF;
175
176
177
178 EXCEPTION
179 WHEN FND_API.G_EXC_ERROR THEN
180 ROLLBACK TO sp_delete_ovdtemplates;
181 -- notify caller of an UNEXPECTED error
182 x_return_status := FND_API.G_RET_STS_ERROR;
183
184 -- store SQL error message on message stack for caller
185 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
186 p_count => x_msg_count,
187 p_data => x_msg_data);
188
189 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
190 ROLLBACK TO sp_delete_ovdtemplates;
191 -- notify caller of an UNEXPECTED error
192 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
193
194 -- store SQL error message on message stack for caller
195 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
196 p_count => x_msg_count,
197 p_data => x_msg_data);
198
199 WHEN OTHERS THEN
200 -- notify caller of an UNEXPECTED error
201 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPOVDTEMPLATES_PUB','delete_ovdtemplates');
203
204 -- store SQL error message on message stack for caller
205 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
206 p_count => x_msg_count,
207 p_data => x_msg_data);
208 END delete_ovdtemplates;
209
210 END OKL_SETUPOVDTEMPLATES_PUB;