30: | |
31: | SCOPE - PRIVATE |
32: | |
33: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
34: | arp_util.debug |
35: | arp_util.print_fcn_label |
36: | dbms_sql.parse |
37: | dbms_sql.open_cursor |
38: | |
31: | SCOPE - PRIVATE |
32: | |
33: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
34: | arp_util.debug |
35: | arp_util.print_fcn_label |
36: | dbms_sql.parse |
37: | dbms_sql.open_cursor |
38: | |
39: | ARGUMENTS : IN: |
71: l_overlapping_pds_cursor integer;
72:
73: BEGIN
74:
75: arp_util.print_fcn_label('arp_dates.prepare_val_gl_pds_sql_stmt()+ ');
76:
77: arp_util.debug('p_ai_flag = ' ||
78: arp_trx_util.boolean_to_varchar2(p_ai_flag) ,
79: arp_global.MSG_LEVEL_DEBUG);
73: BEGIN
74:
75: arp_util.print_fcn_label('arp_dates.prepare_val_gl_pds_sql_stmt()+ ');
76:
77: arp_util.debug('p_ai_flag = ' ||
78: arp_trx_util.boolean_to_varchar2(p_ai_flag) ,
79: arp_global.MSG_LEVEL_DEBUG);
80:
81: /*------------------------------------------------------------+
94: pg_form_pds_exist_cursor IS NOT NULL
95: )
96: )
97: THEN
98: arp_util.debug('No SQL statement constuction or parse is required',
99: arp_global.MSG_LEVEL_DEBUG);
100: arp_util.print_fcn_label('arp_dates.construct_val_gl_pds_sql_stmt()- ');
101: RETURN;
102:
96: )
97: THEN
98: arp_util.debug('No SQL statement constuction or parse is required',
99: arp_global.MSG_LEVEL_DEBUG);
100: arp_util.print_fcn_label('arp_dates.construct_val_gl_pds_sql_stmt()- ');
101: RETURN;
102:
103: END IF;
104:
320: p1.period_set_name || p1.period_name
321: ' || l_temp_end2;
322:
323:
324: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
325: arp_util.debug('------------------ All Periods Exist SQL ---------------',
326: arp_global.MSG_LEVEL_DEBUG);
327: arp_util.debug(l_all_pds_exist_sql, arp_global.MSG_LEVEL_DEBUG);
328: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
321: ' || l_temp_end2;
322:
323:
324: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
325: arp_util.debug('------------------ All Periods Exist SQL ---------------',
326: arp_global.MSG_LEVEL_DEBUG);
327: arp_util.debug(l_all_pds_exist_sql, arp_global.MSG_LEVEL_DEBUG);
328: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
329: arp_util.debug('length: ' || length(l_all_pds_exist_sql),
323:
324: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
325: arp_util.debug('------------------ All Periods Exist SQL ---------------',
326: arp_global.MSG_LEVEL_DEBUG);
327: arp_util.debug(l_all_pds_exist_sql, arp_global.MSG_LEVEL_DEBUG);
328: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
329: arp_util.debug('length: ' || length(l_all_pds_exist_sql),
330: arp_global.MSG_LEVEL_DEBUG);
331:
324: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
325: arp_util.debug('------------------ All Periods Exist SQL ---------------',
326: arp_global.MSG_LEVEL_DEBUG);
327: arp_util.debug(l_all_pds_exist_sql, arp_global.MSG_LEVEL_DEBUG);
328: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
329: arp_util.debug('length: ' || length(l_all_pds_exist_sql),
330: arp_global.MSG_LEVEL_DEBUG);
331:
332: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
325: arp_util.debug('------------------ All Periods Exist SQL ---------------',
326: arp_global.MSG_LEVEL_DEBUG);
327: arp_util.debug(l_all_pds_exist_sql, arp_global.MSG_LEVEL_DEBUG);
328: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
329: arp_util.debug('length: ' || length(l_all_pds_exist_sql),
330: arp_global.MSG_LEVEL_DEBUG);
331:
332: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
333: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
328: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
329: arp_util.debug('length: ' || length(l_all_pds_exist_sql),
330: arp_global.MSG_LEVEL_DEBUG);
331:
332: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
333: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
334: arp_util.debug('----------------- Overlapping Periods SQL ---------------',
335: arp_global.MSG_LEVEL_DEBUG);
336: arp_util.debug(l_overlapping_pds_sql, arp_global.MSG_LEVEL_DEBUG);
329: arp_util.debug('length: ' || length(l_all_pds_exist_sql),
330: arp_global.MSG_LEVEL_DEBUG);
331:
332: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
333: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
334: arp_util.debug('----------------- Overlapping Periods SQL ---------------',
335: arp_global.MSG_LEVEL_DEBUG);
336: arp_util.debug(l_overlapping_pds_sql, arp_global.MSG_LEVEL_DEBUG);
337: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
330: arp_global.MSG_LEVEL_DEBUG);
331:
332: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
333: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
334: arp_util.debug('----------------- Overlapping Periods SQL ---------------',
335: arp_global.MSG_LEVEL_DEBUG);
336: arp_util.debug(l_overlapping_pds_sql, arp_global.MSG_LEVEL_DEBUG);
337: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
338: arp_util.debug('length: ' || length(l_overlapping_pds_sql),
332: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
333: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
334: arp_util.debug('----------------- Overlapping Periods SQL ---------------',
335: arp_global.MSG_LEVEL_DEBUG);
336: arp_util.debug(l_overlapping_pds_sql, arp_global.MSG_LEVEL_DEBUG);
337: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
338: arp_util.debug('length: ' || length(l_overlapping_pds_sql),
339: arp_global.MSG_LEVEL_DEBUG);
340: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
333: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
334: arp_util.debug('----------------- Overlapping Periods SQL ---------------',
335: arp_global.MSG_LEVEL_DEBUG);
336: arp_util.debug(l_overlapping_pds_sql, arp_global.MSG_LEVEL_DEBUG);
337: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
338: arp_util.debug('length: ' || length(l_overlapping_pds_sql),
339: arp_global.MSG_LEVEL_DEBUG);
340: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
341:
334: arp_util.debug('----------------- Overlapping Periods SQL ---------------',
335: arp_global.MSG_LEVEL_DEBUG);
336: arp_util.debug(l_overlapping_pds_sql, arp_global.MSG_LEVEL_DEBUG);
337: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
338: arp_util.debug('length: ' || length(l_overlapping_pds_sql),
339: arp_global.MSG_LEVEL_DEBUG);
340: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
341:
342: /*-----------------------------------------------+
336: arp_util.debug(l_overlapping_pds_sql, arp_global.MSG_LEVEL_DEBUG);
337: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
338: arp_util.debug('length: ' || length(l_overlapping_pds_sql),
339: arp_global.MSG_LEVEL_DEBUG);
340: arp_util.debug('', arp_global.MSG_LEVEL_DEBUG);
341:
342: /*-----------------------------------------------+
343: | Open and Parse the All Periods Exist cursor |
344: +-----------------------------------------------*/
371: pg_form_pds_exist_cursor := l_all_pds_exist_cursor;
372: pg_form_overlapping_pds_cursor := l_overlapping_pds_cursor;
373: END IF;
374:
375: arp_util.print_fcn_label('arp_dates.prepare_val_gl_pds_sql_stmt()- ');
376:
377:
378: EXCEPTION
379: WHEN OTHERS THEN
381: /*---------------------------------------------+
382: | Display parameters and raise the exception |
383: +---------------------------------------------*/
384:
385: arp_util.debug(
386: 'EXCEPTION: arp_dates.prepare_val_gl_pds_sql_stmt()');
387:
388: arp_util.debug('');
389: arp_util.debug('---- parameters for prepare_val_gl_pds_sql_stmt() -----');
384:
385: arp_util.debug(
386: 'EXCEPTION: arp_dates.prepare_val_gl_pds_sql_stmt()');
387:
388: arp_util.debug('');
389: arp_util.debug('---- parameters for prepare_val_gl_pds_sql_stmt() -----');
390: arp_util.debug('p_ai_flag = ' ||
391: arp_trx_util.boolean_to_varchar2(p_ai_flag) );
392:
385: arp_util.debug(
386: 'EXCEPTION: arp_dates.prepare_val_gl_pds_sql_stmt()');
387:
388: arp_util.debug('');
389: arp_util.debug('---- parameters for prepare_val_gl_pds_sql_stmt() -----');
390: arp_util.debug('p_ai_flag = ' ||
391: arp_trx_util.boolean_to_varchar2(p_ai_flag) );
392:
393: RAISE;
386: 'EXCEPTION: arp_dates.prepare_val_gl_pds_sql_stmt()');
387:
388: arp_util.debug('');
389: arp_util.debug('---- parameters for prepare_val_gl_pds_sql_stmt() -----');
390: arp_util.debug('p_ai_flag = ' ||
391: arp_trx_util.boolean_to_varchar2(p_ai_flag) );
392:
393: RAISE;
394:
405: | |
406: | SCOPE - PUBLIC |
407: | |
408: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
409: | arp_util.debug |
410: | arp_util.print_fcn_label |
411: | dbms_sql.bind_variable |
412: | dbms_sql.define_column |
413: | dbms_sql.execute |
406: | SCOPE - PUBLIC |
407: | |
408: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
409: | arp_util.debug |
410: | arp_util.print_fcn_label |
411: | dbms_sql.bind_variable |
412: | dbms_sql.define_column |
413: | dbms_sql.execute |
414: | dbms_sql.execute_and_fetch |
446: l_result integer;
447:
448: BEGIN
449:
450: arp_util.print_fcn_label('arp_dates.val_gl_periods_for_rules()+ ');
451:
452: /*---------------------------------------------+
453: | Do nothing if the line does not use rules |
454: +---------------------------------------------*/
453: | Do nothing if the line does not use rules |
454: +---------------------------------------------*/
455:
456: IF ( p_acc_rule_id IS NULL )
457: THEN arp_util.debug('accounting_rule_id is null - no action taken');
458: arp_util.print_fcn_label('arp_dates.val_gl_periods_for_rules()- ');
459: RETURN;
460: END IF;
461:
454: +---------------------------------------------*/
455:
456: IF ( p_acc_rule_id IS NULL )
457: THEN arp_util.debug('accounting_rule_id is null - no action taken');
458: arp_util.print_fcn_label('arp_dates.val_gl_periods_for_rules()- ');
459: RETURN;
460: END IF;
461:
462: /*-----------------------------------------------------------------+
543: THEN
544:
545: l_count := dbms_sql.execute(pg_ai_pds_exist_cursor);
546:
547: arp_util.debug('AI periods exist validation count: ' || l_count,
548: arp_global.MSG_LEVEL_DEBUG);
549:
550:
551: l_count := dbms_sql.execute(pg_ai_overlapping_pds_cursor);
549:
550:
551: l_count := dbms_sql.execute(pg_ai_overlapping_pds_cursor);
552:
553: arp_util.debug('AI overlapping validation count : ' || l_count,
554: arp_global.MSG_LEVEL_DEBUG );
555: ELSE
556:
557: /*---------------------------------------------------------------+
564: FALSE);
565:
566: dbms_sql.column_value(pg_form_pds_exist_cursor, 1, l_result);
567:
568: arp_util.debug('Form periods exist validation count: ' || l_count ||
569: ' result: ' || l_result, arp_global.MSG_LEVEL_DEBUG);
570:
571: IF (
572: l_count = 0 OR
572: l_count = 0 OR
573: l_result = 2
574: )
575: THEN
576: arp_util.debug('Form periods exist validation failed');
577: fnd_message.set_name('AR', 'AR_RAXTRX-1783');
578: app_exception.raise_exception;
579: END IF;
580:
585:
586: l_count := dbms_sql.execute_and_fetch( pg_form_overlapping_pds_cursor,
587: FALSE);
588:
589: arp_util.debug('Form overlapping validation count: ' || l_count,
590: arp_global.MSG_LEVEL_DEBUG);
591:
592: IF ( l_count <> 0 )
593: THEN
590: arp_global.MSG_LEVEL_DEBUG);
591:
592: IF ( l_count <> 0 )
593: THEN
594: arp_util.debug('Form overlapping periods validation failed');
595: fnd_message.set_name('AR', 'AR_RAXTRX-1784');
596: app_exception.raise_exception;
597: END IF;
598:
598:
599:
600: END IF;
601:
602: arp_util.print_fcn_label('arp_dates.val_gl_periods_for_rules()- ');
603:
604:
605: EXCEPTION
606: WHEN OTHERS THEN
608: /*---------------------------------------------+
609: | Display parameters and raise the exception |
610: +---------------------------------------------*/
611:
612: arp_util.debug('EXCEPTION: arp_dates.val_gl_periods_for_rules()');
613:
614: arp_util.debug('');
615: arp_util.debug('------- parameters for val_gl_periods_for_rules() -------');
616:
610: +---------------------------------------------*/
611:
612: arp_util.debug('EXCEPTION: arp_dates.val_gl_periods_for_rules()');
613:
614: arp_util.debug('');
615: arp_util.debug('------- parameters for val_gl_periods_for_rules() -------');
616:
617: arp_util.debug( 'p_request_id = ' || p_request_id );
618: arp_util.debug( 'p_acc_rule_id = ' || p_acc_rule_id );
611:
612: arp_util.debug('EXCEPTION: arp_dates.val_gl_periods_for_rules()');
613:
614: arp_util.debug('');
615: arp_util.debug('------- parameters for val_gl_periods_for_rules() -------');
616:
617: arp_util.debug( 'p_request_id = ' || p_request_id );
618: arp_util.debug( 'p_acc_rule_id = ' || p_acc_rule_id );
619: arp_util.debug( 'p_acc_duration = ' || p_acc_duration );
613:
614: arp_util.debug('');
615: arp_util.debug('------- parameters for val_gl_periods_for_rules() -------');
616:
617: arp_util.debug( 'p_request_id = ' || p_request_id );
618: arp_util.debug( 'p_acc_rule_id = ' || p_acc_rule_id );
619: arp_util.debug( 'p_acc_duration = ' || p_acc_duration );
620: arp_util.debug( 'p_rule_start_date = ' || p_rule_start_date );
621: arp_util.debug( 'p_sob_id = ' || p_sob_id );
614: arp_util.debug('');
615: arp_util.debug('------- parameters for val_gl_periods_for_rules() -------');
616:
617: arp_util.debug( 'p_request_id = ' || p_request_id );
618: arp_util.debug( 'p_acc_rule_id = ' || p_acc_rule_id );
619: arp_util.debug( 'p_acc_duration = ' || p_acc_duration );
620: arp_util.debug( 'p_rule_start_date = ' || p_rule_start_date );
621: arp_util.debug( 'p_sob_id = ' || p_sob_id );
622:
615: arp_util.debug('------- parameters for val_gl_periods_for_rules() -------');
616:
617: arp_util.debug( 'p_request_id = ' || p_request_id );
618: arp_util.debug( 'p_acc_rule_id = ' || p_acc_rule_id );
619: arp_util.debug( 'p_acc_duration = ' || p_acc_duration );
620: arp_util.debug( 'p_rule_start_date = ' || p_rule_start_date );
621: arp_util.debug( 'p_sob_id = ' || p_sob_id );
622:
623: RAISE;
616:
617: arp_util.debug( 'p_request_id = ' || p_request_id );
618: arp_util.debug( 'p_acc_rule_id = ' || p_acc_rule_id );
619: arp_util.debug( 'p_acc_duration = ' || p_acc_duration );
620: arp_util.debug( 'p_rule_start_date = ' || p_rule_start_date );
621: arp_util.debug( 'p_sob_id = ' || p_sob_id );
622:
623: RAISE;
624:
617: arp_util.debug( 'p_request_id = ' || p_request_id );
618: arp_util.debug( 'p_acc_rule_id = ' || p_acc_rule_id );
619: arp_util.debug( 'p_acc_duration = ' || p_acc_duration );
620: arp_util.debug( 'p_rule_start_date = ' || p_rule_start_date );
621: arp_util.debug( 'p_sob_id = ' || p_sob_id );
622:
623: RAISE;
624:
625: END;
637: | |
638: | SCOPE - PUBLIC |
639: | |
640: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
641: | arp_util.debug |
642: | arp_util.print_fcn_label |
643: | |
644: | ARGUMENTS : IN: |
645: | p_customer_trx_id |
638: | SCOPE - PUBLIC |
639: | |
640: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
641: | arp_util.debug |
642: | arp_util.print_fcn_label |
643: | |
644: | ARGUMENTS : IN: |
645: | p_customer_trx_id |
646: | p_invoicing_rule_id |
673: actual_num_fiscal_year gl_periods.period_year%TYPE;
674:
675: BEGIN
676:
677: arp_util.print_fcn_label('arp_dates.get_date_based_on_rev_sched()+ ');
678:
679:
680: IF (p_invoicing_rule_id = IN_ADVANCE )
681: THEN
679:
680: IF (p_invoicing_rule_id = IN_ADVANCE )
681: THEN
682:
683: arp_util.debug('Invoicing Rule: In Advance',
684: arp_global.MSG_LEVEL_DEBUG);
685:
686: SELECT MIN(rl.rule_start_date)
687: INTO p_candidate_date
690: AND line_type = 'LINE';
691:
692: ELSE
693:
694: arp_util.debug('Invoicing Rule: In Arrears',
695: arp_global.MSG_LEVEL_DEBUG);
696: /*Bug 2505767, Added an additional check in the where clause to pick up only
697: those periods which match with the type defined in the set of books*/
698: SELECT COUNT(gp1.period_set_name)
788: ctl.rule_end_Date;
789:
790: END IF;
791:
792: arp_util.print_fcn_label('arp_dates.get_date_based_on_rev_sched()- ');
793:
794:
795: EXCEPTION
796: WHEN OTHERS THEN
798: /*---------------------------------------------+
799: | Display parameters and raise the exception |
800: +---------------------------------------------*/
801:
802: arp_util.debug('EXCEPTION: arp_dates.get_date_based_on_rev_sched()');
803:
804: arp_util.debug('');
805: arp_util.debug('---- parameters for get_date_based_on_rev_sched() ----');
806:
800: +---------------------------------------------*/
801:
802: arp_util.debug('EXCEPTION: arp_dates.get_date_based_on_rev_sched()');
803:
804: arp_util.debug('');
805: arp_util.debug('---- parameters for get_date_based_on_rev_sched() ----');
806:
807: arp_util.debug('p_customer_trx_id = ' || p_customer_trx_id );
808: arp_util.debug('p_invoicing_rule_id = ' || p_invoicing_rule_id );
801:
802: arp_util.debug('EXCEPTION: arp_dates.get_date_based_on_rev_sched()');
803:
804: arp_util.debug('');
805: arp_util.debug('---- parameters for get_date_based_on_rev_sched() ----');
806:
807: arp_util.debug('p_customer_trx_id = ' || p_customer_trx_id );
808: arp_util.debug('p_invoicing_rule_id = ' || p_invoicing_rule_id );
809:
803:
804: arp_util.debug('');
805: arp_util.debug('---- parameters for get_date_based_on_rev_sched() ----');
806:
807: arp_util.debug('p_customer_trx_id = ' || p_customer_trx_id );
808: arp_util.debug('p_invoicing_rule_id = ' || p_invoicing_rule_id );
809:
810: RAISE;
811:
804: arp_util.debug('');
805: arp_util.debug('---- parameters for get_date_based_on_rev_sched() ----');
806:
807: arp_util.debug('p_customer_trx_id = ' || p_customer_trx_id );
808: arp_util.debug('p_invoicing_rule_id = ' || p_invoicing_rule_id );
809:
810: RAISE;
811:
812: END;
827: | |
828: | SCOPE - PUBLIC |
829: | |
830: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
831: | arp_util.debug |
832: | arp_util.print_fcn_label |
833: | |
834: | ARGUMENTS : IN: |
835: | p_customer_trx_id |
828: | SCOPE - PUBLIC |
829: | |
830: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
831: | arp_util.debug |
832: | arp_util.print_fcn_label |
833: | |
834: | ARGUMENTS : IN: |
835: | p_customer_trx_id |
836: | OUT: |
897:
898:
899: BEGIN
900:
901: arp_util.print_fcn_label('arp_dates.derive_gl_trx_dates_from_rules()+ ');
902:
903:
904: /*---------------------------+
905: | Validate the parameters |
936: AND ct.customer_trx_id = p_customer_trx_id
937: AND ctlgd.account_class = 'REC'
938: AND ctlgd.latest_rec_flag = 'Y';
939:
940: arp_util.debug('DB trx_date: ' || l_db_trx_date ||
941: ', DB gl_date: ' || l_db_gl_date,
942: arp_global.MSG_LEVEL_DEBUG);
943: arp_util.debug('exchange rate: ' || l_exchange_rate ||
944: ', currency code: ' || l_currency_code,
939:
940: arp_util.debug('DB trx_date: ' || l_db_trx_date ||
941: ', DB gl_date: ' || l_db_gl_date,
942: arp_global.MSG_LEVEL_DEBUG);
943: arp_util.debug('exchange rate: ' || l_exchange_rate ||
944: ', currency code: ' || l_currency_code,
945: arp_global.MSG_LEVEL_DEBUG);
946:
947: arp_util.debug('invoicing_rule_id: ' || l_invoicing_rule_id,
943: arp_util.debug('exchange rate: ' || l_exchange_rate ||
944: ', currency code: ' || l_currency_code,
945: arp_global.MSG_LEVEL_DEBUG);
946:
947: arp_util.debug('invoicing_rule_id: ' || l_invoicing_rule_id,
948: arp_global.MSG_LEVEL_DEBUG);
949:
950: /*--------------------------------------------------------------------------+
951: | If the rule is In Advance, get the first date that revenue is recognized |
956: p_customer_trx_id,
957: l_invoicing_rule_id,
958: l_candidate_date
959: );
960: arp_util.debug('candidate date: ' || l_candidate_date,
961: arp_global.MSG_LEVEL_DEBUG);
962:
963: /*-------------------------------------------------------------------------+
964: | If l_candidate_date is null, it means that all of the lines have |
969: IF (l_candidate_date IS NULL )
970: THEN l_trx_date := l_db_trx_date;
971: l_gl_date := l_db_gl_date;
972:
973: arp_util.debug('Candidate date is null - no action taken',
974: arp_global.MSG_LEVEL_DEBUG);
975: ELSE
976:
977: /*-------------------------------------------------------+
988: l_period_num,
989: l_quarter_num
990: );
991:
992: arp_util.debug('closing status: ' || l_closing_status,
993: arp_global.MSG_LEVEL_DEBUG);
994:
995: IF (
996: l_closing_status = 'O' OR
1001: )
1002: )
1003: THEN
1004:
1005: arp_util.debug('candidate date passed closing status ' ||
1006: 'validation', arp_global.MSG_LEVEL_DEBUG);
1007:
1008: IF (l_db_gl_date <> l_candidate_date )
1009: THEN
1029: l_trx_date := l_candidate_date;
1030: END IF;
1031: ELSE
1032:
1033: arp_util.debug('candidate date failed closing status ' ||
1034: 'validation', arp_global.MSG_LEVEL_DEBUG);
1035:
1036: /*----------------------------------------------------+
1037: | If the candidate date is not in a closed period, |
1040:
1041: /* Bug 858875: Check closing status 'W' (close pending) */
1042: IF ( nvl(l_closing_status, 'Z') not in ( 'C', 'N', 'W') )
1043: THEN
1044: arp_util.debug('No accounting period defined for ' ||
1045: to_char( l_candidate_date ) ||
1046: ' closing status: ' ||
1047: l_closing_status);
1048:
1056: THEN l_allow_not_open_flag := 'Y';
1057: ELSE l_allow_not_open_flag := 'N';
1058: END IF;
1059:
1060: arp_util.debug('app_id: ' || pg_application_id ||
1061: ' , sob: ' || pg_set_of_books_id,
1062: arp_global.MSG_LEVEL_DEBUG);
1063:
1064: IF (arp_standard.validate_and_default_gl_date(
1082: THEN fnd_message.set_name('AR', 'GENERIC_MESSAGE');
1083: fnd_message.set_token('GENERIC_TEXT',
1084: l_error_message);
1085: fnd_message.set_name('AR', 'AR_TW_DERIVE_FAILURE');
1086: arp_util.debug(l_error_message);
1087: app_exception.raise_exception;
1088: ELSE arp_util.debug('defaulting rule used: ' ||
1089: l_defaulting_rule_used,
1090: arp_global.MSG_LEVEL_DEBUG);
1084: l_error_message);
1085: fnd_message.set_name('AR', 'AR_TW_DERIVE_FAILURE');
1086: arp_util.debug(l_error_message);
1087: app_exception.raise_exception;
1088: ELSE arp_util.debug('defaulting rule used: ' ||
1089: l_defaulting_rule_used,
1090: arp_global.MSG_LEVEL_DEBUG);
1091:
1092:
1089: l_defaulting_rule_used,
1090: arp_global.MSG_LEVEL_DEBUG);
1091:
1092:
1093: arp_util.debug('validate_and_default_gl_date() returned '
1094: || ' date : ' || l_default_gl_date,
1095: arp_global.MSG_LEVEL_DEBUG);
1096:
1097: IF (l_db_gl_date <> l_default_gl_date )
1096:
1097: IF (l_db_gl_date <> l_default_gl_date )
1098: THEN
1099: l_gl_date := l_default_gl_date;
1100: arp_util.debug('Preparing to set gl_date to ' ||
1101: l_default_gl_date);
1102: END IF;
1103:
1104: IF (
1110: l_db_trx_date <> l_default_gl_date
1111: )
1112: THEN
1113: l_trx_date := l_default_gl_date;
1114: arp_util.debug('Preparing to set trx_date to ' ||
1115: l_default_gl_date);
1116:
1117: END IF;
1118:
1134: p_trx_date := nvl(l_trx_date, p_trx_date);
1135: p_gl_date := nvl(l_gl_date, p_gl_date);
1136:
1137:
1138: arp_util.print_fcn_label('arp_dates.derive_gl_trx_dates_from_rules()- ');
1139:
1140: EXCEPTION
1141: WHEN OTHERS THEN
1142:
1143: /*---------------------------------------------+
1144: | Display parameters and raise the exception |
1145: +---------------------------------------------*/
1146:
1147: arp_util.debug('EXCEPTION: arp_dates.derive_gl_trx_dates_from_rules()');
1148:
1149: arp_util.debug('');
1150: arp_util.debug('---- parameters for derive_gl_trx_dates_from_rules() ----');
1151:
1145: +---------------------------------------------*/
1146:
1147: arp_util.debug('EXCEPTION: arp_dates.derive_gl_trx_dates_from_rules()');
1148:
1149: arp_util.debug('');
1150: arp_util.debug('---- parameters for derive_gl_trx_dates_from_rules() ----');
1151:
1152: arp_util.debug('p_customer_trx_id = ' || p_customer_trx_id);
1153: arp_util.debug('l_invoicing_rule_id = ' || l_invoicing_rule_id);
1146:
1147: arp_util.debug('EXCEPTION: arp_dates.derive_gl_trx_dates_from_rules()');
1148:
1149: arp_util.debug('');
1150: arp_util.debug('---- parameters for derive_gl_trx_dates_from_rules() ----');
1151:
1152: arp_util.debug('p_customer_trx_id = ' || p_customer_trx_id);
1153: arp_util.debug('l_invoicing_rule_id = ' || l_invoicing_rule_id);
1154:
1148:
1149: arp_util.debug('');
1150: arp_util.debug('---- parameters for derive_gl_trx_dates_from_rules() ----');
1151:
1152: arp_util.debug('p_customer_trx_id = ' || p_customer_trx_id);
1153: arp_util.debug('l_invoicing_rule_id = ' || l_invoicing_rule_id);
1154:
1155: RAISE;
1156:
1149: arp_util.debug('');
1150: arp_util.debug('---- parameters for derive_gl_trx_dates_from_rules() ----');
1151:
1152: arp_util.debug('p_customer_trx_id = ' || p_customer_trx_id);
1153: arp_util.debug('l_invoicing_rule_id = ' || l_invoicing_rule_id);
1154:
1155: RAISE;
1156:
1157: END;
1164: -- arp_trx_global.profile_info.application_id;
1165:
1166: EXCEPTION
1167: WHEN OTHERS THEN
1168: arp_util.debug('EXCEPTION: arp_dates');
1169: RAISE;
1170:
1171: END ARP_DATES;