19: ,message in varchar2)
20: is
21:
22: begin
23: IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
24: FND_LOG.STRING(log_level, module, message);
25: END IF;
26:
27: EXCEPTION
20: is
21:
22: begin
23: IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
24: FND_LOG.STRING(log_level, module, message);
25: END IF;
26:
27: EXCEPTION
28: WHEN OTHERS THEN
25: END IF;
26:
27: EXCEPTION
28: WHEN OTHERS THEN
29: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'ERROR: ' || sqlerrm);
30: end;
31:
32:
33:
87:
88: BEGIN
89:
90: l_api_name := 'VALIDATE_DISPUTE';
91: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
92:
93: -- Initialize message list IF p_init_msg_list is set to TRUE.
94: FND_MSG_PUB.initialize;
95:
101: -- ---------------------------------------------------------------------
102: -- initialize any variables here
103: l_ctr := 1;
104:
105: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
106: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
107: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
108: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Payment_schedule_tbl ' || p_payment_schedule_tbl.count);
109: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Trx Number_tbl ' || p_Trx_Number_tbl.count);
102: -- initialize any variables here
103: l_ctr := 1;
104:
105: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
106: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
107: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
108: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Payment_schedule_tbl ' || p_payment_schedule_tbl.count);
109: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Trx Number_tbl ' || p_Trx_Number_tbl.count);
110:
103: l_ctr := 1;
104:
105: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
106: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
107: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
108: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Payment_schedule_tbl ' || p_payment_schedule_tbl.count);
109: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Trx Number_tbl ' || p_Trx_Number_tbl.count);
110:
111:
104:
105: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
106: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
107: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
108: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Payment_schedule_tbl ' || p_payment_schedule_tbl.count);
109: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Trx Number_tbl ' || p_Trx_Number_tbl.count);
110:
111:
112: l_validate_dispute_proc := NVL(FND_PROFILE.VALUE('OIR_CUSTOM_VALIDATE_DISPUTE'),
105: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
106: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
107: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
108: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Payment_schedule_tbl ' || p_payment_schedule_tbl.count);
109: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Trx Number_tbl ' || p_Trx_Number_tbl.count);
110:
111:
112: l_validate_dispute_proc := NVL(FND_PROFILE.VALUE('OIR_CUSTOM_VALIDATE_DISPUTE'),
113: 'ARI_DEF_HOOKS_PVT.VALIDATE_DISPUTE');
110:
111:
112: l_validate_dispute_proc := NVL(FND_PROFILE.VALUE('OIR_CUSTOM_VALIDATE_DISPUTE'),
113: 'ARI_DEF_HOOKS_PVT.VALIDATE_DISPUTE');
114: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_validate_dispute_proc: ' || l_validate_dispute_proc);
115:
116: FOR f in 1..p_payment_schedule_tbl.count LOOP
117: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' -------- Payment Schedule :: ' || f);
118: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - payment_Schedule_id = ' || p_payment_schedule_tbl(f));
113: 'ARI_DEF_HOOKS_PVT.VALIDATE_DISPUTE');
114: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_validate_dispute_proc: ' || l_validate_dispute_proc);
115:
116: FOR f in 1..p_payment_schedule_tbl.count LOOP
117: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' -------- Payment Schedule :: ' || f);
118: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - payment_Schedule_id = ' || p_payment_schedule_tbl(f));
119:
120: IF p_payment_schedule_tbl(f) IS NOT NULL THEN
121:
114: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_validate_dispute_proc: ' || l_validate_dispute_proc);
115:
116: FOR f in 1..p_payment_schedule_tbl.count LOOP
117: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' -------- Payment Schedule :: ' || f);
118: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - payment_Schedule_id = ' || p_payment_schedule_tbl(f));
119:
120: IF p_payment_schedule_tbl(f) IS NOT NULL THEN
121:
122: l_plsql_block := 'BEGIN ' || l_validate_dispute_proc|| '(:1, :2, :3, :4, :5, :6); END;';
119:
120: IF p_payment_schedule_tbl(f) IS NOT NULL THEN
121:
122: l_plsql_block := 'BEGIN ' || l_validate_dispute_proc|| '(:1, :2, :3, :4, :5, :6); END;';
123: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_plsql_block = ' || l_plsql_block);
124:
125: BEGIN
126:
127: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - Calling...');
123: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_plsql_block = ' || l_plsql_block);
124:
125: BEGIN
126:
127: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - Calling...');
128:
129: EXECUTE IMMEDIATE l_plsql_block
130: USING
131: IN p_cust_account_id,
134: IN p_payment_schedule_tbl(f),
135: OUT l_return,
136: OUT l_error;
137:
138: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Done');
139:
140: EXCEPTION
141: WHEN OTHERS THEN
142: FND_MESSAGE.SET_NAME('AR', 'ARI_PROCESS_VALIDATE_FAILED');
141: WHEN OTHERS THEN
142: FND_MESSAGE.SET_NAME('AR', 'ARI_PROCESS_VALIDATE_FAILED');
143: FND_MESSAGE.SET_TOKEN('ERROR_MSG' ,SQLERRM);
144: FND_MSG_PUB.ADD;
145: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
146: RAISE;
147: END;
148:
149: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_return = ' || l_return);
145: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
146: RAISE;
147: END;
148:
149: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_return = ' || l_return);
150: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_error = ' || l_error);
151:
152: IF l_return IS NULL or l_return <> 'S' THEN
153: -- assign output table of failed payment schedules...
146: RAISE;
147: END;
148:
149: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_return = ' || l_return);
150: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_error = ' || l_error);
151:
152: IF l_return IS NULL or l_return <> 'S' THEN
153: -- assign output table of failed payment schedules...
154: l_psh_tbl(l_ctr) := p_payment_schedule_tbl(f);
158: IF l_error IS NOT NULL THEN
159: FND_MESSAGE.SET_NAME('AR', 'ARI_PROCESS_VALIDATE_FAILED');
160: FND_MESSAGE.SET_TOKEN('ERROR_MSG' ,l_error);
161: FND_MSG_PUB.ADD;
162: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
163: END IF;
164:
165: END IF;
166:
164:
165: END IF;
166:
167:
168: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - validate Customer Trx_Number = ' || p_trx_number_tbl(f));
169:
170: END LOOP;
171:
172: IF (l_psh_tbl.count > 0) THEN
173: x_return_status := 'F';
174: END IF;
175:
176: x_fail_payment_schedule_tbl := l_psh_tbl;
177: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - validate dispute: ' || x_return_status);
178:
179: -- ---------------------------------------------------------------------
180: -- End of API body
181: -- ---------------------------------------------------------------------
180: -- End of API body
181: -- ---------------------------------------------------------------------
182: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
183:
184: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
185:
186: EXCEPTION
187: WHEN FND_API.G_EXC_ERROR THEN
188: x_return_status := FND_API.G_RET_STS_ERROR;
187: WHEN FND_API.G_EXC_ERROR THEN
188: x_return_status := FND_API.G_RET_STS_ERROR;
189: x_fail_payment_schedule_tbl := l_psh_tbl;
190: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
191: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
192:
193: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
194: x_return_status := FND_API.G_RET_STS_ERROR;
195: x_fail_payment_schedule_tbl := l_psh_tbl;
193: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
194: x_return_status := FND_API.G_RET_STS_ERROR;
195: x_fail_payment_schedule_tbl := l_psh_tbl;
196: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
197: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
198:
199: WHEN OTHERS THEN
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: x_fail_payment_schedule_tbl := l_psh_tbl;
199: WHEN OTHERS THEN
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: x_fail_payment_schedule_tbl := l_psh_tbl;
202: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
203: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
204:
205: END VALIDATE_DISPUTE;
206:
207:
260:
261: begin
262:
263: l_api_name := 'VALIDATE_PAYMENT';
264: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
265:
266: -- Initialize message list IF p_init_msg_list is set to TRUE.
267: FND_MSG_PUB.initialize;
268:
274: -- ---------------------------------------------------------------------
275: -- initialize any variables here
276: l_ctr := 1;
277:
278: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
279: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
280: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
281: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Payment_schedule_tbl ' || p_payment_schedule_tbl.count);
282: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Trx Number_tbl ' || p_Trx_Number_tbl.count);
275: -- initialize any variables here
276: l_ctr := 1;
277:
278: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
279: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
280: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
281: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Payment_schedule_tbl ' || p_payment_schedule_tbl.count);
282: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Trx Number_tbl ' || p_Trx_Number_tbl.count);
283:
276: l_ctr := 1;
277:
278: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
279: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
280: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
281: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Payment_schedule_tbl ' || p_payment_schedule_tbl.count);
282: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Trx Number_tbl ' || p_Trx_Number_tbl.count);
283:
284: l_validate_payment_proc := NVL(FND_PROFILE.VALUE('OIR_CUSTOM_VALIDATE_PAYMENT'),
277:
278: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
279: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
280: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
281: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Payment_schedule_tbl ' || p_payment_schedule_tbl.count);
282: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Trx Number_tbl ' || p_Trx_Number_tbl.count);
283:
284: l_validate_payment_proc := NVL(FND_PROFILE.VALUE('OIR_CUSTOM_VALIDATE_PAYMENT'),
285: 'ARI_DEF_HOOKS_PVT.VALIDATE_PAYMENT');
278: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
279: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
280: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
281: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Payment_schedule_tbl ' || p_payment_schedule_tbl.count);
282: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Trx Number_tbl ' || p_Trx_Number_tbl.count);
283:
284: l_validate_payment_proc := NVL(FND_PROFILE.VALUE('OIR_CUSTOM_VALIDATE_PAYMENT'),
285: 'ARI_DEF_HOOKS_PVT.VALIDATE_PAYMENT');
286:
283:
284: l_validate_payment_proc := NVL(FND_PROFILE.VALUE('OIR_CUSTOM_VALIDATE_PAYMENT'),
285: 'ARI_DEF_HOOKS_PVT.VALIDATE_PAYMENT');
286:
287: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_validate_payment_proc: ' || l_validate_payment_proc);
288:
289: FOR f in 1..p_payment_schedule_tbl.count LOOP
290: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' -------- Payment Schedule :: ' || f);
291: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - Payment_Schedule_ID = ' || p_payment_schedule_tbl(f));
286:
287: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_validate_payment_proc: ' || l_validate_payment_proc);
288:
289: FOR f in 1..p_payment_schedule_tbl.count LOOP
290: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' -------- Payment Schedule :: ' || f);
291: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - Payment_Schedule_ID = ' || p_payment_schedule_tbl(f));
292:
293: IF p_payment_schedule_tbl(f) IS NOT NULL THEN
294:
287: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_validate_payment_proc: ' || l_validate_payment_proc);
288:
289: FOR f in 1..p_payment_schedule_tbl.count LOOP
290: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' -------- Payment Schedule :: ' || f);
291: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - Payment_Schedule_ID = ' || p_payment_schedule_tbl(f));
292:
293: IF p_payment_schedule_tbl(f) IS NOT NULL THEN
294:
295: l_plsql_block := 'BEGIN ' || l_validate_payment_proc|| '(:1, :2, :3, :4, :5, :6); END;';
292:
293: IF p_payment_schedule_tbl(f) IS NOT NULL THEN
294:
295: l_plsql_block := 'BEGIN ' || l_validate_payment_proc|| '(:1, :2, :3, :4, :5, :6); END;';
296: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_plsql_block = ' || l_plsql_block);
297:
298: BEGIN
299:
300: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - Calling...');
296: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_plsql_block = ' || l_plsql_block);
297:
298: BEGIN
299:
300: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - Calling...');
301:
302: EXECUTE IMMEDIATE l_plsql_block
303: USING
304: IN p_cust_account_id,
307: IN p_payment_schedule_tbl(f),
308: OUT l_return,
309: OUT l_error;
310:
311: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Done');
312:
313: EXCEPTION
314: WHEN OTHERS THEN
315: FND_MESSAGE.SET_NAME('AR', 'ARI_PROCESS_VALIDATE_FAILED');
314: WHEN OTHERS THEN
315: FND_MESSAGE.SET_NAME('AR', 'ARI_PROCESS_VALIDATE_FAILED');
316: FND_MESSAGE.SET_TOKEN('ERROR_MSG' ,SQLERRM);
317: FND_MSG_PUB.ADD;
318: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
319: RAISE;
320: END;
321:
322: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_return = ' || l_return);
318: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
319: RAISE;
320: END;
321:
322: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_return = ' || l_return);
323: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_error = ' || l_error);
324:
325: IF l_return IS NULL or l_return <> 'S' THEN
326: -- assign output table of failed payment schedules...
319: RAISE;
320: END;
321:
322: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_return = ' || l_return);
323: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_error = ' || l_error);
324:
325: IF l_return IS NULL or l_return <> 'S' THEN
326: -- assign output table of failed payment schedules...
327: l_psh_tbl(l_ctr) := p_payment_schedule_tbl(f);
331: IF l_error IS NOT NULL THEN
332: FND_MESSAGE.SET_NAME('AR', 'ARI_PROCESS_VALIDATE_FAILED');
333: FND_MESSAGE.SET_TOKEN('ERROR_MSG' ,l_error);
334: FND_MSG_PUB.ADD;
335: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
336: END IF;
337:
338: END IF;
339:
336: END IF;
337:
338: END IF;
339:
340: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - validate Customer Trx_Number = ' || p_trx_number_tbl(f));
341:
342: END LOOP;
343:
344: IF (l_psh_tbl.count > 0) THEN
345: x_return_status := 'F';
346: END IF;
347:
348: x_fail_payment_schedule_tbl := l_psh_tbl;
349: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - validate payment: ' || x_return_status);
350:
351: -- ---------------------------------------------------------------------
352: -- End of API body
353: -- ---------------------------------------------------------------------
352: -- End of API body
353: -- ---------------------------------------------------------------------
354: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
355:
356: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
357:
358: EXCEPTION
359: WHEN FND_API.G_EXC_ERROR THEN
360: x_return_status := FND_API.G_RET_STS_ERROR;
359: WHEN FND_API.G_EXC_ERROR THEN
360: x_return_status := FND_API.G_RET_STS_ERROR;
361: x_fail_payment_schedule_tbl := l_psh_tbl;
362: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
363: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
364:
365: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
366: x_return_status := FND_API.G_RET_STS_ERROR;
367: x_fail_payment_schedule_tbl := l_psh_tbl;
365: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
366: x_return_status := FND_API.G_RET_STS_ERROR;
367: x_fail_payment_schedule_tbl := l_psh_tbl;
368: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
369: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
370:
371: WHEN OTHERS THEN
372: x_return_status := FND_API.G_RET_STS_ERROR;
373: x_fail_payment_schedule_tbl := l_psh_tbl;
371: WHEN OTHERS THEN
372: x_return_status := FND_API.G_RET_STS_ERROR;
373: x_fail_payment_schedule_tbl := l_psh_tbl;
374: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
375: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
376:
377: END VALIDATE_PAYMENT;
378:
379: /*=========================================================================
432:
433: BEGIN
434:
435: l_api_name := 'VALIDATE_PRINT';
436: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
437:
438: -- Initialize message list IF p_init_msg_list is set to TRUE.
439: FND_MSG_PUB.initialize;
440:
446: -- ---------------------------------------------------------------------
447: -- initialize any variables here
448: l_ctr := 1;
449:
450: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
451: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
452: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
453: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Payment_schedule_tbl ' || p_payment_schedule_tbl.count);
454: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Trx Number_tbl ' || p_Trx_Number_tbl.count);
447: -- initialize any variables here
448: l_ctr := 1;
449:
450: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
451: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
452: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
453: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Payment_schedule_tbl ' || p_payment_schedule_tbl.count);
454: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Trx Number_tbl ' || p_Trx_Number_tbl.count);
455:
448: l_ctr := 1;
449:
450: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
451: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
452: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
453: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Payment_schedule_tbl ' || p_payment_schedule_tbl.count);
454: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Trx Number_tbl ' || p_Trx_Number_tbl.count);
455:
456: l_validate_print_proc := NVL(FND_PROFILE.VALUE('OIR_CUSTOM_VALIDATE_PRINT'),
449:
450: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
451: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
452: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
453: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Payment_schedule_tbl ' || p_payment_schedule_tbl.count);
454: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Trx Number_tbl ' || p_Trx_Number_tbl.count);
455:
456: l_validate_print_proc := NVL(FND_PROFILE.VALUE('OIR_CUSTOM_VALIDATE_PRINT'),
457: 'ARI_DEF_HOOKS_PVT.VALIDATE_PRINT');
450: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
451: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
452: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
453: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Payment_schedule_tbl ' || p_payment_schedule_tbl.count);
454: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - # Trx Number_tbl ' || p_Trx_Number_tbl.count);
455:
456: l_validate_print_proc := NVL(FND_PROFILE.VALUE('OIR_CUSTOM_VALIDATE_PRINT'),
457: 'ARI_DEF_HOOKS_PVT.VALIDATE_PRINT');
458:
455:
456: l_validate_print_proc := NVL(FND_PROFILE.VALUE('OIR_CUSTOM_VALIDATE_PRINT'),
457: 'ARI_DEF_HOOKS_PVT.VALIDATE_PRINT');
458:
459: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_validate_print_proc: ' || l_validate_print_proc);
460:
461: FOR f in 1..p_payment_schedule_tbl.count LOOP
462: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' -------- Payment Schedule :: ' || f);
463: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - Payment_Schedule_ID = ' || p_payment_schedule_tbl(f));
458:
459: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_validate_print_proc: ' || l_validate_print_proc);
460:
461: FOR f in 1..p_payment_schedule_tbl.count LOOP
462: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' -------- Payment Schedule :: ' || f);
463: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - Payment_Schedule_ID = ' || p_payment_schedule_tbl(f));
464:
465: IF p_payment_schedule_tbl(f) IS NOT NULL THEN
466:
459: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_validate_print_proc: ' || l_validate_print_proc);
460:
461: FOR f in 1..p_payment_schedule_tbl.count LOOP
462: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' -------- Payment Schedule :: ' || f);
463: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - Payment_Schedule_ID = ' || p_payment_schedule_tbl(f));
464:
465: IF p_payment_schedule_tbl(f) IS NOT NULL THEN
466:
467: l_plsql_block := 'BEGIN ' || l_validate_print_proc|| '(:1, :2, :3, :4, :5, :6); END;';
464:
465: IF p_payment_schedule_tbl(f) IS NOT NULL THEN
466:
467: l_plsql_block := 'BEGIN ' || l_validate_print_proc|| '(:1, :2, :3, :4, :5, :6); END;';
468: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_plsql_block = ' || l_plsql_block);
469:
470: BEGIN
471:
472: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - Calling...');
468: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_plsql_block = ' || l_plsql_block);
469:
470: BEGIN
471:
472: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - Calling...');
473:
474: EXECUTE IMMEDIATE l_plsql_block
475: USING
476: IN p_cust_account_id,
479: IN p_payment_schedule_tbl(f),
480: OUT l_return,
481: OUT l_error;
482:
483: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Done');
484:
485: EXCEPTION
486: WHEN OTHERS THEN
487: FND_MESSAGE.SET_NAME('AR', 'ARI_PROCESS_VALIDATE_FAILED');
486: WHEN OTHERS THEN
487: FND_MESSAGE.SET_NAME('AR', 'ARI_PROCESS_VALIDATE_FAILED');
488: FND_MESSAGE.SET_TOKEN('ERROR_MSG' ,SQLERRM);
489: FND_MSG_PUB.ADD;
490: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
491: RAISE;
492: END;
493:
494: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_return = ' || l_return);
490: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
491: RAISE;
492: END;
493:
494: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_return = ' || l_return);
495: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_error = ' || l_error);
496:
497: IF l_return IS NULL or l_return <> 'S' THEN
498: -- assign output table of failed payment schedules...
491: RAISE;
492: END;
493:
494: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_return = ' || l_return);
495: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_error = ' || l_error);
496:
497: IF l_return IS NULL or l_return <> 'S' THEN
498: -- assign output table of failed payment schedules...
499: l_psh_tbl(l_ctr) := p_payment_schedule_tbl(f);
503: IF l_error IS NOT NULL THEN
504: FND_MESSAGE.SET_NAME('AR', 'ARI_PROCESS_VALIDATE_FAILED');
505: FND_MESSAGE.SET_TOKEN('ERROR_MSG' ,l_error);
506: FND_MSG_PUB.ADD;
507: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
508: END IF;
509:
510: END IF;
511:
508: END IF;
509:
510: END IF;
511:
512: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - validate Customer Trx_Number = ' || p_trx_number_tbl(f));
513:
514: END LOOP;
515:
516: IF (l_psh_tbl.count > 0) THEN
517: x_return_status := 'F';
518: END IF;
519:
520: x_fail_payment_schedule_tbl := l_psh_tbl;
521: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - validate print: ' || x_return_status);
522:
523: -- ---------------------------------------------------------------------
524: -- End of API body
525: -- ---------------------------------------------------------------------
524: -- End of API body
525: -- ---------------------------------------------------------------------
526: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
527:
528: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
529:
530: EXCEPTION
531: WHEN FND_API.G_EXC_ERROR THEN
532: x_return_status := FND_API.G_RET_STS_ERROR;
531: WHEN FND_API.G_EXC_ERROR THEN
532: x_return_status := FND_API.G_RET_STS_ERROR;
533: x_fail_payment_schedule_tbl := l_psh_tbl;
534: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
535: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
536:
537: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
538: x_return_status := FND_API.G_RET_STS_ERROR;
539: x_fail_payment_schedule_tbl := l_psh_tbl;
537: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
538: x_return_status := FND_API.G_RET_STS_ERROR;
539: x_fail_payment_schedule_tbl := l_psh_tbl;
540: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
541: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
542:
543: WHEN OTHERS THEN
544: x_return_status := FND_API.G_RET_STS_ERROR;
545: x_fail_payment_schedule_tbl := l_psh_tbl;
543: WHEN OTHERS THEN
544: x_return_status := FND_API.G_RET_STS_ERROR;
545: x_fail_payment_schedule_tbl := l_psh_tbl;
546: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
547: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
548:
549: END VALIDATE_PRINT;
550:
551: END ARI_PROCESS_VALIDATE;