怎麼形容呢？看起來都不很清楚，像螢幕上的亮點而已。
簡單地說左邊左邊最亮的星是 Vega, 也就是織女星，右側的亮星帶兩個小星星的是天鷹座，也就是牛郎星，這兩星中間應該有銀河穿過，但城市光害這麼嚴重哪看得出呢！
底下的亮星是天津四，她在天鵝座屁股的位置。
七夕的天空都是雲，拿前幾天的照片來充版面。
2010年8月17日 星期二
2010年7月22日 星期四
抽動脈血
現在很少坐在抽血櫃檯，今天有同事來叫我：有個人說以前都找你抽動脈血，能幫忙一下嗎？
這位先生真的超客氣的，頻說"不好意思！"，其實他昨晚就到過檢驗科了，可是不敢給當班的人抽血。我還是找了一會兒，手臂就跟幾年前一樣，沒多長出表淺的靜脈。我猜想他年輕時可能曾打過毒品，抽過幾個這樣的手臂，這些血管是不會恢復的。
下針後竟然有靜脈的回血，但是我錯過了，只好再找動脈，看到快速的抽出血液時，他講話的語氣有種放心的感覺， 我也有種放心的感覺，技術還是退步了。
抽完後，他又頻頻感謝。能讓病人有放心依靠的感覺很好，他下次來，我還是會放下手邊工作幫他抽血的。或許，我也會考慮介紹技術更好的同事幫他抽血。
這位先生真的超客氣的，頻說"不好意思！"，其實他昨晚就到過檢驗科了，可是不敢給當班的人抽血。我還是找了一會兒，手臂就跟幾年前一樣，沒多長出表淺的靜脈。我猜想他年輕時可能曾打過毒品，抽過幾個這樣的手臂，這些血管是不會恢復的。
下針後竟然有靜脈的回血，但是我錯過了，只好再找動脈，看到快速的抽出血液時，他講話的語氣有種放心的感覺， 我也有種放心的感覺，技術還是退步了。
抽完後，他又頻頻感謝。能讓病人有放心依靠的感覺很好，他下次來，我還是會放下手邊工作幫他抽血的。或許，我也會考慮介紹技術更好的同事幫他抽血。
2010年7月2日 星期五
文學大師的背後
這當然也是真的事，一個作品暢銷的文學大師，也在幾個國家做客座教授，從簽約到作品發行後的種種，的確有大師風範！
忍不住又想以第一人稱來述說，大部分數字是瞎湊的，但誤差應該在 xx%之內。
忍不住又想以第一人稱來述說，大部分數字是瞎湊的，但誤差應該在 xx%之內。
- 今天出版商的業務拿三百萬就想跟我簽下一本書？真是太瞧不起人了，依我的身價該捧個一千萬來，我再考慮考慮吧，小朋友辦事就是這樣搞不清狀況。
- 幾天後，出版商的老闆帶五百萬支票來跟我談。唉呀！好吧！看在老朋友的份上，雖然跟原來的最低要求打了對折，還是給他面子吧，免得人家說我高傲，不顧朋友情份，不過版稅抽成可不能少給了吧，25%，按按計算機，300 x 0.25 x 20萬本大概是一千五百萬吧，勉強可接受。
- 寫這樣的書大概需要一年的時間，想找個房子在一個生活機能好的地方，要方便找人採訪，方便吃東西...，找老闆幫忙租個房好了，租金當然要公司出囉，他們公司也沒少賺呀！對了我還缺一台筆記型電腦，叫他們順便送一台來。
- 上次跟親戚合寫的那本書只給了我三百萬，我要試試看這些辦事的小妹何時才會想到我親戚？要給人家 credit呀！終於，可能老闆提醒辦事的人吧，送來五百萬給親戚。我是不會在意親戚比我多拿一些的。
- 出書之後...
- 唉呀！這公司的行銷有問題！怎沒把我的書放在一進門就看得到的位置？而且周邊還放了些模仿我的作品，這樣會影響我的銷售、版稅收入，還要讓讀者去找書，真是...還是跟老闆說好了，應該讓他知道好朋友內心的感受。
- 新加坡出版界的朋友打電話來邀約，邀我出席發行首賣宣傳，最近這麼忙，叫國內這家出版商幫我訂個機票旅館好了，這算在出版的公關宣傳費裡應該還有多的額度。
- 這我一定要把辦事小妹抓來罵一頓，怎麼從機場出來沒有歡迎列隊？沒有記者採訪？這真的是一家國內的專業出版商？我下次要好好考慮換一家出版商。沒有宣傳哪來的銷售數字？連我這個作家都懂得事，怎麼專業出版商不懂？
- 寫作過程有些幫忙的朋友，想要謝謝人家，請客吃個飯好了，這也算公關支出吧。什麼！我請客要以你們公司的名義，老闆也要來？算了！算了！也是老朋友了，既然如此，我再多找幾個人來吧。
2010年6月23日 星期三
RhD陰性病人輸注分離術血小板產生 anti-D
在6天內輸注3U 分離術血小板(RhD+)，第7天時測得產生抗體(anti-D)，應該是血袋中殘留的紅血球造成的 ，還好病人是男性，不會有生產的問題。
*6月16日PLT = 3 x1000/ul
**備血，Antibody screening：Negative
**輸注分離術血小板 6/16 x 1U, 6/18 x 1U
*6月19日 PLT= 12 x1000/ul
**備血，Antibody screening：Negative
**輸注分離術血小板 6/20 x 1U
*6月22日 PLT= 5 x1000/ul
**備血，Antibody screening：Positive, Ab ID result： anti-D
*6月16日PLT = 3 x1000/ul
**備血，Antibody screening：Negative
**輸注分離術血小板 6/16 x 1U, 6/18 x 1U
*6月19日 PLT= 12 x1000/ul
**備血，Antibody screening：Negative
**輸注分離術血小板 6/20 x 1U
*6月22日 PLT= 5 x1000/ul
**備血，Antibody screening：Positive, Ab ID result： anti-D
2010年6月13日 星期日
文件掃描系統備份
備份在不同的電腦(掃描備份.bat)
@echo off
rem // copy to local (different directory)
cd d:\
xcopy d:\檢驗科\*.* c:\檢驗科scan備份\ /s /y
rem // copy to web directory (before transform)
NET USE o: \\192.168.xx.xx\d$\檢驗科 /user:lis2k
xcopy d:\檢驗科\*.* O:\ /y /s
NET USE O: /delete
rem // rename d:\檢驗科 加上日期
rem cd d:\
rename 檢驗科 檢驗科%Date:~4,4%%date:~9,2%%date:~12,2%
cd c:\appserv\php5
php -f filetransfer.php >> filetransfer.log
(2) filetransfer.php
//include mdb2
require_once("config.inc.php");
$scanDir="d:/檢驗科";
//check $dest_dir_name in function getDirectory
getDirectory( $scanDir );
for ($i=1;$i<=5;$i++){
//每次刪減一個level的目錄
delEmptyDirectory( $scanDir );
}
echo "Files Transfered";
//test empty directory
function is_empty_dir($dir)
{
if (($files = @scandir($dir)) && count($files) <= 2) {
return true;
}
return false;
}
//delete empty directory
function delEmptyDirectory($path){
$ignore = array( 'cgi-bin', '.', '..' );
$dh = @opendir( $path );
while( false !== ( $file = readdir( $dh ) ) ){
if( !in_array( $file, $ignore ) ){
if( is_dir( "$path/$file" ) ){
if (($files = @scandir("$path/$file")) && count($files) <= 2) {
rmdir("$path/$file");
}else{
delEmptyDirectory( "$path/$file", ($level+1) );
} //if 空目錄刪除, else 往下scan
} //if is_dir
} //if !in_array
} // while( false !== ( $file = readdir( $dh ) ) )
closedir( $dh );
} //function delEmptyDirectory
//test recursive directory list
function getDirectory( $path = '.', $level = 0 ){
global $mdb2;
$today=date("Ymd");
echo "$today files transfer start....\n";
//if backup to different dir, change the path below
$dest_dir_name="i:/backup/$today/";
//backup destination directory with date 2010(Y)04(m)22(d) sub-directory
if (!is_dir($dest_dir_name)){
mkdir($dest_dir_name);
echo "create dir $dest_dir_name \n";
//如果沒有這個目錄，mkdir
}
$ignore = array( 'cgi-bin', '.', '..' );
// Directories to ignore when listing output. Many hosts
// will deny PHP access to the cgi-bin.
$dh = @opendir( $path );
// Open the directory to the handle $dh
while( false !== ( $file = readdir( $dh ) ) ){
// Loop through the directory
if( !in_array( $file, $ignore ) ){
// Check that this file is not to be ignored
// $spaces = str_repeat( ' ', ( $level * 4 ) );
// Just to add spacing to the list, to better
// show the directory tree.
if( is_dir( "$path/$file" ) ){
// Its a directory, so we need to keep reading down...
// echo $i++."$spaces $path/$file
";
// unmark to echo directory name
getDirectory( "$path/$file", ($level+1) );
echo "go subDir $path/$file \n";
// Re-call this same function but on a new directory.
// this is what makes function recursive.
} else {
$full_path="$path/$file";
// echo $i++."$spaces $path/$file
";
$path_parts = pathinfo($full_path);
$file_mod_time=date ("YmdHis", filemtime($full_path));
$source_dir_name= $path_parts['dirname'];//directory
$source_file_name= $path_parts['basename'];//filename with ext
$dest_file_name= md5_file($full_path);//filename change to md5
$file_ext=$path_parts['extension'];//file ext
$source_file_name_no_ext= $path_parts['filename']; // since PHP 5.2.0, filename without ext
rename($full_path,"$dest_dir_name/$dest_file_name.$file_ext");
// exec_sql("insert into file_search(source_dir_name,source_file_name,dest_dir_name,dest_file_name,file_ext) values('$source_dir_name','$source_file_name','$dest_dir_name','$dest_file_name','$file_ext')");
exec_sql("insert into file_search(source_file_name,dest_dir_name,dest_file_name,file_ext,file_mod_time) values('$full_path','$today/','$dest_file_name','$file_ext','$file_mod_time')");
// echo "$path/$file".md5_file("$path/$file")."
";
// Just print out the filename
} //if is_dir
} //if !in_array
} // while( false !== ( $file = readdir( $dh ) ) )
closedir( $dh );
// Close the directory handle
} //function getDirectory
?>
@echo off
rem // copy to local (different directory)
cd d:\
xcopy d:\檢驗科\*.* c:\檢驗科scan備份\ /s /y
rem // copy to web directory (before transform)
NET USE o: \\192.168.xx.xx\d$\檢驗科 /user:lis2k
xcopy d:\檢驗科\*.* O:\ /y /s
NET USE O: /delete
rem // rename d:\檢驗科 加上日期
rem cd d:\
rename 檢驗科 檢驗科%Date:~4,4%%date:~9,2%%date:~12,2%
- 備份檔案轉入網頁資料庫
cd c:\appserv\php5
php -f filetransfer.php >> filetransfer.log
(2) filetransfer.php
//include mdb2
require_once("config.inc.php");
$scanDir="d:/檢驗科";
//check $dest_dir_name in function getDirectory
getDirectory( $scanDir );
for ($i=1;$i<=5;$i++){
//每次刪減一個level的目錄
delEmptyDirectory( $scanDir );
}
echo "Files Transfered";
//test empty directory
function is_empty_dir($dir)
{
if (($files = @scandir($dir)) && count($files) <= 2) {
return true;
}
return false;
}
//delete empty directory
function delEmptyDirectory($path){
$ignore = array( 'cgi-bin', '.', '..' );
$dh = @opendir( $path );
while( false !== ( $file = readdir( $dh ) ) ){
if( !in_array( $file, $ignore ) ){
if( is_dir( "$path/$file" ) ){
if (($files = @scandir("$path/$file")) && count($files) <= 2) {
rmdir("$path/$file");
}else{
delEmptyDirectory( "$path/$file", ($level+1) );
} //if 空目錄刪除, else 往下scan
} //if is_dir
} //if !in_array
} // while( false !== ( $file = readdir( $dh ) ) )
closedir( $dh );
} //function delEmptyDirectory
//test recursive directory list
function getDirectory( $path = '.', $level = 0 ){
global $mdb2;
$today=date("Ymd");
echo "$today files transfer start....\n";
//if backup to different dir, change the path below
$dest_dir_name="i:/backup/$today/";
//backup destination directory with date 2010(Y)04(m)22(d) sub-directory
if (!is_dir($dest_dir_name)){
mkdir($dest_dir_name);
echo "create dir $dest_dir_name \n";
//如果沒有這個目錄，mkdir
}
$ignore = array( 'cgi-bin', '.', '..' );
// Directories to ignore when listing output. Many hosts
// will deny PHP access to the cgi-bin.
$dh = @opendir( $path );
// Open the directory to the handle $dh
while( false !== ( $file = readdir( $dh ) ) ){
// Loop through the directory
if( !in_array( $file, $ignore ) ){
// Check that this file is not to be ignored
// $spaces = str_repeat( ' ', ( $level * 4 ) );
// Just to add spacing to the list, to better
// show the directory tree.
if( is_dir( "$path/$file" ) ){
// Its a directory, so we need to keep reading down...
// echo $i++."$spaces $path/$file
";
// unmark to echo directory name
getDirectory( "$path/$file", ($level+1) );
echo "go subDir $path/$file \n";
// Re-call this same function but on a new directory.
// this is what makes function recursive.
} else {
$full_path="$path/$file";
// echo $i++."$spaces $path/$file
";
$path_parts = pathinfo($full_path);
$file_mod_time=date ("YmdHis", filemtime($full_path));
$source_dir_name= $path_parts['dirname'];//directory
$source_file_name= $path_parts['basename'];//filename with ext
$dest_file_name= md5_file($full_path);//filename change to md5
$file_ext=$path_parts['extension'];//file ext
$source_file_name_no_ext= $path_parts['filename']; // since PHP 5.2.0, filename without ext
rename($full_path,"$dest_dir_name/$dest_file_name.$file_ext");
// exec_sql("insert into file_search(source_dir_name,source_file_name,dest_dir_name,dest_file_name,file_ext) values('$source_dir_name','$source_file_name','$dest_dir_name','$dest_file_name','$file_ext')");
exec_sql("insert into file_search(source_file_name,dest_dir_name,dest_file_name,file_ext,file_mod_time) values('$full_path','$today/','$dest_file_name','$file_ext','$file_mod_time')");
// echo "$path/$file".md5_file("$path/$file")."
";
// Just print out the filename
} //if is_dir
} //if !in_array
} // while( false !== ( $file = readdir( $dh ) ) )
closedir( $dh );
// Close the directory handle
} //function getDirectory
?>
2010年6月2日 星期三
a loggable laboratory bullitin information pratice
a loggable laboratory bullitin information pratice.
您的實驗室都如何進行人員公告、SOP修訂閱讀紀錄？
使用E-MAIL？使用紙本一個人一個人蓋章？
您如何知道E-MAIL已經有效通知，人員於何時讀取？三班輪替的人員蓋完章要花多少時間？
同仁跟你反映過：什麼時候公告的？我不知道！？
我想讓這流程有效率一點，設計了公告紀錄網頁，與檢驗報告查詢系統連結。
程式碼還沒想好放在哪，有興趣可以直接找我拿。
系統需求：APACHE OR IIS 網頁伺服器, MYSQL, PHP+PEAR(auth, mdb2)
**program lists(in subDIR \msg)
table
**USER FRIENDLY INTERFACE
您的實驗室都如何進行人員公告、SOP修訂閱讀紀錄？
使用E-MAIL？使用紙本一個人一個人蓋章？
您如何知道E-MAIL已經有效通知，人員於何時讀取？三班輪替的人員蓋完章要花多少時間？
同仁跟你反映過：什麼時候公告的？我不知道！？
我想讓這流程有效率一點，設計了公告紀錄網頁，與檢驗報告查詢系統連結。
程式碼還沒想好放在哪，有興趣可以直接找我拿。
系統需求：APACHE OR IIS 網頁伺服器, MYSQL, PHP+PEAR(auth, mdb2)
**program lists(in subDIR \msg)
- ../login.php
- styles.css
- config.inc.php
- header.php
- index.php
- msg_add.php
- msg_edit.php
- msg_read_log.php
- msg_read_log_user.php
- msg_show.php
- sample_posteddata.php
table
- MSG_cont(
CREATE TABLE msg_cont (
m_id int(11) NOT NULL auto_increment,
m_date varchar(14) default NULL,
m_title1 varchar(128) NOT NULL default '',
m_title2 varchar(128) default NULL,
m_content text NOT NULL,
to_show char(1) NOT NULL default '1',
post_oper varchar(5) NOT NULL default '',
read_count int(11) default '1',
PRIMARY KEY (m_id),
FULLTEXT KEY m_content(m_content),
KEY post_oper(post_oper)
) TYPE=MyISAM COMMENT='message 內容'; - msg_read_log(
CREATE TABLE msg_read_log (
m_id int(11) NOT NULL default '0',
oper_id varchar(5) NOT NULL default '',
post_date varchar(14) default NULL,
read_date varchar(14) default '9',
remark varchar(64) NOT NULL default '',
PRIMARY KEY (m_id,oper_id),
KEY m_id(m_id),
KEY oper_id(oper_id)
) TYPE=MyISAM COMMENT='message read log'; - Msg_search(
CREATE TABLE msg_search (
m_id int(11) NOT NULL default '0',
m_key varchar(128) NOT NULL default '',
PRIMARY KEY (m_id,m_key),
FULLTEXT KEY m_key(m_key)
) TYPE=MyISAM; - Oper(
CREATE TABLE oper (
oper_id varchar(6) default NULL,
oper_name varchar(10) default NULL,
pswd_desc varchar(15) default NULL,
EXPER_TYPE varchar(10) default NULL,
e_mail varchar(60) default NULL,
auth_right varchar(10) NOT NULL default 'user',
UNIQUE KEY oper_id(oper_id)
) TYPE=MyISAM; - msg_cont_backup(
CREATE TABLE msg_cont_backup (
m_id int(11) NOT NULL auto_increment,
m_date varchar(14) default NULL,
m_title1 varchar(128) NOT NULL default '',
m_title2 varchar(128) default NULL,
m_content text NOT NULL,
to_show char(1) NOT NULL default '0',
post_oper varchar(5) NOT NULL default '',
read_count int(11) default '1',
PRIMARY KEY (m_id),
FULLTEXT KEY m_content(m_content),
KEY post_oper(post_oper)
) TYPE=MyISAM COMMENT='message 內容'; - msg_read_log_backup(
CREATE TABLE msg_read_log_backup (
m_id int(11) NOT NULL default '0',
oper_id varchar(5) NOT NULL default '',
post_date varchar(14) default NULL,
read_date varchar(14) default NULL,
remark varchar(64) NOT NULL default '',
KEY m_id(m_id)
) TYPE=MyISAM COMMENT='message read log';
**USER FRIENDLY INTERFACE
- CKEditor ：可將word格式直接貼上，增加可讀性
- CKFinder：檔案上傳(未完成，中文檔名有問題)
- message 管理，選擇人員公佈
- message 可包括各組公告、SOP修改公告、
- message 可搜尋
- 人員登錄
- 依照登錄與 讀取公告，紀錄讀取公告時間
- 追蹤未讀取的名單
- 顯示各公告的讀取情況
2010年6月1日 星期二
更換 HEPA 注意事項
今天實驗室換 HEPA filter，聯絡人拿著相機狂拍。
過了一會兒，我路過在 BSC(Bio Safty Cabnet)旁，看到有個同事沒戴口罩還在團團轉做工，趕快請他戴上口罩(雖然不一定有用)。等我走遠了發現，奇怪，位於更遠位置的同事，以前都不戴口罩的，怎今天已經都武裝完備？那為什麼沒人告訴在"高危險區"的同事該戴口罩呢？同時，我發現"聯絡人"也已經戴上了口罩。
這群沒同事愛(幫他們想個台階，可能沒想到吧)，沒安全觀念的人真該好好教教。如果沒戴口罩的人感染了什麼的，難道其他人躲得過麼？休息區在一起，每天也得見面講話的，以為實驗室有多大？
可能老闆會說：怎麼別人都知道要戴口罩，你不知道呢？
這是兩回事，就好像水庫洩洪時，有開警報警告民眾；跟直接放了水，再問民眾，你怎麼看到大水來了還不躲呢？
結論：更換 HEPA 注意事項，要先通知周邊相關人員，做好安全防護措施。更理想點，評估怎樣的防護設備才是有效的，並且提供相關設備。
過了一會兒，我路過在 BSC(Bio Safty Cabnet)旁，看到有個同事沒戴口罩還在團團轉做工，趕快請他戴上口罩(雖然不一定有用)。等我走遠了發現，奇怪，位於更遠位置的同事，以前都不戴口罩的，怎今天已經都武裝完備？那為什麼沒人告訴在"高危險區"的同事該戴口罩呢？同時，我發現"聯絡人"也已經戴上了口罩。
這群沒同事愛(幫他們想個台階，可能沒想到吧)，沒安全觀念的人真該好好教教。如果沒戴口罩的人感染了什麼的，難道其他人躲得過麼？休息區在一起，每天也得見面講話的，以為實驗室有多大？
可能老闆會說：怎麼別人都知道要戴口罩，你不知道呢？
這是兩回事，就好像水庫洩洪時，有開警報警告民眾；跟直接放了水，再問民眾，你怎麼看到大水來了還不躲呢？
結論：更換 HEPA 注意事項，要先通知周邊相關人員，做好安全防護措施。更理想點，評估怎樣的防護設備才是有效的，並且提供相關設備。
訂閱：
文章 (Atom)