4 procedure update_status(p_status in varchar2,
1 package body AR_CONFIRMATION_ACTION AS
2 /*$Header: ARCOATNB.pls 120.3 2011/07/19 00:02:18 dgaurab ship $ */
3
5 p_doc_transfer_id in NUMBER,
6 p_msgid in VARCHAR2,
7 p_exception_message in varchar2 default null,
8 p_exception_type in varchar2 default null) is
9 cursor doc is
10 select * from ar_document_transfers
11 where document_transfer_id = p_doc_transfer_id;
12 doc_rec ar_document_transfers%rowtype;
13
14 begin
15 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.update_status(+)'); end if;
16 open doc; fetch doc into doc_rec; close doc;
17 doc_rec.confirmation_msgid := p_msgid;
18 doc_rec.status := p_status;
19 doc_rec.exception_message := p_exception_message;
20 doc_rec.exception_type := p_exception_type;
21 ar_document_transfer_pkg.updateRow(doc_rec);
22 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.update_status(-)'); end if;
23 end;
24
25 function parseAndValidateId(p_id in varchar2,
26 p_doc_transfer_id out nocopy number,
27 p_responsibility_id out nocopy number,
28 p_trx_number out nocopy varchar2,
29 p_trx_date out nocopy date,
30 p_currency out nocopy varchar2,
31 p_line_number out nocopy number) return boolean is
32 l_exists varchar2(1);
33 l_retcode boolean;
34 l_trx_id varchar2(50);
35 l_trx_line_id varchar2(50);
36 l_doc_transfer_id varchar2(50);
37 cursor trx is select dt.responsibility_id,
38 dt.status,
39 trx.trx_number,
40 trx.trx_date,
41 trx.INVOICE_CURRENCY_CODE,
42 trxl.line_number
43 from ar_document_transfers dt,
44 ra_customer_trx trx,
45 ra_customer_trx_lines trxl
49 dt.source_table = 'RA_CUSTOMER_TRX' and
46 where dt.document_transfer_id = l_doc_transfer_id and
47 trx.customer_trx_id = l_trx_id and
48 trxl.customer_trx_line_id(+) = l_trx_line_id and
50 dt.source_id = trx.customer_trx_id and
51 trx.customer_trx_id = trxl.customer_trx_id(+);
52 l_trx_rec trx%rowtype;
53 begin
54 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.parseAndValidateId(+)'); end if;
55 l_doc_transfer_id := rtrim(ltrim(substrb(p_id,1,instrb(p_id,':',1,1)-1)));
56 if instrb(p_id, ':',1,2) = 0 then --Header Only
57 l_trx_id := rtrim(ltrim(substrb(p_id, instrb(p_id,':',1,1)+1)));
58 else -- Header and Line
59 l_trx_id := rtrim(ltrim(substrb(p_id, instrb(p_id,':',1,1)+1,instrb(p_id,':',1,2)-1)));
60 l_trx_line_id := rtrim(ltrim(substrb(p_id, instrb(p_id,':',1,2)+1)));
61 end if;
62
63 if ar_doc_transfer_standard.isDebugOn then
64 ar_doc_transfer_standard.debug('l_doc_transfer_id:'||l_doc_transfer_id);
65 ar_doc_transfer_standard.debug('l_trx_id:'||l_trx_id);
66 ar_doc_transfer_standard.debug('l_trx_line_id:'||l_trx_line_id);
67 end if;
68 open trx; fetch trx into l_trx_rec; close trx;
69 if ar_doc_transfer_standard.isDebugOn then
70 ar_doc_transfer_standard.debug('l_trx_rec.trx_number:'||l_trx_rec.trx_number);
71 ar_doc_transfer_standard.debug('l_trx_rec.trx_date:'||to_char(l_trx_rec.trx_date));
72 ar_doc_transfer_standard.debug('l_trx_rec.invoice_currency_code:'||l_trx_rec.invoice_currency_code);
73 ar_doc_transfer_standard.debug('l_trx_rec.line_number:'||l_trx_rec.line_number);
74 end if;
75 if l_trx_rec.trx_number is null then
76 l_retcode := false;
77 else
78 l_retcode := true;
79 p_doc_transfer_id := l_doc_transfer_id;
80 p_responsibility_id := l_trx_rec.responsibility_id;
81 p_trx_number := l_trx_rec.trx_number;
82 p_trx_date := l_trx_rec.trx_date;
83 p_currency := l_trx_rec.INVOICE_CURRENCY_CODE;
84 p_line_number := l_trx_rec.line_number;
85 end if;
86 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.parseAndValidateId(-)'); end if;
87 return l_retcode;
88 end;
89
90 procedure notifyToSysadmin(p_id in varchar2) is
91 l_subject varchar2(200);
92 l_body varchar2(4000);
93 begin
94 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.notifyToSysadmin(+)'); end if;
95 fnd_message.set_name('AR','AR_CONF_ACT_INV_ID_SBJ');
96 l_subject := fnd_message.get;
97 fnd_message.set_name('AR','AR_CONF_ACT_INV_ID_BODY');
98 fnd_message.set_token('P_ID', p_id);
99 l_body := fnd_message.get;
100 ar_notification_standard.notifyToSysadmin(l_subject, l_body);
101 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.notifyToSysadmin(-)'); end if;
102 end;
103
104 procedure processRejection(p_id in varchar2, p_reason_code in varchar2, p_msgid in varchar2) is
105 l_doc_transfer_id number;
106 l_trx_number varchar2(20);
107 l_trx_date date;
108 l_invoice_currency varchar2(15);
109 l_line_number number;
110 l_responsibility_id number;
111 l_subject varchar2(200);
112 l_body varchar2(4000);
113 l_msg varchar2(240);
114 l_url varchar2(500);
115 cursor ap_lookups is
116 select description from ap_lookup_codes
117 where lookup_type = 'REJECT CODE' and lookup_code = p_reason_code;
118
119 begin
120 if ar_doc_transfer_standard.isDebugOn then
121 ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.processRejection(+)');
122 ar_doc_transfer_standard.debug('p_id:'||p_id);
123 ar_doc_transfer_standard.debug('p_reason_code:'||p_reason_code);
124 ar_doc_transfer_standard.debug('p_msgid:'||p_msgid);
125 end if;
126 if parseAndValidateId(p_id => p_id,
127 p_doc_transfer_id => l_doc_transfer_id,
128 p_responsibility_id => l_responsibility_id,
129 p_trx_number => l_trx_number,
130 p_trx_date => l_trx_date,
131 p_currency => l_invoice_currency,
132 p_line_number => l_line_number) then
133 fnd_message.set_name('AR', 'AR_CONF_ACT_CUST_MSG_SBJ');
134 l_subject := fnd_message.get;
135 if l_line_number is null then
136 fnd_message.set_name('AR','AR_CONF_ACT_CUST_MSG_BODY1');
137 else
138 fnd_message.set_name('AR','AR_CONF_ACT_CUST_MSG_BODY2');
139 fnd_message.set_token('LINE_NUMBER',to_char(l_line_number));
140 end if;
141 fnd_message.set_token('TRX_NUMBER', l_trx_number);
142 --Int'l Calendar Project
143 fnd_message.set_token('TRX_DATE', fnd_date.date_to_chardate(l_trx_date, calendar_aware=> FND_DATE.calendar_aware_alt));
144 fnd_message.set_token('CURRENCY', l_invoice_currency);
145 l_body := fnd_message.get||fnd_global.newline||fnd_global.newline;
146 open ap_lookups; fetch ap_lookups into l_msg; close ap_lookups;
147 l_body := l_body||l_msg;
148 l_url := 'JSP:/OA_HTML/OA.jsp?akRegionCode=ARDOCTRSPG'||'&'||
149 'akRegionApplicationId=222'||'&'||
150 'Query=Y'||'&'||
151 'DocumentTransferNumber='||to_char(l_doc_transfer_id);
152 ar_notification_standard.notify(l_subject,
153 l_body,
154 'FND_RESP222:'||to_char(l_responsibility_id),
155 l_url);
159 end if;
156 update_status('REJECTED', l_doc_transfer_id, p_msgid, l_body, 'AR');
157 else
158 notifyToSysadmin(p_id);
160 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.processRejection(-)');end if;
161 end;
162
163
164 procedure SUCCESSFUL_TRANSMISSION( P_STATUS in VARCHAR2,
165 P_ID in VARCHAR2,
166 P_REASON_CODE in VARCHAR2,
167 P_DESCRIPTION in VARCHAR2,
168 P_MSGID in VARCHAR2) is
169 l_doc_transfer_id number;
170 l_trx_number varchar2(20);
171 l_trx_date date;
172 l_invoice_currency varchar2(15);
173 l_line_number number;
174 l_responsibility_id number;
175 begin
176 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.SUCCESSFUL_TRANSMISSION(+)'); end if;
177 if parseAndValidateId(p_id => p_id,
178 p_doc_transfer_id => l_doc_transfer_id,
179 p_responsibility_id => l_responsibility_id,
180 p_trx_number => l_trx_number,
181 p_trx_date => l_trx_date,
182 p_currency => l_invoice_currency,
183 p_line_number => l_line_number) then
184 update_status('ACCEPTED', l_doc_transfer_id, p_msgid);
185 else
186 notifyToSysadmin(p_id);
187 end if;
188 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.SUCCESSFUL_TRANSMISSION(-)'); end if;
189 end;
190
191 procedure DUPL_INV_NUM_IN_IMPORT( P_STATUS in VARCHAR2,
192 P_ID in VARCHAR2,
193 P_REASON_CODE in VARCHAR2,
194 P_DESCRIPTION in VARCHAR2,
195 P_MSGID in VARCHAR2) is
196
197 begin
198 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.DUPL_INV_NUM_IN_IMPORT(+)'); end if;
199 processRejection(p_id, p_reason_code, p_msgid);
200 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.DUPL_INV_NUM_IN_IMPORT(-)'); end if;
201 end;
202
203 procedure DUPLICATE_INVOICE_NUMBER( P_STATUS in VARCHAR2,
204 P_ID in VARCHAR2,
205 P_REASON_CODE in VARCHAR2,
206 P_DESCRIPTION in VARCHAR2,
207 P_MSGID in VARCHAR2) is
208 begin
209 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.DUPLICATE_INVOICE_NUMBER(+)'); end if;
210 processRejection(p_id, p_reason_code, p_msgid);
211 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.DUPLICATE_INVOICE_NUMBER(-)'); end if;
212 end;
213
214 procedure DUPLICATE_LINE_NUMBER( P_STATUS in VARCHAR2,
215 P_ID in VARCHAR2,
216 P_REASON_CODE in VARCHAR2,
217 P_DESCRIPTION in VARCHAR2,
218 P_MSGID in VARCHAR2) is
219 begin
220 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.DUPLICATE_LINE_NUMBER(+)'); end if;
221 processRejection(p_id, p_reason_code, p_msgid);
222 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.DUPLICATE_LINE_NUMBER(-)'); end if;
223 end;
224
225
226 procedure INCONSISTENT_CURR( P_STATUS in VARCHAR2,
227 P_ID in VARCHAR2,
228 P_REASON_CODE in VARCHAR2,
229 P_DESCRIPTION in VARCHAR2,
230 P_MSGID in VARCHAR2) is
231 begin
232 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INCONSISTENT_CURR(+)'); end if;
233 processRejection(p_id, p_reason_code, p_msgid);
234 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INCONSISTENT_CURR(-)'); end if;
235 end;
236
237
238 procedure INCONSISTENT_PO_SUPPLIER( P_STATUS in VARCHAR2,
239 P_ID in VARCHAR2,
240 P_REASON_CODE in VARCHAR2,
241 P_DESCRIPTION in VARCHAR2,
242 P_MSGID in VARCHAR2) is
243 begin
244 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INCONSISTENT_PO_SUPPLIER(+)'); end if;
245 processRejection(p_id, p_reason_code, p_msgid);
246 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INCONSISTENT_PO_SUPPLIER(-)'); end if;
247 end;
248
249
250 procedure INVALID_LINE_AMOUNT( P_STATUS in VARCHAR2,
251 P_ID in VARCHAR2,
252 P_REASON_CODE in VARCHAR2,
253 P_DESCRIPTION in VARCHAR2,
254 P_MSGID in VARCHAR2) is
255 begin
256 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_LINE_AMOUNT(+)'); end if;
257 processRejection(p_id, p_reason_code, p_msgid);
258 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_LINE_AMOUNT(-)'); end if;
259 end;
260
264 P_REASON_CODE in VARCHAR2,
261
262 procedure INVALID_INVOICE_AMOUNT( P_STATUS in VARCHAR2,
263 P_ID in VARCHAR2,
265 P_DESCRIPTION in VARCHAR2,
266 P_MSGID in VARCHAR2) is
267 begin
268 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_INVOICE_AMOUNT(+)'); end if;
269 processRejection(p_id, p_reason_code, p_msgid);
270 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_INVOICE_AMOUNT(-)'); end if;
271 end;
272
273
274 procedure INVALID_PO_INFO( P_STATUS in VARCHAR2,
275 P_ID in VARCHAR2,
276 P_REASON_CODE in VARCHAR2,
277 P_DESCRIPTION in VARCHAR2,
278 P_MSGID in VARCHAR2) is
279 begin
280 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_PO_INFO(+)'); end if;
281 processRejection(p_id, p_reason_code, p_msgid);
282 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_PO_INFO(-)'); end if;
283 end;
284
285
286 procedure INVALID_PO_NUM( P_STATUS in VARCHAR2,
287 P_ID in VARCHAR2,
288 P_REASON_CODE in VARCHAR2,
289 P_DESCRIPTION in VARCHAR2,
290 P_MSGID in VARCHAR2) is
291 begin
292 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_PO_NUM(+)'); end if;
296
293 processRejection(p_id, p_reason_code, p_msgid);
294 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_PO_NUM(-)'); end if;
295 end;
297
298 procedure INVALID_PO_RELEASE_INFO( P_STATUS in VARCHAR2,
299 P_ID in VARCHAR2,
300 P_REASON_CODE in VARCHAR2,
301 P_DESCRIPTION in VARCHAR2,
302 P_MSGID in VARCHAR2) is
303 begin
304 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_PO_RELEASE_INFO(+)'); end if;
305 processRejection(p_id, p_reason_code, p_msgid);
306 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_PO_RELEASE_INFO(-)'); end if;
307 end;
308
309
310 procedure INVALID_PO_RELEASE_NUM( P_STATUS in VARCHAR2,
311 P_ID in VARCHAR2,
312 P_REASON_CODE in VARCHAR2,
313 P_DESCRIPTION in VARCHAR2,
314 P_MSGID in VARCHAR2) is
315 begin
316 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_PO_RELEASE_NUM(+)'); end if;
317 processRejection(p_id, p_reason_code, p_msgid);
318 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_PO_RELEASE_NUM(-)'); end if;
319 end;
320
321
322 procedure INVALID_PO_SHIPMENT_NUM( P_STATUS in VARCHAR2,
323 P_ID in VARCHAR2,
324 P_REASON_CODE in VARCHAR2,
325 P_DESCRIPTION in VARCHAR2,
326 P_MSGID in VARCHAR2) is
327 begin
328 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_PO_SHIPMENT_NUM(+)'); end if;
329 processRejection(p_id, p_reason_code, p_msgid);
330 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_PO_SHIPMENT_NUM(-)'); end if;
331 end;
332
333
334 procedure INVALID_PRICE_QUANTITY( P_STATUS in VARCHAR2,
335 P_ID in VARCHAR2,
336 P_REASON_CODE in VARCHAR2,
337 P_DESCRIPTION in VARCHAR2,
338 P_MSGID in VARCHAR2) is
339 begin
340 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_PRICE_QUANTITY(+)'); end if;
341 processRejection(p_id, p_reason_code, p_msgid);
342 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_PRICE_QUANTITY(-)'); end if;
343 end;
344
345
346 procedure INVALID_QUANTITY( P_STATUS in VARCHAR2,
347 P_ID in VARCHAR2,
348 P_REASON_CODE in VARCHAR2,
349 P_DESCRIPTION in VARCHAR2,
350 P_MSGID in VARCHAR2) is
351 begin
352 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.(+)'); end if;
353 processRejection(p_id, p_reason_code, p_msgid);
354 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.(-)'); end if;
355 end;
356
357
358 procedure INVALID_SUPPLIER( P_STATUS in VARCHAR2,
359 P_ID in VARCHAR2,
360 P_REASON_CODE in VARCHAR2,
361 P_DESCRIPTION in VARCHAR2,
362 P_MSGID in VARCHAR2) is
363 begin
364 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_SUPPLIER(+)'); end if;
365 processRejection(p_id, p_reason_code, p_msgid);
366 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_SUPPLIER(-)'); end if;
367 end;
368
369
370
371 procedure INVALID_SUPPLIER_SITE( P_STATUS in VARCHAR2,
372 P_ID in VARCHAR2,
373 P_REASON_CODE in VARCHAR2,
374 P_DESCRIPTION in VARCHAR2,
375 P_MSGID in VARCHAR2) is
376 begin
377 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_SUPPLIER_SITE(+)'); end if;
378 processRejection(p_id, p_reason_code, p_msgid);
379 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_SUPPLIER_SITE(-)'); end if;
380 end;
381
382
386 P_DESCRIPTION in VARCHAR2,
383 procedure INVALID_UNIT_PRICE( P_STATUS in VARCHAR2,
384 P_ID in VARCHAR2,
385 P_REASON_CODE in VARCHAR2,
387 P_MSGID in VARCHAR2) is
388 begin
389 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_UNIT_PRICE(+)'); end if;
390 processRejection(p_id, p_reason_code, p_msgid);
391 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.INVALID_UNIT_PRICE(-)'); end if;
392 end;
393
394
395 procedure NO_PO_LINE_NUM( P_STATUS in VARCHAR2,
396 P_ID in VARCHAR2,
397 P_REASON_CODE in VARCHAR2,
398 P_DESCRIPTION in VARCHAR2,
399 P_MSGID in VARCHAR2) is
400 begin
401 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.NO_PO_LINE_NUM(+)'); end if;
402 processRejection(p_id, p_reason_code, p_msgid);
403 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.NO_PO_LINE_NUM(-)'); end if;
404 end;
405
406
407 procedure NO_SUPPLIER( P_STATUS in VARCHAR2,
408 P_ID in VARCHAR2,
409 P_REASON_CODE in VARCHAR2,
410 P_DESCRIPTION in VARCHAR2,
411 P_MSGID in VARCHAR2) is
412 begin
413 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.NO_SUPPLIER(+)'); end if;
414 processRejection(p_id, p_reason_code, p_msgid);
415 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.NO_SUPPLIER(-)'); end if;
416 end;
417
418
419 procedure RELEASE_MISSNG( P_STATUS in VARCHAR2,
420 P_ID in VARCHAR2,
421 P_REASON_CODE in VARCHAR2,
422 P_DESCRIPTION in VARCHAR2,
423 P_MSGID in VARCHAR2) is
424 begin
425 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.RELEASE_MISSNG(+)'); end if;
426 processRejection(p_id, p_reason_code, p_msgid);
427 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.RELEASE_MISSNG(-)'); end if;
428 end;
429
430 begin
431 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION(+)'); end if;
432 if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION(-)'); end if;
433 end;
[Home] [Help]