#!/usr/bin/perl
require "read.cgi";
require "dbconnect.cgi";
require "dbfinish.cgi";
&Read_Split;
use DBI ;
&DbConnect;
print "content-type:text/html" ;
print "\n\n\n";
if($dbh) {
$sth = $dbh->prepare("select * from DailyOPD where Shift='M' and ODate = curdate()")
or die "Can't prepare statement: $dbh-errstr\n";
$rv = $sth->execute or die "Can't execute the query : $sth->errstr \n.";
$i=0;
while(@am = $sth->fetchrow_array )
{
$j=0;
foreach $rcd (@am)
{
$rowam[$i][$j] = $rcd ;
$j += 1;
}
$i += 1;
$acount =$i;
}
$sth = $dbh->prepare("select * from DailyOPD where Shift='A' and ODate = curdate()") or die "Can't prepare statement: $dbh-errstr\n";
$rv = $sth->execute or die "Can't execute the query : $sth->errstr \n.";
$i=0;
while(@pm = $sth->fetchrow_array )
{
$j=0;
foreach $rcd (@pm)
{
$rowpm[$i][$j] = $rcd ;
$j += 1;
}
$i += 1;
$pcount =$i;
}
$sth = $dbh->prepare(" select dayofmonth(ODate),monthname(ODate),year(ODate) from DailyOPD where ODate=\"$rowam[0][0]\" ") or die "Can't prepare statement: $dbh-errstr\n";
$rv = $sth->execute or die "Can't execute the query : $sth->errstr \n.";
@tdate = $sth->fetchrow_array;
}
print (" ");
print ("
");
print (" Doctor's duties ");
print (" ");
print (" ");
print (" ");
print (" ");
#print (" ");
#print (" ");
#print (" ");
#print (" ");
#print (" ");
#print (" ");
#print (" ");
#print (" ");
#print (" ");
#print (" | ");
#print (" ");
#print (" IIT Hospital");
#print (" Indian Institute of Technology, Bombay ");
#print (" Powai , Mumbai -400 076. ");
#print (" | ");
#print (" ");
#print (" ");
#print (" ");
#print (" ");
#print (" ");
#print (" | ");
#print ("
");
print (" ");
print (" ");
print (" ");
print (" ");
print (" ");
print (" ");
print (" ");
print (" ");
print (" ");
print (" Daily OPD Schedule | ");
print (" ");
print (" ");
print (" ");
print (" Date: $tdate[0] $tdate[1] $tdate[2] | ");
print (" ");
print (" ");
print (" ");
print (" | ");
print (" ");
print (" ");
print (" ");
print (" ");
print (" Morning Shift");
print (" :");
print (" | ");
print (" ");
print (" ");
print (" ");
print (" ");
print (" ");
print (" Doctor's");
print (" Name | ");
print (" Time From | ");
print (" Time To | ");
print (" ");
$i=0;
while ( $acount > 0)
{
print (" ");
print (" $rowam[$i][1] | ");
print (" $rowam[$i][3] AM | ");
print (" $rowam[$i][4] PM | ");
print (" ");
$i += 1;
$acount -= 1;
}
print (" ");
print (" ");
print (" | ");
print (" ");
print (" ");
print (" ");
print (" ");
print (" ");
print (" ");
print (" ");
print (" Afternoon Shift :");
print (" ");
print (" | ");
print (" ");
print (" ");
print (" ");
print (" ");
print (" ");
print (" ");
print (" Doctor's");
print (" Name | ");
print (" Time From | ");
print (" Time To | ");
print (" ");
$i=0;
while ( $pcount > 0)
{
print (" ");
print (" $rowpm[$i][1] | ");
print (" $rowpm[$i][3] PM | ");
print (" $rowpm[$i][4] PM | ");
print (" ");
$i += 1;
$pcount -= 1;
}
print (" ");
print (" ");
print (" ");
print (" ");
print (" | ");
print (" ");
print (" ");
print (" ");
print (" Doctors on Leave | ");
print (" ");
print (" ");
print (" ");
print (" $rowam[0][6] | ");
print (" ");
print (" ");
print (" ");
print (" Comments | ");
print (" ");
print (" ");
print (" ");
print (" $rowam[0][5] ");
print (" | ");
print (" ");
print (" ");
#print (" Homepage | ");
#print (" Daily OPD Schedule | ");
#print (" Monthly Schedule | ");
#print (" Hospital Departments | ");
#print (" Doctors | ");
#print (" Specialists |");
#print (" Special Clinics| ");
#print (" Vaccinations | ");
#print (" Other Info |");
#print (" Recognized Hospitals ");
#print (" ");
print (" |
");
print (" ");
print (" ");
&DbFinish;