当前位置：首页 > 技能相关 > 实施日记 > 正文内容

门诊医生站关于门诊电子病历界面调整注意事项

admin4年前 (2021-12-29)实施日记6840 修订时间：2022-03-11 09:06:35

嵌入的门诊电子病历界面窗体的宽度以及高度不能完全覆盖原窗口的问题，需要修改让如下位置：

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)