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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 244 |
Changed | 2 | 4 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.