基于身份證在精神?？漆t院門診掛號信息化系統中的應用

徐建　肖正軍

摘要：針對精神?？漆t院精神病人基本上一經確診，許多病人需終身服藥治療。精神病人就診頻率高，每次就診時需要根據病人的門診病歷號調取病歷資料。傳統的掛號方式是操作人員通過手工錄入，耗時長，錯誤率高、效率低。我院采用第二代身份證閱讀器，通過射頻識別卡技術，以無線傳輸方式對居民身份證內的芯片進行安全認證，將芯片中的個人信息讀出，編寫讀卡器讀取身份證卡號等接口程序，實現病人手持身份證掛號，縮短了掛號時間，具有較強的實用性。

關鍵詞：身份證;射頻識別;精神專科醫院

中圖分類號：G642 文獻標識碼：A

文章編號：1009-3044（2020）09-0012-02

開放科學（資源服務）標識碼（ OSID）

1 引言

精神?？漆t院有?？漆t院的特點，精神病人不同于其他專科病人，基本上一經確診，許多病人需終身服藥治療。精神病人就診頻率高，需要每個月到醫院復診，而且需要病歷資料保存完整，每次就診時需要根據病人的門診病歷號調取病歷資料，方便醫生了解病情。傳統的掛號方式是操作人員通過手工錄入，耗時長，錯誤率高、效率低。我院采用第二代身份證閱讀器，以無線傳輸方式對居民身份證內的芯片進行安全認證，將芯片中的個人信息讀出，具有較強的實用性。

2 身份證讀卡技術介紹

第二代身份證讀卡器以二代身份證作為主要對象，用于對二代身份證芯片信息的讀取。身份證讀卡技術主要是通過射頻識別（ Radio Frequency Identification，RFID）技術來實現的。即利用無線射頻方式在閱讀器和射頻卡之間進行非接觸雙向數據傳輸，以達到目標志別和數據交換的目的[1]，識別工作無須人工干預，其應用給許多行業帶來革命性變化。

3 實現過程

根據二代身份證讀卡器系統配有的SDK軟件開發包，寫了如下函數（delphi語言編寫），在系統中調用。

3.1 定義函數（調用SDK開發包中動態鏈接庫term.dll）

function

CVR_InitComm（Port： integer）： Integer; stdcall; extemal 'termb.dll，;//初始化連接

function CVR_CloseComm： Integer; stdcall; ext lllernal'termb.dll，;//關閉連接

function CVR_Authenticate： Integer; stdcall; external 'termb.dll，;//卡認證

function CVR_Read_Content（active： integer）： Integer; stdcall;external 7 termb.dllr;//讀卡操作

function GetPeopleName（strTmp： pchar; var strLen：integer）：ln-teger;stdc all;external' termb.dllr∥得到姓名信息

function GetPeopleSex（strTmp： pchar; var strLen： integer）： Inte-ger;stdcall;external 'termb.dll';//得～I性別信息

function GetPeopleBirthday （strTmp： pchar; var strLen： integer）：Integer;stdcall;external' termb.dll;;//得到出生日期

function GetPeopleIDCode（strTmp： pchar; var strLen： integer）：Integer;stdcall;external ; termb.dll ;;//得到卡號信息

function GetPeopleAddress（strTmp： pchar; var strLen： integer）：Integer;stdcall;external ; termb.dll;;//得到地址信息

function readsfz（var v_name， v_sex， v_card， v_birthdav， v_ad-dress：string）： string;自定義讀卡函數，變量v_nmae，v_sex，v_card，v_birthdav， v_address分別代表“姓名”，“性別”，“身份證號”，“出生日期”，“地址”）

3.2 函數實現

function readsfz（var v_name， v_sex， v_card， v_birthdaY， v_ad-ress：string）：string//讀取身份

var

s：integer;

name：array[0..1023] of char;

cardno：array[0..1023] of char;

sex：array[0..1023] of char;

birthday：array[0..1023] of char;

address： array[0..1023] of char;

begin

s：=2048;//定義字節長度

GetPeopleName（@name[0l，s）;//調用GetPeopleName得到姓名信息

v_name：=strpas（@name[oD;//pchar類型轉換成string類型

s：=1024;//定義字節長度

作者簡介：徐建（1969-），男，江蘇揚州人，工程師，主要研究數據庫與信息管理。

GetPeopleSex （@sex[0l，s）;//調用GetPeopleSex得到性別信息

v_sex：=strpas（@sex[oD;//pchar類型轉換成string類型

s：=1024;//定義字節長度

GetPeopleID Code（@cardno[0]，s）;調用GetPeopleIDCode得到卡號信息

v_card：=strpas（@cardno[OD; //pchar類型轉換成string類型

s：=1024;//定義字節長度

GetPeopleBirthday（@birthday[0l，s）;//調用GetPeopleBirth-day得到出生日期

v_birthday： =strpas（@birthday[OD; //pchar類型轉換成string類型

s：=5 120;//定義字節長度

GetPeopleAddress（@adress[0]，s）;//調用GetPeopleAddress得到地址信息

v_adress： =strpas（@adress[0]）; //pchar類型轉換成string類型

result：='1 7：

end;

end.

3.3 系統調用

procedure bLsfzClick（Sender： TObject）;

var

p，jst：integer;//定義變量記錄讀卡的時間范圍name，sex，card，birthday，adress：string;//定義變量begin

bt_sfz.Enabled：=false;

p：=0;//給變量賦值

jst：=l;//給變量賦值

name：=”;//定義變量

sex：=”;//定義變量

card：=”;//定義變量

birthdaY：=”;//定義變量

adress：=”;//定義變量

CVR_InitComm（1001）;初使化端口

while（p<>1）and （jst<30） do //（10秒內讀卡）

begin

sleep（350）;

p：=CVR_Authenticate;

jst：=jst+l;

end;

if p=l then

begin

CVR_Read_Content（l）;

//調用讀卡函數

readsf'z（ name，sex，card，birthday，adress）;

end;

if trim（name）<>then

begin

ed_sfz.text：=trim（card）;

end;

CVR CloseComm;//關閉連接

end;

3.4 數據庫部分表格設計

3.4.1 XT_BRZC（病人注冊表）

Name

Varchar（10）//姓名

Sex

Varchar（2）性別

Cardcode Varchar（18）/身份證號

Address Varchar（60）/地址

Telephone Varchar（ll）//電話

Birthday Date//出生日期

telephone Varchar（12V/電話

3.4.2 MZ_BRJZXX（病人就診信息表）

JZH NUMBER（10） ll就診號

JZSJ Date //就診時間

JZYSBH Varchar（10）//就診醫生編號

CARDCODE Varchar（18）//身份證號

ZDBH Varchar（30）//診斷編碼

JZJL Demo //就診信息

4 結論

在傳統的掛號信息系統中，操作人員通過詢問或讓患者填寫病歷本后，在門診掛號系統的身份登記功能模塊中手工錄入患者信息。錄入患者信息耗時長，遇到不認識的字或者生僻字花費的時間會更長，增加了患者排隊掛號時間，而且信息采集錯誤率高、效率低，影響到病人信息的真實性和可靠性[2，3]。通過身份證讀卡技術采集的患者信息全面、準確、快速，病人掛號的時間大大縮短，既減少了工作人員的工作量，又縮短了患者排隊等候的時間，有效地提高了就醫效率，提升了患者對門診工作的滿意度。

參考文獻：

[1]林培通.無線射頻識別（RFID）技術的應用[Jl.電腦知識與技術，2011，7（20）：5011-5012.

[2]高曉娟，趙紅艷，王非.基于移動APP的醫院信息系統深度的探討[J].江蘇衛生事業管理，2015（5）：129-130.

[3]熊虹，陳功，王潔.關于HIS系統中建立病人主索引lD的研究[J].醫療裝備，2010，23（2）：27-28.

【通聯編輯：王力】_