1: PACKAGE BODY ARI_PROCESS_VALIDATE AS
2: /*$Header: ARI_PROCESS_VALIDATE_B.pls 120.4 2011/11/03 15:11:02 mbolli noship $*/
3:
4: --------------------------------------------
5: -- declaration of global variables and types
1: PACKAGE BODY ARI_PROCESS_VALIDATE AS
2: /*$Header: ARI_PROCESS_VALIDATE_B.pls 120.4 2011/11/03 15:11:02 mbolli noship $*/
3:
4: --------------------------------------------
5: -- declaration of global variables and types
6: --------------------------------------------
5: -- declaration of global variables and types
6: --------------------------------------------
7: G_DEBUG_COUNT NUMBER := 0;
8: G_DEBUG BOOLEAN := FALSE;
9: G_FILE_NAME CONSTANT VARCHAR2(30) := 'ARI_PROCESS_VALIDATE_B.pls';
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ARI_PROCESS_VALIDATE';
12:
13: --------------------------------------------
7: G_DEBUG_COUNT NUMBER := 0;
8: G_DEBUG BOOLEAN := FALSE;
9: G_FILE_NAME CONSTANT VARCHAR2(30) := 'ARI_PROCESS_VALIDATE_B.pls';
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ARI_PROCESS_VALIDATE';
12:
13: --------------------------------------------
14: -- internal package routines
15: --------------------------------------------
66: *=======================================================================*/
67: procedure VALIDATE_DISPUTE(p_cust_account_id IN NUMBER
68: ,p_cust_site_use_id IN NUMBER
69: ,p_session_id IN NUMBER
70: ,p_payment_schedule_tbl IN ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
71: ,p_trx_number_tbl IN ARI_PROCESS_VALIDATE.TRX_NUMBER_TBL
72: ,x_fail_payment_schedule_tbl OUT NOCOPY ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
73: ,x_return_status OUT NOCOPY VARCHAR2
74: ,x_msg_count OUT NOCOPY NUMBER
67: procedure VALIDATE_DISPUTE(p_cust_account_id IN NUMBER
68: ,p_cust_site_use_id IN NUMBER
69: ,p_session_id IN NUMBER
70: ,p_payment_schedule_tbl IN ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
71: ,p_trx_number_tbl IN ARI_PROCESS_VALIDATE.TRX_NUMBER_TBL
72: ,x_fail_payment_schedule_tbl OUT NOCOPY ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
73: ,x_return_status OUT NOCOPY VARCHAR2
74: ,x_msg_count OUT NOCOPY NUMBER
75: ,x_msg_data OUT NOCOPY VARCHAR2)
68: ,p_cust_site_use_id IN NUMBER
69: ,p_session_id IN NUMBER
70: ,p_payment_schedule_tbl IN ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
71: ,p_trx_number_tbl IN ARI_PROCESS_VALIDATE.TRX_NUMBER_TBL
72: ,x_fail_payment_schedule_tbl OUT NOCOPY ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
73: ,x_return_status OUT NOCOPY VARCHAR2
74: ,x_msg_count OUT NOCOPY NUMBER
75: ,x_msg_data OUT NOCOPY VARCHAR2)
76: is
74: ,x_msg_count OUT NOCOPY NUMBER
75: ,x_msg_data OUT NOCOPY VARCHAR2)
76: is
77: l_api_name varchar2(25);
78: l_psh_tbl ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL;
79:
80: l_profile_name varchar2(256);
81: l_validate_dispute_proc varchar2(2000);
82: l_error varchar2(2000);
138: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Done');
139:
140: EXCEPTION
141: WHEN OTHERS THEN
142: FND_MESSAGE.SET_NAME('AR', 'ARI_PROCESS_VALIDATE_FAILED');
143: FND_MESSAGE.SET_TOKEN('ERROR_MSG' ,SQLERRM);
144: FND_MSG_PUB.ADD;
145: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
146: RAISE;
155: l_ctr := l_ctr + 1;
156: END IF;
157:
158: IF l_error IS NOT NULL THEN
159: FND_MESSAGE.SET_NAME('AR', 'ARI_PROCESS_VALIDATE_FAILED');
160: FND_MESSAGE.SET_TOKEN('ERROR_MSG' ,l_error);
161: FND_MSG_PUB.ADD;
162: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
163: END IF;
240: *=======================================================================*/
241: procedure VALIDATE_PAYMENT(p_cust_account_id IN NUMBER
242: ,p_cust_site_use_id IN NUMBER
243: ,p_session_id IN NUMBER
244: ,p_payment_schedule_tbl IN ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
245: ,p_trx_number_tbl IN ARI_PROCESS_VALIDATE.TRX_NUMBER_TBL
246: ,x_fail_payment_schedule_tbl OUT NOCOPY ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
247: ,x_return_status OUT NOCOPY VARCHAR2
248: ,x_msg_count OUT NOCOPY NUMBER
241: procedure VALIDATE_PAYMENT(p_cust_account_id IN NUMBER
242: ,p_cust_site_use_id IN NUMBER
243: ,p_session_id IN NUMBER
244: ,p_payment_schedule_tbl IN ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
245: ,p_trx_number_tbl IN ARI_PROCESS_VALIDATE.TRX_NUMBER_TBL
246: ,x_fail_payment_schedule_tbl OUT NOCOPY ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
247: ,x_return_status OUT NOCOPY VARCHAR2
248: ,x_msg_count OUT NOCOPY NUMBER
249: ,x_msg_data OUT NOCOPY VARCHAR2)
242: ,p_cust_site_use_id IN NUMBER
243: ,p_session_id IN NUMBER
244: ,p_payment_schedule_tbl IN ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
245: ,p_trx_number_tbl IN ARI_PROCESS_VALIDATE.TRX_NUMBER_TBL
246: ,x_fail_payment_schedule_tbl OUT NOCOPY ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
247: ,x_return_status OUT NOCOPY VARCHAR2
248: ,x_msg_count OUT NOCOPY NUMBER
249: ,x_msg_data OUT NOCOPY VARCHAR2)
250: is
248: ,x_msg_count OUT NOCOPY NUMBER
249: ,x_msg_data OUT NOCOPY VARCHAR2)
250: is
251: l_api_name varchar2(25);
252: l_psh_tbl ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL;
253:
254: l_profile_name varchar2(256);
255: l_validate_payment_proc varchar2(2000);
256: l_error varchar2(2000);
311: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Done');
312:
313: EXCEPTION
314: WHEN OTHERS THEN
315: FND_MESSAGE.SET_NAME('AR', 'ARI_PROCESS_VALIDATE_FAILED');
316: FND_MESSAGE.SET_TOKEN('ERROR_MSG' ,SQLERRM);
317: FND_MSG_PUB.ADD;
318: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
319: RAISE;
328: l_ctr := l_ctr + 1;
329: END IF;
330:
331: IF l_error IS NOT NULL THEN
332: FND_MESSAGE.SET_NAME('AR', 'ARI_PROCESS_VALIDATE_FAILED');
333: FND_MESSAGE.SET_TOKEN('ERROR_MSG' ,l_error);
334: FND_MSG_PUB.ADD;
335: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
336: END IF;
411: *=======================================================================*/
412: procedure VALIDATE_PRINT(p_cust_account_id IN NUMBER
413: ,p_cust_site_use_id IN NUMBER
414: ,p_session_id IN NUMBER
415: ,p_payment_schedule_tbl IN ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
416: ,p_trx_number_tbl IN ARI_PROCESS_VALIDATE.TRX_NUMBER_TBL
417: ,x_fail_payment_schedule_tbl OUT NOCOPY ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
418: ,x_return_status OUT NOCOPY VARCHAR2
419: ,x_msg_count OUT NOCOPY NUMBER
412: procedure VALIDATE_PRINT(p_cust_account_id IN NUMBER
413: ,p_cust_site_use_id IN NUMBER
414: ,p_session_id IN NUMBER
415: ,p_payment_schedule_tbl IN ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
416: ,p_trx_number_tbl IN ARI_PROCESS_VALIDATE.TRX_NUMBER_TBL
417: ,x_fail_payment_schedule_tbl OUT NOCOPY ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
418: ,x_return_status OUT NOCOPY VARCHAR2
419: ,x_msg_count OUT NOCOPY NUMBER
420: ,x_msg_data OUT NOCOPY VARCHAR2)
413: ,p_cust_site_use_id IN NUMBER
414: ,p_session_id IN NUMBER
415: ,p_payment_schedule_tbl IN ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
416: ,p_trx_number_tbl IN ARI_PROCESS_VALIDATE.TRX_NUMBER_TBL
417: ,x_fail_payment_schedule_tbl OUT NOCOPY ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL
418: ,x_return_status OUT NOCOPY VARCHAR2
419: ,x_msg_count OUT NOCOPY NUMBER
420: ,x_msg_data OUT NOCOPY VARCHAR2)
421: is
419: ,x_msg_count OUT NOCOPY NUMBER
420: ,x_msg_data OUT NOCOPY VARCHAR2)
421: is
422: l_api_name varchar2(25);
423: l_psh_tbl ARI_PROCESS_VALIDATE.PAYMENT_SCHEDULE_TBL;
424:
425: l_profile_name varchar2(256);
426: l_validate_print_proc varchar2(2000);
427: l_error varchar2(2000);
483: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Done');
484:
485: EXCEPTION
486: WHEN OTHERS THEN
487: FND_MESSAGE.SET_NAME('AR', 'ARI_PROCESS_VALIDATE_FAILED');
488: FND_MESSAGE.SET_TOKEN('ERROR_MSG' ,SQLERRM);
489: FND_MSG_PUB.ADD;
490: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
491: RAISE;
500: l_ctr := l_ctr + 1;
501: END IF;
502:
503: IF l_error IS NOT NULL THEN
504: FND_MESSAGE.SET_NAME('AR', 'ARI_PROCESS_VALIDATE_FAILED');
505: FND_MESSAGE.SET_TOKEN('ERROR_MSG' ,l_error);
506: FND_MSG_PUB.ADD;
507: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
508: END IF;
547: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
548:
549: END VALIDATE_PRINT;
550:
551: END ARI_PROCESS_VALIDATE;