# Diagnostic Builders
sub _build_diagCCS {
    my $self = shift;
    return `"$self->{Dbin}"/GetParameter "$self->{Fverbose}" 1 1 0 1`;
}
sub _build_diagCFR {
    my $self = shift;
    return `"$self->{Dbin}"/GetParameter "$self->{Fverbose}" 2 1 7 1`;
}