<?php

$dal_info = array();

/**
 * User API function
 * @param String sql
 */
function UsersTableName()
{
	global $cman;
	$connection = $cman->getForLogin();
	return $connection->addTableWrappers("tb_users");
}

/**
 * User API function
 * It uses the default db connection
 * @param String dalSQL
 */
function CustomQuery($dalSQL)
{
	$connection = getDefaultConnection();
	$result = $connection->query( $dalSQL );
	if($result)
		return $result;
}

/**
 * User API function
 * It uses the default db connection 
 * @param String sql
 */
function DBLookup($sql)
{
	$connection = getDefaultConnection();
	$data = $connection->query( $sql )->fetchAssoc();

	if( $data )
		return reset($data);
	  
	return null;
}

/**
  * Data Access Layer.
  */
class tDAL
{
	var $tblcmed_db_at_localhost__cmed_uggroups;
	var $tblcmed_db_at_localhost__cmed_ugmembers;
	var $tblcmed_db_at_localhost__cmed_ugrights;
	var $tblcmed_db_at_localhost__exames;
	var $tblcmed_db_at_localhost__tb_agenda_exame;
	var $tblcmed_db_at_localhost__tb_catgitens_consumo;
	var $tblcmed_db_at_localhost__tb_cbanc_movimentos;
	var $tblcmed_db_at_localhost__tb_cclinico_contatos;
	var $tblcmed_db_at_localhost__tb_centros_clinicos;
	var $tblcmed_db_at_localhost__tb_consultas;
	var $tblcmed_db_at_localhost__tb_consultorios;
	var $tblcmed_db_at_localhost__tb_contas_banc;
	var $tblcmed_db_at_localhost__tb_cotaitens_consumo;
	var $tblcmed_db_at_localhost__tb_especia_idades;
	var $tblcmed_db_at_localhost__tb_estoque_medic;
	var $tblcmed_db_at_localhost__tb_farmacias;
	var $tblcmed_db_at_localhost__tb_historico;
	var $tblcmed_db_at_localhost__tb_itens_consumo;
	var $tblcmed_db_at_localhost__tb_itens_higiene;
	var $tblcmed_db_at_localhost__tb_laborartorios;
	var $tblcmed_db_at_localhost__tb_lista_medicamentos;
	var $tblcmed_db_at_localhost__tb_medicamentos;
	var $tblcmed_db_at_localhost__tb_medicos;
	var $tblcmed_db_at_localhost__tb_movimento;
	var $tblcmed_db_at_localhost__tb_paciente;
	var $tblcmed_db_at_localhost__tb_peco_medicamento;
	var $tblcmed_db_at_localhost__tb_receitas;
	var $tblcmed_db_at_localhost__tb_users;
	var $tblcmed_db_at_localhost__tipos_exames;
	var $lstTables;
	var $Table = array();

	function FillTablesList()
	{
		if($this->lstTables)
			return;
		$this->lstTables[] = array("name" => "cmed_uggroups", "varname" => "cmed_db_at_localhost__cmed_uggroups", "altvarname" => "cmed_uggroups", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "cmed_ugmembers", "varname" => "cmed_db_at_localhost__cmed_ugmembers", "altvarname" => "cmed_ugmembers", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "cmed_ugrights", "varname" => "cmed_db_at_localhost__cmed_ugrights", "altvarname" => "cmed_ugrights", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "exames", "varname" => "cmed_db_at_localhost__exames", "altvarname" => "exames", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_agenda_exame", "varname" => "cmed_db_at_localhost__tb_agenda_exame", "altvarname" => "tb_agenda_exame", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_catgitens_consumo", "varname" => "cmed_db_at_localhost__tb_catgitens_consumo", "altvarname" => "tb_catgitens_consumo", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_cbanc_movimentos", "varname" => "cmed_db_at_localhost__tb_cbanc_movimentos", "altvarname" => "tb_cbanc_movimentos", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_cclinico_contatos", "varname" => "cmed_db_at_localhost__tb_cclinico_contatos", "altvarname" => "tb_cclinico_contatos", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_centros_clinicos", "varname" => "cmed_db_at_localhost__tb_centros_clinicos", "altvarname" => "tb_centros_clinicos", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_consultas", "varname" => "cmed_db_at_localhost__tb_consultas", "altvarname" => "tb_consultas", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_consultorios", "varname" => "cmed_db_at_localhost__tb_consultorios", "altvarname" => "tb_consultorios", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_contas_banc", "varname" => "cmed_db_at_localhost__tb_contas_banc", "altvarname" => "tb_contas_banc", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_cotaitens_consumo", "varname" => "cmed_db_at_localhost__tb_cotaitens_consumo", "altvarname" => "tb_cotaitens_consumo", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_especiaçidades", "varname" => "cmed_db_at_localhost__tb_especia_idades", "altvarname" => "tb_especia_idades", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_estoque_medic", "varname" => "cmed_db_at_localhost__tb_estoque_medic", "altvarname" => "tb_estoque_medic", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_farmacias", "varname" => "cmed_db_at_localhost__tb_farmacias", "altvarname" => "tb_farmacias", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_historico", "varname" => "cmed_db_at_localhost__tb_historico", "altvarname" => "tb_historico", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_itens_consumo", "varname" => "cmed_db_at_localhost__tb_itens_consumo", "altvarname" => "tb_itens_consumo", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_itens_higiene", "varname" => "cmed_db_at_localhost__tb_itens_higiene", "altvarname" => "tb_itens_higiene", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_laborartorios", "varname" => "cmed_db_at_localhost__tb_laborartorios", "altvarname" => "tb_laborartorios", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_lista medicamentos", "varname" => "cmed_db_at_localhost__tb_lista_medicamentos", "altvarname" => "tb_lista_medicamentos", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_medicamentos", "varname" => "cmed_db_at_localhost__tb_medicamentos", "altvarname" => "tb_medicamentos", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_medicos", "varname" => "cmed_db_at_localhost__tb_medicos", "altvarname" => "tb_medicos", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_movimento", "varname" => "cmed_db_at_localhost__tb_movimento", "altvarname" => "tb_movimento", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_paciente", "varname" => "cmed_db_at_localhost__tb_paciente", "altvarname" => "tb_paciente", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_peco_medicamento", "varname" => "cmed_db_at_localhost__tb_peco_medicamento", "altvarname" => "tb_peco_medicamento", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_receitas", "varname" => "cmed_db_at_localhost__tb_receitas", "altvarname" => "tb_receitas", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tb_users", "varname" => "cmed_db_at_localhost__tb_users", "altvarname" => "tb_users", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
		$this->lstTables[] = array("name" => "tipos_exames", "varname" => "cmed_db_at_localhost__tipos_exames", "altvarname" => "tipos_exames", "connId" => "cmed_db_at_localhost", "schema" => "", "connName" => "iartstud_cmed_db at 87.120.130.229");
	}

	/**
      * Returns table object by table name.
      * @intellisense
      */
	function & Table($strTable, $schema = "", $connName = "")
	{
		$this->FillTablesList();
		foreach($this->lstTables as $tbl)
		{
			if(strtoupper($strTable)==strtoupper($tbl["name"]) &&
				( $schema == "" || strtoupper($schema) == strtoupper($tbl["schema"]) ) &&
				($connName == "" || strtoupper($connName) == strtoupper($tbl["connName"]) ) )
			{
				$this->CreateClass($tbl);
				return $this->{"tbl".$tbl["varname"]};
			}
		}
//	check table names without dbo. and other prefixes
		foreach($this->lstTables as $tbl)
		{
			if(strtoupper(cutprefix($strTable))==strtoupper(cutprefix($tbl["name"])))
			{
				$this->CreateClass($tbl);
				return $this->{"tbl".$tbl["varname"]};
			}
		}
		$dummy=null;
		return $dummy;
	}
	
	function CreateClass(&$tbl)
	{
		if($this->{"tbl".$tbl["varname"]})
			return;
//	load table info
		global $dal_info;
		include(getabspath("include/dal/".($tbl["varname"]).".php"));
//	create class and object

		$classname="class_".$tbl["varname"];
		$str = "class ".$classname." extends tDALTable  {";
		foreach($dal_info[$tbl["varname"]] as $fld)
		{
			$str.=' var $'.$fld["varname"].'; ';
		}
		
		$tableName = $tbl["name"];
		if( $tbl["schema"] )
			$tableName = $tbl["schema"] . "." . $tbl["name"];
		$str.=' function __construct()
			{
				$this->m_TableName = \''.escapesq( $tableName ).'\';
				$this->infoKey = \'' . $tbl["varname"] . '\';
				$this->setConnection(\''. $tbl["connId"] .'\');
			}
		};';
		eval($str);
		$this->{"tbl".$tbl["varname"]} = new $classname;
		$this->{$tbl["altvarname"]} = $this->{"tbl".$tbl["varname"]};
		$this->Table[$tbl["name"]]=&$this->{"tbl".$tbl["varname"]};
	}
	
	/**
      * Returns list of table names.
      * @intellisense
      */
	function GetTablesList()
	{
		$this->FillTablesList();
		$res=array();
		foreach($this->lstTables as $tbl)
			$res[]=$tbl["name"];
		return $res;
	}
	
	/**
      * Get list of table fields by table name.
      * @intellisense
      */
	function GetFieldsList($table)
	{
		$tbl = $this->Table($table);
		return $tbl->GetFieldsList();
	}
	
	/**
      * Get field type by table name and field name.
      * @intellisense
      */
	function GetFieldType($table,$field)
	{
		$tbl = $this->Table($table);
		return $tbl->GetFieldType($field);
	}

	/**
      * Get table key fields by table name.
      * @intellisense
      */
	function GetDBTableKeys($table)
	{
		$tbl = $this->Table($table);
		return $tbl->GetDBTableKeys();
	}
}

$dal = new tDAL;

/**
 * Data Access Layer table class.
 */ 
class tDALTable
{
	var $m_TableName;
	var $infoKey;
	var $Param = array();
	var $Value = array();
	/**
	 * @type Connection
	 */
	var $_connection;
	
	/**
	 * Set the connection property
	 * @param String connId
	 */
	function setConnection( $connId )
	{
		global $cman;
		$this->_connection = $cman->byId( $connId );
	}
	
	/**
      * Get table key fields.
      * @intellisense
      */
	function GetDBTableKeys()
	{
		global $dal_info;
		if( !array_key_exists($this->infoKey, $dal_info) || !is_array($dal_info[ $this->infoKey ]) )
			return array();
		
		$ret = array();
		foreach($dal_info[ $this->infoKey ] as $fname=>$f)
		{
			if( @$f["key"] )
				$ret[] = $fname;
		}
		return $ret;
	}
	
	/**
      * Get list of table fields.
      * @intellisense
      */
	function GetFieldsList()
	{
		global $dal_info;
		return array_keys( $dal_info[ $this->infoKey ] );
	}

	/**
      * Get field type.
      * @intellisense
      */
	function GetFieldType($field)
	{
		global $dal_info;
		
		if( !array_key_exists( $field, $dal_info[ $this->infoKey ]) )
			return 200;
			
		return $dal_info[ $this->infoKey ][ $field ]["type"];
	}
	
	/**
	 *
	 */
	function PrepareValue($value, $type)
	{
		if( $this->_connection->dbType == nDATABASE_Oracle || $this->_connection->dbType == nDATABASE_DB2 || $this->_connection->dbType == nDATABASE_Informix )
		{
			if( IsBinaryType($type) )
			{
				if( $this->_connection->dbType == nDATABASE_Oracle )
					return "EMPTY_BLOB()";
					
				return "?";
			}
			
			if( $this->_connection->dbType == nDATABASE_Informix  && IsTextType($type) )
				return "?";
		}
	
		if( IsDateFieldType($type) )
		{
			if( !$value )
				return "null";
			else
				$this->_connection->addDateQuotes( $value );
		}
		
		if( NeedQuotes($type) )
			return $this->_connection->prepareString( $value );

		return 0 + $value;
	}
	
	/**
      * Get table name.
      * @intellisense
      */
	function TableName()
	{
		return $this->_connection->addTableWrappers( $this->m_TableName );
	} 

	/**
	 * @param Array blobs
	 * @param String dalSQL
	 * @param Array tableinfo
	 */
	protected function Execute_Query($blobs, $dalSQL, $tableinfo)
	{		
		$blobTypes = array();
		if( $this->_connection->dbType == nDATABASE_Informix )
		{		
			foreach( $blobs as $fname => $fvalue )
			{
				$blobTypes[ $fname ] = $tableinfo[ $fname ]["type"];
			}
		}

		$this->_connection->execWithBlobProcessing( $dalSQL, $blobs, $blobTypes );
	}

	/**
      * Add new record to the table.
      * @intellisense
      */
	function Add() 
	{
		global $dal_info;
		
		$insertFields = "";
		$insertValues = "";
		$tableinfo = &$dal_info[ $this->infoKey ];
		$blobs = array();
		//	prepare parameters		
		foreach($tableinfo as $fieldname => $fld)
		{
			if( isset($this->{$fld['varname']}) )
			{
				$this->Value[ $fieldname ] = $this->{$fld['varname']};
			}
			
			foreach($this->Value as $field => $value)
			{
				if( strtoupper($field) != strtoupper($fieldname) )
					continue;
					
				$insertFields.= $this->_connection->addFieldWrappers( $fieldname ).",";
				$insertValues.= $this->PrepareValue($value,$fld["type"]) . ",";
				
				if( $this->_connection->dbType == nDATABASE_Oracle || $this->_connection->dbType == nDATABASE_DB2 || $this->_connection->dbType == nDATABASE_Informix )
				{
					if( IsBinaryType( $fld["type"] ) )
						$blobs[ $fieldname ] = $value;
						
					if( $this->_connection->dbType == nDATABASE_Informix && IsTextType( $fld["type"] ) )
						$blobs[ $fieldname ] = $value;
				}
				break;
			}
		}
		//	prepare and exec SQL
		if( $insertFields != "" && $insertValues != "" )		
		{
			$insertFields = substr($insertFields, 0, -1);
			$insertValues = substr($insertValues, 0, -1);
			$dalSQL = "insert into ".$this->_connection->addTableWrappers( $this->m_TableName )." (".$insertFields.") values (".$insertValues.")";
			$this->Execute_Query($blobs, $dalSQL, $tableinfo);
		}
		//	cleanup		
	    $this->Reset();
	}

	/**
      * Query all records from the table.
      * @intellisense
      */
	function QueryAll()
	{
		$dalSQL = "select * from ".$this->_connection->addTableWrappers( $this->m_TableName );
		return $this->_connection->query( $dalSQL );
	}

	/**
      * Do a custom query on the table.
      * @intellisense
      */
	function Query($swhere = "", $orderby = "")
	{
		if ($swhere)
			$swhere = " where ".$swhere;
			
		if ($orderby)
			$orderby = " order by ".$orderby;
			
		$dalSQL = "select * from ".$this->_connection->addTableWrappers( $this->m_TableName ).$swhere.$orderby;
		return $this->_connection->query( $dalSQL );
	}

	/**
      * Delete a record from the table.
      * @intellisense
      */
	function Delete()
	{
		global $dal_info;
		
		$deleteFields = "";
		$tableinfo = &$dal_info[ $this->infoKey ];
		//	prepare parameters		
		foreach($tableinfo as $fieldname => $fld)
		{
			if( isset($this->{$fld['varname']}) )
			{
				$this->Param[ $fieldname ] = $this->{$fld['varname']};
			}
			
			foreach($this->Param as $field => $value)
			{
				if( strtoupper($field) != strtoupper($fieldname) )
					continue;
					
				$deleteFields.= $this->_connection->addFieldWrappers( $fieldname )."=". $this->PrepareValue($value, $fld["type"]) . " and ";
				break;
			}
		}
		//	do delete
		if ($deleteFields)
		{
			$deleteFields = substr($deleteFields, 0, -5);
			$dalSQL = "delete from ".$this->_connection->addTableWrappers( $this->m_TableName )." where ".$deleteFields;
			$this->_connection->exec( $dalSQL );
		}
	
		//	cleanup
	    $this->Reset();
	}

	/**
      * Reset table object.
      * @intellisense
      */
	function Reset()
	{
		global $dal_info;
		
		$this->Value = array();
		$this->Param = array();
		
		$tableinfo = &$dal_info[ $this->infoKey ];
		//	prepare parameters		
		foreach($tableinfo as $fieldname => $fld)
		{
			unset($this->{$fld["varname"]});
		}
	}	

	/**
      * Update record in the table.
      * @intellisense
      */
	function Update()
	{
		global $dal_info;
		
		$tableinfo = &$dal_info[ $this->infoKey ];
		$updateParam = "";
		$updateValue = "";
		$blobs = array();

		foreach($tableinfo as $fieldname => $fld)
		{
			$command = 'if(isset($this->'.$fld['varname'].')) { ';
			if( $fld["key"] )
				$command.= '$this->Param[\''.escapesq($fieldname).'\'] = $this->'.$fld['varname'].';';
			else
				$command.= '$this->Value[\''.escapesq($fieldname).'\'] = $this->'.$fld['varname'].';';
			$command.= ' }';
			
			eval($command);
			
			if( !$fld["key"] && !array_key_exists( strtoupper($fieldname), array_change_key_case($this->Param, CASE_UPPER) ) )
			{
				foreach($this->Value as $field => $value)
				{
					if( strtoupper($field) != strtoupper($fieldname) )
						continue;
						
					$updateValue.= $this->_connection->addFieldWrappers( $fieldname )."=".$this->PrepareValue($value, $fld["type"]) . ", ";
					
					if( $this->_connection->dbType == nDATABASE_Oracle || $this->_connection->dbType == nDATABASE_DB2 || $this->_connection->dbType == nDATABASE_Informix )
					{
						if( IsBinaryType( $fld["type"] ) )
							$blobs[ $fieldname ] = $value;
							
						if( $this->_connection->dbType == nDATABASE_Informix && IsTextType( $fld["type"] ) )	
							$blobs[ $fieldname ] = $value;		
					}
					break;
				}
			}
			else
			{
				foreach($this->Param as $field=>$value)
				{
					if( strtoupper($field) != strtoupper($fieldname) )
						continue;
						
					$updateParam.= $this->_connection->addFieldWrappers( $fieldname )."=".$this->PrepareValue($value, $fld["type"]) . " and ";
					break;
				}
			}
		}

		//	construct SQL and do update	
		if ($updateParam)
			$updateParam = substr($updateParam, 0, -5);
		if ($updateValue)
			$updateValue = substr($updateValue, 0, -2);
			
		if ($updateValue && $updateParam)
		{
			$dalSQL = "update ".$this->_connection->addTableWrappers( $this->m_TableName )." set ".$updateValue." where ".$updateParam;
			$this->Execute_Query($blobs, $dalSQL, $tableinfo);
		}

		//	cleanup
		$this->Reset();
	}
	
	/**
	 * Select one or more records matching the condition
	 */
	function FetchByID()
	{
		global $dal_info;
		$tableinfo = &$dal_info[ $this->infoKey ];

		$dal_where = "";
		foreach($tableinfo as $fieldname => $fld)
		{
			$command = 'if(isset($this->'.$fld['varname'].')) { ';
			$command.= '$this->Value[\''.escapesq($fieldname).'\'] = $this->'.$fld['varname'].';';
			$command.= ' }';
			
			eval($command);
			
			foreach($this->Param as $field => $value)
			{
				if( strtoupper($field) != strtoupper($fieldname) )
					continue;
					
				$dal_where.= $this->_connection->addFieldWrappers( $fieldname )."=".$this->PrepareValue($value, $fld["type"]) . " and ";
				break;
			}
		}
		// cleanup
		$this->Reset();
		// construct and run SQL
		if ($dal_where)
			$dal_where = " where ".substr($dal_where, 0, -5);
			
		$dalSQL = "select * from ".$this->_connection->addTableWrappers( $this->m_TableName ).$dal_where;
		return $this->_connection->query( $dalSQL );
	}
}

function cutprefix($table)
{
	$pos = strpos($table,".");
	if( $pos === false )
		return $table;
		
	return substr($table, $pos + 1);
}

function escapesq($str)
{
	return str_replace(array("\\","'"),array("\\\\","\\'"),$str);
}

?>