source: cprs/branches/tmg-cprs/CPRS-Chart/fNoteProps.pas.dfm@ 1681

Last change on this file since 1681 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69
File size: 14.0 KB
Line 
1object frmNoteProperties: TfrmNoteProperties
2 Left = 384
3 Top = 56
4 AutoScroll = False
5 BorderIcons = []
6 Caption = 'Progress Note Properties'
7 ClientHeight = 676
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
18 OnDestroy = FormDestroy
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
109 CharsNeedMatch = 1
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
149 CharsNeedMatch = 1
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
176 CharsNeedMatch = 1
177 end
178 object cmdOK: TButton
179 Left = 465
180 Top = 11
181 Width = 72
182 Height = 21
183 Caption = 'OK'
184 Default = True
185 TabOrder = 9
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'
195 TabOrder = 10
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
224 CharsNeedMatch = 1
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
240 Top = 217
241 Width = 543
242 Height = 153
243 Align = alBottom
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
324 Top = 370
325 Width = 543
326 Height = 153
327 Align = alBottom
328 BevelOuter = bvNone
329 TabOrder = 7
330 object lblConsult1: TLabel
331 Tag = 1
332 Left = 3
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
348 Left = 3
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'
417 OnChange = lstRequestsChange
418 end
419 object btnShowList: TButton
420 Left = 335
421 Top = 13
422 Width = 100
423 Height = 21
424 Caption = 'Show Unresolved'
425 TabOrder = 1
426 OnClick = btnShowListClick
427 end
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
437 end
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
507 object DKLanguageController1: TDKLanguageController
508 Left = 264
509 Top = 344
510 LangData = {
511 110066726D4E6F746550726F7065727469657301010000000100000007004361
512 7074696F6E01260000000B006C626C4E65775469746C65010100000002000000
513 070043617074696F6E000B006C626C4461746554696D65010100000003000000
514 070043617074696F6E0009006C626C417574686F720101000000040000000700
515 43617074696F6E000B006C626C436F7369676E65720101000000050000000700
516 43617074696F6E000F006C626C50726F6353756D6D436F646501010000000600
517 0000070043617074696F6E000F006C626C50726F634461746554696D65010100
518 000007000000070043617074696F6E000B0063626F4E65775469746C65010100
519 000008000000070043617074696F6E00070063616C4E6F746501010000000900
520 0000070043617074696F6E00090063626F417574686F7201010000000A000000
521 070043617074696F6E000B0063626F436F7369676E657201010000000B000000
522 070043617074696F6E000500636D644F4B01010000000C000000070043617074
523 696F6E000900636D6443616E63656C01010000000D000000070043617074696F
524 6E000F0063626F50726F6353756D6D436F646501020000000E00000007004361
525 7074696F6E0F00000005004974656D73000F0063616C50726F63446174655469
526 6D65010100000010000000070043617074696F6E000A00706E6C537572676572
527 7900000B006C626C537572674461746501010000001100000007004361707469
528 6F6E000B006C626C5375726750726F6301010000001200000007004361707469
529 6F6E000A006C626C53757267656F6E010100000013000000070043617074696F
530 6E000A0062766C5375726765727900000B006C626C5375726765727931010100
531 000014000000070043617074696F6E000B006C626C5375726765727932010100
532 000015000000070043617074696F6E000A006C73745375726765727901010000
533 0016000000070043617074696F6E000B00706E6C436F6E73756C747300000B00
534 6C626C436F6E73756C7431010100000017000000070043617074696F6E000B00
535 6C626C436F6E73756C7432010100000018000000070043617074696F6E000B00
536 6C626C43736C7444617465010100000019000000070043617074696F6E000B00
537 6C626C43736C745365727601010000001A000000070043617074696F6E000B00
538 6C626C43736C7450726F6301010000001B000000070043617074696F6E000B00
539 6C626C43736C745374617401010000001C000000070043617074696F6E000C00
540 6C626C43736C744E6F74657301010000001D000000070043617074696F6E000A
541 0062766C436F6E73756C7400000B006C7374526571756573747301010000001E
542 000000070043617074696F6E000B0062746E53686F774C69737401010000001F
543 000000070043617074696F6E000A0062746E44657461696C7301010000002000
544 0000070043617074696F6E000600706E6C505246000006006C626C5052460101
545 00000021000000070043617074696F6E000600426576656C31000005006C7650
546 52460105000000220000001200436F6C756D6E735B305D2E43617074696F6E23
547 0000001200436F6C756D6E735B315D2E43617074696F6E240000001200436F6C
548 756D6E735B325D2E43617074696F6E250000001200436F6C756D6E735B335D2E
549 43617074696F6E260000001200436F6C756D6E735B345D2E43617074696F6E00}
550 end
551end
Note: See TracBrowser for help on using the repository browser.