• Files
• Commits
• Log
• Graph
• Stats

package LIMS::Model::Report;

use Moose;
extends 'LIMS::Model::Base';
with (
    'LIMS::Model::Roles::RequestUpdate',
    'LIMS::Model::Roles::ReportUpdate', # uses L::M::R::Outreach
);

use namespace::clean -except => 'meta';

has form_data => ( is => 'rw', isa => 'HashRef', default => sub { {} } );

__PACKAGE__->meta->make_immutable;

use Data::Dumper;

# ------------------------------------------------------------------------------
sub get_report {
    my ($self, $request_id) = @_;

    my $report = LIMS::DB::RequestReport->new(request_id => $request_id)
        ->load(speculative => 1); 

    return $report;
}

# ------------------------------------------------------------------------------
sub get_report_data {
    my ($self, $request_id) = @_;

    my $report = LIMS::DB::RequestReport->new(request_id => $request_id)
        ->load(with => ['request', 'diagnosis']); 

    return $report;
}

# ------------------------------------------------------------------------------
sub update_report {
    my $self = shift;
    my $data = shift; # $self->debug($data); 

	$self->form_data($data);
	
    # required params: status, diagnosis_id, specimen_quality, _request_id
    # possible params: general_notes, morphology, comment, clinical_details,
    # gross_decription, revision, _diagnosis_id, secondary_diagnosis_id

    my $db = $self->lims_db; # ie LIMS::DB->new_or_cached;
	
    my $update = sub {
        { # if params 'diagnosis_id' & '_diagnosis_id' & both different, archive:
            my $has_original_diagnosis = $data->{_diagnosis_id}; # optional field
			
            if ( $has_original_diagnosis && $self->has_changed_diagnosis ) {
                $self->do_request_diagnosis_history();
            }
        }

        # report section:
        $self->do_request_report(); # Roles::ReportUpdate

        # general_notes:
        $self->update_general_notes($data);
        
        # others (additional options):
        $self->do_additional_options();
       
        # request_history (actions set in Role::ReportUpdate):
        $self->do_request_history();
    };
#$self->set_rose_debug(1);

	my $ok = $db->do_transaction($update);	
#$self->set_rose_debug(0);
	
	# don't need return value unless error:
    return $ok ? 0 : 'update_report() error - ' . $db->error;
}

# ------------------------------------------------------------------------------
sub log_authorisation_diagnosis {
    my ($self, $data) = @_; # warn Dumper $data; return;
    
    my $update_success = LIMS::DB::RequestAuthorisationDiagnosis->new(
        report_diagnosis_id => $data->{_report_diagnosis_id},
        auth_diagnosis_id   => $data->{diagnosis_id},
        request_id          => $data->{_request_id},
        user_id             => $self->user_profile->{id},
    )->load_or_insert; # or 'insert_or_update()' if edits allowed
    
    # return $o->error if $o->error; # no - get "error" if load() part fails
    return $update_success ? 1 : 0; # probably same as: return $update_success 
}

1;