依照人口血型的分布
A 約 27.1%，B 約 24.5%，O 約 42.1%，AB 約 6.3%
用血量(Packed RBC)的比例：
A：27.3%，B: 23.4%，O: 42.6%，AB: 6.7%
笑問同事：B型的人都比較怕死，比較不敢冒險，所以出意外比較少，用血量與人口分布比例少 1%？
just for fun. 我也是 B型說！
笑問同事：B型的人都比較怕死，比較不敢冒險，所以出意外比較少，用血量與人口分布比例少 1%？
just for fun. 我也是 B型說！
2009年12月28日 星期一
2009年12月27日 星期日
為什麼台灣1U血袋是250ml? 而美國1U血袋是500ml?
聽說有個醫院做 JCI 預評，委員問到：
難道不能回答：奇怪！國家捐血中心政策就是如此，有啥好討論的？
- 台灣的一單位是 250ml，有啥參考來源？
難道不能回答：奇怪！國家捐血中心政策就是如此，有啥好討論的？
2009年12月25日 星期五
條碼兩、三事
實驗室用的條碼這麼多，您了解多少？就我使用的經驗簡單說明
- 25碼
- 純數字，要雙位數
- 可讀性高
- 使用10年的時間，儀器讀取效果很好，10位數字的列印長度約3~3.5cm
- 列印粗細比1:3, 空白間距 2
- 39碼
- 數字、英文皆可
- 列印字串前後要加 "*" 的符號，e.g. *A12345*
- 如果列印比例較小，儀器可讀性較差
- 我最不喜歡用的格式，有幾台機器讀不到；可是也有方便的地方，它有字形檔，可以直接輸出印表機
- 128碼
- 又分好幾種，數字、英文皆可
- 即將在2010轉用的格式，因為條碼增加了英文，可讀性比39碼高，但列印長度比25碼長。害的我還是得更改條碼紙的長度。
- 設定
- 呼叫 dos 模式 batch 檔，需附帶設定 ini 檔及要列印的文字txt檔，e.g. wingin set.ini barcode.txt
- 粗細比列 e.g. 1:3, 2:5
- 空白間距
2009年12月24日 星期四
auto backup
需要自動壓縮備份資料的作業，設計了底下的作業：
在 c:\backup_loc\ 建立4個檔案
1.copy_mdb.bat
2.backup.lst
3.copy_backup.bat
4.backup1.lst
1. copy_mdb.bat:因為直接rar壓縮 mdb檔，會顯示檔案正在使用中，所以先把檔案list的mdb檔copy 到 local c:\backup_loc 目錄(底下的語法可是找了半天！)
FOR /F "eol=; " %%i in (backup.lst) do xcopy %%i .\ /s /y
2. backup.lst 列表想要儲存的檔案(copy 到 local,一些會被鎖住的檔案e.g. mdb 資料檔)
3. copy_backup.bat
3.1 cd "c:\program files\winrar"
3.2 rar a \\10.65.11.15\backup\BioChem_backup\databsee_backup @c:\backup_loc\backup1.lst
3.3 注意rar 的 list檔(上例: c:\backup_loc\backup1.lst) 一定要在 c:\ ，剛開始裝在 d:\exper 怎麼試都不行，氣死了
4.backup1.lst: 列表要壓縮的檔案或目錄
5.排程：
5.1設定->控制台->排定的工作
5.2新增排定工作，先排 COPY_MDB.BAT
5.3再排入 COPY_BACKUP.BAT
6. CHECK BACKUP.RAR NEXT DAY
在 c:\backup_loc\ 建立4個檔案
1.copy_mdb.bat
2.backup.lst
3.copy_backup.bat
4.backup1.lst
1. copy_mdb.bat:因為直接rar壓縮 mdb檔，會顯示檔案正在使用中，所以先把檔案list的mdb檔copy 到 local c:\backup_loc 目錄(底下的語法可是找了半天！)
FOR /F "eol=; " %%i in (backup.lst) do xcopy %%i .\ /s /y
2. backup.lst 列表想要儲存的檔案(copy 到 local,一些會被鎖住的檔案e.g. mdb 資料檔)
3. copy_backup.bat
3.1 cd "c:\program files\winrar"
3.2 rar a \\10.65.11.15\backup\BioChem_backup\databsee_backup @c:\backup_loc\backup1.lst
3.3 注意rar 的 list檔(上例: c:\backup_loc\backup1.lst) 一定要在 c:\ ，剛開始裝在 d:\exper 怎麼試都不行，氣死了
4.backup1.lst: 列表要壓縮的檔案或目錄
5.排程：
5.1設定->控制台->排定的工作
5.2新增排定工作，先排 COPY_MDB.BAT
5.3再排入 COPY_BACKUP.BAT
6. CHECK BACKUP.RAR NEXT DAY
2009年12月22日 星期二
98年大學醫技系入學分數--有點過時的資料
之前整理的，沒拿出來貼 :p
- 陽明︰476.35
- 長庚︰473.65
- 高醫︰464.91
- 成大：463.42
- 台大︰451.38
- 中山︰450.82
- 北醫︰439.41
- 中國︰399.06
- 慈濟︰325.81
2009年12月13日 星期日
醫院規模太小，是阻礙創新的因素
有些 idea在做與不做之間掙扎，其中一個評估的點在於我能節省多少人力，如果設計了一個新的電子化或自動化，可是因為量不大，其實用人力來做好像也差不了多少，就會失去了創新設計的動力。
2009年11月16日 星期一
How much does FFP raise patient's albumin level?
如果說台灣使用FFP太高是因為很多醫生拿來補Albumin，那我想知道輸了FFP之後到底能提升多少Albumin值？
Need to roule out：
Need to roule out：
- 平均FFP內含的Albumin總量
- 病人是否輸過 Albumin concentrate？
- Albumin level tests period between FFP transfusion
你知道台灣輸注FFP 有多少人"沒"評估過 PT/aPTT?
答案是"超過20%"！。英國有一份調查報告，有8%沒做過。台灣該誰來調查這個事情？
引述：
某醫院98年醫檢年會海報論文：依據健保住院資料庫探討輸用新鮮冷凍血漿(FFP)病患測試PT/aPTT之比例
引述：
某醫院98年醫檢年會海報論文：依據健保住院資料庫探討輸用新鮮冷凍血漿(FFP)病患測試PT/aPTT之比例
- 結果內容：於資料庫中所有申請輸注FFP筆數共有152,712筆,分別由100,278人次申請,其中完全沒有檢測INR及aPTT之筆數就有32,380筆,佔全部輸注FFP筆數之21.2%;而這些完全沒有檢測INR及aPTT之筆數分別由24,851人次申請,佔全部申請人次之24.8%。若以FFP輸血袋數分析,在總輸注之1,394,356 袋數中,完全沒有檢測INR及aPTT之袋數為260,681袋,佔全部輸注FFP袋數之18.7%.
- 依據"blood matters – Summer 2009"
- The use of coagulation screening tests(PT or INR)：8% of adults did not have INR or PT reported before FFP was given. Following FFP transfusion, hospitals were unable to provide coagulation results for 14% of adults. 27% of adults without bleeding who received FFP transfusions and who had INR tested had INR <1.5.>
98年醫檢年會
又是一場朝聖，好熱鬧。想以後叫實習生來參加。
- 因輸血產生Anti-**抗體Case report(**代表馬賽克)的海報竟然得獎了？對於大型醫學中心來說，抗體鑑定這些有啥困難？我只能說，評審可能不止看內容，還看排版美觀吧？！
- 有一篇海報報導血庫品質指標項目，其中一項是 PRBC/FFP 在 1.0上下徘徊。想想自己的醫院，PRBC/FFP 並沒有列為品質指標，但效果卻比這篇海報好。所以...品質指標到底是放在那裡拜拜的還是在醫檢人員的心中呢？
- 有一篇統計健保申報中，檢驗費用佔的比例，報導了抽樣檔的統計檢驗費用。然後呢？對於檢驗有任何改善建議措施？我看不出來說
- 想到其他有趣的，以後再拿出來講
2009年10月22日 星期四
當仇恨淹沒理智
這是個很久以前的故事。
有一位同事，他很氣老闆跟新編組到血庫同事，後來決定要離職。在離職前兩週開始刪除血庫的統計報表、文件等電子檔，而且有些檔案還很技巧地清除內容後再回存，讓你看到檔名，但是內容是一片空白。
從檔案的寫入時間看來，只有他一人在血庫工作。他當然什麼都不承認，後來老闆也不想處理他，就讓這件事情算了。
其實這個同事，是個認真、負責的人，幾乎血庫的文件，統計報表都是他一手建立的，但是，最後他卻因為仇恨淹沒了理智，做出這樣的行為，讓人覺得很可惜。
像新聞報導常會看到的採訪：這個人平常很好，看不出來會做這樣的事。其實，連我都沒想到他會這樣做。
二老闆也問：真的是他做的嗎？
每每看到社會新聞，因為仇恨而殺死人的案件，我都會想到這個案例，當仇恨滿溢的時候，你沒辦法知道他會做出什麼。
理智是這麼脆弱的嗎？
再回想如果這個案件發生在我身上，我會刪除公司的資料嗎？想想以我的功力，公司應該會承受極大的痛苦！但我還蠻有自信不會發生這樣的事。其實這些工作時完成的資料，都算是公司的財產，它們都是很珍貴的，而且還會影響客戶的權利等等。對老板的仇恨不應該加諸於客戶身上。
有一位同事，他很氣老闆跟新編組到血庫同事，後來決定要離職。在離職前兩週開始刪除血庫的統計報表、文件等電子檔，而且有些檔案還很技巧地清除內容後再回存，讓你看到檔名，但是內容是一片空白。
從檔案的寫入時間看來，只有他一人在血庫工作。他當然什麼都不承認，後來老闆也不想處理他，就讓這件事情算了。
其實這個同事，是個認真、負責的人，幾乎血庫的文件，統計報表都是他一手建立的，但是，最後他卻因為仇恨淹沒了理智，做出這樣的行為，讓人覺得很可惜。
像新聞報導常會看到的採訪：這個人平常很好，看不出來會做這樣的事。其實，連我都沒想到他會這樣做。
二老闆也問：真的是他做的嗎？
每每看到社會新聞，因為仇恨而殺死人的案件，我都會想到這個案例，當仇恨滿溢的時候，你沒辦法知道他會做出什麼。
理智是這麼脆弱的嗎？
再回想如果這個案件發生在我身上，我會刪除公司的資料嗎？想想以我的功力，公司應該會承受極大的痛苦！但我還蠻有自信不會發生這樣的事。其實這些工作時完成的資料，都算是公司的財產，它們都是很珍貴的，而且還會影響客戶的權利等等。對老板的仇恨不應該加諸於客戶身上。
2009年10月21日 星期三
2009年10月7日 星期三
rescue data
醫院發報告系統做的 Log 檔，幫了大忙！
同事要查詢最近新開的 H1N1 報表，我貪圖方便，給同事最簡易版的查詢介面，直接 select 資料 from Table，也經過一個月都沒事，沒想到意外還是發生了，同事選完資料，沒有匯出，直接就按了 DEL！
資料能救回來，該感謝10年前建構系統的人，在發出報告時，會同時紀錄另一筆Log，把Log資料撈回來，再補幾個欄位。真是不幸中的大幸。
同事要查詢最近新開的 H1N1 報表，我貪圖方便，給同事最簡易版的查詢介面，直接 select 資料 from Table，也經過一個月都沒事，沒想到意外還是發生了，同事選完資料，沒有匯出，直接就按了 DEL！
資料能救回來，該感謝10年前建構系統的人，在發出報告時，會同時紀錄另一筆Log，把Log資料撈回來，再補幾個欄位。真是不幸中的大幸。
fax to web
公司有一條Ｆax 專線，除了用傳真機傳出外，我幫它接了數據機，當作收入傳真的工具，經過數據機，會將傳入的傳真變成圖檔(.tif)儲存。
剛開始都幫大家傳圖檔，後來資料越來越多，乾脆做底下的方案，讓使用者直接從網頁拿自己的傳真，就沒有我的事囉。
需求：
剛開始都幫大家傳圖檔，後來資料越來越多，乾脆做底下的方案，讓使用者直接從網頁拿自己的傳真，就沒有我的事囉。
需求：
- 電腦一台，公司使用win2000介面
- 數據機，在ADSL出來之前的上網工具
- 網頁伺服器 (IIS or apache) + support php
- 先要設定好電腦與數據機的連線，要開啟一個服務(service): telephony
- 設定好傳真檔案儲存的目錄
- 將上面的目錄設定為網頁的一個目錄
- 將底下的php 程式在同一個目錄，存成 index.php
- 程式碼在這裡一直無法正常顯示(與html衝突)，把它作成google notes，連結如下
- http://www.google.com/notebook/public/01591039688914798723/BDQ55DQoQwL_X1cck?hl=zh-TW
2009年10月6日 星期二
2009年9月30日 星期三
2009年9月29日 星期二
2009年9月15日 星期二
2009年9月6日 星期日
2009年8月28日 星期五
2007美國捐血作業報告
http://www.hhs.gov/ophs/bloodsafety/2007nbcus_survey.pdf
已經開始在評估2009的作業了(2009 NATIONAL BLOOD COLLECTION AND UTILIZATION SURVEY - NBCUS)
好希望台灣的捐血中心也能做出這樣的報告，應該也是一份好的參考文獻，輸血學會來做好了！
已經開始在評估2009的作業了(2009 NATIONAL BLOOD COLLECTION AND UTILIZATION SURVEY - NBCUS)
好希望台灣的捐血中心也能做出這樣的報告，應該也是一份好的參考文獻，輸血學會來做好了！
2009年8月17日 星期一
2009年8月16日 星期日
2009年8月12日 星期三
2009年8月9日 星期日
連線程式練習
連線程式小試，同事一直反應，人工分類完，再以手工 key in 電腦常常出錯，造成修改報告頻繁，只好自己找資料，買了RS-232 測試的工具玩一玩，找到底下這篇論文參考，真的可以用喔！
使用儀器：白血球分類計數儀 comdek MD-200
感謝 洪敬瑞 成功大學研究所論文的參考
做了部份修改，有些小問題，製作時才會遇到。
'==============程式碼================
Dim InByte() As Byte
Dim buf(0 To 11) As String
Public counter%, reg$
Private CN As ADODB.Connection
Private RS As ADODB.Recordset
Private Sub Command1_Click()
'SEND BUTTON
Dim SQL_STR As String
Dim I%
'===CHECK 基本資料是否齊全
If Len(Text1.Text) <> 10 Or IsNull(Text1.Text) Or item(12) = 0 Then
MsgBox "試管號碼錯誤 或是" & Chr(13) & "總和值有問題" & Chr(13) _
& "無法繼續？", vbCritical, "注意!!"
Call RESET_FORM
Exit Sub
End If
'===依序將不是0的ITEM資料填入 EXPER_SIGN
For I = 0 To 11
' If item(I) > 0 Then
SQL_STR = "UPDATE EXPER_SIGN SET " _
& "EXPER_DATA2='" & item(I) & "' " _
& "WHERE TUBE_NUMBER='" & Text1.Text & "' " _
& "AND EXPER_CODE='" & Label1(I) & "' " _
& "AND TYPE_FLAG<>'Y';" '注意已經確認的報告不要再 UPDATE!!
CN.Execute SQL_STR, 1
'MsgBox SQL_STR
'===ADD"人工閱片確認"
If Label1(I) = "NEUT" Then
SQL_STR = "UPDATE EXPER_SIGN SET " _
& "DATA_REMARK='人工閱片確認' " _
& "WHERE TUBE_NUMBER='" & Text1.Text & "' " _
& "AND EXPER_CODE='" & Label1(I) & "' " _
& "AND TYPE_FLAG<>'Y';" '注意已經確認的報告不要再 UPDATE!!
CN.Execute SQL_STR
End If
'===INSERT LOG
SQL_STR = "INSERT INTO EXPER_LOG " _
& "SELECT LAB_NO,GROUP_CODE,SOUR_FLAG,EXPER_CLASS," _
& "EXPER_TYPE,EXPER_CODE,EXPER_NO,TUBE_NUMBER,KEY_FLAG,TYPE_FLAG, " _
& "'" & Trim(Format(Date, "YYYYMMDD") - 19110000) & "','" & Format(Time, "HHNN") & "','CBC'," _
& "CHR_NO,ID_NO,EXPER_DATE,EXPER_TIME," _
& "FEE_NO,TAKE_DATE,TAKE_TIME,SIGN_DATE,SIGN_TIME,MACHINE_CODE,MACHINE_SEQ," _
& "COMP_DATE,COMP_TIME,EXPER_DATA,EXPER_DATA2,EXPER_DATA3,EXPER_DATA4,EXPER_DATA5," _
& "DATA_REMARK,LOCAL_NO,REPORT_NO,REPORT_DATE,REPORT_TIME,REPORT_OPER,EXPER_DOC " _
& "FROM EXPER_SIGN " _
& "WHERE TUBE_NUMBER='" & Text1.Text & "' " _
& "AND EXPER_CODE='" & Label1(I) & "';"
CN.Execute SQL_STR
' End If
Next I
'===RESET FORM
Call RESET_FORM
End Sub
Private Sub form_load()
MSComm1.CommPort = 1
MSComm1.Settings = "1200,N,8,1"
MSComm1.PortOpen = True
counter = 0
'===DATA CONNECT
Set CN = New ADODB.Connection
CN.ConnectionString = "Provider=MSDASQL.1;Password=xxx;Persist Security Info=True;User ID=exp;Data Source=wfh2"
CN.Open
End Sub
Private Sub Form_Unload(Cancel As Integer)
RS.Close
RS.ActiveConnection = Nothing
End Sub
Private Sub Text1_Change()
If Len(Text1.Text) = 10 Then
Call DATA_GRID(Text1.Text)
Command1.SetFocus
Else
Exit Sub
End If
End Sub
Private Sub Timer1_timer()
If MSComm1.DSRHolding Then
MSComm1.RTSEnable = False
Else
Timer2.Enabled = True
Timer1.Enabled = False
'Text1.Text = "TIMER1"
End If
End Sub
Private Sub Timer2_timer()
MSComm1.RTSEnable = True
Timer3.Enabled = True
Timer2.Enabled = False
'Text1.Text = "TIMER2"
End Sub
Private Sub Timer3_timer()
On Error Resume Next
'Text1.Text = "timer3"
Dim I%, j%
Dim reg1$, reg_ID$, tube_number$
Dim sum_all As Currency
Timer2.Enabled = False
InByte = MSComm1.Input
For I = LBound(InByte) To UBound(InByte)
reg = reg + Hex(InByte(I))
Next I
'Text2.Text = reg
counter = counter + 1
If counter = 75 Then
Timer1.Enabled = True
Timer3.Enabled = False
MSComm1.RTSEnable = False
counter = 0
'print out reg contents
'Text2.Text = Text2.Text & Chr(13) & "counter>75: " & reg
'此型號要取最後121個字元
reg = Right(reg, 141)
reg_ID = Left(reg, 20)
tube_number = Right(Format(Date, "yymmdd"), 5) + "0" + Mid(reg_ID, 13, 1) _
+ Mid(reg_ID, 20, 1) + Mid(reg_ID, 17, 1) + Mid(reg_ID, 18, 1)
Text2.Text = tube_number
Text2.Text = reg + "x" + Mid(reg_ID, 5, 1) + Mid(reg_ID, 2, 1) + Mid(reg_ID, 3, 1) _
+ Mid(reg_ID, 10, 1) + Mid(reg_ID, 8, 1) + Mid(reg_ID, 9, 1) _
+ Mid(reg_ID, 15, 1) + Mid(reg_ID, 12, 1) + Mid(reg_ID, 13, 1) _
+ Mid(reg_ID, 20, 1) + Mid(reg_ID, 17, 1) + Mid(reg_ID, 18, 1)
reg = Right(reg, 121)
'trim extra "0"
For I = 2 To 120 Step 2
'reg1 = reg1 & Format(Val(Mid(reg, I, 2)))
reg1 = reg1 & Mid(reg, I, 1)
Next I
buf(0) = Mid(reg1, 1, 5)
For j = 1 To 11
buf(j) = Mid(reg1, (j * 5 + 1), 5)
Next j
For j = 0 To 11
' Text1.Text = Text1.Text + buf(j) + Chr(13)
item(j).Text = Int(Val(Left(buf(j), 3) + "." + Right(buf(j), 2)) * 10 + 0.5) / 10
sum_all = sum_all + item(j)
Next j
End If
item(12).Text = sum_all
End Sub
Private Sub DATA_GRID(tube_number As String)
Dim SQL_STR As String
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient
SQL_STR = "SELECT TUBE_NUMBER,CHR_NO,GROUP_CODE,EXPER_CODE,EXPER_DATA2 " _
& "FROM EXPER_SIGN " _
& "WHERE TUBE_NUMBER ='" & tube_number & "' " _
& "AND TYPE_FLAG<>'Y';"
RS.Open SQL_STR, CN, adOpenKeyset, adLockOptimistic
RS.MoveLast
'MsgBox RS.RecordCount
Text2.Text = Text2.Text & "RecordCount=" & RS.RecordCount
If RS.RecordCount = 0 Then
MsgBox "找不到試管號碼??", vbCritical, "注意!"
End If
Set DataGrid1.DataSource = RS
End Sub
Private Sub RESET_FORM()
Dim I%
'===RESET FORM
Text1.Text = ""
For I = 0 To 12
item(I).Text = 0
Next I
Set DataGrid1.DataSource = Nothing
Text1.SetFocus
End Sub
使用儀器：白血球分類計數儀 comdek MD-200
感謝 洪敬瑞 成功大學研究所論文的參考
| 論文種類 | 碩士論文 |
|---|---|
| 口試日期 | 2004-07-22 |
| 論文名稱(中) | 建立臨床檢驗室數位醫療資訊系統 |
| 論文名稱(英) | Impiementation of Clinical Laboratory Information System |
- timer 要設定 Interval timer1(500ms), timer2(1ms), timer3(1ms)
- item() 要設定群組，才能給順序呼叫
- 檢體編號說有12位數，可是怎麼測都只有8位數，又亂跳位置！難！
'==============程式碼================
Dim InByte() As Byte
Dim buf(0 To 11) As String
Public counter%, reg$
Private CN As ADODB.Connection
Private RS As ADODB.Recordset
Private Sub Command1_Click()
'SEND BUTTON
Dim SQL_STR As String
Dim I%
'===CHECK 基本資料是否齊全
If Len(Text1.Text) <> 10 Or IsNull(Text1.Text) Or item(12) = 0 Then
MsgBox "試管號碼錯誤 或是" & Chr(13) & "總和值有問題" & Chr(13) _
& "無法繼續？", vbCritical, "注意!!"
Call RESET_FORM
Exit Sub
End If
'===依序將不是0的ITEM資料填入 EXPER_SIGN
For I = 0 To 11
' If item(I) > 0 Then
SQL_STR = "UPDATE EXPER_SIGN SET " _
& "EXPER_DATA2='" & item(I) & "' " _
& "WHERE TUBE_NUMBER='" & Text1.Text & "' " _
& "AND EXPER_CODE='" & Label1(I) & "' " _
& "AND TYPE_FLAG<>'Y';" '注意已經確認的報告不要再 UPDATE!!
CN.Execute SQL_STR, 1
'MsgBox SQL_STR
'===ADD"人工閱片確認"
If Label1(I) = "NEUT" Then
SQL_STR = "UPDATE EXPER_SIGN SET " _
& "DATA_REMARK='人工閱片確認' " _
& "WHERE TUBE_NUMBER='" & Text1.Text & "' " _
& "AND EXPER_CODE='" & Label1(I) & "' " _
& "AND TYPE_FLAG<>'Y';" '注意已經確認的報告不要再 UPDATE!!
CN.Execute SQL_STR
End If
'===INSERT LOG
SQL_STR = "INSERT INTO EXPER_LOG " _
& "SELECT LAB_NO,GROUP_CODE,SOUR_FLAG,EXPER_CLASS," _
& "EXPER_TYPE,EXPER_CODE,EXPER_NO,TUBE_NUMBER,KEY_FLAG,TYPE_FLAG, " _
& "'" & Trim(Format(Date, "YYYYMMDD") - 19110000) & "','" & Format(Time, "HHNN") & "','CBC'," _
& "CHR_NO,ID_NO,EXPER_DATE,EXPER_TIME," _
& "FEE_NO,TAKE_DATE,TAKE_TIME,SIGN_DATE,SIGN_TIME,MACHINE_CODE,MACHINE_SEQ," _
& "COMP_DATE,COMP_TIME,EXPER_DATA,EXPER_DATA2,EXPER_DATA3,EXPER_DATA4,EXPER_DATA5," _
& "DATA_REMARK,LOCAL_NO,REPORT_NO,REPORT_DATE,REPORT_TIME,REPORT_OPER,EXPER_DOC " _
& "FROM EXPER_SIGN " _
& "WHERE TUBE_NUMBER='" & Text1.Text & "' " _
& "AND EXPER_CODE='" & Label1(I) & "';"
CN.Execute SQL_STR
' End If
Next I
'===RESET FORM
Call RESET_FORM
End Sub
Private Sub form_load()
MSComm1.CommPort = 1
MSComm1.Settings = "1200,N,8,1"
MSComm1.PortOpen = True
counter = 0
'===DATA CONNECT
Set CN = New ADODB.Connection
CN.ConnectionString = "Provider=MSDASQL.1;Password=xxx;Persist Security Info=True;User ID=exp;Data Source=wfh2"
CN.Open
End Sub
Private Sub Form_Unload(Cancel As Integer)
RS.Close
RS.ActiveConnection = Nothing
End Sub
Private Sub Text1_Change()
If Len(Text1.Text) = 10 Then
Call DATA_GRID(Text1.Text)
Command1.SetFocus
Else
Exit Sub
End If
End Sub
Private Sub Timer1_timer()
If MSComm1.DSRHolding Then
MSComm1.RTSEnable = False
Else
Timer2.Enabled = True
Timer1.Enabled = False
'Text1.Text = "TIMER1"
End If
End Sub
Private Sub Timer2_timer()
MSComm1.RTSEnable = True
Timer3.Enabled = True
Timer2.Enabled = False
'Text1.Text = "TIMER2"
End Sub
Private Sub Timer3_timer()
On Error Resume Next
'Text1.Text = "timer3"
Dim I%, j%
Dim reg1$, reg_ID$, tube_number$
Dim sum_all As Currency
Timer2.Enabled = False
InByte = MSComm1.Input
For I = LBound(InByte) To UBound(InByte)
reg = reg + Hex(InByte(I))
Next I
'Text2.Text = reg
counter = counter + 1
If counter = 75 Then
Timer1.Enabled = True
Timer3.Enabled = False
MSComm1.RTSEnable = False
counter = 0
'print out reg contents
'Text2.Text = Text2.Text & Chr(13) & "counter>75: " & reg
'此型號要取最後121個字元
reg = Right(reg, 141)
reg_ID = Left(reg, 20)
tube_number = Right(Format(Date, "yymmdd"), 5) + "0" + Mid(reg_ID, 13, 1) _
+ Mid(reg_ID, 20, 1) + Mid(reg_ID, 17, 1) + Mid(reg_ID, 18, 1)
Text2.Text = tube_number
Text2.Text = reg + "x" + Mid(reg_ID, 5, 1) + Mid(reg_ID, 2, 1) + Mid(reg_ID, 3, 1) _
+ Mid(reg_ID, 10, 1) + Mid(reg_ID, 8, 1) + Mid(reg_ID, 9, 1) _
+ Mid(reg_ID, 15, 1) + Mid(reg_ID, 12, 1) + Mid(reg_ID, 13, 1) _
+ Mid(reg_ID, 20, 1) + Mid(reg_ID, 17, 1) + Mid(reg_ID, 18, 1)
reg = Right(reg, 121)
'trim extra "0"
For I = 2 To 120 Step 2
'reg1 = reg1 & Format(Val(Mid(reg, I, 2)))
reg1 = reg1 & Mid(reg, I, 1)
Next I
buf(0) = Mid(reg1, 1, 5)
For j = 1 To 11
buf(j) = Mid(reg1, (j * 5 + 1), 5)
Next j
For j = 0 To 11
' Text1.Text = Text1.Text + buf(j) + Chr(13)
item(j).Text = Int(Val(Left(buf(j), 3) + "." + Right(buf(j), 2)) * 10 + 0.5) / 10
sum_all = sum_all + item(j)
Next j
End If
item(12).Text = sum_all
End Sub
Private Sub DATA_GRID(tube_number As String)
Dim SQL_STR As String
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient
SQL_STR = "SELECT TUBE_NUMBER,CHR_NO,GROUP_CODE,EXPER_CODE,EXPER_DATA2 " _
& "FROM EXPER_SIGN " _
& "WHERE TUBE_NUMBER ='" & tube_number & "' " _
& "AND TYPE_FLAG<>'Y';"
RS.Open SQL_STR, CN, adOpenKeyset, adLockOptimistic
RS.MoveLast
'MsgBox RS.RecordCount
Text2.Text = Text2.Text & "RecordCount=" & RS.RecordCount
If RS.RecordCount = 0 Then
MsgBox "找不到試管號碼??", vbCritical, "注意!"
End If
Set DataGrid1.DataSource = RS
End Sub
Private Sub RESET_FORM()
Dim I%
'===RESET FORM
Text1.Text = ""
For I = 0 To 12
item(I).Text = 0
Next I
Set DataGrid1.DataSource = Nothing
Text1.SetFocus
End Sub
2009年7月7日 星期二
2009年6月28日 星期日
難道這是命運？
一個腎臟移植的案例，輸到疑似HIV捐血者捐的血。
這個案例太經典了，讓我不由得想以第一人稱來敘述這個案件...
我大約在2006年6月接受了腎臟移植手術，在那之前，有四年的時間，固定都在同一家醫院接受洗腎治療，每個月抽血(CBC、生化)檢查。
移植後，使用抗排斥藥，定期回醫院檢查即可，新移植的腎臟運作還不錯。
2009年6月接到疾病管制局電話：告訴我在2006年5月輸到愛滋病捐血者捐的血。
真是一個晴天霹靂，好不容易換腎重生了，卻感染了HIV? 疾管局是如何知道我輸了什麼血？為什麼現在才通知？家人會不會受到感染？恐懼與疑問不斷在心理擴大。
這個案例太經典了，讓我不由得想以第一人稱來敘述這個案件...
我大約在2006年6月接受了腎臟移植手術，在那之前，有四年的時間，固定都在同一家醫院接受洗腎治療，每個月抽血(CBC、生化)檢查。
移植後，使用抗排斥藥，定期回醫院檢查即可，新移植的腎臟運作還不錯。
2009年6月接到疾病管制局電話：告訴我在2006年5月輸到愛滋病捐血者捐的血。
真是一個晴天霹靂，好不容易換腎重生了，卻感染了HIV? 疾管局是如何知道我輸了什麼血？為什麼現在才通知？家人會不會受到感染？恐懼與疑問不斷在心理擴大。
- 回到血庫的作業：捐血中心對於篩檢到陽性 HIV 的case，會將此捐血者以往捐過的血袋資料，傳真至用血的醫院，醫院查詢這血袋輸給哪個病人(受血者)，將受血者的基本資料(身分證號、地址、電話)傳真回捐血中心，捐血中心再將這些資料通報給疾管局，後續由疾管局對此受血者做追蹤。
- 後續：這位換腎病人來到檢驗科抽血檢查 HIV western blot(據血清室說：性病防治所沒有HIV screen 的結果，不會執行 western blot，所以幫病人改成 screen test)，病人很疑惑的是疾管局的人員後來又通知他"沒有被感染的問題了！"(我猜想是疾管局已經知道donor的感染源在2006年5月之後)，一下通知有，一下又通知沒有，到底依據為何？完全沒有告知病人。很幸運的，這次的 HIV screen 是 Negative。
這樣還需要用血諮詢嗎？
血庫醫檢師如果想要攔截用血不適當性，簡直是"自找麻煩！"
有一個狂輸血小板的病人，跟老闆反映後，老闆還真的去病房看病人，但是，但是，也沒做什麼事，也沒跟主治醫師討論，就口頭交代，不要再給他減白血小板了，這樣會核刪。
然後呢，我就接到主治醫師的報怨，不高興為什麼血庫不給他的病人減白血小板？拜託，我只是照老闆的交代做事！(這裡，我對老闆的處理方式也很不高興，應該要自己跟主治醫師討論吧！)，老闆還找了輸血委員會的主席，主席說：先給他，再到委員會討論。所以...照辦！
我也不知道幹嘛要拿石頭砸自己的腳？？
有一個狂輸血小板的病人，跟老闆反映後，老闆還真的去病房看病人，但是，但是，也沒做什麼事，也沒跟主治醫師討論，就口頭交代，不要再給他減白血小板了，這樣會核刪。
然後呢，我就接到主治醫師的報怨，不高興為什麼血庫不給他的病人減白血小板？拜託，我只是照老闆的交代做事！(這裡，我對老闆的處理方式也很不高興，應該要自己跟主治醫師討論吧！)，老闆還找了輸血委員會的主席，主席說：先給他，再到委員會討論。所以...照辦！
我也不知道幹嘛要拿石頭砸自己的腳？？
可笑的住院醫師之減除白血球的分離術血小板要再使用白血球過濾器
名詞解釋：
1.減除白血球的分離術血小板：有一種血小板，從單一捐血者過濾出來的血小板，同時也過濾掉捐血者的白血球。這種血小板適用於一些白血病治療的病人，避免捐血者的白血球反宿為主，
2.白血球過濾器：連接血袋，血品(PRBC or PLT)流過過濾器後，可以減除大部分的白血球(<5x10^8/Unit)
問題：
減除白血球的分離術血小板，需要再加白血球過濾器嗎？
住院醫師：
用不可一世的語氣：我是住院醫師！可不是什麼 intern，你們不給我過濾器(病人已經使用減除白血球的分離術血小板)，病人要是輸血有什麼輸血反應問題，我要叫你們(血庫)負責！
我問這位"大"住院醫師：您知道為什麼會發生輸血反應嗎？您知道這次病人使用什麼血品嗎？我心裡想著：怎麼病人的狀況怎樣，醫師都沒責任嗎？
住：我當然知道，是白血球...
我：(你真的知道哩？！)哪您知道減除白血球的分離術血小板已經去除白血球了嗎？
這位"大"住院醫師還沒搞懂為什麼不需要用過濾器，就掛掉我的電話。我心裡突然一陣難過，如果我被這種住院醫師照顧到，豈不是很衰嗎？醫院倒底還有這種醫生呢？！
後來跟病人的主治醫師反映，主治醫師只顧著一直講：喔！那個住院醫師很兇，他不止對你們兇而已...。
那..然後呢？兇人也要有個道理呀！住院醫師不懂，您可以教他一下嘛！
1.減除白血球的分離術血小板：有一種血小板，從單一捐血者過濾出來的血小板，同時也過濾掉捐血者的白血球。這種血小板適用於一些白血病治療的病人，避免捐血者的白血球反宿為主，
2.白血球過濾器：連接血袋，血品(PRBC or PLT)流過過濾器後，可以減除大部分的白血球(<5x10^8/Unit)
問題：
減除白血球的分離術血小板，需要再加白血球過濾器嗎？
住院醫師：
用不可一世的語氣：我是住院醫師！可不是什麼 intern，你們不給我過濾器(病人已經使用減除白血球的分離術血小板)，病人要是輸血有什麼輸血反應問題，我要叫你們(血庫)負責！
我問這位"大"住院醫師：您知道為什麼會發生輸血反應嗎？您知道這次病人使用什麼血品嗎？我心裡想著：怎麼病人的狀況怎樣，醫師都沒責任嗎？
住：我當然知道，是白血球...
我：(你真的知道哩？！)哪您知道減除白血球的分離術血小板已經去除白血球了嗎？
這位"大"住院醫師還沒搞懂為什麼不需要用過濾器，就掛掉我的電話。我心裡突然一陣難過，如果我被這種住院醫師照顧到，豈不是很衰嗎？醫院倒底還有這種醫生呢？！
後來跟病人的主治醫師反映，主治醫師只顧著一直講：喔！那個住院醫師很兇，他不止對你們兇而已...。
那..然後呢？兇人也要有個道理呀！住院醫師不懂，您可以教他一下嘛！
2009年6月14日 星期日
實習生教學與大腦開發的關連性?
逛到一個有關 MIND MAP 的部落格，說到一些大腦開發與醫檢師考試，我想到這種大腦開發的教學，有可能拿來做醫技實習生的教學嗎？能讓實習生得到更多嗎？
不過對於 MIND MAP 這東西還不了解，後續觀察吧！
不過對於 MIND MAP 這東西還不了解，後續觀察吧！
外科手術備血
外科醫師都很敢，未在手術前備血！即使在前一天小夜備血都太晚了。
聽說有一個case：病人 AB型 Rh 陰性，一般外科，好像是取卵巢的女性，已經在開刀了，才送備/領血單，要領 4U PRBC。對於一個小醫院來說，要去哪生 AB/Rh:Neg的血來輸？ 連捐血中心都只有2U，捐血中心送血來，還需要一個小時的時間，真替病人捏把冷汗。聽說這個醫生被上異常處理單，也不知道到底有沒有用？？
聽說還有一個CASE：骨科，小夜備血，抗體篩檢陽性 (C+e 找到的機會大約是 5%)，通知病房補檢體，待測抗體鑑定。小醫院的抗體鑑定，值班時間不操作。隔天早上抗體鑑定結果出來，通知病房，病人也已經在手術室了！
還有....
如果外科醫師不了解警慎的用血，這種故事不會結束！
聽說有一個case：病人 AB型 Rh 陰性，一般外科，好像是取卵巢的女性，已經在開刀了，才送備/領血單，要領 4U PRBC。對於一個小醫院來說，要去哪生 AB/Rh:Neg的血來輸？ 連捐血中心都只有2U，捐血中心送血來，還需要一個小時的時間，真替病人捏把冷汗。聽說這個醫生被上異常處理單，也不知道到底有沒有用？？
聽說還有一個CASE：骨科，小夜備血，抗體篩檢陽性 (C+e 找到的機會大約是 5%)，通知病房補檢體，待測抗體鑑定。小醫院的抗體鑑定，值班時間不操作。隔天早上抗體鑑定結果出來，通知病房，病人也已經在手術室了！
還有....
如果外科醫師不了解警慎的用血，這種故事不會結束！
2009年6月1日 星期一
沒有感控概念的主管會讓你...
知道這件事情，真的是一肚子火氣與恐懼。
主管拿了血庫剪血段(segment)的剪刀去剪水龍頭的導水管！我問他"這裡是大家洗手的水龍頭，怎麼用髒的剪刀剪？我都還在這裡洗杯子呢！"
這主管竟然還辯稱"沒關係啦！捐中的血都篩過B肝陰性"
聽了更是氣人，難道在醫院工作，還不知道有人輸血得到HIV的嗎？
難過了好幾天，我會不會得到不名譽的病...
在醫院工作的風險是不可避免的嗎？很多因素不控制在你的手上，真的很難防範。
主管拿了血庫剪血段(segment)的剪刀去剪水龍頭的導水管！我問他"這裡是大家洗手的水龍頭，怎麼用髒的剪刀剪？我都還在這裡洗杯子呢！"
這主管竟然還辯稱"沒關係啦！捐中的血都篩過B肝陰性"
聽了更是氣人，難道在醫院工作，還不知道有人輸血得到HIV的嗎？
難過了好幾天，我會不會得到不名譽的病...
在醫院工作的風險是不可避免的嗎？很多因素不控制在你的手上，真的很難防範。
2009年5月28日 星期四
CAP inspection on blood bank on May, 25 and 26
I got four deficiencies after the inspection.
1.Anti-Mia anti-sera collected from patient should confirm its reliability.
2.Package insert management shoud be better.
3.Need to create a TRALI reduce policy.
4.To validate the test that why we use pH>6.2 cut vlue for bacteria contamination of platelet concentrate.
1.Anti-Mia anti-sera collected from patient should confirm its reliability.
2.Package insert management shoud be better.
3.Need to create a TRALI reduce policy.
4.To validate the test that why we use pH>6.2 cut vlue for bacteria contamination of platelet concentrate.
實習生的seminar report
同學當天要報告了才來找我看內容，心裡非常的不高興。在同學講完後，自己直接上去補充，當然先跟下一個同學預告"如果再當天才來找我，就不必來了"。
同學還在之後的心得寫了"因為不能自己選擇題目，要說的內容也不熟，所以講得不順..."
回想自己當學生時，何時需要學長姐來教我報告內容？老師指定的內容，也可以討論呀，而不是什麼都不做，在最後關頭再把東西丟給學長，然後對於學長問的問題都不暸，最後再說這個題目不是我專長的...結論：所以講的不好。
我在指導回覆中說：如果可以早一點準備，如果可以早一點跟學長姐討論，如果可以多花點功夫，會得到不一樣的結果。
這樣帶學生好累，到底是你在念書還是我在念書？
同學還在之後的心得寫了"因為不能自己選擇題目，要說的內容也不熟，所以講得不順..."
回想自己當學生時，何時需要學長姐來教我報告內容？老師指定的內容，也可以討論呀，而不是什麼都不做，在最後關頭再把東西丟給學長，然後對於學長問的問題都不暸，最後再說這個題目不是我專長的...結論：所以講的不好。
我在指導回覆中說：如果可以早一點準備，如果可以早一點跟學長姐討論，如果可以多花點功夫，會得到不一樣的結果。
這樣帶學生好累，到底是你在念書還是我在念書？
2009年3月22日 星期日
I want to kill the lab WIKI site
wiki Lab 網站已經被我殺死了，因為老闆說：下星期二之前各組把資料"給我"貼上去。
需要用到"給我"嗎？
極端的管理實在很難拿捏，沒有督促資料不會放上去，督促太嚴格又造成使用者的困擾。最終還是回到了原點。有沒有更好的方法呢？
需要用到"給我"嗎？
極端的管理實在很難拿捏，沒有督促資料不會放上去，督促太嚴格又造成使用者的困擾。最終還是回到了原點。有沒有更好的方法呢？
2009年1月14日 星期三
Jka 溶血輸血反應
Jka 溶血反應？ 2006年9月產生 Anti-E+c, 現在抗體消失，備血以MP方法做抗體篩檢無法篩檢出anti-Jka。
Report to medical director and involved for treatment.
根據aabb 15ed delayed hemolytic transfusion-reactions Hemolytic
發生率: 1:11,000 - 1:5000
原因: Anamnestic immune response to red cell antigens
症狀: Fever, decreasing hemoglobin, new positive antibody screeningtest, mild jaundice
診斷方式:
■ Antibody screen
■ DAT
■ Tests for hemolysis (visual inspection for hemoglobinemia, LDH, bilirubin, urinary hemosiderin as clinically indicated)
治療/預防方法:
■ Identify antibody
■ Transfuse compatible red cells as needed
transfusion history
- The most common presentation of a DHTR is a declining hemoglobin and a newly positive antibody creen, but fever, leukocytosis, and mild jaundice may be present.
- If a DHTR is suspected, a freshly obtained blood sample may be tested for unexpected alloantibodies, both in the serum and, by DAT, on the red cells. Discovery of a new red cell alloantibody in a recently transfused patient with hemolysis strongly suggests a DHTR, and the diagnosis is supported by emonstration of the corresponding antigen on the red cells from a retained segment from one or more transfused units.
- Specific treatment is rarely necessary, although it may be prudent to monitor the patient’s urine output and renal function and observe for changes in coagulation function. If transfusion is still necessary, donor red cells should lack the antigen corresponding to the newly discovered antibody
依照血品，輸血日期 降冪排列
| 血品 | 血品數量 | 輸血日期(月日年) |
| PRBC | 2 | 01 14 2009 |
| PRBC | 2 | 01 13 2009 |
| PRBC | 2 | 01 12 2009 |
| PRBC | 2 | 01 3 2009 |
| PRBC | 2 | 01 2 2009 |
第一次入院
| | | | |
| 1/2 ER | Hb=6.3 WBC=15.11 | PRBC x 2U Check donor cell Jka(+) | 備血 Ab screen with MP method: Neg (1/14) Recheck Ab screen with AHG phase:Neg. |
| 1/3 | Hb=9.5 | PRBC x 2U Check donor cell Jka(+) | (1/14) Recheck Ab screen with AHG phase:Neg. |
| 1/5 | Hb=10.7 | | |
第二次入院
| 1/11 ER | Hb=8.4 WBC=11.71 Urine OB=(4+) Urine Bil=(-) Serum color: dark brown with hemolysis T-Bil=3.06 LDH=2010 GOT=123 GPT=14 Na=124 K=2.9 CRP=6.16 | | |
| 1/12 | Urine Na=96, K=10.8 Blood Na=130 K=3.5 | PRBC x 2U Check donor cell Jka(+) | 備血 Ab screen with MP method: Neg |
| 1/13 | Hb=7.5 DAT(+), IgG(+), C3d(+) IAT(+), Ab ID with AHG phase Anti-Jka T-Bil=2.47 LDH=2514 Urine OB=(3+) Urine Bil=(2+) | PRBC x 2U 輸一半，請病房停止輸血 Check donor cell Jka(+) | |
| 1/14 | C3=63.3(ref 90-180) C4=12.2(ref 10-40) Hb=7.08 WBC=6.85 BUN=16 CREA=0.62 | PRBC x 2U (E+c+Jka Neg) | 備血 Ab screen with AHG phase: Pos DAT (+) Serum color: dark brown with hemolysis |
| 1/15 | | PRBC x 2U (E+c+Jka Neg) | |
| 1/17 | Hb=10.0 | | |
| 1/19 | Hb=10.0 BUN=7 CREA=0.64 Na=123 K=3.6 GOT=32 TBIL=0.69 DBIL=0.27 LDH=713 ALB=2.3 | | Serum 外觀 clear |
訂閱：
文章 (Atom)