Changeset 659 for cprs/branches/tmg-cprs/CPRS-Chart

Timestamp:

Jan 7, 2010, 4:00:40 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

Updated CPRS To Handle Hide Add Patient button if TMG CPRS HIDE ADDPATIENT key is granted

Location:

cprs/branches/tmg-cprs/CPRS-Chart

Files:

• CPRSChart.dsk (modified) (18 diffs)
• fPtSel.pas (modified) (1 diff)

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

@@ -5 +5 @@
 
 [Modules]
-Module0=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
-Module1=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsNotes.pas
-Module2=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
-Module3=c:\program files\borland\delphi7\source\vcl\Controls.pas
-Module4=c:\program files\borland\delphi7\source\vcl\Menus.pas
+Module0=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsNotes.pas
+Module1=P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas
+Module2=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
+Module3=P:\vista\tmg-cprs\CPRS-Chart\fReports.pas
+Module4=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
 Module5=C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas
-Module6=P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas
-Module7=P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas
-Module8=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
-Module9=P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas
-Module10=P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas
-Module11=c:\program files\borland\delphi7\source\rtl\common\classes.pas
-Module12=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas
-Module13=P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas
-Module14=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\TMGHTML2.pas
-Module15=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
-Count=16
+Module6=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
+Module7=c:\program files\borland\delphi7\source\vcl\Menus.pas
+Module8=P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas
+Module9=P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas
+Module10=c:\program files\borland\delphi7\source\rtl\common\classes.pas
+Module11=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
+Module12=c:\program files\borland\delphi7\source\vcl\Controls.pas
+Module13=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas
+Module14=P:\vista\tmg-cprs\CPRS-Chart\Templates\fTemplateDialog.pas
+Module15=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\HTMLEdit\TMGHTML2.pas
+Module16=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
+Count=17
 EditWindowCount=1
 TypeLibWindowCount=1
 
+[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsNotes.pas]
+ModuleType=SourceModule
+FormState=1
+FormOnTop=0
+
+[P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas]
+ModuleType=SourceModule
+FormState=1
+FormOnTop=0
+
+[P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[P:\vista\tmg-cprs\CPRS-Chart\fReports.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
 [c:\program files\borland\delphi7\source\rtl\Sys\system.pas]
 ModuleType=SourceModule
@@ -30 +51 @@
 FormOnTop=0
 
-[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsNotes.pas]
-ModuleType=SourceModule
-FormState=1
+[C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[c:\program files\borland\delphi7\source\vcl\Menus.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[c:\program files\borland\delphi7\source\rtl\common\classes.pas]
+ModuleType=SourceModule
+FormState=0
 FormOnTop=0
 
@@ -45 +91 @@
 FormOnTop=0
 
-[c:\program files\borland\delphi7\source\vcl\Menus.pas]
-ModuleType=SourceModule
-FormState=0
-FormOnTop=0
-
-[C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas]
-ModuleType=SourceModule
-FormState=0
-FormOnTop=0
-
-[P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas]
-ModuleType=SourceModule
-FormState=1
-FormOnTop=1
-
-[P:\vista\tmg-cprs\CPRS-Chart\fFrame.pas]
-ModuleType=SourceModule
-FormState=0
-FormOnTop=0
-
-[c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas]
-ModuleType=SourceModule
-FormState=0
-FormOnTop=0
-
-[P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas]
-ModuleType=SourceModule
-FormState=0
-FormOnTop=0
-
-[P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas]
-ModuleType=SourceModule
-FormState=0
-FormOnTop=0
-
-[c:\program files\borland\delphi7\source\rtl\common\classes.pas]
-ModuleType=SourceModule
-FormState=0
-FormOnTop=0
-
 [P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplateFields.pas]
 ModuleType=SourceModule
@@ -126 +132 @@
 
 [EditWindow0]
-ViewCount=16
-CurrentView=12
+ViewCount=17
+CurrentView=4
 View0=0
 View1=1
@@ -144 +150 @@
 View14=14
 View15=15
+View16=16
 CodeExplorer=CodeExplorer@EditWindow0
 MessageView=MessageView@EditWindow0
@@ -196 +203 @@
 Module=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsNotes.pas
 CursorX=1
-CursorY=349
+CursorY=347
 TopLine=339
 LeftCol=1
@@ -209 +216 @@
 [View6]
 Module=P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas
-CursorX=24
+CursorX=1
 CursorY=1210
-TopLine=1210
+TopLine=1204
 LeftCol=1
 
@@ -222 +229 @@
 
 [View8]
+Module=P:\vista\tmg-cprs\CPRS-Chart\fReports.pas
+CursorX=33
+CursorY=845
+TopLine=837
+LeftCol=1
+
+[View9]
 Module=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
 CursorX=1
@@ -228 +242 @@
 LeftCol=1
 
-[View9]
+[View10]
 Module=c:\program files\borland\delphi7\source\rtl\common\classes.pas
 CursorX=1
@@ -235 +249 @@
 LeftCol=1
 
-[View10]
+[View11]
 Module=P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas
 CursorX=1
@@ -242 +256 @@
 LeftCol=1
 
-[View11]
+[View12]
 Module=P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas
 CursorX=1
@@ -249 +263 @@
 LeftCol=1
 
-[View12]
+[View13]
 Module=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
 CursorX=1
@@ -256 +270 @@
 LeftCol=1
 
-[View13]
+[View14]
 Module=c:\program files\borland\delphi7\source\vcl\Menus.pas
 CursorX=1
@@ -263 +277 @@
 LeftCol=1
 
-[View14]
+[View15]
 Module=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
 CursorX=1
@@ -270 +284 @@
 LeftCol=1
 
-[View15]
+[View16]
 Module=C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas
 CursorX=1
@@ -314 +328 @@
 
 [Breakpoints]
-Count=10
+Count=9
 Breakpoint0='P:\vista\tmg-cprs\CPRS-Chart\rCover.pas',315,'',0,1,'',1,0,0,'',1,'','',''
 Breakpoint1='P:\vista\tmg-cprs\TMG_Extra\HTMLEdit\EmbeddedED\EmbeddedED.pas',1516,'',0,1,'',1,0,0,'',1,'','',''
@@ -322 +336 @@
 Breakpoint5='P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas',1068,'',0,1,'',1,0,0,'',1,'','',''
 Breakpoint6='P:\vista\tmg-cprs\CPRS-Chart\fPtSelOptns.pas',286,'',0,1,'',1,0,0,'',1,'','',''
-Breakpoint7='P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsNotes.pas',347,'',0,1,'',1,0,0,'',1,'','',''
-Breakpoint8='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4423,'',0,1,'',1,0,0,'',1,'','',''
-Breakpoint9='P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsNotes.pas',293,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint7='P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas',4423,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint8='P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsNotes.pas',293,'',0,1,'',1,0,0,'',1,'','',''
 
 [AddressBreakpoints]
@@ -423 +436 @@
 SplitPos=128
 ArrangeBy=Name
-SelectedItem=OnCreate
+SelectedItem=Caption
 ExpandedItems=Anchors,Options
 HiddenCategories=Legacy

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

@@ -1208 +1208 @@
 procedure TfrmPtSel.FormCreate(Sender: TObject);          //added by ELH 6/20/08
 begin
-  TMGcmdAdd.Visible := boolTMGPatchInstalled;
+  TMGcmdAdd.Visible := boolTMGPatchInstalled and not User.HasKey('TMG CPRS HIDE ADDPATIENT');
 end;