Ignore:
Timestamp:
Jun 10, 2010, 3:13:12 PM (14 years ago)
Author:
Kevin Toppenberg
Message:

update

Location:
cprs/branches/tmg-cprs/CPRS-Chart
Files:
75 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/tmg-cprs/CPRS-Chart/Accessibility_TLB.pas

    r735 r793  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 3/31/2010 9:12:36 PM from Type Library described below.
     15// File generated on 6/9/2010 4:33:51 PM from Type Library described below.
    1616
    1717// ************************************************************************  //

  • cprs/branches/tmg-cprs/CPRS-Chart/BA/fBAOptionsDiagnoses.dfm

    r453 r793  
    11inherited frmBAOptionsDiagnoses: TfrmBAOptionsDiagnoses
    22  Left = 231
    3   Top = 183
     3  Top = 177
    44  Width = 747
    55  Height = 557

  • cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.cfg

    r541 r793  
    3333-$M32768,1048576
    3434-K$00400000
    35 -E"P:\Vista\tmg-cprs"
     35-E"P:\vista\tmg-cprs\cache"
    3636-N"P:\Vista\tmg-cprs\CPRS-Chart\dcu"
    3737-LE"c:\program files\borland\delphi7\Projects\Bpl"

  • cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.dof

    r729 r793  
    9191ExeDescription=
    9292[Directories]
    93 OutputDir=P:\Vista\tmg-cprs
     93OutputDir=P:\vista\tmg-cprs\cache
    9494UnitOutputDir=P:\Vista\tmg-cprs\CPRS-Chart\dcu
    9595PackageDLLOutputDir=
    … …  
    101101UsePackages=0
    102102[Parameters]
    103 RunParams=CCOW=disable s=192.168.3.99 p=9260
     103RunParams=CCOW=disable s=192.168.3.99 p=9260 SPLASH="C:\Documents and Settings\e.hagood.TMG\Desktop\Bicycle_Wreck.jpg"
    104104HostApplication=
    105105Launcher=
    … …  
    174174Item2=C:\Vista\cprs\OR_3_215V26_69\CPRS-Chart\DCU
    175175[HistoryLists\hlOutputDirectorry]
    176 Count=3
    177 Item0=P:\Vista\tmg-cprs
    178 Item1=C:\Vista\cprs\OR_3_270V26_69\CPRS-Chart
    179 Item2=C:\Vista\cprs\OR_3_215V26_69\CPRS-Chart
     176Count=4
     177Item0=P:\vista\tmg-cprs\cache
     178Item1=P:\vista\tmg-cprs
     179Item2=C:\Vista\cprs\OR_3_270V26_69\CPRS-Chart
     180Item3=C:\Vista\cprs\OR_3_215V26_69\CPRS-Chart
    180181[HistoryLists\hlBPLOutput]
    181182Count=2

  • cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.dpr

    r729 r793  
    326326  uTMGOptions in 'uTMGOptions.pas',
    327327  fPtLabelPrint in 'TMG_Extra\fPtLabelPrint.pas' {frmPtLabelPrint},
    328   uEvaluate in 'uEvaluate.pas';
     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';
    329333
    330334{$R *.TLB}
    … …  
    349353    Application.HelpFile := 'cprs.hlp';
    350354    Application.CreateForm(TdmodShared, dmodShared);
    351   Application.CreateForm(TfrmFrame, frmFrame);
    352   //kt <--- frmImages etc created here
     355    Application.CreateForm(TfrmFrame, frmFrame);
     356    //kt <--- frmImages etc created here
    353357    Application.CreateForm(TfrmPtLabelPrint, frmPtLabelPrint);
    354358    if frmframe.TMGAbort = False then begin   //kt 3/25/09
    … …  
    367371      Application.CreateForm(TEditTextForm, EditTextForm);
    368372      Application.CreateForm(TfrmTMGPrinting,frmTMGPrinting);
     373      Application.CreateForm(TfrmPtQuery, frmPtQuery);
     374      Application.CreateForm(TfrmTMGServerSearch, frmTMGServerSearch);
     375      Application.CreateForm(TfrmSrchResults, frmSrchResults);
    369376      frmSplash.Free;                               // close & free splash screen
    370377      Application.Run;

  • cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart.dsk

    r738 r793  
    11[Closed Files]
    2 File_0=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas',0,1,367,13,371,0,0
    3 File_1=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateEditor.pas',0,1,37,18,66,0,0
    4 File_2=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas',0,1,207,1,170,0,0
    5 File_3=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',0,1,799,39,807,0,0
    6 File_4=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fNotePrt.pas',0,1,134,11,76,0,0
    7 File_5=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\rTIU.pas',0,1,921,10,929,0,0
    8 File_6=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fOptionsNotes.pas',0,1,283,32,289,0,0
    9 File_7=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fxBroker.pas',0,1,119,13,135,0,0
    10 File_8=SourceModule,'P:\Vista\tmg-cprs\CPRS-Lib\ORNet.pas',0,1,458,1,469,0,0
    11 File_9=SourceModule,'P:\vista\tmg-cprs\CPRSChart.ini',0,1,40,1,47,0,0
     2File_0=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\uCore.pas',0,1,706,1,713,0,0
     3File_1=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Consults\fConsults.pas',0,1,1749,1,1759,0,0
     4File_2=SourceModule,'c:\program files\borland\delphi7\source\vcl\Menus.pas',0,1,1815,1,1822,0,0
     5File_3=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fReportsAdhocComponent1.pas',0,1,126,1,133,0,0
     6File_4=SourceModule,'c:\program files\borland\delphi7\source\vcl\Controls.pas',0,1,3801,1,3810,0,0
     7File_5=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fCover.pas',0,1,129,3,140,0,0
    128
    139[Modules]
    14 Count=0
    15 EditWindowCount=0
     10Module0=P:\vista\tmg-cprs\CPRS-Chart\fVitals.pas
     11Module1=P:\vista\tmg-cprs\CPRS-Chart\fMeds.pas
     12Module2=P:\vista\tmg-cprs\CPRS-Chart\fPtSelDemog.pas
     13Module3=P:\vista\tmg-cprs\CPRS-Chart\fPtSelOptns.pas
     14Module4=P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas
     15Module5=P:\vista\tmg-cprs\CPRS-Chart\rCore.pas
     16Module6=P:\vista\tmg-cprs\CPRS-Chart\fProbEdt.pas
     17Module7=P:\vista\tmg-cprs\CPRS-Chart\fProbs.pas
     18Module8=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
     19Module9=P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas
     20Module10=P:\Vista\tmg-cprs\CPRS-Lib\ORCtrls.pas
     21Module11=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
     22Module12=C:\PROGRA~1\VISTA\BDK32\Source\Wsockc.pas
     23Module13=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     24Module14=c:\program files\borland\delphi7\source\vcl\Forms.pas
     25Module15=P:\Vista\tmg-cprs\CPRS-Lib\ORFn.pas
     26Module16=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtQuery.pas
     27Module17=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\SearchAnimationU.pas
     28Module18=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas
     29Module19=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\frmSearchResults.pas
     30Count=20
     31EditWindowCount=1
    1632TypeLibWindowCount=1
    1733
     34[P:\vista\tmg-cprs\CPRS-Chart\fVitals.pas]
     35ModuleType=SourceModule
     36FormState=0
     37FormOnTop=0
     38
     39[P:\vista\tmg-cprs\CPRS-Chart\fMeds.pas]
     40ModuleType=SourceModule
     41FormState=1
     42FormOnTop=0
     43
     44[P:\vista\tmg-cprs\CPRS-Chart\fPtSelDemog.pas]
     45ModuleType=SourceModule
     46FormState=0
     47FormOnTop=1
     48
     49[P:\vista\tmg-cprs\CPRS-Chart\fPtSelOptns.pas]
     50ModuleType=SourceModule
     51FormState=1
     52FormOnTop=1
     53
     54[P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas]
     55ModuleType=SourceModule
     56FormState=1
     57FormOnTop=0
     58
     59[P:\vista\tmg-cprs\CPRS-Chart\rCore.pas]
     60ModuleType=SourceModule
     61FormState=0
     62FormOnTop=0
     63
     64[P:\vista\tmg-cprs\CPRS-Chart\fProbEdt.pas]
     65ModuleType=SourceModule
     66FormState=1
     67FormOnTop=0
     68
     69[P:\vista\tmg-cprs\CPRS-Chart\fProbs.pas]
     70ModuleType=SourceModule
     71FormState=1
     72FormOnTop=0
     73
     74[P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas]
     75ModuleType=SourceModule
     76FormState=0
     77FormOnTop=1
     78
     79[P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas]
     80ModuleType=SourceModule
     81FormState=0
     82FormOnTop=0
     83
     84[P:\Vista\tmg-cprs\CPRS-Lib\ORCtrls.pas]
     85ModuleType=SourceModule
     86FormState=0
     87FormOnTop=0
     88
     89[c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas]
     90ModuleType=SourceModule
     91FormState=0
     92FormOnTop=0
     93
     94[C:\PROGRA~1\VISTA\BDK32\Source\Wsockc.pas]
     95ModuleType=SourceModule
     96FormState=0
     97FormOnTop=0
     98
     99[P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]
     100ModuleType=SourceModule
     101FormState=0
     102FormOnTop=0
     103
     104[c:\program files\borland\delphi7\source\vcl\Forms.pas]
     105ModuleType=SourceModule
     106FormState=0
     107FormOnTop=0
     108
     109[P:\Vista\tmg-cprs\CPRS-Lib\ORFn.pas]
     110ModuleType=SourceModule
     111FormState=0
     112FormOnTop=0
     113
     114[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtQuery.pas]
     115ModuleType=SourceModule
     116FormState=0
     117FormOnTop=0
     118
     119[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\SearchAnimationU.pas]
     120ModuleType=SourceModule
     121FormState=0
     122FormOnTop=0
     123
     124[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas]
     125ModuleType=SourceModule
     126FormState=0
     127FormOnTop=0
     128
     129[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\frmSearchResults.pas]
     130ModuleType=SourceModule
     131FormState=0
     132FormOnTop=0
     133
    18134[C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
    19135FormState=0
    20136FormOnTop=0
    21137
    22 [P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr]
    23 FormState=0
    24 FormOnTop=0
    25 
    26138[P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb]
    27139FormState=0
    28140FormOnTop=0
    29141
     142[P:\vista\tmg-cprs\CPRS-Chart\fHSplit.pas]
     143FormState=0
     144FormOnTop=0
     145
     146[P:\vista\tmg-cprs\CPRS-Chart\fPage.pas]
     147FormState=0
     148FormOnTop=0
     149
     150[P:\vista\tmg-cprs\CPRS-Chart\fHP.pas]
     151FormState=0
     152FormOnTop=0
     153
     154[P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas]
     155FormState=0
     156FormOnTop=0
     157
     158[P:\vista\tmg-cprs\CPRS-Chart\fDCSumm.pas]
     159FormState=0
     160FormOnTop=0
     161
     162[P:\vista\tmg-cprs\CPRS-Chart\fLabs.pas]
     163FormState=0
     164FormOnTop=0
     165
     166[P:\vista\tmg-cprs\CPRS-Chart\fReports.pas]
     167FormState=0
     168FormOnTop=0
     169
     170[P:\vista\tmg-cprs\CPRS-Chart\fPtSens.pas]
     171FormState=0
     172FormOnTop=0
     173
     174[P:\vista\tmg-cprs\CPRS-Chart\fEncnt.pas]
     175FormState=0
     176FormOnTop=0
     177
     178[P:\vista\tmg-cprs\CPRS-Chart\fVisit.pas]
     179FormState=0
     180FormOnTop=0
     181
     182[P:\vista\tmg-cprs\CPRS-Chart\fPtDemo.pas]
     183FormState=0
     184FormOnTop=0
     185
     186[P:\vista\tmg-cprs\CPRS-Chart\fxBroker.pas]
     187FormState=0
     188FormOnTop=0
     189
     190[P:\vista\tmg-cprs\CPRS-Chart\fNoteBA.pas]
     191FormState=0
     192FormOnTop=0
     193
     194[P:\vista\tmg-cprs\CPRS-Chart\fNoteBD.pas]
     195FormState=0
     196FormOnTop=0
     197
     198[P:\vista\tmg-cprs\CPRS-Chart\fLabTest.pas]
     199FormState=0
     200FormOnTop=0
     201
     202[P:\vista\tmg-cprs\CPRS-Chart\fLabTestGroups.pas]
     203FormState=0
     204FormOnTop=0
     205
     206[P:\vista\tmg-cprs\CPRS-Chart\fLabTests.pas]
     207FormState=0
     208FormOnTop=0
     209
     210[P:\vista\tmg-cprs\CPRS-Chart\fSignItem.pas]
     211FormState=0
     212FormOnTop=0
     213
     214[P:\vista\tmg-cprs\CPRS-Chart\fRptBox.pas]
     215FormState=0
     216FormOnTop=0
     217
     218[P:\vista\tmg-cprs\CPRS-Chart\fAbout.pas]
     219FormState=0
     220FormOnTop=0
     221
    30222[P:\vista\tmg-cprs\CPRS-Chart\fAutoSz.pas]
    31223FormState=0
    32224FormOnTop=0
    33225
    34 [P:\vista\tmg-cprs\CPRS-Chart\fHSplit.pas]
    35 FormState=0
    36 FormOnTop=0
    37 
    38 [P:\vista\tmg-cprs\CPRS-Chart\fPage.pas]
    39 FormState=0
    40 FormOnTop=0
     226[P:\vista\tmg-cprs\CPRS-Chart\fxLists.pas]
     227FormState=0
     228FormOnTop=0
     229
     230[P:\vista\tmg-cprs\CPRS-Chart\fxServer.pas]
     231FormState=0
     232FormOnTop=0
     233
     234[P:\vista\tmg-cprs\CPRS-Chart\fPtCWAD.pas]
     235FormState=0
     236FormOnTop=0
     237
     238[P:\vista\tmg-cprs\CPRS-Chart\fProbFlt.pas]
     239FormState=0
     240FormOnTop=0
     241
     242[P:\vista\tmg-cprs\CPRS-Chart\fProbCmt.pas]
     243FormState=0
     244FormOnTop=0
     245
     246[P:\vista\tmg-cprs\CPRS-Chart\fNoteCslt.pas]
     247FormState=0
     248FormOnTop=0
     249
     250[P:\vista\tmg-cprs\CPRS-Chart\fNotePrt.pas]
     251FormState=0
     252FormOnTop=0
     253
     254[P:\vista\tmg-cprs\CPRS-Chart\fLkUpLocation.pas]
     255FormState=0
     256FormOnTop=0
     257
     258[P:\vista\tmg-cprs\CPRS-Chart\fRename.pas]
     259FormState=0
     260FormOnTop=0
     261
     262[P:\vista\tmg-cprs\CPRS-Chart\fDateRange.pas]
     263FormState=0
     264FormOnTop=0
     265
     266[P:\vista\tmg-cprs\CPRS-Chart\fRenewOutMed.pas]
     267FormState=0
     268FormOnTop=0
     269
     270[P:\vista\tmg-cprs\CPRS-Chart\Consults\fConsult513Prt.pas]
     271FormState=0
     272FormOnTop=0
     273
     274[P:\vista\tmg-cprs\CPRS-Chart\Consults\fConsultAct.pas]
     275FormState=0
     276FormOnTop=0
     277
     278[P:\vista\tmg-cprs\CPRS-Chart\Consults\fConsultAlertTo.pas]
     279FormState=0
     280FormOnTop=0
     281
     282[P:\vista\tmg-cprs\CPRS-Chart\Consults\fConsultBD.pas]
     283FormState=0
     284FormOnTop=0
     285
     286[P:\vista\tmg-cprs\CPRS-Chart\Consults\fConsultBS.pas]
     287FormState=0
     288FormOnTop=0
     289
     290[P:\vista\tmg-cprs\CPRS-Chart\Consults\fConsultBSt.pas]
     291FormState=0
     292FormOnTop=0
     293
     294[P:\vista\tmg-cprs\CPRS-Chart\Consults\fConsultsView.pas]
     295FormState=0
     296FormOnTop=0
     297
     298[P:\vista\tmg-cprs\CPRS-Chart\fTimeout.pas]
     299FormState=0
     300FormOnTop=0
     301
     302[P:\vista\tmg-cprs\CPRS-Chart\fNoteDR.pas]
     303FormState=0
     304FormOnTop=0
     305
     306[P:\vista\tmg-cprs\CPRS-Chart\Consults\fCsltNote.pas]
     307FormState=0
     308FormOnTop=0
     309
     310[P:\vista\tmg-cprs\CPRS-Chart\Consults\fEditConsult.pas]
     311FormState=0
     312FormOnTop=0
     313
     314[P:\vista\tmg-cprs\CPRS-Chart\Consults\fEditProc.pas]
     315FormState=0
     316FormOnTop=0
     317
     318[P:\vista\tmg-cprs\CPRS-Chart\fAllgyFind.pas]
     319FormState=0
     320FormOnTop=0
     321
     322[P:\vista\tmg-cprs\CPRS-Chart\fAddlSigners.pas]
     323FormState=0
     324FormOnTop=0
     325
     326[P:\vista\tmg-cprs\CPRS-Chart\fLabPrint.pas]
     327FormState=0
     328FormOnTop=0
     329
     330[P:\vista\tmg-cprs\CPRS-Chart\fReportsPrint.pas]
     331FormState=0
     332FormOnTop=0
     333
     334[P:\vista\tmg-cprs\CPRS-Chart\fvit.pas]
     335FormState=0
     336FormOnTop=0
     337
     338[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fEncounterFrame.pas]
     339FormState=0
     340FormOnTop=0
     341
     342[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fPCEBase.pas]
     343FormState=0
     344FormOnTop=0
     345
     346[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fPCELex.pas]
     347FormState=0
     348FormOnTop=0
     349
     350[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fPCEOther.pas]
     351FormState=0
     352FormOnTop=0
     353
     354[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fProcedure.pas]
     355FormState=0
     356FormOnTop=0
     357
     358[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fPCEBaseMain.pas]
     359FormState=0
     360FormOnTop=0
     361
     362[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fPCEBaseGrid.pas]
     363FormState=0
     364FormOnTop=0
     365
     366[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fSkinTest.pas]
     367FormState=0
     368FormOnTop=0
     369
     370[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fVisitType.pas]
     371FormState=0
     372FormOnTop=0
     373
     374[P:\vista\tmg-cprs\CPRS-Chart\Encounter\mVisitRelated.pas]
     375FormState=0
     376FormOnTop=0
     377
     378[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fDiagnoses.pas]
     379FormState=0
     380FormOnTop=0
     381
     382[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fPatientEd.pas]
     383FormState=0
     384FormOnTop=0
     385
     386[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fExam.pas]
     387FormState=0
     388FormOnTop=0
     389
     390[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fHealthFactor.pas]
     391FormState=0
     392FormOnTop=0
     393
     394[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fImmunization.pas]
     395FormState=0
     396FormOnTop=0
     397
     398[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fEncVitals.pas]
     399FormState=0
     400FormOnTop=0
     401
     402[P:\vista\tmg-cprs\CPRS-Chart\fEffectDate.pas]
     403FormState=0
     404FormOnTop=0
     405
     406[P:\vista\tmg-cprs\CPRS-Chart\dShared.pas]
     407FormState=0
     408FormOnTop=0
     409
     410[P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas]
     411FormState=0
     412FormOnTop=0
     413
     414[P:\vista\tmg-cprs\CPRS-Chart\fMedCopy.pas]
     415FormState=0
     416FormOnTop=0
     417
     418[P:\vista\tmg-cprs\CPRS-Chart\mEvntDelay.pas]
     419FormState=0
     420FormOnTop=0
     421
     422[P:\vista\tmg-cprs\CPRS-Chart\fReminderTree.pas]
     423FormState=0
     424FormOnTop=0
     425
     426[P:\vista\tmg-cprs\CPRS-Chart\fReminderDialog.pas]
     427FormState=0
     428FormOnTop=0
     429
     430[P:\vista\tmg-cprs\CPRS-Chart\fReportsAdhocSubItem1.pas]
     431FormState=0
     432FormOnTop=0
     433
     434[P:\vista\tmg-cprs\CPRS-Chart\fPtSelMsg.pas]
     435FormState=0
     436FormOnTop=0
     437
     438[P:\vista\tmg-cprs\CPRS-Chart\fMHTest.pas]
     439FormState=0
     440FormOnTop=0
     441
     442[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fGAF.pas]
     443FormState=0
     444FormOnTop=0
     445
     446[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fPCEProvider.pas]
     447FormState=0
     448FormOnTop=0
     449
     450[P:\vista\tmg-cprs\CPRS-Chart\fNoteProps.pas]
     451FormState=0
     452FormOnTop=0
     453
     454[P:\vista\tmg-cprs\CPRS-Chart\fNotesBP.pas]
     455FormState=0
     456FormOnTop=0
     457
     458[P:\vista\tmg-cprs\CPRS-Chart\fLabInfo.pas]
     459FormState=0
     460FormOnTop=0
     461
     462[P:\vista\tmg-cprs\CPRS-Chart\Consults\fPreReq.pas]
     463FormState=0
     464FormOnTop=0
     465
     466[P:\vista\tmg-cprs\CPRS-Chart\fDCSummProps.pas]
     467FormState=0
     468FormOnTop=0
     469
     470[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fHFSearch.pas]
     471FormState=0
     472FormOnTop=0
     473
     474[P:\vista\tmg-cprs\CPRS-Chart\Consults\fConsMedRslt.pas]
     475FormState=0
     476FormOnTop=0
     477
     478[P:\vista\tmg-cprs\CPRS-Chart\Vitals\mVitMetric.pas]
     479FormState=0
     480FormOnTop=0
     481
     482[P:\vista\tmg-cprs\CPRS-Chart\Vitals\mVitAll.pas]
     483FormState=0
     484FormOnTop=0
     485
     486[P:\vista\tmg-cprs\CPRS-Chart\Vitals\mVitTemp.pas]
     487FormState=0
     488FormOnTop=0
     489
     490[P:\vista\tmg-cprs\CPRS-Chart\Vitals\mVitBase.pas]
     491FormState=0
     492FormOnTop=0
     493
     494[P:\vista\tmg-cprs\CPRS-Chart\Vitals\mVitPulse.pas]
     495FormState=0
     496FormOnTop=0
     497
     498[P:\vista\tmg-cprs\CPRS-Chart\Vitals\mVitResp.pas]
     499FormState=0
     500FormOnTop=0
     501
     502[P:\vista\tmg-cprs\CPRS-Chart\Vitals\mVitBP.pas]
     503FormState=0
     504FormOnTop=0
     505
     506[P:\vista\tmg-cprs\CPRS-Chart\Vitals\mVitHeight.pas]
     507FormState=0
     508FormOnTop=0
     509
     510[P:\vista\tmg-cprs\CPRS-Chart\Vitals\mVitWeight.pas]
     511FormState=0
     512FormOnTop=0
     513
     514[P:\vista\tmg-cprs\CPRS-Chart\Vitals\mVitPain.pas]
     515FormState=0
     516FormOnTop=0
     517
     518[P:\vista\tmg-cprs\CPRS-Chart\Vitals\mVitPO2.pas]
     519FormState=0
     520FormOnTop=0
     521
     522[P:\vista\tmg-cprs\CPRS-Chart\Vitals\mVitCVP.pas]
     523FormState=0
     524FormOnTop=0
     525
     526[P:\vista\tmg-cprs\CPRS-Chart\Vitals\mVitCirGirth.pas]
     527FormState=0
     528FormOnTop=0
     529
     530[P:\vista\tmg-cprs\CPRS-Chart\Vitals\fVitalsDate.pas]
     531FormState=0
     532FormOnTop=0
     533
     534[P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas]
     535FormState=0
     536FormOnTop=0
     537
     538[P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateEditor.pas]
     539FormState=0
     540FormOnTop=0
     541
     542[P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateFieldEditor.pas]
     543FormState=0
     544FormOnTop=0
     545
     546[P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateFields.pas]
     547FormState=0
     548FormOnTop=0
     549
     550[P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateObjects.pas]
     551FormState=0
     552FormOnTop=0
     553
     554[P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateView.pas]
     555FormState=0
     556FormOnTop=0
     557
     558[P:\vista\tmg-cprs\CPRS-Chart\Templates\mTemplateFieldButton.pas]
     559FormState=0
     560FormOnTop=0
     561
     562[P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateAutoGen.pas]
     563FormState=0
     564FormOnTop=0
     565
     566[P:\vista\tmg-cprs\CPRS-Chart\fRemVisitInfo.pas]
     567FormState=0
     568FormOnTop=0
     569
     570[P:\vista\tmg-cprs\CPRS-Chart\fIconLegend.pas]
     571FormState=0
     572FormOnTop=0
     573
     574[P:\vista\tmg-cprs\CPRS-Chart\mImgText.pas]
     575FormState=0
     576FormOnTop=0
     577
     578[P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateImport.pas]
     579FormState=0
     580FormOnTop=0
     581
     582[P:\vista\tmg-cprs\CPRS-Chart\fRemCoverSheet.pas]
     583FormState=0
     584FormOnTop=0
     585
     586[P:\vista\tmg-cprs\CPRS-Chart\fRemCoverPreview.pas]
     587FormState=0
     588FormOnTop=0
     589
     590[P:\vista\tmg-cprs\CPRS-Chart\Encounter\fPCEEdit.pas]
     591FormState=0
     592FormOnTop=0
     593
     594[P:\vista\tmg-cprs\CPRS-Chart\fSurgeryView.pas]
     595FormState=0
     596FormOnTop=0
     597
     598[P:\vista\tmg-cprs\CPRS-Chart\fSurgery.pas]
     599FormState=0
     600FormOnTop=0
     601
     602[P:\vista\tmg-cprs\CPRS-Chart\fNoteIDParents.pas]
     603FormState=0
     604FormOnTop=0
     605
     606[P:\vista\tmg-cprs\CPRS-Chart\fNoteCPFields.pas]
     607FormState=0
     608FormOnTop=0
     609
     610[P:\vista\tmg-cprs\CPRS-Chart\fPtSelOptSave.pas]
     611FormState=0
     612FormOnTop=0
     613
     614[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOCSession.pas]
     615FormState=0
     616FormOnTop=0
     617
     618[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODBase.pas]
     619FormState=0
     620FormOnTop=0
     621
     622[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODDiet.pas]
     623FormState=0
     624FormOnTop=0
     625
     626[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODDietLT.pas]
     627FormState=0
     628FormOnTop=0
     629
     630[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODGen.pas]
     631FormState=0
     632FormOnTop=0
     633
     634[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODLab.pas]
     635FormState=0
     636FormOnTop=0
     637
     638[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODLabImmedColl.pas]
     639FormState=0
     640FormOnTop=0
     641
     642[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODLabOthCollSamp.pas]
     643FormState=0
     644FormOnTop=0
     645
     646[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODLabOthSpec.pas]
     647FormState=0
     648FormOnTop=0
     649
     650[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODMedComplex.pas]
     651FormState=0
     652FormOnTop=0
     653
     654[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODMedFA.pas]
     655FormState=0
     656FormOnTop=0
     657
     658[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODMedIn.pas]
     659FormState=0
     660FormOnTop=0
     661
     662[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODMedIV.pas]
     663FormState=0
     664FormOnTop=0
     665
     666[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODMedOIFA.pas]
     667FormState=0
     668FormOnTop=0
     669
     670[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODMedOut.pas]
     671FormState=0
     672FormOnTop=0
     673
     674[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODMeds.pas]
     675FormState=0
     676FormOnTop=0
     677
     678[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODMessage.pas]
     679FormState=0
     680FormOnTop=0
     681
     682[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODMisc.pas]
     683FormState=0
     684FormOnTop=0
     685
     686[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODRad.pas]
     687FormState=0
     688FormOnTop=0
     689
     690[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODRadApproval.pas]
     691FormState=0
     692FormOnTop=0
     693
     694[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODRadConShRes.pas]
     695FormState=0
     696FormOnTop=0
     697
     698[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODRadImType.pas]
     699FormState=0
     700FormOnTop=0
     701
     702[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODSaveQuick.pas]
     703FormState=0
     704FormOnTop=0
     705
     706[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODText.pas]
     707FormState=0
     708FormOnTop=0
     709
     710[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODVitals.pas]
     711FormState=0
     712FormOnTop=0
     713
     714[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOMAction.pas]
     715FormState=0
     716FormOnTop=0
     717
     718[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOMHTML.pas]
     719FormState=0
     720FormOnTop=0
     721
     722[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOMNavA.pas]
     723FormState=0
     724FormOnTop=0
     725
     726[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOMProgress.pas]
     727FormState=0
     728FormOnTop=0
     729
     730[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOMSet.pas]
     731FormState=0
     732FormOnTop=0
     733
     734[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOMVerify.pas]
     735FormState=0
     736FormOnTop=0
     737
     738[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrderComment.pas]
     739FormState=0
     740FormOnTop=0
     741
     742[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrderFlag.pas]
     743FormState=0
     744FormOnTop=0
     745
     746[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrders.pas]
     747FormState=0
     748FormOnTop=0
     749
     750[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrdersAlert.pas]
     751FormState=0
     752FormOnTop=0
     753
     754[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrderSaveQuick.pas]
     755FormState=0
     756FormOnTop=0
     757
     758[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrdersComplete.pas]
     759FormState=0
     760FormOnTop=0
     761
     762[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrdersCopy.pas]
     763FormState=0
     764FormOnTop=0
     765
     766[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrdersDC.pas]
     767FormState=0
     768FormOnTop=0
     769
     770[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrdersHold.pas]
     771FormState=0
     772FormOnTop=0
     773
     774[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrdersOnChart.pas]
     775FormState=0
     776FormOnTop=0
     777
     778[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrdersPrint.pas]
     779FormState=0
     780FormOnTop=0
     781
     782[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrdersRefill.pas]
     783FormState=0
     784FormOnTop=0
     785
     786[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrdersRelease.pas]
     787FormState=0
     788FormOnTop=0
     789
     790[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrdersRenew.pas]
     791FormState=0
     792FormOnTop=0
     793
     794[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrdersSign.pas]
     795FormState=0
     796FormOnTop=0
     797
     798[P:\vista\tmg-cprs\CPRS-Chart\mCoPayDesc.pas]
     799FormState=0
     800FormOnTop=0
     801
     802[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrdersTS.pas]
     803FormState=0
     804FormOnTop=0
     805
     806[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrdersUnhold.pas]
     807FormState=0
     808FormOnTop=0
     809
     810[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrdersVerify.pas]
     811FormState=0
     812FormOnTop=0
     813
     814[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrderUnflag.pas]
     815FormState=0
     816FormOnTop=0
     817
     818[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrderVw.pas]
     819FormState=0
     820FormOnTop=0
     821
     822[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOCAccept.pas]
     823FormState=0
     824FormOnTop=0
     825
     826[P:\vista\tmg-cprs\CPRS-Chart\Consults\fODConsult.pas]
     827FormState=0
     828FormOnTop=0
     829
     830[P:\vista\tmg-cprs\CPRS-Chart\Consults\fODProc.pas]
     831FormState=0
     832FormOnTop=0
     833
     834[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsCombinations.pas]
     835FormState=0
     836FormOnTop=0
     837
     838[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsDays.pas]
     839FormState=0
     840FormOnTop=0
     841
     842[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsLists.pas]
     843FormState=0
     844FormOnTop=0
     845
     846[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsNewList.pas]
     847FormState=0
     848FormOnTop=0
     849
     850[P:\vista\tmg-cprs\CPRS-Chart\fOptionsNotes.pas]
     851FormState=0
     852FormOnTop=0
     853
     854[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas]
     855FormState=0
     856FormOnTop=0
     857
     858[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsPatientSelection.pas]
     859FormState=0
     860FormOnTop=0
     861
     862[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsPrimaryList.pas]
     863FormState=0
     864FormOnTop=0
     865
     866[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsReminders.pas]
     867FormState=0
     868FormOnTop=0
     869
     870[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsReportsCustom.pas]
     871FormState=0
     872FormOnTop=0
     873
     874[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsReportsDefault.pas]
     875FormState=0
     876FormOnTop=0
     877
     878[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsSubscribe.pas]
     879FormState=0
     880FormOnTop=0
     881
     882[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsSurrogate.pas]
     883FormState=0
     884FormOnTop=0
     885
     886[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsTeams.pas]
     887FormState=0
     888FormOnTop=0
     889
     890[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsTitles.pas]
     891FormState=0
     892FormOnTop=0
     893
     894[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas]
     895FormState=0
     896FormOnTop=0
     897
     898[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrdersCV.pas]
     899FormState=0
     900FormOnTop=0
     901
     902[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODReleaseEvent.pas]
     903FormState=0
     904FormOnTop=0
     905
     906[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODActive.pas]
     907FormState=0
     908FormOnTop=0
     909
     910[P:\vista\tmg-cprs\CPRS-Chart\fDefaultEvent.pas]
     911FormState=0
     912FormOnTop=0
     913
     914[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrdersEvntRelease.pas]
     915FormState=0
     916FormOnTop=0
     917
     918[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODChangeEvtDisp.pas]
     919FormState=0
     920FormOnTop=0
     921
     922[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODValidateAction.pas]
     923FormState=0
     924FormOnTop=0
     925
     926[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODChild.pas]
     927FormState=0
     928FormOnTop=0
     929
     930[P:\vista\tmg-cprs\CPRS-Chart\fDupPts.pas]
     931FormState=0
     932FormOnTop=0
     933
     934[P:\vista\tmg-cprs\CPRS-Chart\fPatientFlagMulti.pas]
     935FormState=0
     936FormOnTop=0
     937
     938[P:\vista\tmg-cprs\CPRS-Chart\fAlertForward.pas]
     939FormState=0
     940FormOnTop=0
     941
     942[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODMedNVA.pas]
     943FormState=0
     944FormOnTop=0
     945
     946[P:\vista\tmg-cprs\CPRS-Chart\fPrintList.pas]
     947FormState=0
     948FormOnTop=0
     949
     950[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODChangeUnreleasedRenew.pas]
     951FormState=0
     952FormOnTop=0
     953
     954[P:\vista\tmg-cprs\CPRS-Chart\BA\fBALocalDiagnoses.pas]
     955FormState=0
     956FormOnTop=0
     957
     958[P:\vista\tmg-cprs\CPRS-Chart\fReview.pas]
     959FormState=0
     960FormOnTop=0
     961
     962[P:\vista\tmg-cprs\CPRS-Chart\fARTFreeTextMsg.pas]
     963FormState=0
     964FormOnTop=0
     965
     966[P:\vista\tmg-cprs\CPRS-Chart\fAllgyBox.pas]
     967FormState=0
     968FormOnTop=0
     969
     970[P:\vista\tmg-cprs\CPRS-Chart\fARTAllgy.pas]
     971FormState=0
     972FormOnTop=0
     973
     974[P:\vista\tmg-cprs\CPRS-Chart\BA\fBAOptionsDiagnoses.pas]
     975FormState=0
     976FormOnTop=0
     977
     978[P:\vista\tmg-cprs\CPRS-Chart\Orders\fOtherSchedule.pas]
     979FormState=0
     980FormOnTop=0
     981
     982[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODBBank.pas]
     983FormState=0
     984FormOnTop=0
     985
     986[P:\vista\tmg-cprs\CPRS-Chart\fNoteST.pas]
     987FormState=0
     988FormOnTop=0
     989
     990[P:\vista\tmg-cprs\CPRS-Chart\fNoteSTStop.pas]
     991FormState=0
     992FormOnTop=0
     993
     994[P:\vista\tmg-cprs\CPRS-Chart\fGraphs.pas]
     995FormState=0
     996FormOnTop=0
     997
     998[P:\vista\tmg-cprs\CPRS-Chart\fGraphSettings.pas]
     999FormState=0
     1000FormOnTop=0
     1001
     1002[P:\vista\tmg-cprs\CPRS-Chart\fGraphProfiles.pas]
     1003FormState=0
     1004FormOnTop=0
     1005
     1006[P:\vista\tmg-cprs\CPRS-Chart\fClinicWardMeds.pas]
     1007FormState=0
     1008FormOnTop=0
     1009
     1010[P:\vista\tmg-cprs\CPRS-Chart\fActivateDeactivate.pas]
     1011FormState=0
     1012FormOnTop=0
     1013
     1014[P:\vista\tmg-cprs\CPRS-Chart\fImages.pas]
     1015FormState=0
     1016FormOnTop=0
     1017
     1018[P:\vista\tmg-cprs\CPRS-Chart\UploadImages.pas]
     1019FormState=0
     1020FormOnTop=0
     1021
     1022[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\frmImageTransferProgress.pas]
     1023FormState=0
     1024FormOnTop=0
     1025
     1026[P:\vista\tmg-cprs\CPRS-Chart\fProbLex.pas]
     1027FormState=0
     1028FormOnTop=0
     1029
     1030[P:\vista\tmg-cprs\CPRS-Chart\fTIUView.pas]
     1031FormState=0
     1032FormOnTop=0
     1033
     1034[P:\vista\tmg-cprs\CPRS-Chart\Orders\fODAllgy.pas]
     1035FormState=0
     1036FormOnTop=0
     1037
     1038[P:\vista\tmg-cprs\CPRS-Chart\fDeviceSelect.pas]
     1039FormState=0
     1040FormOnTop=0
     1041
     1042[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtAdd.pas]
     1043FormState=0
     1044FormOnTop=0
     1045
     1046[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fWebTab.pas]
     1047FormState=0
     1048FormOnTop=0
     1049
     1050[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\SelDateTimeU.pas]
     1051FormState=0
     1052FormOnTop=0
     1053
     1054[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\SetSelU.pas]
     1055FormState=0
     1056FormOnTop=0
     1057
     1058[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\FMErrorU.pas]
     1059FormState=0
     1060FormOnTop=0
     1061
     1062[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\LookupU.pas]
     1063FormState=0
     1064FormOnTop=0
     1065
     1066[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\PostU.pas]
     1067FormState=0
     1068FormOnTop=0
     1069
     1070[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\EditTextU.pas]
     1071FormState=0
     1072FormOnTop=0
     1073
     1074[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtLabelPrint.pas]
     1075FormState=0
     1076FormOnTop=0
     1077
     1078[EditWindow0]
     1079ViewCount=20
     1080CurrentView=8
     1081View0=0
     1082View1=1
     1083View2=2
     1084View3=3
     1085View4=4
     1086View5=5
     1087View6=6
     1088View7=7
     1089View8=8
     1090View9=9
     1091View10=10
     1092View11=11
     1093View12=12
     1094View13=13
     1095View14=14
     1096View15=15
     1097View16=16
     1098View17=17
     1099View18=18
     1100View19=19
     1101CodeExplorer=CodeExplorer@EditWindow0
     1102MessageView=MessageView@EditWindow0
     1103Create=1
     1104Visible=1
     1105State=0
     1106Left=275
     1107Top=119
     1108Width=716
     1109Height=615
     1110MaxLeft=-4
     1111MaxTop=-4
     1112ClientWidth=708
     1113ClientHeight=581
     1114LeftPanelSize=0
     1115LeftPanelClients=CodeExplorer@EditWindow0
     1116LeftPanelData=00000400010000000C000000436F64654578706C6F726572000000000000000000000000000000000001000000000000000000000000FFFFFFFF
     1117RightPanelSize=0
     1118BottomPanelSize=254
     1119BottomPanelClients=DockSite1
     1120BottomPanelData=0000040000000000770300000000000000D70000000000000001000000007703000009000000446F636B5369746531FFFFFFFF
     1121
     1122[View0]
     1123Module=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
     1124CursorX=1
     1125CursorY=1684
     1126TopLine=1677
     1127LeftCol=1
     1128
     1129[View1]
     1130Module=P:\vista\tmg-cprs\CPRS-Chart\fProbs.pas
     1131CursorX=1
     1132CursorY=1423
     1133TopLine=1416
     1134LeftCol=1
     1135
     1136[View2]
     1137Module=P:\vista\tmg-cprs\CPRS-Chart\fProbEdt.pas
     1138CursorX=6
     1139CursorY=7
     1140TopLine=1
     1141LeftCol=1
     1142
     1143[View3]
     1144Module=c:\program files\borland\delphi7\source\vcl\Forms.pas
     1145CursorX=1
     1146CursorY=6946
     1147TopLine=6939
     1148LeftCol=1
     1149
     1150[View4]
     1151Module=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     1152CursorX=7
     1153CursorY=374
     1154TopLine=362
     1155LeftCol=1
     1156
     1157[View5]
     1158Module=C:\PROGRA~1\VISTA\BDK32\Source\Wsockc.pas
     1159CursorX=1
     1160CursorY=1479
     1161TopLine=1472
     1162LeftCol=1
     1163
     1164[View6]
     1165Module=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
     1166CursorX=1
     1167CursorY=16069
     1168TopLine=16062
     1169LeftCol=1
     1170
     1171[View7]
     1172Module=P:\vista\tmg-cprs\CPRS-Chart\fMeds.pas
     1173CursorX=45
     1174CursorY=62
     1175TopLine=60
     1176LeftCol=1
     1177
     1178[View8]
     1179Module=P:\vista\tmg-cprs\CPRS-Chart\fVitals.pas
     1180CursorX=1
     1181CursorY=204
     1182TopLine=197
     1183LeftCol=1
     1184
     1185[View9]
     1186Module=P:\Vista\tmg-cprs\CPRS-Lib\ORCtrls.pas
     1187CursorX=34
     1188CursorY=902
     1189TopLine=900
     1190LeftCol=1
     1191
     1192[View10]
     1193Module=P:\vista\tmg-cprs\CPRS-Chart\rCore.pas
     1194CursorX=13
     1195CursorY=246
     1196TopLine=233
     1197LeftCol=1
     1198
     1199[View11]
     1200Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtQuery.pas
     1201CursorX=78
     1202CursorY=220
     1203TopLine=220
     1204LeftCol=1
     1205
     1206[View12]
     1207Module=P:\Vista\tmg-cprs\CPRS-Lib\ORFn.pas
     1208CursorX=1
     1209CursorY=628
     1210TopLine=617
     1211LeftCol=1
     1212
     1213[View13]
     1214Module=P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas
     1215CursorX=78
     1216CursorY=1333
     1217TopLine=1331
     1218LeftCol=1
     1219
     1220[View14]
     1221Module=P:\vista\tmg-cprs\CPRS-Chart\fPtSelOptns.pas
     1222CursorX=1
     1223CursorY=1
     1224TopLine=1
     1225LeftCol=1
     1226
     1227[View15]
     1228Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\SearchAnimationU.pas
     1229CursorX=1
     1230CursorY=101
     1231TopLine=94
     1232LeftCol=1
     1233
     1234[View16]
     1235Module=P:\vista\tmg-cprs\CPRS-Chart\fPtSelDemog.pas
     1236CursorX=28
     1237CursorY=103
     1238TopLine=98
     1239LeftCol=1
     1240
     1241[View17]
     1242Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\frmSearchResults.pas
     1243CursorX=25
     1244CursorY=56
     1245TopLine=43
     1246LeftCol=1
     1247
     1248[View18]
     1249Module=P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas
     1250CursorX=30
     1251CursorY=43
     1252TopLine=31
     1253LeftCol=1
     1254
     1255[View19]
     1256Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas
     1257CursorX=11
     1258CursorY=726
     1259TopLine=683
     1260LeftCol=1
    411261
    421262[TypeLibEditWindow0]
    … …  
    551275
    561276[Watches]
    57 Count=2
    58 Watch0='tmp',256,0,18,1,0,'Watches'
    59 Watch1='RPCBrokerV.Results.text',256,0,18,1,0,'Watches'
     1277Count=5
     1278Watch0='ResultStr',256,0,18,1,0,'Watches'
     1279Watch1='RPCResult',256,0,18,1,0,'Watches'
     1280Watch2='AsDefault',256,0,18,1,0,'Watches'
     1281Watch3='RPCBrokerV.Results.Strings[0]',256,0,18,1,0,'Watches'
     1282Watch4='Patient',256,0,18,1,0,'Watches'
    601283
    611284[WatchWindow]
    … …  
    671290Left=0
    681291Top=0
    69 Width=977
    70 Height=166
    71 MaxLeft=-1
    72 MaxTop=-1
    73 ClientWidth=977
    74 ClientHeight=166
    75 TBDockHeight=264
     1292Width=688
     1293Height=225
     1294MaxLeft=-1
     1295MaxTop=-1
     1296ClientWidth=688
     1297ClientHeight=225
     1298TBDockHeight=103
    761299LRDockWidth=421
    771300Dockable=1
    781301
    791302[Breakpoints]
    80 Count=34
    81 Breakpoint0='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1710,'',0,1,'',1,0,0,'',1,'','',''
    82 Breakpoint1='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1787,'',0,1,'',1,0,0,'',1,'','',''
     1303Count=38
     1304Breakpoint0='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1714,'',0,1,'',1,0,0,'',1,'','',''
     1305Breakpoint1='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas',1791,'',0,1,'',1,0,0,'',1,'','',''
    831306Breakpoint2='P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas',1068,'',0,1,'',1,0,0,'',1,'','',''
    84 Breakpoint3='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4424,'',0,1,'',1,0,0,'',1,'','',''
    85 Breakpoint4='P:\vista\tmg-cprs\CPRS-Chart\fOptionsNotes.pas',291,'',0,1,'',1,0,0,'',1,'','',''
    86 Breakpoint5='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',3281,'',0,1,'',1,0,0,'',1,'','',''
    87 Breakpoint6='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',3287,'',0,1,'',1,0,0,'',1,'','',''
    88 Breakpoint7='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4423,'',0,1,'',1,0,0,'',1,'','',''
    89 Breakpoint8='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4381,'',0,1,'',1,0,0,'',1,'','',''
    90 Breakpoint9='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4783,'',0,1,'',1,0,0,'',1,'','',''
    91 Breakpoint10='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4803,'',0,1,'',1,0,0,'',1,'','',''
    92 Breakpoint11='P:\vista\tmg-cprs\CPRS-Chart\fLabs.pas',2419,'',0,1,'',1,0,0,'',1,'','',''
    93 Breakpoint12='P:\vista\tmg-cprs\CPRS-Chart\fReports.pas',2966,'',0,1,'',1,0,0,'',1,'','',''
    94 Breakpoint13='P:\vista\tmg-cprs\CPRS-Chart\Consults\fConsults.pas',4882,'',0,1,'',1,0,0,'',1,'','',''
    95 Breakpoint14='P:\vista\tmg-cprs\CPRS-Chart\Consults\fEditConsult.pas',718,'',0,1,'',1,0,0,'',1,'','',''
    96 Breakpoint15='P:\vista\tmg-cprs\CPRS-Chart\Encounter\fEncounterFrame.pas',846,'',0,1,'',1,0,0,'',1,'','',''
    97 Breakpoint16='P:\vista\tmg-cprs\CPRS-Chart\fImages.pas',589,'',0,1,'',1,0,0,'',1,'','',''
    98 Breakpoint17='P:\vista\tmg-cprs\CPRS-Chart\fImages.pas',604,'',0,1,'',1,0,0,'',1,'','',''
    99 Breakpoint18='P:\vista\tmg-cprs\CPRS-Chart\fReview.pas',1350,'',0,1,'',1,0,0,'',1,'','',''
    100 Breakpoint19='P:\vista\tmg-cprs\CPRS-Chart\fVitals.pas',204,'',0,1,'',1,0,0,'',1,'','',''
    101 Breakpoint20='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4550,'',0,1,'',1,0,0,'',1,'','',''
    102 Breakpoint21='P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas',163,'',0,1,'',1,0,0,'',1,'','',''
    103 Breakpoint22='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',2545,'',0,1,'',1,0,0,'',1,'','',''
    104 Breakpoint23='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',2842,'',0,1,'',1,0,0,'',1,'','',''
    105 Breakpoint24='P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateFields.pas',143,'',0,1,'',1,0,0,'',1,'','',''
    106 Breakpoint25='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1128,'',0,1,'',1,0,0,'',1,'','',''
    107 Breakpoint26='P:\vista\tmg-cprs\CPRS-Chart\fImages.pas',509,'',0,1,'',1,0,0,'',1,'','',''
    108 Breakpoint27='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',1890,'',0,1,'',1,0,0,'',1,'','',''
    109 Breakpoint28='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1133,'',0,1,'',1,0,0,'',1,'','',''
    110 Breakpoint29='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1126,'',0,1,'',1,0,0,'',1,'','',''
    111 Breakpoint30='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',551,'',0,1,'',1,0,0,'',1,'','',''
    112 Breakpoint31='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1011,'',0,1,'',1,0,0,'',1,'','',''
    113 Breakpoint32='P:\vista\tmg-cprs\CPRS-Chart\dShared.pas',606,'',0,1,'',1,0,0,'',1,'','',''
    114 Breakpoint33='P:\vista\tmg-cprs\CPRS-Chart\rTIU.pas',929,'',0,1,'',1,0,0,'',1,'','',''
     1307Breakpoint3='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',3282,'',0,1,'',1,0,0,'',1,'','',''
     1308Breakpoint4='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',3288,'',0,1,'',1,0,0,'',1,'','',''
     1309Breakpoint5='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4382,'',0,1,'',1,0,0,'',1,'','',''
     1310Breakpoint6='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4785,'',0,1,'',1,0,0,'',1,'','',''
     1311Breakpoint7='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4805,'',0,1,'',1,0,0,'',1,'','',''
     1312Breakpoint8='P:\vista\tmg-cprs\CPRS-Chart\fLabs.pas',2419,'',0,1,'',1,0,0,'',1,'','',''
     1313Breakpoint9='P:\vista\tmg-cprs\CPRS-Chart\fReports.pas',2966,'',0,1,'',1,0,0,'',1,'','',''
     1314Breakpoint10='P:\vista\tmg-cprs\CPRS-Chart\Consults\fConsults.pas',4882,'',0,1,'',1,0,0,'',1,'','',''
     1315Breakpoint11='P:\vista\tmg-cprs\CPRS-Chart\Consults\fEditConsult.pas',718,'',0,1,'',1,0,0,'',1,'','',''
     1316Breakpoint12='P:\vista\tmg-cprs\CPRS-Chart\Encounter\fEncounterFrame.pas',846,'',0,1,'',1,0,0,'',1,'','',''
     1317Breakpoint13='P:\vista\tmg-cprs\CPRS-Chart\fReview.pas',1350,'',0,1,'',1,0,0,'',1,'','',''
     1318Breakpoint14='P:\vista\tmg-cprs\CPRS-Chart\rHTMLTools.pas',169,'',0,1,'',1,0,0,'',1,'','',''
     1319Breakpoint15='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',2545,'',0,1,'',1,0,0,'',1,'','',''
     1320Breakpoint16='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas',2842,'',0,1,'',1,0,0,'',1,'','',''
     1321Breakpoint17='P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateFields.pas',143,'',0,1,'',1,0,0,'',1,'','',''
     1322Breakpoint18='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1128,'',0,1,'',1,0,0,'',1,'','',''
     1323Breakpoint19='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',1891,'',0,1,'',1,0,0,'',1,'','',''
     1324Breakpoint20='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1133,'',0,1,'',1,0,0,'',1,'','',''
     1325Breakpoint21='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',1126,'',0,1,'',1,0,0,'',1,'','',''
     1326Breakpoint22='P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas',551,'',0,1,'',1,0,0,'',1,'','',''
     1327Breakpoint23='P:\vista\tmg-cprs\CPRS-Chart\dShared.pas',606,'',0,1,'',1,0,0,'',1,'','',''
     1328Breakpoint24='P:\vista\tmg-cprs\CPRS-Chart\rTIU.pas',929,'',0,1,'',1,0,0,'',1,'','',''
     1329Breakpoint25='P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\TMGHTML2.pas',706,'',0,1,'',1,0,0,'',1,'','',''
     1330Breakpoint26='P:\vista\tmg-cprs\CPRS-Chart\fNotePrt.pas',86,'',0,1,'',1,0,0,'',1,'','',''
     1331Breakpoint27='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',778,'',0,1,'',1,0,0,'',1,'','',''
     1332Breakpoint28='P:\vista\tmg-cprs\CPRS-Chart\fNotePrt.pas',243,'',0,1,'',1,0,0,'',1,'','',''
     1333Breakpoint29='P:\vista\tmg-cprs\CPRS-Chart\Orders\fOrders.pas',2820,'',0,1,'',1,0,0,'',1,'','',''
     1334Breakpoint30='P:\vista\tmg-cprs\CPRS-Chart\uTMGOptions.pas',129,'',0,1,'',1,0,0,'',1,'','',''
     1335Breakpoint31='P:\vista\tmg-cprs\CPRS-Chart\uTMGOptions.pas',87,'',0,1,'',1,0,0,'',1,'','',''
     1336Breakpoint32='P:\vista\tmg-cprs\CPRS-Chart\Consults\fConsults.pas',3059,'',0,1,'',1,0,0,'',1,'','',''
     1337Breakpoint33='P:\vista\tmg-cprs\CPRS-Chart\fReportsAdhocComponent1.pas',133,'',0,1,'',1,0,0,'',1,'','',''
     1338Breakpoint34='P:\vista\tmg-cprs\CPRS-Chart\Consults\fConsults.pas',1708,'',0,1,'',1,0,0,'',1,'','',''
     1339Breakpoint35='P:\vista\tmg-cprs\CPRS-Chart\fProbs.pas',334,'',0,1,'',1,0,0,'',1,'','',''
     1340Breakpoint36='P:\vista\tmg-cprs\CPRS-Chart\fProbs.pas',1271,'',0,1,'',1,0,0,'',1,'','',''
     1341Breakpoint37='P:\vista\tmg-cprs\CPRS-Chart\fProbs.pas',1378,'',0,1,'',1,0,0,'',1,'','',''
    1151342
    1161343[AddressBreakpoints]
    … …  
    1211348Visible=1
    1221349State=0
    123 Left=29
    124 Top=75
    125 Width=988
     1350Left=11
     1351Top=6
     1352Width=1013
    1261353Height=112
    1271354MaxLeft=-1
    1281355MaxTop=-1
    129 ClientWidth=980
     1356ClientWidth=1005
    1301357ClientHeight=78
    1311358
    … …  
    1661393Visible=0
    1671394State=0
    168 Left=81
    169 Top=152
     1395Left=25
     1396Top=161
    1701397Width=731
    1711398Height=488
    … …  
    1981425Left=0
    1991426Top=0
    200 Width=297
    201 Height=452
    202 MaxLeft=-1
    203 MaxTop=-1
    204 ClientWidth=297
    205 ClientHeight=452
     1427Width=246
     1428Height=528
     1429MaxLeft=-1
     1430MaxTop=-1
     1431ClientWidth=246
     1432ClientHeight=528
    2061433TBDockHeight=492
    2071434LRDockWidth=190
    … …  
    2391466Visible=0
    2401467State=0
    241 Left=-654
    242 Top=203
     1468Left=0
     1469Top=0
    2431470Width=553
    2441471Height=521
    … …  
    2771504Left=0
    2781505Top=0
    279 Width=297
    280 Height=452
    281 MaxLeft=-1
    282 MaxTop=-1
    283 ClientWidth=297
    284 ClientHeight=452
     1506Width=246
     1507Height=528
     1508MaxLeft=-1
     1509MaxTop=-1
     1510ClientWidth=246
     1511ClientHeight=528
    2851512TBDockHeight=175
    2861513LRDockWidth=108
    … …  
    2891516[DebugLogView]
    2901517Create=1
    291 Visible=1
     1518Visible=0
    2921519State=0
    2931520Left=0
    294 Top=0
    295 Width=977
    296 Height=166
    297 MaxLeft=-1
    298 MaxTop=-1
    299 ClientWidth=977
    300 ClientHeight=166
    301 TBDockHeight=291
     1521Top=625
     1522Width=387
     1523Height=218
     1524MaxLeft=-1
     1525MaxTop=-1
     1526ClientWidth=379
     1527ClientHeight=192
     1528TBDockHeight=192
    3021529LRDockWidth=417
    3031530Dockable=1
    … …  
    3951622Dockable=1
    3961623
     1624[CodeExplorer@EditWindow0]
     1625Create=1
     1626Visible=0
     1627State=0
     1628Left=0
     1629Top=12
     1630Width=140
     1631Height=376
     1632MaxLeft=-1
     1633MaxTop=-1
     1634ClientWidth=140
     1635ClientHeight=376
     1636TBDockHeight=305
     1637LRDockWidth=140
     1638Dockable=1
     1639
     1640[MessageView@EditWindow0]
     1641Create=1
     1642Visible=1
     1643State=0
     1644Left=0
     1645Top=0
     1646Width=688
     1647Height=225
     1648MaxLeft=-1
     1649MaxTop=-1
     1650ClientWidth=688
     1651ClientHeight=225
     1652TBDockHeight=215
     1653LRDockWidth=443
     1654Dockable=1
     1655
    3971656[DockHosts]
    3981657DockHostCount=2
    … …  
    4011660DockSiteType=1
    4021661Create=1
    403 Visible=0
    404 State=0
    405 Left=412
    406 Top=16
    407 Width=313
    408 Height=507
    409 MaxLeft=-1
    410 MaxTop=-1
    411 ClientWidth=305
    412 ClientHeight=481
     1662Visible=1
     1663State=0
     1664Left=9
     1665Top=123
     1666Width=262
     1667Height=583
     1668MaxLeft=-1
     1669MaxTop=-1
     1670ClientWidth=254
     1671ClientHeight=557
    4131672TBDockHeight=356
    4141673LRDockWidth=140
    … …  
    4211680DockSiteType=1
    4221681Create=1
    423 Visible=0
    424 State=0
    425 Left=23
    426 Top=533
    427 Width=993
    428 Height=221
    429 MaxLeft=-1
    430 MaxTop=-1
    431 ClientWidth=985
    432 ClientHeight=195
    433 TBDockHeight=195
     1682Visible=1
     1683State=0
     1684Left=12
     1685Top=0
     1686Width=696
     1687Height=254
     1688MaxLeft=-1
     1689MaxTop=-1
     1690ClientWidth=696
     1691ClientHeight=254
     1692TBDockHeight=254
    4341693LRDockWidth=283
    4351694Dockable=1
    4361695TabPosition=0
    437 ActiveTab=Watch List
    438 TabDockClients=WatchWindow,DebugLogView
    439 
     1696ActiveTab=Messages
     1697TabDockClients=MessageView@EditWindow0,WatchWindow
     1698

  • cprs/branches/tmg-cprs/CPRS-Chart/CPRSChart_TLB.pas

    r735 r793  
    1313
    1414// PASTLWTR : 1.2
    15 // File generated on 3/31/2010 9:12:36 PM from Type Library described below.
     15// File generated on 6/9/2010 4:33:51 PM from Type Library described below.
    1616
    1717// ************************************************************************  //

  • cprs/branches/tmg-cprs/CPRS-Chart/Consults/fConsult513Prt.dfm

    r453 r793  
    11object frm513Print: Tfrm513Print
    2   Left = 116
    3   Top = 375
     2  Left = 359
     3  Top = 239
    44  AutoScroll = False
    55  Caption = 'Print SF 513'
    … …  
    166166    Top = 26
    167167  end
    168   object DKLanguageController1: TDKLanguageController
    169     Left = 200
    170     Top = 272
    171     LangData = {
    172       0B0066726D3531335072696E74010100000001000000070043617074696F6E01
    173       0F0000000A006C626C5072696E74546F00000F006C626C436F6E73756C745469
    174       746C6501010000000200000005004C696E6573000D0067727043686F6F736543
    175       6F7079010100000003000000070043617074696F6E000C007261644368617274
    176       436F7079010100000004000000070043617074696F6E000B00726164576F726B
    177       436F7079010100000005000000070043617074696F6E00090067727044657669
    178       6365010100000006000000070043617074696F6E0009006C626C4D617267696E
    179       010100000007000000070043617074696F6E0009006C626C4C656E6774680101
    180       00000008000000070043617074696F6E000E0074787452696768744D61726769
    181       6E00000D00747874506167654C656E6774680000090063626F44657669636501
    182       0100000009000000070043617074696F6E000500636D644F4B01010000000A00
    183       0000070043617074696F6E000900636D6443616E63656C01010000000B000000
    184       070043617074696F6E000A0063686B44656661756C7401010000000C00000007
    185       0043617074696F6E000D00646C6757696E5072696E7465720000}
    186   end
    187168end

  • cprs/branches/tmg-cprs/CPRS-Chart/Consults/fConsult513Prt.pas

    r541 r793  
    2525    dlgWinPrinter: TPrintDialog;
    2626    chkDefault: TCheckBox;
    27     DKLanguageController1: TDKLanguageController;
    2827    procedure cboDeviceNeedData(Sender: TObject; const StartFrom: String;
    2928      Direction, InsertAt: Integer);

  • cprs/branches/tmg-cprs/CPRS-Chart/Consults/fConsults.dfm

    r453 r793  
    11inherited frmConsults: TfrmConsults
    2   Left = 247
    3   Top = 174
     2  Left = 227
     3  Top = 172
    44  Width = 723
    55  Height = 467

  • cprs/branches/tmg-cprs/CPRS-Chart/Consults/fCsltNote.dfm

    r453 r793  
    11object frmCsltNote: TfrmCsltNote
    2   Left = 147
    3   Top = 206
     2  Left = 88
     3  Top = 511
    44  BorderStyle = bsDialog
    55  Caption = 'Select Progress Note'
    … …  
    7979  end
    8080  object DKLanguageController1: TDKLanguageController
    81     Left = 328
     81    Left = 336
    8282    Top = 160
    8383    LangData = {

  • cprs/branches/tmg-cprs/CPRS-Chart/Consults/fCsltNote.pas

    r453 r793  
    1414    lblAction: TLabel;
    1515    pnlBase: TORAutoPanel;
     16    DKLanguageController1: TDKLanguageController;
    1617    procedure cmdOKClick(Sender: TObject);
    1718    procedure cmdCancelClick(Sender: TObject);

  • cprs/branches/tmg-cprs/CPRS-Chart/Encounter/fPCEBaseGrid.dfm

    r729 r793  
    11inherited frmPCEBaseGrid: TfrmPCEBaseGrid
    22  Left = 200
    3   Top = 302
     3  Top = 300
    44  Caption = 'frmPCEBaseGrid'
    55  PixelsPerInch = 96

  • cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsNewList.dfm

    r453 r793  
    11object frmOptionsNewList: TfrmOptionsNewList
    2   Left = 863
     2  Left = 841
    33  Top = 101
    44  HelpContext = 9085

  • cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsReminders.dfm

    r453 r793  
    11object frmOptionsReminders: TfrmOptionsReminders
    2   Left = 693
     2  Left = 609
    33  Top = 17
    44  HelpContext = 9020

  • cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsReportsCustom.dfm

    r453 r793  
    11object frmOptionsReportsCustom: TfrmOptionsReportsCustom
    22  Left = 414
    3   Top = 329
     3  Top = 317
    44  BorderIcons = [biSystemMenu, biHelp]
    55  BorderStyle = bsDialog

  • cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsReportsDefault.dfm

    r453 r793  
    11object frmOptionsReportsDefault: TfrmOptionsReportsDefault
    2   Left = 773
     2  Left = 632
    33  Top = 334
    44  BorderIcons = [biSystemMenu, biHelp]

  • cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsTeams.dfm

    r453 r793  
    11object frmOptionsTeams: TfrmOptionsTeams
    2   Left = 730
     2  Left = 632
    33  Top = 96
    44  HelpContext = 9090

  • cprs/branches/tmg-cprs/CPRS-Chart/Orders/fODDiet.dfm

    r453 r793  
    11inherited frmODDiet: TfrmODDiet
    2   Left = 541
     2  Left = 492
    33  Top = 398
    44  Width = 532

  • cprs/branches/tmg-cprs/CPRS-Chart/Orders/fODMedIV.dfm

    r453 r793  
    11inherited frmODMedIV: TfrmODMedIV
    2   Left = 587
     2  Left = 414
    33  Top = 331
    44  Width = 610
    … …  
    162162    TabOrder = 10
    163163  end
    164   inherited cmdAccept: TButton
    165     Left = 495
    166     Top = 255
    167     TabOrder = 8
    168   end
    169   object pnlXDuration: TPanel [15]
     164  object pnlXDuration: TPanel [14]
    170165    Left = 229
    171166    Top = 210
    … …  
    209204    end
    210205  end
    211   object pnlCombo: TPanel [16]
     206  object pnlCombo: TPanel [15]
    212207    Left = 8
    213208    Top = 1
    … …  
    288283    end
    289284  end
     285  inherited cmdAccept: TButton
     286    Left = 495
     287    Top = 255
     288    TabOrder = 8
     289  end
    290290  inherited cmdQuit: TButton
    291291    Left = 495

  • cprs/branches/tmg-cprs/CPRS-Chart/Orders/fODMedIV.~dfm

    r453 r793  
    167167    TabOrder = 8
    168168  end
    169   inherited cmdQuit: TButton
    170     Left = 495
    171     Top = 282
    172     TabOrder = 9
    173   end
    174   object pnlXDuration: TPanel [16]
     169  object pnlXDuration: TPanel [15]
    175170    Left = 229
    176171    Top = 210
    … …  
    214209    end
    215210  end
    216   object pnlCombo: TPanel [17]
     211  object pnlCombo: TPanel [16]
    217212    Left = 8
    218213    Top = 1
    … …  
    293288    end
    294289  end
     290  inherited cmdQuit: TButton
     291    Left = 495
     292    Top = 282
     293    TabOrder = 9
     294  end
    295295  inherited pnlMessage: TPanel
    296296    Top = 237

  • cprs/branches/tmg-cprs/CPRS-Chart/Orders/fODMeds.dfm

    r453 r793  
    11inherited frmODMeds: TfrmODMeds
    2   Left = 519
     2  Left = 440
    33  Top = 204
    44  Width = 584

  • cprs/branches/tmg-cprs/CPRS-Chart/Orders/fODVitals.dfm

    r453 r793  
    11inherited frmODVitals: TfrmODVitals
    2   Left = 721
     2  Left = 496
    33  Top = 363
    44  Caption = 'Vital Measurement Order'
    … …  
    4949    Caption = 'Additional Instructions'
    5050  end
    51   object cboMeasurement: TORComboBox [9]
     51  object cboMeasurement: TORComboBox [8]
    5252    Left = 6
    5353    Top = 21
    … …  
    7373    CharsNeedMatch = 1
    7474  end
    75   object cboSchedule: TORComboBox [10]
     75  object cboSchedule: TORComboBox [9]
    7676    Left = 144
    7777    Top = 21
    … …  
    9797    CharsNeedMatch = 1
    9898  end
    99   object calStart: TORDateBox [11]
     99  object calStart: TORDateBox [10]
    100100    Left = 282
    101101    Top = 21
    … …  
    109109    Caption = 'Start Date'
    110110  end
    111   object calStop: TORDateBox [12]
     111  object calStop: TORDateBox [11]
    112112    Left = 282
    113113    Top = 64
    … …  
    120120    Caption = 'Stop Date'
    121121  end
    122   object grpCallHO: TGroupBox [13]
     122  object grpCallHO: TGroupBox [12]
    123123    Left = 407
    124124    Top = 9
    … …  
    268268    end
    269269  end
    270   object chkCallHO: TCheckBox [14]
     270  object chkCallHO: TCheckBox [13]
    271271    Left = 414
    272272    Top = 8

  • cprs/branches/tmg-cprs/CPRS-Chart/Orders/fOMNavA.dfm

    r453 r793  
    11object frmOMNavA: TfrmOMNavA
    22  Left = 265
    3   Top = 445
     3  Top = 429
    44  Width = 491
    55  Height = 305

  • cprs/branches/tmg-cprs/CPRS-Chart/Orders/fOMProgress.dfm

    r453 r793  
    11inherited frmOMProgress: TfrmOMProgress
    22  Left = 221
    3   Top = 542
     3  Top = 519
    44  Width = 167
    55  Height = 215

  • cprs/branches/tmg-cprs/CPRS-Chart/Orders/fOrders.dfm

    r453 r793  
    11inherited frmOrders: TfrmOrders
    2   Left = 261
     2  Left = 250
    33  Top = 155
    44  Width = 774

  • cprs/branches/tmg-cprs/CPRS-Chart/Orders/fOrdersRenew.dfm

    r453 r793  
    11inherited frmRenewOrders: TfrmRenewOrders
    2   Left = 434
     2  Left = 424
    33  Top = 232
    44  HorzScrollBar.Tracking = True

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/EditTextU.pas

    r541 r793  
    101101    cmd := 'GET ONE WP FIELD^' + FileNum + '^' + FieldNum + '^' + IENS;
    102102    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    103     RPCBrokerV.Call;
     103    //RPCBrokerV.Call;
     104    CallBroker;
    104105    RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    105106    if piece(RPCResult,'^',1)='-1' then begin
    … …  
    131132    RPCBrokerV.param[0].ptype := list;
    132133    cmd := 'POST WP FIELD^' + FileNum + '^' + FieldNum + '^' + IENS;
    133     RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd; 
     134    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    134135    for i := 0 to Lines.Count-1 do begin
    135       RPCBrokerV.Param[0].Mult['"' + IntToStr(i+1) + '"'] := Lines.Strings[i]; 
     136      RPCBrokerV.Param[0].Mult['"' + IntToStr(i+1) + '"'] := Lines.Strings[i];
    136137    end;
    137     RPCBrokerV.Call;
     138    //RPCBrokerV.Call;
     139    CallBroker;
    138140    RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    139141    if piece(RPCResult,'^',1)='-1' then begin

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/FMErrorU.dfm

    r541 r793  
    11object FMErrorForm: TFMErrorForm
    2   Left = 1217
    3   Top = 320
     2  Left = 247
     3  Top = 195
    44  Width = 482
    55  Height = 417

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit/TMGHTML2.pas

    r698 r793  
    122122      function  MoveCaretToEnd : boolean;
    123123      function  MoveCaretToPos(ScreenPos: TPoint) : HRESULT;  //kt added
     124      procedure InsertHTMLAtCaret(HTMLText : AnsiString); //kt 4/21/10
    124125      procedure InsertTextAtCaret(Text : AnsiString); //Note: Text is NOT HTMLtext
    125126      property  HTMLText:string read GetHTMLText write SetHTMLText;
    … …  
    691692end;
    692693
     694procedure THtmlObj.InsertHTMLAtCaret(HTMLText : AnsiString);
     695var
     696   Range: IHTMLTxtRange;
     697begin
     698   Range:= GetTextRange;
     699   Range.pasteHTML(HTMLText);
     700end;
     701
    693702procedure THtmlObj.InsertTextAtCaret(Text : AnsiString);
    694703//kt added.  Note: inserts external format (not HTML markup)
    … …  
    754763procedure THtmlObj.SubMessageHandler(var Msg: TMessage);
    755764//Called from parent's EDMessageHandler, or from GlobalMsgHandler
     765
     766const
     767  FontSizes : array [0..6] of byte = (8,10,12,14,18,24,36);
     768
    756769var  i : Integer;
    757770     WinControl : TWinControl;
     771     TextSize : integer;
    758772
    759773begin
    … …  
    820834                                      Msg.Result := 1; //Handled
    821835                                    end;
     836                  $31..$38 :      begin
     837                                    if CtrlToBeProcessed = true then begin
     838                                      TextSize := Msg.WParam-$31;
     839                                      if (TextSize >= 0) and (TextSize <=6 ) then begin                                       
     840                                        SetFontSize(FontSizes[TextSize]);
     841                                        CtrlToBeProcessed := False;
     842                                      end; 
     843                                    end;
     844                                  end;     
    822845                       {             
    823846                       VK_RETURN :  if CtrlReturnToBeProcessed then begin
    … …  
    854877                                     Msg.Result := 1; //Handled
    855878                                   end; 
     879                       Ord('Q') :  if CtrlToBeProcessed then begin
     880                                     //kt if not FEditable then exit;
     881                                     Outdent;
     882                                     Msg.Result := 1; //Handled
     883                                     exit;
     884                                   end; 
     885                       Ord('W') :  if CtrlToBeProcessed then begin
     886                                     //kt if not FEditable then exit;
     887                                     Indent;
     888                                     Msg.Result := 1; //Handled
     889                                     exit;
     890                                   end; 
     891                       Ord('D') :  if CtrlToBeProcessed then begin
     892                                     //kt if not FEditable then exit;
     893                                     FontDialog;
     894                                     Msg.Result := 1; //Handled
     895                                     exit;
     896                                   end;
     897                                   { 
     898                       Ord('.') :  if CtrlToBeProcessed then begin
     899                                     //kt if not FEditable then exit;
     900                                     ToggleBullet;
     901                                     Msg.Result := 1; //Handled
     902                                     exit;
     903                                   end; 
     904                       Ord('N') :  if CtrlToBeProcessed then begin
     905                                     //kt if not FEditable then exit;
     906                                     ToggleNumbering;
     907                                     Msg.Result := 1; //Handled
     908                                     exit;
     909                                   end; 
     910                       Ord(';') :  if CtrlToBeProcessed then begin
     911                                     //kt if not FEditable then exit;
     912                                     TextForeColorDialog;
     913                                     Msg.Result := 1; //Handled
     914                                     exit;
     915                                   end; 
     916                       Ord('''') :  if CtrlToBeProcessed then begin
     917                                     //kt if not FEditable then exit;
     918                                     TextBackColorDialog;
     919                                     Msg.Result := 1; //Handled
     920                                     exit;
     921                                   end; 
     922                                    }             
    856923                     end; {case}
    857924                   end;

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit/TMGHTML2.~pas

    r698 r793  
    6060      FEditable:               boolean;       
    6161      ColorDialog:             TColorDialog;       
    62       AllowNextBlur :          boolean;     
    63       procedure SetMsgActive (Active : boolean);
     62      AllowNextBlur :          boolean;
    6463      function  GetHTMLText:string;
    6564      procedure SetHTMLText(HTML:String);
    … …  
    9190    public
    9291      {end public}
    93       PopupMenu:     TPopupMenu;     
     92      PopupMenu:     TPopupMenu;
    9493      KeyStruck : boolean; // A VERY crude determiner as to if Modified.
    9594      NextControl : TWinControl;
    9695      PrevControl : TWinControl;
    97       constructor Create(Owner:TControl; Application : TApplication);
     96      procedure SetMsgActive (Active : boolean);
     97      constructor Create(Owner:TControl; Application : TApplication);
    9898      destructor Destroy; override;
    99       procedure Clear;       
     99      procedure Clear;
    100100      procedure ToggleBullet;
    101101      procedure ToggleItalic;
    … …  
    122122      function  MoveCaretToEnd : boolean;
    123123      function  MoveCaretToPos(ScreenPos: TPoint) : HRESULT;  //kt added
     124      procedure InsertHTMLAtCaret(HTMLText : AnsiString); //kt 4/21/10
    124125      procedure InsertTextAtCaret(Text : AnsiString); //Note: Text is NOT HTMLtext
    125126      property  HTMLText:string read GetHTMLText write SetHTMLText;
    … …  
    689690  Result := FCaret.MoveCaretToPointer(FTMGDisplayPointer,Integer(True),CARET_DIRECTION_INDETERMINATE);
    690691  FCaret.Show(Integer(True));
     692end;
     693
     694procedure THtmlObj.InsertHTMLAtCaret(HTMLText : AnsiString);
     695var
     696   Range: IHTMLTxtRange;
     697begin
     698   Range:= Self.GetTextRange;
     699   Range.pasteHTML(HTMLText);
    691700end;
    692701

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/LookupU.dfm

    r541 r793  
    11object FieldLookupForm: TFieldLookupForm
    2   Left = 1376
    3   Top = 349
     2  Left = 451
     3  Top = 232
    44  Width = 302
    55  Height = 169

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/LookupU.pas

    r541 r793  
    111111    cmd := cmd + '^' + FileNum + '^' + StartFrom + '^' + IntToStr(Direction);
    112112    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    113     RPCBrokerV.Call;
     113    //RPCBrokerV.Call;
     114    CallBroker;
    114115    RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    115116    if piece(RPCResult,'^',1)='-1' then begin

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/PostU.pas

    r541 r793  
    106106      RPCBrokerV.Param[0].Mult[IntToStr(i)] := FChanges.Strings[i];
    107107    end;
    108     RPCBrokerV.Call;
     108    //RPCBrokerV.Call;
     109    CallBroker;
    109110    RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    110111    if piece(RPCResult,'^',1)='1' then begin

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/SubfilesU.pas

    r541 r793  
    203203    cmd := 'GET SUB RECS LIST' + '^' + SubFileNum + '^' + ParentIENS;
    204204    RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    205     RPCBrokerV.Call;
     205    //RPCBrokerV.Call;
     206    CallBroker;
    206207    RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    207208    if piece(RPCResult,'^',1)='-1' then begin

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtAdd.pas

    r453 r793  
    479479    //CheckPost('PtType',PtType);
    480480
    481     RPCBrokerV.Call;
     481    //RPCBrokerV.Call;
     482    CallBroker;
    482483    tempS := RPCBrokerV.Results.Strings[0];
    483484    tempResult := strtoint(piece(tempS,'^',1));

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtDemoEdit.pas

    r541 r793  
    592592  RPCBrokerV.remoteprocedure := 'TMG GET PATIENT DEMOGRAPHICS';
    593593  RPCBrokerV.param[0].value := Patient.DFN;   RPCBrokerV.param[0].ptype := literal;
    594   RPCBrokerV.Call;
    595  
     594  //RPCBrokerV.Call;
     595  CallBroker;
     596
    596597  with FServerPatientInfo do begin
    597598    //Store results in a hash table for easier random access
    … …  
    743744    end;
    744745
    745     RPCBrokerV.Call;
     746    //RPCBrokerV.Call;
     747    CallBroker;
    746748    if RPCBrokerV.Results.Strings[0]<>'1' then begin
    747749      MessageDlg(RPCBrokerV.Results.Strings[0],mtError,[mbOK],0);
    … …  
    14631465      cmd := 'GET ONE RECORD^2^' + IENS;
    14641466      RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    1465       RPCBrokerV.Call;
     1467      //RPCBrokerV.Call;
     1468      CallBroker;
    14661469      RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    14671470      //Results[1]='FileNum^IENS^FieldNum^ExtValue^FieldName^DDInfo...
    … …  
    16421645    RPCBrokerV.param[0].ptype := list;
    16431646    RPCBrokerV.Param[0].Mult['"REQUEST"'] := 'IS WP FIELD^' + FileNum + '^' + FieldNum;
    1644     RPCBrokerV.Call;
     1647    //RPCBrokerV.Call;
     1648    CallBroker;
    16451649    RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    16461650    if piece(RPCResult,'^',1)='-1' then begin
    … …  
    18331837      cmd := 'GET ONE RECORD^' + FileNum + '^' + IENS;
    18341838      RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
    1835       RPCBrokerV.Call;
     1839      //RPCBrokerV.Call;
     1840      CallBroker;
    18361841      RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
    18371842      if piece(RPCResult,'^',1)='-1' then begin

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fWebTab.pas

    r453 r793  
    6868    RPCBrokerV.Param[1].Value := 'R';
    6969    RPCBrokerV.Param[1].ptype := literal;
    70     RPCResult := RPCBrokerV.StrCall;   {returns 1 if available, 0 if not available}
     70    //RPCResult := RPCBrokerV.StrCall;   {returns 1 if available, 0 if not available}
     71    CallBroker;
     72    if RPCBrokerV.Results.Count > 0 then begin
     73      RPCResult := RPCBrokerV.Results.Strings[0];
     74    end else begin
     75      RPCResult := '';
     76    end;
    7177    TMG_URL_RPC_Checked := true;
    7278    TMG_URL_RPC_Available := (RPCResult='1');
    … …  
    7682    if (URLList <> nil) then begin
    7783      RPCBrokerV.remoteprocedure := 'TMG CPRS GET URL LIST';
    78       RPCBrokerV.Call;
     84      //RPCBrokerV.Call;
     85      CallBroker;
    7986      URLList.Assign(RPCBrokerV.Results);
    8087      if RPCBrokerV.Results.Count>0 then Result := RPCBrokerV.Results.Strings[0]

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/frmImageTransferProgress.dfm

    r729 r793  
    11object ImageTransferForm: TImageTransferForm
    2   Left = 348
    3   Top = 212
     2  Left = 341
     3  Top = 256
    44  BorderStyle = bsToolWindow
    55  Caption = 'Image Transfer Progress'
    6   ClientHeight = 86
    7   ClientWidth = 276
     6  ClientHeight = 108
     7  ClientWidth = 265
    88  Color = clBtnFace
    99  Font.Charset = DEFAULT_CHARSET
    … …  
    277277    TabOrder = 0
    278278  end
     279  object btnCancel: TButton
     280    Left = 80
     281    Top = 80
     282    Width = 75
     283    Height = 25
     284    Caption = '&Cancel'
     285    TabOrder = 1
     286    Visible = False
     287  end
    279288  object DKLanguageController1: TDKLanguageController
    280289    Left = 176
    … …  
    282291    LangData = {
    283292      1100496D6167655472616E73666572466F726D01010000000100000007004361
    284       7074696F6E010400000006004C6162656C310101000000020000000700436170
     293      7074696F6E010500000006004C6162656C310101000000020000000700436170
    285294      74696F6E000600496D6167653100000B0050726F67726573734D736701010000
    286       0003000000070043617074696F6E000B0050726F67726573734261720000}
     295      0003000000070043617074696F6E000B0050726F677265737342617200000900
     296      62746E43616E63656C010100000004000000070043617074696F6E00}
    287297  end
    288298end

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/frmImageTransferProgress.pas

    r729 r793  
    1616    ProgressMsg: TLabel;
    1717    DKLanguageController1: TDKLanguageController;
     18    btnCancel: TButton;
    1819  private
    1920    { Private declarations }

  • cprs/branches/tmg-cprs/CPRS-Chart/UploadImages.dfm

    r729 r793  
    11object UploadForm: TUploadForm
    2   Left = 170
    3   Top = 169
    4   Width = 776
    5   Height = 493
     2  Left = 22
     3  Top = 110
     4  Width = 810
     5  Height = 494
    66  Caption = 'Upload Images to Server'
    77  Color = clBtnFace
    … …  
    1212  Font.Style = []
    1313  OldCreateOrder = False
    14   Position = poDesktopCenter
     14  Position = poScreenCenter
    1515  OnCreate = FormCreate
    1616  OnDestroy = FormDestroy
    … …  
    1818  OnShow = FormShow
    1919  DesignSize = (
    20     768
    21     459)
     20    802
     21    460)
    2222  PixelsPerInch = 96
    2323  TextHeight = 13
    … …  
    14621462    Left = 480
    14631463    Top = 16
    1464     Width = 281
    1465     Height = 433
     1464    Width = 486
     1465    Height = 434
    14661466    Anchors = [akLeft, akTop, akRight, akBottom]
    14671467    BevelOuter = bvLowered
    … …  
    14701470      Left = 1
    14711471      Top = 1
    1472       Width = 279
    1473       Height = 431
     1472      Width = 484
     1473      Height = 432
    14741474      Align = alClient
    14751475      TabOrder = 0
    14761476      ControlData = {
    1477         4C000000D61C00008C2C00000000000000000000000000000000000000000000
     1477        4C00000006320000A62C00000000000000000000000000000000000000000000
    14781478        000000004C000000000000000000000001000000E0D057007335CF11AE690800
    14791479        2B2E126208000000000000004C0000000114020000000000C000000000000046

  • cprs/branches/tmg-cprs/CPRS-Chart/UploadImages.pas

    r738 r793  
    5757      destructor Destroy;  override;
    5858  end;
    59 
    60 
    61 
    62 
    6359
    6460type
    … …  
    10399    Bitmap : TBitmap;
    104100    Picture : TPicture;
     101    FUploadedImagesList : TStringList; //List of strings of images succesfully uploaded.
    105102    function MakeThumbNail(Info: TImageInfo): boolean;
    106103
    … …  
    126123  published
    127124    property ScanDir : String read FScanDir write SetScanDir;
     125    property UploadedImages : TStringList read FUploadedImagesList;
    128126  end;
    129127
    … …  
    143141        ORNet, //for RPCBrokerV
    144142        rTIU,
     143        rHTMLTools,
    145144        uTMGOptions
    146145        ;
    … …  
    281280      RPCBrokerV.param[5].value := DOB;       RPCBrokerV.Param[5].ptype := literal;
    282281      RPCBrokerV.param[6].value := Sex;       RPCBrokerV.Param[6].ptype := literal;
    283       RPCBrokerV.Call;
     282      //RPCBrokerV.Call;
     283      CallBroker;
    284284      RPCResult := RPCBrokerV.Results[0]; //returns: success: DFN;  or  error: -1^ErrMsg
    285285      if piece(RPCResult,'^',1) <> '-1' then begin
    … …  
    321321    RPCBrokerV.ClearParameters := true;
    322322    RPCBrokerV.remoteprocedure := 'TMG GET BLANK TIU DOCUMENT';
    323     RPCBrokerV.param[0].value := DFN;       RPCBrokerV.param[0].ptype := literal;
     323    RPCBrokerV.param[0].value := '`'+DFN;   RPCBrokerV.param[0].ptype := literal;
    324324    RPCBrokerV.param[1].value := Provider;  RPCBrokerV.Param[1].ptype := literal;
    325325    RPCBrokerV.param[2].value := Location;  RPCBrokerV.Param[2].ptype := literal;
    326326    RPCBrokerV.param[3].value := DOS;       RPCBrokerV.Param[3].ptype := literal;
    327327    RPCBrokerV.param[4].value := Title;     RPCBrokerV.Param[4].ptype := literal;
    328     RPCBrokerV.Call;
     328    //RPCBrokerV.Call;
     329    CallBroker;
    329330    RPCResult := RPCBrokerV.Results[0];
    330331    try
    … …  
    436437    ErrorMsg                     : AnsiString;
    437438    i                            : integer;
     439    CacheFPathName, tempFName    : string;
    438440
    439441  begin
    … …  
    464466    RPCBrokerV.Param[0].Mult['"FileExt"'] := 'EXT^' + Info.Extension;
    465467
    466     for i := 0 to Info.pLongDesc.Count - 1 do begin
    467       index := IntToStr(i);
    468       while length(index) < 3 do index := '0' + index;
    469       index :='"LongDescr' + index + '"';
    470       RPCBrokerV.Param[0].Mult[index] := '11^' + Info.pLongDesc.Strings[i];
    471     end;
    472 
    473     RPCResult := RPCBrokerV.STRcall;   { returns ImageIEN^directory/filename }
     468    if assigned(Info.pLongDesc) then begin
     469      for i := 0 to Info.pLongDesc.Count - 1 do begin
     470        index := IntToStr(i);
     471        while length(index) < 3 do index := '0' + index;
     472        index :='"LongDescr' + index + '"';
     473        RPCBrokerV.Param[0].Mult[index] := '11^' + Info.pLongDesc.Strings[i];
     474      end;
     475    end;
     476
     477    //RPCResult := RPCBrokerV.STRcall;   { returns ImageIEN^directory/filename }
     478    CallBroker;
     479    if RPCBrokerV.Results.Count>0 then RPCResult := RPCBrokerV.Results.Strings[0];
    474480
    475481    ImageIEN := Piece(RPCResult,'^',1);
    476482    result := ((ImageIEN <> '0') and (ImageIEN <> ''));  // function result.
    477483    if result=false then begin
    478 //    ErrorMsg :='Server Error -- Couldn''t store image information';  <-- original line.  //kt 8/7/2007
    479484      ErrorMsg :=DKLangConstW('UploadImages_Server_Error_xx_Couldnxxt_store_image_information'); //kt added 8/7/2007
    480485      MessageDlg(ErrorMsg,mtWarning,[mbOK],0);
    … …  
    485490      result := frmImages.UploadFile(Info.ImageFPathName,Info.ServerPath,Info.ServerFName,1,1);
    486491      if result=false then begin
    487 //      ErrorMsg :='Error uploading image to server';  <-- original line.  //kt 8/7/2007
    488492        ErrorMsg :=DKLangConstW('UploadImages_Error_uploading_image_to_server'); //kt added 8/7/2007
    489         //Application.MessageBox(@ErrorMsg,'Error Uploading Image');
    490493        MessageDlg(ErrorMsg,mtWarning,[mbCancel],0);
    491494      end;
    492       //Later, put code that also copies the file into the cache directory,
    493       //so that we don't have to turn around and download it again.
    494495      if result then begin
    495496        RPCBrokerV.remoteprocedure := 'MAG3 TIU IMAGE';
    … …  
    498499        RPCBrokerV.Param[1].ptype := literal;
    499500        RPCBrokerV.param[1].value := IntToStr(Info.TIUIEN);
    500         RPCBrokerV.Call;
     501        //RPCBrokerV.Call;
     502        CallBroker;
    501503        RPCResult := RPCBrokerV.Results[0];
    502504        //returns:  success:  1^message;  or  error:  0^error message
    … …  
    504506        result := (MsgNum = '1');
    505507        if result=false then begin
    506 //        ErrorMsg :='Error associating image with note:' + #13 + Piece(RPCResult,'^',2);  <-- original line.  //kt 8/7/2007
    507508          ErrorMsg :=DKLangConstW('UploadImages_Error_associating_image_with_notex') + #13 + Piece(RPCResult,'^',2); //kt added 8/7/2007
    508509          MessageDlg(ErrorMsg,mtWarning,[mbCancel],0);
    509510        end;
    510511      end;
    511       if (result=true) and (MoveCheckBox.Checked) then begin
     512      if (result=false) then exit;
     513      //Copy the file into the cache directory, so that we don't have to turn around and download it again.
     514      CacheFPathName := rHTMLTools.CPRSDir + '\cache\' + ExtractFileName (Info.ServerFName);
     515      if not FileExists(CacheFPathName) then begin
     516        tempFName := Info.ImageFPathName;
     517        CopyFile(PChar(tempFName),PChar(CacheFPathName),FALSE);
     518      end;
     519      if (MoveCheckBox.Checked) then begin
    512520        DeleteFile(Info.ImageFPathName);
    513521      end;
    514       if result then begin
    515         if MakeThumbNail(Info) then begin;
    516           result := frmImages.UploadFile(Info.ThumbFPathName,Info.ServerPath,Info.ServerThumbFName,1,1);
    517           if result=false then begin
    518 //          ErrorMsg :='Error sending thumbnail image to server.';  <-- original line.  //kt 8/7/2007
    519             ErrorMsg :=DKLangConstW('UploadImages_Error_sending_thumbnail_image_to_serverx'); //kt added 8/7/2007
    520             MessageDlg(ErrorMsg,mtWarning,[mbOK],0);
    521           end;
     522      if MakeThumbNail(Info) then begin;
     523        result := frmImages.UploadFile(Info.ThumbFPathName,Info.ServerPath,Info.ServerThumbFName,1,1);
     524        if result=false then begin
     525          ErrorMsg :=DKLangConstW('UploadImages_Error_sending_thumbnail_image_to_serverx'); //kt added 8/7/2007
     526          MessageDlg(ErrorMsg,mtWarning,[mbOK],0);
     527        end;
     528        CacheFPathName := rHTMLTools.CPRSDir + '\cache\' + ExtractFileName (Info.ServerFName);
     529        if not FileExists(CacheFPathName) then begin
     530          CopyFile(PChar(Info.ImageFPathName),PChar(CacheFPathName),FALSE);
    522531        end;
    523532        if DelOrig=true then begin
    … …  
    559568      Info.Extension := MidStr(Info.Extension,2,17); //remove '.'
    560569
    561       if not UploadFile(Info,MoveCheckBox.Checked) then begin   //Upload function passes back filename info in Info class
     570      if UploadFile(Info,MoveCheckBox.Checked) then begin   //Upload function passes back filename info in Info class
     571        FUploadedImagesList.Add(Info.ServerFName);
     572      end else begin
    562573        //Application.MessageBox('Error uploading image file!','Error');
    563574      end;
    564 
    565575    end;
    566576    Info.Free;
    … …  
    616626    end;
    617627    UploadChosenFiles();
     628    //note This UploadButton has .ModalResult = mrOK, so form is closed after this.
    618629  end;
    619630
    … …  
    642653    FormRefresh(self);
    643654    FilesToUploadList.Items.Clear;
     655    FUploadedImagesList.Clear;
    644656    LoadNotesEdit();
    645657    SetupVars;
    … …  
    666678    Bitmap.Width := 64;
    667679    Picture := TPicture.Create;
     680
     681    FUploadedImagesList := TStringList.Create;
    668682
    669683    AutoUploadNote := TAutoUploadNote.Create;
    … …  
    692706    Bitmap.Free;
    693707    Picture.Free;
     708    FUploadedImagesList.Free;
    694709  end;
    695710
    … …  
    822837      Text.Add('</html>');
    823838      Text.Add(' ');
    824       rTIU.SetText(ErrMsg,Text,UploadNote.TIUIEN,1); //1=commit data, do actual save.
     839      rTIU.SetText(ErrMsg,Text,UploadNote.TIUIEN,0);  //elh changed from 1 to 0 //1=commit data, do actual save.
    825840      Text.Free;
    826841      //Here I autosign  -- later make this optional?
    827842      RPCBrokerV.ClearParameters := true;
    828843      RPCBrokerV.remoteprocedure := 'TMG AUTOSIGN TIU DOCUMENT';
    829       RPCBrokerV.param[0].value := IntToStr(UploadNote.TIUIEN); 
     844      RPCBrokerV.param[0].value := IntToStr(UploadNote.TIUIEN);
    830845      RPCBrokerV.param[0].ptype := literal;
    831       RPCBrokerV.Call;
    832       RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
     846      //RPCBrokerV.Call;
     847      CallBroker;
     848      if RPCBrokerV.Results.Count > 0 then begin
     849        RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
     850      end else begin
     851        RPCResult := '-1';
     852      end;
    833853      if RPCResult='-1' then begin
    834854        MessageDlg('Unable to set status for scanned document to SIGNED',mtError,[mbOK],0);
    835       end;     
     855      end;
    836856      UploadNote.TIUIEN := 0;
    837857    end; 

  • cprs/branches/tmg-cprs/CPRS-Chart/Vitals/mVitAll.dfm

    r453 r793  
    88    Left = 120
    99    Top = 4
     10    Width = 161
     11    Height = 40
     12    TabOrder = 0
     13    inherited DKLanguageController1: TDKLanguageController
     14      LangData = {
     15        0D006672615669744D657472696331000101000000080072674D657472696301
     16        0200000001000000070043617074696F6E0200000005004974656D7300}
     17    end
    1018  end
    1119  inline fraVitTemp1: TfraVitTemp
    1220    Left = 142
    1321    Top = 72
     22    Width = 299
     23    Height = 21
    1424    TabOrder = 1
     25    inherited DKLanguageController1: TDKLanguageController
     26      LangData = {
     27        0B0066726156697454656D70310001070000000C006C626C566974616C547970
     28        65010100000001000000070043617074696F6E00080062746E5175616C730101
     29        00000002000000070043617074696F6E0004006C626C46010100000003000000
     30        070043617074696F6E0004006C626C4301010000000400000007004361707469
     31        6F6E00080065647454656D704600000600756454656D70000008006564745465
     32        6D70430000}
     33    end
    1534  end
    1635  inline fraVitPulse1: TfraVitPulse
    1736    Left = 201
    1837    Top = 104
     38    Width = 240
     39    Height = 21
    1940    TabOrder = 2
     41    inherited DKLanguageController1: TDKLanguageController
     42      LangData = {
     43        0C0066726156697450756C7365310001040000000C006C626C566974616C5479
     44        7065010100000001000000070043617074696F6E00080062746E5175616C7301
     45        0100000002000000070043617074696F6E00080065647450756C736500000700
     46        5570446F776E310000}
     47    end
    2048  end
    2149  inline fraVitResp1: TfraVitResp
    2250    Left = 203
    2351    Top = 136
     52    Width = 238
     53    Height = 21
    2454    TabOrder = 3
     55    inherited DKLanguageController1: TDKLanguageController
     56      LangData = {
     57        0B0066726156697452657370310001040000000C006C626C566974616C547970
     58        65010100000001000000070043617074696F6E00080062746E5175616C730101
     59        00000002000000070043617074696F6E0007005570446F776E31000007006564
     60        74526573700000}
     61    end
    2562  end
    2663  inline fraVitPB1: TfraVitPB
    2764    Left = 153
    2865    Top = 168
     66    Width = 288
     67    Height = 21
    2968    TabOrder = 4
     69    inherited DKLanguageController1: TDKLanguageController
     70      LangData = {
     71        09006672615669745042310001070000000C006C626C566974616C5479706501
     72        0100000001000000070043617074696F6E00080062746E5175616C7301010000
     73        0002000000070043617074696F6E0008006C626C536C61736800000A00756453
     74        7973746F6C696300000B00656474537973746F6C696300000B00756444696173
     75        746F6C696300000C0065647444696173746F6C69630000}
     76    end
    3077  end
    3178  inline fraVitHeight1: TfraVitHeight
    3279    Left = 128
    3380    Top = 200
     81    Width = 313
     82    Height = 21
    3483    TabOrder = 5
     84    inherited DKLanguageController1: TDKLanguageController
     85      LangData = {
     86        0D00667261566974486569676874310001070000000C006C626C566974616C54
     87        797065010100000001000000070043617074696F6E00080062746E5175616C73
     88        010100000002000000070043617074696F6E0005006C626C496E010100000003
     89        000000070043617074696F6E0006004C6162656C310101000000040000000700
     90        43617074696F6E0007006564744874496E000008007564486569676874000007
     91        006564744874436D0000}
     92    end
    3593  end
    3694  inline fraVitWeight1: TfraVitWeight
    3795    Left = 122
    3896    Top = 232
     97    Width = 319
     98    Height = 21
    3999    TabOrder = 6
     100    inherited DKLanguageController1: TDKLanguageController
     101      LangData = {
     102        0D00667261566974576569676874310001070000000C006C626C566974616C54
     103        797065010100000001000000070043617074696F6E00080062746E5175616C73
     104        010100000002000000070043617074696F6E0006006C626C4C62730101000000
     105        03000000070043617074696F6E0006004C6162656C3101010000000400000007
     106        0043617074696F6E00080065647457744C627300000800756457656967687400
     107        00070065647457744B670000}
     108    end
    40109  end
    41110  inline fraVitPain1: TfraVitPain
    42111    Left = 153
    43112    Top = 264
     113    Width = 288
     114    Height = 21
    44115    TabOrder = 7
     116    inherited DKLanguageController1: TDKLanguageController
     117      LangData = {
     118        0B006672615669745061696E310001030000000C006C626C566974616C547970
     119        65010100000001000000070043617074696F6E00080062746E5175616C730101
     120        00000002000000070043617074696F6E0007006362785061696E0000}
     121    end
    45122  end
    46123  inline fraVitPO21: TfraVitPO2
    47124    Left = 191
    48125    Top = 296
     126    Width = 250
     127    Height = 21
    49128    TabOrder = 8
     129    inherited DKLanguageController1: TDKLanguageController
     130      LangData = {
     131        0A00667261566974504F32310001050000000C006C626C566974616C54797065
     132        010100000001000000070043617074696F6E00080062746E5175616C73010100
     133        000002000000070043617074696F6E000A006C626C50657263656E7400000700
     134        5570446F776E3100000600656474504F320000}
     135    end
    50136  end
    51137  inline fraVitCVP1: TfraVitCVP
    52138    Left = 27
    53139    Top = 328
     140    Width = 414
     141    Height = 21
    54142    TabOrder = 10
     143    inherited DKLanguageController1: TDKLanguageController
     144      LangData = {
     145        0A00667261566974435650310001080000000C006C626C566974616C54797065
     146        010100000001000000070043617074696F6E00080062746E5175616C73010100
     147        000002000000070043617074696F6E0005006C626C4D6D010100000003000000
     148        070043617074696F6E0005006C626C436D010100000004000000070043617074
     149        696F6E000800656474435650636D000007005570446F776E3100000800656474
     150        4356506D6D000007006362636D48324F01010000000500000007004361707469
     151        6F6E00}
     152    end
    55153  end
    56154  inline fraVitCircum1: TfraVitCircum
    57155    Left = 144
    58156    Top = 360
     157    Width = 297
     158    Height = 21
    59159    TabOrder = 9
     160    inherited DKLanguageController1: TDKLanguageController
     161      LangData = {
     162        0D0066726156697443697263756D310001070000000C006C626C566974616C54
     163        797065010100000001000000070043617074696F6E00080062746E5175616C73
     164        010100000002000000070043617074696F6E0005006C626C496E010100000003
     165        000000070043617074696F6E0005006C626C436D010100000004000000070043
     166        617074696F6E000800656474436972496E000005007564436972000008006564
     167        74436972436D0000}
     168    end
    60169  end
    61170end

  • cprs/branches/tmg-cprs/CPRS-Chart/dShared.dfm

    r453 r793  
    33  OnCreate = dmodSharedCreate
    44  OnDestroy = dmodSharedDestroy
    5   Left = 285
     5  Left = 283
    66  Top = 161
    77  Height = 479

  • cprs/branches/tmg-cprs/CPRS-Chart/fAllgyFind.dfm

    r453 r793  
    11inherited frmAllgyFind: TfrmAllgyFind
    22  Left = 408
    3   Top = 234
     3  Top = 228
    44  BorderIcons = []
    55  BorderStyle = bsDialog

  • cprs/branches/tmg-cprs/CPRS-Chart/fCover.dfm

    r453 r793  
    11inherited frmCover: TfrmCover
    2   Left = 272
    3   Top = 201
     2  Left = 1152
     3  Top = 229
    44  HelpContext = 1000
    55  BorderIcons = []

  • cprs/branches/tmg-cprs/CPRS-Chart/fDrawers.dfm

    r654 r793  
    11object frmDrawers: TfrmDrawers
    22  Left = 624
    3   Top = 346
     3  Top = 335
    44  BorderStyle = bsNone
    55  Caption = 'frmDrawers'

  • cprs/branches/tmg-cprs/CPRS-Chart/fFrame.dfm

    r738 r793  
    11object frmFrame: TfrmFrame
    2   Left = 69
    3   Top = 199
     2  Left = 183
     3  Top = 197
    44  Width = 684
    55  Height = 487

  • cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas

    r735 r793  
    49734973    RPCBrokerV.Param[1].Value := 'R';
    49744974    RPCBrokerV.Param[1].ptype := literal;
    4975     RPCResult := RPCBrokerV.StrCall;   {returns 1 if available, 0 if not available}
    4976     if strtoint(RPCResult) = 1 then begin
    4977        boolTMGPatchInstalled := True;
     4975    ///RPCResult := RPCBrokerV.StrCall;   {returns 1 if available, 0 if not available}
     4976    CallBroker;
     4977    if RPCBrokerV.Results.Count>0 then begin
     4978      RPCResult := RPCBrokerV.Results.Strings[0];
     4979      boolTMGPatchInstalled := (StrToInt(RPCResult) = 1);
    49784980    end else begin
    4979        boolTMGPatchInstalled := False;
     4981      boolTMGPatchInstalled := False;
    49804982    end;
    49814983  end;

  • cprs/branches/tmg-cprs/CPRS-Chart/fGraphProfiles.dfm

    r453 r793  
    11object frmGraphProfiles: TfrmGraphProfiles
    2   Left = 721
    3   Top = 528
     2  Left = 539
     3  Top = 321
    44  BorderIcons = [biSystemMenu, biHelp]
    55  BorderStyle = bsDialog

  • cprs/branches/tmg-cprs/CPRS-Chart/fGraphs.dfm

    r453 r793  
    11object frmGraphs: TfrmGraphs
    2   Left = 430
     2  Left = 424
    33  Top = 148
    44  BorderIcons = []

  • cprs/branches/tmg-cprs/CPRS-Chart/fImages.dfm

    r738 r793  
    11inherited frmImages: TfrmImages
    2   Left = 228
    3   Top = 119
    4   Width = 781
    5   Height = 565
     2  Left = 118
     3  Top = 35
     4  Width = 848
     5  Height = 666
    66  HelpContext = 5000
    77  Caption = 'Images Page'
    … …  
    1414  TextHeight = 13
    1515  inherited shpPageBottom: TShape
    16     Top = 506
    17     Width = 773
     16    Top = 607
     17    Width = 840
    1818  end
    1919  object HorizSplitter: TSplitter [1]
    2020    Left = 0
    2121    Top = 77
    22     Width = 773
     22    Width = 840
    2323    Height = 3
    2424    Cursor = crVSplit
    … …  
    2929    Left = 0
    3030    Top = 0
    31     Width = 773
     31    Width = 840
    3232    Height = 77
    3333    Align = alTop
    … …  
    3535    TabOrder = 0
    3636    object ButtonPanel: TPanel
    37       Left = 600
     37      Left = 667
    3838      Top = 0
    3939      Width = 173
    … …  
    279279      Left = 0
    280280      Top = 0
    281       Width = 600
     281      Width = 667
    282282      Height = 77
    283283      Align = alClient
    … …  
    304304        Left = 241
    305305        Top = 0
    306         Width = 359
     306        Width = 426
    307307        Height = 77
    308308        Align = alClient
    … …  
    322322    Left = 0
    323323    Top = 80
    324     Width = 773
    325     Height = 426
     324    Width = 840
     325    Height = 527
    326326    Align = alClient
    327327    BevelOuter = bvNone
    … …  
    331331      Top = 0
    332332      Width = 80
    333       Height = 426
     333      Height = 527
    334334      Align = alLeft
    335335      Images = ThumbsImageList
    … …  
    347347      Left = 80
    348348      Top = 0
    349       Width = 693
    350       Height = 426
     349      Width = 760
     350      Height = 527
    351351      Align = alClient
    352352      TabOrder = 1
    353353      ControlData = {
    354         4C000000A0470000072C00000000000000000000000000000000000000000000
     354        4C0000008C4E0000783600000000000000000000000000000000000000000000
    355355        000000004C000000000000000000000001000000E0D057007335CF11AE690800
    356356        2B2E126208000000000000004C0000000114020000000000C000000000000046

  • cprs/branches/tmg-cprs/CPRS-Chart/fImages.pas

    r738 r793  
    126126    function CreateBarcode(MsgStr: AnsiString; ImageType: AnsiString): AnsiString;
    127127    function DecodeBarcode(LocalFNamePath,ImageType: AnsiString): AnsiString;
     128    procedure EnsureImagesDownloaded(ImagesList : TStringList);
    128129  published
    129130  end;
    … …  
    152153
    153154procedure TfrmImages.timLoadImagesTimer(Sender: TObject);
     155//This function's goal is to download images in the background,
     156// with one image to be downloaded each time the timer fires
    154157begin
    155158  inherited;
    … …  
    185188
    186189
     190procedure TfrmImages.EnsureImagesDownloaded(ImagesList : TStringList);
     191//This function's goal is to download images in the FOREground,
     192// But only images matching those passed in ImagesList will be downloaded;
     193// The intent is to only download images that have links to them in HTML source
     194//Thus, if note has a large amount of images attached to it, but not referenced
     195//  in HTML code, then they will not be downloaded here. (But will be downloaded
     196//  later via timLoadImagesTimer
     197var i : integer;
     198    Rec : TImageInfo;
     199
     200begin
     201  if ImagesList.Count = 0 then exit;
     202  GetImageList();
     203  if ImageInfoList.Count = 0 then exit;
     204  if ImageInfoList.Count > 1 then begin
     205    ImageTransferForm.ProgressMsg.Caption := 'Downloading Images';
     206    ImageTransferForm.ProgressBar.Min := 0;
     207    ImageTransferForm.ProgressBar.Position := 0;
     208    ImageTransferForm.ProgressBar.Max := ImageInfoList.Count-1;
     209    ImageTransferForm.Show;
     210  end;
     211  for i := 0 to ImageInfoList.Count-1 do begin
     212    ImageTransferForm.ProgressBar.Position := i;
     213    Rec := TImageInfo(ImageInfoList[i]);
     214    if ImagesList.IndexOf(Rec.ServerFName)>-1 then begin
     215      DownloadToCache(i);
     216    end;
     217  end;
     218  ImageTransferForm.Hide;
     219end;
     220
     221
    187222{ TPage common methods --------------------------------------------------------------------- }
    188223procedure TfrmImages.mnuChartTabClick(Sender: TObject);
    … …  
    211246  CurImageToLoad := 0;
    212247  CacheDir := ExtractFilePath(ParamStr(0))+ 'Cache';
    213   NullImageName := ExtractFilePath(ParamStr(0)) + 'images\blank.htm';
     248  //NullImageName := ExtractFilePath(ParamStr(0)) + 'images\blank.htm';
     249  NullImageName := 'about:blank';
    214250  if not DirectoryExists(CacheDir) then ForceDirectories(CacheDir);
    215251
    … …  
    563599  RPCBrokerV.Param[2].Value := '1'; //see comments in UploadFile re '1' hardcoding
    564600
    565   RPCBrokerV.Call;  //Move file into dropbox.
    566   Result := (Piece(RPCBrokerV.Results[0],'^',1)='1');  //1=success, 0=failure
     601  //RPCBrokerV.Call;  //Move file into dropbox.
     602  CallBroker;
     603  if RPCBrokerV.Results.Count>0 then begin
     604    Result := (Piece(RPCBrokerV.Results[0],'^',1)='1');  //1=success, 0=failure
     605  end else Result := false;
    567606end;
    568607
    … …  
    692731  RPCBrokerV.Param[2].Value := '1'; //see comments in UploadFile re '1' hardcoding
    693732
    694   RPCBrokerV.Call;  //Move file into dropbox.
     733  //RPCBrokerV.Call;  //Move file into dropbox.
     734  CallBroker;
    695735  if RPCBrokerV.Results.Count > 0 then begin
    696736    Result := (Piece(RPCBrokerV.Results[0],'^',1)='1');  //1=success, 0=failure
    … …  
    702742
    703743  if Result=true then begin
     744    if DirectoryExists(DropboxDir) = False then begin     //elh   added to ensure a dropbox directory is valid
     745      MessageDlg('Invalid Dropbox Directory. Please check your settings and try again.',mtError,[mbOK],0);
     746      ImageTransferForm.hide;
     747      exit;
     748    end;
    704749    CurrentFileSize := strtoint(Piece(RPCBrokerV.Results[0],'^',3));  //Piece 3 = file size
    705750    DropboxFile := ExcludeTrailingBackslash(DropboxDir) + '\' + FName;
    … …  
    10801125  RPCBrokerV.Param[1].PType := list;
    10811126  RPCBrokerV.Param[1].Mult['"IMAGE TYPE"'] := ImageType;
    1082   RPCBrokerV.Call;
     1127  //RPCBrokerV.Call;
     1128  CallBroker;
    10831129
    10841130  Application.ProcessMessages;

  • cprs/branches/tmg-cprs/CPRS-Chart/fMeds.dfm

    r453 r793  
    11inherited frmMeds: TfrmMeds
    2   Left = 158
    3   Top = 50
     2  Left = 244
     3  Top = 46
    44  Width = 709
    55  Height = 686
    … …  
    188188            ImageIndex = -1
    189189            MinWidth = 20
    190             Text = 'Non-VA Medications'
     190            Text = 'Outside Medications'
    191191            Width = 100
    192192          end

  • cprs/branches/tmg-cprs/CPRS-Chart/fMeds.pas

    r453 r793  
    593593  ChildODList := TStringList.Create;
    594594
    595 
    596 
    597595  //DETECT 1st TIME USER.
    598596  //If first time user (medSplitFound=false), then manually set panel heights.

  • cprs/branches/tmg-cprs/CPRS-Chart/fNoteProps.dfm

    r453 r793  
    11object frmNoteProperties: TfrmNoteProperties
    22  Left = 470
    3   Top = 115
     3  Top = 24
    44  AutoScroll = False
    55  BorderIcons = []

  • cprs/branches/tmg-cprs/CPRS-Chart/fNotes.dfm

    r698 r793  
    11inherited frmNotes: TfrmNotes
    2   Left = 276
    3   Top = 277
    4   Width = 687
    5   Height = 409
     2  Left = 341
     3  Top = 478
     4  Width = 341
     5  Height = 256
    66  HelpContext = 5000
    77  Caption = 'Progress Notes Page'
    … …  
    1616  TextHeight = 13
    1717  inherited shpPageBottom: TShape
    18     Top = 350
    19     Width = 679
     18    Top = 197
     19    Width = 333
    2020  end
    2121  inherited sptHorz: TSplitter
    2222    Left = 64
    23     Height = 350
     23    Height = 197
    2424    OnCanResize = sptHorzCanResize
    2525  end
    2626  inherited pnlLeft: TPanel
    2727    Width = 64
    28     Height = 350
     28    Height = 197
    2929    object lblNotes: TOROffsetLabel
    3030      Left = 0
    … …  
    4343    object lblSpace1: TLabel
    4444      Left = 0
    45       Top = 305
     45      Top = 152
    4646      Width = 64
    4747      Height = 3
    … …  
    5252    object cmdNewNote: TORAlignButton
    5353      Left = 0
    54       Top = 308
     54      Top = 155
    5555      Width = 64
    5656      Height = 21
    … …  
    6464    object cmdPCE: TORAlignButton
    6565      Left = 0
    66       Top = 329
     66      Top = 176
    6767      Width = 64
    6868      Height = 21
    … …  
    7979      Top = 19
    8080      Width = 64
    81       Height = 286
     81      Height = 133
    8282      Align = alClient
    8383      BevelOuter = bvNone
    … …  
    8585      object splDrawers: TSplitter
    8686        Left = 0
    87         Top = 283
     87        Top = 130
    8888        Width = 64
    8989        Height = 3
    … …  
    115115        Top = 0
    116116        Width = 64
    117         Height = 283
     117        Height = 130
    118118        Align = alClient
    119119        Constraints.MinWidth = 30
    … …  
    142142  inherited pnlRight: TPanel
    143143    Left = 68
    144     Width = 611
    145     Height = 350
     144    Width = 265
     145    Height = 197
    146146    object sptVert: TSplitter
    147147      Left = 0
    148       Top = 301
    149       Width = 611
     148      Top = 148
     149      Width = 265
    150150      Height = 4
    151151      Cursor = crVSplit
    … …  
    154154    object memPCEShow: TRichEdit
    155155      Left = 0
    156       Top = 305
    157       Width = 611
     156      Top = 152
     157      Width = 265
    158158      Height = 45
    159159      Align = alBottom
    … …  
    170170      Left = 0
    171171      Top = 0
    172       Width = 611
    173       Height = 301
     172      Width = 265
     173      Height = 148
    174174      Align = alClient
    175175      BevelOuter = bvNone
    … …  
    180180        Left = 0
    181181        Top = 0
    182         Width = 611
     182        Width = 265
    183183        Height = 67
    184184        Align = alTop
    … …  
    187187        OnResize = pnlFieldsResize
    188188        DesignSize = (
    189           611
     189          265
    190190          67)
    191191        object bvlNewTitle: TBevel
    … …  
    209209        end
    210210        object lblAuthor: TStaticText
    211           Left = 393
     211          Left = 47
    212212          Top = 6
    213213          Width = 152
    … …  
    232232        end
    233233        object lblCosigner: TStaticText
    234           Left = 298
     234          Left = -48
    235235          Top = 21
    236236          Width = 243
    … …  
    275275        end
    276276        object cmdChange: TButton
    277           Left = 547
     277          Left = 201
    278278          Top = 6
    279279          Width = 58
    … …  
    288288          Left = 48
    289289          Top = 40
    290           Width = 557
     290          Width = 211
    291291          Height = 21
    292292          Hint = 'Subject is limited to a maximum of 80 characters.'
    … …  
    303303        Left = 0
    304304        Top = 67
    305         Width = 611
    306         Height = 234
     305        Width = 265
     306        Height = 81
    307307        Align = alClient
    308308        BevelOuter = bvNone
    … …  
    312312          Left = 0
    313313          Top = 0
    314           Width = 611
    315           Height = 234
     314          Width = 265
     315          Height = 81
    316316          Align = alClient
    317317          Font.Charset = DEFAULT_CHARSET
    … …  
    335335        Left = 0
    336336        Top = 67
    337         Width = 611
    338         Height = 234
     337        Width = 265
     338        Height = 81
    339339        Align = alClient
    340340        BevelOuter = bvNone
    … …  
    345345          Left = 0
    346346          Top = 25
    347           Width = 611
    348           Height = 209
     347          Width = 265
     348          Height = 56
    349349          Align = alClient
    350350          BevelOuter = bvNone
    … …  
    354354          Left = 0
    355355          Top = 0
    356           Width = 611
     356          Width = 265
    357357          Height = 25
    358358          AutoSize = True
    … …  
    370370            ShowHint = True
    371371            TabOrder = 0
    372             Text = '<Pick A Font>'
    373372            OnClick = cbFontNamesChange
    374373          end
    … …  
    790789            OnClick = btnBackColorClick
    791790          end
     791          object btnImage: TSpeedButton
     792            Left = 519
     793            Top = 2
     794            Width = 23
     795            Height = 21
     796            Hint = 'Add Image'
     797            Glyph.Data = {
     798              F6000000424DF600000000000000760000002800000010000000100000000100
     799              0400000000008000000000000000000000001000000000000000000000000000
     800              8000008000000080800080000000800080008080000080808000C0C0C0000000
     801              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
     802              FFFFFFFFFFFFFFFFFFFFFFF7000000000FFFFFF7CCCCCCCC0FFFFFF7CCCCCCCC
     803              0FFFFFF7CCCCCC220FFFFFF7EFEF22220FFFFFF7FEFEFE220FFFFFF7E88FEFEF
     804              0FFFFFF78FB8FEFE0FFFFFF78BF8EFEF0FFFFFF7F88EFEFE0FFFFFF7EFEFEFEF
     805              0FFFFFF7777777777FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
     806            ParentShowHint = False
     807            ShowHint = True
     808            OnClick = btnImageClick
     809          end
    792810        end
    793811      end
    … …  
    796814      Left = 0
    797815      Top = 0
    798       Width = 611
    799       Height = 301
     816      Width = 265
     817      Height = 148
    800818      Align = alClient
    801819      BevelOuter = bvNone
    … …  
    805823        Left = 0
    806824        Top = 0
    807         Width = 611
     825        Width = 265
    808826        Height = 19
    809827        Align = alTop
    … …  
    817835        Left = 0
    818836        Top = 113
    819         Width = 611
     837        Width = 265
    820838        Height = 3
    821839        Cursor = crVSplit
    … …  
    825843        Left = 0
    826844        Top = 116
    827         Width = 611
    828         Height = 185
     845        Width = 265
     846        Height = 32
    829847        TabStop = False
    830848        Align = alClient
    831849        TabOrder = 2
    832850        ControlData = {
    833           4C000000263F00001F1300000000000000000000000000000000000000000000
     851          4C000000631B00004F0300000000000000000000000000000000000000000000
    834852          000000004C000000000000000000000001000000E0D057007335CF11AE690800
    835853          2B2E126208000000000000004C0000000114020000000000C000000000000046
    … …  
    840858        Left = 0
    841859        Top = 116
    842         Width = 611
    843         Height = 185
     860        Width = 265
     861        Height = 32
    844862        Align = alClient
    845863        Color = clCream
    … …  
    867885        Left = 0
    868886        Top = 19
    869         Width = 611
     887        Width = 265
    870888        Height = 94
    871889        Align = alTop
    … …  
    916934        Left = 0
    917935        Top = 116
    918         Width = 611
    919         Height = 185
     936        Width = 265
     937        Height = 32
    920938        Align = alClient
    921939        BevelOuter = bvNone
    … …  
    14301448    LangData = {
    14311449      080066726D4E6F746573010200000001000000070043617074696F6E02000000
    1432       080048656C7046696C6501A20000000D0073687050616765426F74746F6D0000
     1450      080048656C7046696C6501A30000000D0073687050616765426F74746F6D0000
    14331451      0700737074486F727A00000700706E6C4C65667400000800706E6C5269676874
    14341452      000008006C626C4E6F746573010100000003000000070043617074696F6E0009
    … …  
    15731591      6E6C48544D4C577269746500000B00706E6C48544D4C4564697400000700546F
    15741592      6F6C42617201010000008F000000070043617074696F6E000B006362466F6E74
    1575       4E616D6573010100000090000000040054657874000A006362466F6E7453697A
    1576       6501020000009200000005004974656D73910000000400546578740008006274
    1577       6E466F6E7473010100000093000000040048696E7400090062746E4974616C69
    1578       63010100000094000000040048696E7400070062746E426F6C64010100000095
    1579       000000040048696E74000C0062746E556E6465726C696E650101000000960000
    1580       00040048696E74000A0062746E42756C6C657473010100000097000000040048
    1581       696E74000A0062746E4E756D62657273010100000098000000040048696E7400
    1582       0C0062746E4C656674416C69676E010100000099000000040048696E74000E00
    1583       62746E43656E746572416C69676E01010000009A000000040048696E74000D00
    1584       62746E5269676874416C69676E01010000009B000000040048696E74000D0062
    1585       746E4D6F7265496E64656E7401010000009C000000040048696E74000D006274
    1586       6E4C657373496E64656E7401010000009D000000040048696E74000C0062746E
    1587       54657874436F6C6F7201010000009E000000040048696E74000C0062746E4261
    1588       636B436F6C6F7201010000009F000000040048696E7400}
     1593      4E616D657300000A006362466F6E7453697A6501020000009200000005004974
     1594      656D739100000004005465787400080062746E466F6E74730101000000930000
     1595      00040048696E7400090062746E4974616C696301010000009400000004004869
     1596      6E7400070062746E426F6C64010100000095000000040048696E74000C006274
     1597      6E556E6465726C696E65010100000096000000040048696E74000A0062746E42
     1598      756C6C657473010100000097000000040048696E74000A0062746E4E756D6265
     1599      7273010100000098000000040048696E74000C0062746E4C656674416C69676E
     1600      010100000099000000040048696E74000E0062746E43656E746572416C69676E
     1601      01010000009A000000040048696E74000D0062746E5269676874416C69676E01
     1602      010000009B000000040048696E74000D0062746E4D6F7265496E64656E740101
     1603      0000009C000000040048696E74000D0062746E4C657373496E64656E74010100
     1604      00009D000000040048696E74000C0062746E54657874436F6C6F720101000000
     1605      9E000000040048696E74000C0062746E4261636B436F6C6F7201010000009F00
     1606      0000040048696E7400080062746E496D6167650101000000A000000004004869
     1607      6E7400}
    15891608  end
    15901609end

  • cprs/branches/tmg-cprs/CPRS-Chart/fNotes.pas

    r729 r793  
    180180    btnTextColor: TSpeedButton;            //kt 8/09
    181181    btnBackColor: TSpeedButton;            //kt 8/09
     182    btnImage: TSpeedButton;                //kt 4/10
    182183    procedure mnuChartTabClick(Sender: TObject);
    183184    procedure lstNotesClick(Sender: TObject);
    … …  
    287288    procedure cbFontNamesChange(Sender: TObject);    //kt 8/09
    288289    procedure cbFontSizeChange(Sender: TObject);     //kt 8/09
     290    procedure btnImageClick(Sender: TObject);        //kt 4/10
    289291    procedure popNoteMemoHTMLFormatClick(Sender: TObject); //kt 8/09
    290292  private
    … …  
    399401     //fImages, {//kt added 9-20-05}
    400402     fOptionsNotes, //kt 8/09
    401      rHTMLTools, fImages;  {//kt added 5-27-05 for IsHTMLDocument}
     403     rHTMLTools, fImages, UploadImages;  {//kt added 5-27-05 for IsHTMLDocument}
    402404
    403405const
    … …  
    15411543  if (vmHTML in FViewMode) then begin                             //kt 8/09
    15421544    SplitToArray(WrapHTML(HtmlEditor.HTMLText), FEditNote.Lines); //kt 8/09
     1545    rHTMLTools.InsertSubs(FEditNote.Lines);                       //kt 4/21/10
    15431546  end else begin                                                  //kt 8/09
    15441547    FEditNote.Lines.Assign(memNewNote.Lines);                     //kt 8/09
    … …  
    46354638end;
    46364639
     4640procedure TfrmNotes.btnImageClick(Sender: TObject);
     4641//kt added function
     4642var
     4643   i, AddResult: integer;
     4644   oneImage: string;
     4645begin
     4646   inherited;
     4647   AddResult := UploadForm.ShowModal;
     4648   if IsAbortResult(AddResult) then exit;
     4649   for i := 0 to UploadForm.UploadedImages.Count-1 do begin
     4650     oneImage := '<img src="'+CPRSDir+'\Cache\' + UploadForm.UploadedImages.Strings[i] + '" ' +
     4651                  ALT_IMG_TAG_CONVERT + ' >';
     4652     HTMLEditor.InsertHTMLAtCaret(oneImage+#13#10);
     4653   end;
     4654end;
     4655
    46374656procedure TfrmNotes.btnCenterAlignClick(Sender: TObject);
    46384657//kt added function

  • cprs/branches/tmg-cprs/CPRS-Chart/fProbEdt.dfm

    r453 r793  
    11object frmdlgProb: TfrmdlgProb
    2   Left = 293
    3   Top = 264
     2  Left = 386
     3  Top = 102
    44  Width = 504
    55  Height = 385

  • cprs/branches/tmg-cprs/CPRS-Chart/fProbs.dfm

    r453 r793  
    11inherited frmProblems: TfrmProblems
    2   Left = 408
    3   Top = 154
     2  Left = 269
     3  Top = 172
    44  Width = 639
    55  Height = 409

  • cprs/branches/tmg-cprs/CPRS-Chart/fPtSel.dfm

    r657 r793  
    11object frmPtSel: TfrmPtSel
    2   Left = 206
    3   Top = 260
    4   Width = 793
    5   Height = 587
     2  Left = 108
     3  Top = 100
     4  Width = 797
     5  Height = 622
    66  BorderIcons = []
    77  Caption = 'Patient Selection'
    … …  
    2424    Left = 0
    2525    Top = 290
    26     Width = 785
     26    Width = 789
    2727    Height = 4
    2828    Cursor = crVSplit
    … …  
    3232    Left = 0
    3333    Top = 294
    34     Width = 785
     34    Width = 789
    3535    Height = 17
    3636    Align = alTop
    … …  
    6767    Left = 0
    6868    Top = 0
    69     Width = 785
     69    Width = 789
    7070    Height = 290
    7171    Align = alTop
    … …  
    7373    TabOrder = 3
    7474    OnResize = pnlPtSelResize
     75    DesignSize = (
     76      789
     77      290)
    7578    object lblPatient: TLabel
    7679      Left = 185
    … …  
    117120    end
    118121    object cmdOK: TButton
    119       Left = 698
     122      Left = 702
    120123      Top = 22
    121124      Width = 78
    122125      Height = 19
     126      Anchors = [akTop, akRight]
    123127      Caption = 'OK'
    124128      TabOrder = 2
    … …  
    126130    end
    127131    object cmdCancel: TButton
    128       Left = 698
     132      Left = 702
    129133      Top = 43
    130134      Width = 78
    131135      Height = 19
     136      Anchors = [akTop, akRight]
    132137      Cancel = True
    133138      Caption = 'Cancel'
    … …  
    136141    end
    137142    object cmdSaveList: TButton
    138       Left = 499
     143      Left = 502
    139144      Top = 265
    140145      Width = 175
    141146      Height = 18
     147      Anchors = [akBottom]
    142148      Caption = 'Save Patient List Settings'
    143149      TabOrder = 0
    … …  
    145151    end
    146152    object RadioGroup1: TRadioGroup
    147       Left = 464
     153      Left = 468
    148154      Top = 192
    149155      Width = 313
    150156      Height = 65
     157      Anchors = [akRight, akBottom]
    151158      Caption = 'Specific "In-Depth" Lookup by '
    152159      ItemIndex = 0
    … …  
    158165    end
    159166    object TMGcmdAdd: TButton
    160       Left = 584
     167      Left = 588
    161168      Top = 22
    162169      Width = 75
    163170      Height = 20
     171      Anchors = [akTop, akRight]
    164172      Caption = 'Add Patient'
    165173      TabOrder = 5
    166174      OnClick = TMGcmdAddClick
    167175    end
     176    object btnSearchPt: TBitBtn
     177      Left = 468
     178      Top = 22
     179      Width = 25
     180      Height = 20
     181      Hint = 'Advanced Search'
     182      Anchors = [akTop, akRight]
     183      ParentShowHint = False
     184      ShowHint = False
     185      TabOrder = 6
     186      OnClick = btnSearchPtClick
     187      Glyph.Data = {
     188        36030000424D3603000000000000360000002800000010000000100000000100
     189        1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
     190        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBF
     191        BF7F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     192        FFFFFFFFFFFFFFFFFFFFFFBFBFBF6060607070707F7F7FFFFFFFFFFFFFFFFFFF
     193        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBF606060A0A0
     194        A0606060BFBFBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     195        FFFFFFFFFFBFBFBF606060A0A0A0606060BFBFBFFFFFFFFFFFFFFFFFFFFFFFFF
     196        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBF606060A0A0A0606060BFBF
     197        BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFFF7F7FFF7F7FFFBFBFBF
     198        BFBF606060A0A0A0606060BF7FBFFFBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     199        FF3F3FFF0000FF7F7FFF7F7FFF0000DF2020A0A0A0606060BFBFBFFFBFFFFFBF
     200        FFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFFF3F3FFFFFFFFFFFFFFFFFFFFFFFFFFF
     201        3F3F7F4040BFBFBFFFFFFFFF7FFFFF7FFFFFFFFFFFFFFFFFFFFFFFFFFFFF3F3F
     202        FFBFBFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFFF3F3FFFFFFFFFFFFFFF7FFFFF7F
     203        FFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFF7F7F7FBFBFBFFFFFFFFFFFFFFF
     204        FFFFFF0000FFFFFFFFFFFFFF7FFFFF3FFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
     205        BFBFBFBFBFBFBFBFBFBFBFBFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF3F
     206        FFFF3FFFFFFFFFFFFFFFFFFFFFFF7F7FFF7F7FBFBFBFBFBFBF7F7F7FFFFFFFFF
     207        7F7FFF7F7FFFFFFFFFFFFFFFFFFFFFFFFFFF3FFFFF7FFFFFFFFFFFFFFFFFFFFF
     208        FF0000FF7F7FBFBFBFFFFFFFFF7F7FFF0000FFFFFFFFBFFFFFBFFFFFFFFFFFFF
     209        FFFF3FFFFF7FFFFFFFFFFFFFFFFFFFFFFFBFBFFF3F3FFF0000FF0000FF3F3FFF
     210        BFBFFFFFFFFFBFFFFF00FFFF7FFFFF3FFFFF3FFFFFFFFFFFFFFFFFFFFFFFFFFF
     211        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFFFFF7FFFFF7F
     212        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     213        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
     214    end
    168215  end
    169216  object pnlNotifications: TORAutoPanel
    170217    Left = 0
    171     Top = 518
    172     Width = 785
     218    Top = 553
     219    Width = 789
    173220    Height = 35
    174221    Align = alBottom
    … …  
    228275    Left = 0
    229276    Top = 311
    230     Width = 785
    231     Height = 207
     277    Width = 789
     278    Height = 242
    232279    Align = alClient
    233280    Columns = <
    … …  
    308355    Top = 80
    309356    LangData = {
    310       080066726D507453656C010100000001000000070043617074696F6E01180000
     357      080066726D507453656C010100000001000000070043617074696F6E01190000
    311358      0007007370745665727400000900706E6C446976696465000010006C626C4E6F
    312359      74696669636174696F6E73010100000002000000070043617074696F6E000700
    … …  
    334381      617074696F6E000B00526164696F47726F75703101020000001B000000070043
    335382      617074696F6E1C00000005004974656D73000900544D47636D64416464010100
    336       00001D000000070043617074696F6E00}
     383      00001D000000070043617074696F6E000B0062746E5365617263685074010100
     384      00001E000000040048696E7400}
    337385  end
    338386end

  • cprs/branches/tmg-cprs/CPRS-Chart/fPtSel.pas

    r659 r793  
    1111  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    1212  StdCtrls, ORCtrls, ExtCtrls, ORFn, ORNet, ORDtTmRng, Gauges, Menus, ComCtrls,
    13   UBAGlobals, UBACore, DKLang;
     13  UBAGlobals, UBACore, DKLang, Buttons;
    1414
    1515type
    … …  
    4040    RadioGroup1: TRadioGroup;
    4141    TMGcmdAdd: TButton;
     42    btnSearchPt: TBitBtn;
    4243    procedure cmdOKClick(Sender: TObject);
    4344    procedure cmdCancelClick(Sender: TObject);
    … …  
    8081    procedure TMGcmdAddClick(Sender: TObject);
    8182    procedure FormCreate(Sender: TObject);
     83    procedure btnSearchPtClick(Sender: TObject);
    8284  private
    8385    FsortCol: integer;
    … …  
    9597    procedure AlertList;
    9698    procedure ReformatAlertDateTime;
     99    procedure OpenPatient(NewSelectedPtIEN : string; InfoStr : string); //kt 6/3/10
    97100  public
    98101    procedure Loaded; override;
    … …  
    114117
    115118uses rCore, uCore, fDupPts, fPtSens, fPtSelDemog, fPtSelOptns, fPatientFlagMulti,
    116      uOrPtf, fAlertForward, rMisc,  fFrame, fPtAdd;
     119     uOrPtf, fAlertForward, rMisc,  fFrame, fPtAdd, fPtQuery;
    117120
    118121const
    … …  
    467470procedure TfrmPtSel.cmdOKClick(Sender: TObject);
    468471{ Checks for restrictions on the selected patient and sets up the Patient object. }
     472var InfoStr : string;
     473begin
     474  if cboPatient.ItemIndex > -1 then begin
     475    InfoStr := cboPatient.Items[cboPatient.ItemIndex];
     476  end else begin
     477    InfoStr := '';
     478  end;
     479  with cboPatient do begin
     480    OpenPatient(ItemID, InfoStr);
     481  end;
     482
     483  (*
     484{ Checks for restrictions on the selected patient and sets up the Patient object. }
    469485const
    470486  DLG_CANCEL = False;
    … …  
    546562  else if Patient.Inpatient then // Everything else:
    547563  begin
     564    Encounter.Inpatient := True;
     565    Encounter.Location := Patient.Location;
     566    Encounter.DateTime := Patient.AdmitTime;
     567    Encounter.VisitCategory := 'H';
     568  end;
     569  if User.IsProvider then Encounter.Provider := User.DUZ;
     570
     571  GetBAStatus(Encounter.Provider,Patient.DFN);
     572  //HDS00005025
     573  if BILLING_AWARE then
     574    if Assigned(UBAGLOBALS.BAOrderList) then UBAGLOBALS.BAOrderList.Clear;
     575  FUserCancelled := FALSE;
     576  Close;
     577end;
     578
     579  *)
     580end;
     581
     582procedure TfrmPtSel.OpenPatient(NewSelectedPtIEN, InfoStr : string);
     583//kt This function used to be named cmdOKClick.  I split into separate functions
     584//   so that it can be called by AddNewPatient, and SearchForPatient functionality.
     585//   However, after splitting the function, I see that many info pieces are needed
     586//   from the cboPatient list, so substituting that is problematic.  It may be optional.
     587//   6/3/10
     588{ Checks for restrictions on the selected patient and sets up the Patient object. }
     589const
     590  DLG_CANCEL = False;
     591  DGSR_FAIL = -1;
     592  DGSR_NONE =  0;
     593  DGSR_SHOW =  1;
     594  DGSR_ASK  =  2;
     595  DGSR_DENY =  3;
     596var
     597  NewDFN, AMsg: string;  //*DFN*
     598  AccessStatus: Integer;
     599  DateDied: TFMDateTime;
     600begin
     601  if (NewSelectedPtIEN='') then begin  //*DFN*
     602    InfoBox('A patient has not been selected.', 'No Patient Selected', MB_OK);
     603    Exit;
     604  end;
     605  NewDFN := NewSelectedPtIEN;  //*DFN*
     606  if FLastPt <> NewDFN then begin
     607    HasActiveFlg(FlagList, HasFlag, NewDFN);
     608    flastpt := NewDFN;
     609  end;
     610
     611  If DupLastSSN(NewDFN) then begin   // Check for, deal with duplicate patient data.
     612    if (DupDFN = 'Cancel') then begin
     613      Exit
     614    end else begin
     615      NewDFN := DupDFN;
     616    end;
     617  end;
     618  CheckSensitiveRecordAccess(NewDFN, AccessStatus, AMsg);
     619  case AccessStatus of
     620    DGSR_FAIL: begin
     621                 InfoBox(TX_DGSR_ERR, TC_DGSR_ERR, MB_OK);
     622                 Exit;
     623               end;
     624    DGSR_NONE: { Nothing - allow access to the patient. };
     625//  DGSR_SHOW: InfoBox(AMsg, TC_DGSR_SHOW, MB_OK);
     626    DGSR_SHOW: InfoBox(DKLangConstW('ptSelWarning'), DKLangConstW('fPatSel_Restricted'), MB_OK);
     627    DGSR_ASK:  if InfoBox(AMsg + TX_DGSR_YESNO, TC_DGSR_SHOW, MB_YESNO or MB_ICONWARNING or
     628                 MB_DEFBUTTON2) = IDYES then LogSensitiveRecordAccess(NewDFN) else Exit;
     629    else       begin
     630                 InfoBox(AMsg, TC_DGSR_DENY, MB_OK);
     631                 Exit;
     632               end;
     633  end; {case}
     634  DateDied := DateOfDeath(NewDFN);
     635  if (DateDied > 0) then begin
     636    if InfoBox('This patient died ' +
     637                FormatFMDateTime('mmm dd,yyyy hh:nn', DateDied) + CRLF +
     638                'Do you wish to continue?', 'Deceased Patient',
     639                MB_YESNO or MB_DEFBUTTON2) = ID_NO then begin
     640      Exit;
     641    end;
     642  end;
     643  // 9/23/2002: Code used to check for changed pt. DFN here, but since same patient could be
     644  //    selected twice in diff. Encounter locations, check was removed and following code runs
     645  //    no matter; in fFrame code then updates Encounter display if Encounter.Location has changed.
     646  // NOTE: Some pieces in RPC returned arrays are modified/rearranged by ListPtByDflt call in rCore!
     647  Patient.DFN := NewDFN;     // The patient object in uCore must have been created already!
     648  Encounter.Clear;
     649  Changes.Clear;             // An earlier call to ReviewChanges should have cleared this.
     650  if (frmPtSelOptns.SrcType = TAG_SRC_CLIN) and (frmPtSelOptns.cboList.ItemIEN > 0)
     651  and IsFMDateTime(Piece(InfoStr, U, 4)) then begin// Clinics, not by default.
     652    Encounter.Location := frmPtSelOptns.cboList.ItemIEN;
     653    Encounter.DateTime := MakeFMDateTime(Piece(InfoStr, U, 4));
     654  end else if (frmPtSelOptns.SrcType = TAG_SRC_DFLT) and (DfltPtListSrc = 'C')
     655  and IsFMDateTime(Piece(InfoStr, U, 4))
     656  then begin // "Default" is a clinic.
     657    Encounter.Location := StrToIntDef(Piece(InfoStr, U, 10), 0); // Piece 10 is ^SC( location IEN in this case.
     658    Encounter.DateTime := MakeFMDateTime(Piece(InfoStr, U, 4));
     659  end else if ((frmPtSelOptns.SrcType = TAG_SRC_DFLT) and (FDfltSrc = 'Combination')
     660  and (copy(Piece(InfoStr, U, 3), 1, 2) = 'Cl'))
     661  and (IsFMDateTime(Piece(InfoStr, U, 8)))
     662  then begin// "Default" combination, clinic pt.
     663    Encounter.Location := StrToIntDef(Piece(InfoStr, U, 7), 0); // Piece 7 is ^SC( location IEN in this case.
     664    Encounter.DateTime := MakeFMDateTime(Piece(InfoStr, U, 8));
     665  end else if Patient.Inpatient then begin// Everything else:
    548666    Encounter.Inpatient := True;
    549667    Encounter.Location := Patient.Location;
    … …  
    12111329end;
    12121330
     1331procedure TfrmPtSel.btnSearchPtClick(Sender: TObject);
     1332var InfoStr : string;
     1333    IEN : int64;
     1334begin
     1335  frmPtQuery.InitializeForm('PATIENT', 2);
     1336  if frmPtQuery.ShowModal = mrOK then begin
     1337    cboPatient.InitLongList(frmPtQuery.SelectedName);
     1338    IEN := StrToInt64Def(frmPtQuery.SelectedIEN,0);
     1339    if IEN < 1 then exit;
     1340    cboPatient.SelectByIEN(IEN);
     1341    if cboPatient.ItemID = frmPtQuery.SelectedIEN then begin
     1342      InfoStr := cboPatient.Items[cboPatient.ItemIndex];
     1343    end else begin
     1344      InfoStr := '';
     1345    end;
     1346    OpenPatient(frmPtQuery.SelectedIEN, InfoStr);
     1347  end;
     1348end;
     1349
    12131350Initialization
    12141351  SortViaKeyboard := false;

  • cprs/branches/tmg-cprs/CPRS-Chart/fPtSelDemog.dfm

    r453 r793  
    5959      Left = 1
    6060      Top = 21
    61       Width = 29
     61      Width = 18
    6262      Height = 17
    63       Caption = 'SSN:'
     63      Caption = 'ID:'
    6464      TabOrder = 0
    6565    end
    6666    object lblPtSSN: TStaticText
    6767      Tag = 2
    68       Left = 31
     68      Left = 23
    6969      Top = 21
    7070      Width = 64

  • cprs/branches/tmg-cprs/CPRS-Chart/fReportsAdhocComponent1.dfm

    r453 r793  
    462462    Top = 6
    463463  end
    464   object DKLanguageController1: TDKLanguageController
    465     Left = 535
    466     Top = 17
    467     LangData = {
    468       190066726D5265706F7274734164686F63436F6D706F6E656E74310101000000
    469       01000000070043617074696F6E0125000000090053706C69747465723100000B
    470       004F52436F6D626F426F7831010100000002000000070043617074696F6E0006
    471       0050616E656C3200000D0062746E43616E63656C4D61696E0101000000030000
    472       00070043617074696F6E00090062746E4F4B4D61696E01010000000400000007
    473       0043617074696F6E00090047726F7570426F7831010100000005000000070043
    474       617074696F6E000A007262746E48656164657201010000000600000007004361
    475       7074696F6E000A007262746E4162627265760101000000070000000700436170
    476       74696F6E0008007262746E4E616D65010100000008000000070043617074696F
    477       6E00060050616E656C330000090053706C6974746572340000060050616E656C
    478       31010100000009000000070043617074696F6E000A004F524C697374426F7832
    479       01010000000A000000070043617074696F6E00060050616E656C360000120062
    480       746E52656D6F7665436F6D706F6E656E740000160062746E52656D6F7665416C
    481       6C436F6D706F6E656E747300000F0062746E416464436F6D706F6E656E740000
    482       060050616E656C3700000D006C626C4865616465724E616D6501010000000B00
    483       0000070043617074696F6E0011006C626C4F63637572616E63654C696D697401
    484       010000000C000000070043617074696F6E000C006C626C54696D654C696D6974
    485       01010000000D000000070043617074696F6E0008006C626C4974656D73010100
    486       00000E000000070043617074696F6E000A00706E6C35427574746F6E01010000
    487       000F000000070043617074696F6E000C005370656564427574746F6E3500000A
    488       00706E6C36427574746F6E010100000010000000070043617074696F6E000C00
    489       5370656564427574746F6E3600000D006564744865616465724E616D65010100
    490       000011000000070043617074696F6E0011006564744F63637572616E63654C69
    491       6D6974010100000012000000070043617074696F6E000C0063626F54696D654C
    492       696D6974010200000014000000070043617074696F6E1300000005004974656D
    493       73000A00677062446973706C6179000006006C626C4943440101000000150000
    494       00070043617074696F6E001300636B62486F73706974616C4C6F636174696F6E
    495       010100000016000000070043617074696F6E001400636B6250726F7669646572
    496       4E6172726174697665010100000017000000070043617074696F6E0006006362
    497       6F494344010200000019000000070043617074696F6E1800000005004974656D
    498       73000A004F524C697374426F783101010000001A000000070043617074696F6E
    499       000F0062746E456469745375626974656D7301010000001B0000000700436170
    500       74696F6E00060054696D6572310000}
    501   end
    502464end

  • cprs/branches/tmg-cprs/CPRS-Chart/fReportsAdhocComponent1.pas

    r453 r793  
    4848    rbtnAbbrev: TRadioButton;
    4949    rbtnName: TRadioButton;
    50     DKLanguageController1: TDKLanguageController;
    5150    procedure FormCreate(Sender: TObject);
    5251    procedure btnCancelMainClick(Sender: TObject);

  • cprs/branches/tmg-cprs/CPRS-Chart/fReview.dfm

    r729 r793  
    11object frmReview: TfrmReview
    2   Left = -681
    3   Top = 207
     2  Left = 152
     3  Top = 50
    44  AutoScroll = False
    55  BorderIcons = [biMaximize]

  • cprs/branches/tmg-cprs/CPRS-Chart/fSplash.dfm

    r738 r793  
    41424142      Height = 17
    41434143      Alignment = taCenter
    4144       Caption = 'TMG Customization 2.0; 4.14.2010'
     4144      Caption = 'TMG Customization 2.0; 4.21.2010'
    41454145      Font.Charset = ANSI_CHARSET
    41464146      Font.Color = clGray

  • cprs/branches/tmg-cprs/CPRS-Chart/fSplash.pas

    r453 r793  
    3939  lblVersion.Caption := DKLangConstW('fSplash_version') + //kt added 9/5/2007
    4040                        FileVersionValue(Application.ExeName, FILE_VER_FILEVERSION);
    41   SplashFile := ExtractFilePath(ParamStr(0)) + 'splash.jpg';  //kt
     41  SplashFile := Trim(ParamSearch('SPLASH'));   //elh
     42  if SplashFile <> '' then begin                //elh
     43    if ExtractFilePath(SplashFile) = '' then begin  //elh    FileName instead of path
     44      SplashFile := ExtractFilePath(ParamStr(0)) + SplashFile;  //kt
     45    end;
     46  end else begin
     47    SplashFile := ExtractFilePath(ParamStr(0)) + 'splash.jpg';  //kt
     48  end;
    4249  if FileExists(SplashFile) then begin          //kt
    4350    Image1.Picture.LoadFromFile(SplashFile);    //kt

  • cprs/branches/tmg-cprs/CPRS-Chart/fSurgery.dfm

    r453 r793  
    11inherited frmSurgery: TfrmSurgery
    2   Left = 521
     2  Left = 304
    33  Top = 221
    44  Width = 720

  • cprs/branches/tmg-cprs/CPRS-Chart/fxBroker.dfm

    r738 r793  
    11object frmBroker: TfrmBroker
    2   Left = 1163
    3   Top = 259
     2  Left = 178
     3  Top = 116
    44  Width = 441
    55  Height = 300

  • cprs/branches/tmg-cprs/CPRS-Chart/rCore.pas

    r453 r793  
    217217implementation
    218218
    219 uses Hash, uCore, ShlObj, Windows;
    220 
     219uses Hash, uCore, ShlObj, Windows
     220     , StrUtils; //kt added StrUtils
    221221var
    222222  uFMToday: TFMDateTime;                         // Today's date in Fileman format.
    … …  
    230230//vwpt code 4/17/0  see below
    231231var
    232 
    233232  i:Integer;
    234233//end vwpt
    … …  
    238237  ///take out for i := 1 to Length(x) do if (x[i] in ['-'..'-']) then Exit;
    239238  //end vwpt
     239  Result := AnsiReplaceStr(Result,'-','');  //kt 6/9/10 -- fix when SSN passed from server with imbedded dashes
    240240  if Length(x) > 8
    241241    then Result := Copy(x,1,3) + '-' + Copy(x,4,2) + '-' + Copy(x,6,Length(x))

  • cprs/branches/tmg-cprs/CPRS-Chart/rHTMLTools.pas

    r729 r793  
    1414
    1515  var
    16     DesiredHTMLFontSize : byte;       
    17      
    18   procedure PrintHTMLReport(Lines: TStringList; var ErrMsg: string;
     16    DesiredHTMLFontSize : byte;
     17    CPRSDir : string;
     18    URL_CPRSDir : string;  //This is CPRSDir, but all '\'s are converted to '/'s
     19
     20  CONST ALT_IMG_TAG_CONVERT = 'alt="convert to $CPRSDIR$"';
     21
     22  procedure PrintHTMLReport(Lines: TStringList; var ErrMsg: string;
    1923                            PtName, DOB, VisitDate, Location:string; Application : TApplication);  //kt added 5-2-05
    2024  function  IsHTML(Lines : TStrings): boolean; overload;
    2125  function  IsHTML(Line : String): boolean; overload;
    2226  function  HasHTMLTags(Text: string) : boolean;
    23   procedure FixHTML(Lines : TStrings); 
     27  procedure FixHTML(Lines : TStrings);
    2428  function  FixHTMLCRLF(Text : String) : string;
    2529  procedure SplitToArray (HTMLText: string; Lines : TStrings);
    … …  
    3842  function ExtractDateOfNote(Lines : TStringList) : string;
    3943  Procedure ScanForSubs(Lines : TStrings);
     44  Procedure InsertSubs(Lines : TStrings);
    4045
    4146implementation
    … …  
    6570  var
    6671    PrinterEvents : TPrinterEvents;
     72    SubsFoundList : TStringList;
    6773
    6874  const CRLF = #$0D#$0A;
    … …  
    150156       have decided to try to let the user click a button when the printer has
    151157       been selected.                                         }   
    152  
     158
    153159  var
    154160    UseUI          : OleVariant;   
    … …  
    176182      PrinterEvents.RestorePrinterTimer.Enabled := true; //launch a restore event in 30 seconds
    177183      //RestoreIEPrinting;  //elh - This was omitted from below. Not sure why.  11/10/09
    178     finally 
     184    finally
    179185      PrinterEvents.PrintingNow := false;
    180186    end;
    181187  end;
    182188
    183 (*
    184   Safe copy of above.  Delete later...
    185    
    186   procedure PrintHTMLReport(Lines: TStringList; var ErrMsg: string;
    187                             PtName, DOB, Location:string;
    188                             Application : TApplication);
    189   //      Web browser printing options:
    190   //        OLECMDEXECOPT_DODEFAULT       Use the default behavior, whether prompting the user for input or not.
    191   //        OLECMDEXECOPT_PROMPTUSER      Execute the command after obtaining user input.
    192   //        OLECMDEXECOPT_DONTPROMPTUSER  Execute the command without prompting the user.
    193 
    194   {Notice:  When IE is asked to print, it immediately returns from the function,
    195            but the printing has not yet occured.  If UI is requested, then the
    196           printing will not start until after the user selects a printer and
    197          presses [OK].  I could not find any reliable way to determine when the
    198         print job had been created.  I had to know this event because I need to
    199        restore some IE settings AFTER the printing has finished.  I even tried to
    200       get the active windows and see if it was a print dialog.  But IE print dlg
    201      apparently is owned by another thread than CPRS, because GetActiveWindow would
    202      not bring back a handle to the printer dialog window.  I therefore told IE
    203      to print WITHOUT asking which printer via UI.  In that case it prints to the
    204      system wide default printer.  So I have to set the default printer to the
    205      user's choice, and then change it back again.  This is bit of a kludge,
    206      but I couldn't figure out any other way after hours of trial and error.
    207      NOTE: I tried to query IE to see if it was able to print, thinking that it
    208      would return NO if in the process of currently printing.  It didn't work,
    209      and would return OK immediately.                                               }   
    210  
    211 
    212 
    213   var
    214     UseUI          : OleVariant;   
    215     NewPrinterName : string;   
    216     dlgWinPrinter  : TPrintDialog;
    217   begin
    218     if PrinterEvents.RestorePrinterTimer.Enabled = false then begin
    219       PrinterEvents.SavedDefaultPrinter := GetCurrentPrinterName;
    220     end; 
    221     dlgWinPrinter := TPrintDialog.Create(nil);
    222     frmTMGPrinting.Show;
    223     //FIX: get printer name for the one used last time somehow...
    224     if dlgWinPrinter.Execute then begin  //only sets a local printer
    225       NewPrinterName := GetCurrentPrinterName; 
    226       SetDefaultPrinter(NewPrinterName); //Set global setting that IE will use.
    227       PrinterEvents.LastChosenPrinterName := NewPrinterName;
    228       try
    229         frmNotes.SetDisplayToHTMLvsText([vmView,vmHTML],Lines);  //ActivateHtmlViewer(Lines);
    230         if frmNotes.HtmlViewer.WaitForDocComplete = false then begin
    231           ErrMsg := 'The web browser timed out trying to set up document.';
    232           exit;
    233         end;
    234         SetupHTMLPrinting(PtName,DOB,Location,' ');  {elh 6/19/09} //kt
    235         frmNotes.HtmlViewer.PrintFinished := false;               
    236         UseUI := false;  //UseUI := true;
    237         frmNotes.HtmlViewer.PrintDocument(UseUI);   //Returns immediately, not after printing done.
    238         PrinterEvents.RestorePrinterTimer.Enabled := true; //launch a restore event in 30 seconds
    239         Wait(4,Application);
    240         //WaitForBrowserOK(10, Application); //wait up to 10 seconds  //Note: this doesn't do what I want.  Status is immediately OK.
    241         //RestoreIEPrinting;   {elh 6/19/09}  //kt
    242       finally   //any needed final code goes here.
    243         //SetDefaultPrinter(DefaultPrinter);
    244         //beep;
    245       end;
    246     end;
    247     dlgWinPrinter.Free;
    248     frmTMGPrinting.Hide;       
    249   end;
    250 *) 
    251189  (*
    252190  function WaitForBrowserOK(MaxSecDelay: integer; Application : TApplication) : boolean;
    253191  //Returns TRUE if can print
    254192  var
    255     StartTime : TDateTime; 
     193    StartTime : TDateTime;
    256194    Status: OLECMDF;
    257195    MaxDelay,ElapsedTime : Double;
    … …  
    260198    OneMin = 0.0007;  //note: 0.0007 is about 1 minute
    261199  begin
    262     StartTime := GetTime; 
     200    StartTime := GetTime;
    263201    MaxDelay := OneMin * MaxSecDelay;
    264202    repeat
    … …  
    271209  end;
    272210  *)
    273  
     211
    274212  Procedure ScanForSubs(Lines : TStrings);
    275213  //Purpose: To scan note for constant $CPRS$ and replace with CPRS's actual directory
    276   var i : integer;
    277       CPRSDir : string;
    278   begin
     214  var i,p,p2 : integer;
     215      tempS : String;
     216  begin
     217    SubsFoundList.Clear;
    279218    for i := 0 to Lines.Count-1 do begin
    280       if Pos('$CPRSDIR$',Lines.Strings[i])>0 then begin
    281         CPRSDir := ExcludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));
    282         Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],'$CPRSDIR$',CPRSDir);
    283         //Ensure images are downloaded before passing page to web browser       
    284         frmImages.timLoadImagesTimer(nil);
    285         //NOTE: This often doesn't get the job completed before passing to browser
    286         //      ?? check for completion?
     219      p := Pos('$CPRSDIR$',Lines.Strings[i]);
     220      if p>0 then begin
     221        p := p + Length('$CPRSDIR$\Cache\');
     222        p2 := PosEx('"',Lines.Strings[i],p);
     223        tempS := MidStr(Lines.Strings[i],p,(p2-p));
     224        SubsFoundList.Add(tempS);
     225        if Pos('file:///',Lines.Strings[i]) > 0 then begin
     226          Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],'$CPRSDIR$',URL_CPRSDir);
     227        end else begin
     228          Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],'$CPRSDIR$',CPRSDir);
     229        end;
     230        //Ensure images are downloaded before passing page to web browser
     231      end;
     232    end;
     233    frmImages.EnsureImagesDownloaded(SubsFoundList);
     234  end;
     235
     236
     237  Procedure InsertSubs(Lines : TStrings);
     238  //Purpose: To scan a edited note images, and replace references to CPRS's
     239  //         actual local directory with $CPRS$
     240  var i,p : integer;
     241     TempS: string;
     242
     243  begin
     244    for i := 0 to Lines.Count-1 do begin
     245      Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],URL_CPRSDir,'$CPRSDIR$');
     246      Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],ALT_IMG_TAG_CONVERT,'IMAGE'); //Remove signal
     247      p := pos(ALT_IMG_TAG_CONVERT,Lines.Strings[i]);
     248      if p > 0 then begin
     249        TempS := MidStr(Lines.Strings[i],1,p-1);
     250        TempS := TempS + MidStr(Lines.Strings[i],p+length(ALT_IMG_TAG_CONVERT),length(Lines.Strings[i])+1);
     251        Lines.Strings[i] := TempS;
    287252      end;
    288253    end;
    … …  
    539504    Result := AnsiReplaceText(Result,'>'+CRLF,'>'#$1F); //protect sequences we want
    540505    Result := AnsiReplaceText(Result,CRLF,'<BR>'+CRLF); //Add <BR>'s to CrLf's
    541     Result := AnsiReplaceText(Result,'>'#$1F,'><BR>'+CRLF); //Restore sequences we wanted
     506    Result := AnsiReplaceText(Result,'>'#$1F,'>'+CRLF); //Restore sequences we wanted
    542507    Result := AnsiReplaceText(Result,#$1E,'<NO DATA>'); //Restore sequences we wanted
    543508  end;
    … …  
    927892initialization
    928893  DesiredHTMLFontSize := 2; //probably overwritten in fNotes initialization
    929   PrinterEvents := TPrinterEvents.Create; 
     894  PrinterEvents := TPrinterEvents.Create;
     895  CPRSDir := ExcludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));
     896  URL_CPRSDir := AnsiReplaceStr(CPRSDir,'\','/');
     897  SubsFoundList := TStringList.Create;
    930898
    931899finalization
    932   PrinterEvents.Free;   
     900  PrinterEvents.Free;
     901  SubsFoundList.Free;
     902
    933903end.

  • cprs/branches/tmg-cprs/CPRS-Chart/uTMGOptions.pas

    r735 r793  
    4141    RPCBrokerV.Param[1].Value := 'R';
    4242    RPCBrokerV.Param[1].ptype := literal;
    43     //RPCResult := RPCBrokerV.StrCall;   {returns 1 if available, 0 if not available}
    44     USE_SERVER_INI := StrToBool(RPCBrokerV.StrCall);
     43    //RPCResult := RPCBrokerV.StrCall;
     44    CallBroker;
     45    if RPCBrokerV.Results.Count >0 then begin
     46      USE_SERVER_INI := StrToBool(RPCBrokerV.Results.Strings[0]);  {returns 1 if available, 0 if not available}
     47    end else begin
     48      USE_SERVER_INI := false;
     49    end;
    4550    Initialized := true;
    4651  end;
    … …  
    5560    RPCBrokerV.Param[2].Value := Value;
    5661    RPCBrokerV.Param[2].ptype := literal;
    57     RPCBrokerV.Call;
     62    //RPCBrokerV.Call;
     63    CallBroker;
    5864  end;
    5965
    … …  
    6773    RPCBrokerV.Param[2].ptype := literal;
    6874    RPCBrokerV.param[2].value := Default;
    69     Result := Piece(RPCBrokerV.StrCall,'^',2);
     75    //Result := Piece(RPCBrokerV.StrCall,'^',2);
     76    CallBroker;
     77    if RPCBrokerV.Results.Count > 0 then begin
     78      Result := Piece(RPCBrokerV.Results.Strings[0],'^',2);
     79    end else begin
     80      Result := Default;
     81    end;
    7082  end;
    7183
    … …  
    94106  Procedure WriteInteger(const Key: String; Value: Integer; AsDefault : boolean = false);
    95107  begin
    96     if Initialized = False then TMGOptionsInitialize;
     108   if Initialized = False then TMGOptionsInitialize;
    97109    if AsDefault then begin
    98110      if USE_SERVER_INI then begin
Note: See TracChangeset for help on using the changeset viewer.