Revision: 6422
http://care2002.svn.sourceforge.net/care2002/?rev=6422&view=rev
Author: mizuko
Date: 2010-06-30 08:17:30 +0000 (Wed, 30 Jun 2010)
Log Message:
-----------
see #54
Added Paths:
-----------
care2x/branches/gettext/main/imgcreator/datachart.php
care2x/branches/gettext/main/imgcreator/datachart.png
Removed Paths:
-------------
care2x/branches/gettext/main/imgcreator/datacurve.php
care2x/branches/gettext/main/imgcreator/datacurve.png
Copied: care2x/branches/gettext/main/imgcreator/datachart.php (from rev 6405,
care2x/branches/gettext/main/imgcreator/datacurve.php)
===================================================================
--- care2x/branches/gettext/main/imgcreator/datachart.php
(rev 0)
+++ care2x/branches/gettext/main/imgcreator/datachart.php 2010-06-30
08:17:30 UTC (rev 6422)
@@ -0,0 +1,162 @@
+<?php
+error_reporting(E_COMPILE_ERROR|E_ERROR|E_CORE_ERROR);
+require('./roots.php');
+require($root_path.'include/helpers/inc_environment_global.php');
+require($root_path.'classes/datetimemanager/class.dateTimeManager.php');
+$dateshifter=new dateTimeManager();
+/*
+CARE2X Integrated Information System for Hospitals and Health Care
Organizations and Services
+Copyright (C) 2002,2003,2004,2005 Elpidio Latorilla & Intellin.org
+GNU GPL. For details read file "copy_notice.txt".
+*/
+
+/**
+* This routine creates graphical chart for blood pressure and temperature
+*/
+
+/**
+* This function aligns the date to the start of the grahical chart
+*/
+function aligndate(&$ad,&$am,&$ay)
+{
+ if(!checkdate($am,$ad,$ay)) # checks if the day is valid for example
Feb.29 or Sept. 31, last day of month, or last day of year, etc.
+ {
+ if($am==12)
+ {
+ $am=1;
+ $ad=1;
+ $ay++;
+ }
+ else
+ {
+ $am=$am+1;
+ $ad=1;
+ }
+ }
+}
+/**
+* Initialize some values
+*/
+$xoffs=100; // The width of a day's column in pixels
+$xunit=$xoffs/24; // Unit of 1 hour in pixels = Width of day's column divided
by 24 hours
+$yunit_temp=135/5; // Unit of y coord per temperature value in pixels
+$yunit_bp=135/200; // Unit of y coord per blood pressure value in pixels
+/**
+* Validate date value
+*/
+if(!isset($mo)||empty($mo)) $mo=date('m');
+if(!isset($dy)||empty($dy)) $dy=date('d');
+if(!isset($yr)||empty($yr)) $yr=date('Y');
+if(!extension_loaded('gd')) dl('php_gd.dll');
+
+if(!isset($db)||!$db)
include($root_path.'include/helpers/inc_db_makelink.php');
+if($dblink_ok){
+ $dbtable='care_encounter_measurement';
+ $start=date('Y-m-d',mktime(0,0,0,$mo,$dy,$yr));
+ $end=$dateshifter->shift_dates($start,-6,'d');
+ $ok=false;
+ $sql="SELECT msr_date,msr_time,value FROM $dbtable
+ WHERE encounter_nr=$pn AND
msr_type_nr=8 AND msr_date BETWEEN '$start' AND '$end'
+ ORDER BY msr_date,msr_time";
+
+ if($bp_obj=$db->Execute($sql)){
+ $bprows=$bp_obj->RecordCount();
+ $ok=true;
+ }
+ $sql="SELECT msr_date,msr_time,value FROM $dbtable
+ WHERE encounter_nr=$pn AND
msr_type_nr=3 AND msr_date BETWEEN '$start' AND '$end'
+ ORDER BY msr_date,msr_time";
+ if($temp_obj=$db->Execute($sql)){
+ $trows=$temp_obj->RecordCount();
+ $ok=true;
+ }
+}
+
+# Initialize general dimensions
+$tabhi=135; # Height of graph chart in pixels
+$tablen=700; # Total width of graph chart in pixels
+$tabcols=$tablen/28; # Total number of vertical lines
+$tabrows=$tabhi/20; # Total number of horizontal lines
+
+header ('Content-type: image/PNG');
+
+$...@imagecreatefrompng($root_path.'main/imgcreator/datacurve.png'); // Loads
the ready made image (makes this routine faster)
+
+/**
+* The next set of codes create the graph chart on-the-fly
+* if the ready made image is not loaded successfully
+*/
+if(!$im){
+ $im = @ImageCreate ($tablen, $tabhi);
+ // $background_color = ImageColorAllocate ($im, 205,225,236);
+ $background_color = ImageColorAllocate ($im, 255,255,255);
+ $text_color = ImageColorAllocate ($im, 0, 170, 255);
+ # The vertical and horizontal lines are drawn
+
+ for($i=$tabcols;$i<$tablen;$i+=$tabcols)
ImageLine($im,$i,0,$i,$tabhi-1,$text_color);
+ for($i=$tabrows;$i<$tabhi;$i+=$tabrows)
ImageLine($im,0,$i,$tablen-1,$i,$text_color);
+ ImageLine($im,0,$tabhi-1,$tablen-1,$tabhi-1,$text_color);
+}
+
+$text_red = ImageColorAllocate ($im, 255, 0, 0);
+$text_blue = ImageColorAllocate ($im, 0, 0, 255);
+
+#**************** start drawing the graph values ***********************
+/**
+* These variables are used in the following lines of code
+*
+* $ox1 = a line's start x coord for blood pressure
+* $oy1= a line's start y coord for blood pressure
+* $tx1 = a line's start x coord for temperature
+* $ty1 = a line's start y coord for temperature
+* $ox2 = a line's end x coord for blood pressure
+* $oy2= a line's end y coord for blood pressure
+* $tx2 = a line's end x coord for temperature
+* $ty2 = a line's end y coord for temperature
+*
+* $n = Column number of the chart = corresponding to a day
+* $xof= The current start x coord
+*/
+if($ok){
+
+$ox1=0;$oy1=0;
+$tx1=0; $ty1=0;
+
+for($n=0,$xof=0;$n<7;$n++,$xof+=$xoffs)
+{
+ $date=$dateshifter->shift_dates($start,-($n),'d');
+#**************** begin of curve tracing Blood Pressure***************
+ if($bprows){
+ for($i=0;$i<$bprows;$i++)
+ {
+ $bp=$bp_obj->FetchRow();
+ if($bp['msr_date']!=$date) continue;
+ if(empty($bp['msr_time'])||empty($bp['value'])) continue;
+ $ox2=(($bp['msr_time'])*$xunit)+$xof;
+ $oy2=(($bp['value'])-70)*$yunit_bp;$oy2=134-$oy2;
+ ImageArc($im,$ox2,$oy2,4,4,0,360,$text_red);
+ if($ox1 || $oy1) ImageLine($im,$ox1,$oy1,$ox2,$oy2,$text_red);
+ $ox1=$ox2;
+ $oy1=$oy2;
+ }
+ $bp_obj->MoveFirst();
+ }
+#**************** begin of curve tracing Temperature***************
+ if($trows){
+ for($i=0;$i<$trows;$i++){
+ $bc=$temp_obj->FetchRow();
+ if($bc['msr_date']!=$date) continue;
+ if(empty($bc['msr_time'])||empty($bc['value'])) continue;
+ $tx2=(($bc['msr_time'])*$xunit)+$xof;
+ $ty2=(($bc['value'])-35)*$yunit_temp;$ty2=134-$ty2;
+ ImageFilledRectangle($im,$tx2-2,$ty2-2,$tx2+1,$ty2+1,$text_blue);
+ if($tx1 || $ty1) ImageLine($im,$tx1,$ty1,$tx2,$ty2,$text_blue);
+ $tx1=$tx2;$ty1=$ty2;
+ }
+ $temp_obj->MoveFirst();
+ }
+} // end of for $n
+}
+ImagePNG($im);
+ImageDestroy ($im);
+ ?>
Copied: care2x/branches/gettext/main/imgcreator/datachart.png (from rev 6405,
care2x/branches/gettext/main/imgcreator/datacurve.png)
===================================================================
(Binary files differ)
Property changes on: care2x/branches/gettext/main/imgcreator/datachart.png
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Deleted: care2x/branches/gettext/main/imgcreator/datacurve.php
===================================================================
--- care2x/branches/gettext/main/imgcreator/datacurve.php 2010-06-29
19:00:24 UTC (rev 6421)
+++ care2x/branches/gettext/main/imgcreator/datacurve.php 2010-06-30
08:17:30 UTC (rev 6422)
@@ -1,162 +0,0 @@
-<?php
-error_reporting(E_COMPILE_ERROR|E_ERROR|E_CORE_ERROR);
-require('./roots.php');
-require($root_path.'include/helpers/inc_environment_global.php');
-require($root_path.'classes/datetimemanager/class.dateTimeManager.php');
-$dateshifter=new dateTimeManager();
-/*
-CARE2X Integrated Information System for Hospitals and Health Care
Organizations and Services
-Copyright (C) 2002,2003,2004,2005 Elpidio Latorilla & Intellin.org
-GNU GPL. For details read file "copy_notice.txt".
-*/
-
-/**
-* This routine creates graphical chart for blood pressure and temperature
-*/
-
-/**
-* This function aligns the date to the start of the grahical chart
-*/
-function aligndate(&$ad,&$am,&$ay)
-{
- if(!checkdate($am,$ad,$ay)) # checks if the day is valid for example
Feb.29 or Sept. 31, last day of month, or last day of year, etc.
- {
- if($am==12)
- {
- $am=1;
- $ad=1;
- $ay++;
- }
- else
- {
- $am=$am+1;
- $ad=1;
- }
- }
-}
-/**
-* Initialize some values
-*/
-$xoffs=100; // The width of a day's column in pixels
-$xunit=$xoffs/24; // Unit of 1 hour in pixels = Width of day's column divided
by 24 hours
-$yunit_temp=135/5; // Unit of y coord per temperature value in pixels
-$yunit_bp=135/200; // Unit of y coord per blood pressure value in pixels
-/**
-* Validate date value
-*/
-if(!isset($mo)||empty($mo)) $mo=date('m');
-if(!isset($dy)||empty($dy)) $dy=date('d');
-if(!isset($yr)||empty($yr)) $yr=date('Y');
-if(!extension_loaded('gd')) dl('php_gd.dll');
-
-if(!isset($db)||!$db)
include($root_path.'include/helpers/inc_db_makelink.php');
-if($dblink_ok){
- $dbtable='care_encounter_measurement';
- $start=date('Y-m-d',mktime(0,0,0,$mo,$dy,$yr));
- $end=$dateshifter->shift_dates($start,-6,'d');
- $ok=false;
- $sql="SELECT msr_date,msr_time,value FROM $dbtable
- WHERE encounter_nr=$pn AND
msr_type_nr=8 AND msr_date BETWEEN '$start' AND '$end'
- ORDER BY msr_date,msr_time";
-
- if($bp_obj=$db->Execute($sql)){
- $bprows=$bp_obj->RecordCount();
- $ok=true;
- }
- $sql="SELECT msr_date,msr_time,value FROM $dbtable
- WHERE encounter_nr=$pn AND
msr_type_nr=3 AND msr_date BETWEEN '$start' AND '$end'
- ORDER BY msr_date,msr_time";
- if($temp_obj=$db->Execute($sql)){
- $trows=$temp_obj->RecordCount();
- $ok=true;
- }
-}
-
-# Initialize general dimensions
-$tabhi=135; # Height of graph chart in pixels
-$tablen=700; # Total width of graph chart in pixels
-$tabcols=$tablen/28; # Total number of vertical lines
-$tabrows=$tabhi/20; # Total number of horizontal lines
-
-header ('Content-type: image/PNG');
-
-$...@imagecreatefrompng($root_path.'main/imgcreator/datacurve.png'); // Loads
the ready made image (makes this routine faster)
-
-/**
-* The next set of codes create the graph chart on-the-fly
-* if the ready made image is not loaded successfully
-*/
-if(!$im){
- $im = @ImageCreate ($tablen, $tabhi);
- // $background_color = ImageColorAllocate ($im, 205,225,236);
- $background_color = ImageColorAllocate ($im, 255,255,255);
- $text_color = ImageColorAllocate ($im, 0, 170, 255);
- # The vertical and horizontal lines are drawn
-
- for($i=$tabcols;$i<$tablen;$i+=$tabcols)
ImageLine($im,$i,0,$i,$tabhi-1,$text_color);
- for($i=$tabrows;$i<$tabhi;$i+=$tabrows)
ImageLine($im,0,$i,$tablen-1,$i,$text_color);
- ImageLine($im,0,$tabhi-1,$tablen-1,$tabhi-1,$text_color);
-}
-
-$text_red = ImageColorAllocate ($im, 255, 0, 0);
-$text_blue = ImageColorAllocate ($im, 0, 0, 255);
-
-#**************** start drawing the graph values ***********************
-/**
-* These variables are used in the following lines of code
-*
-* $ox1 = a line's start x coord for blood pressure
-* $oy1= a line's start y coord for blood pressure
-* $tx1 = a line's start x coord for temperature
-* $ty1 = a line's start y coord for temperature
-* $ox2 = a line's end x coord for blood pressure
-* $oy2= a line's end y coord for blood pressure
-* $tx2 = a line's end x coord for temperature
-* $ty2 = a line's end y coord for temperature
-*
-* $n = Column number of the chart = corresponding to a day
-* $xof= The current start x coord
-*/
-if($ok){
-
-$ox1=0;$oy1=0;
-$tx1=0; $ty1=0;
-
-for($n=0,$xof=0;$n<7;$n++,$xof+=$xoffs)
-{
- $date=$dateshifter->shift_dates($start,-($n),'d');
-#**************** begin of curve tracing Blood Pressure***************
- if($bprows){
- for($i=0;$i<$bprows;$i++)
- {
- $bp=$bp_obj->FetchRow();
- if($bp['msr_date']!=$date) continue;
- if(empty($bp['msr_time'])||empty($bp['value'])) continue;
- $ox2=(($bp['msr_time'])*$xunit)+$xof;
- $oy2=(($bp['value'])-70)*$yunit_bp;$oy2=134-$oy2;
- ImageArc($im,$ox2,$oy2,4,4,0,360,$text_red);
- if($ox1 || $oy1) ImageLine($im,$ox1,$oy1,$ox2,$oy2,$text_red);
- $ox1=$ox2;
- $oy1=$oy2;
- }
- $bp_obj->MoveFirst();
- }
-#**************** begin of curve tracing Temperature***************
- if($trows){
- for($i=0;$i<$trows;$i++){
- $bc=$temp_obj->FetchRow();
- if($bc['msr_date']!=$date) continue;
- if(empty($bc['msr_time'])||empty($bc['value'])) continue;
- $tx2=(($bc['msr_time'])*$xunit)+$xof;
- $ty2=(($bc['value'])-35)*$yunit_temp;$ty2=134-$ty2;
- ImageFilledRectangle($im,$tx2-2,$ty2-2,$tx2+1,$ty2+1,$text_blue);
- if($tx1 || $ty1) ImageLine($im,$tx1,$ty1,$tx2,$ty2,$text_blue);
- $tx1=$tx2;$ty1=$ty2;
- }
- $temp_obj->MoveFirst();
- }
-} // end of for $n
-}
-ImagePNG($im);
-ImageDestroy ($im);
- ?>
Deleted: care2x/branches/gettext/main/imgcreator/datacurve.png
===================================================================
(Binary files differ)
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
This SF.net email is sponsored by Sprint
What will you do first with EVO, the first 4G phone?
Visit sprint.com/first -- http://p.sf.net/sfu/sprint-com-first
_______________________________________________
Care2002-developers mailing list
Care2002-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/care2002-developers
