52. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 5/10/2019 1:00:05 PM Eastern 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.

52.1 Files compared

# Location File Last Modified
1 CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet oCoverSheetParam_CPRS_Reminders.pas Wed Apr 3 19:32:16 2019 UTC
2 CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet oCoverSheetParam_CPRS_Reminders.pas Thu May 9 00:51:38 2019 UTC

52.2 Comparison summary

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

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

52.4 Active regular expressions

No regular expressions were active.

52.5 Comparison detail

  1   unit oCove rSheetPara m_CPRS_Rem inders;
  2  
  3   {
  4     ======== ========== ========== ========== ========== ========== ========== ========== ==
  5     *
  6     *        Applicatio n:  CPRS -  CoverShee t
  7              Developer:       PII                   
  8     *        Site:          Salt L ake City I SC
  9     *        Date:          2015-1 2-04
  10     *
  11     *        Descriptio n:  Inheri ted from T CoverSheet Param_CPRS . Special  functions
  12     *                       for th e CLinical  Reminders  display
  13     *
  14     *        Notes:
  15     *
  16     ======== ========== ========== ========== ========== ========== ========== ========== ==
  17   }
  18   interface
  19  
  20   uses
  21     System.C lasses,
  22     System.S ysUtils,
  23     Vcl.Cont rols,
  24     oCoverSh eetParam_C PRS,
  25     iCoverSh eetIntf;
  26  
  27   type
  28     TCoverSh eetParam_C PRS_Remind ers = clas s(TCoverSh eetParam_C PRS,
  29       ICover SheetParam )
  30     protecte d
  31       functi on getDeta ilRPC: str ing; overr ide;
  32       functi on getMain RPC: strin g; overrid e;
  33  
  34       functi on NewCove rSheetCont rol(aOwner : TCompone nt): TCont rol; overr ide;
  35     public
  36       { Publ ic declara tions }
  37     end;
  38  
  39   implementa tion
  40  
  41   uses
  42     mCoverSh eetDisplay Panel_CPRS _Reminders , uReminde rs, uCore;
  43  
  44   { TCoverSh eetParam_C PRS_Remind ers }
  45  
  46   function T CoverSheet Param_CPRS _Reminders .getDetail RPC: strin g;
  47   begin
  48     { TODO 3  -oDanP -c Things Yet  Undone :  Something  about inte ractive re minders }
  49     // if In teractiveR eminders t hen
  50     // Resul t := 'ORQQ PXRM REMIN DER DETAIL '
  51     // else
  52     Result : = 'ORQQPX  REMINDER D ETAIL';
  53   end;
  54  
  55   function T CoverSheet Param_CPRS _Reminders .getMainRP C: string;
  56   begin
  57     if Inter activeRemi ndersActiv e then
  58     begin
  59       Result  := 'ORQQP XRM REMIND ERS APPLIC ABLE';
  60       setPar am1(IntToS tr(encount er.locatio n));
  61     end
  62     else
  63     begin
  64       Result  := 'ORQQP X REMINDER S LIST';
  65       setPar am1('');
  66     end;
  67  
  68   end;
  69  
  70   function T CoverSheet Param_CPRS _Reminders .NewCoverS heetContro l
  71     (aOwner:  TComponen t): TContr ol;
  72   begin
  73     Result : = TfraCove rSheetDisp layPanel_C PRS_Remind ers.Create (aOwner);
  74   end;
  75  
  76   end.