Module

CPRSChart

Path

C:\CPRS\CPRS30\CPRSChart.dpr

Last Modified

3/11/2015 8:41:44 AM

Main Code

begin
  if not UpdateSelf then                          // only start if not copying new version
  begin
    if not BorlandDLLVersionOK then exit;         // Exit immediately if old or missing BORLNDMM.DLL
    RegisterCPRSTypeLibrary;                      // will halt program if /regserver or /unregserver param
    Application.Initialize;

    frmSplash := nil;
    if ParamSearch('SPLASH') <> 'OFF' then
    begin
      frmSplash := TfrmSplash.Create(nil);  // show splash screen
      frmSplash.Show;                       //         "
      frmSplash.Refresh;                    //         "
    end;
    Application.Title := 'CPRS - Patient Chart';
    Application.HelpFile := 'help\cprs.htm';
    Application.CreateForm(TdmodShared, dmodShared);
    Application.CreateForm(TfrmFrame, frmFrame);
    Application.CreateForm(TfrmSearchStop, frmSearchStop);
    Application.CreateForm(TfrmProbFreetext, frmProbFreetext);
    if assigned(frmSplash) then
      frmSplash.Free;                               // close & free splash screen
   
    Application.Run;
  end;
end.

Units Used in Interface

Name Comments
CPRSChart_TLB -
dShared -
fAbout -
fActivateDeactivate -
fAddlSigners -
fAlertForward -
fAllgyBox -
fAllgyFind -
fAResize -
fARTAllgy -
fARTFreeTextMsg -
fAutoSz -
fBALocalDiagnoses -
fBAOptionsDiagnoses -
fBase508Form -
fClinicWardMeds -
fCombatVet -
fConsMedRslt -
fConsult513Prt -
fConsultAct -
fConsultAlertTo -
fConsultBD -
fConsultBS -
fConsultBSt -
fConsults -
fConsultsView -
fCover -
fCsltNote -
fCSRemaining -
fDateRange -
fDCSumm -
fDCSummProps -
fDefaultEvent -
fDeviceSelect -
fDiagnoses -
fDrawers -
fDupPts -
fEditConsult -
fEditProc -
fEffectDate -
fEncnt -
fEncounterFrame -
fEncVitals -
fExam -
fFindingTemplates -
fFrame -
fGAF -
fGraphData -
fGraphOthers -
fGraphProfiles -
fGraphs -
fGraphSettings -
fHealthFactor -
fHFSearch -
fHP -
fHSplit -
fIconLegend -
fImmunization -
fIVRoutes -
fLabCollTimes -
fLabInfo -
fLabPrint -
fLabs -
fLabTest -
fLabTestGroups -
fLabTests -
fLkUpLocation -
fMedCopy -
fMeds -
fMHTest -
fNoteBA -
fNoteBD -
fNoteCPFields -
fNoteCslt -
fNoteDR -
fNoteIDParents -
fNoteProps -
fNotePrt -
fNotes -
fNotesBP -
fNoteST -
fNoteSTStop -
fOCAccept -
fOCMonograph -
fOCSession -
fODActive -
fODAllgy -
fODAuto -
fODBase -
fODBBank -
fODChangeEvtDisp -
fODChangeUnreleasedRenew -
fODChild -
fODConsult -
fODDiet -
fODDietLT -
fODGen -
fODLab -
fODLabImmedColl -
fODLabOthCollSamp -
fODLabOthSpec -
fODMedComplex -
fODMedFA -
fODMedIn -
fODMedIV -
fODMedNVA -
fODMedOIFA -
fODMedOut -
fODMeds -
fODMessage -
fODMisc -
fODProc -
fODRad -
fODRadApproval -
fODRadConShRes -
fODRadImType -
fODReleaseEvent -
fODSaveQuick -
fODText -
fODValidateAction -
fODVitals -
fOMAction -
fOMHTML -
fOMNavA -
fOMProgress -
fOMSet -
fOMVerify -
fOptions -
fOptionsCombinations -
fOptionsDays -
fOptionsLists -
fOptionsNewList -
fOptionsNotes -
fOptionsOther -
fOptionsPatientSelection -
fOptionsPrimaryList -
fOptionsReminders -
fOptionsReportsCustom -
fOptionsReportsDefault -
fOptionsSubscribe -
fOptionsSurrogate -
fOptionsTeams -
fOptionsTitles -
fOrderComment -
fOrderFlag -
fOrders -
fOrdersAlert -
fOrderSaveQuick -
fOrdersComplete -
fOrdersCopy -
fOrdersCV -
fOrdersDC -
fOrdersEvntRelease -
fOrdersHold -
fOrdersOnChart -
fOrdersPrint -
fOrdersRefill -
fOrdersRelease -
fOrdersRenew -
fOrdersSign -
fOrdersTS -
fOrdersUnhold -
fOrdersVerify -
fOrderUnflag -
fOrderVw -
fOtherSchedule -
fPage -
fPatientEd -
fPatientFlagMulti -
fPCEBase -
fPCEBaseGrid -
fPCEBaseMain -
fPCEEdit -
fPCELex -
fPCEOther -
fPCEProvider -
fPINPrompt -
fPostings -
fPreReq -
fPrintList -
fPrintLocation -
fProbCmt -
fProbEdt -
fProbflt -
fProbFreetext -
fProbLex -
fProbs -
fProcedure -
fPtCWAD -
fPtDemo -
fPtSel -
fPtSelDemog -
fPtSelMsg -
fPtSelOptns -
fPtSelOptSave -
fPtSens -
fRemCoverPreview -
fRemCoverSheet -
fReminderDialog -
fReminderTree -
fRemVisitInfo -
fRename -
fRenewOutMed -
fReports -
fReportsAdhocComponent1 -
fReportsAdhocSubItem1 -
fReportsPrint -
fReview -
fRptBox -
fSignItem -
fSkinTest -
fSpellNotify -
fSplash -
fSurgery -
fSurgeryView -
fTemplateAutoGen -
fTemplateDialog -
fTemplateEditor -
fTemplateFieldEditor -
fTemplateFields -
fTemplateImport -
fTemplateObjects -
fTemplateView -
fTimeout -
fTIUView -
fVisit -
fVisitType -
fvit -
fVitals -
fVitalsDate -
fxBroker -
fxLists -
fxServer -
mCoPayDesc -
mEvntDelay -
mImgText -
mTemplateFieldButton -
mTreeGrid -
mVisitRelated -
rConsults -
rCore -
rCover -
rDCSumm -
rECS -
rEventHooks -
rGraphs -
rLabs -
rMeds -
rMisc -
rODAllergy -
rODBase -
rODDiet -
rODLab -
rODMeds -
rODRad -
rOptions -
rOrders -
rPCE -
rProbs -
rReminders -
rReports -
rSurgery -
rTemplates -
rTIU -
rVitals -
UBAConst -
UBACore -
UBAGlobals -
UBAMessages -
uCaseTree -
uCombatVet -
uConst -
uConsults -
uCore -
uDCSumm -
uDlgComponents -
uDocTree -
uEventHooks -
uFormMonitor -
uGraphs -
uHelpManager -
uInit -
uODBase -
uOptions -
uOrders -
uOrPtf -
uPCE -
uProbs -
uReminders -
uReports -
uSignItems -
uSpell -
uSurgery -
uTemplateFields -
uTemplates -
uTIU -
uVA508CPRSCompatibility -
uVitals -
VERGENCECONTEXTORLib_TLB -
wcrypt2 -
WinSCard -
XlfHex -
XlfMime -
XuDigSigSC_TLB -
XuDsigConst -
XuDsigS -
XuDsigU -


Module Source

1     program CPRSChart;
2     
3     
4     
5     
6     
7     uses
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     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},
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},
318     fSpellNotify in 'fSpellNotify.pas' {frmSpellNotify},
319     uCombatVet in 'uCombatVet.pas',
320     fCombatVet in 'fCombatVet.pas' {frmCombatVet},
321     fOCMonograph in 'Orders\fOCMonograph.pas' {frmOCMonograph},
322     fCSRemaining in 'Orders\fCSRemaining.pas' {frmCSRemaining},
323     wcrypt2 in 'XuDigSig\Wcrypt2.pas',
324     WinSCard in 'XuDigSig\WinSCard.pas',
325     XlfHex in 'XuDigSig\XlfHex.pas',
326     XlfMime in 'XuDigSig\XlfMime.pas',
327     XuDsigConst in 'XuDigSig\XuDsigConst.pas',
328     XuDsigS in 'XuDigSig\XuDsigS.pas',
329     XuDsigU in 'XuDigSig\XuDsigU.pas',
330     fPINPrompt in 'XuDigSig\fPINPrompt.pas',
331     fProbFreetext in 'fProbFreetext.pas' {frmProbFreetext},
332     mImgText in 'mImgText.pas' {fraImgText},
333     uHelpManager in 'uHelpManager.pas',
334     mTreeGrid in 'mTreeGrid.pas' {TreeGridFrame: TFrame};
335   
336   {$R *.TLB}
337   
338   {$R *.RES}
339   
340   begin
341     if not UpdateSelf then                          // only start if not copying new version
342     begin
343       if not BorlandDLLVersionOK then exit;         // Exit immediately if old or missing BORLNDMM.DLL
344       RegisterCPRSTypeLibrary;                      // will halt program if /regserver or /unregserver param
345       Application.Initialize;
346   
347       frmSplash := nil;
348       if ParamSearch('SPLASH') <> 'OFF' then
349       begin
350         frmSplash := TfrmSplash.Create(nil);  // show splash screen
351         frmSplash.Show;                       //         "
352         frmSplash.Refresh;                    //         "
353       end;
354       Application.Title := 'CPRS - Patient Chart';
355       Application.HelpFile := 'help\cprs.htm';
356       Application.CreateForm(TdmodShared, dmodShared);
357       Application.CreateForm(TfrmFrame, frmFrame);
358       Application.CreateForm(TfrmSearchStop, frmSearchStop);
359       Application.CreateForm(TfrmProbFreetext, frmProbFreetext);
360       if assigned(frmSplash) then
361         frmSplash.Free;                               // close & free splash screen
362      
363       Application.Run;
364     end;
365   end.

Module Calls (2 levels)


CPRSChart
 ├fSplash
 │ └fBase508Form
 ├dShared
 │ ├uTemplates
 │ ├fDrawers
 │ ├rTemplates
 │ ├uCore
 │ ├uTemplateFields
 │ └uEventHooks
 ├uEventHooks...
 ├fFrame
 │ ├fPage
 │ ├uConst
 │ ├VERGENCECONTEXTORLib_TLB
 │ ├fBase508Form...
 │ ├XuDsigS
 │ ├rCore
 │ ├fPtSelMsg
 │ ├fPtSel
 │ ├fCover
 │ ├fProbs
 │ ├fMeds
 │ ├fOrders
 │ ├rOrders
 │ ├fNotes
 │ ├fConsults
 │ ├fDCSumm
 │ ├rMisc
 │ ├fLabs
 │ ├fReports
 │ ├rReports
 │ ├fPtDemo
 │ ├fEncnt
 │ ├fPtCWAD
 │ ├uCore...
 │ ├fAbout
 │ ├fReview
 │ ├fxBroker
 │ ├fxLists
 │ ├fxServer
 │ ├fRptBox
 │ ├rODAllergy
 │ ├uInit
 │ ├fLabInfo
 │ ├uReminders
 │ ├fReminderTree
 │ ├fDeviceSelect
 │ ├fDrawers...
 │ ├fReminderDialog
 │ ├fOptions
 │ ├fGraphs
 │ ├fGraphData
 │ ├rTemplates...
 │ ├fSurgery
 │ ├rSurgery
 │ ├uEventHooks...
 │ ├uSignItems
 │ ├rECS
 │ ├fIconLegend
 │ ├uOrders
 │ ├uSpell
 │ ├uOrPtf
 │ ├fPatientFlagMulti
 │ ├fAlertForward
 │ ├UBAGlobals
 │ ├UBACore
 │ ├fOrdersSign
 │ ├uVitals
 │ ├fMHTest
 │ ├uFormMonitor
 │ ├fOtherSchedule
 │ ├uVA508CPRSCompatibility
 │ ├fIVRoutes
 │ ├fPrintLocation
 │ ├fTemplateEditor
 │ └fCombatVet
 ├fNoteSTStop
 │ ├fAutoSz
 │ └fNotes...
 ├fBase508Form...
 └fProbFreetext
   ├uProbs
   └fBase508Form...