1: PACKAGE BODY AR_CMGT_REVIEW_CONC AS
2: /* $Header: ARCMPRCB.pls 120.6 2006/08/15 22:07:07 bsarkar noship $ */
3:
4: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
5:
5:
6: PROCEDURE debug (
7: p_message_name IN VARCHAR2 ) IS
8: BEGIN
9: ar_cmgt_util.debug (p_message_name, 'ar.cmgt.plsql.AR_CMGT_REVIEW_CONC' );
10: END;
11:
12: PROCEDURE populate_temp_table (
13: p_party_id IN NUMBER,
25: -- be used by Eligibility Reports
26: BEGIN
27:
28: IF pg_debug = 'Y' THEN
29: debug ('AR_CMGT_REVIEW_CONC.populate_temp_table(+)' );
30: END IF;
31:
32: INSERT INTO OCM_CREDIT_REVIEW_GT (
33: party_id,
51: p_review_type,
52: p_credit_classification,
53: p_currency_code);
54: IF pg_debug = 'Y' THEN
55: debug ('AR_CMGT_REVIEW_CONC.populate_temp_table(-)' );
56: END IF;
57: EXCEPTION
58: WHEN OTHERS THEN
59: RAISE;
64: | DESCRIPTION
65: | This procedure submits the periodic cycle review report.
66: |
67: | CALLED FROM PROCEDURES/FUNCTIONS (local to this package body)
68: | ar_cmgt_review_conc.submit_preview_report()
69: | CALLS PROCEDURES/FUNCTIONS (local to this package body)
70: | NONE
71: | PARAMETERS
72: | p_currency_code IN Currency code
103: l_options_ok BOOLEAN;
104:
105: BEGIN
106: /* IF PG_DEBUG in ('Y', 'C') THEN
107: --arp_util.debug('ar_cmgt_review_conc.submit_preview_report (+)');
108: END IF; */
109:
110: l_request_id := fnd_global.conc_request_id;
111:
225: , argument100 => '');
226:
227: END IF;
228: /*IF PG_DEBUG in ('Y', 'C') THEN
229: --arp_util.debug('ar_cmgt_review_conc.submit_preview_report (+)');
230: END IF; */
231:
232: EXCEPTION
233: WHEN OTHERS THEN
232: EXCEPTION
233: WHEN OTHERS THEN
234: IF PG_DEBUG in ('Y', 'C') THEN
235: raise;
236: --arp_util.debug('EXCEPTION :ar_cmgt_review_conc.submit_preview_report '||SQLERRM);
237: END IF;
238: END submit_preview_report;
239:
240:
326:
327:
328: BEGIN
329: IF pg_debug = 'Y' THEN
330: debug ('AR_CMGT_REVIEW_CONC.periodic_review(+)' );
331: debug (' Review Cycle ' || p_review_cycle );
332: debug (' Review Cycle As of date ' || p_review_cycle_as_of_date );
333: debug (' Currency Code ' || p_currency_code );
334: debug (' Cust Level ' || p_cust_level );
784: app_exception.raise_exception;
785: END IF;
786: END IF;
787: IF pg_debug = 'Y' THEN
788: debug ('AR_CMGT_REVIEW_CONC.periodic_review(-)' );
789: END IF;
790: END;
791:
792: END AR_CMGT_REVIEW_CONC;
788: debug ('AR_CMGT_REVIEW_CONC.periodic_review(-)' );
789: END IF;
790: END;
791:
792: END AR_CMGT_REVIEW_CONC;