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

27.1 Files compared

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

27.2 Comparison summary

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

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

27.4 Active regular expressions

No regular expressions were active.

27.5 Comparison detail

  1   unit fGMV_ EditUserTe mplates;
  2   {
  3   ========== ========== ========== ========== ========== ========== ========== ==========
  4   *
  5   *       Ap plication:   Vitals
  6   *       Re vision:      $Revisio n: 1 $  $M odtime: 2/ 25/09 6:22 p $
  7   *       De veloper:      PII                                             
  8   *       Si te:          Hines OI FO
  9   *
  10   *       De scription:   Interfac e to the t emplate ed itor for g eneral use rs.
  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_EditUse rTemplates .pas $
  16   *
  17   * $History : fGMV_Edi tUserTempl ates.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: 1/ 26/04    T ime: 1:08p
  55    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, Delph i7)/V5031- D7/VitalsU ser
  56    * 
  57    * ******* **********   Version  1  ******* **********
  58    * User: V haishandri a Date: 10 /29/03   T ime: 4:15p
  59    * Created  in $/Vita ls503/Vita ls User
  60    * Version  5.0.3
  61    * 
  62    * ******* **********   Version  1  ******* **********
  63    * User: V haishandri a Date: 5/ 21/03    T ime: 1:18p
  64    * Created  in $/Vita ls GUI Ver sion 5.0/V italsUserN oCCOW
  65    * Pre CCO W Version  of Vitals  User
  66    * 
  67    * ******* **********   Version  6  ******* **********
  68    * User: V haishandri a Date: 10 /04/02   T ime: 4:50p
  69    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals User
  70    * Version  T32 
  71    *
  72    * ******* **********   Version  5  ******* **********
  73    * User: V haishandri a Date: 6/ 11/02    T ime: 4:48p
  74    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals User
  75    * 
  76    * ******* **********   Version  4  ******* **********
  77    * User: V haishpetit d Date: 6/ 06/02    T ime: 11:14 a
  78    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals User
  79    * Roll-up  to 5.0.0. 27
  80    * 
  81    * ******* **********   Version  3  ******* **********
  82    * User: V haishpetit d Date: 4/ 26/02    T ime: 11:33 a
  83    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals User
  84    *
  85    * ******* **********   Version  2  ******* **********
  86    * User: V haishpetit d Date: 4/ 12/02    T ime: 3:39p
  87    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals User
  88    * Done fo r the week
  89    *
  90    * ******* **********   Version  1  ******* **********
  91    * User: V haishpetit d Date: 4/ 04/02    T ime: 11:56 a
  92    * Created  in $/Vita ls GUI Ver sion 5.0/V itals User
  93    *
  94   *
  95   ========== ========== ========== ========== ========== ========== ========== ==========
  96   }
  97   interface
  98  
  99   uses
  100     Windows,
  101     Messages ,
  102     SysUtils ,
  103     Classes,
  104     Graphics ,
  105     Controls ,
  106     Forms,
  107     Dialogs,
  108     ExtCtrls ,
  109     StdCtrls ,
  110     uGMV_Com mon,
  111     uGMV_Con st,
  112     mGMV_Edi tTemplate,  Menus;
  113  
  114   type
  115     TfrmGMV_ EditUserTe mplates =  class(TFor m)
  116       GroupB ox1: TGrou pBox;
  117       Panel1 : TPanel;
  118       fraGMV _EditTempl ate1: Tfra GMV_EditTe mplate;
  119       lbxTem plates: TL istBox;
  120       Panel2 : TPanel;
  121       Panel3 : TPanel;
  122       btnSav eTemplate:  TButton;
  123       btnClo se: TButto n;
  124       Panel5 : TPanel;
  125       Panel6 : TPanel;
  126       Panel7 : TPanel;
  127       Panel8 : TPanel;
  128       btnDel ete: TButt on;
  129       btnNew Template:  TButton;
  130       Panel4 : TPanel;
  131       Panel9 : TPanel;
  132       MainMe nu1: TMain Menu;
  133       Vitals 1: TMenuIt em;
  134       Add1:  TMenuItem;
  135       Delete 1: TMenuIt em;
  136       Down1:  TMenuItem ;
  137       Up1: T MenuItem;
  138       File1:  TMenuItem ;
  139       A1: TM enuItem;
  140       Delete 2: TMenuIt em;
  141       N1: TM enuItem;
  142       Save1:  TMenuItem ;
  143       Close1 : TMenuIte m;
  144       proced ure lbxTem platesClic k(Sender:  TObject);
  145       proced ure btnClo seClick(Se nder: TObj ect);
  146       proced ure btnSav eTemplateC lick(Sende r: TObject );
  147       proced ure btnNew TemplateCl ick(Sender : TObject) ;
  148       proced ure GetTem plates;
  149       proced ure btnDel eteClick(S ender: TOb ject);
  150       proced ure lbxTem platesEnte r(Sender:  TObject);
  151       proced ure lbxTem platesExit (Sender: T Object);
  152       proced ure FormKe yDown(Send er: TObjec t; var Key : Word;
  153         Shif t: TShiftS tate);
  154       proced ure fraGMV _EditTempl ate1edtTem plateNameE nter(Sende r: TObject );
  155       proced ure fraGMV _EditTempl ate1edtTem plateNameE xit(Sender : TObject) ;
  156       proced ure fraGMV _EditTempl ate1edtTem plateDescr iptionExit (
  157         Send er: TObjec t);
  158       proced ure fraGMV _EditTempl ate1edtTem plateDescr iptionEnte r(
  159         Send er: TObjec t);
  160       proced ure fraGMV _EditTempl ate1lvVita lsEnter(Se nder: TObj ect);
  161       proced ure fraGMV _EditTempl ate1lvVita lsExit(Sen der: TObje ct);
  162       proced ure fraGMV _EditTempl ate1sbtnMo veUpClick( Sender: TO bject);
  163       proced ure fraGMV _EditTempl ate1sbtnAd dVitalClic k(Sender:  TObject);
  164     private
  165       { Priv ate declar ations }
  166     public
  167       { Publ ic declara tions }
  168     protecte d
  169       proced ure CleanU p;
  170       proced ure CMTemp lateUpdate d(var Mess age:TMessa ge); messa ge CM_Temp lateUpdate d;  //AAN  06/11/02
  171       proced ure CMTemp lateRefres hed(var Me ssage:TMes sage); mes sage CM_Te mplateRefr eshed;  // AAN 06/11/ 02
  172     end;
  173  
  174   var
  175     frmEditU serTemplat e: TfrmGMV _EditUserT emplates;
  176  
  177   procedure  EditUserTe mplates;
  178  
  179   implementa tion
  180  
  181   uses uGMV_ Template
  182   , uGMV_Eng ine;
  183  
  184   {$R *.DFM}
  185  
  186   procedure  EditUserTe mplates;
  187   begin
  188     if not A ssigned(fr mEditUserT emplate) t hen
  189       Applic ation.Crea teForm(Tfr mGMV_EditU serTemplat es,frmEdit UserTempla te);
  190  
  191     frmEditU serTemplat e.GetTempl ates;
  192     frmEditU serTemplat e.ShowModa l;
  193   end;
  194  
  195   procedure  TfrmGMV_Ed itUserTemp lates.lbxT emplatesCl ick(Sender : TObject) ;
  196   begin
  197     if lbxTe mplates.It emIndex >  -1 then
  198       if lbx Templates. Items.Obje cts[lbxTem plates.Ite mIndex] <>  nil then
  199         begi n
  200           fr aGMV_EditT emplate1.E nabled :=  True;
  201           bt nDelete.En abled := T rue;
  202           fr aGMV_EditT emplate1.E ditTemplat e :=
  203              TGMV_Templ ate(lbxTem plates.Ite ms.Objects [lbxTempla tes.ItemIn dex]);
  204           tr y
  205              if Self.Vi sible then
  206                lbxTempl ates.SetFo cus;
  207           ex cept
  208           en d;
  209         end
  210       else
  211         begi n
  212           fr aGMV_EditT emplate1.E nabled :=  False;
  213           bt nDelete.En abled := F alse;
  214           fr aGMV_EditT emplate1.E ditTemplat e := nil;
  215         end;
  216   end;
  217  
  218   procedure  TfrmGMV_Ed itUserTemp lates.Clea nUp;
  219   var
  220     aTemplat e:TGMV_Tem plate;
  221   begin
  222     while lb xTemplates .Items.Cou nt > 0 do
  223       begin
  224         aTem plate := T GMV_Templa te(lbxTemp lates.Item s.Objects[ 0]);
  225         Free AndNil(aTe mplate);
  226         lbxT emplates.I tems.Delet e(0);
  227       end;
  228   end;
  229  
  230   procedure  TfrmGMV_Ed itUserTemp lates.GetT emplates;
  231   var
  232     i: Integ er;
  233     Template s: TString List;
  234   begin
  235     try
  236       Templa tes := Get TemplateLi stByID('US R');
  237       CleanU p;
  238       for i  := 1 to Te mplates.Co unt - 1 do
  239         LbxT emplates.I tems.AddOb ject(Piece (Templates [i], '^',  4),
  240           TG MV_Templat e.CreateFr omXPAR(Tem plates[i]) );
  241     finally
  242       FreeAn dNil(Templ ates);
  243     end;
  244     if lbxTe mplates.It ems.Count  > 0 then
  245       begin
  246         lbxT emplates.S elected[0]  := True;
  247         lbxT emplatesCl ick(nil);
  248       end;
  249   end;
  250  
  251   procedure  TfrmGMV_Ed itUserTemp lates.btnC loseClick( Sender: TO bject);
  252   begin
  253     fraGMV_E ditTemplat e1.SaveTem plateIfCha nged;//AAN  06/11/02
  254     CleanUp;
  255     Close;
  256   end;
  257  
  258   procedure  TfrmGMV_Ed itUserTemp lates.btnS aveTemplat eClick(Sen der: TObje ct);
  259   var
  260     i: Integ er;
  261   begin
  262     i := lbx Templates. ItemIndex;
  263     fraGMV_E ditTemplat e1.SaveTem plate;
  264     GetTempl ates;
  265     lbxTempl ates.ItemI ndex := i;
  266     lbxTempl atesClick( nil);
  267   end;
  268  
  269   procedure  TfrmGMV_Ed itUserTemp lates.btnN ewTemplate Click(Send er: TObjec t);
  270   begin
  271     CreateNe wUserTempl ate;
  272     GetTempl ates;
  273   end;
  274  
  275   procedure  TfrmGMV_Ed itUserTemp lates.btnD eleteClick (Sender: T Object);
  276   var
  277     s: Strin g;
  278   begin
  279     if Messa geDlg('Del ete Templa te ' + lbx Templates. Items[lbxT emplates.I temIndex]  + '?',
  280       mtConf irmation,  [mbYes, mb No], 0) =  mrYes then
  281       begin
  282         s :=  deleteUse rTemplate( lbxTemplat es.Items[l bxTemplate s.ItemInde x]);
  283         if P iece(s, '^ ', 1) <> ' -1' then
  284           be gin
  285              fraGMV_Edi tTemplate1 .EditTempl ate := nil ;
  286              TGMV_Templ ate(lbxTem plates.Ite ms.Objects [lbxTempla tes.ItemIn dex]).Free ;
  287              lbxTemplat es.Items.D elete(lbxT emplates.I temIndex);
  288           en d
  289         else
  290           Me ssageDlg(' Unable to  delete tem plate ' +  Piece(s, ' ^', 2, 3),  mtError,  [mbOk], 0) ;
  291       end;
  292   end;
  293  
  294   //AAN 06/1 1/02 ----- ---------- ---------- ---------- ---------- ---------- --- Begin
  295   procedure  TfrmGMV_Ed itUserTemp lates.CMTe mplateUpda ted(var Me ssage: TMe ssage);
  296   begin
  297     btnSaveT emplate.En abled := T rue;
  298   end;
  299  
  300   procedure  TfrmGMV_Ed itUserTemp lates.CMTe mplateRefr eshed(var  Message: T Message);
  301   begin
  302     btnSaveT emplate.En abled := F alse;
  303   end;
  304   //AAN 06/1 1/02 ----- ---------- ---------- ---------- ---------- ---------- ----- End
  305   procedure  TfrmGMV_Ed itUserTemp lates.lbxT emplatesEn ter(Sender : TObject) ;
  306   begin
  307     GroupBox 1.Font.Sty le := [fsB old];
  308     lbxTempl ates.Color  := clInfo Bk;
  309   end;
  310  
  311   procedure  TfrmGMV_Ed itUserTemp lates.lbxT emplatesEx it(Sender:  TObject);
  312   begin
  313     GroupBox 1.Font.Sty le := [];
  314     lbxTempl ates.Color  := clwind ow;
  315   end;
  316  
  317   procedure  TfrmGMV_Ed itUserTemp lates.Form KeyDown(Se nder: TObj ect;
  318     var Key:  Word; Shi ft: TShift State);
  319   begin
  320     if Key =  VK_ESCAPE  then
  321       ModalR esult := m rCancel;
  322   end;
  323  
  324   procedure  TfrmGMV_Ed itUserTemp lates.fraG MV_EditTem plate1edtT emplateNam eEnter(
  325     Sender:  TObject);
  326   begin
  327     fraGMV_E ditTemplat e1.edtTemp lateNameEn ter(Sender );
  328     fraGMV_E ditTemplat e1.edtTemp lateName.C olor := cl InfoBk;
  329   end;
  330  
  331   procedure  TfrmGMV_Ed itUserTemp lates.fraG MV_EditTem plate1edtT emplateNam eExit(
  332     Sender:  TObject);
  333   begin
  334     fraGMV_E ditTemplat e1.edtTemp lateNameEx it(Sender) ;
  335     fraGMV_E ditTemplat e1.edtTemp lateName.C olor := cl Window;
  336   end;
  337  
  338   procedure  TfrmGMV_Ed itUserTemp lates.fraG MV_EditTem plate1edtT emplateDes criptionEx it(
  339     Sender:  TObject);
  340   begin
  341     fraGMV_E ditTemplat e1.edtTemp lateDescri ptionExit( Sender);
  342     fraGMV_E ditTemplat e1.edtTemp lateDescri ption.Colo r := clWin dow;
  343   end;
  344  
  345   procedure  TfrmGMV_Ed itUserTemp lates.fraG MV_EditTem plate1edtT emplateDes criptionEn ter(
  346     Sender:  TObject);
  347   begin
  348     fraGMV_E ditTemplat e1.edtTemp lateDescri ptionEnter (Sender);
  349     fraGMV_E ditTemplat e1.edtTemp lateDescri ption.Colo r := clInf oBk;
  350   end;
  351  
  352   procedure  TfrmGMV_Ed itUserTemp lates.fraG MV_EditTem plate1lvVi talsEnter(
  353     Sender:  TObject);
  354   begin
  355     fraGMV_E ditTemplat e1.lvVital sEnter(Sen der);
  356     fraGMV_E ditTemplat e1.lvVital s.Color :=  clInfoBk;
  357   end;
  358  
  359   procedure  TfrmGMV_Ed itUserTemp lates.fraG MV_EditTem plate1lvVi talsExit(
  360     Sender:  TObject);
  361   begin
  362     fraGMV_E ditTemplat e1.lvVital sExit(Send er);
  363     fraGMV_E ditTemplat e1.lvVital s.Color :=  clWindow;
  364   end;
  365  
  366   procedure  TfrmGMV_Ed itUserTemp lates.fraG MV_EditTem plate1sbtn MoveUpClic k(
  367     Sender:  TObject);
  368   begin
  369     fraGMV_E ditTemplat e1.acUpExe cute(Sende r);
  370   end;
  371  
  372   procedure  TfrmGMV_Ed itUserTemp lates.fraG MV_EditTem plate1sbtn AddVitalCl ick(
  373     Sender:  TObject);
  374   begin
  375     fraGMV_E ditTemplat e1.acAddEx ecute(Send er);
  376   end;
  377  
  378   end.
  379