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

17.1 Files compared

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

17.2 Comparison summary

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

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

17.4 Active regular expressions

No regular expressions were active.

17.5 Comparison detail

  1   unit mGMV_ VitalHiLo;
  2   {
  3   ========== ========== ========== ========== ========== ========== ========== ==========
  4   *
  5   *       Ap plication:   Vitals M anager
  6   *       Re vision:      $Revisio n: 1 $  $M odtime: 2/ 27/09 3:11 p $
  7          Developer:       PII                   
  8   *       Si te:          Hines OI FO
  9   *
  10   *       De scription:   Frame fo r entering  in Max/Mi n abnormal  values fo r vitals.
  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/mGMV_Vi talHiLo.pa s $
  16   *
  17   * $History : mGMV_Vit alHiLo.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:14p
  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  2  ******* **********
  46    * User: V haishandri a Date: 7/ 22/05    T ime: 3:51p
  47    * Updated  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: 5/ 24/05    T ime: 4:56p
  51    * 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
  52    * 
  53    * ******* **********   Version  1  ******* **********
  54    * User: V haishandri a Date: 4/ 16/04    T ime: 4:22p
  55    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, CPRS,  Delphi 7) /VITALSMAN AGER-503
  56    * 
  57    * ******* **********   Version  1  ******* **********
  58    * User: V haishandri a Date: 1/ 26/04    T ime: 1:09p
  59    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, Delph i7)/V5031- D7/VitalsM anager
  60    * 
  61    * ******* **********   Version  3  ******* **********
  62    * User: V haishandri a Date: 7/ 05/02    T ime: 3:49p
  63    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  64    * 
  65    * ******* **********   Version  2  ******* **********
  66    * User: V haishpetit d Date: 6/ 06/02    T ime: 11:12 a
  67    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  68    * Roll-up  to 5.0.0. 27
  69    * 
  70    * ******* **********   Version  1  ******* **********
  71    * User: V haishpetit d Date: 4/ 04/02    T ime: 3:44p
  72    * Created  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  73    *
  74    *
  75   *
  76   ========== ========== ========== ========== ========== ========== ========== ==========
  77   }
  78  
  79   interface
  80  
  81   uses
  82     Windows,
  83     Messages ,
  84     SysUtils ,
  85     Classes,
  86     Graphics ,
  87     Controls ,
  88     Forms,
  89     Dialogs,
  90     ComCtrls ,
  91     StdCtrls ,
  92     ExtCtrls ,
  93     uGMV_Com mon
  94   , uGMV_Vit alTypes;
  95  
  96   type
  97     TGMV_Vit alHiLo = (
  98       hlUnkn own,
  99       hlHigh ,
  100       hlLow) ;
  101   type
  102     TGMV_Vit alHiLoType  = (
  103       hltUnk nown,
  104       hltSys tolic,
  105       hltDia stolic,
  106       hltTem perature,
  107       hltRes piration,
  108       hltPul se,
  109       hltCVP ,
  110       hltO2S at);
  111  
  112   type
  113     TGMV_Vit alHiLoDefi nition = c lass(TObje ct)
  114     private
  115       FMinim um: intege r;
  116       FMaxim um: intege r;
  117       FIncre ment: inte ger;
  118       FVital Type: TGMV _VitalHiLo Type;
  119     public
  120       constr uctor Crea te(
  121         Vita lType: TGM V_VitalHiL oType;
  122         Mini mum: integ er;
  123         Maxi mum: integ er;
  124         Incr ement: int eger);
  125   //    dest ructor Des troy; over ride;
  126     publishe d
  127       proper ty VitalTy pe: TGMV_V italHiLoTy pe
  128         read  FVitalTyp e;
  129       proper ty Maximum : integer
  130         read  FMaximum;
  131       proper ty Minimum : integer
  132         read  FMinimum;
  133       proper ty Increme nt: intege r
  134         read  FIncremen t;
  135     end;
  136  
  137  
  138   type
  139     TfraVita lHiLo = cl ass(TFrame )
  140       Panel1 : TPanel;
  141       pnlVal ue: TPanel ;
  142       edtVal ue: TEdit;
  143       pnlSli der: TPane l;
  144       tkbar:  TTrackBar ;
  145       pnlHea der: TPane l;
  146       lblNam e: TLabel;
  147       lblHiL o: TLabel;
  148       lblRan ge: TLabel ;
  149       pnlMin Max: TPane l;
  150       lblMax : TLabel;
  151       lblMin : TLabel;
  152       pnlSpa cer: TPane l;
  153       gb: TG roupBox;
  154       proced ure pnlSli derResize( Sender: TO bject);
  155       proced ure tkbarC hange(Send er: TObjec t);
  156       functi on SetValu e(var NewV al: string ): Boolean ;
  157       functi on SaveVal ue: Boolea n;
  158       proced ure edtVal ueExit(Sen der: TObje ct);
  159       proced ure pnlVal ueResize(S ender: TOb ject);
  160     private
  161       FHighL ow: TGMV_V italHiLo;
  162       FVital Type: TGMV _VitalHiLo Type;
  163       { Priv ate declar ations }
  164     public
  165       proced ure SetUpF rame(
  166         Vita lType: TGM V_VitalHiL oType;
  167         High OrLow: TGM V_VitalHiL o;
  168         Mini mum, Maxim um, Increm ent: Integ er);
  169       functi on HiLoVal ue: Intege r;
  170       functi on CheckLi mits:Boole an;
  171       { Publ ic declara tions }
  172     end;
  173  
  174   const
  175     GMVVITAL HILO: arra y[TGMV_Vit alHiLo] of  string =  ('Unknown' , 'High',  'Low');
  176     GMVVITAL HILOTYPES:  array[TGM V_VitalHiL oType] of  string = (
  177          'Un known', 'S ystolic',  'Diastolic ', 'Temper ature', 'R espiration ', 'Pulse' , 'CVP', ' Pulse Oxim etry');//A AN 2003/06 /04 'Pulse  Oximetry'
  178     GMVVital HiLoFields : array[TG MV_VitalHi LoType, TG MV_VitalHi Lo] of str ing =
  179       (('',' ','')
  180       ,('',' 5.7','5.8' )   // Sys tolic
  181       ,('',' 5.71','5.8 1') // Dia stolic
  182       ,('',' 5.1','5.2' )   // Tem perature
  183       ,('',' 5.5','5.6' )   // Res piration
  184       ,('',' 5.3','5.4' )   // Pul se
  185       ,('',' 6.1','6.2' )   // CVP
  186       ,('',' ','6.3')       // Pul se Ox
  187       );
  188   var
  189   //  GMVVit alHiLoFiel ds: array[ TGMV_Vital HiLoType,  TGMV_Vital HiLo] of s tring;
  190     GMVVital HiRange: a rray[TVita lType] of  Double;
  191     GMVVital LoRange: a rray[TVita lType] of  Double;
  192  
  193  
  194   implementa tion
  195  
  196   uses
  197   //  uROR_R PCBroker,  fROR_PCall ,
  198     uGMV_Eng ine;
  199  
  200   {$R *.DFM}
  201  
  202   const
  203     RPC_MANA GER = 'GMV  MANAGER';
  204  
  205   { TGMV_Vit alHiLoDefi nition }
  206  
  207   constructo r TGMV_Vit alHiLoDefi nition.Cre ate(
  208     VitalTyp e: TGMV_Vi talHiLoTyp e;
  209     Minimum,  Maximum,  Increment:  integer);
  210   begin
  211     inherite d Create;
  212     FVitalTy pe := Vita lType;
  213     FMinimum  := Minimu m;
  214     FMaximum  := Maximu m;
  215     FIncreme nt := Incr ement;
  216   end;
  217  
  218  
  219   { TfraVita lHiLo }
  220  
  221   procedure  TfraVitalH iLo.SetUpF rame(
  222     VitalTyp e: TGMV_Vi talHiLoTyp e;
  223     HighOrLo w: TGMV_Vi talHiLo;
  224     Minimum,  Maximum,  Increment:  Integer);
  225   var
  226     InitVal:  Integer;
  227     s,
  228     textVal:  string;
  229   begin
  230     FVitalTy pe := Vita lType;
  231     FHighLow  := HighOr Low;
  232     lblName. Caption :=  GMVVITALH ILOTYPES[F VitalType] ;
  233     lblHiLo. Caption :=  GMVVITALH ILO[FHighL ow];
  234     lblRange .Caption : = Format(' %d..%d',[M inimum,Max imum]);
  235  
  236     gb.Capti on := lblN ame.Captio n + '  ' +  lblHiLo.C aption;
  237     
  238     lblMin.C aption :=  IntToStr(M inimum);
  239     lblMax.C aption :=  IntToStr(M aximum);
  240     tkbar.Mi n := Minim um;
  241     tkbar.Ma x := Maxim um;
  242     tkbar.Fr equency :=  Increment ;
  243   //  CallRe moteProc(R PCBroker,R PC_MANAGER ,['GETHILO ', GMVVita lHiLoField s[FVitalTy pe, FHighL ow]],nil);
  244     s := get VitalHiLo( GMVVitalHi LoFields[F VitalType,  FHighLow] );
  245   //  InitVa l := StrTo IntDef(RPC Broker.Res ults[0], 9 999);
  246     InitVal  := StrToIn tDef(s, 99 99);
  247     if (Init Val < tkba r.Min) or  (InitVal >  tkBar.Max ) then
  248       begin
  249         Mess ageDlg('In valid valu e retrieve d ' + s, m tInformati on, [mbok] , 0);
  250         tkba r.Position  := tkbar. Min;
  251         edtV alue.Text  := IntToSt r(tkbar.Mi n);
  252       end
  253     else
  254       begin
  255         text Val := Int ToStr(Init Val);
  256         SetV alue(textV al);
  257         edtV alue.Text  := textVal ;
  258       end;
  259   end;
  260  
  261   function T fraVitalHi Lo.HiLoVal ue: Intege r;
  262   begin
  263     Result : = tkbar.Po sition;
  264   end;
  265  
  266   function T fraVitalHi Lo.SaveVal ue: Boolea n;
  267   var
  268     s: Strin g;
  269   begin
  270   //  CallRe moteProc(R PCBroker,  RPC_MANAGE R,['SETHIL O', GMVVit alHiLoFiel ds[FVitalT ype, FHigh Low] + '^'  + edtValu e.Text],ni l);
  271     s := set VitalHiLo( GMVVitalHi LoFields[F VitalType,  FHighLow] ,edtValue. Text);
  272   //  if Pie ce(RPCBrok er.Results [0], '^',  1) <> '-1'  then
  273     if Piece (s, '^', 1 ) <> '-1'  then
  274       Result  := True
  275     else
  276       begin
  277         Mess ageDlg('Er ror saving  abnormal  value.' +  #13 + piec e(s, '^',  2), mtErro r, [mbok],  0);
  278         Resu lt := Fals e;
  279       end;
  280   end;
  281  
  282   procedure  TfraVitalH iLo.pnlSli derResize( Sender: TO bject);
  283   begin
  284     tkbar.He ight := pn lSlider.He ight - (tk bar.Top *  2);
  285     pnlSpace r.Width :=  (pnlSlide r.Width -  tkbar.Widt h) div 2;
  286   end;
  287  
  288   procedure  TfraVitalH iLo.tkbarC hange(Send er: TObjec t);
  289   begin
  290     edtValue .Text := I ntToStr(tk bar.min +  (Abs(tkbar .Max - tkb ar.Positio n)));
  291   end;
  292  
  293   function T fraVitalHi Lo.SetValu e(var NewV al: string ): Boolean ;
  294   var
  295     i: integ er;
  296   begin
  297     i := Str ToIntDef(N ewVal, tkb ar.Max + 1 );
  298     if (i >  tkbar.Max)  or (i < t kbar.Min)  then
  299       begin
  300         Mess ageDlg('Pl ease enter  a value b etween ' +  IntToStr( tkbar.Min)  +
  301           '  and ' + In tToStr(tkb ar.Max) +  '.' + #13  +
  302           'P lease try  again.', m tError, [m bok], 0);
  303         NewV al := IntT oStr(tkbar .min + (Ab s(tkbar.Ma x - tkbar. Position)) );
  304         Resu lt := Fals e;
  305       end
  306     else
  307       begin
  308         tkba r.Position  := tkbar. Max - i +  tkbar.Min;
  309         Resu lt := True ;
  310       end;
  311     edtValue .Text := N ewVal;
  312   end;
  313  
  314   procedure  TfraVitalH iLo.edtVal ueExit(Sen der: TObje ct);
  315   var
  316     Value: s tring;
  317   begin
  318     Value :=  edtValue. Text;
  319     if not S etValue(Va lue) then
  320       begin
  321         edtV alue.Text  := Value;
  322         edtV alue.SetFo cus;
  323       end;
  324   end;
  325  
  326   procedure  TfraVitalH iLo.pnlVal ueResize(S ender: TOb ject);
  327   begin
  328     edtValue .Left := ( pnlValue.W idth - edt Value.widt h) div 2;
  329   end;
  330  
  331   function T fraVitalHi Lo.CheckLi mits:Boole an;
  332   var
  333     Value: s tring;
  334   begin
  335     Value :=  edtValue. Text;
  336     result : = SetValue (Value);
  337   end;
  338  
  339   end.
  340