clssick.cls

医院门诊医生工作站,vb6 SqlServer

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsSick"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "S!vedWithClassBuilder6" ,"Yes"

Option Explicit

Public mPreFootDate As String
Public FootDate As String
Private mstrSkID As String
Private mstrSkSerial As String
Private mintNum As Integer

Public IfRegInfo As Boolean '是否在基本信息中登记(m_InpatiBase)

'基本信息
Public Name        As String
Public Sex         As String
Public Brief As String
Public BirthDate   As String
Public IDCard As String
Public Marry As String
Public Country As String
Public Native As String
Public Contactor   As String
Public relation As String
Public Tel As String
Public Zip As String
Public ContactorAddr  As String
Public PtID As String '病人类型ID
'prite mPtDes As String '病人类型描述

'附加基本信息
Public LcID As String
Public LcDes As String
Public unit As String
Public Addr As String
Public BirthAddr As String
Public Profession As String
Public mlngStatus As Long
'医疗信息
Public Temperature As Single
Public TendLevelID As String
Public IllnessID As String
Public DisID As String
Public DisDes As String
Public InWay As String
Public InCase As String
Public OutWay As String

'入院信息
Public DepCode   As String
Public DepName    As String
Public Doctor  As String
Public DcCode  As String
Public DcName  As String
Public BedID As String
Public BedNum As String
Public BedFairCode As String
Public InDate    As String
Public OutDate    As String
Public HdCode As String
Public Fair As Currency
Public PrePay As Currency
Public afair As Currency

'手术信息
Public OpSerial As String
Public OpNum As String
Public OpName As String
Public OpBeginTime As String
Public Property Get IFOUT() As Boolean
    If (mlngStatus And 1) <> 0 Then
        IFOUT = True
    End If
End Property
Public Property Get IsINS() As Boolean
    If PtID = gtydSysConfig.ptIDyb Then
        IsINS = True
    Else
        IsINS = False
    End If
End Property

Public Property Get Num() As Integer
    Num = mintNum
End Property
Public Property Let Num(vdata As Integer)
    mintNum = vdata
End Property
Public Property Get NewNum() As Integer
    NewNum = Num + 1
End Property
Public Property Get SkSerial() As String

    SkSerial = SkID & Format(Num, "00")
End Property
Public Property Get NewSkSerial() As String
    NewSkSerial = SkID & Format(NewNum, "00")
End Property
Public Property Get Status() As Long
    Status = mlngStatus
End Property
Public Property Let Status(vdata As Long)
    mlngStatus = vdata
End Property
Public Property Get SexDes()
    SexDes = gSexObj.Item(Sex).Des
End Property
Public Property Get MarryDes()
    MarryDes = gMarryObj.Item(Marry).Des
End Property
Public Property Get PtDes()
    PtDes = gSickPatientTypesObj.Item(PtID).Des
End Property
Public Property Get Age() As String
    If BirthDate = "" Then
        Age = ""
    Else
        Age = DateDiff("yyyy", BirthDate, gfnGetTime)
    End If
End Property
Public Property Get IFOutHosp() As Boolean
    If (mlngStatus And 1) <> 0 Then
        IFOutHosp = True
    End If
End Property
Public Property Get IFFoot() As Boolean
    If (mlngStatus And 4) <> 0 Then
        IFFoot = True
    End If
End Property
Public Property Get CanDeb() As Boolean
    If (mlngStatus And 8) = 8 Then
        CanDeb = True
    End If
End Property

Public Property Get EnableAFair() As Currency
    If afair <> 0 Then
        EnableAFair = afair
    Else
        EnableAFair = -999999999
    End If
End Property

Public Property Get IsPub() As Boolean
    If (mlngStatus And 16) = 16 Then
        IsPub = True
    End If
End Property
Public Property Get IsInSu() As Boolean
    If (mlngStatus And 32) = 32 Then
        IsInSu = True
    End If
End Property

Public Property Get RemFair() As Currency  '剩余款
    RemFair = PrePay - Fair
End Property

Public Property Get SkID() As String
    SkID = mstrSkID
End Property

Public Property Let SkID(ByVal vdata As String)
    mstrSkID = vdata
End Property
Public Property Let SkIDByQuery(ByVal vdata As String)
    Dim tmprs As Recordset
    
    vdata = Trim(vdata)
'    If vdata = mstrSkID Then Exit Property
    mstrSkID = vdata
  
    If gdbobj.GetRs("SELECT m_SickRegInfo.*,m_SickRegInfoApd.*,m_Local.Des as LcDes " _
        & "FROM (m_SickRegInfo left JOIN m_SickRegInfoApd " _
        & "ON m_SickRegInfo.SkID=m_SickRegInfoApd.SkID) " _
        & "LEFT JOIN m_Local ON m_SickRegInfoApd.lcID = m_Local.LcID " _
        & "WHERE m_SickRegInfo.SkID = '" & vdata & "'") = 1 Then
        
        Name = gdbobj.Rs!Name
        Brief = gdbobj.Rs!Brief
        Sex = IIf(IsNull(gdbobj.Rs!Sex), "", gdbobj.Rs!Sex)
        BirthDate = IIf(IsNull(gdbobj.Rs!BirthDate), "", gdbobj.Rs!BirthDate)
        IDCard = IIf(IsNull(gdbobj.Rs!IDCard), "", gdbobj.Rs!IDCard)
        Marry = IIf(IsNull(gdbobj.Rs!Marry), "", gdbobj.Rs!Marry)
        Country = IIf(IsNull(gdbobj.Rs!Country), "", gdbobj.Rs!Country)
        Native = IIf(IsNull(gdbobj.Rs!Native), "", gdbobj.Rs!Native)
        Contactor = IIf(IsNull(gdbobj.Rs!Contactor), "", gdbobj.Rs!Contactor)
        relation = IIf(IsNull(gdbobj.Rs!relation), "", gdbobj.Rs!relation)
        ContactorAddr = IIf(IsNull(gdbobj.Rs!ContactorAddr), "", gdbobj.Rs!ContactorAddr)
        unit = IIf(IsNull(gdbobj.Rs!unit), "", gdbobj.Rs!unit)
        LcID = IIf(IsNull(gdbobj.Rs!LcID), "", gdbobj.Rs!LcID)
        LcDes = IIf(IsNull(gdbobj.Rs!LcDes), "", gdbobj.Rs!LcDes)
        Profession = IIf(IsNull(gdbobj.Rs!Profession), "", gdbobj.Rs!Profession)
        Addr = IIf(IsNull(gdbobj.Rs!Addr), "", gdbobj.Rs!Addr)
        BirthAddr = IIf(IsNull(gdbobj.Rs!BirthAddr), "", gdbobj.Rs!BirthAddr)
        Tel = IIf(IsNull(gdbobj.Rs!Tel), "", gdbobj.Rs!Tel)
        Zip = IIf(IsNull(gdbobj.Rs!Zip), "", gdbobj.Rs!Zip)
        PtID = IIf(IsNull(gdbobj.Rs!PtID), "", gdbobj.Rs!PtID)
        IfRegInfo = True
        If gdbobj.GetRs("SELECT SickInfo.*,m_Bed.BedNum,m_Depart.DepName,m_Doctor.DcName,sickMedInfo.* " _
            & " FROM ((SickInfo INNER JOIN m_Depart ON SickInfo.DepCode = m_Depart.DepCode)" _
            & " LEFT JOIN m_Bed ON SickInfo.BedID = m_Bed.BedID) " _
            & " LEFT JOIN m_Doctor ON SickInfo.dcCode = m_Doctor.DcCode " _
            & " LEFT JOIN sickMedInfo ON SickInfo.skserial = sickMedInfo.SkSerial " _
            & " WHERE (Status & 2) = 0 AND  SkID='" & vdata & "'") = 1 Then
            
            Num = gdbobj.Rs!Num
            DepCode = gdbobj.Rs!DepCode
            DepName = gdbobj.Rs!DepName
            DcCode = IIf(IsNull(gdbobj.Rs!DcCode), "", gdbobj.Rs!DcCode)
            DcName = IIf(IsNull(gdbobj.Rs!DcName), "", gdbobj.Rs!DcName)
            BedID = IIf(IsNull(gdbobj.Rs!BedID), "", gdbobj.Rs!BedID)
            BedNum = IIf(IsNull(gdbobj.Rs!BedNum), "", gdbobj.Rs!BedNum)
            InDate = gdbobj.Rs!InDate
            OutDate = IIf(IsNull(gdbobj.Rs!OutDate), "", gdbobj.Rs!OutDate)
            HdCode = IIf(IsNull(gdbobj.Rs!HdCode), "", gdbobj.Rs!HdCode)
            Fair = gdbobj.Rs!Fair
            PrePay = gdbobj.Rs!PrePay
            DisID = IIf(IsNull(gdbobj.Rs!DisID), "", gdbobj.Rs!DisID)
            DisDes = IIf(IsNull(gdbobj.Rs!DisDes), "", gdbobj.Rs!DisDes)
            InWay = IIf(IsNull(gdbobj.Rs!InWay), "", gdbobj.Rs!InWay)
            InCase = IIf(IsNull(gdbobj.Rs!InCase), "", gdbobj.Rs!InCase)
            mlngStatus = gdbobj.Rs!Status
        End If
        afair = 0
        If gdbobj.GetRs("Select *from sickArrear where skserial='" & SkSerial & "'") > 0 Then
            afair = IIf(IsNull(gdbobj.Rs!afair), 0, gdbobj.Rs!afair)
        End If
    Else
        IfRegInfo = False
    End If
End Property
Public Function Save(Optional UpFlag As DbOpType = HISDbInsert) As Boolean
    
On Error GoTo errlbl
    gdbobj.CNExe.BeginTrans
    Select Case UpFlag
        Case HISDbInsert
            Call gdbobj.DBExec("delete m_sickreginfo where skid='" & SkID & "'")
            Call gdbobj.DBExec("delete m_sickreginfoapd where skid='" & SkID & "'")
            If Not Update_m_SickRegInfo(HISDbInsert, SkID, Name, Brief, Sex, BirthDate, IDCard, Marry, _
                Country, Native, Contactor, relation, ContactorAddr, PtID) Then
                GoTo errlbl
            End If
            If Not Update_m_SickRegInfoApd(HISDbInsert, SkID, unit, LcID, Profession, Addr, BirthAddr, Tel, Zip) Then
                GoTo errlbl
            End If
        Case HISDBUpdate
            If Not Update_m_SickRegInfo(HISDBUpdate, , Name, Brief, Sex, BirthDate, IDCard, Marry, _
                Country, Native, Contactor, relation, ContactorAddr, PtID, UpdateCondition:="SkID = '" & SkID & "'") Then
                GoTo errlbl
            End If
            '预防有全空的情况??
            If Not Update_m_SickRegInfoApd(HISDBdelete, _
                UpdateCondition:="SkID = '" & SkID & "'") Then
                GoTo errlbl
            End If
            If Not Update_m_SickRegInfoApd(HISDbInsert, SkID, unit, LcID, Profession, Addr, BirthAddr, Tel, Zip) Then
                GoTo errlbl
            End If
        Case HISDBdelete
            If Not Update_m_SickRegInfo(HISDBdelete, _