医院实验室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_resultflag
	case 1, 4, 5
		if dec(ls_result) < 1 then
			ls_result = "<1.00"
		else
			if dec(ls_result) > 50 then
				ls_result = ">50.00"
			end if
		end if
		wf_addresult("cTnI",ls_result)
	case 6
		goto label_0
	case 7
		if dec(ls_result) < 0.10 then
			ls_result = "<0.10"
		else
			if dec(ls_result) > 2.0 then
				ls_result = ">2.00"
			end if
		end if
		wf_addresult("D-Dimer",ls_result)
	case else
		if dec(ls_result) <> 0 then
			wf_addresult(string(ll_resultflag),ls_result)
		end if
end choose

ls_result = string(in_dec.uf_getfloat(blobmid(lb_data,12,4)),"0.00##")

if ((ll_resultflag = 5) or (dec(ls_result) <> 0)) then

	if dec(ls_result) < 5 then
		ls_result = "<5.0"
	else

		if dec(ls_result) > 100 then
			ls_result = ">100.0"
		end if

	end if

	wf_addresult("CKMB",ls_result)
end if

ls_result = string(in_dec.uf_getfloat(blobmid(lb_data,16,4)),"0.00##")

if ((ll_resultflag = 5) or (dec(ls_result) <> 0)) then

	if dec(ls_result) < 50 then
		ls_result = "<50.0"
	else

		if dec(ls_result) > 1000 then
			ls_result = ">1000.0"
		end if

	end if

	wf_addresult("Myo",ls_result)
end if

ls_result = string(in_dec.uf_getfloat(blobmid(lb_data,20,4)),"0.00##")

if ((ll_resultflag = 3) or (dec(ls_result) <> 0)) then

	if dec(ls_result) < 0.5 then
		ls_result = "<0.5"
	else

		if dec(ls_result) > 64 then
			ls_result = ">64.0"
		end if

	end if

	wf_addresult("CRP",ls_result)
end if

ls_result = string(in_dec.uf_getfloat(blobmid(lb_data,24,4)),"0.00##")

choose case ll_resultflag
	case 2, 4

		if dec(ls_result) < 100 then
			ls_result = "<100"
		else

			if ll_resultflag = 2 and dec(ls_result) > 15000 then
				ls_result = ">15000"
			else

				if ll_resultflag = 4 and dec(ls_result) > 12000 then
					ls_result = ">12000"
				end if

			end if

		end if

		wf_addresult("NT-proBNP",ls_result)
	case else

		if dec(ls_result) <> 0 then
			wf_addresult("NT-proBNP",ls_result)
		end if

end choose

wf_calcsample()
wf_sendrecmsg()

end if

label_0:

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

return 0

评论 2 您还未登录,请先 登录 后发表或查看评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:数字20 设计师:CSDN官方博客 返回首页

打赏作者

hitter163

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值