22. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/22/2018 8:26:00 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.

22.1 Files compared

# Location File Last Modified
1 OR_30_405V42.zip\OR_30_405V42_SRC\Cover Sheet mCoverSheetDisplayPanel_CPRS_WH.pas Wed Jan 17 18:08:08 2018 UTC
2 OR_30_405V42.zip\OR_30_405V42_SRC\Cover Sheet mCoverSheetDisplayPanel_CPRS_WH.pas Wed Mar 21 14:41:01 2018 UTC

22.2 Comparison summary

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

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

22.4 Active regular expressions

No regular expressions were active.

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

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