<?php
// $Id: class.rxlist.php,v 1.4 2004/02/23 05:50:45 rufustfirefly Exp $
// $Author: rufustfirefly $
//
// $Log: class.rxlist.php,v $
// Revision 1.4 2004/02/23 05:50:45 rufustfirefly
// NaturalDocs cleanup
//
// Revision 1.3 2003/11/05 04:40:54 rufustfirefly
// Documentation. (Jeff)
//
// Revision 1.2 2002/08/06 13:49:08 rufustfirefly
// updated rxlist class for changes in RxList.com
//
// Revision 1.1 2002/07/08 14:42:25 rufustfirefly
// RxList.com prescription "module" for formulary
//
if (!defined('__CLASS_RXLIST_PHP__')) {
define('__CLASS_RXLIST_PHP__', true);
// class: FreeMED.RxList
//
// Wrapper for rxlist.com formulary access.
//
class RxList {
// Method: RxList::getPage
//
// Gets the web page from rxlist.com pertaining to the
// specified query.
//
// Parameters:
//
// $query - String to search for
//
// Returns:
//
// HTML text of web page.
//
function getPage ( $query ) {
//$url = "http://www.rxlist.com/cgi/rxlist.cgi?drug=".
$url = "http://129.250.146.18/cgi/rxlist.cgi?drug=".
urlencode($query);
if (!($fp = fopen($url, "r"))) {
// If we fail to get the page, return false
return false;
} else {
// Get the page
$buffer = 0;
while (!feof($fp)) {
$buffer .= fgets($fp, 4096);
}
fclose ($fp);
return $buffer;
} // end checking for successful open
} // end function RxList::getPage
// Method: RxList::get_list
//
// Retrieves the appropriate rxlist.com formulary list, based
// on the drug criteria provided.
//
// Parameters:
//
// $query - Text to search in the rxlist.com formulary for.
//
// Returns:
//
// Associative array (meant to be passed to phpwebtools'
// html_form::select_widget) containing the results.
//
function get_list ( $query ) {
$page = RxList::getPage($query);
$tokens = RxList::parse2tokens($page);
$hash = RxList::tokens2hash($tokens);
foreach ($hash AS $index => $data) {
unset($my_data);
foreach ($data AS $k => $v) {
$my_data[$k] = $v;
}
$list[trim($my_data[brand_name])." (".trim($my_data[generic_name]).")"] =
trim($my_data[brand_name]);
}
return $list;
} // end function RxList::get_list
function parse2tokens( $page ) {
$pos = 0; $token = 0; unset ($tokens);
$in_token = false;
while ($pos < strlen($page)) {
switch(substr($page, $pos, 1)) {
case "<":
if ($in_token) {
$token++;
$in_token = false;
}
$tokens[$token] .= substr($page,$pos,1);
$in_token = true;
break;
case ">":
$tokens[$token] .= substr($page,$pos,1);
$in_token = false;
$token++;
break;
default:
$tokens[$token] .= substr($page,$pos,1);
$in_token = false;
break;
} // end decide what to do
$pos++;
} // end looping through string
return $tokens;
} // end function RxList::parse2tokens
function tokens2hash ( $tokens ) {
$record = false; $current = 0; unset($hash); unset($all);
for ($pos=0; $pos<count($tokens); $pos++) {
if (!(strpos($tokens[$pos], "Brand Name") === false)){
$type = "brand_name";
$record = $pos;
$ending = "</a>";
}
if (!(strpos($tokens[$pos], "Generic Name") === false)){
$type = "generic_name";
//print "generic_name record start at $pos<BR>\n";
$ending = "</a>";
$record = $pos;
}
if (!(strpos($tokens[$pos], "Drug Class") === false)){
$type = "drug_class";
//print "drug_class record start at $pos<BR>\n";
$ending = "</font>";
$record = $pos;
}
// Handle the ending (assume when all fields are set
// that we're done)
if (isset($hash["drug_class"]) and isset($hash["brand_name"]) and isset($hash["generic_name"])) {
// Reset record
$record = false;
// Add hash to all
$all[] = $hash;
// Unset hash and type
unset($hash); $type = ""; $ending = "";
}
if ((($pos == ($record + 1)) or
($pos == ($record + 2)) or
($pos == ($record + 3)))
and ($ending != "")) {
//print "tokens[$pos] = ".htmlentities($tokens[$pos])."<BR>\n";
if ((!(strpos(strtoupper($tokens[$pos]), "</A>") === false)) or
(!(strpos(strtoupper($tokens[$pos]), "</FONT>") === false))) {
// Find where anchor is
$my_pos = strpos(strtoupper($tokens[$pos]), "<");
$hash[$type] = substr($tokens[$pos], 0, $my_pos);
$hash[$type] = str_replace("&", "&", $hash[$type]);
//print "hash[$type] = ".htmlentities($hash[$type])."<BR>\n";
$type = ""; $ending = "";
}
}
} // end looping
return $all;
} // end function RxList::tokens2hash
} // end class RxList
} // end if not defined
/*
// TEST CRAP HERE
$page = RxList::getPage("ace");
$tokens = RxList::parse2tokens($page);
$hash = RxList::tokens2hash($tokens);
foreach ($hash AS $k => $v) {
print "<UL>k = ".htmlentities($k)." \n";
foreach ($v AS $key => $value) {
print "<LI>$key = $value\n";
}
print "</UL>\n";
}
print "<FORM>\n";
print html_form::select_widget("test", RxList::get_list($drug));
print "</FORM>\n";
*/
?>
