Doctor's duties

#!/usr/bin/perl # Request comes from dailyopd.html 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"; $sth = $dbh->prepare("select * from DailyOPD where Shift='M' and ODate = (select max(ODate) from DailyOPD)") 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"; $sth = $dbh->prepare("select * from DailyOPD where Shift='A' and ODate = (select max(ODate) from DailyOPD)") 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 (" "); #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 (" "); print (" "); print (" "); print (" "); print (" "); print (" "); print (" "); print (" "); print (" "); print (" "); print (" "); print (" "); print (" "); print (" "); print (" "); print ("

"); print ("

"); print (" "); print (" "); print (" "); print (" "); print (" "); print (" "); print (" "); print ("

Daily OPD Schedule

"); print ("

Date: $tdate[0] $tdate[1] $tdate[2]

"); print ("

"); print (" Morning Shift"); print (" :"); print ("

"); print (" "); print (" "); print (" "); print (" "); print (" "); print (" "); print (" "); $i=0; while ( $acount > 0) { print (" "); print (" "); print (" "); print (" "); print (" "); $i += 1; $acount -= 1; } print ("

Doctor's"); print (" Name	Time From	Time To
$rowam[$i][1]	$rowam[$i][3] AM	$rowam[$i][4] PM

"); print (" "); print ("

"); print (" "); print (" "); print (" "); print (" "); print (" Afternoon Shift :"); print (" "); print ("

"); print (" "); print (" "); print (" "); print (" "); print (" "); print (" "); print (" "); $i=0; while ( $pcount > 0) { print (" "); print (" "); print (" "); print (" "); print (" "); $i += 1; $pcount -= 1; } print ("

Doctor's"); print (" Name	Time From	Time To
$rowpm[$i][1]	$rowpm[$i][3] PM	$rowpm[$i][4] PM

"); print (" "); print (" "); print (" "); print ("

"); print ("

Doctors on Leave

"); print ("

$rowam[0][6]

"); print ("

Comments

"); print ("

$rowam[0][5]

"); print ("

"); print (" "); print (" "); &DbFinish;