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
1031: l_trx_date := l_db_trx_date;
1032: END IF;
1033: ELSE
1034:
1035: arp_util.debug('candidate date failed closing status ' ||
1036: 'validation', arp_global.MSG_LEVEL_DEBUG);
1037:
1038: /*----------------------------------------------------+
1039: | If the candidate date is not in a closed period, |
1042:
1043: /* Bug 858875: Check closing status 'W' (close pending) */
1044: IF ( nvl(l_closing_status, 'Z') not in ( 'C', 'N', 'W') )
1045: THEN
1046: arp_util.debug('No accounting period defined for ' ||
1047: to_char( l_candidate_date ) ||
1048: ' closing status: ' ||
1049: l_closing_status);
1050:
1058: THEN l_allow_not_open_flag := 'Y';
1059: ELSE l_allow_not_open_flag := 'N';
1060: END IF;
1061:
1062: arp_util.debug('app_id: ' || pg_application_id ||
1063: ' , sob: ' || pg_set_of_books_id,
1064: arp_global.MSG_LEVEL_DEBUG);
1065:
1066: IF (arp_standard.validate_and_default_gl_date(
1084: THEN fnd_message.set_name('AR', 'GENERIC_MESSAGE');
1085: fnd_message.set_token('GENERIC_TEXT',
1086: l_error_message);
1087: fnd_message.set_name('AR', 'AR_TW_DERIVE_FAILURE');
1088: arp_util.debug(l_error_message);
1089: app_exception.raise_exception;
1090: ELSE arp_util.debug('defaulting rule used: ' ||
1091: l_defaulting_rule_used,
1092: arp_global.MSG_LEVEL_DEBUG);
1086: l_error_message);
1087: fnd_message.set_name('AR', 'AR_TW_DERIVE_FAILURE');
1088: arp_util.debug(l_error_message);
1089: app_exception.raise_exception;
1090: ELSE arp_util.debug('defaulting rule used: ' ||
1091: l_defaulting_rule_used,
1092: arp_global.MSG_LEVEL_DEBUG);
1093:
1094:
1091: l_defaulting_rule_used,
1092: arp_global.MSG_LEVEL_DEBUG);
1093:
1094:
1095: arp_util.debug('validate_and_default_gl_date() returned '
1096: || ' date : ' || l_default_gl_date,
1097: arp_global.MSG_LEVEL_DEBUG);
1098:
1099: IF (l_db_gl_date <> l_default_gl_date OR l_db_gl_date is NULL)
1098:
1099: IF (l_db_gl_date <> l_default_gl_date OR l_db_gl_date is NULL)
1100: THEN
1101: l_gl_date := l_default_gl_date;
1102: arp_util.debug('Preparing to set gl_date to ' ||
1103: l_default_gl_date);
1104: END IF;
1105:
1106: IF (
1114: THEN
1115: -- Bug 6350680
1116: --l_trx_date := l_default_gl_date;
1117: l_trx_date := l_db_trx_date;
1118: arp_util.debug('Preparing to set trx_date to ' ||
1119: l_default_gl_date);
1120:
1121: END IF;
1122:
1138: p_trx_date := nvl(l_trx_date, p_trx_date);
1139: p_gl_date := nvl(l_gl_date, p_gl_date);
1140:
1141:
1142: arp_util.print_fcn_label('arp_dates.derive_gl_trx_dates_from_rules()- ');
1143:
1144: EXCEPTION
1145: WHEN OTHERS THEN
1146:
1147: /*---------------------------------------------+
1148: | Display parameters and raise the exception |
1149: +---------------------------------------------*/
1150:
1151: arp_util.debug('EXCEPTION: arp_dates.derive_gl_trx_dates_from_rules()');
1152:
1153: arp_util.debug('');
1154: arp_util.debug('---- parameters for derive_gl_trx_dates_from_rules() ----');
1155:
1149: +---------------------------------------------*/
1150:
1151: arp_util.debug('EXCEPTION: arp_dates.derive_gl_trx_dates_from_rules()');
1152:
1153: arp_util.debug('');
1154: arp_util.debug('---- parameters for derive_gl_trx_dates_from_rules() ----');
1155:
1156: arp_util.debug('p_customer_trx_id = ' || p_customer_trx_id);
1157: arp_util.debug('l_invoicing_rule_id = ' || l_invoicing_rule_id);
1150:
1151: arp_util.debug('EXCEPTION: arp_dates.derive_gl_trx_dates_from_rules()');
1152:
1153: arp_util.debug('');
1154: arp_util.debug('---- parameters for derive_gl_trx_dates_from_rules() ----');
1155:
1156: arp_util.debug('p_customer_trx_id = ' || p_customer_trx_id);
1157: arp_util.debug('l_invoicing_rule_id = ' || l_invoicing_rule_id);
1158:
1152:
1153: arp_util.debug('');
1154: arp_util.debug('---- parameters for derive_gl_trx_dates_from_rules() ----');
1155:
1156: arp_util.debug('p_customer_trx_id = ' || p_customer_trx_id);
1157: arp_util.debug('l_invoicing_rule_id = ' || l_invoicing_rule_id);
1158:
1159: RAISE;
1160:
1153: arp_util.debug('');
1154: arp_util.debug('---- parameters for derive_gl_trx_dates_from_rules() ----');
1155:
1156: arp_util.debug('p_customer_trx_id = ' || p_customer_trx_id);
1157: arp_util.debug('l_invoicing_rule_id = ' || l_invoicing_rule_id);
1158:
1159: RAISE;
1160:
1161: END;
1168: -- arp_trx_global.profile_info.application_id;
1169:
1170: EXCEPTION
1171: WHEN OTHERS THEN
1172: arp_util.debug('EXCEPTION: arp_dates');
1173: RAISE;
1174:
1175: END ARP_DATES;