568:
569: -- End bug 2089289
570:
571:
572: procedure get_date( p_ps_id IN ar_dispute_history.payment_schedule_id%TYPE,
573: p_last_dispute_date IN OUT NOCOPY ar_dispute_history.start_date%TYPE ) is
574: begin
575: select start_date into
576: p_last_dispute_date
569: -- End bug 2089289
570:
571:
572: procedure get_date( p_ps_id IN ar_dispute_history.payment_schedule_id%TYPE,
573: p_last_dispute_date IN OUT NOCOPY ar_dispute_history.start_date%TYPE ) is
574: begin
575: select start_date into
576: p_last_dispute_date
577: from ar_dispute_history
573: p_last_dispute_date IN OUT NOCOPY ar_dispute_history.start_date%TYPE ) is
574: begin
575: select start_date into
576: p_last_dispute_date
577: from ar_dispute_history
578: where payment_schedule_id = p_ps_id and
579: end_date is null;
580: -- arp_standard.enable_debug;
581: EXCEPTION
608: end;
609:
610:
611:
612: procedure get_flag( p_ps_id IN ar_dispute_history.payment_schedule_id%TYPE,
613: p_ever_in_dispute_flag IN OUT NOCOPY varchar2) IS
614: begin
615: select decode(min(start_date),
616: NULL , 'N',
615: select decode(min(start_date),
616: NULL , 'N',
617: 'Y' )
618: into p_ever_in_dispute_flag
619: from ar_dispute_history
620: WHERE payment_schedule_id = p_ps_id;
621: -- arp_standard.enable_debug;
622: EXCEPTION
623: WHEN OTHERS THEN