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

35.1 Files compared

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

35.2 Comparison summary

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

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

35.4 Active regular expressions

No regular expressions were active.

35.5 Comparison detail

  1   unit mCove rSheetDisp layPanel_C PRS_Vitals ;
  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:  Vitals  display p anel for C PRS Covers heet.
  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_Vitals  = class(T fraCoverSh eetDisplay Panel_CPRS )
  43     private
  44       fSepar ator: TMen uItem;
  45       fUpdat eVitals: T MenuItem;
  46     protecte d
  47       { Inhe rited even ts - TfraG ridPanel }
  48       proced ure OnPopu pMenu(Send er: TObjec t); overri de;
  49       proced ure OnPopu pMenuInit( Sender: TO bject); ov erride;
  50       proced ure OnPopu pMenuFree( Sender: TO bject); ov erride;
  51  
  52       { Inhe rited even ts - TfraC overSheetD isplayPane l_CPRS }
  53       proced ure OnAddI tems(aList : TStrings ); overrid e;
  54       proced ure OnGetD etail(aRec : TDelimit edString;  aDetail: T Strings);  override;
  55       proced ure OnShow Detail(aTe xt: TStrin gs; aTitle : string =  ''; aPrin table: boo lean = fal se); overr ide;
  56  
  57       { Intr oduced Eve nts }
  58       proced ure OnUpda teVitals(S ender: TOb ject); vir tual;
  59     public
  60       constr uctor Crea te(aOwner:  TComponen t); overri de;
  61     end;
  62  
  63   var
  64     fraCover SheetDispl ayPanel_CP RS_Vitals:  TfraCover SheetDispl ayPanel_CP RS_Vitals;
  65  
  66   implementa tion
  67  
  68   {$R *.dfm}
  69  
  70  
  71   uses
  72     ORFn,
  73     ORNet,
  74     rMisc,
  75     uCore,
  76     uVitals;
  77  
  78   { TfraCove rSheetDisp layPanel_C PRS_Vitals  }
  79  
  80   constructo r TfraCove rSheetDisp layPanel_C PRS_Vitals .Create(aO wner: TCom ponent);
  81   begin
  82     inherite d;
  83     AddColum n(0, 'Vita l');
  84     AddColum n(1, 'Valu e');
  85     AddColum n(2, 'Date  Taken');
  86     AddColum n(3, 'Conv . Value');
  87     AddColum n(4, 'Qual s');
  88     Collapse Columns;
  89   end;
  90  
  91   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nPopupMenu (Sender: T Object);
  92   begin
  93     inherite d;
  94  
  95     fUpdateV itals.Enab led := Tru e;
  96   end;
  97  
  98   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nPopupMenu Free(Sende r: TObject );
  99   begin
  100     FreeAndN il(fSepara tor);
  101     FreeAndN il(fUpdate Vitals);
  102  
  103     inherite d;
  104   end;
  105  
  106   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nPopupMenu Init(Sende r: TObject );
  107   begin
  108     inherite d;
  109  
  110     fSeparat or := NewL ine;
  111     fUpdateV itals := N ewItem('Up date Vital s ...', 0,  False, Tr ue, OnUpda teVitals,  0, 'pmnVit als_Update Vitals');
  112  
  113     pmn.Item s.Add(fSep arator);
  114     pmn.Item s.Add(fUpd ateVitals) ;
  115   end;
  116  
  117   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nShowDetai l(aText: T Strings;   aTitle: st ring; aPri ntable: bo olean);
  118   begin
  119     // Trick ing the UI  to go to  Vitals Lit e when sin gle clicke d
  120     OnUpdate Vitals(lvD ata);
  121   end;
  122  
  123   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nUpdateVit als(Sender : TObject) ;
  124   var
  125     aFunctio nAddr: TGM V_VitalsVi ewForm;
  126     aFunctio nName: Ans iString;
  127     aRtnRec:  TDllRtnRe c;
  128     aStartDa te: string ;
  129     aVitalsA bbv: strin g;
  130   begin
  131     { Availb le Forms:
  132       GMV_FN ame :='GMV _VitalsEnt erDLG';
  133       GMV_FN ame :='GMV _VitalsEnt erForm';
  134       GMV_FN ame :='GMV _VitalsVie wForm';
  135       GMV_FN ame :='GMV _VitalsVie wDLG';
  136     }
  137     lvData.E nabled :=  false;
  138     try
  139       try
  140         aFun ctionName  := 'GMV_Vi talsViewDL G';
  141         aRtn Rec := Loa dVitalsDLL ;
  142  
  143         case  aRtnRec.R eturn_Type  of
  144           DL L_Success:
  145              try
  146                @aFuncti onAddr :=  GetProcAdd ress(Vital sDLLHandle , PAnsiCha r(aFunctio nName));
  147                if Assig ned(aFunct ionAddr) t hen
  148                  begin
  149                    if P atient.Inp atient the n
  150                      aS tartDate : = FormatDa teTime('mm /dd/yy', N ow - 7)
  151                    else
  152                      aS tartDate : = FormatDa teTime('mm /dd/yy', I ncMonth(No w, -6));
  153  
  154                    if l vData.Sele cted <> ni l then
  155                      aV italsAbbv  := lvData. Selected.C aption
  156                    else
  157                      aV italsAbbv  := '';
  158  
  159                    aFun ctionAddr( RPCBrokerV , Patient. DFN, IntTo Str(Encoun ter.Locati on), aStar tDate, For matDateTim e('mm/dd/y y', Now),  GMV_APP_SI GNATURE, G MV_CONTEXT , GMV_CONT EXT, Patie nt.Name, F ormat('%s     %d', [P atient.SSN , Patient. Age]),
  160                      En counter.Lo cationName  + U + aVi talsAbbv);
  161                  end
  162                else
  163                  Messag eDLG('Can' 't find fu nction "GM V_VitalsVi ewDLG".',  mtError, [ mbok], 0);
  164              except
  165                on E: Ex ception do
  166                  Messag eDLG('Erro r running  Vitals Lit e: ' + E.M essage, mt Error, [mb ok], 0);
  167              end;
  168           DL L_Missing:
  169              begin
  170                TaskMess ageDlg('Fi le Missing  or Invali d', aRtnRe c.Return_M essage, mt Error, [mb ok], 0);
  171              end;
  172           DL L_VersionE rr:
  173              begin
  174                TaskMess ageDlg('In correct Ve rsion Foun d', aRtnRe c.Return_M essage, mt Error, [mb ok], 0);
  175              end;
  176         end;
  177       finall y
  178         @aFu nctionAddr  := nil;
  179         Unlo adVitalsDL L;
  180       end;
  181  
  182       CoverS heet.OnRef reshPanel( Self, CV_C PRS_VITL);
  183       CoverS heet.OnRef reshPanel( Self, CV_C PRS_RMND);
  184     finally
  185       lvData .Enabled : = True;
  186     end;
  187   end;
  188  
  189   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nAddItems( aList: TSt rings);
  190   var
  191     aRec: TD elimitedSt ring;
  192     aStr: st ring;
  193   begin
  194     if aList .Count = 0  then
  195       aList. Add('^No V itals Foun d.');
  196  
  197     try
  198       lvData .Items.Beg inUpdate;
  199       for aS tr in aLis t do
  200         begi n
  201           aR ec := TDel imitedStri ng.Create( aStr);
  202  
  203           if  lvData.It ems.Count  = 0 then
  204              if aRec.Ge tPieceIsNu ll(1) and  (aList.Cou nt = 1) th en
  205                Collapse Columns
  206              else
  207                ExpandCo lumns;
  208  
  209           wi th lvData. Items.Add  do
  210              begin
  211                Caption  := aRec.Ge tPiece(2);
  212                SubItems .Add(aRec. GetPiece(5 ));
  213                SubItems .Add(Forma tDateTime( DT_FORMAT,  aRec.GetP ieceAsTDat eTime(4))) ;
  214                SubItems .Add(aRec. GetPiece(6 ));
  215                SubItems .Add(aRec. GetPiece(7 ));
  216                Data :=  aRec;
  217              end;
  218         end;
  219     finally
  220       lvData .Items.End Update;
  221     end;
  222   end;
  223  
  224   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nGetDetail (aRec: TDe limitedStr ing; aDeta il: TStrin gs);
  225   var
  226     aDateTim e: TDateTi me;
  227   begin
  228     aDateTim e := FMDat eTimeToDat eTime(aRec .GetPieceA sDouble(4) );
  229     aDetail. Clear;
  230     aDetail. Add(Format ('%s %s',  ['Vital .. ........',  aRec.GetP ieceAsStri ng(2)]));
  231     aDetail. Add(Format ('%s %s',  ['Date/Tim e ......',  FormatDat eTime('MMM  DD, YYYY@ hh:mm', aD ateTime)]) );
  232     aDetail. Add(Format ('%s %s',  ['Value .. ........',  aRec.GetP ieceAsStri ng(5)]));
  233     aDetail. Add(Format ('%s %s',  ['Conv. Va lue ....',  aRec.GetP ieceAsStri ng(6)]));
  234     aDetail. Add(Format ('%s %s',  ['Qualifie rs .....',  aRec.GetP ieceAsStri ng(7)]));
  235   end;
  236  
  237   end.