function MRRequestOnClick(){
var tbl=document.getElementById("tDHCDocInPatientList");
var selectrow=GetSelectRow(tbl)
var PatientID=""
var EpisodeID=""
if (!selectrow) return;
if (selectrow !=0) {
var PatientID="";
var EpisodeID="";
var mradm=""
var PatientObj=document.getElementById("PatientIDz"+selectrow)
PatientID=PatientObj.value
var EpisodeObj=document.getElementById("EpisodeIDz"+selectrow);
EpisodeID=EpisodeObj.value
var PAPMINameObj=document.getElementById("PAPMINamez"+selectrow);
PAPMIName=PAPMINameObj.innerText
}
UserId=session['LOGON.USERID']
if (!confirm(PAPMIName+" "+t['Confirm:MRRequest'])) {
return
}
//alert(EpisodeID+","+PatientID+","+UserId+","+PAPMIName)
var GetDetail=document.getElementById('GetMethodMRRequest');
if (GetDetail) {var encmeth=GetDetail.value} else {var encmeth=''};
var RetCode=cspRunServerMethod(encmeth,PatientID,EpisodeID,UserId)
if (RetCode=="-1"){
alert(t["ResaultDup:MRRequest"])
return
}
if (RetCode=="-2"){
alert(t["ResaultFail:MRRequest"])
return
}
if (RetCode=="0"){
alert(t["ResaultNull:MRRequest"])
return
}
alert(t["ResaultSuccess:MRRequest"])
}
function PatientNoCheck(e) {
//
var type=websys_getType(e);
var key=websys_getKey(e);
if ((type=='keydown')&&(key==9)) {
var PatientNo=document.getElementById('PatientNo');
if (PatientNo.value.length<m_PatientNoLength) {
for (var i=(m_PatientNoLength-PatientNo.value.length-1); i>=0; i--) {
PatientNo.value="0"+PatientNo.value
}
}
websys_nextfocusElement(PatientNo);
}
if ((type=='keydown')&&(key==13)) {
var PatientNo=document.getElementById('PatientNo');
if (PatientNo.value.length<m_PatientNoLength) {
for (var i=(m_PatientNoLength-PatientNo.value.length-1); i>=0; i--) {
PatientNo.value="0"+PatientNo.value
}
}
return Find_click();
}
}
Caché数据库和M语言_mumps语言教程_ensemblecache_m语言医疗_医疗_cachem语言_
5星 · 超过95%的资源 104 浏览量
2021-10-03
06:44:27
上传
评论 3
收藏 23.52MB ZIP 举报 
Caché数据库和M语言.zip （9个子文件） 
Caché数据库和M语言 Caché数据库和M语言 
数据库Caché_技术手册.pdf 3.33MB Caché数据库管理和维护手册.pdf 10.45MB
M语言初体验.txt 2KB M(MUMPS)语言.pdf 708KB
cache安装文档.doc 4.81MB DtHealth 7.0的安装与配置.doc 5.96MB cache案例练习 
CACHE.DAT 11MB Caché 面向对象软件开发教程(版本1.1).pdf 4.28MB 开发培训文档.pdf 1.53MB
评论2