18. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/31/2017 10:45:42 AM 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.

18.1 Files compared

# Location File Last Modified
1 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\APP-VITALSMANAGER VitalsManager.dpr Tue Dec 13 18:26:14 2016 UTC
2 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\APP-VITALSMANAGER VitalsManager.dpr Fri Mar 31 14:59:51 2017 UTC

18.2 Comparison summary

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

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

18.4 Active regular expressions

No regular expressions were active.

18.5 Comparison detail

  1   program Vi talsManage r;
  2   {
  3   ========== ========== ========== ========== ========== ========== ========== ==========
  4   *
  5   *       Ap plication:   Vitals M anager
  6   *       Re vision:      $Revisio n: 1 $  $M odtime: 3/ 04/09 2:41 p $
  7          Developer:       PII                   
  8   *       Si te:          Hines OI FO
  9   *
  10   *       De scription:   Main pro ject file
  11   *
  12   *       No tes:
  13   *
  14   ========== ========== ========== ========== ========== ========== ========== ==========
  15   *       $A rchive: /V itals/5.0  (Version 5 .0)/5.0.23  (Patch 23 )/VITALS_5 _0_23_8/So urce/APP-V ITALSMANAG ER/VitalsM anager.dpr  $
  16   *
  17   * $History : VitalsMa nager.dpr  $
  18    * 
  19    * ******* **********   Version  1  ******* **********
  20    * User: V haishandri a Date: 8/ 12/09    T ime: 8:29a
  21    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_8/Sourc e/APP-VITA LSMANAGER
  22    * 
  23    * ******* **********   Version  1  ******* **********
  24    * User: V haishandri a Date: 3/ 09/09    T ime: 3:38p
  25    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_6/Sourc e/APP-VITA LSMANAGER
  26    * 
  27    * ******* **********   Version  1  ******* **********
  28    * User: V haishandri a Date: 1/ 13/09    T ime: 1:26p
  29    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_4/Sourc e/APP-VITA LSMANAGER
  30    * 
  31    * ******* **********   Version  2  ******* **********
  32    * User: V haishandri a Date: 7/ 18/07    T ime: 12:41 p
  33    * Updated  in $/Vita ls GUI 200 7/Vitals-5 -0-18/APP- VITALSMANA GER
  34    * 
  35    * ******* **********   Version  1  ******* **********
  36    * User: V haishandri a Date: 5/ 11/07    T ime: 3:14p
  37    * Created  in $/Vita ls GUI 200 7/Vitals-5 -0-18/APP- VITALSMANA GER
  38    * 
  39    * ******* **********   Version  1  ******* **********
  40    * User: V haishandri a Date: 5/ 16/06    T ime: 5:40p
  41    * Created  in $/Vita ls/VITALS- 5-0-18/APP -VitalsMan ager
  42    * GUI v.  5.0.18 upd ates the d efault vit al type IE Ns with th e local
  43    * values.
  44    * 
  45    * ******* **********   Version  1  ******* **********
  46    * User: V haishandri a Date: 5/ 16/06    T ime: 5:30p
  47    * Created  in $/Vita ls/Vitals- 5-0-18/VIT ALS-5-0-18 /APP-Vital sManager
  48    * 
  49    * ******* **********   Version  1  ******* **********
  50    * User: V haishandri a Date: 5/ 24/05    T ime: 4:57p
  51    * Created  in $/Vita ls/Vitals  GUI  v 5.0 .2.1 -5.0. 3.1 - Patc h GMVR-5-7  (CASMed,  CCOW) - De lphi 6/Vit alsManager -503
  52    * 
  53    * ******* **********   Version  1  ******* **********
  54    * User: V haishandri a Date: 4/ 16/04    T ime: 4:22p
  55    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, CPRS,  Delphi 7) /VITALSMAN AGER-503
  56    * 
  57    * ******* **********   Version  1  ******* **********
  58    * User: V haishandri a Date: 1/ 26/04    T ime: 1:09p
  59    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, Delph i7)/V5031- D7/VitalsM anager
  60    * 
  61    * ******* **********   Version  8  ******* **********
  62    * User: V haishandri a Date: 12 /20/02   T ime: 3:03p
  63    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  64    * 
  65    * ******* **********   Version  7  ******* **********
  66    * User: V haishandri a Date: 11 /04/02   T ime: 9:15a
  67    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  68    * Version  5.0.0.0
  69    * 
  70    * ******* **********   Version  6  ******* **********
  71    * User: V haishandri a Date: 10 /11/02   T ime: 6:21p
  72    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  73    * Version  v.T32_1
  74    * 
  75    * ******* **********   Version  5  ******* **********
  76    * User: V haishandri a Date: 10 /04/02   T ime: 4:49p
  77    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  78    * Version  T32 
  79    * 
  80    * ******* **********   Version  4  ******* **********
  81    * User: V haishandri a Date: 7/ 29/02    T ime: 11:18 a
  82    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  83    * v T29
  84    * 
  85    * ******* **********   Version  3  ******* **********
  86    * User: V haishpetit d Date: 6/ 06/02    T ime: 11:12 a
  87    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  88    * Roll-up  to 5.0.0. 27
  89    * 
  90    * ******* **********   Version  2  ******* **********
  91    * User: V haishpetit d Date: 5/ 15/02    T ime: 12:16 p
  92    * Updated  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  93    * Added t he Print Q ualifiers  Option
  94    * 
  95    * ******* **********   Version  1  ******* **********
  96    * User: V haishpetit d Date: 4/ 04/02    T ime: 3:47p
  97    * Created  in $/Vita ls GUI Ver sion 5.0/V itals Mana ger
  98    *
  99    *
  100   *
  101   ========== ========== ========== ========== ========== ========== ========== ==========
  102   }
  103  
  104   uses
  105     Forms,
  106     Dialogs,
  107     SysUtils ,
  108     TRPCB,
  109     SharedRP CBroker,
  110     fGMV_Tim eOutManage r in '..\V italsCommo n\fGMV_Tim eOutManage r.pas' {fr mGMV_TimeO utManager} ,
  111     fGMV_Abo utDlg in ' ..\VitalsC ommon\fGMV _AboutDlg. pas' {frmG MV_AboutDl g},
  112     fGMV_Add VCQ in '.. \VitalsCom mon\fGMV_A ddVCQ.pas'  {frmGMV_A ddVCQ},
  113     fGMV_Spl ash in '.. \VitalsCom mon\fGMV_S plash.pas'  {frmGMV_S plash},
  114     mGMV_Edi tTemplate  in '..\Vit alsCommon\ mGMV_EditT emplate.pa s' {fraGMV _EditTempl ate: TFram e},
  115     uGMV_Com mon in '.. \VitalsUti ls\uGMV_Co mmon.pas',
  116     uGMV_Con st in '..\ VitalsUtil s\uGMV_Con st.pas',
  117     uGMV_Fil eEntry in  '..\Vitals Common\uGM V_FileEntr y.pas',
  118     uGMV_Glo balVars in  '..\Vital sUtils\uGM V_GlobalVa rs.pas',
  119     uGMV_Vit alTypes in  '..\Vital sCommon\uG MV_VitalTy pes.pas',
  120     uGMV_Uti ls in '..\ VitalsUtil s\uGMV_Uti ls.pas',
  121     mGMV_Loo kup in '.. \VitalsDat aEntry\mGM V_Lookup.p as' {fraGM V_Lookup:  TFrame},
  122     uGMV_CRC 32 in '..\ VitalsUtil s\uGMV_CRC 32.pas',
  123     uGMV_Ver sionInfo i n '..\Vita lsUtils\uG MV_Version Info.pas',
  124     uGMV_Use r in '..\V italsCommo n\uGMV_Use r.pas',
  125     fGMV_Qua lifiers in  '..\Vital sDataEntry \fGMV_Qual ifiers.pas ' {frmGMV_ Qualifiers },
  126     uGMV_Qua lifyBox in  '..\Vital sDataEntry \uGMV_Qual ifyBox.pas ',
  127     fROR_PCa ll in '..\ ROR\fROR_P Call.pas'  {RPCErrorF orm},
  128     uGMV_Tem plate in ' ..\VitalsD ataEntry\u GMV_Templa te.pas',
  129     uGMV_Eng ine in '.. \VitalsUti ls\uGMV_En gine.pas',
  130     uROR_RPC Broker in  '..\ROR\uR OR_RPCBrok er.pas',
  131     uGMV_Set up in '..\ VitalsComm on\uGMV_Se tup.pas',
  132     mGMV_Sys temParamet ers in 'mG MV_SystemP arameters. pas' {fraS ystemParam eters: TFr ame},
  133     mGMV_Vit alHiLo in  'mGMV_Vita lHiLo.pas'  {fraVital HiLo: TFra me},
  134     fGMV_Add EditQualif ier in 'fG MV_AddEdit Qualifier. pas' {frmG MV_AddEdit Qualifier} ,
  135     fGMV_Dev iceSelecto r in 'fGMV _DeviceSel ector.pas'  {frmGMV_D eviceSelec tor},
  136     fGMV_Man ager in 'f GMV_Manage r.pas' {fr mGMV_Manag er},
  137     fGMV_New Template i n 'fGMV_Ne wTemplate. pas' {frmG MV_NewTemp late},
  138     fGMV_RPC Log in '.. \VitalsCom mon\fGMV_R PCLog.pas'  {frmGMV_R PCLog},
  139     uGMV_EXE Version in  '..\Vital sUtils\uGM V_EXEVersi on.pas',
  140     mGMV_Pri nterSelect or in '..\ VitalsComm on\mGMV_Pr interSelec tor.pas' { frGMV_Prin terSelecto r: TFrame} ,
  141     mGMV_Def aultSelect or in '..\ VITALSCOMM ON\mGMV_De faultSelec tor.pas' { frDefaultS elector: T Frame},
  142     uGMV_RPC _Names in  '..\VITALS COMMON\uGM V_RPC_Name s.pas',
  143     uGMV_Log  in '..\VI TALSCOMMON \uGMV_Log. pas';
  144  
  145   {$R *.RES}
  146  
  147   begin
  148     Applicat ion.Initia lize;
  149     Applicat ion.Title  := 'Vitals  Manager';
  150     GMVSplas h := TfrmG MV_Splash. Create(App lication);
  151     GMVSplas h.Show;
  152     GMVSplas h.UpdateMe ssage('Est ablishing  VistA Conn ection...' );
  153  
  154     Applicat ion.Create Form(TfrmG MV_Manager , frmGMV_M anager);
  155     Applicat ion.Create Form(TfrmG MV_NewTemp late, frmG MV_NewTemp late);
  156     Applicat ion.Create Form(TfrmG MV_RPCLog,  frmGMV_RP CLog);
  157     if not f rmGMV_Mana ger.Restor eConnectio n then //  will creat e Broker
  158         begi n
  159           Fr eeAndNil(f rmGMV_Mana ger);
  160           Fr eeAndNil(G MVSplash);
  161           Ex it;
  162         end;
  163     Applicat ion.Create Form(TfrmG MV_AddVCQ,  frmGMV_Ad dVCQ);
  164  
  165     try
  166       if not  GMVUser.S ignOn(RPC_ CREATECONT EXT, True)  then
  167         begi n
  168           GM VSplash.Hi de;
  169           Ap plication. Terminate;
  170           Ap plication. Run;
  171           Sh utDownTime Out;
  172         end
  173       else
  174         if G MVUser.GMV Manager th en
  175           be gin
  176              GMVSplash. UpdateMess age('Loadi ng ...');
  177  
  178              CreateGMVG lobalVars;
  179              GMVDefault Templates  := TGMV_De faultTempl ates.Creat e;
  180              frmGMV_Man ager.Resto reSettings ;
  181              InitTimeOu t(nil);
  182              UpdateTime OutInterva l(GMVUser. DTime);
  183              GMVSplash. Hide;
  184              frmGMV_Man ager.pgctr l.Visible  := true;
  185              Applicatio n.Run;
  186              ShutDownTi meOut;
  187  
  188              FreeAndNil (GMVSplash );
  189              FreeAndNil (GMVDefaul tTemplates );
  190              ReleaseGMV GlobalVars ;
  191              FreeAndNil (GMVUser);
  192              FreeAndNil (RPCBroker );
  193           en d
  194         else
  195           be gin
  196           Me ssageDlg(
  197              'Sorry, yo u need the  GMV MANAG ER Securit y Key to r un this ap plication. '#13#13+
  198              'Please se e your App lication C oordinator  (ADPAC) t o arrange  access.',
  199              mtInformat ion, [mbok ], 0);
  200           tr y
  201              FreeAndNil (frmGMV_Ma nager);
  202           ex cept
  203           en d;
  204  
  205           Fr eeAndNil(G MVSplash);
  206           Fr eeAndNil(f rmGMV_AddV CQ);
  207           Fr eeAndNil(G MVUser);
  208           Fr eeAndNil(R PCBroker);
  209           en d;
  210     except / /finally
  211     end;
  212   end.
  213