[Home] [Help]
PACKAGE BODY: APPS.OKL_LA_JE_PUB
Source
1 Package body OKL_LA_JE_PUB as
2 /* $Header: OKLPJNLB.pls 115.5 2004/04/13 10:50:54 rnaik noship $ */
3
4 -------------------------------------------------------------------------------------------------
5 -- GLOBAL MESSAGE CONSTANTS
6 -------------------------------------------------------------------------------------------------
7 G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKL_NO_PARENT_RECORD';
8 G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
9 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
10 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
11 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXP_ERROR';
12 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
13 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
14 G_UPPERCASE_REQUIRED CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UPPERCASE_REQ';
15 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
16 ------------------------------------------------------------------------------------
17 -- GLOBAL EXCEPTION
18 ------------------------------------------------------------------------------------
19 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
20 G_EXCEPTION_STOP_VALIDATION EXCEPTION;
21 G_API_TYPE CONSTANT VARCHAR2(4) := '_PUB';
22 G_API_VERSION CONSTANT NUMBER := 1.0;
23 G_SCOPE CONSTANT VARCHAR2(4) := '_PUB';
24
25 -- GLOBAL VARIABLES
26 -----------------------------------------------------------------------------------
27
28
29 Procedure generate_journal_entries(
30 p_api_version IN NUMBER,
31 p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
32 p_commit IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
33 p_contract_id IN NUMBER,
34 p_transaction_type IN VARCHAR2,
35 p_draft_yn IN VARCHAR2 DEFAULT Okl_Api.G_TRUE,
36 p_memo_yn IN VARCHAR2 DEFAULT Okl_Api.G_TRUE,
37 x_return_status OUT NOCOPY VARCHAR2,
38 x_msg_count OUT NOCOPY NUMBER,
39 x_msg_data OUT NOCOPY VARCHAR2) IS
40
41 l_api_name CONSTANT VARCHAR2(30) := 'GENERATE_JOURNAL_ENTRIES';
42 l_api_version CONSTANT NUMBER := 1;
43 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
44
45 l_commit VARCHAR(1) := p_commit;
46 l_contract_id NUMBER := p_contract_id;
47 l_transaction_type VARCHAR2(256) := p_transaction_type;
48 l_draft_yn VARCHAR2(1) := p_draft_yn;
49 l_memo_yn VARCHAR2(1) := p_memo_yn;
50
51 BEGIN
52
53 x_return_status := OKL_API.START_ACTIVITY(
54 p_api_name => l_api_name,
55 p_pkg_name => g_pkg_name,
56 p_init_msg_list => p_init_msg_list,
57 l_api_version => l_api_version,
58 p_api_version => p_api_version,
59 p_api_type => G_API_TYPE,
60 x_return_status => x_return_status);
61
62 -- check if activity started successfully
63 If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
64 raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
65 ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
66 raise OKL_API.G_EXCEPTION_ERROR;
67 End If;
68
69
70
71 OKL_LA_JE_PVT.generate_journal_entries(
72 p_api_version,
73 p_init_msg_list,
74 p_commit,
75 p_contract_id,
76 p_transaction_type,
77 p_draft_yn,
78 p_memo_yn,
79 x_return_status,
80 x_msg_count,
81 x_msg_data);
82
83 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
84 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
85 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
86 RAISE OKL_API.G_EXCEPTION_ERROR;
87 END IF;
88
89
90
91
92 Exception
93 when OKL_API.G_EXCEPTION_ERROR then
94 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
95 p_api_name => l_api_name,
96 p_pkg_name => g_pkg_name,
97 p_exc_name => 'OKL_API.G_RET_STS_ERROR',
98 x_msg_count => x_msg_count,
99 x_msg_data => x_msg_data,
100 p_api_type => g_api_type);
101
102 when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
103 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
104 p_api_name => l_api_name,
105 p_pkg_name => g_pkg_name,
106 p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
107 x_msg_count => x_msg_count,
108 x_msg_data => x_msg_data,
109 p_api_type => g_api_type);
110
111 when OTHERS then
112 x_return_status := OKL_API.HANDLE_EXCEPTIONS(
113 p_api_name => l_api_name,
114 p_pkg_name => g_pkg_name,
115 p_exc_name => 'OTHERS',
116 x_msg_count => x_msg_count,
117 x_msg_data => x_msg_data,
118 p_api_type => g_api_type);
119
120
121 END generate_journal_entries;
122
123 End OKL_LA_JE_PUB;