25. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/31/2017 10:45:42 AM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

25.1 Files compared

# Location File Last Modified
1 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSCOMMON fGMV_DateRange.pas Tue Dec 13 18:25:58 2016 UTC
2 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSCOMMON fGMV_DateRange.pas Fri Mar 31 15:01:10 2017 UTC

25.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 402
Changed 1 2
Inserted 0 0
Removed 0 0

25.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

25.4 Active regular expressions

No regular expressions were active.

25.5 Comparison detail

  1   unit fGMV_ DateRange;
  2   {
  3   ========== ========== ========== ========== ========== ========== ========== ==========
  4   *
  5   *       Ap plication:   Vitals
  6   *       Re vision:      $Revisio n: 1 $  $M odtime: 12 /20/07 12: 43p $
  7   *       De veloper:      PII                                             
  8   *       Si te:          Hines OI FO
  9   *
  10   *       De scription:   Selects  two date r anges.
  11   *
  12   *       No tes:
  13   *
  14   ========== ========== ========== ========== ========== ========== ========== ==========
  15   *       $A rchive: /V itals/5.0  (Version 5 .0)/5.0.23  (Patch 23 )/VITALS_5 _0_23_8/So urce/VITAL SCOMMON/fG MV_DateRan ge.pas $
  16   *
  17   * $History : fGMV_Dat eRange.pas  $
  18    * 
  19    * ******* **********   Version  1  ******* **********
  20    * User: V haishandri a Date: 8/ 12/09    T ime: 8:29a
  21    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_8/Sourc e/VITALSCO MMON
  22    * 
  23    * ******* **********   Version  1  ******* **********
  24    * User: V haishandri a Date: 3/ 09/09    T ime: 3:38p
  25    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_6/Sourc e/VITALSCO MMON
  26    * 
  27    * ******* **********   Version  1  ******* **********
  28    * User: V haishandri a Date: 1/ 13/09    T ime: 1:26p
  29    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_4/Sourc e/VITALSCO MMON
  30    * 
  31    * ******* **********   Version  1  ******* **********
  32    * User: V haishandri a Date: 5/ 14/07    T ime: 10:29 a
  33    * Created  in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSCOMMON
  34    * 
  35    * ******* **********   Version  1  ******* **********
  36    * User: V haishandri a Date: 5/ 16/06    T ime: 5:43p
  37    * Created  in $/Vita ls/VITALS- 5-0-18/Vit alsCommon
  38    * GUI v.  5.0.18 upd ates the d efault vit al type IE Ns with th e local
  39    * values.
  40    * 
  41    * ******* **********   Version  1  ******* **********
  42    * User: V haishandri a Date: 5/ 16/06    T ime: 5:33p
  43    * Created  in $/Vita ls/Vitals- 5-0-18/VIT ALS-5-0-18 /VitalsCom mon
  44    * 
  45    * ******* **********   Version  1  ******* **********
  46    * User: V haishandri a Date: 5/ 24/05    T ime: 3:33p
  47    * Created  in $/Vita ls/Vitals  GUI  v 5.0 .2.1 -5.0. 3.1 - Patc h GMVR-5-7  (CASMed,  No CCOW) -  Delphi 6/ VitalsComm on
  48    * 
  49    * ******* **********   Version  1  ******* **********
  50    * User: V haishandri a Date: 4/ 16/04    T ime: 4:17p
  51    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, CPRS,  Delphi 7) /VITALSCOM MON
  52    * 
  53    * ******* **********   Version  1  ******* **********
  54    * User: V haishandri a Date: 2/ 10/04    T ime: 2:56p
  55    * Created  in $/Vita lsLite/Vit alsDLL
  56    * 
  57    * ******* **********   Version  1  ******* **********
  58    * User: V haishandri a Date: 1/ 26/04    T ime: 1:08p
  59    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, Delph i7)/V5031- D7/VitalsU ser
  60    * 
  61    * ******* **********   Version  1  ******* **********
  62    * User: V haishandri a Date: 10 /29/03   T ime: 4:15p
  63    * Created  in $/Vita ls503/Vita ls User
  64    * Version  5.0.3
  65    * 
  66    * ******* **********   Version  1  ******* **********
  67    * User: V haishandri a Date: 5/ 21/03    T ime: 1:18p
  68    * Created  in $/Vita ls GUI Ver sion 5.0/V italsUserN oCCOW
  69    * Pre CCO W Version  of Vitals  User
  70    * 
  71    * ******* **********   Version  4  ******* **********
  72    * User: V haishandri a Date: 8/ 30/02    T ime: 4:06p
  73    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals User
  74    * Labor D ay Backup
  75    * 
  76    * ******* **********   Version  3  ******* **********
  77    * User: V haishpetit d Date: 6/ 20/02    T ime: 9:32a
  78    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals User
  79    * t27 Bui ld
  80    *
  81    * ******* **********   Version  2  ******* **********
  82    * User: V haishpetit d Date: 6/ 06/02    T ime: 11:13 a
  83    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals User
  84    * Roll-up  to 5.0.0. 27
  85    *
  86    * ******* **********   Version  1  ******* **********
  87    * User: V haishpetit d Date: 4/ 04/02    T ime: 11:53 a
  88    * Created  in $/Vita ls GUI Ver sion 5.0/V itals User
  89    *
  90   *
  91   ========== ========== ========== ========== ========== ========== ========== ==========
  92   }
  93   interface
  94  
  95   uses
  96     Windows,
  97     Messages ,
  98     SysUtils ,
  99     Classes,
  100     Graphics ,
  101     Controls ,
  102     Forms,
  103     Dialogs,
  104     StdCtrls ,
  105     ComCtrls ,
  106     ExtCtrls ;
  107  
  108   type
  109     TfrmGMV_ DateRange  = class(TF orm)
  110       Panel1 : TPanel;
  111       Panel5 : TPanel;
  112       GroupB ox1: TGrou pBox;
  113       lblFro m: TLabel;
  114       lblTo:  TLabel;
  115       dtpFro m: TDateTi mePicker;
  116       dtpTo:  TDateTime Picker;
  117       Panel2 : TPanel;
  118       btnOK:  TButton;
  119       btnCan cel: TButt on;
  120       proced ure btnOKC lick(Sende r: TObject );
  121       proced ure FormKe yDown(Send er: TObjec t; var Key : Word;
  122         Shif t: TShiftS tate);
  123       proced ure dtpFro mEnter(Sen der: TObje ct);
  124       proced ure dtpFro mExit(Send er: TObjec t);
  125       proced ure dtpToE xit(Sender : TObject) ;
  126       proced ure dtpToE nter(Sende r: TObject );
  127     private
  128     public
  129       { Publ ic declara tions }
  130     end;
  131  
  132     function  GetDateRa nge(var Fr omDate, To Date: TDat eTime; All owFutureDa te: Boolea n = True;  AllowPastD ate: Boole an = True) : Boolean;
  133  
  134   implementa tion
  135  
  136   uses uGMV_ Common;
  137  
  138  
  139   {$R *.DFM}
  140  
  141   function G etDateRang e(var From Date, ToDa te: TDateT ime; Allow FutureDate : Boolean  = True; Al lowPastDat e: Boolean  = True):  Boolean;
  142   begin
  143     with Tfr mGMV_DateR ange.Creat e(Applicat ion) do
  144       try
  145         dtpF rom.DateTi me := From Date;
  146         dtpT o.DateTime  := ToDate ;
  147         dtpF rom.MaxDat e := TRunc (Now);
  148         dtpT o.MaxDate  := dtpFrom .MaxDate;
  149         acti veControl  := dtpFrom ;
  150         Show Modal;
  151         if M odalResult  = mrOK th en
  152           be gin
  153              FromDate : = dtpFrom. Date;
  154              ToDate :=  dtpTo.Date ;
  155              Result :=  True;
  156           en d
  157         else
  158           Re sult := Fa lse;
  159       finall y
  160         free ;
  161       end;
  162   end;
  163  
  164   procedure  TfrmGMV_Da teRange.bt nOKClick(S ender: TOb ject);
  165   begin
  166     if trunc (dtpFrom.D ateTime) < = trunc(dt pTo.DateTi me) then
  167       ModalR esult := m rOk
  168     else
  169       Messag eDlg('The  ''Start wi th Date''  must be le ss' + #13  +
  170       'than  the ''Go t o Date'' v alue.',
  171         mtIn formation,  [mbok], 0 );
  172   end;
  173  
  174   procedure  TfrmGMV_Da teRange.Fo rmKeyDown( Sender: TO bject; var  Key: Word ;
  175     Shift: T ShiftState );
  176   begin
  177     if Key =  VK_ESCAPE  then
  178       ModalR esult := m rCancel;
  179   end;
  180  
  181   procedure  TfrmGMV_Da teRange.dt pFromEnter (Sender: T Object);
  182   begin
  183     dtpFrom. Color := c lTabIn;
  184   end;
  185  
  186   procedure  TfrmGMV_Da teRange.dt pFromExit( Sender: TO bject);
  187   begin
  188     dtpFrom. Color := c lTabOut;
  189   end;
  190  
  191   procedure  TfrmGMV_Da teRange.dt pToExit(Se nder: TObj ect);
  192   begin
  193     dtpTo.Co lor := clT abOut;
  194   end;
  195  
  196   procedure  TfrmGMV_Da teRange.dt pToEnter(S ender: TOb ject);
  197   begin
  198     dtpTo.Co lor := clT abIn;
  199   end;
  200  
  201   end.
  202