Ignore:
Timestamp:
Feb 18, 2009, 4:49:51 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

Supporting EMail demographic

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

Legend:

Unmodified
Added
Removed

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

    r496 r498  
    11[Closed Files]
    2 File_0=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Encounter\fEncounterFrame.pas',0,1,326,19,334,1,0
    3 File_1=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Orders\fODBase.pas',0,1,1450,1,1458,0,0
    4 File_2=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fPage.pas',0,1,1,5,15,1,0
    5 File_3=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fEncnt.pas',0,1,39,5,47,1,0
    6 File_4=SourceModule,'c:\program files\borland\delphi7\source\vcl\StdCtrls.pas',0,1,3401,1,3415,0,0
    7 File_5=SourceModule,'c:\program files\borland\delphi7\source\vcl\ComCtrls.pas',0,1,4436,1,4460,0,0
    8 File_6=SourceModule,'c:\program files\borland\delphi7\source\vcl\Controls.pas',0,1,4698,1,4706,0,0
    9 File_7=SourceModule,'P:\vista\tmg-cprs\CPRSChart.ini',0,1,1,18,14,0,0
    10 File_8=SourceModule,'P:\vista\GUI-config\MainU.pas',0,1,2129,1,2134,1,0
    11 File_9=SourceModule,'P:\vista\GUI-config\SkinFormU.pas',0,1,66,1,76,0,0
     2File_0=SourceModule,'C:\PROGRA~1\VISTA\BDK32\Source\TRPCB.pas',0,1,654,1,663,0,0
     3File_1=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Encounter\rPCE.pas',0,1,879,15,887,0,0
     4File_2=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Encounter\fPCEBase.pas',0,1,312,1,321,0,0
     5File_3=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Encounter\fVisitType.pas',0,1,31,39,16,0,0
     6File_4=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Consults\fEditProc.pas',0,1,1,1,1,0,0
     7File_5=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Consults\fEditConsult.pas',0,1,1,1,1,0,0
     8File_6=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\Encounter\fEncVitals.pas',0,1,1,1,1,0,0
     9File_7=SourceModule,'c:\program files\borland\delphi7\source\rtl\Win\Windows.pas',0,1,28836,1,28850,0,0
     10File_8=SourceModule,'P:\vista\tmg-cprs\CPRS-Chart\fDCSumm.pas',0,1,932,1,954,0,0
     11File_9=SourceModule,'c:\program files\borland\delphi7\source\rtl\Win\Messages.pas',0,1,28,1,13,0,0
    1212
    1313[Modules]
    14 Module0=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas
    15 Module1=P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas
    16 Module2=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
    17 Module3=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
    18 Module4=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
    19 Module5=P:\vista\tmg-cprs\CPRS-Chart\fPrintList.pas
    20 Module6=P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas
    21 Module7=P:\vista\tmg-cprs\CPRS-Chart\fReminderDialog.pas
    22 Module8=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas
    23 Module9=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
    24 Module10=c:\program files\borland\delphi7\source\rtl\common\classes.pas
    25 Module11=C:\PROGRA~1\VISTA\BDK32\Source\TRPCB.pas
    26 Module12=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
    27 Module13=C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas
    28 Module14=P:\vista\tmg-cprs\CPRS-Chart\Encounter\fPCEBase.pas
    29 Module15=P:\vista\tmg-cprs\CPRS-Chart\Encounter\fVisitType.pas
    30 Module16=c:\program files\borland\delphi7\source\rtl\Win\Windows.pas
    31 Module17=P:\vista\tmg-cprs\CPRS-Chart\fDCSumm.pas
    32 Module18=c:\program files\borland\delphi7\source\rtl\Win\Messages.pas
    33 Module19=c:\program files\borland\delphi7\source\vcl\Forms.pas
    34 Module20=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
    35 Module21=P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas
    36 Module22=P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas
    37 Module23=P:\vista\tmg-cprs\CPRS-Chart\fVisit.pas
    38 Module24=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
    39 Module25=c:\program files\borland\delphi7\source\rtl\Sys\SysInit.pas
    40 Module26=P:\vista\tmg-cprs\CPRS-Chart\Encounter\rPCE.pas
    41 Module27=P:\vista\tmg-cprs\CPRS-Chart\Consults\fEditProc.pas
    42 Module28=P:\vista\tmg-cprs\CPRS-Chart\Consults\fEditConsult.pas
    43 Module29=P:\vista\tmg-cprs\CPRS-Chart\Encounter\fEncVitals.pas
    44 Count=30
     14Module0=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
     15Module1=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
     16Module2=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas
     17Module3=c:\program files\borland\delphi7\source\rtl\Sys\variants.pas
     18Module4=P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas
     19Module5=P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas
     20Module6=P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.dpr
     21Count=7
    4522EditWindowCount=1
    4623TypeLibWindowCount=1
    4724
     25[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas]
     26ModuleType=SourceModule
     27FormState=0
     28FormOnTop=0
     29
     30[P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas]
     31ModuleType=SourceModule
     32FormState=1
     33FormOnTop=0
     34
    4835[P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas]
    4936ModuleType=SourceModule
    50 FormState=1
     37FormState=0
     38FormOnTop=1
     39
     40[c:\program files\borland\delphi7\source\rtl\Sys\variants.pas]
     41ModuleType=SourceModule
     42FormState=0
    5143FormOnTop=0
    5244
    5345[P:\vista\tmg-cprs\CPRS-Chart\fPtSel.pas]
    5446ModuleType=SourceModule
    55 FormState=1
     47FormState=0
     48FormOnTop=1
     49
     50[P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas]
     51ModuleType=SourceModule
     52FormState=0
    5653FormOnTop=0
    5754
    … …  
    6158FormOnTop=0
    6259
    63 [P:\Vista\tmg-cprs\CPRS-Chart\fFrame.pas]
    64 ModuleType=SourceModule
    65 FormState=0
    66 FormOnTop=0
    67 
    68 [P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas]
    69 ModuleType=SourceModule
    70 FormState=0
    71 FormOnTop=0
    72 
    73 [P:\vista\tmg-cprs\CPRS-Chart\fPrintList.pas]
    74 ModuleType=SourceModule
    75 FormState=0
    76 FormOnTop=0
    77 
    78 [P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas]
    79 ModuleType=SourceModule
    80 FormState=0
    81 FormOnTop=0
    82 
    83 [P:\vista\tmg-cprs\CPRS-Chart\fReminderDialog.pas]
    84 ModuleType=SourceModule
    85 FormState=1
    86 FormOnTop=0
    87 
    88 [P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas]
    89 ModuleType=SourceModule
    90 FormState=0
    91 FormOnTop=0
    92 
    93 [P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas]
    94 ModuleType=SourceModule
    95 FormState=1
    96 FormOnTop=0
    97 
    98 [c:\program files\borland\delphi7\source\rtl\common\classes.pas]
    99 ModuleType=SourceModule
    100 FormState=0
    101 FormOnTop=0
    102 
    103 [C:\PROGRA~1\VISTA\BDK32\Source\TRPCB.pas]
    104 ModuleType=SourceModule
    105 FormState=0
    106 FormOnTop=0
    107 
    108 [c:\program files\borland\delphi7\source\rtl\Sys\system.pas]
    109 ModuleType=SourceModule
    110 FormState=0
    111 FormOnTop=0
    112 
    113 [C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas]
    114 ModuleType=SourceModule
    115 FormState=0
    116 FormOnTop=0
    117 
    118 [P:\vista\tmg-cprs\CPRS-Chart\Encounter\fPCEBase.pas]
    119 ModuleType=SourceModule
    120 FormState=1
    121 FormOnTop=0
    122 
    123 [P:\vista\tmg-cprs\CPRS-Chart\Encounter\fVisitType.pas]
    124 ModuleType=SourceModule
    125 FormState=0
    126 FormOnTop=0
    127 
    128 [c:\program files\borland\delphi7\source\rtl\Win\Windows.pas]
    129 ModuleType=SourceModule
    130 FormState=0
    131 FormOnTop=0
    132 
    133 [P:\vista\tmg-cprs\CPRS-Chart\fDCSumm.pas]
    134 ModuleType=SourceModule
    135 FormState=0
    136 FormOnTop=0
    137 
    138 [c:\program files\borland\delphi7\source\rtl\Win\Messages.pas]
    139 ModuleType=SourceModule
    140 FormState=0
    141 FormOnTop=0
    142 
    143 [c:\program files\borland\delphi7\source\vcl\Forms.pas]
    144 ModuleType=SourceModule
    145 FormState=0
    146 FormOnTop=0
    147 
    148 [c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas]
    149 ModuleType=SourceModule
    150 FormState=0
    151 FormOnTop=0
    152 
    153 [P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas]
    154 ModuleType=SourceModule
    155 FormState=0
    156 FormOnTop=0
    157 
    158 [P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas]
    159 ModuleType=SourceModule
    160 FormState=0
    161 FormOnTop=0
    162 
    163 [P:\vista\tmg-cprs\CPRS-Chart\fVisit.pas]
    164 ModuleType=SourceModule
    165 FormState=0
    166 FormOnTop=0
    167 
    168 [P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas]
    169 ModuleType=SourceModule
    170 FormState=0
    171 FormOnTop=0
    172 
    173 [c:\program files\borland\delphi7\source\rtl\Sys\SysInit.pas]
    174 ModuleType=SourceModule
    175 FormState=0
    176 FormOnTop=0
    177 
    178 [P:\vista\tmg-cprs\CPRS-Chart\Encounter\rPCE.pas]
    179 ModuleType=SourceModule
    180 FormState=0
    181 FormOnTop=0
    182 
    183 [P:\vista\tmg-cprs\CPRS-Chart\Consults\fEditProc.pas]
    184 ModuleType=SourceModule
    185 FormState=0
    186 FormOnTop=0
    187 
    188 [P:\vista\tmg-cprs\CPRS-Chart\Consults\fEditConsult.pas]
    189 ModuleType=SourceModule
    190 FormState=0
    191 FormOnTop=0
    192 
    193 [P:\vista\tmg-cprs\CPRS-Chart\Encounter\fEncVitals.pas]
    194 ModuleType=SourceModule
     60[C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
     61FormState=0
     62FormOnTop=0
     63
     64[P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb]
     65FormState=0
     66FormOnTop=0
     67
     68[P:\vista\tmg-cprs\CPRS-Chart\fAutoSz.pas]
     69FormState=0
     70FormOnTop=0
     71
     72[P:\vista\tmg-cprs\CPRS-Chart\fHSplit.pas]
    19573FormState=0
    19674FormOnTop=0
    … …  
    20078FormOnTop=0
    20179
    202 [C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg]
    203 FormState=0
    204 FormOnTop=0
    205 
    206 [P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb]
    207 FormState=0
    208 FormOnTop=0
    209 
    210 [P:\vista\tmg-cprs\CPRS-Chart\fHSplit.pas]
    211 FormState=0
    212 FormOnTop=0
    213 
    214 [P:\vista\tmg-cprs\CPRS-Chart\fAutoSz.pas]
    215 FormState=0
    216 FormOnTop=0
    217 
    21880[P:\vista\tmg-cprs\CPRS-Chart\Encounter\mVisitRelated.pas]
    21981FormState=0
    … …  
    22587
    22688[EditWindow0]
    227 ViewCount=30
    228 CurrentView=3
     89ViewCount=7
     90CurrentView=5
    22991View0=0
    23092View1=1
    … …  
    23496View5=5
    23597View6=6
    236 View7=7
    237 View8=8
    238 View9=9
    239 View10=10
    240 View11=11
    241 View12=12
    242 View13=13
    243 View14=14
    244 View15=15
    245 View16=16
    246 View17=17
    247 View18=18
    248 View19=19
    249 View20=20
    250 View21=21
    251 View22=22
    252 View23=23
    253 View24=24
    254 View25=25
    255 View26=26
    256 View27=27
    257 View28=28
    258 View29=29
    25998CodeExplorer=CodeExplorer@EditWindow0
    26099MessageView=MessageView@EditWindow0
    … …  
    262101Visible=1
    263102State=0
    264 Left=247
    265 Top=115
     103Left=81
     104Top=156
    266105Width=780
    267106Height=588
    … …  
    274113LeftPanelData=00000400010000000C000000436F64654578706C6F726572000000000000000000000000000000000001000000000000000000000000FFFFFFFF
    275114RightPanelSize=0
    276 BottomPanelSize=187
     115BottomPanelSize=0
    277116BottomPanelClients=MessageView@EditWindow0
    278 BottomPanelData=0000040000000000040300000000000002BB000000000000000100000000000000000000000001000000000103000000000000010000000001030000000000000100000000C702000000000000010000000004030000000000000100000000040300000B0000004D65737361676556696577FFFFFFFF
     117BottomPanelData=00000400010000000B0000004D65737361676556696577040300000000000002BB000000000000000100000000000000000000000001000000000103000000000000010000000001030000000000000100000000C702000000000000010000000004030000000000000100000000040300000B0000004D65737361676556696577FFFFFFFF
    279118
    280119[View0]
    … …  
    301140[View3]
    302141Module=P:\vista\tmg-cprs\CPRS-Chart\TMG_Extra\fPtDemoEdit.pas
    303 CursorX=25
    304 CursorY=300
    305 TopLine=127
     142CursorX=43
     143CursorY=299
     144TopLine=292
    306145LeftCol=1
    307146
    308147[View4]
    309 Module=P:\vista\tmg-cprs\CPRS-Chart\Encounter\fPCEBase.pas
     148Module=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
    310149CursorX=1
    311 CursorY=321
    312 TopLine=312
     150CursorY=390
     151TopLine=385
    313152LeftCol=1
    314153
    315154[View5]
    316 Module=P:\vista\tmg-cprs\CPRS-Chart\Encounter\fEncVitals.pas
     155Module=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
    317156CursorX=1
    318157CursorY=1
    … …  
    321160
    322161[View6]
    323 Module=P:\vista\tmg-cprs\CPRS-Chart\Consults\fEditConsult.pas
     162Module=c:\program files\borland\delphi7\source\rtl\Sys\variants.pas
    324163CursorX=1
    325 CursorY=1
    326 TopLine=1
    327 LeftCol=1
    328 
    329 [View7]
    330 Module=P:\vista\tmg-cprs\CPRS-Chart\Consults\fEditProc.pas
    331 CursorX=1
    332 CursorY=1
    333 TopLine=1
    334 LeftCol=1
    335 
    336 [View8]
    337 Module=P:\vista\tmg-cprs\CPRS-Chart\Encounter\fVisitType.pas
    338 CursorX=39
    339 CursorY=16
    340 TopLine=31
    341 LeftCol=1
    342 
    343 [View9]
    344 Module=P:\vista\tmg-cprs\CPRS-Chart\Encounter\rPCE.pas
    345 CursorX=15
    346 CursorY=887
    347 TopLine=879
    348 LeftCol=1
    349 
    350 [View10]
    351 Module=P:\vista\tmg-cprs\CPRS-Chart\fPrintList.pas
    352 CursorX=8
    353 CursorY=102
    354 TopLine=44
    355 LeftCol=1
    356 
    357 [View11]
    358 Module=P:\vista\tmg-cprs\CPRS-Chart\Options\fOptions.pas
    359 CursorX=34
    360 CursorY=316
    361 TopLine=310
    362 LeftCol=1
    363 
    364 [View12]
    365 Module=C:\PROGRA~1\VISTA\BDK32\Source\TRPCB.pas
    366 CursorX=1
    367 CursorY=663
    368 TopLine=654
    369 LeftCol=1
    370 
    371 [View13]
    372 Module=C:\PROGRA~1\VISTA\BDK32\Source\wsockc.pas
    373 CursorX=1
    374 CursorY=1479
    375 TopLine=1468
    376 LeftCol=1
    377 
    378 [View14]
    379 Module=P:\vista\tmg-cprs\CPRS-Chart\fSplash.pas
    380 CursorX=6
    381 CursorY=5
    382 TopLine=1
    383 LeftCol=1
    384 
    385 [View15]
    386 Module=c:\program files\borland\delphi7\source\rtl\Sys\system.pas
    387 CursorX=1
    388 CursorY=12636
    389 TopLine=12621
    390 LeftCol=1
    391 
    392 [View16]
    393 Module=c:\program files\borland\delphi7\source\rtl\Sys\SysInit.pas
    394 CursorX=1
    395 CursorY=365
    396 TopLine=345
    397 LeftCol=1
    398 
    399 [View17]
    400 Module=P:\Vista\tmg-cprs\CPRS-Chart\Options\fOptionsOther.pas
    401 CursorX=29
    402 CursorY=123
    403 TopLine=115
    404 LeftCol=1
    405 
    406 [View18]
    407 Module=P:\vista\tmg-cprs\CPRS-Chart\fNotes.pas
    408 CursorX=1
    409 CursorY=1196
    410 TopLine=1189
    411 LeftCol=1
    412 
    413 [View19]
    414 Module=P:\vista\tmg-cprs\CPRS-Chart\Templates\uTemplates.pas
    415 CursorX=1
    416 CursorY=2801
    417 TopLine=2793
    418 LeftCol=1
    419 
    420 [View20]
    421 Module=c:\program files\borland\delphi7\source\rtl\common\classes.pas
    422 CursorX=1
    423 CursorY=2180
    424 TopLine=2172
    425 LeftCol=1
    426 
    427 [View21]
    428 Module=P:\vista\tmg-cprs\CPRS-Chart\fReminderDialog.pas
    429 CursorX=1
    430 CursorY=298
    431 TopLine=290
    432 LeftCol=1
    433 
    434 [View22]
    435 Module=P:\vista\tmg-cprs\CPRS-Chart\fVisit.pas
    436 CursorX=5
    437 CursorY=27
    438 TopLine=19
    439 LeftCol=1
    440 
    441 [View23]
    442 Module=P:\vista\tmg-cprs\CPRS-Chart\fDrawers.pas
    443 CursorX=5
    444 CursorY=805
    445 TopLine=792
    446 LeftCol=1
    447 
    448 [View24]
    449 Module=P:\Vista\tmg-cprs\dklang-package-3.01\DKLang.pas
    450 CursorX=1
    451 CursorY=2279
    452 TopLine=2265
    453 LeftCol=1
    454 
    455 [View25]
    456 Module=c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas
    457 CursorX=1
    458 CursorY=16165
    459 TopLine=16146
    460 LeftCol=1
    461 
    462 [View26]
    463 Module=c:\program files\borland\delphi7\source\vcl\Forms.pas
    464 CursorX=1
    465 CursorY=2648
    466 TopLine=2631
    467 LeftCol=1
    468 
    469 [View27]
    470 Module=c:\program files\borland\delphi7\source\rtl\Win\Messages.pas
    471 CursorX=1
    472 CursorY=13
    473 TopLine=28
    474 LeftCol=1
    475 
    476 [View28]
    477 Module=P:\vista\tmg-cprs\CPRS-Chart\fDCSumm.pas
    478 CursorX=1
    479 CursorY=954
    480 TopLine=932
    481 LeftCol=1
    482 
    483 [View29]
    484 Module=c:\program files\borland\delphi7\source\rtl\Win\Windows.pas
    485 CursorX=1
    486 CursorY=28850
    487 TopLine=28836
     164CursorY=609
     165TopLine=595
    488166LeftCol=1
    489167
    … …  
    545223Left=1064
    546224Top=175
    547 Width=981
     225Width=123
    548226Height=112
    549227MaxLeft=-4
    … …  
    633311SplitPos=128
    634312ArrangeBy=Name
    635 SelectedItem=Caption
     313SelectedItem=Position
    636314ExpandedItems=Anchors
    637315HiddenCategories=Legacy
    … …  
    663341Visible=1
    664342State=0
    665 Left=-747
    666 Top=206
    667 Width=712
     343Left=-764
     344Top=199
     345Width=477
    668346Height=481
    669347MaxLeft=-1
    670348MaxTop=-1
    671 ClientWidth=704
     349ClientWidth=469
    672350ClientHeight=455
    673351TBDockHeight=355
    … …  
    837515[MessageView@EditWindow0]
    838516Create=1
    839 Visible=1
     517Visible=0
    840518State=0
    841519Left=12
    … …  
    859537Visible=1
    860538State=0
    861 Left=4
    862 Top=149
     539Left=-278
     540Top=186
    863541Width=258
    864542Height=539

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

    r494 r498  
    8787      Height = 323
    8888      HelpContext = 9999
    89       ActivePage = tsAppearance
     89      ActivePage = tsCoverSheet
    9090      Align = alClient
    9191      TabOrder = 0

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

    r473 r498  
    1818  HelpFile = 'CPRSWT.HLP'
    1919  OldCreateOrder = False
    20   Position = poScreenCenter
     20  Position = poDefault
    2121  ShowHint = True
    2222  OnCreate = FormCreate
    … …  
    2727    Left = 7
    2828    Top = 168
    29     Width = 178
    30     Height = 17
     29    Width = 170
     30    Height = 13
    3131    Hint = 'Set date ranges for displaying medication orders on Meds tab.'
    3232    Caption = 'Set date range for Meds tab display:'

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

    r496 r498  
    102102        Anchors = [akTop, akRight]
    103103        Caption = 'Prefix'
    104         Visible = False
    105104      end
    106105      object SuffixLabel: TLabel
    … …  
    142141        Anchors = [akTop, akRight]
    143142        Caption = 'Degree'
    144         Visible = False
    145143      end
    146144      object Label1: TLabel
    … …  
    208206        Anchors = [akTop, akRight]
    209207        TabOrder = 8
    210         Visible = False
    211208        OnChange = PrefixEditChange
    212209      end
    … …  
    407404          Height = 21
    408405          ItemHeight = 13
    409           TabOrder = 6
     406          TabOrder = 5
    410407          Text = '<State>'
    411408          OnChange = StateComboBoxChange
    … …  
    468465          Width = 121
    469466          Height = 21
    470           TabOrder = 5
     467          TabOrder = 6
    471468          OnChange = Zip4EditChange
    472469        end
    … …  
    540537        Anchors = [akTop, akRight]
    541538        TabOrder = 9
    542         Visible = False
    543539        OnChange = DegreeEditChange
    544540      end
    … …  
    578574        Left = 415
    579575        Top = 168
    580         Width = 218
     576        Width = 242
    581577        Height = 21
    582578        Anchors = [akLeft, akTop, akRight]
    583579        TabOrder = 13
    584         OnChange = SSNumEditChange
     580        OnChange = EMailEditChange
    585581      end
    586582    end

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

    r496 r498  
    118118    DegreeLabel: TLabel;
    119119    AddAliasBtn: TButton;
    120     DKLanguageController1: TDKLanguageController;
    121120    GroupBox1: TGroupBox;
    122121    PhoneNumGrp: TRadioGroup;
    … …  
    125124    Label2: TLabel;
    126125    Label3: TLabel;
     126    DKLanguageController1: TDKLanguageController;
    127127    EMailEdit: TEdit;
    128128    procedure AliasComboBoxChange(Sender: TObject);
    … …  
    140140    procedure SuffixEditChange(Sender: TObject);
    141141    procedure SexComboBoxChange(Sender: TObject);
     142    procedure EMailEditChange(Sender: TObject);
    142143    procedure AddressLine1EditChange(Sender: TObject);
    143144    procedure AddressLine2EditChange(Sender: TObject);
    … …  
    342343  PhoneNumTemp:=Source.PhoneNumTemp;
    343344  Sex:=Source.Sex;
     345  EMail := Source.EMail;
    344346end;
    345347
    … …  
    967969end;
    968970
     971procedure TfrmPtDemoEdit.EMailEditChange(Sender: TObject);
     972begin
     973  if ProgNameChangeOccuring = false then begin
     974    FCurPatientInfo.EMail := EMailEdit.Text;
     975    SetModified(true);
     976  end;
     977end;
     978
    969979procedure TfrmPtDemoEdit.SexComboBoxChange(Sender: TObject);
    970980begin
Note: See TracChangeset for help on using the changeset viewer.