在本地数据库建和dblink对应的数据库中相同的表名称
string ls_patient_id,ls_visit_id,ls_file_unique_id,ls_diag,ls_diag1
long ll_visit_id,ll_pos1,ll_pos2,ll_pos11,ll_pos22
blob lblob_diagnosis
ls_patient_id=sle_patient_id.text
if isnull(ls_patient_id) or ls_patient_id="" then
messagebox("系统提示","请输入患者ID号!")
return
end if
ls_visit_id=ddplb_visit_id.text
if isnull(ls_visit_id) or ls_visit_id="" then
messagebox("系统提示","请选择住院次数!")
return
end if
ll_visit_id=long(ls_visit_id)
select file_unique_id into :ls_file_unique_id from JHMR_FILE_INDEX@emrupload_link t where t.patient_id=:ls_patient_id and t.visit_id=:ll_visit_id and t.mr_code='EMR12.00_10';
Insert into JHMR_FILE_CONTENT_TEXT select * from JHMR_FILE_CONTENT_TEXT@emrupload_link t where file_unique_id =:ls_file_unique_id;
commit;


1769

被折叠的 条评论
为什么被折叠?



