Attribute VB_Name = "modMain"
Option Explicit

Public pclsUser As Object
'Public myClsBilling As Object
Public myclsbilling As clsBilling

Public ActiveConnection As New ADODB.Connection

 
Global Hospnum As String
Global IDNum As String
Global InOut As String
'

' For Post Charges
'Global Outpatient As New clsOutpatientSearch
'
'Global myClsBilling.MyclsPatient.inout As String
'
'Public DefaultDepartmentCode As String
'Public DefaultDepartmentDesc As String
'
Public DefaultRevenueCode As String
Public DefaultRevenueDesc As String
'
'Public ChildCount As Integer ' form count
'Public Report As CRAXDRT.Report
'
''---->>Hospital Info
'Global pclsuser.CompanyName As String     (Moved to MEDSYSCLASSES)
'Global pclsuser.CompanyAddress As String  (Moved to MEDSYSCLASSES)
'Global pstrPasswordSetting As String  (Moved to MEDSYSCLASSES)
'Global Const gblMessageBoxTitle = "Multi - Access"
'
''--->>Module Settings
'Global clsUserSetting As New clsUserSetting
'
Global isHmoRate As Boolean '-->allow the system to fetch RateH ( hmo rate ) from the build file  '
'Global AllowSingleRevenue As Boolean '--->> allow the system to use only one revenue per session (not yet programmed )
Global IsAllowAssessmentRateG As Boolean '-->> allow the system to use the RateG( cash rate ) for Assessment
Global IsShowLabSpecimen As Boolean
Global IsAllowShowDiscount As Boolean '--Allow giving discount on Post Charges
Global isAllowNewStatRate As Boolean '-->>Allow new computation on rates
'
''rates
Global isAllowAfterFivePMRate As Boolean '-->>Allow Higher rates by percentage after 5PM

Global isAllowAfterSixPMRate As Boolean

'Global isAllowNewMarkUpRates As Boolean '-->> allow the new setting for mark ups rates such as holiday, after 5pm, weekend, stat and combined mark ups
Global isAllowHolidayRate As Boolean '-->>Allow higher rates by percentage if holiday
Global isAllowWeekendRate  As Boolean '-->>Allow higher rates by percentage if weekend
Global isAllowAfterFiveLabChemOnly  As Boolean '-->>Allow 5pm rates for Lab Chem section
Global isAllowAfterFiveAllRevenues As Boolean '-->>Allow 5pm rates on all revenues
Global dtWeekendStartMarkup As String
Global dtWeekendEndMarkup As String
'Global blnHolidayRate As Boolean
Global blnWithDiscount As Boolean

Global HolidayRate As Double
Global AfterFivePmRate As Double
Global WeekendRate As Double
Global HolidayAndWeekendRate As Double
Global HolidayAndAfterFivePmRate As Double
Global AfterFiveAndWeekend As Double
Global MaxMarkupRate As Double

Global StatAndAfterFivePmRate As Double
Global StatAndWeekendRate As Double
   
Global dblStatRate As Double
    
       
''------FOR HOLIDAY RATE--------'
'Global myHolidayGreeting As String (Moved to MEDSYSCLASSES)
'Global myHolidayName As String     (Moved to MEDSYSCLASSES)
'Global isHolidayToday As Boolean   (Moved to MEDSYSCLASSES)
'
''---->>global variables
'Global strRevenueID As String '-->> intended for single revenue per session option
'Global blnCashAssessment As Boolean
Global blnPostCharge As Boolean
'
''Global mvarAdmNumber As String
''Global mvarHospNumber As String
''Global myClsBilling.MyclsPatient.inout As String
'
Global intDays As Integer
'Global strResultCode As String
Global strDept_ID As String
Global strLabSectionID As String  '--->> use for validation of mark up for specific lab exam
Global FirstRate As Double  '-->> store the first fetch rate before mark up
Public strLocationID As String
'Public myclsbilling.MyclsPatient.HMORoomClass As String '--->> for room classification
'Global fltDiscountRate As Double '--->> for computation of total amount after discount
Global isReprint As Boolean '-->> chargeslip reprinting
Global blnDR As Boolean
'Global TransactionDate As Date
''Public pclsuser.medsysclasses.Sstationname, pclsuser.medsysclasses.sstationid, mServer, mUserid, mPassword As String
'
Global gblSpecimenID As String
'Global pclsUser.CompanyName As String '  (Moved to MEDSYSCLASSES)
Global bln_Doctor As Boolean
'Public pstrHospitalMTS As String '  (Moved to MEDSYSCLASSES)
'Global myClsBilling.isAllowChargeChangeAmount As Boolean
'Global blnChargeFormActive As Boolean
'Global strAdmDate As String
'Global strDsdate As String

'Global blnIsPackage As Boolean
'Global strPackageID As String
Global blnIsStat As Boolean
Global mvarChargeSlip As String
'Global strgRevenueID As String
'Public pdCurDate As Date
Global isRequest As Boolean
Global strRequestDoctor As String
'Global strRequestNum As String
Global blnSpecializedItems As Boolean
'Global blnInquiry As Boolean
'Global myResultID As String
'Global strResultAmount As String
Global IsGeneric As Boolean
'
'Global Generic As Boolean
Global MasterFileTable As String
'Global UseDBName As String
'Global DeptName As String
'
'Global RefNum As String
'Global ORNum As String
'Global CMDept As String
'Global CMPatientName As String
Public strUserCode_Transaction As String
Public strUserName_Transaction As String
'
'---->>Transaction Entry
Global Const coCapitalize = 1
Global Const coNumericOnly = 2
Global Const coPositiveNumericOnly = 3
Global Const coAuditReport = 1
Global Const coIncomeReport = 2
Global Const coOPDIncomeReport = 3
Global Const coIPDIncomeReport = 4
Global Const coCashIncomeReport = 5
Global Const coStatistical = 6
Global Const coCompanyIn = 7
Global Const coCompanyOut = 8
'
'Global strLocationIDPH As String
'Global strLocationIDCS As String
'
'Global mvarHospNumber As String
'Global mvarAdmNumber As String
'
''--added for earning points
'Public blnEarnPoints As Boolean
'
'Public Registration As Object
'Public RegistrationRegistered As Boolean
'Public strAdm  As String
'Public strHosp  As String
'Public strPatientClass As String 'Selection ByLastName/ByIdnum
'Public strReceivablePatientClass As String
'
''Variables for Department Requesting 01.08.2016 Added
'
'Public pclsuser.medsysclasses.clsRequest As Object    'New clsRequest
'Public pclsuser.medsysclasses.clsResults As Object
'
Public blnCancelledRemarks As Boolean
'Public blnIsAMPickUp As Boolean
Public blnMoreSpecimen As Boolean
Public blnRequireRadioReason As Boolean
Public blnIsportable As Boolean
Public strTransplantDescription  As String
Public strDialysisDescription As String
Public blnUltra As Boolean
Public blnXray As Boolean
Public blnCT As Boolean
Public blnRequest As Boolean
Public blnClinical As Boolean
Public blnLab As Boolean
Public blnHeart As Boolean
Public blnPT As Boolean
Public blnNuclear As Boolean
Public blnPulmo As Boolean
'Public blnPatientexist As Boolean
'
'Public strAmount As String
'Public strStat As String
'Public strRemarks As String
'Public strPErases As String
Public strSpecimenID As String
Public strTransplant As String
Public strDialysis As String
Public strReason As String
Public strReaderID As String
Public strOncall As String
'Public strAccount As String
Public strRequestingDoctorCode As String
Public strRequestingDoctorName As String
Public sDoc As String
Public strSupervisorCode As String
Public strReasonForCancellation As String
Public strLBRequestNumber As String
Public strLBChargeSlipNumber As String
Global recAmount As New ADODB.Recordset
'Global rec As New ADODB.Recordset
Global strAccountNum As String
'Global myclsbilling.blnAllowCashCreditMemo As Boolean
'Global myClsBilling.isAllowZeroOnHand As Boolean
'Global myClsBilling.isAllowHMORate As Boolean
'Global myClsBilling.isAllowHMOPriceToAllPatients As Boolean
'Global myClsBilling.isAllowHmoSocializedPricing As Boolean
'

' from OPDReg

Public blnValidation As Boolean
'Public blnisAllowPromptApprovalNumEntry As Boolean
Global blnChargeFormActive As Boolean
Global WshShell As Object



Public Enum CodeType
    coAddress = 0
    coDoctor = 1
    coReligion = 2
    coCompany = 3
    coAccommodation = 4
    coAllergy = 5
    coDiet = 6
    coNationality = 7
    coRoom = 8
    coService = 9
    coStation = 10
    coAntibiotic = 11
    coAudExam = 12
    coCivilStatus = 13
    coCTExam = 14
    coCTFilm = 15
    coDosage = 16
    coHSExam = 17
    coLABExam = 18
    coLABSection = 19
    coNucExam = 20
    coOtherRevenue = 21
    coPackage = 22
    coPTExam = 23
    coRoomClass = 24
    coRTSExam = 25
    coTelephone = 26
    coUltraExam = 27
    coWorkStat = 28
    coXrayExam = 29
    coAmoeba = 30
    coSpecimen = 31
    coOva = 32
    coOLExam = 33
End Enum

Global recRevenuesOP As New ADODB.Recordset
Global recRevenuesCA As New ADODB.Recordset


Global recRevenuesLoaded As Boolean
Global recRevenuesLoadedCA As Boolean

Public Function UpCase(KeyAscii As Integer) As Integer
    If KeyAscii = 0 Then
        UpCase = 0
    Else
        UpCase = Asc(UCase$(Chr$(KeyAscii)))
    End If
End Function

Public Function userVerification() As String
    
    'On Error Resume Next
    If blnValidation = True Then
        'pclsUser.EmployeeCode = pclsUser.ValidateUserID(pclsUser.EmployeeCode)
        strUserCode_Transaction = pclsUser.employeecode
        strUserCode_Transaction = pclsUser.ValidateUserID(strUserCode_Transaction)
        
    Else
        strUserCode_Transaction = pclsUser.employeecode
    End If
    
    userVerification = strUserCode_Transaction
   
End Function

'Public Function Null2Space(vType As Variant) As String
'    If IsNull(vType) Then
'        vType = " "
'    Else
'        vType = CStr(vType)
'    End If
'    Null2Space = vType
'End Function




Public Function Null2Space(vType As Variant) As String
    If IsNull(vType) Then
        vType = " "
    Else
        vType = CStr(vType)
    End If
    Null2Space = vType
End Function