source: cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.dpr@ 1623

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

Dual sync of source code enabled: SVN + BZR

File size: 19.5 KB
Line 
1program CPRSChart;
2
3uses
4 ShareMem,
5 Forms,
6 ORSystem,
7 TntForms,
8 TntStdCtrls,
9 TntSystem,
10 TntSysUtils,
11 DKLang,
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},
244 fOptionsNotes in 'fOptionsNotes.pas' {frmOptionsNotes},
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},
310 frmImageTransferProgress in 'TMG_Extra\frmImageTransferProgress.pas' {ImageTransferForm},
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},
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},
324 EditTextU in 'TMG_Extra\EditTextU.pas' {EditTextForm},
325 ORNet in '..\CPRS-Lib\ORNet.pas',
326 fTMGPrintingAnimation in 'TMG_Extra\fTMGPrintingAnimation.pas',
327 uTMGOptions in 'uTMGOptions.pas',
328 fPtLabelPrint in 'TMG_Extra\fPtLabelPrint.pas' {frmPtLabelPrint},
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},
333 uLogic in 'TMG_Extra\uLogic.pas',
334 fImagePickPDF in 'TMG_Extra\fImagePickPDF.pas' {frmImagePickPDF},
335 fImagePickExisting in 'TMG_Extra\fImagePickExisting.pas' {frmImagePickExisting},
336 fPtDocSearch in 'TMG_Extra\fPtDocSearch.pas' {frmPtDocSearch};
337
338{$R *.TLB}
339
340{$R *.RES}
341
342{$R *.dkl_const.res} //kt added 7/1/07 to support language constants
343
344begin
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;
350 if ParamSearch('SPLASH') <> 'OFF' then begin
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
356 Application.Title := 'CPRS - Patient Chart'; //kt 7-1-09 <-- original line restored
357 Application.HelpFile := 'cprs.hlp';
358 Application.CreateForm(TdmodShared, dmodShared);
359 Application.CreateForm(TfrmFrame, frmFrame);
360 //kt <--- frmImages etc created here
361 if frmframe.TMGAbort = False then begin //kt 3/25/09
362 Application.CreateForm(TfrmPtDocSearch, frmPtDocSearch);
363 Application.CreateForm(TfrmPtLabelPrint, frmPtLabelPrint);
364 Application.CreateForm(TfrmSearchStop, frmSearchStop);
365 Application.CreateForm(TUploadForm, UploadForm);
366 Application.CreateForm(TImageTransferForm, ImageTransferForm);
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);
377 Application.CreateForm(TfrmTMGPrinting,frmTMGPrinting);
378 Application.CreateForm(TfrmPtQuery, frmPtQuery);
379 Application.CreateForm(TfrmTMGServerSearch, frmTMGServerSearch);
380 Application.CreateForm(TfrmSrchResults, frmSrchResults);
381 frmSplash.Free; // close & free splash screen
382 Application.Run;
383 end;
384 end; //kt 3/25/09
385end.
Note: See TracBrowser for help on using the repository browser.