28. EPMO Open Source Coordination Office Redaction File Detail Report

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

28.1 Files compared

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

28.2 Comparison summary

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

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

28.4 Active regular expressions

No regular expressions were active.

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