#!/usr/bin/perl
# first experiments in perl front end for mysql queries
use strict;
use warnings;

use DBI;

my $dbh = DBI->connect('dbi:mysql:preauth:localhost:3306','xyz','abc',
        {RaiseError => 1}) or die "Couldn't connect to database: " . D
+BI->errstr;

my $sth = $dbh->prepare('SELECT
                updated,
                preauth,
                patient,
                evidence,
                staff
                FROM facts WHERE cpt = ? and insco = ?');

# simple example of get_user_answers() code at [id://1180249]
my ($cptcode,$inscode) = get_user_answers (
                           "cpt code",
                           "insurance company code(3 characters)"); 
                         
$sth->execute($cptcode,$inscode);                         

# Read the matching records and print them out
print " Last update\t\tPre-auth\tPat ID\tEvidence\tAuthor\n";


while (my @data = $sth->fetchrow_array()) {
        my $onlydate = substr( $data[0], 0, 10 );
        my $preauth = $data[1];
        my $patient = $data[2];
        my $evidence = $data[3];
        my $staff = $data[4];
        print " $onlydate\t";
        
        print ($preauth eq '1' ? "Yes" : "No");
        print "\t$patient\t$evidence\t$staff\n";
}

if ($sth->rows == 0) {
        print "No matches for specified input.\n\n";
}

$sth->finish;     #not needed
print "\n";
$dbh->disconnect; # not needed, if you are exiting program
                  # disconnect will happen automatically.
                  # If more DB stuff happens after this,
                  # keep connection "alive".
[download]