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

14.1 Files compared

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

14.2 Comparison summary

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

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

14.4 Active regular expressions

No regular expressions were active.

14.5 Comparison detail

  1   unit fGMV_ DeviceSele ctor;
  2   {
  3   ========== ========== ========== ========== ========== ========== ========== ==========
  4   *
  5   *       Ap plication:   Vitals
  6   *       Re vision:      $Revisio n: 1 $  $M odtime: 3/ 02/09 9:47 a $
  7          Developer:       PII                   
  8   *       Si te:          Hines OI FO
  9   *
  10   *       De scription:   Form for  selecting  a kernel  device in  applicatio ns
  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_De viceSelect or.pas $
  16   *
  17   * $History : fGMV_Dev iceSelecto r.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:06p
  55    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, Delph i7)/V5031- D7/Common
  56    * 
  57    * ******* **********   Version  1  ******* **********
  58    * User: V haishandri a Date: 10 /29/03   T ime: 4:14p
  59    * Created  in $/Vita ls503/Comm on
  60    * Version  5.0.3
  61    * 
  62    * ******* **********   Version  4  ******* **********
  63    * User: V haishandri a Date: 7/ 18/02    T ime: 5:57p
  64    * Updated  in $/Vita ls GUI Ver sion 5.0/C ommon
  65    * 
  66    * ******* **********   Version  3  ******* **********
  67    * User: V haishandri a Date: 7/ 12/02    T ime: 5:01p
  68    * Updated  in $/Vita ls GUI Ver sion 5.0/C ommon
  69    * GUI Ver sion T28
  70    *
  71    * ******* **********   Version  2  ******* **********
  72    * User: V haishandri a Date: 7/ 05/02    T ime: 3:49p
  73    * Updated  in $/Vita ls GUI Ver sion 5.0/C ommon
  74    *
  75    * ******* **********   Version  1  ******* **********
  76    * User: V haishpetit d Date: 5/ 15/02    T ime: 12:12 p
  77    * Created  in $/Vita ls GUI Ver sion 5.0/C ommon
  78    * Initial  check-in
  79    *
  80    *
  81   *
  82   ========== ========== ========== ========== ========== ========== ========== ==========
  83   }
  84  
  85   interface
  86  
  87   uses
  88     Windows,
  89     Messages ,
  90     SysUtils ,
  91     Classes,
  92     Graphics ,
  93     Controls ,
  94     Forms,
  95     uGMV_Com mon,
  96     Dialogs,
  97     StdCtrls ,
  98     ComCtrls ,
  99     mGMV_Loo kup, ExtCt rls
  100     , mGMV_P rinterSele ctor
  101     ,uGMV_Co nst
  102     ;
  103  
  104   type
  105     TfrmGMV_ DeviceSele ctor = cla ss(TForm)
  106       Panel1 : TPanel;
  107       Panel2 : TPanel;
  108       btnOK:  TButton;
  109       btnCan cel: TButt on;
  110       dtpTim e: TDateTi mePicker;
  111       dtpDat e: TDateTi mePicker;
  112       fraPri nterSelect or: TfrGMV _PrinterSe lector;
  113       Panel3 : TPanel;
  114       gbQueu e: TGroupB ox;
  115       gbSele cted: TGro upBox;
  116       edDevi ce: TEdit;
  117       edTime : TEdit;
  118       Panel4 : TPanel;
  119       proced ure FormCr eate(Sende r: TObject );
  120       proced ure btnOKC lick(Sende r: TObject );
  121       proced ure dtpTim eChange(Se nder: TObj ect);
  122       proced ure dtpDat eChange(Se nder: TObj ect);
  123       proced ure fraPri nterSelect orExit(Sen der: TObje ct);
  124       proced ure FormKe yDown(Send er: TObjec t; var Key : Word;
  125         Shif t: TShiftS tate);
  126       proced ure gbQueu eEnter(Sen der: TObje ct);
  127       proced ure gbQueu eExit(Send er: TObjec t);
  128       proced ure gbSele ctedEnter( Sender: TO bject);
  129       proced ure gbSele ctedExit(S ender: TOb ject);
  130     private
  131       fDevic eString: s tring;
  132       fQueue DateTime:  Double;
  133       Curren tTime: TDa teTime;
  134  
  135       proced ure CM_Upd ateSelecti on(var Mes sage: TMes sage); mes sage CM_UP DATELOOKUP ;
  136       proced ure update DateTime;
  137     public
  138       { Publ ic declara tions }
  139  
  140     end;
  141  
  142     TFMDateT ime = Doub le;
  143  
  144   function G etKernelDe vice(var D eviceStrin g: string;  var Queue DateTime:  TFMDateTim e): Boolea n;
  145  
  146   implementa tion
  147  
  148   uses uGMV_ User, uGMV _Engine;
  149  
  150   {$R *.DFM}
  151  
  152   function G etKernelDe vice(var D eviceStrin g: string;  var Queue DateTime:  TFMDateTim e): Boolea n;
  153   var
  154     sID, sNa me: String ;
  155   begin
  156     with Tfr mGMV_Devic eSelector. Create(App lication)  do
  157       try
  158         sID  := GMVUser .Setting[u sLastVistA Printer];
  159         sNam e := getFi leField('3 .5','.01', sID);
  160         if s Name = ''  then
  161              fraPrinter Selector.C learSelect ion
  162         else
  163           be gin
  164              fraPrinter Selector.D eviceIEN : = sID;
  165              fraPrinter Selector.D eviceName  := sName;
  166              fraPrinter Selector.e dTarget.Te xt := sNam e;
  167   //           fraPrint erSelector .lblDevice .Caption : = sName;
  168              fraPrinter Selector.e dTarget.se lStart :=  1;
  169              fraPrinter Selector.e dTarget.se lLength :=  Length(sN ame);
  170              edDevice.T ext := sNa me;
  171           en d;
  172         btnO K.Enabled  := sID <>  '';
  173  
  174         Resu lt := (Sho wModal = m rOK);
  175         if R esult then
  176           be gin
  177              DeviceStri ng := fDev iceString;
  178              QueueDateT ime := fQu eueDateTim e;
  179           en d;
  180       finall y
  181         free ;
  182       end;
  183   end;
  184  
  185   procedure  TfrmGMV_De viceSelect or.FormCre ate(Sender : TObject) ;
  186   begin
  187     CurrentT ime := Now ;
  188     dtpDate. DateTime : = CurrentT ime;
  189     dtpDate. MinDate :=  trunc(Cur rentTime);
  190     dtpTime. DateTime : = CurrentT ime;
  191   end;
  192  
  193   procedure  TfrmGMV_De viceSelect or.btnOKCl ick(Sender : TObject) ;
  194   begin
  195     GMVUser. Setting[us LastVistaP rinter] :=  fraPrinte rSelector. DeviceIEN; // fraDevi ce.IEN;
  196     fDeviceS tring := f raPrinterS elector.De viceName;/ / fraDevic e.edtValue .Text;
  197     fQueueDa teTime :=  WindowsDat eTimeToFMD ateTime(tr unc(dtpDat e.Date) +  (dtpTime.T ime - trun c(dtpTime. Date)));
  198     ModalRes ult := mrO K;
  199   end;
  200  
  201   procedure  TfrmGMV_De viceSelect or.dtpTime Change(Sen der: TObje ct);
  202   begin
  203     if trunc (dtpDate.D ate) + fra c(dtpTime. Time) < Cu rrentTime  then
  204       dtpTim e.DateTime  := Curren tTime;
  205     UpdateDa teTime;
  206   end;
  207  
  208   procedure  TfrmGMV_De viceSelect or.dtpDate Change(Sen der: TObje ct);
  209   begin
  210     try
  211       if dtp Date.DateT ime < Curr entTime th en
  212         dtpD ate.DateTi me := Curr entTime;
  213     except
  214     end;
  215     UpdateDa teTime;
  216   end;
  217  
  218   procedure  TfrmGMV_De viceSelect or.CM_Upda teSelectio n(var Mess age: TMess age);
  219   begin
  220     btnOK.En abled := ( fraPrinter Selector.D eviceIEN < > '');
  221     btnOK.De fault := b tnOk.Enabl ed;
  222  
  223     edDevice .Text := f raPrinterS elector.De viceName;
  224     UpdateDa teTime;
  225   end;
  226  
  227   procedure  TfrmGMV_De viceSelect or.fraPrin terSelecto rExit(
  228     Sender:  TObject);
  229   begin
  230     btnOK.En abled := ( fraPrinter Selector.D eviceIEN < > '');
  231     btnOK.De fault := b tnOk.Enabl ed;
  232   end;
  233  
  234   procedure  TfrmGMV_De viceSelect or.FormKey Down(Sende r: TObject ;
  235     var Key:  Word; Shi ft: TShift State);
  236   begin
  237      if Key  = VK_ESCAP E then Mod alResult : = mrCancel ;
  238   end;
  239  
  240   procedure  TfrmGMV_De viceSelect or.updateD ateTime;
  241   begin
  242     edTime.T ext := For matDateTim e('mm/dd/y yyy',dtpDa te.Date)+  ' '+
  243                     For matDateTim e('hh:mm:s s',dtpTime .Time);
  244   end;
  245  
  246   procedure  TfrmGMV_De viceSelect or.gbQueue Enter(Send er: TObjec t);
  247   begin
  248     gbQueue. Font.Style  := [fsBol d];
  249     dtpDate. Font.Style  := [];
  250     dtpTime. Font.Style  := [];
  251   end;
  252  
  253   procedure  TfrmGMV_De viceSelect or.gbQueue Exit(Sende r: TObject );
  254   begin
  255       gbQueu e.Font.Sty le := [];
  256   end;
  257  
  258   procedure  TfrmGMV_De viceSelect or.gbSelec tedEnter(S ender: TOb ject);
  259   begin
  260     gbSelect ed.Font.St yle := [fs Bold];
  261     edDevice .FOnt.Styl e := [];
  262     edTime.F Ont.Style  := [];
  263   end;
  264  
  265   procedure  TfrmGMV_De viceSelect or.gbSelec tedExit(Se nder: TObj ect);
  266   begin
  267     gbSelect ed.Font.St yle := [];
  268   end;
  269  
  270   end.
  271