21. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 7/13/2017 1:08:06 PM 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.

21.1 Files compared

# Location File Last Modified
1 v31B.zip\v31B\377\OR_30_377V235_SRC\Cover Sheet mCoverSheetDisplayPanel_CPRS_Vitals.pas Wed May 17 14:56:10 2017 UTC
2 v31B.zip\v31B\377\OR_30_377V235_SRC\Cover Sheet mCoverSheetDisplayPanel_CPRS_Vitals.pas Thu Jul 13 14:44:40 2017 UTC

21.2 Comparison summary

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

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

21.4 Active regular expressions

No regular expressions were active.

21.5 Comparison detail

  1   unit mCove rSheetDisp layPanel_C PRS_Vitals ;
  2   {
  3     ======== ========== ========== ========== ========== ========== ========== ========== ==
  4     *
  5     *        Applicatio n:  CPRS -  CoverShee t
  6       *         Developer:       PII                   
  7     *        Site:          Salt L ake City I SC
  8     *        Date:          2015-1 2-21
  9     *
  10     *        Descriptio n:  Vitals  display p anel for C PRS Covers heet.
  11     *
  12     *        Notes:
  13     *
  14     ======== ========== ========== ========== ========== ========== ========== ========== ==
  15   }
  16  
  17   interface
  18  
  19   uses
  20     Winapi.W indows,
  21     Winapi.M essages,
  22     System.S ysUtils,
  23     System.V ariants,
  24     System.C lasses,
  25     System.U ITypes,
  26     System.I mageList,
  27     Vcl.Grap hics,
  28     Vcl.Cont rols,
  29     Vcl.Form s,
  30     Vcl.Dial ogs,
  31     Vcl.ExtC trls,
  32     Vcl.Menu s,
  33     Vcl.ImgL ist,
  34     Vcl.ComC trls,
  35     Vcl.StdC trls,
  36     Vcl.Butt ons,
  37     mCoverSh eetDisplay Panel_CPRS ,
  38     iCoverSh eetIntf,
  39     oDelimit edString;
  40  
  41   type
  42     TfraCove rSheetDisp layPanel_C PRS_Vitals  = class(T fraCoverSh eetDisplay Panel_CPRS )
  43     private
  44       fSepar ator: TMen uItem;
  45       fUpdat eVitals: T MenuItem;
  46     protecte d
  47       { Inhe rited even ts - TfraG ridPanel }
  48       proced ure OnPopu pMenu(Send er: TObjec t); overri de;
  49       proced ure OnPopu pMenuInit( Sender: TO bject); ov erride;
  50       proced ure OnPopu pMenuFree( Sender: TO bject); ov erride;
  51  
  52       { Inhe rited even ts - TfraC overSheetD isplayPane l_CPRS }
  53       proced ure OnAddI tems(aList : TStrings ); overrid e;
  54       proced ure OnGetD etail(aRec : TDelimit edString;  aDetail: T Strings);  override;
  55  
  56       { Intr oduced Eve nts }
  57       proced ure OnUpda teVitals(S ender: TOb ject); vir tual;
  58     public
  59       constr uctor Crea te(aOwner:  TComponen t); overri de;
  60     end;
  61  
  62   var
  63     fraCover SheetDispl ayPanel_CP RS_Vitals:  TfraCover SheetDispl ayPanel_CP RS_Vitals;
  64  
  65   implementa tion
  66  
  67   {$R *.dfm}
  68  
  69  
  70   uses
  71     ORFn,
  72     ORNet,
  73     rMisc,
  74     uCore,
  75     uVitals;
  76  
  77   { TfraCove rSheetDisp layPanel_C PRS_Vitals  }
  78  
  79   constructo r TfraCove rSheetDisp layPanel_C PRS_Vitals .Create(aO wner: TCom ponent);
  80   begin
  81     inherite d;
  82     AddColum n(0, 'Vita l');
  83     AddColum n(1, 'Valu e');
  84     AddColum n(2, 'Date  Taken');
  85     AddColum n(3, 'Conv . Value');
  86     Collapse Columns;
  87   end;
  88  
  89   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nPopupMenu (Sender: T Object);
  90   begin
  91     inherite d;
  92  
  93     fUpdateV itals.Enab led := Tru e;
  94   end;
  95  
  96   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nPopupMenu Free(Sende r: TObject );
  97   begin
  98     FreeAndN il(fSepara tor);
  99     FreeAndN il(fUpdate Vitals);
  100  
  101     inherite d;
  102   end;
  103  
  104   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nPopupMenu Init(Sende r: TObject );
  105   begin
  106     inherite d;
  107  
  108     fSeparat or := NewL ine;
  109     fUpdateV itals := N ewItem('Up date Vital s ...', 0,  False, Tr ue, OnUpda teVitals,  0, 'pmnVit als_Update Vitals');
  110  
  111     pmn.Item s.Add(fSep arator);
  112     pmn.Item s.Add(fUpd ateVitals) ;
  113   end;
  114  
  115   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nUpdateVit als(Sender : TObject) ;
  116   var
  117     aFunctio nAddr: TGM V_VitalsVi ewForm;
  118     aFunctio nName: Ans iString;
  119     aRtnRec:  TDllRtnRe c;
  120     aStartDa te: string ;
  121   begin
  122     { Availb le Forms:
  123       GMV_FN ame :='GMV _VitalsEnt erDLG';
  124       GMV_FN ame :='GMV _VitalsEnt erForm';
  125       GMV_FN ame :='GMV _VitalsVie wForm';
  126       GMV_FN ame :='GMV _VitalsVie wDLG';
  127     }
  128     try
  129       aFunct ionName :=  'GMV_Vita lsViewDLG' ;
  130       aRtnRe c := LoadV italsDLL;
  131  
  132       case a RtnRec.Ret urn_Type o f
  133         DLL_ Success:
  134           tr y
  135              @aFunction Addr := Ge tProcAddre ss(VitalsD LLHandle,  PAnsiChar( aFunctionN ame));
  136              if Assigne d(aFunctio nAddr) the n
  137                begin
  138                  if Pat ient.Inpat ient then
  139                    aSta rtDate :=  FormatDate Time('mm/d d/yy', Now  - 7)
  140                  else
  141                    aSta rtDate :=  FormatDate Time('mm/d d/yy', Inc Month(Now,  -6));
  142  
  143                  aFunct ionAddr(RP CBrokerV,  Patient.DF N, IntToSt r(Encounte r.Location ), aStartD ate, Forma tDateTime( 'mm/dd/yy' , Now), GM V_APP_SIGN ATURE, GMV _CONTEXT,  GMV_CONTEX T, Patient .Name, For mat('%s     %d', [Pat ient.SSN,  Patient.Ag e]), Encou nter.Locat ionName +  U);
  144                end
  145              else
  146                MessageD LG('Can''t  find func tion "GMV_ VitalsView DLG".', mt Error, [mb ok], 0);
  147           ex cept
  148              on E: Exce ption do
  149                MessageD LG('Error  running Vi tals Lite:  ' + E.Mes sage, mtEr ror, [mbok ], 0);
  150           en d;
  151         DLL_ Missing:
  152           be gin
  153              TaskMessag eDlg('File  Missing o r Invalid' , aRtnRec. Return_Mes sage, mtEr ror, [mbok ], 0);
  154           en d;
  155         DLL_ VersionErr :
  156           be gin
  157              TaskMessag eDlg('Inco rrect Vers ion Found' , aRtnRec. Return_Mes sage, mtEr ror, [mbok ], 0);
  158           en d;
  159       end;
  160     finally
  161       @aFunc tionAddr : = nil;
  162       Unload VitalsDLL;
  163     end;
  164  
  165     CoverShe et.OnRefre shPanel(Se lf, CV_CPR S_VITL);
  166     CoverShe et.OnRefre shPanel(Se lf, CV_CPR S_RMND);
  167   end;
  168  
  169   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nAddItems( aList: TSt rings);
  170   var
  171     aRec: TD elimitedSt ring;
  172     aStr: st ring;
  173   begin
  174     if aList .Count = 0  then
  175       aList. Add('^No V itals Foun d.');
  176  
  177     try
  178       lvData .Items.Beg inUpdate;
  179       for aS tr in aLis t do
  180         begi n
  181           aR ec := TDel imitedStri ng.Create( aStr);
  182  
  183           if  lvData.It ems.Count  = 0 then
  184              if aRec.Ge tPieceIsNu ll(1) and  (aList.Cou nt = 1) th en
  185                Collapse Columns
  186              else
  187                ExpandCo lumns;
  188  
  189           wi th lvData. Items.Add  do
  190              begin
  191                Caption  := aRec.Ge tPiece(2);
  192                SubItems .Add(aRec. GetPiece(5 ));
  193                SubItems .Add(Forma tDateTime( DT_FORMAT,  aRec.GetP ieceAsTDat eTime(4))) ;
  194                SubItems .Add(aRec. GetPiece(6 ));
  195                Data :=  aRec;
  196              end;
  197         end;
  198     finally
  199       lvData .Items.End Update;
  200     end;
  201   end;
  202  
  203   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nGetDetail (aRec: TDe limitedStr ing; aDeta il: TStrin gs);
  204   var
  205     aDateTim e: TDateTi me;
  206   begin
  207     aDateTim e := FMDat eTimeToDat eTime(aRec .GetPieceA sDouble(4) );
  208     aDetail. Clear;
  209     aDetail. Add(Format ('%s %s',  ['Vital .. ........',  aRec.GetP ieceAsStri ng(2)]));
  210     aDetail. Add(Format ('%s %s',  ['Date/Tim e ......',  FormatDat eTime('MMM  DD, YYYY@ hh:mm', aD ateTime)]) );
  211     aDetail. Add(Format ('%s %s',  ['Value .. ........',  aRec.GetP ieceAsStri ng(5)]));
  212     aDetail. Add(Format ('%s %s',  ['Conv. Va lue ....',  aRec.GetP ieceAsStri ng(6)]));
  213     aDetail. Add(Format ('%s %s',  ['Qualifie rs .....',  aRec.GetP ieceAsStri ng(7)]));
  214   end;
  215  
  216   end.

Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.