78:
79: -- Initialize message list if p_init_msg_list is set to TRUE.
80: IF FND_API.to_Boolean(p_init_msg_list)
81: THEN
82: FND_MSG_PUB.initialize;
83: END IF;
84:
85: -- Debug Message
86: -- IF PG_DEBUG < 10 THEN
188: WHERE customer_trx_line_id = l_disp_line_tbl(i).customer_trx_line_id;
189: EXCEPTION
190: WHEN NO_DATA_FOUND THEN
191: FND_MESSAGE.SET_NAME('IEX', 'IEX_NO_UNIT_PRICE');
192: FND_MSG_PUB.Add;
193: x_return_status := FND_API.G_RET_STS_ERROR;
194: RAISE FND_API.G_EXC_ERROR;
195: END ;
196: -- dbms_output.put_line('price for customer_trx_id is'||to_char(l_disp_line_tbl(i).price)) ;
206: AR_CREDIT_MEMO_API_PUB.create_request(
207: p_api_version => l_api_version_number,
208: p_init_msg_list => FND_API.G_TRUE,
209: p_commit => FND_API.G_TRUE,
210: p_validation_level => FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
211: x_return_status => l_return_status,
212: x_msg_count => l_msg_count,
213: x_msg_data => l_msg_data,
214: p_customer_trx_id => l_disp_header_rec.cust_trx_id,
254: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
255: IEX_DEBUG_PUB.logMessage('Create_Dispute: ' || 'IEX_DISPUTES_PVT: CreateDispute: Insert Failed');
256: END IF;
257: FND_MESSAGE.SET_NAME('IEX', 'IEX_DISPUTE_FAILED');
258: FND_MSG_PUB.Add;
259: x_return_status := FND_API.G_RET_STS_ERROR;
260: RAISE FND_API.G_EXC_ERROR;
261:
262: END IF ;
266: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
267: IEX_DEBUG_PUB.logMessage('Create_Dispute: ' || 'IEX_DISPUTES_PVT: CreateDispute: Credit Memo Configuration failure');
268: END IF;
269: FND_MESSAGE.SET_NAME('IEX', 'IEX_NO_CREDIT_MEMO');
270: FND_MSG_PUB.Add;
271: x_return_status := FND_API.G_RET_STS_ERROR;
272: RAISE FND_API.G_EXC_ERROR;
273:
274: end if;
290: IEX_DEBUG_PUB.logMessage('Create_Dispute: ' || 'PVT: ' || l_api_name || ' end');
291: END IF;
292:
293: -- Standard call to get message count and if count is 1, get message info.
294: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
295: p_data => x_msg_data);
296: EXCEPTION
297: WHEN FND_API.G_EXC_ERROR THEN
298: ROLLBACK TO create_dispute_pvt;
296: EXCEPTION
297: WHEN FND_API.G_EXC_ERROR THEN
298: ROLLBACK TO create_dispute_pvt;
299: x_return_status := FND_API.G_RET_STS_ERROR;
300: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
302: ROLLBACK TO create_dispute_pvt;
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
300: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
302: ROLLBACK TO create_dispute_pvt;
303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
304: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
305: WHEN OTHERS THEN
306: ROLLBACK TO create_dispute_pvt;
307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
308: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
304: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
305: WHEN OTHERS THEN
306: ROLLBACK TO create_dispute_pvt;
307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
308: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
309: THEN
310: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
311: END IF;
312: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
306: ROLLBACK TO create_dispute_pvt;
307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
308: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
309: THEN
310: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
311: END IF;
312: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
313:
314: END create_dispute;
308: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
309: THEN
310: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
311: END IF;
312: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
313:
314: END create_dispute;
315:
316: PROCEDURE is_delinquency_dispute(p_api_version IN NUMBER,
345:
346: -- Initialize message list if p_init_msg_list is set to TRUE.
347: IF FND_API.to_Boolean( p_init_msg_list )
348: THEN
349: FND_MSG_PUB.initialize;
350: END IF;
351:
352: -- Debug Message
353: -- IF PG_DEBUG < 10 THEN
365:
366: IF (l_count = 0 ) THEN
367: --dbms_output.put_line('No dispute exist for this delinquency') ;
368: FND_MESSAGE.Set_Name('IEX_NO_DISP_FOR_DEL', 'IEX_NO_DISP_FOR_DEL');
369: FND_MSG_PUB.Add;
370: x_return_status := 'F' ;
371: ELSE
372: select cm_request_id into l_request_id
373: from iex_disputes
380: IF l_status = 'PENDING_APPROVAL' or l_status = 'APPROVED_PEND_COMP' then
381: x_return_status := 'T' ;
382: ELSIF l_status = 'COMPLETE' or l_status = 'NOT_APPROVED' THEN
383: FND_MESSAGE.Set_Name('IEX_STATUS_COMPLETE_DEL', 'IEX_STATUS_COMPLETE_DEL');
384: FND_MSG_PUB.Add;
385: x_return_status := 'F' ;
386: ELSE
387: FND_MESSAGE.Set_Name('IEX_STATUS_NOEXIST_DEL', 'IEX_STATUS_NOEXIST_DEL');
388: FND_MSG_PUB.Add;
384: FND_MSG_PUB.Add;
385: x_return_status := 'F' ;
386: ELSE
387: FND_MESSAGE.Set_Name('IEX_STATUS_NOEXIST_DEL', 'IEX_STATUS_NOEXIST_DEL');
388: FND_MSG_PUB.Add;
389: x_return_status := 'F' ;
390: END IF ;
391:
392: END IF ;
399: IEX_DEBUG_PUB.logMessage('is_delinquency_dispute: ' || 'PVT: ' || l_api_name || ' end');
400: END IF;
401:
402: -- Standard call to get message count and if count is 1, get message info.
403: FND_MSG_PUB.Count_And_Get
404: ( p_count => x_msg_count,
405: p_data => x_msg_data
406: );
407:
408: EXCEPTION
409: WHEN FND_API.G_EXC_ERROR THEN
410: ROLLBACK TO is_delinquency_dispute_pvt;
411: x_return_status := FND_API.G_RET_STS_ERROR;
412: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
413: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
414: ROLLBACK TO is_delinquency_dispute_pvt;
415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
416: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
412: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
413: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
414: ROLLBACK TO is_delinquency_dispute_pvt;
415: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
416: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
417: WHEN OTHERS THEN
418: ROLLBACK TO is_delinquency_dispute_pvt;
419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
420: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
416: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
417: WHEN OTHERS THEN
418: ROLLBACK TO is_delinquency_dispute_pvt;
419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
420: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
421: THEN
422: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
423: END IF;
424: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
418: ROLLBACK TO is_delinquency_dispute_pvt;
419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
420: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
421: THEN
422: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
423: END IF;
424: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
425:
426:
420: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
421: THEN
422: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
423: END IF;
424: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
425:
426:
427:
428: END is_delinquency_dispute;
878: END IF;
879:
880: x_return_status := l_return_status;
881: -- Standard call to get message count and if count is 1, get message info
882: FND_MSG_PUB.Count_And_Get(
883: p_encoded => FND_API.G_FALSE,
884: p_count => x_msg_count,
885: p_data => x_msg_data);
886:
896: IEX_DEBUG_PUB.logMessage('CANCEL_DISPUTE: - exception');
897: errmsg := SQLERRM;
898: IEX_DEBUG_PUB.logMessage('CANCEL_DISPUTE: - errmsg='||errmsg);
899: END IF;
900: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
901: WHEN others THEN
902: ROLLBACK TO CANCEL_DISPUTE;
903: x_return_status := FND_API.G_RET_STS_ERROR;
904: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN