[Home] [Help]
61: if l_returnCode <> '0' and l_msg is not null then
62: l_errType := 'SYSTEM';
63: end if;
64: if l_extType = 'INVOICE' and l_extSubType = 'PROCESS' then
65: update ar_document_transfers
66: set status = decode(l_returnCode,'0','TRANSMITTED','FAILED'),
67: exception_message = decode(l_returnCode, '0', null, l_msg),
68: exception_type = l_errType
69: where document_msgid = l_msgid;
101: procedure updateStatus is
102: begin
103: if isDebugOn then debug('AR_DOC_TRANSFER_STANDARD.updateStatus(+)'); end if;
104: /*
105: update ar_document_transfers doc
106: set doc.status = 'TRANSMITTED'
107: where doc.status = 'STARTED' and
108: exists (select 'X'
109: from ecx_out_process_v ecx
112: ecx.transaction_subtype = doc.ecx_trx_subtype and
113: ecx.party_site_id = doc.tp_source_id and
114: ecx.out_msgid = doc.document_msgid and
115: ltrim(rtrim(ecx.delivery_status)) = '0');
116: update ar_document_transfers doc
117: set doc.status = 'FAILED',
118: doc.exception_type = 'SYSTEM',
119: doc.exception_message = 'Oracle Transport Agent: maximum transport attempts exceeded.'||
120: 'Please contact System administrator'
163: l_doc_trx_type varchar2(200);
164: l_msgid VARCHAR2(200);
165: l_sqlerrm VARCHAR2(2000);
166: l_subject VARCHAR2(200);
167: cursor doc is select * from ar_document_transfers
168: where document_transfer_id = l_doc_transfer_id;
169:
170: doc_rec doc%rowtype;
171: l_x varchar2(1);