PACKAGE BODY: APPS.JAI_AR_CR_PKG

Source

1 PACKAGE BODY jai_ar_cr_pkg AS
2 /* $Header: jai_ar_cr_pkg.plb 120.3 2011/11/21 08:34:31 erma ship $ */
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     CURSOR c_get_regime_code (cp_receipt_method_id NUMBER)
13     IS
14     SELECT b.regime_code
15     FROM JAI_RGM_REGISTRATIONS a,
16          JAI_RGM_DEFINITIONS b
17     WHERE a.attribute_code = 'AR_RECEIPT_CLASS'
18     AND   a.registration_type = 'OTHERS'
19     AND   a.attribute_type_code = 'OTHERS'
20     AND   a.regime_id = b.regime_id
21 	  AND a.attribute_value IN
22 	      (SELECT r_class.name
23 	       FROM ar_receipt_classes r_class,
24 	            ar_receipt_methods r_method
25 	       WHERE r_class.receipt_class_id = r_method.receipt_class_id
26 	       AND r_method.receipt_method_id = cp_receipt_method_id
27 	    );
28 	 lv_regime_code varchar2(50);
29 	BEGIN
30 		p_process_flag := jai_constants.successful;
31 
32     /*Added by Qinglei for the Advanced Receipt for Service Tax enhancement Bug 13361952 Begin*/
33     OPEN c_get_regime_code (p_new.receipt_method_id);
34 	  FETCH c_get_regime_code INTO lv_regime_code;
35 	  CLOSE c_get_regime_code;
36     IF upper(nvl(lv_regime_code,'####')) = jai_constants.tcs_regime THEN
37       jai_ar_tcs_rep_pkg.process_transactions(
38           p_acra						=> p_new,
39           p_event 					=> p_event,
40           p_process_flag		=> lv_process_flag,
41           p_process_message	=> lv_process_message);
42     ELSIF upper(nvl(lv_regime_code,'####')) = jai_constants.service_regime THEN
43        jai_ar_rgm_processing_pkg.process_st_advance_receipts(
44           p_acra => p_new,
45           p_event => p_event,
46           p_process_flag => lv_process_flag,
47           p_process_message => lv_process_message);
48     END IF;
49     /*Added by Qinglei for the Advanced Receipt for Service Tax enhancement Bug 13361952 End*/
50 
51 		IF NVL(lv_process_flag,'XX') <> jai_constants.successful THEN
52 			raise_application_error(-20011,	lv_process_message);
53 		END IF;
54 	EXCEPTION
55 		WHEN OTHERS THEN
56 			p_process_flag := jai_constants.unexpected_error;
57 			p_process_message := SUBSTR(SQLERRM,1,100);
58 	END process_cm_dm;
59 
60 END;