[Home] [Help]
PACKAGE BODY: APPS.AR_LATE_CHARGES_REPORT_PVT
Source
1 PACKAGE BODY AR_LATE_CHARGES_REPORT_PVT AS
2 /* $Header: ARLCRPTB.pls 120.0 2006/03/28 00:48:23 kmaheswa noship $ */
3
4 --+==========================================================================+
5 --| |
6 --| |
7 --| Global Constants |
8 --| |
9 --| |
10 --+==========================================================================+
11
12
13 --=============================================================================
14 -- *********** Local Trace Routine **********
15 --=============================================================================
16 C_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
17 C_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18 C_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
19 C_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
20 C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
21 C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
22
23 C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
24 C_DEFAULT_MODULE CONSTANT VARCHAR2(240)
25 := 'ar.plsql.ar_late_charges_report_pvt';
26
27 g_log_level NUMBER;
28 g_log_enabled BOOLEAN;
29
30 PROCEDURE trace
31 (p_msg IN VARCHAR2
32 ,p_level IN NUMBER
33 ,p_module IN VARCHAR2 DEFAULT C_DEFAULT_MODULE)
34
35 IS
36 BEGIN
37 IF (p_msg IS NULL AND p_level >= g_log_level) THEN
38 fnd_log.message(p_level, p_module);
39 ELSIF p_level >= g_log_level THEN
40 fnd_log.string(p_level, p_module, p_msg);
41 END IF;
42
43 EXCEPTION
44 WHEN OTHERS THEN
45 RAISE;
46 END trace;
47
48
49 /*======================================================================+
50 | |
51 | Public Function |
52 | |
53 | Before_report |
54 | |
55 | Code for before_report trigger |
56 | |
57 +======================================================================*/
58 FUNCTION before_report RETURN BOOLEAN
59
60 IS
61
62 l_log_module VARCHAR2(240);
63 l_return BOOLEAN;
64
65 BEGIN
66
67 IF g_log_enabled THEN
68 l_log_module := C_DEFAULT_MODULE||'.before_report';
69 END IF;
70
71 IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
72
73 trace
74 (p_msg => 'BEGIN of before_report'
75 ,p_level => C_LEVEL_PROCEDURE
76 ,p_module => l_log_module);
77
78 END IF;
79
80 IF (C_LEVEL_STATEMENT >= g_log_level) THEN
81
82 trace
83 (p_msg => 'p_request_id = ' || p_request_id
84 ,p_level => C_LEVEL_STATEMENT
85 ,p_module=> l_log_module );
86
87 trace
88 (p_msg => 'p_interest_batch_id = ' || p_interest_batch_id
89 ,p_level => C_LEVEL_STATEMENT
90 ,p_module=> l_log_module );
91
92 END IF;
93
94 --
95 -- 1. Check if both request id and batch id are passed.
96 -- If so error out the report
97 --
98
99 IF (p_request_id IS NOT NULL AND p_interest_batch_id IS NOT NULL) THEN
100 FND_MESSAGE.SET_NAME('AR','AR_LC_PARAMS_INVALID');
101 FND_MSG_PUB.ADD;
102 RAISE FND_API.G_EXC_ERROR;
103 END IF;
104
105 --
106 -- 2. Get batch name if batch id alone is passed.
107 --
108
109 IF (p_request_id IS NULL AND p_interest_batch_id IS NOT NULL) THEN
110
111 SELECT batch_name
112 INTO P_BATCH_NAME_DSP
113 FROM ar_interest_batches
114 WHERE interest_batch_id = p_interest_batch_id;
115
116 p_batch_name_dsp := ''''||p_batch_name_dsp||'''';
117
118 END IF;
119
120 --
121 -- 3. Add additional Where Clause.
122 --
123
124 IF (p_request_id IS NULL AND p_interest_batch_id IS NOT NULL) THEN
125
126 p_query_where := ' AND intb.interest_batch_id = :p_interest_batch_id';
127
128 END IF;
129
130 IF (p_request_id IS NOT NULL AND p_interest_batch_id IS NULL) THEN
131
132 p_query_where := ' AND intb.request_id = :p_request_id';
133
134 END IF;
135
136 RETURN TRUE;
137
138 EXCEPTION
139 WHEN OTHERS THEN
140 RAISE;
141
142 END before_report;
143
144 --=============================================================================
145 -- *********** Initialization routine **********
146 --=============================================================================
147
148 --=============================================================================
149 --
150 --
151 -- Following code is executed when the package body is referenced for the first
152 -- time
153 --
154 --
155 --=============================================================================
156
157 BEGIN
158
159 g_log_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
160 g_log_enabled := fnd_log.test
161 (log_level => g_log_level
162 ,MODULE => C_DEFAULT_MODULE);
163
164 IF NOT g_log_enabled THEN
165 g_log_level := C_LEVEL_LOG_DISABLED;
166 END IF;
167
168 END AR_LATE_CHARGES_REPORT_PVT;