<%
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
DispatchOrdID = SafeRequest(Request.form("DispatchOrdID")) '调度单号
|
DispatchOrdClass = SafeRequest(Request.form("DispatchOrdClass")) '单据类型
|
ServiceOrdID = SafeRequest(Request.form("ServiceOrdID")) '对应服务单号
|
DispatchOrdState = SafeRequest(Request.form("DispatchOrdState")) '调度单状态
|
DispatchOrdTraSDTime = SafeRequest(Request.form("DispatchOrdTraSDTime")) '拟出发时间
|
DispatchOrdCarID = SafeRequest(Request.form("DispatchOrdCarID")) '派遣车辆ID
|
DispatchOrdCoName = SafeRequest(Request.form("DispatchOrdCoName")) '调度联系人姓名
|
DispatchOrdCoPhone = SafeRequest(Request.form("DispatchOrdCoPhone")) '调度联系人电话
|
ServiceOrdCoName = SafeRequest(Request.form("ServiceOrdCoName")) '联系人姓名
|
ServiceOrdCoPhone = StrTrim(SafeRequest(Request.form("ServiceOrdCoPhone"))) '联系人电话
|
DispatchOrdTraStreet = SafeRequest(Request.form("DispatchOrdTraStreet")) '实际出发地
|
DispatchOrdTraEnd = SafeRequest(Request.form("DispatchOrdTraEnd")) '实际目的地
|
DispatchOrdTraVia = SafeRequest(Request.form("DispatchOrdTraVia")) '实际途经地
|
DispatchOrd_Check = SafeRequest(Request.form("DispatchOrd_Check")) '下发/审核命令(0反审核,1审核,2下发微信,4审核不通过)
|
|
DispatchOrdPerfomance = SafeRequest(Request.form("DispatchOrdPerfomance")) '订单绩效
|
StretcherMoney = SafeRequest(Request.form("StretcherMoney")) '担架费(失效)
|
AddMoneyType = SafeRequest(Request.form("AddMoneyType")) '附加项目
|
AddMoney = SafeRequest(Request.form("AddMoney")) '附加项目费用
|
AddMoneyExplain = SafeRequest(Request.form("AddMoneyExplain")) '附加项目说明
|
EntourageName_aid1 = SafeRequest(Request.form("EntourageName_aid1")) '外援人员1
|
EntourageName_aid2 = SafeRequest(Request.form("EntourageName_aid2")) '外援人员2
|
DispatchOrd_NS_ID = SafeRequest(Request.form("DispatchOrd_NS_ID")) '调度人员ID
|
RecommendedCar = SafeRequest(Request.form("RecommendedCar")) '指定车型
|
DispatchOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '医护司备注
|
DispatchEmployeeGroup = SafeRequest(Request.form("DispatchEmployeeGroup")) '员工组别
|
|
'Phone
|
TEL_Phone = SafeRequest(Request.form("Phone")) '来电电话
|
TEL_Time = SafeRequest(Request.form("TEL_Time")) '来电时间
|
TEL_Remarks = SafeRequest(Request.form("TEL_Remarks")) '来电备注
|
|
TimeLength_Program = SafeRequest(Request.form("TimeLength_Program")) '大型活动保障时长
|
TimeLength_ICU = SafeRequest(Request.form("TimeLength_ICU")) '居家ICU时长
|
TimeLength_Wait = SafeRequest(Request.form("TimeLength_Wait")) '等待时长
|
|
ServiceOrdTraStreet = SafeRequest(Request.form("ServiceOrdTraStreet")) '车辆出发地址
|
ServiceOrdTraVia = SafeRequest(Request.form("ServiceOrdTraVia")) '转出地址
|
ServiceOrdTraEnd = SafeRequest(Request.form("ServiceOrdTraEnd")) '转入地址
|
EditDataForm = SafeRequest(Request.form("EditDataForm")) '当前修改项目
|
|
|
|
If ServiceOrdTraStreet<>"" Then DispatchOrdTraStreet=ServiceOrdTraStreet
|
If ServiceOrdTraVia<>"" Then DispatchOrdTraVia=ServiceOrdTraVia
|
If ServiceOrdTraEnd<>"" Then DispatchOrdTraEnd=ServiceOrdTraEnd
|
|
If DispatchOrdClass="" Then DispatchOrdClass="SA"
|
If DispatchOrdCoName="" Then DispatchOrdCoName=ServiceOrdCoName
|
If DispatchOrdCoPhone="" Then DispatchOrdCoPhone=ServiceOrdCoPhone
|
If DispatchOrdCarID="" Then DispatchOrdCarID=0
|
If DispatchOrd_NS_ID="" Then DispatchOrd_NS_ID="DispatchOrd_NS_ID"
|
If TimeLength_Program="" Then TimeLength_Program=0
|
If TimeLength_ICU="" Then TimeLength_ICU=0
|
If TimeLength_Wait="" Then TimeLength_Wait=0
|
If AddMoney="" Or Not isnumeric(AddMoney) Then AddMoney=0
|
If EditDataForm<>"" Then EditDataForm="["&EditDataForm&"] ID"
|
|
'数据不完整
|
If DispatchOrdID="" Or Not IsNumeric(DispatchOrdID) Then Response.Redirect "/DispatchOrder.gds?Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=1"
|
error=","
|
'If DispatchOrdCarID="0" Then error=error&"DispatchOrdCarLicense,"
|
If DispatchOrdCoName="" And DispatchOrdClass<>"SP" Then error=error&"DispatchOrdCoName,"
|
If DispatchOrdCoPhone="" And DispatchOrdClass<>"SP" Then error=error&"DispatchOrdCoPhone,"
|
If DispatchOrdTraSDTime="" And DispatchOrdClass="SP" Then error=error&"DispatchOrdTraSDTime,"
|
'If Len(error)>2 Then Response.Redirect "/DispatchOrder.gds?Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=4&error="&error
|
|
'验证服务单是否正确
|
If ServiceOrdID<>"" And ServiceOrdID<>"0" Then
|
sql="select top 1 ServiceOrdID,ServiceOrdUnitID from ServiceOrder where ServiceOrdID="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
If rs.eof Then
|
Response.Redirect "/DispatchOrder.gds?SystemMessageType=4&SMT=1"
|
Else
|
ServiceOrdUnitID=rs("ServiceOrdUnitID")
|
End If
|
rs.close()
|
End If
|
|
'验证绩效计价是否正确
|
If (DispatchOrdPerfomance="" Or DispatchOrdPerfomance="0") And ServiceOrdID<>"" Then
|
sql="select DispatchOrdID from DispatchOrd where DispatchOrdState<>10 and DispatchOrdID<>"&DispatchOrdID&" and ServiceOrdIDDt="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
If rs.eof Then
|
ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '成交价
|
If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
|
If InStr(ServiceOrdTraTxnPrice,",")>0 Then ServiceOrdTraTxnPrice=Replace(ServiceOrdTraTxnPrice,",","")
|
DispatchOrdPerfomance=ServiceOrdTraTxnPrice
|
End If
|
rs.close()
|
End If
|
sql="select DispatchOrdID,DispatchOrd_NS_Time from DispatchOrd where DispatchOrdID="&DispatchOrdID
|
rs.open sql,objConn,1,1
|
If rs.eof Then
|
DispatchOrd_NS_Time = rs("DispatchOrd_NS_Time")
|
End If
|
rs.close()
|
|
'留言保存
|
MessageContents = SafeRequest(request("MessageContents_form1"))
|
If MessageContents<>"" And ServiceOrdID<>"" Then
|
sql="insert into ServiceOrd_Message (ServiceOrdIDDt,MessageContents,MessageOAid) values ("&ServiceOrdID&",'"&MessageContents&"',"&session("adminID")&")"
|
objConn.Execute sql
|
End If
|
|
'修改调度单
|
If DispatchOrdTraSDTime<>"" Then SDTimeSql=",DispatchOrdTraSDTime='"&DispatchOrdTraSDTime&"'"
|
If DispatchOrdPerfomance<>"" Then DKPSql=",DispatchOrdPerfomance="&DispatchOrdPerfomance
|
If AddMoneyType<>"" And AddMoney>0 Then SMSql=",StretcherMoney=StretcherMoney+"&AddMoney
|
If DispatchEmployeeGroup<>"" Then EGSql=",DispatchEmployeeGroup="&DispatchEmployeeGroup
|
sql="update DispatchOrd set DispatchOrdCarID="&DispatchOrdCarID&",DispatchOrdTraStreet='"&DispatchOrdTraStreet&"',DispatchOrdTraEnd='"&DispatchOrdTraEnd&"',DispatchOrdTraVia='"&DispatchOrdTraVia&"',DispatchOrdCoName='"&DispatchOrdCoName&"',DispatchOrdCoPhone='"&DispatchOrdCoPhone&"',EntourageName_aid1='"&EntourageName_aid1&"',EntourageName_aid2='"&EntourageName_aid2&"',DispatchOrd_NS_ID="&DispatchOrd_NS_ID&",RecommendedCar='"&RecommendedCar&"',TimeLength_Program="&TimeLength_Program&",TimeLength_ICU="&TimeLength_ICU&",TimeLength_Wait="&TimeLength_Wait&",DispatchOrdTaskRemarks='"&DispatchOrdTaskRemarks&"'"&SDTimeSql&DKPSql&SMSql&EGSql&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdID="&DispatchOrdID
|
'Response.write sql
|
'Response.End
|
objConn.Execute sql
|
|
'修改随行人员
|
EntourageLeadID = SafeRequest(Request.form("EntourageLeadID")) '领队ID
|
sql="select DispatchOrd_Entourage.id,vID,vtext,vOrder2,EntourageOAid=isnull(EntourageOAid,0),EntourageLead=isnull(EntourageLead,0),EntourageState=isnull(EntourageState,0),EntourageState_Time,Check_is=isnull(Check_is,1) from dictionary LEFT JOIN DispatchOrd_Entourage on DispatchOrdIDDt="&DispatchOrdID&" and EntourageID=vID and EntourageState<>4 where vType=1 and vtitle='DispatchOrdEntourage' order by vOrder"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
EID = rs("id") '随行列表ID
|
EntourageID = rs("vID") '职能ID
|
EntourageName=rs("vtext") '
|
OA_CompetencyID=rs("vOrder2")'对应职能ID
|
EntourageOAid=rs("EntourageOAid")
|
EntourageLead=rs("EntourageLead")
|
EntourageState=rs("EntourageState") '人员确认状态(1等待确认,2不接受,3已确认,4取消)
|
EntourageState_Time=rs("EntourageState_Time")
|
EntourageOAid_NEW=SafeRequest(Request("Entourage_"&EntourageID))
|
EntourageOT_is = SafeRequest(Request("EntourageOT_is_"&EntourageID)) '休息出车
|
EntourageOT2_is = SafeRequest(Request("EntourageOT2_is_"&EntourageID)) '加班出车2
|
EntourageBetimesHH = SafeRequest(Request("EntourageBetimesHH_"&EntourageID)) '提前出车N小时
|
EntourageLong_is = SafeRequest(Request("EntourageLong_is_"&EntourageID)) '跟车
|
Stretcher_is = SafeRequest(Request("Stretcher_is_"&EntourageID)) '抬担架
|
If Stretcher_is="" Then Stretcher_is=0
|
|
Check_is = rs("Check_is")'加班审核(0未审核,1不需要审核,2已审核,4审核不通过)
|
If EntourageOT_is="" Then EntourageOT_is=0
|
If EntourageOT2_is="" Then EntourageOT2_is=0
|
If EntourageBetimesHH="" Then EntourageBetimesHH=0
|
If EntourageLong_is="" Then EntourageLong_is=0
|
If Stretcher_is="" Then Stretcher_is=0
|
EntourageLead=0
|
If CStr(EntourageLeadID)=CStr(EntourageID) Then EntourageLead=1
|
If (EntourageOT_is<>0 Or EntourageBetimesHH>0 Or EntourageOT2_is>0) And Check_is=1 Then
|
Check_is=0
|
End If
|
|
|
If EntourageOAid_NEW="" And Not isnull(EID) Then
|
'清空随行人员
|
If (EntourageState=2 Or EntourageState=3) And Not Isnull(EID) Then
|
sql="update DispatchOrd_Entourage set EntourageState=4 where id="&EID
|
objConn.Execute sql
|
Else
|
sql="delete from DispatchOrd_Entourage where id="&EID
|
objConn.Execute sql
|
End If
|
|
ElseIf EntourageOAid_NEW<>"" And Not isnull(EID) And CStr(EntourageOAid_NEW)<>CStr(EntourageOAid) Then
|
'修改随行人员(更换)
|
If (EntourageState=2 Or EntourageState=3) And Not Isnull(EID) Then
|
sql="update DispatchOrd_Entourage set EntourageState=4 where id="&EID
|
objConn.Execute sql
|
Else
|
sql="delete from DispatchOrd_Entourage where id="&EID
|
objConn.Execute sql
|
End If
|
sql="insert into DispatchOrd_Entourage (DispatchOrdIDDt,EntourageID,EntourageOAid,EntourageLead,EntourageOT_is,EntourageOT2_is,EntourageBetimesHH,EntourageLong_is,Check_is,Stretcher_is,Entourage_Time) values ("&DispatchOrdID&","&EntourageID&","&EntourageOAid_NEW&","&EntourageLead&","&EntourageOT_is&","&EntourageOT2_is&","&EntourageBetimesHH&","&EntourageLong_is&","&Check_is&","&Stretcher_is&",'"&DispatchOrd_NS_Time&"')"
|
objConn.Execute sql
|
If EntourageLead=1 Then
|
sql="update DispatchOrd set DispatchEmployeeGroup=(select top 1 OA_EmployeeGroup from OA_User where OA_User_ID="&EntourageOAid&") where DispatchOrdID="&DispatchOrdID
|
objConn.Execute sql
|
End If
|
|
ElseIf EntourageOAid_NEW<>"" And Not isnull(EID) And CStr(EntourageOAid_NEW)=CStr(EntourageOAid) Then
|
'修改随行人员(更新)
|
sql="update DispatchOrd_Entourage set EntourageLead="&EntourageLead&",EntourageOT_is="&EntourageOT_is&",EntourageOT2_is="&EntourageOT2_is&",EntourageBetimesHH="&EntourageBetimesHH&",EntourageLong_is="&EntourageLong_is&",Check_is="&Check_is&",Stretcher_is="&Stretcher_is&" where id="&EID
|
objConn.Execute sql
|
|
ElseIf EntourageOAid_NEW<>"" And isnull(EID) Then
|
'写入随行人员
|
sql="insert into DispatchOrd_Entourage (DispatchOrdIDDt,EntourageID,EntourageOAid,EntourageLead,EntourageOT_is,EntourageOT2_is,EntourageBetimesHH,EntourageLong_is,Check_is,Stretcher_is,Entourage_Time) values ("&DispatchOrdID&","&EntourageID&","&EntourageOAid_NEW&","&EntourageLead&","&EntourageOT_is&","&EntourageOT2_is&","&EntourageBetimesHH&","&EntourageLong_is&","&Check_is&","&Stretcher_is&",'"&DispatchOrd_NS_Time&"')"
|
objConn.Execute sql
|
If EntourageLead=1 Then
|
sql="update DispatchOrd set DispatchEmployeeGroup=(select top 1 OA_EmployeeGroup from OA_User where OA_User_ID="&EntourageOAid&") where DispatchOrdID="&DispatchOrdID
|
objConn.Execute sql
|
End If
|
|
End if
|
rs.movenext
|
loop
|
rs.close()
|
|
'修改调度单
|
If DispatchOrd_Check="2" And DispatchOrdState="0" then
|
DispatchOrdState="1"
|
sql="update DispatchOrd set DispatchOrdState="&DispatchOrdState&",DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost) where DispatchOrdID="&DispatchOrdID
|
objConn.Execute sql
|
Else
|
sql="update DispatchOrd set DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost) where DispatchOrdID="&DispatchOrdID
|
objConn.Execute sql
|
End if
|
|
'写入附加项目费用
|
If AddMoneyType<>"" And AddMoneyType<>"0" And AddMoney>0 Then
|
If ServiceOrdID="" Then
|
ToServiceOrdID=0
|
Else
|
ToServiceOrdID=ServiceOrdID
|
End If
|
sql="insert into PaidMoney_Add (ToServiceOrdID,ToDispatchOrdID,AddMoneyType,AddMoney,AddMoneyExplain,AddMoneyOAID) values ("&ToServiceOrdID&","&DispatchOrdID&","&AddMoneyType&","&AddMoney&",'"&AddMoneyExplain&"',"&session("adminID")&")"
|
objConn.Execute sql
|
Call OA_Running("修改调度单:"&DispatchOrdID&" 新增附加费用金额:"&AddMoney)
|
End If
|
|
'写入电话记录
|
If TEL_Phone<>"" then
|
sql="select CallRecordID from CallRecord where CallRecord_Phine='"&TEL_Phone&"' and CallRecord_StartTime between dateadd(Ss,-10,'"&TEL_Time&"') and dateadd(Ss,10,'"&TEL_Time&"')"
|
rs.open sql,objConn,1,1
|
If not rs.eof Then
|
sql="update CallRecord set CallRecord_OAUserID="&session("adminID")&",CallRecord_EndTime=getdate(),CallRecord_OrdClass='"&DispatchOrdState&"',CallRecord_OrdID="&DispatchOrdID&",CallRecord_Record='"&TEL_Remarks&"' where CallRecordID="&rs(0)
|
objConn.Execute sql
|
Else
|
sql="insert into CallRecord (CallRecord_Phine,CallRecord_OAUserID,CallRecord_StartTime,CallRecord_EndTime,CallRecord_Type,CallRecord_OrdClass,CallRecord_OrdID,CallRecord_Record) values ('"&TEL_Phone&"',"&session("adminID")&",'"&TEL_Time&"',getdate(),1,'"&DispatchOrdState&"',"&DispatchOrdID&",'"&TEL_Remarks&"')"
|
objConn.Execute sql
|
End if
|
rs.close()
|
End If
|
|
If ServiceOrdID<>"" Then
|
ServiceOrdCoName = SafeRequest(Request.form("ServiceOrdCoName")) '患者联系人姓名
|
ServiceOrdCoPhone = StrTrim(SafeRequest(Request.form("ServiceOrdCoPhone"))) '患者联系人电话
|
ServiceOrdPtCondition = SafeRequest(Request.form("ServiceOrdPtCondition")) '病情描述
|
ServiceOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '医护司备注
|
ServiceOrdPtDoctor = SafeRequest(Request.form("ServiceOrdPtDoctor")) '患者医生
|
ServiceOrdPtDoctorPhone = SafeRequest(Request.form("ServiceOrdPtDoctorPhone")) '患者医生电话
|
TransferModeID = SafeRequest(Request.form("TransferModeID")) '转运方式
|
ServiceOrdVIP = SafeRequest(Request.form("ServiceOrdVIP")) 'VIP客户
|
ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '成交价
|
ServiceOrdTraPrePayment = SafeRequest(Request.form("ServiceOrdTraPrePayment")) '需预付款
|
SettlementPrice = SafeRequest(Request.form("SettlementPrice")) '结算价
|
ServiceOrdTraPriceReason= SafeRequest(Request.form("ServiceOrdTraPriceReason")) '差价原因
|
ServiceOrd_CC_ID = SafeRequest(Request.form("ServiceOrd_CC_ID")) '客服人员ID
|
ServiceOrd_Sale_ID = SafeRequest(Request.form("ServiceOrd_Sale_ID")) '销售人员ID
|
ServiceOrdIntroducer = SafeRequest(Request.form("ServiceOrdIntroducer")) '介绍人
|
ServiceOrd_work_ID = SafeRequest(Request.form("ServiceOrd_work_ID")) '主要企微客服ID
|
ServiceOrd_work_IDs = SafeRequest(Request.form("ServiceOrd_work_IDs")) '其他企微客服ID
|
ServiceOrd_work_is = SafeRequest(request.form("ServiceOrd_work_is")) '是否企微成交
|
CommissionScenarioID = SafeRequest(request.form("CommissionScenarioID")) '企微绩效方案
|
ServiceOrdApptDate = SafeRequest(Request.form("ServiceOrdApptDate")) '预约时间
|
ServiceOrdEstimatedOrderDate=SafeRequest(Request.form("ServiceOrdEstimatedOrderDate")) '预计派单时间
|
ServiceOrdEstimatedOrderDateOld=SafeRequest(Request.form("ServiceOrdEstimatedOrderDateOld")) '原预计派单时间
|
ReturnChannel = SafeRequest(Request.form("ReturnChannel")) '回访获知966120的渠道
|
ReturnChannelOther = SafeRequest(Request.form("ReturnChannelOther")) '回访获知966120的渠道(其它)
|
VisitDict = SafeRequest(Request.form("VisitDict")) '回访记录(评价类型)
|
ServiceOrdVisit = SafeRequest(Request.form("ServiceOrdVisit")) '回访记录
|
ServiceOrdVisit_old = SafeRequest(Request.form("ServiceOrdVisit_old")) '原回访记录
|
ServiceOrdSource = SafeRequest(Request.form("ServiceOrdSource")) '订单来源
|
ServiceOrdViaDistance = SafeRequest(Request.form("ServiceOrdViaDistance")) '中途距离
|
ServiceOrdTraDistance = SafeRequest(Request.form("ServiceOrdTraDistance")) '距离
|
ServiceOrdPtDiagnosis = SafeRequest(Request.form("ServiceOrdPtDiagnosis")) '诊断
|
ServiceOrdOperationRemarks = SafeRequest(Request.form("ServiceOrdOperationRemarks")) '操作备注项
|
ServiceOrdPtOutHospID_New=SafeRequest(Request.form("ServiceOrdPtOutHospID")) '转出医院ID
|
ServiceOrdPtOutHosp = SafeRequest(Request.form("ServiceOrdPtOutHosp")) '转出医院
|
ServiceOrdPtInHospID_New= SafeRequest(Request.form("ServiceOrdPtInHospID")) '转入医院ID
|
ServiceOrdPtInHosp = SafeRequest(Request.form("ServiceOrdPtInHosp")) '转入医院
|
ServiceOrdTraProvince = SafeRequest(Request.form("province")) '出发地省份
|
ServiceOrdTraCity = SafeRequest(Request.form("city")) '出发地城市
|
|
ServiceOrdCoTies = SafeRequest(Request.form("ServiceOrdCoTies")) '
|
ServiceOrdPtName = SafeRequest(Request.form("ServiceOrdPtName")) '
|
ServiceOrdPtAge = SafeRequest(Request.form("ServiceOrdPtAge")) '
|
ServiceOrdPtKG = SafeRequest(Request.form("ServiceOrdPtKG")) '
|
ServiceOrdPtSex = SafeRequest(Request.form("ServiceOrdPtSex")) '
|
ServiceOrdPtNat = SafeRequest(Request.form("ServiceOrdPtNat")) '
|
ServiceOrdPtIDCard = SafeRequest(Request.form("ServiceOrdPtIDCard")) '
|
ServiceOrdPtServices = SafeRequest(Request.form("ServiceOrdPtServices")) '
|
ServiceOrdPtServicesID = SafeRequest(Request.form("ServiceOrdPtServicesID"))
|
ServiceOrdPtInServices = SafeRequest(Request.form("ServiceOrdPtInServices")) '
|
ServiceOrdPtInServicesID = SafeRequest(Request.form("ServiceOrdPtInServicesID"))
|
ServiceOrdTraStreet = SafeRequest(Request.form("ServiceOrdTraStreet")) '
|
ServiceOrdTraEnd = SafeRequest(Request.form("ServiceOrdTraEnd")) '
|
ServiceOrdTraVia = SafeRequest(Request.form("ServiceOrdTraVia")) '
|
ServiceOrdTraDuration = SafeRequest(Request.form("ServiceOrdTraDuration")) '
|
ServiceOrdTraUnitPrice = SafeRequest(Request.form("ServiceOrdTraUnitPrice")) '
|
ServiceOrdTraOfferPrice = SafeRequest(Request.form("ServiceOrdTraOfferPrice")) '
|
OrderLevel = SafeRequest(Request.form("OrderLevel")) '查看等级
|
ServiceOrdDepartureType = SafeRequest(Request.form("ServiceOrdDepartureType")) '预约类型
|
ConditionLevel = SafeRequest(Request.form("ConditionLevel")) '病重级别
|
DirectionType = SafeRequest(Request.form("DirectionType")) '转运去向
|
FromHQ2_is = SafeRequest(Request.form("FromHQ2_is")) '广州总部推送任务标记
|
|
If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
|
If ServiceOrdTraPrePayment="" Then ServiceOrdTraPrePayment=0
|
If SettlementPrice="" Then SettlementPrice=0
|
If ServiceOrdTraOfferPrice="" Then ServiceOrdTraOfferPrice=0
|
If InStr(ServiceOrdTraTxnPrice,",")>0 Then ServiceOrdTraTxnPrice=Replace(ServiceOrdTraTxnPrice,",","")
|
If InStr(ServiceOrdTraPrePayment,",")>0 Then ServiceOrdTraPrePayment=Replace(ServiceOrdTraPrePayment,",","")
|
If InStr(SettlementPrice,",")>0 Then SettlementPrice=Replace(SettlementPrice,",","")
|
If ServiceOrdVIP="" Then ServiceOrdVIP=0
|
If ServiceOrd_Sale_ID="" Then ServiceOrd_Sale_ID="null"
|
If ServiceOrd_work_ID="" Then ServiceOrd_work_ID="null"
|
If ServiceOrd_work_is="" Then ServiceOrd_work_is=0
|
If CommissionScenarioID="" Then CommissionScenarioID=0
|
If ServiceOrd_CC_ID="" Then ServiceOrd_CC_ID="ServiceOrd_CC_ID"
|
If ServiceOrdVisit<>"" And ServiceOrdVisit_old<>ServiceOrdVisit Then
|
RV_Point=0
|
sql="select id from DispatchOrd_Entourage,DispatchOrd where EntourageState<>4 and DispatchOrdIDDt=DispatchOrdID and ServiceOrdIDDt="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
DE_id=rs("id")
|
RV_PointE=SafeRequest(Request.form("RV_PointE_"&DE_id))
|
If RV_PointE<>"" Then
|
RV_Point=RV_Point+1
|
sql="update DispatchOrd_Entourage set RV_PointE='"&RV_PointE&"' where id="&DE_id
|
objConn.Execute sql
|
End If
|
rs.movenext
|
loop
|
rs.close()
|
SqlVisit=",ServiceOrdVisit='"&ServiceOrdVisit&"',ServiceOrdVisit_time=getdate(),ServiceOrdVisit_ID="&session("adminID")
|
If VisitDict<>"" Then SqlVisit=SqlVisit&",ServiceOrdVisit_Dict='"&VisitDict&"'"
|
If RV_Point>0 Then SqlVisit=SqlVisit&",RV_Point="&RV_Point
|
ElseIf ServiceOrdVisit="" Then
|
SqlVisit=",ServiceOrdVisit_Dict=null,ServiceOrdVisit=null,ServiceOrdVisit_time=null,ServiceOrdVisit_ID=null,RV_Point=0"
|
End If
|
If ReturnChannel="其他（手动填写）" Then
|
If ReturnChannelOther="" Then ReturnChannelOther="其它"
|
SqlVisit=SqlVisit&",ServiceOrdReturnChannel='"&ReturnChannelOther&"'"
|
ElseIf ReturnChannel<>"" Then
|
SqlVisit=SqlVisit&",ServiceOrdReturnChannel='"&ReturnChannel&"'"
|
Else
|
SqlVisit=SqlVisit&",ServiceOrdReturnChannel=null"
|
End If
|
If ServiceOrdSource="" Then ServiceOrdSource=0
|
If ServiceOrdPtServicesID="" Then ServiceOrdPtServicesID=0
|
If ServiceOrdPtInServicesID="" Then ServiceOrdPtInServicesID=0
|
If ServiceOrdTraUnitPrice="" Then ServiceOrdTraUnitPrice=0
|
If ServiceOrdTraDistance<>"" Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance," ","")
|
If ServiceOrdViaDistance<>"" And OrderLevel="2" Then
|
ServiceOrdViaDistance = Replace(ServiceOrdViaDistance,"公里","")
|
If ServiceOrdViaDistance="" Or Not isnumeric(ServiceOrdViaDistance) Then ServiceOrdViaDistance="0"
|
ServiceOrdViaDistance = ServiceOrdViaDistance&"公里"
|
Else
|
ServiceOrdViaDistance="0"
|
End If
|
ServiceOrdTraDistance = Replace(ServiceOrdTraDistance,"公里","")
|
If ServiceOrdTraDistance="" Or Not isnumeric(ServiceOrdTraDistance) Then ServiceOrdTraDistance="0"
|
If ServiceOrdTraDistance="0" Then error=error&"ServiceOrdTraDistance,"
|
ServiceOrdTraDistance = ServiceOrdTraDistance&"公里"
|
If OrderLevel="" Then OrderLevel=0
|
If ServiceOrdDepartureType="" Then ServiceOrdDepartureType=1
|
If ConditionLevel="" Then ConditionLevel=0
|
If DirectionType="" Then DirectionType=0
|
If FromHQ2_is="" Then FromHQ2_is=0
|
|
|
'验证单据ID是否正确
|
sql="select ServiceOrdID,ServiceOrdState,ServiceOrd_AP_Check,ServiceOrdUnitID,ServiceOrdClass,ServiceOrd_CC_Time,ServiceOrdNo from ServiceOrder where ServiceOrdID="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
if rs.eof Then
|
session("Origin")=""
|
Response.Redirect "/ServiceOrder.gds?SystemMessageType=4&SMT=1&Phone&="&TEL_Phone
|
Else
|
ServiceOrd_AP_Check=rs("ServiceOrd_AP_Check")
|
Old_ServiceOrdState=rs("ServiceOrdState")
|
ServiceOrdUnitID=rs("ServiceOrdUnitID")
|
ServiceOrdClass=rs("ServiceOrdClass")
|
ServiceOrd_CC_Time=rs("ServiceOrd_CC_Time")
|
ServiceOrdNo=rs("ServiceOrdNo")
|
End if
|
rs.close()
|
|
'查找医院ID
|
If ServiceOrdPtOutHosp<>"" Then
|
If InStr(ServiceOrdPtOutHosp,"|")>0 Then ServiceOrdPtOutHosp=Mid(ServiceOrdPtOutHosp,1,InStr(ServiceOrdPtOutHosp,"|")-1)
|
sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdPtOutHosp&"'"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ServiceOrdPtOutHospID=rs(0)
|
Else
|
rs.close()
|
sql="select top 1 vID from dictionary where vtitle='HospName' order by vID desc"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ServiceOrdPtOutHospID=rs(0)+1
|
Else
|
ServiceOrdPtOutHospID=1
|
End if
|
sql="insert into dictionary (vID,vtext,vtitle,vType,vMono) values ("&ServiceOrdPtOutHospID&",'"&ServiceOrdPtOutHosp&"','HospName',1,'医院名称')"
|
objConn.Execute sql
|
End If
|
rs.close()
|
Else
|
ServiceOrdPtOutHospID=0
|
End If
|
If ServiceOrdPtInHosp<>"" Then
|
If InStr(ServiceOrdPtInHosp,"|")>0 Then ServiceOrdPtInHosp=Mid(ServiceOrdPtInHosp,1,InStr(ServiceOrdPtInHosp,"|")-1)
|
sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdPtInHosp&"'"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ServiceOrdPtInHospID=rs(0)
|
Else
|
rs.close()
|
sql="select top 1 vID from dictionary where vtitle='HospName' order by vID desc"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ServiceOrdPtInHospID=rs(0)+1
|
Else
|
ServiceOrdPtInHospID=1
|
End if
|
sql="insert into dictionary (vID,vtext,vtitle,vType,vMono) values ("&ServiceOrdPtInHospID&",'"&ServiceOrdPtInHosp&"','HospName',1,'医院名称')"
|
objConn.Execute sql
|
End If
|
rs.close()
|
Else
|
ServiceOrdPtInHospID=0
|
End If
|
|
'查找合作单位ID
|
ServiceOrdUnitSql=",ServiceOrdUnitID=0"
|
If ServiceOrdIntroducer<>"" And IsNumeric(ServiceOrdIntroducer) Then
|
sql="select IntroducerID,IntroducerName,IntroducerUnitID from IntroducerData where IntroducerUnitID<>'' and IntroducerID="&ServiceOrdIntroducer
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ServiceOrdUnitSql=",ServiceOrdUnitID="&rs("IntroducerUnitID")
|
End If
|
rs.close()
|
End If
|
|
|
'关联服务单
|
sql="update DispatchOrd set ServiceOrdIDDt="&ServiceOrdID&" where DispatchOrdID="&DispatchOrdID
|
objConn.Execute sql
|
|
'敏感信息修改
|
CoSql=""
|
If ServiceOrdCoName<>"【隐】" Then CoSql=CoSql&",ServiceOrdCoName='"&ServiceOrdCoName&"'"
|
If ServiceOrdCoPhone<>"【隐】" Then CoSql=CoSql&",ServiceOrdCoPhone='"&ServiceOrdCoPhone&"'"
|
If ServiceOrdPtName<>"【隐】" Then CoSql=CoSql&",ServiceOrdPtName='"&ServiceOrdPtName&"'"
|
If ServiceOrdPtAge<>"【隐】" Then CoSql=CoSql&",ServiceOrdPtAge='"&ServiceOrdPtAge&"'"
|
If ServiceOrdPtServicesID<>"-2" Then CoSql=CoSql&",ServiceOrdPtServicesID="&ServiceOrdPtServicesID&""
|
If ServiceOrdPtServices<>"【隐】" Then CoSql=CoSql&",ServiceOrdPtServices='"&ServiceOrdPtServices&"'"
|
If ServiceOrdPtInServicesID<>"-2" Then CoSql=CoSql&",ServiceOrdPtInServicesID="&ServiceOrdPtInServicesID&""
|
If ServiceOrdPtInServices<>"【隐】" Then CoSql=CoSql&",ServiceOrdPtInServices='"&ServiceOrdPtInServices&"'"
|
|
'修改主诊医生,成交价等资料(服务单)
|
sql="update ServiceOrder set ServiceOrdPtCondition='"&ServiceOrdPtCondition&"',ServiceOrdTaskRemarks='"&ServiceOrdTaskRemarks&"',ServiceOrdPtDoctor='"&ServiceOrdPtDoctor&"',ServiceOrdPtDoctorPhone='"&ServiceOrdPtDoctorPhone&"',ServiceOrdTraTxnPrice="&ServiceOrdTraTxnPrice&",ServiceOrdTraPrePayment="&ServiceOrdTraPrePayment&",SettlementPrice="&SettlementPrice&",ServiceOrdTraPriceReason='"&ServiceOrdTraPriceReason&"',ServiceOrd_CC_ID="&ServiceOrd_CC_ID&",ServiceOrd_Sale_ID="&ServiceOrd_Sale_ID&",ServiceOrdIntroducer='"&ServiceOrdIntroducer&"',ServiceOrd_work_ID="&ServiceOrd_work_ID&",ServiceOrd_work_IDs='"&ServiceOrd_work_IDs&"',ServiceOrd_work_is="&ServiceOrd_work_is&",CommissionScenarioID="&CommissionScenarioID&ServiceOrdUnitSql&",ServiceOrdApptDate='"&ServiceOrdApptDate&"',ServiceOrdSource="&ServiceOrdSource&",ServiceOrdPtDiagnosis='"&ServiceOrdPtDiagnosis&"',ServiceOrdOperationRemarks='"&ServiceOrdOperationRemarks&"',ServiceOrdViaDistance='"&ServiceOrdViaDistance&"',ServiceOrdTraDistance='"&ServiceOrdTraDistance&"',ServiceOrdVIP="&ServiceOrdVIP&SqlVisit&",ServiceOrdPtOutHospID="&ServiceOrdPtOutHospID_New&",ServiceOrdPtOutHosp="&ServiceOrdPtOutHospID&",ServiceOrdPtInHospID="&ServiceOrdPtInHospID_New&",ServiceOrdPtInHosp="&ServiceOrdPtInHospID&",ServiceOrdTraProvince='"&ServiceOrdTraProvince&"',ServiceOrdTraCity='"&ServiceOrdTraCity&"',ServiceOrdCoTies='"&ServiceOrdCoTies&"',ServiceOrdPtSex='"&ServiceOrdPtSex&"',ServiceOrdPtNat='"&ServiceOrdPtNat&"',ServiceOrdPtIDCard='"&ServiceOrdPtIDCard&"',ServiceOrdTraStreet='"&ServiceOrdTraStreet&"',ServiceOrdTraEnd='"&ServiceOrdTraEnd&"',ServiceOrdTraVia='"&ServiceOrdTraVia&"',ServiceOrdTraDuration='"&ServiceOrdTraDuration&"',ServiceOrdTraUnitPrice="&ServiceOrdTraUnitPrice&",ServiceOrdTraOfferPrice="&ServiceOrdTraOfferPrice&",ServiceOrdEstimatedOrderDate='"&ServiceOrdEstimatedOrderDate&"',OrderLevel="&OrderLevel&",ServiceOrdDepartureType="&ServiceOrdDepartureType&",ConditionLevel="&ConditionLevel&",DirectionType="&DirectionType&",ServiceOrdPtKG='"&ServiceOrdPtKG&"',FromHQ2_is="&FromHQ2_is&CoSql&" where ServiceOrdID="&ServiceOrdID
|
'Response.Write sql
|
objConn.Execute sql
|
|
'修改目前病情(单选项类)
|
sql="delete from ServiceOrd_Condition where ServiceOrdCoID="&ServiceOrdID
|
objConn.Execute sql
|
sql="select vOrder from dictionary where vType=2 and vtitle='Condition' order by vOrder,vID"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
ConditionOrder=rs("vOrder")
|
ConditionID=SafeRequest(Request.form("ConditionID_"&ConditionOrder))
|
If ConditionID<>"" Then
|
sql="insert into ServiceOrd_Condition (ServiceOrdCoID,ConditionID) values ("&ServiceOrdID&","&ConditionID&")"
|
objConn.Execute sql
|
End If
|
If ConditionID="4" Then
|
sql=" update ServiceOrder set AMV_is=1 where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
ElseIf ConditionID="3" Then
|
sql=" update ServiceOrder set AMV_is=0 where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
End If
|
rs.movenext
|
loop
|
rs.close()
|
|
'写入诊断ICD
|
OrdICD_ID = SafeRequest(Request.form("OrdICD_ID")) '诊断ICD_ID
|
OrdICD_ID_old = SafeRequest(Request.form("OrdICD_ID_old"))
|
If OrdICD_ID<>OrdICD_ID_old Then
|
sql="delete from ServiceOrder_ICD where ServiceOrdIDDt="&ServiceOrdID
|
objConn.Execute sql
|
If OrdICD_ID<>"" then
|
OrdICD_IDSP = SPLIT(OrdICD_ID,",")
|
for i=1 to ubound(OrdICD_IDSP)-1
|
If OrdICD_IDSP(i)<>"" Then
|
sql="insert into ServiceOrder_ICD (ServiceOrdIDDt,icd_id) values ("&ServiceOrdID&","&OrdICD_IDSP(i)&")"
|
objConn.Execute sql
|
End If
|
Next
|
End If
|
End If
|
|
'修改转运方式(多选项)
|
sql="delete from ServiceOrd_TransferMode where ServiceOrdTMID="&ServiceOrdID
|
objConn.Execute sql
|
TransferModeIDSP = SPLIT(TransferModeID,", ")
|
for i = 0 to UBOUND(TransferModeIDSP)
|
TransferModeID = TransferModeIDSP(i)
|
If TransferModeID<>"" then
|
sql="insert into ServiceOrd_TransferMode (ServiceOrdTMID,TransferModeID) values ("&ServiceOrdID&","&TransferModeID&")"
|
objConn.Execute sql
|
End if
|
Next
|
|
'核销优惠券
|
Call CouponUse(ServiceOrdTraPriceReason,ServiceOrdID)
|
|
'写入预计派单时间通知
|
ServiceOrdNo = ServiceOrdClass& year(ServiceOrd_CC_Time)&Right("0"&month(ServiceOrd_CC_Time),2)&Right("0"&day(ServiceOrd_CC_Time),2) & "-"&Right("00"&ServiceOrdNo,3)
|
If SMT=9 Or (ServiceOrdEstimatedOrderDate="" And ServiceOrdEstimatedOrderDateOld<>"") Then
|
sql="delete from Notification where NC_Name='【"&ServiceOrdNo&"派单时间提醒】'"
|
objConn.Execute sql
|
ElseIf ServiceOrdEstimatedOrderDate<>"" And ServiceOrdEstimatedOrderDateOld<>ServiceOrdEstimatedOrderDate Then
|
sql="delete from Notification where NC_Name='【"&ServiceOrdNo&"派单时间提醒】'"
|
objConn.Execute sql
|
NC_OAID="78"
|
NC_Name="【"&ServiceOrdNo&"派单时间提醒】"
|
NC_Content="服务单:"&ServiceOrdNo&",已到预定的派单时间,请即时处理"
|
NC_PageUrl="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
|
NC_PageUrlM=ServiceOrdEstimatedOrderDate
|
Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
|
End If
|
End If
|
|
'下发微信
|
If DispatchOrd_Check="2" And Len(error)<2 Then
|
session("JsonKey")="1"
|
'微信首次下发时间
|
sql="update DispatchOrd set DispatchOrdWeixinDate=getdate() where DispatchOrdWeixinDate=null and DispatchOrdID="&DispatchOrdID
|
objConn.Execute sql
|
ReturnURL="/weixin/message_send_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
|
Call OA_Running("下发调度单:"&DispatchOrdID)
|
Else
|
ReturnURL="DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
|
End If
|
|
|
'更新提成数据
|
Call EntourageDKP_Money_C2(DispatchOrdID)
|
|
'更新出车绩效
|
If DispatchOrdState>=4 Then
|
call EntourageDKP_A(DispatchOrdID,DispatchOrdPerfomance)
|
End If
|
|
|
Call OA_Running("修改调度单"&EditDataForm&":"&DispatchOrdID)
|
objConn.Execute "exec OrdDataUP "&DispatchOrdID
|
rsRollbackTrans(objConn.Errors.count)
|
|
'第三方平台数据更新
|
Call Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState)
|
|
If Len(error)>2 Then Response.Redirect ReturnURL&"&SystemMessageType=1&SMT=4&error="&error
|
Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3&h_menu1_1="&session("h_menu1_1")
|
Response.End
|
%>
|
