[Home] [Help]
PACKAGE BODY: APPS.OKL_INTEREST_MAINT_PUB
Source
1 PACKAGE BODY OKL_INTEREST_MAINT_PUB AS
2 /* $Header: OKLPINMB.pls 115.5 2002/12/18 12:22:06 kjinger noship $ */
3
4
5
6 PROCEDURE INT_HDR_INS_UPDT(p_api_version IN NUMBER,
7 p_init_msg_list IN VARCHAR2,
8 x_return_status OUT NOCOPY VARCHAR2,
9 x_msg_count OUT NOCOPY NUMBER,
10 x_msg_data OUT NOCOPY VARCHAR2,
11 p_idxv_rec IN idxv_rec_type)
12 AS
13
14 l_api_version NUMBER := 1.0;
15 l_api_name CONSTANT VARCHAR2(30) := 'INT_HDR_INS_UPDT';
16 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
17 l_idxv_rec IDXV_REC_TYPE := p_idxv_rec;
18
19 BEGIN
20
21 SAVEPOINT INT_HDR_INS_UPDT1;
22
23 x_return_status := FND_API.G_RET_STS_SUCCESS;
24
25 -- customer pre-processing
26
27
28
29
30
31 -- Execute the Main Procedure
32
33 OKL_INTEREST_MAINT_PVT.INT_HDR_INS_UPDT(p_api_version => l_api_version,
34 p_init_msg_list => p_init_msg_list,
35 x_return_status => x_return_status,
36 x_msg_count => x_msg_count,
37 x_msg_data => x_msg_data,
38 p_idxv_rec => l_idxv_rec);
39
40
41 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
42
43 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
44
45 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
46
47 RAISE FND_API.G_EXC_ERROR;
48
49 END IF;
50
51
52
53
54
55 EXCEPTION
56
57 WHEN FND_API.G_EXC_ERROR THEN
58 ROLLBACK TO INT_HDR_INS_UPDT1;
59 x_return_status := FND_API.G_RET_STS_ERROR;
60
61 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
62 ,p_count => x_msg_count
63 ,p_data => x_msg_data);
64
65 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
66 ROLLBACK TO INT_HDR_INS_UPDT1;
67 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
68 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
69 ,p_count => x_msg_count
70 ,p_data => x_msg_data);
71
72 WHEN OTHERS THEN
73
74 ROLLBACK TO INT_HDR_INS_UPDT1;
75 FND_MSG_PUB.ADD_EXC_MSG('OKL_INTEREST_MAINT_PUB','INT_HDR_INS_UPDT');
76 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
77 ,p_count => x_msg_count
78 ,p_data => x_msg_data);
79 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
80
81
82 END INT_HDR_INS_UPDT;
83
84
85 PROCEDURE INT_HDR_INS_UPDT(p_api_version IN NUMBER,
86 p_init_msg_list IN VARCHAR2,
87 x_return_status OUT NOCOPY VARCHAR2,
88 x_msg_count OUT NOCOPY NUMBER,
89 x_msg_data OUT NOCOPY VARCHAR2,
90 p_idxv_tbl IN idxv_tbl_type)
91 AS
92
93
94 l_api_version NUMBER := 1.0;
95 l_api_name CONSTANT VARCHAR2(30) := 'INT_HDR_INS_UPDT';
96 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
97 l_idxv_tbl IDXV_TBL_TYPE := p_idxv_tbl;
98
99
100 BEGIN
101
102
103 SAVEPOINT INT_HDR_INS_UPDT1;
104
105 x_return_status := FND_API.G_RET_STS_SUCCESS;
106
107 -- customer pre-processing
108
109
110
111
112 -- Execute the Main Procedure
113
114 OKL_INTEREST_MAINT_PVT.INT_HDR_INS_UPDT(p_api_version => l_api_version,
115 p_init_msg_list => p_init_msg_list,
116 x_return_status => x_return_Status,
117 x_msg_count => x_msg_count,
118 x_msg_data => x_msg_data,
119 p_idxv_tbl => p_idxv_tbl);
120
121
122 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
123
124 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
125
126 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
127
128 RAISE FND_API.G_EXC_ERROR;
129
130 END IF;
131
132
133
134
135
136 EXCEPTION
137
138 WHEN FND_API.G_EXC_ERROR THEN
139 ROLLBACK TO INT_HDR_INS_UPDT1;
140 x_return_status := FND_API.G_RET_STS_ERROR;
141
142 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
143 ,p_count => x_msg_count
144 ,p_data => x_msg_data);
145
146 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
147 ROLLBACK TO INT_HDR_INS_UPDT1;
148 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
149 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
150 ,p_count => x_msg_count
151 ,p_data => x_msg_data);
152
153 WHEN OTHERS THEN
154
155 ROLLBACK TO INT_HDR_INS_UPDT1;
156 FND_MSG_PUB.ADD_EXC_MSG('OKL_INTEREST_MAINT_PUB','INT_HDR_INS_UPDT');
157 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
158 ,p_count => x_msg_count
159 ,p_data => x_msg_data);
160 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161
162
163 END INT_HDR_INS_UPDT;
164
165
166
167 PROCEDURE INT_DTL_INS_UPDT(p_api_version IN NUMBER,
168 p_init_msg_list IN VARCHAR2,
169 x_return_status OUT NOCOPY VARCHAR2,
170 x_msg_count OUT NOCOPY NUMBER,
171 x_msg_data OUT NOCOPY VARCHAR2,
172 p_ivev_rec IN ivev_rec_type)
173 AS
174
175 l_api_version NUMBER := 1.0;
176 l_api_name CONSTANT VARCHAR2(30) := 'INT_DTL_INS_UPDT';
177 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
178 l_ivev_rec IVEV_REC_TYPE := p_ivev_rec;
179
180 BEGIN
181
182 SAVEPOINT INT_DTL_INS_UPDT1;
183
184 x_return_status := FND_API.G_RET_STS_SUCCESS;
185
186 -- customer pre-processing
187
188
189
190
191 -- Run the Main Procedure
192
193 OKL_INTEREST_MAINT_PVT.INT_DTL_INS_UPDT(p_api_version => l_api_version,
194 p_init_msg_list => p_init_msg_list,
195 x_return_status => x_return_status,
196 x_msg_count => x_msg_count,
197 x_msg_data => x_msg_data,
198 p_ivev_rec => p_ivev_rec);
199
200
201 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
202 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
203 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
204 RAISE FND_API.G_EXC_ERROR;
205 END IF;
206
207
208
209
210
211 EXCEPTION
212
213 WHEN FND_API.G_EXC_ERROR THEN
214 ROLLBACK TO INT_DTL_INS_UPDT1;
215 x_return_status := FND_API.G_RET_STS_ERROR;
216
217 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
218 ,p_count => x_msg_count
219 ,p_data => x_msg_data);
220
221 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
222 ROLLBACK TO INT_DTL_INS_UPDT1;
223 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
224 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
225 ,p_count => x_msg_count
226 ,p_data => x_msg_data);
227
228 WHEN OTHERS THEN
229
230 ROLLBACK TO INT_DTL_INS_UPDT1;
231 FND_MSG_PUB.ADD_EXC_MSG('OKL_INTEREST_MAINT_PUB','INT_DTL_INS_UPDT');
232 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
233 ,p_count => x_msg_count
234 ,p_data => x_msg_data);
235 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
236
237
238
239
240 END INT_DTL_INS_UPDT;
241
242
243 PROCEDURE INT_DTL_INS_UPDT(p_api_version IN NUMBER,
244 p_init_msg_list IN VARCHAR2,
245 x_return_status OUT NOCOPY VARCHAR2,
246 x_msg_count OUT NOCOPY NUMBER,
247 x_msg_data OUT NOCOPY VARCHAR2,
248 p_ivev_tbl IN ivev_tbl_type)
249 AS
250
251 l_api_version NUMBER := 1.0;
252
253 l_api_name CONSTANT VARCHAR2(30) := 'INT_DTL_INS_UPDT';
254 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
255 l_ivev_tbl IVEV_TBL_TYPE := p_ivev_tbl;
256
257
258 BEGIN
259
260 SAVEPOINT INT_DTL_INS_UPDT1;
261
262 x_return_status := FND_API.G_RET_STS_SUCCESS;
263
264 -- customer pre-processing
265
266
267
268
269 -- Run the Main Procedure
270
271
272 OKL_INTEREST_MAINT_PVT.INT_DTL_INS_UPDT(p_api_version => l_api_version,
273 p_init_msg_list => p_init_msg_list,
274 x_return_status => x_return_status,
275 x_msg_count => x_msg_count,
276 x_msg_data => x_msg_data,
277 p_ivev_tbl => p_ivev_tbl);
278
279
280 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
281 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
282 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
283 RAISE FND_API.G_EXC_ERROR;
284 END IF;
285
286
287
288
289
290 EXCEPTION
291
292 WHEN FND_API.G_EXC_ERROR THEN
293 ROLLBACK TO INT_DTL_INS_UPDT1;
294 x_return_status := FND_API.G_RET_STS_ERROR;
295
296 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
297 ,p_count => x_msg_count
298 ,p_data => x_msg_data);
299
300 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
301 ROLLBACK TO INT_DTL_INS_UPDT1;
302 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
304 ,p_count => x_msg_count
305 ,p_data => x_msg_data);
306
307 WHEN OTHERS THEN
308
309 ROLLBACK TO INT_DTL_INS_UPDT1;
310 FND_MSG_PUB.ADD_EXC_MSG('OKL_INTEREST_MAINT_PUB','INT_DTL_INS_UPDT');
311 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
312 ,p_count => x_msg_count
313 ,p_data => x_msg_data);
314 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315
316
317
318 END INT_DTL_INS_UPDT;
319
320
321 END OKL_INTEREST_MAINT_PUB;