[Home] [Help]
PACKAGE BODY: APPS.ARI_DEF_HOOKS_PVT
Source
1 PACKAGE BODY ARI_DEF_HOOKS_PVT as
2 /*$Header: ARI_DEF_HOOKS_B.pls 120.1 2011/07/29 06:03:51 mbolli noship $*/
3
4 /*=======================================================================+
5 | Package Global Constants
6 +=======================================================================*/
7 G_PKG_NAME CONSTANT VARCHAR2(30):= 'ARI_DEF_HOOKS_PVT';
8 G_LOG_ENABLED varchar2(5);
9 G_MSG_LEVEL NUMBER;
10
11
12 /*========================================================================
13 | PRIVATE PROCEDURE LogMessage
14 |
15 | DESCRIPTION
16 | This procedure logs debug messages to db and to CM log
17 |
18 | CALLED FROM PROCEDURES/FUNCTIONS (local to this package body)
19 |
20 | CALLS PROCEDURES/FUNCTIONS (local to this package body)
21 | None
22 |
23 | PARAMETERS
24 | p_msg_level IN Debug msg level
25 | p_msg IN Debug msg itself
26 |
27 | KNOWN ISSUES
28 | None
29 |
30 | NOTES
31 | Any interesting aspect of the code in the package body which needs
32 | to be stated.
33 |
34 | MODIFICATION HISTORY
35 | Date Author Description of Changes
36 | 28-Jul-2011 KASREENI Created
37 |
38 *=======================================================================*/
39 procedure logMessage(log_level in number
40 ,module in varchar2
41 ,message in varchar2)
42 is
43
44 begin
45 IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
46 FND_LOG.STRING(log_level, module, message);
47 END IF;
48
49 EXCEPTION
50 WHEN OTHERS THEN
51 LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'ERROR: ' || sqlerrm);
52 end;
53
54
55 /*========================================================================
56 | PUBLIC PROCEDURE VALIDATE_DISPUTE
57 |
58 | DESCRIPTION
59 | This procedure implements default algorithm for validating Payment_schedule_ID
60 | for Disputing. This package should not be modified by customer.
61 |
62 | PSEUDO CODE/LOGIC
63 | All Payment_Schedules are validate to 'S'
64 |
65 | PARAMETERS
66 | Parameter: p_cust_account_id => Cust Account ID of the customer
67 | p_cust_site_use_id => Site_Use ID of the Account
68 | p_session_id => Current session from AR_IREC_USER_ACCT_SITES_ALL
69 | p_payment_schedule_id => Payment Schedules ID of Transaction
70 | x_return_status => 'S' Validation Success
71 | 'E' Validation Error
72 | x_msg_data => Validating Error Message
73 |
74 | KNOWN ISSUES
75 | None
76 |
77 | NOTES
78 | Any interesting aspect of the code in the package body which needs
79 | to be stated.
80 |
81 | MODIFICATION HISTORY
82 | Date Author Description of Changes
83 | 28-Jul-2011 kasreeni Created
84 |
85 *=======================================================================*/
86 procedure VALIDATE_DISPUTE(p_cust_account_id IN NUMBER
87 ,p_cust_site_use_id IN NUMBER
88 ,p_session_id IN NUMBER
89 ,p_payment_schedule_id IN NUMBER
90 ,x_return_status OUT NOCOPY VARCHAR2
91 ,x_msg_data OUT NOCOPY VARCHAR2)
92 IS
93
94 /*-----------------------------------------------------------------------+
95 | Local Variable Declarations and initializations |
96 +-----------------------------------------------------------------------*/
97
98 l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_DISPUTE';
99
100 /*-----------------------------------------------------------------------+
101 | Cursor Declarations |
102 +-----------------------------------------------------------------------*/
103
104 BEGIN
105
106 LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
107
108 -- first figure out if fee applies to the current installment
109 logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
110 logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
111 logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
112 logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
113
114 logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
115
116
117 X_RETURN_STATUS := 'S';
118 logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'X_RETURN_STATUS: ' || X_RETURN_STATUS);
119
120 LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
121
122 EXCEPTION
123 WHEN OTHERS THEN
124 LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || ' - In exception');
125 END;
126
127 /*========================================================================
128 | PUBLIC PROCEDURE VALIDATE_PAYMENT
129 |
130 | DESCRIPTION
131 | This procedure implements default algorithm for validating payment_schedule_id
132 | for Payment. This package should not be modified by customer.
133 |
134 | PSEUDO CODE/LOGIC
135 | All Payment_Schedules are validate to 'S'
136 |
137 | PARAMETERS
138 | Parameter: p_cust_account_id => Cust Account ID of the customer
139 | p_cust_site_use_id => Site_Use ID of the Account
140 | p_session_id => Current session from AR_IREC_USER_ACCT_SITES_ALL
141 | p_payment_schedule_id => Payment Schedules ID of Transaction
142 | x_return_status => 'S' Validation Success
143 | 'E' Validation Error
144 | x_msg_data => Validating Error Message
145 |
146 | KNOWN ISSUES
147 | None
148 |
149 | NOTES
150 | Any interesting aspect of the code in the package body which needs
151 | to be stated.
152 |
153 | MODIFICATION HISTORY
154 | Date Author Description of Changes
155 | 28-Jul-2011 kasreeni Created
156 |
157 *=======================================================================*/
158 procedure VALIDATE_PAYMENT(p_cust_account_id IN NUMBER
159 ,p_cust_site_use_id IN NUMBER
160 ,p_session_id IN NUMBER
161 ,p_payment_schedule_id IN NUMBER
162 ,x_return_status OUT NOCOPY VARCHAR2
163 ,x_msg_data OUT NOCOPY VARCHAR2)
164 IS
165
166 /*-----------------------------------------------------------------------+
167 | Local Variable Declarations and initializations |
168 +-----------------------------------------------------------------------*/
169
170 l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_PAYMENT';
171
172 /*-----------------------------------------------------------------------+
173 | Cursor Declarations |
174 +-----------------------------------------------------------------------*/
175
176 BEGIN
177
178 LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
179
180 -- first figure out if fee applies to the current installment
181 logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
182 logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
183 logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
184 logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
185
186 logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
187
188
189 X_RETURN_STATUS := 'S';
190 logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'X_RETURN_STATUS: ' || X_RETURN_STATUS);
191
192 LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
193
194 EXCEPTION
195 WHEN OTHERS THEN
196 LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || ' - In exception');
197 END;
198
199 /*========================================================================
200 | PUBLIC PROCEDURE VALIDATE_PRINT
201 |
202 | DESCRIPTION
203 | This procedure implements default algorithm for validating payment_schedule_id
204 | for Printing. This package should not be modified by customer.
205 |
206 | PSEUDO CODE/LOGIC
207 | All Payment_Schedules are validate to 'S'
208 |
209 | PARAMETERS
210 | Parameter: p_cust_account_id => Cust Account ID of the customer
211 | p_cust_site_use_id => Site_Use ID of the Account
212 | p_session_id => Current session from AR_IREC_USER_ACCT_SITES_ALL
213 | p_payment_schedule_id => Payment Schedules ID of Transaction
214 | x_return_status => 'S' Validation Success
215 | 'E' Validation Error
216 | x_msg_data => Validating Error Message
217 |
218 | KNOWN ISSUES
219 | None
220 |
221 | NOTES
222 | Any interesting aspect of the code in the package body which needs
223 | to be stated.
224 |
225 | MODIFICATION HISTORY
226 | Date Author Description of Changes
227 | 28-Jul-2011 kasreeni Created
228 |
229 *=======================================================================*/
230 procedure VALIDATE_PRINT(p_cust_account_id IN NUMBER
231 ,p_cust_site_use_id IN NUMBER
232 ,p_session_id IN NUMBER
233 ,p_payment_schedule_id IN NUMBER
234 ,x_return_status OUT NOCOPY VARCHAR2
235 ,x_msg_data OUT NOCOPY VARCHAR2)
236 IS
237
238 /*-----------------------------------------------------------------------+
239 | Local Variable Declarations and initializations |
240 +-----------------------------------------------------------------------*/
241
242 l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_PRINT';
243
244 /*-----------------------------------------------------------------------+
245 | Cursor Declarations |
246 +-----------------------------------------------------------------------*/
247
248 BEGIN
249
250 LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
251
252 -- first figure out if fee applies to the current installment
253 logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
254 logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
255 logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
256 logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
257
258 logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
259
260
261 X_RETURN_STATUS := 'S';
262 logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'X_RETURN_STATUS: ' || X_RETURN_STATUS);
263
264 LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
265
266 EXCEPTION
267 WHEN OTHERS THEN
268 LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || ' - In exception');
269 END;
270
271 BEGIN
272 G_LOG_ENABLED := 'N';
273 G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
274
275 /* getting msg logging info */
276 G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
277 if (G_LOG_ENABLED = 'N') then
278 G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
279 else
280 G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
281 end if;
282
283 LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
284 LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
285
286 END;