Attribute VB_Name = "modSysConstants"
Option Explicit

Public Const cHospitalGeneralInformation As String = "I. Hospital General Information"
Public Const cAllocationOfBeds As String = "I.3.4 Allocation of Beds"
Public Const cLaboratoryServices As String = "I.9 Laboratory Services"
'Public Const cSummaryofPatients As String = "II.1 Summary of Patients in the Hospital"
Public Const cSummaryofPatients As String = "II. Hospital Operations. A.Summary of Patients in the Hospital"
'Public Const cServicesRenderedInpatient As String = "II.2.1 Services Rendered (Inpatient)"
Public Const cServicesRenderedInpatient As String = "II. Hospital Operations. B. Discharges"
Public Const cALOS As String = "II. B.1. Average Length of Stay (ALOS)"
Public Const c10LeadingCausesOfMorbidity As String = "II. B.2. Top 10 Leading Causes of Morbidity"
'Public Const cNumberOfDeliveries As String = "II.4 No. of Deliveries"
Public Const cDeliveriesAndOutpatientVisit As String = "II. B.3 Total Number of Deliveries and B.4 Outpatient Visits"
Public Const cERTestingAndOthers As String = "II. B.4 Emergency Visits, Testing, Other Services and Diseases Seen"
Public Const cAbortion As String = "II.5 Abortion"
Public Const cDeath As String = "II.6 Death"
'Public Const c10LeadingCausesOfMortality As String = "II.7.2 Top 20 Leading Causes of Mortality"
Public Const c10LeadingCausesOfMortality As String = "II. C. Deaths 3.Top 10 Leading Causes of Mortality"
Public Const cSurgicalOperations As String = "II.8 Surgical Operations"
Public Const c10LeadingMajorOperations As String = "II.9.1 10 Leading Major Operations"
Public Const c10LeadingMinorOperations As String = "II.9.2 10 Leading Minor Operations"
'Public Const c10LeadingCausesOfEmergencyCases As String = "II.9.3 10 Leading Causes of Emergency Cases"
Public Const c10LeadingCausesOfEmergencyCases As String = "II.9.3 10 Leading Causes of Emergency Cases(OLD)"
Public Const cServicesRenderedOutpatient As String = "II.10.3 Services Rendered (Outpatient)"
'Public Const cLeadingCausesOfConsultation As String = "III.11.4 Leading Causes of Consultation (OPD)"
Public Const cLeadingCausesOfConsultation As String = "III.11.4 Leading Causes of Consultation (OPD)(OLD)"
'Public Const cDeathNew As String = "III Death"
Public Const cDeathNew As String = "II. C. Deaths"
Public Const cHAI As String = "II. D. Health Associated Infections"
Public Const cSurgicalProc As String = "II. E. Surgical Operations"

'Public Const c10LeadingCausesOfMorbidityChildren As String = "II.3.1 Top 20 Leading Causes of Morbidity : 0 - 6 Years Old"
'Public Const c10LeadingCausesOfMortalityChildren As String = "II.7.1 Top 20 Leading Causes of Mortality : 0 - 6 Years Old"
'Public Const c10LeadingCausesOfMortalityNewBorn As String = "II.7.2 Top 20 Leading Causes of Mortality : NewBorn 0 - 28 Days Old"

''VBB 12.12
'Public Const c10LeadingCausesOfMorbidityGroupChildren As String = "II.3.3 Leading Causes of Morbidity : 0 - 5 Years Old (Group)"
'Public Const c10LeadingCausesOfMorbidityGroup As String = "II.3.4 Leading Causes of Morbidity (Group)"
'Public Const c10LeadingCausesOfMortalityGroupChildren As String = "III.4.5 Leading Causes of Mortality : 0 - 5 Years Old (Group)"
'Public Const c10LeadingCausesOfMortalityGroup As String = "III.4.6 Leading Causes of Mortality (Group)"
''Public COnst c10LeadingCausesOfMorbidityGroup

'Public Const cHospitalGeneralInformationSP As String = "I. Hospital General Information"
Public Const cAllocationOfBedsSP As String = "sp_DOH_Upload_SectionI34"
Public Const cLaboratoryServicesSP As String = "sp_DOH_Upload_SectionI9"
Public Const cSummaryofPatientsSP As String = "sp_DOH_Upload_SectionII1"
Public Const cServicesRenderedInpatientSP As String = "sp_DOH_Upload_SectionII21"
Public Const cALOSSP As String = "sp_DOH_Upload_SectionII22"
Public Const c10LeadingCausesOfMorbiditySP As String = "sp_DOH_Upload_SectionII3"
'Public Const cNumberOfDeliveriesSP As String = "sp_DOH_Upload_SectionII4"
Public Const cDeliveriesAndOutpatientVisitSP As String = "sp_DOH_Upload_DeliveriesAndOutpatientVisits"
Public Const cERTestingAndOthersSP As String = "sp_DOH_Upload_ERTestingAndOthers"
Public Const cAbortionSP As String = "sp_DOH_Upload_SectionII5"
Public Const cDeathSP As String = "sp_DOH_Upload_SectionII6"
Public Const c10LeadingCausesOfMortalitySP As String = "sp_DOH_Upload_SectionII7"
Public Const cSurgicalOperationsSP As String = "sp_DOH_Upload_SectionII8"
Public Const c10LeadingMajorOperationsSP As String = "sp_DOH_Upload_SectionII91"
Public Const c10LeadingMinorOperationsSP As String = "sp_DOH_Upload_SectionII92"
Public Const c10LeadingCausesOfEmergencyCasesSP As String = "sp_DOH_Upload_SectionII103"
Public Const cServicesRenderedOutpatientSP As String = vbNullString '"sp_DOH_Upload_SectionIII113" 'Wala ang SP na ito
Public Const cLeadingCausesOfConsultationSP As String = "sp_DOH_Upload_SectionIII114"
Public Const cDeathSPNew As String = "sp_DOH_Upload_SectionIII"
Public Const cHAISP As String = "sp_DOH_Upload_HealthAssociatedInf"
Public Const cSurgicalProcSP As String = "sp_DOH_Upload_SurgicalProcedure"

'Public Const c10LeadingCausesOfMorbidityChildrenSP As String = "sp_DOH_Upload_SectionII3A"
'Public Const c10LeadingCausesOfMortalityChildrenSP As String = "sp_DOH_Upload_SectionII7A"
'Public Const c10LeadingCausesOfMortalityNewBornSP As String = "sp_DOH_Upload_SectionII7B"

''VBB 12.13.11
'Public Const c10LeadingCausesOfMorbidityGroupChildrenSP As String = "sp_DOH_Upload_SectionII33"
'Public Const c10LeadingCausesOfMorbidityGroupSP As String = "sp_DOH_Upload_SectionII34"
'Public Const c10LeadingCausesOfMortalityGroupChildrenSP As String = "sp_DOH_Upload_SectionIII45"
'Public Const c10LeadingCausesOfMortalityGroupSP As String = "sp_DOH_Upload_SectionIII46"


Public Const cHospitalGeneralInformationReportFile As String = "rptNewDOHHospitalGeneralInformation.rpt"
Public Const cAllocationOfBedsReportFile As String = "rptNewDOHBedOccupancyRate.rpt"
Public Const cLaboratoryServicesReportFile As String = "rptNewDOHLaboratoryServices.rpt"
Public Const cSummaryofPatientsReportFile As String = "rptNewDOHSummaryOfPatientsInHospital.rpt"
Public Const cServicesRenderedInpatientReportFile As String = "rptNewDOHInpatientDischargesByService.rpt"
'Public Const cALOSReportFile As String = "II.2.2 Average Length of Stay (ALOS)" ''rptNewDOHALOSAndMorbidity
Public Const cALOSReportFile As String = "rptNewDOHALOSAndMorbidity.rpt"
Public Const c10LeadingCausesOfMorbidityReportFile As String = "rptNewDOHLeadingCausesOfMorbidity.rpt"
'Public Const cNumberOfDeliveriesReportFile As String = "rptNewDOHDeliveries.rpt"
Public Const cDeliveriesAndOutpatientVisitReportFile As String = "rptDeliveriesAndOutpatientVisits.rpt"
Public Const cERTestingAndOthersReportFile As String = "rptERTestingAndOthers.rpt"
Public Const cAbortionReportFile As String = "II.5 Abortion"
Public Const cDeathReportFile As String = "rptNewDOHDeaths.rpt"
Public Const c10LeadingCausesOfMortalityReportFile As String = "rptNewDOHLeadingCausesOfMortality.rpt"
Public Const cSurgicalOperationsReportFile As String = "rptNewDOHSurgicalOperationsByMedicareType.rpt"
Public Const c10LeadingMajorOperationsReportFile As String = "rptNewDOHTop10LeadingMajorOperation.rpt"
Public Const c10LeadingMinorOperationsReportFile As String = "rptNewDOHTop10LeadingMinorOperation.rpt"
Public Const c10LeadingCausesOfEmergencyCasesReportFile As String = "rptNewDOHLeadingCausesOfERCases.rpt"
Public Const cServicesRenderedOutpatientReportFile As String = "III.11.3 Services Rendered (Outpatient)"
Public Const cLeadingCausesOfConsultationReportFile As String = "rptNewDOHLeadingCausesOfOPDConsultations.rpt"
Public Const cDeathNewReportFile As String = "rptNewDOHDeathsNew.rpt"
Public Const cHAIReportFile As String = "rtpHealthAssociatedInf.rpt"
Public Const cSurgicalProcFile As String = "rptSurgicalProcedure.rpt"

'Public Const c10LeadingCausesOfMorbidityChildrenReportFile As String = "rptNewDOHLeadingCausesOfMorbidityA.rpt"
'Public Const c10LeadingCausesOfMortalityChildrenReportFile As String = "rptNewDOHLeadingCausesOfMortalityA.rpt"
'Public Const c10LeadingCausesOfMortalityNewBornReportFile As String = "rptNewDOHLeadingCausesOfMortalityB.rpt"

''VBB 12.12.11
'Public Const c10LeadingCausesOfMorbidityGroupChildrenReportFile As String = "rptNewDOHLeadingCausesOfMorbidityChildrenGroup.rpt"
'Public Const c10LeadingCausesOfMorbidityGroupReportFile As String = "rptNewDOHLeadingCausesOfMorbidityGroup.rpt"
'Public Const c10LeadingCausesOfMortalityGroupChildrenReportFile As String = "rptNewDOHLeadingCausesOfMortalityChildrenGroup.rpt"
'Public Const c10LeadingCausesOfMortalityGroupReportFile As String = "rptNewDOHLeadingCausesOfMortalityGroup.rpt"


'Used at modApp
Public Const cOutOfDataArea As Long = -1
Public Const cListNoIndex As Long = -1
Public Const cDefaultItemIndex As Long = 0
Public Const cListNoItems As Long = 0
Public Const cTreeParentNodeIndex As Long = 1
Public Const cTreeFirstChildNodeIndex As Long = 2

'GCSP Document Type Extensions
Public Const cDataPortExt As String = ".XML"
Public Const cPEXMLExt As String = "-L.XML"
Public Const cPEXLTExt As String = ".XLT"
Public Const cVBProjectGroupExt As String = ".VBG"
Public Const cVBProjectExt As String = ".VBP"
Public Const cVBFormExt As String = ".FRM"
Public Const cVBClassExt As String = ".CLS"
Public Const cCOBOLAppExt As String = ".CBL"
Public Const cWordDocuExt As String = ".DOC"
Public Const cExcelDocuExt As String = ".XLS"
Public Const cEXEExt As String = ".EXE"
Public Const cVBModuleExt As String = ".BAS"
Public Const cTextExt As String = ".TXT"
Public Const cINIExt As String = ".INI"

Public Const cGCSPFormApp As String = "VB6\APP"
Public Const cGCSPBOApp As String = "VB6\ACTIVEX\BO"
Public Const cSystem1App As String = "CBL\LEGACY"
Public Const cCoreBuildApp As String = "VB6\CORE\BUILD"
Public Const cCoreApp As String = "VB6\CORE"
Public Const cGCSPCommonFilesFolder As String = "VB6\COMMON"
Public Const cGCSPDocumentFilesFolder As String = "VB6\DOC"

'Used in concatenating condition in SQL statements
Public Const cEqEqual As String = "="
Public Const cEqNotEqual As String = "<>"
Public Const cEqGreater As String = ">"
Public Const cEqLess As String = "<"
Public Const cEqGTE As String = ">="
Public Const cEqLTE As String = "<="
Public Const cEqLike As String = "Like"
Public Const cEqNotlike As String = "Not Like"

'Used for Selection button and LookUp
Public Const cEqWordAll As String = "All"
Public Const cEqWordRange As String = "Range"
Public Const cEqWordEqual As String = "Equal"
Public Const cEqWordNotEqual As String = "Not Equal"
Public Const cEqWordGreater As String = "Greater Than"
Public Const cEqWordLess As String = "Less Than"
Public Const cEqWordGTE As String = "Greater Than or Equal To"
Public Const cEqWordLTE As String = "Less Than or Equal To"
Public Const cEqWordStarting As String = "Starting"
Public Const cEqWordEnding As String = "Ending"

'Color Palette
Public Const cLightBlue As String = &HFFCE9C
Public Const cDarkGray As String = &HC0C0C0

'Key Constants
Public Const cLookUpKey As Long = vbKeyF1

Public Const cAllBugs As String = "(All Bugs)"
Public Const cAllList As String = "(All)"

Public Const cNonProject As String = "Non-Project Bugs"

Public Enum GDltkUIStateEnum
    UIReady = 0
    UIAdd
    UIBrowse
    UIChange
    UISearch
End Enum

Public Const cQueryForAdd As String = "Do you want to add the current record?"
Public Const cQueryForDelete As String = "Are you sure you want to delete this record?"
Public Const cQueryForSave As String = "Do you want to save your changes to the current record?"

'Track Severity Constants
Public Const cTrackSevLow As String = "4 LOW"
Public Const cTrackSevMedium As String = "3 MEDIUM"
Public Const cTrackSevHigh As String = "2 HIGH"
Public Const cTrackSevFatal As String = "1 FATAL"
Public Const cTrackSevEnhance As String = "6 ENHANCE"
Public Const cTrackSevNewFeature As String = "5NEWFEATURE"
Public Const cTrackSevInternal As String = "7 INTERNAL"

'Track Status Constants
Public Const cTrackStatusOpen As String = "OPEN"
Public Const cTrackStatusReturned As String = "RETURNED"
Public Const cTrackStatusRejected As String = "REJECTED"
Public Const cTrackStatusReview As String = "REVIEW"
Public Const cTrackStatusClosed As String = "CLOSED"
Public Const cTrackStatusMakatiQC As String = "MAKATIQC"
Public Const cTrackStatusRepaired As String = "REPAIRED"

'Angelo
'Old constant value
'Public Const cTrackStatusCodeReview As String = "CODEREVIEWED"
'Recent constant value
Public Const cTrackStatusCodeReview As String = "CODE REVIEWED"

Public Const cWaitFormName As String = "frmWaitMessage"
Public Const cMaximizedWindowStartUp As String = "MAX"

Public Const cStringDelimeter As String = "|"

Public Enum SSTabEnum
    cTabList = 0
    cTabDetails
    cTabStatus
End Enum

'Query Manager Field Names
Public Const cQMField As String = "FIELD"
Public Const cQMEquation As String = "EQUATION"
Public Const cQMGlobal As String = "GLOBAL"
Public Const cQMClientReportedOnly As String = "CLIENTREPORTEDONLY"
Public Const cQMStartingValue As String = "STARTINGVALUE"
Public Const cQMEndingValue As String = "ENDINGVALUE"
Public Const cQMProject As String = "PROJECT"
Public Const cQMDeveloper As String = "DEVELOPER"
Public Const cQMRelCandidate As String = "RELCANDIDATE"
Public Const cQMPrimaryID As String = "PRIMARYID"
Public Const cQMQueryTitle As String = "QUERYTITLE"
Public Const cQMQueryType As String = "QUERYTYPE"
Public Const cQMFieldsToDisplay As String = "FIELDSTODISPLAY"
Public Const cQMFieldsToSortBy As String = "FIELDSTOSORTBY"

Public Const cQMModule As String = "MODULE"

'Public Const cQMClientReported As String = "CUST_RPTD"
'Public Const cQMSubmitter As String = "SUBMITTER"
'Public Const cQMApp As String = "APP"
'Public Const cQMStatus As String = "STATUS"
'Public Const cQMSeverity As String = "SEVERITY"
'Public Const cQMQC As String = "QC"
'Public Const cQMSynopsis As String = "SYNOPSIS"
'Public Const cQMBehavior As String = "INVALID_BEHAVIOR1"
'Public Const cQMComments As String = "COMMENTS1"
'Public Const cQMClientID As String = "CLIENTID"
'Public Const cQMRelease As String = "RELEASE"
'Public Const cQMHotFix As String = "HOTFIX"
'Public Const cQMServicePack As String = "SVCPK"
'Public Const cQMCodeChanged As String = "CODE_CHANGED"
'Public Const cQMOpened As String = "OPENED"
'Public Const cQMRepaired As String = "REPAIRED"
'Public Const cQMClosed As String = "CLOSED"

'Public Const cQMAssignTo As String = "ASSIGNTO"
'Public Const cQMDocChange As String = "DocChng"

Public Const cQMTitle As String = "TITLE"

'Track Bugs Field Names
Public Const cMyHeroSubmitter As String = "Submitter"
Public Const cMyHeroAssignTo As String = "AssignTo"
Public Const cMyHeroStatus As String = "Status"
Public Const cMyHeroApp As String = "App"
Public Const cMyHeroSeverity As String = "Severity"
Public Const cMyHeroClientReported As String = "Cust_Rptd"
Public Const cMyHeroRelease As String = "Release"
Public Const cMyHeroServicePack As String = "SvcPk"
Public Const cMyHeroHotFix As String = "HotFix"
Public Const cMyHeroDocChange As String = "DocChng"
Public Const cMyHeroDetail As String = "Invalid_Behavior1"
Public Const cMyHeroClientID As String = "ClientID"
Public Const cMyHeroDateRepaired As String = "Repaired"
Public Const cMyHeroDateOpened As String = "Opened"
Public Const cMyHeroDateClosed As String = "Closed"
Public Const cMyHeroComments As String = "Comments1"
Public Const cMyHeroBugNo As String = "Bug_No"

'<Code here: place constants not included>
Public Const cMyHeroProcessFlag As String = "ProcFlag"
Public Const cMyHeroQC As String = "QC"
Public Const cMyHeroSynopsis As String = "Synopsis"
Public Const cMyHeroCodeChanged As String = "Code_Changed"

'</Code here: place constants not included>


'Track web site field names
Public Const cTrackSubmitter As String = "Submitter"
Public Const cTrackAssignTo As String = "AssignTo"
Public Const cTrackStatus As String = "Status"
Public Const cTrackApp As String = "AppName"
Public Const cTrackSeverity As String = "Severity"
Public Const cTrackClientReported As String = "CustRptd"
Public Const cTrackRelease As String = "Release"
Public Const cTrackServicePack As String = "SvcPk"
Public Const cTrackHotFix As String = "HotFix"
Public Const cTrackDocChange As String = "DocChng"
Public Const cTrackDetail As String = "Detail"
Public Const cTrackClientID As String = "ClienID"
Public Const cTrackDateRepaired As String = "DtRepair"
Public Const cTrackDateOpened As String = "SubmitDt"
Public Const cTrackDateClosed As String = "ClosedOn"
Public Const cTrackComments As String = "DevNotes"
Public Const cTrackBugNo As String = "BugID"



Public Const cNoAccessToBO As String = "You don't have access to the data object of this form."
Public Const cNoConnectionToBO As String = "The program cannot establish a connection to the database." & vbCrLf & _
                                                                  "Make sure the local and server data paths are correct."


Public Enum UITypeEnum
    cUITypeNormal = 0
    cUITypeControlFile
    cUITypeMultiRecord
    cUITypeConfirmation
End Enum

'MDI ToolBar constant (Be careful when editing.)
'Alphabetically arranged. Case sensitive.
Public Const cMenuAbout As String = "ID_About"
Public Const cMenuAddNewLine As String = "ID_Addnewline"
Public Const cMenuAccept As String = "ID_Accept"
Public Const cMenuCalculator As String = "ID_Calculator"
Public Const cMenuCalendar As String = "ID_Calendar"
Public Const cMenuCancel As String = "ID_Cancel"
Public Const cMenuClientReported As String = "ID_ClientReported"
Public Const cMenuClone As String = "ID_Clone"
Public Const cMenuCloseForm As String = "ID_CloseForm"
Public Const cMenuCodeAudit As String = "ID_CodeAudit"
Public Const cMenuCodeAuditTB As String = "ID_CodeAuditTB"
Public Const cMenuCopyLine As String = "ID_Copyline"
Public Const cMenuDeadlineTimer As String = "ID_DeadLineTimer"
Public Const cMenuDeadlineTimerTB As String = "ID_DeadLineTimerTB"
Public Const cMenuDelete As String = "ID_Delete"
Public Const cMenuDeleteLine As String = "ID_Deleteline"
Public Const cMenuDisplayColumns As String = "ID_DisplayColumns"
Public Const cMenuEdit As String = "ID_Edit"
Public Const cMenuExit As String = "ID_Exit"
Public Const cMenuFilterColumns As String = "ID_FilterColumns"
Public Const cMenuFile As String = "ID_File"
Public Const cMenuFind As String = "ID_Find"
Public Const cMenuGCSPExplorer As String = "ID_GCSPExplorer"
Public Const cMenuHelp As String = "ID_Help"
Public Const cMenuHelpTopic As String = "ID_HelpTopic"
Public Const cMenuHoliday As String = "ID_Holiday"
Public Const cMenuInitialTesting As String = "ID_InitialTesting"
Public Const cMenuInitialTestingTB As String = "ID_InitialTestingTB"
Public Const cMenuInvestigation As String = "ID_Investigation"
Public Const cMenuInvestigationTB As String = "ID_InvestigationTB"
Public Const cMenuLookUp As String = "ID_Lookup"
Public Const cMenuNew As String = "ID_New"
Public Const cMenuMyHeroReader As String = "ID_MyHeroReader"
Public Const cMenuMyHeroReaderTB As String = "ID_MyHeroReaderTB"
Public Const cMenuNext As String = "ID_Next"
Public Const cMenuOpen As String = "ID_Open"
Public Const cMenuPrevious As String = "ID_Previous"
Public Const cMenuPrintPreview As String = "ID_OutputToExcel"
Public Const cMenuPasteLine As String = "ID_Pasteline"
Public Const cMenuLeave As String = "ID_PlannedLeave"
Public Const cMenuProgram As String = "ID_Program"
Public Const cMenuProject As String = "ID_Project"
Public Const cMenuProjectTB As String = "ID_ProjectTB"
Public Const cMenuQuickOpen As String = "ID_QuickOpen"
Public Const cMenuReject As String = "ID_Reject"
Public Const cMenuRefresh As String = "ID_Refresh"
Public Const cMenuReturns As String = "ID_Returns"
Public Const cMenuSave As String = "ID_Save"
Public Const cMenuSearchFile As String = "ID_SearchFile"
Public Const cMenuSearchFileTB As String = "ID_SearchFileTB"
Public Const cMenuSend As String = "ID_Send"
Public Const cMenuSettingGen As String = "ID_SettingGen"
Public Const cMenuSettingRF As String = "ID_SettingRF"
Public Const cMenuSettingRCW As String = "ID_SettingRCW"
Public Const cMenuSettings As String = "ID_Settings"
Public Const cMenuSOS As String = "ID_SOS"
Public Const cMenuStatistics As String = "ID_Statistics"
Public Const cMenuTools As String = "ID_Tools"
Public Const cMenuTrackSQLStatement As String = "ID_TrackSQL"
Public Const cMenuTrackWeb As String = "ID_Trackweb"
Public Const cMenuUpdateTrack As String = "ID_UpdateTrackBugs"
Public Const cMenuView As String = "ID_View"
Public Const cMenuViewApps As String = "ID_ViewApps"
Public Const cMenuViewBugs As String = "ID_ViewBugs"

Public Const cXMLColumnTag  As String = "COLUMN"

'Quick Fix Constants
'It is assumed that this is the last line from the .FRM before the "code".
Public Const cLastLineOfFormDeclaration As String = "Attribute VB_Exposed"

Public Enum QFSearchModeEnum
    cQFSearchMissing = 0
    cQFSearchExisting
End Enum

Public Enum QFSearchCriteriaEnum
    cQFContainingText = 0
    cQFRequiredCondition
End Enum

Public Const cQFSub As String = "Sub "
Public Const cQFFunction As String = "Function "
Public Const cQFPublicSub As String = "Public Sub "
Public Const cQFPublicFunction As String = "Public Function "
Public Const cQFPrivateSub As String = "Private Sub "
Public Const cQFPrivateFunction As String = "Private Function "

Public Const cQFLocationDirectory As String = "Directory"
Public Const cQFLocationFileExtension As String = "File Extension"
Public Const cQFLocationFileName As String = "File Name"
Public Const cQFLocationReference As String = "Reference"
Public Const cQFLocationComponent As String = "Component"
Public Const cQFLocationControl As String = "Control"
Public Const cQFLocationAnywhere As String = "Anywhere (Content)"
Public Const cQFLocationFRM As String = ".FRM"
Public Const cQFLocationAnywhereCode As String = "Anywhere (Code Only)"
Public Const cQFLocationDeclarations As String = "Declarations"
Public Const cQFLocationSub As String = "Sub"
Public Const cQFLocationFunction As String = "Function"

Public Const cQFScopeAll As String = "All (Default)"
Public Const cQFScopePrivate As String = "Private"
Public Const cQFScopePublic As String = "Public"

Public Const cQFConditionMustExist As String = "Must Exist (Default)"
Public Const cQFConditionMustNotExist As String = "Must NOT Exist"

Public Const cQFNotSyntax As String = "!NOT"
Public Const cQFAll As String = "(All)"
Public Const cQFAllFiles As String = "*.*"
Public Const cQFNotConsidered As String = "(Not Considered)"

Public Enum ObjectToSearchEnum
    cOTSForm = 0
    cOTSClass
    cOTSModule
End Enum

'Excel Object
Public Const c800x600ExcelScale As Long = 110

Public Enum VideoResolutionEnum
    cVideo640x480 = 0
    cVideo800x600
    cVideo1024x768
    cVideo1152x882
End Enum

Public Const cGridScrollbarsWidthAdjustment As Long = 600

Public Const cSQLTrue As Long = -1
Public Const cSQLFalse As Long = 0

Public Const cDefaultProgramFont = "MS SANS SERIF"
Public Const cDefaultProgramControlBackColor = vbButtonFace

Public Const cEvenRowColor As Long = &HE0E0E0

Public Const cUndefinedDescription As String = "<Undefined>"

Public Const cDefaultNullDate As String = "01/01/0001"

Public Enum HospitalIDEnum
    cRiverside = 0
    cCDH
    cAUF
    cSeamens
    cKidney
    cPolyMedic
End Enum

'------------------ Set Up -----------------------'
Public IsAllowGeneralInfo As Boolean
Public IsAllowBedAllocation As Boolean
Public IsAllowLabServices As Boolean
Public IsAllowPatientSummary As Boolean
Public IsAllowServiceRendered As Boolean
Public IsAllowALOS As Boolean
Public IsAllowMorbidityCauses As Boolean
Public IsAllowDeliveriesNumber As Boolean
Public IsAllowAbortion As Boolean
Public IsAllowDeath As Boolean
Public IsAllowMortalityCauses As Boolean
Public IsAllowSurgicalOperations As Boolean
Public IsAllowMajorOperations As Boolean
Public IsAllowMinorOperations As Boolean
Public IsAllowERCases As Boolean
Public IsAllowServiceRenderedOPD As Boolean
Public IsAllowConsultationCauses As Boolean
Public IsAllowMorbidityCausesChildren As Boolean
Public IsAllowMortalityCausesChildren As Boolean
Public IsAllowMortalityCausesNewborn As Boolean
Public IsAllowNewTitle As Boolean
Public IsAllowDeathNew As Boolean
Public IsAllowYearly As Boolean
Public IsAllowQuarterly As Boolean
Public IsAllowDOHVer9 As Boolean

''VBB 12.12
'Public IsAllowMorbidityCausesGroupChildren As Boolean
'Public IsAllowMorbidityCausesGroup As Boolean
'Public IsAllowMortalityCausesGroupChildren As Boolean
'Public IsAllowMortalityCausesGroup As Boolean
''------------------ End --------------------------'

Public glngHospitalID As HospitalIDEnum
Public gobjCodeSearch As Object
'Dim pclsUser As Object

Public Const c10LeadingCausesOfMortalityNew As String = "II.7.2 Leading Causes of Mortality"
Public Const c10LeadingCausesOfMorbidityNew As String = "II.3.2 Leading Causes of Morbidity"

Public Const HLRowColor As String = &H80FF&
Public Const HLForeColor As String = &HFFFFFF
Public Const DefaultRowColor As String = &HFFFFFF
Public Const DefaultForeColor As String = &H0&

Public Sub Main()
    
    Dim objRec As ADODB.Recordset
    
    IsAllowDOHVer9 = True
    
    'Set the hospital ID
    glngHospitalID = cAUF
    
    Set pclsUser = CreateObject("Medsys_User.clsCurrentUser", "")
    pclsUser.sqlconnection.ConnectionTimeout = 240
    pclsUser.PasswordDeptCode = "1"
    pclsUser.ShowMain
    If pclsUser.Connected Then
        
        Set objRec = New ADODB.Recordset
        
        Set objRec = pclsUser.sqlconnection.Execute("SELECT COMPANY, ADDRESS1 FROM Patient_Data..tbHospitalInfo")
        gstrHospitalName = objRec.Fields("Company").Value & ""
        gstrHospitalAddress1 = objRec.Fields("Address1").Value & ""
        
        Set gobjCodeSearch = CreateObject("CodeSearchForm.clsCodeSearch", "")
    
        gobjCodeSearch.SearchMode = True
        gobjCodeSearch.Initialize_Classes
        gobjCodeSearch.Connection = pclsUser.sqlconnection
        
        
        'Set pclsuser = pclsuser
        'Set pclsuser = pclsuser
         
        LoadDOHSetUp
        LoadConfig
        frmHospitalInfo.LoadDOH_HospitalInfo
        frmDOHSetup.LoadRecord
            

        DoEvents
        frmDOHReports.Show
        
        'frmNewDOHBuildFile.Show
'        If Not (pclsUser Is Nothing) Then
'            Set pclsUser = Nothing
'        End If
'        If Not (gobjCodeSearch Is Nothing) Then
'            Set gobjCodeSearch = Nothing
'        End If

    End If
End Sub

Private Sub LoadDOHSetUp()
    Dim Rec As New ADODB.Recordset
    Dim SQL As String
    
    SQL = "Select * From Patient_Data..tbDOHSetup"

    With Rec
        If .State > 0 Then .Close
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open SQL, pclsUser.sqlconnection
        
        If .RecordCount > 0 Then
'            IsAllowGeneralInfo = !IsAllowGeneralInfo
'            IsAllowBedAllocation = !IsAllowBedAllocation
'            IsAllowLabServices = !IsAllowLabServices
'            IsAllowPatientSummary = !IsAllowPatientSummary
'            IsAllowServiceRendered = !IsAllowServiceRendered
'            IsAllowALOS = !IsAllowALOS
'            IsAllowMorbidityCauses = !IsAllowMorbidityCauses
'            IsAllowDeliveriesNumber = !IsAllowDeliveriesNumber
'            IsAllowAbortion = !IsAllowAbortion
'            IsAllowDeath = !IsAllowDeath
'            IsAllowMortalityCauses = !IsAllowMortalityCauses
'            IsAllowSurgicalOperations = !IsAllowSurgicalOperations
'            IsAllowMajorOperations = !IsAllowMajorOperations
'            IsAllowMinorOperations = !IsAllowMinorOperations
            IsAllowERCases = !IsAllowERCases
'            IsAllowServiceRenderedOPD = !IsAllowServiceRenderedOPD
            IsAllowConsultationCauses = !IsAllowConsultationCauses
'            IsAllowMorbidityCausesChildren = !IsAllowMorbidityCausesChildren
'            IsAllowMortalityCausesNewborn = !IsAllowMortalityCausesNewborn
'            IsAllowNewTitle = !IsAllowNewTitle
'            IsAllowDeathNew = !IsAllowDeath
'            IsAllowYearly = !IsAllowYearly
'            IsAllowQuarterly = !IsAllowQuarterly
'            'VBB 12.12
'            IsAllowMorbidityCausesGroupChildren = !IsAllowMorbidityCausesGroupChildren
'            IsAllowMorbidityCausesGroup = !IsAllowMorbidityCausesGroup
'            IsAllowMortalityCausesGroupChildren = !IsAllowMortalityCausesGroupChildren
'            IsAllowMortalityCausesGroup = !IsAllowMortalityCausesGroup
            IsAllowDOHVer9 = !IsAllowDOHVer9
        End If
        .Close
    End With
    Set Rec = Nothing


''DOH New Format
            IsAllowGeneralInfo = True
            IsAllowPatientSummary = True
            IsAllowServiceRendered = True
            IsAllowALOS = True
            IsAllowMorbidityCauses = True
            IsAllowDeliveriesNumber = True
            IsAllowAbortion = False
            IsAllowMortalityCauses = True
            IsAllowSurgicalOperations = False
            IsAllowMajorOperations = False
            IsAllowMinorOperations = False
'            IsAllowERCases = False
            IsAllowServiceRenderedOPD = False
'            IsAllowConsultationCauses = False
            IsAllowMortalityCausesNewborn = False
            IsAllowNewTitle = False
            IsAllowDeathNew = True
            IsAllowYearly = False
            IsAllowQuarterly = False
            
            IsAllowDOHVer9 = True
            
End Sub