DBA Data[Home] [Help]

APPS.ARP_RUN dependencies on ARP_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.11 2011/07/07 19:13:40 mraymond ship $
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 280: arp_standard.debug('Submitted child request no. ['|| p_worker_num ||'] : ' || l_reqid);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

417: enq_trans;
418: END IF;
419:
420: IF PG_DEBUG in ('Y', 'C') THEN
421: arp_standard.debug( 'Req Data : ' || l_req_data);
422: arp_standard.debug( 'submit_control()-');
423: END IF;
424:
425: RETURN SUCCESS ;

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

418: END IF;
419:
420: IF PG_DEBUG in ('Y', 'C') THEN
421: arp_standard.debug( 'Req Data : ' || l_req_data);
422: arp_standard.debug( 'submit_control()-');
423: END IF;
424:
425: RETURN SUCCESS ;
426:

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

426:
427: EXCEPTION
428: WHEN g_no_more_msgs THEN
429: IF PG_DEBUG in ('Y', 'C') THEN
430: arp_standard.debug( 'No More messages left. Shutting down the master.');
431: END IF;
432: RETURN SUCCESS;
433: WHEN worker_error THEN
434: IF PG_DEBUG in ('Y', 'C') THEN

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

431: END IF;
432: RETURN SUCCESS;
433: WHEN worker_error THEN
434: IF PG_DEBUG in ('Y', 'C') THEN
435: arp_standard.debug( 'Worker was terminated / cancelled');
436: END IF;
437: RETURN SUCCESS ;
438: WHEN OTHERS THEN
439: IF PG_DEBUG in ('Y', 'C') THEN

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

436: END IF;
437: RETURN SUCCESS ;
438: WHEN OTHERS THEN
439: IF PG_DEBUG in ('Y', 'C') THEN
440: arp_standard.debug( 'ARXRRSPW:' || SQLERRM(SQLCODE));
441: END IF;
442: RETURN FAILURE ;
443: END submit_control;
444:

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

453: --
454: retcode := SUCCESS;
455: --
456: IF PG_DEBUG in ('Y', 'C') THEN
457: arp_standard.debug('arp_run.rev_rec_master()+');
458: END IF;
459: --
460: l_req_data := fnd_conc_global.request_data;
461: --

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

461: --
462: IF l_req_data IS NULL THEN -- First Time
463: --
464: IF PG_DEBUG in ('Y', 'C') THEN
465: arp_standard.debug( 'First Time..');
466: END IF;
467: --
468: -- Refresh AR Periods
469: --

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

471: --
472: ELSE
473: --
474: IF PG_DEBUG in ('Y', 'C') THEN
475: arp_standard.debug( 'Completed Requests :' || l_req_data);
476: END IF;
477: --
478: END IF;
479:

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

481:
482: commit;
483:
484: IF PG_DEBUG in ('Y', 'C') THEN
485: arp_standard.debug('arp_run.rev_rec_master()-');
486: END IF;
487:
488:
489: EXCEPTION

Line 494: arp_standard.debug( errbuf);

490: WHEN OTHERS THEN
491: errbuf := 'EXCEPTION:' || SQLERRM(SQLCODE);
492: retcode := FAILURE;
493: IF PG_DEBUG in ('Y', 'C') THEN
494: arp_standard.debug( errbuf);
495: END IF;
496:
497: END rev_rec_master;
498:

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

512: l_failure_count NUMBER;
513:
514: BEGIN
515: IF PG_DEBUG in ('Y', 'C') THEN
516: arp_standard.debug('arp_run.build_credit_distributions()+');
517: END IF;
518:
519: retcode := SUCCESS;
520:

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

529: /* Gotta commit the results */
530: commit;
531:
532: IF PG_DEBUG in ('Y', 'C') THEN
533: arp_standard.debug('arp_run.build_credit_distributions()-');
534: END IF;
535:
536: EXCEPTION
537: WHEN arp_credit_memo_module.no_ccid THEN

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

535:
536: EXCEPTION
537: WHEN arp_credit_memo_module.no_ccid THEN
538: IF PG_DEBUG in ('Y', 'C') THEN
539: arp_standard.debug('EXCEPTION: credit memo module exception : no_ccid');
540: END IF;
541: RAISE;
542: WHEN NO_DATA_FOUND THEN
543: IF PG_DEBUG in ('Y', 'C') THEN

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

540: END IF;
541: RAISE;
542: WHEN NO_DATA_FOUND THEN
543: IF PG_DEBUG in ('Y', 'C') THEN
544: arp_standard.debug('EXCEPTION: credit memo module exception : no_data_found');
545: END IF;
546: null;
547: WHEN app_exception.application_exception THEN
548: IF PG_DEBUG in ('Y', 'C') THEN

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

545: END IF;
546: null;
547: WHEN app_exception.application_exception THEN
548: IF PG_DEBUG in ('Y', 'C') THEN
549: arp_standard.debug('build_credit_distributions: ' || 'credit memo module exception : app_exception ');
550: END IF;
551: RAISE;
552: WHEN OTHERS THEN
553: RAISE;

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

575: l_req_id NUMBER;
576: l_sob_type VARCHAR2(1);
577: BEGIN
578: IF PG_DEBUG in ('Y', 'C') THEN
579: arp_standard.debug('arp_run.submit_mrc_posting()+');
580: arp_standard.debug(' Submitting for primary sob : ' ||
581: arp_global.sysparam.set_of_books_id);
582:
583: END IF;

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

576: l_sob_type VARCHAR2(1);
577: BEGIN
578: IF PG_DEBUG in ('Y', 'C') THEN
579: arp_standard.debug('arp_run.submit_mrc_posting()+');
580: arp_standard.debug(' Submitting for primary sob : ' ||
581: arp_global.sysparam.set_of_books_id);
582:
583: END IF;
584:

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

634:
635: IF (l_req_id IS NOT NULL AND l_req_id <> 0)
636: THEN
637: IF PG_DEBUG in ('Y', 'C') THEN
638: arp_standard.debug(' SUCCESS: sob_id = ' ||
639: l_acctg_sob_list(l_index).r_sob_id ||
640: ' req_id = ' || l_req_id);
641: END IF;
642:

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

643: ELSE
644: /* Set retcode to -1 to indicate that at least
645: one submission failed */
646: retcode := -1;
647: arp_standard.debug(' EXCEPTION: sob_id = ' ||
648: l_acctg_sob_list(l_index).r_sob_id);
649: END IF;
650:
651: END IF;

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

652:
653: END LOOP;
654:
655: IF PG_DEBUG in ('Y', 'C') THEN
656: arp_standard.debug('arp_run.submit_mrc_posting()-');
657: END IF;
658:
659: EXCEPTION
660: WHEN OTHERS THEN

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

657: END IF;
658:
659: EXCEPTION
660: WHEN OTHERS THEN
661: arp_standard.debug('EXCEPTION: arp_run.submit_mrc_posting()');
662: /* retcode to -1 means ARGLTP will end in WARNING */
663: retcode := -1;
664: END submit_mrc_posting;
665: