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

16.1 Files compared

# Location File Last Modified
1 CPRS_V32_T20_cif.zip\OR_30_405V20_SRC.zip\CPRS-chart\Cover Sheet mCoverSheetDisplayPanel_CPRS_WH.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_WH.pas Fri Feb 17 17:19:08 2017 UTC

16.2 Comparison summary

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

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

16.4 Active regular expressions

No regular expressions were active.

16.5 Comparison detail

  1   unit mCove rSheetDisp layPanel_C PRS_WH;
  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-04
  9     *
  10     *        Descriptio n:  Inheri ted from T fraCoverSh eetDisplay Panel_CPRS . This
  11     *                       displa y panel ad ds the twe eks for pr operly dis playing
  12     *                       Womens  Health da ta in the  CPRS Cover Sheet.
  13     *
  14     *        Notes:
  15     *
  16     ======== ========== ========== ========== ========== ========== ========== ========== ==
  17   }
  18  
  19   interface
  20  
  21   uses
  22     Winapi.W indows,
  23     Winapi.M essages,
  24     System.S ysUtils,
  25     System.V ariants,
  26     System.C lasses,
  27     System.U ITypes,
  28     Vcl.Grap hics,
  29     Vcl.Cont rols,
  30     Vcl.Form s,
  31     Vcl.Dial ogs,
  32     Vcl.Menu s,
  33     Vcl.ImgL ist,
  34     Vcl.ComC trls,
  35     Vcl.StdC trls,
  36     Vcl.Butt ons,
  37     Vcl.ExtC trls,
  38     mCoverSh eetDisplay Panel_CPRS ,
  39     iCoverSh eetIntf,
  40     oDelimit edString;
  41  
  42   type
  43     TfraCove rSheetDisp layPanel_C PRS_WH = c lass(TfraC overSheetD isplayPane l_CPRS)
  44     private
  45       fValid Data: bool ean;
  46  
  47       fSepar ator: TMen uItem;
  48       fUpdat eData: TMe nuItem;
  49       fMarkA sEnteredIn Error: TMe nuItem;
  50       fWebSi tesRoot: T MenuItem;
  51     protecte d
  52       { Inhe rited even ts - TfraG ridPanel }
  53       proced ure OnPopu pMenu(Send er: TObjec t); overri de;
  54       proced ure OnPopu pMenuFree( Sender: TO bject); ov erride;
  55       proced ure OnPopu pMenuInit( Sender: TO bject); ov erride;
  56  
  57       { Inhe rited even ts - TfraC overSheetD isplayPane l_CPRS }
  58       proced ure OnAddI tems(aList : TStrings ); overrid e;
  59       proced ure OnGetD etail(aRec : TDelimit edString;  aResult: T Strings);  override;
  60  
  61       { Intr oduced eve nts }
  62       proced ure OnEnte redInError (Sender: T Object);
  63       proced ure OnUpda teData(Sen der: TObje ct);
  64       proced ure OnSele ctWebSite( Sender: TO bject);
  65     public
  66       constr uctor Crea te(aOwner:  TComponen t); overri de;
  67       destru ctor Destr oy; overri de;
  68     end;
  69  
  70   var
  71     fraCover SheetDispl ayPanel_CP RS_WH: Tfr aCoverShee tDisplayPa nel_CPRS_W H;
  72  
  73   implementa tion
  74  
  75   uses
  76     uCore,
  77     iWVInter face,
  78     ORNet;
  79  
  80   {$R *.dfm}
  81  
  82   { TfraCove rSheetDisp layPanel_C PRS_WH }
  83  
  84   constructo r TfraCove rSheetDisp layPanel_C PRS_WH.Cre ate(aOwner : TCompone nt);
  85   begin
  86     inherite d;
  87     fValidDa ta := Fals e;
  88   end;
  89  
  90   destructor  TfraCover SheetDispl ayPanel_CP RS_WH.Dest roy;
  91   begin
  92     inherite d;
  93   end;
  94  
  95   procedure  TfraCoverS heetDispla yPanel_CPR S_WH.OnAdd Items(aLis t: TString s);
  96   var
  97     aRec: TD elimitedSt ring;
  98     aStr: st ring;
  99   begin
  100     { This i s special  because I  have to de lete [0] b efore load ing }
  101     if aList .Count > 0  then
  102       begin
  103         fVal idData :=  StrToIntDe f(Copy(aLi st[0], 1,  1), 0) > 0 ;
  104         aLis t.Delete(0 );
  105       end;
  106  
  107     { Now lo ad piece 1  and 2 as  the Captio n }
  108     if aList .Count = 0  then
  109       with l vData.Item s.Add do
  110         begi n
  111           Ca ption := ' Not Applic able.';
  112           Da ta := TDel imitedStri ng.Create( '^Not Appl icable');
  113         end
  114     else
  115       for aS tr in aLis t do
  116         with  lvData.It ems.Add do
  117           be gin
  118              aRec := TD elimitedSt ring.Creat e(aStr);
  119              Caption :=  Format('% s %s', [aR ec.GetPiec e(2), aRec .GetPiece( 3)]);
  120              Data := aR ec;
  121           en d;
  122   end;
  123  
  124   procedure  TfraCoverS heetDispla yPanel_CPR S_WH.OnGet Detail(aRe c: TDelimi tedString;  aResult:  TStrings);
  125   begin
  126     CallVist A(CPRSPara ms.DetailR PC, [Patie nt.DFN, aR ec.GetPiec eAsInteger (1), aRec. GetPiece(1 )], aResul t);
  127   end;
  128  
  129   procedure  TfraCoverS heetDispla yPanel_CPR S_WH.OnPop upMenu(Sen der: TObje ct);
  130   var
  131     aRec: TD elimitedSt ring;
  132   begin
  133     inherite d;
  134  
  135     fUpdateD ata.Enable d := fVali dData;
  136  
  137     fMarkAsE nteredInEr ror.Enable d := False ;
  138     fMarkAsE nteredInEr ror.Captio n := 'Noth ing select ed to Mark  as entere d in error .';
  139  
  140     if lvDat a.Selected  <> nil th en
  141       if lvD ata.Select ed.Data <>  nil then
  142         begi n
  143           aR ec := TDel imitedStri ng(lvData. Selected.D ata);
  144           if  aRec.GetP ieceIsNotN ull(1) the n
  145              begin
  146                fMarkAsE nteredInEr ror.Enable d := True;
  147                fMarkAsE nteredInEr ror.Captio n := 'Mark  ''' + lvD ata.Select ed.Caption  + ''' as  entered in  error ... ';
  148              end;
  149         end;
  150   end;
  151  
  152   procedure  TfraCoverS heetDispla yPanel_CPR S_WH.OnPop upMenuFree (Sender: T Object);
  153   var
  154     aSubMenu : TMenuIte m;
  155   begin
  156     FreeAndN il(fSepara tor);
  157     FreeAndN il(fUpdate Data);
  158     FreeAndN il(fMarkAs EnteredInE rror);
  159     for aSub Menu in fW ebSitesRoo t do
  160       aSubMe nu.Free;
  161     fWebSite sRoot.Clea r;
  162     FreeAndN il(fWebSit esRoot);
  163     inherite d;
  164   end;
  165  
  166   procedure  TfraCoverS heetDispla yPanel_CPR S_WH.OnPop upMenuInit (Sender: T Object);
  167   var
  168     aSubMenu : TMenuIte m;
  169     i: integ er;
  170   begin
  171     inherite d;
  172  
  173     fSeparat or := NewL ine;
  174     fUpdateD ata := New Item('Upda te Data .. .', 0, Fal se, False,  OnUpdateD ata, 0, 'p mnWH_Updat eData');
  175     fMarkAsE nteredInEr ror := New Item('Mark  as Entere d In Error  ...', 0,  False, Fal se, OnEnte redInError , 0, 'pmnW H_EnteredI nError');
  176     fWebSite sRoot := N ewSubMenu( WomensHeal th.WebSite ListName,  0, 'pmnWH_ WebSites',  [], (Wome nsHealth.W ebSiteCoun t > 0));
  177  
  178     for i :=  0 to Wome nsHealth.W ebSiteCoun t - 1 do
  179       begin
  180         aSub Menu := Ne wItem(Wome nsHealth.W ebSite[i]. Name, 0, F alse, True , OnSelect WebSite, 0 , Format(' pmnWebSite _%d', [i]) );
  181         aSub Menu.Tag : = i;
  182         fWeb SitesRoot. Add(aSubMe nu);
  183       end;
  184  
  185     pmn.Item s.Add(fSep arator);
  186     pmn.Item s.Add(fUpd ateData);
  187     pmn.Item s.Add(fMar kAsEntered InError);
  188     pmn.Item s.Add(fWeb SitesRoot) ;
  189   end;
  190  
  191   procedure  TfraCoverS heetDispla yPanel_CPR S_WH.OnSel ectWebSite (Sender: T Object);
  192   var
  193     aWebSite : IWVWebSi te;
  194   begin
  195     WomensHe alth.WebSi te[TMenuIt em(Sender) .Tag].Quer yInterface (IWVWebSit e, aWebSit e);
  196     if aWebS ite = nil  then
  197       Messag eDlg('Unab le to get  WebSite in formation' , mtError,  [mbOk], 0 )
  198     else if  not Womens Health.Ope nExternalW ebsite(aWe bSite) the n
  199       Messag eDlg(Forma t('Error:  ', [Womens Health.Get LastError] ), mtError , [mbOk],  0);
  200   end;
  201  
  202   procedure  TfraCoverS heetDispla yPanel_CPR S_WH.OnEnt eredInErro r(Sender:  TObject);
  203   begin
  204     if lvDat a.Selected  <> nil th en
  205       if lvD ata.Select ed.Data <>  nil then
  206         with  TDelimite dString(lv Data.Selec ted.Data)  do
  207           if  WomensHea lth.MarkAs EnteredInE rror(GetPi ece(1)) th en
  208              begin
  209                CoverShe et.OnRefre shPanel(Se lf, CV_CPR S_WVHT); / / This is  me, just l etting the  CoverShee t do it's  thing!
  210                CoverShe et.OnRefre shPanel(Se lf, CV_CPR S_POST);
  211                CoverShe et.OnRefre shPanel(Se lf, CV_CPR S_RMND);
  212                CoverShe et.OnRefre shCWAD(Sel f);
  213              end
  214           el se
  215              MessageDlg (WomensHea lth.GetLas tError, mt Error, [mb Ok], 0);
  216   end;
  217  
  218   procedure  TfraCoverS heetDispla yPanel_CPR S_WH.OnUpd ateData(Se nder: TObj ect);
  219   begin
  220     if Women sHealth.Ed itPregLacD ata(Patien t.DFN) the n
  221       begin
  222         Cove rSheet.OnR efreshPane l(Self, CV _CPRS_WVHT ); // This  is me, ju st letting  the Cover Sheet do i t's thing!
  223         Cove rSheet.OnR efreshPane l(Self, CV _CPRS_POST );
  224         Cove rSheet.OnR efreshPane l(Self, CV _CPRS_RMND );
  225         Cove rSheet.OnR efreshCWAD (Self);
  226       end
  227     else
  228       Messag eDlg(Women sHealth.Ge tLastError , mtError,  [mbOk], 0 );
  229   end;
  230  
  231   end.

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