| [453] | 1 | program CPRSChart;
|
|---|
| 2 |
|
|---|
| 3 | uses
|
|---|
| 4 | ShareMem,
|
|---|
| 5 | Forms,
|
|---|
| 6 | ORSystem,
|
|---|
| 7 | TntForms,
|
|---|
| 8 | TntStdCtrls,
|
|---|
| 9 | TntSystem,
|
|---|
| 10 | TntSysUtils,
|
|---|
| [877] | 11 | DKLang,
|
|---|
| [453] | 12 | fPage in 'fPage.pas' {frmPage},
|
|---|
| 13 | fHSplit in 'fHSplit.pas' {frmHSplit},
|
|---|
| 14 | fHP in 'fHP.pas' {frmHP},
|
|---|
| 15 | fCover in 'fCover.pas' {frmCover},
|
|---|
| 16 | fMeds in 'fMeds.pas' {frmMeds},
|
|---|
| 17 | fNotes in 'fNotes.pas' {frmNotes},
|
|---|
| 18 | fDCSumm in 'fDCSumm.pas' {frmDCSumm},
|
|---|
| 19 | fLabs in 'fLabs.pas' {frmLabs},
|
|---|
| 20 | fReports in 'fReports.pas' {frmReports},
|
|---|
| 21 | uCore in 'uCore.pas',
|
|---|
| 22 | fPtSel in 'fPtSel.pas' {frmPtSel},
|
|---|
| 23 | fPtSens in 'fPtSens.pas' {frmPtSens},
|
|---|
| 24 | rCore in 'rCore.pas',
|
|---|
| 25 | fEncnt in 'fEncnt.pas' {frmEncounter},
|
|---|
| 26 | fVisit in 'fVisit.pas' {frmVisit},
|
|---|
| 27 | fPtDemo in 'fPtDemo.pas' {frmPtDemo},
|
|---|
| 28 | rTIU in 'rTIU.pas',
|
|---|
| 29 | fxBroker in 'fxBroker.pas' {frmBroker},
|
|---|
| 30 | fNoteBA in 'fNoteBA.pas' {frmNotesByAuthor},
|
|---|
| 31 | fNoteBD in 'fNoteBD.pas' {frmNotesByDate},
|
|---|
| 32 | fLabTest in 'fLabTest.pas' {frmLabTest},
|
|---|
| 33 | fLabTestGroups in 'fLabTestGroups.pas' {frmLabTestGroups},
|
|---|
| 34 | fLabTests in 'fLabTests.pas' {frmLabTests},
|
|---|
| 35 | rLabs in 'rLabs.pas',
|
|---|
| 36 | fSignItem in 'fSignItem.pas' {frmSignItem},
|
|---|
| 37 | rCover in 'rCover.pas',
|
|---|
| 38 | fRptBox in 'fRptBox.pas' {frmReportBox},
|
|---|
| 39 | rReports in 'rReports.pas',
|
|---|
| 40 | fAbout in 'fAbout.pas' {frmAbout},
|
|---|
| 41 | fxLists in 'fxLists.pas' {frmDbgList},
|
|---|
| 42 | fProbs in 'fProbs.pas' {frmProblems},
|
|---|
| 43 | fAutoSz in 'fAutoSz.pas' {frmAutoSz},
|
|---|
| 44 | rMisc in 'rMisc.pas',
|
|---|
| 45 | fxServer in 'fxServer.pas' {frmDbgServer},
|
|---|
| 46 | fPtCWAD in 'fPtCWAD.pas' {frmPtCWAD},
|
|---|
| 47 | rMeds in 'rMeds.pas',
|
|---|
| 48 | fVitals in 'fVitals.pas' {frmVitals},
|
|---|
| 49 | uProbs in 'uProbs.pas',
|
|---|
| 50 | fProbEdt in 'fProbEdt.pas' {frmdlgProb},
|
|---|
| 51 | fProbflt in 'fProbFlt.pas' {frmPlVuFilt},
|
|---|
| 52 | fProbCmt in 'fProbCmt.pas' {frmProbCmt},
|
|---|
| 53 | fNoteCslt in 'fNoteCslt.pas' {frmNoteConsult},
|
|---|
| 54 | fNotePrt in 'fNotePrt.pas' {frmNotePrint},
|
|---|
| 55 | uConst in 'uConst.pas',
|
|---|
| 56 | fConsults in 'Consults\fConsults.pas' {frmConsults},
|
|---|
| 57 | fLkUpLocation in 'fLkUpLocation.pas' {frmLkUpLocation},
|
|---|
| 58 | fRename in 'fRename.pas' {frmRename},
|
|---|
| 59 | fDateRange in 'fDateRange.pas' {frmDateRange},
|
|---|
| 60 | fRenewOutMed in 'fRenewOutMed.pas' {frmRenewOutMed},
|
|---|
| 61 | fConsult513Prt in 'Consults\fConsult513Prt.pas' {frm513Print},
|
|---|
| 62 | fConsultAct in 'Consults\fConsultAct.pas' {frmConsultAction},
|
|---|
| 63 | fConsultAlertTo in 'Consults\fConsultAlertTo.pas' {frmConsultAlertsTo},
|
|---|
| 64 | fConsultBD in 'Consults\fConsultBD.pas' {frmConsultsByDate},
|
|---|
| 65 | fConsultBS in 'Consults\fConsultBS.pas' {frmConsultsByService},
|
|---|
| 66 | fConsultBSt in 'Consults\fConsultBSt.pas' {frmConsultsByStatus},
|
|---|
| 67 | fConsultsView in 'Consults\fConsultsView.pas' {frmConsultsView},
|
|---|
| 68 | rConsults in 'Consults\rConsults.pas',
|
|---|
| 69 | uConsults in 'Consults\uConsults.pas',
|
|---|
| 70 | fTimeout in 'fTimeout.pas' {frmTimeout},
|
|---|
| 71 | fNoteDR in 'fNoteDR.pas' {frmNoteDelReason},
|
|---|
| 72 | rDCSumm in 'rDCSumm.pas',
|
|---|
| 73 | fSplash in 'fSplash.pas' {frmSplash},
|
|---|
| 74 | fCsltNote in 'Consults\fCsltNote.pas' {frmCsltNote},
|
|---|
| 75 | rProbs in 'rProbs.pas',
|
|---|
| 76 | fEditConsult in 'Consults\fEditConsult.pas' {frmEditCslt},
|
|---|
| 77 | fEditProc in 'Consults\fEditProc.pas' {frmEditProc},
|
|---|
| 78 | fAllgyFind in 'fAllgyFind.pas' {frmAllgyFind},
|
|---|
| 79 | fAddlSigners in 'fAddlSigners.pas' {frmAddlSigners},
|
|---|
| 80 | fLabPrint in 'fLabPrint.pas' {frmLabPrint},
|
|---|
| 81 | fReportsPrint in 'fReportsPrint.pas' {frmReportPrt},
|
|---|
| 82 | fvit in 'fvit.pas' {frmVit},
|
|---|
| 83 | uPCE in 'Encounter\uPCE.pas',
|
|---|
| 84 | fEncounterFrame in 'Encounter\fEncounterFrame.pas' {frmEncounterFrame},
|
|---|
| 85 | fPCEBase in 'Encounter\fPCEBase.pas' {frmPCEBase},
|
|---|
| 86 | fPCELex in 'Encounter\fPCELex.pas' {frmPCELex},
|
|---|
| 87 | fPCEOther in 'Encounter\fPCEOther.pas' {frmPCEOther},
|
|---|
| 88 | fProcedure in 'Encounter\fProcedure.pas' {frmProcedures},
|
|---|
| 89 | fSkinTest in 'Encounter\fSkinTest.pas' {frmSkinTests},
|
|---|
| 90 | fVisitType in 'Encounter\fVisitType.pas' {frmVisitType},
|
|---|
| 91 | rPCE in 'Encounter\rPCE.pas',
|
|---|
| 92 | fDiagnoses in 'Encounter\fDiagnoses.pas' {frmDiagnoses},
|
|---|
| 93 | fPatientEd in 'Encounter\fPatientEd.pas' {frmPatientEd},
|
|---|
| 94 | fExam in 'Encounter\fExam.pas' {frmExams},
|
|---|
| 95 | fHealthFactor in 'Encounter\fHealthFactor.pas' {frmHealthFactors},
|
|---|
| 96 | fImmunization in 'Encounter\fImmunization.pas' {frmImmunizations},
|
|---|
| 97 | fEncVitals in 'Encounter\fEncVitals.pas' {frmEncVitals},
|
|---|
| 98 | fEffectDate in 'fEffectDate.pas' {frmEffectDate},
|
|---|
| 99 | fPtSelDemog in 'fPtSelDemog.pas' {frmPtSelDemog},
|
|---|
| 100 | fPtSelOptns in 'fPtSelOptns.pas' {frmPtSelOptns},
|
|---|
| 101 | uInit in 'uInit.pas',
|
|---|
| 102 | uSpell in 'uSpell.pas',
|
|---|
| 103 | dShared in 'dShared.pas' {dmodShared: TDataModule},
|
|---|
| 104 | fDrawers in 'fDrawers.pas' {frmDrawers},
|
|---|
| 105 | fMedCopy in 'fMedCopy.pas' {frmMedCopy},
|
|---|
| 106 | uReminders in 'uReminders.pas',
|
|---|
| 107 | rReminders in 'rReminders.pas',
|
|---|
| 108 | fReminderTree in 'fReminderTree.pas' {frmReminderTree},
|
|---|
| 109 | fReminderDialog in 'fReminderDialog.pas' {frmRemDlg},
|
|---|
| 110 | fReportsAdhocSubItem1 in 'fReportsAdhocSubItem1.pas' {frmReportsAdhocSubItem1},
|
|---|
| 111 | fReportsAdhocComponent1 in 'fReportsAdhocComponent1.pas' {frmReportsAdhocComponent1},
|
|---|
| 112 | fPtSelMsg in 'fPtSelMsg.pas' {frmPtSelMsg},
|
|---|
| 113 | fMHTest in 'fMHTest.pas' {frmMHTest},
|
|---|
| 114 | fGAF in 'Encounter\fGAF.pas' {frmGAF},
|
|---|
| 115 | fPCEProvider in 'Encounter\fPCEProvider.pas' {frmPCEProvider},
|
|---|
| 116 | fPCEBaseGrid in 'Encounter\fPCEBaseGrid.pas' {frmPCEBaseGrid},
|
|---|
| 117 | fPCEBaseMain in 'Encounter\fPCEBaseMain.pas' {frmPCEBaseMain},
|
|---|
| 118 | fNoteProps in 'fNoteProps.pas' {frmNoteProperties},
|
|---|
| 119 | fNotesBP in 'fNotesBP.pas' {frmNotesBP},
|
|---|
| 120 | fLabInfo in 'fLabInfo.pas' {frmLabInfo},
|
|---|
| 121 | fPreReq in 'Consults\fPreReq.pas' {frmPrerequisites},
|
|---|
| 122 | fDCSummProps in 'fDCSummProps.pas' {frmDCSummProperties},
|
|---|
| 123 | fHFSearch in 'Encounter\fHFSearch.pas' {frmHFSearch},
|
|---|
| 124 | fConsMedRslt in 'Consults\fConsMedRslt.pas' {frmConsMedRslt},
|
|---|
| 125 | mVitMetric in 'Vitals\mVitMetric.pas' {fraVitMetric: TFrame},
|
|---|
| 126 | mVitAll in 'Vitals\mVitAll.pas' {fraVitAll: TFrame},
|
|---|
| 127 | mVitBase in 'Vitals\mVitBase.pas' {fraVitBase: TFrame},
|
|---|
| 128 | uVitals in 'Vitals\uVitals.pas',
|
|---|
| 129 | rVitals in 'Vitals\rVitals.pas',
|
|---|
| 130 | mVitPulse in 'Vitals\mVitPulse.pas' {fraVitPulse: TFrame},
|
|---|
| 131 | mVitResp in 'Vitals\mVitResp.pas' {fraVitResp: TFrame},
|
|---|
| 132 | mVitBP in 'Vitals\mVitBP.pas' {fraVitPB: TFrame},
|
|---|
| 133 | mVitTemp in 'Vitals\mVitTemp.pas' {fraVitTemp: TFrame},
|
|---|
| 134 | mVitHeight in 'Vitals\mVitHeight.pas' {fraVitHeight: TFrame},
|
|---|
| 135 | mVitWeight in 'Vitals\mVitWeight.pas' {fraVitWeight: TFrame},
|
|---|
| 136 | mVitPain in 'Vitals\mVitPain.pas' {fraVitPain: TFrame},
|
|---|
| 137 | mVitPO2 in 'Vitals\mVitPO2.pas' {fraVitPO2: TFrame},
|
|---|
| 138 | mVitCVP in 'Vitals\mVitCVP.pas' {fraVitCVP: TFrame},
|
|---|
| 139 | mVitCirGirth in 'Vitals\mVitCirGirth.pas' {fraVitCircum: TFrame},
|
|---|
| 140 | uDCSumm in 'uDCSumm.pas',
|
|---|
| 141 | uDocTree in 'uDocTree.pas',
|
|---|
| 142 | fVitalsDate in 'Vitals\fVitalsDate.pas' {frmVitalsDate},
|
|---|
| 143 | uTemplates in 'Templates\uTemplates.pas',
|
|---|
| 144 | fTemplateDialog in 'Templates\fTemplateDialog.pas' {frmTemplateDialog},
|
|---|
| 145 | fTemplateEditor in 'Templates\fTemplateEditor.pas' {frmTemplateEditor},
|
|---|
| 146 | fTemplateFieldEditor in 'Templates\fTemplateFieldEditor.pas' {frmTemplateFieldEditor},
|
|---|
| 147 | fTemplateFields in 'Templates\fTemplateFields.pas' {frmTemplateFields},
|
|---|
| 148 | fTemplateObjects in 'Templates\fTemplateObjects.pas' {frmTemplateObjects},
|
|---|
| 149 | fTemplateView in 'Templates\fTemplateView.pas' {frmTemplateView},
|
|---|
| 150 | mTemplateFieldButton in 'Templates\mTemplateFieldButton.pas' {fraTemplateFieldButton: TFrame},
|
|---|
| 151 | rTemplates in 'Templates\rTemplates.pas',
|
|---|
| 152 | uTemplateFields in 'Templates\uTemplateFields.pas',
|
|---|
| 153 | fTemplateAutoGen in 'Templates\fTemplateAutoGen.pas' {frmTemplateAutoGen},
|
|---|
| 154 | mVisitRelated in 'Encounter\mVisitRelated.pas' {fraVisitRelated: TFrame},
|
|---|
| 155 | fRemVisitInfo in 'fRemVisitInfo.pas' {frmRemVisitInfo},
|
|---|
| 156 | fIconLegend in 'fIconLegend.pas' {frmIconLegend},
|
|---|
| 157 | mImgText in 'mImgText.pas' {fraImgText: TFrame},
|
|---|
| 158 | fTemplateImport in 'Templates\fTemplateImport.pas' {frmTemplateImport},
|
|---|
| 159 | fRemCoverSheet in 'fRemCoverSheet.pas' {frmRemCoverSheet},
|
|---|
| 160 | uTIU in 'uTIU.pas',
|
|---|
| 161 | fRemCoverPreview in 'fRemCoverPreview.pas' {frmRemCoverPreview},
|
|---|
| 162 | fPCEEdit in 'Encounter\fPCEEdit.pas' {frmPCEEdit},
|
|---|
| 163 | uSurgery in 'uSurgery.pas',
|
|---|
| 164 | fSurgeryView in 'fSurgeryView.pas' {frmSurgeryView},
|
|---|
| 165 | rSurgery in 'rSurgery.pas',
|
|---|
| 166 | uCaseTree in 'uCaseTree.pas',
|
|---|
| 167 | fSurgery in 'fSurgery.pas' {frmSurgery},
|
|---|
| 168 | fNoteIDParents in 'fNoteIDParents.pas' {frmNoteIDParents},
|
|---|
| 169 | uReports in 'uReports.pas',
|
|---|
| 170 | fNoteCPFields in 'fNoteCPFields.pas' {frmNoteCPFields},
|
|---|
| 171 | CPRSChart_TLB in 'CPRSChart_TLB.pas',
|
|---|
| 172 | uEventHooks in 'uEventHooks.pas',
|
|---|
| 173 | rEventHooks in 'rEventHooks.pas',
|
|---|
| 174 | fPtSelOptSave in 'fPtSelOptSave.pas' {frmPtSelOptSave},
|
|---|
| 175 | uOrders in 'Orders\uOrders.pas',
|
|---|
| 176 | fOCSession in 'Orders\fOCSession.pas' {frmOCSession},
|
|---|
| 177 | fODAuto in 'Orders\fODAuto.pas',
|
|---|
| 178 | fODBase in 'Orders\fODBase.pas' {frmODBase},
|
|---|
| 179 | fODDiet in 'Orders\fODDiet.pas' {frmODDiet},
|
|---|
| 180 | fODDietLT in 'Orders\fODDietLT.pas' {frmODDietLT},
|
|---|
| 181 | fODGen in 'Orders\fODGen.pas' {frmODGen},
|
|---|
| 182 | fODLab in 'Orders\fODLab.pas' {frmODLab},
|
|---|
| 183 | fODLabImmedColl in 'Orders\fODLabImmedColl.pas' {frmODLabImmedColl},
|
|---|
| 184 | fODLabOthCollSamp in 'Orders\fODLabOthCollSamp.pas' {frmODLabOthCollSamp},
|
|---|
| 185 | fODLabOthSpec in 'Orders\fODLabOthSpec.pas' {frmODLabOthSpec},
|
|---|
| 186 | fODMedComplex in 'Orders\fODMedComplex.pas' {frmODMedComplex},
|
|---|
| 187 | fODMedFA in 'Orders\fODMedFA.pas' {frmODMedFA},
|
|---|
| 188 | fODMedIn in 'Orders\fODMedIn.pas' {frmODMedIn},
|
|---|
| 189 | fODMedIV in 'Orders\fODMedIV.pas' {frmODMedIV},
|
|---|
| 190 | fODMedOIFA in 'Orders\fODMedOIFA.pas' {frmODMedOIFA},
|
|---|
| 191 | fODMedOut in 'Orders\fODMedOut.pas' {frmODMedOut},
|
|---|
| 192 | fODMeds in 'Orders\fODMeds.pas' {frmODMeds},
|
|---|
| 193 | fODMessage in 'Orders\fODMessage.pas' {frmODMessage},
|
|---|
| 194 | fODMisc in 'Orders\fODMisc.pas' {frmODMisc},
|
|---|
| 195 | fODRad in 'Orders\fODRad.pas' {frmODRad},
|
|---|
| 196 | fODRadApproval in 'Orders\fODRadApproval.pas' {frmODRadApproval},
|
|---|
| 197 | fODRadConShRes in 'Orders\fODRadConShRes.pas' {frmODRadConShRes},
|
|---|
| 198 | fODRadImType in 'Orders\fODRadImType.pas' {frmODRadImType},
|
|---|
| 199 | fODSaveQuick in 'Orders\fODSaveQuick.pas' {frmODQuick},
|
|---|
| 200 | fODText in 'Orders\fODText.pas' {frmODText},
|
|---|
| 201 | fODVitals in 'Orders\fODVitals.pas' {frmODVitals},
|
|---|
| 202 | fOMAction in 'Orders\fOMAction.pas' {frmOMAction},
|
|---|
| 203 | fOMHTML in 'Orders\fOMHTML.pas' {frmOMHTML},
|
|---|
| 204 | fOMNavA in 'Orders\fOMNavA.pas' {frmOMNavA},
|
|---|
| 205 | fOMProgress in 'Orders\fOMProgress.pas' {frmOMProgress},
|
|---|
| 206 | fOMSet in 'Orders\fOMSet.pas' {frmOMSet},
|
|---|
| 207 | fOMVerify in 'Orders\fOMVerify.pas' {frmOMVerify},
|
|---|
| 208 | fOrderComment in 'Orders\fOrderComment.pas' {frmWardComments},
|
|---|
| 209 | fOrderFlag in 'Orders\fOrderFlag.pas' {frmFlagOrder},
|
|---|
| 210 | fOrders in 'Orders\fOrders.pas' {frmOrders},
|
|---|
| 211 | fOrdersAlert in 'Orders\fOrdersAlert.pas' {frmAlertOrders},
|
|---|
| 212 | fOrderSaveQuick in 'Orders\fOrderSaveQuick.pas' {frmSaveQuickOrder},
|
|---|
| 213 | fOrdersComplete in 'Orders\fOrdersComplete.pas' {frmCompleteOrders},
|
|---|
| 214 | fOrdersCopy in 'Orders\fOrdersCopy.pas' {frmCopyOrders},
|
|---|
| 215 | fOrdersDC in 'Orders\fOrdersDC.pas' {frmDCOrders},
|
|---|
| 216 | fOrdersHold in 'Orders\fOrdersHold.pas' {frmHoldOrders},
|
|---|
| 217 | fOrdersOnChart in 'Orders\fOrdersOnChart.pas' {frmOnChartOrders},
|
|---|
| 218 | fOrdersPrint in 'Orders\fOrdersPrint.pas' {frmOrdersPrint},
|
|---|
| 219 | fOrdersRefill in 'Orders\fOrdersRefill.pas' {frmRefillOrders},
|
|---|
| 220 | fOrdersRelease in 'Orders\fOrdersRelease.pas' {frmReleaseOrders},
|
|---|
| 221 | fOrdersRenew in 'Orders\fOrdersRenew.pas' {frmRenewOrders},
|
|---|
| 222 | fOrdersSign in 'Orders\fOrdersSign.pas' {frmSignOrders},
|
|---|
| 223 | fOrdersTS in 'Orders\fOrdersTS.pas' {frmOrdersTS},
|
|---|
| 224 | fOrdersUnhold in 'Orders\fOrdersUnhold.pas' {frmUnholdOrders},
|
|---|
| 225 | fOrdersVerify in 'Orders\fOrdersVerify.pas' {frmVerifyOrders},
|
|---|
| 226 | fOrderUnflag in 'Orders\fOrderUnflag.pas' {frmUnflagOrder},
|
|---|
| 227 | fOrderVw in 'Orders\fOrderVw.pas' {frmOrderView},
|
|---|
| 228 | rODAllergy in 'Orders\rODAllergy.pas',
|
|---|
| 229 | rODBase in 'Orders\rODBase.pas',
|
|---|
| 230 | rODDiet in 'Orders\rODDiet.pas',
|
|---|
| 231 | rODLab in 'Orders\rODLab.pas',
|
|---|
| 232 | rODMeds in 'Orders\rODMeds.pas',
|
|---|
| 233 | rODRad in 'Orders\rODRad.pas',
|
|---|
| 234 | rOrders in 'Orders\rOrders.pas',
|
|---|
| 235 | uODBase in 'Orders\uODBase.pas',
|
|---|
| 236 | fOCAccept in 'Orders\fOCAccept.pas' {frmOCAccept},
|
|---|
| 237 | fODConsult in 'Consults\fODConsult.pas' {frmODCslt},
|
|---|
| 238 | fODProc in 'Consults\fODProc.pas' {frmODProc},
|
|---|
| 239 | uOptions in 'Options\uOptions.pas',
|
|---|
| 240 | fOptionsCombinations in 'Options\fOptionsCombinations.pas' {frmOptionsCombinations},
|
|---|
| 241 | fOptionsDays in 'Options\fOptionsDays.pas' {frmOptionsDays},
|
|---|
| 242 | fOptionsLists in 'Options\fOptionsLists.pas' {frmOptionsLists},
|
|---|
| 243 | fOptionsNewList in 'Options\fOptionsNewList.pas' {frmOptionsNewList},
|
|---|
| [686] | 244 | fOptionsNotes in 'fOptionsNotes.pas' {frmOptionsNotes},
|
|---|
| [453] | 245 | fOptionsOther in 'Options\fOptionsOther.pas' {frmOptionsOther},
|
|---|
| 246 | fOptionsPatientSelection in 'Options\fOptionsPatientSelection.pas' {frmOptionsPatientSelection},
|
|---|
| 247 | fOptionsPrimaryList in 'Options\fOptionsPrimaryList.pas' {frmOptionsPrimaryList},
|
|---|
| 248 | fOptionsReminders in 'Options\fOptionsReminders.pas' {frmOptionsReminders},
|
|---|
| 249 | fOptionsReportsCustom in 'Options\fOptionsReportsCustom.pas' {frmOptionsReportsCustom},
|
|---|
| 250 | fOptionsReportsDefault in 'Options\fOptionsReportsDefault.pas' {frmOptionsReportsDefault},
|
|---|
| 251 | fOptionsSubscribe in 'Options\fOptionsSubscribe.pas' {frmOptionsSubscribe},
|
|---|
| 252 | fOptionsSurrogate in 'Options\fOptionsSurrogate.pas' {frmOptionsSurrogate},
|
|---|
| 253 | fOptionsTeams in 'Options\fOptionsTeams.pas' {frmOptionsTeams},
|
|---|
| 254 | fOptionsTitles in 'Options\fOptionsTitles.pas' {frmOptionsTitles},
|
|---|
| 255 | rOptions in 'Options\rOptions.pas',
|
|---|
| 256 | fOptions in 'Options\fOptions.pas' {frmOptions},
|
|---|
| 257 | uSignItems in 'uSignItems.pas',
|
|---|
| 258 | mCoPayDesc in 'mCoPayDesc.pas' {fraCoPayDesc: TFrame},
|
|---|
| 259 | XuDigSigSC_TLB in 'XuDigSigSC_TLB.pas',
|
|---|
| 260 | fOrdersCV in 'Orders\fOrdersCV.pas' {frmChgEvent},
|
|---|
| 261 | fODReleaseEvent in 'Orders\fODReleaseEvent.pas' {frmOrdersReleaseEvent},
|
|---|
| 262 | fODActive in 'Orders\fODActive.pas' {frmODActive},
|
|---|
| 263 | fDefaultEvent in 'fDefaultEvent.pas' {frmDefaultEvent},
|
|---|
| 264 | mEvntDelay in 'mEvntDelay.pas' {fraEvntDelayList: TFrame},
|
|---|
| 265 | fOrdersEvntRelease in 'Orders\fOrdersEvntRelease.pas' {frmOrdersEvntRelease},
|
|---|
| 266 | rECS in 'rECS.pas',
|
|---|
| 267 | fODChangeEvtDisp in 'Orders\fODChangeEvtDisp.pas' {frmChangeEventDisp},
|
|---|
| 268 | fODValidateAction in 'Orders\fODValidateAction.pas' {frmInvalidActionList},
|
|---|
| 269 | fODChild in 'Orders\fODChild.pas' {frmODChild},
|
|---|
| 270 | uAccessibleStringGrid in 'uAccessibleStringGrid.pas' {AccessibleStringGrid: CoClass},
|
|---|
| 271 | Accessibility_TLB in 'Accessibility_TLB.pas',
|
|---|
| 272 | uAccessibleListBox in 'uAccessibleListBox.pas' {AccessibleListBox: CoClass},
|
|---|
| 273 | uAccessibleTreeNode in 'uAccessibleTreeNode.pas' {IAccessibleTreeNode: CoClass},
|
|---|
| 274 | uAccessibleTreeView in 'uAccessibleTreeView.pas' {AccessibleTreeView: CoClass},
|
|---|
| 275 | fDupPts in 'fDupPts.pas' {frmDupPts},
|
|---|
| 276 | VERGENCECONTEXTORLib_TLB in 'VERGENCECONTEXTORLib_TLB.pas',
|
|---|
| 277 | uOrPtf in 'uOrPtf.pas',
|
|---|
| 278 | fPatientFlagMulti in 'fPatientFlagMulti.pas' {frmFlags},
|
|---|
| 279 | fFrame in 'fFrame.pas' {frmFrame},
|
|---|
| 280 | fAlertForward in 'fAlertForward.pas' {frmAlertForward},
|
|---|
| 281 | fODMedNVA in 'Orders\fODMedNVA.pas' {frmODMedNVA},
|
|---|
| 282 | uAccessibleRichEdit in 'uAccessibleRichEdit.pas' {AccessibleRichEdit: CoClass},
|
|---|
| 283 | fPrintList in 'fPrintList.pas' {frmPrintList},
|
|---|
| 284 | fODChangeUnreleasedRenew in 'Orders\fODChangeUnreleasedRenew.pas' {frmODChangeUnreleasedRenew},
|
|---|
| 285 | UBAMessages in 'BA\UBAMessages.pas',
|
|---|
| 286 | UBAConst in 'BA\UBAConst.pas',
|
|---|
| 287 | UBAGlobals in 'BA\UBAGlobals.pas',
|
|---|
| 288 | fBALocalDiagnoses in 'BA\fBALocalDiagnoses.pas' {frmBALocalDiagnoses},
|
|---|
| 289 | fReview in 'fReview.pas' {frmReview},
|
|---|
| 290 | fARTFreeTextMsg in 'fARTFreeTextMsg.pas' {frmARTFreeTextMsg},
|
|---|
| 291 | fAllgyBox in 'fAllgyBox.pas' {frmAllgyBox},
|
|---|
| 292 | fARTAllgy in 'fARTAllgy.pas' {frmARTAllergy},
|
|---|
| 293 | UBACore in 'BA\UBACore.pas',
|
|---|
| 294 | fBAOptionsDiagnoses in 'BA\fBAOptionsDiagnoses.pas' {frmBAOptionsDiagnoses},
|
|---|
| 295 | fOtherSchedule in 'Orders\fOtherSchedule.pas' {frmOtherSchedule},
|
|---|
| 296 | fODBBank in 'Orders\fODBBank.pas' {frmODBBank},
|
|---|
| 297 | fNoteST in 'fNoteST.pas' {frmNotesSearchText},
|
|---|
| 298 | fNoteSTStop in 'fNoteSTStop.pas' {frmSearchStop},
|
|---|
| 299 | rGraphs in 'rGraphs.pas',
|
|---|
| 300 | fGraphs in 'fGraphs.pas' {frmGraphs},
|
|---|
| 301 | fGraphSettings in 'fGraphSettings.pas' {frmGraphSettings},
|
|---|
| 302 | fGraphProfiles in 'fGraphProfiles.pas' {frmGraphProfiles},
|
|---|
| 303 | uGraphs in 'uGraphs.pas',
|
|---|
| 304 | fClinicWardMeds in 'fClinicWardMeds.pas' {frmClinicWardMeds},
|
|---|
| 305 | fActivateDeactivate in 'fActivateDeactivate.pas' {frmActivateDeactive},
|
|---|
| 306 | uFormMonitor in 'uFormMonitor.pas',
|
|---|
| 307 | rHTMLTools in 'rHTMLTools.pas',
|
|---|
| 308 | fImages in 'fImages.pas' {frmImages},
|
|---|
| 309 | UploadImages in 'UploadImages.pas' {UploadForm},
|
|---|
| [729] | 310 | frmImageTransferProgress in 'TMG_Extra\frmImageTransferProgress.pas' {ImageTransferForm},
|
|---|
| [453] | 311 | fProbLex in 'fProbLex.pas' {frmPLLex},
|
|---|
| 312 | fTIUView in 'fTIUView.pas' {frmTIUView},
|
|---|
| 313 | fODAllgy in 'Orders\fODAllgy.pas' {frmODAllergy},
|
|---|
| 314 | fDeviceSelect in 'fDeviceSelect.pas' {frmDeviceSelect},
|
|---|
| 315 | fPtAdd in 'TMG_Extra\fPtAdd.pas' {frmPtAdd},
|
|---|
| 316 | fPtDemoEdit in 'TMG_Extra\fPtDemoEdit.pas' {frmPtDemoEdit},
|
|---|
| [541] | 317 | fWebTab in 'TMG_Extra\fWebTab.pas' {frmWebTab},
|
|---|
| 318 | SubfilesU in 'TMG_Extra\SubfilesU.pas',
|
|---|
| 319 | SelDateTimeU in 'TMG_Extra\SelDateTimeU.pas' {SelDateTimeForm},
|
|---|
| 320 | SetSelU in 'TMG_Extra\SetSelU.pas' {SetSelForm},
|
|---|
| 321 | FMErrorU in 'TMG_Extra\FMErrorU.pas' {FMErrorForm},
|
|---|
| 322 | LookupU in 'TMG_Extra\LookupU.pas' {FieldLookupForm},
|
|---|
| 323 | PostU in 'TMG_Extra\PostU.pas' {PostForm},
|
|---|
| [612] | 324 | EditTextU in 'TMG_Extra\EditTextU.pas' {EditTextForm},
|
|---|
| [670] | 325 | ORNet in '..\CPRS-Lib\ORNet.pas',
|
|---|
| [729] | 326 | fTMGPrintingAnimation in 'TMG_Extra\fTMGPrintingAnimation.pas',
|
|---|
| 327 | uTMGOptions in 'uTMGOptions.pas',
|
|---|
| 328 | fPtLabelPrint in 'TMG_Extra\fPtLabelPrint.pas' {frmPtLabelPrint},
|
|---|
| [793] | 329 | uEvaluate in 'uEvaluate.pas',
|
|---|
| 330 | fPtQuery in 'TMG_Extra\fPtQuery.pas' {frmPtQuery},
|
|---|
| 331 | SearchAnimationU in 'TMG_Extra\SearchAnimationU.pas' {frmTMGServerSearch},
|
|---|
| 332 | frmSearchResults in 'TMG_Extra\frmSearchResults.pas' {frmSrchResults},
|
|---|
| [800] | 333 | uLogic in 'TMG_Extra\uLogic.pas',
|
|---|
| [801] | 334 | fImagePickPDF in 'TMG_Extra\fImagePickPDF.pas' {frmImagePickPDF},
|
|---|
| [809] | 335 | fImagePickExisting in 'TMG_Extra\fImagePickExisting.pas' {frmImagePickExisting},
|
|---|
| 336 | fPtDocSearch in 'TMG_Extra\fPtDocSearch.pas' {frmPtDocSearch};
|
|---|
| [453] | 337 |
|
|---|
| 338 | {$R *.TLB}
|
|---|
| 339 |
|
|---|
| 340 | {$R *.RES}
|
|---|
| 341 |
|
|---|
| 342 | {$R *.dkl_const.res} //kt added 7/1/07 to support language constants
|
|---|
| 343 |
|
|---|
| 344 | begin
|
|---|
| 345 | if not UpdateSelf then // only start if not copying new version
|
|---|
| 346 | begin
|
|---|
| 347 | RegisterCPRSTypeLibrary; // will halt program if /regserver or /unregserver param
|
|---|
| 348 | Application.Initialize;
|
|---|
| 349 | frmSplash := nil;
|
|---|
| [729] | 350 | if ParamSearch('SPLASH') <> 'OFF' then begin
|
|---|
| [453] | 351 | frmSplash := TfrmSplash.Create(Application); // show splash screen
|
|---|
| 352 | frmSplash.Show; // "
|
|---|
| 353 | frmSplash.Refresh; // "
|
|---|
| 354 | end;
|
|---|
| 355 | //Application.Title := DKLangConstW('STestMessage'); //kt 7-1-09
|
|---|
| [490] | 356 | Application.Title := 'CPRS - Patient Chart'; //kt 7-1-09 <-- original line restored
|
|---|
| [453] | 357 | Application.HelpFile := 'cprs.hlp';
|
|---|
| 358 | Application.CreateForm(TdmodShared, dmodShared);
|
|---|
| [877] | 359 | Application.CreateForm(TfrmFrame, frmFrame);
|
|---|
| 360 | //kt <--- frmImages etc created here
|
|---|
| [729] | 361 | if frmframe.TMGAbort = False then begin //kt 3/25/09
|
|---|
| [819] | 362 | Application.CreateForm(TfrmPtDocSearch, frmPtDocSearch);
|
|---|
| [809] | 363 | Application.CreateForm(TfrmPtLabelPrint, frmPtLabelPrint);
|
|---|
| [541] | 364 | Application.CreateForm(TfrmSearchStop, frmSearchStop);
|
|---|
| 365 | Application.CreateForm(TUploadForm, UploadForm);
|
|---|
| [729] | 366 | Application.CreateForm(TImageTransferForm, ImageTransferForm);
|
|---|
| [541] | 367 | Application.CreateForm(TfrmODAllergy, frmODAllergy);
|
|---|
| 368 | Application.CreateForm(TfrmDeviceSelect, frmDeviceSelect);
|
|---|
| 369 | Application.CreateForm(TfrmPtAdd, frmPtAdd);
|
|---|
| 370 | Application.CreateForm(TfrmPtDemoEdit, frmPtDemoEdit);
|
|---|
| 371 | Application.CreateForm(TSelDateTimeForm, SelDateTimeForm);
|
|---|
| 372 | Application.CreateForm(TSetSelForm, SetSelForm);
|
|---|
| 373 | Application.CreateForm(TFMErrorForm, FMErrorForm);
|
|---|
| 374 | Application.CreateForm(TFieldLookupForm, FieldLookupForm);
|
|---|
| 375 | Application.CreateForm(TPostForm, PostForm);
|
|---|
| 376 | Application.CreateForm(TEditTextForm, EditTextForm);
|
|---|
| [670] | 377 | Application.CreateForm(TfrmTMGPrinting,frmTMGPrinting);
|
|---|
| [793] | 378 | Application.CreateForm(TfrmPtQuery, frmPtQuery);
|
|---|
| 379 | Application.CreateForm(TfrmTMGServerSearch, frmTMGServerSearch);
|
|---|
| 380 | Application.CreateForm(TfrmSrchResults, frmSrchResults);
|
|---|
| [541] | 381 | frmSplash.Free; // close & free splash screen
|
|---|
| 382 | Application.Run;
|
|---|
| 383 | end;
|
|---|
| 384 | end; //kt 3/25/09
|
|---|
| [453] | 385 | end.
|
|---|
