source: cprs/trunk/CPRS-Chart/fNoteProps.dfm@ 1780

Last change on this file since 1780 was 830, checked in by Kevin Toppenberg, 14 years ago

Upgrading to version 27
File size: 12.4 KB
Line 
1inherited frmNoteProperties: TfrmNoteProperties
2 Left = 384
3 Top = 56
4 BorderIcons = []
5 Caption = 'Progress Note Properties'
6 ClientHeight = 676
7 ClientWidth = 543
8 Constraints.MinWidth = 551
9 Position = poScreenCenter
10 OnDestroy = FormDestroy
11 OnResize = FormResize
12 OnShow = FormShow
13 ExplicitLeft = 384
14 ExplicitTop = 56
15 ExplicitWidth = 551
16 ExplicitHeight = 710
17 PixelsPerInch = 96
18 TextHeight = 13
19 object lblNewTitle: TLabel [0]
20 Left = 7
21 Top = 14
22 Width = 93
23 Height = 13
24 Alignment = taRightJustify
25 Caption = 'Progress Note Title:'
26 end
27 object lblDateTime: TLabel [1]
28 Left = 6
29 Top = 138
30 Width = 94
31 Height = 13
32 Alignment = taRightJustify
33 AutoSize = False
34 Caption = 'Date/Time of Note:'
35 end
36 object lblAuthor: TLabel [2]
37 Left = 6
38 Top = 165
39 Width = 94
40 Height = 13
41 Alignment = taRightJustify
42 AutoSize = False
43 Caption = 'Author:'
44 end
45 object lblCosigner: TLabel [3]
46 Left = 6
47 Top = 192
48 Width = 94
49 Height = 13
50 Alignment = taRightJustify
51 AutoSize = False
52 Caption = 'Expected Cosigner:'
53 end
54 object lblProcSummCode: TOROffsetLabel [4]
55 Left = 371
56 Top = 135
57 Width = 125
58 Height = 15
59 Caption = 'Procedure Summary Code'
60 HorzOffset = 2
61 Transparent = False
62 VertOffset = 2
63 WordWrap = False
64 end
65 object lblProcDateTime: TOROffsetLabel [5]
66 Left = 371
67 Top = 174
68 Width = 105
69 Height = 15
70 Caption = 'Procedure Date/Time'
71 HorzOffset = 2
72 Transparent = False
73 VertOffset = 2
74 WordWrap = False
75 end
76 object cboNewTitle: TORComboBox [6]
77 Left = 104
78 Top = 11
79 Width = 347
80 Height = 118
81 Style = orcsSimple
82 AutoSelect = True
83 Caption = 'Progress Note Title'
84 Color = clWindow
85 DropDownCount = 8
86 ItemHeight = 13
87 ItemTipColor = clWindow
88 ItemTipEnable = True
89 ListItemsOnly = True
90 LongList = True
91 LookupPiece = 0
92 MaxLength = 0
93 ParentShowHint = False
94 Pieces = '2'
95 ShowHint = True
96 Sorted = False
97 SynonymChars = '<>'
98 TabOrder = 0
99 OnDblClick = cboNewTitleDblClick
100 OnDropDownClose = cboNewTitleDropDownClose
101 OnEnter = cboNewTitleEnter
102 OnExit = cboNewTitleExit
103 OnMouseClick = cboNewTitleMouseClick
104 OnNeedData = cboNewTitleNeedData
105 CharsNeedMatch = 1
106 end
107 object calNote: TORDateBox [7]
108 Left = 104
109 Top = 135
110 Width = 140
111 Height = 21
112 TabOrder = 1
113 OnEnter = calNoteEnter
114 DateOnly = False
115 RequireTime = True
116 Caption = 'Date/Time of Note:'
117 end
118 object cboAuthor: TORComboBox [8]
119 Left = 104
120 Top = 162
121 Width = 239
122 Height = 21
123 Style = orcsDropDown
124 AutoSelect = True
125 Caption = 'Author'
126 Color = clWindow
127 DropDownCount = 8
128 ItemHeight = 13
129 ItemTipColor = clWindow
130 ItemTipEnable = True
131 ListItemsOnly = False
132 LongList = True
133 LookupPiece = 2
134 MaxLength = 0
135 ParentShowHint = False
136 Pieces = '2,3'
137 ShowHint = True
138 Sorted = False
139 SynonymChars = '<>'
140 TabOrder = 2
141 OnEnter = cboAuthorEnter
142 OnExit = cboAuthorExit
143 OnMouseClick = cboAuthorMouseClick
144 OnNeedData = NewPersonNeedData
145 CharsNeedMatch = 1
146 end
147 object cboCosigner: TORComboBox [9]
148 Left = 104
149 Top = 189
150 Width = 239
151 Height = 21
152 Style = orcsDropDown
153 AutoSelect = True
154 Caption = 'Expected Cosigner:'
155 Color = clWindow
156 DropDownCount = 8
157 ItemHeight = 13
158 ItemTipColor = clWindow
159 ItemTipEnable = True
160 ListItemsOnly = False
161 LongList = True
162 LookupPiece = 2
163 MaxLength = 0
164 ParentShowHint = False
165 Pieces = '2,3'
166 ShowHint = True
167 Sorted = False
168 SynonymChars = '<>'
169 TabOrder = 3
170 OnExit = cboCosignerExit
171 OnNeedData = cboCosignerNeedData
172 CharsNeedMatch = 1
173 end
174 object cmdOK: TButton [10]
175 Left = 465
176 Top = 11
177 Width = 72
178 Height = 21
179 Caption = 'OK'
180 Default = True
181 TabOrder = 9
182 OnClick = cmdOKClick
183 end
184 object cmdCancel: TButton [11]
185 Left = 465
186 Top = 38
187 Width = 72
188 Height = 21
189 Cancel = True
190 Caption = 'Cancel'
191 TabOrder = 10
192 OnClick = cmdCancelClick
193 end
194 object cboProcSummCode: TORComboBox [12]
195 Left = 371
196 Top = 150
197 Width = 142
198 Height = 21
199 Style = orcsDropDown
200 AutoSelect = True
201 Caption = 'Procedure Summary Code'
202 Color = clWindow
203 DropDownCount = 8
204 Items.Strings = (
205 '1^Normal'
206 '2^Abnormal'
207 '3^Borderline'
208 '4^Incomplete')
209 ItemHeight = 13
210 ItemTipColor = clWindow
211 ItemTipEnable = True
212 ListItemsOnly = False
213 LongList = False
214 LookupPiece = 0
215 MaxLength = 0
216 Pieces = '2'
217 Sorted = False
218 SynonymChars = '<>'
219 TabOrder = 4
220 CharsNeedMatch = 1
221 end
222 object calProcDateTime: TORDateBox [13]
223 Left = 371
224 Top = 189
225 Width = 142
226 Height = 21
227 TabOrder = 5
228 OnEnter = calNoteEnter
229 DateOnly = False
230 RequireTime = True
231 Caption = 'Procedure Date/Time'
232 end
233 object pnlSurgery: TORAutoPanel [14]
234 Tag = 2
235 Left = 0
236 Top = 217
237 Width = 543
238 Height = 153
239 Align = alBottom
240 BevelOuter = bvNone
241 TabOrder = 6
242 Visible = False
243 object lblSurgDate: TLabel
244 Tag = 2
245 Left = 2
246 Top = 40
247 Width = 62
248 Height = 13
249 Caption = 'Surgery Date'
250 end
251 object lblSurgProc: TLabel
252 Tag = 2
253 Left = 98
254 Top = 40
255 Width = 49
256 Height = 13
257 Caption = 'Procedure'
258 end
259 object lblSurgeon: TLabel
260 Tag = 2
261 Left = 362
262 Top = 40
263 Width = 40
264 Height = 13
265 Caption = 'Surgeon'
266 end
267 object bvlSurgery: TBevel
268 Tag = 2
269 Left = 1
270 Top = 2
271 Width = 531
272 Height = 2
273 end
274 object lblSurgery1: TStaticText
275 Tag = 2
276 Left = 103
277 Top = 8
278 Width = 284
279 Height = 17
280 Caption = 'This document title must be associated with a surgery case.'
281 Font.Charset = DEFAULT_CHARSET
282 Font.Color = clWindowText
283 Font.Height = -11
284 Font.Name = 'MS Sans Serif'
285 Font.Style = []
286 ParentFont = False
287 TabOrder = 1
288 end
289 object lblSurgery2: TStaticText
290 Tag = 2
291 Left = 93
292 Top = 22
293 Width = 335
294 Height = 17
295 Caption =
296 'Select one of the following or press cancel and choose a differe' +
297 'nt title.'
298 TabOrder = 2
299 end
300 object lstSurgery: TORListBox
301 Tag = 2
302 Left = 0
303 Top = 52
304 Width = 543
305 Height = 101
306 Align = alBottom
307 ItemHeight = 13
308 ParentShowHint = False
309 ShowHint = True
310 TabOrder = 0
311 Caption = 'Associated Surgery Case'
312 ItemTipColor = clWindow
313 LongList = False
314 Pieces = '3,2,4'
315 TabPositions = '16,60,85'
316 end
317 end
318 object pnlConsults: TORAutoPanel [15]
319 Tag = 1
320 Left = 0
321 Top = 370
322 Width = 543
323 Height = 153
324 Align = alBottom
325 BevelOuter = bvNone
326 TabOrder = 7
327 Visible = False
328 object lblConsult1: TLabel
329 Tag = 1
330 Left = 3
331 Top = 8
332 Width = 309
333 Height = 13
334 Caption =
335 'This progress note title must be associated with a consult reque' +
336 'st.'
337 Font.Charset = DEFAULT_CHARSET
338 Font.Color = clWindowText
339 Font.Height = -11
340 Font.Name = 'MS Sans Serif'
341 Font.Style = []
342 ParentFont = False
343 end
344 object lblConsult2: TLabel
345 Tag = 1
346 Left = 3
347 Top = 22
348 Width = 247
349 Height = 13
350 Caption = 'Select one of the following or choose a different title.'
351 end
352 object lblCsltDate: TLabel
353 Tag = 1
354 Left = 2
355 Top = 40
356 Width = 104
357 Height = 13
358 Caption = 'Consult Request Date'
359 end
360 object lblCsltServ: TLabel
361 Tag = 1
362 Left = 128
363 Top = 40
364 Width = 36
365 Height = 13
366 Caption = 'Service'
367 end
368 object lblCsltProc: TLabel
369 Tag = 1
370 Left = 261
371 Top = 40
372 Width = 49
373 Height = 13
374 Caption = 'Procedure'
375 end
376 object lblCsltStat: TLabel
377 Tag = 1
378 Left = 416
379 Top = 40
380 Width = 30
381 Height = 13
382 Caption = 'Status'
383 end
384 object lblCsltNotes: TLabel
385 Tag = 1
386 Left = 482
387 Top = 40
388 Width = 38
389 Height = 13
390 Caption = '# Notes'
391 end
392 object bvlConsult: TBevel
393 Tag = 1
394 Left = 1
395 Top = 2
396 Width = 531
397 Height = 2
398 end
399 object lstRequests: TORListBox
400 Tag = 1
401 Left = 0
402 Top = 52
403 Width = 543
404 Height = 101
405 Align = alBottom
406 ItemHeight = 13
407 ParentShowHint = False
408 ShowHint = True
409 TabOrder = 0
410 Caption = 'Associated Consult Request'
411 ItemTipColor = clWindow
412 LongList = False
413 Pieces = '2,3,4,5,6'
414 TabPositions = '21,43,69,83'
415 OnChange = lstRequestsChange
416 end
417 object btnShowList: TButton
418 Left = 335
419 Top = 13
420 Width = 100
421 Height = 21
422 Caption = 'Show Unresolved'
423 TabOrder = 1
424 OnClick = btnShowListClick
425 end
426 object btnDetails: TButton
427 Left = 450
428 Top = 13
429 Width = 75
430 Height = 21
431 Caption = 'Show Details'
432 TabOrder = 2
433 OnClick = btnDetailsClick
434 end
435 end
436 object pnlPRF: TORAutoPanel [16]
437 Tag = 3
438 Left = 0
439 Top = 523
440 Width = 543
441 Height = 153
442 Align = alBottom
443 BevelOuter = bvNone
444 TabOrder = 8
445 Visible = False
446 object lblPRF: TLabel
447 Tag = 1
448 Left = 2
449 Top = 16
450 Width = 304
451 Height = 13
452 Caption = 'Which Patient Record Flag Action should this Note be linked to?'
453 Font.Charset = DEFAULT_CHARSET
454 Font.Color = clWindowText
455 Font.Height = -11
456 Font.Name = 'MS Sans Serif'
457 Font.Style = []
458 ParentFont = False
459 end
460 object Bevel1: TBevel
461 Tag = 1
462 Left = 1
463 Top = 2
464 Width = 531
465 Height = 2
466 end
467 object lvPRF: TCaptionListView
468 Left = 0
469 Top = 32
470 Width = 543
471 Height = 121
472 Align = alBottom
473 Columns = <
474 item
475 Caption = 'Used For Screen Readers'
476 Width = 1
477 end
478 item
479 AutoSize = True
480 Caption = 'Flag'
481 end
482 item
483 AutoSize = True
484 Caption = 'Date'
485 end
486 item
487 AutoSize = True
488 Caption = 'Action'
489 end
490 item
491 AutoSize = True
492 Caption = 'Note'
493 end>
494 Constraints.MinHeight = 50
495 HideSelection = False
496 ReadOnly = True
497 RowSelect = True
498 TabOrder = 0
499 ViewStyle = vsReport
500 end
501 end
502 inherited amgrMain: TVA508AccessibilityManager
503 Data = (
504 (
505 'Component = cboNewTitle'
506 'Status = stsDefault')
507 (
508 'Component = calNote'
509 'Label = lblDateTime'
510 'Status = stsOK')
511 (
512 'Component = cboAuthor'
513 'Status = stsDefault')
514 (
515 'Component = cboCosigner'
516 'Status = stsDefault')
517 (
518 'Component = cmdOK'
519 'Status = stsDefault')
520 (
521 'Component = cmdCancel'
522 'Status = stsDefault')
523 (
524 'Component = cboProcSummCode'
525 'Status = stsDefault')
526 (
527 'Component = calProcDateTime'
528 'Property = Caption'
529 'Status = stsOK')
530 (
531 'Component = pnlSurgery'
532 'Status = stsDefault')
533 (
534 'Component = lblSurgery1'
535 'Status = stsDefault')
536 (
537 'Component = lblSurgery2'
538 'Status = stsDefault')
539 (
540 'Component = lstSurgery'
541 'Status = stsDefault')
542 (
543 'Component = pnlConsults'
544 'Status = stsDefault')
545 (
546 'Component = lstRequests'
547 'Status = stsDefault')
548 (
549 'Component = btnShowList'
550 'Status = stsDefault')
551 (
552 'Component = btnDetails'
553 'Status = stsDefault')
554 (
555 'Component = pnlPRF'
556 'Status = stsDefault')
557 (
558 'Component = lvPRF'
559 'Status = stsDefault')
560 (
561 'Component = frmNoteProperties'
562 'Status = stsDefault'))
563 end
564end
Note: See TracBrowser for help on using the repository browser.