#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::Statement::Mechanical::CA::StatementFull;

use Carp;

use Data::Dumper;
use Date::Calc;

use lib '/app/tools/common/lib';
use Common::Assert;

use lib '/app/tools/rps/lib';
use RPS::Statement::Mechanical::CA::StatementTrackList;
use RPS::Statement::Mechanical::CA::StatementTransactionList;
use RPS::Statement::Mechanical::CA::StatementPublisherList;
use RPS::Statement::Mechanical::CA::BaseStatement;
use RPS::DB::Item::CAMechanicalStatement;
use RPS::Payor::Payor;

use base 'RPS::Statement::Mechanical::CA::BaseStatement';

sub _init {
    my ( $self, %args ) = @_;

    $self->{_focusPublisherID} = $args{focusPublisherID};

    $self->SUPER::_init(%args);

    return $self;
}

sub _initProperties {
    my ( $self, $props ) = @_;

    $self->SUPER::_initProperties($props);

    my $mechanicalStatementID = $props->{mechanical_statement_id};
    assert($mechanicalStatementID);

    $self->{NumLines} = Common::FormObject::Scalar->new( value => $self->_numLines($mechanicalStatementID) );

    if (   $self->{Publisher}->IsAdmin()
        || $self->{Publisher}->IsAgency() ) {
        $self->{MechanicalStatementPublisherList} = $self->_getStatementPublisherList( $mechanicalStatementID, $self->{_focusPublisherID} );
    } else {

        # Load the list of statement lines.
        #
        $self->{MechanicalStatementTrackList} = $self->_getStatementTrackList($mechanicalStatementID);
    }

    $self->{MechanicalStatementTransactionList} = $self->_getStatementTransactionList($mechanicalStatementID);

    $self->{Payor} = RPS::Payor::Payor->new( payorID => $props->{payor_id}, loadSubs => 0 );

    # jpk - transaction date is supposed to be the date this statement is submitted to hfa.
    #      So, we'll just use the current date.
    #
    my ( undef, undef, undef, $mday, $mon, $year, undef, undef, $isdst ) = localtime(time);
    my $now = sprintf( "%4d%02d%02d", $year + 1900, $mon + 1, $mday );
    $self->{TransactionDate} = Common::FormObject::Scalar->new( value => $now, readOnly => 1 );
}

sub _numLines {
    my ( $self, $id ) = @_;
    return RPS::DB::Item::CAMechanicalStatementItem->GetNumItemsByStatementID($id);
}

sub _getStatementPublisherList {
    my ( $self, $statementID, $focusPublisherID ) = @_;

    return RPS::Statement::Mechanical::CA::StatementPublisherList->new(
        mechanicalStatementID => $statementID,
        focusPublisherID      => $focusPublisherID,
    );
}

sub _getStatementTrackList {
    my ( $self, $statementID ) = @_;
    return RPS::Statement::Mechanical::CA::StatementTrackList->new( mechanicalStatementID => $statementID );
}

sub _getStatementTransactionList {
    my ( $self, $statementID ) = @_;
    return RPS::Statement::Mechanical::CA::StatementTransactionList->new( mechanicalStatementID => $statementID );
}

sub _calculateReportingPeriod {
    my ( $startDate, $endDate ) = @_;

    my ( $startYear, $startMonth, $startDay ) = split( '-', $startDate );
    my ( $endYear,   $endMonth,   $endDay )   = split( '-', $endDate );

    my ( $dy, $dm, $dd ) = Date::Calc::Delta_YMD( $startYear, $startMonth, $startDay, $endYear, $endMonth, $endDay );

    my $months = ( 12 * $dy ) + $dm;
    if ( $dd > 0 ) {
        $months++;
    }

    # Good ole' harry fox assumes the year is >= 2000.
    #
    my $period = sprintf( "%02d%02d%02d", $months, $endMonth, ( $endYear - 2000 ) );
    return $period;
}

###
1;    #
###