医院实验室lis系统开发带源码

LIS系统是医院检验科用的系统，主要是处理仪器的原始数据，生成检验报告，给临床做诊断用。本套系统是支持自动审核、自动打印、批量打印，报告单设置等多项功能，包含的模块有：主任管理、条码系统、血库系统、检验系统、自助打印终端，功能模块齐全，功能强大，适用于大型三甲医院，二级医院以及卫生院等各个医疗机构，并且还可以对外提供报告查询等服务。现在诚意寻合作，源码可售，也可项目合作，仪器接口，his接口，条码双工都可以做，源码或合作（ dynn2018 ）

下面是fla8000的解码程序代码：

blob lb_data
blob lb_start
long ll_i
long ll_len
long ll_start
long ll_flag
long ll_year
long ll_month
long ll_day
long ll_hour
long ll_min
long ll_sec
long ll_resultflag
string ls_result

ll_len = len(ib_data)
if ll_len < 44 then
return 0
end if

lb_start = blob(space(2) + char(253))
ll_len -= 43

for ll_i = 1 to ll_len
if blobmid(ib_data,ll_i,3) = lb_start then
ll_start = ll_i
exit
end if
next
if ll_start <= 0 then
return 1
end if
//从第一个位置开始截取44位
lb_data = blobmid(ib_data,ll_start,44)
//截取第一条数据之外的剩余数据
ib_data = blobmid(ib_data,44 + ll_start)

ll_resultflag = in_dec.uf_getblobasc(blobmid(lb_data,4,1))

ll_flag = in_dec.uf_getblobasc(blobmid(lb_data,42,1))

if ll_flag <> 3 then
else
if is_samplenomode = “1” then
is_sampleno = string(in_dec.uf_getblobasc(blobmid(lb_data,6,1)) + in_dec.uf_getblobasc(blobmid(lb_data,7,1)) * 256)
else
is_sampleno = string(in_dec.uf_getblobasc(blobmid(lb_data,36,1)) + in_dec.uf_getblobasc(blobmid(lb_data,37,1)) * 256) + string(in_dec.uf_getblobasc(blobmid(lb_data,38,1)) + in_dec.uf_getblobasc(blobmid(lb_data,39,1)) * 256) + string(in_dec.uf_getblobasc(blobmid(lb_data,40,1)) + in_dec.uf_getblobasc(blobmid(lb_data,41,1)) * 256)
end if

event ue_dealsampleno(is_sampleno,true)
ll_year = 2000 + in_dec.uf_getblobasc(blobmid(lb_data,29,1))
ll_month = in_dec.uf_getblobasc(blobmid(lb_data,30,1))
ll_day = in_dec.uf_getblobasc(blobmid(lb_data,31,1))
idt_sampleda = datetime(date(ll_year,ll_month,ll_day),00:00:00)
ll_hour = in_dec.uf_getblobasc(blobmid(lb_data,32,1))
ll_min = in_dec.uf_getblobasc(blobmid(lb_data,33,1))
ll_sec = in_dec.uf_getblobasc(blobmid(lb_data,34,1))
idt_sampleresulttime = datetime(date(idt_sampleda),time(ll_hour,ll_min,ll_sec))
wf_getsampleresulttime(string(idt_sampleresulttime,"yyyymmddhhmmss"))
ls_result = string(in_dec.uf_getfloat(blobmid(lb_data,8,4)),"0.00##")choose case ll_resultflagcase 1, 4, 5if dec(ls_result) < 1 thenls_result = "<1.00"elseif dec(ls_result) > 50 thenls_result = ">50.00"end ifend ifwf_addresult("cTnI",ls_result)case 6goto label_0case 7if dec(ls_result) < 0.10 thenls_result = "<0.10"elseif dec(ls_result) > 2.0 thenls_result = ">2.00"end ifend ifwf_addresult("D-Dimer",ls_result)case elseif dec(ls_result) <> 0 thenwf_addresult(string(ll_resultflag),ls_result)end if
end choosels_result = string(in_dec.uf_getfloat(blobmid(lb_data,12,4)),"0.00##")if ((ll_resultflag = 5) or (dec(ls_result) <> 0)) thenif dec(ls_result) < 5 thenls_result = "<5.0"elseif dec(ls_result) > 100 thenls_result = ">100.0"end ifend ifwf_addresult("CKMB",ls_result)
end ifls_result = string(in_dec.uf_getfloat(blobmid(lb_data,16,4)),"0.00##")if ((ll_resultflag = 5) or (dec(ls_result) <> 0)) thenif dec(ls_result) < 50 thenls_result = "<50.0"elseif dec(ls_result) > 1000 thenls_result = ">1000.0"end ifend ifwf_addresult("Myo",ls_result)
end ifls_result = string(in_dec.uf_getfloat(blobmid(lb_data,20,4)),"0.00##")if ((ll_resultflag = 3) or (dec(ls_result) <> 0)) thenif dec(ls_result) < 0.5 thenls_result = "<0.5"elseif dec(ls_result) > 64 thenls_result = ">64.0"end ifend ifwf_addresult("CRP",ls_result)
end ifls_result = string(in_dec.uf_getfloat(blobmid(lb_data,24,4)),"0.00##")choose case ll_resultflagcase 2, 4if dec(ls_result) < 100 thenls_result = "<100"elseif ll_resultflag = 2 and dec(ls_result) > 15000 thenls_result = ">15000"elseif ll_resultflag = 4 and dec(ls_result) > 12000 thenls_result = ">12000"end ifend ifend ifwf_addresult("NT-proBNP",ls_result)case elseif dec(ls_result) <> 0 thenwf_addresult("NT-proBNP",ls_result)end ifend choosewf_calcsample()
wf_sendrecmsg()

end if

label_0:

if len(ib_data) >= 44 then
event ue_redecode()
end if

return 0

医院实验室lis系统开发带源码相关推荐

java毕业生设计医院门诊分诊系统计算机源码+系统+mysql+调试部署+lw
java毕业生设计医院门诊分诊系统计算机源码+系统+mysql+调试部署+lw java毕业生设计医院门诊分诊系统计算机源码+系统+mysql+调试部署+lw 本源码技术栈: 项目架构:B/S架构开 ...
JAVA毕业设计开放式实验室预约系统计算机源码+lw文档+系统+调试部署+数据库
JAVA毕业设计开放式实验室预约系统计算机源码+lw文档+系统+调试部署+数据库 JAVA毕业设计开放式实验室预约系统计算机源码+lw文档+系统+调试部署+数据库本源码技术栈: 项目架构:B/S架构 ...
java毕业生设计医院预约挂号系统计算机源码+系统+mysql+调试部署+lw
java毕业生设计医院预约挂号系统计算机源码+系统+mysql+调试部署+lw java毕业生设计医院预约挂号系统计算机源码+系统+mysql+调试部署+lw 本源码技术栈: 项目架构:B/S架构开 ...
ssm基于小程序的医院预约挂号系统毕业设计源码260839
SSM医院预约挂号小程序的设计与实现摘要信息化社会内需要与之针对性的信息获取途径,但是途径的扩展基本上为人们所努力的方向,由于站在的角度存在偏差,人们经常能够获得不同类型信息,这也是技术最为难以 ...
lis php,LIS系统delphi源码(OpenLIS)
├│ ├}F~MZRZOO}KS3F2GLCF(I9M.png │ ├chisc.net.txt │ ├Connection.xml │ ├ie4.0buf.ico │ ├QuickLIS. ...
医院检验LIS系统源码医院检验系统源码
医院检验LIS系统源码医院检验系统源码医院检验源码系统功能 LIS系统方案的实施,最主要的目的是提高检验的效率.效益.包括降低运行成本,人力资源成本,控制费用漏洞. 1. 检验工作站是LIS最大 ...
SaaS大型医院云LIS系统源码集齐前处理、检验、报告、质控、统计分析、两癌等模块
云LIS系统源码 SaaS服务三甲医院云LIS系统源码私信了解更多! 本套云LIS系统基于B/S架构的实验室管理系统,整个系统的运行基于WEB层面,只需要在对应的工作台安装一个浏览器软件有外网即可 ...
Asp.NET医院云LIS系统源码，区域云LIS源码
医院云LIS系统源码 lis源码 BS医院检验系统源码 LIS检验系统源码区域云LIS源码适用于中型.小型医院和医疗机构单独实现检验管理信息化:能够充分满足医院实验室.医院集团.独立实验室.社区医 ...
计算机毕业设计Javaweb实验室课表管理系统（源码+系统+mysql数据库+lw文档）
计算机毕业设计Javaweb实验室课表管理系统(源码+系统+mysql数据库+lw文档) 计算机毕业设计Javaweb实验室课表管理系统(源码+系统+mysql数据库+lw文档) 本源码技术栈: 项目 ...

医院实验室lis系统开发带源码

医院实验室lis系统开发带源码相关推荐

最新文章

热门文章