[Home] [Help]
PACKAGE BODY: APPS.OKL_ACTIVATE_ASSET_PUB
Source
1 Package Body OKL_ACTIVATE_ASSET_PUB As
2 /* $Header: OKLPACAB.pls 115.5 2004/04/13 10:26:16 rnaik noship $ */
3 G_PKG_NAME VARCHAR2(100) := 'OKL_ACTIVATE_ASSET_PUB';
4 --------------------------------------------------------------------------------
5 --Start of Comments
6 --Procedure Name : ACTIVATE_ASSET
7 --Description : Selects the 'CFA' - Create Asset Transaction from a ready to be
8 -- Booked Contract which has passed Approval
9 -- and created assets in FA
10 --
11 --History :
12 -- 03-Nov-2001 avsingh Created
13 -- Notes :
14 -- IN Parameters -
15 -- p_chr_id - contract id to be activated
16 -- p_call_mode - 'BOOK' for booking
17 -- 'REBOOK' for rebooking
18 -- 'RELEASE' for release
19 -- x_cimv_tbl - OKC line source table showing
20 -- fa links in ID1 , ID2 columns
21 --End of Comments
22 --------------------------------------------------------------------------------
23 PROCEDURE ACTIVATE_ASSET(p_api_version IN NUMBER,
24 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
25 x_return_status OUT NOCOPY VARCHAR2,
26 x_msg_count OUT NOCOPY NUMBER,
27 x_msg_data OUT NOCOPY VARCHAR2,
28 p_chrv_id IN NUMBER,
29 p_call_mode IN VARCHAR2,
30 x_cimv_tbl OUT NOCOPY cimv_tbl_type) IS
31
32 l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
33 l_api_name CONSTANT varchar2(30) := 'ACTIVATE_ASSET';
34 l_api_version CONSTANT NUMBER := 1.0;
35
36 BEGIN
37 x_return_status := OKL_API.G_RET_STS_SUCCESS;
38 -- Call start_activity to create savepoint, check compatibility
39 -- and initialize message list
40 x_return_status := OKL_API.START_ACTIVITY (
41 l_api_name
42 ,p_init_msg_list
43 ,'_PUB'
44 ,x_return_status);
45 -- Check if activity started successfully
46 IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
47 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
48 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
49 RAISE OKL_API.G_EXCEPTION_ERROR;
50 END IF;
51 --Customer pre-processing Section
52
53 --Vertical Industry pre-processing Section
54
55 --call process api
56 OKL_ACTIVATE_ASSET_PVT.ACTIVATE_ASSET(p_api_version => p_api_version,
57 p_init_msg_list => p_init_msg_list,
58 x_return_status => x_return_status,
59 x_msg_count => x_msg_count,
60 x_msg_data => x_msg_data,
61 p_chrv_id => p_chrv_id,
62 p_call_mode => p_call_mode,
63 x_cimv_tbl => x_cimv_tbl);
64 IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
65 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
66 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
67 RAISE OKL_API.G_EXCEPTION_ERROR;
68 END IF;
69
70 --Vertical Industry post-processing Section
71
72 --Custom post-processing Section
73
74 OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
75 EXCEPTION
76 WHEN OKL_API.G_EXCEPTION_ERROR THEN
77 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
78 l_api_name,
79 G_PKG_NAME,
80 'OKL_API.G_RET_STS_ERROR',
81 x_msg_count,
82 x_msg_data,
83 '_PUB');
84 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
85 x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
86 l_api_name,
87 G_PKG_NAME,
88 'OKL_API.G_RET_STS_UNEXP_ERROR',
89 x_msg_count,
90 x_msg_data,
91 '_PUB');
92 WHEN OTHERS THEN
93 x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
94 l_api_name,
95 G_PKG_NAME,
96 'OTHERS',
97 x_msg_count,
98 x_msg_data,
99 '_PUB');
100 END ACTIVATE_ASSET;
101 --------------------------------------------------------------------------------
102 --Start of Comments
103 --Procedure Name : REBOOK_ASSET (Activate code branch for rebook)
104 --Description : Will be called from activate asset and make rebook adjustments
105 -- in FA
106 --History :
107 -- 21-Mar-2002 ashish.singh Created
108 -- Notes :
109 -- IN Parameters -
110 -- p_rbk_chr_id - contract id of rebook copied contract
111 --
112 -- This APi should be called after syncronization of copied k
113 -- to the original (being re-booked ) K
114 --End of Comments
115 --------------------------------------------------------------------------------
116 PROCEDURE REBOOK_ASSET (p_api_version IN NUMBER,
117 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
118 x_return_status OUT NOCOPY VARCHAR2,
119 x_msg_count OUT NOCOPY NUMBER,
120 x_msg_data OUT NOCOPY VARCHAR2,
121 p_rbk_chr_id IN NUMBER) IS
122
123 l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
124 l_api_name CONSTANT varchar2(30) := 'REBOOK_ASSET';
125 l_api_version CONSTANT NUMBER := 1.0;
126
127 BEGIN
128 x_return_status := OKL_API.G_RET_STS_SUCCESS;
129 -- Call start_activity to create savepoint, check compatibility
130 -- and initialize message list
131 x_return_status := OKL_API.START_ACTIVITY (
132 l_api_name
133 ,p_init_msg_list
134 ,'_PUB'
135 ,x_return_status);
136 -- Check if activity started successfully
137 IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
138 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
139 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
140 RAISE OKL_API.G_EXCEPTION_ERROR;
141 END IF;
142 --Customer pre-processing Section
143
144 --Vertical Industry pre-processing Section
145
146 --call process api
147 OKL_ACTIVATE_ASSET_PVT.REBOOK_ASSET(p_api_version => p_api_version,
148 p_init_msg_list => p_init_msg_list,
149 x_return_status => x_return_status,
150 x_msg_count => x_msg_count,
151 x_msg_data => x_msg_data,
152 p_rbk_chr_id => p_rbk_chr_id
153 );
154 IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
155 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
156 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
157 RAISE OKL_API.G_EXCEPTION_ERROR;
158 END IF;
159
160 --Vertical Industry post-processing Section
161
162 --Custom post-processing Section
163
164 OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
165 EXCEPTION
166 WHEN OKL_API.G_EXCEPTION_ERROR THEN
167 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
168 l_api_name,
169 G_PKG_NAME,
170 'OKL_API.G_RET_STS_ERROR',
171 x_msg_count,
172 x_msg_data,
173 '_PUB');
174 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
175 x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
176 l_api_name,
177 G_PKG_NAME,
178 'OKL_API.G_RET_STS_UNEXP_ERROR',
179 x_msg_count,
180 x_msg_data,
181 '_PUB');
182 WHEN OTHERS THEN
183 x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
184 l_api_name,
185 G_PKG_NAME,
186 'OTHERS',
187 x_msg_count,
188 x_msg_data,
189 '_PUB');
190 END REBOOK_ASSET;
191 PROCEDURE RELEASE_ASSET (p_api_version IN NUMBER,
192 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
193 x_return_status OUT NOCOPY VARCHAR2,
194 x_msg_count OUT NOCOPY NUMBER,
195 x_msg_data OUT NOCOPY VARCHAR2,
196 p_rel_chr_id IN NUMBER) is
197 l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
198 l_api_name CONSTANT varchar2(30) := 'RELEASE_ASSET';
199 l_api_version CONSTANT NUMBER := 1.0;
200
201 BEGIN
202 x_return_status := OKL_API.G_RET_STS_SUCCESS;
203 -- Call start_activity to create savepoint, check compatibility
204 -- and initialize message list
205 x_return_status := OKL_API.START_ACTIVITY (
206 l_api_name
207 ,p_init_msg_list
208 ,'_PUB'
209 ,x_return_status);
210 -- Check if activity started successfully
211 IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
212 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
213 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
214 RAISE OKL_API.G_EXCEPTION_ERROR;
215 END IF;
216 --Customer pre-processing Section
217
218 --Vertical Industry pre-processing Section
219
220 --call process api
221 OKL_ACTIVATE_ASSET_PVT.RELEASE_ASSET(p_api_version => p_api_version,
222 p_init_msg_list => p_init_msg_list,
223 x_return_status => x_return_status,
224 x_msg_count => x_msg_count,
225 x_msg_data => x_msg_data,
226 p_rel_chr_id => p_rel_chr_id
227 );
228 IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
229 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
230 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
231 RAISE OKL_API.G_EXCEPTION_ERROR;
232 END IF;
233
234 --Vertical Industry post-processing Section
235
236 --Custom post-processing Section
237
238 OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
239 EXCEPTION
240 WHEN OKL_API.G_EXCEPTION_ERROR THEN
241 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
242 l_api_name,
243 G_PKG_NAME,
244 'OKL_API.G_RET_STS_ERROR',
245 x_msg_count,
246 x_msg_data,
247 '_PUB');
248 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
249 x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
250 l_api_name,
251 G_PKG_NAME,
252 'OKL_API.G_RET_STS_UNEXP_ERROR',
253 x_msg_count,
254 x_msg_data,
255 '_PUB');
256 WHEN OTHERS THEN
257 x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
258 l_api_name,
259 G_PKG_NAME,
260 'OTHERS',
261 x_msg_count,
262 x_msg_data,
263 '_PUB');
264 END RELEASE_ASSET;
265 END OKL_ACTIVATE_ASSET_PUB;