13. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/31/2017 10:45:41 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.

13.1 Files compared

# Location File Last Modified
1 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\APP-VITALSMANAGER fGMV_AddEditQualifier.pas Tue Dec 13 18:26:10 2016 UTC
2 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\APP-VITALSMANAGER fGMV_AddEditQualifier.pas Fri Mar 31 14:59:53 2017 UTC

13.2 Comparison summary

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

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

13.4 Active regular expressions

No regular expressions were active.

13.5 Comparison detail

  1   unit fGMV_ AddEditQua lifier;
  2   {
  3   ========== ========== ========== ========== ========== ========== ========== ==========
  4   *
  5   *       Ap plication:   Vitals
  6   *       Re vision:      $Revisio n: 1 $  $M odtime: 3/ 02/09 12:0 4p $
  7          Developer:       PII                   
  8   *       Si te:          Hines OI FO
  9   *
  10   *       De scription:   Form to  add/edit q ualifiers
  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/APP-V ITALSMANAG ER/fGMV_Ad dEditQuali fier.pas $
  16   *
  17   * $History : fGMV_Add EditQualif ier.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/APP-VITA LSMANAGER
  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/APP-VITA LSMANAGER
  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/APP-VITA LSMANAGER
  30    * 
  31    * ******* **********   Version  1  ******* **********
  32    * User: V haishandri a Date: 5/ 11/07    T ime: 3:12p
  33    * Created  in $/Vita ls GUI 200 7/Vitals-5 -0-18/APP- VITALSMANA GER
  34    *
  35    * ******* **********   Version  1  ******* **********
  36    * User: V haishandri a Date: 5/ 16/06    T ime: 5:40p
  37    * Created  in $/Vita ls/VITALS- 5-0-18/APP -VitalsMan ager
  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:30p
  43    * Created  in $/Vita ls/Vitals- 5-0-18/VIT ALS-5-0-18 /APP-Vital sManager
  44    * 
  45    * ******* **********   Version  1  ******* **********
  46    * User: V haishandri a Date: 5/ 24/05    T ime: 4:56p
  47    * Created  in $/Vita ls/Vitals  GUI  v 5.0 .2.1 -5.0. 3.1 - Patc h GMVR-5-7  (CASMed,  CCOW) - De lphi 6/Vit alsManager -503
  48    * 
  49    * ******* **********   Version  1  ******* **********
  50    * User: V haishandri a Date: 4/ 16/04    T ime: 4:21p
  51    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, CPRS,  Delphi 7) /VITALSMAN AGER-503
  52    * 
  53    * ******* **********   Version  1  ******* **********
  54    * User: V haishandri a Date: 1/ 26/04    T ime: 1:09p
  55    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, Delph i7)/V5031- D7/VitalsM anager
  56    * 
  57    * ******* **********   Version  7  ******* **********
  58    * User: V haishandri a Date: 11 /04/02   T ime: 9:15a
  59    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  60    * Version  5.0.0.0
  61    *
  62    * ******* **********   Version  6  ******* **********
  63    * User: V haishandri a Date: 8/ 23/02    T ime: 5:04p
  64    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  65    * 
  66    * ******* **********   Version  5  ******* **********
  67    * User: V haishandri a Date: 7/ 18/02    T ime: 5:56p
  68    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  69    * 1. Qual ifier name  case are  the same a s in Datab ase
  70    * 2. Qual ifier List  for the c ategory se lected is  updated af ter editin g
  71    * the qua lifier des cription
  72    * 3. Cate gories are  kept in L istView an d supplied  with a hi nt if not
  73    * enough  window spa ce
  74    * 4. Tree  view coul d not be s tretched m ore then 3 00 pixels  or shrunke n
  75    * less th en 150
  76    * 
  77    * ******* **********   Version  4  ******* **********
  78    * User: V haishandri a Date: 7/ 09/02    T ime: 5:00p
  79    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  80    * 
  81    * ******* **********   Version  3  ******* **********
  82    * User: V haishandri a Date: 6/ 13/02    T ime: 5:14p
  83    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  84    * 
  85    * ******* **********   Version  2  ******* **********
  86    * User: V haishpetit d Date: 6/ 06/02    T ime: 11:10 a
  87    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  88    * Roll-up  to 5.0.0. 27
  89    * 
  90    * ******* **********   Version  1  ******* **********
  91    * User: V haishpetit d Date: 4/ 04/02    T ime: 3:39p
  92    * Created  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  93    *
  94    *
  95   *
  96   ========== ========== ========== ========== ========== ========== ========== ==========
  97   }
  98  
  99   interface
  100  
  101   uses
  102     Windows,
  103     Messages ,
  104     SysUtils ,
  105     Classes,
  106     Graphics ,
  107     Controls ,
  108     Forms,
  109     Dialogs,
  110     StdCtrls ,
  111     uGMV_Com mon, Butto ns, ExtCtr ls, uGMV_F ileEntry;
  112  
  113   type
  114     TfrmGMV_ AddEditQua lifier = c lass(TForm )
  115       edtNam e: TEdit;
  116       edtAbb v: TEdit;
  117       Label1 : TLabel;
  118       Label2 : TLabel;
  119       Panel1 : TPanel;
  120       btnCan cel: TButt on;
  121       btnOK:  TButton;
  122       btnApp ly: TButto n;
  123       proced ure edtNam eChange(Se nder: TObj ect);
  124       proced ure edtNam eExit(Send er: TObjec t);
  125       proced ure edtAbb vExit(Send er: TObjec t);
  126       proced ure edtAbb vEnter(Sen der: TObje ct);
  127       proced ure edtAbb vChange(Se nder: TObj ect);
  128       proced ure edtNam eEnter(Sen der: TObje ct);
  129       proced ure btnApp lyClick(Se nder: TObj ect);
  130       proced ure edtNam eKeyPress( Sender: TO bject; var  Key: Char );
  131       proced ure btnOKC lick(Sende r: TObject );
  132     private
  133       FDD: s tring;
  134       FIENS:  string;
  135       FQuali fierRec: T GMV_FileEn try;
  136       FChang eMade: Boo lean;
  137       { Priv ate declar ations }
  138     public
  139       { Publ ic declara tions }
  140     end;
  141  
  142   var
  143     frmGMV_A ddEditQual ifier: Tfr mGMV_AddEd itQualifie r;
  144  
  145   function N ewQualifie r: TGMV_Fi leEntry;
  146   procedure  EditQualif ier(Qualif ier: TGMV_ FileEntry) ;
  147  
  148   implementa tion
  149  
  150   uses uGMV_ Const
  151    , uGMV_En gine
  152    ;
  153  
  154   {$R *.DFM}
  155  
  156   function N ewQualifie r: TGMV_Fi leEntry;
  157   var
  158     s,
  159     aNewQual ifier: str ing;
  160   begin
  161     Result : = nil;
  162     if Input Query('New  Qualifier ', 'Qualif ier Name ( 2-50 char) :', aNewQu alifier) t hen
  163       if aNe wQualifier  <> '' the n
  164         begi n
  165           s  := addNewQ ualifier(a NewQualifi er);
  166           if  piece(s,  '^', 1) =  '-1' then
  167              begin
  168                MessageD lg('Unable  to create  qualifier '+#13+piec e(s, '^',  2), mtErro r, [mbok],  0);
  169              end
  170           el se
  171              begin
  172                Result : = TGMV_Fil eEntry.Cre ateFromRPC (s);
  173                GMVQuals .Entries.A ddObject(R esult.Capt ion, Resul t);
  174                EditQual ifier({Bro ker, }Resu lt);
  175              end;
  176         end;
  177   end;
  178  
  179   procedure  EditQualif ier({Broke r: TRPCBro ker; }Qual ifier: TGM V_FileEntr y);
  180   begin
  181     with Tfr mGMV_AddEd itQualifie r.Create(A pplication ) do
  182       try
  183         FQua lifierRec  := Qualifi er;
  184         FDD  := Qualifi er.DDNumbe r;
  185         FIEN S := Quali fier.IENS;
  186         edtN ame.Text : = Qualifie r.FieldDat a('.01');
  187         edtA bbv.Text : = Qualifie r.FieldDat a('.02');
  188         Show Modal;
  189       finall y
  190         free ;
  191       end;
  192   end;
  193  
  194   procedure  TfrmGMV_Ad dEditQuali fier.edtNa meEnter(Se nder: TObj ect);
  195   begin
  196     FChangeM ade := Fal se;
  197     btnApply .Enabled : = False;// AAN 06/12/ 02
  198   end;
  199  
  200   procedure  TfrmGMV_Ad dEditQuali fier.edtNa meKeyPress (Sender: T Object; va r Key: Cha r);
  201   begin
  202   //AAN 07/1 8/2002  if  Key in [' a'..'z'] t hen
  203   //AAN 07/1 8/2002     Dec(Key, 3 2);
  204   end;
  205  
  206   procedure  TfrmGMV_Ad dEditQuali fier.edtNa meChange(S ender: TOb ject);
  207   begin
  208     FChangeM ade := Tru e;
  209     btnApply .Enabled : = True;//A AN 06/12/0 2
  210   end;
  211  
  212   procedure  TfrmGMV_Ad dEditQuali fier.edtNa meExit(Sen der: TObje ct);
  213   var
  214     s: Strin g;
  215   begin
  216     if FChan geMade the n
  217       begin
  218         s :=  validateQ ualifierNa me(FDD,FIE NS,'.01',e dtName.tex t);
  219         if p iece(s, '^ ', 1) = '- 1' then
  220           be gin
  221              MessageDlg (piece(s,  '^', 2), m tError, [m bOK], 0);
  222              edtName.Te xt := FQua lifierRec. FieldData( '.01');
  223              edtName.Se tFocus;
  224           en d;
  225         FCha ngeMade :=  False;
  226         btnA pply.Enabl ed := Fals e;//AAN 06 /12/02
  227       end;
  228   end;
  229  
  230   procedure  TfrmGMV_Ad dEditQuali fier.edtAb bvEnter(Se nder: TObj ect);
  231   begin
  232     FChangeM ade := Fal se;
  233     btnApply .Enabled : = False;// AAN 06/12/ 02
  234   end;
  235  
  236   procedure  TfrmGMV_Ad dEditQuali fier.edtAb bvChange(S ender: TOb ject);
  237   begin
  238     FChangeM ade := Tru e;
  239     btnApply .Enabled : = True;//A AN 06/12/0 2
  240   end;
  241  
  242   procedure  TfrmGMV_Ad dEditQuali fier.edtAb bvExit(Sen der: TObje ct);
  243   var
  244     s: Strin g;
  245   begin
  246     if FChan geMade the n
  247       begin
  248         s :=  validateQ ualifierNa me(FDD,FIE NS,'.02',e dtAbbv.tex t);
  249         if p iece(s, '^ ', 1) = '- 1' then
  250           be gin
  251              MessageDlg (piece(s,  '^', 2), m tError, [m bOK], 0);
  252              edtAbbv.Te xt := FQua lifierRec. FieldData( '.02');
  253              edtAbbv.Se tFocus;
  254           en d;
  255         FCha ngeMade :=  False;
  256         btnA pply.Enabl ed := Fals e;//AAN 06 /12/02
  257       end;
  258   end;
  259  
  260   procedure  TfrmGMV_Ad dEditQuali fier.btnAp plyClick(S ender: TOb ject);
  261   var
  262     i: Integ er;
  263   begin
  264     i := GMV Quals.Entr ies.IndexO fObject(FQ ualifierRe c);// AAN  08/22/2002
  265  
  266     setQuali fierName(F DD,FIENS,' .01',edtNa me.text);
  267     setQuali fierName(F DD,FIENS,' .02',edtAb bv.text);
  268  
  269     FQualifi erRec.Capt ion := FQu alifierRec .FieldData ('.01');
  270     try
  271       GMVQua ls.Entries [i] := FQu alifierRec .Caption;
  272     except
  273     end;
  274     btnApply .Enabled : = False;// AAN 06/12/ 02
  275   end;
  276  
  277   procedure  TfrmGMV_Ad dEditQuali fier.btnOK Click(Send er: TObjec t);
  278   begin
  279     btnApply Click(Send er);
  280   end;
  281  
  282   end.