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

30.1 Files compared

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

30.2 Comparison summary

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

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

30.4 Active regular expressions

No regular expressions were active.

30.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     System.I mageList,
  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  
  39   type
  40     TfraCove rSheetDisp layPanel_C PRS_Immuni zations =  class(Tfra CoverSheet DisplayPan el_CPRS)
  41     private
  42       { Priv ate declar ations }
  43       fEnter Immunizati on: TMenuI tem;
  44       proced ure pmnEnt erNewImmun ization(Se nder: TObj ect);
  45     protecte d
  46       { Over idden even ts - TfraC overSheetD isplayPane l_CPRS }
  47       proced ure OnAddI tems(aList : TStrings ); overrid e;
  48       proced ure OnPopu pMenu(Send er: TObjec t); overri de;
  49       proced ure OnPopu pMenuFree( Sender: TO bject); ov erride;
  50       proced ure OnPopu pMenuInit( Sender: TO bject); ov erride;
  51     public
  52       constr uctor Crea te(aOwner:  TComponen t); overri de;
  53     end;
  54  
  55   var
  56     fraCover SheetDispl ayPanel_CP RS_Immuniz ations: Tf raCoverShe etDisplayP anel_CPRS_ Immunizati ons;
  57  
  58   implementa tion
  59  
  60   {$R *.dfm}
  61  
  62  
  63   uses
  64     ORFn,
  65     oDelimit edString,
  66     uCore,
  67     fVimm,
  68     rVimm;
  69  
  70   { TfraCove rSheetDisp layPanel_C PRS_Immuni zations }
  71  
  72   constructo r TfraCove rSheetDisp layPanel_C PRS_Immuni zations.Cr eate(aOwne r: TCompon ent);
  73   begin
  74     inherite d;
  75     AddColum n(0, 'Immu nization') ;
  76     AddColum n(1, 'Reac tion');
  77     AddColum n(2, 'Date /Time');
  78     Collapse Columns;
  79     fAllowDe tailDispla y := False ;
  80   end;
  81  
  82   procedure  TfraCoverS heetDispla yPanel_CPR S_Immuniza tions.OnAd dItems(aLi st: TStrin gs);
  83   var
  84     aRec: TD elimitedSt ring;
  85     aStr: st ring;
  86   begin
  87     try
  88       lvData .Items.Beg inUpdate;
  89  
  90       for aS tr in aLis t do
  91         begi n
  92           aR ec := TDel imitedStri ng.Create( aStr);
  93  
  94           if  lvData.It ems.Count  = 0 then {  Executes  before any  item is a dded }
  95              if aRec.Ge tPieceIsNu ll(1) and  (aList.Cou nt = 1) th en
  96                Collapse Columns
  97              else
  98                ExpandCo lumns;
  99  
  100           wi th lvData. Items.Add  do
  101              begin
  102                Caption  := MixedCa se(aRec.Ge tPiece(2)) ;
  103                if aRec. GetPiece(1 ) <> '' th en
  104                  begin
  105                    SubI tems.Add(M ixedCase(a Rec.GetPie ce(4)));
  106                    SubI tems.Add(a Rec.GetPie ceAsFMDate TimeStr(3) );
  107                  end;
  108                Data :=  aRec;
  109              end;
  110         end;
  111     finally
  112       lvData .Items.End Update;
  113     end;
  114   end;
  115  
  116   procedure  TfraCoverS heetDispla yPanel_CPR S_Immuniza tions.OnPo pupMenu(
  117     Sender:  TObject);
  118   begin
  119     inherite d;
  120     fEnterIm munization .enabled : = true;
  121   end;
  122  
  123   procedure  TfraCoverS heetDispla yPanel_CPR S_Immuniza tions.OnPo pupMenuFre e(
  124     Sender:  TObject);
  125   begin
  126     inherite d;
  127      FreeAnd Nil(fEnter Immunizati on);
  128   end;
  129  
  130   procedure  TfraCoverS heetDispla yPanel_CPR S_Immuniza tions.OnPo pupMenuIni t(
  131     Sender:  TObject);
  132   begin
  133     inherite d;
  134     fEnterIm munization  := NewIte m('Enter N ew Immuniz ation ...' , 0, False , False, p mnEnterNew Immunizati on, 0, 'pm nEnterNewI mmunizatio n');
  135     pmn.Item s.Add(NewI tem('-', 0 , False, F alse, nil,  0, 'pmnIm munization _Separator '));
  136     pmn.Item s.Add(fEnt erImmuniza tion);
  137   end;
  138  
  139   procedure  TfraCoverS heetDispla yPanel_CPR S_Immuniza tions.pmnE nterNewImm unization(
  140     Sender:  TObject);
  141   var
  142   resultList : TStringL ist;
  143   noteStr: S tring;
  144  
  145   begin
  146     resultLi st := TStr ingList.cr eate;
  147     try
  148     uvimmInp uts.noGrid  := false;
  149     uvimmInp uts.makeNo te := true ;
  150     uvimmInp uts.collap seICE := f alse;
  151     uvimminp uts.canSav eData := t rue;
  152     uvimmInp uts.patien tName := p atient.Nam e;
  153     uvimmInp uts.patien tIEN := pa tient.DFN;
  154     uvimmInp uts.userNa me := user .Name;
  155     uvimmInp uts.userIE N := user. DUZ;
  156     uvimmInp uts.encoun terProvide rName := e ncounter.P roviderNam e;
  157     uvimmInp uts.encoun terProvide rIEN := en counter.Pr ovider;
  158     uvimmInp uts.encoun terLocatio n := encou nter.Locat ion;
  159     uvimmInp uts.encoun terCategor y := encou nter.Visit Category;
  160     uvimmInp uts.dateEn counterDat eTime := e ncounter.D ateTime;
  161     uvimmInp uts.visitS tring := e ncounter.V isitStr;
  162     uvimmInp uts.startI nEditMode  := true;
  163   //  uvimmI nputs.isFr omEncounte r := false ;
  164     uvimmInp uts.isSkin Test := fa lse;
  165     uVimmInp uts.immuni zationRead ing := fal se;
  166     uVimmInp uts.select ionType :=  'all';
  167  
  168     if perfo rmVimm(res ultList, t rue) then  CoverSheet .OnRefresh Panel(Self , CV_CPRS_ IMMU);
  169     clearInp uts;
  170     if resul tList.Coun t = 1 then
  171       begin
  172         note Str := res ultList.St rings[0];
  173         Chan ges.Add(10 , Piece(no teStr, U,  1), Piece( noteStr, U , 2), '',  1);
  174       end;
  175     finally
  176       FreeAn dNil(resul tList);
  177     end;
  178   end;
  179  
  180   end.