16: l_retcode := false;
17: end if;
18:
19: if not l_retcode then
20: fnd_message.set_name('AR', 'AR_DOC_TRS_INV_SRC_TBL_ID');
21: fnd_message.set_token('DOCUMENT_TRANSFER_ID', p_doc_rec.document_transfer_id);
22: p_doc_rec.status := 'FAILED';
23: p_doc_rec.exception_type := 'SYSTEM';
24: p_doc_rec.exception_message := fnd_message.get;
17: end if;
18:
19: if not l_retcode then
20: fnd_message.set_name('AR', 'AR_DOC_TRS_INV_SRC_TBL_ID');
21: fnd_message.set_token('DOCUMENT_TRANSFER_ID', p_doc_rec.document_transfer_id);
22: p_doc_rec.status := 'FAILED';
23: p_doc_rec.exception_type := 'SYSTEM';
24: p_doc_rec.exception_message := fnd_message.get;
25: end if;
20: fnd_message.set_name('AR', 'AR_DOC_TRS_INV_SRC_TBL_ID');
21: fnd_message.set_token('DOCUMENT_TRANSFER_ID', p_doc_rec.document_transfer_id);
22: p_doc_rec.status := 'FAILED';
23: p_doc_rec.exception_type := 'SYSTEM';
24: p_doc_rec.exception_message := fnd_message.get;
25: end if;
26: if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('STATUS:'||p_doc_rec.status); end if;
27: if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_TRANSFER_DOCUMENT.validateSource(-)'); end if;
28: return l_retcode;
43: l_retcode := false;
44: end if;
45:
46: if not l_retcode then
47: fnd_message.set_name('AR', 'AR_DOC_TRS_INV_TP_SRC_TBL_ID');
48: fnd_message.set_token('DOCUMENT_TRANSFER_ID', p_doc_rec.document_transfer_id);
49: p_doc_rec.status := 'FAILED';
50: p_doc_rec.exception_type := 'SYSTEM';
51: p_doc_rec.exception_message := fnd_message.get;
44: end if;
45:
46: if not l_retcode then
47: fnd_message.set_name('AR', 'AR_DOC_TRS_INV_TP_SRC_TBL_ID');
48: fnd_message.set_token('DOCUMENT_TRANSFER_ID', p_doc_rec.document_transfer_id);
49: p_doc_rec.status := 'FAILED';
50: p_doc_rec.exception_type := 'SYSTEM';
51: p_doc_rec.exception_message := fnd_message.get;
52: end if;
47: fnd_message.set_name('AR', 'AR_DOC_TRS_INV_TP_SRC_TBL_ID');
48: fnd_message.set_token('DOCUMENT_TRANSFER_ID', p_doc_rec.document_transfer_id);
49: p_doc_rec.status := 'FAILED';
50: p_doc_rec.exception_type := 'SYSTEM';
51: p_doc_rec.exception_message := fnd_message.get;
52: end if;
53: if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('STATUS:'||p_doc_rec.status); end if;
54: if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_TRANSFER_DOCUMENT.validateTpSource(-)'); end if;
55: return l_retcode;
65: open event; fetch event into l_exists; close event;
66: if l_exists is null then l_retcode := false;
67: else l_retcode := true; end if;
68: if not l_retcode then
69: fnd_message.set_name('AR', 'AR_DOC_TRS_INV_BUS_EVENT');
70: fnd_message.set_token('EVENT_NAME', p_doc_rec.event_name);
71: fnd_message.set_token('DOCUMENT_TRANSFER_ID', p_doc_rec.document_transfer_id);
72: p_doc_rec.status := 'FAILED';
73: p_doc_rec.exception_type := 'AR';
66: if l_exists is null then l_retcode := false;
67: else l_retcode := true; end if;
68: if not l_retcode then
69: fnd_message.set_name('AR', 'AR_DOC_TRS_INV_BUS_EVENT');
70: fnd_message.set_token('EVENT_NAME', p_doc_rec.event_name);
71: fnd_message.set_token('DOCUMENT_TRANSFER_ID', p_doc_rec.document_transfer_id);
72: p_doc_rec.status := 'FAILED';
73: p_doc_rec.exception_type := 'AR';
74: p_doc_rec.exception_message := fnd_message.get;
67: else l_retcode := true; end if;
68: if not l_retcode then
69: fnd_message.set_name('AR', 'AR_DOC_TRS_INV_BUS_EVENT');
70: fnd_message.set_token('EVENT_NAME', p_doc_rec.event_name);
71: fnd_message.set_token('DOCUMENT_TRANSFER_ID', p_doc_rec.document_transfer_id);
72: p_doc_rec.status := 'FAILED';
73: p_doc_rec.exception_type := 'AR';
74: p_doc_rec.exception_message := fnd_message.get;
75: end if;
70: fnd_message.set_token('EVENT_NAME', p_doc_rec.event_name);
71: fnd_message.set_token('DOCUMENT_TRANSFER_ID', p_doc_rec.document_transfer_id);
72: p_doc_rec.status := 'FAILED';
73: p_doc_rec.exception_type := 'AR';
74: p_doc_rec.exception_message := fnd_message.get;
75: end if;
76: if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('STATUS:'||p_doc_rec.status); end if;
77: if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_TRANSFER_DOCUMENT.validateEventName(-)'); end if;
78: return l_retcode;
111: if l_exists is null then l_retcode := false;
112: else l_retcode := true; end if;
113: if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('l_exists:'||l_exists); end if;
114: if not l_retcode then
115: fnd_message.set_name('AR', 'AR_DOC_TRS_INV_TP_SETUP');
116: fnd_message.set_token('DOCUMENT_TRANSFER_ID', p_doc_rec.document_transfer_id);
117: p_doc_rec.status := 'FAILED';
118: p_doc_rec.exception_type := 'AR';
119: p_doc_rec.exception_message := fnd_message.get;
112: else l_retcode := true; end if;
113: if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('l_exists:'||l_exists); end if;
114: if not l_retcode then
115: fnd_message.set_name('AR', 'AR_DOC_TRS_INV_TP_SETUP');
116: fnd_message.set_token('DOCUMENT_TRANSFER_ID', p_doc_rec.document_transfer_id);
117: p_doc_rec.status := 'FAILED';
118: p_doc_rec.exception_type := 'AR';
119: p_doc_rec.exception_message := fnd_message.get;
120: end if;
115: fnd_message.set_name('AR', 'AR_DOC_TRS_INV_TP_SETUP');
116: fnd_message.set_token('DOCUMENT_TRANSFER_ID', p_doc_rec.document_transfer_id);
117: p_doc_rec.status := 'FAILED';
118: p_doc_rec.exception_type := 'AR';
119: p_doc_rec.exception_message := fnd_message.get;
120: end if;
121: if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('STATUS:'||p_doc_rec.status); end if;
122: if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_TRANSFER_DOCUMENT.validateTrx(-)'); end if;
123: return l_retcode;
259: end if;
260: end loop;
261: for err_rec in err_trs loop
262: if l_subject is null then
263: fnd_message.set_name('AR','AR_DOC_TRS_SBJ');
264: fnd_message.set_token('REQUEST_ID', fnd_global.conc_request_id);
265: l_subject := fnd_message.get;
266: end if;
267: notify(p_event_name => 'oracle.apps.ar.transmit.notification',
260: end loop;
261: for err_rec in err_trs loop
262: if l_subject is null then
263: fnd_message.set_name('AR','AR_DOC_TRS_SBJ');
264: fnd_message.set_token('REQUEST_ID', fnd_global.conc_request_id);
265: l_subject := fnd_message.get;
266: end if;
267: notify(p_event_name => 'oracle.apps.ar.transmit.notification',
268: p_subject => l_subject,
261: for err_rec in err_trs loop
262: if l_subject is null then
263: fnd_message.set_name('AR','AR_DOC_TRS_SBJ');
264: fnd_message.set_token('REQUEST_ID', fnd_global.conc_request_id);
265: l_subject := fnd_message.get;
266: end if;
267: notify(p_event_name => 'oracle.apps.ar.transmit.notification',
268: p_subject => l_subject,
269: p_doc_pkg => 'AR_TRANSFER_DOCUMENT',
279: l_sqlerrm := sqlerrm(sqlcode) || fnd_global.newline ||
280: 'Location: AR_TRANSFER_DOCUMENT.transfer_documents()'||fnd_global.newline||
281: 'Time: '||to_char(sysdate, 'DD-MON-RRRR HH:MI:SS');
282: retcode := 2;
283: fnd_message.set_name('AR','AR_DOC_TRS_SBJ');
284: fnd_message.set_token('REQUEST_ID', fnd_global.conc_request_id);
285: l_subject := fnd_message.get;
286: if ar_doc_transfer_standard.isDebugOn then
287: ar_doc_transfer_standard.debug('AR_TRANSFER_DOCUMENTS.transfer_documents()EXCEPTION:'||l_sqlerrm);
280: 'Location: AR_TRANSFER_DOCUMENT.transfer_documents()'||fnd_global.newline||
281: 'Time: '||to_char(sysdate, 'DD-MON-RRRR HH:MI:SS');
282: retcode := 2;
283: fnd_message.set_name('AR','AR_DOC_TRS_SBJ');
284: fnd_message.set_token('REQUEST_ID', fnd_global.conc_request_id);
285: l_subject := fnd_message.get;
286: if ar_doc_transfer_standard.isDebugOn then
287: ar_doc_transfer_standard.debug('AR_TRANSFER_DOCUMENTS.transfer_documents()EXCEPTION:'||l_sqlerrm);
288: end if;
281: 'Time: '||to_char(sysdate, 'DD-MON-RRRR HH:MI:SS');
282: retcode := 2;
283: fnd_message.set_name('AR','AR_DOC_TRS_SBJ');
284: fnd_message.set_token('REQUEST_ID', fnd_global.conc_request_id);
285: l_subject := fnd_message.get;
286: if ar_doc_transfer_standard.isDebugOn then
287: ar_doc_transfer_standard.debug('AR_TRANSFER_DOCUMENTS.transfer_documents()EXCEPTION:'||l_sqlerrm);
288: end if;
289: ar_notification_standard.notifyToSysadmin(l_subject,
308: begin
309: if ar_doc_transfer_standard.isDebugOn then
310: ar_doc_transfer_standard.debug('AR_TRANSFER_DOCUMENT.build_batch_error_message(+)');
311: end if;
312: fnd_message.set_name('AR', 'AR_DOC_TRS_BODY');
313: WF_NOTIFICATION.WriteToClob(document,fnd_message.get||fnd_global.newline||fnd_global.newline);
314: ar_notification_standard.parseDocumentId(document_id, l_item_type, l_item_key);
315: l_request_id := wf_engine.getItemAttrText(itemType => l_item_type,
316: itemKey => l_item_key,
309: if ar_doc_transfer_standard.isDebugOn then
310: ar_doc_transfer_standard.debug('AR_TRANSFER_DOCUMENT.build_batch_error_message(+)');
311: end if;
312: fnd_message.set_name('AR', 'AR_DOC_TRS_BODY');
313: WF_NOTIFICATION.WriteToClob(document,fnd_message.get||fnd_global.newline||fnd_global.newline);
314: ar_notification_standard.parseDocumentId(document_id, l_item_type, l_item_key);
315: l_request_id := wf_engine.getItemAttrText(itemType => l_item_type,
316: itemKey => l_item_key,
317: aname => 'USER_AREA1');
345: begin
346: if ar_doc_transfer_standard.isDebugOn then
347: ar_doc_transfer_standard.debug('AR_TRANSFER_DOCUMENT.build_batch_error_message(+)');
348: end if;
349: fnd_message.set_name('AR', 'AR_DOC_TRS_BODY');
350:
351: ar_notification_standard.parseDocumentId(document_id, l_item_type, l_item_key);
352: l_request_id := wf_engine.getItemAttrText(itemType => l_item_type,
353: itemKey => l_item_key,
357: aname => 'USER_AREA2');
358: for err_rec in err_csr loop
359: l_buffer := l_buffer ||err_rec.exception_message||fnd_global.newline;
360: end loop;
361: document := fnd_message.get||fnd_global.newline||fnd_global.newline ||
362: l_buffer;
363: document_type := 'text/plain';
364:
365: if ar_doc_transfer_standard.isDebugOn then