民航医疗快线

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Session.CodePage=65001%> <% DispatchOrdID=request("DispatchOrdID") openid=request("openid") If openid="" Then openid=session("openid") session("openid")=openid if DispatchOrdID="" then Response.Redirect "/" %> 民航医疗快线

<% Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from DispatchOrd where DispatchOrdState>0 and DispatchOrdID="&DispatchOrdID rs.open sql,objConn,1,1 If not rs.Eof Then DispatchOrdID = rs("DispatchOrdID") '调度单号 DispatchOrdClass = rs("DispatchOrdClass") '单据类型 ServiceOrdID = rs("ServiceOrdIDDt") '对应受理单号 DispatchOrdState = rs("DispatchOrdState") '调度单状态 DispatchOrdStartDate = rs("DispatchOrdStartDate") '调度单状态时间 DispatchOrd_NS_ID = rs("DispatchOrd_NS_ID") '开单人ID DispatchOrd_NS_Time = rs("DispatchOrd_NS_Time") '开单时间 DispatchOrd_AP_ID = rs("DispatchOrd_AP_ID") '审核人ID DispatchOrd_AP_Time = rs("DispatchOrd_AP_Time") '审核时间 DispatchOrd_AP_Check = rs("DispatchOrd_AP_Check") '是否审核(0否,1是) DispatchOrd_AP_Reason = rs("DispatchOrd_AP_Reason") '审核原因 DispatchOrdCarID = rs("DispatchOrdCarID") '派遣车辆ID DispatchOrdTraSDTime = rs("DispatchOrdTraSDTime") '拟出发时间 If year(DispatchOrdTraSDTime)<2010 then DispatchOrdTraSDTime="" DispatchOrdActualDate = rs("DispatchOrdActualDate") '实际出车时间 DispatchOrdArriveDate = rs("DispatchOrdArriveDate") '实际到达时间 DispatchOrdReturnDate = rs("DispatchOrdReturnDate") '实际返回时间 DispatchOrdTraDistance = rs("DispatchOrdTraDistance") '实际距离 DispatchOrdTraStreet = rs("DispatchOrdTraStreet") '实际出发地 DispatchOrdTraEnd = rs("DispatchOrdTraEnd") '实际目的地 DispatchOrdTraVia = rs("DispatchOrdTraVia") '实际途经地 DispatchOrdCoName = rs("DispatchOrdCoName") '调度联系人 DispatchOrdCoPhone = rs("DispatchOrdCoPhone") '调度联系电话 DispatchOrdTraStreetMileage= rs("DispatchOrdTraStreetMileage")'开始里程数 DispatchOrdTraEndMileage= rs("DispatchOrdTraEndMileage")'结束里程数 DispatchOrdMileage = rs("DispatchOrdMileage") '实际里程数 DispatchOrdGasoline = rs("DispatchOrdGasoline") '油耗 DispatchOrdRemarks = rs("DispatchOrdRemarks") '行驶备注记录 EntourageName_aid1 = rs("EntourageName_aid1") '外援人员1 EntourageName_aid2 = rs("EntourageName_aid2") '外援人员2 DispatchOrdPerfomance = rs("DispatchOrdPerfomance") RecommendedCar = rs("RecommendedCar") '指定车型 CarStItm_OAId = rs("CarStItm_OAId") '物品清单检查人ID StretcherMoney = rs("StretcherMoney") '担架费 DispatchOrdNo = DispatchOrdClass& year(rs("DispatchOrd_NS_Time"))&Right("0"&month(rs("DispatchOrd_NS_Time")),2)&Right("0"&day(rs("DispatchOrd_NS_Time")),2) & "-"&Right("00"&rs("DispatchOrdNo"),3) '调度单编号 Else Response.Redirect "/OrdEvaluateError.asp" End If rs.close() '相关受理单 If ServiceOrdID="" Then Response.Redirect "/OrdEvaluateError.asp" End If sql="select * from ServiceOrder where ServiceOrdID="&ServiceOrdID rs.open sql,objConn,1,1 If not rs.Eof then ServiceOrdID = rs("ServiceOrdID") '服务单号 ServiceOrdClass = rs("ServiceOrdClass") '单据类型 ServiceOrdType = rs("ServiceOrdType") '服务单类型 ServiceOrdState = rs("ServiceOrdState") '服务单状态 ServiceOrdStartDate = rs("ServiceOrdStartDate") '开单日期 ServiceOrdApptDate = rs("ServiceOrdApptDate") '预约日期 If year(ServiceOrdApptDate)<2010 then ServiceOrdApptDate="" ServiceOrdCoName = rs("ServiceOrdCoName") '联系人姓名 ServiceOrdCoPhone = rs("ServiceOrdCoPhone") '联系人电话 ServiceOrdCoTies = rs("ServiceOrdCoTies") '联系人与患者关系 ServiceOrdPtName = rs("ServiceOrdPtName") '患者姓名 ServiceOrdPtAge = rs("ServiceOrdPtAge") '患者年龄 ServiceOrdPtSex = rs("ServiceOrdPtSex") '患者性别 ServiceOrdPtNat = rs("ServiceOrdPtNat") '患者国籍 ServiceOrdPtOutHosp = rs("ServiceOrdPtOutHosp") '转出医院 ServiceOrdPtServices = rs("ServiceOrdPtServices") '科室 ServiceOrdPtDiagnosis = rs("ServiceOrdPtDiagnosis") '诊断 ServiceOrdPtCondition = rs("ServiceOrdPtCondition") '备注 ServiceOrdPtDoctor = rs("ServiceOrdPtDoctor") '患者医生 ServiceOrdPtDoctorPhone=rs("ServiceOrdPtDoctorPhone") '患者医生电话 ServiceOrdTraProvince = rs("ServiceOrdTraProvince") '出发地省份 ServiceOrdTraCity = rs("ServiceOrdTraCity") '出发地城市 ServiceOrdTraStreet = rs("ServiceOrdTraStreet") '出发地 ServiceOrdTraStreetCoo= rs("ServiceOrdTraStreetCoo") '出发地坐标 ServiceOrdTraEnd = rs("ServiceOrdTraEnd") '目的地 ServiceOrdTraEndCoo = rs("ServiceOrdTraEndCoo") '目的地坐标 ServiceOrdTraDistance = rs("ServiceOrdTraDistance") '距离(公里) ServiceOrdTraDuration = rs("ServiceOrdTraDuration") '预计行程时间 ServiceOrdTraUnitPrice= rs("ServiceOrdTraUnitPrice") '单价/公里 ServiceOrdTraOfferPrice=rs("ServiceOrdTraOfferPrice") '标准报价 ServiceOrdTraTxnPrice = rs("ServiceOrdTraTxnPrice") '成交价 ServiceOrdTraPaidPrice= rs("ServiceOrdTraPaidPrice") '已支付金额 ServiceOrdTraPriceReason=rs("ServiceOrdTraPriceReason")'差价原因 ServiceOrd_CC_ID = rs("ServiceOrd_CC_ID") '第一次接单人员ID ServiceOrd_CC_Time = rs("ServiceOrd_CC_Time") '第一次接单时间 ServiceOrd_NS_ID = rs("ServiceOrd_NS_ID") '确认服务单人员ID ServiceOrd_NS_Time = rs("ServiceOrd_NS_Time") '确认服务单时间 ServiceOrd_AP_Check = rs("ServiceOrd_AP_Check") '服务单审核状态(0未审核,1已审核) ServiceOrd_AP_ID = rs("ServiceOrd_AP_ID") '服务单审核人员ID ServiceOrd_AP_Time = rs("ServiceOrd_AP_Time") '服务单审核时间 ServiceOrdIntroducer = rs("ServiceOrdIntroducer") '介绍人 ServiceOrd_Sale_ID = rs("ServiceOrd_Sale_ID") '销售人员ID Guest_Point = rs("Guest_Point") ServiceOrdNo = ServiceOrdClass& year(rs("ServiceOrd_CC_Time"))&Right("0"&month(rs("ServiceOrd_CC_Time")),2)&Right("0"&day(rs("ServiceOrd_CC_Time")),2) & "-"&Right("00"&rs("ServiceOrdNo"),3) If IsNumeric(ServiceOrdTraDistance) Then ServiceOrdTraDistance=ServiceOrdTraDistance&"公里" End If rs.close() If Guest_Point<>0 Then Response.Redirect "/OrdEvaluateOK.asp?ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID Response.End() End If '领队情况 sql="select DispatchOrd_Entourage.id,EntourageOAid,EntourageLead,OA_weixinUserID,EntourageState,EntourageState_Time,OA_Name,OA_weixinAvatar,vtext from DispatchOrd_Entourage,OA_User,dictionary where vtitle='DispatchOrdEntourage' and EntourageID=vID and OA_User_ID=EntourageOAid and EntourageState<>4 and EntourageLead=1 and DispatchOrdIDDt="&DispatchOrdID rs.open sql,objConn,1,1 If not rs.Eof Then EntourageLeadID=rs("EntourageOAid") End If 'If CInt(session("adminID"))<>CInt(EntourageLeadID) Then EntourageLeadID=8 rs.close() If DispatchOrdCarID<>"" And DispatchOrdCarID<>"0" Then DispatchOrdCarLicense=CarDataA(DispatchOrdCarID,"","CarLicense") End if %>

<%'途经地 If DispatchOrdTraVia<>"" then%> <%OrdTraVia = SPLIT(DispatchOrdTraVia,"=>")%> 出发地：<%=Trim(OrdTraVia(0))%>
<%End if%> 目的地：<%=DispatchOrdTraEnd%>
<%If DispatchOrdCarID<>"" And DispatchOrdCarID<>"0" Then%>
执行车辆：<%=DispatchOrdCarLicense%> <%End If%>

<% sql="select vID,vOrder2,DispatchOrd_Entourage.id,EntourageOAid,EntourageLead,OA_Name,OA_weixinAvatar,vtext from DispatchOrd_Entourage,OA_User,dictionary where vtitle='DispatchOrdEntourage' and EntourageID=vID and OA_User_ID=EntourageOAid and EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID&" order by EntourageLead desc,vtext" rs.open sql,objConn,1,1 i=0 do while not rs.Eof EntourageID = rs("vID") OA_CompetencyID = rs("vOrder2") EId = rs("id") EntourageOAid = rs("EntourageOAid") OA_Name = rs("OA_Name") OA_weixinAvatar = rs("OA_weixinAvatar") EntourageName = rs("vtext") OA_Name=Replace(OA_Name,"（外援医生）","") OA_Name=Replace(OA_Name,"（外援医生）","") OA_Name=Replace(OA_Name,"司机001","") %>

<%=EntourageName%> <% Response.Write Left(OA_Name,1) For t = 1 to Len(OA_Name)-1 Response.Write "*" Next %>

技能水平

服务态度

<%i=i+1 rs.movenext loop rs.close()%>

医疗护送工作不容易，可以答谢护送团队喔

答谢金额：

元

投诉建议

手机号

手机

手机号