IIT Hospital Monthly OPD Schedule

#!/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 MonthlyOPD where Shift='M'") 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 MonthlyOPD where Shift='A'") 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 * from OffDays ") 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(@off = $sth->fetchrow_array ) { $j=0; foreach $rcd (@off) { $offday[$i][$j] = $rcd ; $j += 1; } $i += 1; $offcount =$i; } $sth = $dbh->prepare("select * from DocOnLeave ") 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(@lea = $sth->fetchrow_array ) { $j=0; foreach $rcd (@lea) { $leave[$i][$j] = $rcd ; $j += 1; } $i += 1; $leavecount =$i; } } print (" IIT Hospital Monthly OPD Schedule"); print (" "); print ("

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

"); #print ("

IIT "); #print (" Bombay Hospital "); #print ("

Indian Institute of Technology, "); #print (" Bombay

"); #print ("

Powai , Mumbai -400 076.

"); #print ("

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

OPD Schedule During $rowam[0][0]

Morning Shift

"); print ("

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

$rowam[$i][1]

$rowam[$i][2]

Afternoon Shift

"); print ("

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

$rowpm[$i][1]

$rowpm[$i][2]

"); print ("

Off Days of the Doctors for the month of $offday[0][2] "); print ("

"); print ("

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

$offday[$i][0]

$offday[$i][1]

"); if ( $leave[0][2] ) { print ("
Doctors on Leave:

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

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

$leave[$i][0]

$leave[$i][1]

"); print ("

"); } if ($rowam[0][4] ) { print ("
Comment:
"); print ("

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

$rowam[0][4]

"); 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 (" "); &DbFinish;