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

10.1 Files compared

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

10.2 Comparison summary

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

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

10.4 Active regular expressions

No regular expressions were active.

10.5 Comparison detail

  1   unit mCove rSheetDisp layPanel_C PRS_Immuni zations;
  2   {
  3     ======== ========== ========== ========== ========== ========== ========== ========== ==
  4     *
  5     *        Applicatio n:  Demo
  6       *         Developer:       PII                   
  7     *        Site:          Salt L ake City I SC
  8     *        Date:          2015-1 2-21
  9     *
  10     *        Descriptio n:  Covers heet panel  for immun izations.
  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     Vcl.Grap hics,
  26     Vcl.Cont rols,
  27     Vcl.Form s,
  28     Vcl.Dial ogs,
  29     Vcl.ExtC trls,
  30     Vcl.Menu s,
  31     Vcl.ImgL ist,
  32     Vcl.ComC trls,
  33     Vcl.StdC trls,
  34     Vcl.Butt ons,
  35     mCoverSh eetDisplay Panel_CPRS ,
  36     iCoverSh eetIntf;
  37  
  38   type
  39     TfraCove rSheetDisp layPanel_C PRS_Immuni zations =  class(Tfra CoverSheet DisplayPan el_CPRS)
  40     private
  41       { Priv ate declar ations }
  42       fEnter Immunizati on: TMenuI tem;
  43       proced ure pmnEnt erNewImmun ization(Se nder: TObj ect);
  44     protecte d
  45       { Over idden even ts - TfraC overSheetD isplayPane l_CPRS }
  46       proced ure OnAddI tems(aList : TStrings ); overrid e;
  47       proced ure OnPopu pMenu(Send er: TObjec t); overri de;
  48       proced ure OnPopu pMenuFree( Sender: TO bject); ov erride;
  49       proced ure OnPopu pMenuInit( Sender: TO bject); ov erride;
  50     public
  51       constr uctor Crea te(aOwner:  TComponen t); overri de;
  52     end;
  53  
  54   var
  55     fraCover SheetDispl ayPanel_CP RS_Immuniz ations: Tf raCoverShe etDisplayP anel_CPRS_ Immunizati ons;
  56  
  57   implementa tion
  58  
  59   {$R *.dfm}
  60  
  61  
  62   uses
  63     ORFn,
  64     oDelimit edString,
  65     uCore,
  66     fVimm;
  67  
  68   { TfraCove rSheetDisp layPanel_C PRS_Immuni zations }
  69  
  70   constructo r TfraCove rSheetDisp layPanel_C PRS_Immuni zations.Cr eate(aOwne r: TCompon ent);
  71   begin
  72     inherite d;
  73     AddColum n(0, 'Immu nization') ;
  74     AddColum n(1, 'Reac tion');
  75     AddColum n(2, 'Date /Time');
  76     Collapse Columns;
  77     fAllowDe tailDispla y := False ;
  78   end;
  79  
  80   procedure  TfraCoverS heetDispla yPanel_CPR S_Immuniza tions.OnAd dItems(aLi st: TStrin gs);
  81   var
  82     aRec: TD elimitedSt ring;
  83     aStr: st ring;
  84   begin
  85     try
  86       lvData .Items.Beg inUpdate;
  87  
  88       for aS tr in aLis t do
  89         begi n
  90           aR ec := TDel imitedStri ng.Create( aStr);
  91  
  92           if  lvData.It ems.Count  = 0 then {  Executes  before any  item is a dded }
  93              if aRec.Ge tPieceIsNu ll(1) and  (aList.Cou nt = 1) th en
  94                Collapse Columns
  95              else
  96                ExpandCo lumns;
  97  
  98           wi th lvData. Items.Add  do
  99              begin
  100                Caption  := MixedCa se(aRec.Ge tPiece(2)) ;
  101                if aRec. GetPiece(1 ) <> '' th en
  102                  begin
  103                    SubI tems.Add(M ixedCase(a Rec.GetPie ce(4)));
  104                    SubI tems.Add(a Rec.GetPie ceAsFMDate TimeStr(3) );
  105                  end;
  106                Data :=  aRec;
  107              end;
  108         end;
  109     finally
  110       lvData .Items.End Update;
  111     end;
  112   end;
  113  
  114   procedure  TfraCoverS heetDispla yPanel_CPR S_Immuniza tions.OnPo pupMenu(
  115     Sender:  TObject);
  116   begin
  117     inherite d;
  118     fEnterIm munization .enabled : = true;
  119   end;
  120  
  121   procedure  TfraCoverS heetDispla yPanel_CPR S_Immuniza tions.OnPo pupMenuFre e(
  122     Sender:  TObject);
  123   begin
  124     inherite d;
  125      FreeAnd Nil(fEnter Immunizati on);
  126   end;
  127  
  128   procedure  TfraCoverS heetDispla yPanel_CPR S_Immuniza tions.OnPo pupMenuIni t(
  129     Sender:  TObject);
  130   begin
  131     inherite d;
  132     fEnterIm munization  := NewIte m('Enter N ew Immuniz ation ...' , 0, False , False, p mnEnterNew Immunizati on, 0, 'pm nEnterNewI mmunizatio n');
  133     pmn.Item s.Add(NewI tem('-', 0 , False, F alse, nil,  0, 'pmnIm munization _Separator '));
  134     pmn.Item s.Add(fEnt erImmuniza tion);
  135   end;
  136  
  137   procedure  TfraCoverS heetDispla yPanel_CPR S_Immuniza tions.pmnE nterNewImm unization(
  138     Sender:  TObject);
  139   var
  140   inputList,  resultLis t: TString List;
  141   noteStr: S tring;
  142   begin
  143     inputLis t := TStri ngList.Cre ate;
  144     resultLi st := TStr ingList.cr eate;
  145     try
  146         inpu tList.Add( 'noGrid^0' );
  147         inpu tList.Add( 'collapseI CE^0');
  148         inpu tList.Add( 'makeNote^ 1');
  149         inpu tList.Add( 'patientNa me^' + pat ient.Name) ;
  150         inpu tList.Add( 'patientIE N^' + pati ent.DFN);
  151         inpu tList.Add( 'userName^ ' + user.N ame);
  152         inpu tList.Add( 'userIEN^'  + IntToSt r(user.DUZ ));
  153         inpu tList.Add( 'encounter ProviderNa me^' + enc ounter.Pro viderName) ;
  154         inpu tList.Add( 'encounter ProviderIE N^' + IntT oStr(encou nter.Provi der));
  155         inpu tList.Add( 'encounter Location^'  + IntToSt r(encounte r.Location ));
  156         inpu tList.Add( 'encounter Category^'  + Char(en counter.Vi sitCategor y));
  157         inpu tList.Add( 'dateEncou nterDateTi me^' + Flo atToSTr(en counter.Da teTime));
  158         inpu tList.Add( 'visitStri ng^' + enc ounter.Vis itStr);
  159         if p erformVimm (inputList , resultLi st, true)  then Cover Sheet.OnRe freshPanel (Self, CV_ CPRS_IMMU) ;
  160         if r esultList. Count = 1  then
  161           be gin
  162              noteStr :=  resultLis t.Strings[ 0];
  163              Changes.Ad d(10, Piec e(noteStr,  U, 1), Pi ece(noteSt r, U, 2),  '', 1);
  164           en d;
  165     finally
  166       FreeAn dNil(input List);
  167       FreeAn dNil(resul tList);
  168     end;
  169   end;
  170  
  171   end.

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