24. 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.

24.1 Files compared

# Location File Last Modified
1 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSCOMMON fGMV_AddVCQ.pas Tue Dec 13 18:26:00 2016 UTC
2 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSCOMMON fGMV_AddVCQ.pas Fri Mar 31 15:01:09 2017 UTC

24.2 Comparison summary

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

24.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

24.4 Active regular expressions

No regular expressions were active.

24.5 Comparison detail

  1   unit fGMV_ AddVCQ;
  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:   Used to  selected V itals/Cate gories/Qua lifiers fr om the
  11   *                       TGMV_Fil eReference  objects
  12   *
  13   *       No tes:
  14   *
  15   ========== ========== ========== ========== ========== ========== ========== ==========
  16   *       $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_AddVCQ. pas $
  17   *
  18   * $History : fGMV_Add VCQ.pas $
  19    * 
  20    * ******* **********   Version  1  ******* **********
  21    * User: V haishandri a Date: 8/ 12/09    T ime: 8:29a
  22    * 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
  23    * 
  24    * ******* **********   Version  1  ******* **********
  25    * User: V haishandri a Date: 3/ 09/09    T ime: 3:38p
  26    * 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
  27    * 
  28    * ******* **********   Version  1  ******* **********
  29    * User: V haishandri a Date: 1/ 13/09    T ime: 1:26p
  30    * 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
  31    * 
  32    * ******* **********   Version  1  ******* **********
  33    * User: V haishandri a Date: 5/ 14/07    T ime: 10:29 a
  34    * Created  in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSCOMMON
  35    * 
  36    * ******* **********   Version  1  ******* **********
  37    * User: V haishandri a Date: 5/ 16/06    T ime: 5:43p
  38    * Created  in $/Vita ls/VITALS- 5-0-18/Vit alsCommon
  39    * GUI v.  5.0.18 upd ates the d efault vit al type IE Ns with th e local
  40    * values.
  41    * 
  42    * ******* **********   Version  1  ******* **********
  43    * User: V haishandri a Date: 5/ 16/06    T ime: 5:33p
  44    * Created  in $/Vita ls/Vitals- 5-0-18/VIT ALS-5-0-18 /VitalsCom mon
  45    * 
  46    * ******* **********   Version  1  ******* **********
  47    * User: V haishandri a Date: 5/ 24/05    T ime: 3:33p
  48    * 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
  49    * 
  50    * ******* **********   Version  1  ******* **********
  51    * User: V haishandri a Date: 4/ 16/04    T ime: 4:17p
  52    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, CPRS,  Delphi 7) /VITALSCOM MON
  53    * 
  54    * ******* **********   Version  1  ******* **********
  55    * User: V haishandri a Date: 1/ 26/04    T ime: 1:06p
  56    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, Delph i7)/V5031- D7/Common
  57    * 
  58    * ******* **********   Version  1  ******* **********
  59    * User: V haishandri a Date: 10 /29/03   T ime: 4:14p
  60    * Created  in $/Vita ls503/Comm on
  61    * Version  5.0.3
  62    * 
  63    * ******* **********   Version  2  ******* **********
  64    * User: V haishandri a Date: 7/ 05/02    T ime: 3:49p
  65    * Updated  in $/Vita ls GUI Ver sion 5.0/C ommon
  66    * 
  67    * ******* **********   Version  1  ******* **********
  68    * User: V haishpetit d Date: 4/ 04/02    T ime: 3:53p
  69    * Created  in $/Vita ls GUI Ver sion 5.0/C ommon
  70    *
  71    *
  72   *
  73   ========== ========== ========== ========== ========== ========== ========== ==========
  74   }
  75  
  76   interface
  77  
  78   uses
  79     Windows,
  80     Messages ,
  81     SysUtils ,
  82     Classes,
  83     Graphics ,
  84     Controls ,
  85     Forms,
  86     Dialogs,
  87     StdCtrls ;
  88  
  89   type
  90     TfrmGMV_ AddVCQ = c lass(TForm )
  91       btnCan cel: TButt on;
  92       btnOK:  TButton;
  93       lbxVit als: TList Box;
  94       proced ure LoadVi tals;
  95       proced ure LoadCa tegory;
  96       proced ure LoadQu alifiers;
  97       proced ure lbxVit alsDblClic k(Sender:  TObject);
  98     private
  99       { Priv ate declar ations }
  100     public
  101       { Publ ic declara tions }
  102     end;
  103  
  104   var
  105     frmGMV_A ddVCQ: Tfr mGMV_AddVC Q;
  106  
  107   implementa tion
  108  
  109   uses uGMV_ Common, uG MV_FileEnt ry, uGMV_C onst, uGMV _GlobalVar s;
  110  
  111   {$R *.DFM}
  112  
  113   procedure  TfrmGMV_Ad dVCQ.LoadV itals;
  114   var
  115     i: integ er;
  116   begin
  117     for i :=  0 to GMVT ypes.Entri es.Count -  1 do
  118       lbxVit als.Items. AddObject( GMVTypes.E ntries[i],  GMVTypes. Entries.Ob jects[i]);
  119     Caption  := 'Add Vi tal';
  120   end;
  121  
  122   procedure  TfrmGMV_Ad dVCQ.LoadC ategory;
  123   var
  124     i: integ er;
  125   begin
  126     for i :=  0 to GMVC ats.Entrie s.Count -  1 do
  127       lbxVit als.Items. AddObject( GMVCats.En tries[i],  GMVCats.En tries.Obje cts[i]);
  128     Caption  := 'Add Vi tal Catego ry';
  129   end;
  130  
  131   procedure  TfrmGMV_Ad dVCQ.LoadQ ualifiers;
  132   var
  133     i: integ er;
  134   begin
  135     for i :=  0 to GMVQ uals.Entri es.Count -  1 do
  136       lbxVit als.Items. AddObject( GMVQuals.E ntries[i],  GMVQuals. Entries.Ob jects[i]);
  137     Caption  := 'Add Vi tal Qualif ier';
  138   end;
  139  
  140   procedure  TfrmGMV_Ad dVCQ.lbxVi talsDblCli ck(Sender:  TObject);
  141   begin
  142     GetParen tForm(Self ).Perform( CM_VITALSE LECTED,0,0 );
  143   end;
  144  
  145   end.