徐建　肖正軍

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

關(guān)鍵詞：身份證;射頻識別;精神?？漆t(yī)院

中圖分類號：G642 文獻(xiàn)標(biāo)識碼：A

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

開放科學(xué)（資源服務(wù)）標(biāo)識碼（ OSID）

1 引言

精神專科醫(yī)院有?？漆t(yī)院的特點(diǎn)，精神病人不同于其他?？撇∪耍旧弦唤?jīng)確診，許多病人需終身服藥治療。精神病人就診頻率高，需要每個(gè)月到醫(yī)院復(fù)診，而且需要病歷資料保存完整，每次就診時(shí)需要根據(jù)病人的門診病歷號調(diào)取病歷資料，方便醫(yī)生了解病情。傳統(tǒng)的掛號方式是操作人員通過手工錄入，耗時(shí)長，錯誤率高、效率低。我院采用第二代身份證閱讀器，以無線傳輸方式對居民身份證內(nèi)的芯片進(jìn)行安全認(rèn)證，將芯片中的個(gè)人信息讀出，具有較強(qiáng)的實(shí)用性。

2 身份證讀卡技術(shù)介紹

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

3 實(shí)現(xiàn)過程

根據(jù)二代身份證讀卡器系統(tǒng)配有的SDK軟件開發(fā)包，寫了如下函數(shù)（delphi語言編寫），在系統(tǒng)中調(diào)用。

3.1 定義函數(shù)（調(diào)用SDK開發(fā)包中動態(tài)鏈接庫term.dll）

function

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

function CVR_CloseComm： Integer; stdcall; ext lllernal'termb.dll，;//關(guān)閉連接

function CVR_Authenticate： Integer; stdcall; external 'termb.dll，;//卡認(rèn)證

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(xiàn)性別信息

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;自定義讀卡函數(shù)，變量v_nmae，v_sex，v_card，v_birthdav， v_address分別代表“姓名”，“性別”，“身份證號”，“出生日期”，“地址”）

3.2 函數(shù)實(shí)現(xiàn)

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;//定義字節(jié)長度

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

v_name：=strpas（@name[oD;//pchar類型轉(zhuǎn)換成string類型

s：=1024;//定義字節(jié)長度

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

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

v_sex：=strpas（@sex[oD;//pchar類型轉(zhuǎn)換成string類型

s：=1024;//定義字節(jié)長度

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

v_card：=strpas（@cardno[OD; //pchar類型轉(zhuǎn)換成string類型

s：=1024;//定義字節(jié)長度

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

v_birthday： =strpas（@birthday[OD; //pchar類型轉(zhuǎn)換成string類型

s：=5 120;//定義字節(jié)長度

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

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

result：='1 7：

end;

end.

3.3 系統(tǒng)調(diào)用

procedure bLsfzClick（Sender： TObject）;

var

p，jst：integer;//定義變量記錄讀卡的時(shí)間范圍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秒內(nèi)讀卡）

begin

sleep（350）;

p：=CVR_Authenticate;

jst：=jst+l;

end;

if p=l then

begin

CVR_Read_Content（l）;

//調(diào)用讀卡函數(shù)

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

end;

if trim（name）<>then

begin

ed_sfz.text：=trim（card）;

end;

CVR CloseComm;//關(guān)閉連接

end;

3.4 數(shù)據(jù)庫部分表格設(shè)計(jì)

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 //就診時(shí)間

JZYSBH Varchar（10）//就診醫(yī)生編號

CARDCODE Varchar（18）//身份證號

ZDBH Varchar（30）//診斷編碼

JZJL Demo //就診信息

4 結(jié)論

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

參考文獻(xiàn)：

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

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

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

【通聯(lián)編輯：王力】_