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

Last change on this file was 1679, checked in by healthsevak, 9 years ago

Updating the working copy to CPRS version 28

File size: 17.2 KB
Line 
1program CPRSChart;
2
3
4
5
6
7uses
8 ShareMem,
9 Forms,
10 WinHelpViewer,
11 ORSystem,
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 uVitals in 'Vitals\uVitals.pas',
126 rVitals in 'Vitals\rVitals.pas',
127 uDCSumm in 'uDCSumm.pas',
128 uDocTree in 'uDocTree.pas',
129 fVitalsDate in 'Vitals\fVitalsDate.pas' {frmVitalsDate},
130 uTemplates in 'Templates\uTemplates.pas',
131 fTemplateDialog in 'Templates\fTemplateDialog.pas' {frmTemplateDialog},
132 fTemplateEditor in 'Templates\fTemplateEditor.pas' {frmTemplateEditor},
133 fTemplateFieldEditor in 'Templates\fTemplateFieldEditor.pas' {frmTemplateFieldEditor},
134 fTemplateFields in 'Templates\fTemplateFields.pas' {frmTemplateFields},
135 fTemplateObjects in 'Templates\fTemplateObjects.pas' {frmTemplateObjects},
136 fTemplateView in 'Templates\fTemplateView.pas' {frmTemplateView},
137 mTemplateFieldButton in 'Templates\mTemplateFieldButton.pas' {fraTemplateFieldButton: TFrame},
138 rTemplates in 'Templates\rTemplates.pas',
139 uTemplateFields in 'Templates\uTemplateFields.pas',
140 fTemplateAutoGen in 'Templates\fTemplateAutoGen.pas' {frmTemplateAutoGen},
141 mVisitRelated in 'Encounter\mVisitRelated.pas' {fraVisitRelated: TFrame},
142 fRemVisitInfo in 'fRemVisitInfo.pas' {frmRemVisitInfo},
143 fIconLegend in 'fIconLegend.pas' {frmIconLegend},
144 mImgText in 'mImgText.pas' {fraImgText: TFrame},
145 fTemplateImport in 'Templates\fTemplateImport.pas' {frmTemplateImport},
146 fRemCoverSheet in 'fRemCoverSheet.pas' {frmRemCoverSheet},
147 uTIU in 'uTIU.pas',
148 fRemCoverPreview in 'fRemCoverPreview.pas' {frmRemCoverPreview},
149 fPCEEdit in 'Encounter\fPCEEdit.pas' {frmPCEEdit},
150 uSurgery in 'uSurgery.pas',
151 fSurgeryView in 'fSurgeryView.pas' {frmSurgeryView},
152 rSurgery in 'rSurgery.pas',
153 uCaseTree in 'uCaseTree.pas',
154 fSurgery in 'fSurgery.pas' {frmSurgery},
155 fNoteIDParents in 'fNoteIDParents.pas' {frmNoteIDParents},
156 uReports in 'uReports.pas',
157 fNoteCPFields in 'fNoteCPFields.pas' {frmNoteCPFields},
158 CPRSChart_TLB in 'CPRSChart_TLB.pas',
159 uEventHooks in 'uEventHooks.pas',
160 rEventHooks in 'rEventHooks.pas',
161 fPtSelOptSave in 'fPtSelOptSave.pas' {frmPtSelOptSave},
162 uOrders in 'Orders\uOrders.pas',
163 fOCSession in 'Orders\fOCSession.pas' {frmOCSession},
164 fODAuto in 'Orders\fODAuto.pas',
165 fODBase in 'Orders\fODBase.pas' {frmODBase},
166 fODDiet in 'Orders\fODDiet.pas' {frmODDiet},
167 fODDietLT in 'Orders\fODDietLT.pas' {frmODDietLT},
168 fODGen in 'Orders\fODGen.pas' {frmODGen},
169 fODLab in 'Orders\fODLab.pas' {frmODLab},
170 fODLabImmedColl in 'Orders\fODLabImmedColl.pas' {frmODLabImmedColl},
171 fODLabOthCollSamp in 'Orders\fODLabOthCollSamp.pas' {frmODLabOthCollSamp},
172 fODLabOthSpec in 'Orders\fODLabOthSpec.pas' {frmODLabOthSpec},
173 fODMedComplex in 'Orders\fODMedComplex.pas' {frmODMedComplex},
174 fODMedFA in 'Orders\fODMedFA.pas' {frmODMedFA},
175 fODMedIn in 'Orders\fODMedIn.pas' {frmODMedIn},
176 fODMedIV in 'Orders\fODMedIV.pas' {frmODMedIV},
177 fODMedOIFA in 'Orders\fODMedOIFA.pas' {frmODMedOIFA},
178 fODMedOut in 'Orders\fODMedOut.pas' {frmODMedOut},
179 fODMeds in 'Orders\fODMeds.pas' {frmODMeds},
180 fODMessage in 'Orders\fODMessage.pas' {frmODMessage},
181 fODMisc in 'Orders\fODMisc.pas' {frmODMisc},
182 fODRad in 'Orders\fODRad.pas' {frmODRad},
183 fODRadApproval in 'Orders\fODRadApproval.pas' {frmODRadApproval},
184 fODRadConShRes in 'Orders\fODRadConShRes.pas' {frmODRadConShRes},
185 fODRadImType in 'Orders\fODRadImType.pas' {frmODRadImType},
186 fODSaveQuick in 'Orders\fODSaveQuick.pas' {frmODQuick},
187 fODText in 'Orders\fODText.pas' {frmODText},
188 fODVitals in 'Orders\fODVitals.pas' {frmODVitals},
189 fOMAction in 'Orders\fOMAction.pas' {frmOMAction},
190 fOMHTML in 'Orders\fOMHTML.pas' {frmOMHTML},
191 fOMNavA in 'Orders\fOMNavA.pas' {frmOMNavA},
192 fOMProgress in 'Orders\fOMProgress.pas' {frmOMProgress},
193 fOMSet in 'Orders\fOMSet.pas' {frmOMSet},
194 fOMVerify in 'Orders\fOMVerify.pas' {frmOMVerify},
195 fOrderComment in 'Orders\fOrderComment.pas' {frmWardComments},
196 fOrderFlag in 'Orders\fOrderFlag.pas' {frmFlagOrder},
197 fOrders in 'Orders\fOrders.pas' {frmOrders},
198 fOrdersAlert in 'Orders\fOrdersAlert.pas' {frmAlertOrders},
199 fOrderSaveQuick in 'Orders\fOrderSaveQuick.pas' {frmSaveQuickOrder},
200 fOrdersComplete in 'Orders\fOrdersComplete.pas' {frmCompleteOrders},
201 fOrdersCopy in 'Orders\fOrdersCopy.pas' {frmCopyOrders},
202 fOrdersDC in 'Orders\fOrdersDC.pas' {frmDCOrders},
203 fOrdersHold in 'Orders\fOrdersHold.pas' {frmHoldOrders},
204 fOrdersOnChart in 'Orders\fOrdersOnChart.pas' {frmOnChartOrders},
205 fOrdersPrint in 'Orders\fOrdersPrint.pas' {frmOrdersPrint},
206 fOrdersRefill in 'Orders\fOrdersRefill.pas' {frmRefillOrders},
207 fOrdersRelease in 'Orders\fOrdersRelease.pas' {frmReleaseOrders},
208 fOrdersRenew in 'Orders\fOrdersRenew.pas' {frmRenewOrders},
209 fOrdersSign in 'Orders\fOrdersSign.pas' {frmSignOrders},
210 fOrdersTS in 'Orders\fOrdersTS.pas' {frmOrdersTS},
211 fOrdersUnhold in 'Orders\fOrdersUnhold.pas' {frmUnholdOrders},
212 fOrdersVerify in 'Orders\fOrdersVerify.pas' {frmVerifyOrders},
213 fOrderUnflag in 'Orders\fOrderUnflag.pas' {frmUnflagOrder},
214 fOrderVw in 'Orders\fOrderVw.pas' {frmOrderView},
215 rODAllergy in 'Orders\rODAllergy.pas',
216 rODBase in 'Orders\rODBase.pas',
217 rODDiet in 'Orders\rODDiet.pas',
218 rODLab in 'Orders\rODLab.pas',
219 rODMeds in 'Orders\rODMeds.pas',
220 rODRad in 'Orders\rODRad.pas',
221 rOrders in 'Orders\rOrders.pas',
222 uODBase in 'Orders\uODBase.pas',
223 fOCAccept in 'Orders\fOCAccept.pas' {frmOCAccept},
224 fODConsult in 'Consults\fODConsult.pas' {frmODCslt},
225 fODProc in 'Consults\fODProc.pas' {frmODProc},
226 uOptions in 'Options\uOptions.pas',
227 fOptionsCombinations in 'Options\fOptionsCombinations.pas' {frmOptionsCombinations},
228 fOptionsDays in 'Options\fOptionsDays.pas' {frmOptionsDays},
229 fOptionsLists in 'Options\fOptionsLists.pas' {frmOptionsLists},
230 fOptionsNewList in 'Options\fOptionsNewList.pas' {frmOptionsNewList},
231 fOptionsNotes in 'Options\fOptionsNotes.pas' {frmOptionsNotes},
232 fOptionsOther in 'Options\fOptionsOther.pas' {frmOptionsOther},
233 fOptionsPatientSelection in 'Options\fOptionsPatientSelection.pas' {frmOptionsPatientSelection},
234 fOptionsPrimaryList in 'Options\fOptionsPrimaryList.pas' {frmOptionsPrimaryList},
235 fOptionsReminders in 'Options\fOptionsReminders.pas' {frmOptionsReminders},
236 fOptionsReportsCustom in 'Options\fOptionsReportsCustom.pas' {frmOptionsReportsCustom},
237 fOptionsReportsDefault in 'Options\fOptionsReportsDefault.pas' {frmOptionsReportsDefault},
238 fOptionsSubscribe in 'Options\fOptionsSubscribe.pas' {frmOptionsSubscribe},
239 fOptionsSurrogate in 'Options\fOptionsSurrogate.pas' {frmOptionsSurrogate},
240 fOptionsTeams in 'Options\fOptionsTeams.pas' {frmOptionsTeams},
241 fOptionsTitles in 'Options\fOptionsTitles.pas' {frmOptionsTitles},
242 rOptions in 'Options\rOptions.pas',
243 fOptions in 'Options\fOptions.pas' {frmOptions},
244 uSignItems in 'uSignItems.pas',
245 mCoPayDesc in 'mCoPayDesc.pas' {fraCoPayDesc: TFrame},
246 XuDigSigSC_TLB in 'XuDigSigSC_TLB.pas',
247 fOrdersCV in 'Orders\fOrdersCV.pas' {frmChgEvent},
248 fODReleaseEvent in 'Orders\fODReleaseEvent.pas' {frmOrdersReleaseEvent},
249 fODActive in 'Orders\fODActive.pas' {frmODActive},
250 fDefaultEvent in 'fDefaultEvent.pas' {frmDefaultEvent},
251 mEvntDelay in 'mEvntDelay.pas' {fraEvntDelayList: TFrame},
252 fOrdersEvntRelease in 'Orders\fOrdersEvntRelease.pas' {frmOrdersEvntRelease},
253 rECS in 'rECS.pas',
254 fODChangeEvtDisp in 'Orders\fODChangeEvtDisp.pas' {frmChangeEventDisp},
255 fODValidateAction in 'Orders\fODValidateAction.pas' {frmInvalidActionList},
256 fODChild in 'Orders\fODChild.pas' {frmODChild},
257 fDupPts in 'fDupPts.pas' {frmDupPts},
258 VERGENCECONTEXTORLib_TLB in 'VERGENCECONTEXTORLib_TLB.pas',
259 uOrPtf in 'uOrPtf.pas',
260 fPatientFlagMulti in 'fPatientFlagMulti.pas' {frmFlags},
261 fFrame in 'fFrame.pas' {frmFrame},
262 fAlertForward in 'fAlertForward.pas' {frmAlertForward},
263 fODMedNVA in 'Orders\fODMedNVA.pas' {frmODMedNVA},
264 fPrintList in 'fPrintList.pas' {frmPrintList},
265 fODChangeUnreleasedRenew in 'Orders\fODChangeUnreleasedRenew.pas' {frmODChangeUnreleasedRenew},
266 UBAMessages in 'BA\UBAMessages.pas',
267 UBAConst in 'BA\UBAConst.pas',
268 UBAGlobals in 'BA\UBAGlobals.pas',
269 fBALocalDiagnoses in 'BA\fBALocalDiagnoses.pas' {frmBALocalDiagnoses},
270 fReview in 'fReview.pas' {frmReview},
271 fARTFreeTextMsg in 'fARTFreeTextMsg.pas' {frmARTFreeTextMsg},
272 fAllgyBox in 'fAllgyBox.pas' {frmAllgyBox},
273 fARTAllgy in 'fARTAllgy.pas' {frmARTAllergy},
274 UBACore in 'BA\UBACore.pas',
275 fBAOptionsDiagnoses in 'BA\fBAOptionsDiagnoses.pas' {frmBAOptionsDiagnoses},
276 fOtherSchedule in 'Orders\fOtherSchedule.pas' {frmOtherSchedule},
277 fODBBank in 'Orders\fODBBank.pas' {frmODBBank},
278 fNoteST in 'fNoteST.pas' {frmNotesSearchText},
279 fNoteSTStop in 'fNoteSTStop.pas' {frmSearchStop},
280 rGraphs in 'rGraphs.pas',
281 fGraphs in 'fGraphs.pas' {frmGraphs},
282 fGraphSettings in 'fGraphSettings.pas' {frmGraphSettings},
283 fGraphProfiles in 'fGraphProfiles.pas' {frmGraphProfiles},
284 uGraphs in 'uGraphs.pas',
285 fClinicWardMeds in 'fClinicWardMeds.pas' {frmClinicWardMeds},
286 fActivateDeactivate in 'fActivateDeactivate.pas' {frmActivateDeactive},
287 uFormMonitor in 'uFormMonitor.pas',
288 fAResize in 'fAResize.pas' {frmAutoResize},
289 fODAllgy in 'Orders\fODAllgy.pas' {frmODAllergy},
290 fDeviceSelect in 'fDeviceSelect.pas' {frmDeviceSelect},
291 fLabCollTimes in 'fLabCollTimes.pas' {frmLabCollectTimes},
292 fPostings in 'fPostings.pas' {frmPostings},
293 fProbLex in 'fProbLex.pas' {frmPLLex},
294 fTIUView in 'fTIUView.pas' {frmTIUView},
295 ORClasses in '..\CPRS-Lib\ORClasses.pas',
296 ORCtrls in '..\CPRS-Lib\ORCtrls.pas',
297 ORDtTm in '..\CPRS-Lib\ORDtTm.pas' {ORfrmDtTm},
298 ORDtTmCal in '..\CPRS-Lib\ORDtTmCal.pas',
299 ORDtTmRng in '..\CPRS-Lib\ORDtTmRng.pas' {ORfrmDateRange},
300 ORFn in '..\CPRS-Lib\ORFn.pas',
301 ORNet in '..\CPRS-Lib\ORNet.pas',
302 Vawrgrid in '..\CPRS-Lib\Vawrgrid.pas',
303 XMLUtils in '..\CPRS-Lib\XMLUtils.pas',
304 fBase508Form in 'fBase508Form.pas' {frmBase508Form},
305 VAUtils in '..\VA\VAUtils.pas',
306 VA2006Utils in '..\VA\VA2006Utils.pas',
307 VAClasses in '..\VA\VAClasses.pas',
308 fPrintLocation in 'fPrintLocation.pas' {frmPrintLocation},
309 uVA508CPRSCompatibility in 'uVA508CPRSCompatibility.pas',
310 VA508AccessibilityManager in '..\VA\VA508Accessibility\VA508AccessibilityManager.pas',
311 ORCtrlsVA508Compatibility in '..\CPRS-Lib\ORCtrlsVA508Compatibility.pas',
312 VA508DelphiCompatibility in '..\VA\VA508Accessibility\VA508DelphiCompatibility.pas',
313 uDlgComponents in 'uDlgComponents.pas',
314 fGraphData in 'fGraphData.pas' {frmGraphData},
315 fGraphOthers in 'fGraphOthers.pas' {frmGraphOthers},
316 VA508AccessibilityRouter in '..\VA\VA508Accessibility\VA508AccessibilityRouter.pas',
317 fIVRoutes in 'Orders\fIVRoutes.pas' {frmIVRoutes},
318 fFindingTemplates in 'Templates\fFindingTemplates.pas' {frmFindingTemplates},
319 fSpellNotify in 'fSpellNotify.pas' {frmSpellNotify},
320 uCombatVet in 'uCombatVet.pas',
321 fCombatVet in 'fCombatVet.pas' {frmCombatVet},
322 fOCMonograph in 'Orders\fOCMonograph.pas' {frmOCMonograph},
323 fHunSpell in 'fHunSpell.pas' {frmHunSpell};
324
325{$R *.TLB}
326
327{$R *.RES}
328
329begin
330 if not UpdateSelf then // only start if not copying new version
331 begin
332 if not BorlandDLLVersionOK then exit; // Exit immediately if old or missing BORLNDMM.DLL
333 RegisterCPRSTypeLibrary; // will halt program if /regserver or /unregserver param
334 Application.Initialize;
335
336 frmSplash := nil;
337 if ParamSearch('SPLASH') <> 'OFF' then
338 begin
339 frmSplash := TfrmSplash.Create(Application); // show splash screen
340 frmSplash.Show; // "
341 frmSplash.Refresh; // "
342 end;
343 Application.Title := 'CPRS - Patient Chart';
344 Application.HelpFile := 'cprs.hlp';
345 Application.CreateForm(TdmodShared, dmodShared);
346 Application.CreateForm(TfrmFrame, frmFrame);
347 Application.CreateForm(TfrmSearchStop, frmSearchStop);
348 frmSplash.Free; // close & free splash screen
349 Application.Run;
350 end;
351end.
Note: See TracBrowser for help on using the repository browser.