modprvglobal.bas

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

Attribute VB_Name = "modprvGlobal"
Option Explicit

Public Type TPSysConFig
    HospName As String
    NeedRegiForFigure As Boolean              '--
    LegalDaysForRegi As Integer '挂号有效期    --
    HdCode As String
    HdName As String
    DepCode As String
    DepName As String
    ItemCode As String
    HandleType As String '门诊、住院、全部
    DefaultUnit As Integer  ' 0 -- 西 包装 中 基本,1-- 西 基本 中 包装
    Status As Integer
    DefaultGetDrugDays As Integer
    AutoRevDepart As Boolean
    CanKeepBeyondFair As Boolean
    DebLimit As Currency
    VsStore As String
    VsStoreName As String
    DeFaultPatientID As Boolean
    ConFigureRev As Boolean  '划价收费是否一体
    IfDecStore As Boolean
    IFJudgeStore As Boolean '收费兼容
    VsADepCode As String '收费兼容
    VsBDepCode As String '收费兼容
    VsCDepCode As String '收费兼容
    WorkStationNum As String    '工作站编号(1位)
    IFAutoID As Boolean          '是否自动发病人号 在NeedRegiForFigure=False时起作用
    IFAutoIDByF6    As Boolean   'IFAutoID=False
    IfMustInputDoctor As Boolean
    OpDepCode As String     '手术室编码
    NotPrintRec As Boolean  '划价不打印
    PrintAttrCol As Boolean '打印划价单属性拦
    CanInputDrug As Integer
    ptIDyb As String        '医保类别编码
    DebLimityb As Currency  '医保病人限额
    MarkPrint As Boolean    '记帐确认后打印清单
    IfMark As Boolean       '允许药房记帐
    IFMarkFetch As Boolean  '记账时同时取药
    IfFetchList As Boolean  '取药病人列表ab
    EnableKeepFS As Boolean     '允许记帐输入负数
    IFFoot As Boolean
    AutoSheetID As Boolean  '自动单据号
    SheetName As String
    FootDay As Integer
    IFAllowNeg As Boolean
End Type
Global Const gstrMODULEID = "C"
Global Const gstrMODULEName = "药房管理系统"
Public gUnitobj As New clsDrugUnit
Public gPatientTypesObj As clsPatientTypes
Global gSickPatientTypesObj As clsSickPatientTypes
Global gSexObj As clsGenlCodes
Global gADVFreqsObj As clsADVFreqs
Global gADVUsagesObj As clsGenerals
Global gMarryObj As clsGenlCodes
Global gTsObj As clsDrugTS
Global gstrSheetID As String     '兼容收费模块