[Home] [Help]
1: package body ar_transfer_document as
2: /*$Header: ARTRSDCB.pls 120.7 2011/06/23 07:18:16 chuansha ship $ */
3:
4: function validateSource(p_doc_rec in out nocopy ar_document_transfers%rowtype) return boolean is
5: cursor trx is
6: select 'x' from ra_customer_trx where customer_trx_id = p_doc_rec.source_id;
7: l_exists varchar2(1);
8: l_retcode boolean := false;
27: if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_TRANSFER_DOCUMENT.validateSource(-)'); end if;
28: return l_retcode;
29: end;
30:
31: function validateTpSource(p_doc_rec in out nocopy ar_document_transfers%rowtype) return boolean is
32: cursor tp is
33: select 'x' from hz_party_sites where party_site_id = p_doc_rec.tp_source_id;
34: l_exists varchar2(1);
35: l_retcode boolean := false;
54: if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_TRANSFER_DOCUMENT.validateTpSource(-)'); end if;
55: return l_retcode;
56: end;
57:
58: function validateEventName(p_doc_rec in out nocopy ar_document_transfers%rowtype) return boolean is
59: cursor event is
60: select 'x' from wf_events where name = p_doc_rec.event_name and status = 'ENABLED' and type = 'EVENT';
61: l_exists varchar2(1);
62: l_retcode boolean := false;
77: if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_TRANSFER_DOCUMENT.validateEventName(-)'); end if;
78: return l_retcode;
79: end;
80:
81: function validateTrx(p_doc_rec in out nocopy ar_document_transfers%rowtype) return boolean is
82:
83: l_exists varchar2(1);
84: l_retcode boolean := false;
85:
130: if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_TRANSFER_DOCUMENT.validateTrx(-)'); end if;
131: return l_retcode;
132: end;
133:
134: procedure validate_document_record(p_doc_rec in out nocopy ar_document_transfers%rowtype) is
135: begin
136: if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_TRANSFER_DOCUMENT.validate_document_record(+)'); end if;
137: if not validateSource(p_doc_rec) then return; end if;
138: if not validateTpSource(p_doc_rec) then return; end if;
235: procedure transfer_documents(errbuf out NOCOPY varchar2,
236: retcode out NOCOPY varchar2) is
237:
238: cursor doc_trs is
239: select * from ar_document_transfers where status = 'WAITING';
240:
241: cursor err_trs is
242: select distinct exception_type from ar_document_transfers
243: where status = 'FAILED'
238: cursor doc_trs is
239: select * from ar_document_transfers where status = 'WAITING';
240:
241: cursor err_trs is
242: select distinct exception_type from ar_document_transfers
243: where status = 'FAILED'
244: --bug 6667346
245: and request_id = fnd_global.conc_request_id;
246:
318: l_request_id number;
319: l_exception_type varchar2(30);
320:
321: cursor err_csr is
322: select exception_message from ar_document_transfers
323: where exception_type = l_exception_type;
324: --where request_id = l_request_id and exception_type = l_exception_type;
325:
326: begin
355: l_request_id number;
356: l_exception_type varchar2(30);
357:
358: cursor err_csr is
359: select exception_message from ar_document_transfers
360: --where exception_type = l_exception_type;
361: --bug 6667346
362: where request_id = l_request_id and exception_type = l_exception_type;
363: