source: cprs/branches/foia-cprs/CPRS-Chart/CPRSChart.bak@ 895

program CPRSChart;

uses
  SQASrvr,
  ShareMem,
  Forms,
  ORSystem,
  fPage in 'fPage.pas' {frmPage},
  fHSplit in 'fHSplit.pas' {frmHSplit},
  fHP in 'fHP.pas' {frmHP},
  fCover in 'fCover.pas' {frmCover},
  fMeds in 'fMeds.pas' {frmMeds},
  fNotes in 'fNotes.pas' {frmNotes},
  fDCSumm in 'fDCSumm.pas' {frmDCSumm},
  fLabs in 'fLabs.pas' {frmLabs},
  fReports in 'fReports.pas' {frmReports},
  uCore in 'uCore.pas',
  fPtSel in 'fPtSel.pas' {frmPtSel},
  fPtSens in 'fPtSens.pas' {frmPtSens},
  rCore in 'rCore.pas',
  fEncnt in 'fEncnt.pas' {frmEncounter},
  fVisit in 'fVisit.pas' {frmVisit},
  fPtDemo in 'fPtDemo.pas' {frmPtDemo},
  rTIU in 'rTIU.pas',
  fxBroker in 'fxBroker.pas' {frmBroker},
  fNoteBA in 'fNoteBA.pas' {frmNotesByAuthor},
  fNoteBD in 'fNoteBD.pas' {frmNotesByDate},
  fLabTest in 'fLabTest.pas' {frmLabTest},
  fLabTestGroups in 'fLabTestGroups.pas' {frmLabTestGroups},
  fLabTests in 'fLabTests.pas' {frmLabTests},
  rLabs in 'rLabs.pas',
  fSignItem in 'fSignItem.pas' {frmSignItem},
  rCover in 'rCover.pas',
  fRptBox in 'fRptBox.pas' {frmReportBox},
  rReports in 'rReports.pas',
  fAbout in 'fAbout.pas' {frmAbout},
  fxLists in 'fxLists.pas' {frmDbgList},
  fProbs in 'fProbs.pas' {frmProblems},
  fAutoSz in 'fAutoSz.pas' {frmAutoSz},
  rMisc in 'rMisc.pas',
  fxServer in 'fxServer.pas' {frmDbgServer},
  fPtCWAD in 'fPtCWAD.pas' {frmPtCWAD},
  rMeds in 'rMeds.pas',
  fVitals in 'fVitals.pas' {frmVitals},
  uProbs in 'uProbs.pas',
  fProbEdt in 'fProbEdt.pas' {frmdlgProb},
  fProbflt in 'fProbFlt.pas' {frmPlVuFilt},
  fProbCmt in 'fProbCmt.pas' {frmProbCmt},
  fNoteCslt in 'fNoteCslt.pas' {frmNoteConsult},
  fNotePrt in 'fNotePrt.pas' {frmNotePrint},
  uConst in 'uConst.pas',
  fConsults in 'Consults\fConsults.pas' {frmConsults},
  fLkUpLocation in 'fLkUpLocation.pas' {frmLkUpLocation},
  fRename in 'fRename.pas' {frmRename},
  fDateRange in 'fDateRange.pas' {frmDateRange},
  fRenewOutMed in 'fRenewOutMed.pas' {frmRenewOutMed},
  fConsult513Prt in 'Consults\fConsult513Prt.pas' {frm513Print},
  fConsultAct in 'Consults\fConsultAct.pas' {frmConsultAction},
  fConsultAlertTo in 'Consults\fConsultAlertTo.pas' {frmConsultAlertsTo},
  fConsultBD in 'Consults\fConsultBD.pas' {frmConsultsByDate},
  fConsultBS in 'Consults\fConsultBS.pas' {frmConsultsByService},
  fConsultBSt in 'Consults\fConsultBSt.pas' {frmConsultsByStatus},
  fConsultsView in 'Consults\fConsultsView.pas' {frmConsultsView},
  rConsults in 'Consults\rConsults.pas',
  uConsults in 'Consults\uConsults.pas',
  fTimeout in 'fTimeout.pas' {frmTimeout},
  fNoteDR in 'fNoteDR.pas' {frmNoteDelReason},
  rDCSumm in 'rDCSumm.pas',
  fSplash in 'fSplash.pas' {frmSplash},
  fCsltNote in 'Consults\fCsltNote.pas' {frmCsltNote},
  rProbs in 'rProbs.pas',
  fEditConsult in 'Consults\fEditConsult.pas' {frmEditCslt},
  fEditProc in 'Consults\fEditProc.pas' {frmEditProc},
  fAllgyFind in 'fAllgyFind.pas' {frmAllgyFind},
  fAddlSigners in 'fAddlSigners.pas' {frmAddlSigners},
  fLabPrint in 'fLabPrint.pas' {frmLabPrint},
  fReportsPrint in 'fReportsPrint.pas' {frmReportPrt},
  fvit in 'fvit.pas' {frmVit},
  uPCE in 'Encounter\uPCE.pas',
  fEncounterFrame in 'Encounter\fEncounterFrame.pas' {frmEncounterFrame},
  fPCEBase in 'Encounter\fPCEBase.pas' {frmPCEBase},
  fPCELex in 'Encounter\fPCELex.pas' {frmPCELex},
  fPCEOther in 'Encounter\fPCEOther.pas' {frmPCEOther},
  fProcedure in 'Encounter\fProcedure.pas' {frmProcedures},
  fSkinTest in 'Encounter\fSkinTest.pas' {frmSkinTests},
  fVisitType in 'Encounter\fVisitType.pas' {frmVisitType},
  rPCE in 'Encounter\rPCE.pas',
  fDiagnoses in 'Encounter\fDiagnoses.pas' {frmDiagnoses},
  fPatientEd in 'Encounter\fPatientEd.pas' {frmPatientEd},
  fExam in 'Encounter\fExam.pas' {frmExams},
  fHealthFactor in 'Encounter\fHealthFactor.pas' {frmHealthFactors},
  fImmunization in 'Encounter\fImmunization.pas' {frmImmunizations},
  fEncVitals in 'Encounter\fEncVitals.pas' {frmEncVitals},
  fEffectDate in 'fEffectDate.pas' {frmEffectDate},
  fPtSelDemog in 'fPtSelDemog.pas' {frmPtSelDemog},
  fPtSelOptns in 'fPtSelOptns.pas' {frmPtSelOptns},
  uInit in 'uInit.pas',
  uSpell in 'uSpell.pas',
  dShared in 'dShared.pas' {dmodShared: TDataModule},
  fDrawers in 'fDrawers.pas' {frmDrawers},
  fMedCopy in 'fMedCopy.pas' {frmMedCopy},
  uReminders in 'uReminders.pas',
  rReminders in 'rReminders.pas',
  fReminderTree in 'fReminderTree.pas' {frmReminderTree},
  fReminderDialog in 'fReminderDialog.pas' {frmRemDlg},
  fReportsAdhocSubItem1 in 'fReportsAdhocSubItem1.pas' {frmReportsAdhocSubItem1},
  fReportsAdhocComponent1 in 'fReportsAdhocComponent1.pas' {frmReportsAdhocComponent1},
  fPtSelMsg in 'fPtSelMsg.pas' {frmPtSelMsg},
  fMHTest in 'fMHTest.pas' {frmMHTest},
  fGAF in 'Encounter\fGAF.pas' {frmGAF},
  fPCEProvider in 'Encounter\fPCEProvider.pas' {frmPCEProvider},
  fPCEBaseGrid in 'Encounter\fPCEBaseGrid.pas' {frmPCEBaseGrid},
  fPCEBaseMain in 'Encounter\fPCEBaseMain.pas' {frmPCEBaseMain},
  fNoteProps in 'fNoteProps.pas' {frmNoteProperties},
  fNotesBP in 'fNotesBP.pas' {frmNotesBP},
  fLabInfo in 'fLabInfo.pas' {frmLabInfo},
  fPreReq in 'Consults\fPreReq.pas' {frmPrerequisites},
  fDCSummProps in 'fDCSummProps.pas' {frmDCSummProperties},
  fHFSearch in 'Encounter\fHFSearch.pas' {frmHFSearch},
  fConsMedRslt in 'Consults\fConsMedRslt.pas' {frmConsMedRslt},
  mVitMetric in 'Vitals\mVitMetric.pas' {fraVitMetric: TFrame},
  mVitAll in 'Vitals\mVitAll.pas' {fraVitAll: TFrame},
  mVitBase in 'Vitals\mVitBase.pas' {fraVitBase: TFrame},
  uVitals in 'Vitals\uVitals.pas',
  rVitals in 'Vitals\rVitals.pas',
  mVitPulse in 'Vitals\mVitPulse.pas' {fraVitPulse: TFrame},
  mVitResp in 'Vitals\mVitResp.pas' {fraVitResp: TFrame},
  mVitBP in 'Vitals\mVitBP.pas' {fraVitPB: TFrame},
  mVitTemp in 'Vitals\mVitTemp.pas' {fraVitTemp: TFrame},
  mVitHeight in 'Vitals\mVitHeight.pas' {fraVitHeight: TFrame},
  mVitWeight in 'Vitals\mVitWeight.pas' {fraVitWeight: TFrame},
  mVitPain in 'Vitals\mVitPain.pas' {fraVitPain: TFrame},
  mVitPO2 in 'Vitals\mVitPO2.pas' {fraVitPO2: TFrame},
  mVitCVP in 'Vitals\mVitCVP.pas' {fraVitCVP: TFrame},
  mVitCirGirth in 'Vitals\mVitCirGirth.pas' {fraVitCircum: TFrame},
  uDCSumm in 'uDCSumm.pas',
  uDocTree in 'uDocTree.pas',
  fVitalsDate in 'Vitals\fVitalsDate.pas' {frmVitalsDate},
  uTemplates in 'Templates\uTemplates.pas',
  fTemplateDialog in 'Templates\fTemplateDialog.pas' {frmTemplateDialog},
  fTemplateEditor in 'Templates\fTemplateEditor.pas' {frmTemplateEditor},
  fTemplateFieldEditor in 'Templates\fTemplateFieldEditor.pas' {frmTemplateFieldEditor},
  fTemplateFields in 'Templates\fTemplateFields.pas' {frmTemplateFields},
  fTemplateObjects in 'Templates\fTemplateObjects.pas' {frmTemplateObjects},
  fTemplateView in 'Templates\fTemplateView.pas' {frmTemplateView},
  mTemplateFieldButton in 'Templates\mTemplateFieldButton.pas' {fraTemplateFieldButton: TFrame},
  rTemplates in 'Templates\rTemplates.pas',
  uTemplateFields in 'Templates\uTemplateFields.pas',
  fTemplateAutoGen in 'Templates\fTemplateAutoGen.pas' {frmTemplateAutoGen},
  mVisitRelated in 'Encounter\mVisitRelated.pas' {fraVisitRelated: TFrame},
  fRemVisitInfo in 'fRemVisitInfo.pas' {frmRemVisitInfo},
  fIconLegend in 'fIconLegend.pas' {frmIconLegend},
  mImgText in 'mImgText.pas' {fraImgText: TFrame},
  fTemplateImport in 'Templates\fTemplateImport.pas' {frmTemplateImport},
  fRemCoverSheet in 'fRemCoverSheet.pas' {frmRemCoverSheet},
  uTIU in 'uTIU.pas',
  fRemCoverPreview in 'fRemCoverPreview.pas' {frmRemCoverPreview},
  fPCEEdit in 'Encounter\fPCEEdit.pas' {frmPCEEdit},
  uSurgery in 'uSurgery.pas',
  fSurgeryView in 'fSurgeryView.pas' {frmSurgeryView},
  rSurgery in 'rSurgery.pas',
  uCaseTree in 'uCaseTree.pas',
  fSurgery in 'fSurgery.pas' {frmSurgery},
  fNoteIDParents in 'fNoteIDParents.pas' {frmNoteIDParents},
  uReports in 'uReports.pas',
  fNoteCPFields in 'fNoteCPFields.pas' {frmNoteCPFields},
  CPRSChart_TLB in 'CPRSChart_TLB.pas',
  uEventHooks in 'uEventHooks.pas',
  rEventHooks in 'rEventHooks.pas',
  fPtSelOptSave in 'fPtSelOptSave.pas' {frmPtSelOptSave},
  uOrders in 'Orders\uOrders.pas',
  fOCSession in 'Orders\fOCSession.pas' {frmOCSession},
  fODAuto in 'Orders\fODAuto.pas',
  fODBase in 'Orders\fODBase.pas' {frmODBase},
  fODDiet in 'Orders\fODDiet.pas' {frmODDiet},
  fODDietLT in 'Orders\fODDietLT.pas' {frmODDietLT},
  fODGen in 'Orders\fODGen.pas' {frmODGen},
  fODLab in 'Orders\fODLab.pas' {frmODLab},
  fODLabImmedColl in 'Orders\fODLabImmedColl.pas' {frmODLabImmedColl},
  fODLabOthCollSamp in 'Orders\fODLabOthCollSamp.pas' {frmODLabOthCollSamp},
  fODLabOthSpec in 'Orders\fODLabOthSpec.pas' {frmODLabOthSpec},
  fODMedComplex in 'Orders\fODMedComplex.pas' {frmODMedComplex},
  fODMedFA in 'Orders\fODMedFA.pas' {frmODMedFA},
  fODMedIn in 'Orders\fODMedIn.pas' {frmODMedIn},
  fODMedIV in 'Orders\fODMedIV.pas' {frmODMedIV},
  fODMedOIFA in 'Orders\fODMedOIFA.pas' {frmODMedOIFA},
  fODMedOut in 'Orders\fODMedOut.pas' {frmODMedOut},
  fODMeds in 'Orders\fODMeds.pas' {frmODMeds},
  fODMessage in 'Orders\fODMessage.pas' {frmODMessage},
  fODMisc in 'Orders\fODMisc.pas' {frmODMisc},
  fODRad in 'Orders\fODRad.pas' {frmODRad},
  fODRadApproval in 'Orders\fODRadApproval.pas' {frmODRadApproval},
  fODRadConShRes in 'Orders\fODRadConShRes.pas' {frmODRadConShRes},
  fODRadImType in 'Orders\fODRadImType.pas' {frmODRadImType},
  fODSaveQuick in 'Orders\fODSaveQuick.pas' {frmODQuick},
  fODText in 'Orders\fODText.pas' {frmODText},
  fODVitals in 'Orders\fODVitals.pas' {frmODVitals},
  fOMAction in 'Orders\fOMAction.pas' {frmOMAction},
  fOMHTML in 'Orders\fOMHTML.pas' {frmOMHTML},
  fOMNavA in 'Orders\fOMNavA.pas' {frmOMNavA},
  fOMProgress in 'Orders\fOMProgress.pas' {frmOMProgress},
  fOMSet in 'Orders\fOMSet.pas' {frmOMSet},
  fOMVerify in 'Orders\fOMVerify.pas' {frmOMVerify},
  fOrderComment in 'Orders\fOrderComment.pas' {frmWardComments},
  fOrderFlag in 'Orders\fOrderFlag.pas' {frmFlagOrder},
  fOrders in 'Orders\fOrders.pas' {frmOrders},
  fOrdersAlert in 'Orders\fOrdersAlert.pas' {frmAlertOrders},
  fOrderSaveQuick in 'Orders\fOrderSaveQuick.pas' {frmSaveQuickOrder},
  fOrdersComplete in 'Orders\fOrdersComplete.pas' {frmCompleteOrders},
  fOrdersCopy in 'Orders\fOrdersCopy.pas' {frmCopyOrders},
  fOrdersDC in 'Orders\fOrdersDC.pas' {frmDCOrders},
  fOrdersHold in 'Orders\fOrdersHold.pas' {frmHoldOrders},
  fOrdersOnChart in 'Orders\fOrdersOnChart.pas' {frmOnChartOrders},
  fOrdersPrint in 'Orders\fOrdersPrint.pas' {frmOrdersPrint},
  fOrdersRefill in 'Orders\fOrdersRefill.pas' {frmRefillOrders},
  fOrdersRelease in 'Orders\fOrdersRelease.pas' {frmReleaseOrders},
  fOrdersRenew in 'Orders\fOrdersRenew.pas' {frmRenewOrders},
  fOrdersSign in 'Orders\fOrdersSign.pas' {frmSignOrders},
  fOrdersTS in 'Orders\fOrdersTS.pas' {frmOrdersTS},
  fOrdersUnhold in 'Orders\fOrdersUnhold.pas' {frmUnholdOrders},
  fOrdersVerify in 'Orders\fOrdersVerify.pas' {frmVerifyOrders},
  fOrderUnflag in 'Orders\fOrderUnflag.pas' {frmUnflagOrder},
  fOrderVw in 'Orders\fOrderVw.pas' {frmOrderView},
  rODAllergy in 'Orders\rODAllergy.pas',
  rODBase in 'Orders\rODBase.pas',
  rODDiet in 'Orders\rODDiet.pas',
  rODLab in 'Orders\rODLab.pas',
  rODMeds in 'Orders\rODMeds.pas',
  rODRad in 'Orders\rODRad.pas',
  rOrders in 'Orders\rOrders.pas',
  uODBase in 'Orders\uODBase.pas',
  fOCAccept in 'Orders\fOCAccept.pas' {frmOCAccept},
  fODConsult in 'Consults\fODConsult.pas' {frmODCslt},
  fODProc in 'Consults\fODProc.pas' {frmODProc},
  uOptions in 'Options\uOptions.pas',
  fOptionsCombinations in 'Options\fOptionsCombinations.pas' {frmOptionsCombinations},
  fOptionsDays in 'Options\fOptionsDays.pas' {frmOptionsDays},
  fOptionsLists in 'Options\fOptionsLists.pas' {frmOptionsLists},
  fOptionsNewList in 'Options\fOptionsNewList.pas' {frmOptionsNewList},
  fOptionsNotes in 'Options\fOptionsNotes.pas' {frmOptionsNotes},
  fOptionsOther in 'Options\fOptionsOther.pas' {frmOptionsOther},
  fOptionsPatientSelection in 'Options\fOptionsPatientSelection.pas' {frmOptionsPatientSelection},
  fOptionsPrimaryList in 'Options\fOptionsPrimaryList.pas' {frmOptionsPrimaryList},
  fOptionsReminders in 'Options\fOptionsReminders.pas' {frmOptionsReminders},
  fOptionsReportsCustom in 'Options\fOptionsReportsCustom.pas' {frmOptionsReportsCustom},
  fOptionsReportsDefault in 'Options\fOptionsReportsDefault.pas' {frmOptionsReportsDefault},
  fOptionsSubscribe in 'Options\fOptionsSubscribe.pas' {frmOptionsSubscribe},
  fOptionsSurrogate in 'Options\fOptionsSurrogate.pas' {frmOptionsSurrogate},
  fOptionsTeams in 'Options\fOptionsTeams.pas' {frmOptionsTeams},
  fOptionsTitles in 'Options\fOptionsTitles.pas' {frmOptionsTitles},
  rOptions in 'Options\rOptions.pas',
  fOptions in 'Options\fOptions.pas' {frmOptions},
  uSignItems in 'uSignItems.pas',
  mCoPayDesc in 'mCoPayDesc.pas' {fraCoPayDesc: TFrame},
  XuDigSigSC_TLB in 'XuDigSigSC_TLB.pas',
  fOrdersCV in 'Orders\fOrdersCV.pas' {frmChgEvent},
  fODReleaseEvent in 'Orders\fODReleaseEvent.pas' {frmOrdersReleaseEvent},
  fODActive in 'Orders\fODActive.pas' {frmODActive},
  fDefaultEvent in 'fDefaultEvent.pas' {frmDefaultEvent},
  mEvntDelay in 'mEvntDelay.pas' {fraEvntDelayList: TFrame},
  fOrdersEvntRelease in 'Orders\fOrdersEvntRelease.pas' {frmOrdersEvntRelease},
  rECS in 'rECS.pas',
  fODChangeEvtDisp in 'Orders\fODChangeEvtDisp.pas' {frmChangeEventDisp},
  fODValidateAction in 'Orders\fODValidateAction.pas' {frmInvalidActionList},
  fODChild in 'Orders\fODChild.pas' {frmODChild},
  uAccessibleStringGrid in 'uAccessibleStringGrid.pas' {AccessibleStringGrid: CoClass},
  Accessibility_TLB in 'Accessibility_TLB.pas',
  uAccessibleListBox in 'uAccessibleListBox.pas' {AccessibleListBox: CoClass},
  uAccessibleTreeNode in 'uAccessibleTreeNode.pas' {IAccessibleTreeNode: CoClass},
  uAccessibleTreeView in 'uAccessibleTreeView.pas' {AccessibleTreeView: CoClass},
  fDupPts in 'fDupPts.pas' {frmDupPts},
  VERGENCECONTEXTORLib_TLB in 'VERGENCECONTEXTORLib_TLB.pas',
  uOrPtf in 'uOrPtf.pas',
  fPatientFlagMulti in 'fPatientFlagMulti.pas' {frmFlags},
  fFrame in 'fFrame.pas' {frmFrame},
  fAlertForward in 'fAlertForward.pas' {frmAlertForward},
  fODMedNVA in 'Orders\fODMedNVA.pas' {frmODMedNVA},
  uAccessibleRichEdit in 'uAccessibleRichEdit.pas' {AccessibleRichEdit: CoClass},
  fPrintList in 'fPrintList.pas' {frmPrintList},
  fODChangeUnreleasedRenew in 'Orders\fODChangeUnreleasedRenew.pas' {frmODChangeUnreleasedRenew},
  UBAMessages in 'BA\UBAMessages.pas',
  UBAConst in 'BA\UBAConst.pas',
  UBAGlobals in 'BA\UBAGlobals.pas',
  fBALocalDiagnoses in 'BA\fBALocalDiagnoses.pas' {frmBALocalDiagnoses},
  fReview in 'fReview.pas' {frmReview},
  fARTFreeTextMsg in 'fARTFreeTextMsg.pas' {frmARTFreeTextMsg},
  fAllgyBox in 'fAllgyBox.pas' {frmAllgyBox},
  fARTAllgy in 'fARTAllgy.pas' {frmARTAllergy},
  UBACore in 'BA\UBACore.pas',
  fBAOptionsDiagnoses in 'BA\fBAOptionsDiagnoses.pas' {frmBAOptionsDiagnoses},
  fOtherSchedule in 'Orders\fOtherSchedule.pas' {frmOtherSchedule},
  fODBBank in 'Orders\fODBBank.pas' {frmODBBank},
  fNoteST in 'fNoteST.pas' {frmNotesSearchText},
  fNoteSTStop in 'fNoteSTStop.pas' {frmSearchStop},
  rGraphs in 'rGraphs.pas',
  fGraphs in 'fGraphs.pas' {frmGraphs},
  fGraphSettings in 'fGraphSettings.pas' {frmGraphSettings},
  fGraphProfiles in 'fGraphProfiles.pas' {frmGraphProfiles},
  uGraphs in 'uGraphs.pas',
  fClinicWardMeds in 'fClinicWardMeds.pas' {frmClinicWardMeds},
  fActivateDeactivate in 'fActivateDeactivate.pas' {frmActivateDeactive},
  uFormMonitor in 'uFormMonitor.pas';

{$R *.TLB}

{$R *.RES}

begin
  if not UpdateSelf then                          // only start if not copying new version
  begin
    RegisterCPRSTypeLibrary;                      // will halt program if /regserver or /unregserver param
    Application.Initialize;
    frmSplash := nil;
    if ParamSearch('SPLASH') <> 'OFF' then
    begin
      frmSplash := TfrmSplash.Create(Application);  // show splash screen
      frmSplash.Show;                               //         "
      frmSplash.Refresh;                            //         "
    end;
    Application.Title := 'CPRS - Patient Chart';
    Application.HelpFile := 'cprs.hlp';
    Application.CreateForm(TdmodShared, dmodShared);
  Application.CreateForm(TfrmFrame, frmFrame);
  Application.CreateForm(TfrmSearchStop, frmSearchStop);
  frmSplash.Free;                               // close & free splash screen
    Application.Run;
  end;
end.