DBA Data[Home] [Help]

APPS.ARP_RUN dependencies on STANDARD

Line 5: g_debug_flag VARCHAR2(4):= NVL(arp_standard.pg_prf_enable_debug, 'N');

1: PACKAGE BODY arp_run AS
2: -- $Header: ARTERRPB.pls 120.10 2006/06/16 18:58:16 hyu arrt008.sql $
3: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
4:
5: g_debug_flag VARCHAR2(4):= NVL(arp_standard.pg_prf_enable_debug, 'N');
6:
7: g_no_more_msgs EXCEPTION;
8:
9: PRAGMA EXCEPTION_INIT(g_no_more_msgs, -25228);

Line 43: arp_standard.debug('EXCEPTION: ' ||SQLERRM(SQLCODE));

39: arp_util.print_fcn_label('arp_run.enq_trans()-');
40: --
41: EXCEPTION
42: WHEN OTHERS THEN
43: arp_standard.debug('EXCEPTION: ' ||SQLERRM(SQLCODE));
44: RAISE;
45: END enq_trans;
46:
47:

Line 86: arp_standard.debug('My worker number is ' || p_worker_number);

82:
83: IF l_req_data IS NULL THEN -- First Time
84:
85: IF PG_DEBUG in ('Y', 'C') THEN
86: arp_standard.debug('My worker number is ' || p_worker_number);
87: END IF;
88:
89: <>
90: LOOP

Line 101: arp_standard.debug('revenue_recognition: ' || i || '> Processing Trx number : <' || l_msg.trx_number || '> Trx Id <' ||

97:
98: -- And print it.
99:
100: IF PG_DEBUG in ('Y', 'C') THEN
101: arp_standard.debug('revenue_recognition: ' || i || '> Processing Trx number : <' || l_msg.trx_number || '> Trx Id <' ||
102: l_msg.customer_trx_id || '> Created From : <' || l_msg.created_from || ' ' ||l_msg.org_id );
103: END IF;
104: --
105: i := i + 1;

Line 119: arp_standard.debug('EXCEPTION: Could not create distribution for Trx no.' || l_msg.trx_number);

115: p_continue_on_error=>'Y');
116: EXCEPTION
117: WHEN OTHERS THEN
118: IF PG_DEBUG in ('Y', 'C') THEN
119: arp_standard.debug('EXCEPTION: Could not create distribution for Trx no.' || l_msg.trx_number);
120: arp_standard.debug(SQLERRM(SQLCODE));
121: END IF;
122: END create_dists;
123: --

Line 120: arp_standard.debug(SQLERRM(SQLCODE));

116: EXCEPTION
117: WHEN OTHERS THEN
118: IF PG_DEBUG in ('Y', 'C') THEN
119: arp_standard.debug('EXCEPTION: Could not create distribution for Trx no.' || l_msg.trx_number);
120: arp_standard.debug(SQLERRM(SQLCODE));
121: END IF;
122: END create_dists;
123: --
124: --

Line 128: arp_standard.debug(' Total dists created so far : ' || l_total_dists);

124: --
125: commit;
126: --
127: IF PG_DEBUG in ('Y', 'C') THEN
128: arp_standard.debug(' Total dists created so far : ' || l_total_dists);
129: END IF;
130:
131: END LOOP rev_rec_loop;
132:

Line 136: arp_standard.debug('revenue_recognition: ' || errbuf);

132:
133: ELSE
134: errbuf := 'Completed the report..';
135: IF PG_DEBUG in ('Y', 'C') THEN
136: arp_standard.debug('revenue_recognition: ' || errbuf);
137: END IF;
138: END IF;
139:
140: arp_util.print_fcn_label('arp_run.revenue_recognition()-');

Line 146: arp_standard.debug('No More messages left. Shutting down the worker..');

142: EXCEPTION
143: WHEN g_no_more_msgs THEN
144: -- End of the queue reached.
145: IF PG_DEBUG in ('Y', 'C') THEN
146: arp_standard.debug('No More messages left. Shutting down the worker..');
147: arp_standard.debug('Submitting the report..');
148: END IF;
149: fnd_request.set_org_id(l_org_id);
150: l_reqid := FND_REQUEST.SUBMIT_REQUEST (

Line 147: arp_standard.debug('Submitting the report..');

143: WHEN g_no_more_msgs THEN
144: -- End of the queue reached.
145: IF PG_DEBUG in ('Y', 'C') THEN
146: arp_standard.debug('No More messages left. Shutting down the worker..');
147: arp_standard.debug('Submitting the report..');
148: END IF;
149: fnd_request.set_org_id(l_org_id);
150: l_reqid := FND_REQUEST.SUBMIT_REQUEST (
151: application=>'AR',

Line 155: arp_standard.gl_chart_of_accounts_id , -- P_COA

151: application=>'AR',
152: program=>'ARBARL_NON_SRS2',
153: sub_request=>TRUE,
154: argument1=>'P_COA=' ||
155: arp_standard.gl_chart_of_accounts_id , -- P_COA
156: argument2=>'P_RUN_AUTO_RULE=N', -- P_RUN_AUTO_RULE
157: argument3=>'P_COMMIT_AT_END=Y', -- P_COMMIT_AT_END
158: argument4=>'P_DEBUG_FLAG='|| g_debug_flag ,-- P_DEBUG_FLAG
159: argument5=>'P_CONTINUE_ON_ERROR=Y', -- P_CONTINUE_ON_ERROR

Line 161: arp_standard.profile.user_id, -- P_USER_ID

157: argument3=>'P_COMMIT_AT_END=Y', -- P_COMMIT_AT_END
158: argument4=>'P_DEBUG_FLAG='|| g_debug_flag ,-- P_DEBUG_FLAG
159: argument5=>'P_CONTINUE_ON_ERROR=Y', -- P_CONTINUE_ON_ERROR
160: argument6=>'P_USER_ID=' ||
161: arp_standard.profile.user_id, -- P_USER_ID
162: argument7=>'CONC_REQUEST_ID=' ||
163: arp_standard.profile.request_id, -- P_CONC_REQUEST_ID
164: argument8=>'P_REPORT_MODE=' ||
165: p_report_mode -- P_REPORT_MODE

Line 163: arp_standard.profile.request_id, -- P_CONC_REQUEST_ID

159: argument5=>'P_CONTINUE_ON_ERROR=Y', -- P_CONTINUE_ON_ERROR
160: argument6=>'P_USER_ID=' ||
161: arp_standard.profile.user_id, -- P_USER_ID
162: argument7=>'CONC_REQUEST_ID=' ||
163: arp_standard.profile.request_id, -- P_CONC_REQUEST_ID
164: argument8=>'P_REPORT_MODE=' ||
165: p_report_mode -- P_REPORT_MODE
166: ) ;
167: IF PG_DEBUG in ('Y', 'C') THEN

Line 168: arp_standard.debug('Request Id :' || l_reqid);

164: argument8=>'P_REPORT_MODE=' ||
165: p_report_mode -- P_REPORT_MODE
166: ) ;
167: IF PG_DEBUG in ('Y', 'C') THEN
168: arp_standard.debug('Request Id :' || l_reqid);
169: END IF;
170:
171: fnd_conc_global.set_req_globals(conc_status => 'PAUSED',
172: request_data => to_char(l_reqid)) ;

Line 184: arp_standard.debug('revenue_recognition: ' || errbuf);

180: WHEN OTHERS THEN
181: ROLLBACK;
182: errbuf := 'EXCEPTION:' ||SQLERRM(SQLCODE);
183: IF PG_DEBUG in ('Y', 'C') THEN
184: arp_standard.debug('revenue_recognition: ' || errbuf);
185: END IF;
186: retcode := WARNING;
187: --
188: -- Put the dequeued message back in the queue

Line 194: arp_standard.debug('Putting the last message back in the queue');

190: IF l_dq_success THEN
191: BEGIN
192: --
193: IF PG_DEBUG in ('Y', 'C') THEN
194: arp_standard.debug('Putting the last message back in the queue');
195: END IF;
196: --
197: arp_queue.enqueue(p_msg=>l_msg);
198: --

Line 204: arp_standard.debug('EXCEPTION:' || SQLERRM(SQLCODE));

200: --
201: EXCEPTION
202: WHEN OTHERS THEN
203: IF PG_DEBUG in ('Y', 'C') THEN
204: arp_standard.debug('EXCEPTION:' || SQLERRM(SQLCODE));
205: arp_standard.debug('Unable to enqueue the message last message');
206: END IF;
207: retcode := FAILURE;
208: RAISE;

Line 205: arp_standard.debug('Unable to enqueue the message last message');

201: EXCEPTION
202: WHEN OTHERS THEN
203: IF PG_DEBUG in ('Y', 'C') THEN
204: arp_standard.debug('EXCEPTION:' || SQLERRM(SQLCODE));
205: arp_standard.debug('Unable to enqueue the message last message');
206: END IF;
207: retcode := FAILURE;
208: RAISE;
209: END;

Line 279: arp_standard.debug('Submitted child request no. ['|| p_worker_num ||'] : ' || l_reqid);

275: argument3=>p_org_id
276: ) ;
277:
278: IF PG_DEBUG in ('Y', 'C') THEN
279: arp_standard.debug('Submitted child request no. ['|| p_worker_num ||'] : ' || l_reqid);
280: END IF;
281:
282: commit;
283:

Line 300: arp_standard.debug('submit_control()+');

296: BEGIN -- Submit_control
297:
298: --
299: IF PG_DEBUG in ('Y', 'C') THEN
300: arp_standard.debug('submit_control()+');
301: END IF;
302:
303: --
304: -- Wait for 1 Sec to check for messages

Line 313: arp_standard.debug('No More messages left. Check for any unprocessed Transactions.');

309: p_first=>TRUE);
310: EXCEPTION
311: WHEN g_no_more_msgs THEN
312: IF PG_DEBUG in ('Y', 'C') THEN
313: arp_standard.debug('No More messages left. Check for any unprocessed Transactions.');
314: END IF;
315: enq_trans;
316: commit;
317: arp_queue.dequeue(p_msg=>l_msg,

Line 325: arp_standard.debug('Found some messages..');

321: RAISE;
322: END;
323:
324: IF PG_DEBUG in ('Y', 'C') THEN
325: arp_standard.debug('Found some messages..');
326: END IF;
327:
328: l_req_data := NULL;
329:

Line 363: arp_standard.debug('Starting additional workers..');

359: message=>l_req_status_tab(1).message);
360:
361: IF l_req_status_tab(1).dev_phase <> 'COMPLETE' THEN
362: IF PG_DEBUG in ('Y', 'C') THEN
363: arp_standard.debug('Starting additional workers..');
364: END IF;
365: submit_subrequest (l_worker_number, p_org_id);
366: ELSE
367: IF l_req_status_tab(1).dev_status IN ('TERMINATED', 'CANCELLED', 'ERROR') THEN

Line 369: arp_standard.debug('Worker was terminated / cancelled / errored out..');

365: submit_subrequest (l_worker_number, p_org_id);
366: ELSE
367: IF l_req_status_tab(1).dev_status IN ('TERMINATED', 'CANCELLED', 'ERROR') THEN
368: IF PG_DEBUG in ('Y', 'C') THEN
369: arp_standard.debug('Worker was terminated / cancelled / errored out..');
370: arp_standard.debug('Shutting down the master process.');
371: END IF;
372:
373: RAISE worker_error;

Line 370: arp_standard.debug('Shutting down the master process.');

366: ELSE
367: IF l_req_status_tab(1).dev_status IN ('TERMINATED', 'CANCELLED', 'ERROR') THEN
368: IF PG_DEBUG in ('Y', 'C') THEN
369: arp_standard.debug('Worker was terminated / cancelled / errored out..');
370: arp_standard.debug('Shutting down the master process.');
371: END IF;
372:
373: RAISE worker_error;
374: ELSE

Line 376: arp_standard.debug( 'Continue..');

372:
373: RAISE worker_error;
374: ELSE
375: IF PG_DEBUG in ('Y', 'C') THEN
376: arp_standard.debug( 'Continue..');
377: END IF;
378: END IF;
379: END IF;
380:

Line 403: arp_standard.debug( 'Req Data : ' || l_req_data);

399: EXIT WHEN i = p_max_workers;
400: END LOOP;
401: --}
402: IF PG_DEBUG in ('Y', 'C') THEN
403: arp_standard.debug( 'Req Data : ' || l_req_data);
404: arp_standard.debug( 'submit_control()-');
405: END IF;
406:
407: RETURN SUCCESS ;

Line 404: arp_standard.debug( 'submit_control()-');

400: END LOOP;
401: --}
402: IF PG_DEBUG in ('Y', 'C') THEN
403: arp_standard.debug( 'Req Data : ' || l_req_data);
404: arp_standard.debug( 'submit_control()-');
405: END IF;
406:
407: RETURN SUCCESS ;
408:

Line 412: arp_standard.debug( 'No More messages left. Shutting down the master.');

408:
409: EXCEPTION
410: WHEN g_no_more_msgs THEN
411: IF PG_DEBUG in ('Y', 'C') THEN
412: arp_standard.debug( 'No More messages left. Shutting down the master.');
413: END IF;
414: RETURN SUCCESS;
415: WHEN worker_error THEN
416: IF PG_DEBUG in ('Y', 'C') THEN

Line 417: arp_standard.debug( 'Worker was terminated / cancelled');

413: END IF;
414: RETURN SUCCESS;
415: WHEN worker_error THEN
416: IF PG_DEBUG in ('Y', 'C') THEN
417: arp_standard.debug( 'Worker was terminated / cancelled');
418: END IF;
419: RETURN SUCCESS ;
420: WHEN OTHERS THEN
421: IF PG_DEBUG in ('Y', 'C') THEN

Line 422: arp_standard.debug( 'ARXRRSPW:' || SQLERRM(SQLCODE));

418: END IF;
419: RETURN SUCCESS ;
420: WHEN OTHERS THEN
421: IF PG_DEBUG in ('Y', 'C') THEN
422: arp_standard.debug( 'ARXRRSPW:' || SQLERRM(SQLCODE));
423: END IF;
424: RETURN FAILURE ;
425: END submit_control;
426:

Line 439: arp_standard.debug('arp_run.rev_rec_master()+');

435: --
436: retcode := SUCCESS;
437: --
438: IF PG_DEBUG in ('Y', 'C') THEN
439: arp_standard.debug('arp_run.rev_rec_master()+');
440: END IF;
441: --
442: l_req_data := fnd_conc_global.request_data;
443: --

Line 447: arp_standard.debug( 'First Time..');

443: --
444: IF l_req_data IS NULL THEN -- First Time
445: --
446: IF PG_DEBUG in ('Y', 'C') THEN
447: arp_standard.debug( 'First Time..');
448: END IF;
449: --
450: -- Refresh AR Periods
451: --

Line 457: arp_standard.debug( 'Completed Requests :' || l_req_data);

453: --
454: ELSE
455: --
456: IF PG_DEBUG in ('Y', 'C') THEN
457: arp_standard.debug( 'Completed Requests :' || l_req_data);
458: END IF;
459: --
460: END IF;
461:

Line 467: arp_standard.debug('arp_run.rev_rec_master()-');

463:
464: commit;
465:
466: IF PG_DEBUG in ('Y', 'C') THEN
467: arp_standard.debug('arp_run.rev_rec_master()-');
468: END IF;
469:
470:
471: EXCEPTION

Line 476: arp_standard.debug( errbuf);

472: WHEN OTHERS THEN
473: errbuf := 'EXCEPTION:' || SQLERRM(SQLCODE);
474: retcode := FAILURE;
475: IF PG_DEBUG in ('Y', 'C') THEN
476: arp_standard.debug( errbuf);
477: END IF;
478:
479: END rev_rec_master;
480:

Line 498: arp_standard.debug('arp_run.build_credit_distributions()+');

494: l_failure_count NUMBER;
495:
496: BEGIN
497: IF PG_DEBUG in ('Y', 'C') THEN
498: arp_standard.debug('arp_run.build_credit_distributions()+');
499: END IF;
500:
501: retcode := SUCCESS;
502:

Line 515: arp_standard.debug('arp_run.build_credit_distributions()-');

511: /* Gotta commit the results */
512: commit;
513:
514: IF PG_DEBUG in ('Y', 'C') THEN
515: arp_standard.debug('arp_run.build_credit_distributions()-');
516: END IF;
517:
518: EXCEPTION
519: WHEN arp_credit_memo_module.no_ccid THEN

Line 521: arp_standard.debug('EXCEPTION: credit memo module exception : no_ccid');

517:
518: EXCEPTION
519: WHEN arp_credit_memo_module.no_ccid THEN
520: IF PG_DEBUG in ('Y', 'C') THEN
521: arp_standard.debug('EXCEPTION: credit memo module exception : no_ccid');
522: END IF;
523: RAISE;
524: WHEN NO_DATA_FOUND THEN
525: IF PG_DEBUG in ('Y', 'C') THEN

Line 526: arp_standard.debug('EXCEPTION: credit memo module exception : no_data_found');

522: END IF;
523: RAISE;
524: WHEN NO_DATA_FOUND THEN
525: IF PG_DEBUG in ('Y', 'C') THEN
526: arp_standard.debug('EXCEPTION: credit memo module exception : no_data_found');
527: END IF;
528: null;
529: WHEN app_exception.application_exception THEN
530: IF PG_DEBUG in ('Y', 'C') THEN

Line 531: arp_standard.debug('build_credit_distributions: ' || 'credit memo module exception : app_exception ');

527: END IF;
528: null;
529: WHEN app_exception.application_exception THEN
530: IF PG_DEBUG in ('Y', 'C') THEN
531: arp_standard.debug('build_credit_distributions: ' || 'credit memo module exception : app_exception ');
532: END IF;
533: RAISE;
534: WHEN OTHERS THEN
535: RAISE;

Line 561: arp_standard.debug('arp_run.submit_mrc_posting()+');

557: l_req_id NUMBER;
558: l_sob_type VARCHAR2(1);
559: BEGIN
560: IF PG_DEBUG in ('Y', 'C') THEN
561: arp_standard.debug('arp_run.submit_mrc_posting()+');
562: arp_standard.debug(' Submitting for primary sob : ' ||
563: arp_global.sysparam.set_of_books_id);
564:
565: END IF;

Line 562: arp_standard.debug(' Submitting for primary sob : ' ||

558: l_sob_type VARCHAR2(1);
559: BEGIN
560: IF PG_DEBUG in ('Y', 'C') THEN
561: arp_standard.debug('arp_run.submit_mrc_posting()+');
562: arp_standard.debug(' Submitting for primary sob : ' ||
563: arp_global.sysparam.set_of_books_id);
564:
565: END IF;
566:

Line 620: arp_standard.debug(' SUCCESS: sob_id = ' ||

616:
617: IF (l_req_id IS NOT NULL AND l_req_id <> 0)
618: THEN
619: IF PG_DEBUG in ('Y', 'C') THEN
620: arp_standard.debug(' SUCCESS: sob_id = ' ||
621: l_acctg_sob_list(l_index).r_sob_id ||
622: ' req_id = ' || l_req_id);
623: END IF;
624:

Line 629: arp_standard.debug(' EXCEPTION: sob_id = ' ||

625: ELSE
626: /* Set retcode to -1 to indicate that at least
627: one submission failed */
628: retcode := -1;
629: arp_standard.debug(' EXCEPTION: sob_id = ' ||
630: l_acctg_sob_list(l_index).r_sob_id);
631: END IF;
632:
633: END IF;

Line 638: arp_standard.debug('arp_run.submit_mrc_posting()-');

634:
635: END LOOP;
636:
637: IF PG_DEBUG in ('Y', 'C') THEN
638: arp_standard.debug('arp_run.submit_mrc_posting()-');
639: END IF;
640:
641: EXCEPTION
642: WHEN OTHERS THEN

Line 643: arp_standard.debug('EXCEPTION: arp_run.submit_mrc_posting()');

639: END IF;
640:
641: EXCEPTION
642: WHEN OTHERS THEN
643: arp_standard.debug('EXCEPTION: arp_run.submit_mrc_posting()');
644: /* retcode to -1 means ARGLTP will end in WARNING */
645: retcode := -1;
646: END submit_mrc_posting;
647: