15. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 2/17/2017 12:43:22 PM Central Standard 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.

15.1 Files compared

# Location File Last Modified
1 CPRS_V32_T20_cif.zip\OR_30_405V20_SRC.zip\CPRS-chart\Cover Sheet mCoverSheetDisplayPanel_CPRS_Vitals.pas Thu Dec 15 14:28:30 2016 UTC
2 CPRS_V32_T20_cif.zip\OR_30_405V20_SRC.zip\CPRS-chart\Cover Sheet mCoverSheetDisplayPanel_CPRS_Vitals.pas Fri Feb 17 17:19:07 2017 UTC

15.2 Comparison summary

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

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

15.4 Active regular expressions

No regular expressions were active.

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

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