一些仪器的解码程序.docVIP

转自：一些仪器的解码程序(delphi)|/read.php?tid-847.html 看了后觉得不错，可能有需要的 可惜不是PB源码，还要自己转。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 本人是做His的，有几家医院非要让我帮他们做Lis，这些仪器的资料真是不太好找，比做His麻烦多了，下面这些东西提供给需要的人，省得找这么辛苦。 Function C2000_A(RxStr:string):BOOL;//普利生C2000-A全自动血凝仪 Function LBY_N6C(RxStr:string):BOOL;//普利生LBY-N6C全自动血液流变仪 Function AU_680(RxStr:string):BOOL;//贝克曼AU680生化分析仪 Function DIMENSION(RxStr:string):BOOL;//西门子Dimension Xpand生化分析仪 Function CENTAU(RxStr:string):BOOL;//西门子ADVIA Centaur CP发光免疫分析仪 Function XT1800I(RxStr:string):BOOL;//希森美康XT-1800i全自动血液细胞分析仪 Function XS500i(RxStr:string):BOOL;//希森美康XS-500i全自动血液细胞分析仪 Function MEJER_600(RxStr:string):BOOL;//美侨MEJER-600尿液分析仪 本文来自: HC3i中国数字医疗论坛(/) 详细： /thread-80160-1.html Function C2000_A(RxStr:string):BOOL;//普利生C2000-A全自动血凝仪 var B:BOOL; sStr,sF:string; sSampleNo,sItemChannel,sIdItem,sResult:String; I,aaa:Integer; bbb:string; begin try RxStr:=StringReplace(RxStr,#2+2 ,#2,[rfReplaceAll]); while True do begin if pos(#3,RxStr)0 then begin sStr:= copy(RxStr,1,pos(#3,RxStr)); Delete(RxStr,1,pos(#3,RxStr)); end else Break; if Length(sStr)10 then continue; //获取实验号： sSampleNo:= Trim(copy(sStr,pos(#2,sStr)+1,5)); Delete(sStr,pos(#2,sStr)+1,5); with PutStrToStrList(sStr,#$A#$D) do begin for i:=0 to Count-1 do begin if Length(Trim(Strings))5 then Continue; sF:=Trim(Strings); sItemChannel:=Trim(PutStrToStrList(sF, ).Strings[0]); sResult:= Trim(PutStrToStrList(sF, ).Strings[2]); sResult:= CutNumeric(sResult); sIdItem:=dm.GetStr(IdItem, BaseItemChannel, and IdEquipment=+g_nSysEquipmentId+ And channel=+sItemChannel+); if (sSampleNo) and (sIdItem) then begin DataPos(g_nSysEquipmentId,sSampleNo,sIdItem,sResult,0); end; if (sItemChannel=12) And (PutStrToStrList(sF, ).Count4) then begin sItemChannel:=12_1; sResult:= Trim(PutStrToStrList(sF, ).Strings[5]); sResult:= CutNumeric(sResult); sIdItem:=dm.GetStr(IdItem, BaseItemChannel, and IdEquipment=+g_nSysEquipmentId+ And channel=+sItemChannel+); if sIdItem= then sIdItem:=dm.GetStr(Id, BaseItem, and IdEquip