[Home] [Help]
PACKAGE BODY: APPS.OKL_MISC_TRANS_PUB
Source
1 PACKAGE BODY OKL_MISC_TRANS_PUB AS
2 /* $Header: OKLPMSCB.pls 120.3 2005/10/30 04:26:07 appldev noship $ */
3 -- Start of wraper code generated automatically by Debug code generator
4 L_MODULE VARCHAR2(40) := 'LEASE.ACCOUNTING.TRANSACTIONS';
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
12 PROCEDURE CREATE_MISC_DSTR_LINE(p_api_version IN NUMBER,
13 p_init_msg_list IN VARCHAR2,
14 x_return_status OUT NOCOPY VARCHAR2,
15 x_msg_count OUT NOCOPY NUMBER,
16 x_msg_data OUT NOCOPY VARCHAR2,
17 p_tclv_rec IN tclv_rec_type,
18 x_tclv_rec OUT NOCOPY tclv_rec_type)
19 IS
20
21 l_api_version NUMBER := 1.0;
22 l_api_name VARCHAR2(30) := 'CREATE_MISC_DSTR_LINE';
23
24 l_tclv_rec tclv_rec_type := p_tclv_rec;
25 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
26
27 BEGIN
28
29 SAVEPOINT CREATE_MISC_DSTR_LINE;
30
31 x_return_status := FND_API.G_RET_STS_SUCCESS;
32
33 -- customer pre-processing
34
35
36
37
38 -- Run the MAIN Procedure
39
40
41 -- Start of wraper code generated automatically by Debug code generator for OKL_MISC_TRANS_PVT.CREATE_MISC_DSTR_LINE
42 IF(L_DEBUG_ENABLED='Y') THEN
43 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
44 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
45 END IF;
46 IF(IS_DEBUG_PROCEDURE_ON) THEN
47 BEGIN
48 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPMSCB.pls call OKL_MISC_TRANS_PVT.CREATE_MISC_DSTR_LINE ');
49 END;
50 END IF;
51 OKL_MISC_TRANS_PVT.CREATE_MISC_DSTR_LINE(p_api_version => l_api_version,
52 p_init_msg_list => p_init_msg_list,
53 x_return_status => x_return_status,
54 x_msg_count => x_msg_count,
55 x_msg_data => x_msg_data,
56 p_tclv_rec => l_tclv_rec,
57 x_tclv_rec => x_tclv_rec);
58 IF(IS_DEBUG_PROCEDURE_ON) THEN
59 BEGIN
60 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPMSCB.pls call OKL_MISC_TRANS_PVT.CREATE_MISC_DSTR_LINE ');
61 END;
62 END IF;
63 -- End of wraper code generated automatically by Debug code generator for OKL_MISC_TRANS_PVT.CREATE_MISC_DSTR_LINE
64
65
66 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
67 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
69 RAISE FND_API.G_EXC_ERROR;
70 END IF;
71
72 l_tclv_rec := x_tclv_rec;
73
74
75
76
77
78 EXCEPTION
79
80 WHEN FND_API.G_EXC_ERROR THEN
81 ROLLBACK TO CREATE_MISC_DSTR_LINE;
82 x_return_status := FND_API.G_RET_STS_ERROR;
83
84 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
85 ,p_count => x_msg_count
86 ,p_data => x_msg_data);
87
88 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
89 ROLLBACK TO CREATE_MISC_DSTR_LINE;
90 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
91 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
92 ,p_count => x_msg_count
93 ,p_data => x_msg_data);
94
95 WHEN OTHERS THEN
96
97 FND_MSG_PUB.ADD_EXC_MSG('OKL_MISC_TRANS_PUB','CREATE_MISC_DSTR_LINE');
98 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
99 ,p_count => x_msg_count
100 ,p_data => x_msg_data);
101 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
102
103
104 END CREATE_MISC_DSTR_LINE;
105
106
107 -----------------------------------------------------------------------------
108 -- PROCEDURE create_misc_transaction
109 -----------------------------------------------------------------------------
110 -- Start of comments
111 --
112 -- Procedure Name : create_misc_transaction
113 -- Description : This procedure creates the manual journal header, lines
114 -- Business Rules :
115 -- Parameters :
116 -- Version : 1.0
117 -- History : 10-JUN-2004 RABHUPAT Created
118 -- End of comments
119
120 PROCEDURE create_misc_transaction(p_api_version IN NUMBER,
121 p_init_msg_list IN VARCHAR2,
122 x_return_status OUT NOCOPY VARCHAR2,
123 x_msg_count OUT NOCOPY NUMBER,
124 x_msg_data OUT NOCOPY VARCHAR2,
125 p_jrnl_hdr_rec IN OKL_MISC_TRANS_PVT.jrnl_hdr_rec_type,
126 p_jrnl_line_tbl IN OKL_MISC_TRANS_PVT.jrnl_line_tbl_type,
127 x_jrnl_hdr_rec OUT NOCOPY OKL_MISC_TRANS_PVT.jrnl_hdr_rec_type) IS
128
129 l_prog_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||'create_misc_transaction';
130
131 l_jrnl_hdr_rec OKL_MISC_TRANS_PVT.jrnl_hdr_rec_type;
132 l_jrnl_line_tbl OKL_MISC_TRANS_PVT.jrnl_line_tbl_type;
133 lx_jrnl_hdr_rec OKL_MISC_TRANS_PVT.jrnl_hdr_rec_type;
134
135 lx_return_status VARCHAR2(1);
136
137 BEGIN
138
139 IF p_init_msg_list = G_TRUE THEN
140 FND_MSG_PUB.initialize;
141 END IF;
142 -- initialize the local variables with the in records
143 l_jrnl_hdr_rec := p_jrnl_hdr_rec;
144 l_jrnl_line_tbl := p_jrnl_line_tbl;
145
146 -- call the private wrapper to create manual journal
147 OKL_MISC_TRANS_PVT.create_misc_transaction(p_api_version => p_api_version,
148 p_init_msg_list => p_init_msg_list,
149 x_return_status => lx_return_status,
150 x_msg_count => x_msg_count,
151 x_msg_data => x_msg_data,
152 p_jrnl_hdr_rec => l_jrnl_hdr_rec,
153 p_jrnl_line_tbl => l_jrnl_line_tbl,
154 x_jrnl_hdr_rec => lx_jrnl_hdr_rec);
155
156 IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
157 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
158 ELSIF lx_return_status = G_RET_STS_ERROR THEN
159 RAISE OKL_API.G_EXCEPTION_ERROR;
160 END IF;
161 -- return record
162 x_jrnl_hdr_rec := lx_jrnl_hdr_rec;
163 -- return the status
164 x_return_status := lx_return_status;
165
166 EXCEPTION
167
168 WHEN OKL_API.G_EXCEPTION_ERROR THEN
169 fnd_msg_pub.count_and_get(p_count => x_msg_count,
170 p_data => x_msg_data);
171 x_return_status := G_RET_STS_ERROR;
172
173 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
174 fnd_msg_pub.count_and_get(p_count => x_msg_count,
175 p_data => x_msg_data);
176 x_return_status := G_RET_STS_UNEXP_ERROR;
177
178 WHEN OTHERS THEN
179 OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
180 p_msg_name => G_DB_ERROR,
181 p_token1 => G_PROG_NAME_TOKEN,
182 p_token1_value => l_prog_name,
183 p_token2 => G_SQLCODE_TOKEN,
184 p_token2_value => sqlcode,
185 p_token3 => G_SQLERRM_TOKEN,
186 p_token3_value => sqlerrm);
187 x_return_status := G_RET_STS_UNEXP_ERROR;
188
189 END create_misc_transaction;
190
191 -----------------------------------------------------------------------------
192 -- PROCEDURE update_misc_transaction
193 -----------------------------------------------------------------------------
194 -- Start of comments
195 --
196 -- Procedure Name : update_misc_transaction
197 -- Description : This procedure updates the manual journal header, creates/updates lines
198 -- Business Rules :
199 -- Parameters :
200 -- Version : 1.0
201 -- History : 10-JUN-2004 RABHUPAT Created
202 -- End of comments
203
204 PROCEDURE update_misc_transaction(p_api_version IN NUMBER,
205 p_init_msg_list IN VARCHAR2,
206 x_return_status OUT NOCOPY VARCHAR2,
207 x_msg_count OUT NOCOPY NUMBER,
208 x_msg_data OUT NOCOPY VARCHAR2,
209 p_jrnl_hdr_rec IN OKL_MISC_TRANS_PVT.jrnl_hdr_rec_type,
210 p_jrnl_line_tbl IN OKL_MISC_TRANS_PVT.jrnl_line_tbl_type) IS
211
212 l_prog_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||'update_misc_transaction';
213
214 l_jrnl_hdr_rec OKL_MISC_TRANS_PVT.jrnl_hdr_rec_type;
215 l_jrnl_line_tbl OKL_MISC_TRANS_PVT.jrnl_line_tbl_type;
216
217 lx_return_status VARCHAR2(1);
218
219 BEGIN
220
221 IF p_init_msg_list = G_TRUE THEN
222 FND_MSG_PUB.initialize;
223 END IF;
224 -- initialize the local variables with the in records
225 l_jrnl_hdr_rec := p_jrnl_hdr_rec;
226 l_jrnl_line_tbl := p_jrnl_line_tbl;
227
228 -- call the private wrapper to create manual journal
229 OKL_MISC_TRANS_PVT.update_misc_transaction(p_api_version => p_api_version,
230 p_init_msg_list => p_init_msg_list,
231 x_return_status => lx_return_status,
232 x_msg_count => x_msg_count,
233 x_msg_data => x_msg_data,
234 p_jrnl_hdr_rec => l_jrnl_hdr_rec,
235 p_jrnl_line_tbl => l_jrnl_line_tbl);
236
237 IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
238 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
239 ELSIF lx_return_status = G_RET_STS_ERROR THEN
240 RAISE OKL_API.G_EXCEPTION_ERROR;
241 END IF;
242
243 -- return the status
244 x_return_status := lx_return_status;
245
246 EXCEPTION
247
248 WHEN OKL_API.G_EXCEPTION_ERROR THEN
249 fnd_msg_pub.count_and_get(p_count => x_msg_count,
250 p_data => x_msg_data);
251 x_return_status := G_RET_STS_ERROR;
252
253 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
254 fnd_msg_pub.count_and_get(p_count => x_msg_count,
255 p_data => x_msg_data);
256 x_return_status := G_RET_STS_UNEXP_ERROR;
257
258 WHEN OTHERS THEN
259 OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
260 p_msg_name => G_DB_ERROR,
261 p_token1 => G_PROG_NAME_TOKEN,
262 p_token1_value => l_prog_name,
263 p_token2 => G_SQLCODE_TOKEN,
264 p_token2_value => sqlcode,
265 p_token3 => G_SQLERRM_TOKEN,
266 p_token3_value => sqlerrm);
267 x_return_status := G_RET_STS_UNEXP_ERROR;
268
269 END update_misc_transaction;
270
271
272
273 END OKL_MISC_TRANS_PUB;