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;
50: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
51: RETURN 1;
52: END IF;
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;
50: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
51: RETURN 1;
52: END IF;
53: l_transmission_exists := 'Y';
74: RETURN 1;
75: END;
76:
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;
75: END;
76:
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;
76:
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:
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;
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;
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
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');
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;
91: RETURN 1;
92: END IF;
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;
92: END IF;
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;
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
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;
160: lb_sub.submit_import := p_submit_import;
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
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');
170: l_msg_text := fnd_message.get;
171: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
172: RETURN 1;
173: END IF;
166: RETURN 1;
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
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');
176: l_msg_text := fnd_message.get;
177: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
178: RETURN 1;
179: END IF;
172: RETURN 1;
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:
265: INTO l_pay_unrelated_inv
266: FROM ar_system_parameters
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;
266: FROM ar_system_parameters
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;
292: END;
293:
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
293:
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;
305: lb_sub.complete_batches := p_complete_batches;
306: lb_sub.report_format := NVL(p_report_format,'R');
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);
306: lb_sub.report_format := NVL(p_report_format,'R');
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
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');
316: l_msg_text := fnd_message.get;
317: FND_FILE.put_line(FND_FILE.LOG, l_msg_text);
318: RETURN 1;
319: END IF;
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');
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
322: FROM ar_lockboxes loc
323: WHERE loc.lockbox_id = l_lockbox_id;
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
323: WHERE loc.lockbox_id = l_lockbox_id;
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'));
342: AND tff.field_type_lookup_code = 'DEPOSIT DATE'
343: AND ROWNUM < 2;
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
343: AND ROWNUM < 2;
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');
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');
542: END IF;
543:
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;
543:
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;