POWERBUILDER12.6开发实验室管理系统[LIS]（三），罗氏cobas411发光仪接口

一、接收到的数据

1H|\^&||||||||||P|| 05
2P|1||||||||||||||||||||||||||||||||| 3B
3O|1|1|1^0^1^^SAMPLE^NORMAL|ALL|R|20170813094208|||||X||||||||||||||O||||| 0E
4R|1|^^^370^^0|37.00|pg/ml|5.10^2950|N||F|||20170813094837|20170813100656| AD
5R|2|^^^150^^0|9.55|mIU/ml|0.110^198.0|N||F|||20170813095207|20170813101026| 04
6R|3|^^^140^^0|8.93|mIU/ml|0.110^198.0|N||F|||20170813095125|20170813100944| 0D
7R|4|^^^131^^0|408.0|uIU/ml|1.10^9900|N||F|||20170813095043|20170813100902| DA
0R|5|^^^121^^0|0.653|ng/ml|0.035^59.00|N||F|||20170813095001|20170813100820| F0
1R|6|^^^111^^0|0.126|ng/ml|0.025^15.00|N||F|||20170813094919|20170813100738| FC
2L|1 3B

1H|\^&||||||||||P|| 05
2P|1||||||||||||||||||||||||||||||||| 3B
3O|1|2|2^0^2^^SAMPLE^NORMAL|ALL|R|20170813094221|||||X||||||||||||||O||||| 0C
4R|1|^^^370^^0|62.32|pg/ml|5.10^2950|N||F|||20170813095249|20170813101108| A7
5R|2|^^^150^^0|7.24|mIU/ml|0.110^198.0|N||F|||20170813095619|20170813101438| 0C
6R|3|^^^140^^0|6.66|mIU/ml|0.110^198.0|N||F|||20170813095537|20170813101356| 10
7R|4|^^^131^^0|481.6|uIU/ml|1.10^9900|N||F|||20170813095455|20170813101314| E6
0R|5|^^^121^^0|0.467|ng/ml|0.035^59.00|N||F|||20170813095413|20170813101232| F8
1R|6|^^^111^^0|0.172|ng/ml|0.025^15.00|N||F|||20170813095331|20170813101150| E7
2L|1 3B

1H|\^&||||||||||P|| 05
2P|1||||||||||||||||||||||||||||||||| 3B
3O|1|3|3^0^3^^SAMPLE^NORMAL|ALL|R|20170813094227|||||X||||||||||||||O||||| 15
4R|1|^^^370^^0|23.97|pg/ml|5.10^2950|N||F|||20170813095701|20170813101520| A6
5R|2|^^^150^^0||mIU/ml|0.110^198.0|A||X|||00000000000000|20170813095825| 1E
6C|1|I|55^Sample LLD Noise|I 80
7R|3|^^^140^^0||mIU/ml|0.110^198.0|A||X|||00000000000000|20170813095825| 20
0C|1|I|55^Sample LLD Noise|I 7A
1R|4|^^^131^^0||uIU/ml|1.10^9900|A||X|||00000000000000|20170813095825| C5
2C|1|I|55^Sample LLD Noise|I 7C
3R|5|^^^121^^0||ng/ml|0.035^59.00|A||X|||00000000000000|20170813095825| E9
4C|1|I|55^Sample LLD Noise|I 7E
5R|6|^^^111^^0|0.115|ng/ml|0.025^15.00|N||F|||20170813095743|20170813101602| F1
6L|1 3F

1H|\^&||||||||||P|| 05
2P|1||||||||||||||||||||||||||||||||| 3B
3O|1|4|4^0^4^^SAMPLE^NORMAL|ALL|R|20170813094230|||||X||||||||||||||O||||| 12
4R|1|^^^370^^0|<5.00|pg/ml|5.10^2950|<||F|||20170813095907|20170813101726| A0
5C|1|I|50^Below measuring range|I 0F
6R|2|^^^150^^0|9.90|mIU/ml|0.110^198.0|N||F|||20170813100237|20170813102056| FE
7R|3|^^^140^^0|3.57|mIU/ml|0.110^198.0|N||F|||20170813100155|20170813102014| F5
0R|4|^^^131^^0|311.0|uIU/ml|1.10^9900|N||F|||20170813100113|20170813101932| C1
1R|5|^^^121^^0|0.326|ng/ml|0.035^59.00|N||F|||20170813100031|20170813101850| E8
2R|6|^^^111^^0|0.030|ng/ml|0.025^15.00|N||F|||20170813095949|20170813101808| FA
3L|1

二、解析数据

//【取得数据写入数据库】
Boolean lb_odbc
String ls_pfname,ls_orisampno,ls_today,ls_flags,ls_testtype,ls_mkxx,ls_reprottime
String ls_lisybh,ls_temp,ls_ywjc,ls_channel,ls_sampleno
String   ls_sample,ls_testid,ls_type,ls_value,ls_testname
String   ls_testresult,ls_resultdate,ls_date,ls_time
Integer li_yqybh,li_lisybh,i,li_ybno1,li_ybno2,li_flag,li_count
DateTime ldt_rq1,ldt_rq2,ldt_today,ld_qcdate
Long        ll_testname,ll_testresult,ll_gt1,ll_gt2
Date        ld_today
Dec{2} ldc_result
string ls_testday

//【从源数据表中取出原始数据】
is_sourfull = gf_commtimer1(is_deviceid)
//【判断有无数据，执行TIMER事件】
If f_str_isnull(is_sourfull) Then
   Timer(0.9)
   Return
Else
   Timer(0)
   mle_source.Text = is_sourfull
   mle_result.Text = ""
End If

//【服务器日期】
ld_qcdate = f_sysdate()
//【生成YYYYMMDD格式】
ls_today = String(ld_qcdate,"yyyymmdd")

Timer(0)

ii_gt = f_atc(is_sourfull,"|",1) - 1

Choose Case Mid(is_sourfull,ii_gt,1)
   Case "O"//【取样本基本信息】
   //O|1|1|1^0^1^^SAMPLE^NORMAL|ALL|R|20170813094208|||||X||||||||||||||O|||||
   //Mid(string,start,length), 从string字符串的start字符开始取得length长度的字符串
   //如果省略第三个参数表示从start字符开始到字符串结尾的字符串。
       ll_gt1 = f_atc(is_sourfull,"|",3) + 1
       ll_gt2 = f_atc(is_sourfull,"^",1)
       ls_orisampno = Mid(is_sourfull,ll_gt1,ll_gt2 - ll_gt1)
       ls_orisampno = "00000" + Mid(is_sourfull,ll_gt1,ll_gt2 - ll_gt1)
       is_sampleno = Right(ls_orisampno,5)
       //【测试日期--ls_testday，待测试成功后重新写此接口】
   ls_testday=left(f_spliterstring_one(is_sourfull,7),8)
       gf_write_log(is_deviceid,'测试日期，用于修改该接口，文本：【'+is_sourfull+'】')
       gf_write_log(is_deviceid,'测试日期，用于修改该接口，测试日期：【'+ls_testday+'】')
       //【样本号】
       is_sampleno = gf_commtimer2(is_sampleno,is_deviceid,is_profilename,ls_today)
       is_type = "P"
   Case "R"//【取样本结果】
       ll_gt1 = f_atc(is_sourfull,"^",3) + 1
       ll_gt2 = f_atc(is_sourfull,"^",4)
       //【通道号】
       ls_channel = Trim(Mid(is_sourfull,ll_gt1,ll_gt2 - ll_gt1))
       ll_gt1 = f_atc(is_sourfull,"|",3) + 1
       ll_gt2 = f_atc(is_sourfull,"|",4)
       is_result = Trim(Mid(is_sourfull,ll_gt1,ll_gt2 - ll_gt1))
       is_result = f_replace(is_result,"*","")
       //【测试结果】
       If Pos(is_result,'^') > 0 Then
           is_result = Trim(Mid(is_result,Pos(is_result,'^') + 1))
       End If
       is_sampletype = ""
       //【测试项目ID】
       is_testid = gf_commchannel(ls_channel,is_sampletype,is_deviceid,is_bzybh)
       li_flag = 1
       //【数据写入数据库】
       gf_commdata(is_type,is_testid,is_sampleno,is_result,ld_qcdate,is_sampletype,is_deviceid,li_flag)
       //【显示数据】
       wf_settext(is_sampleno,ls_channel,is_result)
End Choose

Timer(0.2)
Return