【调度系统】广东民航医疗快线调度系统源代码
hzj
2025-07-09 678e0c321125e7b43f28875a661481f9bd358b06
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,7 +552,18 @@
         <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)) Then %>
    <%If DispatchOrdClass = "SA" And (Now() < ServiceOrdEstimatedOrderDate) Then %>
        <div class="os_shopname" style="color: #F13F11;">
            转出床位:【隐】
        </div>
   <%ElseIf CInt(session("adminID"))=CInt(EntourageLeadID) Then %>
        <div class="os_shopname" style="color: #F13F11;">
            转出床位:<%=HospitalDepartment(ServiceOrdPtServicesID)%>&nbsp;&nbsp;<%=ServiceOrdPtServices%>
        </div>
    <%End If%>
<%End If%>
         <div class="os_shopname"></div>
      <%End if%>
@@ -582,7 +601,18 @@
         <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)) Then %>
    <%If DispatchOrdClass = "SA" And (Now() < ServiceOrdEstimatedOrderDate) Then %>
        <div class="os_shopname" style="color: #009900;">
            转入床位:【隐】
        </div>
   <%ElseIf CInt(session("adminID"))=CInt(EntourageLeadID) Then %>
        <div class="os_shopname" style="color: #009900;">
            转入床位:<%=HospitalDepartment(ServiceOrdPtInServicesID)%>&nbsp;&nbsp;<%=ServiceOrdPtInServices%>
        </div>
    <%End If%>
<%End If%>
         <div class="os_shopname"></div>
      <%Else%>
      <div class="os_shopname" style="color: #009900;">目的地:<a onclick="lbs_distance('<%=DispatchOrdTraEnd%>','<%=DispatchOrdTraEnd%>')" style="color: #009900;"><%=DispatchOrdTraEnd%></a></div>
@@ -678,7 +708,6 @@
         <%End If%>
      <%End if%>
      <%If ServiceOrdTraDistance<>"" And ServiceOrdTraDistance<>"0" And ServiceOrdTraDistance<>"0公里" then%><div class="os_shopname">预估距离:<%=ServiceOrdTraDistance%></div><%End if%>
   <%If OrderLevel<>1 Or isDepartment("020111")=1 Or PowerOrderLevel=1 Or (DispatchOrdID="" And NEWOrder<>"") Then%>
         <%
         '敏感信息处理
@@ -714,17 +743,32 @@
         <div class="os_shopname">介绍人:<%=UnitIntroducer(ServiceOrdIntroducer,"UnitName")%></div>
         <%End If%>
         
         <%'联系人方式
         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>
<% ElseIf (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 ServiceOrdID<>"" then%>
            <%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 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%>
<%End If%>
            <%If DispatchOrdID<>"" Then%><div class="os_shopname"></div><%End If%>
            <%
            sql="select icd_id,icd_name from ServiceOrder_ICD,ICD10 where icd_id=id and ServiceOrdIDDt="&ServiceOrdID&" order by idDt"
@@ -739,7 +783,15 @@
            loop
            rs.close()
             %>
            <%If ServiceOrdPtDiagnosis<>"" Or OrdICD_name<>"" Then%><div class="os_shopname">诊断:<%=OrdICD_name%><%=ServiceOrdPtDiagnosis%></div><%End if%>
            <%If ServiceOrdPtDiagnosis<>"" Or OrdICD_name<>"" Then%>
  <div class="os_shopname">
    <%If DispatchOrdState >=4 Then%>
      诊断:<%=OrdICD_name%><%=ServiceOrdPtDiagnosis%>
    <%Else%>
      诊断:隐
    <%End If%>
  </div>
<%End if%>
            <div class="os_shopname" style="float: left;">
            <%
            sql="select ConditionID,vOrder2,vtext from ServiceOrd_Condition,dictionary where vtitle='Condition' and ConditionID=vID and ServiceOrdCoID="&ServiceOrdID&" order by vOrder,vID"