moddbuptable_inpati.bas

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

'--           BeginNurse ---->
'--           StopDate ---->
'--           StopDcCode ---->
'--           StopNurse ---->
'--           Des ---->
'--           ADVCatiID ---->
'--           ADVUsID ---->
'--           ADVFreqID ---->
'--           Flag ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年03月11日
'-----------------------------------------------------------------------
Public Function Update_ADVMain(ByVal UpdateFlag As DbOpType, _
                                          Optional ADVSerial As String = "", _
                                          Optional SkSerial As String = "", _
                                          Optional DepCode As String = "", _
                                          Optional RecordDate As String = "", _
                                          Optional BeginDate As String = "", _
                                          Optional EndDate = "", _
                                          Optional BeginDcCode As String = "", _
                                          Optional BeginNurse As String = "", _
                                          Optional StopDate = "", _
                                          Optional StopDcCode = "", _
                                          Optional StopNurse = "", _
                                          Optional Des As String = "", _
                                          Optional ADVCatiID As String = "", _
                                          Optional ADVUsID = "", _
                                          Optional ADVFreqID = "", _
                                          Optional Flag As Integer = -32767, _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "ADVMain"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "ADVSerial", ADVSerial, ""
    gDBFldsObj.Add "SkSerial", SkSerial, ""
    gDBFldsObj.Add "DepCode", DepCode, ""
    gDBFldsObj.Add "RecordDate", RecordDate, ""
    gDBFldsObj.Add "BeginDate", BeginDate, ""
    gDBFldsObj.Add "EndDate", EndDate, ""
    gDBFldsObj.Add "BeginDcCode", BeginDcCode, ""
    gDBFldsObj.Add "BeginNurse", BeginNurse, ""
    gDBFldsObj.Add "StopDate", StopDate, ""
    'DBFldsObj.Add "StopDcCode", StopDcCode, ""
    gDBFldsObj.Add "StopNurse", StopNurse, ""
    gDBFldsObj.Add "Des", Des, ""
    gDBFldsObj.Add "ADVCatiID", ADVCatiID, ""
    gDBFldsObj.Add "ADVUsID", ADVUsID, ""
    gDBFldsObj.Add "ADVFreqID", ADVFreqID, ""
    gDBFldsObj.Add "Flag", Flag, -32767

    Select Case UpdateFlag
        Case HISDbInsert
            StrSQL = gDBFldsObj.MakeInsertSQL
        Case HISDBdelete
            StrSQL = gDBFldsObj.MakeDeleteSQL
        Case HISDBUpdate
            StrSQL = gDBFldsObj.MakeUpdateSQL
    End Select
    If Not gdbobj.DBExec(StrSQL) Then
        Update_ADVMain = False
    Else
        Update_ADVMain = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(m_ADVFrequency)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           ADVFreqID ---->
'--           Des ---->
'--           Exp ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年03月11日
'-----------------------------------------------------------------------
Public Function Update_m_ADVFrequency(ByVal UpdateFlag As DbOpType, _
                                          Optional ADVFreqID As String = "", _
                                          Optional Des = "", _
                                          Optional exp = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "m_ADVFrequency"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "ADVFreqID", ADVFreqID, ""
    gDBFldsObj.Add "Des", Des, ""
    gDBFldsObj.Add "Exp", exp, ""

    Select Case UpdateFlag
        Case HISDbInsert
            StrSQL = gDBFldsObj.MakeInsertSQL
        Case HISDBdelete
            StrSQL = gDBFldsObj.MakeDeleteSQL
        Case HISDBUpdate
            StrSQL = gDBFldsObj.MakeUpdateSQL
    End Select
    If Not gdbobj.DBExec(StrSQL) Then
        Update_m_ADVFrequency = False
    Else
        Update_m_ADVFrequency = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(m_ADVUsage)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           UsID ---->
'--           Des ---->
'--           Brief ---->
'--           Flag ---->
'--           Comment ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年03月11日
'-----------------------------------------------------------------------
Public Function Update_m_ADVUsage(ByVal UpdateFlag As DbOpType, _
                                          Optional UsID As String = "", _
                                          Optional Des As String = "", _
                                          Optional Brief As String = "", _
                                          Optional Flag As Integer = -32767, _
                                          Optional Comment = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "m_ADVUsage"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "UsID", UsID, ""
    gDBFldsObj.Add "Des", Des, ""
    gDBFldsObj.Add "Brief", Brief, ""
    gDBFldsObj.Add "Flag", Flag, -32767
    gDBFldsObj.Add "Comment", Comment, ""

    Select Case UpdateFlag
        Case HISDbInsert
            StrSQL = gDBFldsObj.MakeInsertSQL
        Case HISDBdelete
            StrSQL = gDBFldsObj.MakeDeleteSQL
        Case HISDBUpdate
            StrSQL = gDBFldsObj.MakeUpdateSQL
    End Select
    If Not gdbobj.DBExec(StrSQL) Then
        Update_m_ADVUsage = False
    Else
        Update_m_ADVUsage = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(m_ADVUsageLinkItem)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           UsID ---->
'--           ItemCode ---->
'--           Amount ---->
'--           DepCode ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年03月11日
'-----------------------------------------------------------------------
Public Function Update_m_ADVUsageLinkItem(ByVal UpdateFlag As DbOpType, _
                                          Optional UsID As String = "", _
                                          Optional ItemCode As String = "", _
                                          Optional Amount As Double = -0.001, _
                                          Optional DepCode = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "m_ADVUsageLinkItem"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "UsID", UsID, ""
    gDBFldsObj.Add "ItemCode", ItemCode, ""
    gDBFldsObj.Add "Amount", Amount, -0.001
    gDBFldsObj.Add "DepCode", DepCode, ""

    Select Case UpdateFlag
        Case HISDbInsert
            StrSQL = gDBFldsObj.MakeInsertSQL
        Case HISDBdelete
            StrSQL = gDBFldsObj.MakeDeleteSQL
        Case HISDBUpdate
            StrSQL = gDBFldsObj.MakeUpdateSQL
    End Select
    If Not gdbobj.DBExec(StrSQL) Then
        Update_m_ADVUsageLinkItem = False
    Else
        Update_m_ADVUsageLinkItem = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(m_ItemForFix)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           DepCode ---->
'--           ItemCode ---->
'--           Flag ---->
'--           Comment ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年03月20日
'-----------------------------------------------------------------------
Public Function Update_m_ItemForFix(ByVal UpdateFlag As DbOpType, _
                                          Optional DepCode As String = "", _
                                          Optional ItemCode As String = "", _
                                          Optional Flag As Integer = -32767, _
                                          Optional Comment = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "m_ItemForFix"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "DepCode", DepCode, ""
    gDBFldsObj.Add "ItemCode", ItemCode, ""
    gDBFldsObj.Add "Flag", Flag, -32767
    gDBFldsObj.Add "Comment", Comment, ""

    Select Case UpdateFlag
        Case HISDbInsert
            StrSQL = gDBFldsObj.MakeInsertSQL
        Case HISDBdelete
            StrSQL = gDBFldsObj.MakeDeleteSQL
        Case HISDBUpdate
            StrSQL = gDBFldsObj.MakeUpdateSQL
    End Select
    If Not gdbobj.DBExec(StrSQL) Then
        Update_m_ItemForFix = False
    Else
        Update_m_ItemForFix = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(SickStatusHistory)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           SkSerial ---->
'--           Num ---->
'--           HdCode ---->
'--           ChangeDate ---->
'--           OldStatus ---->
'--           NewStatus ---->
'--           Comment ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年03月20日
'-----------------------------------------------------------------------
Public Function Update_SickStatusHistory(ByVal UpdateFlag As DbOpType, _
                                          Optional SkSerial As String = "", _
                                          Optional Num As Integer = -32767, _
                                          Optional HdCode As String = "", _
                                          Optional ChangeDate As String = "", _
                                          Optional OldStatus As Integer = -32767, _
                                          Optional NewStatus As Integer = -32767, _
                                          Optional Comment = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "SickStatusHistory"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "SkSerial", SkSerial, ""
    gDBFldsObj.Add "Num", Num, -32767
    gDBFldsObj.Add "HdCode", HdCode, ""
    gDBFldsObj.Add "ChangeDate", ChangeDate, ""
    gDBFldsObj.Add "OldStatus", OldStatus, -32767
    gDBFldsObj.Add "NewStatus", NewStatus, -32767
    gDBFldsObj.Add "Comment", Comment, ""

    Select Case UpdateFlag
        Case HISDbInsert
            StrSQL = gDBFldsObj.MakeInsertSQL
        Case HISDBdelete
            StrSQL = gDBFldsObj.MakeDeleteSQL
        Case HISDBUpdate
            StrSQL = gDBFldsObj.MakeUpdateSQL
    End Select
    If Not gdbobj.DBExec(StrSQL) Then
        Update_SickStatusHistory = False
    Else
        Update_SickStatusHistory = True
    End If
    Set gDBFldsObj = Nothing
End Function