16. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 8/3/2017 2:38:21 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.

16.1 Files compared

# Location File Last Modified
1 V32.zip\V32\OR_30_405V28_SRC\Cover Sheet mCoverSheetDisplayPanel_CPRS_WH.pas Wed May 10 17:35:46 2017 UTC
2 V32.zip\V32\OR_30_405V28_SRC\Cover Sheet mCoverSheetDisplayPanel_CPRS_WH.pas Thu Aug 3 16:07:19 2017 UTC

16.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 496
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     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  
  83   {$R *.dfm}
  84  
  85   { TfraCove rSheetDisp layPanel_C PRS_WH }
  86  
  87   constructo r TfraCove rSheetDisp layPanel_C PRS_WH.Cre ate(aOwner : TCompone nt);
  88   begin
  89     inherite d;
  90     fValidDa ta := Fals e;
  91   end;
  92  
  93   destructor  TfraCover SheetDispl ayPanel_CP RS_WH.Dest roy;
  94   begin
  95     inherite d;
  96   end;
  97  
  98   procedure  TfraCoverS heetDispla yPanel_CPR S_WH.OnAdd Items(aLis t: TString s);
  99   var
  100     aRec: TD elimitedSt ring;
  101     aStr: st ring;
  102   begin
  103     { This i s special  because I  have to de lete [0] b efore load ing }
  104     if aList .Count > 0  then
  105       begin
  106         fVal idData :=  StrToIntDe f(Copy(aLi st[0], 1,  1), 0) > 0 ;
  107         aLis t.Delete(0 );
  108       end;
  109  
  110     { Now lo ad piece 1  and 2 as  the Captio n }
  111     if aList .Count = 0  then
  112       with l vData.Item s.Add do
  113         begi n
  114           Ca ption := ' Not Applic able.';
  115           Da ta := TDel imitedStri ng.Create( '^Not Appl icable');
  116         end
  117     else
  118       for aS tr in aLis t do
  119         with  lvData.It ems.Add do
  120           be gin
  121              aRec := TD elimitedSt ring.Creat e(aStr);
  122              Caption :=  Format('% s %s', [aR ec.GetPiec e(2), aRec .GetPiece( 3)]);
  123              Data := aR ec;
  124           en d;
  125   end;
  126  
  127   procedure  TfraCoverS heetDispla yPanel_CPR S_WH.OnGet Detail(aRe c: TDelimi tedString;  aResult:  TStrings);
  128   begin
  129     CallVist A(CPRSPara ms.DetailR PC, [Patie nt.DFN, aR ec.GetPiec eAsInteger (1), aRec. GetPiece(1 )], aResul t);
  130   end;
  131  
  132   procedure  TfraCoverS heetDispla yPanel_CPR S_WH.OnPop upMenu(Sen der: TObje ct);
  133   var
  134     aRec: TD elimitedSt ring;
  135   begin
  136     inherite d;
  137  
  138     fUpdateD ata.Enable d := fVali dData;
  139  
  140     fMarkAsE nteredInEr ror.Enable d := False ;
  141     fMarkAsE nteredInEr ror.Captio n := 'Noth ing select ed to Mark  as entere d in error .';
  142  
  143     if lvDat a.Selected  <> nil th en
  144       if lvD ata.Select ed.Data <>  nil then
  145         begi n
  146           aR ec := TDel imitedStri ng(lvData. Selected.D ata);
  147           if  StrToIntD ef(SplitSt ring(aRec[ 1], ';,^') [2], 0) >  0 then
  148              begin
  149                fMarkAsE nteredInEr ror.Enable d := True;
  150                fMarkAsE nteredInEr ror.Captio n := 'Mark  ''' + lvD ata.Select ed.Caption  + ''' as  entered in  error ... ';
  151              end;
  152  
  153           {  -Changed f rom
  154              4;1,61,^La ctating:^N ot Applica ble
  155              ^ Piece on e is alway s Type of  data (4=pr egnancy, 5 = lactatin g);iens
  156              ^ Piece tw o is alway s Caption
  157              ^ Piece th ree is alw ays Value
  158  
  159              if primary  ien of ie ns string  (AKA DA) =  zero do N OT enable  EnteredInE rror menu!
  160  
  161              if aRec.Ge tPieceIsNo tNull(1) t hen
  162              begin
  163              fMarkAsEnt eredInErro r.Enabled  := True;
  164              fMarkAsEnt eredInErro r.Caption  := 'Mark ' '' + lvDat a.Selected .Caption +  ''' as en tered in e rror ...';
  165              end;
  166           }
  167         end;
  168   end;
  169  
  170   procedure  TfraCoverS heetDispla yPanel_CPR S_WH.OnPop upMenuFree (Sender: T Object);
  171   var
  172     aSubMenu : TMenuIte m;
  173   begin
  174     FreeAndN il(fSepara tor);
  175     FreeAndN il(fUpdate Data);
  176     FreeAndN il(fMarkAs EnteredInE rror);
  177     for aSub Menu in fW ebSitesRoo t do
  178       aSubMe nu.Free;
  179     fWebSite sRoot.Clea r;
  180     FreeAndN il(fWebSit esRoot);
  181     inherite d;
  182   end;
  183  
  184   procedure  TfraCoverS heetDispla yPanel_CPR S_WH.OnPop upMenuInit (Sender: T Object);
  185   var
  186     aSubMenu : TMenuIte m;
  187     i: integ er;
  188   begin
  189     inherite d;
  190  
  191     fSeparat or := NewL ine;
  192     fUpdateD ata := New Item('Add  New Data . ..', 0, Fa lse, False , OnUpdate Data, 0, ' pmnWH_Upda teData');
  193     fMarkAsE nteredInEr ror := New Item('Mark  as Entere d In Error  ...', 0,  False, Fal se, OnEnte redInError , 0, 'pmnW H_EnteredI nError');
  194     fWebSite sRoot := N ewSubMenu( WomensHeal th.WebSite ListName,  0, 'pmnWH_ WebSites',  [], (Wome nsHealth.W ebSiteCoun t > 0));
  195  
  196     for i :=  0 to Wome nsHealth.W ebSiteCoun t - 1 do
  197       begin
  198         aSub Menu := Ne wItem(Wome nsHealth.W ebSite[i]. Name, 0, F alse, True , OnSelect WebSite, 0 , Format(' pmnWebSite _%d', [i]) );
  199         aSub Menu.Tag : = i;
  200         fWeb SitesRoot. Add(aSubMe nu);
  201       end;
  202  
  203     pmn.Item s.Add(fSep arator);
  204     pmn.Item s.Add(fUpd ateData);
  205     pmn.Item s.Add(fMar kAsEntered InError);
  206     pmn.Item s.Add(fWeb SitesRoot) ;
  207   end;
  208  
  209   procedure  TfraCoverS heetDispla yPanel_CPR S_WH.OnSel ectWebSite (Sender: T Object);
  210   var
  211     aWebSite : IWVWebSi te;
  212   begin
  213     WomensHe alth.WebSi te[TMenuIt em(Sender) .Tag].Quer yInterface (IWVWebSit e, aWebSit e);
  214     if aWebS ite = nil  then
  215       Messag eDlg('Unab le to get  WebSite in formation' , mtError,  [mbOk], 0 )
  216     else if  not Womens Health.Ope nExternalW ebsite(aWe bSite) the n
  217       Messag eDlg(Forma t('Error:  ', [Womens Health.Get LastError] ), mtError , [mbOk],  0);
  218   end;
  219  
  220   procedure  TfraCoverS heetDispla yPanel_CPR S_WH.OnEnt eredInErro r(Sender:  TObject);
  221   begin
  222     if lvDat a.Selected  <> nil th en
  223       if lvD ata.Select ed.Data <>  nil then
  224         with  TDelimite dString(lv Data.Selec ted.Data)  do
  225           if  WomensHea lth.MarkAs EnteredInE rror(GetPi ece(1)) th en
  226              begin
  227                CoverShe et.OnRefre shPanel(Se lf, CV_CPR S_WVHT); / / This is  me, just l etting the  CoverShee t do it's  thing!
  228                CoverShe et.OnRefre shPanel(Se lf, CV_CPR S_POST);
  229                CoverShe et.OnRefre shPanel(Se lf, CV_CPR S_RMND);
  230                CoverShe et.OnRefre shCWAD(Sel f);
  231              end
  232           el se
  233              MessageDlg (WomensHea lth.GetLas tError, mt Error, [mb Ok], 0);
  234   end;
  235  
  236   procedure  TfraCoverS heetDispla yPanel_CPR S_WH.OnUpd ateData(Se nder: TObj ect);
  237   begin
  238     if Women sHealth.Ed itPregLacD ata(Patien t.DFN) the n
  239       begin
  240         Cove rSheet.OnR efreshPane l(Self, CV _CPRS_WVHT ); // This  is me, ju st letting  the Cover Sheet do i t's thing!
  241         Cove rSheet.OnR efreshPane l(Self, CV _CPRS_POST );
  242         Cove rSheet.OnR efreshPane l(Self, CV _CPRS_RMND );
  243         Cove rSheet.OnR efreshCWAD (Self);
  244       end
  245     else
  246       Messag eDlg(Women sHealth.Ge tLastError , mtError,  [mbOk], 0 );
  247   end;
  248  
  249   end.

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