40. EPMO Open Source Coordination Office Redaction File Detail Report

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

40.1 Files compared

# Location File Last Modified
1 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSUTILS uGMV_Const.pas Tue Dec 13 18:26:08 2016 UTC
2 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSUTILS uGMV_Const.pas Fri Mar 31 15:01:44 2017 UTC

40.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 244
Changed 2 4
Inserted 0 0
Removed 0 0

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

40.4 Active regular expressions

No regular expressions were active.

40.5 Comparison detail

  1   unit uGMV_ Const;
  2  
  3   interface
  4   uses
  5     Messages
  6     , uGMV_G lobalVars
  7     , uGMV_V italTypes
  8     , Graphi cs
  9     ;
  10  
  11   const
  12  
  13     DISPLAYC OLORS: arr ay[0..15]  of TColor  = (
  14       clBlac k,
  15       clMaro on,
  16       clGree n,
  17       clOliv e,
  18       clNavy ,
  19       clPurp le,
  20       clTeal ,
  21       clGray ,
  22       clSilv er,
  23       clRed,
  24       clLime ,
  25       clYell ow,
  26       clBlue ,
  27       clFuch sia,
  28       clAqua ,
  29       clWhit e);
  30  
  31     DISPLAYN AMES: arra y[0..15] o f string =  (
  32       'Black ',
  33       'Maroo n',
  34       'Green ',
  35       'Olive ',
  36       'Navy' ,
  37       'Purpl e',
  38       'Teal' ,
  39       'Gray' ,
  40       'Silve r',
  41       'Red',
  42       'Lime' ,
  43       'Yello w',
  44       'Blue' ,
  45       'Fuchs ia',
  46       'Aqua' ,
  47       'White ');
  48  
  49     CM_NOPAT IENT = WM_ APP + 401;  //AAN 06/ 11/02
  50     CM_PATIE NTFOUND =  WM_APP + 4 02; //AAN  06/11/02
  51     CM_TEMPL ATEUPDATED  = WM_APP  + 403; //A AN 06/11/0 2
  52     CM_TEMPL ATEREFRESH ED = WM_AP P + 404; / /AAN 06/11 /02
  53     CM_VITAL SELECTED =  WM_APP +  405; //AAN  07/05/02
  54     CM_PTSEA RCHING = W M_APP + 40 6; //AAN 0 7/18/02
  55     CM_PTLIS TNOTFOUND  = WM_APP +  407; //AA N 07/18/02
  56     CM_PTSEA RCHDONE =  WM_APP + 4 08; //AAN  07/18/02
  57     CM_PTSEA RCHKBMODE  = WM_APP +  409; //AA N 07/18/02
  58     CM_UPDAT ELOOKUP =  WM_APP + 4 10; //AAN  07/18/02
  59     CM_PATIE NTChanged  = WM_APP +  411; //AA N 06/11/02
  60     CM_PTSEA RCHDELAY =  WM_APP +  412; //AAN  06/11/02
  61     CM_PTSEA RCHSTART =  WM_APP +  413; //AAN  06/11/02
  62     CM_PTLIS TCHANGED =  WM_APP +  414; //AAN  06/11/02
  63     CM_VITAL CHANGED =  WM_APP + 4 14; //AAN  06/11/02
  64     CM_SELEC TPTLIST =  WM_APP + 4 15; //AAN  06/11/02
  65  
  66     CM_SAVEI NPUT = WM_ APP + 416;  //AAN 200 3/06/06
  67  
  68     CM_PERIO DCHANGED =  WM_APP +  417; //AAN  06/11/02
  69  
  70     dfltGMVA bnormalTex t: integer  = 9; //AA N 06/13/02
  71     dfltGMVA bnormalBkg d: integer  = 15; //A AN 06/13/0 2
  72     dfltGMVA bnormalTod ayBkgd: in teger = 15 ; //AAN 06 /13/02
  73     dfltGMVA bnormalBol d: Boolean  = False;  //AAN 06/1 3/02
  74     dfltGMVA bnormalQua ls: Boolea n = True;  //AAN 06/1 3/02
  75     dfltGMVN ormalText:  integer =  0; //AAN  06/13/02
  76     dfltGMVN ormalBkgd:  integer =  15; //AAN  06/13/02
  77     dfltGMVN ormalToday Bkgd: inte ger = 15;  //AAN 06/1 3/02
  78     dfltGMVN ormalBold:  Boolean =  False; // AAN 06/13/ 02
  79     dfltGMVN ormalQuals : Boolean  = True; // AAN 06/13/ 02
  80     dfltGMVI nquiryBkgd : integer  = $00EACF8 0;
  81     dfltGMVI nquiryText Bkgd:integ er = $00EA CF80; //cl InfoBk;
  82     dfltGMVI nquiryName : string =  'ORWPT PT INQ';
  83  
  84     GMV_VASi tePos = 3;
  85  
  86     GMVIMAGE S: array[T GMV_ImageI ndex] of i nteger = ( 0, 1, 2, 3 , 4, 5, 6,  7);
  87     BOOLEAN0 1: array[B oolean] of  integer =  (0, 1);
  88     BOOLEANY N: array[B oolean] of  string =  ('No', 'Ye s');
  89     BOOLEANT F: array[B oolean] of  string =  ('False',  'True');
  90     BOOLEANU M: array[B oolean] of  string =  ('US', 'Me tric');
  91  
  92     sMsgName  = 'VistA  Event - Cl inical';
  93     sMsgRece iveName =  'VistA Eve nt - Vital s';
  94     sMsgClos e = 'Vital sClose';
  95  
  96     sMsgInva lidBP =
  97              'The entry  should be  in the fo llowing fo rmat:'+#13 +
  98              'nnn/ or n nn/nnn or  nnn/nnn/nn n' + #13+
  99              'for systo lic/diasto lic or sys tolic/inte rmediate/d iastolic'+ #13+
  100              'with valu es from 0  to 300.'
  101               ;
  102  
  103     //vhaish andria 070 222
  104     // Disab ling the q ualifier u pdate
  105  
  106     sMsgDisa bledQualif iers =
  107           'I n support  of nationa l standard ization '+
  108           'Q ualifiers  management  is not su pported lo cally.'+#1 3#10+
  109           'I f you wish  to reques t a new te rm or modi fy an exis ting term' +#13#10+
  110           'p lease  ref er to the  New Term R apid Turna round (NTR T) web sit e located  at'+#13#10 +
  111                                           http:// DNS        . DNS     /ntrt/ '+# 13#10+
  112           'I f you have  any quest ions regar ding this  new term r equest pro cess,'+#13 #10+
  113            ' please con tact the E RT NTRT Co ordinator  via e-mail  at VHA OI  SDD HDS N TRT.';
  114  
  115       GMV_WEBSIT E = 'http: // DNS        . DNS     /ClinicalS pecialties /vitals/';
  116     MetricLi st = 'HEIG HT TEMPERA TURE WEIGH T CIRCUMFE RENCE/GIRT H CENTRAL  VENOUS PRE SSURE'; //  vhaishand ria 060725  HD0000000 149958
  117  
  118     GMV_Date TimeFormat  = 'mm/dd/ yyyy hh:nn :ss';
  119     GMV_Date Format = ' mm/dd/yyyy ';
  120     GMV_Time Format = ' hh:nn:ss';
  121  
  122   implementa tion
  123  
  124   end.