32. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 4/16/2019 12:20:46 PM Central 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.

32.1 Files compared

# Location File Last Modified
1 C:\AraxisMergeCompare\Pri_un\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet mCoverSheetDisplayPanel_CPRS_Vitals.pas Wed Dec 12 14:04:36 2018 UTC
2 C:\AraxisMergeCompare\Pri_re\CPRS v32 P2 PCE Standardization-redacted\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet mCoverSheetDisplayPanel_CPRS_Vitals.pas Fri Apr 12 13:42:16 2019 UTC

32.2 Comparison summary

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

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

32.4 Active regular expressions

No regular expressions were active.

32.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  
  56       { Intr oduced Eve nts }
  57       proced ure OnUpda teVitals(S ender: TOb ject); vir tual;
  58     public
  59       constr uctor Crea te(aOwner:  TComponen t); overri de;
  60     end;
  61  
  62   var
  63     fraCover SheetDispl ayPanel_CP RS_Vitals:  TfraCover SheetDispl ayPanel_CP RS_Vitals;
  64  
  65   implementa tion
  66  
  67   {$R *.dfm}
  68  
  69  
  70   uses
  71     ORFn,
  72     ORNet,
  73     rMisc,
  74     uCore,
  75     uVitals;
  76  
  77   { TfraCove rSheetDisp layPanel_C PRS_Vitals  }
  78  
  79   constructo r TfraCove rSheetDisp layPanel_C PRS_Vitals .Create(aO wner: TCom ponent);
  80   begin
  81     inherite d;
  82     AddColum n(0, 'Vita l');
  83     AddColum n(1, 'Valu e');
  84     AddColum n(2, 'Date  Taken');
  85     AddColum n(3, 'Conv . Value');
  86     AddColum n(4, 'Qual s');
  87     Collapse Columns;
  88   end;
  89  
  90   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nPopupMenu (Sender: T Object);
  91   begin
  92     inherite d;
  93  
  94     fUpdateV itals.Enab led := Tru e;
  95   end;
  96  
  97   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nPopupMenu Free(Sende r: TObject );
  98   begin
  99     FreeAndN il(fSepara tor);
  100     FreeAndN il(fUpdate Vitals);
  101  
  102     inherite d;
  103   end;
  104  
  105   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nPopupMenu Init(Sende r: TObject );
  106   begin
  107     inherite d;
  108  
  109     fSeparat or := NewL ine;
  110     fUpdateV itals := N ewItem('Up date Vital s ...', 0,  False, Tr ue, OnUpda teVitals,  0, 'pmnVit als_Update Vitals');
  111  
  112     pmn.Item s.Add(fSep arator);
  113     pmn.Item s.Add(fUpd ateVitals) ;
  114   end;
  115  
  116   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nUpdateVit als(Sender : TObject) ;
  117   var
  118     aFunctio nAddr: TGM V_VitalsVi ewForm;
  119     aFunctio nName: Ans iString;
  120     aRtnRec:  TDllRtnRe c;
  121     aStartDa te: string ;
  122   begin
  123     { Availb le Forms:
  124       GMV_FN ame :='GMV _VitalsEnt erDLG';
  125       GMV_FN ame :='GMV _VitalsEnt erForm';
  126       GMV_FN ame :='GMV _VitalsVie wForm';
  127       GMV_FN ame :='GMV _VitalsVie wDLG';
  128     }
  129     try
  130       aFunct ionName :=  'GMV_Vita lsViewDLG' ;
  131       aRtnRe c := LoadV italsDLL;
  132  
  133       case a RtnRec.Ret urn_Type o f
  134         DLL_ Success:
  135           tr y
  136              @aFunction Addr := Ge tProcAddre ss(VitalsD LLHandle,  PAnsiChar( aFunctionN ame));
  137              if Assigne d(aFunctio nAddr) the n
  138                begin
  139                  if Pat ient.Inpat ient then
  140                    aSta rtDate :=  FormatDate Time('mm/d d/yy', Now  - 7)
  141                  else
  142                    aSta rtDate :=  FormatDate Time('mm/d d/yy', Inc Month(Now,  -6));
  143  
  144                  aFunct ionAddr(RP CBrokerV,  Patient.DF N, IntToSt r(Encounte r.Location ), aStartD ate, Forma tDateTime( 'mm/dd/yy' , Now), GM V_APP_SIGN ATURE, GMV _CONTEXT,  GMV_CONTEX T, Patient .Name, For mat('%s     %d', [Pat ient.SSN,  Patient.Ag e]), Encou nter.Locat ionName +  U);
  145                end
  146              else
  147                MessageD LG('Can''t  find func tion "GMV_ VitalsView DLG".', mt Error, [mb ok], 0);
  148           ex cept
  149              on E: Exce ption do
  150                MessageD LG('Error  running Vi tals Lite:  ' + E.Mes sage, mtEr ror, [mbok ], 0);
  151           en d;
  152         DLL_ Missing:
  153           be gin
  154              TaskMessag eDlg('File  Missing o r Invalid' , aRtnRec. Return_Mes sage, mtEr ror, [mbok ], 0);
  155           en d;
  156         DLL_ VersionErr :
  157           be gin
  158              TaskMessag eDlg('Inco rrect Vers ion Found' , aRtnRec. Return_Mes sage, mtEr ror, [mbok ], 0);
  159           en d;
  160       end;
  161     finally
  162       @aFunc tionAddr : = nil;
  163       Unload VitalsDLL;
  164     end;
  165  
  166     CoverShe et.OnRefre shPanel(Se lf, CV_CPR S_VITL);
  167     CoverShe et.OnRefre shPanel(Se lf, CV_CPR S_RMND);
  168   end;
  169  
  170   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nAddItems( aList: TSt rings);
  171   var
  172     aRec: TD elimitedSt ring;
  173     aStr: st ring;
  174   begin
  175     if aList .Count = 0  then
  176       aList. Add('^No V itals Foun d.');
  177  
  178     try
  179       lvData .Items.Beg inUpdate;
  180       for aS tr in aLis t do
  181         begi n
  182           aR ec := TDel imitedStri ng.Create( aStr);
  183  
  184           if  lvData.It ems.Count  = 0 then
  185              if aRec.Ge tPieceIsNu ll(1) and  (aList.Cou nt = 1) th en
  186                Collapse Columns
  187              else
  188                ExpandCo lumns;
  189  
  190           wi th lvData. Items.Add  do
  191              begin
  192                Caption  := aRec.Ge tPiece(2);
  193                SubItems .Add(aRec. GetPiece(5 ));
  194                SubItems .Add(Forma tDateTime( DT_FORMAT,  aRec.GetP ieceAsTDat eTime(4))) ;
  195                SubItems .Add(aRec. GetPiece(6 ));
  196                SubItems .Add(aRec. GetPiece(7 ));
  197                Data :=  aRec;
  198              end;
  199         end;
  200     finally
  201       lvData .Items.End Update;
  202     end;
  203   end;
  204  
  205   procedure  TfraCoverS heetDispla yPanel_CPR S_Vitals.O nGetDetail (aRec: TDe limitedStr ing; aDeta il: TStrin gs);
  206   var
  207     aDateTim e: TDateTi me;
  208   begin
  209     aDateTim e := FMDat eTimeToDat eTime(aRec .GetPieceA sDouble(4) );
  210     aDetail. Clear;
  211     aDetail. Add(Format ('%s %s',  ['Vital .. ........',  aRec.GetP ieceAsStri ng(2)]));
  212     aDetail. Add(Format ('%s %s',  ['Date/Tim e ......',  FormatDat eTime('MMM  DD, YYYY@ hh:mm', aD ateTime)]) );
  213     aDetail. Add(Format ('%s %s',  ['Value .. ........',  aRec.GetP ieceAsStri ng(5)]));
  214     aDetail. Add(Format ('%s %s',  ['Conv. Va lue ....',  aRec.GetP ieceAsStri ng(6)]));
  215     aDetail. Add(Format ('%s %s',  ['Qualifie rs .....',  aRec.GetP ieceAsStri ng(7)]));
  216   end;
  217  
  218   end.