[Home] [Help]
PACKAGE BODY: APPS.LNS_DRILLDOWN_PUB_PKG
Source
1 PACKAGE BODY LNS_DRILLDOWN_PUB_PKG AS
2 /* $Header: LNS_DRILLDOWN_B.pls 120.1 2006/01/04 13:43:11 raverma noship $*/
3
4 --------------------------------------------
5 -- declaration of global variables and types
6 --------------------------------------------
7 G_DEBUG_COUNT NUMBER := 0;
8 G_DEBUG BOOLEAN := FALSE;
9 G_FILE_NAME CONSTANT VARCHAR2(30) := 'LNS_DRILLDOWN_B.pls';
10
11 G_PKG_NAME CONSTANT VARCHAR2(30) := 'LNS_DRILLDOWN_PUB_PKG';
12 G_DAYS_COUNT NUMBER;
13 G_DAYS_IN_YEAR NUMBER;
14
15 --------------------------------------------
16 -- internal package routines
17 --------------------------------------------
18 procedure logMessage(log_level in number
19 ,module in varchar2
20 ,message in varchar2)
21 is
22
23 begin
24
25 IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
26 FND_LOG.STRING(log_level, module, message);
27 END IF;
28
29 end;
30
31 PROCEDURE DRILLDOWN
32 (p_application_id IN INTEGER DEFAULT NULL
33 ,p_ledger_id IN INTEGER DEFAULT NULL
34 ,p_legal_entity_id IN INTEGER DEFAULT NULL
35 ,p_entity_code IN VARCHAR2 DEFAULT NULL
36 ,p_event_class_code IN VARCHAR2 DEFAULT NULL
37 ,p_event_type_code IN VARCHAR2 DEFAULT NULL
38 ,p_source_id_int_1 IN INTEGER DEFAULT NULL
39 ,p_source_id_int_2 IN INTEGER DEFAULT NULL
40 ,p_source_id_int_3 IN INTEGER DEFAULT NULL
41 ,p_source_id_int_4 IN INTEGER DEFAULT NULL
42 ,p_source_id_char_1 IN VARCHAR2 DEFAULT NULL
43 ,p_source_id_char_2 IN VARCHAR2 DEFAULT NULL
44 ,p_source_id_char_3 IN VARCHAR2 DEFAULT NULL
45 ,p_source_id_char_4 IN VARCHAR2 DEFAULT NULL
46 ,p_security_id_int_1 IN INTEGER DEFAULT NULL
47 ,p_security_id_int_2 IN INTEGER DEFAULT NULL
48 ,p_security_id_int_3 IN INTEGER DEFAULT NULL
49 ,p_security_id_char_1 IN VARCHAR2 DEFAULT NULL
50 ,p_security_id_char_2 IN VARCHAR2 DEFAULT NULL
51 ,p_security_id_char_3 IN VARCHAR2 DEFAULT NULL
52 ,p_valuation_method IN VARCHAR2 DEFAULT NULL
53 ,p_user_interface_type IN OUT NOCOPY VARCHAR2
54 ,p_function_name IN OUT NOCOPY VARCHAR2
55 ,p_parameters IN OUT NOCOPY VARCHAR2)
56 IS
57 l_function varchar2(100);
58 l_api_name varchar2(15);
59 l_return_status VARCHAR2(1);
60 l_msg_count NUMBER;
61 l_msg_data VARCHAR2(32767);
62 l_loan_id varchar2(100);
63
64 BEGIN
65
66 l_api_name := 'DRILLDOWN';
67 logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
68 logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_id ' || p_source_id_int_1);
69 logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_event_class_code ' || p_event_class_code);
70 logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_event_type_code ' || p_event_type_code);
71
72 IF (p_application_id = 206) THEN
73
74 IF (p_entity_code = 'LOANS') THEN
75 l_loan_id := TO_CHAR(p_source_id_int_1);
76 p_user_interface_type := 'HTML';
77 p_parameters := '/OA_HTML/OA.jsp?OAFunc=LNS_ORIG_BASIC_INFO' || '&' || 'loanId=' || l_loan_id;
78 END IF;
79
80 END IF;
81 logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_parameters ' || p_parameters);
82
83 END DRILLDOWN;
84
85 END LNS_DRILLDOWN_PUB_PKG;