【调度系统】广东民航医疗快线调度系统源代码
hzj
2025-07-09 ace6b03faa825df6e43dbadaf43e95cb495ae2b1
m_DispatchOrder.gds
@@ -145,6 +145,14 @@
   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
@@ -544,10 +552,22 @@
         <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)%>&nbsp;&nbsp;<%=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)%>&nbsp;&nbsp;<%=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
@@ -582,8 +602,16 @@
         <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)%>&nbsp;&nbsp;<%=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)%>&nbsp;&nbsp;<%=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>
@@ -716,16 +744,26 @@
         
         <%'联系人方式
         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%>&nbsp;&nbsp;&nbsp;&nbsp;与患者关系:<%=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">联系人:【隐】&nbsp;&nbsp;&nbsp;&nbsp;与患者关系:【隐】</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%>&nbsp;&nbsp;&nbsp;&nbsp;与患者关系:<%=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">年龄:【隐】&nbsp;&nbsp;性别:【隐】&nbsp;&nbsp;体重(KG):【隐】&nbsp;&nbsp;国籍:【隐】</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%>&nbsp;&nbsp;<%End if%><%If ServiceOrdPtSex<>"" then%>性别:<%=ServiceOrdPtSex%>&nbsp;&nbsp;<%End if%><%If ServiceOrdPtKG<>"" then%>体重(KG):<%=ServiceOrdPtKG%>&nbsp;&nbsp;<%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