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

14.1 Files compared

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

14.2 Comparison summary

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

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

14.4 Active regular expressions

No regular expressions were active.

14.5 Comparison detail

  1   unit mCove rSheetDisp layPanel_C PRS_Remind ers;
  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-08
  9     *
  10     *        Descriptio n:  Custom ized displ ay panel f or Clinica l Reminder 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     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     iCoverSh eetIntf,
  36     mCoverSh eetDisplay Panel_CPRS ,
  37     oDelimit edString;
  38  
  39   type
  40     TfraCove rSheetDisp layPanel_C PRS_Remind ers = clas s(TfraCove rSheetDisp layPanel_C PRS)
  41     private
  42       fSepar ator: TMen uItem;
  43       fClini calMainten ance: TMen uItem;
  44       fEduca tionTopicD efinition:  TMenuItem ;
  45       fRemin derInquiry : TMenuIte m;
  46       fRefer enceInquir y: TMenuIt em;
  47       fRemin derIconLeg end: TMenu Item;
  48     protecte d
  49       { Inhe rited meth ods }
  50       functi on getTitl e: string;  override;
  51       proced ure setTit le(const a Value: str ing); over ride;
  52  
  53       { Inhe rited even ts - TfraG ridPanel }
  54       proced ure OnPopu pMenu(Send er: TObjec t); overri de;
  55       proced ure OnPopu pMenuInit( Sender: TO bject); ov erride;
  56       proced ure OnPopu pMenuFree( Sender: TO bject); ov erride;
  57  
  58       { Inhe rited even ts - TfraC overSheetD isplayPane l_CPRS }
  59       proced ure OnAddI tems(aList : TStrings ); overrid e;
  60       proced ure OnGetD etail(aRec : TDelimit edString;  aResult: T Strings);  override;
  61  
  62       { Intr oduced met hods }
  63       proced ure GetEdu cationTopi cs(aMenuIt em: TMenuI tem; aRemi nderIEN: i nteger); v irtual;
  64       proced ure GetRef erenceInqu iries(aMen uItem: TMe nuItem; aR eminderIEN : integer) ; virtual;
  65  
  66       { Intr oduced eve nts }
  67       proced ure OnRemi nderInquir y(Sender:  TObject);  virtual;
  68       proced ure OnRefe renceInqui ry(Sender:  TObject);  virtual;
  69       proced ure OnRemi nderIconLe gend(Sende r: TObject ); virtual ;
  70       proced ure OnClin icalMainte nance(Send er: TObjec t); virtua l;
  71       proced ure OnEduc ationTopic (Sender: T Object); v irtual;
  72     public
  73       constr uctor Crea te(aOwner:  TComponen t); overri de;
  74       destru ctor Destr oy; overri de;
  75     end;
  76  
  77   var
  78     fraCover SheetDispl ayPanel_CP RS_Reminde rs: TfraCo verSheetDi splayPanel _CPRS_Remi nders;
  79  
  80   implementa tion
  81  
  82   uses
  83     uCore,
  84     uReminde rs,
  85     rReminde rs,
  86     fIconLeg end,
  87     ORFn,
  88     ORNet;
  89  
  90   const
  91     CUSTOM_T ITLE = 'Cl inical Rem inders'; / / The orig inal title  has colum n headers  in it.
  92  
  93   {$R *.dfm}
  94     { TfraCo verSheetDi splayPanel _CPRS_Remi nders }
  95  
  96   constructo r TfraCove rSheetDisp layPanel_C PRS_Remind ers.Create (aOwner: T Component) ;
  97   begin
  98     inherite d;
  99  
  100     AddColum n(0, 'Remi nder');
  101     AddColum n(1, 'Due  Date');
  102     Collapse Columns;
  103   end;
  104  
  105   destructor  TfraCover SheetDispl ayPanel_CP RS_Reminde rs.Destroy ;
  106   begin
  107  
  108     inherite d;
  109   end;
  110  
  111   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnGetDet ail(aRec:  TDelimited String; aR esult: TSt rings);
  112   var
  113     aList: T StringList ;
  114   begin
  115     aList :=  TStringLi st.Create;
  116     try
  117       Detail Reminder(a Rec.GetPie ceAsIntege r(1), aLis t);
  118       aResul t.Text :=  aList.Text ;
  119     finally
  120       FreeAn dNil(aList );
  121     end;
  122  
  123   end;
  124  
  125   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.GetEduca tionTopics (aMenuItem : TMenuIte m; aRemind erIEN: int eger);
  126   var
  127     aSubItem : TMenuIte m;
  128   begin
  129     for aSub Item in aM enuItem do
  130       aSubIt em.Free;
  131     aMenuIte m.Clear;
  132  
  133     { This n eeds to ca ll out to  VistA and  get the me nu items }
  134  
  135     aSubItem  := NewIte m('Educati on Item A' , 0, False , True, On EducationT opic, 0, ' pmnEduItem A');
  136     aSubItem .Tag := 1;
  137     aMenuIte m.Add(aSub Item);
  138  
  139     aSubItem  := NewIte m('Educati on Item B' , 0, False , True, On EducationT opic, 0, ' pmnEduItem B');
  140     aSubItem .Tag := 2;
  141     aMenuIte m.Add(aSub Item);
  142  
  143     aSubItem  := NewIte m('Educati on Item C' , 0, False , True, On EducationT opic, 0, ' pmnEduItem C');
  144     aSubItem .Tag := 3;
  145     aMenuIte m.Add(aSub Item);
  146  
  147     aMenuIte m.Enabled  := (aMenuI tem.Count  > 0);
  148   end;
  149  
  150   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.GetRefer enceInquir ies(aMenuI tem: TMenu Item; aRem inderIEN:  integer);
  151   var
  152     aSubItem : TMenuIte m;
  153   begin
  154     for aSub Item in aM enuItem do
  155       aSubIt em.Free;
  156     aMenuIte m.Clear;
  157  
  158     { This n eeds to ca ll out to  VistA and  get the me nu items }
  159  
  160     aSubItem  := NewIte m('Referen ce Item A' , 0, False , True, On EducationT opic, 0, ' pmnEduItem A');
  161     aSubItem .Tag := 1;
  162     aMenuIte m.Add(aSub Item);
  163  
  164     aSubItem  := NewIte m('Referen ce Item B' , 0, False , True, On EducationT opic, 0, ' pmnEduItem B');
  165     aSubItem .Tag := 2;
  166     aMenuIte m.Add(aSub Item);
  167  
  168     aSubItem  := NewIte m('Referen ce Item C' , 0, False , True, On EducationT opic, 0, ' pmnEduItem C');
  169     aSubItem .Tag := 3;
  170     aMenuIte m.Add(aSub Item);
  171  
  172     aMenuIte m.Enabled  := (aMenuI tem.Count  > 0);
  173   end;
  174  
  175   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnAddIte ms(aList:  TStrings);
  176   var
  177     aRec: TD elimitedSt ring;
  178     aStr: st ring;
  179   begin
  180     try
  181       lvData .Items.Beg inUpdate;
  182       for aS tr in aLis t do
  183         begi n
  184           aR ec := TDel imitedStri ng.Create( aStr);
  185  
  186           if  lvData.It ems.Count  = 0 then
  187              if aRec.Ge tPieceIsNu ll(1) and  (aList.Cou nt = 1) th en
  188                begin
  189                  Collap seColumns;
  190                  lvData .Items.Add .Caption : = aRec.Get Piece(2);
  191                  Contin ue;
  192                end
  193              else
  194                ExpandCo lumns;
  195  
  196           if  aRec.GetP ieceIsNotN ull(3) the n
  197              with lvDat a.Items.Ad d do
  198                begin
  199                  Captio n := aRec. GetPiece(2 );
  200                  if aRe c.GetPiece IsDouble(3 ) then
  201                    SubI tems.Add(F ormatDateT ime('MMM D D, YYYY',  aRec.GetPi eceAsTDate Time(3)))
  202                  else
  203                    SubI tems.Add(a Rec.GetPie ce(3));
  204                  Data : = aRec;
  205                end;
  206         end;
  207     finally
  208       lvData .Items.End Update;
  209     end;
  210   end;
  211  
  212   function T fraCoverSh eetDisplay Panel_CPRS _Reminders .getTitle:  string;
  213   begin
  214     Result : = CUSTOM_T ITLE;
  215   end;
  216  
  217   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnPopupM enu(Sender : TObject) ;
  218   var
  219     aRec: TD elimitedSt ring;
  220   begin
  221     inherite d;
  222  
  223     aRec :=  ListViewIt emRec;
  224  
  225     fEducati onTopicDef inition.Cl ear;
  226     fReferen ceInquiry. Clear;
  227  
  228     fClinica lMaintenan ce.Enabled  := False;
  229     fEducati onTopicDef inition.En abled := F alse;
  230     fReminde rInquiry.E nabled :=  False;
  231     fReferen ceInquiry. Enabled :=  False;
  232     fReminde rIconLegen d.Enabled  := True; {  Always en abled }
  233  
  234     if Assig ned(aRec)  then
  235       if aRe c.GetPiece AsInteger( 1) > 0 the n
  236         begi n
  237           fC linicalMai ntenance.E nabled :=  True;
  238           fR eminderInq uiry.Enabl ed := True ;
  239           Ge tEducation Topics(fEd ucationTop icDefiniti on, aRec.G etPieceAsI nteger(1)) ;
  240           Ge tReference Inquiries( fReference Inquiry, a Rec.GetPie ceAsIntege r(1));
  241         end;
  242   end;
  243  
  244   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnPopupM enuFree(Se nder: TObj ect);
  245   var
  246     aSubMenu : TMenuIte m;
  247   begin
  248     { Free a ll subitem s from fEd ucationTop icDefiniti on and the  clear it  }
  249     for aSub Menu in fE ducationTo picDefinit ion do
  250       aSubMe nu.Free;
  251     fEducati onTopicDef inition.Cl ear;
  252  
  253     { Free a ll subitem s from fRe ferenceInq uiry and t he clear i t }
  254     for aSub Menu in fR eferenceIn quiry do
  255       aSubMe nu.Free;
  256     fReferen ceInquiry. Clear;
  257  
  258     FreeAndN il(fSepara tor);
  259     FreeAndN il(fClinic alMaintena nce);
  260     FreeAndN il(fEducat ionTopicDe finition);
  261     FreeAndN il(fRemind erInquiry) ;
  262     FreeAndN il(fRefere nceInquiry );
  263     FreeAndN il(fRemind erIconLege nd);
  264  
  265     inherite d;
  266   end;
  267  
  268   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnPopupM enuInit(Se nder: TObj ect);
  269   begin
  270     inherite d;
  271  
  272     fSeparat or := NewL ine;
  273     fClinica lMaintenan ce := NewI tem('Clini cal Mainte nance ...' , 0, False , False, O nClinicalM aintenance , 0, 'pmnC linicalMai ntenance') ;
  274     fEducati onTopicDef inition :=  NewItem(' Education  Topic ...' , 0, False , False, n il, 0, 'pm nEducation TopicDefin ition');
  275     fReminde rInquiry : = NewItem( 'Reminder  Inquiry .. .', 0, Fal se, False,  OnReminde rInquiry,  0, 'pmnRem inderInqui ry');
  276     fReferen ceInquiry  := NewItem ('Referenc e Inquiry  ...', 0, F alse, Fals e, OnRefer enceInquir y, 0, 'pmn ReferenceI nquiry');
  277     fReminde rIconLegen d := NewIt em('Remind er Icon Le gend ...',  0, False,  False, On ReminderIc onLegend,  0, 'pmnRem inderIconL egend');
  278  
  279     pmn.Item s.Add(fSep arator);
  280     pmn.Item s.Add(fCli nicalMaint enance);
  281     pmn.Item s.Add(fEdu cationTopi cDefinitio n);
  282     pmn.Item s.Add(fRem inderInqui ry);
  283     pmn.Item s.Add(fRef erenceInqu iry);
  284     pmn.Item s.Add(fRem inderIconL egend);
  285   end;
  286  
  287   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnClinic alMaintena nce(Sender : TObject) ;
  288   var
  289     aTxt: TS tringList;
  290   begin
  291     if lvDat a.Selected .Data <> n il then
  292       begin
  293         aTxt  := TStrin gList.Crea te;
  294         try
  295           On GetDetail( TDelimited String(lvD ata.Select ed.Data),  aTxt);
  296           On ShowDetail (aTxt, 'Cl inical Mai ntenance:  ' + lvData .Selected. Caption, T rue);
  297         fina lly
  298           Fr eeAndNil(a Txt);
  299         end;
  300       end;
  301   end;
  302  
  303   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnEducat ionTopic(S ender: TOb ject);
  304   begin
  305     with Sen der as TMe nuItem do
  306       ShowMe ssageFmt(' Caption: % s - Tag: % d', [Capti on, Tag]);
  307   end;
  308  
  309   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnRefere nceInquiry (Sender: T Object);
  310   begin
  311     //
  312   end;
  313  
  314   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnRemind erIconLege nd(Sender:  TObject);
  315   begin
  316     ShowIcon Legend(ilR eminders);
  317   end;
  318  
  319   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.OnRemind erInquiry( Sender: TO bject);
  320   var
  321     aRec: TD elimitedSt ring;
  322     aDetail:  TStringLi st;
  323   begin
  324     aRec :=  ListViewIt emRec;
  325     if aRec  <> nil the n
  326       if aRe c.GetPiece (1) <> ''  then
  327         begi n
  328           aD etail := T StringList .Create;
  329           tr y
  330              OnGetDetai l(aRec, aD etail);
  331              OnShowDeta il(aDetail );
  332           fi nally
  333              FreeAndNil (aDetail);
  334           en d;
  335         end;
  336   end;
  337  
  338   procedure  TfraCoverS heetDispla yPanel_CPR S_Reminder s.setTitle (const aVa lue: strin g);
  339   begin
  340     lblTitle .Caption : = CUSTOM_T ITLE;
  341   end;
  342  
  343   end.

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