| | |
|---|
| | | End If
|
|---|
| | | rs.close()
|
|---|
| | |
|
|---|
| | | '获取预计派单时间
|
|---|
| | | sql="select DispatchOrd.*, ServiceOrder.ServiceOrdEstimatedOrderDate from DispatchOrd inner join ServiceOrder on DispatchOrd.ServiceOrdIDDt = ServiceOrder.ServiceOrdID where DispatchOrdID="&DispatchOrdID
|
|---|
| | | rs.open sql,objConn,1,1
|
|---|
| | | If not rs.Eof Then
|
|---|
| | | ServiceOrdEstimatedOrderDate = rs("ServiceOrdEstimatedOrderDate")
|
|---|
| | | End If
|
|---|
| | | rs.close()
|
|---|
| | |
|
|---|
| | | '领队情况
|
|---|
| | | isCarUpdate="0"
|
|---|
| | | 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 DispatchOrdIDDt="&DispatchOrdID
|
|---|
| | |
|---|
| | | <div class="os_shopname" style="color: #F13F11;" onclick="lbs_distance('<%=PtOutHospName%>','<%=address%>')"><%If PtOutHospName="" Then%>途经<%else%>转出地址<%End If%>：<%=DispatchOrdTraViaTXT%>
|
|---|
| | | <div class="os_weight" style="right: 15px;transform: translateY(35%);"><img src="/resources/images/lbs-red.png" width="20" height="20" border="0"></div>
|
|---|
| | | </div>
|
|---|
| | | <%If (ServiceOrdPtServices<>"" Or (ServiceOrdPtServicesID<>0 And ServiceOrdPtServicesID<>22)) And CInt(session("adminID"))=CInt(EntourageLeadID) Then %><div class="os_shopname" style="color: #F13F11;">转出床位：<%=HospitalDepartment(ServiceOrdPtServicesID)%> <%=ServiceOrdPtServices%></div><%End if%>
|
|---|
| | | |
|---|
| | | <%If (ServiceOrdPtServices<>"" Or (ServiceOrdPtServicesID<>0 And ServiceOrdPtServicesID<>22)) And CInt(session("adminID"))=CInt(EntourageLeadID) Then %>
|
|---|
| | | |
|---|
| | | <%If DispatchOrdClass = "SA" And (Now() < ServiceOrdEstimatedOrderDate) Then %>
|
|---|
| | | <div class="os_shopname" style="color: #F13F11;">
|
|---|
| | | 转出床位：【隐】
|
|---|
| | | </div>
|
|---|
| | | <%Else%>
|
|---|
| | | <div class="os_shopname" style="color: #F13F11;">
|
|---|
| | | 转出床位：<%=HospitalDepartment(ServiceOrdPtServicesID)%> <%=ServiceOrdPtServices%>
|
|---|
| | | </div>
|
|---|
| | | <%End if%>
|
|---|
| | | <%End If%>
|
|---|
| | | <div class="os_shopname"></div>
|
|---|
| | | <%End if%>
|
|---|
| | |
|
|---|
| | | |
|---|
| | | <%'转入医院
|
|---|
| | | If ServiceOrdID<>"" then%>
|
|---|
| | | <%If ServiceOrdPtInHospID<>"" And ServiceOrdPtInHospID<>"0" And ServiceOrdPtInHospID<>"153" Then
|
|---|
| | |
|---|
| | | <div class="os_shopname" style="color: #009900;" onclick="lbs_distance('<%=DispatchOrdTraEnd%>','<%=address%>')"><%If PtInHospName="" Then%>目的地<%else%>转入地址<%End If%>：<%=DispatchOrdTraEnd%>
|
|---|
| | | <div class="os_weight" style="right: 15px;transform: translateY(35%);"><img src="/resources/images/lbs-green.png" width="20" height="20" border="0"></div>
|
|---|
| | | </div>
|
|---|
| | | <%If (ServiceOrdPtInServices<>"" Or (ServiceOrdPtInServicesID<>0 And ServiceOrdPtInServicesID<>22)) And CInt(session("adminID"))=CInt(EntourageLeadID) Then %><div class="os_shopname" style="color: #009900;">转入床位：<%=HospitalDepartment(ServiceOrdPtInServicesID)%> <%=ServiceOrdPtInServices%></div><%End if%>
|
|---|
| | |
|
|---|
| | | <%If (ServiceOrdPtInServices<>"" Or (ServiceOrdPtInServicesID<>0 And ServiceOrdPtInServicesID<>22)) And CInt(session("adminID"))=CInt(EntourageLeadID) Then %>
|
|---|
| | | <%If DispatchOrdClass = "SA" And (Now() < ServiceOrdEstimatedOrderDate) Then %>
|
|---|
| | | <div class="os_shopname" style="color: #F13F11;">
|
|---|
| | | 转入床位：【隐】
|
|---|
| | | </div>
|
|---|
| | | <%Else%>
|
|---|
| | | <div class="os_shopname" style="color: #009900;">转入床位：<%=HospitalDepartment(ServiceOrdPtInServicesID)%> <%=ServiceOrdPtInServices%></div><%End if%>
|
|---|
| | | <div class="os_shopname"></div>
|
|---|
| | | <%End if%> |
|---|
| | | <%Else%>
|
|---|
| | | <div class="os_shopname" style="color: #009900;">目的地：<a onclick="lbs_distance('<%=DispatchOrdTraEnd%>','<%=DispatchOrdTraEnd%>')" style="color: #009900;"><%=DispatchOrdTraEnd%></a></div>
|
|---|
| | | <div class="os_shopname"></div>
|
|---|
| | |
|---|
| | | <%End If%>
|
|---|
| | | <%'支付情况
|
|---|
| | | If (DispatchOrdState>=5 And DispatchOrdState<=9) And ServiceOrdTraTxnPrice<>"" And CInt(session("adminID"))=CInt(EntourageLeadID) then%>
|
|---|
| | | <%If ServiceOrdType="27" Then%>
|
|---|
| | | <div class="os_shopname">成交价：【隐】<%If ServiceOrdTraPaidPrice<>"" Then%><%If StretcherMoney<>"" And StretcherMoney>0 Then%> 附加费：<%=FormatCurrency(StretcherMoney,-1,-1)%><%End if%> 已支付：【隐】<%End if%><%If ServiceOrdTraTxnPrice+StretcherMoney-ServiceOrdTraPaidPrice>0 Then%><br>未支付：【隐】</div>
|
|---|
| | | <%Else%>
|
|---|
| | | <div class="os_shopname"></div>
|
|---|
| | | <div class="os_shopname">转运费用：<%=FormatCurrency(ServiceOrdTraTxnPrice,-1,-1)%><%If StretcherMoney<>"" And StretcherMoney>0 Then%> 附加费：<%=FormatCurrency(StretcherMoney,-1,-1)%><%End if%><%If ServiceOrdTraPaidPrice<>"" Then%> 已支付：<%=FormatCurrency(ServiceOrdTraPaidPrice,-1,-1)%><%End if%>
|
|---|
| | | <%End if%>
|
|---|
| | | <%If (ServiceOrdTraTxnPrice+StretcherMoney)-ServiceOrdTraPaidPrice>0 And 1=2 Then%><br>现支付：
|
|---|
| | | <select name="PaidMoneyType" id="PaidMoneyType" style="-webkit-appearance: none;outline: none;border: none;font-size: 14px;" >
|
|---|
| | | <option value="">请选择</option>
|
|---|
| | |
|---|
| | | <input name="PaidMoneyType" id="PaidMoneyType" type="hidden" value="">
|
|---|
| | | <input name="PaidMoney" id="PaidMoney" type="hidden" value="0">
|
|---|
| | | <%End if%>
|
|---|
| | | <%End if%>
|
|---|
| | | </div>
|
|---|
| | | <%ElseIf ServiceOrdTraTxnPrice<>"" And ServiceOrdTraTxnPrice<>"0" Then%>
|
|---|
| | | <div class="os_shopname"></div>
|
|---|
| | | <%If ServiceOrdType="27" Then%>
|
|---|
| | | <div class="os_shopname">成交价：【隐】<%If ServiceOrdTraPaidPrice<>"" Then%><%If StretcherMoney<>"" And StretcherMoney>0 Then%> 附加费：<%=FormatCurrency(StretcherMoney,-1,-1)%><%End if%> 已支付：【隐】<%End if%><%If ServiceOrdTraTxnPrice+StretcherMoney-ServiceOrdTraPaidPrice>0 Then%><br>未支付：【隐】</div>
|
|---|
| | | <%Else%>
|
|---|
| | | <div class="os_shopname">成交价：<%=FormatCurrency(ServiceOrdTraTxnPrice,-1,-1)%><%If ServiceOrdTraPaidPrice<>"" Then%><%If StretcherMoney<>"" And StretcherMoney>0 Then%> 附加费：<%=FormatCurrency(StretcherMoney,-1,-1)%><%End if%> 已支付：<%=FormatCurrency(ServiceOrdTraPaidPrice,-1,-1)%><%End if%><%If ServiceOrdTraTxnPrice+StretcherMoney-ServiceOrdTraPaidPrice>0 Then%><br>未支付：<%=FormatCurrency(ServiceOrdTraTxnPrice+StretcherMoney-ServiceOrdTraPaidPrice,-1,-1)%>
|
|---|
| | | |
|---|
| | | <%End If%>
|
|---|
| | | <%If ServiceOrdTraTxnPrice>0 And ServiceOrdTraPaidPrice<ServiceOrdTraTxnPrice And DispatchOrdCoPhone<>"" And (NEWOrder<>"" Or DispatchOrdState=8) Then%> <a onclick="JS_SMSCreateSave('<%=DispatchOrdCoPhone%>','[Pay|0|<%=ServiceOrdID%>] ')">发付<label style="color: #ff0000;">全款</label>短信</a>
|
|---|
| | | <script>
|
|---|
| | | //发送短信
|
|---|
| | |
|---|
| | | <%End If%>
|
|---|
| | |
|
|---|
| | | <%End if%></div>
|
|---|
| | | <%End If%>
|
|---|
| | | <%
|
|---|
| | | UserPointsCost=0 '积分成本
|
|---|
| | | UserPoints=0 '用户积分
|
|---|
| | |
|---|
| | |
|
|---|
| | | <%'联系人方式
|
|---|
| | | If CInt(session("adminID"))=CInt(EntourageLeadID) Or (DispatchOrdID="" And NEWOrder<>"") then%>
|
|---|
| | | <%If DispatchOrdID<>"" Then%><div class="os_shopname"></div><%End If%>
|
|---|
| | | <div class="os_shopname">联系人：<%=DispatchOrdCoName%><%If ServiceOrdCoTies<>"" Then%> 与患者关系：<%=ServiceOrdCoTies%><%End if%></div>
|
|---|
| | | <div class="os_shopname">联系电话：<a href="tel://<%=DispatchOrdCoPhone%>"><%=DispatchOrdCoPhone%></a></div>
|
|---|
| | | <%End if%>
|
|---|
| | | <%If DispatchOrdClass = "SA" And (Now() < ServiceOrdEstimatedOrderDate) Then %>
|
|---|
| | | <div class="os_shopname">联系人：【隐】 与患者关系：【隐】</div>
|
|---|
| | | <div class="os_shopname">联系电话：【隐】</div>
|
|---|
| | | <% Else %>
|
|---|
| | | <%If DispatchOrdID<>"" Then%><div class="os_shopname"></div><%End If%>
|
|---|
| | | <div class="os_shopname">联系人：<%=DispatchOrdCoName%><%If ServiceOrdCoTies<>"" Then%> 与患者关系：<%=ServiceOrdCoTies%><%End If%></div>
|
|---|
| | | <div class="os_shopname">联系电话：<a href="tel://<%=DispatchOrdCoPhone%>"><%=DispatchOrdCoPhone%></a></div>
|
|---|
| | | <% End If %>
|
|---|
| | | <% End If %>
|
|---|
| | |
|
|---|
| | | <%'相关受理单详情
|
|---|
| | | If ServiceOrdID<>"" then%>
|
|---|
| | | <%If DispatchOrdClass = "SA" And (Now() < ServiceOrdEstimatedOrderDate) Then %>
|
|---|
| | | <div class="os_shopname">患者信息：【隐】</div>
|
|---|
| | | <div class="os_shopname">年龄：【隐】 性别：【隐】 体重(KG)：【隐】 国籍：【隐】</div>
|
|---|
| | | <% Else %>
|
|---|
| | | <%If ServiceOrdPtName<>"" Then%><div class="os_shopname">患者姓名：<%=ServiceOrdPtName%></div><%End if%>
|
|---|
| | | <%If ServiceOrdPtAge<>"" Or ServiceOrdPtSex<>"" Or ServiceOrdPtNat<>"" Or ServiceOrdPtKG<>"" Then%><div class="os_shopname"><%If ServiceOrdPtAge<>"" then%>年龄：<%=ServiceOrdPtAge%> <%End if%><%If ServiceOrdPtSex<>"" then%>性别：<%=ServiceOrdPtSex%> <%End if%><%If ServiceOrdPtKG<>"" then%>体重(KG)：<%=ServiceOrdPtKG%> <%End if%><%If ServiceOrdPtNat<>"" then%>国籍：<%=ServiceOrdPtNat%><%End if%></div><%End if%>
|
|---|
| | | <%If DispatchOrdID<>"" Then%><div class="os_shopname"></div><%End If%>
|
|---|
| | | <%End If%>
|
|---|
| | | <%
|
|---|
| | | sql="select icd_id,icd_name from ServiceOrder_ICD,ICD10 where icd_id=id and ServiceOrdIDDt="&ServiceOrdID&" order by idDt"
|
|---|
| | | rs.open sql,objConn,1,1
|
|---|
