[Home] [Help]
PACKAGE BODY: APPS.OKL_PAYMENT_APPLICATION_PUB
Source
1 PACKAGE BODY OKL_PAYMENT_APPLICATION_PUB AS
2 /* $Header: OKLPPYAB.pls 115.4 2002/12/02 04:47:46 arajagop noship $*/
3
4
5 -- Global Variables
6 G_DEBUG NUMBER := 1;
7 G_INIT_NUMBER NUMBER := -9999;
8 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_PAYMENT_APPLICATION_PUB';
9 G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
10 G_API_TYPE CONSTANT VARCHAR2(4) := '_PUB';
11
12 ------------------------------------------------------------------------------
13 -- PROCEDURE apply_payment
14 --
15 -- This procedure proportion-ed the payments accross Financial Asset Top Line
16 -- and Fee Top Line
17 --
18 -- Calls:
19 -- Called By:
20 ------------------------------------------------------------------------------
21 PROCEDURE apply_payment(
22 p_api_version IN NUMBER,
23 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
24 x_return_status OUT NOCOPY VARCHAR2,
25 x_msg_count OUT NOCOPY NUMBER,
26 x_msg_data OUT NOCOPY VARCHAR2,
27 p_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
28 p_stream_id IN OKC_RULES_V.OBJECT1_ID1%TYPE
29 ) IS
30 l_api_name CONSTANT VARCHAR2(30) := 'APPLY_PAYMENT';
31 l_api_version CONSTANT NUMBER := 1.0;
32 l_chr_id OKC_K_HEADERS_V.ID%TYPE;
33
34 BEGIN -- main process begins here
35
36 x_return_status := OKC_API.G_RET_STS_SUCCESS;
37 -- call START_ACTIVITY to create savepoint, check compatibility
38 -- and initialize message list
39 x_return_status := OKC_API.START_ACTIVITY(
40 p_api_name => l_api_name,
41 p_pkg_name => G_PKG_NAME,
42 p_init_msg_list => p_init_msg_list,
43 l_api_version => l_api_version,
44 p_api_version => p_api_version,
45 p_api_type => G_API_TYPE,
46 x_return_status => x_return_status);
47
48 -- check if activity started successfully
49 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
50 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
51 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
52 raise OKC_API.G_EXCEPTION_ERROR;
53 END IF;
54
55 l_chr_id := p_chr_id;
56
57
58 --Call pre Vertical Hook :
59
60
61 okl_payment_application_pvt.apply_payment(
62 p_api_version => 1.0,
63 p_init_msg_list => OKC_API.G_FALSE,
64 x_return_status => x_return_status,
65 x_msg_count => x_msg_count,
66 x_msg_data => x_msg_data,
67 p_chr_id => p_chr_id,
68 p_stream_id => p_stream_id
69 );
70
71 IF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
72 RAISE OKC_API.G_EXCEPTION_ERROR;
73 END IF;
74
75 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
76 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
77 END IF;
78
79 --Call After Horizontal Hook
80
81 --Call After Vertical Hook :
82
83
84 --Call End Activity
85 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
86 x_msg_data => x_msg_data);
87
88 --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
89
90 EXCEPTION
91 when OKC_API.G_EXCEPTION_ERROR then
92 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
93 p_api_name => l_api_name,
94 p_pkg_name => G_PKG_NAME,
95 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
96 x_msg_count => x_msg_count,
97 x_msg_data => x_msg_data,
98 p_api_type => G_API_TYPE);
99
100 when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
101 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
102 p_api_name => l_api_name,
103 p_pkg_name => G_PKG_NAME,
104 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
105 x_msg_count => x_msg_count,
106 x_msg_data => x_msg_data,
107 p_api_type => G_API_TYPE);
108
109 when OTHERS then
110 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
111 p_api_name => l_api_name,
112 p_pkg_name => G_PKG_NAME,
113 p_exc_name => 'OTHERS',
114 x_msg_count => x_msg_count,
115 x_msg_data => x_msg_data,
116 p_api_type => G_API_TYPE);
117
118 END apply_payment;
119
120 ------------------------------------------------------------------------------
121 -- PROCEDURE delete_payment
122 --
123 -- This procedure deletes payments from a contract
124 --
125 -- Calls:
126 -- Called By:
127 ------------------------------------------------------------------------------
128 PROCEDURE delete_payment(
129 p_api_version IN NUMBER,
130 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
131 x_return_status OUT NOCOPY VARCHAR2,
132 x_msg_count OUT NOCOPY NUMBER,
133 x_msg_data OUT NOCOPY VARCHAR2,
134 p_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
135 p_rgp_id IN OKC_RULE_GROUPS_V.ID%TYPE,
136 p_rule_id IN OKC_RULES_V.ID%TYPE
137 ) IS
138 l_api_name CONSTANT VARCHAR2(30) := 'DELETE_PAYMENT';
139 l_api_version CONSTANT NUMBER := 1.0;
140
141 BEGIN -- main process begins here
142
143 x_return_status := OKC_API.G_RET_STS_SUCCESS;
144 -- call START_ACTIVITY to create savepoint, check compatibility
145 -- and initialize message list
146 x_return_status := OKC_API.START_ACTIVITY(
147 p_api_name => l_api_name,
148 p_pkg_name => G_PKG_NAME,
149 p_init_msg_list => p_init_msg_list,
150 l_api_version => l_api_version,
151 p_api_version => p_api_version,
152 p_api_type => G_API_TYPE,
153 x_return_status => x_return_status);
154
155 -- check if activity started successfully
156 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
157 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
158 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
159 raise OKC_API.G_EXCEPTION_ERROR;
160 END IF;
161
162
163
164 --Call pre Vertical Hook :
165
166
167 okl_payment_application_pvt.delete_payment(
168 p_api_version => 1.0,
169 p_init_msg_list => OKC_API.G_FALSE,
170 x_return_status => x_return_status,
171 x_msg_count => x_msg_count,
172 x_msg_data => x_msg_data,
173 p_chr_id => p_chr_id,
174 p_rgp_id => p_rgp_id,
175 p_rule_id => p_rule_id
176 );
177
178 IF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
179 RAISE OKC_API.G_EXCEPTION_ERROR;
180 END IF;
181
182 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
183 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
184 END IF;
185
186 --Call After Horizontal Hook
187
188 --Call After Vertical Hook :
189
190
191 --Call End Activity
192 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
193 x_msg_data => x_msg_data);
194
195 --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
196
197 EXCEPTION
198 when OKC_API.G_EXCEPTION_ERROR then
199 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
200 p_api_name => l_api_name,
201 p_pkg_name => G_PKG_NAME,
202 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
203 x_msg_count => x_msg_count,
204 x_msg_data => x_msg_data,
205 p_api_type => G_API_TYPE);
206
207 when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
208 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
209 p_api_name => l_api_name,
210 p_pkg_name => G_PKG_NAME,
211 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
212 x_msg_count => x_msg_count,
213 x_msg_data => x_msg_data,
214 p_api_type => G_API_TYPE);
215
216 when OTHERS then
217 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
218 p_api_name => l_api_name,
219 p_pkg_name => G_PKG_NAME,
220 p_exc_name => 'OTHERS',
221 x_msg_count => x_msg_count,
222 x_msg_data => x_msg_data,
223 p_api_type => G_API_TYPE);
224
225 END delete_payment;
226
227 END OKL_PAYMENT_APPLICATION_PUB;