• Files
• Commits
• Log
• Graph
• Stats

package LIMS::DB::HospitalDepartment;

use base qw(LIMS::RDBO);

__PACKAGE__->meta->setup(
    table   => 'hospital_departments',

    columns => [
        id           => { type => 'integer', not_null => 1 },
        display_name => { type => 'varchar', length => 50, not_null => 1 },
    ],

    primary_key_columns => [ 'id' ],

    unique_key => [ 'display_name' ],

    relationships => [
        referrer_department => {
            class      => 'LIMS::DB::ReferrerDepartment',
            column_map => { id => 'hospital_department_code' },
            type       => 'one to many',
        },
        email_contact => {
            class      => 'LIMS::DB::EmailContact',
            column_map => { id => 'department_id' },
            type       => 'one to many',
        },
    ],
);

#__PACKAGE__->meta->table('hospital_departments');
#__PACKAGE__->meta->auto_initialize;
# print __PACKAGE__->meta->perl_class_definition(indent => 2);

__PACKAGE__->meta->make_manager_class('hospital_departments');

1;