clsinsfairsub.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 = "clsInsFairSub"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Public SkSerial As String '病人序列号
Public Num As Integer '费用结算周期序号
Public ChargeYear As String '费用年度
Public BeginDate As String '本段开始日期
Public EndDate As String '本段结束日期
Public TotalMoney As Currency '本段费用总金额
Public InMoney As Currency '医保内总金额
Public PreMoney As Currency '统筹支付金额
Public SelfMoney As Currency '统筹自付金额
Public MOPreMoney As Currency '大额／公务员支付金额
Public MOSelfMoney As Currency '大额／公务员自付金额
Public SelfTotalMoney As Currency '个人应付总金额