[Home] [Help]
PACKAGE BODY: APPS.OKL_CASH_APPL_RULES_PUB
Source
1 PACKAGE BODY OKL_CASH_APPL_RULES_PUB AS
2 /* $Header: OKLPCAPB.pls 120.5 2007/08/02 15:49:47 nikshah ship $ */
3
4 PROCEDURE okl_cash_applic ( p_api_version IN NUMBER
5 ,p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE
6 ,x_return_status OUT NOCOPY VARCHAR2
7 ,x_msg_count OUT NOCOPY NUMBER
8 ,x_msg_data OUT NOCOPY VARCHAR2
9 ,p_cons_bill_id IN OKL_CNSLD_AR_HDRS_V.ID%TYPE DEFAULT NULL
10 ,p_cons_bill_num IN OKL_CNSLD_AR_HDRS_V.CONSOLIDATED_INVOICE_NUMBER%TYPE DEFAULT NULL
11 ,p_currency_code IN OKL_TRX_CSH_RECEIPT_V.CURRENCY_CODE%TYPE DEFAULT NULL
12 ,p_currency_conv_type IN OKL_TRX_CSH_RECEIPT_V.EXCHANGE_RATE_TYPE%TYPE DEFAULT NULL
13 ,p_currency_conv_date IN OKL_TRX_CSH_RECEIPT_V.EXCHANGE_RATE_DATE%TYPE DEFAULT NULL
14 ,p_currency_conv_rate IN OKL_TRX_CSH_RECEIPT_V.EXCHANGE_RATE%TYPE DEFAULT NULL
15 ,p_irm_id IN OKL_TRX_CSH_RECEIPT_V.IRM_ID%TYPE DEFAULT NULL
16 ,p_check_number IN OKL_TRX_CSH_RECEIPT_V.CHECK_NUMBER%TYPE DEFAULT NULL
17 ,p_rcpt_amount IN OKL_TRX_CSH_RECEIPT_V.AMOUNT%TYPE DEFAULT NULL
18 ,p_contract_id IN OKC_K_HEADERS_B.ID%TYPE DEFAULT NULL
19 ,p_contract_num IN OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE DEFAULT NULL
20 ,p_customer_id IN OKL_TRX_CSH_RECEIPT_V.ILE_id%TYPE DEFAULT NULL
21 ,p_customer_num IN AR_CASH_RECEIPTS_ALL.PAY_FROM_CUSTOMER%TYPE DEFAULT NULL
22 ,p_gl_date IN OKL_TRX_CSH_RECEIPT_V.GL_DATE%TYPE DEFAULT NULL
23 ,p_receipt_date IN OKL_TRX_CSH_RECEIPT_V.DATE_EFFECTIVE%TYPE DEFAULT NULL
24 ,p_bank_account_id IN OKL_TRX_CSH_RECEIPT_V.IBA_ID%TYPE
25 ,p_comments IN AR_CASH_RECEIPTS_ALL.COMMENTS%TYPE DEFAULT NULL
26 ,p_create_receipt_flag IN VARCHAR2
27 ) IS
28
29 l_api_version NUMBER ;
30 l_init_msg_list VARCHAR2(1) ;
31 l_return_status VARCHAR2(1);
32 l_msg_count NUMBER ;
33 l_msg_data VARCHAR2(2000);
34
35 lp_cons_bill_id OKL_CNSLD_AR_HDRS_V.ID%TYPE;
36 lp_cons_bill_num OKL_CNSLD_AR_HDRS_V.CONSOLIDATED_INVOICE_NUMBER%TYPE;
37 lp_currency_code OKL_TRX_CSH_RECEIPT_V.CURRENCY_CODE%TYPE;
38 lp_currency_conv_type OKL_TRX_CSH_RECEIPT_V.EXCHANGE_RATE_TYPE%TYPE;
39 lp_currency_conv_date OKL_TRX_CSH_RECEIPT_V.EXCHANGE_RATE_DATE%TYPE;
40 lp_currency_conv_rate OKL_TRX_CSH_RECEIPT_V.EXCHANGE_RATE%TYPE;
41 lp_irm_id OKL_TRX_CSH_RECEIPT_V.IRM_ID%TYPE;
42 lp_check_number OKL_TRX_CSH_RECEIPT_V.CHECK_NUMBER%TYPE;
43 lp_rcpt_amount OKL_TRX_CSH_RECEIPT_V.AMOUNT%TYPE;
44 lp_contract_id OKC_K_HEADERS_B.ID%TYPE;
45 lp_contract_num OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
46 lp_customer_id OKL_TRX_CSH_RECEIPT_V.ILE_id%TYPE;
47 lp_customer_num AR_CASH_RECEIPTS_ALL.PAY_FROM_CUSTOMER%TYPE;
48 lp_gl_date OKL_TRX_CSH_RECEIPT_V.GL_DATE%TYPE;
49 lp_receipt_date OKL_TRX_CSH_RECEIPT_V.DATE_EFFECTIVE%TYPE;
50 lp_bank_account_id OKL_TRX_CSH_RECEIPT_V.IBA_ID%TYPE;
51 lp_comments AR_CASH_RECEIPTS_ALL.COMMENTS%TYPE;
52
53 lx_cons_bill_id OKL_CNSLD_AR_HDRS_V.ID%TYPE;
54 lx_cons_bill_num OKL_CNSLD_AR_HDRS_V.CONSOLIDATED_INVOICE_NUMBER%TYPE;
55 lx_currency_code OKL_TRX_CSH_RECEIPT_V.CURRENCY_CODE%TYPE;
56 lx_currency_conv_type OKL_TRX_CSH_RECEIPT_V.EXCHANGE_RATE_TYPE%TYPE;
57 lx_currency_conv_date OKL_TRX_CSH_RECEIPT_V.EXCHANGE_RATE_DATE%TYPE;
58 lx_currency_conv_rate OKL_TRX_CSH_RECEIPT_V.EXCHANGE_RATE%TYPE;
59 lx_irm_id OKL_TRX_CSH_RECEIPT_V.IRM_ID%TYPE;
60 lx_check_number OKL_TRX_CSH_RECEIPT_V.CHECK_NUMBER%TYPE;
61 lx_rcpt_amount OKL_TRX_CSH_RECEIPT_V.AMOUNT%TYPE;
62 lx_contract_id OKC_K_HEADERS_B.ID%TYPE;
63 lx_contract_num OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
64 lx_customer_id OKL_TRX_CSH_RECEIPT_V.ILE_id%TYPE;
65 lx_customer_num AR_CASH_RECEIPTS_ALL.PAY_FROM_CUSTOMER%TYPE;
66 lx_gl_date OKL_TRX_CSH_RECEIPT_V.GL_DATE%TYPE;
67 lx_receipt_date OKL_TRX_CSH_RECEIPT_V.DATE_EFFECTIVE%TYPE;
68 lx_bank_account_id OKL_TRX_CSH_RECEIPT_V.IBA_ID%TYPE;
69 lx_comments AR_CASH_RECEIPTS_ALL.COMMENTS%TYPE;
70
71 BEGIN
72
73 SAVEPOINT cash_appl_rules;
74
75
76 l_api_version := p_api_version ;
77 l_init_msg_list := p_init_msg_list ;
78 l_return_status := x_return_status ;
79 l_msg_count := x_msg_count ;
80 l_msg_data := x_msg_data ;
81
82 lp_cons_bill_id := p_cons_bill_id;
83 lp_cons_bill_num := p_cons_bill_num;
84 lp_currency_code := p_currency_code;
85
86 lp_currency_conv_type := p_currency_conv_type;
87 lp_currency_conv_date := p_currency_conv_date;
88 lp_currency_conv_rate := p_currency_conv_rate;
89
90 lp_irm_id := p_irm_id;
91 lp_check_number := p_check_number;
92 lp_rcpt_amount := p_rcpt_amount;
93 lp_contract_id := p_contract_id;
94 lp_contract_num := p_contract_num;
95 lp_customer_id := p_customer_id;
96 lp_customer_num := p_customer_num;
97 lp_gl_date := p_gl_date;
98 lp_comments := p_comments;
99 lp_receipt_date := p_receipt_date;
100 lp_bank_account_id := p_bank_account_id;
101
102
103
104 Okl_Cash_Appl_Rules.handle_manual_pay ( l_api_version
105 ,l_init_msg_list
106 ,l_return_status
107 ,l_msg_count
108 ,l_msg_data
109 ,lp_cons_bill_id
110 ,lp_cons_bill_num
111 ,lp_currency_code
112 ,lp_currency_conv_type
113 ,lp_currency_conv_date
114 ,lp_currency_conv_rate
115 ,lp_irm_id
116 ,lp_check_number
117 ,lp_rcpt_amount
118 ,lp_contract_id
119 ,lp_contract_num
120 ,lp_customer_id
121 ,lp_customer_num
122 ,lp_gl_date
123 ,lp_receipt_date
124 ,lp_bank_account_id
125 ,lp_comments
126 ,p_create_receipt_flag
127 );
128
129
130 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
131 RAISE FND_API.G_EXC_ERROR;
132 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
133 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
134 END IF;
135
136 --Assign value to OUT variables
137 x_return_status := l_return_status ;
138 x_msg_count := l_msg_count ;
139 x_msg_data := l_msg_data ;
140
141
142 EXCEPTION
143
144 WHEN FND_API.G_EXC_ERROR THEN
145 ROLLBACK TO cash_appl_rules;
146 x_return_status := FND_API.G_RET_STS_ERROR;
147 x_msg_count := l_msg_count ;
148 x_msg_data := l_msg_data ;
149 FND_MSG_PUB.count_and_get(
150 p_count => x_msg_count
151 ,p_data => x_msg_data);
152
153
154 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
155 ROLLBACK TO cash_appl_rules;
156 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
157 x_msg_count := l_msg_count ;
158 x_msg_data := l_msg_data ;
159 FND_MSG_PUB.count_and_get(
160 p_count => x_msg_count
161 ,p_data => x_msg_data);
162
163 WHEN OTHERS THEN
164 ROLLBACK TO cash_appl_rules;
165 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
166 x_msg_count := l_msg_count ;
167 x_msg_data := l_msg_data ;
168 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_CASH_APPL_RULES_PUB','unexpected error');
169 Fnd_Msg_Pub.count_and_get(
170 p_count => x_msg_count
171 ,p_data => x_msg_data);
172
173
174 END Okl_Cash_Applic;
175
176 PROCEDURE create_manual_receipt ( p_api_version IN NUMBER
177 ,p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE
178 ,x_return_status OUT NOCOPY VARCHAR2
179 ,x_msg_count OUT NOCOPY NUMBER
180 ,x_msg_data OUT NOCOPY VARCHAR2
181 ,p_cons_bill_id IN OKL_CNSLD_AR_HDRS_V.ID%TYPE DEFAULT NULL
182 ,p_ar_inv_id IN RA_CUSTOMER_TRX_ALL.CUSTOMER_TRX_ID%TYPE DEFAULT NULL
183 ,p_contract_id IN OKC_K_HEADERS_ALL_B.ID%TYPE DEFAULT NULL
184 ,p_rcpt_rec IN OKL_CASH_APPL_RULES.rcpt_rec_type
185 ,x_cash_receipt_id OUT NOCOPY NUMBER
186 ) IS
187
188 l_api_version NUMBER ;
189 l_init_msg_list VARCHAR2(1) ;
190 l_return_status VARCHAR2(1);
191 l_msg_count NUMBER ;
192 l_msg_data VARCHAR2(2000);
193
194 l_cons_bill_id OKL_CNSLD_AR_HDRS_V.ID%TYPE;
195 l_ar_inv_id RA_CUSTOMER_TRX_ALL.CUSTOMER_TRX_ID%TYPE;
196 l_contract_id OKC_K_HEADERS_B.ID%TYPE;
197
198 l_rcpt_rec Okl_Cash_Appl_Rules.rcpt_rec_type;
199
200 BEGIN
201
202 SAVEPOINT create_manual_receipt;
203
204
205 l_api_version := p_api_version ;
206 l_init_msg_list := p_init_msg_list ;
207 l_return_status := x_return_status ;
208 l_msg_count := x_msg_count ;
209 l_msg_data := x_msg_data ;
210
211 l_cons_bill_id := p_cons_bill_id;
212 l_ar_inv_id := p_ar_inv_id;
213 l_contract_id := p_contract_id;
214 l_rcpt_rec := p_rcpt_rec;
215
216
217 Okl_Cash_Appl_Rules.create_manual_receipt ( p_api_version => l_api_version
218 ,p_init_msg_list => l_init_msg_list
219 ,x_return_status => l_return_status
220 ,x_msg_count => l_msg_count
221 ,x_msg_data => l_msg_data
222 ,p_cons_bill_id => l_cons_bill_id
223 ,p_ar_inv_id => l_cons_bill_id
224 ,p_contract_id => l_contract_id
225 ,p_rcpt_rec => l_rcpt_rec
226 ,x_cash_receipt_id => x_cash_receipt_id
227 );
228
229
230 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
231 RAISE FND_API.G_EXC_ERROR;
232 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
233 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
234 END IF;
235
236 --Assign value to OUT variables
237 x_return_status := l_return_status ;
238 x_msg_count := l_msg_count ;
239 x_msg_data := l_msg_data ;
240
241 EXCEPTION
242
243 WHEN FND_API.G_EXC_ERROR THEN
244 ROLLBACK TO create_manual_receipt;
245 x_return_status := OKL_API.G_RET_STS_ERROR;
246 x_msg_count := l_msg_count ;
247 x_msg_data := l_msg_data ;
248 FND_MSG_PUB.count_and_get(
249 p_count => x_msg_count
250 ,p_data => x_msg_data);
251
252
253 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
254 ROLLBACK TO create_manual_receipt;
255 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
256 x_msg_count := l_msg_count ;
257 x_msg_data := l_msg_data ;
258 FND_MSG_PUB.count_and_get(
259 p_count => x_msg_count
260 ,p_data => x_msg_data);
261
262 WHEN OTHERS THEN
263 ROLLBACK TO create_manual_receipt;
264 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
265 x_msg_count := l_msg_count ;
266 x_msg_data := l_msg_data ;
267 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_CASH_APPL_RULES_PUB','unexpected error');
268 Fnd_Msg_Pub.count_and_get(
269 p_count => x_msg_count
270 ,p_data => x_msg_data);
271
272
273 END create_manual_receipt;
274
275
276 END okl_cash_appl_rules_pub;