PACKAGE BODY: APPS.JAI_AR_CR_PKG

Source

1 PACKAGE BODY jai_ar_cr_pkg AS
2 /* $Header: jai_ar_cr_pkg.plb 120.1.12000000.1 2007/07/24 06:55:21 rallamse noship $ */
3 	PROCEDURE process_cm_dm(p_event		IN	VARCHAR2,
4 				p_new		IN	ar_cash_receipts_all%ROWTYPE,
5 				p_old		IN	ar_cash_receipts_all%ROWTYPE,
6 				p_process_flag	OUT NOCOPY	VARCHAR2,
7 				p_process_message OUT NOCOPY	VARCHAR2)
8 	IS
9 		lv_process_flag		VARCHAR2(2);
10 		lv_process_message 	VARCHAR2(1000);
11 
12 	BEGIN
13 
14 		p_process_flag := jai_constants.successful;
15 		jai_ar_tcs_rep_pkg.process_transactions(
16 				p_acra						=> p_new,
17 				p_event 					=> p_event,
18 				p_process_flag		=> lv_process_flag,
19 				p_process_message	=> lv_process_message);
20 
21 		IF NVL(lv_process_flag,'XX') <> jai_constants.successful THEN
22 			raise_application_error(-20011,	lv_process_message);
23 		END IF;
24 	EXCEPTION
25 		WHEN OTHERS THEN
26 			p_process_flag := jai_constants.unexpected_error;
27 			p_process_message := SUBSTR(SQLERRM,1,100);
28 	END process_cm_dm;
29 
30 END;