modchecklist.bas

1、以DLL形式提供医生工作站 2、 根据【检查项目】

Attribute VB_Name = "modCheckList"
'----------------------------------------------------------------------------------------------------
'文件：modCheckList.bas
'作者：冷家锋
'时间：2008-4-10
'说明：检查列表
'----------------------------------------------------------------------------------------------------

Option Explicit
'============常量============================================================
'获取CHECK_LIST的来源表
Public Const CHECK_LIST_TABLE = "CHECK_LIST"


'1 ID,2 编号，3设备检查序号，4 姓名，5姓名拼音，6 性别，7 年龄，8 拍片部位，9 状态，
 '10 住院号，11 登记日期，12 检查医生，13 检查日期。

Public Const CHECK_LIST_FILELDS = "ID, PATIENT_ID AS 编号,to_char(MACHINE_NAME) || FILM_NO AS 设备检查序号," + " PATIENT_NAME AS 姓名," + " PATIENT_NAME_PHONETIC AS 姓名拼音, PATIENT_SEX AS 性别, " + "to_char(PATIENT_AGE) || AGE_WEIGHT as 年龄," + " MERGEPARTS(ID) as 拍片部位,STATE AS 状态, HOSPITAL_NUM AS 住院号, " + "  REG_DATE AS 登记日期, CHECK_DOCT_ID as 检查医生 , " + " IS_CHECKED AS 已出报告,CHECK_DATE AS  检查日期  "

Public Const CHECK_LIST_ORDER = "  ORDER BY  登记日期 DESC "
'============常量============================================================



'============变量============================================================
Public CHECK_LIST_TAB_INDEX As Long

'是否是筛选
Public CHECK_LIST_SELECT As Boolean

'Public CurCheckNumber As String

Public CHECK_LIST_SQL As String
' = "select top 0 " + modCheckList.CHECK_LIST_FILELDS + "  From VIEW_CheckList  "

'Public Const CHECK_LIST_UNCHECKED = "select 编号,姓名,性别,cast(年龄 as varchar(2000) )+ 年龄单位 as 年龄, "


Public CHECK_LIST_UNCHECKED As String
'============变量============================================================

'获得检查状态
Public Function GetCheckState(strStateName As String) As String
On Error GoTo ErrHandler
    Dim strSql As String
    strSql = "SELECT STATE_NUM FROM CHECK_STATE WHERE CHECK_STATE='" + strStateName + "'"
    
    Dim myConn As New ADODB.Connection
    Dim rsCheckState As New ADODB.Recordset
    myConn.CursorLocation = adUseClient
    If myConn.STATE = adStateClosed Then
        myConn.Open modGlobalDbConnect.GetConnectionString
    End If
    
    If rsCheckState.STATE = adStateOpen Then
        rsCheckState.Close
    End If
    
    rsCheckState.Open strSql, myConn
    
    If Not IsNull(rsCheckState.Fields("STATE_NUM")) Then
        GetCheckState = rsCheckState.Fields("STATE_NUM")
    Else
        GetCheckState = "0"
    End If
    Exit Function
ErrHandler:
    GetCheckState = "0"
    MsgBox Err.Description, vbExclamation, "提示"
    
End Function


'从病人登记表中取得新的检查编号
Public Function GetCheckNumberFromPatient() As String
On Error GoTo ErrHandler
    Dim rsCheckNumber As New ADODB.Recordset
    Dim myConn As New ADODB.Connection
    myConn.CursorLocation = adUseClient
    If myConn.STATE = adStateClosed Then
        myConn.Open modGlobalDbConnect.GetConnectionString
    End If
    If rsCheckNumber.STATE = adStateOpen Then
        rsCheckNumber.Close
    End If
    rsCheckNumber.Open "select GetCheckNumber()", myConn
    If rsCheckNumber.RecordCount <= 0 Then
        GetCheckNumberFromPatient = ""
        Exit Function
    End If
    If Not IsNull(rsCheckNumber.Fields(0)) Then
       GetCheckNumberFromPatient = rsCheckNumber.Fields(0)
    End If
    rsCheckNumber.Close
    Set rsCheckNumber = Nothing
    
    myConn.Close
    Set myConn = Nothing
    
    Exit Function
ErrHandler:
    MsgBox Err.Description

End Function