PageRenderTime 123ms CodeModel.GetById 24ms RepoModel.GetById 0ms app.codeStats 1ms

/pvaccine.php

https://github.com/johntrombly/vtracnow
PHP | 2349 lines | 1737 code | 105 blank | 507 comment | 274 complexity | b7d74c46e905bcc2c9f72658a850d40c MD5 | raw file
    

  1. <?php
    2. 

  2. // http://nathanj.github.io/gitguide/tour.html
    3. 

  3. $crlf = chr(13) . chr(10);
    4. 

  4. $d_quote = chr(34);
    5. 

  5. $cgi = $_SERVER['PHP_SELF'];
    6. 

  6. include ('include.txt');
    7. 

  7. $bio_table = "vt_test_biological";
    8. 

  8. $detail_table = "vt_test_detail";
    9. 

  9. $email_table = "vt_test_email";
    10. 

  10. $man_table = "vt_test_man";
    11. 

  11. $mydbf = "vaccine";
    12. 

  12. // $PHP_AUTH_USER is not used for the test application
    13. 

  13. // Set a var called $user_name
    14. 

  14. // The commented text is not changed
    15. 

  15. $user_name = "Test Web User";
    16. 

  16. $usr_access = "100";
    17. 

  17. // for pvaccine.php use $mytable = "p_detail";
    18. 

  18. // for pvaccine_state.php use $mytable = $mytable = "p_detail_mcd";
    19. 

  19. //$mytable = "p_detail"; // pvaccine.php
    20. 

  20. $mytable = $detail_table; // pvaccine.php
    21. 

  21. $content = "The following is an automated message from the Commercial Pediatric Vaccine Tracker.\r\nPlease do not respond via email reply because the reply mail box is bogus.\r\n\r\nMessage: %%message%%\r\n\r\n";
    22. 

  22. $from_string_addr = "From: Vaccine Tracker\r\n" ."Reply-To: webmaster@asthmaandallergy.com\r\n" ."X-Mailer: PHP/" . phpversion();
    23. 

  23. //$mytable = "p_detail_mcd"; // pvaccine_state.php
    24. 

  24. // in mybanner change the backgrounds pvaccine.php and pvaccine_state.php
    25. 

  25.   // use the top one for Pedi Commercial vaccines ---pvaccine.php---
    26. 

  26.   //$bk = "background='/backgrounds/water003.jpg'";
    27. 

  27.   // use the next one for Pedi State vaccines ---pvaccine_state.php--
    28. 

  28.   //$bk = "background='/backgrounds/comp010.jpg'";
    29. 

  29. // Also comment out the proper item below in the mybanner section  
    30. 

  30. //  echo "<title>Commercial Pediatric Vaccine Tracker</title>\n";
    31. 

  31. //  echo "<title>State Pediatric Vaccine Tracker</title>\n";  
    32. 

  32.   
    33. 

  33. 

  34. $exp_window = 30;
    35. 

  35. // time needs to have the format of 99:99 or else the sort will not work properly
    36. 

  36. // ie order by r_date, r_time ASC as well as c_date, c_time ASC!!!
    37. 

  37. // vaccine_list and expire seem to be the same code!
    38. 

  38. // Need to consolidate if true
    39. 

  39. // Keep expire and remove vaccine_list
    40. 

  40. //-- 
    41. 

  41. //-- Database: `inventory`
    42. 

  42. //-- 
    43. 

  43. //-- --------------------------------------------------------
    44. 

  44. //-- 
    45. 

  45. //-- Table structure for table `biological`
    46. 

  46. //-- 
    47. 

  47. //CREATE TABLE `biological` (
    48. 

  48. //  `id` double NOT NULL auto_increment,
    49. 

  49. //  `name` varchar(32) NOT NULL default '',
    50. 

  50. //  `state_memo` text NOT NULL,
    51. 

  51. //  `comm_memo` text NOT NULL,
    52. 

  52. //  PRIMARY KEY  (`id`)
    53. 

  53. //) ENGINE=MyISAM  DEFAULT CHARSET=latin1 AUTO_INCREMENT=21 ;
    54. 

  54. //
    55. 

  55. //-- --------------------------------------------------------
    56. 

  56. //-- 
    57. 

  57. //-- Table structure for table `detail`
    58. 

  58. //-- 
    59. 

  59. //CREATE TABLE `detail` (
    60. 

  60. //  `id` double NOT NULL auto_increment,
    61. 

  61. //  `biological_id` double NOT NULL default '0',
    62. 

  62. //  `man_id` double NOT NULL default '1',
    63. 

  63. //  `exp_date` date NOT NULL default '0000-00-00',
    64. 

  64. //  `lot_num` varchar(80) NOT NULL default '',
    65. 

  65. //  `r_name` varchar(30) NOT NULL default '',
    66. 

  66. //  `r_date` date NOT NULL default '0000-00-00',
    67. 

  67. //  `r_time` varchar(5) NOT NULL default '',
    68. 

  68. //  `r_ip` varchar(15) NOT NULL default '',
    69. 

  69. //  `consumed_ynd` enum('Y','N','D') NOT NULL default 'N',
    70. 

  70. //  `c_name` varchar(30) NOT NULL default '',
    71. 

  71. //  `c_date` date NOT NULL default '0000-00-00',
    72. 

  72. //  `c_time` varchar(5) NOT NULL default '',
    73. 

  73. //  `c_ip` varchar(15) NOT NULL default '',
    74. 

  74. //  `note` varchar(132) NOT NULL default '',
    75. 

  75. //  PRIMARY KEY  (`id`),
    76. 

  76. //  KEY `exp_date` (`exp_date`),
    77. 

  77. //  KEY `r_date` (`r_date`),
    78. 

  78. //  KEY `c_date` (`c_date`),
    79. 

  79. //  KEY `bilogical_id` (`biological_id`)
    80. 

  80. //) ENGINE=MyISAM  DEFAULT CHARSET=latin1 AUTO_INCREMENT=136 ;
    81. 

  81. 

  82. //-- 
    83. 

  83. //-- Table structure for table `vt_test_man`
    84. 

  84. //-- 
    85. 

  85. //
    86. 

  86. //CREATE TABLE `vt_test_man` (
    87. 

  87. //  `id` double NOT NULL auto_increment,
    88. 

  88. //  `name` varchar(32) NOT NULL default '',
    89. 

  89. //  PRIMARY KEY  (`id`)
    90. 

  90. //) ENGINE=MyISAM  DEFAULT CHARSET=latin1 AUTO_INCREMENT=8 ;
    91. 

  91. //
    92. 

  92. //-- 
    93. 

  93. //-- Dumping data for table `vt_test_man`
    94. 

  94. //-- 
    95. 

  95. //
    96. 

  96. //INSERT INTO `vt_test_man` (`id`, `name`) VALUES 
    97. 

  97. //(1, 'unknown'),
    98. 

  98. //(2, 'GSK'),
    99. 

  99. //(3, 'Merck'),
    100. 

  100. //(4, 'Norvatis'),
    101. 

  101. //(5, 'Sanofi'),
    102. 

  102. //(6, 'Wyeth'),
    103. 

  103. //(7, 'MedImmune');
    104. 

  104. 

  105. 

  106. 

  107. 

  108. // below is the short version of the program name ie secure.html
    109. 

  109. // use this one if we want the security to work reguardless of where the program lives
    110. 

  110. //$cgi = substr($PHP_SELF,strrpos($cgi,"/")+1);
    111. 

  111. 

  112. 

  113. // Select host here
    114. 

  114. $myHost = "local";
    115. 

  115. //$myHost = "ras";
    116. 

  116. //$myHost = "nec";
    117. 

  117. // end of Selection host
    118. 

  118. 

  119. // Make dbf connection here ($dbh)
    120. 

  120.     $dbh = mysql_connect('localhost', 'vtracuser','74mgMqGeL1nySu7xzMfl') or die("unable to open database");
    121. 

  121.     // $mydbf can change
    122. 

  122.     $mydbf = "vaccine";
    123. 

  123. 

  124. mysql_select_db("$mydbf") or die("unable to access database");
    125. 

  125. 

  126. 

  127. /*
    128. 

  128. // security code
    129. 

  129. if (!isset($PHP_AUTH_USER)) {
    130. 

  130.   Header("WWW-Authenticate: Basic realm=\"Pediatric Vaccine Tracker\"");
    131. 

  131.   Header("HTTP/1.0 401 Unauthorized");
    132. 

  132.   echo "Cancled by user\n";
    133. 

  133.   exit;
    134. 

  134. } else {
    135. 

  135.   // first let's do some self enrollment
    136. 

  136.   $q = "select count(id) from s_prog where name = $d_quote$cgi$d_quote";
    137. 

  137.   $r = mysql_query($q) or die(mysql_error());
    138. 

  138.   $found = mysql_result($r, 0, 0);
    139. 

  139.   if ($found < 1) { // time to enroll!
    140. 

  140.     $comment = "Name:" . chr(13) . "General:" . chr(13) . "Features:" . chr(13) . "Model:";
    141. 

  141.     $q = "insert into s_prog set name = $d_quote$cgi$d_quote, comment = $d_quote$comment$d_quote"; 
    142. 

  142.     $r = mysql_query($q) or die(mysql_error());
    143. 

  143.     // it is now enrolled!
    144. 

  144.   }
    145. 

  145.   $q = "select a.id
    146. 

  146.             from s_usr a, s_prog b, s_usr_prog_x c
    147. 

  147.             where a.name = $d_quote$PHP_AUTH_USER$d_quote and a.pass = $d_quote$PHP_AUTH_PW$d_quote and 
    148. 

  148.             b.id = c.s_prog_id and a.id = s_usr_id";
    149. 

  149.   $r = mysql_query($q) or die(mysql_error());
    150. 

  150.   $found = mysql_num_rows($r);
    151. 

  151.   if ($found < 1) { // User is not in database
    152. 

  152.     echo '<center><font size="+2">Access Forbidden!</font></center>';
    153. 

  153.     echo "<center><font size='+2'>User $PHP_AUTH_USER not on File<br>or password does not match</font></center>";
    154. 

  154.     exit;
    155. 

  155.   } else { // is this person registered with permission to this program?
    156. 

  156.     $row = mysql_fetch_array($r);
    157. 

  157.     $user_id = $row["id"]; // this is the user id
    158. 

  158.     // what is the program id??
    159. 

  159.     $q = "select id from s_prog where name = $d_quote$cgi$d_quote";
    160. 

  160.     $r = mysql_query($q) or die(mysql_error());
    161. 

  161.     $prog_id = mysql_result($r, 0, 0);
    162. 

  162.     // prepair the SQL
    163. 

  163.     $q = "select id, usr_access from s_usr_prog_x where s_usr_id = $d_quote$user_id$d_quote and s_prog_id = $d_quote$prog_id$d_quote";
    164. 

  164.     $r = mysql_query($q) or die(mysql_error());
    165. 

  165.     $found = mysql_num_rows($r);
    166. 

  166.     if ($found == 0) { //Houston, we have a problem
    167. 

  167.       echo '<center><font size="+2">Access Forbidden!</font></center>';
    168. 

  168.       echo "<center><font size='+2'>User $PHP_AUTH_USER does not have access to $cgi</font></center>";
    169. 

  169.       exit;
    170. 

  170.     } else {
    171. 

  171.       $row = mysql_fetch_array($r);
    172. 

  172.       $usr_access = $row["usr_access"];
    173. 

  173.     }
    174. 

  174.   }
    175. 

  175. }
    176. 

  176. // end of expermental code
    177. 

  177. //-------------------
    178. 

  178. */
    179. 

  179. 

  180. 

  181. function SendEmail($comment, $bio_table, $detail_table, $email_table)
    182. 

  182. {
    183. 

  183. 	$content = "The following is an automated message from the Commercial Pediatric Vaccine Tracker.\r\nPlease do not respond via email reply because the reply mail box is bogus.\r\n\r\nMessage: %%message%%\r\n\r\n";
    184. 

  184. 	$from_string_addr = "From: Commercial Vaccine Tracker\r\n" ."Reply-To: webmaster@asthmaandallergy.com\r\n" ."X-Mailer: PHP/" . phpversion();
    185. 

  185. 	$q = "select * from $bio_table order by name";
    186. 

  186. 	$r = mysql_query($q) or die(mysql_error());
    187. 

  187. 	$message = "The following is a listing of the existing Commercial Pediatric Vaccine Inventory\n";
    188. 

  188. 	if (mysql_num_rows($r) > 0) {
    189. 

  189. 		while ($row = mysql_fetch_array($r)) {
    190. 

  190. 			$bio_id = $row["id"];
    191. 

  191. 			$name = $row["name"];
    192. 

  192. 			$q2 = "select count(*) as mycount from $detail_table where biological_id = '$bio_id' and consumed_ynd = 'N'";
    193. 

  193. 			$r2 = mysql_query($q2) or die(mysql_error());
    194. 

  194. 			$row2 = mysql_fetch_array($r2);			  
    195. 

  195. 			$mycount = $row2["mycount"];
    196. 

  196. 			if ($mycount > 0) {
    197. 

  197. 				$message = $message . "$mycount - $name\n";
    198. 

  198. 			}
    199. 

  199. 		}
    200. 

  200.    } else {
    201. 

  201. 		$message = $message . "No Stock to report for the Commercial Pediatric Vaccine Inventory";
    202. 

  202.    }
    203. 

  203. 	$q = "select * from $bio_table order by name";
    204. 

  204. 	$r = mysql_query($q) or die(mysql_error());
    205. 

  205. 	$message = $message . "\n\nThe following is a listing of the existing State Pediatric Vaccine Inventory\n";
    206. 

  206. 	if (mysql_num_rows($r) > 0) {
    207. 

  207. 		while ($row = mysql_fetch_array($r)) {
    208. 

  208. 			$bio_id = $row["id"];
    209. 

  209. 			$name = $row["name"];
    210. 

  210. 			$q2 = "select count(*) as mycount from $detail_table where biological_id = '$bio_id' and consumed_ynd = 'N'";
    211. 

  211. 			$r2 = mysql_query($q2) or die(mysql_error());
    212. 

  212. 			$row2 = mysql_fetch_array($r2);			  
    213. 

  213. 			$mycount = $row2["mycount"];
    214. 

  214. 			if ($mycount > 0) {
    215. 

  215. 				$message = $message . "$mycount - $name\n";
    216. 

  216. 			}
    217. 

  217. 		}
    218. 

  218. 		$content = str_replace("%%message%%", $message, $content);
    219. 

  219. 	} else {
    220. 

  220. 		$message = $message . "No Stock to report for the State Pediatric Vaccine Inventory";
    221. 

  221. 	}
    222. 

  222. //	$content = $comment . "\n" . $content;
    223. 

  223. 	$q = "select * from $email_table where active_yn = 'Y'";
    224. 

  224. 	$r = mysql_query($q) or die(mysql_error());
    225. 

  225. 	$content = $comment . "\n" . $content;
    226. 

  226. 	while ($row = mysql_fetch_array($r)) {
    227. 

  227. 		$to = $row["addr"];
    228. 

  228. 		mail($to, "Automated Phone Message", $content, $from_string_addr);
    229. 

  229. //		mail($to, "$comment", $content, $from_string_addr);
    230. 

  230. //		echo "<br><center>Message has been sent to $to</center><br>";
    231. 

  231. 	}
    232. 

  232. } // end SendEmail
    233. 

  233. 

  234. //-------------------
    235. 

  235. function ValadateInput($txt, $type, $comment)
    236. 

  236. {
    237. 

  237. // send text and a type and get back an error comment
    238. 

  238. // if the error comment is empty, then it is ok
    239. 

  239. $retval = "";
    240. 

  240. switch ($type) {
    241. 

  241.   case "sname";
    242. 

  242.     $retval = "";
    243. 

  243.     if (strlen($txt) < 2) {
    244. 

  244.       $retval = "$comment '$txt' is too short<BR>\nMust be at least 2 characters long<br>\n";
    245. 

  245.     } 
    246. 

  246.     break;
    247. 

  247.   case "name";
    248. 

  248.     $retval = "";
    249. 

  249.     if (strlen($txt) < 3) {
    250. 

  250.       $retval = "$comment '$txt' is too short<BR>\nMust be at least 3 characters long<br>\n";
    251. 

  251.     } 
    252. 

  252.     break;
    253. 

  253.   case "date":
    254. 

  254.     $err_date = "Invalid date format for $comment: <BR>Cannot determine '$txt' as being a valid date<BR>";
    255. 

  255.     $retval = "";
    256. 

  256.     if (ereg ("([0-9]{1,2})/([0-9]{1,2})/([0-9]{2,4})", $txt, $regs)) {
    257. 

  257.       $mymonth = $regs[1];
    258. 

  258.       $mydate = $regs[2];
    259. 

  259.       $myyear = $regs[3];
    260. 

  260.       settype($mymonth, "integer");
    261. 

  261.       settype($mydate, "integer");
    262. 

  262.       settype($myyear, "integer");
    263. 

  263.       if ($myyear < 1 or $myyear > 2071) {
    264. 

  264.         $retval .= "<CENTER>$err_date The year is in question<br></CENTER><BR>";
    265. 

  265.       } else {
    266. 

  266.         if (($mymonth < 1) or ($mymonth > 12)) $retval .= "<CENTER>$err_date Month should be between 1 and 12<br></CENTER><BR>";
    267. 

  267.         if ($mydate < 1 or $mydate > 31) {
    268. 

  268.           $retval .= "<CENTER>$err_date No month has more than 31 days or less than 1 day<br></CENTER><BR>";
    269. 

  269.         } else {
    270. 

  270.           if ($mymonth == 4 or $mymonth == 6 or $mymonth == 9 or $mymonth == 11) {
    271. 

  271.             if ($mydate == 31) $retval .= "<CENTER>$err_date Only 30 days in this month (month #$mymonth)<BR></CENTER><BR>";
    272. 

  272.           } 
    273. 

  273. 	  if ($mymonth == 2) {
    274. 

  274. 	    if ($mydate > 29) $retval .= "<CENTER>$err_date There can never be more than 29 days in ANY Febuary<br></CENTER><BR>";
    275. 

  275. 	    if ($mydate == 29 and $myyear % 4 > 0) $retval .= "<CENTER>$err_date Only 28 days in THIS Febuary<br></CENTER><BR>";
    276. 

  276. 	  }
    277. 

  277.         } 
    278. 

  278.       } 
    279. 

  279.     } else {
    280. 

  280.       $retval .= "<center>$err_date Try using the MM/DD/YYYY format<BR></CENTER><BR>";
    281. 

  281.     } 
    282. 

  282.     break;
    283. 

  283.   case "email":
    284. 

  284.     $at_loc = strpos($txt, "@");
    285. 

  285.     $email_exp = "^[a-z0-9\._-]+@[a-z0-9\._-]+\.+[a-z]{2,3}$";
    286. 

  286.     if ($at_loc < 2) {
    287. 

  287.       $retval .= "Please check the prefix and @ sign<br>\n";
    288. 

  288.     } 
    289. 

  289.     $firstdot = strpos($txt, ".");
    290. 

  290.     $afterdot = substr($txt, $firstdot + 1);
    291. 

  291.     if ($firstdot < 1) {
    292. 

  292.       $retval .= "Please check the suffix for accuracy.<br>\n";
    293. 

  293.       $retval .= "(It should include a .com,.net,.org,.gov,.mil, or other)<br>\n";
    294. 

  294.       // 3/26/2003 jbt
    295. 

  295.       // Found email address with a dot prior to the @ ie john.trombly@goofy.org
    296. 

  296.       // making sure that there is a . after the @ and not allowing more than 2 dots prior to the @
    297. 

  297.     } else {
    298. 

  298.       if ($at_loc > $firstdot + strpos($afterdot, ".")) {
    299. 

  299.         $retval .= "Max of one dot prior to the @ sign<br>and<br>must have a dot after the @ sign<br>\n";
    300. 

  300.       } 
    301. 

  301.     } 
    302. 

  302.     if (!eregi($email_exp, $txt)) {
    303. 

  303.       $retval .= "Check Email address again for valid form";
    304. 

  304.     }
    305. 

  305.     if (strlen($retval) > 0) {
    306. 

  306.       $retval = "<center>Sorry. This $comment '$txt' seems wrong.<br>\n" . $retval . "</center><br>\n";
    307. 

  307.     } 
    308. 

  308.     break;
    309. 

  309.   case "num":
    310. 

  310.     if (strlen($txt) < 1) {
    311. 

  311.       $retval = "$comment is too short<BR>\nPut $comment in number format ie 999<br>\n";
    312. 

  312.     } else {
    313. 

  313.       if (!ereg("(^[0-9]{1,6})$", $txt)) {
    314. 

  314.         $retval = "$comment must be in this format<BR>9999<br>\n";
    315. 

  315.       } 
    316. 

  316.     } 
    317. 

  317.     if (strlen($retval) > 0) {
    318. 

  318.       $retval = "<center>Error in $comment ($txt).<br>\n" . $retval . "</center><br>\n";
    319. 

  319.     } 
    320. 

  320.     break;
    321. 

  321.   case "num62":
    322. 

  322.     if (strlen($txt) < 1) {
    323. 

  323.       $retval = "$comment is too short<BR>\nPut $comment in number format ie 999.99<br>\n";
    324. 

  324.     } else {
    325. 

  325.       if (!ereg("(^[0-9]{1,3}.[0-9]{1,2})$", $txt)) {
    326. 

  326.         $retval = "$comment must be in this format<BR>999.99<br>\n";
    327. 

  327.       } 
    328. 

  328.     } 
    329. 

  329.     if (strlen($retval) > 0) {
    330. 

  330.       $retval = "<center>Error in $comment ($txt).<br>\n" . $retval . "</center><br>\n";
    331. 

  331.     } 
    332. 

  332.     break;
    333. 

  333.   case "phone":
    334. 

  334.     if (strlen($txt) < 12) {
    335. 

  335.       $retval = "$comment is too short<BR>\nPut phone number in 999-999-9999<br>\n";
    336. 

  336.     } else {
    337. 

  337.       if (!ereg("([0-9]{3,3})-([0-9]{3,3})-([0-9]{3,3})", $txt)) {
    338. 

  338.         $retval = "Phone number must be in this format<BR>999-999-9999<br>\n";
    339. 

  339.       } 
    340. 

  340.     } 
    341. 

  341.     if (strlen($retval) > 0) {
    342. 

  342.       $retval = "<center>Error in $comment ($txt).<br>\n" . $retval . "</center><br>\n";
    343. 

  343.     } 
    344. 

  344.     break;
    345. 

  345.   case "time":
    346. 

  346.     if (strlen($txt) != 5) {
    347. 

  347.       $retval = "<br>$comment is not 5 characters long<br>Put time string like 99:99";
    348. 

  348.     } else {
    349. 

  349.       if (!ereg("([0-2]{1,1})([0-9]{1,1}):([0-5]{1,1})([0-9]{1,1})", $txt)) {
    350. 

  350.         $retval = "<br><b>$comment</b> is time and must be in this format<BR>hh:mm<br>hh must be less than 30<br>mm must be less than 60<br>\n";                                                                                                                }
    351. 

  351.     }
    352. 

  352.     break;
    353. 

  353.   case "time15":
    354. 

  354.     if (strlen($txt) != 5) {
    355. 

  355.       $retval = "<br>$comment is not 5 characters long<br>Put time string like 99:99";
    356. 

  356.     } else {
    357. 

  357.       if (!ereg("([0-2]{1,1})([0-9]{1,1}):([0-5]{1,1})([0-9]{1,1})", $txt)) {
    358. 

  358.         $retval = "<br><b>$comment</b> is time and must be in this format<BR>hh:mm<br>hh must be less than 30<br>mm must be less than 60<br>\n";
    359. 

  359.       } else {
    360. 

  360.         // 15 min or less!
    361. 

  361.         if (nJbtmin($txt) > 15 ) {
    362. 

  362.           $retval = "<br><b>$comment</b> is more than 15 min<BR>Try a setting of 15min or less<br>\n";
    363. 

  363. 	}
    364. 

  364.       }
    365. 

  365.     }
    366. 

  366.     break;
    367. 

  367.   case "YN":
    368. 

  368.     if (strlen($txt) != 1) {
    369. 

  369.       $retval = "<br>$comment is not 1 characters long<br>Only put Y or N";
    370. 

  370.     } else {
    371. 

  371.       if ($txt != 'Y' and $txt != 'N') {
    372. 

  372.         $retval = "<br>$comment can only be <b>Y</b> or <b>N</b><br>\n";
    373. 

  373.       }
    374. 

  374.     }
    375. 

  375.     break;
    376. 

  376.   default:
    377. 

  377.     $retval = "<center>Error<BR>Unable to data<BR>Data Type unknown</center><br>\n";
    378. 

  378.     break;
    379. 

  379. }  // end switch
    380. 

  380. 	return $retval;
    381. 

  381. } // end ValadateInput
    382. 

  382. //--------
    383. 

  383.  
    384. 

  384. function FixMyStringquote($mystring)
    385. 

  385. {
    386. 

  386. // *** ATTENTION ***
    387. 

  387. // Special Modified version allows single quotes to pass!
    388. 

  388. // Be sure that when this text is sent, double quites surround it in the SQL statement!
    389. 

  389. // *** ATTENTION ***
    390. 

  390. // This will remove the dangerous characters quotes and question mark
    391. 

  391. $temp = $mystring;
    392. 

  392. //$temp = str_replace("'", "",  $mystring); // byby single quote
    393. 

  393. $temp = str_replace('"', '"', $temp); // byby double quotes
    394. 

  394. $temp = str_replace("?", "", $temp); // byby question mark
    395. 

  395. $temp = str_replace("$", "", $temp); // byby Dollar sign (just for good measure
    396. 

  396. // no HTML tags should pass so no < or >
    397. 

  397. //$temp = str_replace("<", "", $temp); // byby start of HTML Tags
    398. 

  398. //$temp = str_replace(">", "", $temp); // byby end of HTML Tags
    399. 

  399. $mylen_now = strlen($temp);
    400. 

  400. $mylen_prior = $mylen_now + 1;
    401. 

  401. while ($mylen_now <> $mylen_prior) {
    402. 

  402.   $mylen_prior = strlen($temp);
    403. 

  403.   $temp = str_replace("  ", " ", $temp); // Get rid of ** ALL ** the white space!!
    404. 

  404.   $mylen_now = strlen($temp);
    405. 

  405. }
    406. 

  406. $bkslach = chr(92);
    407. 

  407. $temp = str_replace($bkslach, "", $temp); // byby Backslash because this is used to signal special characters)
    408. 

  408. 

  409. return $temp;
    410. 

  410. } // end of FixMyStringquote
    411. 

  411. 

  412. 

  413. //--------
    414. 

  414. function LinuxDate($date)
    415. 

  415. {
    416. 

  416. // takes a date string in MM/DD/YYYY format
    417. 

  417. // and returns it in YYYY-MM-DD format (for Mysql)
    418. 

  418. if (ereg ("([0-9]{1,2})/([0-9]{1,2})/([0-9]{2,4})", $date, $regs)) {
    419. 

  419.   $retval = "$regs[3]-$regs[1]-$regs[2]";
    420. 

  420. }
    421. 

  421. return $retval;
    422. 

  422. } //end of LinuxDate function
    423. 

  423. 

  424. //---------
    425. 

  425. function DosDate($date)
    426. 

  426. {
    427. 

  427. // takes a date string in YYYY-MM-DD format
    428. 

  428. // and returns it in MM/DD/YYYY format (for Regular People)
    429. 

  429. if (ereg ("([0-9]{2,4})-([0-9]{1,2})-([0-9]{1,2})", $date, $regs)) {
    430. 

  430.   $retval = "$regs[2]/$regs[3]/$regs[1]";
    431. 

  431. }
    432. 

  432. return $retval;
    433. 

  433. } //end of LinuxDate function
    434. 

  434. 

  435. //----------
    436. 

  436. 

  437. function FixMyString($mystring)
    438. 

  438. {
    439. 

  439. // *** ATTENTION ***
    440. 

  440. // Special Modified version allows single quotes to pass!
    441. 

  441. // Be sure that when this text is sent, double quites surround it in the SQL statement!
    442. 

  442. // *** ATTENTION ***
    443. 

  443. // This will remove the dangerous characters quotes and question mark
    444. 

  444. $temp = $mystring;
    445. 

  445. $temp = str_replace("'", "",  $mystring); // byby single quote
    446. 

  446. $temp = str_replace('"', "", $temp); // byby double quotes
    447. 

  447. $temp = str_replace("?", "", $temp); // byby question mark
    448. 

  448. $temp = str_replace("$", "", $temp); // byby Dollar sign (just for good measure
    449. 

  449. $temp = str_replace("&", "", $temp); // byby AND sign (makes html crankey
    450. 

  450. $temp = str_replace(",", "", $temp); // byby comma sign (makes html crankey as well
    451. 

  451. // no HTML tags should pass so no < or >
    452. 

  452. $temp = str_replace("<", "", $temp); // byby start of HTML Tags
    453. 

  453. $temp = str_replace(">", "", $temp); // byby end of HTML Tags
    454. 

  454. $mylen_now = strlen($temp);
    455. 

  455. $mylen_prior = $mylen_now + 1;
    456. 

  456. while ($mylen_now <> $mylen_prior) {
    457. 

  457.   $mylen_prior = strlen($temp);
    458. 

  458.   $temp = str_replace("  ", " ", $temp); // Get rid of ** ALL ** the white space!!
    459. 

  459.   $mylen_now = strlen($temp);
    460. 

  460. }
    461. 

  461. $bkslach = chr(92);
    462. 

  462. $temp = str_replace($bkslach, "", $temp); // byby Backslash because this is used to signal special characters)
    463. 

  463. return $temp;
    464. 

  464. } // end of FixMyString
    465. 

  465. 

  466. 

  467. function MeColorTR($count, $numCols)
    468. 

  468. {
    469. 

  469. // Puts in the color tag for a row (TR>
    470. 

  470. // numCols is the # of Colums desired
    471. 

  471. $setColor = $count % $numCols;
    472. 

  472. if ($setColor == 0 ) {
    473. 

  473. 	// Here is where we plan the color for the new Row
    474. 

  474. 	$setColor = intval($count / $numCols);
    475. 

  475. 	$setColor = $setColor%3;
    476. 

  476.       switch ($setColor) {
    477. 

  477.         case "0":
    478. 

  478.           echo "\n<tr bgcolor=#DDDDDD>";
    479. 

  479.           break;
    480. 

  480.         case "1":
    481. 

  481.           echo "\n<tr bgcolor=#CCCCCC>";
    482. 

  482.           break;
    483. 

  483.         case "2":
    484. 

  484.           echo "\n<tr bgcolor=#C0C0C0>";
    485. 

  485.           break;
    486. 

  486.         case "3":
    487. 

  487.           echo "\n<tr>";
    488. 

  488.           break;
    489. 

  489.       } // end switch
    490. 

  490. }
    491. 

  491.   // increment the counter
    492. 

  492.   $retval = $count + 1;
    493. 

  493.   return $retval;
    494. 

  494. } // end of MeColorTR
    495. 

  495. 

  496. function format_time($time)
    497. 

  497. {
    498. 

  498.   $retval = $time["hours"];
    499. 

  499.   if (strlen(trim($retval)) < 2) $ret_val = "0" . $retvalue;
    500. 

  500.   if (strlen(trim($time["minutes"])) < 2) {
    501. 

  501.     $retval = $retval . ":0" . $time["minutes"];
    502. 

  502.   } else {
    503. 

  503.     $retval = $retval . ":" . $time["minutes"];
    504. 

  504.   }
    505. 

  505.   $retval = str_pad($retval,5,"0",STR_PAD_LEFT);
    506. 

  506.   return $retval;
    507. 

  507. } // end of format_time
    508. 

  508. 

  509. function mybanner($string, $ding,$user_name)
    510. 

  510. {
    511. 

  511. // default banner for this program
    512. 

  512. // in mybanner change the backgrounds pvaccine.php and pvaccine_state.php
    513. 

  513.   // use the top one for Pedi Commercial vaccines ---pvaccine.php---
    514. 

  514.   $bk = "background='/backgrounds/pa-sw-602.jpg'";
    515. 

  515.   $bk = "background='/backgrounds/1.gif'";
    516. 

  516.   $bk = "background='/backgrounds/2.gif'";
    517. 

  517.   $bk = "background='/backgrounds/3.gif'";
    518. 

  518.   $bk = "background='/backgrounds/4.gif'";
    519. 

  519.   $bk = "background='/backgrounds/1a.gif'";
    520. 

  520.   $bk = "background='/backgrounds/bg1.png'";
    521. 

  521.   $bk = "background='/backgrounds/bg1a.png'";
    522. 

  522.   $bk = "background='/backgrounds/bg1c.png'";
    523. 

  523. //  public_html
    524. 

  524. //  pa-sw-602.jpg
    525. 

  525.   $myheadder = "== VTRACNOW ==<br>Vaccine Tracker";
    526. 

  526.   // use the next one for Pedi State vaccines ---pvaccine_state.php--
    527. 

  527. //  $bk = "background='/backgrounds/comp010.jpg'";
    528. 

  528. //  $myheadder = "State Pediatric Vaccine Tracker";
    529. 

  529.   // use the top one for Pedi Commercial vaccines
    530. 

  530.   echo '<!doctype html public "-//w3c//dtd html 3.2//en">' . "\n";
    531. 

  531.   echo "<html>\n";
    532. 

  532.   echo "<head>\n";
    533. 

  533. //  echo "<title>$myheadder</title>\n";
    534. 

  534.   echo "</head>\n";
    535. 

  535.   switch  ($ding) {
    536. 

  536.     case "yes":	  
    537. 

  537.       echo '<body bgcolor="#ffffff"' . $bk . ' text="#000000" link="#0000ff" vlink="#800080" alink="#ff0000"><bgsound src="cashregister.wav" loop="1">';
    538. 

  538.       break;
    539. 

  539.     case "foghorn":	  
    540. 

  540.       echo '<body bgcolor="#ffffff"' . $bk . ' text="#000000" link="#0000ff" vlink="#800080" alink="#ff0000"><bgsound src="foghorn.wav" loop="1">';
    541. 

  541.       break;
    542. 

  542.     case "tadah":
    543. 

  543.       echo '<body bgcolor="#ffffff"' . $bk . ' text="#000000" link="#0000ff" vlink="#800080" alink="#ff0000"><bgsound src="chimeup.wav" loop="1">';
    544. 

  544.       break;
    545. 

  545.     case "order":
    546. 

  546.       echo '<body bgcolor="#ffffff"' . $bk . ' text="#000000" link="#0000ff" vlink="#800080" alink="#ff0000"><bgsound src="order.wav" loop="1">';
    547. 

  547.       break;
    548. 

  548.     default :	  
    549. 

  549.       echo '<body bgcolor="#ffffff"' . $bk . ' text="#000000" link="#0000ff" vlink="#800080" alink="#ff0000">';
    550. 

  550.       break;
    551. 

  551.   }
    552. 

  552.   echo "<center><font size='+2'><b>$myheadder Administration</b></font></center><br>\n";
    553. 

  553.   echo "<center>Maintain Inventory<br><font size='+2'><b>User: $user_name</b></font></center>" . "\n";
    554. 

  554.   echo "<center><b><font size='+2'>== $string ==</font></b></center>\n";
    555. 

  555.   echo '<center>===================</center>' . "\n";
    556. 

  556.   $mydate = getdate(time());
    557. 

  557.   echo "<center><b>" . $mydate["month"] . " " . $mydate["mday"] . ", " .$mydate["year"] . "</b></center><br>\n";
    558. 

  558.   // No Back Button!!!!!
    559. 

  559.   echo "<script>\n";
    560. 

  560.   echo "history.forward();\n";
    561. 

  561.   echo "</script>\n";
    562. 

  562.   
    563. 

  563. } // end of mybanner
    564. 

  564. 

  565. function NavBar($cgi, $act, $usr_access)
    566. 

  566. {
    567. 

  567. // Displays links for navigation in this program
    568. 

  568.   $d_quote = chr(34);
    569. 

  569.   echo "<center><table  width='80%' border='1' cellspacing='0' cellpadding='4'>\n";
    570. 

  570.   if ($usr_access > 50) {
    571. 

  571. 	echo "<tr><td colspan='5'><center>== Main Navigation Controls $usr_access ==</center></td></tr>\n";
    572. 

  572. 	$width = "20%";
    573. 

  573.   } else {
    574. 

  574. 	echo "<tr><td colspan='4'><center>== Main Navigation Controls $usr_access ==</center></td></tr>\n";
    575. 

  575. 	$width = "25%";
    576. 

  576.   }
    577. 

  577.   echo "<td width='$width'><center><a href='$cgi?act=menu'>List or Add Vaccine</a></center></td>\n";
    578. 

  578.   echo "<td width='$width'><center><a href='$cgi?act=vaccine_list'>List On-Hand</a></center></td>\n";
    579. 

  579.   echo "<td width='$width'><center><a href='$cgi?act=date_report'>Report by Date Range</a></center></td>\n";
    580. 

  580.   echo "<td width='$width'><center><a href='$cgi?act=lot_grid'>Lot Number Grid</a></center></td>\n";
    581. 

  581.   if ($usr_access > 50) {
    582. 

  582. //	echo "<td width='$width'><center><a href='$cgi?act=trash'>Remove Consume/Destroy History</a></center></td>\n";
    583. 

  583.   }
    584. 

  584. //  echo "<td width='25%'><center><a href='$cgi?act=income'>Incoming</a></center></td></tr>\n";
    585. 

  585. 

  586.   echo "</table></center>\n";
    587. 

  587.   if ($usr_access > 50) {
    588. 

  588. 		echo "<br><br><center><table  width='60%' border='1' cellspacing='0' cellpadding='4'>\n";
    589. 

  589. 		echo "<tr><td><center><a href='$cgi?act=dumpxl'>Dump All Records to Spreadsheet</a></center></td>";
    590. 

  590. 		echo "<td><center><a href='$cgi?act=dumptxt'>Dump All Records to Text</a></center></td>";
    591. 

  591. 		echo "</tr></table></center>";
    592. 

  592.   }
    593. 

  593.   
    594. 

  594. /*  
    595. 

  595.    $q = "select count(id) from counter where
    596. 

  596. act = $d_quote$act$d_quote and cgi = $d_quote$cgi$d_quote";
    597. 

  597.  //echo "$q<br>";
    598. 

  598.   $r = mysql_query($q) or die(mysql_error());
    599. 

  599.   $found = mysql_result($r, 0, 0);
    600. 

  600.   if ($found > 0) { // We have a counter
    601. 

  601.     $q = "select id, count from counter where act = $d_quote$act$d_quote and cgi = $d_quote$cgi$d_quote";
    602. 

  602.     $r = mysql_query($q) or die(mysql_error());
    603. 

  603.     $row = mysql_fetch_array($r);
    604. 

  604.     $myid = $row["id"];
    605. 

  605.     $mycount = $row["count"];
    606. 

  606.     ++$mycount;
    607. 

  607.     $q = "update counter set count = $d_quote$mycount$d_quote where id = $d_quote$myid$d_quote";
    608. 

  608.     $r = mysql_query($q) or die(mysql_error());
    609. 

  609.   } else {
    610. 

  610.     $mycount = 1;
    611. 

  611.     $q = "insert into counter set act = $d_quote$act$d_quote, cgi = $d_quote$cgi$d_quote, count = $d_quote$mycount$d_quote";
    612. 

  612.     $r = mysql_query($q) or die(mysql_error());
    613. 

  613.   }
    614. 

  614.   echo '<br><CENTER><A HREF="http://gnatbox/ccaac/index.php">Main page</A></CENTER>' . "\n";
    615. 

  615.   // now we have the digits to worry about. note that the text version is commented out
    616. 

  616.   $dig_array = array("bluesky", "curly", "default", "embwhite", "led", "led_g",
    617. 

  617.                                   "led_r", "links", "odometer", "plain_b", "pumpkin", "xmas");
    618. 

  618.   $dig_dir = "/images/digits/" . $dig_array[rand() % 11] . "/";
    619. 

  619.   $tempString = $mycount;
    620. 

  620.   $end = strlen($tempString);
    621. 

  621.   echo "<br><center>";
    622. 

  622.   //lets get the characters!
    623. 

  623.   for ($i = 0; $i < $end; $i++) {
    624. 

  624.     echo "<img src='";
    625. 

  625.     echo $dig_dir . substr($tempString,$i,1) . ".gif'>";
    626. 

  626.   }
    627. 

    628. 

  628.   echo "</center>";
    629. 

  629.   echo '<H1 align=right><IMG SRC="/images/php-small-white.gif" ALT="Powered by PHP!"></H1>' . "\n";
    630. 

  630. echo "</body></html>";
    631. 

    632. 

  632. */
    633. 

  633. } // end of NavBar
    634. 

  634. 

  635. function My_Lister($bio_name, $q, $type)
    636. 

  636. {
    637. 

  637. //  $type consumed
    638. 

  638.       $r = mysql_query($q) or die(mysql_error());
    639. 

  639.       $max = mysql_num_rows($r);
    640. 

  640. //	  echo "<br>$q<br>";
    641. 

  641.       if ($max > 0) {
    642. 

  642. //	    echo "<hr width='45%' align=center>";
    643. 

  643. 	    echo "<center><table  width='95%' border='1' cellspacing='0' cellpadding='4'>\n";
    644. 

  644. 		echo "<tr bgcolor=#ffffff><td colspan=7><center>$max records found</center></td></tr>";
    645. 

  645.         if ($type == "received") {
    646. 

  646. 			echo "<tr bgcolor=#ffffff><td>Lot #</td><td>Exp Date</td>
    647. 

  647. 			  <td>Recorded Reveived by</td><td>Date</td><td>Time</td><td>Computer</td><td>Note</td>
    648. 

  648. 			  </tr>";
    649. 

  649. 		} else {
    650. 

  650. 			if ($type == "destroyed") {
    651. 

  651. 				echo "<tr bgcolor=#ffffff><td>Lot #</td><td>Exp Date</td>
    652. 

  652. 				  <td>Recorded Destroyed by</td><td>Date</td><td>Time</td><td>Computer</td><td>Note</td>
    653. 

  653. 				  </tr>";
    654. 

  654. 			} else {
    655. 

  655. 				echo "<tr bgcolor=#ffffff><td>Lot #</td><td>Exp Date</td>
    656. 

  656. 				  <td>Recorded Consumed by</td><td>Date</td><td>Time</td><td>Computer</td><td>Note</td>
    657. 

  657. 				  </tr>";
    658. 

  658. 			 } 
    659. 

  659. 		}
    660. 

  660.       	$color = 0;
    661. 

  661.         while ($row = mysql_fetch_array($r)) {
    662. 

  662.           $color = MeColorTR($color, 1);
    663. 

  663. 		  $lot_num = $row["lot_num"];
    664. 

  664. 		  $exp_date = DosDate($row["exp_date"]);
    665. 

  665. 		  $c_name = $row["c_name"];
    666. 

  666. 		  $c_date = DosDate($row["c_date"]);
    667. 

  667. //   	      $c_time = str_pad($row["c_time"],5,"0",STR_PAD_LEFT);
    668. 

  668.    	      $c_time = $row["c_time"];
    669. 

  669.           $c_ip = $row["c_ip"];
    670. 

  670. 		  $r_name = $row["r_name"];
    671. 

  671. 		  $r_date = DosDate($row["r_date"]);
    672. 

  672. //   	      $r_time = str_pad($row["r_time"],5,"0",STR_PAD_LEFT);
    673. 

  673. 		  $r_time = $row["r_time"];	
    674. 

  674.           $r_ip = $row["r_ip"];
    675. 

  675.    	      $bio_id = $row["bio_id"];
    676. 

  676. 		  $det_id = $row["det_id"];
    677. 

  677. 		  $note = $row["note"];
    678. 

  678. 		  if (strlen($note) < 1) $note = "--";
    679. 

  679. 		  //$computer = $row["computer"];
    680. 

  680. 		  if ($type == "received") {
    681. 

  681. 			  echo "<td>$lot_num</td><td>$exp_date</td><td>$r_name</td>
    682. 

  682. 				<td>$r_date</td><td>$r_time</td><td>$r_ip</td><td>$note</td>";
    683. 

  683. 			  echo "</tr>\n"; 
    684. 

  684. 		  } else {
    685. 

  685. 			  echo "<td>$lot_num</td><td>$exp_date</td><td>$c_name</td>
    686. 

  686. 				<td>$c_date</td><td>$c_time</td><td>$c_ip</td><td>$note</td>";
    687. 

  687. 			  echo "</tr>\n"; 
    688. 

  688. 		  }
    689. 

  689.         }
    690. 

  690.       	echo "</table></center><br><br>\n";
    691. 

  691.       } else {
    692. 

  692.         echo "<center><font size='+2'><br><font color=#ff0000>ERROR</font><br>There are no consumed $bio_name</font></center><br><br>";
    693. 

  693.       }
    694. 

  694. //	  echo "<br><br><center>Done by My_Lister</center><br>";
    695. 

  695. } // end of My_Lister
    696. 

  696. 

  697. 

  698. function Full_Lister($bio_name, $q)
    699. 

  699. {
    700. 

  700. //  $type consumed
    701. 

  701.       $r = mysql_query($q) or die(mysql_error());
    702. 

  702.       $max = mysql_num_rows($r);
    703. 

  703.       if ($max > 0) {
    704. 

  704. //	    echo "<hr width='45%' align=center>";
    705. 

  705. 	    echo "<center><table  width='95%' border='1' cellspacing='0' cellpadding='4'>\n";
    706. 

  706. 		echo "<tr bgcolor=#ffffff><td colspan=12><center>$max records found</center></td></tr>";
    707. 

  707. 		echo "<tr bgcolor=#ffffff>
    708. 

  708. 		  <td>Consumed Destroyed  or Received</td>
    709. 

  709. 		  <td>Lot #</td><td>Exp Date</td>
    710. 

  710. 		  <td>Recorded Reveived by</td><td>Date</td><td>Time</td><td>Computer</td>
    711. 

  711. 		  <td>Recorded Consumed or Destroyed by</td><td>Date</td><td>Time</td><td>Computer</td>
    712. 

  712. 		  <td>Note</td>
    713. 

  713. 		  </tr>";
    714. 

  714.       	$color = 0;
    715. 

  715.         while ($row = mysql_fetch_array($r)) {
    716. 

  716.           $color = MeColorTR($color, 1);
    717. 

  717. 		  $lot_num = $row["lot_num"];
    718. 

  718. 		  $exp_date = DosDate($row["exp_date"]);
    719. 

  719. 		  $r_name = $row["r_name"];
    720. 

  720. 		  $r_date = DosDate($row["r_date"]);
    721. 

  721.    	      $r_time = str_pad($row["r_time"],5,"0",STR_PAD_LEFT);
    722. 

  722.           $r_ip = $row["r_ip"];
    723. 

  723. 		  $c_name = $row["c_name"];
    724. 

  724. 		  if (strlen(trim($c_name)) < 1) $c_name = "--";
    725. 

  725. 		  $c_date = DosDate($row["c_date"]);
    726. 

  726. 		  if ($c_date == "00/00/0000") $c_date = "--";
    727. 

  727.    	      $c_time = str_pad($row["c_time"],5,"0",STR_PAD_LEFT);
    728. 

  728. 		  if ($c_time == "00000") $c_time = "--";
    729. 

  729.           $c_ip = $row["c_ip"];
    730. 

  730. 		  if (strlen(trim($c_ip)) < 1) $c_ip = "--";
    731. 

  731.    	      $bio_id = $row["bio_id"];
    732. 

  732. 		  $det_id = $row["det_id"];
    733. 

  733. 		  $ynd = $row["consumed_ynd"];
    734. 

  734. 		  if ($ynd == "Y") $ynd = "Consumed";
    735. 

  735. 		  if ($ynd == "N") $ynd = "Received";
    736. 

  736. 		  if ($ynd == "D") $ynd = "Destroyed";
    737. 

  737. 		  $note = $row["note"];
    738. 

  738. 		  if (strlen($note) < 1) $note = "--";
    739. 

  739. 		  //$computer = $row["computer"];
    740. 

  740. 		  echo "<td>$ynd</td><td>$lot_num</td><td>$exp_date</td>
    741. 

  741. 		    <td>$r_name</td><td>$r_date</td><td>$r_time</td><td>$r_ip</td>
    742. 

  742. 		    <td>$c_name</td><td>$c_date</td><td>$c_time</td>";
    743. 

  743. 		  if ($c_ip == "--") {
    744. 

  744. 			echo "<td>$c_ip</td>";
    745. 

  745.           } else {
    746. 

  746. 			echo "<td>$c_ip</td>";
    747. 

  747.           }		  
    748. 

  748. 		  echo "<td>$note</td>";
    749. 

  749. 		  echo "</tr>\n";
    750. 

  750.         }
    751. 

  751.       	echo "</table></center><br><br>\n";
    752. 

  752.       } else {
    753. 

  753.         echo "<center><font size='+2'><br><font color=#ff0000>ERROR</font><br>There are no consumed $bio_name</font></center><br><br>";
    754. 

  754.       }
    755. 

  755. //	  echo "<br><br><center>Done by Full_Lister</center><br>";
    756. 

  756. } // end of Full_Lister
    757. 

  757. 

  758. function My_xls_dump($q)
    759. 

  759. {
    760. 

  760. 	$r = mysql_query($q) or die(mysql_error());
    761. 

  761. 	echo "<table>";
    762. 

  762. 	echo "<tr><td>Vaccine</td><td>Man</td><td>Consumed Destroyed  or Received</td>
    763. 

  763. 		  <td>Lot #</td><td>Exp Date</td>
    764. 

  764. 		  <td>Recorded Reveived by</td><td>Date</td><td>Time</td><td>Computer</td>
    765. 

  765. 		  <td>Recorded Consumed or Destroyed by</td><td>Date</td><td>Time</td><td>Computer</td>
    766. 

  766. 		  <td>Notes</td></tr>";
    767. 

  767. 	while ($row = mysql_fetch_array($r)) {
    768. 

  768. 		$vac_name = $row["bio_name"];
    769. 

  769. 		$man_name = $row["man_name"];
    770. 

  770. 		$lot_num = $row["lot_num"];
    771. 

  771. 		$exp_date = DosDate($row["exp_date"]);
    772. 

  772. 		$r_name = $row["r_name"];
    773. 

  773. 		$r_date = DosDate($row["r_date"]);
    774. 

  774. 		$r_time = str_pad($row["r_time"],5,"0",STR_PAD_LEFT);
    775. 

  775. 		$r_ip = $row["r_ip"];
    776. 

  776. 		$c_name = $row["c_name"];
    777. 

  777. 		if (strlen(trim($c_name)) < 1) $c_name = "--";
    778. 

  778. 		$c_date = DosDate($row["c_date"]);
    779. 

  779. 		if ($c_date == "00/00/0000") $c_date = "--";
    780. 

  780. 		$c_time = str_pad($row["c_time"],5,"0",STR_PAD_LEFT);
    781. 

  781. 		if ($c_time == "00000") $c_time = "--";
    782. 

  782. 		$c_ip = $row["c_ip"];
    783. 

  783. 		if (strlen(trim($c_ip)) < 1) $c_ip = "--";
    784. 

  784. 		$bio_id = $row["bio_id"];
    785. 

  785. 		$det_id = $row["det_id"];
    786. 

  786. 		$ynd = $row["consumed_ynd"];
    787. 

  787. 		if ($ynd == "Y") $ynd = "Consumed";
    788. 

  788. 		if ($ynd == "N") $ynd = "Received";
    789. 

  789. 		if ($ynd == "D") $ynd = "Destroyed";
    790. 

  790. 		$note = $row["note"];
    791. 

  791. 		if (strlen($note) < 1) $note = "--";
    792. 

  792. 		//$computer = $row["computer"];
    793. 

  793. 		echo "<td>$vac_name</td><td>$man_name</td><td>$ynd</td><td>$lot_num</td><td>$exp_date</td>
    794. 

  794. 		<td>$r_name</td><td>$r_date</td><td>$r_time</td><td>$r_ip</td>
    795. 

  795. 		<td>$c_name</td><td>$c_date</td><td>$c_time</td>";
    796. 

  796. 		echo "<td>$c_ip</td>";
    797. 

  797. 		echo "<td>$note</td>";
    798. 

  798. 		echo "</tr>\n";
    799. 

  799. 	}
    800. 

  800. 	echo "</table>";
    801. 

  801. } // end of My_xls_dump
    802. 

  802. 

  803. function My_txt_dump($q)
    804. 

  804. {
    805. 

  805. 	$crlf = chr(13) . chr(10);
    806. 

  806. 	$d_quote = chr(34);
    807. 

  807. 	$tab = chr(9);
    808. 

  808. 	$r = mysql_query($q) or die(mysql_error());
    809. 

  809. 	echo str_pad("Vaccine",32) . $tab;
    810. 

  810. 	echo str_pad("Man",32) . $tab;
    811. 

  811. 	echo str_pad("Consumed Destroyed  or Received",31) . $tab;
    812. 

  812. 	echo str_pad("Lot #",80) . $tab;
    813. 

  813. 	echo str_pad("Exp Date",10) . $tab;
    814. 

  814. 	echo str_pad("Recorded Reveived by", 30) . $tab;
    815. 

  815. 	echo str_pad("Date", 10) . $tab;
    816. 

  816. 	echo str_pad("Time", 5) . $tab;
    817. 

  817. 	echo str_pad("Computer IP", 15) . $tab;
    818. 

  818. 	echo str_pad("Recorded Consumed or Destroyed by", 30) . $tab;
    819. 

  819. 	echo str_pad("Date", 10) . $tab;
    820. 

  820. 	echo str_pad("Time", 5) . $tab;
    821. 

  821. 	echo str_pad("Computer IP", 15) . $tab;
    822. 

  822. 	echo str_pad("Comment", 132) . $tab;
    823. 

  823. 	echo $crlf;
    824. 

  824. 	while ($row = mysql_fetch_array($r)) {
    825. 

  825. 		$vac_name = $row["bio_name"];
    826. 

  826. 		$man_name = $row["man_name"];
    827. 

  827. 		$lot_num = $row["lot_num"];
    828. 

  828. 		$exp_date = DosDate($row["exp_date"]);
    829. 

  829. 		$r_name = $row["r_name"];
    830. 

  830. 		$r_date = DosDate($row["r_date"]);
    831. 

  831. 		$r_time = str_pad($row["r_time"],5,"0",STR_PAD_LEFT);
    832. 

  832. 		$r_ip = $row["r_ip"];
    833. 

  833. 		$c_name = $row["c_name"];
    834. 

  834. 		if (strlen(trim($c_name)) < 1) $c_name = "--";
    835. 

  835. 		$c_date = DosDate($row["c_date"]);
    836. 

  836. 		if ($c_date == "00/00/0000") $c_date = "--";
    837. 

  837. 		$c_time = str_pad($row["c_time"],5,"0",STR_PAD_LEFT);
    838. 

  838. 		if ($c_time == "00000") $c_time = "--";
    839. 

  839. 		$c_ip = $row["c_ip"];
    840. 

  840. 		if (strlen(trim($c_ip)) < 1) $c_ip = "--";
    841. 

  841. 		$bio_id = $row["bio_id"];
    842. 

  842. 		$det_id = $row["det_id"];
    843. 

  843. 		$ynd = $row["consumed_ynd"];
    844. 

  844. 		if ($ynd == "Y") $ynd = "Consumed";
    845. 

  845. 		if ($ynd == "N") $ynd = "Received";
    846. 

  846. 		if ($ynd == "D") $ynd = "Destroyed";
    847. 

  847. 		$note = $row["note"];
    848. 

  848. 		if (strlen($note) < 1) $note = "--";
    849. 

  849. 		//$computer = $row["computer"];
    850. 

  850. 		echo str_pad($vac_name,32) . $tab;
    851. 

  851. 		echo str_pad($man_name,32) . $tab;
    852. 

  852. 		echo str_pad($ynd,31) . $tab;
    853. 

  853. 		echo str_pad($lot_num,80) . $tab;
    854. 

  854. 		echo str_pad($exp_date,10) . $tab;
    855. 

  855. 		echo str_pad($r_name, 30) . $tab;
    856. 

  856. 		echo str_pad($r_date, 10) . $tab;
    857. 

  857. 		echo str_pad($r_time, 5) . $tab;
    858. 

  858. 		echo str_pad($r_ip, 15) . $tab;
    859. 

  859. 		echo str_pad($c_name, 30) . $tab;
    860. 

  860. 		echo str_pad($c_date, 10) . $tab;
    861. 

  861. 		echo str_pad($c_time, 5) . $tab;
    862. 

  862. 		echo str_pad($c_ip, 15) . $tab;
    863. 

  863. 		echo str_pad($note, 132) . $tab;
    864. 

  864. 		echo $crlf;
    865. 

  865. 	}
    866. 

  866. } // end of My_txt_dump
    867. 

  867. 

  868. 

  869. 

  870. 

  871. // ---------------- End of Functions
    872. 

  872. // ---------------
    873. 

  873. // ---------------
    874. 

  874. // ---------------- Start of Code
    875. 

  875. 

  876. $mydbf = "vaccine";
    877. 

  877. mysql_select_db("$mydbf") or die("unable to access database");    
    878. 

  878. $red = "<font color='#FF0000'>";
    879. 

  879. $pink = "<font color='#FF00FF'>";
    880. 

  880. $orange = "<font color='FF8040'>";
    881. 

  881. $yellow = "<font color='#FFFF00'>";
    882. 

  882. $black = "<font color='#000000'>";
    883. 

  883. $green = "<font color='#00FF00'>";
    884. 

  884. //$green = $pink;
    885. 

  885. $colorsafe = 60;
    886. 

  886. $colorwarn = 30;
    887. 

  887. 

  888. if ($act == "") {
    889. 

  889. //	echo "act was blank!!<br>";
    890. 

  890. 	$act = "menu";
    891. 

  891. }	
    892. 

  892. //$act="menu";
    893. 

  893. if ($act == "Please Change Me") {
    894. 

  894.    print ("<center><b><font size='+2'>*** ERROR ***</font></b></center>");
    895. 

  895.   print ("<center><b><font size='+2'>This page <u>MUST</u> be called from a menu</font></b></center>");
    896. 

  896.   }
    897. 

  897. else
    898. 

  898. {
    899. 

  899. 

  900.   if ($act == "menu") $act = "mix";
    901. 

  901.   switch ($act) {
    902. 

  902.     case "menu":
    903. 

  903.       // Main menu
    904. 

  904. 	  // force to mix
    905. 

  905.       mybanner("Main Menu", "none", $user_name);
    906. 

  906.       NavBar($cgi, $act, $usr_access);
    907. 

  907.     break;
    908. 

  908. 

  909. 	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    910. 

  910. // MemoChange
    911. 

  911. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    912. 

  912.     case "memo_change":
    913. 

  913.       // Edit/Show memo
    914. 

  914.       mybanner("Notes for Vaccine $name", "none", $user_name);
    915. 

  915. 	  if ($usr_access > 50) {
    916. 

  916. 		  $state_memo = FixMyString($mynotes);
    917. 

  917. 		  $q = "update $bio_table set comm_memo = $d_quote$state_memo$d_quote where id = $d_quote$bio_id$d_quote";
    918. 

  918. 		  $r = mysql_query($q) or die(mysql_error());
    919. 

  919. 		  echo "<br><center>Memo has been changed</center><br><br>";
    920. 

  920. 	  } else {
    921. 

  921. 		echo "<br><br><center>You are not allowed access!</center>";
    922. 

  922. 	  }
    923. 

  923. 	  echo "<br><br>";
    924. 

  924.       NavBar($cgi, $act, $usr_access);
    925. 

  925.     break;
    926. 

  926. 

  927. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    928. 

  928. // My Memo
    929. 

  929. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    930. 

  930.     case "my_memo":
    931. 

  931.       // Edit/Show memo
    932. 

  932. 	  mybanner("Notes for Vaccine $name", "none", $user_name);
    933. 

  933. 	  if ($usr_access > 50) {
    934. 

  934. 		  $q = "select * from $bio_table where id = $d_quote$bio_id$d_quote";
    935. 

  935. 		  $r = mysql_query($q) or die(mysql_error());
    936. 

  936. 		  $row = mysql_fetch_array($r);
    937. 

  937. 		  $name = $row["name"];
    938. 

  938. 		  $state_memo = $row["state_memo"];
    939. 

  939. 		  $comm_memo = $row["comm_memo"];
    940. 

  940. 		  echo "<br><center><font size='+2'>Edit Vaccine Memo for<br>$name</font></center><br>\n";
    941. 

  941. 		  echo "<br><br>";
    942. 

  942. 		  echo "<center><form action='$cgi' method='post'>\n";
    943. 

  943. 		  echo "<input type='hidden' name='act' value='memo_change'>\n";
    944. 

  944. 		  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    945. 

  945. 		  echo "<textarea name='mynotes' rows='6' cols='75'>\n";
    946. 

  946. 		  echo "$comm_memo";
    947. 

  947. 		  echo "</textarea>\n";
    948. 

  948. 		  echo "<br><br><center><input type='submit' value='Change'>\n";
    949. 

  949. 		  echo "<input type='reset' value='Undo'></form></center>\n";
    950. 

  950. 	  } else {
    951. 

  951. 		echo "<br><br><center>You are not allowed access!</center>";
    952. 

  952. 	  }
    953. 

  953. 	  echo "<br><br>";
    954. 

  954.       NavBar($cgi, $act, $usr_access);
    955. 

  955. 	
    956. 

  956. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    957. 

  957. // mix * ok 
    958. 

  958. // Main Menu
    959. 

  959. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    960. 

  960.     case "mix":
    961. 

  961.       // Select injectable
    962. 

  962.       mybanner("Vaccine Selection", "none", $user_name);
    963. 

  963.       echo "<br><center><font size='+2'>Select Vaccine to List</font></center><br>\n";
    964. 

  964.       // passed NADA
    965. 

  965.       $q = "select * from $bio_table order by name";
    966. 

  966.       $r = mysql_query($q) or die(mysql_error());
    967. 

  967.       if (mysql_num_rows($r) > 0) {
    968. 

  968.         echo "<center><table  width='75%' border='1' cellspacing='0' cellpadding='4'>\n";
    969. 

  969.         echo "<tr><td><center>Name</center></td>";
    970. 

  970.         echo "<td colspan = '3'><center>State<br>In Stock | Consumed | Destroyed</center></td>
    971. 

  971. 		  <td colspan = '3'><center>Commercial<br>In Stock | Consumed | Destroyed</center></td>
    972. 

  972. 		  </tr>\n";
    973. 

  973.       	$color = 0;
    974. 

  974.         while ($row = mysql_fetch_array($r)) {
    975. 

  975. 	      $form_txt = "<form action='$cgi' method='post'>
    976. 

  976. 		    <input type='hidden' name='act' value='%%var1%%'>
    977. 

  977. 	        <input type='hidden' name='bio_id' value='%%bio_id%%'>
    978. 

  978. 	        <input type='hidden' name='stock_type' value='%%stock_type%%'>
    979. 

  979.             <input type='submit' value=%%value%%>
    980. 

  980. 	        </form>";
    981. 

  981.       	  $bio_id = $row["id"];
    982. 

  982.           $name = $row["name"];
    983. 

  983. 		  
    984. 

  984. 		  $state_memo = $row["state_memo"];
    985. 

  985. 		  $comm_memo = $row["comm_memo"];
    986. 

  986. 		  
    987. 

  987. 	      $temp = $form_txt;
    988. 

  988. 	      $temp = str_replace('%%name%%', $name, $temp);
    989. 

  989. 	      $temp = str_replace('%%bio_id%%', $bio_id, $temp);
    990. 

  990. 		  $form_txt = $temp;
    991. 

  991. 		  $q_instock_public_commercial = "select count(*) as mycount from $mytable where biological_id = '$bio_id' and consumed_ynd = 'N' and stock_type = 'P'";
    992. 

  992. 		  $q_instock_state_owned = "select count(*) as mycount from $mytable where biological_id = '$bio_id' and consumed_ynd = 'N' and stock_type = 'S'";
    993. 

  993. 		  $q_consumed_public_commercial = "select count(*) as mycount from $mytable where biological_id = '$bio_id' and consumed_ynd = 'Y' and stock_type = 'P'";
    994. 

  994. 		  $q_consumed_state_owned = "select count(*) as mycount from $mytable where biological_id = '$bio_id' and consumed_ynd = 'Y' and stock_type = 'S'";
    995. 

  995. 		  $q_deleted_public_commercial = "select count(*) as mycount from $mytable where biological_id = '$bio_id' and consumed_ynd = 'D' and stock_type = 'P'";
    996. 

  996. 		  $q_deleted_state_owned = "select count(*) as mycount from $mytable where biological_id = '$bio_id' and consumed_ynd = 'D' and stock_type = 'S'";
    997. 

  997. 

  998. 		  $r_instock_public_commercial = mysql_query($q_instock_public_commercial) or die(mysql_error());
    999. 

  999. 		  $r_instock_state_owned = mysql_query($q_instock_state_owned) or die(mysql_error());
    1000. 

  1000. 		  $r_consumed_public_commercial = mysql_query($q_consumed_public_commercial) or die(mysql_error());
    1001. 

  1001. 		  $r_consumed_state_owned = mysql_query($q_consumed_state_owned) or die(mysql_error());
    1002. 

  1002. 		  $r_deleted_public_commercial = mysql_query($q_deleted_public_commercial) or die(mysql_error());
    1003. 

  1003. 		  $r_deleted_state_owned = mysql_query($q_deleted_state_owned) or die(mysql_error());
    1004. 

  1004. 		  
    1005. 

  1005. 		  $row_instock_public_commercial = mysql_fetch_array($r_instock_public_commercial);
    1006. 

  1006. 		  $row_instock_state_owned = mysql_fetch_array($r_instock_state_owned);
    1007. 

  1007. 		  $row_consumed_public_commercial = mysql_fetch_array($r_consumed_public_commercial);
    1008. 

  1008. 		  $row_consumed_state_owned = mysql_fetch_array($r_consumed_state_owned);
    1009. 

  1009. 		  $row_deleted_public_commercial = mysql_fetch_array($r_deleted_public_commercial);
    1010. 

  1010. 		  $row_deleted_state_owned = mysql_fetch_array($r_deleted_state_owned);
    1011. 

  1011. 		  
    1012. 

  1012. 		  $mycount_instock_public_commercial = $row_instock_public_commercial["mycount"];
    1013. 

  1013. 		  $mycount_instock_state_owned = $row_instock_state_owned["mycount"];
    1014. 

  1014. 		  $mycount_consumed_public_commercial = $row_consumed_public_commercial["mycount"];
    1015. 

  1015. 		  $mycount_consumed_state_owned = $row_consumed_state_owned["mycount"];
    1016. 

  1016. 		  $mycount_deleted_public_commercial = $row_deleted_public_commercial["mycount"];
    1017. 

  1017. 		  $mycount_deleted_state_owned = $row_deleted_state_owned["mycount"];
    1018. 

  1018. 		  
    1019. 

  1019.       	  $color = MeColorTR($color, 1);
    1020. 

  1020.           //echo "<td><center><a href='$cgi?act=order&bio_id=$bio_id'>$name</a><center></td>";
    1021. 

  1021. 		  echo "<td><center>";
    1022. 

  1022. 		  if ($usr_access > 50) {
    1023. 

  1023. 			  echo "<form action='$cgi' method='post'>";
    1024. 

  1024. 			  echo "<input type='hidden' name='act' value='my_memo'>";
    1025. 

  1025. 			  echo "<input type='hidden' name='bio_id' value='$bio_id'>";
    1026. 

  1026. 

  1027. 			  echo "<img src='info.gif' title=$d_quote$comm_memo$d_quote>&nbsp;";
    1028. 

  1028. 

  1029. 			  echo "<input type='submit' value='$name'>";
    1030. 

  1030. 			  echo "</form>";
    1031. 

  1031. 		  } else {
    1032. 

  1032. 			echo "<img src='info.gif' title=$d_quote$comm_memo$d_quote>&nbsp;$name";
    1033. 

  1033. 		  }
    1034. 

  1034. 		  
    1035. 

  1035. 		  echo "<center></td>";
    1036. 

  1036. // State -> In Stock | Consumed | Destroyed
    1037. 

  1037. // State -> In Stock
    1038. 

  1038. 	      $temp = $form_txt; // reset form data
    1039. 

  1039. 	      if ($mycount_instock_state_owned > 0) 
    1040. 

  1040. 		  {
    1041. 

  1041. 	        $temp = str_replace('%%var1%%', 'stock_list', $temp);
    1042. 

  1042. 	        $temp = str_replace('%%value%%', $mycount_instock_state_owned, $temp);
    1043. 

  1043. 	        $temp = str_replace('%%stock_type%%', 'S', $temp);
    1044. 

  1044.             echo "<td><center>$temp</center></td>";
    1045. 

  1045. 		  } else {
    1046. 

  1046. 		    echo "<td><center>0</center></td>";
    1047. 

  1047. 		  }
    1048. 

  1048. 

  1049. // State -> Consumed
    1050. 

  1050. 	      $temp = $form_txt; // reset form data
    1051. 

  1051. 	      if ($mycount_consumed_state_owned > 0) 
    1052. 

  1052. 		  {
    1053. 

  1053. 	        $temp = str_replace('%%var1%%', 'consumed_list', $temp);
    1054. 

  1054. 	        $temp = str_replace('%%value%%', $mycount_consumed_state_owned, $temp);
    1055. 

  1055. 	        $temp = str_replace('%%stock_type%%', 'S', $temp);
    1056. 

  1056.             echo "<td><center>$temp</center></td>";
    1057. 

  1057. 		  } else {
    1058. 

  1058. 		    echo "<td><center>0</center></td>";
    1059. 

  1059. 		  }
    1060. 

  1060. 

  1061. // State -> Destroyed
    1062. 

  1062. 	      $temp = $form_txt; // reset form data
    1063. 

  1063. 	      if ($mycount_deleted_state_owned > 0) 
    1064. 

  1064. 		  {
    1065. 

  1065. 	        $temp = str_replace('%%var1%%', 'destroyed_list', $temp);
    1066. 

  1066. 	        $temp = str_replace('%%value%%', $mycount_deleted_state_owned, $temp);
    1067. 

  1067. 	        $temp = str_replace('%%stock_type%%', 'S', $temp);
    1068. 

  1068.             echo "<td><center>$temp</center></td>";
    1069. 

  1069. 		  } else {
    1070. 

  1070. 			echo "<td><center>0</center></td>";
    1071. 

  1071. 		  }
    1072. 

  1072. 

  1073. // Commercial -> In Stock | Consumed | Destroyed
    1074. 

  1074. // Commercial -> In Stock
    1075. 

  1075. 	      $temp = $form_txt; // reset form data
    1076. 

  1076. 	      if ($mycount_instock_public_commercial > 0) 
    1077. 

  1077. 		  {
    1078. 

  1078. 	        $temp = str_replace('%%var1%%', 'stock_list', $temp);
    1079. 

  1079. 	        $temp = str_replace('%%value%%', $mycount_instock_public_commercial, $temp);
    1080. 

  1080. 	        $temp = str_replace('%%stock_type%%', 'P', $temp);
    1081. 

  1081.             echo "<td><center>$temp</center></td>";
    1082. 

  1082. 		  } else {
    1083. 

  1083. 		    echo "<td><center>0</center></td>";
    1084. 

  1084. 		  }
    1085. 

  1085. 

  1086. // Commercial -> Consumed
    1087. 

  1087. 	      $temp = $form_txt; // reset form data
    1088. 

  1088. 	      if ($mycount_consumed_public_commercial > 0) 
    1089. 

  1089. 		  {
    1090. 

  1090. 	        $temp = str_replace('%%var1%%', 'consumed_list', $temp);
    1091. 

  1091. 	        $temp = str_replace('%%value%%', $mycount_consumed_public_commercial, $temp);
    1092. 

  1092. 	        $temp = str_replace('%%stock_type%%', 'P', $temp);
    1093. 

  1093.             echo "<td><center>$temp</center></td>";
    1094. 

  1094. 		  } else {
    1095. 

  1095. 		    echo "<td><center>0</center></td>";
    1096. 

  1096. 		  }
    1097. 

  1097. 

  1098. // Commercial -> Destroyed
    1099. 

  1099. 	      $temp = $form_txt; // reset form data
    1100. 

  1100. 	      if ($mycount_deleted_public_commercial > 0) 
    1101. 

  1101. 		  {
    1102. 

  1102. 	        $temp = str_replace('%%var1%%', 'destroyed_list', $temp);
    1103. 

  1103. 	        $temp = str_replace('%%value%%', $mycount_deleted_public_commercial, $temp);
    1104. 

  1104. 	        $temp = str_replace('%%stock_type%%', 'P', $temp);
    1105. 

  1105.             echo "<td><center>$temp</center></td>";
    1106. 

  1106. 		  } else {
    1107. 

  1107. 			echo "<td><center>0</center></td>";
    1108. 

  1108. 		  }
    1109. 

  1109.           echo "</tr>\n"; // End of Table Row
    1110. 

  1110.       	}
    1111. 

  1111.       	echo "</table></center><br><br>";
    1112. 

  1112. 		
    1113. 

  1113.       } else {
    1114. 

  1114.         echo "<center><font size='+2'><br><font color=#ff0000>ERROR</font><br>Appears that there are no Vaccines in the Database<br>Press back and try again</font></center><br><br>";
    1115. 

  1115.       }
    1116. 

  1116. 	  echo "<center><a href='$cgi?act=stock_add'>Add new Stock</a></center><br>";
    1117. 

  1117.       NavBar($cgi, $act, $usr_access);
    1118. 

  1118.     break;
    1119. 

  1119. 	// end of mix
    1120. 

  1120. 

  1121. 	
    1122. 

  1122. 

  1123. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1124. 

  1124. //stock & stock_list * ok but cargo not tested
    1125. 

  1125. // from Mix (Main Menu) selecting In Stock
    1126. 

  1126. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1127. 

  1127. 

  1128.     case "stock_list":
    1129. 

  1129.       // bio_name, id, and stock_type is Passed
    1130. 

  1130. 	  // if cargo = destroy or cargo = consume... need to mark that entry, then do the listing again
    1131. 

  1131. 	  $stock_type_desc = "Commercial";
    1132. 

  1132. 	  if ($stock_type == 'S') $stock_type_desc = "State Sponsored";
    1133. 

  1133.       mybanner("Listing of $stock_type_desc, <u>ON HAND</u> $bio_name", "none", $user_name);
    1134. 

  1134.       // Process the Mul check out as well as the single line 
    1135. 

  1135.       $q = "select a.exp_date as exp_date, a.lot_num as lot_num, a.r_name as r_name, 
    1136. 

  1136. 	    a.r_date as r_date, a.r_time as r_time, a.r_ip as r_ip, 
    1137. 

  1137. 		a.biological_id as bio_id, a.id as det_id, datediff( a.exp_date, now() ) as exp
    1138. 

  1138. 	    from $mytable a
    1139. 

  1139.         where a.consumed_ynd = 'N' 
    1140. 

  1140. 		and a.biological_id = $d_quote$bio_id$d_quote
    1141. 

  1141. 		and stock_type = $d_quote$stock_type$d_quote
    1142. 

  1142.         order by a.exp_date, a.lot_num";
    1143. 

  1143.       //echo "<br>$q<br>";
    1144. 

  1144.       $r = mysql_query($q) or die(mysql_error());
    1145. 

  1145.       $max = mysql_num_rows($r);
    1146. 

  1146.       if ($max > 0) {
    1147. 

  1147. //	    echo "<hr width='45%' align=center>";
    1148. 

  1148. 	    echo "<center><table  width='95%' border='1' cellspacing='0' cellpadding='4'>\n";
    1149. 

  1149. 		echo "<tr bgcolor=#ffffff><td colspan=9><center>$max records found</center></td></tr>";
    1150. 

  1150.       	echo "<tr bgcolor=#ffffff><td>Lot #</td><td>Exp Date</td><td>Exp in</td>
    1151. 

  1151. 		  <td>Recieved by</td><td>Date</td><td>Time</td><td>Computer</td>
    1152. 

  1152. 		  <td colspan=2><center>Consume | Destroy</center></td></tr>";
    1153. 

  1153.       	$color = 0;
    1154. 

  1154.         while ($row = mysql_fetch_array($r)) {
    1155. 

  1155.           $color = MeColorTR($color, 1);
    1156. 

  1156. 		  $lot_num = $row["lot_num"];
    1157. 

  1157. 		  $exp_date = DosDate($row["exp_date"]);
    1158. 

  1158. 		  $exp = $row["exp"];
    1159. 

  1159. 		  $colorexp = "<font color='FFFF00'>"; // Yellow
    1160. 

  1160. 		  if ($exp > $colorsafe) $colorexp = $black;
    1161. 

  1161. 		  if ($exp < $colorwarn) {
    1162. 

  1162. 		    $colorexp = $red;
    1163. 

  1163. 			if ($exp > -1)  $colorexp = $green;
    1164. 

  1164. 		  }	
    1165. 

  1165. 		  $r_name = $row["r_name"];
    1166. 

  1166. 		  $r_date = DosDate($row["r_date"]);
    1167. 

  1167.    	      $r_time = str_pad($row["r_time"],5,"0",STR_PAD_LEFT);
    1168. 

  1168.           $r_ip = $row["r_ip"];
    1169. 

  1169.    	      $bio_id = $row["bio_id"];
    1170. 

  1170. 		  $det_id = $row["det_id"];
    1171. 

  1171. 		  //$computer = $row["computer"];
    1172. 

  1172.           echo "<td>$lot_num</td><td>$exp_date</td>
    1173. 

  1173. 		    <td>$colorexp$exp</font></td>
    1174. 

  1174. 			<td>$r_name</td><td>$r_date</td><td>$r_time</td><td>$r_ip</td>";
    1175. 

  1175.    	      echo "<td><a href='$cgi?act=get_note&det_id=$det_id&bio_id=$bio_id&bio_name=$bio_name&cargo=consume'>Consume</a></td>
    1176. 

  1176. 		    <td><a href='$cgi?act=get_note&det_id=$det_id&bio_id=$bio_id&bio_name=$bio_name&cargo=destroy'>Destroy</a></td>";
    1177. 

  1177.           echo "</tr>\n";
    1178. 

  1178.         }
    1179. 

  1179.       	echo "</table></center><br><br>\n";
    1180. 

  1180. 		if ($usr_access > 50) {
    1181. 

  1181. 		  echo "<center><table  width='60%' border='1' cellspacing='0' cellpadding='4'>\n";
    1182. 

  1182. 		  echo "<tr>";
    1183. 

  1183. 		  echo "<td><center><form action='$cgi' method='post'>\n";
    1184. 

  1184. 		  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1185. 

  1185. 		  echo "<input type='hidden' name='type' value='xls'>\n";
    1186. 

  1186. 		  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    1187. 

  1187. 		  echo "<input type='hidden' name='bio_name' value='$bio_name'>\n";
    1188. 

  1188. 		  echo "<input type='hidden' name='consumed_ynd' value='instock'>\n";
    1189. 

  1189. 		  echo "<br><input type='submit' value='Dump Selected to Spreadsheet'>\n";
    1190. 

  1190. 		  echo "</form></center></td>\n";
    1191. 

  1191. 		  echo "<td><center><form action='$cgi' method='post'>\n";
    1192. 

  1192. 		  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1193. 

  1193. 		  echo "<input type='hidden' name='type' value='txt'>\n";
    1194. 

  1194. 		  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    1195. 

  1195. 		  echo "<input type='hidden' name='bio_name' value='$bio_name'>\n";
    1196. 

  1196. 		  echo "<input type='hidden' name='consumed_ynd' value='instock'>\n";
    1197. 

  1197. 		  echo "<br><input type='submit' value='Dump Selected to Text'>\n";
    1198. 

  1198. 		  echo "</form></center></td>\n";
    1199. 

  1199. 		  echo "</tr></table></center><br><br>\n";
    1200. 

  1200. 		}
    1201. 

  1201. 	  } else {
    1202. 

  1202.         echo "<center><font size='+2'><br><font color=#ff0000>ERROR</font><br>There is no $bio_name vaccines on hand<br>Please Select a different Vaccine<br>ICN# $det_id</font></center><br><br>";
    1203. 

  1203.       }
    1204. 

  1204.       NavBar($cgi, $act, $usr_access);
    1205. 

  1205.     break;
    1206. 

  1206. 	// end of stock_list
    1207. 

  1207. 

  1208. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1209. 

  1209. //consumed_list * ok
    1210. 

  1210. // From Mix (Main Menu) selecting Consumed
    1211. 

  1211. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1212. 

  1212. 

  1213.     case "consumed_list":
    1214. 

  1214.       // bio_name, id, $stock_type is Passed
    1215. 

  1215. 	  $stock_type_desc = "Commercial";
    1216. 

  1216. 	  if ($stock_type == 'S') $stock_type_desc = "State Sponsored";
    1217. 

  1217.       mybanner("Listing of $stock_type_desc, <u>CONSUMED</u> $bio_name", "none", $user_name);
    1218. 

  1218.       $q = "select a.exp_date as exp_date, a.lot_num as lot_num, a.c_name as c_name, 
    1219. 

  1219. 	    a.c_date as c_date, a.c_time as c_time, a.c_ip as c_ip,
    1220. 

  1220. 		a.biological_id as bio_id, a.id as det_id, a.note as note
    1221. 

  1221. 	    from $mydbf.$mytable a
    1222. 

  1222.         where a.consumed_ynd = 'Y' 
    1223. 

  1223. 		and a.biological_id = $d_quote$bio_id$d_quote
    1224. 

  1224.         order by a.c_date ASC, a.c_time ASC";
    1225. 

  1225. 	  //echo "<br>$q<br>";
    1226. 

  1226. 	  My_Lister($bio_name, $q, "consumed");
    1227. 

  1227. 	  if ($usr_access > 50) {
    1228. 

  1228. 		  echo "<center><table  width='60%' border='1' cellspacing='0' cellpadding='4'>\n";
    1229. 

  1229. 		  echo "<tr>";
    1230. 

  1230. 		  echo "<td><center><form action='$cgi' method='post'>\n";
    1231. 

  1231. 		  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1232. 

  1232. 		  echo "<input type='hidden' name='type' value='xls'>\n";
    1233. 

  1233. 		  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    1234. 

  1234. 		  echo "<input type='hidden' name='bio_name' value='$bio_name'>\n";
    1235. 

  1235. 		  echo "<input type='hidden' name='consumed_ynd' value='Y'>\n";
    1236. 

  1236. 		  echo "<br><input type='submit' value='Dump Selected to Spreadsheet'>\n";
    1237. 

  1237. 		  echo "</form></center></td>\n";
    1238. 

  1238. 		  echo "<td><center><form action='$cgi' method='post'>\n";
    1239. 

  1239. 		  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1240. 

  1240. 		  echo "<input type='hidden' name='type' value='txt'>\n";
    1241. 

  1241. 		  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    1242. 

  1242. 		  echo "<input type='hidden' name='bio_name' value='$bio_name'>\n";
    1243. 

  1243. 		  echo "<input type='hidden' name='consumed_ynd' value='Y'>\n";
    1244. 

  1244. 		  echo "<br><input type='submit' value='Dump Selected to Text'>\n";
    1245. 

  1245. 		  echo "</form></center></td>\n";
    1246. 

  1246. 		  echo "</tr></table></center><br><br>\n";
    1247. 

  1247. 	  }
    1248. 

  1248.      NavBar($cgi, $act, $usr_access);
    1249. 

  1249.     break;
    1250. 

  1250. 	// end of consumed_list
    1251. 

  1251. 

  1252. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1253. 

  1253. //destroyed_list * ok
    1254. 

  1254. // From Mix (Main Menu) selecting Destroyed
    1255. 

  1255. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1256. 

  1256. 

  1257.     case "destroyed_list":
    1258. 

  1258. 		// bio_name, id, $stock_type is Passed
    1259. 

  1259. 		// if cargo = destroy or cargo = consume... need to mark that entry, then do the listing again
    1260. 

  1260. 		// Process the Mul check out as well as the single line
    1261. 

  1261. 		$stock_type_desc = "Commercial";
    1262. 

  1262. 		if ($stock_type == 'S') $stock_type_desc = "State Sponsored";
    1263. 

  1263. 		mybanner("Listing of $stock_type_desc, <u>DESTROYED</u> $bio_name", "none", $user_name);
    1264. 

  1264. 		$q = "select a.exp_date as exp_date, a.lot_num as lot_num, a.c_name as c_name, 
    1265. 

  1265. 		a.c_date as c_date, a.c_time as c_time, a.c_ip as c_ip, 
    1266. 

  1266. 		a.biological_id as bio_id, a.id as det_id, a.note as note
    1267. 

  1267. 		from $mydbf.$mytable a
    1268. 

  1268. 		where a.consumed_ynd = 'D' 
    1269. 

  1269. 		and a.biological_id = $d_quote$bio_id$d_quote
    1270. 

  1270. 		order by a.c_date ASC, a.c_time ASC";
    1271. 

  1271. 		 //echo "<br>$q<br>";
    1272. 

  1272. 		 My_Lister($bio_name, $q, "destroyed");
    1273. 

  1273. 		if ($usr_access > 50) {
    1274. 

  1274. 		  echo "<center><table  width='60%' border='1' cellspacing='0' cellpadding='4'>\n";
    1275. 

  1275. 		  echo "<tr>";
    1276. 

  1276. 		  echo "<td><center><form action='$cgi' method='post'>\n";
    1277. 

  1277. 		  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1278. 

  1278. 		  echo "<input type='hidden' name='type' value='xls'>\n";
    1279. 

  1279. 		  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    1280. 

  1280. 		  echo "<input type='hidden' name='bio_name' value='$bio_name'>\n";
    1281. 

  1281. 		  echo "<input type='hidden' name='consumed_ynd' value='D'>\n";
    1282. 

  1282. 		  echo "<br><input type='submit' value='Dump Selected to Spreadsheet'>\n";
    1283. 

  1283. 		  echo "</form></center></td>\n";
    1284. 

  1284. 		  echo "<td><center><form action='$cgi' method='post'>\n";
    1285. 

  1285. 		  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1286. 

  1286. 		  echo "<input type='hidden' name='type' value='txt'>\n";
    1287. 

  1287. 		  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    1288. 

  1288. 		  echo "<input type='hidden' name='bio_name' value='$bio_name'>\n";
    1289. 

  1289. 		  echo "<input type='hidden' name='consumed_ynd' value='D'>\n";
    1290. 

  1290. 		  echo "<br><input type='submit' value='Dump Selected to Text'>\n";
    1291. 

  1291. 		  echo "</form></center></td>\n";
    1292. 

  1292. 		  echo "</tr></table></center><br><br>\n";
    1293. 

  1293. 		}
    1294. 

  1294.       NavBar($cgi, $act, $usr_access);
    1295. 

  1295.     break;
    1296. 

  1296. 	// end of Destroyed_list
    1297. 

  1297. 

  1298. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1299. 

  1299. // stock_validate * ok
    1300. 

  1300. // From Navagation selecting List on Hand
    1301. 

  1301. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1302. 

  1302.     case "stock_validate":
    1303. 

  1303. 	  // Passed qty, stock_type, bio_id, exp_date, lot_num, r_name
    1304. 

  1304. 	  mybanner("Validate the addition of Shots to Inventory", "none", $user_name);
    1305. 

  1305. 	  $qty = FixMyString($qty);
    1306. 

  1306. 	  //$bio_id = FixMyString($bio_id);
    1307. 

  1307. 	  $exp_date = FixMyString($exp_date);
    1308. 

  1308. 	  $lot_num= FixMyString($lot_num);
    1309. 

  1309. 	  $r_name = FixMyString($r_name);
    1310. 

  1310. 	  $mydate = getdate(time());
    1311. 

  1311. //echo "<br>mydate = $mydate<br>";	  
    1312. 

  1312. 	  $r_date = $mydate["year"] . "-" . $mydate["mon"] . "-" . $mydate["mday"];
    1313. 

  1313. //echo "<br>mydate = $r_date<br>";	  
    1314. 

  1314. 	  $r_time = format_time($mydate);
    1315. 

  1315. 	  // need to make sure that 9:00 becomes 09:00
    1316. 

  1316. 	  // otherwise the sorts will not work
    1317. 

  1317. //      $r_time = str_pad($r_time,5,"0",STR_PAD_LEFT);
    1318. 

  1318. 	  $r_ip = $REMOTE_ADDR;
    1319. 

  1319. 	  //$r_name = $PHP_AUTH_USER;
    1320. 

  1320. 	  $errString = "";
    1321. 

  1321. 	  $errString .= ValadateInput($qty, "num", "Quantity");
    1322. 

  1322. 	  if ($qty == 0) $errString .= "<center>Quantity cannot be Zero!</center>";
    1323. 

  1323. 	  $errString .= ValadateInput($exp_date, "date", "Expiration Date");
    1324. 

  1324. 	  $errString .= ValadateInput($lot_num, "name", "Lot Number");
    1325. 

  1325. 	  $errString .= ValadateInput($r_name, "name", "Receiver Name");
    1326. 

  1326. 	  //$r_date = LinuxDate($r_date);
    1327. 

  1327. 	  $exp_date = LinuxDate($exp_date);
    1328. 

  1328. 	  if (strlen($errString) < 5) {
    1329. 

  1329.         for ($i = 1; $i <= $qty; $i++) 
    1330. 

  1330. 		{
    1331. 

  1331. 		  $q = "insert into $mytable set 
    1332. 

  1332. 		    biological_id = $d_quote$bio_id$d_quote,
    1333. 

  1333. 			stock_type = $d_quote$stock_type$d_quote,
    1334. 

  1334. 			man_id =  $d_quote$man_id$d_quote,
    1335. 

  1335. 			exp_date = $d_quote$exp_date$d_quote,
    1336. 

  1336. 			lot_num = $d_quote$lot_num$d_quote,
    1337. 

  1337. 			r_name = $d_quote$r_name$d_quote,
    1338. 

  1338. 			r_date = $d_quote$r_date$d_quote,
    1339. 

  1339. 			r_time = $d_quote$r_time$d_quote,
    1340. 

  1340. 			r_ip = $d_quote$r_ip$d_quote,
    1341. 

  1341. 			consumed_ynd = 'N'";
    1342. 

  1342. 		  $r = mysql_query($q) or die(mysql_error());
    1343. 

  1343. 		  //echo "<br>$i $q<br>";
    1344. 

  1344. 		}
    1345. 

  1345. 		$comment = "You have added $qty Shots into Inventory!";
    1346. 

  1346. 		SendEmail($comment, $bio_table, $detail_table, $email_table);
    1347. 

  1347. 	    echo "<br><center><font size='+1'>$comment</font></center><br>\n";
    1348. 

  1348. 	  } else {
    1349. 

  1349. 	    echo "<center><font size='+2'><br><font color=#ff0000>ERROR</font><br>$errString</font><br>Press back and try again</center><br><br>";
    1350. 

  1350. 	  }  
    1351. 

  1351.       NavBar($cgi, $act, $usr_access);
    1352. 

  1352.     break;
    1353. 

  1353. 	// end of stock_validate
    1354. 

  1354. 	
    1355. 

  1355. 	
    1356. 

  1356. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1357. 

  1357. // Stock Add * ok
    1358. 

  1358. // From Main Menu - "Add New Stock"
    1359. 

  1359. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1360. 

  1360.     case "stock_add":
    1361. 

  1361. 	  // Add inventory to b_detail
    1362. 

  1362. 	  mybanner("Add Shots to Inventory", "none", $user_name);
    1363. 

  1363. 	  echo "<center><font size='+2'>You are about to add new stock to inventory</font><br></center><br><br>\n";
    1364. 

  1364.    	  echo "<center><font size='+1'>Please enter the following information</font></center>\n";
    1365. 

  1365. 	  echo "<hr width='25%' align=center>\n";
    1366. 

  1366.       $mydate = getdate(time());
    1367. 

  1367. 	  $r_date = $mydate["year"] . "-" . $mydate["mon"] . "-" . $mydate["mday"];
    1368. 

  1368. 	  $today =  $mydate["mon"] . "/" . $mydate["mday"] . "/" . $mydate["year"];
    1369. 

  1369. 	  $r_time = format_time($mydate);
    1370. 

  1370. //      $r_time = str_pad($r_time,5,"0",STR_PAD_LEFT);
    1371. 

  1371.       $r_ip = $REMOTE_ADDR;
    1372. 

  1372. 	  echo "<center><form action='$cgi' method='post'>\n";
    1373. 

  1373.       echo "<input type='hidden' name='act' value='stock_validate'>\n";
    1374. 

  1374. 	  echo "<br>Qty to add: <input type='text' name='qty' maxlength='2' size='2' value='1'><br>\n";
    1375. 

  1375. 	  echo "<br>Ownership: <select name='stock_type'>\n";
    1376. 

  1376. 	  echo "<option value='P'>Privately Owned</option>\n";
    1377. 

  1377. 	  echo "<option value='S'>State Owned</option>\n";
    1378. 

  1378. 	  echo "</select><br>\n";
    1379. 

  1379. 	  echo "Vaccine: <select name='bio_id'>\n";
    1380. 

  1380. 	  $q = "select * from $bio_table order by name";
    1381. 

  1381. 	  $r = mysql_query($q) or die(mysql_error());
    1382. 

  1382. 	  while ($row = mysql_fetch_array($r)) 
    1383. 

  1383. 	  {
    1384. 

  1384. 		$name = $row["name"];
    1385. 

  1385. 		$id = $row["id"];
    1386. 

  1386. 		echo "<option value=$id>$name</option>\n";
    1387. 

  1387.       }
    1388. 

  1388. 	  echo "</select><br>\n\n";
    1389. 

  1389. 	  echo "Manufacturer: <select name='man_id'>\n";
    1390. 

  1390. 	  $q = "select * from $man_table order by name";
    1391. 

  1391. 	  $r = mysql_query($q) or die(mysql_error());
    1392. 

  1392. 	  while ($row = mysql_fetch_array($r)) 
    1393. 

  1393. 	  {
    1394. 

  1394. 		$name = $row["name"];
    1395. 

  1395. 		$id = $row["id"];
    1396. 

  1396. 		echo "<option value=$id>$name</option>\n";
    1397. 

  1397.       }
    1398. 

  1398. 	  echo "</select><br>\n\n";
    1399. 

  1399. 	  echo "Expiration Date: <input type='text' name='exp_date' maxlength='10' size='10' value = '$today'> (mm/dd/yyyy)<br>\n";
    1400. 

  1400. 	  echo "Lot #: <input type='text' name='lot_num' maxlength='80'><br>\n";
    1401. 

  1401. 	  echo "<font size='+3'><b>Who Received: $user_name</b></font><br>\n";
    1402. 

  1402.       echo "<input type='hidden' name='r_name' value='$user_name'>\n";
    1403. 

  1403. 	  echo "<br><input type='submit' value='Record new stock'>\n";
    1404. 

  1404. 	  echo "</form></center>\n";
    1405. 

  1405.       NavBar($cgi, $act, $usr_access);
    1406. 

  1406. 	break;
    1407. 

  1407. 	// end of stock_add
    1408. 

  1408. 	
    1409. 

  1409. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1410. 

  1410. //vaccine_list * ok
    1411. 

  1411. // From Navigation "On Hand" in Module Expire
    1412. 

  1412. // Handles expire and consume Links
    1413. 

  1413. // From Navagation selecting List on Hand
    1414. 

  1414. // Need to make a deture for the consume and delete so a "note" can be entered.
    1415. 

  1415. // The "note" needs to be ran through the validation to prevent SQL injection
    1416. 

  1416. // Have this module accept info for Create or destroy, so it can be handled (Introduce by banner) properly
    1417. 

  1417. // After collection of the "note", return here for processing so they return to the  expire screen
    1418. 

  1418. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1419. 

  1419.     case "vaccine_list":
    1420. 

  1420. 	  // if cargo = destroy or cargo = consume... need to mark that entry, then do the listing again
    1421. 

  1421. //      mybanner("Total listing of <u>On-Hand</u> by vaccine then in order of expiration Date", "none", $PHP_AUTH_USER);
    1422. 

  1422. //      $q = "select a.exp_date, a.lot_num, a.r_name, 
    1423. 

  1423. //	    a.r_date, a.r_time, a.r_ip, b.name as bio_name,c.name as man_name,
    1424. 

  1424. //		a.biological_id as bio_id, a.id as det_id,
    1425. 

  1425. //		datediff( a.exp_date, now() ) as exp
    1426. 

  1426. //	    from $mydbf.$mytable a, $bio_table b, $man_table c
    1427. 

  1427. //        where a.consumed_ynd = 'N' and b.id = a.biological_id and a.man_id = c.id
    1428. 

  1428. //        order by bio_name, exp_date";
    1429. 

  1429.       mybanner("Total listing of <u>On-Hand</u> in order of expiration Date", "none", $user_name);
    1430. 

  1430.       $q = "select a.exp_date, a.lot_num, a.r_name, 
    1431. 

  1431. 	    a.r_date, a.r_time, a.r_ip, b.name as bio_name,c.name as man_name,
    1432. 

  1432. 		a.biological_id as bio_id, a.id as det_id,
    1433. 

  1433. 		datediff( a.exp_date, now() ) as exp
    1434. 

  1434. 	    from $mydbf.$mytable a, $bio_table b, $man_table c
    1435. 

  1435.         where a.consumed_ynd = 'N' and b.id = a.biological_id and a.man_id = c.id
    1436. 

  1436.         order by exp_date";
    1437. 

  1437. 	  //echo "<br>$q<br>";
    1438. 

  1438.       $r = mysql_query($q) or die(mysql_error());
    1439. 

  1439.       $max = mysql_num_rows($r);
    1440. 

  1440.       if ($max > 0) {
    1441. 

  1441. //	    echo "<hr width='45%' align=center>";
    1442. 

  1442. 	    echo "<center><table  width='95%' border='1' cellspacing='0' cellpadding='4'>\n";
    1443. 

  1443. 		echo "<tr bgcolor=#ffffff><td colspan=11><center>$max records found</center></td></tr>";
    1444. 

  1444.       	echo "<tr bgcolor=#ffffff><td>Vaccine</td><td>Man</td><td>Lot #</td><td>Exp Date</td><td>Exp in</td>
    1445. 

  1445. 		  <td>Received by</td><td>Date</td><td>Time</td><td>Computer</td>
    1446. 

  1446. 		  <td colspan=2><center>Consume | Destroy</center></td></tr>";
    1447. 

  1447.       	$color = 0;
    1448. 

  1448.         while ($row = mysql_fetch_array($r)) {
    1449. 

  1449.           $color = MeColorTR($color, 1);
    1450. 

  1450. 		  $lot_num = $row["lot_num"];
    1451. 

  1451. 		  $exp_date = DosDate($row["exp_date"]);
    1452. 

  1452. 		  $exp = $row["exp"];
    1453. 

  1453. 		  $man_name = $row["man_name"];
    1454. 

  1454. 		  $colorexp = "<font color='FFFF00'>"; // Yellow
    1455. 

  1455. 		  if ($exp > $colorsafe) $colorexp = $black;
    1456. 

  1456. 		  if ($exp < $colorwarn) {
    1457. 

  1457. 		    $colorexp = $red;
    1458. 

  1458. 			if ($exp > -1)  $colorexp = $green;
    1459. 

  1459. 		  }	
    1460. 

  1460. 		  $r_name = $row["r_name"];
    1461. 

  1461. 		  $r_date = DosDate($row["r_date"]);
    1462. 

  1462.    	      $r_time = str_pad($row["r_time"],5,"0",STR_PAD_LEFT);
    1463. 

  1463.           $r_ip = $row["r_ip"];
    1464. 

  1464.    	      $bio_id = $row["bio_id"];
    1465. 

  1465. 		  $bio_name = $row["bio_name"];
    1466. 

  1466. 		  $det_id = $row["det_id"];
    1467. 

  1467. 		  //$computer = $row["computer"];
    1468. 

  1468.           echo "<td>$bio_name</td><td>$man_name</td><td>$lot_num</td><td>$exp_date</td><td>$colorexp$exp</font></td><td>$r_name</td>
    1469. 

  1469. 		    <td>$r_date</td><td>$r_time</td><td>$r_ip</td>";
    1470. 

  1470.    	      echo "<td><a href='$cgi?act=get_note&det_id=$det_id&bio_id=$bio_id&bio_name=$bio_name&cargo=consume'>Consume</a></td>
    1471. 

  1471. 		    <td><a href='$cgi?act=get_note&det_id=$det_id&bio_id=$bio_id&bio_name=$bio_name&cargo=destroy'>Destroy</a></td>";
    1472. 

  1472.           echo "</tr>\n";
    1473. 

  1473.         }
    1474. 

  1474.       	echo "</table></center><br><br>\n";
    1475. 

  1475. 		if ($usr_access > 50) {
    1476. 

  1476. 		  echo "<center><table  width='60%' border='1' cellspacing='0' cellpadding='4'>\n";
    1477. 

  1477. 		  echo "<tr>";
    1478. 

  1478. 		  echo "<td><center><form action='$cgi' method='post'>\n";
    1479. 

  1479. 		  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1480. 

  1480. 		  echo "<input type='hidden' name='type' value='xls'>\n";
    1481. 

  1481. 		  echo "<input type='hidden' name='consumed_ynd' value='instock'>\n";
    1482. 

  1482. 		  echo "<br><input type='submit' value='Dump Selected to Spreadsheet'>\n";
    1483. 

  1483. 		  echo "</form></center></td>\n";
    1484. 

  1484. 		  echo "<td><center><form action='$cgi' method='post'>\n";
    1485. 

  1485. 		  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1486. 

  1486. 		  echo "<input type='hidden' name='type' value='txt'>\n";
    1487. 

  1487. 		  echo "<input type='hidden' name='consumed_ynd' value='instock'>\n";
    1488. 

  1488. 		  echo "<br><input type='submit' value='Dump Selected to Text'>\n";
    1489. 

  1489. 		  echo "</form></center></td>\n";
    1490. 

  1490. 		  echo "</tr></table></center><br><br>\n";
    1491. 

  1491. 		}
    1492. 

  1492.       } else {
    1493. 

  1493.         echo "<center><font size='+2'><br><font color=#ff0000>ERROR</font><br>There are no Vaccines On Hand</font></center><br><br>";
    1494. 

  1494.       }
    1495. 

  1495.       NavBar($cgi, $act, $usr_access);
    1496. 

  1496.     break;
    1497. 

  1497. 	// end of vaccine_list
    1498. 

  1498. 	
    1499. 

  1499. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1500. 

  1500. // Date Report
    1501. 

  1501. // From Navigation "Report by Date Range"
    1502. 

  1502. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1503. 

  1503.     case "date_report":
    1504. 

  1504. 	  // Report Usage by date/Date range
    1505. 

  1505. //	  echo "<center><font size='+2'>I as still working on this!</font><br></center><br><br>\n";
    1506. 

  1506. //	  echo "<hr width='25%' align=center>\n";
    1507. 

  1507. // Very carefull here. Colm says received and must include items that may be consumed or destroyed.
    1508. 

  1508. //    For received, you must only apply the date on the received column, not just the consumed_ynd flag
    1509. 

  1509.       $mydate = getdate(time());
    1510. 

  1510. 	  $r_date = $mydate["year"] . "-" . $mydate["mon"] . "-" . $mydate["mday"];
    1511. 

  1511. 	  $today =  $mydate["mon"] . "/" . $mydate["mday"] . "/" . $mydate["year"];
    1512. 

  1512. 	  $r_time = format_time($mydate);
    1513. 

  1513. //      $r_time = str_pad($r_time,5,"0",STR_PAD_LEFT);
    1514. 

  1514.       $r_ip = $REMOTE_ADDR;
    1515. 

  1515. 	  $c_date = $mydate["year"] . "-" . $mydate["mon"] . "-" . $mydate["mday"];
    1516. 

  1516. 	  $c_time = format_time($mydate);
    1517. 

  1517. //      $c_time = str_pad($c_time,5,"0",STR_PAD_LEFT);
    1518. 

  1518.       $c_ip = $REMOTE_ADDR;
    1519. 

  1519. 	  if (isset($cargo))
    1520. 

  1520. 	  {
    1521. 

  1521. 	    if ($cargo == "got_date") 
    1522. 

  1522. 		{
    1523. 

  1523. 		  // Need to do a sanity check on the dates
    1524. 

  1524. 		  $err_str = ValadateInput($s_date, "date", "Start Date");
    1525. 

  1525. 		  $err_str = $err_str . ValadateInput($e_date, "date", "End Date");
    1526. 

  1526. 		  
    1527. 

  1527. // next need to make sure that the start date is less than the beginning date		  
    1528. 

  1528. 		  
    1529. 

  1529. 		  
    1530. 

  1530. 		  
    1531. 

  1531. 		  
    1532. 

  1532. 		  
    1533. 

  1533. 		  
    1534. 

  1534. 		  
    1535. 

  1535. 		  
    1536. 

  1536. 		  
    1537. 

  1537. 		  if (strlen($err_str) > 5) {
    1538. 

  1538. 		    mybanner("ERROR", "none", $user_name);
    1539. 

  1539. 			echo $err_str;
    1540. 

  1540. 			echo "<br><center><font size=+2>Try Again</font></center><br>";
    1541. 

  1541. 		  } else {
    1542. 

  1542.             mybanner("Usage Report $s_date to $e_date", "none", $user_name);
    1543. 

  1543. 			$q = "select * from $bio_table order by name";
    1544. 

  1544. 			$r = mysql_query($q) or die(mysql_error());
    1545. 

  1545. 			$s_date = LinuxDate($s_date);
    1546. 

  1546. 			$e_date = LinuxDate($e_date);
    1547. 

  1547. 

  1548. 			echo "<center><table  width='75%' border='1' cellspacing='0' cellpadding='4'>\n";
    1549. 

  1549. 			echo "<tr><td><center>Name</center></td>";
    1550. 

  1550. 			echo "<td><center>Received</center></td>
    1551. 

  1551. 			  <td><center>Consumed</center></td>
    1552. 

  1552. 			  <td><center>Destroyed</center></td>
    1553. 

  1553. 			  </tr>\n";
    1554. 

  1554. 			$color = 0;
    1555. 

  1555. 			$form_txt = "<form action='$cgi' method='post'>
    1556. 

  1556. 					<input type='hidden' name='act' value='%%var1%%'>
    1557. 

  1557. 						<input type='hidden' name='bio_id' value='%%bio_id%%'>
    1558. 

  1558. 					<input type='hidden' name='vac_name' value='%%name%%'>
    1559. 

  1559. 					<input type='hidden' name='s_date' value='$s_date'>
    1560. 

  1560. 					<input type='hidden' name='e_date' value='$e_date'>
    1561. 

  1561. 						<input type='submit' value=%%value%%>
    1562. 

  1562. 					</form>";
    1563. 

  1563. 			 if (mysql_num_rows($r) > 0) {
    1564. 

  1564. 			  while ($row = mysql_fetch_array($r)) {
    1565. 

  1565. 			    $bio_id = $row["id"];
    1566. 

  1566. 				$name = $row["name"];
    1567. 

  1567. //				$q2 = "select count(*) as mycount from $mytable where biological_id = '$bio_id' and consumed_ynd = 'N'
    1568. 

  1568. //					and r_date >= $d_quote$s_date$d_quote and r_date <= $d_quote$e_date$d_quote";
    1569. 

  1569. 				$q2 = "select count(*) as mycount from $mytable where biological_id = '$bio_id'
    1570. 

  1570. 					and r_date >= $d_quote$s_date$d_quote and r_date <= $d_quote$e_date$d_quote";
    1571. 

  1571. 				$qy = "select count(*) as mycount from $mytable where biological_id = '$bio_id' and consumed_ynd = 'Y'
    1572. 

  1572. 					and c_date >= $d_quote$s_date$d_quote and c_date <= $d_quote$e_date$d_quote";
    1573. 

  1573. 				$qd = "select count(*) as mycount from $mytable where biological_id = '$bio_id' and consumed_ynd = 'D'
    1574. 

  1574. 					and c_date >= $d_quote$s_date$d_quote and c_date <= $d_quote$e_date$d_quote";
    1575. 

  1575. 				$r2 = mysql_query($q2) or die(mysql_error());
    1576. 

  1576. 				$ry = mysql_query($qy) or die(mysql_error());
    1577. 

  1577. 				$rd = mysql_query($qd) or die(mysql_error());
    1578. 

  1578. 				$row2 = mysql_fetch_array($r2);
    1579. 

  1579. 				$rowy = mysql_fetch_array($ry);
    1580. 

  1580. 				$rowd = mysql_fetch_array($rd);
    1581. 

  1581. 				$mycount1 = $row2["mycount"];
    1582. 

  1582. 				$mycounty = $rowy["mycount"];
    1583. 

  1583. 				$mycountd = $rowd["mycount"];
    1584. 

  1584. 				$temp = $form_txt;
    1585. 

  1585. 				$color = MeColorTR($color, 1);
    1586. 

  1586. 				// Echo link for the Vaccine name
    1587. 

  1587. 				if (($mycount1 + $mycounty + $mycountd) > 0) {
    1588. 

  1588. 					$temp = str_replace('%%var1%%', 'date_vac_list', $temp);
    1589. 

  1589. 					$temp = str_replace('%%value%%', $name, $temp);
    1590. 

  1590. 					$temp = str_replace('%%bio_id%%', $bio_id, $temp);
    1591. 

  1591. 					$temp = str_replace('%%name%%', $name, $temp);
    1592. 

  1592. 					echo "<td><center>$temp</center></td>";
    1593. 

  1593. 				} else {
    1594. 

  1594. 					echo "<td><center>$name</center></td>";
    1595. 

  1595. 				}
    1596. 

  1596. 				$temp = $form_txt;
    1597. 

  1597. 				if ($mycount1 > 0) {
    1598. 

  1598. 				  $temp = str_replace('%%var1%%', 'one_received_list', $temp);
    1599. 

  1599. 				  $temp = str_replace('%%value%%', $mycount1, $temp);
    1600. 

  1600. 				  $temp = str_replace('%%bio_id%%', $bio_id, $temp);
    1601. 

  1601. 				  $temp = str_replace('%%name%%', $name, $temp);
    1602. 

  1602. 				  echo "<td><center>$temp</center></td>";
    1603. 

  1603. 				} else {
    1604. 

  1604. 				  echo "<td><center>0</center></td>";
    1605. 

  1605. 				}
    1606. 

  1606. 				$temp = $form_txt;
    1607. 

  1607. 				if ($mycounty > 0) {
    1608. 

  1608. 				  $temp = str_replace('%%var1%%', 'one_consumed_list', $temp);
    1609. 

  1609. 				  $temp = str_replace('%%value%%', $mycounty, $temp);
    1610. 

  1610. 				  $temp = str_replace('%%bio_id%%', $bio_id, $temp);
    1611. 

  1611. 				  $temp = str_replace('%%name%%', $name, $temp);
    1612. 

  1612. 				  echo "<td><center>$temp</center></td>";
    1613. 

  1613. 				} else {
    1614. 

  1614. 				  echo "<td><center>0</center></td>";
    1615. 

  1615. 				}
    1616. 

  1616. 				$temp = $form_txt;
    1617. 

  1617. 				if ($mycountd > 0) {
    1618. 

  1618. 				  $temp = str_replace('%%var1%%', 'one_destroyed_list', $temp);
    1619. 

  1619. 				  $temp = str_replace('%%value%%', $mycountd, $temp);
    1620. 

  1620. 				  $temp = str_replace('%%bio_id%%', $bio_id, $temp);
    1621. 

  1621. 				  $temp = str_replace('%%name%%', $name, $temp);
    1622. 

  1622. 				  echo "<td><center>$temp</center></td>";
    1623. 

  1623. 				} else {
    1624. 

  1624. 				  echo "<td><center>0</center></td>";
    1625. 

  1625. 				}
    1626. 

  1626. 				echo "</tr>\n";
    1627. 

  1627. 			  }
    1628. 

  1628. 			  echo "</table></center><br><br>";
    1629. 

  1629. 			  if ($usr_access > 50) {
    1630. 

  1630. 				  echo "<center><table  width='60%' border='1' cellspacing='0' cellpadding='4'>\n";
    1631. 

  1631. 				  echo "<tr>";
    1632. 

  1632. 				  echo "<td><center><form action='$cgi' method='post'>\n";
    1633. 

  1633. 				  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1634. 

  1634. 				  echo "<input type='hidden' name='type' value='xls'>\n";
    1635. 

  1635. 				  echo "<input type='hidden' name='s_date' value=$s_date>\n";
    1636. 

  1636. 				  echo "<input type='hidden' name='e_date' value=$e_date>\n";
    1637. 

  1637. 				  echo "<br><input type='submit' value='Dump Selected to Spreadsheet'>\n";
    1638. 

  1638. 				  echo "</form></center></td>\n";
    1639. 

  1639. 				  echo "<td><center><form action='$cgi' method='post'>\n";
    1640. 

  1640. 				  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1641. 

  1641. 				  echo "<input type='hidden' name='type' value='txt'>\n";
    1642. 

  1642. 				  echo "<input type='hidden' name='s_date' value=$s_date>\n";
    1643. 

  1643. 				  echo "<input type='hidden' name='e_date' value=$e_date>\n";
    1644. 

  1644. 				  echo "<br><input type='submit' value='Dump Selected to Text'>\n";
    1645. 

  1645. 				  echo "</form></center></td>\n";
    1646. 

  1646. 				  echo "</tr></table></center><br><br>\n";
    1647. 

  1647. 			  }
    1648. 

  1648. 			} else {
    1649. 

  1649. 			  echo "<center><font size='+2'><br><font color=#ff0000>ERROR</font><br>Appears that there are no Vaccines in the Database<br>Press back and try again</font></center><br><br>";
    1650. 

  1650. 			}
    1651. 

  1651. 		  }
    1652. 

  1652. 			
    1653. 

  1653. 		}
    1654. 

  1654. 	  } else {
    1655. 

  1655.         mybanner("Enter Date Range for Usage Report", "none", $user_name);
    1656. 

  1656. 	    echo "<center><form action='$cgi' method='post'>\n";
    1657. 

  1657.         echo "<input type='hidden' name='act' value='date_report'>\n";
    1658. 

  1658. 		echo "<input type='hidden' name='cargo' value='got_date'>\n";
    1659. 

  1659. 	    echo "Start Date: <input type='text' name='s_date' maxlength='10' size='10' value = '$today'> (mm/dd/yyyy)<br>\n";
    1660. 

  1660. 	    echo "End Date: <input type='text' name='e_date' maxlength='10' size='10' value = '$today'> (mm/dd/yyyy)<br>\n";
    1661. 

  1661. 	    echo "<br><input type='submit' value='Create Report'>\n";
    1662. 

  1662. 	    echo "</form></center>\n";
    1663. 

  1663. 	  }
    1664. 

  1664.       NavBar($cgi, $act, $usr_access);
    1665. 

  1665. 	break;
    1666. 

  1666. 	// end of date_report
    1667. 

  1667. 	
    1668. 

  1668. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1669. 

  1669. // one_received_list
    1670. 

  1670. // From Navigation, Report by Date Range, From Form "Received" Select button
    1671. 

  1671. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1672. 

  1672.   case "one_received_list":
    1673. 

  1673.     mybanner("Received $vac_name Vaccine from $s_date to $e_date", "none", $user_name);
    1674. 

  1674. //	$q = "select * from $mytable where biological_id = '$bio_id' and consumed_ynd = 'N'
    1675. 

  1675. //		and r_date >= $d_quote$s_date$d_quote and r_date <= $d_quote$e_date$d_quote
    1676. 

  1676. //		order by r_date ASC, r_time ASC";
    1677. 

  1677. 	$q = "select * from $mytable where biological_id = '$bio_id'
    1678. 

  1678. 		and r_date >= $d_quote$s_date$d_quote and r_date <= $d_quote$e_date$d_quote
    1679. 

  1679. 		order by r_date ASC, r_time ASC";
    1680. 

  1680. 	My_Lister($vac_name, $q, "received");
    1681. 

  1681. //	echo "<br>$q<br>";
    1682. 

  1682. 	if ($usr_access > 50) {
    1683. 

  1683. 	  echo "<center><table  width='60%' border='1' cellspacing='0' cellpadding='4'>\n";
    1684. 

  1684. 	  echo "<tr>";
    1685. 

  1685. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    1686. 

  1686. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1687. 

  1687. 	  echo "<input type='hidden' name='type' value='xls'>\n";
    1688. 

  1688. 	  echo "<input type='hidden' name='s_date' value=$s_date>\n";
    1689. 

  1689. 	  echo "<input type='hidden' name='e_date' value=$e_date>\n";
    1690. 

  1690. 	  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    1691. 

  1691. 	  echo "<input type='hidden' name='bio_name' value='$vac_name'>\n";
    1692. 

  1692. 	  echo "<input type='hidden' name='consumed_ynd' value='N'>\n";
    1693. 

  1693. 	  echo "<br><input type='submit' value='Dump Selected to Spreadsheet'>\n";
    1694. 

  1694. 	  echo "</form></center></td>\n";
    1695. 

  1695. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    1696. 

  1696. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1697. 

  1697. 	  echo "<input type='hidden' name='type' value='txt'>\n";
    1698. 

  1698. 	  echo "<input type='hidden' name='s_date' value=$s_date>\n";
    1699. 

  1699. 	  echo "<input type='hidden' name='e_date' value=$e_date>\n";
    1700. 

  1700. 	  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    1701. 

  1701. 	  echo "<input type='hidden' name='bio_name' value='$vac_name'>\n";
    1702. 

  1702. 	  echo "<input type='hidden' name='consumed_ynd' value='N'>\n";
    1703. 

  1703. 	  echo "<br><input type='submit' value='Dump Selected to Text'>\n";
    1704. 

  1704. 	  echo "</form></center></td>\n";
    1705. 

  1705. 	  echo "</tr></table></center><br><br>\n";
    1706. 

  1706. 	}
    1707. 

  1707.     NavBar($cgi, $act, $usr_access);
    1708. 

  1708.   break;
    1709. 

  1709.   // end of one_received_list
    1710. 

  1710. 

  1711. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1712. 

  1712. // one_consumed_list
    1713. 

  1713. // From Navigation, Report by Date Range, From Form "Consumed" Select button
    1714. 

  1714. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1715. 

  1715.   case "one_consumed_list":
    1716. 

  1716.     mybanner("Consumed $vac_name Vaccine from $s_date to $e_date", "none", $user_name);
    1717. 

  1717. 	$q = "select * from $mytable where biological_id = '$bio_id' and consumed_ynd = 'Y'
    1718. 

  1718. 		and c_date >= $d_quote$s_date$d_quote and c_date <= $d_quote$e_date$d_quote
    1719. 

  1719. 		order by c_date ASC, c_time ASC";
    1720. 

  1720. 	My_Lister($vac_name, $q, "consumed");
    1721. 

  1721. //	echo "<br>$q<br>";
    1722. 

  1722. 	if ($usr_access > 50) {
    1723. 

  1723. 	  echo "<center><table  width='60%' border='1' cellspacing='0' cellpadding='4'>\n";
    1724. 

  1724. 	  echo "<tr>";
    1725. 

  1725. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    1726. 

  1726. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1727. 

  1727. 	  echo "<input type='hidden' name='type' value='xls'>\n";
    1728. 

  1728. 	  echo "<input type='hidden' name='s_date' value=$s_date>\n";
    1729. 

  1729. 	  echo "<input type='hidden' name='e_date' value=$e_date>\n";
    1730. 

  1730. 	  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    1731. 

  1731. 	  echo "<input type='hidden' name='bio_name' value='$vac_name'>\n";
    1732. 

  1732. 	  echo "<input type='hidden' name='consumed_ynd' value='Y'>\n";
    1733. 

  1733. 	  echo "<br><input type='submit' value='Dump Selected to Spreadsheet'>\n";
    1734. 

  1734. 	  echo "</form></center></td>\n";
    1735. 

  1735. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    1736. 

  1736. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1737. 

  1737. 	  echo "<input type='hidden' name='type' value='txt'>\n";
    1738. 

  1738. 	  echo "<input type='hidden' name='s_date' value=$s_date>\n";
    1739. 

  1739. 	  echo "<input type='hidden' name='e_date' value=$e_date>\n";
    1740. 

  1740. 	  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    1741. 

  1741. 	  echo "<input type='hidden' name='bio_name' value='$vac_name'>\n";
    1742. 

  1742. 	  echo "<input type='hidden' name='consumed_ynd' value='Y'>\n";
    1743. 

  1743. 	  echo "<br><input type='submit' value='Dump Selected to Text'>\n";
    1744. 

  1744. 	  echo "</form></center></td>\n";
    1745. 

  1745. 	  echo "</tr></table></center><br><br>\n";
    1746. 

  1746. 	}
    1747. 

  1747.     NavBar($cgi, $act, $usr_access);
    1748. 

  1748.   break;
    1749. 

  1749.   // end of one_consumed_list
    1750. 

  1750. 

  1751. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1752. 

  1752. // one_destroyed_list
    1753. 

  1753. // From Navigation, Report by Date Range, From Form "Destroyed" Select button
    1754. 

  1754. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1755. 

  1755.   case "one_destroyed_list":
    1756. 

  1756.     mybanner("Destroyed $vac_name Vaccine from $s_date to $e_date", "none", $user_name);
    1757. 

  1757. 	$q = "select * from $mytable where biological_id = '$bio_id' and consumed_ynd = 'D'
    1758. 

  1758. 		and c_date >= $d_quote$s_date$d_quote and c_date <= $d_quote$e_date$d_quote
    1759. 

  1759. 		order by c_date ASC, c_time ASC";
    1760. 

  1760. 	My_Lister($vac_name, $q, "destroyed");
    1761. 

  1761. //	echo "<br>$q<br>";
    1762. 

  1762. 	if ($usr_access > 50) {
    1763. 

  1763. 	  echo "<center><table  width='60%' border='1' cellspacing='0' cellpadding='4'>\n";
    1764. 

  1764. 	  echo "<tr>";
    1765. 

  1765. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    1766. 

  1766. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1767. 

  1767. 	  echo "<input type='hidden' name='type' value='xls'>\n";
    1768. 

  1768. 	  echo "<input type='hidden' name='s_date' value=$s_date>\n";
    1769. 

  1769. 	  echo "<input type='hidden' name='e_date' value=$e_date>\n";
    1770. 

  1770. 	  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    1771. 

  1771. 	  echo "<input type='hidden' name='bio_name' value='$vac_name'>\n";
    1772. 

  1772. 	  echo "<input type='hidden' name='consumed_ynd' value='D'>\n";
    1773. 

  1773. 	  echo "<br><input type='submit' value='Dump Selected to Spreadsheet'>\n";
    1774. 

  1774. 	  echo "</form></center></td>\n";
    1775. 

  1775. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    1776. 

  1776. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1777. 

  1777. 	  echo "<input type='hidden' name='type' value='txt'>\n";
    1778. 

  1778. 	  echo "<input type='hidden' name='s_date' value=$s_date>\n";
    1779. 

  1779. 	  echo "<input type='hidden' name='e_date' value=$e_date>\n";
    1780. 

  1780. 	  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    1781. 

  1781. 	  echo "<input type='hidden' name='bio_name' value='$vac_name'>\n";
    1782. 

  1782. 	  echo "<input type='hidden' name='consumed_ynd' value='D'>\n";
    1783. 

  1783. 	  echo "<br><input type='submit' value='Dump Selected to Text'>\n";
    1784. 

  1784. 	  echo "</form></center></td>\n";
    1785. 

  1785. 	  echo "</tr></table></center><br><br>\n";
    1786. 

  1786. 	}
    1787. 

  1787.     NavBar($cgi, $act, $usr_access);
    1788. 

  1788.   break;
    1789. 

  1789.   // end of one_destroyed_list
    1790. 

  1790. 	
    1791. 

  1791. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1792. 

  1792. // date_vac_list
    1793. 

  1793. // From Navigation, Report by Date Range, From Form "Name" Select button
    1794. 

  1794. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1795. 

  1795.   case "date_vac_list":
    1796. 

  1796.     mybanner("All $vac_name Vaccine from $s_date to $e_date", "none", $user_name);
    1797. 

  1797. 	$q = "select * from $mytable 
    1798. 

  1798. 		where biological_id = '$bio_id'
    1799. 

  1799. 		and ((r_date >= $d_quote$s_date$d_quote and r_date <= $d_quote$e_date$d_quote)
    1800. 

  1800. 		or (c_date >= $d_quote$s_date$d_quote and c_date <= $d_quote$e_date$d_quote))
    1801. 

  1801. 		order by consumed_ynd, r_date, r_time";
    1802. 

  1802. // echo "<BR><BR>$q<BR><BR>";		
    1803. 

  1803. 	Full_Lister($bio_name, $q);
    1804. 

  1804. //	echo "<br>$q<br>";
    1805. 

  1805. 	if ($usr_access > 50) {
    1806. 

  1806. 	  echo "<center><table  width='60%' border='1' cellspacing='0' cellpadding='4'>\n";
    1807. 

  1807. 	  echo "<tr>";
    1808. 

  1808. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    1809. 

  1809. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1810. 

  1810. 	  echo "<input type='hidden' name='type' value='xls'>\n";
    1811. 

  1811. 	  echo "<input type='hidden' name='s_date' value=$s_date>\n";
    1812. 

  1812. 	  echo "<input type='hidden' name='e_date' value=$e_date>\n";
    1813. 

  1813. 	  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    1814. 

  1814. 	  echo "<input type='hidden' name='bio_name' value='$vac_name'>\n";
    1815. 

  1815. 	  echo "<br><input type='submit' value='Dump Selected to Spreadsheet'>\n";
    1816. 

  1816. 	  echo "</form></center></td>\n";
    1817. 

  1817. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    1818. 

  1818. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    1819. 

  1819. 	  echo "<input type='hidden' name='type' value='txt'>\n";
    1820. 

  1820. 	  echo "<input type='hidden' name='s_date' value=$s_date>\n";
    1821. 

  1821. 	  echo "<input type='hidden' name='e_date' value=$e_date>\n";
    1822. 

  1822. 	  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    1823. 

  1823. 	  echo "<input type='hidden' name='bio_name' value='$vac_name'>\n";
    1824. 

  1824. 	  echo "<br><input type='submit' value='Dump Selected to Text'>\n";
    1825. 

  1825. 	  echo "</form></center></td>\n";
    1826. 

  1826. 	  echo "</tr></table></center><br><br>\n";
    1827. 

  1827. 	}
    1828. 

  1828.     NavBar($cgi, $act, $usr_access);
    1829. 

  1829.   break;
    1830. 

  1830.   // end of date_vac_list
    1831. 

  1831.   
    1832. 

  1832. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1833. 

  1833. // Get_note
    1834. 

  1834. // From Navagation selecting "List on Hand" in the expire module and selecting 'consume' or 'expire'
    1835. 

  1835. // Need to collect the note and make sure the string is ok and then return to the "expire" module for update SQL
    1836. 

  1836. // Upon return to expire module you will need.
    1837. 

  1837. // Need to make a deture for the consume and delete so a "note" can be entered.
    1838. 

  1838. // The "note" needs to be ran through the validation to prevent SQL injection
    1839. 

  1839. // Have this module accept info for Create or destroy, so it can be handled (Introduce by banner) properly
    1840. 

  1840. // After collection of the "note", return here for processing so they return to the  expire screen
    1841. 

  1841. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1842. 

  1842.     case "get_note":
    1843. 

  1843.       $progress_str = "You have selected to $cargo a $bio_name vaccine";
    1844. 

  1844.       $mydate = getdate(time());
    1845. 

  1845. 	  $r_date = $mydate["year"] . "-" . $mydate["mon"] . "-" . $mydate["mday"];
    1846. 

  1846. 	  $today =  $mydate["mon"] . "/" . $mydate["mday"] . "/" . $mydate["year"];
    1847. 

  1847. 	  $r_time = format_time($mydate);
    1848. 

  1848. //      $r_time = str_pad($r_time,5,"0",STR_PAD_LEFT);
    1849. 

  1849.       $r_ip = $REMOTE_ADDR;
    1850. 

  1850. 	  $c_date = $mydate["year"] . "-" . $mydate["mon"] . "-" . $mydate["mday"];
    1851. 

  1851. 	  $c_time = format_time($mydate);
    1852. 

  1852. //      $c_time = str_pad($c_time,5,"0",STR_PAD_LEFT);
    1853. 

  1853.       $c_ip = $REMOTE_ADDR;
    1854. 

  1854. 	  if (isset($note)) {
    1855. 

  1855. 	    $note = FixMyString($note);
    1856. 

  1856. 	    $q1 = "update $mytable set c_name= $d_quote$user_name$d_quote,
    1857. 

  1857. 		c_date = $d_quote$c_date$d_quote,
    1858. 

  1858. 		c_time = $d_quote$c_time$d_quote,
    1859. 

  1859. 		c_ip = $d_quote$c_ip$d_quote, 
    1860. 

  1860. 		note = $d_quote$note$d_quote, 
    1861. 

  1861. 		consumed_ynd = ";
    1862. 

  1862. 		$q3 = " where id = $d_quote$det_id$d_quote";   
    1863. 

  1863. 		if ($cargo == "destroy") 
    1864. 

  1864. 		{
    1865. 

  1865. 		  mybanner("one $bio_name has been marked DESTROYED", "none", $user_name);
    1866. 

  1866. 		  $q2 = $d_quote . "D" . $d_quote;
    1867. 

  1867. 		}
    1868. 

  1868. 		if ($cargo == "consume")
    1869. 

  1869. 		{
    1870. 

  1870. 		  mybanner("one $bio_name has been marked CONSUMED", "none", $user_name);
    1871. 

  1871.     	  $q2 = $d_quote . "Y" . $d_quote;
    1872. 

  1872. 		}
    1873. 

  1873. 		$q = $q1 . $q2 . $q3;
    1874. 

  1874. //    	echo "<br>$q<br>";
    1875. 

  1875. 		$r = mysql_query($q) or die(mysql_error());
    1876. 

  1876. 		echo "<br><center><font size=+2>Success!</font></center><br>";
    1877. 

  1877. 		SendEmail($progress_str, $bio_table, $detail_table, $email_table);
    1878. 

  1878. 	  } else {
    1879. 

  1879.   	      mybanner($progress_str, "none", $user_name);
    1880. 

  1880. 		  echo "<br><center><font +1><b>Please enter comment below</b></font></center><br>";
    1881. 

  1881. 	//	  mybanner("Consume/Delete Comment Collection", "none", $PHP_AUTH_USER);
    1882. 

  1882. 	//	  Go back to vaccine_list when done with collecting and validating note!
    1883. 

  1883. 	//   Go back to stock_list when done with collecting and validating note!
    1884. 

  1884. 	//    echo "<td><a href='$cgi?act=stock_list&det_id=$det_id&bio_id=$bio_id&bio_name=$bio_name&cargo=consume'>Consume</a></td>
    1885. 

  1885. 	//    <td><a href='$cgi?act=stock_list&det_id=$det_id&bio_id=$bio_id&bio_name=$bio_name&cargo=destroy'>Destroy</a></td>";
    1886. 

  1886. 		  echo "<center><form action='$cgi' method='post'>\n";
    1887. 

  1887. 		  echo "<input type='hidden' name='act' value='get_note'>\n";
    1888. 

  1888. 		  echo "<input type='hidden' name='cargo' value='$cargo'>\n";
    1889. 

  1889. 		  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    1890. 

  1890. 		  echo "<input type='hidden' name='bio_name' value='$bio_name'>\n";
    1891. 

  1891. 		  echo "<input type='hidden' name='det_id' value='$det_id'>\n";
    1892. 

  1892. 		  echo "Note/Comment: <input type='text' name='note' maxlength='132' size='40' value = ''><br>\n";
    1893. 

  1893. 		  echo "<br><input type='submit' value='Record $cargo of $bio_name'>\n";
    1894. 

  1894. 		  echo "</form></center>\n";
    1895. 

  1895. //		  echo "<br>det_id=$det_id<br>bio_id=$bio_id<br>bio_name=$bio_name<br>cargo=$cargo<br>note=$note<br>";  
    1896. 

  1896. 	  }
    1897. 

  1897.     NavBar($cgi, $act, $usr_access);
    1898. 

  1898.   break;
    1899. 

  1899.   // end of get_note
    1900. 

  1900.   
    1901. 

  1901. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1902. 

  1902. // dumpxl
    1903. 

  1903. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1904. 

  1904. case "dumpxl":
    1905. 

  1905. //die( "<br>Q_str = $q_str<br>\n");
    1906. 

  1906. 	header("Cache-control: private");
    1907. 

  1907. 	header('Content-type: application/vnd.ms-excel');
    1908. 

  1908. 	header("Content-Disposition: attachment ; filename=vaccine_dump." . "xls");
    1909. 

  1909.       $q = "select a.exp_date, a.lot_num, a.r_name, 
    1910. 

  1910. 	    a.r_date, a.r_time, a.r_ip, b.name as bio_name, c.name as man_name,
    1911. 

  1911. 		a.biological_id as bio_id, a.id as det_id,
    1912. 

  1912. 		datediff( a.exp_date, now() ) as exp
    1913. 

  1913. 	    from $mydbf.$mytable a, $bio_table b, $man_table c
    1914. 

  1914.         where a.consumed_ynd = 'N' and b.id = a.biological_id and a.man_id = c.id
    1915. 

  1915.         order by bio_name, exp_date";
    1916. 

  1916. //echo "<br><br>$q<br><br>";		
    1917. 

  1917. 	My_xls_dump($q);
    1918. 

  1918.   break;
    1919. 

  1919.   // end of dumpxl
    1920. 

  1920.   
    1921. 

  1921. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1922. 

  1922. // dumptxt
    1923. 

  1923. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1924. 

  1924.   case "dumptxt":
    1925. 

  1925. 	header("Cache-control: private");
    1926. 

  1926. 	header('Content-type: application/vnd.ms-notepad ; filename=biopsy_entry_dump.' . 'txt');
    1927. 

  1927. 	header("Content-Disposition: attachment ; filename=vaccine_dump." . "txt");
    1928. 

  1928. 	$q = "select a.exp_date, a.lot_num, a.note,
    1929. 

  1929. 		a.r_name, a.r_date, a.r_time, a.r_ip,
    1930. 

  1930. 		a.c_name, a.c_date, a.c_time, a.c_ip,
    1931. 

  1931. 		b.name as bio_name, a.consumed_ynd,
    1932. 

  1932. 		a.biological_id as bio_id, a.id as det_id
    1933. 

  1933. 		from $mydbf.$mytable a, $bio_table b
    1934. 

  1934. 		where b.id = a.biological_id
    1935. 

  1935. 		order by bio_name, consumed_ynd, lot_num";
    1936. 

  1936. 	My_txt_dump($q);
    1937. 

  1937.   break;
    1938. 

  1938.   // end of dumptxt
    1939. 

  1939. 

  1940. 

  1941. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1942. 

  1942. // mul_dump
    1943. 

  1943. // Need a case for one Vaccine or all Vaccines - (bio_id, bio_name)
    1944. 

  1944. // Need to see if it is for all, received, consumed, or destroyed - (consumed_ynd)
    1945. 

  1945. // need to see if there is a date range - (s_date, e_date)
    1946. 

  1946. // $a as well as the file name need to adjust for each one!
    1947. 

  1947. // Passed possibilities are:
    1948. 

  1948. //	s_date, bio_id, bio_name, consumed_ynd
    1949. 

  1949. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    1950. 

  1950. case "mul_dump":
    1951. 

  1951. //die( "<br>Q_str = $q_str<br>\n");
    1952. 

  1952. 	$filename = "vaccine_dump";
    1953. 

  1953. 	$q1 = "";
    1954. 

  1954. 	$q2 = "";
    1955. 

  1955. 	$q3 = "";
    1956. 

  1956. 	if (isset($consumed_ynd)) {
    1957. 

  1957. 		if ($consumed_ynd == "Y") {
    1958. 

  1958. 			$filename = $filename . "-Consumed";
    1959. 

  1959. 			$q2 = $q2 . " and consumed_ynd = $d_quote$consumed_ynd$d_quote";
    1960. 

  1960. 		}
    1961. 

  1961. 		if ($consumed_ynd == "D") {
    1962. 

  1962. 			$filename = $filename . "-Destroyed";
    1963. 

  1963. 			$q2 = $q2 . " and consumed_ynd = $d_quote$consumed_ynd$d_quote";
    1964. 

  1964. 		}
    1965. 

  1965. 		if ($consumed_ynd == "N") {
    1966. 

  1966. 			$filename = $filename . "-Received";
    1967. 

  1967. 			$q2 = $q2 . " and consumed_ynd = 'N'";
    1968. 

  1968. 			// if this happens to be the in house, then apply the ynd filter
    1969. 

  1969. 		}
    1970. 

  1970. 		if ($consumed_ynd == "instock") {
    1971. 

  1971. 			$filename = $filename . "-InStock";
    1972. 

  1972. 			// if this happens to be the in house, then apply the ynd filter
    1973. 

  1973. 			$q2 = $q2 . " and consumed_ynd = 'N'";
    1974. 

  1974. //			echo "<br><br>Here I am<br><br>";
    1975. 

  1975. 		}
    1976. 

  1976. 	}
    1977. 

  1977. 	if (isset($lot_num)) {
    1978. 

  1978. 		$q2 = $q2 . " and a.lot_num = $d_quote$lot_num$d_quote";
    1979. 

  1979. 		$filename = $filename . "-lot_num:$lot_num";
    1980. 

  1980. 	}
    1981. 

  1981. 	
    1982. 

  1982. 	if (isset($bio_id)) {
    1983. 

  1983. 		$q2 = $q2 . " and a.biological_id = $d_quote$bio_id$d_quote";
    1984. 

  1984. 		$filename = $filename . "-$bio_name";
    1985. 

  1985. 	}
    1986. 

  1986. 	if (isset($s_date) ) {
    1987. 

  1987. 		if (isset($consumed_ynd)) {
    1988. 

  1988. 			if ($consumed_ynd == "N") { 
    1989. 

  1989. 				$q2 = $q2 . " and (r_date >= $d_quote$s_date$d_quote and r_date <= $d_quote$e_date$d_quote)";
    1990. 

  1990. 			} elseif (($consumed_ynd == "Y") or ($consumed_ynd == "D")) {
    1991. 

  1991. 				$q2 = $q2 . " and (c_date >= $d_quote$s_date$d_quote and c_date <= $d_quote$e_date$d_quote)";
    1992. 

  1992. 			}// isset($consumed_ynd
    1993. 

  1993. 		} else { // isset($consumed_ynd
    1994. 

  1994. 			$q2 = $q2 . " and ((r_date >= $d_quote$s_date$d_quote and r_date <= $d_quote$e_date$d_quote)";
    1995. 

  1995. 			$q2 = $q2 . " or (c_date >= $d_quote$s_date$d_quote and c_date <= $d_quote$e_date$d_quote))";
    1996. 

  1996. 		} // isset($consumed_ynd
    1997. 

  1997. 		$filename = $filename . "-$s_date-to-$e_date";
    1998. 

  1998. 	}
    1999. 

  1999.     if ($type == "xls") $filename = $filename . ".xls";
    2000. 

  2000.     if ($type == "txt") $filename = $filename . ".txt";
    2001. 

  2001. //echo "<br><BR><BR>$filename<BR><BR>";	
    2002. 

  2002. 	$q1 = "select a.exp_date, a.lot_num, a.note,
    2003. 

  2003. 		a.r_name, a.r_date, a.r_time, a.r_ip,
    2004. 

  2004. 		a.c_name, a.c_date, a.c_time, a.c_ip,
    2005. 

  2005. 		b.name as bio_name, a.consumed_ynd,
    2006. 

  2006. 		a.biological_id as bio_id, a.id as det_id, c.name as man_name
    2007. 

  2007. 		from $mydbf.$mytable a, $bio_table b, $man_table c
    2008. 

  2008. 		where b.id = a.biological_id and a.man_id = c.id"; 
    2009. 

  2009. 	$q3 = " order by bio_name, consumed_ynd, lot_num";
    2010. 

  2010. 	$q = $q1 . $q2 . $q3;
    2011. 

  2011. //echo "<br><br><br>$q<br><br><br>";
    2012. 

  2012. //echo "<br><br><br>$filename<br><br><br>";
    2013. 

  2013. 

  2014. 	if ($type == "xls") {
    2015. 

  2015. 		header("Cache-control: private");
    2016. 

  2016. 		header('Content-type: application/vnd.ms-excel');
    2017. 

  2017. 		header("Content-Disposition: attachment ; filename=$filename");
    2018. 

  2018. 		My_xls_dump($q);
    2019. 

  2019. 	}
    2020. 

  2020. 	if ($type == "txt") {
    2021. 

  2021. 		header("Cache-control: private");
    2022. 

  2022. 		header("Content-type: application/vnd.ms-notepad ; filename=$filename");
    2023. 

  2023. 		header("Content-Disposition: attachment ; filename=$filename");
    2024. 

  2024. 		My_txt_dump($q);
    2025. 

  2025. 	}
    2026. 

  2026.   break;
    2027. 

  2027.   // end of mul_dump
    2028. 

  2028. 

  2029. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    2030. 

  2030. // trash
    2031. 

  2031. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    2032. 

  2032. 	case "trash":
    2033. 

  2033. 		mybanner("Removal of Consumed and Destroyed History", "none", $user_name);
    2034. 

  2034. 		if ($usr_access > 50) {
    2035. 

  2035. 			if (isset($date_del_hist)) {
    2036. 

  2036. 				$errString = "";
    2037. 

  2037. 				$errString .= ValadateInput($date_del_hist, "date", "Delete History Date");
    2038. 

  2038. 				if (strlen($errString) < 5) {
    2039. 

  2039. 					if (isset($del_ok)) {
    2040. 

  2040. 						$date_del_hist = LinuxDate($date_del_hist);
    2041. 

  2041. 						$q = "delete from $mytable where consumed_ynd <> 'N' and c_date <= $d_quote$date_del_hist$d_quote";
    2042. 

  2042. 						$r = mysql_query($q) or die(mysql_error());
    2043. 

  2043. 						$comment = "You have successfully deleted history dated $date_del_hist and prior";
    2044. 

  2044. 						echo "<br><center><font size='+3'>$comment</font></center>\n";
    2045. 

  2045. 						echo "<br><center>$q</center>\n";
    2046. 

  2046. 						SendEmail($comment, $bio_table, $detail_table, $email_table);
    2047. 

  2047. 					} else { // isset(del_ok)
    2048. 

  2048. 						echo "<font size='+3'><br><center>You are about to delete history from $date_del_hist and before<br>\n";
    2049. 

  2049. 						echo "There is no <b>undo</b> from here<br>\n";
    2050. 

  2050. 						echo "Are you sure!</center></font><br>\n";
    2051. 

  2051. 						echo "<center>\n";
    2052. 

  2052. 						echo "<center><form action='$cgi' method='post'>\n";
    2053. 

  2053. 						echo "<input type='hidden' name='act' value='trash'>\n";
    2054. 

  2054. 						echo "<input type='hidden' name='date_del_hist' value='$date_del_hist'>\n";
    2055. 

  2055. 						echo "<input type='hidden' name='del_ok' value='ok'>\n";
    2056. 

  2056. 						echo "<br><font><input type='submit' value='Click here to complete deletion' style='font-size:18px'>\n";
    2057. 

  2057. 						echo "</form></center><br>\n";
    2058. 

  2058. 					} // isset(del_ok)
    2059. 

  2059. 				} else { // strlen errString < 5
    2060. 

  2060. 					echo "$errString\n";
    2061. 

  2061. 				} // strlen errString < 5
    2062. 

  2062. 			} else {
    2063. 

  2063. 				// need to ask for the date marking the most recent consumed/destroy date
    2064. 

  2064. 				// All data from that point and before will be removed
    2065. 

  2065. 				// This has no undo
    2066. 

  2066. 				// first pre-populate with max(`c_date`)
    2067. 

  2067. 				$q = "SELECT max(c_date) as mydate1, min(c_date) as mydate2 FROM $mytable where c_date <> '0000-00-00'"; 
    2068. 

  2068. 				$r = mysql_query($q) or die(mysql_error());
    2069. 

  2069. 				$row = mysql_fetch_array($r);
    2070. 

  2070. 				$mydate1 = $row["mydate1"];
    2071. 

  2071. 				$mydate1 = DosDate($mydate1);
    2072. 

  2072. 				$mydate2 =$row["mydate2"]; 
    2073. 

  2073. 				$mydate2 = DosDate($mydate2);
    2074. 

  2074. 				echo "<center><br>First history entry was $mydate2 and the most recent is $mydate1<br><br>";
    2075. 

  2075. 				echo "Please be careful of your selection<br>There is no undo from here!<br>\n";
    2076. 

  2076. 				echo "The default selection below will <font size=+3>remove all history!</font><br>\n";
    2077. 

  2077. 				echo "</center><br>";
    2078. 

  2078. 				echo "<center><form action='$cgi' method='post'>\n";
    2079. 

  2079. 				echo "<input type='hidden' name='act' value='trash'>\n";
    2080. 

  2080. 				echo "Enter Date to remove history on this date and before: <input type='text' name='date_del_hist' maxlength='10' size='10' value = '$mydate1'><br>\n";
    2081. 

  2081. 				echo "<br><font><input type='submit' value='Remove history for this date and before' style='font-size:18px'>\n";
    2082. 

  2082. 				echo "</form></center>\n";
    2083. 

  2083. 			}// date_del_hist is set	
    2084. 

  2084. 		} else { // user_access > 50
    2085. 

  2085. 			echo "<br><br><center><font size=+3>You do not have security settings for this page!</font></center><br><br>\n";
    2086. 

  2086. 		} // user_access > 50
    2087. 

  2087. 		NavBar($cgi, $act, $usr_access);
    2088. 

  2088. 	break;
    2089. 

  2089. // end of trash
    2090. 

  2090. 

  2091. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    2092. 

  2092. // lot_grid
    2093. 

  2093. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    2094. 

  2094. 	case "lot_grid":
    2095. 

  2095. 		mybanner("Vaccine Lot Number Grid", "none", $user_name);
    2096. 

  2096. 		$q = "select distinct lot_num from $mydbf.$mytable order by lot_num"; 
    2097. 

  2097. 		$r = mysql_query($q) or die(mysql_error());
    2098. 

  2098. 		$max = mysql_num_rows($r);
    2099. 

  2099. 		$color = 0;
    2100. 

  2100. 		if ($max > 0) {
    2101. 

  2101. 			echo "<center><table  width='60%' border='1' cellspacing='0' cellpadding='4'>\n";
    2102. 

  2102. 			echo "<tr bgcolor=#ffffff><td colspan=4><center>$max Lot numbers foud</center></td></tr>";
    2103. 

  2103. 			echo "<tr bgcolor=#ffffff><td><center>Stock Number</center></td>";
    2104. 

  2104. 			echo "<td><center>On Hand</center></td>";
    2105. 

  2105. 			echo "<td><center>Consumed</center></td>";
    2106. 

  2106. 			echo "<td><center>Destroyed</center></td>";
    2107. 

  2107. 			echo "</tr>";
    2108. 

  2108. 			$form_txt = "<form action='$cgi' method='post'>
    2109. 

  2109. 				<input type='hidden' name='act' value='%%var1%%'>
    2110. 

  2110. 				<input type='hidden' name='lot_num' value='%%lot_num%%'>
    2111. 

  2111. 				<input type='submit' value='%%value%%'>
    2112. 

  2112. 				</form>";
    2113. 

  2113. 			while ($row = mysql_fetch_array($r)) {
    2114. 

  2114. 				$lot = $row["lot_num"];
    2115. 

  2115. 				$color = MeColorTR($color, 1);
    2116. 

  2116. 				$temp = $form_txt;
    2117. 

  2117. 				$temp = str_replace('%%lot_num%%', $lot, $temp);
    2118. 

  2118. 				$temp = str_replace('%%var1%%', 'lot_detail', $temp);
    2119. 

  2119. 				$temp = str_replace('%%value%%', $lot, $temp);
    2120. 

  2120. 				echo "<td><center>$temp</center></td>"; // On Hand
    2121. 

  2121. //				echo "<td>$lot</td>";
    2122. 

  2122. 				$q2 = "select count(*) as mycount from $mytable where lot_num = $d_quote$lot$d_quote and consumed_ynd = 'N'";
    2123. 

  2123. 				$q3 = "select count(*) as mycount from $mytable where lot_num = $d_quote$lot$d_quote and consumed_ynd = 'Y'";
    2124. 

  2124. 				$q4 = "select count(*) as mycount from $mytable where lot_num = $d_quote$lot$d_quote and consumed_ynd = 'D'";
    2125. 

  2125. 				$r2 = mysql_query($q2) or die(mysql_error());
    2126. 

  2126. 				$r3 = mysql_query($q3) or die(mysql_error());
    2127. 

  2127. 				$r4 = mysql_query($q4) or die(mysql_error());
    2128. 

  2128. 				$row2 = mysql_fetch_array($r2);
    2129. 

  2129. 				$row3 = mysql_fetch_array($r3);
    2130. 

  2130. 				$row4 = mysql_fetch_array($r4);
    2131. 

  2131. 				$count2 = $row2["mycount"];
    2132. 

  2132. 				if ($count2 < 1) {
    2133. 

  2133. 					echo "<td><center>--</center></td>"; // On Hand
    2134. 

  2134. 				} else { //$count2 < 1
    2135. 

  2135. 					$temp = $form_txt;
    2136. 

  2136. 					$temp = str_replace('%%lot_num%%', $lot, $temp);
    2137. 

  2137. 					$temp = str_replace('%%var1%%', 'lot_on_hand', $temp);
    2138. 

  2138. 					$temp = str_replace('%%value%%', $count2, $temp);
    2139. 

  2139. 					echo "<td><center>$temp</center></td>"; // On Hand
    2140. 

  2140. 				} //$count2 < 1
    2141. 

  2141. 				$count3 = $row3["mycount"];
    2142. 

  2142. 				if ($count3 < 1) {
    2143. 

  2143. 					echo "<td><center>--</center></td>"; // Consumed
    2144. 

  2144. 				} else { // $count3 < 1
    2145. 

  2145. 					$temp = $form_txt;
    2146. 

  2146. 					$temp = str_replace('%%lot_num%%', $lot, $temp);
    2147. 

  2147. 					$temp = str_replace('%%var1%%', 'lot_consumed', $temp);
    2148. 

  2148. 					$temp = str_replace('%%value%%', $count3, $temp);
    2149. 

  2149. 					echo "<td><center>$temp</center></td>"; // Consumed
    2150. 

  2150. 				} // $count3 < 1
    2151. 

  2151. 				$count4 = $row4["mycount"];
    2152. 

  2152. 				if ($count4 < 1) { //$count4 < 1
    2153. 

  2153. 					echo "<td><center>--</center></td>"; // Destroyed
    2154. 

  2154. 				} else { // $count4 < 1
    2155. 

  2155. 					$temp = $form_txt;
    2156. 

  2156. 					$temp = str_replace('%%lot_num%%', $lot, $temp);
    2157. 

  2157. 					$temp = str_replace('%%var1%%', 'lot_destroyed', $temp);
    2158. 

  2158. 					$temp = str_replace('%%value%%', $count4, $temp);
    2159. 

  2159. 					echo "<td><center>$temp</center></td>"; // Destroyed
    2160. 

  2160. 				} // $count4 < 1
    2161. 

  2161. 				echo "</tr>"; 
    2162. 

  2162. 			} // end while
    2163. 

  2163. 			echo "</table></center><br><br>";
    2164. 

  2164. 		} // end max > 0
    2165. 

  2165. 		NavBar($cgi, $act, $usr_access);
    2166. 

  2166. 	break;
    2167. 

  2167. 	// end of lot_grid
    2168. 

  2168. 	
    2169. 

  2169. 

  2170. // start of the 4 musketeers!
    2171. 

  2171. 

  2172. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    2173. 

  2173. // lot_detail #1
    2174. 

  2174. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    2175. 

  2175.   case "lot_detail":
    2176. 

  2176.     mybanner("All Vaccines from lot #: $lot_num", "none", $user_name);
    2177. 

  2177. 	$q = "select * from $mytable 
    2178. 

  2178. 		where lot_num = '$lot_num'
    2179. 

  2179. 		order by consumed_ynd, r_date, r_time";
    2180. 

  2180. 	Full_Lister($lot_num, $q);
    2181. 

  2181. //	echo "<br>$q<br>";
    2182. 

  2182. 	if ($usr_access > 50) {
    2183. 

  2183. 	  echo "<center><table  width='60%' border='1' cellspacing='0' cellpadding='4'>\n";
    2184. 

  2184. 	  echo "<tr>";
    2185. 

  2185. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    2186. 

  2186. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    2187. 

  2187. 	  echo "<input type='hidden' name='type' value='xls'>\n";
    2188. 

  2188. 	  echo "<input type='hidden' name='lot_num' value='$lot_num'>\n";
    2189. 

  2189. 	  echo "<br><input type='submit' value='Dump Selected to Spreadsheet'>\n";
    2190. 

  2190. 	  echo "</form></center></td>\n";
    2191. 

  2191. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    2192. 

  2192. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    2193. 

  2193. 	  echo "<input type='hidden' name='type' value='txt'>\n";
    2194. 

  2194. 	  echo "<input type='hidden' name='lot_num' value='$lot_num'>\n";
    2195. 

  2195. 	  echo "<br><input type='submit' value='Dump Selected to Text'>\n";
    2196. 

  2196. 	  echo "</form></center></td>\n";
    2197. 

  2197. 	  echo "</tr></table></center><br><br>\n";
    2198. 

  2198. 	}
    2199. 

  2199.     NavBar($cgi, $act, $usr_access);
    2200. 

  2200.   break;
    2201. 

  2201.   // end of lot_detail
    2202. 

  2202. 

  2203. 

  2204. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    2205. 

  2205. // lot_on_hand #2
    2206. 

  2206. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    2207. 

  2207.   case "lot_on_hand":
    2208. 

  2208.     mybanner("Oh Hand Vaccines for lot #: $lot_num", "none", $user_name);
    2209. 

  2209. 	$q = "select * from $mytable 
    2210. 

  2210. 		where lot_num = '$lot_num' and consumed_ynd = 'N' 
    2211. 

  2211. 		order by consumed_ynd, r_date, r_time";
    2212. 

  2212. // echo "<BR><BR>$q<BR><BR>";		
    2213. 

  2213. 	Full_Lister($lot_num, $q);
    2214. 

  2214. //	echo "<br>$q<br>";
    2215. 

  2215. 	if ($usr_access > 50) {
    2216. 

  2216. 	  echo "<center><table  width='60%' border='1' cellspacing='0' cellpadding='4'>\n";
    2217. 

  2217. 	  echo "<tr>";
    2218. 

  2218. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    2219. 

  2219. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    2220. 

  2220. 	  echo "<input type='hidden' name='type' value='xls'>\n";
    2221. 

  2221. 	  echo "<input type='hidden' name='lot_num' value='$lot_num'>\n";
    2222. 

  2222. 	  echo "<input type='hidden' name='consumed_ynd' value='N'>\n";
    2223. 

  2223. 	  echo "<br><input type='submit' value='Dump Selected to Spreadsheet'>\n";
    2224. 

  2224. 	  echo "</form></center></td>\n";
    2225. 

  2225. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    2226. 

  2226. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    2227. 

  2227. 	  echo "<input type='hidden' name='type' value='txt'>\n";
    2228. 

  2228. 	  echo "<input type='hidden' name='lot_num' value='$lot_num'>\n";
    2229. 

  2229. 	  echo "<input type='hidden' name='consumed_ynd' value='N'>\n";
    2230. 

  2230. 	  echo "<br><input type='submit' value='Dump Selected to Text'>\n";
    2231. 

  2231. 	  echo "</form></center></td>\n";
    2232. 

  2232. 	  echo "</tr></table></center><br><br>\n";
    2233. 

  2233. 	}
    2234. 

  2234.     NavBar($cgi, $act, $usr_access);
    2235. 

  2235.   break;
    2236. 

  2236.   // end of lot_on_hand
    2237. 

  2237. 

  2238. 

  2239. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    2240. 

  2240. // lot_consumed #3
    2241. 

  2241. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    2242. 

  2242.   case "lot_consumed":
    2243. 

  2243.     mybanner("Consumed Vaccines from lot #: $lot_num", "none", $user_name);
    2244. 

  2244. 	$q = "select * from $mytable 
    2245. 

  2245. 		where lot_num = '$lot_num' and consumed_ynd = 'Y'
    2246. 

  2246. 		order by consumed_ynd, r_date, r_time";
    2247. 

  2247. // echo "<BR><BR>$q<BR><BR>";		
    2248. 

  2248. 	Full_Lister($lot_num, $q);
    2249. 

  2249. //	echo "<br>$q<br>";
    2250. 

  2250. 	if ($usr_access > 50) {
    2251. 

  2251. 	  echo "<center><table  width='60%' border='1' cellspacing='0' cellpadding='4'>\n";
    2252. 

  2252. 	  echo "<tr>";
    2253. 

  2253. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    2254. 

  2254. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    2255. 

  2255. 	  echo "<input type='hidden' name='type' value='xls'>\n";
    2256. 

  2256. 	  echo "<input type='hidden' name='lot_num' value='$lot_num'>\n";
    2257. 

  2257. 	  echo "<input type='hidden' name='consumed_ynd' value='Y'>\n";
    2258. 

  2258. 	  echo "<br><input type='submit' value='Dump Selected to Spreadsheet'>\n";
    2259. 

  2259. 	  echo "</form></center></td>\n";
    2260. 

  2260. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    2261. 

  2261. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    2262. 

  2262. 	  echo "<input type='hidden' name='type' value='txt'>\n";
    2263. 

  2263. 	  echo "<input type='hidden' name='lot_num' value='$lot_num'>\n";
    2264. 

  2264. 	  echo "<input type='hidden' name='consumed_ynd' value='Y'>\n";
    2265. 

  2265. 	  echo "<br><input type='submit' value='Dump Selected to Text'>\n";
    2266. 

  2266. 	  echo "</form></center></td>\n";
    2267. 

  2267. 	  echo "</tr></table></center><br><br>\n";
    2268. 

  2268. 	}
    2269. 

  2269.     NavBar($cgi, $act, $usr_access);
    2270. 

  2270.   break;
    2271. 

  2271.   // end of lot_consumed
    2272. 

  2272. 

  2273. 

  2274. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    2275. 

  2275. // lot_destroyed #4
    2276. 

  2276. //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    2277. 

  2277.   case "lot_destroyed":
    2278. 

  2278.     mybanner("Destroyed Vaccines from lot #: $lot_num", "none", $user_name);
    2279. 

  2279. 	$q = "select * from $mytable 
    2280. 

  2280. 		where lot_num = '$lot_num' and consumed_ynd = 'D'
    2281. 

  2281. 		order by consumed_ynd, r_date, r_time";
    2282. 

  2282. // echo "<BR><BR>$q<BR><BR>";		
    2283. 

  2283. 	Full_Lister($lot_num, $q);
    2284. 

  2284. //	echo "<br>$q<br>";
    2285. 

  2285. 	if ($usr_access > 50) {
    2286. 

  2286. 	  echo "<center><table  width='60%' border='1' cellspacing='0' cellpadding='4'>\n";
    2287. 

  2287. 	  echo "<tr>";
    2288. 

  2288. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    2289. 

  2289. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    2290. 

  2290. 	  echo "<input type='hidden' name='type' value='xls'>\n";
    2291. 

  2291. 	  echo "<input type='hidden' name='lot_num' value='$lot_num'>\n";
    2292. 

  2292. 	  echo "<input type='hidden' name='consumed_ynd' value='D'>\n";
    2293. 

  2293. 	  echo "<br><input type='submit' value='Dump Selected to Spreadsheet'>\n";
    2294. 

  2294. 	  echo "</form></center></td>\n";
    2295. 

  2295. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    2296. 

  2296. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    2297. 

  2297. 	  echo "<input type='hidden' name='type' value='txt'>\n";
    2298. 

  2298. 	  echo "<input type='hidden' name='lot_num' value='$lot_num'>\n";
    2299. 

  2299. 	  echo "<input type='hidden' name='consumed_ynd' value='D'>\n";
    2300. 

  2300. 	  echo "<br><input type='submit' value='Dump Selected to Text'>\n";
    2301. 

  2301. 	  echo "</form></center></td>\n";
    2302. 

  2302. 	  echo "</tr></table></center><br><br>\n";
    2303. 

  2303. 	}
    2304. 

  2304.     NavBar($cgi, $act, $usr_access);
    2305. 

  2305.   break;
    2306. 

  2306.   // end of lot_destroyed
    2307. 

  2307. 

  2308.   } // end of switch
    2309. 

  2309. } // end of missing act=
    2310. 

  2310. /*
    2311. 

  2311. //// useful for cut and paste
    2312. 

    2313. 

  2313. 	if ($usr_access > 50) {
    2314. 

  2314. 	  echo "<center><table  width='60%' border='1' cellspacing='0' cellpadding='4'>\n";
    2315. 

  2315. 	  echo "<tr>";
    2316. 

  2316. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    2317. 

  2317. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    2318. 

  2318. 	  echo "<input type='hidden' name='type' value='xls'>\n";
    2319. 

  2319. 	  echo "<input type='hidden' name='s_date' value=$s_date>\n";
    2320. 

  2320. 	  echo "<input type='hidden' name='e_date' value=$e_date>\n";
    2321. 

  2321. 	  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    2322. 

  2322. 	  echo "<input type='hidden' name='bio_name' value='$vac_name'>\n";
    2323. 

  2323. 	  echo "<input type='hidden' name='consumed_ynd' value='N'>\n";
    2324. 

  2324. 	  echo "<br><input type='submit' value='Dump Selected to Spreadsheet'>\n";
    2325. 

  2325. 	  echo "</form></center></td>\n";
    2326. 

  2326. 	  echo "<td><center><form action='$cgi' method='post'>\n";
    2327. 

  2327. 	  echo "<input type='hidden' name='act' value='mul_dump'>\n";
    2328. 

  2328. 	  echo "<input type='hidden' name='type' value='txt'>\n";
    2329. 

  2329. 	  echo "<input type='hidden' name='s_date' value=$s_date>\n";
    2330. 

  2330. 	  echo "<input type='hidden' name='e_date' value=$e_date>\n";
    2331. 

  2331. 	  echo "<input type='hidden' name='bio_id' value='$bio_id'>\n";
    2332. 

  2332. 	  echo "<input type='hidden' name='bio_name' value='$vac_name'>\n";
    2333. 

  2333. 	  echo "<input type='hidden' name='consumed_ynd' value='N'>\n";
    2334. 

  2334. 	  echo "<br><input type='submit' value='Dump Selected to Text'>\n";
    2335. 

  2335. 	  echo "</form></center></td>\n";
    2336. 

  2336. 	  echo "</tr></table></center><br><br>\n";
    2337. 

  2337. 	}
    2338. 

  2338.       $r = mysql_query($q) or die(mysql_error());
    2339. 

  2339.       $max = mysql_num_rows($r);
    2340. 

  2340. 	    echo "<center><table  width='95%' border='1' cellspacing='0' cellpadding='4'>\n";
    2341. 

  2341. 		echo "<tr bgcolor=#ffffff><td colspan=9><center>$max records found</center></td></tr>";
    2342. 

  2342. $r_time = str_pad($r_time,5,"0",STR_PAD_LEFT);
    2343. 

  2343. UPDATE `p_detail` SET `r_time` = lpad(`r_time`,5,'0');
    2344. 

  2344. UPDATE `p_detail` SET `c_time` = lpad(`c_time`,5,'0'); 
    2345. 

  2345. 	  
    2346. 

  2346. 		
    2347. 

  2347. 		
    2348. 

  2348. */
    2349. 

  2349. ?>
    2350. 

  2350.