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

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

Bug fixes. Improved Adding Image

File size: 19.3 KB
Line 
1program CPRSChart;
2
3uses
4 ShareMem,
5 Forms,
6 ORSystem,
7 TntForms,
8 TntStdCtrls,
9 TntSystem,
10 TntSysUtils,
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},
50 fProbflt in 'fProbFlt.pas' {frmPlVuFilt},
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 mVitMetric in 'Vitals\mVitMetric.pas' {fraVitMetric: TFrame},
125 mVitAll in 'Vitals\mVitAll.pas' {fraVitAll: TFrame},
126 mVitBase in 'Vitals\mVitBase.pas' {fraVitBase: TFrame},
127 uVitals in 'Vitals\uVitals.pas',
128 rVitals in 'Vitals\rVitals.pas',
129 mVitPulse in 'Vitals\mVitPulse.pas' {fraVitPulse: TFrame},
130 mVitResp in 'Vitals\mVitResp.pas' {fraVitResp: TFrame},
131 mVitBP in 'Vitals\mVitBP.pas' {fraVitPB: TFrame},
132 mVitTemp in 'Vitals\mVitTemp.pas' {fraVitTemp: TFrame},
133 mVitHeight in 'Vitals\mVitHeight.pas' {fraVitHeight: TFrame},
134 mVitWeight in 'Vitals\mVitWeight.pas' {fraVitWeight: TFrame},
135 mVitPain in 'Vitals\mVitPain.pas' {fraVitPain: TFrame},
136 mVitPO2 in 'Vitals\mVitPO2.pas' {fraVitPO2: TFrame},
137 mVitCVP in 'Vitals\mVitCVP.pas' {fraVitCVP: TFrame},
138 mVitCirGirth in 'Vitals\mVitCirGirth.pas' {fraVitCircum: TFrame},
139 uDCSumm in 'uDCSumm.pas',
140 uDocTree in 'uDocTree.pas',
141 fVitalsDate in 'Vitals\fVitalsDate.pas' {frmVitalsDate},
142 uTemplates in 'Templates\uTemplates.pas',
143 fTemplateDialog in 'Templates\fTemplateDialog.pas' {frmTemplateDialog},
144 fTemplateEditor in 'Templates\fTemplateEditor.pas' {frmTemplateEditor},
145 fTemplateFieldEditor in 'Templates\fTemplateFieldEditor.pas' {frmTemplateFieldEditor},
146 fTemplateFields in 'Templates\fTemplateFields.pas' {frmTemplateFields},
147 fTemplateObjects in 'Templates\fTemplateObjects.pas' {frmTemplateObjects},
148 fTemplateView in 'Templates\fTemplateView.pas' {frmTemplateView},
149 mTemplateFieldButton in 'Templates\mTemplateFieldButton.pas' {fraTemplateFieldButton: TFrame},
150 rTemplates in 'Templates\rTemplates.pas',
151 uTemplateFields in 'Templates\uTemplateFields.pas',
152 fTemplateAutoGen in 'Templates\fTemplateAutoGen.pas' {frmTemplateAutoGen},
153 mVisitRelated in 'Encounter\mVisitRelated.pas' {fraVisitRelated: TFrame},
154 fRemVisitInfo in 'fRemVisitInfo.pas' {frmRemVisitInfo},
155 fIconLegend in 'fIconLegend.pas' {frmIconLegend},
156 mImgText in 'mImgText.pas' {fraImgText: TFrame},
157 fTemplateImport in 'Templates\fTemplateImport.pas' {frmTemplateImport},
158 fRemCoverSheet in 'fRemCoverSheet.pas' {frmRemCoverSheet},
159 uTIU in 'uTIU.pas',
160 fRemCoverPreview in 'fRemCoverPreview.pas' {frmRemCoverPreview},
161 fPCEEdit in 'Encounter\fPCEEdit.pas' {frmPCEEdit},
162 uSurgery in 'uSurgery.pas',
163 fSurgeryView in 'fSurgeryView.pas' {frmSurgeryView},
164 rSurgery in 'rSurgery.pas',
165 uCaseTree in 'uCaseTree.pas',
166 fSurgery in 'fSurgery.pas' {frmSurgery},
167 fNoteIDParents in 'fNoteIDParents.pas' {frmNoteIDParents},
168 uReports in 'uReports.pas',
169 fNoteCPFields in 'fNoteCPFields.pas' {frmNoteCPFields},
170 CPRSChart_TLB in 'CPRSChart_TLB.pas',
171 uEventHooks in 'uEventHooks.pas',
172 rEventHooks in 'rEventHooks.pas',
173 fPtSelOptSave in 'fPtSelOptSave.pas' {frmPtSelOptSave},
174 uOrders in 'Orders\uOrders.pas',
175 fOCSession in 'Orders\fOCSession.pas' {frmOCSession},
176 fODAuto in 'Orders\fODAuto.pas',
177 fODBase in 'Orders\fODBase.pas' {frmODBase},
178 fODDiet in 'Orders\fODDiet.pas' {frmODDiet},
179 fODDietLT in 'Orders\fODDietLT.pas' {frmODDietLT},
180 fODGen in 'Orders\fODGen.pas' {frmODGen},
181 fODLab in 'Orders\fODLab.pas' {frmODLab},
182 fODLabImmedColl in 'Orders\fODLabImmedColl.pas' {frmODLabImmedColl},
183 fODLabOthCollSamp in 'Orders\fODLabOthCollSamp.pas' {frmODLabOthCollSamp},
184 fODLabOthSpec in 'Orders\fODLabOthSpec.pas' {frmODLabOthSpec},
185 fODMedComplex in 'Orders\fODMedComplex.pas' {frmODMedComplex},
186 fODMedFA in 'Orders\fODMedFA.pas' {frmODMedFA},
187 fODMedIn in 'Orders\fODMedIn.pas' {frmODMedIn},
188 fODMedIV in 'Orders\fODMedIV.pas' {frmODMedIV},
189 fODMedOIFA in 'Orders\fODMedOIFA.pas' {frmODMedOIFA},
190 fODMedOut in 'Orders\fODMedOut.pas' {frmODMedOut},
191 fODMeds in 'Orders\fODMeds.pas' {frmODMeds},
192 fODMessage in 'Orders\fODMessage.pas' {frmODMessage},
193 fODMisc in 'Orders\fODMisc.pas' {frmODMisc},
194 fODRad in 'Orders\fODRad.pas' {frmODRad},
195 fODRadApproval in 'Orders\fODRadApproval.pas' {frmODRadApproval},
196 fODRadConShRes in 'Orders\fODRadConShRes.pas' {frmODRadConShRes},
197 fODRadImType in 'Orders\fODRadImType.pas' {frmODRadImType},
198 fODSaveQuick in 'Orders\fODSaveQuick.pas' {frmODQuick},
199 fODText in 'Orders\fODText.pas' {frmODText},
200 fODVitals in 'Orders\fODVitals.pas' {frmODVitals},
201 fOMAction in 'Orders\fOMAction.pas' {frmOMAction},
202 fOMHTML in 'Orders\fOMHTML.pas' {frmOMHTML},
203 fOMNavA in 'Orders\fOMNavA.pas' {frmOMNavA},
204 fOMProgress in 'Orders\fOMProgress.pas' {frmOMProgress},
205 fOMSet in 'Orders\fOMSet.pas' {frmOMSet},
206 fOMVerify in 'Orders\fOMVerify.pas' {frmOMVerify},
207 fOrderComment in 'Orders\fOrderComment.pas' {frmWardComments},
208 fOrderFlag in 'Orders\fOrderFlag.pas' {frmFlagOrder},
209 fOrders in 'Orders\fOrders.pas' {frmOrders},
210 fOrdersAlert in 'Orders\fOrdersAlert.pas' {frmAlertOrders},
211 fOrderSaveQuick in 'Orders\fOrderSaveQuick.pas' {frmSaveQuickOrder},
212 fOrdersComplete in 'Orders\fOrdersComplete.pas' {frmCompleteOrders},
213 fOrdersCopy in 'Orders\fOrdersCopy.pas' {frmCopyOrders},
214 fOrdersDC in 'Orders\fOrdersDC.pas' {frmDCOrders},
215 fOrdersHold in 'Orders\fOrdersHold.pas' {frmHoldOrders},
216 fOrdersOnChart in 'Orders\fOrdersOnChart.pas' {frmOnChartOrders},
217 fOrdersPrint in 'Orders\fOrdersPrint.pas' {frmOrdersPrint},
218 fOrdersRefill in 'Orders\fOrdersRefill.pas' {frmRefillOrders},
219 fOrdersRelease in 'Orders\fOrdersRelease.pas' {frmReleaseOrders},
220 fOrdersRenew in 'Orders\fOrdersRenew.pas' {frmRenewOrders},
221 fOrdersSign in 'Orders\fOrdersSign.pas' {frmSignOrders},
222 fOrdersTS in 'Orders\fOrdersTS.pas' {frmOrdersTS},
223 fOrdersUnhold in 'Orders\fOrdersUnhold.pas' {frmUnholdOrders},
224 fOrdersVerify in 'Orders\fOrdersVerify.pas' {frmVerifyOrders},
225 fOrderUnflag in 'Orders\fOrderUnflag.pas' {frmUnflagOrder},
226 fOrderVw in 'Orders\fOrderVw.pas' {frmOrderView},
227 rODAllergy in 'Orders\rODAllergy.pas',
228 rODBase in 'Orders\rODBase.pas',
229 rODDiet in 'Orders\rODDiet.pas',
230 rODLab in 'Orders\rODLab.pas',
231 rODMeds in 'Orders\rODMeds.pas',
232 rODRad in 'Orders\rODRad.pas',
233 rOrders in 'Orders\rOrders.pas',
234 uODBase in 'Orders\uODBase.pas',
235 fOCAccept in 'Orders\fOCAccept.pas' {frmOCAccept},
236 fODConsult in 'Consults\fODConsult.pas' {frmODCslt},
237 fODProc in 'Consults\fODProc.pas' {frmODProc},
238 uOptions in 'Options\uOptions.pas',
239 fOptionsCombinations in 'Options\fOptionsCombinations.pas' {frmOptionsCombinations},
240 fOptionsDays in 'Options\fOptionsDays.pas' {frmOptionsDays},
241 fOptionsLists in 'Options\fOptionsLists.pas' {frmOptionsLists},
242 fOptionsNewList in 'Options\fOptionsNewList.pas' {frmOptionsNewList},
243 fOptionsNotes in 'fOptionsNotes.pas' {frmOptionsNotes},
244 fOptionsOther in 'Options\fOptionsOther.pas' {frmOptionsOther},
245 fOptionsPatientSelection in 'Options\fOptionsPatientSelection.pas' {frmOptionsPatientSelection},
246 fOptionsPrimaryList in 'Options\fOptionsPrimaryList.pas' {frmOptionsPrimaryList},
247 fOptionsReminders in 'Options\fOptionsReminders.pas' {frmOptionsReminders},
248 fOptionsReportsCustom in 'Options\fOptionsReportsCustom.pas' {frmOptionsReportsCustom},
249 fOptionsReportsDefault in 'Options\fOptionsReportsDefault.pas' {frmOptionsReportsDefault},
250 fOptionsSubscribe in 'Options\fOptionsSubscribe.pas' {frmOptionsSubscribe},
251 fOptionsSurrogate in 'Options\fOptionsSurrogate.pas' {frmOptionsSurrogate},
252 fOptionsTeams in 'Options\fOptionsTeams.pas' {frmOptionsTeams},
253 fOptionsTitles in 'Options\fOptionsTitles.pas' {frmOptionsTitles},
254 rOptions in 'Options\rOptions.pas',
255 fOptions in 'Options\fOptions.pas' {frmOptions},
256 uSignItems in 'uSignItems.pas',
257 mCoPayDesc in 'mCoPayDesc.pas' {fraCoPayDesc: TFrame},
258 XuDigSigSC_TLB in 'XuDigSigSC_TLB.pas',
259 fOrdersCV in 'Orders\fOrdersCV.pas' {frmChgEvent},
260 fODReleaseEvent in 'Orders\fODReleaseEvent.pas' {frmOrdersReleaseEvent},
261 fODActive in 'Orders\fODActive.pas' {frmODActive},
262 fDefaultEvent in 'fDefaultEvent.pas' {frmDefaultEvent},
263 mEvntDelay in 'mEvntDelay.pas' {fraEvntDelayList: TFrame},
264 fOrdersEvntRelease in 'Orders\fOrdersEvntRelease.pas' {frmOrdersEvntRelease},
265 rECS in 'rECS.pas',
266 fODChangeEvtDisp in 'Orders\fODChangeEvtDisp.pas' {frmChangeEventDisp},
267 fODValidateAction in 'Orders\fODValidateAction.pas' {frmInvalidActionList},
268 fODChild in 'Orders\fODChild.pas' {frmODChild},
269 uAccessibleStringGrid in 'uAccessibleStringGrid.pas' {AccessibleStringGrid: CoClass},
270 Accessibility_TLB in 'Accessibility_TLB.pas',
271 uAccessibleListBox in 'uAccessibleListBox.pas' {AccessibleListBox: CoClass},
272 uAccessibleTreeNode in 'uAccessibleTreeNode.pas' {IAccessibleTreeNode: CoClass},
273 uAccessibleTreeView in 'uAccessibleTreeView.pas' {AccessibleTreeView: CoClass},
274 fDupPts in 'fDupPts.pas' {frmDupPts},
275 VERGENCECONTEXTORLib_TLB in 'VERGENCECONTEXTORLib_TLB.pas',
276 uOrPtf in 'uOrPtf.pas',
277 fPatientFlagMulti in 'fPatientFlagMulti.pas' {frmFlags},
278 fFrame in 'fFrame.pas' {frmFrame},
279 fAlertForward in 'fAlertForward.pas' {frmAlertForward},
280 fODMedNVA in 'Orders\fODMedNVA.pas' {frmODMedNVA},
281 uAccessibleRichEdit in 'uAccessibleRichEdit.pas' {AccessibleRichEdit: CoClass},
282 fPrintList in 'fPrintList.pas' {frmPrintList},
283 fODChangeUnreleasedRenew in 'Orders\fODChangeUnreleasedRenew.pas' {frmODChangeUnreleasedRenew},
284 UBAMessages in 'BA\UBAMessages.pas',
285 UBAConst in 'BA\UBAConst.pas',
286 UBAGlobals in 'BA\UBAGlobals.pas',
287 fBALocalDiagnoses in 'BA\fBALocalDiagnoses.pas' {frmBALocalDiagnoses},
288 fReview in 'fReview.pas' {frmReview},
289 fARTFreeTextMsg in 'fARTFreeTextMsg.pas' {frmARTFreeTextMsg},
290 fAllgyBox in 'fAllgyBox.pas' {frmAllgyBox},
291 fARTAllgy in 'fARTAllgy.pas' {frmARTAllergy},
292 UBACore in 'BA\UBACore.pas',
293 fBAOptionsDiagnoses in 'BA\fBAOptionsDiagnoses.pas' {frmBAOptionsDiagnoses},
294 fOtherSchedule in 'Orders\fOtherSchedule.pas' {frmOtherSchedule},
295 fODBBank in 'Orders\fODBBank.pas' {frmODBBank},
296 fNoteST in 'fNoteST.pas' {frmNotesSearchText},
297 fNoteSTStop in 'fNoteSTStop.pas' {frmSearchStop},
298 rGraphs in 'rGraphs.pas',
299 fGraphs in 'fGraphs.pas' {frmGraphs},
300 fGraphSettings in 'fGraphSettings.pas' {frmGraphSettings},
301 fGraphProfiles in 'fGraphProfiles.pas' {frmGraphProfiles},
302 uGraphs in 'uGraphs.pas',
303 fClinicWardMeds in 'fClinicWardMeds.pas' {frmClinicWardMeds},
304 fActivateDeactivate in 'fActivateDeactivate.pas' {frmActivateDeactive},
305 uFormMonitor in 'uFormMonitor.pas',
306 rHTMLTools in 'rHTMLTools.pas',
307 fImages in 'fImages.pas' {frmImages},
308 UploadImages in 'UploadImages.pas' {UploadForm},
309 frmImageTransferProgress in 'TMG_Extra\frmImageTransferProgress.pas' {ImageTransferForm},
310 fProbLex in 'fProbLex.pas' {frmPLLex},
311 fTIUView in 'fTIUView.pas' {frmTIUView},
312 fODAllgy in 'Orders\fODAllgy.pas' {frmODAllergy},
313 fDeviceSelect in 'fDeviceSelect.pas' {frmDeviceSelect},
314 fPtAdd in 'TMG_Extra\fPtAdd.pas' {frmPtAdd},
315 fPtDemoEdit in 'TMG_Extra\fPtDemoEdit.pas' {frmPtDemoEdit},
316 fWebTab in 'TMG_Extra\fWebTab.pas' {frmWebTab},
317 SubfilesU in 'TMG_Extra\SubfilesU.pas',
318 SelDateTimeU in 'TMG_Extra\SelDateTimeU.pas' {SelDateTimeForm},
319 SetSelU in 'TMG_Extra\SetSelU.pas' {SetSelForm},
320 FMErrorU in 'TMG_Extra\FMErrorU.pas' {FMErrorForm},
321 LookupU in 'TMG_Extra\LookupU.pas' {FieldLookupForm},
322 PostU in 'TMG_Extra\PostU.pas' {PostForm},
323 EditTextU in 'TMG_Extra\EditTextU.pas' {EditTextForm},
324 ORNet in '..\CPRS-Lib\ORNet.pas',
325 fTMGPrintingAnimation in 'TMG_Extra\fTMGPrintingAnimation.pas',
326 uTMGOptions in 'uTMGOptions.pas',
327 fPtLabelPrint in 'TMG_Extra\fPtLabelPrint.pas' {frmPtLabelPrint},
328 uEvaluate in 'uEvaluate.pas',
329 fPtQuery in 'TMG_Extra\fPtQuery.pas' {frmPtQuery},
330 SearchAnimationU in 'TMG_Extra\SearchAnimationU.pas' {frmTMGServerSearch},
331 frmSearchResults in 'TMG_Extra\frmSearchResults.pas' {frmSrchResults},
332 uLogic in 'TMG_Extra\uLogic.pas',
333 fImagePickPDF in 'TMG_Extra\fImagePickPDF.pas' {frmImagePickPDF},
334 fImagePickExisting in 'TMG_Extra\fImagePickExisting.pas' {frmImagePickExisting};
335
336{$R *.TLB}
337
338{$R *.RES}
339
340{$R *.dkl_const.res} //kt added 7/1/07 to support language constants
341
342begin
343 if not UpdateSelf then // only start if not copying new version
344 begin
345 RegisterCPRSTypeLibrary; // will halt program if /regserver or /unregserver param
346 Application.Initialize;
347 frmSplash := nil;
348 if ParamSearch('SPLASH') <> 'OFF' then begin
349 frmSplash := TfrmSplash.Create(Application); // show splash screen
350 frmSplash.Show; // "
351 frmSplash.Refresh; // "
352 end;
353 //Application.Title := DKLangConstW('STestMessage'); //kt 7-1-09
354 Application.Title := 'CPRS - Patient Chart'; //kt 7-1-09 <-- original line restored
355 Application.HelpFile := 'cprs.hlp';
356 Application.CreateForm(TdmodShared, dmodShared);
357 Application.CreateForm(TfrmFrame, frmFrame);
358 //kt <--- frmImages etc created here
359 Application.CreateForm(TfrmPtLabelPrint, frmPtLabelPrint);
360 if frmframe.TMGAbort = False then begin //kt 3/25/09
361 Application.CreateForm(TfrmSearchStop, frmSearchStop);
362 Application.CreateForm(TUploadForm, UploadForm);
363 Application.CreateForm(TImageTransferForm, ImageTransferForm);
364 Application.CreateForm(TfrmODAllergy, frmODAllergy);
365 Application.CreateForm(TfrmDeviceSelect, frmDeviceSelect);
366 Application.CreateForm(TfrmPtAdd, frmPtAdd);
367 Application.CreateForm(TfrmPtDemoEdit, frmPtDemoEdit);
368 Application.CreateForm(TSelDateTimeForm, SelDateTimeForm);
369 Application.CreateForm(TSetSelForm, SetSelForm);
370 Application.CreateForm(TFMErrorForm, FMErrorForm);
371 Application.CreateForm(TFieldLookupForm, FieldLookupForm);
372 Application.CreateForm(TPostForm, PostForm);
373 Application.CreateForm(TEditTextForm, EditTextForm);
374 Application.CreateForm(TfrmTMGPrinting,frmTMGPrinting);
375 Application.CreateForm(TfrmPtQuery, frmPtQuery);
376 Application.CreateForm(TfrmTMGServerSearch, frmTMGServerSearch);
377 Application.CreateForm(TfrmSrchResults, frmSrchResults);
378 frmSplash.Free; // close & free splash screen
379 Application.Run;
380 end;
381 end; //kt 3/25/09
382end.
Note: See TracBrowser for help on using the repository browser.