[Home] [Help]
PACKAGE BODY: APPS.AR_DRILLDOWN_PUB_PKG
Source
1 PACKAGE BODY AR_DRILLDOWN_PUB_PKG AS
2 /* $Header: ARXLADDB.pls 120.5.12010000.4 2008/11/24 08:36:31 mpsingh ship $*/
3 -- MODIFICATION HISTORY
4 -- Person Date
5 -- --------- ------
6 -- Shishir Joshi 27-AUG-2003
7 -- Enter procedure, function bodies as shown below
8
9 PROCEDURE DRILLDOWN
10 (p_application_id IN INTEGER DEFAULT NULL
11 ,p_ledger_id IN INTEGER DEFAULT NULL
12 ,p_legal_entity_id IN INTEGER DEFAULT NULL
13 ,p_entity_code IN VARCHAR2 DEFAULT NULL
14 ,p_event_class_code IN VARCHAR2 DEFAULT NULL
15 ,p_event_type_code IN VARCHAR2 DEFAULT NULL
16 ,p_source_id_int_1 IN INTEGER DEFAULT NULL
17 ,p_source_id_int_2 IN INTEGER DEFAULT NULL
18 ,p_source_id_int_3 IN INTEGER DEFAULT NULL
19 ,p_source_id_int_4 IN INTEGER DEFAULT NULL
20 ,p_source_id_char_1 IN VARCHAR2 DEFAULT NULL
21 ,p_source_id_char_2 IN VARCHAR2 DEFAULT NULL
22 ,p_source_id_char_3 IN VARCHAR2 DEFAULT NULL
23 ,p_source_id_char_4 IN VARCHAR2 DEFAULT NULL
24 ,p_security_id_int_1 IN INTEGER DEFAULT NULL
25 ,p_security_id_int_2 IN INTEGER DEFAULT NULL
26 ,p_security_id_int_3 IN INTEGER DEFAULT NULL
27 ,p_security_id_char_1 IN VARCHAR2 DEFAULT NULL
28 ,p_security_id_char_2 IN VARCHAR2 DEFAULT NULL
29 ,p_security_id_char_3 IN VARCHAR2 DEFAULT NULL
30 ,p_valuation_method IN VARCHAR2 DEFAULT NULL
31 ,p_user_interface_type IN OUT NOCOPY VARCHAR2
32 ,p_function_name IN OUT NOCOPY VARCHAR2
33 ,p_parameters IN OUT NOCOPY VARCHAR2
34 )
35 IS
36
37 BEGIN
38
39 IF (p_application_id = 222) THEN
40
41 IF (p_entity_code = 'TRANSACTIONS') THEN
42
43 -- For Bug 5337978 - Removed the logic that fetches inventory_org_id based
44 -- based on Multi-Org org_id, since org context is not determined yet for MOAC.
45 -- Moved the logic to pre-form trigger.
46
47 p_user_interface_type := 'FORM';
48 p_function_name := 'XLA_ARXTWMAI';
49 p_parameters := ' FORM_USAGE_MODE="GL_DRILLDOWN"'||
50 ' AR_TRANSACTION_ID="' ||TO_CHAR(p_source_id_int_1)||'"';
51
52 ELSIF (p_entity_code = 'RECEIPTS') THEN
53
54 p_user_interface_type := 'FORM';
55 p_function_name := 'XLA_ARXRWMAI';
56 p_parameters := ' FORM_USAGE_MODE="GL_DRILLDOWN"'||
57 ' AR_RECEIPT_ID="' || TO_CHAR(p_source_id_int_1)||'"'
58 ||' ORG_ID="'||TO_CHAR(p_security_id_int_1)||'"';
59
60 ELSIF (p_entity_code = 'ADJUSTMENTS') THEN
61
62 p_user_interface_type := 'FORM';
63 p_function_name := 'XLA_ARXTWADA';
64 p_parameters := ' FORM_USAGE_MODE="GL_DRILLDOWN"'||
65 ' AR_ADJUSTMENT_ID="' || TO_CHAR(p_source_id_int_1)||'"'
66 ||' ORG_ID="'||TO_CHAR(p_security_id_int_1)||'"';
67 -- bug 7434092
68 ELSIF (p_entity_code = 'BILLS_RECEIVABLE') THEN
69 p_user_interface_type := 'FORM';
70 p_function_name := 'XLA_ARBRMAIN';
71 p_parameters := ' FORM_USAGE_MODE="GL_DRILLDOWN"'||
72 ' FP_CUSTOMER_TRX_ID="' ||TO_CHAR(p_source_id_int_1)||'"'
73 ||' ORG_ID="'||TO_CHAR(p_security_id_int_1)||'"';
74
75
76 END IF;
77
78 --dbms_output.put_line('p_parameters = ' || p_parameters);
79 END IF;
80 END drilldown;
81 END AR_DRILLDOWN_PUB_PKG;