[Home] [Help]
PACKAGE BODY: APPS.AR_RECEIPT_UPDATE_API_PUB
Source
1 PACKAGE BODY AR_RECEIPT_UPDATE_API_PUB AS
2 /* $Header: ARXPREUB.pls 120.7 2008/06/23 12:07:49 mpsingh noship $ */
3
4 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
5 /* =======================================================================
6 | Global Data Types
7 * ======================================================================*/
8
9 G_PKG_NAME CONSTANT VARCHAR2(30) := 'AR_RECEIPT_UPDATE_API_PUB';
10
11 --- Start Validate
12
13 PROCEDURE Validate_id(p_customer_id IN NUMBER,
14 p_cash_receipt_id IN NUMBER,
15 p_payment_trxn_extension_id IN NUMBER,
16 p_customer_bank_account_id IN NUMBER,
17 x_msg_count OUT NOCOPY NUMBER,
18 x_msg_data OUT NOCOPY VARCHAR2,
19 x_return_status OUT NOCOPY VARCHAR2,
20 x_crv_rec OUT NOCOPY ar_cash_receipts_v%ROWTYPE
21 )
22 IS
23
24
25 l_crv_rec ar_cash_receipts_v%ROWTYPE;
26 l_payment_trxn_extension_id ar_cash_receipts.payment_trxn_extension_id%TYPE;
27 l_creation_method_code ar_receipt_classes.creation_method_code%TYPE;
28 l_cash_receipt_id NUMBER := p_cash_receipt_id;
29 l_customer_id NUMBER := p_customer_id;
30 l_customer_bank_account_id NUMBER := p_customer_bank_account_id;
31 l_bank_chk NUMBER := 0;
32
33 --- For site use id -----
34 CURSOR c_default_location IS
35 SELECT
36 site.site_use_id,
37 site.location
38 FROM
39 hz_cust_site_uses site,
40 hz_cust_acct_sites acct_site
41 WHERE
42 acct_site.cust_account_id = l_customer_id
43 AND acct_site.status = 'A'
44 AND site.cust_acct_site_id = acct_site.cust_acct_site_id
45 AND site.site_use_code = 'BILL_TO'
46 AND site.status = 'A'
47 AND site.primary_flag = 'Y';
48
49 l_location VARCHAR2(40) := NULL;
50 l_customer_site_use_id NUMBER;
51 l_valid NUMBER;
52
53 BEGIN
54
55 x_return_status := FND_API.G_RET_STS_SUCCESS;
56
57 arp_util.debug('EXCEPTION: Validate_id()+ ');
58
59 --- Cash receipt validation
60
61 begin
62
63 IF l_cash_receipt_id is NUll THEN
64 arp_standard.debug('Null Cash_receipt_id passed .');
65
66 FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_NULL');
67 FND_MSG_PUB.Add;
68 x_return_status := FND_API.G_RET_STS_ERROR;
69 FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
70 p_count => x_msg_count,
71 p_data => x_msg_data);
72 return;
73
74 ELSE
75
76 SELECT count(*)
77 INTO l_valid
78 FROM AR_CASH_RECEIPTS_V
79 WHERE cash_receipt_id = p_cash_receipt_id;
80
81 IF l_valid = 0 THEN
82 arp_standard.debug('Invlaid Cash_receipt_id passed .');
83 FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
84 FND_MSG_PUB.Add;
85 x_return_status := FND_API.G_RET_STS_ERROR;
86 FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
87 p_count => x_msg_count,
88 p_data => x_msg_data);
89 return;
90 END IF;
91
92
93 END IF;
94
95 SELECT * INTO l_crv_rec
96 FROM AR_CASH_RECEIPTS_V
97 WHERE cash_receipt_id = p_cash_receipt_id;
98
99 x_crv_rec := l_crv_rec;
100
101 Exception
102 When others then
103 IF PG_DEBUG in ('Y', 'C') THEN
104 arp_util.debug('EXCEPTION: Validate_cash_receipt_id() ');
105 END IF;
106 raise;
107 End; --- Cash receipt validation END
108
109
110
111
112 ------------------------- Getting the site use id ------------------------
113 OPEN c_default_location;
114 FETCH c_default_location INTO
115 l_customer_site_use_id,
116 l_location;
117 CLOSE c_default_location;
118
119 ------------------------- Getting the site use id END --------------------
120
121 IF l_customer_site_use_id IS NULL THEN
122
123 FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_STE_USE_ID_NOT_DEF');
124 FND_MSG_PUB.Add;
125 x_return_status := FND_API.G_RET_STS_ERROR;
126 FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
127 p_count => x_msg_count,
128 p_data => x_msg_data);
129 return;
130
131 END IF;
132
133 --x_crv_rec.customer_site_use_id := l_customer_site_use_id;
134
135
136 ----- Checking Receipt Status
137
138 IF l_crv_rec.receipt_status <> 'UNID' THEN
139 arp_standard.debug('Receipt Status is not UNID.');
140 x_return_status := FND_API.G_RET_STS_ERROR ;
141 FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
142 FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Only receipt with Status UNID can be updated');
143 FND_MSG_PUB.Add;
144
145 FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
146 p_count => x_msg_count,
147 p_data => x_msg_data
148 );
149 return;
150
151 END IF;
152
153
154 ----- Checking Receipt Status END
155
156
157 -- Validating payemnt Ext id
158
159
160 l_creation_method_code := l_crv_rec.CREATION_METHOD_CODE;
161 l_payment_trxn_extension_id := p_payment_trxn_extension_id;
162
163
164 IF ( l_creation_method_code = 'AUTOMATIC' and l_payment_trxn_extension_id is NULL) THEN
165
166 arp_standard.debug('payment_trxn_extension_id is null for Automatic receipt');
167 x_return_status := FND_API.G_RET_STS_ERROR ;
168
169 FND_MESSAGE.SET_NAME('AR','AR_CC_AUTH_FAILED');
170 FND_MSG_PUB.Add;
171
172 FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
173 p_count => x_msg_count,
174 p_data => x_msg_data
175 );
176 return;
177
178 END IF;
179
180 IF ( l_creation_method_code <> 'AUTOMATIC' and l_payment_trxn_extension_id is NOT NULL) THEN
181
182 arp_standard.debug('payment_trxn_extension_id is not null for Manual receipt');
183 x_return_status := FND_API.G_RET_STS_ERROR ;
184
185 FND_MESSAGE.SET_NAME('AR','AR_CC_AUTH_FAILED');
186 FND_MSG_PUB.Add;
187
188 FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
189 p_count => x_msg_count,
190 p_data => x_msg_data
191 );
192 return;
193
194 END IF;
195
196 -- Validating payemnt Ext id END
197
198 -- Validating Bank Account Id
199
200
201 IF ( l_creation_method_code = 'AUTOMATIC' and l_customer_bank_account_id is NOT NULL) THEN
202
203 arp_standard.debug('Customer Bank id is not required for Automatic receipt');
204 arp_standard.debug('Ignoring Customer Bank Id');
205 l_customer_bank_account_id := NULL;
206 END IF;
207
208 IF ( l_creation_method_code <> 'AUTOMATIC' and l_customer_bank_account_id is NOT NULL) THEN
209
210
211 begin
212 select 1 INTO l_bank_chk
213 from iby_fndcpt_payer_assgn_instr_v a,
214 iby_ext_bank_accounts_v bb
215 where a.cust_account_id = l_customer_id
216 and a.instrument_type = 'BANKACCOUNT'
217 and ( a.acct_site_use_id = l_customer_site_use_id or a.acct_site_use_id is null)
218 and a.currency_code = l_crv_rec.CURRENCY_CODE
219 and bb.ext_bank_account_id = a.instrument_id
220 and bb.ext_bank_account_id = l_customer_bank_account_id;
221 exception
222 when no_data_found then
223 l_bank_chk := 0;
224 when too_many_rows then
225 l_bank_chk := 1;
226 when others then
227 l_bank_chk := -1;
228 end;
229
230 IF NVL(l_bank_chk,0) = 0 THEN
231
232 arp_standard.debug('Bank id is incorrect for provided customer details');
233 x_return_status := FND_API.G_RET_STS_ERROR ;
234
235 FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_ID_INVALID');
236 FND_MSG_PUB.Add;
237
238 FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
239 p_count => x_msg_count,
240 p_data => x_msg_data
241 );
242 return;
243 ELSIF NVL(l_bank_chk,0) = -1 THEN
244 arp_standard.debug('Unknown error occur for bank details');
245 x_return_status := FND_API.G_RET_STS_ERROR ;
246
247 FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
248 FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Unknown error occur for bank details');
249 FND_MSG_PUB.Add;
250 END IF;
251
252 END IF;
253
254 -- Validating Bank Account Id END
255
256 x_crv_rec.customer_site_use_id := l_customer_site_use_id;
257 x_crv_rec.customer_bank_account_id := l_customer_bank_account_id;
258
259 arp_util.debug('EXCEPTION: Validate_id() - ');
260
261
262 EXCEPTION
263
264 WHEN OTHERS THEN
265 IF c_default_location%ISOPEN THEN CLOSE c_default_location; END IF;
266 x_return_status := FND_API.G_RET_STS_ERROR ;
267 IF PG_DEBUG in ('Y', 'C') THEN
268 arp_util.debug('EXCEPTION: Validate_id() ');
269 END IF;
270 raise;
271
272 END Validate_id;
273
274 --- End Validate
275
276 PROCEDURE update_receipt_unid_to_unapp (
277 -- Standard API parameters.
278 p_api_version IN NUMBER,
279 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
280 p_commit IN VARCHAR2 := FND_API.G_FALSE,
281 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
282 x_return_status OUT NOCOPY VARCHAR2,
283 x_msg_count OUT NOCOPY NUMBER,
284 x_msg_data OUT NOCOPY VARCHAR2,
285 -- Receipt info. parameters
286 p_cash_receipt_id IN NUMBER,
287 p_pay_from_customer IN NUMBER,
288 p_comments IN VARCHAR2 DEFAULT NULL,
289 p_payment_trxn_extension_id IN NUMBER DEFAULT NULL,
290 x_status OUT NOCOPY VARCHAR2,
291 p_customer_bank_account_id IN NUMBER DEFAULT NULL
292 )
293 IS
294
295 l_api_name CONSTANT VARCHAR2(50) := 'update_receipt_unid_to_unapp';
296 l_api_version CONSTANT NUMBER := 1.0;
297
298 l_crv_rec ar_cash_receipts_v%ROWTYPE;
299 l_payment_trxn_extension_id ar_cash_receipts.payment_trxn_extension_id%TYPE;
300 l_creation_method_code ar_receipt_classes.creation_method_code%TYPE;
301 l_comments ar_cash_receipts.comments%TYPE;
302
303 l_cash_receipt_id NUMBER := p_cash_receipt_id;
304 l_customer_id NUMBER := p_pay_from_customer;
305 l_customer_bank_account_id NUMBER := p_customer_bank_account_id;
306 l_org_return_status VARCHAR2(1);
307 l_org_id NUMBER;
308
309
310 -- OUT PARAMETER FOR UPDATE CALL --
311 x_NEW_STATE VARCHAR2(255);
312 x_NEW_STATE_DSP VARCHAR2(255);
313 X_NEW_STATUS VARCHAR2(255);
314 X_NEW_STATUS_DSP VARCHAR2(255);
315 x_dm_number VARCHAR2(255);
316 x_tw_Status VARCHAR2(255);
317
318 -- Create payment_trxn_extension_id
319 l_create_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
320 l_create_msg_count NUMBER;
321 l_create_msg_data VARCHAR2(2000);
322 l_create_pmt_trxn_extension_id ar_cash_receipts.payment_trxn_extension_id%TYPE;
323 l_valid_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
324 l_valid_msg_count NUMBER;
325 l_valid_msg_data VARCHAR2(2000);
326
327
328
329 BEGIN
330
331 /*------------------------------------+
332 | Standard start of API savepoint |
333 +------------------------------------*/
334
335 SAVEPOINT Create_cash_PVT;
336
337 /*--------------------------------------------------+
338 | Standard call to check for call compatibility |
339 +--------------------------------------------------*/
340
341 IF NOT FND_API.Compatible_API_Call(
342 l_api_version,
343 p_api_version,
344 l_api_name,
345 G_PKG_NAME
346 )
347 THEN
348 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349 END IF;
350
351 /*--------------------------------------------------------------+
352 | Initialize message list if p_init_msg_list is set to TRUE |
353 +--------------------------------------------------------------*/
354
355 IF FND_API.to_Boolean( p_init_msg_list )
356 THEN
357 FND_MSG_PUB.initialize;
358 END IF;
359
360 IF PG_DEBUG in ('Y', 'C') THEN
361 arp_standard.debug('ar_receipt_update_api_pub.update_receipt_unid_to_unapp()+');
362 END IF;
363 /*-----------------------------------------+
364 | Initialize return status to SUCCESS |
365 +-----------------------------------------*/
366
367 x_return_status := FND_API.G_RET_STS_SUCCESS;
368
369 /*-----------------------------------------+
370 | Initialize ORG ID |
371 +-----------------------------------------*/
372
373 l_org_return_status := FND_API.G_RET_STS_SUCCESS;
374 ar_mo_cache_utils.set_org_context_in_api(p_org_id =>l_org_id,
375 p_return_status =>l_org_return_status);
376
377 IF l_org_return_status <> FND_API.G_RET_STS_SUCCESS THEN
378 x_return_status := FND_API.G_RET_STS_ERROR;
379 END IF;
380
381 l_payment_trxn_extension_id := p_payment_trxn_extension_id;
382
383 -- Package body start --
384
385 Validate_id(p_customer_id => l_customer_id,
386 p_cash_receipt_id => l_cash_receipt_id,
387 p_payment_trxn_extension_id => l_payment_trxn_extension_id,
388 p_customer_bank_account_id => l_customer_bank_account_id,
389 x_msg_count => l_valid_msg_count,
390 x_msg_data => l_valid_msg_data,
391 x_return_status => l_valid_return_status,
392 x_crv_rec => l_crv_rec
393 );
394
395
396
397
398
399
400
401 IF l_valid_return_status <> FND_API.G_RET_STS_SUCCESS THEN
402 arp_standard.debug('Validation of input parametrs fails ' );
403 arp_standard.debug('Customer ID : '||l_customer_id);
404 arp_standard.debug('Cash Receipt ID : '||l_cash_receipt_id);
405 arp_standard.debug('Payment trxn extension id : '||l_payment_trxn_extension_id);
406 x_return_status := FND_API.G_RET_STS_ERROR ;
407 FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
408 p_count => x_msg_count,
409 p_data => x_msg_data
410 );
411 return;
412
413 ELSE
414
415 IF l_crv_rec.creation_method_code = 'AUTOMATIC' THEN
416 arp_standard.debug('calling CREATE Extension....');
417 AR_RECEIPT_API_PUB.Create_payment_extension (
418 p_payment_trxn_extension_id => l_payment_trxn_extension_id,
419 p_customer_id => l_customer_id,
420 p_receipt_method_id => l_crv_rec.receipt_method_id,
421 p_org_id => l_org_id,
422 p_customer_site_use_id => l_crv_rec.customer_site_use_id,
423 p_cash_receipt_id => l_cash_receipt_id,
424 p_receipt_number => l_crv_rec.receipt_number,
425 x_msg_count => l_create_msg_count,
426 x_msg_data => l_create_msg_data,
427 x_return_status => l_create_return_status,
428 o_payment_trxn_extension_id => l_create_pmt_trxn_extension_id
429 );
430
431 IF l_create_return_status <> FND_API.G_RET_STS_SUCCESS THEN
432 arp_standard.debug('update_receipt_unid_to_unapp: Payment_trxn_extension_id creation fails ' );
433 FND_MESSAGE.set_name('AR', 'AR_CC_AUTH_FAILED');
434 FND_MSG_PUB.Add;
435 x_return_status := FND_API.G_RET_STS_ERROR ;
436 FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
437 p_count => x_msg_count,
438 p_data => x_msg_data
439 );
440 return;
441 END IF;
442
443 l_payment_trxn_extension_id := l_create_pmt_trxn_extension_id;
444
445 IF l_payment_trxn_extension_id IS NULL THEN
446 FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
447 FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','Unable to create Payment_trxn_extension_id');
448 FND_MSG_PUB.Add;
449 x_return_status := FND_API.G_RET_STS_ERROR ;
450 FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
451 p_count => x_msg_count,
452 p_data => x_msg_data
453 );
454 return;
455 END IF;
456
457 END IF;
458
459 END IF;
460
461
462
463 ------------------------- payment_trxn_extension_id END ------------------------
464
465
466 --- Calling procedure to update the Receipt ------
467
468
469 ARP_PROC_RECEIPTS1.UPDATE_CASH_RECEIPT(
470 P_CASH_RECEIPT_ID => l_cash_receipt_id,
471 P_STATUS => l_crv_rec.STATE,
472 P_CURRENCY_CODE => l_crv_rec.CURRENCY_CODE,
473 P_AMOUNT => l_crv_rec.AMOUNT,
474 P_PAY_FROM_CUSTOMER => l_customer_id,
475 P_RECEIPT_NUMBER => l_crv_rec.RECEIPT_NUMBER,
476 P_RECEIPT_DATE => l_crv_rec.RECEIPT_DATE,
477 P_GL_DATE => l_crv_rec.GL_DATE,
478 P_MATURITY_DATE => l_crv_rec.MATURITY_DATE,
479 P_COMMENTS => l_comments,
480 P_EXCHANGE_RATE_TYPE => l_crv_rec.EXCHANGE_RATE_TYPE,
481 P_EXCHANGE_RATE => l_crv_rec.EXCHANGE_RATE,
482 P_EXCHANGE_DATE => l_crv_rec.EXCHANGE_RATE_DATE,
483 P_ATTRIBUTE_CATEGORY => l_crv_rec.ATTRIBUTE_CATEGORY,
484 P_ATTRIBUTE1 => l_crv_rec.ATTRIBUTE1,
485 P_ATTRIBUTE2 => l_crv_rec.ATTRIBUTE2,
486 P_ATTRIBUTE3 => l_crv_rec.ATTRIBUTE3,
487 P_ATTRIBUTE4 => l_crv_rec.ATTRIBUTE4,
488 P_ATTRIBUTE5 => l_crv_rec.ATTRIBUTE5,
489 P_ATTRIBUTE6 => l_crv_rec.ATTRIBUTE6,
490 P_ATTRIBUTE7 => l_crv_rec.ATTRIBUTE7,
491 P_ATTRIBUTE8 => l_crv_rec.ATTRIBUTE8,
492 P_ATTRIBUTE9 => l_crv_rec.ATTRIBUTE9,
493 P_ATTRIBUTE10 => l_crv_rec.ATTRIBUTE10,
494 P_ATTRIBUTE11 => l_crv_rec.ATTRIBUTE11,
495 P_ATTRIBUTE12 => l_crv_rec.ATTRIBUTE12,
496 P_ATTRIBUTE13 => l_crv_rec.ATTRIBUTE13,
497 P_ATTRIBUTE14 => l_crv_rec.ATTRIBUTE14,
498 P_ATTRIBUTE15 => l_crv_rec.ATTRIBUTE15,
499 P_OVERRIDE_REMIT_ACCOUNT_FLAG => l_crv_rec.OVERRIDE_REMIT_BANK,
500 P_REMITTANCE_BANK_ACCOUNT_ID => l_crv_rec.REMIT_BANK_ACCT_USE_ID,
501 P_CUSTOMER_BANK_ACCOUNT_ID => l_crv_rec.CUSTOMER_BANK_ACCOUNT_ID,
502 P_CUSTOMER_SITE_USE_ID => l_crv_rec.customer_site_use_id,
503 P_CUSTOMER_RECEIPT_REFERENCE => l_crv_rec.CUSTOMER_RECEIPT_REFERENCE,
504 P_FACTOR_DISCOUNT_AMOUNT => l_crv_rec.FACTOR_DISCOUNT_AMOUNT,
505 P_DEPOSIT_DATE => l_crv_rec.DEPOSIT_DATE,
506 P_RECEIPT_METHOD_ID => l_crv_rec.RECEIPT_METHOD_ID,
507 P_DOC_SEQUENCE_VALUE => l_crv_rec.DOCUMENT_NUMBER,
508 P_DOC_SEQUENCE_ID => l_crv_rec.DOC_SEQUENCE_ID,
509 P_USSGL_TRANSACTION_CODE => l_crv_rec.USSGL_TRANSACTION_CODE,
510 P_VAT_TAX_ID => l_crv_rec.VAT_TAX_ID,
511 P_CONFIRM_DATE => null,
512 P_CONFIRM_GL_DATE => null,
513 P_UNCONFIRM_GL_DATE => NULL,
514 P_POSTMARK_DATE => NULL,
515 P_RATE_ADJUST_GL_DATE => null,
516 P_NEW_EXCHANGE_DATE => null,
517 P_NEW_EXCHANGE_RATE => null,
518 P_NEW_EXCHANGE_RATE_TYPE => null,
519 P_GAIN_LOSS => null,
520 P_EXCHANGE_RATE_ATTR_CAT => null,
521 P_EXCHANGE_RATE_ATTR1 => null,
522 P_EXCHANGE_RATE_ATTR2 => null,
523 P_EXCHANGE_RATE_ATTR3 => null,
524 P_EXCHANGE_RATE_ATTR4 => null,
525 P_EXCHANGE_RATE_ATTR5 => null,
526 P_EXCHANGE_RATE_ATTR6 => null,
527 P_EXCHANGE_RATE_ATTR7 => null,
528 P_EXCHANGE_RATE_ATTR8 => null,
529 P_EXCHANGE_RATE_ATTR9 => null,
530 P_EXCHANGE_RATE_ATTR10 => null,
531 P_EXCHANGE_RATE_ATTR11 => null,
532 P_EXCHANGE_RATE_ATTR12 => null,
533 P_EXCHANGE_RATE_ATTR13 => null,
534 P_EXCHANGE_RATE_ATTR14 => null,
535 P_EXCHANGE_RATE_ATTR15 => null,
536 P_REVERSAL_DATE => null,
537 P_REVERSAL_GL_DATE => null,
538 P_REVERSAL_CATEGORY => null,
539 P_REVERSAL_COMMENTS => null,
540 P_REVERSAL_REASON_CODE => null,
541 P_DM_REVERSAL_FLAG => null,
542 P_DM_CUST_TRX_TYPE_ID => null,
543 P_DM_CUST_TRX_TYPE => null,
544 P_CC_ID => null,
545 P_DM_NUMBER => x_dm_number,
546 P_DM_DOC_SEQUENCE_VALUE => null,
547 P_DM_DOC_SEQUENCE_ID => null,
548 P_TW_STATUS => x_tw_Status,
549 P_ANTICIPATED_CLEARING_DATE => l_crv_rec.ANTICIPATED_CLEARING_DATE,
550 P_CUSTOMER_BANK_BRANCH_ID => l_crv_rec.CUSTOMER_BANK_BRANCH_ID,
551 P_GLOBAL_ATTRIBUTE1 => l_crv_rec.GLOBAL_ATTRIBUTE1,
552 P_GLOBAL_ATTRIBUTE2 => l_crv_rec.GLOBAL_ATTRIBUTE2,
553 P_GLOBAL_ATTRIBUTE3 => l_crv_rec.GLOBAL_ATTRIBUTE3,
554 P_GLOBAL_ATTRIBUTE4 => l_crv_rec.GLOBAL_ATTRIBUTE4,
555 P_GLOBAL_ATTRIBUTE5 => l_crv_rec.GLOBAL_ATTRIBUTE5,
556 P_GLOBAL_ATTRIBUTE6 => l_crv_rec.GLOBAL_ATTRIBUTE6,
557 P_GLOBAL_ATTRIBUTE7 => l_crv_rec.GLOBAL_ATTRIBUTE7,
558 P_GLOBAL_ATTRIBUTE8 => l_crv_rec.GLOBAL_ATTRIBUTE8,
559 P_GLOBAL_ATTRIBUTE9 => l_crv_rec.GLOBAL_ATTRIBUTE9,
560 P_GLOBAL_ATTRIBUTE10 => l_crv_rec.GLOBAL_ATTRIBUTE10,
561 P_GLOBAL_ATTRIBUTE11 => l_crv_rec.GLOBAL_ATTRIBUTE11,
562 P_GLOBAL_ATTRIBUTE12 => l_crv_rec.GLOBAL_ATTRIBUTE12,
563 P_GLOBAL_ATTRIBUTE13 => l_crv_rec.GLOBAL_ATTRIBUTE13,
564 P_GLOBAL_ATTRIBUTE14 => l_crv_rec.GLOBAL_ATTRIBUTE14,
565 P_GLOBAL_ATTRIBUTE15 => l_crv_rec.GLOBAL_ATTRIBUTE15,
566 P_GLOBAL_ATTRIBUTE16 => l_crv_rec.GLOBAL_ATTRIBUTE16,
567 P_GLOBAL_ATTRIBUTE17 => l_crv_rec.GLOBAL_ATTRIBUTE17,
568 P_GLOBAL_ATTRIBUTE18 => l_crv_rec.GLOBAL_ATTRIBUTE18,
569 P_GLOBAL_ATTRIBUTE19 => l_crv_rec.GLOBAL_ATTRIBUTE19,
570 P_GLOBAL_ATTRIBUTE20 => l_crv_rec.GLOBAL_ATTRIBUTE20,
571 P_GLOBAL_ATTRIBUTE_CATEGORY => l_crv_rec.GLOBAL_ATTRIBUTE_CATEGORY,
572 P_ISSUER_NAME => l_crv_rec.ISSUER_NAME,
573 P_ISSUE_DATE => l_crv_rec.ISSUE_DATE,
574 P_ISSUER_BANK_BRANCH_ID => l_crv_rec.ISSUER_BANK_BRANCH_ID,
575 P_APPLICATION_NOTES => l_crv_rec.APPLICATION_NOTES,
576 P_NEW_STATE => x_NEW_STATE,
577 P_NEW_STATE_DSP => x_NEW_STATE_DSP,
578 P_NEW_STATUS => X_NEW_STATUS,
579 P_NEW_STATUS_DSP => X_NEW_STATUS_DSP,
580 P_FORM_NAME => null,
581 P_FORM_VERSION => null,
582 P_PAYMENT_SERVER_ORDER_NUM => l_crv_rec.PAYMENT_SERVER_ORDER_NUM,
583 P_APPROVAL_CODE => l_crv_rec.APPROVAL_CODE,
584 P_LEGAL_ENTITY_ID => l_crv_rec.LEGAL_ENTITY_ID,
585 P_PAYMENT_TRXN_EXTENSION_ID => l_payment_trxn_extension_id
586 );
587
588 IF PG_DEBUG in ('Y', 'C') THEN
589 arp_standard.debug('update_receipt_unid_to_unapp: ' || 'New Status : ' || to_char(X_NEW_STATUS));
590 arp_standard.debug('update_receipt_unid_to_unapp: ' || 'New Status Displayed : ' || to_char(X_NEW_STATUS_DSP));
591 END IF;
592
593 -- Updating Return Status for Receipt ----
594
595 x_status := X_NEW_STATUS_DSP;
596
597
598
599 /*--------------------------------+
600 | Standard check of p_commit |
601 +--------------------------------*/
602
603 IF FND_API.To_Boolean( p_commit )
604 THEN
605 IF PG_DEBUG in ('Y', 'C') THEN
606 arp_util.debug('update_receipt_unid_to_unapp : ' || 'committing');
607 END IF;
608 Commit;
609 END IF;
610
611
612 IF PG_DEBUG in ('Y', 'C') THEN
613 arp_standard.debug('ar_receipt_update_api_pub.update_receipt_unid_to_unapp()-');
614 END IF;
615
616 EXCEPTION
617 WHEN OTHERS THEN
618
619 ROLLBACK TO Create_Cash_PVT;
620 -- Display_Parameters;
621 x_return_status := FND_API.G_RET_STS_ERROR ;
622 x_status := 'XXX';
623 FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
624 FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','UPDATE_RECEIPT_UNID_TO_UNAPP : '||SQLERRM);
625 FND_MSG_PUB.Add;
626
627 FND_MSG_PUB.Count_And_Get( p_encoded => FND_API.G_FALSE,
628 p_count => x_msg_count,
629 p_data => x_msg_data
630 );
631 RETURN;
632 END update_receipt_unid_to_unapp;
633 END;