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

8.1 Files compared

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

8.2 Comparison summary

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

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

8.4 Active regular expressions

No regular expressions were active.

8.5 Comparison detail

  1   unit mCove rSheetDisp layPanel_C PRS_Allerg ies;
  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:  Displa y panel fo r Allergie s.
  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_Allerg ies = clas s(TfraCove rSheetDisp layPanel_C PRS)
  42     private
  43       { Priv ate declar ations }
  44       fSepar ator: TMen uItem;
  45       fEnter NewAllergy : TMenuIte m;
  46       fEditS electedAll ergy: TMen uItem;
  47       fMarkS electedAsE nteredInEr ror: TMenu Item;
  48       fMarkP tAsNKA: TM enuItem;
  49  
  50       proced ure pmnEnt erNewAller gy(Sender:  TObject);
  51       proced ure pmnEdi tSelectedA llergy(Sen der: TObje ct);
  52       proced ure pmnMar kSelectedA sEnteredIn Error(Send er: TObjec t);
  53       proced ure pmnMar kPtAsNKA(S ender: TOb ject);
  54     protecte d
  55       { Over ridden eve nts - Tfra GridPanel  }
  56       proced ure OnPopu pMenu(Send er: TObjec t); overri de;
  57       proced ure OnPopu pMenuInit( Sender: TO bject); ov erride;
  58       proced ure OnPopu pMenuFree( Sender: TO bject); ov erride;
  59  
  60       { Over ridden eve nts - Tfra CoverSheet DisplayPan el_CPRS }
  61       proced ure OnAddI tems(aList : TStrings ); overrid e;
  62       proced ure OnGetD etail(aRec : TDelimit edString;  aResult: T Strings);  override;
  63     public
  64       constr uctor Crea te(aOwner:  TComponen t); overri de;
  65       destru ctor Destr oy; overri de;
  66     end;
  67  
  68   var
  69     fraCover SheetDispl ayPanel_CP RS_Allergi es: TfraCo verSheetDi splayPanel _CPRS_Alle rgies;
  70  
  71   implementa tion
  72  
  73   { TfraCove rSheetDisp layPanel_C PRS_Allerg ies }
  74  
  75   uses
  76     uCore,
  77     rODAller gy,
  78     fAllgyAR ,
  79     ORFn,
  80     ORNet;
  81  
  82   const
  83     NO_ASSES SMENT = 'N o Allergy  Assessment ';
  84  
  85   {$R *.dfm}
  86  
  87  
  88   constructo r TfraCove rSheetDisp layPanel_C PRS_Allerg ies.Create (aOwner: T Component) ;
  89   begin
  90     inherite d;
  91     AddColum n(0, 'Agen t');
  92     AddColum n(1, 'Seve rity');
  93     AddColum n(2, 'Sign s/Symptoms ');
  94     Collapse Columns;
  95   end;
  96  
  97   destructor  TfraCover SheetDispl ayPanel_CP RS_Allergi es.Destroy ;
  98   begin
  99  
  100     inherite d;
  101   end;
  102  
  103   procedure  TfraCoverS heetDispla yPanel_CPR S_Allergie s.pmnEditS electedAll ergy(Sende r: TObject );
  104   begin
  105     if lvDat a.Selected  <> nil th en
  106       if lvD ata.Select ed.Data <>  nil then
  107         with  TDelimite dString(lv Data.Selec ted.Data)  do
  108           if  GetPieceA sInteger(1 ) > 0 then
  109              if EnterEd itAllergy( GetPieceAs Integer(1) , False, F alse) then
  110                begin
  111                  CoverS heet.OnRef reshPanel( Self, CV_C PRS_ALLG);
  112                  CoverS heet.OnRef reshPanel( Self, CV_C PRS_POST);
  113                  CoverS heet.OnRef reshCWAD(S elf);
  114                end;
  115   end;
  116  
  117   procedure  TfraCoverS heetDispla yPanel_CPR S_Allergie s.pmnEnter NewAllergy (Sender: T Object);
  118   begin
  119     if Enter EditAllerg y(0, True,  False) th en
  120       begin
  121         Cove rSheet.OnR efreshPane l(Self, CV _CPRS_ALLG );
  122         Cove rSheet.OnR efreshPane l(Self, CV _CPRS_POST );
  123         Cove rSheet.OnR efreshCWAD (Self);
  124       end;
  125   end;
  126  
  127   procedure  TfraCoverS heetDispla yPanel_CPR S_Allergie s.pmnMarkP tAsNKA(Sen der: TObje ct);
  128   begin
  129     if Enter NKAForPati ent then
  130       begin
  131         Cove rSheet.OnR efreshPane l(Self, CV _CPRS_ALLG );
  132         Cove rSheet.OnR efreshPane l(Self, CV _CPRS_POST );
  133         Cove rSheet.OnR efreshCWAD (Self);
  134       end;
  135   end;
  136  
  137   procedure  TfraCoverS heetDispla yPanel_CPR S_Allergie s.pmnMarkS electedAsE nteredInEr ror(Sender : TObject) ;
  138   begin
  139     if lvDat a.Selected  <> nil th en
  140       if lvD ata.Select ed.Data <>  nil then
  141         with  TDelimite dString(lv Data.Selec ted.Data)  do
  142           if  GetPieceA sInteger(1 ) > 0 then
  143              if EnterEd itAllergy( GetPieceAs Integer(1) , False, T rue) then
  144                begin
  145                  CoverS heet.OnRef reshPanel( Self, CV_C PRS_ALLG);
  146                  CoverS heet.OnRef reshPanel( Self, CV_C PRS_POST);
  147                  CoverS heet.OnRef reshCWAD(S ender);
  148                end;
  149   end;
  150  
  151   procedure  TfraCoverS heetDispla yPanel_CPR S_Allergie s.OnAddIte ms(aList:  TStrings);
  152   var
  153     aRec: TD elimitedSt ring;
  154     aStr: st ring;
  155   begin
  156     try
  157       lvData .Items.Beg inUpdate;
  158       for aS tr in aLis t do
  159         begi n
  160           aR ec := TDel imitedStri ng.Create( aStr);
  161  
  162           if  lvData.It ems.Count  = 0 then {  Executes  before any  item is a dded }
  163              if aRec.Ge tPieceIsNu ll(1) then
  164                Collapse Columns
  165              else
  166                ExpandCo lumns;
  167  
  168           wi th lvData. Items.Add  do
  169              begin
  170                Caption  := MixedCa se(aRec.Ge tPiece(2)) ;
  171                SubItems .Add(Mixed Case(aRec. GetPiece(3 )));
  172                SubItems .Add(Mixed Case(aRec. GetPiece(4 )));
  173                Data :=  aRec;
  174              end;
  175         end;
  176     finally
  177       lvData .Items.End Update;
  178     end;
  179   end;
  180  
  181   procedure  TfraCoverS heetDispla yPanel_CPR S_Allergie s.OnGetDet ail(aRec:  TDelimited String; aR esult: TSt rings);
  182   begin
  183     CallVist A(CPRSPara ms.DetailR PC, [Patie nt.DFN, aR ec.GetPiec e(1)], aRe sult);
  184   end;
  185  
  186   procedure  TfraCoverS heetDispla yPanel_CPR S_Allergie s.OnPopupM enu(Sender : TObject) ;
  187   var
  188     aRec: TD elimitedSt ring;
  189     aMsg: st ring;
  190   begin
  191     inherite d;
  192  
  193     fEnterNe wAllergy.E nabled :=  True;
  194     fEditSel ectedAller gy.Enabled  := False;
  195     fMarkSel ectedAsEnt eredInErro r.Enabled  := False;
  196     fMarkPtA sNKA.Enabl ed := Fals e;
  197  
  198     { Edge c ase for Ma rk as NKA  and nothin g selected  and no as sessment }
  199     if lvDat a.Items.Co unt = 1 th en
  200       if lvD ata.Items[ 0].Data <>  nil then
  201         begi n
  202           aR ec := TDel imitedStri ng(lvData. Items[0].D ata);
  203           fM arkPtAsNKA .Enabled : = aRec.Get PieceEqual s(2, NO_AS SESSMENT);
  204         end;
  205  
  206     if lvDat a.Selected  <> nil th en
  207       if lvD ata.Select ed.Data <>  nil then
  208         begi n
  209           aR ec := TDel imitedStri ng(lvData. Selected.D ata);
  210           if  aRec.GetP ieceIsNotN ull(1) and  IsARTClin icalUser(a Msg) then
  211              begin
  212                fEditSel ectedAller gy.Enabled  := True;
  213                fMarkSel ectedAsEnt eredInErro r.Enabled  := True;
  214              end
  215           el se if lvDa ta.Selecte d.Index =  0 then
  216              fMarkPtAsN KA.Enabled  := aRec.G etPieceEqu als(2, NO_ ASSESSMENT );
  217         end;
  218   end;
  219  
  220   procedure  TfraCoverS heetDispla yPanel_CPR S_Allergie s.OnPopupM enuFree(Se nder: TObj ect);
  221   begin
  222     FreeAndN il(fSepara tor);
  223     FreeAndN il(fEnterN ewAllergy) ;
  224     FreeAndN il(fEditSe lectedAlle rgy);
  225     FreeAndN il(fMarkSe lectedAsEn teredInErr or);
  226     FreeAndN il(fMarkPt AsNKA);
  227  
  228     inherite d;
  229   end;
  230  
  231   procedure  TfraCoverS heetDispla yPanel_CPR S_Allergie s.OnPopupM enuInit(Se nder: TObj ect);
  232   begin
  233     inherite d;
  234  
  235     fSeparat or := NewL ine;
  236     fEnterNe wAllergy : = NewItem( 'Enter New  Allergy . ..', 0, Fa lse, False , pmnEnter NewAllergy , 0, 'pmnE nterNewAll ergy');
  237     fEditSel ectedAller gy := NewI tem('Edit  Selected A llergy ... ', 0, Fals e, False,  pmnEditSel ectedAller gy, 0, 'pm nEditSelec tedAllergy ');
  238     fMarkSel ectedAsEnt eredInErro r := NewIt em('Mark S elected Al lergy as E ntered in  Error ...' , 0, False , False, p mnMarkSele ctedAsEnte redInError , 0, 'pmnM arkSelecte dAllergyAs EnteredInE rror');
  239     fMarkPtA sNKA := Ne wItem('Mar k Patient  As Having  "No Known  Allergies"  (NKA) ... ', 0, Fals e, False,  pmnMarkPtA sNKA, 0, ' pmnPtAsNKA ');
  240  
  241     pmn.Item s.Add(fSep arator);
  242     pmn.Item s.Add(fEnt erNewAller gy);
  243     pmn.Item s.Add(fEdi tSelectedA llergy);
  244     pmn.Item s.Add(fMar kSelectedA sEnteredIn Error);
  245     pmn.Item s.Add(fMar kPtAsNKA);
  246   end;
  247  
  248   end.

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