[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPFUNCTIONS_PUB
Source
1 PACKAGE BODY OKL_SETUPFUNCTIONS_PUB AS
2 /* $Header: OKLPSDFB.pls 115.6 2004/04/13 11:05:01 rnaik noship $ */
3 -- Start of wraper code generated automatically by Debug code generator
4 L_MODULE VARCHAR2(40) := 'LEASE.SETUP.FUNCTIONS';
5 L_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
6 L_LEVEL_PROCEDURE NUMBER;
7 IS_DEBUG_PROCEDURE_ON BOOLEAN;
8 -- End of wraper code generated automatically by Debug code generator
9
10 ---------------------------------------------------------------------------
11 -- PROCEDURE get_rec for: OKL_DATA_SRC_FNCTNS_V
12 ---------------------------------------------------------------------------
13 PROCEDURE get_rec(p_dsfv_rec IN dsfv_rec_type,
14 x_return_status OUT NOCOPY VARCHAR2,
15 x_msg_data OUT NOCOPY VARCHAR2,
16 x_no_data_found OUT NOCOPY BOOLEAN,
17 x_dsfv_rec OUT NOCOPY dsfv_rec_type) IS
18 l_dsfv_rec dsfv_rec_type;
19 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
20 l_no_data_found BOOLEAN;
21 BEGIN
22
23 l_dsfv_rec := p_dsfv_rec;
24 x_return_status := FND_API.G_RET_STS_SUCCESS;
25 x_no_data_found := TRUE;
26
27 -- Start of wraper code generated automatically by Debug code generator for okl_setupfunctions_pvt.get_rec
28 IF(L_DEBUG_ENABLED='Y') THEN
29 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
30 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
31 END IF;
32 IF(IS_DEBUG_PROCEDURE_ON) THEN
33 BEGIN
34 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSDFB.pls call okl_setupfunctions_pvt.get_rec ');
35 END;
36 END IF;
37 okl_setupfunctions_pvt.get_rec(p_dsfv_rec => l_dsfv_rec,
38 x_return_status => l_return_status,
39 x_no_data_found => l_no_data_found,
40 x_dsfv_rec => x_dsfv_rec);
41 IF(IS_DEBUG_PROCEDURE_ON) THEN
42 BEGIN
43 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSDFB.pls call okl_setupfunctions_pvt.get_rec ');
44 END;
45 END IF;
46 -- End of wraper code generated automatically by Debug code generator for okl_setupfunctions_pvt.get_rec
47
48 IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
49 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
50 END IF;
51
52 EXCEPTION
53 WHEN OTHERS THEN
54 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
55 x_no_data_found := FALSE;
56 FND_MESSAGE.set_name(application => G_APP_NAME,
57 name => G_UNEXPECTED_ERROR);
58 x_msg_data := FND_MESSAGE.get;
59 END get_rec;
60
61 ---------------------------------------------------------------------------
62 -- PROCEDURE insert_functions
63 -- Public wrapper for insert_functions process api
64 ---------------------------------------------------------------------------
65 PROCEDURE insert_functions(p_api_version IN NUMBER,
66 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
67 x_return_status OUT NOCOPY VARCHAR2,
68 x_msg_count OUT NOCOPY NUMBER,
69 x_msg_data OUT NOCOPY VARCHAR2,
70 p_dsfv_rec IN dsfv_rec_type,
71 x_dsfv_rec OUT NOCOPY dsfv_rec_type) IS
72 l_dsfv_rec dsfv_rec_type;
73 l_data VARCHAR2(100);
74 l_api_name CONSTANT VARCHAR2(30) := 'insert_functions';
75 l_count NUMBER ;
76 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
77 BEGIN
78 x_return_status := FND_API.G_RET_STS_SUCCESS;
79 SAVEPOINT sp_insert_functions;
80 l_dsfv_rec := p_dsfv_rec;
81
82
83
84 -- call process api to insert functions
85 -- Start of wraper code generated automatically by Debug code generator for okl_setupfunctions_pvt.insert_functions
86 IF(L_DEBUG_ENABLED='Y') THEN
87 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
88 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
89 END IF;
90 IF(IS_DEBUG_PROCEDURE_ON) THEN
91 BEGIN
92 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSDFB.pls call okl_setupfunctions_pvt.insert_functions ');
93 END;
94 END IF;
95 okl_setupfunctions_pvt.insert_functions(p_api_version => p_api_version,
96 p_init_msg_list => p_init_msg_list,
97 x_return_status => l_return_status,
98 x_msg_count => x_msg_count,
99 x_msg_data => x_msg_data,
100 p_dsfv_rec => l_dsfv_rec,
101 x_dsfv_rec => x_dsfv_rec);
102 IF(IS_DEBUG_PROCEDURE_ON) THEN
103 BEGIN
104 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSDFB.pls call okl_setupfunctions_pvt.insert_functions ');
105 END;
106 END IF;
107 -- End of wraper code generated automatically by Debug code generator for okl_setupfunctions_pvt.insert_functions
108
109 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
110 RAISE FND_API.G_EXC_ERROR;
111 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
112 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113 END IF;
114
115 /* re-assign local record structure using output record from pvt api */
116 l_dsfv_rec := x_dsfv_rec;
117
118
119
120 EXCEPTION
121 WHEN FND_API.G_EXC_ERROR THEN
122 ROLLBACK TO sp_insert_functions;
123 -- notify caller of an UNEXPECTED error
124 x_return_status := FND_API.G_RET_STS_ERROR;
125
126 -- store SQL error message on message stack for caller
127 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
128 p_count => x_msg_count,
129 p_data => x_msg_data);
130
131 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
132 ROLLBACK TO sp_insert_functions;
133 -- notify caller of an UNEXPECTED error
134 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
135
136 -- store SQL error message on message stack for caller
137 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
138 p_count => x_msg_count,
139 p_data => x_msg_data);
140
141 WHEN OTHERS THEN
142 -- notify caller of an UNEXPECTED error
143 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
144 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPFUNCTIONS_PUB','insert_functions');
145
146 -- store SQL error message on message stack for caller
147 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
148 p_count => x_msg_count,
149 p_data => x_msg_data);
150 END insert_functions;
151
152 ---------------------------------------------------------------------------
153 -- PROCEDURE update_functions
154 -- Public wrapper for update_functions process api
155 ---------------------------------------------------------------------------
156 PROCEDURE update_functions(p_api_version IN NUMBER,
157 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
158 x_return_status OUT NOCOPY VARCHAR2,
159 x_msg_count OUT NOCOPY NUMBER,
160 x_msg_data OUT NOCOPY VARCHAR2,
161 p_dsfv_rec IN dsfv_rec_type,
162 x_dsfv_rec OUT NOCOPY dsfv_rec_type) IS
163 l_dsfv_rec dsfv_rec_type;
164 l_data VARCHAR2(100);
165 l_count NUMBER ;
166 l_api_name CONSTANT VARCHAR2(30) := 'update_functions';
167 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
168 BEGIN
169 x_return_status := FND_API.G_RET_STS_SUCCESS;
170 SAVEPOINT sp_update_functions;
171 l_dsfv_rec := p_dsfv_rec;
172
173
174
175 -- call process api to update functions
176 -- Start of wraper code generated automatically by Debug code generator for okl_setupfunctions_pvt.update_functions
177 IF(L_DEBUG_ENABLED='Y') THEN
178 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
179 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
180 END IF;
181 IF(IS_DEBUG_PROCEDURE_ON) THEN
182 BEGIN
183 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSDFB.pls call okl_setupfunctions_pvt.update_functions ');
184 END;
185 END IF;
186 okl_setupfunctions_pvt.update_functions(p_api_version => p_api_version,
187 p_init_msg_list => p_init_msg_list,
188 x_return_status => l_return_status,
189 x_msg_count => x_msg_count,
190 x_msg_data => x_msg_data,
191 p_dsfv_rec => l_dsfv_rec,
192 x_dsfv_rec => x_dsfv_rec);
193 IF(IS_DEBUG_PROCEDURE_ON) THEN
194 BEGIN
195 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSDFB.pls call okl_setupfunctions_pvt.update_functions ');
196 END;
197 END IF;
198 -- End of wraper code generated automatically by Debug code generator for okl_setupfunctions_pvt.update_functions
199
200 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
201 RAISE FND_API.G_EXC_ERROR;
202 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
203 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204 END IF;
205
206 /* re-assign local record structure using output record from pvt api */
207 l_dsfv_rec := x_dsfv_rec;
208
209
210
211 EXCEPTION
212 WHEN FND_API.G_EXC_ERROR THEN
213 ROLLBACK TO sp_update_functions;
214 -- notify caller of an UNEXPECTED error
215 x_return_status := FND_API.G_RET_STS_ERROR;
216
217 -- store SQL error message on message stack for caller
218 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
219 p_count => x_msg_count,
220 p_data => x_msg_data);
221
222 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
223 ROLLBACK TO sp_update_functions;
224 -- notify caller of an UNEXPECTED error
225 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
226
227 -- store SQL error message on message stack for caller
228 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
229 p_count => x_msg_count,
230 p_data => x_msg_data);
231
232 WHEN OTHERS THEN
233 -- notify caller of an UNEXPECTED error
234 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
235 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPFUNCTIONS_PUB','update_functions');
236
237 -- store SQL error message on message stack for caller
238 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
239 p_count => x_msg_count,
240 p_data => x_msg_data);
241 END update_functions;
242
243 END OKL_SETUPFUNCTIONS_PUB;