门诊医生站关于门诊电子病历界面调整注意事项
嵌入的门诊电子病历界面窗体的宽度以及高度不能完全覆盖原窗口的问题，需要修改让如下位置：
1、outpdoct.pbl > w_clinic > Events > resize 事件，在门诊电子病历启动语句后添加如下语句即可。
//2021-12-29 LIFEI 门诊电子病历窗口大小调整 tab_1.tabpage_mr.dw_mr.visible= false //隐藏原始门诊病历窗口，可忽略 tab_1.tabpage_mr.dw_emr.height = tab_1.tabpage_mr.height //设置电子病历窗口高度与外容器一致
InputTime： 2021-12-2911：50
2、诊断新判断方法需要修改 outpdoct.pbl > w_clinic > Events >ue_save 中关于判断的诊断语句。
// 清除空诊断
//FOR i = ldw_diagnosis.RowCount() To 1 Step -1
// ls_diag = ldw_diagnosis.GetItemString(i, "diagnosis_desc")
// IF IsNull(ls_diag) Or Trim(ls_diag) = "" THEN ldw_diagnosis.DeleteRow(i)
//NEXT
// 更新诊断序号
//FOR i = ldw_diagnosis.RowCount() To 1 Step -1
// ldw_diagnosis.SetItem(i, "diagnosis_no", i)
//NEXT
如上需要注释掉
诊断代码需要做如下调整，该事件可修改门诊处方以及门诊处置的诊断判断
// 若需要保存门诊处方，则验证是否已经录入诊断 20220221屏蔽原有诊断判断，添加新判断方法 lf
// ll_drugcount = ldw_presc.RowCount()
// IF ldw_presc.RowCount() > 0 THEN
// ldw_mr.AcceptText()
// ls_diag = ldw_mr.GetItemString(1, "diag_desc")
// ls_cdiag = ldw_mr.GetItemString(1, "cdiag")
// If (IsNull(ls_diag) Or Trim(ls_diag) = '') And (IsNull(ls_cdiag) Or Trim(ls_cdiag) = '') And posa(is_req_diag_items,';处方;') > 0 THEN
// MessageBox("提示","请录入诊断后再保存!")
// RETURN -1
// END IF
// END IF
ll_drugcount = ldw_presc.RowCount()
int ll_ls_diag
IF ldw_presc.RowCount() > 0 THEN
SELECT count(*) into :ll_ls_diag FROM OUTP_DIAGNOSIS WHERE PATIENT_ID= :ls_patientid and VISIT_NO= :ll_visitno;
if ll_ls_diag=0 And posa(is_req_diag_items,';处方;') > 0 then
MessageBox("提示","请录入诊断后再保存!")
RETURN -1
else
ll_ls_diag = 0
END IF
END IF修改 curepub.pbl > uo_exam_app > Functions >uf_save 以及 curepub.pbl > uo_test_sheet > Functions >uf_save 中关于判断的诊断语句
int ll_ls_diag
//新诊断判断方法 20220221 lf
SELECT count(*) into :ll_ls_diag FROM OUTP_DIAGNOSIS WHERE PATIENT_ID= :is_pat_id; // and VISIT_NO= :ll_visitno;
ls_diagnosis = string(ll_ls_diag)
//ls_diagnosis = dw_appmaster.GetItemString(1, "clin_diag")
if (isnull(ls_diagnosis) or ls_diagnosis='') and posa(is_req_diag_items,';检查;')>0 then
messagebox("提示","请录入诊断信息!")
return -1
end if以下方法解决curepub.pbl > uo_exam_app > Functions >uf_save 中诊断的值，对应修改可不做设置即可实现诊断的判断；
初始化检查申请模块诊断信息
//设置变量
string lf_ls_patid,lf_ll_ls_DIAG_DESC
long lf_ll_visitno
//获取患者ID以及就诊序号
lf_ll_visitno = dw_patinfo.GetItemNumber(1, "visit_no")
lf_ls_patid = dw_patinfo.getitemstring(1,'patient_id')
//查询门诊电子病历记录信息
SELECT DIAG_DESC into :lf_ll_ls_DIAG_DESC FROM OUTP_MR where patient_id= :lf_ls_patid and VISIT_NO= :lf_ll_visitno;
//赋值检查区域诊断模块信息
tab_1.tabpage_exam.uo_exam.uf_set_diaginfo("clin_diag", lf_ll_ls_DIAG_DESC)
您阅读本篇文章共花了： 