20: FROM FND_LOOKUPS FND
21: WHERE FND.LOOKUP_TYPE = p_lookup_type
22: AND FND.LOOKUP_CODE = p_lookup_code;
23:
24: l_return_value VARCHAR2(200) := OKL_API.G_MISS_CHAR;
25: BEGIN
26: IF ( p_lookup_type IS NOT NULL AND p_lookup_code IS NOT NULL )
27: THEN
28: OPEN fnd_lookup_csr( p_lookup_type, p_lookup_code );
45:
46: l_api_name CONSTANT VARCHAR2(40) := 'GET_SYSTEM_ACCT_OPT';
47: l_api_version CONSTANT NUMBER := 1.0;
48: l_row_count NUMBER;
49: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
50: l_saov_rec saov_rec_type;
51: l_stmt VARCHAR2(3500);
52: l_org_id NUMBER;
53: TYPE ref_cursor IS REF CURSOR;
55:
56:
57: BEGIN
58:
59: x_return_status := OKL_API.G_RET_STS_SUCCESS;
60:
61: l_stmt := ' SELECT ID
62: ,CC_REP_CURRENCY_CODE
63: ,CODE_COMBINATION_ID
182:
183: EXCEPTION
184:
185: WHEN OTHERS THEN
186: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
187:
188: END GET_SYSTEM_ACCT_OPT;
189:
190:
201:
202: l_api_name CONSTANT VARCHAR2(40) := 'UPDT_SYSTEM_ACCT_OPT';
203: l_api_version CONSTANT NUMBER := 1.0;
204: l_row_count NUMBER;
205: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
206:
207: l_init_msg_list VARCHAR2(1);
208: l_msg_count NUMBER;
209: l_msg_data VARCHAR2(2000);
212: l_saov_rec_out saov_rec_type;
213:
214: BEGIN
215:
216: x_return_status := OKL_API.G_RET_STS_SUCCESS;
217:
218: l_return_status := OKL_API.START_ACTIVITY( l_api_name
219: ,g_pkg_name
220: ,p_init_msg_list
214: BEGIN
215:
216: x_return_status := OKL_API.G_RET_STS_SUCCESS;
217:
218: l_return_status := OKL_API.START_ACTIVITY( l_api_name
219: ,g_pkg_name
220: ,p_init_msg_list
221: ,l_api_version
222: ,p_api_version
222: ,p_api_version
223: ,'_PVT'
224: ,x_return_status);
225:
226: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
228: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
229: RAISE OKL_API.G_EXCEPTION_ERROR;
230: END IF;
223: ,'_PVT'
224: ,x_return_status);
225:
226: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
228: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
229: RAISE OKL_API.G_EXCEPTION_ERROR;
230: END IF;
231:
224: ,x_return_status);
225:
226: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
228: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
229: RAISE OKL_API.G_EXCEPTION_ERROR;
230: END IF;
231:
232: OKL_SYSTEM_ACCT_OPT_PVT.GET_SYSTEM_ACCT_OPT(p_api_version => 1.0,
225:
226: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
228: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
229: RAISE OKL_API.G_EXCEPTION_ERROR;
230: END IF;
231:
232: OKL_SYSTEM_ACCT_OPT_PVT.GET_SYSTEM_ACCT_OPT(p_api_version => 1.0,
233: p_init_msg_list => l_init_msg_list,
236: x_msg_data => l_msg_data,
237: p_set_of_books_id => p_saov_rec.set_of_books_id,
238: x_saov_rec => l_saov_rec_out);
239:
240: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
243: RAISE OKL_API.G_EXCEPTION_ERROR;
244: END IF;
237: p_set_of_books_id => p_saov_rec.set_of_books_id,
238: x_saov_rec => l_saov_rec_out);
239:
240: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
243: RAISE OKL_API.G_EXCEPTION_ERROR;
244: END IF;
245:
238: x_saov_rec => l_saov_rec_out);
239:
240: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
243: RAISE OKL_API.G_EXCEPTION_ERROR;
244: END IF;
245:
246: IF (l_saov_rec_out.ID = OKL_API.G_MISS_NUM) OR
239:
240: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
243: RAISE OKL_API.G_EXCEPTION_ERROR;
244: END IF;
245:
246: IF (l_saov_rec_out.ID = OKL_API.G_MISS_NUM) OR
247: (l_saov_rec_out.ID IS NULL) THEN
242: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
243: RAISE OKL_API.G_EXCEPTION_ERROR;
244: END IF;
245:
246: IF (l_saov_rec_out.ID = OKL_API.G_MISS_NUM) OR
247: (l_saov_rec_out.ID IS NULL) THEN
248:
249: OKL_SYS_ACCT_OPTS_PUB.INSERT_SYS_ACCT_OPTS(p_api_version => 1.0,
250: p_init_msg_list => l_init_msg_list,
263: IF l_saov_rec_out.account_derivation = G_ADO_AMB AND
264: l_saov_rec_in.account_derivation = G_ADO_ATS
265: THEN
266: -- Set the Error message
267: OKL_API.SET_MESSAGE(
268: p_app_name => G_APP_NAME
269: ,p_msg_name => G_INVALID_ADO_MSG
270: ,p_token1 => G_FROM_ADO
271: ,p_token1_value => GET_LOOKUP_MEANING(
277: l_saov_rec_in.account_derivation));
278: -- Set the return status with Error
279: x_return_status := Okc_Api.G_RET_STS_ERROR;
280: -- Raise the Exception
281: RAISE OKL_API.G_EXCEPTION_ERROR;
282: END IF;
283: -- R12 SLA Uptake : End
284: IF (p_saov_rec.id = OKL_API.G_MISS_NUM) THEN
285: l_saov_rec_in.id := l_saov_rec_out.id;
280: -- Raise the Exception
281: RAISE OKL_API.G_EXCEPTION_ERROR;
282: END IF;
283: -- R12 SLA Uptake : End
284: IF (p_saov_rec.id = OKL_API.G_MISS_NUM) THEN
285: l_saov_rec_in.id := l_saov_rec_out.id;
286: END IF;
287:
288: OKL_SYS_ACCT_OPTS_PUB.UPDATE_SYS_ACCT_OPTS(p_api_version => 1.0,
295:
296:
297: END IF;
298:
299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
302: RAISE OKL_API.G_EXCEPTION_ERROR;
303: END IF;
296:
297: END IF;
298:
299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
302: RAISE OKL_API.G_EXCEPTION_ERROR;
303: END IF;
304:
297: END IF;
298:
299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
302: RAISE OKL_API.G_EXCEPTION_ERROR;
303: END IF;
304:
305: x_saov_rec := l_saov_rec_out;
298:
299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
301: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
302: RAISE OKL_API.G_EXCEPTION_ERROR;
303: END IF;
304:
305: x_saov_rec := l_saov_rec_out;
306:
303: END IF;
304:
305: x_saov_rec := l_saov_rec_out;
306:
307: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
308:
309:
310: EXCEPTION
311:
308:
309:
310: EXCEPTION
311:
312: WHEN OKL_API.G_EXCEPTION_ERROR THEN
313: x_return_status := OKL_API.HANDLE_EXCEPTIONS
314: (l_api_name,
315: G_PKG_NAME,
316: 'OKL_API.G_RET_STS_ERROR',
309:
310: EXCEPTION
311:
312: WHEN OKL_API.G_EXCEPTION_ERROR THEN
313: x_return_status := OKL_API.HANDLE_EXCEPTIONS
314: (l_api_name,
315: G_PKG_NAME,
316: 'OKL_API.G_RET_STS_ERROR',
317: x_msg_count,
312: WHEN OKL_API.G_EXCEPTION_ERROR THEN
313: x_return_status := OKL_API.HANDLE_EXCEPTIONS
314: (l_api_name,
315: G_PKG_NAME,
316: 'OKL_API.G_RET_STS_ERROR',
317: x_msg_count,
318: x_msg_data,
319: '_PVT');
320: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
316: 'OKL_API.G_RET_STS_ERROR',
317: x_msg_count,
318: x_msg_data,
319: '_PVT');
320: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
321: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
322: ( l_api_name,
323: G_PKG_NAME,
324: 'OKL_API.G_RET_STS_UNEXP_ERROR',
317: x_msg_count,
318: x_msg_data,
319: '_PVT');
320: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
321: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
322: ( l_api_name,
323: G_PKG_NAME,
324: 'OKL_API.G_RET_STS_UNEXP_ERROR',
325: x_msg_count,
320: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
321: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
322: ( l_api_name,
323: G_PKG_NAME,
324: 'OKL_API.G_RET_STS_UNEXP_ERROR',
325: x_msg_count,
326: x_msg_data,
327: '_PVT');
328: WHEN OTHERS THEN
325: x_msg_count,
326: x_msg_data,
327: '_PVT');
328: WHEN OTHERS THEN
329: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
330: ( l_api_name,
331: G_PKG_NAME,
332: 'OTHERS',
333: x_msg_count,