moddbuptable_inpati.bas

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

Attribute VB_Name = "modDbUPTable_Inpati"
Option Explicit
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(SickMedInfo)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           SkSerial ---->
'--           name ---->
'--           sex ---->
'--           iccard ---->
'--           idcard ---->
'--           bloodtype ---->
'--           medtype ---->
'--           sociaserial ---->
'--           areadcode ---->
'--           perfair ---->
'--           offsign ---->
'--           offdeal ---->
'--           fixhosp ---->
'--           inhosptype ---->
'--           specill---->
'--           specfixhosp ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年09月07日
'-----------------------------------------------------------------------
Public Function Update_Ins_SickRegInfoApd(ByVal UpdateFlag As DbOpType, _
                                          Optional SkID As String = "", _
                                          Optional Num As Integer = -32767, _
                                          Optional medtype As String = "", _
                                          Optional AreaCode As String = "", _
                                          Optional AccountMoney As Currency = -0.001, _
                                          Optional FixHosp As String = "", _
                                          Optional inhosptype As String = "", _
                                          Optional InHospStyle As String = "", _
                                          Optional SpecIllFixHosp As String = "", _
                                          Optional SpecFixHospSign As String = "", _
                                          Optional SpecIllType As String = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "ins_SickregInfoApd"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "Skid", SkID, ""
    gDBFldsObj.Add "num", Num, ""
    gDBFldsObj.Add "medtype", medtype, ""
    gDBFldsObj.Add "chargeareacode", AreaCode, ""
    gDBFldsObj.Add "peraccountmoney", AccountMoney, ""
    gDBFldsObj.Add "fixhosp", FixHosp, ""
    gDBFldsObj.Add "inhosptype", inhosptype, ""
    gDBFldsObj.Add "inhospstyle", InHospStyle, ""
    gDBFldsObj.Add "specillfixhosp", SpecIllFixHosp, ""
    gDBFldsObj.Add "specilltype", SpecIllType, ""
    gDBFldsObj.Add "specfixhospsign", SpecFixHospSign, ""

    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_Ins_SickRegInfoApd = False
    Else
        Update_Ins_SickRegInfoApd = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(SickMedInfo)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           iccard ---->
'--           medtype ---->
'--           inhospdate ---->
'--           outhospdate ---->
'--           inhosptype ---->
'--           outhosptype ---->
'--           totalfair ---->
'--           socialpayfair ---->
'--           muchpayfair ---->
'--           perselfpay ---->
'--           selfpayfair ---->
'--           topinfair ---->
'--           flag ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年09月07日
'-----------------------------------------------------------------------
Public Function Update_Ins_Inpati_PerFairRecord(ByVal UpdateFlag As DbOpType, _
                                          Optional IcCard As String = "", _
                                          Optional medtype As String = "", _
                                          Optional inhospdate As String = "", _
                                          Optional outhospdate As String = "", _
                                          Optional inhosptype As String = "", _
                                          Optional outhosptype As String = "", _
                                          Optional TotalFair As Currency = -0.001, _
                                          Optional SocialPayFair As Currency = -0.001, _
                                          Optional MuchPayFair As Currency = -0.001, _
                                          Optional PerSelfPay As Currency = -0.001, _
                                          Optional SelfPayFair As Currency = -0.001, _
                                          Optional TopInFair As Currency = -0.001, _
                                          Optional Flag As String = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "Ins_Inpati_PerFairRecord"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "iccard", IcCard, ""
    gDBFldsObj.Add "medtype", medtype, ""
    gDBFldsObj.Add "inhospdate", inhospdate, ""
    gDBFldsObj.Add "outhospdate", outhospdate, ""
    gDBFldsObj.Add "inhosptype", inhosptype, ""
    gDBFldsObj.Add "outhosptype", outhosptype, ""
    gDBFldsObj.Add "totalfair", TotalFair, ""
    gDBFldsObj.Add "socialpayfair", SocialPayFair, ""
    gDBFldsObj.Add "muchpayfair", MuchPayFair, ""
    gDBFldsObj.Add "perselfpay", PerSelfPay, ""
    gDBFldsObj.Add "selfpayfair", SelfPayFair, ""
    gDBFldsObj.Add "topinfair", TopInFair, ""
    gDBFldsObj.Add "flag", Flag, ""
    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_Ins_Inpati_PerFairRecord = False
    Else
        Update_Ins_Inpati_PerFairRecord = True
    End If
    Set gDBFldsObj = Nothing
End Function
'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(SickMedInfo)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           SkSerial ---->
'--           name ---->
'--           sex ---->
'--           iccard ---->
'--           idcard ---->
'--           bloodtype ---->
'--           medtype ---->
'--           sociaserial ---->
'--           areadcode ---->
'--           perfair ---->
'--           offsign ---->
'--           offdeal ---->
'--           fixhosp ---->
'--           inhosptype ---->
'--           specill---->
'--           specfixhosp ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年09月07日
'-----------------------------------------------------------------------
Public Function Update_Ins_SickRegInfo(ByVal UpdateFlag As DbOpType, _
                                          Optional SkID As String = "", _
                                          Optional Name As String = "", _
                                          Optional Sex As String = "", _
                                          Optional IcCard As String = "", _
                                          Optional IDCard As String = "", _
                                          Optional bloodtype As String = "", _
                                          Optional sociserial As String = "", _
                                          Optional offsign = "", _
                                          Optional offdeal As String = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "ins_SickregInfo"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "Skid", SkID, ""
    gDBFldsObj.Add "name", Name, ""
    gDBFldsObj.Add "sex", Sex, ""
    gDBFldsObj.Add "iccard", IcCard, ""
    gDBFldsObj.Add "idcard", IDCard, ""
    gDBFldsObj.Add "bloodtype", bloodtype, ""
    gDBFldsObj.Add "socialid", sociserial, ""
    gDBFldsObj.Add "ifofficial", offsign, ""
    gDBFldsObj.Add "officialdeal", offdeal, ""

    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_Ins_SickRegInfo = False
    Else
        Update_Ins_SickRegInfo = True
    End If
    Set gDBFldsObj = Nothing
End Function

'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(SickMedInfo)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           SkSerial ---->
'--           InCase ---->
'--           InWay ---->
'--           DisID ---->
'--           DisDes ---->
'--           OutWay ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年09月07日
'-----------------------------------------------------------------------
Public Function Update_SickMedInfo(ByVal UpdateFlag As DbOpType, _
                                          Optional SkSerial As String = "", _
                                          Optional InCase = "", _
                                          Optional InWay = "", _
                                          Optional DisID = "", _
                                          Optional DisDes = "", _
                                          Optional OutWay = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "SickMedInfo"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "SkSerial", SkSerial, ""
    gDBFldsObj.Add "InCase", InCase, ""
    gDBFldsObj.Add "InWay", InWay, ""
    gDBFldsObj.Add "DisID", DisID, ""
    gDBFldsObj.Add "DisDes", DisDes, ""
    gDBFldsObj.Add "OutWay", OutWay, ""

    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_SickMedInfo = False
    Else
        Update_SickMedInfo = True
    End If
    Set gDBFldsObj = Nothing
End Function

'-----------------------------------------------------------------------
'--     功能：插入、删除、更新表(m_Bed)
'--     参数：
'--           UpdateFlag  ----> 更新标志
'--           BedID ---->
'--           DepCode ---->
'--           BedNum ---->
'--           ItemCode ---->
'--           Flag ---->
'--           Comment ---->
'--           UpdateCondition  ----> 更新时指定的条件
'--     返回制：TRUE 成功
'--             FALSE 失败
'--     产生日期：2000年03月06日
'-----------------------------------------------------------------------
Public Function Update_m_Bed(ByVal UpdateFlag As DbOpType, _
                                          Optional BedID As String = "", _
                                          Optional DepCode As String = "", _
                                          Optional BedNum As String = "", _
                                          Optional ItemCode = "", _
                                          Optional Flag As Integer = -32767, _
                                          Optional Comment = "", _
                                          Optional UpdateCondition As String = "") As Boolean
    Dim StrSQL As String

    Set gDBFldsObj = New clsDBFields
    gDBFldsObj.TableName = "m_Bed"
    gDBFldsObj.UpdateCondition = UpdateCondition
    gDBFldsObj.Add "BedID", BedID, ""
    gDBFldsObj.Add "DepCode", DepCode, ""
    gDBFldsObj.Add "BedNum", BedNum, ""
    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