• Files
• Commits
• Log
• Graph
• Stats

package LIMS::DB::ReferralType;

use base qw(LIMS::RDBO);

#=begin
__PACKAGE__->meta->setup(
    table   => 'referral_types',

    columns => [
        id              => { type => 'serial', not_null => 1 },
        description     => { type => 'varchar', length => 255, not_null => 1 },
        prefix          => { type => 'varchar', length => 2 },
        default_unknown => { type => 'varchar', length => 255, not_null => 1 },
    ],

    primary_key_columns => [ 'id' ],

    unique_key => [ 'description' ],

    relationships => [
        parent_organisations => {
            class      => 'LIMS::DB::ParentOrganisation',
            column_map => { id => 'referral_type_id' },
            type       => 'one to many',
        },
        referral_sources => {
            class      => 'LIMS::DB::ReferralSource',
            column_map => { id => 'referral_type_id' },
            type       => 'one to many',
        },
        referrers => {
            class      => 'LIMS::DB::Referrer',
            column_map => { id => 'referral_type_id' },
            type       => 'one to many',
        },
        # add relationship for Model::Request::_build_referral_type_map()
        unknown_parent_org => {
            class      => 'LIMS::DB::ParentOrganisation',
            column_map => { default_unknown => 'parent_code' },
            type       => 'one to one',
            optional   => 1,
        },
        unknown_referrer => { # using locations instead of referrers now
            class      => 'LIMS::DB::Referrer',
            column_map => { default_unknown => 'national_code' },
            type       => 'one to one',
            optional   => 1,
        },
    ],
);

#=cut
=begin
__PACKAGE__->meta->table('referral_types');
__PACKAGE__->meta->auto_initialize;
 print __PACKAGE__->meta->perl_class_definition(indent => 4);
=cut

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

1;