徐建　肖正軍

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

關(guān)鍵詞：身份證;射頻識(shí)別;精神專(zhuān)科醫(yī)院

中圖分類(lèi)號(hào)：G642 文獻(xiàn)標(biāo)識(shí)碼：A

文章編號(hào)：1009-3044（2020）09-0012-02

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

1 引言

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

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

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

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

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

3.1 定義函數(shù)（調(diào)用SDK開(kāi)發(fā)包中動(dòng)態(tài)鏈接庫(kù)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 ;;//得到卡號(hào)信息

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分別代表“姓名”，“性別”，“身份證號(hào)”，“出生日期”，“地址”）

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é)長(zhǎng)度

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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ù)庫(kù)部分表格設(shè)計(jì)

3.4.1 XT_BRZC（病人注冊(cè)表）

Name

Varchar（10）//姓名

Sex

Varchar（2）性別

Cardcode Varchar（18）/身份證號(hào)

Address Varchar（60）/地址

Telephone Varchar（ll）//電話(huà)

Birthday Date//出生日期

telephone Varchar（12V/電話(huà)

3.4.2 MZ_BRJZXX（病人就診信息表）

JZH NUMBER（10） ll就診號(hào)

JZSJ Date //就診時(shí)間

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

CARDCODE Varchar（18）//身份證號(hào)

ZDBH Varchar（30）//診斷編碼

JZJL Demo //就診信息

4 結(jié)論

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

參考文獻(xiàn)：

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

[2]高曉娟，趙紅艷，王非.基于移動(dòng)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)編輯：王力】_