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\VITALSDATAENTRY | fGMV_Qualifiers.pas | Tue Dec 13 18:25:52 2016 UTC |
2 | CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSDATAENTRY | fGMV_Qualifiers.pas | Fri Mar 31 15:01:33 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 724 |
Changed | 1 | 2 |
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 fGMV_ Qualifiers ; | |
2 | { | |
3 | ========== ========== ========== ========== ========== ========== ========== ========== | |
4 | * | |
5 | * Ap plication: Vitals | |
6 | * Re vision: $Revisio n: 1 $ $M odtime: 2/ 26/09 12:5 0p $ | |
7 | * De veloper: PII | |
8 | * Si te: Hines OI FO | |
9 | * | |
10 | * De scription: Pop-up f orm for qu alifiers w hen enteri ng vitals. | |
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/VITAL SDATAENTRY /fGMV_Qual ifiers.pas $ | |
16 | * | |
17 | * $History : fGMV_Qua lifiers.pa s $ | |
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/VITALSDA TAENTRY | |
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/VITALSDA TAENTRY | |
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/VITALSDA TAENTRY | |
30 | * | |
31 | * ******* ********** Version 1 ******* ********** | |
32 | * User: V haishandri a Date: 5/ 14/07 T ime: 10:29 a | |
33 | * Created in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSDATAENTR Y | |
34 | * | |
35 | * ******* ********** Version 1 ******* ********** | |
36 | * User: V haishandri a Date: 5/ 16/06 T ime: 5:43p | |
37 | * Created in $/Vita ls/VITALS- 5-0-18/Vit alsDataEnt ry | |
38 | * GUI v. 5.0.18 upd ates the d efault vit al type IE Ns with th e local | |
39 | * values. | |
40 | * | |
41 | * ******* ********** Version 1 ******* ********** | |
42 | * User: V haishandri a Date: 5/ 16/06 T ime: 5:33p | |
43 | * Created in $/Vita ls/Vitals- 5-0-18/VIT ALS-5-0-18 /VitalsDat aEntry | |
44 | * | |
45 | * ******* ********** Version 2 ******* ********** | |
46 | * User: V haishandri a Date: 7/ 22/05 T ime: 3:51p | |
47 | * Updated 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 alsDataEnt ry | |
48 | * | |
49 | * ******* ********** Version 1 ******* ********** | |
50 | * User: V haishandri a Date: 5/ 24/05 T ime: 3:35p | |
51 | * Created in $/Vita ls/Vitals GUI v 5.0 .2.1 -5.0. 3.1 - Patc h GMVR-5-7 (CASMed, No CCOW) - Delphi 6/ VitalsData Entry | |
52 | * | |
53 | * ******* ********** Version 1 ******* ********** | |
54 | * User: V haishandri a Date: 4/ 16/04 T ime: 4:20p | |
55 | * Created in $/Vita ls/Vitals GUI Versio n 5.0.3 (C COW, CPRS, Delphi 7) /VITALSDAT AENTRY | |
56 | * | |
57 | * ******* ********** Version 2 ******* ********** | |
58 | * User: V haishandri a Date: 1/ 30/04 T ime: 4:32p | |
59 | * Updated in $/Vita lsLite/Vit alsLiteDLL | |
60 | * | |
61 | * ******* ********** Version 1 ******* ********** | |
62 | * User: V haishandri a Date: 1/ 15/04 T ime: 3:06p | |
63 | * Created in $/Vita lsLite/Vit alsLiteDLL | |
64 | * Vitals Lite DLL | |
65 | * | |
66 | * ******* ********** Version 1 ******* ********** | |
67 | * User: V haishandri a Date: 10 /29/03 T ime: 4:15p | |
68 | * Created in $/Vita ls503/Vita ls User | |
69 | * Version 5.0.3 | |
70 | * | |
71 | * ******* ********** Version 3 ******* ********** | |
72 | * User: V haishandri a Date: 7/ 16/03 T ime: 5:40p | |
73 | * Updated in $/Vita ls GUI Ver sion 5.0/V italsUserN oCCOW | |
74 | * | |
75 | * ******* ********** Version 2 ******* ********** | |
76 | * User: V haishandri a Date: 6/ 05/03 T ime: 2:01p | |
77 | * Updated in $/Vita ls GUI Ver sion 5.0/V italsUserN oCCOW | |
78 | * | |
79 | * ******* ********** Version 1 ******* ********** | |
80 | * User: V haishandri a Date: 5/ 21/03 T ime: 1:18p | |
81 | * Created in $/Vita ls GUI Ver sion 5.0/V italsUserN oCCOW | |
82 | * Pre CCO W Version of Vitals User | |
83 | * | |
84 | * ******* ********** Version 4 ******* ********** | |
85 | * User: V haishandri a Date: 7/ 18/02 T ime: 5:57p | |
86 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals User | |
87 | * | |
88 | * ******* ********** Version 3 ******* ********** | |
89 | * User: V haishandri a Date: 7/ 12/02 T ime: 5:00p | |
90 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals User | |
91 | * GUI Ver sion T28 | |
92 | * | |
93 | * ******* ********** Version 2 ******* ********** | |
94 | * User: V haishandri a Date: 7/ 01/02 T ime: 5:14p | |
95 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals User | |
96 | * | |
97 | * ******* ********** Version 1 ******* ********** | |
98 | * User: V haishpetit d Date: 4/ 04/02 T ime: 12:04 p | |
99 | * Created in $/Vita ls GUI Ver sion 5.0/V itals User | |
100 | * | |
101 | * | |
102 | ========== ========== ========== ========== ========== ========== ========== ========== | |
103 | } | |
104 | interface | |
105 | ||
106 | uses | |
107 | Windows, | |
108 | Messages , | |
109 | SysUtils , | |
110 | Classes, | |
111 | Graphics , | |
112 | Controls , | |
113 | Forms, | |
114 | Dialogs, | |
115 | StdCtrls , | |
116 | CheckLst , | |
117 | ExtCtrls | |
118 | , uGMV_F ileEntry | |
119 | , uGMV_C onst | |
120 | , uGMV_G lobalVars | |
121 | , uGMV_Vit alTypes | |
122 | ; | |
123 | ||
124 | type | |
125 | TfrmGMV_ Qualifiers = class(T Form) | |
126 | pnlMai n: TPanel; | |
127 | pnlBot tom: TPane l; | |
128 | edtQua ls: TEdit; | |
129 | sb: TS crollBox; | |
130 | Panel1 : TPanel; | |
131 | btnOK: TButton; | |
132 | btnCan cel: TButt on; | |
133 | Panel2 : TPanel; | |
134 | Panel4 : TPanel; | |
135 | Bevel1 : TBevel; | |
136 | pnlTit le: TPanel ; | |
137 | Label1 : TLabel; | |
138 | proced ure FormCr eate(Sende r: TObject ); | |
139 | proced ure FormCl ose(Sender : TObject; var Actio n: TCloseA ction); | |
140 | proced ure pnlBot tomResize( Sender: TO bject); | |
141 | proced ure FormAc tivate(Sen der: TObje ct);// AAN 07/01/200 2 | |
142 | private | |
143 | FPanel List: TLis t; | |
144 | protecte d | |
145 | public | |
146 | { Publ ic declara tions } | |
147 | FQIENS : string; | |
148 | functi on Qualifi erNames: s tring; | |
149 | functi on Qualifi erIENS: st ring; | |
150 | proced ure Qualif ierClicked (Sender: T Object); | |
151 | proced ure SetDef aultQualif ier(aCateg oryIEN,aQu alifierIEN :String;aV Type: TVit alType); | |
152 | end; | |
153 | ||
154 | function S electQuali fiers(VTyp e: TVitalT ype; var Q uals, Qual sDisplay: string; Ct rl: TContr ol;aValue: String): B oolean; | |
155 | ||
156 | ||
157 | implementa tion | |
158 | ||
159 | uses uGMV_ QualifyBox , uGMV_Com mon, uGMV_ Engine | |
160 | ; | |
161 | ||
162 | {$R *.DFM} | |
163 | / /IDs //St ring | |
164 | function S electQuali fiers(VTyp e: TVitalT ype; var Q uals, Qual sDisplay: string; Ct rl: TContr ol;aValue: String): B oolean; | |
165 | var | |
166 | s: Strin g;//AAN 07 /11/02 for Debugging only | |
167 | _QForm: TfrmGMV_Qu alifiers; | |
168 | TQB, | |
169 | QPanel: TGMV_Templ ateQualifi erBox; | |
170 | iOrder, | |
171 | i, j: in teger; | |
172 | ii: Inte ger; | |
173 | pt: TPoi nt; | |
174 | RetList: TStrings; | |
175 | ||
176 | begin | |
177 | Result : = False; | |
178 | _QForm : = TfrmGMV_ Qualifiers .Create(Ap plication) ; | |
179 | with _QF orm do | |
180 | try | |
181 | pt := Ctrl.Paren t.ClientTo Screen(Poi nt(Ctrl.Le ft, Ctrl.T op)); | |
182 | Left : = pt.x; | |
183 | Top := pt.y + Ct rl.Height; | |
184 | ||
185 | RetLis t := getVi talQualifi erList(GMV VitalTypeA bbv[VType] ); | |
186 | _QForm .pnlTitle. Caption := | |
187 | piec e(RetList. Text,'^',3 ) + ' Qual ifiers'; | |
188 | for i := 0 to Re tList.Coun t - 1 do | |
189 | begi n | |
190 | // S := RetLi st[i]; | |
191 | if Piece(Ret List[i], ' ^', 1) = ' C' then | |
192 | begin | |
193 | QPanel : = TGMV_Tem plateQuali fierBox.Cr eateParent ed( | |
194 | // _QFo rm.pnlMain , | |
195 | _QForm ,_QForm.sb , | |
196 | GMVVit alTypeIEN[ VType], pi ece(RetLis t[i], '^', 2),''); | |
197 | FPanelLi st.Add(QPa nel); | |
198 | // _QForm .Width := FPanelList .Count * 1 00; | |
199 | end; | |
200 | end; | |
201 | RetLis t.Free; | |
202 | ||
203 | // if F PanelList. Count < 2 then | |
204 | // _Q Form.Width := 150; | |
205 | for i := 0 to _Q Form.sb.Co ntrolCount - 1 do | |
206 | begi n | |
207 | if _QForm.sb .Controls[ i] is TGMV _TemplateQ ualifierBo x then | |
208 | begin | |
209 | iOrder : = _QForm.s b.ControlC ount - 1 - i; | |
210 | TGMV_Tem plateQuali fierBox(_Q Form.sb.Co ntrols[i]) .TabOrder := | |
211 | iOrder; | |
212 | end; | |
213 | end; | |
214 | ||
215 | for i := 0 to FP anelList.C ount - 1 d o | |
216 | with TGMV_Temp lateQualif ierBox(FPa nelList[i] ) do | |
217 | be gin | |
218 | { | |
219 | Left := i * (_QForm. Width div FPanelList .Count); | |
220 | Width := _ QForm.Widt h div FPan elList.Cou nt; | |
221 | if i < (FP anelList.C ount - 1) then | |
222 | Align := alLeft | |
223 | else | |
224 | Align := alClient; | |
225 | } | |
226 | Align := a lTop; | |
227 | Visible := True; | |
228 | OnClick := Qualifier Clicked; | |
229 | setPopupLa yout; | |
230 | en d; | |
231 | ||
232 | i := 1 ; | |
233 | for j := 0 to FP anelList.C ount - 1 d o | |
234 | begi n | |
235 | TQ B := TGMV_ TemplateQu alifierBox (FPanelLis t[j]); | |
236 | s := TQB.Def aultQualif ierIEN; | |
237 | ii := StrToI ntDef(s,0) ; | |
238 | if ii < 1 th en | |
239 | begin | |
240 | s := pie ce(Quals, ':', i);// assigning qualifier s as DEFAU LT (!?) | |
241 | try | |
242 | if s < > '' then // changed on 050708 by vhaish andria | |
243 | begi n | |
244 | TG MV_Templat eQualifier Box(FPanel List[j]).D efaultQual ifierIEN : = s; // pi ece(Quals, ':', i); | |
245 | // TGMV_Templ ateQualifi erBox(FPan elList[j]) .OnQualCli ck(TGMV_Te mplateQual ifierBox(F PanelList[ j]).CLB); | |
246 | TG MV_Templat eQualifier Box(FPanel List[j]).O nQualClick (nil); | |
247 | end | |
248 | else | |
249 | // TG MV_Templat eQualifier Box(FPanel List[j]).O nQualClick (TGMV_Temp lateQualif ierBox(FPa nelList[j] ).CLB); | |
250 | TGMV _TemplateQ ualifierBo x(FPanelLi st[j]).OnQ ualClick(n il); | |
251 | except | |
252 | on E: Exception do | |
253 | Show Message('E rror assig ning <'+s+ '> as the default qu alifier'+# 13#10+ | |
254 | E. Message); | |
255 | end; | |
256 | end; | |
257 | in c(i); | |
258 | end; | |
259 | // ------- ---------- ---------- -----Set D efault Met hod for BP if value is like nn n/ | |
260 | // if ( VType = vt BP) and (p os('/',aVa lue) = Len gth(aValue )) then | |
261 | // QF orm.SetDef aultQualif ier('2','4 5',vtBP); | |
262 | ||
263 | edtQua ls.Text := Qualifier Names; | |
264 | ||
265 | Positi onForm(_QF orm); | |
266 | ShowMo dal; | |
267 | if Mod alResult = mrOk then | |
268 | begi n | |
269 | Qu als := _QF orm.FQIENS ; | |
270 | Qu alsDisplay := _QForm .edtQuals. Text; | |
271 | Re sult := Tr ue; | |
272 | end; | |
273 | finally | |
274 | free; | |
275 | end; | |
276 | end; | |
277 | ||
278 | function T frmGMV_Qua lifiers.Qu alifierNam es: string ; | |
279 | var | |
280 | i: integ er; | |
281 | begin | |
282 | Result : = ''; | |
283 | for i := 0 to FPan elList.Cou nt - 1 do | |
284 | with T GMV_Templa teQualifie rBox(FPane lList[i]) do | |
285 | if S trToIntDef (DefaultQu alifierIEN , 0) > 0 t hen | |
286 | be gin | |
287 | if Result <> '' then | |
288 | Result : = Result + ', '; | |
289 | Result := Result + D efaultQual ifierName; | |
290 | en d; | |
291 | end; | |
292 | ||
293 | function T frmGMV_Qua lifiers.Qu alifierIEN S: string; | |
294 | var | |
295 | i: integ er; | |
296 | begin | |
297 | Result : = ''; | |
298 | for i := 0 to FPan elList.Cou nt - 1 do | |
299 | if TGM V_Template QualifierB ox(FPanelL ist[i]).De faultQuali fierIEN <> '' then | |
300 | Resu lt := Resu lt + TGMV_ TemplateQu alifierBox (FPanelLis t[i]).Defa ultQualifi erIEN + ': ' ; | |
301 | i:= Leng th(Result) ; | |
302 | if i > 0 then | |
303 | Result := copy(R esult,1,i- 1); | |
304 | { | |
305 | with T GMV_Templa teQualifie rBox(FPane lList[i]) do | |
306 | be gin | |
307 | if Resul t = '' the n | |
308 | begin | |
309 | if D efaultQual ifierIEN < > '' then Result := DefaultQua lifierIEN; | |
310 | end | |
311 | else | |
312 | if D efaultQual ifierIEN < > '' then Result := Result + ' :' +Defaul tQualifier IEN; | |
313 | en d; | |
314 | } | |
315 | end; | |
316 | ||
317 | procedure TfrmGMV_Qu alifiers.Q ualifierCl icked(Send er: TObjec t); | |
318 | begin | |
319 | edtQuals .Text := Q ualifierNa mes; | |
320 | FQIENS : = Qualifie rIENS; | |
321 | end; | |
322 | ||
323 | procedure TfrmGMV_Qu alifiers.F ormCreate( Sender: TO bject); | |
324 | begin | |
325 | FPanelLi st := TLis t.Create; | |
326 | end; | |
327 | ||
328 | procedure TfrmGMV_Qu alifiers.F ormClose(S ender: TOb ject; var Action: TC loseAction ); | |
329 | begin | |
330 | FreeAndN il(FPanelL ist); | |
331 | end; | |
332 | ||
333 | procedure TfrmGMV_Qu alifiers.p nlBottomRe size(Sende r: TObject ); | |
334 | begin | |
335 | // edtQua ls.Width : = pnlBotto m.Width - (edtQuals. left * 2); | |
336 | // btnCan cel.Left : = pnlBotto m.Width - btnCancel. Width - ed tQuals.Lef t; | |
337 | // btnOK. Left := bt nCancel.Le ft - btnOk .Width - e dtQuals.Le ft; | |
338 | end; | |
339 | ||
340 | // AAN 07/ 01/2002 -- ---------- ---------- ---------- ---------- ---------- ---- Begin | |
341 | procedure TfrmGMV_Qu alifiers.F ormActivat e(Sender: TObject); | |
342 | begin | |
343 | if (Left + Width) > Forms.Sc reen.Width then | |
344 | Left : = Forms.Sc reen.Width - Width; | |
345 | if (Top + Height) > Forms.Sc reen.Heigh t then | |
346 | Top := Forms.Scr een.Height - Height - pnlBotto m.Height d iv 2; | |
347 | end; | |
348 | // AAN 07/ 01/2002 -- ---------- ---------- ---------- ---------- ---------- ------ End | |
349 | ||
350 | procedure TfrmGMV_Qu alifiers.S etDefaultQ ualifier(a CategoryIE N,aQualifi erIEN:Stri ng;aVType: TVitalTyp e); | |
351 | var | |
352 | TQB: TGM V_Template QualifierB ox; | |
353 | i: Integ er; | |
354 | begin | |
355 | for i := 0 to FPan elList.Cou nt - 1 do | |
356 | begin | |
357 | TQ B := TGMV_ TemplateQu alifierBox (FPanelLis t[i]); | |
358 | if TQB.Categ oryIEN = a CategoryIE N then | |
359 | TQB.Defaul tQualifier IEN := aQu alifierIEN ; | |
360 | end; | |
361 | end; | |
362 | ||
363 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.