PACKAGE BODY: APPS.PA_DRILLDOWN_PUB_PKG

Source

1 PACKAGE BODY PA_DRILLDOWN_PUB_PKG
2 /* $Header: PAXDRPUB.pls 120.7 2011/09/09 11:53:43 sbommaka ship $ */
3 
4 AS
5 PROCEDURE DRILLDOWN
6 (p_application_id 	IN INTEGER
7 ,p_ledger_id 		IN INTEGER
8 ,p_legal_entity_id 	IN INTEGER DEFAULT NULL
9 ,p_entity_code 		IN VARCHAR2
10 ,p_event_class_code 	IN VARCHAR2
11 ,p_event_type_code 	IN VARCHAR2
12 ,p_source_id_int_1 	IN INTEGER DEFAULT NULL
13 ,p_source_id_int_2 	IN INTEGER DEFAULT NULL
14 ,p_source_id_int_3 	IN INTEGER DEFAULT NULL
15 ,p_source_id_int_4 	IN INTEGER DEFAULT NULL
16 ,p_source_id_char_1 	IN VARCHAR2 DEFAULT NULL
17 ,p_source_id_char_2 	IN VARCHAR2 DEFAULT NULL
18 ,p_source_id_char_3 	IN VARCHAR2 DEFAULT NULL
19 ,p_source_id_char_4 	IN VARCHAR2 DEFAULT NULL
20 ,p_security_id_int_1 	IN INTEGER DEFAULT NULL
21 ,p_security_id_int_2 	IN INTEGER DEFAULT NULL
22 ,p_security_id_int_3 	IN INTEGER DEFAULT NULL
23 ,p_security_id_char_1 	IN VARCHAR2 DEFAULT NULL
24 ,p_security_id_char_2 	IN VARCHAR2 DEFAULT NULL
25 ,p_security_id_char_3 	IN VARCHAR2 DEFAULT NULL
26 ,p_valuation_method 	IN VARCHAR2 DEFAULT NULL
27 ,p_user_interface_type  IN OUT NOCOPY VARCHAR2
28 ,p_function_name 	IN OUT NOCOPY VARCHAR2
29 ,p_parameters 		IN OUT NOCOPY VARCHAR2
30 )
31 IS
32 
33 BEGIN
34 IF (p_application_id = 275) THEN
35 	IF (p_entity_code = 'EXPENDITURES') THEN
36               -- This condition supports drilldown from Accounting Events and Subledger Journal Entry Lines Inquiry to the Expenditure Inquiry form.
37 	      p_user_interface_type := 'FORM';
38 	      p_function_name       := 'XLA_PAXTRAPE';          /*Modified for bug 12825351*/
39 	      p_parameters          := 'FORM_USAGE_MODE="GL_DRILLDOWN"'
40 					||' TRANSACTION_ID="' || to_char(p_source_id_int_1)||'"'
41 					||' ORG_ID="'||to_char(p_security_id_int_1)||'"';
42                         	        --- ||' LEDGER_ID="'||to_char(p_ledger_id)||'"';
43 	ELSIF (p_event_class_code IN( 'REVENUE','REVENUE_ADJ')) THEN
44 	   p_user_interface_type := 'FORM';
45 	   p_function_name 	 := 'XLA_PAXRVRVW';     /*Modified for bug 12825351*/
46 	   p_parameters    	 := 'FORM_USAGE_MODE="GL_DRILLDOWN"'
47 				||' PROJECT_ID="' ||TO_NUMBER(p_source_id_int_1)||'"'
48 	   		        ||' DRAFT_REVENUE_NUM="'||TO_NUMBER(p_source_id_int_2)||'"'
49 				||' ORG_ID="'||to_NUMBER(p_security_id_int_1)||'"';
50                                --||' LEDGER_ID_XLA="'||to_char(p_ledger_id)||'"';
51 
52 	ELSE
53 		p_user_interface_type := 'NONE';
54 	END IF;
55 END IF;
56 EXCEPTION
57 WHEN OTHERS THEN
58 null;
59 END DRILLDOWN;
60 END PA_DRILLDOWN_PUB_PKG;