[Home] [Help]
PACKAGE BODY: APPS.CST_DRILLDOWN_PUB_PKG
Source
1 PACKAGE BODY CST_DRILLDOWN_PUB_PKG AS
2 /* $Header: CSTDRILB.pls 120.2.12010000.2 2008/11/13 15:40:17 anjha ship $ */
3
4 pg_FORM_USAGE_MODE CONSTANT VARCHAR2(30) := 'SLA_DRILLDOWN';
5
6 PROCEDURE DRILLDOWN
7 (p_application_id IN INTEGER,
8 p_ledger_id IN INTEGER,
9 p_legal_entity_id IN INTEGER DEFAULT NULL,
10 p_entity_code IN VARCHAR2,
11 p_event_class_code IN VARCHAR2,
12 p_event_type_code IN VARCHAR2,
13 p_source_id_int_1 IN INTEGER DEFAULT NULL,
14 p_source_id_int_2 IN INTEGER DEFAULT NULL,
15 p_source_id_int_3 IN INTEGER DEFAULT NULL,
16 p_source_id_int_4 IN INTEGER DEFAULT NULL,
17 p_source_id_char_1 IN VARCHAR2 DEFAULT NULL,
18 p_source_id_char_2 IN VARCHAR2 DEFAULT NULL,
19 p_source_id_char_3 IN VARCHAR2 DEFAULT NULL,
20 p_source_id_char_4 IN VARCHAR2 DEFAULT NULL,
21 p_security_id_int_1 IN INTEGER DEFAULT NULL,
22 p_security_id_int_2 IN INTEGER DEFAULT NULL,
23 p_security_id_int_3 IN INTEGER DEFAULT NULL,
24 p_security_id_char_1 IN VARCHAR2 DEFAULT NULL,
25 p_security_id_char_2 IN VARCHAR2 DEFAULT NULL,
26 p_security_id_char_3 IN VARCHAR2 DEFAULT NULL,
27 p_valuation_method IN VARCHAR2 DEFAULT NULL,
28 p_user_interface_type IN OUT NOCOPY VARCHAR2,
29 p_function_name IN OUT NOCOPY VARCHAR2,
30 p_parameters IN OUT NOCOPY VARCHAR2)
31 IS
32
33 l_security_id_int_1 INTEGER;
34 l_lot_txn_id INTEGER;
35
36 BEGIN
37 IF (p_application_id = 707) THEN
38 IF (p_entity_code = 'MTL_ACCOUNTING_EVENTS') AND
39 (p_event_class_code <> 'LOT') THEN
40 p_user_interface_type := 'FORM';
41 p_function_name := 'CST_INVTVTXN';
42
43 IF (p_event_class_code = 'FOB_SHIP_RECIPIENT_SHIP') OR
44 (p_event_class_code = 'FOB_RCPT_SENDER_RCPT') THEN
45 SELECT organization_id
46 INTO l_security_id_int_1
47 FROM mtl_material_transactions
48 WHERE transaction_id = p_source_id_int_1;
49 ELSE
50 l_security_id_int_1 := p_security_id_int_1;
51 END IF;
52
53 p_parameters := ' FORM_USAGE_MODE="'||pg_FORM_USAGE_MODE||'"'
54 ||' INVTVTXN_GO_DETAIL="Y"'
55 ||' INVTVTXN_TRXN_ID="' || to_char(p_source_id_int_1)||'"'
56 ||' ORG_ID="'||to_char(l_security_id_int_1)||'"';
57 ELSIF (p_entity_code = 'RCV_ACCOUNTING_EVENTS') AND
58 (p_event_class_code NOT IN
59 ( 'PERIOD_END_ACCRUAL','RETR_PRICE_ADJ_RCV','RETR_PRICE_ADJ_DEL',
60 'LDD_COST_ADJ_RCV','LDD_COST_ADJ_DEL')
61 ) THEN
62 p_user_interface_type := 'FORM';
63 p_function_name := 'RCV_RCVRCVRC';
64 p_parameters := ' FORM_USAGE_MODE="'||pg_FORM_USAGE_MODE||'"'
65 ||' TRANSACTION_ID="' || to_char(p_source_id_int_1)||'"'
66 ||' MO_ORG_ID="'||to_char(p_security_id_int_2)||'"'
67 ||' ORG_ID="'||to_char(p_source_id_int_3)||'"';
68 ELSIF (p_entity_code = 'RCV_ACCOUNTING_EVENTS') AND
69 (p_event_class_code IN
70 ( 'PERIOD_END_ACCRUAL','RETR_PRICE_ADJ_RCV','RETR_PRICE_ADJ_DEL',
71 'LDD_COST_ADJ_RCV','LDD_COST_ADJ_DEL')
72 ) THEN
73 p_user_interface_type := 'FORM';
74 p_function_name := 'CST_CSTFQRAE';
75 p_parameters := ' FORM_USAGE_MODE="'||pg_FORM_USAGE_MODE||'"'
76 ||' TRANSACTION_ID="' || to_char(p_source_id_int_1)||'"'
77 ||' ACCOUNTING_EVENT_ID="'||to_char(p_source_id_int_2)||'"'
78 ||' ORG_ID="'||to_char(p_source_id_int_3)||'"';
79 ELSIF (p_entity_code = 'WIP_ACCOUNTING_EVENTS') AND
80 (p_event_class_code NOT IN ('WIP_LOT', 'WIP_COST_UPD', 'VARIANCE')) AND
81 (p_event_type_code <> 'EST_SCRAP_ABSORPTION') THEN
82 p_user_interface_type := 'FORM';
83 p_function_name := 'WIP_WIPTQRSC';
84 p_parameters := ' FORM_USAGE_MODE="'||pg_FORM_USAGE_MODE||'"'
85 ||' TRANSACTION_ID="' || to_char(p_source_id_int_1)||'"'
86 ||' ORG_ID="'||to_char(p_security_id_int_1)||'"';
87 ELSIF (p_event_class_code = 'WIP_LOT') THEN
88 p_user_interface_type := 'FORM';
89 p_function_name := 'WSM_WSMFJLTX';
90 SELECT source_line_id
91 INTO l_lot_txn_id
92 FROM wip_transactions
93 WHERE transaction_id = p_source_id_int_1;
94 p_parameters := ' FORM_USAGE_MODE="'||pg_FORM_USAGE_MODE||'"'
95 ||' WLT_TXN_ID="' || to_char(l_lot_txn_id)||'"'
96 ||' ORG_ID="'||to_char(p_security_id_int_1)||'"';
97 ELSIF (p_event_class_code = 'LOT') THEN
98 p_user_interface_type := 'FORM';
99 p_function_name := 'WSM_WSMFJLTX';
100 SELECT source_line_id
101 INTO l_lot_txn_id
102 FROM mtl_material_transactions
103 WHERE transaction_id = p_source_id_int_1;
104 p_parameters := ' FORM_USAGE_MODE="'||pg_FORM_USAGE_MODE||'"'
105 ||' WLT_TXN_ID="' || to_char(l_lot_txn_id)||'"'
106 ||' ORG_ID="'||to_char(p_security_id_int_1)||'"';
107 ELSIF (p_entity_code = 'WO_ACCOUNTING_EVENTS') THEN
108 p_user_interface_type := 'FORM';
109 p_function_name := 'CST_CSTACRVT';
110 p_parameters := ' FORM_USAGE_MODE="'||pg_FORM_USAGE_MODE||'"'
111 ||' TRANSACTION_ID="' || to_char(p_source_id_int_1)||'"'
112 ||' ORG_ID="'||to_char(p_security_id_int_1)||'"';
113 ELSE
114 p_user_interface_type := 'NONE';
115 END IF;
116 END IF;
117 END DRILLDOWN;
118 END CST_DRILLDOWN_PUB_PKG;