source: cprs/trunk/CPRS-Chart/Consults/fODProc.dfm@ 1800

Last change on this file since 1800 was 1679, checked in by healthsevak, 10 years ago

Updating the working copy to CPRS version 28
File size: 14.2 KB
Line 
1inherited frmODProc: TfrmODProc
2 Tag = 112
3 Left = 430
4 Top = 203
5 Width = 606
6 Height = 442
7 HorzScrollBar.Range = 523
8 VertScrollBar.Range = 295
9 Anchors = [akLeft, akTop, akRight, akBottom]
10 Caption = 'Order a Procedure'
11 Constraints.MinHeight = 442
12 Constraints.MinWidth = 606
13 Position = poDesigned
14 OnShow = FormShow
15 ExplicitWidth = 606
16 ExplicitHeight = 442
17 PixelsPerInch = 96
18 TextHeight = 13
19 object pnlCombatVet: TPanel [0]
20 Left = 0
21 Top = 0
22 Width = 598
23 Height = 25
24 Align = alTop
25 BevelOuter = bvLowered
26 Font.Charset = DEFAULT_CHARSET
27 Font.Color = clWindowText
28 Font.Height = -11
29 Font.Name = 'MS Sans Serif'
30 Font.Style = []
31 ParentFont = False
32 TabOrder = 0
33 object txtCombatVet: TVA508StaticText
34 Name = 'txtCombatVet'
35 Left = 1
36 Top = 1
37 Width = 596
38 Height = 23
39 Align = alClient
40 Alignment = taCenter
41 BevelOuter = bvNone
42 Enabled = False
43 TabOrder = 0
44 ShowAccelChar = True
45 end
46 end
47 inherited memOrder: TCaptionMemo
48 Left = 0
49 Top = 365
50 Width = 380
51 Height = 41
52 Anchors = [akLeft, akRight, akBottom]
53 Lines.Strings = (
54 'The order text...'
55
56 '----------------------------------------------------------------' +
57 '--------------'
58 'An order message may be displayed here.')
59 ParentFont = False
60 TabOrder = 3
61 ExplicitLeft = 0
62 ExplicitTop = 365
63 ExplicitWidth = 380
64 ExplicitHeight = 41
65 end
66 object pnlMain: TPanel [2]
67 Left = 0
68 Top = 0
69 Width = 598
70 Height = 354
71 Anchors = [akLeft, akTop, akRight, akBottom]
72 BevelOuter = bvNone
73 TabOrder = 1
74 DesignSize = (
75 598
76 354)
77 object lblProc: TLabel
78 Left = 4
79 Top = 4
80 Width = 49
81 Height = 13
82 Caption = 'Procedure'
83 end
84 object lblService: TOROffsetLabel
85 Left = 4
86 Top = 114
87 Width = 158
88 Height = 15
89 Caption = 'Service to perform this procedure'
90 HorzOffset = 2
91 Transparent = False
92 VertOffset = 2
93 WordWrap = False
94 end
95 object lblReason: TLabel
96 Left = 8
97 Top = 165
98 Width = 95
99 Height = 13
100 Margins.Left = 0
101 Caption = 'Reason for Request'
102 end
103 object lblUrgency: TStaticText
104 Left = 312
105 Top = 4
106 Width = 44
107 Height = 17
108 Anchors = [akTop, akRight]
109 Caption = 'Urgency'
110 TabOrder = 13
111 end
112 object lblPlace: TStaticText
113 Left = 460
114 Top = 92
115 Width = 104
116 Height = 17
117 Anchors = [akTop, akRight]
118 Caption = 'Place of Consultation'
119 TabOrder = 14
120 end
121 object lblAttn: TStaticText
122 Left = 460
123 Top = 4
124 Width = 46
125 Height = 17
126 Anchors = [akTop, akRight]
127 Caption = 'Attention'
128 TabOrder = 15
129 end
130 object lblProvDiag: TStaticText
131 Left = 312
132 Top = 135
133 Width = 104
134 Height = 17
135 Anchors = [akTop, akRight]
136 Caption = 'Provisional Diagnosis'
137 TabOrder = 16
138 end
139 object pnlReason: TPanel
140 Left = 0
141 Top = 184
142 Width = 591
143 Height = 166
144 Anchors = [akLeft, akTop, akRight, akBottom]
145 BevelOuter = bvNone
146 TabOrder = 11
147 object memReason: TCaptionRichEdit
148 Left = 0
149 Top = 0
150 Width = 591
151 Height = 166
152 Align = alClient
153 Anchors = [akLeft, akTop, akRight]
154 Font.Charset = DEFAULT_CHARSET
155 Font.Color = clWindowText
156 Font.Height = -11
157 Font.Name = 'Courier New'
158 Font.Style = []
159 Constraints.MinHeight = 40
160 ParentFont = False
161 PopupMenu = popReason
162 ScrollBars = ssBoth
163 TabOrder = 0
164 WantTabs = True
165 OnChange = ControlChange
166 OnExit = memReasonExit
167 OnKeyDown = memReasonKeyDown
168 OnKeyPress = memReasonKeyPress
169 OnKeyUp = memReasonKeyUp
170 Caption = 'Reason for Request'
171 end
172 end
173 object cboUrgency: TORComboBox
174 Left = 312
175 Top = 17
176 Width = 133
177 Height = 21
178 Anchors = [akTop, akRight]
179 Style = orcsDropDown
180 AutoSelect = True
181 Caption = 'Urgency'
182 Color = clWindow
183 DropDownCount = 8
184 ItemHeight = 13
185 ItemTipColor = clWindow
186 ItemTipEnable = True
187 ListItemsOnly = True
188 LongList = False
189 LookupPiece = 0
190 MaxLength = 0
191 Pieces = '2'
192 Sorted = False
193 SynonymChars = '<>'
194 TabOrder = 3
195 OnChange = ControlChange
196 CharsNeedMatch = 1
197 end
198 object cboPlace: TORComboBox
199 Left = 460
200 Top = 105
201 Width = 133
202 Height = 21
203 Anchors = [akTop, akRight]
204 Style = orcsDropDown
205 AutoSelect = True
206 Caption = 'Place of Consultation'
207 Color = clWindow
208 DropDownCount = 8
209 ItemHeight = 13
210 ItemTipColor = clWindow
211 ItemTipEnable = True
212 ListItemsOnly = True
213 LongList = False
214 LookupPiece = 0
215 MaxLength = 0
216 Pieces = '2'
217 Sorted = False
218 SynonymChars = '<>'
219 TabOrder = 8
220 OnChange = ControlChange
221 CharsNeedMatch = 1
222 end
223 object txtAttn: TORComboBox
224 Left = 460
225 Top = 17
226 Width = 131
227 Height = 21
228 Anchors = [akTop, akRight]
229 Style = orcsDropDown
230 AutoSelect = True
231 Caption = 'Attention'
232 Color = clWindow
233 DropDownCount = 8
234 ItemHeight = 13
235 ItemTipColor = clWindow
236 ItemTipEnable = True
237 ListItemsOnly = True
238 LongList = True
239 LookupPiece = 2
240 MaxLength = 0
241 Pieces = '2,3'
242 Sorted = False
243 SynonymChars = '<>'
244 TabOrder = 4
245 OnChange = ControlChange
246 OnNeedData = txtAttnNeedData
247 CharsNeedMatch = 1
248 end
249 object cboProc: TORComboBox
250 Left = 4
251 Top = 17
252 Width = 290
253 Height = 91
254 Anchors = [akLeft, akTop, akRight]
255 Style = orcsSimple
256 AutoSelect = True
257 Caption = 'Procedure'
258 Color = clWindow
259 DropDownCount = 8
260 ItemHeight = 13
261 ItemTipColor = clWindow
262 ItemTipEnable = True
263 ListItemsOnly = True
264 LongList = True
265 LookupPiece = 0
266 MaxLength = 0
267 Pieces = '2'
268 Sorted = False
269 SynonymChars = '<>'
270 TabOrder = 0
271 OnChange = cboProcSelect
272 OnNeedData = cboProcNeedData
273 CharsNeedMatch = 1
274 end
275 object cboCategory: TORComboBox
276 Left = 516
277 Top = 10
278 Width = 3
279 Height = 21
280 Style = orcsDropDown
281 AutoSelect = True
282 Color = clWindow
283 DropDownCount = 8
284 ItemHeight = 13
285 ItemTipColor = clWindow
286 ItemTipEnable = True
287 ListItemsOnly = False
288 LongList = False
289 LookupPiece = 0
290 MaxLength = 0
291 Sorted = False
292 SynonymChars = '<>'
293 TabOrder = 12
294 Visible = False
295 OnChange = ControlChange
296 CharsNeedMatch = 1
297 end
298 object cboService: TORComboBox
299 Left = 4
300 Top = 130
301 Width = 290
302 Height = 21
303 Anchors = [akLeft, akTop, akRight]
304 Style = orcsDropDown
305 AutoSelect = True
306 Caption = 'Service to perform this procedure'
307 Color = clWindow
308 DropDownCount = 8
309 Enabled = False
310 ItemHeight = 13
311 ItemTipColor = clWindow
312 ItemTipEnable = True
313 ListItemsOnly = False
314 LongList = False
315 LookupPiece = 0
316 MaxLength = 0
317 Pieces = '2'
318 Sorted = False
319 SynonymChars = '<>'
320 TabOrder = 1
321 OnChange = cboServiceChange
322 CharsNeedMatch = 1
323 end
324 object cmdLexSearch: TButton
325 Left = 549
326 Top = 149
327 Width = 49
328 Height = 21
329 Anchors = [akTop, akRight]
330 Caption = 'Lexicon'
331 TabOrder = 10
332 OnClick = cmdLexSearchClick
333 end
334 object gbInptOpt: TGroupBox
335 Left = 312
336 Top = 85
337 Width = 140
338 Height = 45
339 Anchors = [akTop, akRight]
340 Caption = 'Patient will be seen as an:'
341 TabOrder = 7
342 object radInpatient: TRadioButton
343 Left = 3
344 Top = 20
345 Width = 61
346 Height = 17
347 Caption = '&Inpatient'
348 TabOrder = 1
349 OnClick = radInpatientClick
350 end
351 object radOutpatient: TRadioButton
352 Left = 67
353 Top = 20
354 Width = 71
355 Height = 17
356 Caption = '&Outpatient'
357 TabOrder = 0
358 OnClick = radOutpatientClick
359 end
360 end
361 object txtProvDiag: TCaptionEdit
362 Left = 312
363 Top = 149
364 Width = 234
365 Height = 21
366 Anchors = [akTop, akRight]
367 MaxLength = 180
368 ParentShowHint = False
369 PopupMenu = mnuPopProvDx
370 ShowHint = True
371 TabOrder = 9
372 OnChange = txtProvDiagChange
373 Caption = 'Provisional Diagnosis'
374 end
375 object lblEarliest: TStaticText
376 Left = 312
377 Top = 44
378 Width = 121
379 Height = 17
380 Anchors = [akTop, akRight]
381 Caption = 'Earliest appropriate date:'
382 TabOrder = 18
383 end
384 object calEarliest: TORDateBox
385 Left = 312
386 Top = 58
387 Width = 133
388 Height = 21
389 Anchors = [akTop, akRight]
390 TabOrder = 5
391 OnChange = ControlChange
392 DateOnly = True
393 RequireTime = False
394 end
395 object lblLatest: TStaticText
396 Left = 460
397 Top = 44
398 Width = 116
399 Height = 17
400 Anchors = [akTop, akRight]
401 Caption = 'Latest appropriate date:'
402 TabOrder = 19
403 Visible = False
404 end
405 object calLatest: TORDateBox
406 Left = 460
407 Top = 58
408 Width = 131
409 Height = 21
410 Anchors = [akTop, akRight]
411 TabOrder = 6
412 Visible = False
413 OnChange = ControlChange
414 DateOnly = True
415 RequireTime = False
416 end
417 object servicelbl508: TVA508StaticText
418 Name = 'servicelbl508'
419 Left = 183
420 Top = 114
421 Width = 106
422 Height = 15
423 Alignment = taLeftJustify
424 Caption = 'service (for screen R.)'
425 Enabled = False
426 TabOrder = 2
427 Visible = False
428 ShowAccelChar = True
429 end
430 end
431 inherited cmdAccept: TButton
432 Left = 427
433 Top = 382
434 Anchors = [akRight, akBottom]
435 TabOrder = 4
436 ExplicitLeft = 427
437 ExplicitTop = 382
438 end
439 inherited cmdQuit: TButton
440 Left = 526
441 Top = 382
442 Width = 64
443 Anchors = [akRight, akBottom]
444 TabOrder = 5
445 ExplicitLeft = 526
446 ExplicitTop = 382
447 ExplicitWidth = 64
448 end
449 inherited pnlMessage: TPanel
450 Left = 13
451 Top = 361
452 Width = 316
453 Anchors = [akLeft, akRight, akBottom]
454 TabOrder = 2
455 ExplicitLeft = 13
456 ExplicitTop = 361
457 ExplicitWidth = 316
458 inherited memMessage: TRichEdit
459 Width = 254
460 ExplicitWidth = 254
461 end
462 end
463 inherited amgrMain: TVA508AccessibilityManager
464 Data = (
465 (
466 'Component = memOrder'
467 'Status = stsDefault')
468 (
469 'Component = cmdAccept'
470 'Status = stsDefault')
471 (
472 'Component = cmdQuit'
473 'Status = stsDefault')
474 (
475 'Component = pnlMessage'
476 'Status = stsDefault')
477 (
478 'Component = memMessage'
479 'Status = stsDefault')
480 (
481 'Component = frmODProc'
482 'Status = stsDefault')
483 (
484 'Component = pnlMain'
485 'Status = stsDefault')
486 (
487 'Component = pnlCombatVet'
488 'Status = stsDefault')
489 (
490 'Component = lblUrgency'
491 'Status = stsDefault')
492 (
493 'Component = lblPlace'
494 'Status = stsDefault')
495 (
496 'Component = lblAttn'
497 'Status = stsDefault')
498 (
499 'Component = lblProvDiag'
500 'Status = stsDefault')
501 (
502 'Component = pnlReason'
503 'Status = stsDefault')
504 (
505 'Component = memReason'
506 'Status = stsDefault')
507 (
508 'Component = cboUrgency'
509 'Status = stsDefault')
510 (
511 'Component = cboPlace'
512 'Status = stsDefault')
513 (
514 'Component = txtAttn'
515 'Status = stsDefault')
516 (
517 'Component = cboProc'
518 'Status = stsDefault')
519 (
520 'Component = cboCategory'
521 'Status = stsDefault')
522 (
523 'Component = cboService'
524 'Status = stsDefault')
525 (
526 'Component = cmdLexSearch'
527 'Status = stsDefault')
528 (
529 'Component = gbInptOpt'
530 'Status = stsDefault')
531 (
532 'Component = radInpatient'
533 'Status = stsDefault')
534 (
535 'Component = radOutpatient'
536 'Status = stsDefault')
537 (
538 'Component = txtProvDiag'
539 'Status = stsDefault')
540 (
541 'Component = lblEarliest'
542 'Status = stsDefault')
543 (
544 'Component = calEarliest'
545 'Status = stsDefault')
546 (
547 'Component = lblLatest'
548 'Status = stsDefault')
549 (
550 'Component = calLatest'
551 'Status = stsDefault')
552 (
553 'Component = txtCombatVet'
554 'Status = stsDefault')
555 (
556 'Component = servicelbl508'
557 'Status = stsDefault'))
558 end
559 object mnuPopProvDx: TPopupMenu
560 Left = 353
561 Top = 133
562 object mnuPopProvDxDelete: TMenuItem
563 Caption = 'Delete diagnosis'
564 OnClick = mnuPopProvDxDeleteClick
565 end
566 end
567 object popReason: TPopupMenu
568 OnPopup = popReasonPopup
569 Left = 483
570 Top = 337
571 object popReasonCut: TMenuItem
572 Caption = 'Cu&t'
573 ShortCut = 16472
574 OnClick = popReasonCutClick
575 end
576 object popReasonCopy: TMenuItem
577 Caption = '&Copy'
578 ShortCut = 16451
579 OnClick = popReasonCopyClick
580 end
581 object popReasonPaste: TMenuItem
582 Caption = '&Paste'
583 ShortCut = 16470
584 OnClick = popReasonPasteClick
585 end
586 object popReasonPaste2: TMenuItem
587 Caption = 'Paste2'
588 ShortCut = 8237
589 Visible = False
590 OnClick = popReasonPasteClick
591 end
592 object popReasonReformat: TMenuItem
593 Caption = 'Reformat Paragraph'
594 ShortCut = 16466
595 OnClick = popReasonReformatClick
596 end
597 end
598end
Note: See TracBrowser for help on using the repository browser.