69: l_org_id NUMBER;
70:
71: BEGIN
72: IF PG_DEBUG in ('Y', 'C') THEN
73: arp_util.debug ('AR_CREDIT_MEMO_API_PUB.Create_request()+');
74: arp_util.debug ('create_request: ' || 'p_init_msg_list :'||p_init_msg_list);
75: arp_util.debug ('create_request: ' || 'p_commit :'||p_commit);
76: arp_util.debug ('create_request: ' || 'p_validation_level :'||p_validation_level);
77: arp_util.debug ('create_request: ' || 'p_customer_trx_id :'||p_customer_trx_id);
70:
71: BEGIN
72: IF PG_DEBUG in ('Y', 'C') THEN
73: arp_util.debug ('AR_CREDIT_MEMO_API_PUB.Create_request()+');
74: arp_util.debug ('create_request: ' || 'p_init_msg_list :'||p_init_msg_list);
75: arp_util.debug ('create_request: ' || 'p_commit :'||p_commit);
76: arp_util.debug ('create_request: ' || 'p_validation_level :'||p_validation_level);
77: arp_util.debug ('create_request: ' || 'p_customer_trx_id :'||p_customer_trx_id);
78: arp_util.debug ('create_request: ' || 'p_line_credit_flag :'||p_line_credit_flag);
71: BEGIN
72: IF PG_DEBUG in ('Y', 'C') THEN
73: arp_util.debug ('AR_CREDIT_MEMO_API_PUB.Create_request()+');
74: arp_util.debug ('create_request: ' || 'p_init_msg_list :'||p_init_msg_list);
75: arp_util.debug ('create_request: ' || 'p_commit :'||p_commit);
76: arp_util.debug ('create_request: ' || 'p_validation_level :'||p_validation_level);
77: arp_util.debug ('create_request: ' || 'p_customer_trx_id :'||p_customer_trx_id);
78: arp_util.debug ('create_request: ' || 'p_line_credit_flag :'||p_line_credit_flag);
79: arp_util.debug ('create_request: ' || 'p_line_amount :'||p_line_amount);
72: IF PG_DEBUG in ('Y', 'C') THEN
73: arp_util.debug ('AR_CREDIT_MEMO_API_PUB.Create_request()+');
74: arp_util.debug ('create_request: ' || 'p_init_msg_list :'||p_init_msg_list);
75: arp_util.debug ('create_request: ' || 'p_commit :'||p_commit);
76: arp_util.debug ('create_request: ' || 'p_validation_level :'||p_validation_level);
77: arp_util.debug ('create_request: ' || 'p_customer_trx_id :'||p_customer_trx_id);
78: arp_util.debug ('create_request: ' || 'p_line_credit_flag :'||p_line_credit_flag);
79: arp_util.debug ('create_request: ' || 'p_line_amount :'||p_line_amount);
80: arp_util.debug ('create_request: ' || 'p_tax_amount :'||p_tax_amount);
73: arp_util.debug ('AR_CREDIT_MEMO_API_PUB.Create_request()+');
74: arp_util.debug ('create_request: ' || 'p_init_msg_list :'||p_init_msg_list);
75: arp_util.debug ('create_request: ' || 'p_commit :'||p_commit);
76: arp_util.debug ('create_request: ' || 'p_validation_level :'||p_validation_level);
77: arp_util.debug ('create_request: ' || 'p_customer_trx_id :'||p_customer_trx_id);
78: arp_util.debug ('create_request: ' || 'p_line_credit_flag :'||p_line_credit_flag);
79: arp_util.debug ('create_request: ' || 'p_line_amount :'||p_line_amount);
80: arp_util.debug ('create_request: ' || 'p_tax_amount :'||p_tax_amount);
81: arp_util.debug ('create_request: ' || 'p_freight_amount :'||p_freight_amount);
74: arp_util.debug ('create_request: ' || 'p_init_msg_list :'||p_init_msg_list);
75: arp_util.debug ('create_request: ' || 'p_commit :'||p_commit);
76: arp_util.debug ('create_request: ' || 'p_validation_level :'||p_validation_level);
77: arp_util.debug ('create_request: ' || 'p_customer_trx_id :'||p_customer_trx_id);
78: arp_util.debug ('create_request: ' || 'p_line_credit_flag :'||p_line_credit_flag);
79: arp_util.debug ('create_request: ' || 'p_line_amount :'||p_line_amount);
80: arp_util.debug ('create_request: ' || 'p_tax_amount :'||p_tax_amount);
81: arp_util.debug ('create_request: ' || 'p_freight_amount :'||p_freight_amount);
82: arp_util.debug ('create_request: ' || 'p_cm_reason_code :'||p_cm_reason_code);
75: arp_util.debug ('create_request: ' || 'p_commit :'||p_commit);
76: arp_util.debug ('create_request: ' || 'p_validation_level :'||p_validation_level);
77: arp_util.debug ('create_request: ' || 'p_customer_trx_id :'||p_customer_trx_id);
78: arp_util.debug ('create_request: ' || 'p_line_credit_flag :'||p_line_credit_flag);
79: arp_util.debug ('create_request: ' || 'p_line_amount :'||p_line_amount);
80: arp_util.debug ('create_request: ' || 'p_tax_amount :'||p_tax_amount);
81: arp_util.debug ('create_request: ' || 'p_freight_amount :'||p_freight_amount);
82: arp_util.debug ('create_request: ' || 'p_cm_reason_code :'||p_cm_reason_code);
83: /* Bug 3206020 arp_util.debug ('create_request: ' || 'p_comments :'||p_comments);*/
76: arp_util.debug ('create_request: ' || 'p_validation_level :'||p_validation_level);
77: arp_util.debug ('create_request: ' || 'p_customer_trx_id :'||p_customer_trx_id);
78: arp_util.debug ('create_request: ' || 'p_line_credit_flag :'||p_line_credit_flag);
79: arp_util.debug ('create_request: ' || 'p_line_amount :'||p_line_amount);
80: arp_util.debug ('create_request: ' || 'p_tax_amount :'||p_tax_amount);
81: arp_util.debug ('create_request: ' || 'p_freight_amount :'||p_freight_amount);
82: arp_util.debug ('create_request: ' || 'p_cm_reason_code :'||p_cm_reason_code);
83: /* Bug 3206020 arp_util.debug ('create_request: ' || 'p_comments :'||p_comments);*/
84: arp_util.debug ('create_request: ' || 'p_request_url :'||p_request_url);
77: arp_util.debug ('create_request: ' || 'p_customer_trx_id :'||p_customer_trx_id);
78: arp_util.debug ('create_request: ' || 'p_line_credit_flag :'||p_line_credit_flag);
79: arp_util.debug ('create_request: ' || 'p_line_amount :'||p_line_amount);
80: arp_util.debug ('create_request: ' || 'p_tax_amount :'||p_tax_amount);
81: arp_util.debug ('create_request: ' || 'p_freight_amount :'||p_freight_amount);
82: arp_util.debug ('create_request: ' || 'p_cm_reason_code :'||p_cm_reason_code);
83: /* Bug 3206020 arp_util.debug ('create_request: ' || 'p_comments :'||p_comments);*/
84: arp_util.debug ('create_request: ' || 'p_request_url :'||p_request_url);
85: arp_util.debug ('create_request: ' || 'p_transaction_url :'||p_transaction_url);
78: arp_util.debug ('create_request: ' || 'p_line_credit_flag :'||p_line_credit_flag);
79: arp_util.debug ('create_request: ' || 'p_line_amount :'||p_line_amount);
80: arp_util.debug ('create_request: ' || 'p_tax_amount :'||p_tax_amount);
81: arp_util.debug ('create_request: ' || 'p_freight_amount :'||p_freight_amount);
82: arp_util.debug ('create_request: ' || 'p_cm_reason_code :'||p_cm_reason_code);
83: /* Bug 3206020 arp_util.debug ('create_request: ' || 'p_comments :'||p_comments);*/
84: arp_util.debug ('create_request: ' || 'p_request_url :'||p_request_url);
85: arp_util.debug ('create_request: ' || 'p_transaction_url :'||p_transaction_url);
86: arp_util.debug ('create_request: ' || 'p_trans_act_url :'||p_trans_act_url);
79: arp_util.debug ('create_request: ' || 'p_line_amount :'||p_line_amount);
80: arp_util.debug ('create_request: ' || 'p_tax_amount :'||p_tax_amount);
81: arp_util.debug ('create_request: ' || 'p_freight_amount :'||p_freight_amount);
82: arp_util.debug ('create_request: ' || 'p_cm_reason_code :'||p_cm_reason_code);
83: /* Bug 3206020 arp_util.debug ('create_request: ' || 'p_comments :'||p_comments);*/
84: arp_util.debug ('create_request: ' || 'p_request_url :'||p_request_url);
85: arp_util.debug ('create_request: ' || 'p_transaction_url :'||p_transaction_url);
86: arp_util.debug ('create_request: ' || 'p_trans_act_url :'||p_trans_act_url);
87: arp_util.debug ('create_request: ' || 'p_dispute_date :'||p_dispute_date); -- Bug 6358930
80: arp_util.debug ('create_request: ' || 'p_tax_amount :'||p_tax_amount);
81: arp_util.debug ('create_request: ' || 'p_freight_amount :'||p_freight_amount);
82: arp_util.debug ('create_request: ' || 'p_cm_reason_code :'||p_cm_reason_code);
83: /* Bug 3206020 arp_util.debug ('create_request: ' || 'p_comments :'||p_comments);*/
84: arp_util.debug ('create_request: ' || 'p_request_url :'||p_request_url);
85: arp_util.debug ('create_request: ' || 'p_transaction_url :'||p_transaction_url);
86: arp_util.debug ('create_request: ' || 'p_trans_act_url :'||p_trans_act_url);
87: arp_util.debug ('create_request: ' || 'p_dispute_date :'||p_dispute_date); -- Bug 6358930
88: END IF;
81: arp_util.debug ('create_request: ' || 'p_freight_amount :'||p_freight_amount);
82: arp_util.debug ('create_request: ' || 'p_cm_reason_code :'||p_cm_reason_code);
83: /* Bug 3206020 arp_util.debug ('create_request: ' || 'p_comments :'||p_comments);*/
84: arp_util.debug ('create_request: ' || 'p_request_url :'||p_request_url);
85: arp_util.debug ('create_request: ' || 'p_transaction_url :'||p_transaction_url);
86: arp_util.debug ('create_request: ' || 'p_trans_act_url :'||p_trans_act_url);
87: arp_util.debug ('create_request: ' || 'p_dispute_date :'||p_dispute_date); -- Bug 6358930
88: END IF;
89:
82: arp_util.debug ('create_request: ' || 'p_cm_reason_code :'||p_cm_reason_code);
83: /* Bug 3206020 arp_util.debug ('create_request: ' || 'p_comments :'||p_comments);*/
84: arp_util.debug ('create_request: ' || 'p_request_url :'||p_request_url);
85: arp_util.debug ('create_request: ' || 'p_transaction_url :'||p_transaction_url);
86: arp_util.debug ('create_request: ' || 'p_trans_act_url :'||p_trans_act_url);
87: arp_util.debug ('create_request: ' || 'p_dispute_date :'||p_dispute_date); -- Bug 6358930
88: END IF;
89:
90: /*------------------------------------+
83: /* Bug 3206020 arp_util.debug ('create_request: ' || 'p_comments :'||p_comments);*/
84: arp_util.debug ('create_request: ' || 'p_request_url :'||p_request_url);
85: arp_util.debug ('create_request: ' || 'p_transaction_url :'||p_transaction_url);
86: arp_util.debug ('create_request: ' || 'p_trans_act_url :'||p_trans_act_url);
87: arp_util.debug ('create_request: ' || 'p_dispute_date :'||p_dispute_date); -- Bug 6358930
88: END IF;
89:
90: /*------------------------------------+
91: | Standard start of API savepoint |
96: /*--------------------------------------------------+
97: | Standard call to check for call compatibility |
98: +--------------------------------------------------*/
99: IF PG_DEBUG in ('Y', 'C') THEN
100: arp_util.debug('create_request: ' || 'Checking call compatibility');
101: END IF;
102: IF NOT FND_API.Compatible_API_Call( l_api_version,
103: p_api_version,
104: l_api_name,
110: | Initialize message list if p_init_msg_list is set to TRUE |
111: +--------------------------------------------------------------*/
112:
113: IF PG_DEBUG in ('Y', 'C') THEN
114: arp_util.debug('create_request: ' || 'Initializing message list');
115: END IF;
116: IF FND_API.to_Boolean( p_init_msg_list ) THEN
117: FND_MSG_PUB.initialize;
118: END IF;
121: | Initialize return status to SUCCESS |
122: +-----------------------------------------*/
123:
124: IF PG_DEBUG in ('Y', 'C') THEN
125: arp_util.debug ('create_request: ' || 'Initializing return status to success');
126: END IF;
127: x_return_status := FND_API.G_RET_STS_SUCCESS;
128:
129: /*---------------------------------------------+
151: | Do not continue if there are errors. |
152: +------------------------------------------*/
153:
154: IF PG_DEBUG in ('Y', 'C') THEN
155: arp_util.debug ('create_request: ' || 'Validating request parameters');
156: END IF;
157: /*4606558*/
158: l_attribute_rec:=p_attribute_rec;
159: l_interface_attribute_rec:=p_interface_attribute_rec;
183: p_dispute_date => p_dispute_date -- Bug 6358930
184: );
185:
186: IF PG_DEBUG in ('Y', 'C') THEN
187: arp_util.debug ('create_request: ' || 'Done with validate_request_parameters');
188: END IF;
189:
190: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
191: IF PG_DEBUG in ('Y', 'C') THEN
188: END IF;
189:
190: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS THEN
191: IF PG_DEBUG in ('Y', 'C') THEN
192: arp_util.debug ('create_request: ' || 'Failed validation routine. Raising exception');
193: END IF;
194: raise validation_failed;
195: ELSE
196: -- call the entity handler
194: raise validation_failed;
195: ELSE
196: -- call the entity handler
197: IF PG_DEBUG in ('Y', 'C') THEN
198: arp_util.debug ('create_request: ' || 'will call arw_cmreq_cover.ar_request_cm');
199: END IF;
200:
201: x_request_id := arw_cmreq_cover.ar_request_cm(
202: p_customer_trx_id => p_customer_trx_id,
233: raise creation_failed;
234: end if;
235:
236: IF PG_DEBUG in ('Y', 'C') THEN
237: arp_util.debug ('create_request: ' || 'Done with arw_cmreq_cover.ar_request_cm');
238: END IF;
239:
240: END IF;
241: END IF;
245: +--------------------------------*/
246:
247: IF FND_API.To_Boolean( p_commit ) THEN
248: IF PG_DEBUG in ('Y', 'C') THEN
249: arp_util.debug('create_request: ' || 'committing');
250: END IF;
251: Commit;
252: END IF;
253:
251: Commit;
252: END IF;
253:
254: IF PG_DEBUG in ('Y', 'C') THEN
255: arp_util.debug ('AR_CREDIT_MEMO_API_PUB.Create_request()-');
256: END IF;
257:
258: EXCEPTION
259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
257:
258: EXCEPTION
259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
260: IF PG_DEBUG in ('Y', 'C') THEN
261: arp_util.debug ('create_request: ' || 'Exception FND_API.G_EXC_UNEXPECTED_ERROR');
262: arp_util.debug('create_request: ' || SQLERRM, G_MSG_ERROR);
263: END IF;
264: ROLLBACK TO Create_request_PVT;
265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
258: EXCEPTION
259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
260: IF PG_DEBUG in ('Y', 'C') THEN
261: arp_util.debug ('create_request: ' || 'Exception FND_API.G_EXC_UNEXPECTED_ERROR');
262: arp_util.debug('create_request: ' || SQLERRM, G_MSG_ERROR);
263: END IF;
264: ROLLBACK TO Create_request_PVT;
265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
266:
270: p_data => x_msg_data);
271:
272: WHEN creation_failed THEN
273: IF PG_DEBUG in ('Y', 'C') THEN
274: arp_util.debug('create_request: ' || 'Exception creation_failed');
275: arp_util.debug('create_request: ' || SQLERRM, G_MSG_ERROR);
276: END IF;
277: -- ROLLBACK TO Create_request_cm;
278: x_return_status := FND_API.G_RET_STS_ERROR;
271:
272: WHEN creation_failed THEN
273: IF PG_DEBUG in ('Y', 'C') THEN
274: arp_util.debug('create_request: ' || 'Exception creation_failed');
275: arp_util.debug('create_request: ' || SQLERRM, G_MSG_ERROR);
276: END IF;
277: -- ROLLBACK TO Create_request_cm;
278: x_return_status := FND_API.G_RET_STS_ERROR;
279:
283: p_data => x_msg_data);
284:
285: WHEN validation_failed THEN
286: IF PG_DEBUG in ('Y', 'C') THEN
287: arp_util.debug('create_request: ' || 'Exception validation_failed');
288: arp_util.debug('create_request: ' || SQLERRM, G_MSG_ERROR);
289: END IF;
290: ROLLBACK TO Create_request_PVT;
291: /* bug 2290738 - returns the validation status, rather than the 'unexpected' status */
284:
285: WHEN validation_failed THEN
286: IF PG_DEBUG in ('Y', 'C') THEN
287: arp_util.debug('create_request: ' || 'Exception validation_failed');
288: arp_util.debug('create_request: ' || SQLERRM, G_MSG_ERROR);
289: END IF;
290: ROLLBACK TO Create_request_PVT;
291: /* bug 2290738 - returns the validation status, rather than the 'unexpected' status */
292: x_return_status := l_val_return_status;
303: | error conditions. The error messages have already |
304: | been put on the error stack. |
305: +-------------------------------------------------------*/
306: IF PG_DEBUG in ('Y', 'C') THEN
307: arp_util.debug ('create_request: ' || 'Exception OTHERS');
308: END IF;
309: ROLLBACK TO Create_request_pvt;
310:
311: --If only one error message on the stack, retrieve it
361:
362: BEGIN
363:
364: IF PG_DEBUG in ('Y', 'C') THEN
365: arp_util.debug ('AR_CREDIT_MEMO_API_PUB.validate_request_parameters()+');
366: END IF;
367: /*-----------------------------------------+
368: | Validating customer_trx_id |
369: +-----------------------------------------*/
368: | Validating customer_trx_id |
369: +-----------------------------------------*/
370:
371: IF PG_DEBUG in ('Y', 'C') THEN
372: arp_util.debug('validate_request_parameters: ' || 'Validating customer_trx_id');
373: END IF;
374:
375: -- Begin SSA change
376: l_org_id := p_org_id;
389:
390: -- If customer trx is invalid
391: IF l_count_trx = 0 THEN
392: IF PG_DEBUG in ('Y', 'C') THEN
393: arp_util.debug('validate_request_parameters: ' || 'Did not find customer_trx_id');
394: END IF;
395: -- Put error message on stack
396: FND_MESSAGE.SET_NAME('AR','AR_TAPI_TRANS_NOT_EXIST');
397: FND_MESSAGE.SET_TOKEN('CUSTOMER_TRX_ID',p_customer_trx_id);
404: /*-----------------------------------------+
405: | Validating line_credit_flag |
406: +-----------------------------------------*/
407: IF PG_DEBUG in ('Y', 'C') THEN
408: arp_util.debug('validate_request_parameters: ' || 'Validating line_credit_flag');
409: END IF;
410: IF p_line_credit_flag not in ('Y','N') THEN
411: IF PG_DEBUG in ('Y', 'C') THEN
412: arp_util.debug ('validate_request_parameters: ' || 'Invalid line_credit_flag');
408: arp_util.debug('validate_request_parameters: ' || 'Validating line_credit_flag');
409: END IF;
410: IF p_line_credit_flag not in ('Y','N') THEN
411: IF PG_DEBUG in ('Y', 'C') THEN
412: arp_util.debug ('validate_request_parameters: ' || 'Invalid line_credit_flag');
413: END IF;
414: FND_MESSAGE.SET_NAME('AR','AR_CMWF_API_INVALID_VALUE');
415: FND_MSG_PUB.Add;
416: l_val_return_status := FND_API.G_RET_STS_ERROR ;
418: ELSE
419: /* If dispute is at line level, there has to be atleast one line */
420: IF p_line_credit_flag = 'Y' AND p_cm_line_tbl.count = 0 THEN
421: IF PG_DEBUG in ('Y', 'C') THEN
422: arp_util.debug ('validate_request_parameters: ' || 'line_credit_flag is Y and there are no lines');
423: END IF;
424: l_val_return_status := FND_API.G_RET_STS_ERROR ;
425: FND_MESSAGE.SET_NAME('AR','AR_CMWF_API_NO_LINES_INFO ');
426: FND_MSG_PUB.Add;
440: WHERE ct.cust_trx_type_id = ctt.cust_trx_type_id
441: AND ct.customer_trx_id = p_customer_trx_id;
442:
443: IF PG_DEBUG in ('Y', 'C') THEN
444: arp_util.debug('validate_request_parameters: ' || 'CM trx type id = ' || to_char(l_credit_memo_type_id));
445: END IF;
446: IF l_credit_memo_type_id IS NULL THEN
447: l_val_return_status := FND_API.G_RET_STS_ERROR ;
448: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
451: return;
452: END IF;
453:
454: IF PG_DEBUG in ('Y', 'C') THEN
455: arp_util.debug('validate_request_parameters: ' || 'Overapplication allowed ? ' || l_allow_overapplication);
456: END IF;
457:
458: -- Selecting the amount remaining for the transaction
459: /* r12 eTax - get amounts original for pct calculation */
471: FROM ar_payment_schedules ct
472: WHERE ct.customer_trx_id = p_customer_trx_id ;
473:
474: IF PG_DEBUG in ('Y', 'C') THEN
475: arp_util.debug('validate_request_parameters: ' || 'l_lines_remaining = ' || to_char(l_lines_remaining));
476: arp_util.debug('validate_request_parameters: ' || 'l_tax_remaining = ' || to_char(l_tax_remaining));
477: arp_util.debug('validate_request_parameters: ' || 'l_freight_remaining = ' || to_char(l_freight_remaining));
478: END IF;
479:
472: WHERE ct.customer_trx_id = p_customer_trx_id ;
473:
474: IF PG_DEBUG in ('Y', 'C') THEN
475: arp_util.debug('validate_request_parameters: ' || 'l_lines_remaining = ' || to_char(l_lines_remaining));
476: arp_util.debug('validate_request_parameters: ' || 'l_tax_remaining = ' || to_char(l_tax_remaining));
477: arp_util.debug('validate_request_parameters: ' || 'l_freight_remaining = ' || to_char(l_freight_remaining));
478: END IF;
479:
480: -- If over application flag is 'N' and amount remaining is more than amount
473:
474: IF PG_DEBUG in ('Y', 'C') THEN
475: arp_util.debug('validate_request_parameters: ' || 'l_lines_remaining = ' || to_char(l_lines_remaining));
476: arp_util.debug('validate_request_parameters: ' || 'l_tax_remaining = ' || to_char(l_tax_remaining));
477: arp_util.debug('validate_request_parameters: ' || 'l_freight_remaining = ' || to_char(l_freight_remaining));
478: END IF;
479:
480: -- If over application flag is 'N' and amount remaining is more than amount
481: -- requested, then raise error
504: IF (((p_line_amount * -1) > l_lines_remaining) OR
505: ((p_tax_amount * -1) > l_tax_remaining) OR
506: ((p_freight_amount * -1) > l_freight_remaining)) THEN
507: IF PG_DEBUG in ('Y', 'C') THEN
508: arp_util.debug('validate_request_parameters: ' || 'Over application flag is N and amount remaining is more than amount requested');
509: END IF;
510:
511: l_val_return_status := FND_API.G_RET_STS_ERROR ;
512: FND_MESSAGE.SET_NAME('AR','AR_CKAP_OVERAPP');
533: /*-----------------------------------------+
534: | Validating the reason_code |
535: +-----------------------------------------*/
536: IF PG_DEBUG in ('Y', 'C') THEN
537: arp_util.debug ('validate_request_parameters: ' || 'Validating the reason code');
538: END IF;
539: SELECT
540: count(*)
541: INTO
555: /*-------------------------------------------------+
556: | Validating the line when dispute is at line level|
557: +--------------------------------------------------*/
558: IF PG_DEBUG in ('Y', 'C') THEN
559: arp_util.debug ('validate_request_parameters: ' || 'Validating the line when dispute is at line level');
560: END IF;
561:
562: IF p_line_credit_flag = 'Y' THEN
563:
570: AND customer_trx_line_id = p_cm_line_tbl(i).customer_trx_line_id;
571:
572: IF l_count_trx = 0 THEN
573: IF PG_DEBUG in ('Y', 'C') THEN
574: arp_util.debug ('validate_request_parameters: ' || 'Transaction does not exist');
575: END IF;
576: FND_MESSAGE.SET_NAME('AR','AR_TAPI_LINE_NOT_EXIST');
577: FND_MESSAGE.SET_TOKEN('CUSTOMER_TRX_LINE_ID',p_cm_line_tbl(i).customer_trx_line_id);
578: FND_MSG_PUB.Add;
597:
598: /*
599: IF l_allow_overapplication = 'N' THEN
600: IF PG_DEBUG in ('Y', 'C') THEN
601: arp_util.debug ('validate_request_parameters: ' || 'This transaction type does not allow over application');
602: END IF;
603: -- Get the extended amount for the customer_trx_line_id
604: SELECT NVL(extended_amount,0)
605: INTO l_extended_amount
615: AND previous_customer_trx_line_id = p_cm_line_tbl(i).customer_trx_line_id;
616:
617: IF p_cm_line_tbl(i).extended_amount > (l_extended_amount - l_credited_amount) THEN
618: IF PG_DEBUG in ('Y', 'C') THEN
619: arp_util.debug('validate_request_parameters: ' || 'Over application is not allowed. raising exception');
620: END IF;
621: FND_MESSAGE.SET_NAME('AR','AR_CKAP_OVERAPP');
622: FND_MSG_PUB.Add;
623: l_val_return_status := FND_API.G_RET_STS_ERROR ;
632: /*--------------------------------------------------+
633: | Validating the dispute date |
634: +--------------------------------------------------*/
635: IF PG_DEBUG in ('Y', 'C') THEN
636: arp_util.debug ('validate_request_parameters: ' || 'Validating the dispute date passed');
637: END IF;
638: IF p_dispute_date IS NOT NULL THEN
639: SELECT trx_date INTO l_trx_date
640: FROM ra_customer_trx
642:
643: -- If dispute date is less than trxn date
644: IF trunc(l_trx_date) > trunc(p_dispute_date) THEN
645: IF PG_DEBUG in ('Y', 'C') THEN
646: arp_util.debug('validate_request_parameters: ' || 'Dispute date is less than transaction date');
647: END IF;
648: -- Put error message on stack
649: FND_MESSAGE.SET_NAME ('AR','AR_DISPUTE_BEFORE_TRX_DATE');
650: FND_MSG_PUB.Add;
655: END IF;
656: -- END Bug 6358930
657: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
658: IF PG_DEBUG in ('Y', 'C') THEN
659: arp_util.debug ('AR_CREDIT_MEMO_API_PUB.Validate_request_parameters()-');
660: END IF;
661:
662: EXCEPTION
663: WHEN OTHERS THEN
661:
662: EXCEPTION
663: WHEN OTHERS THEN
664: IF PG_DEBUG in ('Y', 'C') THEN
665: arp_util.debug('Exception : Others in validate_request_parameters');
666: END IF;
667: END validate_request_parameters;
668:
669: PROCEDURE get_request_status (
761:
762: BEGIN
763:
764: IF PG_DEBUG in ('Y', 'C') THEN
765: arp_util.debug ('AR_CREDIT_MEMO_API_PUB.Get_request_status()+');
766: arp_util.debug ('get_request_status: ' || 'p_init_msg_list :'||p_init_msg_list);
767: arp_util.debug ('get_request_status: ' || 'p_api_version :'||p_api_version);
768: arp_util.debug ('get_request_status: ' || 'p_request_id :'||p_request_id);
769: END IF;
762: BEGIN
763:
764: IF PG_DEBUG in ('Y', 'C') THEN
765: arp_util.debug ('AR_CREDIT_MEMO_API_PUB.Get_request_status()+');
766: arp_util.debug ('get_request_status: ' || 'p_init_msg_list :'||p_init_msg_list);
767: arp_util.debug ('get_request_status: ' || 'p_api_version :'||p_api_version);
768: arp_util.debug ('get_request_status: ' || 'p_request_id :'||p_request_id);
769: END IF;
770:
763:
764: IF PG_DEBUG in ('Y', 'C') THEN
765: arp_util.debug ('AR_CREDIT_MEMO_API_PUB.Get_request_status()+');
766: arp_util.debug ('get_request_status: ' || 'p_init_msg_list :'||p_init_msg_list);
767: arp_util.debug ('get_request_status: ' || 'p_api_version :'||p_api_version);
768: arp_util.debug ('get_request_status: ' || 'p_request_id :'||p_request_id);
769: END IF;
770:
771: /*--------------------------------------------------+
764: IF PG_DEBUG in ('Y', 'C') THEN
765: arp_util.debug ('AR_CREDIT_MEMO_API_PUB.Get_request_status()+');
766: arp_util.debug ('get_request_status: ' || 'p_init_msg_list :'||p_init_msg_list);
767: arp_util.debug ('get_request_status: ' || 'p_api_version :'||p_api_version);
768: arp_util.debug ('get_request_status: ' || 'p_request_id :'||p_request_id);
769: END IF;
770:
771: /*--------------------------------------------------+
772: | Standard call to check for call compatibility |
771: /*--------------------------------------------------+
772: | Standard call to check for call compatibility |
773: +--------------------------------------------------*/
774: IF PG_DEBUG in ('Y', 'C') THEN
775: arp_util.debug ('get_request_status: ' || 'Standard call to check for call compatibility');
776: END IF;
777: IF NOT FND_API.Compatible_API_Call( l_api_version,
778: p_api_version,
779: l_api_name,
785: /*--------------------------------------------------------------+
786: | Initialize message list if p_init_msg_list is set to TRUE |
787: +--------------------------------------------------------------*/
788: IF PG_DEBUG in ('Y', 'C') THEN
789: arp_util.debug ('get_request_status: ' || 'Initializing message list');
790: END IF;
791: IF FND_API.to_Boolean( p_init_msg_list ) THEN
792: FND_MSG_PUB.initialize;
793: END IF;
805: /*---------------------------------------------+
806: | ===Validate the request_id=== |
807: +---------------------------------------------*/
808: IF PG_DEBUG in ('Y', 'C') THEN
809: arp_util.debug ('get_request_status: ' || 'Validating the request_id');
810: END IF;
811: BEGIN
812: SELECT customer_trx_id,
813: cm_customer_trx_id,
864: p_data => x_msg_data);
865: END;
866:
867: IF PG_DEBUG in ('Y', 'C') THEN
868: arp_util.debug ('get_request_status: ' || 'Selecting the meaning for the credit memo dispute from ar_lookups');
869: END IF;
870: SELECT meaning
871: INTO x_reason_meaning
872: FROM ar_lookups
873: WHERE lookup_type='CREDIT_MEMO_REASON'
874: AND lookup_code = l_reason_code;
875:
876: IF PG_DEBUG in ('Y', 'C') THEN
877: arp_util.debug ('get_request_status: ' || 'Selecting user information');
878: END IF;
879: IF ( l_created_by <> -1) THEN
880: OPEN per_user_cur;
881: FETCH per_user_cur INTO x_created_by;
891: END IF;
892:
893: -- Getting the line details
894: IF PG_DEBUG in ('Y', 'C') THEN
895: arp_util.debug ('get_request_status: ' || 'Selecting line details');
896: END IF;
897:
898: IF p_line_credits_flag = 'Y' THEN
899: SELECT count(*)
916:
917: -- Getting the activities details
918:
919: IF PG_DEBUG in ('Y', 'C') THEN
920: arp_util.debug ('get_request_status: ' || 'Getting the activities details');
921: END IF;
922: SELECT count(*)
923: INTO l_count_activities
924: FROM wf_item_activity_statuses ias,
949: CLOSE activities_cur;
950:
951: -- Getting the notes text
952: IF PG_DEBUG in ('Y', 'C') THEN
953: arp_util.debug ('get_request_status: ' || 'Getting the notes text');
954: END IF;
955: SELECT count(*)
956: INTO l_count_notes
957: FROM ar_notes
967: CLOSE notes_cur;
968:
969: x_return_status := FND_API.G_RET_STS_SUCCESS;
970: IF PG_DEBUG in ('Y', 'C') THEN
971: arp_util.debug ('AR_CREDIT_MEMO_API_PUB.get_request_status()-');
972: END IF;
973:
974: EXCEPTION
975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
973:
974: EXCEPTION
975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
976: IF PG_DEBUG in ('Y', 'C') THEN
977: arp_util.debug('get_request_status : unexpected error');
978: arp_util.debug('get_request_status: ' || SQLERRM, G_MSG_ERROR);
979: END IF;
980: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
981:
974: EXCEPTION
975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
976: IF PG_DEBUG in ('Y', 'C') THEN
977: arp_util.debug('get_request_status : unexpected error');
978: arp_util.debug('get_request_status: ' || SQLERRM, G_MSG_ERROR);
979: END IF;
980: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
981:
982: -- Display_Parameters;
990: | error conditions. The error messages have already |
991: | been put on the error stack. |
992: +-------------------------------------------------------*/
993: IF PG_DEBUG in ('Y', 'C') THEN
994: arp_util.debug ('get_request_status: ' || 'Exception OTHERS');
995: END IF;
996: x_return_status := FND_API.G_RET_STS_ERROR ;
997: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
998: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','AR_CREDIT_MEMO_API_PUB.Get_request_status');
1047: -- Local Variables
1048: /*4556000*/
1049: l_ct_trx ra_customer_trx%rowtype;
1050: x_return_status VARCHAR2(1);
1051: p_desc_flex_rec arp_util.attribute_rec_type;
1052: l_copy_inv_tidff_flag VARCHAR2(1);
1053: interface_line_rec interface_line_rec_type;
1054: BEGIN
1055:
1053: interface_line_rec interface_line_rec_type;
1054: BEGIN
1055:
1056: IF PG_DEBUG in ('Y', 'C') THEN
1057: arp_util.debug ('AR_CREDIT_MEMO_API_PUB.validate_request_parameters(OVERLOADED)+');
1058: END IF;
1059: /*Still call old procedure*/
1060: validate_request_parameters (
1061: p_customer_trx_id => p_customer_trx_id,
1076: /*4556000*/
1077: IF l_val_return_status <> FND_API.G_RET_STS_SUCCESS then
1078: l_val_return_status:=FND_API.G_RET_STS_ERROR;
1079: IF PG_DEBUG in ('Y', 'C') THEN
1080: arp_util.debug ('AR_CREDIT_MEMO_API_PUB.Validate_request_parameters returned error');
1081: END IF;
1082: return;
1083: END IF;
1084:
1114: p_return_status => x_return_status );
1115: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1116: THEN
1117: IF PG_DEBUG in ('Y', 'C') THEN
1118: arp_util.debug ('validate_request_parameters:'||'Err. Line Transaction FF Validation');
1119: END IF;
1120: FND_MESSAGE.SET_NAME('AR','AR_INAPI_INVALID_DESC_FLEX');
1121: FND_MESSAGE.SET_TOKEN('CUSTOMER_TRX_LINE_ID',p_cm_line_tbl(i).customer_trx_line_id);
1122: FND_MSG_PUB.Add;
1157: p_desc_flex_rec.attribute13:=p_cm_line_tbl(i).attribute13;
1158: p_desc_flex_rec.attribute14:=p_cm_line_tbl(i).attribute14;
1159: p_desc_flex_rec.attribute15:=p_cm_line_tbl(i).attribute15;
1160:
1161: arp_util.Validate_Desc_Flexfield(
1162: p_desc_flex_rec => p_desc_flex_rec,
1163: p_desc_flex_name => 'RA_CUSTOMER_TRX_LINES',
1164: p_return_status => x_return_status );
1165:
1165:
1166: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1167: THEN
1168: IF PG_DEBUG in ('Y', 'C') THEN
1169: arp_util.debug ('validate_request_parameters:'||'Err. Line Information FF Validation');
1170: END IF;
1171: FND_MESSAGE.SET_NAME('AR','AR_INAPI_INVALID_DESC_FLEX');
1172: FND_MESSAGE.SET_TOKEN('CUSTOMER_TRX_LINE_ID',p_cm_line_tbl(i).customer_trx_line_id);
1173: FND_MSG_PUB.Add;
1224:
1225: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1226: THEN
1227: IF PG_DEBUG in ('Y', 'C') THEN
1228: arp_util.debug ('validate_request_parameters:'||'Err. Invoice Transaction FF Validation');
1229: END IF;
1230: FND_MESSAGE.SET_NAME('AR','AR_INAPI_INVALID_DESC_FLEX');
1231: FND_MESSAGE.SET_TOKEN('CUSTOMER_TRX_ID',p_customer_trx_id);
1232: FND_MSG_PUB.Add;
1289: p_desc_flex_rec.attribute14:=l_ct_trx.attribute14;
1290: p_desc_flex_rec.attribute15:=l_ct_trx.attribute15;
1291: END IF;
1292: IF NVL(p_skip_workflow_flag,'N')='Y' THEN
1293: arp_util.Validate_Desc_Flexfield(
1294: p_desc_flex_rec => p_desc_flex_rec,
1295: p_desc_flex_name => 'RA_CUSTOMER_TRX',
1296: p_return_status => x_return_status );
1297:
1297:
1298: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
1299: THEN
1300: IF PG_DEBUG in ('Y', 'C') THEN
1301: arp_util.debug ('validate_request_parameters:'||'Err. Transaction Information FF Validation');
1302: END IF;
1303: FND_MESSAGE.SET_NAME('AR','AR_INAPI_INVALID_DESC_FLEX');
1304: FND_MESSAGE.SET_TOKEN('CUSTOMER_TRX_ID',p_customer_trx_id);
1305: FND_MSG_PUB.Add;
1325: p_attribute_rec.attribute15:=p_desc_flex_rec.attribute15;
1326:
1327: l_val_return_status := FND_API.G_RET_STS_SUCCESS;
1328: IF PG_DEBUG in ('Y', 'C') THEN
1329: arp_util.debug ('AR_CREDIT_MEMO_API_PUB.Validate_request_parameters(OVERLOADED)-');
1330: END IF;
1331:
1332: EXCEPTION
1333: WHEN OTHERS THEN
1331:
1332: EXCEPTION
1333: WHEN OTHERS THEN
1334: IF PG_DEBUG in ('Y', 'C') THEN
1335: arp_util.debug('Exception : Others in validate_request_parameters(OVERLOADED)');
1336: END IF;
1337: END validate_request_parameters;
1338:
1339: /*4556000*/