[Home] [Help]
PACKAGE BODY: APPS.OKL_ASSET_DETAILS_PUB
Source
1 PACKAGE BODY okl_asset_details_pub AS
2 /* $Header: OKLPADSB.pls 115.3 2004/04/13 10:27:43 rnaik noship $ */
3
4
5 PROCEDURE Update_year(
6 p_api_version IN NUMBER,
7 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
8 x_return_status OUT NOCOPY VARCHAR2,
9 x_msg_count OUT NOCOPY NUMBER,
10 x_msg_data OUT NOCOPY VARCHAR2,
11 p_dnz_chr_id IN NUMBER,
12 p_parent_line_id IN NUMBER,
13 p_year IN VARCHAR2,
14 x_year OUT NOCOPY VARCHAR2)
15 AS
16 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
17 l_msg_count NUMBER;
18 l_msg_data VARCHAR2(2000);
19 BEGIN
20 g_api_name := 'Update Year';
21
22
23
24
25
26 --End Vertical User Hook Call
27 --Call to private API
28
29 okl_asset_details_pvt.update_year( p_api_version => p_api_version,
30 p_init_msg_list => p_init_msg_list,
31 x_return_status => l_return_status,
32 x_msg_count => l_msg_count,
33 x_msg_data => l_msg_data,
34 p_dnz_chr_id => p_dnz_chr_id,
35 p_parent_line_id => p_parent_line_id,
36 p_year => p_year,
37 x_year => x_year);
38
39 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
40 RAISE OKL_API.G_EXCEPTION_ERROR;
41 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
42 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
43 END IF;
44
45 --End Call to Private API
46
47
48
49 --End Vertical Post Processing Hook
50
51 --Start Horizontal Post Processing Hook
52
53
54
55 --End Horizontal Post Processing User Hook
56
57 x_return_status := l_return_status;
58 x_msg_count := l_msg_count;
59 x_msg_data := l_msg_data;
60
61 EXCEPTION
62
63 WHEN OKL_API.G_EXCEPTION_ERROR THEN
64 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
65 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
66 p_data => x_msg_data);
67
68 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
69 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
70 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
71 p_data => x_msg_data);
72
73 WHEN OTHERS THEN
74 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
75 FND_MSG_PUB.ADD_EXC_MSG('OKL_ASSET_DETAILS_PUB','Update_Year');
76 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
77 p_data => x_msg_data);
78
79 END update_year;
80
81 PROCEDURE update_tax(p_api_version IN NUMBER,
82 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
83 x_return_status OUT NOCOPY VARCHAR2,
84 x_msg_count OUT NOCOPY NUMBER,
85 x_msg_data OUT NOCOPY VARCHAR2,
86 p_rule_id IN NUMBER,
87 p_rule_grp_id IN NUMBER,
88 p_dnz_chr_id IN NUMBER,
89 p_rule_information1 IN VARCHAR2,
90 p_rule_information2 IN VARCHAR2,
91 p_rule_information3 IN VARCHAR2,
92 p_rule_information4 IN VARCHAR2,
93 x_rule_information1 OUT NOCOPY VARCHAR2,
94 x_rule_information2 OUT NOCOPY VARCHAR2,
95 x_rule_information3 OUT NOCOPY VARCHAR2,
96 x_rule_information4 OUT NOCOPY VARCHAR2)
97 AS
98 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
99 l_msg_count NUMBER;
100 l_msg_data VARCHAR2(2000);
101 BEGIN
102 g_api_name := 'Update Tax';
103
104
105
106
107
108 --End Vertical User Hook Call
109
110 ---Call to private API
111 okl_asset_details_pvt.update_tax(p_api_version =>p_api_version,
112 p_init_msg_list => p_init_msg_list,
113 x_return_status => l_return_status,
114 x_msg_count => l_msg_count,
115 x_msg_data => l_msg_data,
116 p_rule_id => p_rule_id,
117 p_rule_grp_id => p_rule_grp_id,
118 p_dnz_chr_id => p_dnz_chr_id,
119 p_rule_information1 => p_rule_information1,
120 p_rule_information2 => p_rule_information2,
121 p_rule_information3 => p_rule_information3,
122 p_rule_information4 => p_rule_information4,
123 x_rule_information1 => x_rule_information1,
124 x_rule_information2 => x_rule_information2,
125 x_rule_information3 => x_rule_information3,
126 x_rule_information4 => x_rule_information4);
127
128 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
129 RAISE OKL_API.G_EXCEPTION_ERROR;
130 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
131 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
132 END IF;
133
134 --End Call to Private API
135
136
137
138 --End Vertical Post Processing Hook
139
140 --Start Horizontal Post Processing Hook
141
142
143
144 --End Horizontal Post Processing User Hook
145
146 x_return_status := l_return_status;
147 x_msg_count := l_msg_count;
148 x_msg_data := l_msg_data;
149
150 EXCEPTION
151
152 WHEN OKL_API.G_EXCEPTION_ERROR THEN
153 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
154 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
155 p_data => x_msg_data);
156
157 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
158 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
159 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
160 p_data => x_msg_data);
161
162 WHEN OTHERS THEN
163 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
164 FND_MSG_PUB.ADD_EXC_MSG('OKL_ASSET_DETAILS_PUB','Update_Tax');
165 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
166 p_data => x_msg_data);
167
168 END update_Tax;
169
170 PROCEDURE update_asset(p_api_version IN NUMBER,
171 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
172 x_return_status OUT NOCOPY VARCHAR2,
173 x_msg_count OUT NOCOPY NUMBER,
174 x_msg_data OUT NOCOPY VARCHAR2,
175 p_asset_id IN NUMBER,
176 p_asset_number IN VARCHAR2,
177 px_asset_desc IN OUT NOCOPY VARCHAR2,
178 px_model_no IN OUT NOCOPY VARCHAR2,
179 px_manufacturer IN OUT NOCOPY VARCHAR2)
180 AS
181 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
182 l_msg_count NUMBER;
183 l_msg_data VARCHAR2(2000);
184 BEGIN
185 g_api_name := 'Update Asset';
186
187
188
189
190
191 --End Vertical User Hook Call
192
193 --Call to private API
194 okl_asset_details_pvt.update_asset(p_api_version => p_api_version,
195 p_init_msg_list => p_init_msg_list,
196 x_return_status => l_return_status,
197 x_msg_count => l_msg_count,
198 x_msg_data => l_msg_data,
199 p_asset_id => p_asset_id,
200 p_asset_number => p_asset_number,
201 px_asset_desc => px_asset_desc,
202 px_model_no => px_model_no,
203 px_manufacturer => px_manufacturer);
204
205 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
206 RAISE OKL_API.G_EXCEPTION_ERROR;
207 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
208 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
209 END IF;
210
211 --End Call to Private API
212
213
214
215 --End Vertical Post Processing Hook
216
217 --Start Horizontal Post Processing Hook
218
219
220
221 --End Horizontal Post Processing User Hook
222
223 x_return_status := l_return_status;
224 x_msg_count := l_msg_count;
225 x_msg_data := l_msg_data;
226
227 EXCEPTION
228
229 WHEN OKL_API.G_EXCEPTION_ERROR THEN
230 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
231 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
232 p_data => x_msg_data);
233
234 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
235 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
236 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
237 p_data => x_msg_data);
238
239 WHEN OTHERS THEN
240 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
241 FND_MSG_PUB.ADD_EXC_MSG('OKL_ASSET_DETAILS_PUB','Update_Asset');
242 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
243 p_data => x_msg_data);
244
245 END update_Asset;
246
247 END okl_asset_details_pub;