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

16.1 Files compared

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

16.2 Comparison summary

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

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

16.4 Active regular expressions

No regular expressions were active.

16.5 Comparison detail

  1   unit fGMV_ NewTemplat e;
  2   {
  3   ========== ========== ========== ========== ========== ========== ========== ==========
  4   *
  5   *       Ap plication:   Vitals
  6   *       Re vision:      $Revisio n: 1 $  $M odtime: 12 /20/07 12: 43p $
  7          Developer:       PII                   
  8   *       Si te:          Hines OI FO
  9   *
  10   *       De scription:   Create f orm for a  new vitals  input tem plate.
  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_Ne wTemplate. pas $
  16   *
  17   * $History : fGMV_New Template.p as $
  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:13p
  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  3  ******* **********
  58    * User: V haishandri a Date: 8/ 02/02    T ime: 4:14p
  59    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  60    * Weekly  backup
  61    * 
  62    * ******* **********   Version  2  ******* **********
  63    * User: V haishpetit d Date: 6/ 06/02    T ime: 11:11 a
  64    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  65    * Roll-up  to 5.0.0. 27
  66    *
  67    * ******* **********   Version  1  ******* **********
  68    * User: V haishpetit d Date: 4/ 04/02    T ime: 3:42p
  69    * Created  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  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     ExtCtrls ,
  89   //  TRPCB,
  90     uGMV_Com mon,
  91     mGMV_Loo kup,
  92     uGMV_Tem plate
  93     ;
  94  
  95   type
  96     TfrmGMV_ NewTemplat e = class( TForm)
  97       rgTemp lateType:  TRadioGrou p;
  98       edtTem plateName:  TEdit;
  99       lblTyp e: TLabel;
  100       lblNam e: TLabel;
  101       btnCan cel: TButt on;
  102       btnOK:  TButton;
  103       edtTem plateDescr iption: TE dit;
  104       Label1 : TLabel;
  105       fraEnt ityLookup:  TfraGMV_L ookup;
  106       proced ure rgTemp lateTypeCl ick(Sender : TObject) ;
  107       proced ure btnOKC lick(Sende r: TObject );
  108       proced ure FormCr eate(Sende r: TObject );
  109     private
  110   //    FBro ker: TRPCB roker;
  111       { Priv ate declar ations }
  112     public
  113       { Publ ic declara tions }
  114     end;
  115  
  116   var
  117     frmGMV_N ewTemplate : TfrmGMV_ NewTemplat e;
  118  
  119   //function  CreateNew Template(B roker: TRP CBroker):  TGMV_Templ ate;
  120   function C reateNewTe mplate: TG MV_Templat e;
  121  
  122   implementa tion
  123  
  124   uses uGMV_ Const
  125   //, fROR_P Call
  126   , uGMV_Eng ine;
  127  
  128   {$R *.DFM}
  129  
  130   //function  CreateNew Template(B roker: TRP CBroker):  TGMV_Templ ate;
  131   function C reateNewTe mplate: TG MV_Templat e;
  132   var
  133     s,ss:Str ing;
  134     Entity:  string;
  135   begin
  136     with Tfr mGMV_NewTe mplate.Cre ate(applic ation) do
  137     try
  138       ShowMo dal;
  139   //    FBro ker := Bro ker;
  140       if Mod alResult < > mrOK the n
  141         Resu lt := nil
  142       else
  143         begi n
  144           ca se rgTempl ateType.It emIndex of
  145              0: Entity  := 'SYS';
  146              1: Entity  := fraEnti tyLookup.I EN + ';DIC (4,';
  147              2: Entity  := fraEnti tyLookup.I EN + ';SC( ';
  148              3: Entity  := fraEnti tyLookup.I EN + ';VA( 200,';
  149           en d;
  150           s  := edtTemp lateDescri ption.Text ;
  151           ss  := edtTem plateName. Text;
  152  
  153   //         CallREMOTE Proc(Broke r, RPC_MAN AGER,['NEW TEMP', Ent ity + '^'  + edtTempl ateName.Te xt + '^' +  edtTempla teDescript ion.Text],            nil);
  154   //         if piece(B roker.Resu lts[0], '^ ') = '-1'  then
  155           s  := NewTemp late(Entit y,edtTempl ateName.Te xt,edtTemp lateDescri ption.Text );
  156           if  piece(s,  '^') = '-1 ' then
  157              begin
  158                MessageD lg('Unable  to Create  New Templ ate'
  159   //              + #13  +'Reason: '+#13+'<'+  piece(s,  '^',2)+'>'
  160                  ,
  161                  mtErro r, [mbOK],  0);
  162                Result : = nil;
  163              end
  164           el se
  165   //           Result : = TGMV_Tem plate.Crea teFromXPAR (Broker.Re sults[0]);
  166              Result :=  TGMV_Templ ate.Create FromXPAR(s );
  167         end;
  168     finally
  169       free;
  170     end;
  171   end;
  172  
  173   procedure  TfrmGMV_Ne wTemplate. rgTemplate TypeClick( Sender: TO bject);
  174   begin
  175     fraEntit yLookup.En abled := ( rgTemplate Type.ItemI ndex > 0);
  176     lblType. Caption :=  rgTemplat eType.Item s[rgTempla teType.Ite mIndex] +  ' Name:';
  177     if rgTem plateType. ItemIndex  > 0 then
  178       begin
  179   //      fr aEntityLoo kup.InitFr ame(RPCBro ker, piece ('4^44^200 ', '^', rg TemplateTy pe.ItemInd ex));
  180         fraE ntityLooku p.InitFram e(piece('4 ^44^200',  '^', rgTem plateType. ItemIndex) );
  181         fraE ntityLooku p.Enabled  := True;
  182       end
  183     else
  184       begin
  185         fraE ntityLooku p.edtValue .Text := ' SYSTEM';
  186         fraE ntityLooku p.Enabled  := False;
  187       end;
  188   end;
  189  
  190   procedure  TfrmGMV_Ne wTemplate. btnOKClick (Sender: T Object);
  191   begin
  192     if rgTem plateType. ItemIndex  < 0 then
  193       Messag eDlg('Plea se select  a Template  Type', mt Informatio n, [mbok],  0)
  194     else if  (fraEntity Lookup.IEN  = '') and  (rgTempla teType.Ite mIndex > 0 ) then
  195       Messag eDlg('Plea se select  a ' + rgTe mplateType .Items[rgT emplateTyp e.ItemInde x], mtInfo rmation, [ mbok], 0)
  196     else if  edtTemplat eName.Text  = '' then
  197       Messag eDlg('Plea se enter a  name for  this templ ate.', mtI nformation , [mbok],  0)
  198     else
  199       ModalR esult := m rOK;
  200   end;
  201  
  202   procedure  TfrmGMV_Ne wTemplate. FormCreate (Sender: T Object);
  203   begin
  204     rgTempla teType.Ite mIndex :=  0;
  205     edtTempl ateName.Te xt := '';
  206     edtTempl ateDescrip tion.Text  := '';
  207   end;
  208  
  209   end.
  210