source: cprs/trunk/CPRS-Chart/CPRSChart.dpr@ 1059

Last change on this file since 1059 was 830, checked in by Kevin Toppenberg, 14 years ago

Upgrading to version 27

File size: 16.9 KB
RevLine 
[456]1program CPRSChart;
2
[830]3
4
5
6
[456]7uses
8 ShareMem,
9 Forms,
10 ORSystem,
11 fPage in 'fPage.pas' {frmPage},
12 fHSplit in 'fHSplit.pas' {frmHSplit},
13 fHP in 'fHP.pas' {frmHP},
14 fCover in 'fCover.pas' {frmCover},
15 fMeds in 'fMeds.pas' {frmMeds},
16 fNotes in 'fNotes.pas' {frmNotes},
17 fDCSumm in 'fDCSumm.pas' {frmDCSumm},
18 fLabs in 'fLabs.pas' {frmLabs},
19 fReports in 'fReports.pas' {frmReports},
20 uCore in 'uCore.pas',
21 fPtSel in 'fPtSel.pas' {frmPtSel},
22 fPtSens in 'fPtSens.pas' {frmPtSens},
23 rCore in 'rCore.pas',
24 fEncnt in 'fEncnt.pas' {frmEncounter},
25 fVisit in 'fVisit.pas' {frmVisit},
26 fPtDemo in 'fPtDemo.pas' {frmPtDemo},
27 rTIU in 'rTIU.pas',
28 fxBroker in 'fxBroker.pas' {frmBroker},
29 fNoteBA in 'fNoteBA.pas' {frmNotesByAuthor},
30 fNoteBD in 'fNoteBD.pas' {frmNotesByDate},
31 fLabTest in 'fLabTest.pas' {frmLabTest},
32 fLabTestGroups in 'fLabTestGroups.pas' {frmLabTestGroups},
33 fLabTests in 'fLabTests.pas' {frmLabTests},
34 rLabs in 'rLabs.pas',
35 fSignItem in 'fSignItem.pas' {frmSignItem},
36 rCover in 'rCover.pas',
37 fRptBox in 'fRptBox.pas' {frmReportBox},
38 rReports in 'rReports.pas',
39 fAbout in 'fAbout.pas' {frmAbout},
40 fxLists in 'fxLists.pas' {frmDbgList},
41 fProbs in 'fProbs.pas' {frmProblems},
42 fAutoSz in 'fAutoSz.pas' {frmAutoSz},
43 rMisc in 'rMisc.pas',
44 fxServer in 'fxServer.pas' {frmDbgServer},
45 fPtCWAD in 'fPtCWAD.pas' {frmPtCWAD},
46 rMeds in 'rMeds.pas',
47 fVitals in 'fVitals.pas' {frmVitals},
48 uProbs in 'uProbs.pas',
49 fProbEdt in 'fProbEdt.pas' {frmdlgProb},
[830]50 fProbFlt in 'fProbFlt.pas' {frmPlVuFilt},
[456]51 fProbCmt in 'fProbCmt.pas' {frmProbCmt},
52 fNoteCslt in 'fNoteCslt.pas' {frmNoteConsult},
53 fNotePrt in 'fNotePrt.pas' {frmNotePrint},
54 uConst in 'uConst.pas',
55 fConsults in 'Consults\fConsults.pas' {frmConsults},
56 fLkUpLocation in 'fLkUpLocation.pas' {frmLkUpLocation},
57 fRename in 'fRename.pas' {frmRename},
58 fDateRange in 'fDateRange.pas' {frmDateRange},
59 fRenewOutMed in 'fRenewOutMed.pas' {frmRenewOutMed},
60 fConsult513Prt in 'Consults\fConsult513Prt.pas' {frm513Print},
61 fConsultAct in 'Consults\fConsultAct.pas' {frmConsultAction},
62 fConsultAlertTo in 'Consults\fConsultAlertTo.pas' {frmConsultAlertsTo},
63 fConsultBD in 'Consults\fConsultBD.pas' {frmConsultsByDate},
64 fConsultBS in 'Consults\fConsultBS.pas' {frmConsultsByService},
65 fConsultBSt in 'Consults\fConsultBSt.pas' {frmConsultsByStatus},
66 fConsultsView in 'Consults\fConsultsView.pas' {frmConsultsView},
67 rConsults in 'Consults\rConsults.pas',
68 uConsults in 'Consults\uConsults.pas',
69 fTimeout in 'fTimeout.pas' {frmTimeout},
70 fNoteDR in 'fNoteDR.pas' {frmNoteDelReason},
71 rDCSumm in 'rDCSumm.pas',
72 fSplash in 'fSplash.pas' {frmSplash},
73 fCsltNote in 'Consults\fCsltNote.pas' {frmCsltNote},
74 rProbs in 'rProbs.pas',
75 fEditConsult in 'Consults\fEditConsult.pas' {frmEditCslt},
76 fEditProc in 'Consults\fEditProc.pas' {frmEditProc},
77 fAllgyFind in 'fAllgyFind.pas' {frmAllgyFind},
78 fAddlSigners in 'fAddlSigners.pas' {frmAddlSigners},
79 fLabPrint in 'fLabPrint.pas' {frmLabPrint},
80 fReportsPrint in 'fReportsPrint.pas' {frmReportPrt},
81 fvit in 'fvit.pas' {frmVit},
82 uPCE in 'Encounter\uPCE.pas',
83 fEncounterFrame in 'Encounter\fEncounterFrame.pas' {frmEncounterFrame},
84 fPCEBase in 'Encounter\fPCEBase.pas' {frmPCEBase},
85 fPCELex in 'Encounter\fPCELex.pas' {frmPCELex},
86 fPCEOther in 'Encounter\fPCEOther.pas' {frmPCEOther},
87 fProcedure in 'Encounter\fProcedure.pas' {frmProcedures},
88 fSkinTest in 'Encounter\fSkinTest.pas' {frmSkinTests},
89 fVisitType in 'Encounter\fVisitType.pas' {frmVisitType},
90 rPCE in 'Encounter\rPCE.pas',
91 fDiagnoses in 'Encounter\fDiagnoses.pas' {frmDiagnoses},
92 fPatientEd in 'Encounter\fPatientEd.pas' {frmPatientEd},
93 fExam in 'Encounter\fExam.pas' {frmExams},
94 fHealthFactor in 'Encounter\fHealthFactor.pas' {frmHealthFactors},
95 fImmunization in 'Encounter\fImmunization.pas' {frmImmunizations},
96 fEncVitals in 'Encounter\fEncVitals.pas' {frmEncVitals},
97 fEffectDate in 'fEffectDate.pas' {frmEffectDate},
98 fPtSelDemog in 'fPtSelDemog.pas' {frmPtSelDemog},
99 fPtSelOptns in 'fPtSelOptns.pas' {frmPtSelOptns},
100 uInit in 'uInit.pas',
101 uSpell in 'uSpell.pas',
102 dShared in 'dShared.pas' {dmodShared: TDataModule},
103 fDrawers in 'fDrawers.pas' {frmDrawers},
104 fMedCopy in 'fMedCopy.pas' {frmMedCopy},
105 uReminders in 'uReminders.pas',
106 rReminders in 'rReminders.pas',
107 fReminderTree in 'fReminderTree.pas' {frmReminderTree},
108 fReminderDialog in 'fReminderDialog.pas' {frmRemDlg},
109 fReportsAdhocSubItem1 in 'fReportsAdhocSubItem1.pas' {frmReportsAdhocSubItem1},
110 fReportsAdhocComponent1 in 'fReportsAdhocComponent1.pas' {frmReportsAdhocComponent1},
111 fPtSelMsg in 'fPtSelMsg.pas' {frmPtSelMsg},
112 fMHTest in 'fMHTest.pas' {frmMHTest},
113 fGAF in 'Encounter\fGAF.pas' {frmGAF},
114 fPCEProvider in 'Encounter\fPCEProvider.pas' {frmPCEProvider},
115 fPCEBaseGrid in 'Encounter\fPCEBaseGrid.pas' {frmPCEBaseGrid},
116 fPCEBaseMain in 'Encounter\fPCEBaseMain.pas' {frmPCEBaseMain},
117 fNoteProps in 'fNoteProps.pas' {frmNoteProperties},
118 fNotesBP in 'fNotesBP.pas' {frmNotesBP},
119 fLabInfo in 'fLabInfo.pas' {frmLabInfo},
120 fPreReq in 'Consults\fPreReq.pas' {frmPrerequisites},
121 fDCSummProps in 'fDCSummProps.pas' {frmDCSummProperties},
122 fHFSearch in 'Encounter\fHFSearch.pas' {frmHFSearch},
123 fConsMedRslt in 'Consults\fConsMedRslt.pas' {frmConsMedRslt},
124 uVitals in 'Vitals\uVitals.pas',
125 rVitals in 'Vitals\rVitals.pas',
126 uDCSumm in 'uDCSumm.pas',
127 uDocTree in 'uDocTree.pas',
128 fVitalsDate in 'Vitals\fVitalsDate.pas' {frmVitalsDate},
129 uTemplates in 'Templates\uTemplates.pas',
130 fTemplateDialog in 'Templates\fTemplateDialog.pas' {frmTemplateDialog},
131 fTemplateEditor in 'Templates\fTemplateEditor.pas' {frmTemplateEditor},
132 fTemplateFieldEditor in 'Templates\fTemplateFieldEditor.pas' {frmTemplateFieldEditor},
133 fTemplateFields in 'Templates\fTemplateFields.pas' {frmTemplateFields},
134 fTemplateObjects in 'Templates\fTemplateObjects.pas' {frmTemplateObjects},
135 fTemplateView in 'Templates\fTemplateView.pas' {frmTemplateView},
136 mTemplateFieldButton in 'Templates\mTemplateFieldButton.pas' {fraTemplateFieldButton: TFrame},
137 rTemplates in 'Templates\rTemplates.pas',
138 uTemplateFields in 'Templates\uTemplateFields.pas',
139 fTemplateAutoGen in 'Templates\fTemplateAutoGen.pas' {frmTemplateAutoGen},
140 mVisitRelated in 'Encounter\mVisitRelated.pas' {fraVisitRelated: TFrame},
141 fRemVisitInfo in 'fRemVisitInfo.pas' {frmRemVisitInfo},
142 fIconLegend in 'fIconLegend.pas' {frmIconLegend},
143 mImgText in 'mImgText.pas' {fraImgText: TFrame},
144 fTemplateImport in 'Templates\fTemplateImport.pas' {frmTemplateImport},
145 fRemCoverSheet in 'fRemCoverSheet.pas' {frmRemCoverSheet},
146 uTIU in 'uTIU.pas',
147 fRemCoverPreview in 'fRemCoverPreview.pas' {frmRemCoverPreview},
148 fPCEEdit in 'Encounter\fPCEEdit.pas' {frmPCEEdit},
149 uSurgery in 'uSurgery.pas',
150 fSurgeryView in 'fSurgeryView.pas' {frmSurgeryView},
151 rSurgery in 'rSurgery.pas',
152 uCaseTree in 'uCaseTree.pas',
153 fSurgery in 'fSurgery.pas' {frmSurgery},
154 fNoteIDParents in 'fNoteIDParents.pas' {frmNoteIDParents},
155 uReports in 'uReports.pas',
156 fNoteCPFields in 'fNoteCPFields.pas' {frmNoteCPFields},
157 CPRSChart_TLB in 'CPRSChart_TLB.pas',
158 uEventHooks in 'uEventHooks.pas',
159 rEventHooks in 'rEventHooks.pas',
160 fPtSelOptSave in 'fPtSelOptSave.pas' {frmPtSelOptSave},
161 uOrders in 'Orders\uOrders.pas',
162 fOCSession in 'Orders\fOCSession.pas' {frmOCSession},
163 fODAuto in 'Orders\fODAuto.pas',
164 fODBase in 'Orders\fODBase.pas' {frmODBase},
165 fODDiet in 'Orders\fODDiet.pas' {frmODDiet},
166 fODDietLT in 'Orders\fODDietLT.pas' {frmODDietLT},
167 fODGen in 'Orders\fODGen.pas' {frmODGen},
168 fODLab in 'Orders\fODLab.pas' {frmODLab},
169 fODLabImmedColl in 'Orders\fODLabImmedColl.pas' {frmODLabImmedColl},
170 fODLabOthCollSamp in 'Orders\fODLabOthCollSamp.pas' {frmODLabOthCollSamp},
171 fODLabOthSpec in 'Orders\fODLabOthSpec.pas' {frmODLabOthSpec},
172 fODMedComplex in 'Orders\fODMedComplex.pas' {frmODMedComplex},
173 fODMedFA in 'Orders\fODMedFA.pas' {frmODMedFA},
174 fODMedIn in 'Orders\fODMedIn.pas' {frmODMedIn},
175 fODMedIV in 'Orders\fODMedIV.pas' {frmODMedIV},
176 fODMedOIFA in 'Orders\fODMedOIFA.pas' {frmODMedOIFA},
177 fODMedOut in 'Orders\fODMedOut.pas' {frmODMedOut},
178 fODMeds in 'Orders\fODMeds.pas' {frmODMeds},
179 fODMessage in 'Orders\fODMessage.pas' {frmODMessage},
180 fODMisc in 'Orders\fODMisc.pas' {frmODMisc},
181 fODRad in 'Orders\fODRad.pas' {frmODRad},
182 fODRadApproval in 'Orders\fODRadApproval.pas' {frmODRadApproval},
183 fODRadConShRes in 'Orders\fODRadConShRes.pas' {frmODRadConShRes},
184 fODRadImType in 'Orders\fODRadImType.pas' {frmODRadImType},
185 fODSaveQuick in 'Orders\fODSaveQuick.pas' {frmODQuick},
186 fODText in 'Orders\fODText.pas' {frmODText},
187 fODVitals in 'Orders\fODVitals.pas' {frmODVitals},
188 fOMAction in 'Orders\fOMAction.pas' {frmOMAction},
189 fOMHTML in 'Orders\fOMHTML.pas' {frmOMHTML},
190 fOMNavA in 'Orders\fOMNavA.pas' {frmOMNavA},
191 fOMProgress in 'Orders\fOMProgress.pas' {frmOMProgress},
192 fOMSet in 'Orders\fOMSet.pas' {frmOMSet},
193 fOMVerify in 'Orders\fOMVerify.pas' {frmOMVerify},
194 fOrderComment in 'Orders\fOrderComment.pas' {frmWardComments},
195 fOrderFlag in 'Orders\fOrderFlag.pas' {frmFlagOrder},
196 fOrders in 'Orders\fOrders.pas' {frmOrders},
197 fOrdersAlert in 'Orders\fOrdersAlert.pas' {frmAlertOrders},
198 fOrderSaveQuick in 'Orders\fOrderSaveQuick.pas' {frmSaveQuickOrder},
199 fOrdersComplete in 'Orders\fOrdersComplete.pas' {frmCompleteOrders},
200 fOrdersCopy in 'Orders\fOrdersCopy.pas' {frmCopyOrders},
201 fOrdersDC in 'Orders\fOrdersDC.pas' {frmDCOrders},
202 fOrdersHold in 'Orders\fOrdersHold.pas' {frmHoldOrders},
203 fOrdersOnChart in 'Orders\fOrdersOnChart.pas' {frmOnChartOrders},
204 fOrdersPrint in 'Orders\fOrdersPrint.pas' {frmOrdersPrint},
205 fOrdersRefill in 'Orders\fOrdersRefill.pas' {frmRefillOrders},
206 fOrdersRelease in 'Orders\fOrdersRelease.pas' {frmReleaseOrders},
207 fOrdersRenew in 'Orders\fOrdersRenew.pas' {frmRenewOrders},
208 fOrdersSign in 'Orders\fOrdersSign.pas' {frmSignOrders},
209 fOrdersTS in 'Orders\fOrdersTS.pas' {frmOrdersTS},
210 fOrdersUnhold in 'Orders\fOrdersUnhold.pas' {frmUnholdOrders},
211 fOrdersVerify in 'Orders\fOrdersVerify.pas' {frmVerifyOrders},
212 fOrderUnflag in 'Orders\fOrderUnflag.pas' {frmUnflagOrder},
213 fOrderVw in 'Orders\fOrderVw.pas' {frmOrderView},
214 rODAllergy in 'Orders\rODAllergy.pas',
215 rODBase in 'Orders\rODBase.pas',
216 rODDiet in 'Orders\rODDiet.pas',
217 rODLab in 'Orders\rODLab.pas',
218 rODMeds in 'Orders\rODMeds.pas',
219 rODRad in 'Orders\rODRad.pas',
220 rOrders in 'Orders\rOrders.pas',
221 uODBase in 'Orders\uODBase.pas',
222 fOCAccept in 'Orders\fOCAccept.pas' {frmOCAccept},
223 fODConsult in 'Consults\fODConsult.pas' {frmODCslt},
224 fODProc in 'Consults\fODProc.pas' {frmODProc},
225 uOptions in 'Options\uOptions.pas',
226 fOptionsCombinations in 'Options\fOptionsCombinations.pas' {frmOptionsCombinations},
227 fOptionsDays in 'Options\fOptionsDays.pas' {frmOptionsDays},
228 fOptionsLists in 'Options\fOptionsLists.pas' {frmOptionsLists},
229 fOptionsNewList in 'Options\fOptionsNewList.pas' {frmOptionsNewList},
230 fOptionsNotes in 'Options\fOptionsNotes.pas' {frmOptionsNotes},
231 fOptionsOther in 'Options\fOptionsOther.pas' {frmOptionsOther},
232 fOptionsPatientSelection in 'Options\fOptionsPatientSelection.pas' {frmOptionsPatientSelection},
233 fOptionsPrimaryList in 'Options\fOptionsPrimaryList.pas' {frmOptionsPrimaryList},
234 fOptionsReminders in 'Options\fOptionsReminders.pas' {frmOptionsReminders},
235 fOptionsReportsCustom in 'Options\fOptionsReportsCustom.pas' {frmOptionsReportsCustom},
236 fOptionsReportsDefault in 'Options\fOptionsReportsDefault.pas' {frmOptionsReportsDefault},
237 fOptionsSubscribe in 'Options\fOptionsSubscribe.pas' {frmOptionsSubscribe},
238 fOptionsSurrogate in 'Options\fOptionsSurrogate.pas' {frmOptionsSurrogate},
239 fOptionsTeams in 'Options\fOptionsTeams.pas' {frmOptionsTeams},
240 fOptionsTitles in 'Options\fOptionsTitles.pas' {frmOptionsTitles},
241 rOptions in 'Options\rOptions.pas',
242 fOptions in 'Options\fOptions.pas' {frmOptions},
243 uSignItems in 'uSignItems.pas',
244 mCoPayDesc in 'mCoPayDesc.pas' {fraCoPayDesc: TFrame},
245 XuDigSigSC_TLB in 'XuDigSigSC_TLB.pas',
246 fOrdersCV in 'Orders\fOrdersCV.pas' {frmChgEvent},
247 fODReleaseEvent in 'Orders\fODReleaseEvent.pas' {frmOrdersReleaseEvent},
248 fODActive in 'Orders\fODActive.pas' {frmODActive},
249 fDefaultEvent in 'fDefaultEvent.pas' {frmDefaultEvent},
250 mEvntDelay in 'mEvntDelay.pas' {fraEvntDelayList: TFrame},
251 fOrdersEvntRelease in 'Orders\fOrdersEvntRelease.pas' {frmOrdersEvntRelease},
252 rECS in 'rECS.pas',
253 fODChangeEvtDisp in 'Orders\fODChangeEvtDisp.pas' {frmChangeEventDisp},
254 fODValidateAction in 'Orders\fODValidateAction.pas' {frmInvalidActionList},
255 fODChild in 'Orders\fODChild.pas' {frmODChild},
256 fDupPts in 'fDupPts.pas' {frmDupPts},
257 VERGENCECONTEXTORLib_TLB in 'VERGENCECONTEXTORLib_TLB.pas',
258 uOrPtf in 'uOrPtf.pas',
259 fPatientFlagMulti in 'fPatientFlagMulti.pas' {frmFlags},
260 fFrame in 'fFrame.pas' {frmFrame},
261 fAlertForward in 'fAlertForward.pas' {frmAlertForward},
262 fODMedNVA in 'Orders\fODMedNVA.pas' {frmODMedNVA},
263 fPrintList in 'fPrintList.pas' {frmPrintList},
264 fODChangeUnreleasedRenew in 'Orders\fODChangeUnreleasedRenew.pas' {frmODChangeUnreleasedRenew},
265 UBAMessages in 'BA\UBAMessages.pas',
266 UBAConst in 'BA\UBAConst.pas',
267 UBAGlobals in 'BA\UBAGlobals.pas',
268 fBALocalDiagnoses in 'BA\fBALocalDiagnoses.pas' {frmBALocalDiagnoses},
269 fReview in 'fReview.pas' {frmReview},
270 fARTFreeTextMsg in 'fARTFreeTextMsg.pas' {frmARTFreeTextMsg},
271 fAllgyBox in 'fAllgyBox.pas' {frmAllgyBox},
272 fARTAllgy in 'fARTAllgy.pas' {frmARTAllergy},
273 UBACore in 'BA\UBACore.pas',
274 fBAOptionsDiagnoses in 'BA\fBAOptionsDiagnoses.pas' {frmBAOptionsDiagnoses},
275 fOtherSchedule in 'Orders\fOtherSchedule.pas' {frmOtherSchedule},
276 fODBBank in 'Orders\fODBBank.pas' {frmODBBank},
277 fNoteST in 'fNoteST.pas' {frmNotesSearchText},
278 fNoteSTStop in 'fNoteSTStop.pas' {frmSearchStop},
279 rGraphs in 'rGraphs.pas',
280 fGraphs in 'fGraphs.pas' {frmGraphs},
281 fGraphSettings in 'fGraphSettings.pas' {frmGraphSettings},
282 fGraphProfiles in 'fGraphProfiles.pas' {frmGraphProfiles},
283 uGraphs in 'uGraphs.pas',
284 fClinicWardMeds in 'fClinicWardMeds.pas' {frmClinicWardMeds},
285 fActivateDeactivate in 'fActivateDeactivate.pas' {frmActivateDeactive},
[830]286 uFormMonitor in 'uFormMonitor.pas',
287 fAResize in 'fAResize.pas' {frmAutoResize},
288 fODAllgy in 'Orders\fODAllgy.pas' {frmODAllergy},
289 fDeviceSelect in 'fDeviceSelect.pas' {frmDeviceSelect},
290 fLabCollTimes in 'fLabCollTimes.pas' {frmLabCollectTimes},
291 fPostings in 'fPostings.pas' {frmPostings},
292 fProbLex in 'fProbLex.pas' {frmPLLex},
293 fTIUView in 'fTIUView.pas' {frmTIUView},
294 ORClasses in '..\CPRS-Lib\ORClasses.pas',
295 ORCtrls in '..\CPRS-Lib\ORCtrls.pas',
296 ORDtTm in '..\CPRS-Lib\ORDtTm.pas' {ORfrmDtTm},
297 ORDtTmCal in '..\CPRS-Lib\ORDtTmCal.pas',
298 ORDtTmRng in '..\CPRS-Lib\ORDtTmRng.pas' {ORfrmDateRange},
299 ORFn in '..\CPRS-Lib\ORFn.pas',
300 ORNet in '..\CPRS-Lib\ORNet.pas',
301 Vawrgrid in '..\CPRS-Lib\Vawrgrid.pas',
302 XMLUtils in '..\CPRS-Lib\XMLUtils.pas',
303 fBase508Form in 'fBase508Form.pas' {frmBase508Form},
304 VAUtils in '..\VA\VAUtils.pas',
305 VA2006Utils in '..\VA\VA2006Utils.pas',
306 VAClasses in '..\VA\VAClasses.pas',
307 fPrintLocation in 'fPrintLocation.pas' {frmPrintLocation},
308 uVA508CPRSCompatibility in 'uVA508CPRSCompatibility.pas',
309 VA508AccessibilityManager in '..\VA\VA508Accessibility\VA508AccessibilityManager.pas',
310 ORCtrlsVA508Compatibility in '..\CPRS-Lib\ORCtrlsVA508Compatibility.pas',
311 VA508DelphiCompatibility in '..\VA\VA508Accessibility\VA508DelphiCompatibility.pas',
312 uDlgComponents in 'uDlgComponents.pas',
313 fGraphData in 'fGraphData.pas' {frmGraphData},
314 fGraphOthers in 'fGraphOthers.pas' {frmGraphOthers},
315 VA508AccessibilityRouter in '..\VA\VA508Accessibility\VA508AccessibilityRouter.pas',
316 fIVRoutes in 'Orders\fIVRoutes.pas' {frmIVRoutes},
317 fFindingTemplates in 'Templates\fFindingTemplates.pas' {frmFindingTemplates};
[456]318
319{$R *.TLB}
320
321{$R *.RES}
322
323begin
324 if not UpdateSelf then // only start if not copying new version
325 begin
[830]326 if not BorlandDLLVersionOK then exit; // Exit immediately if old or missing BORLNDMM.DLL
[456]327 RegisterCPRSTypeLibrary; // will halt program if /regserver or /unregserver param
328 Application.Initialize;
329 frmSplash := nil;
330 if ParamSearch('SPLASH') <> 'OFF' then
331 begin
332 frmSplash := TfrmSplash.Create(Application); // show splash screen
333 frmSplash.Show; // "
334 frmSplash.Refresh; // "
335 end;
336 Application.Title := 'CPRS - Patient Chart';
337 Application.HelpFile := 'cprs.hlp';
338 Application.CreateForm(TdmodShared, dmodShared);
339 Application.CreateForm(TfrmFrame, frmFrame);
340 Application.CreateForm(TfrmSearchStop, frmSearchStop);
341 frmSplash.Free; // close & free splash screen
342 Application.Run;
343 end;
[830]344end.
Note: See TracBrowser for help on using the repository browser.