<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Session.CodePage=65001%> <% '合法性验证 PositionURL=Request.ServerVariables("URL") if Request.ServerVariables("QUERY_STRING")<>"" then PositionURL=PositionURL&"?"&Request.ServerVariables("QUERY_STRING") If InStr(PositionURL,"&sign")>=1 Then PositionURL=Mid(PositionURL,1,InStr(PositionURL,"&sign")-1) URLSign=SignArgs(PositionURL) Sign1=request("sign") If URLSign<>Sign1 Then Response.Redirect "/OrdEvaluateError.asp" End If '------------- DispatchOrdID=request("DispatchOrdID") ServiceOrdID=request("ServiceOrdID") isPrePayment=request("isPrePayment") openid=request("openid") if ServiceOrdID="" then Response.Redirect "/OrdEvaluateError.asp" If isPrePayment="" Then isPrePayment=0 Total_fee=0 StretcherMoney=0 %> 民航医疗快线 <% Set rs = Server.CreateObject("ADODB.Recordset") '相关调度单 If DispatchOrdID="" And ServiceOrdID<>"" Then sql="select DispatchOrdID from DispatchOrd where DispatchOrdState>0 and ServiceOrdIDDt="&ServiceOrdID rs.open sql,objConn,1,1 If not rs.Eof Then DispatchOrdID = rs("DispatchOrdID") '调度单号 End If rs.close() End If If DispatchOrdID<>"" Then 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() End If '相关受理单 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") '转出医院 ServiceOrdPtOutHospID = rs("ServiceOrdPtOutHospID") '转出医院ID ServiceOrdPtInHosp = rs("ServiceOrdPtInHosp") '转入医院 ServiceOrdPtInHospID = rs("ServiceOrdPtInHospID") '转入医院ID 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") '目的地坐标 ServiceOrdTraVia = rs("ServiceOrdTraVia") '途经地 ServiceOrdTraDistance = rs("ServiceOrdTraDistance") '距离(公里) ServiceOrdTraDuration = rs("ServiceOrdTraDuration") '预计行程时间 ServiceOrdTraUnitPrice= rs("ServiceOrdTraUnitPrice") '单价/公里 ServiceOrdTraOfferPrice=rs("ServiceOrdTraOfferPrice") '标准报价 ServiceOrdTraTxnPrice = rs("ServiceOrdTraTxnPrice") '成交价 ServiceOrdTraPaidPrice= rs("ServiceOrdTraPaidPrice") '已支付金额 ServiceOrdTraPrePayment=rs("ServiceOrdTraPrePayment") '需预付款 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 ServiceOrdPoints = rs("ServiceOrdPoints") '使用积分 Guest_Point = rs("Guest_Point") If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0 If ServiceOrdTraPaidPrice="" Then ServiceOrdTraPaidPrice=0 If ServiceOrdTraPrePayment="" Then ServiceOrdTraPrePayment=0 If Len(ServiceOrdCoPhone)=11 Then ServiceOrdCoPhone=Left(ServiceOrdCoPhone,5)&"****"&right(ServiceOrdCoPhone,2) Else ServiceOrdCoPhone="" End If 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&"公里" '本次需支付金额 If isPrePayment="1" Then Total_fee=ServiceOrdTraPrePayment-ServiceOrdTraPaidPrice Else Total_fee=ServiceOrdTraTxnPrice+StretcherMoney-ServiceOrdTraPaidPrice End If If Total_fee<0 Then Total_fee=0 Else Response.Redirect "/OrdEvaluateError.asp" End If rs.close() If Guest_Point<>0 And Total_fee<=0 Then Response.Redirect "/OrdEvaluateOK.asp" Response.End() End If If DispatchOrdCarID<>"" And DispatchOrdCarID<>"0" Then DispatchOrdCarLicense=CarDataA(DispatchOrdCarID,"","CarLicense") End if %>
966120广东民航医疗快线
<%If ServiceOrdType<>"14" And ServiceOrdType<>"15" And ServiceOrdType<>"16" And ServiceOrdType<>"17" Then%> <%If ServiceOrdPtOutHospID<>"" And ServiceOrdPtOutHospID<>"0" And ServiceOrdPtOutHospID<>"153" Then sql="select HospName,HospLevel,HopsProvince,HopsCity,HopsArea,HospAddress from HospData where HospID="&ServiceOrdPtOutHospID rs.open sql,objConn,1,1 If not rs.Eof Then PtOutHospName=rs("HospName") PtOutHopsProvince=rs("HopsProvince") PtOutHopsCity=rs("HopsCity") PtOutHopsArea=rs("HopsArea") PtOutHospAddress=rs("HospAddress") End If rs.close() ElseIf ServiceOrdTraVia<>"" then OrdTraVia = SPLIT(ServiceOrdTraVia,"=>") PtOutHospName=Trim(OrdTraVia(0)) End if If PtOutHospName<>"" Then%>
出发地：
<%=PtOutHospName%>
<%End If%> <%If ServiceOrdPtInHospID<>"" And ServiceOrdPtInHospID<>"0" And ServiceOrdPtInHospID<>"153" Then sql="select HospName,HospLevel,HopsProvince,HopsCity,HopsArea,HospAddress from HospData where HospID="&ServiceOrdPtInHospID rs.open sql,objConn,1,1 If not rs.Eof Then PtInHospName=rs("HospName") PtInHospProvince=rs("HopsProvince") PtInHospCity=rs("HopsCity") PtInHospArea=rs("HopsArea") PtInHospAddress=rs("HospAddress") End If rs.close() Else PtInHospName=ServiceOrdTraEnd End If If PtInHospName<>"" Then%>
目的地：
<%=PtInHospName%>
<%End If%>
<%If ServiceOrdCoName<>"" then%>
　联系人： <%=ServiceOrdCoName%>
<%End If%> <%If ServiceOrdCoPhone<>"" then%>
联系电话： <%=ServiceOrdCoPhone%>
<%End If%> <%If ServiceOrdPtName<>"" then%>
患者姓名： <%=ServiceOrdPtName%>
<%End If%> <%If ServiceOrdApptDate<>"" then%>
预约时间： <%=ServiceOrdApptDate%>
<%End If%> <%End If%> <%If ServiceOrdTraTxnPrice>0 Then 'ServiceOrdTraTxnPrice 成交价 'ServiceOrdTraPrePayment 需预付款 'StretcherMoney 附加费用 'ServiceOrdTraPaidPrice 已支付金额 %>
订单金额： ￥<%=ServiceOrdTraTxnPrice%>
<%If StretcherMoney>0 Then%>
附加费用： ￥<%=StretcherMoney%>
<%End If%> <%If ServiceOrdPoints>0 Then%>
使用积分： <%=ServiceOrdPoints%>
<%End If%> <%If ServiceOrdTraPaidPrice-ServiceOrdPoints>0 Then%>
　已支付： ￥<%=ServiceOrdTraPaidPrice%>
<%End If%> <%End If%>
<% If Total_fee>0 Then tips1 = "请先支付出车预付定金 "&Total_fee&"元" %>
待支付<%If isPrePayment="1" Then%>定金<%else%>金额：<%End If%> ￥<%=FormatNumber(Round(Total_fee,2),2,True)%>
<% Else tips1 = "您已支付了定金 "&ServiceOrdTraPaidPrice&"元" %>
<%End If%> <%If isPrePayment = "1" And ServiceOrdType<>"14" And ServiceOrdType<>"15" And ServiceOrdType<>"16" And ServiceOrdType<>"17" Then %>
　　<%=ServiceOrdCoName%>,您好！<%=tips1%>，我们的团队去到出发地 <%=PtOutHospName%> 后，收齐 <%=ServiceOrdTraTxnPrice-Total_fee%> 元后再出发至 <%=PtInHospName%>。然后给您开具全额 <%=ServiceOrdTraTxnPrice%>元 的医疗转运票据。如医护已经出车，该定金无法退回，请知悉。有疑问欢迎随时拨打服务热线 (020) 966120，谢谢！
<%ElseIf DispatchOrdState>=6 And ServiceOrdType<>"14" And ServiceOrdType<>"15" And ServiceOrdType<>"16" And ServiceOrdType<>"17" And Guest_Point=0 Then%>
';">
若需了解更多信息，欢迎拨打服务热线：
(020) 966120
<%End if%>
广东民航医疗快线有限公司