[Home] [Help]
PACKAGE BODY: APPS.PA_DRILLDOWN_PUB_PKG
Source
1 PACKAGE BODY PA_DRILLDOWN_PUB_PKG
2 /* $Header: PAXDRPUB.pls 120.5 2006/09/15 11:33:23 vthakkar noship $ */
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 := 'PA_PAXTRAPE_SINGLE_PROJECT';
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 := 'PA_PAXRVRVW_DRILLDOWN';
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;