41: l_orig_request_id NUMBER;
42: l_msg_text fnd_new_messages.message_text%type;
43: BEGIN
44: IF PG_DEBUG IN ('Y', 'C') THEN
45: FND_FILE.put_line(FND_FILE.LOG, 'validate_transmission()+');
46: END IF;
47: IF p_transmission_name IS NULL THEN
48: FND_MESSAGE.SET_NAME('AR','AR_OPLB_TRANS_MUST');
49: l_msg_text := fnd_message.get;
46: END IF;
47: IF p_transmission_name IS NULL THEN
48: FND_MESSAGE.SET_NAME('AR','AR_OPLB_TRANS_MUST');
49: l_msg_text := fnd_message.get;
50: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
51: RETURN 1;
52: END IF;
53: l_transmission_exists := 'Y';
54:
68: EXCEPTION
69: WHEN NO_DATA_FOUND THEN
70: l_transmission_exists := 'N';
71: WHEN OTHERS THEN
72: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Error in fetching transmission Details');
73: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Message : '||SQLERRM);
74: RETURN 1;
75: END;
76:
69: WHEN NO_DATA_FOUND THEN
70: l_transmission_exists := 'N';
71: WHEN OTHERS THEN
72: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Error in fetching transmission Details');
73: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Message : '||SQLERRM);
74: RETURN 1;
75: END;
76:
77: IF p_new_transmission = 'Y' AND l_transmission_exists = 'Y' THEN
77: IF p_new_transmission = 'Y' AND l_transmission_exists = 'Y' THEN
78: FND_MESSAGE.SET_NAME('AR','AR_OPLB_TRANS_EXISTS');
79: FND_MESSAGE.SET_TOKEN('TRANSMISSION_NAME',p_transmission_name);
80: l_msg_text := fnd_message.get;
81: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
82: RETURN 1;
83: END IF;
84:
85: IF p_new_transmission = 'N' THEN
86: IF l_transmission_exists = 'N' THEN
87: FND_MESSAGE.SET_NAME('AR','AR_OPLB_TRANS_NOT_EXITS');
88: FND_MESSAGE.SET_TOKEN('TRANSMISSION_NAME',p_transmission_name);
89: l_msg_text := fnd_message.get;
90: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
91: RETURN 1;
92: END IF;
93: IF l_status = 'CL' THEN
94: FND_MESSAGE.SET_NAME('AR','AR_OPLB_TRANS_CLOSED');
93: IF l_status = 'CL' THEN
94: FND_MESSAGE.SET_NAME('AR','AR_OPLB_TRANS_CLOSED');
95: FND_MESSAGE.SET_TOKEN('TRANSMISSION_NAME',p_transmission_name);
96: l_msg_text := fnd_message.get;
97: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
98: RETURN 1;
99: END IF;
100: END IF;
101:
112: END IF;
113: RETURN 0;
114: EXCEPTION
115: WHEN OTHERS THEN
116: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Inside validate_transmission');
117: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Message : '||SQLERRM);
118: RETURN 1;
119: END validate_transmission;
120:
113: RETURN 0;
114: EXCEPTION
115: WHEN OTHERS THEN
116: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Inside validate_transmission');
117: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Message : '||SQLERRM);
118: RETURN 1;
119: END validate_transmission;
120:
121: /*=======================================================================+
154: RETURN NUMBER IS
155: l_msg_text fnd_new_messages.message_text%type;
156: BEGIN
157: IF PG_DEBUG IN ('Y', 'C') THEN
158: FND_FILE.put_line(FND_FILE.LOG, 'validate_import()+');
159: END IF;
160: lb_sub.submit_import := p_submit_import;
161: IF p_submit_import = 'Y' THEN
162: IF p_transmission_format IS NULL THEN
161: IF p_submit_import = 'Y' THEN
162: IF p_transmission_format IS NULL THEN
163: FND_MESSAGE.SET_NAME('AR','AR_OPLB_TRANS_FORMAT_REQ');
164: l_msg_text := fnd_message.get;
165: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
166: RETURN 1;
167: END IF;
168: IF p_data_file IS NULL THEN
169: FND_MESSAGE.SET_NAME('AR','AR_OPLB_DATAFILE_REQ');
167: END IF;
168: IF p_data_file IS NULL THEN
169: FND_MESSAGE.SET_NAME('AR','AR_OPLB_DATAFILE_REQ');
170: l_msg_text := fnd_message.get;
171: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
172: RETURN 1;
173: END IF;
174: IF p_control_file IS NULL THEN
175: FND_MESSAGE.SET_NAME('AR','AR_OPLB_CTLFILE_REQ');
173: END IF;
174: IF p_control_file IS NULL THEN
175: FND_MESSAGE.SET_NAME('AR','AR_OPLB_CTLFILE_REQ');
176: l_msg_text := fnd_message.get;
177: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
178: RETURN 1;
179: END IF;
180:
181: lb_sub.data_file_path := p_data_file;
191: END IF;
192: RETURN 0;
193: EXCEPTION
194: WHEN OTHERS THEN
195: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Inside validate_import');
196: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Message : '||SQLERRM);
197: RETURN 1;
198: END validate_import;
199:
192: RETURN 0;
193: EXCEPTION
194: WHEN OTHERS THEN
195: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Inside validate_import');
196: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Message : '||SQLERRM);
197: RETURN 1;
198: END validate_import;
199:
200: /*=======================================================================+
256: l_dep_date_exists VARCHAR2(1);
257: l_msg_text fnd_new_messages.message_text%type;
258: BEGIN
259: IF PG_DEBUG IN ('Y', 'C') THEN
260: FND_FILE.put_line(FND_FILE.LOG, 'validate_validation()+');
261: END IF;
262: lb_sub.submit_validation := p_submit_validation;
263: IF p_submit_validation = 'Y' THEN
264: SELECT pay_unrelated_invoices_flag
267: WHERE rownum = 1 ;
268: IF l_pay_unrelated_inv = 'N' THEN
269: FND_MESSAGE.SET_NAME('AR','AR_OPLB_UNRELATE_PAY');
270: l_msg_text := fnd_message.get;
271: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
272: ELSE
273: l_pay_unrelated_inv := p_pay_unrelated_inv;
274: END IF;
275:
294: IF l_lb_num_exists = 'Y' THEN
295: IF p_gl_date IS NULL THEN --- Modified for the bug 16679215
296: FND_MESSAGE.SET_NAME('AR','AR_OPLB_GL_EXISTS');
297: l_msg_text := fnd_message.get;
298: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
299: RETURN 1;
300: ELSE
301: lb_sub.gl_date := p_gl_date;
302: END IF;
307: lb_sub.inv_trxn_handling := p_invalid_trxn_handling; --- Modified for the bug 16679215
308:
309: FND_MESSAGE.SET_NAME('AR','AR_OPLB_LOCKBOXNUM_DATAFILE');
310: l_msg_text := fnd_message.get;
311: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
312: ELSE
313: l_lockbox_id := NVL(p_lockbox_id, lb_sub.lockbox_id);
314: IF l_lockbox_id IS NULL THEN
315: FND_MESSAGE.SET_NAME('AR','AR_PLB_INVALID_LB_NUM');
313: l_lockbox_id := NVL(p_lockbox_id, lb_sub.lockbox_id);
314: IF l_lockbox_id IS NULL THEN
315: FND_MESSAGE.SET_NAME('AR','AR_PLB_INVALID_LB_NUM');
316: l_msg_text := fnd_message.get;
317: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
318: RETURN 1;
319: END IF;
320: SELECT loc.gl_date_source
321: INTO l_gl_date_source
324: IF l_gl_date_source = 'CON' THEN
325: IF p_gl_date IS NULL THEN
326: FND_MESSAGE.SET_NAME('AR','AR_OPLB_GL_EXISTS');
327: l_msg_text := fnd_message.get;
328: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
329: RETURN 1;
330: ELSE
331: --lb_sub.gl_date := FND_DATE.date_to_canonical(to_date(p_gl_date,'DD-MON-RR'));
332: lb_sub.gl_date := p_gl_date;
344: EXCEPTION
345: WHEN NO_DATA_FOUND THEN
346: FND_MESSAGE.SET_NAME('AR','AR_RW_PLB_NO_DEP_DATE');
347: l_msg_text := fnd_message.get;
348: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
349: RETURN 1;
350: WHEN OTHERS THEN
351: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Unable to fetch Deposit date information from transmission format');
352: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: '||SQLERRM);
347: l_msg_text := fnd_message.get;
348: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
349: RETURN 1;
350: WHEN OTHERS THEN
351: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Unable to fetch Deposit date information from transmission format');
352: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: '||SQLERRM);
353: RETURN 1;
354: END;
355: FND_FILE.put_line(FND_FILE.LOG, 'GL Date will be defaulted to the deposit date');
348: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
349: RETURN 1;
350: WHEN OTHERS THEN
351: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Unable to fetch Deposit date information from transmission format');
352: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: '||SQLERRM);
353: RETURN 1;
354: END;
355: FND_FILE.put_line(FND_FILE.LOG, 'GL Date will be defaulted to the deposit date');
356: lb_sub.gl_date := NULL;
351: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Unable to fetch Deposit date information from transmission format');
352: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: '||SQLERRM);
353: RETURN 1;
354: END;
355: FND_FILE.put_line(FND_FILE.LOG, 'GL Date will be defaulted to the deposit date');
356: lb_sub.gl_date := NULL;
357: ELSE
358: FND_FILE.put_line(FND_FILE.LOG,'GL Date will be defaulted as the import date');
359: lb_sub.gl_date := NULL;
354: END;
355: FND_FILE.put_line(FND_FILE.LOG, 'GL Date will be defaulted to the deposit date');
356: lb_sub.gl_date := NULL;
357: ELSE
358: FND_FILE.put_line(FND_FILE.LOG,'GL Date will be defaulted as the import date');
359: lb_sub.gl_date := NULL;
360: END IF;
361: END IF;
362: lb_sub.pay_unrelated_inv := l_pay_unrelated_inv;
374: END IF;
375: RETURN 0;
376: EXCEPTION
377: WHEN OTHERS THEN
378: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Inside validate_validation');
379: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Message : '||SQLERRM);
380: RETURN 1;
381: END validate_validation;
382: /*=======================================================================+
375: RETURN 0;
376: EXCEPTION
377: WHEN OTHERS THEN
378: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Inside validate_validation');
379: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Message : '||SQLERRM);
380: RETURN 1;
381: END validate_validation;
382: /*=======================================================================+
383: | PROCEDURE |
401: l_request_id NUMBER(15);
402: no_request_spawned EXCEPTION;
403: BEGIN
404: IF PG_DEBUG IN ('Y', 'C') THEN
405: FND_FILE.put_line(FND_FILE.LOG, 'submit_lockbox()+');
406: END IF;
407: l_org_id := lb_sub.org_id;
408: FND_REQUEST.set_org_id(l_org_id);
409: l_request_id := FND_REQUEST.submit_request( 'AR', 'ARLPLB',
434: 'L',
435: NULL);
436:
437: IF (l_request_id = 0) THEN
438: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Can not start a concurrent request');
439: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: '||fnd_Message.get);
440: RAISE no_request_spawned;
441: ELSE
442: commit;
435: NULL);
436:
437: IF (l_request_id = 0) THEN
438: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Can not start a concurrent request');
439: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: '||fnd_Message.get);
440: RAISE no_request_spawned;
441: ELSE
442: commit;
443: FND_FILE.put_line(FND_FILE.LOG, 'Request id: ' ||l_request_id || ' started Process Lockboxes');
439: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: '||fnd_Message.get);
440: RAISE no_request_spawned;
441: ELSE
442: commit;
443: FND_FILE.put_line(FND_FILE.LOG, 'Request id: ' ||l_request_id || ' started Process Lockboxes');
444: END IF;
445: IF PG_DEBUG IN ('Y', 'C') THEN
446: FND_FILE.put_line(FND_FILE.LOG, 'submit_lockbox()-');
447: END IF;
442: commit;
443: FND_FILE.put_line(FND_FILE.LOG, 'Request id: ' ||l_request_id || ' started Process Lockboxes');
444: END IF;
445: IF PG_DEBUG IN ('Y', 'C') THEN
446: FND_FILE.put_line(FND_FILE.LOG, 'submit_lockbox()-');
447: END IF;
448: EXCEPTION
449: WHEN OTHERS THEN
450: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Inside submit_lockbox');
446: FND_FILE.put_line(FND_FILE.LOG, 'submit_lockbox()-');
447: END IF;
448: EXCEPTION
449: WHEN OTHERS THEN
450: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Inside submit_lockbox');
451: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Message : '||SQLERRM);
452: RAISE;
453: END submit_lockbox;
454: /*=======================================================================+
447: END IF;
448: EXCEPTION
449: WHEN OTHERS THEN
450: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Inside submit_lockbox');
451: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Message : '||SQLERRM);
452: RAISE;
453: END submit_lockbox;
454: /*=======================================================================+
455: | PROCEDURE |
494: l_msg_text fnd_new_messages.message_text%type;
495: invalid_param EXCEPTION;
496: BEGIN
497: IF PG_DEBUG IN ('Y', 'C') THEN
498: FND_FILE.put_line(FND_FILE.LOG, 'submit_lockbox_via_srs()+');
499: FND_FILE.put_line(FND_FILE.LOG, 'Org Id : '||p_org_id);
500: FND_FILE.put_line(FND_FILE.LOG, 'New Transmission : '||p_new_transmission);
501: FND_FILE.put_line(FND_FILE.LOG, 'Transmission Name : '||p_transmission_name);
502: FND_FILE.put_line(FND_FILE.LOG, 'Submit Import : '||p_submit_import);
495: invalid_param EXCEPTION;
496: BEGIN
497: IF PG_DEBUG IN ('Y', 'C') THEN
498: FND_FILE.put_line(FND_FILE.LOG, 'submit_lockbox_via_srs()+');
499: FND_FILE.put_line(FND_FILE.LOG, 'Org Id : '||p_org_id);
500: FND_FILE.put_line(FND_FILE.LOG, 'New Transmission : '||p_new_transmission);
501: FND_FILE.put_line(FND_FILE.LOG, 'Transmission Name : '||p_transmission_name);
502: FND_FILE.put_line(FND_FILE.LOG, 'Submit Import : '||p_submit_import);
503: FND_FILE.put_line(FND_FILE.LOG, 'Transmission Format : '||p_transmission_format);
496: BEGIN
497: IF PG_DEBUG IN ('Y', 'C') THEN
498: FND_FILE.put_line(FND_FILE.LOG, 'submit_lockbox_via_srs()+');
499: FND_FILE.put_line(FND_FILE.LOG, 'Org Id : '||p_org_id);
500: FND_FILE.put_line(FND_FILE.LOG, 'New Transmission : '||p_new_transmission);
501: FND_FILE.put_line(FND_FILE.LOG, 'Transmission Name : '||p_transmission_name);
502: FND_FILE.put_line(FND_FILE.LOG, 'Submit Import : '||p_submit_import);
503: FND_FILE.put_line(FND_FILE.LOG, 'Transmission Format : '||p_transmission_format);
504: FND_FILE.put_line(FND_FILE.LOG, 'Data File : '||p_data_file);
497: IF PG_DEBUG IN ('Y', 'C') THEN
498: FND_FILE.put_line(FND_FILE.LOG, 'submit_lockbox_via_srs()+');
499: FND_FILE.put_line(FND_FILE.LOG, 'Org Id : '||p_org_id);
500: FND_FILE.put_line(FND_FILE.LOG, 'New Transmission : '||p_new_transmission);
501: FND_FILE.put_line(FND_FILE.LOG, 'Transmission Name : '||p_transmission_name);
502: FND_FILE.put_line(FND_FILE.LOG, 'Submit Import : '||p_submit_import);
503: FND_FILE.put_line(FND_FILE.LOG, 'Transmission Format : '||p_transmission_format);
504: FND_FILE.put_line(FND_FILE.LOG, 'Data File : '||p_data_file);
505: FND_FILE.put_line(FND_FILE.LOG, 'Control File : '||p_control_file);
498: FND_FILE.put_line(FND_FILE.LOG, 'submit_lockbox_via_srs()+');
499: FND_FILE.put_line(FND_FILE.LOG, 'Org Id : '||p_org_id);
500: FND_FILE.put_line(FND_FILE.LOG, 'New Transmission : '||p_new_transmission);
501: FND_FILE.put_line(FND_FILE.LOG, 'Transmission Name : '||p_transmission_name);
502: FND_FILE.put_line(FND_FILE.LOG, 'Submit Import : '||p_submit_import);
503: FND_FILE.put_line(FND_FILE.LOG, 'Transmission Format : '||p_transmission_format);
504: FND_FILE.put_line(FND_FILE.LOG, 'Data File : '||p_data_file);
505: FND_FILE.put_line(FND_FILE.LOG, 'Control File : '||p_control_file);
506: FND_FILE.put_line(FND_FILE.LOG, 'Alternate Name Search : '||p_alt_name_search);
499: FND_FILE.put_line(FND_FILE.LOG, 'Org Id : '||p_org_id);
500: FND_FILE.put_line(FND_FILE.LOG, 'New Transmission : '||p_new_transmission);
501: FND_FILE.put_line(FND_FILE.LOG, 'Transmission Name : '||p_transmission_name);
502: FND_FILE.put_line(FND_FILE.LOG, 'Submit Import : '||p_submit_import);
503: FND_FILE.put_line(FND_FILE.LOG, 'Transmission Format : '||p_transmission_format);
504: FND_FILE.put_line(FND_FILE.LOG, 'Data File : '||p_data_file);
505: FND_FILE.put_line(FND_FILE.LOG, 'Control File : '||p_control_file);
506: FND_FILE.put_line(FND_FILE.LOG, 'Alternate Name Search : '||p_alt_name_search);
507: FND_FILE.put_line(FND_FILE.LOG, 'Submit Validation : '||p_submit_validation);
500: FND_FILE.put_line(FND_FILE.LOG, 'New Transmission : '||p_new_transmission);
501: FND_FILE.put_line(FND_FILE.LOG, 'Transmission Name : '||p_transmission_name);
502: FND_FILE.put_line(FND_FILE.LOG, 'Submit Import : '||p_submit_import);
503: FND_FILE.put_line(FND_FILE.LOG, 'Transmission Format : '||p_transmission_format);
504: FND_FILE.put_line(FND_FILE.LOG, 'Data File : '||p_data_file);
505: FND_FILE.put_line(FND_FILE.LOG, 'Control File : '||p_control_file);
506: FND_FILE.put_line(FND_FILE.LOG, 'Alternate Name Search : '||p_alt_name_search);
507: FND_FILE.put_line(FND_FILE.LOG, 'Submit Validation : '||p_submit_validation);
508: FND_FILE.put_line(FND_FILE.LOG, 'Lockbox Identifier : '||p_lockbox_id);
501: FND_FILE.put_line(FND_FILE.LOG, 'Transmission Name : '||p_transmission_name);
502: FND_FILE.put_line(FND_FILE.LOG, 'Submit Import : '||p_submit_import);
503: FND_FILE.put_line(FND_FILE.LOG, 'Transmission Format : '||p_transmission_format);
504: FND_FILE.put_line(FND_FILE.LOG, 'Data File : '||p_data_file);
505: FND_FILE.put_line(FND_FILE.LOG, 'Control File : '||p_control_file);
506: FND_FILE.put_line(FND_FILE.LOG, 'Alternate Name Search : '||p_alt_name_search);
507: FND_FILE.put_line(FND_FILE.LOG, 'Submit Validation : '||p_submit_validation);
508: FND_FILE.put_line(FND_FILE.LOG, 'Lockbox Identifier : '||p_lockbox_id);
509: FND_FILE.put_line(FND_FILE.LOG, 'GL Date : '||p_gl_date);
502: FND_FILE.put_line(FND_FILE.LOG, 'Submit Import : '||p_submit_import);
503: FND_FILE.put_line(FND_FILE.LOG, 'Transmission Format : '||p_transmission_format);
504: FND_FILE.put_line(FND_FILE.LOG, 'Data File : '||p_data_file);
505: FND_FILE.put_line(FND_FILE.LOG, 'Control File : '||p_control_file);
506: FND_FILE.put_line(FND_FILE.LOG, 'Alternate Name Search : '||p_alt_name_search);
507: FND_FILE.put_line(FND_FILE.LOG, 'Submit Validation : '||p_submit_validation);
508: FND_FILE.put_line(FND_FILE.LOG, 'Lockbox Identifier : '||p_lockbox_id);
509: FND_FILE.put_line(FND_FILE.LOG, 'GL Date : '||p_gl_date);
510: FND_FILE.put_line(FND_FILE.LOG, 'Pay Unrelated Invoices : '||p_pay_unrelated_inv);
503: FND_FILE.put_line(FND_FILE.LOG, 'Transmission Format : '||p_transmission_format);
504: FND_FILE.put_line(FND_FILE.LOG, 'Data File : '||p_data_file);
505: FND_FILE.put_line(FND_FILE.LOG, 'Control File : '||p_control_file);
506: FND_FILE.put_line(FND_FILE.LOG, 'Alternate Name Search : '||p_alt_name_search);
507: FND_FILE.put_line(FND_FILE.LOG, 'Submit Validation : '||p_submit_validation);
508: FND_FILE.put_line(FND_FILE.LOG, 'Lockbox Identifier : '||p_lockbox_id);
509: FND_FILE.put_line(FND_FILE.LOG, 'GL Date : '||p_gl_date);
510: FND_FILE.put_line(FND_FILE.LOG, 'Pay Unrelated Invoices : '||p_pay_unrelated_inv);
511: FND_FILE.put_line(FND_FILE.LOG, 'Complete Batches : '||p_complete_batches);
504: FND_FILE.put_line(FND_FILE.LOG, 'Data File : '||p_data_file);
505: FND_FILE.put_line(FND_FILE.LOG, 'Control File : '||p_control_file);
506: FND_FILE.put_line(FND_FILE.LOG, 'Alternate Name Search : '||p_alt_name_search);
507: FND_FILE.put_line(FND_FILE.LOG, 'Submit Validation : '||p_submit_validation);
508: FND_FILE.put_line(FND_FILE.LOG, 'Lockbox Identifier : '||p_lockbox_id);
509: FND_FILE.put_line(FND_FILE.LOG, 'GL Date : '||p_gl_date);
510: FND_FILE.put_line(FND_FILE.LOG, 'Pay Unrelated Invoices : '||p_pay_unrelated_inv);
511: FND_FILE.put_line(FND_FILE.LOG, 'Complete Batches : '||p_complete_batches);
512: FND_FILE.put_line(FND_FILE.LOG, 'Report Format : '||p_report_format);
505: FND_FILE.put_line(FND_FILE.LOG, 'Control File : '||p_control_file);
506: FND_FILE.put_line(FND_FILE.LOG, 'Alternate Name Search : '||p_alt_name_search);
507: FND_FILE.put_line(FND_FILE.LOG, 'Submit Validation : '||p_submit_validation);
508: FND_FILE.put_line(FND_FILE.LOG, 'Lockbox Identifier : '||p_lockbox_id);
509: FND_FILE.put_line(FND_FILE.LOG, 'GL Date : '||p_gl_date);
510: FND_FILE.put_line(FND_FILE.LOG, 'Pay Unrelated Invoices : '||p_pay_unrelated_inv);
511: FND_FILE.put_line(FND_FILE.LOG, 'Complete Batches : '||p_complete_batches);
512: FND_FILE.put_line(FND_FILE.LOG, 'Report Format : '||p_report_format);
513: FND_FILE.put_line(FND_FILE.LOG, 'Invalid Transaction Number Handling : '||p_invalid_trxn_handling);
506: FND_FILE.put_line(FND_FILE.LOG, 'Alternate Name Search : '||p_alt_name_search);
507: FND_FILE.put_line(FND_FILE.LOG, 'Submit Validation : '||p_submit_validation);
508: FND_FILE.put_line(FND_FILE.LOG, 'Lockbox Identifier : '||p_lockbox_id);
509: FND_FILE.put_line(FND_FILE.LOG, 'GL Date : '||p_gl_date);
510: FND_FILE.put_line(FND_FILE.LOG, 'Pay Unrelated Invoices : '||p_pay_unrelated_inv);
511: FND_FILE.put_line(FND_FILE.LOG, 'Complete Batches : '||p_complete_batches);
512: FND_FILE.put_line(FND_FILE.LOG, 'Report Format : '||p_report_format);
513: FND_FILE.put_line(FND_FILE.LOG, 'Invalid Transaction Number Handling : '||p_invalid_trxn_handling);
514: FND_FILE.put_line(FND_FILE.LOG, 'Submit PostQuickCash : '||p_submit_postbatch);
507: FND_FILE.put_line(FND_FILE.LOG, 'Submit Validation : '||p_submit_validation);
508: FND_FILE.put_line(FND_FILE.LOG, 'Lockbox Identifier : '||p_lockbox_id);
509: FND_FILE.put_line(FND_FILE.LOG, 'GL Date : '||p_gl_date);
510: FND_FILE.put_line(FND_FILE.LOG, 'Pay Unrelated Invoices : '||p_pay_unrelated_inv);
511: FND_FILE.put_line(FND_FILE.LOG, 'Complete Batches : '||p_complete_batches);
512: FND_FILE.put_line(FND_FILE.LOG, 'Report Format : '||p_report_format);
513: FND_FILE.put_line(FND_FILE.LOG, 'Invalid Transaction Number Handling : '||p_invalid_trxn_handling);
514: FND_FILE.put_line(FND_FILE.LOG, 'Submit PostQuickCash : '||p_submit_postbatch);
515: FND_FILE.put_line(FND_FILE.LOG, 'Apply Unearned Discount : '||p_app_unearned_disc);
508: FND_FILE.put_line(FND_FILE.LOG, 'Lockbox Identifier : '||p_lockbox_id);
509: FND_FILE.put_line(FND_FILE.LOG, 'GL Date : '||p_gl_date);
510: FND_FILE.put_line(FND_FILE.LOG, 'Pay Unrelated Invoices : '||p_pay_unrelated_inv);
511: FND_FILE.put_line(FND_FILE.LOG, 'Complete Batches : '||p_complete_batches);
512: FND_FILE.put_line(FND_FILE.LOG, 'Report Format : '||p_report_format);
513: FND_FILE.put_line(FND_FILE.LOG, 'Invalid Transaction Number Handling : '||p_invalid_trxn_handling);
514: FND_FILE.put_line(FND_FILE.LOG, 'Submit PostQuickCash : '||p_submit_postbatch);
515: FND_FILE.put_line(FND_FILE.LOG, 'Apply Unearned Discount : '||p_app_unearned_disc);
516: FND_FILE.put_line(FND_FILE.LOG, 'Number of Instances : '||p_no_of_instances);
509: FND_FILE.put_line(FND_FILE.LOG, 'GL Date : '||p_gl_date);
510: FND_FILE.put_line(FND_FILE.LOG, 'Pay Unrelated Invoices : '||p_pay_unrelated_inv);
511: FND_FILE.put_line(FND_FILE.LOG, 'Complete Batches : '||p_complete_batches);
512: FND_FILE.put_line(FND_FILE.LOG, 'Report Format : '||p_report_format);
513: FND_FILE.put_line(FND_FILE.LOG, 'Invalid Transaction Number Handling : '||p_invalid_trxn_handling);
514: FND_FILE.put_line(FND_FILE.LOG, 'Submit PostQuickCash : '||p_submit_postbatch);
515: FND_FILE.put_line(FND_FILE.LOG, 'Apply Unearned Discount : '||p_app_unearned_disc);
516: FND_FILE.put_line(FND_FILE.LOG, 'Number of Instances : '||p_no_of_instances);
517: END IF;
510: FND_FILE.put_line(FND_FILE.LOG, 'Pay Unrelated Invoices : '||p_pay_unrelated_inv);
511: FND_FILE.put_line(FND_FILE.LOG, 'Complete Batches : '||p_complete_batches);
512: FND_FILE.put_line(FND_FILE.LOG, 'Report Format : '||p_report_format);
513: FND_FILE.put_line(FND_FILE.LOG, 'Invalid Transaction Number Handling : '||p_invalid_trxn_handling);
514: FND_FILE.put_line(FND_FILE.LOG, 'Submit PostQuickCash : '||p_submit_postbatch);
515: FND_FILE.put_line(FND_FILE.LOG, 'Apply Unearned Discount : '||p_app_unearned_disc);
516: FND_FILE.put_line(FND_FILE.LOG, 'Number of Instances : '||p_no_of_instances);
517: END IF;
518:
511: FND_FILE.put_line(FND_FILE.LOG, 'Complete Batches : '||p_complete_batches);
512: FND_FILE.put_line(FND_FILE.LOG, 'Report Format : '||p_report_format);
513: FND_FILE.put_line(FND_FILE.LOG, 'Invalid Transaction Number Handling : '||p_invalid_trxn_handling);
514: FND_FILE.put_line(FND_FILE.LOG, 'Submit PostQuickCash : '||p_submit_postbatch);
515: FND_FILE.put_line(FND_FILE.LOG, 'Apply Unearned Discount : '||p_app_unearned_disc);
516: FND_FILE.put_line(FND_FILE.LOG, 'Number of Instances : '||p_no_of_instances);
517: END IF;
518:
519: mo_global.init('AR');
512: FND_FILE.put_line(FND_FILE.LOG, 'Report Format : '||p_report_format);
513: FND_FILE.put_line(FND_FILE.LOG, 'Invalid Transaction Number Handling : '||p_invalid_trxn_handling);
514: FND_FILE.put_line(FND_FILE.LOG, 'Submit PostQuickCash : '||p_submit_postbatch);
515: FND_FILE.put_line(FND_FILE.LOG, 'Apply Unearned Discount : '||p_app_unearned_disc);
516: FND_FILE.put_line(FND_FILE.LOG, 'Number of Instances : '||p_no_of_instances);
517: END IF;
518:
519: mo_global.init('AR');
520:
544: IF lb_sub.alt_name_search IN ('M', 'A') THEN
545: IF p_submit_validation = 'Y' OR p_submit_postbatch = 'Y' THEN
546: FND_MESSAGE.SET_NAME('AR','AR_OPLB_ALT_NAME_SER');
547: l_msg_text := fnd_message.get;
548: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
549: RAISE invalid_param;
550: END IF;
551: END IF;
552:
569:
570: submit_lockbox;
571:
572: IF PG_DEBUG IN ('Y', 'C') THEN
573: FND_FILE.put_line(FND_FILE.LOG, 'submit_lockbox_via_srs()-');
574: END IF;
575: EXCEPTION
576: WHEN invalid_param THEN
577: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Invalid Parameters');
573: FND_FILE.put_line(FND_FILE.LOG, 'submit_lockbox_via_srs()-');
574: END IF;
575: EXCEPTION
576: WHEN invalid_param THEN
577: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Invalid Parameters');
578: --RAISE;
579: P_RETCODE := 2;
580: WHEN OTHERS THEN
581: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Inside procedure submit_lockbox_via_srs');
577: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Invalid Parameters');
578: --RAISE;
579: P_RETCODE := 2;
580: WHEN OTHERS THEN
581: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Inside procedure submit_lockbox_via_srs');
582: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Message : '||SQLERRM);
583: --RAISE;
584: P_RETCODE := 2;
585: END submit_lockbox_via_srs;
578: --RAISE;
579: P_RETCODE := 2;
580: WHEN OTHERS THEN
581: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Inside procedure submit_lockbox_via_srs');
582: FND_FILE.put_line(FND_FILE.LOG, 'Exception :: Message : '||SQLERRM);
583: --RAISE;
584: P_RETCODE := 2;
585: END submit_lockbox_via_srs;
586: