source: cprs/branches/foia-cprs/CPRS-Chart/fNoteProps.dfm@ 1527

Last change on this file since 1527 was 460, checked in by Kevin Toppenberg, 17 years ago

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