source: cprs/branches/tmg-cprs/CPRS-Chart/fSurgery.dfm@ 1035

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

update
File size: 32.2 KB
RevLine 
[453]1inherited frmSurgery: TfrmSurgery
[793]2 Left = 304
[453]3 Top = 221
4 Width = 720
5 Height = 409
6 Align = alClient
7 Caption = 'Surgery Page'
8 HelpFile = 'overvw'
9 Menu = mnuNotes
10 OnDestroy = FormDestroy
11 PixelsPerInch = 96
12 TextHeight = 13
13 inherited shpPageBottom: TShape
14 Top = 350
15 Width = 712
16 end
17 inherited sptHorz: TSplitter
18 Left = 64
19 Height = 350
20 AutoSnap = False
21 OnCanResize = sptHorzCanResize
22 end
23 inherited pnlLeft: TPanel
24 Width = 64
25 Height = 350
26 object lblCases: TOROffsetLabel
27 Left = 0
28 Top = 0
29 Width = 64
30 Height = 19
31 Align = alTop
32 Caption = 'Last 100 Surgery Cases'
33 HorzOffset = 2
34 ParentShowHint = False
35 ShowHint = True
36 Transparent = True
37 VertOffset = 6
38 WordWrap = False
39 end
40 object lblSpace1: TLabel
41 Left = 0
42 Top = 305
43 Width = 64
44 Height = 3
45 Align = alBottom
46 AutoSize = False
47 Caption = ' '
48 end
49 object cmdNewNote: TORAlignButton
50 Left = 0
51 Top = 308
52 Width = 64
53 Height = 21
54 Caption = 'New Report'
55 TabOrder = 0
56 Visible = False
57 OnClick = cmdNewNoteClick
58 Align = alBottom
59 end
60 object cmdPCE: TORAlignButton
61 Left = 0
62 Top = 329
63 Width = 64
64 Height = 21
65 Caption = 'Encounter'
66 TabOrder = 1
67 Visible = False
68 OnClick = cmdPCEClick
69 Align = alBottom
70 end
71 object pnlDrawers: TPanel
72 Left = 0
73 Top = 19
74 Width = 64
75 Height = 286
76 Align = alClient
77 BevelOuter = bvNone
78 TabOrder = 2
79 object splDrawers: TSplitter
80 Left = 0
81 Top = 283
82 Width = 64
83 Height = 3
84 Cursor = crVSplit
85 Align = alBottom
86 end
87 object lstNotes: TORListBox
88 Left = 14
89 Top = 289
90 Width = 121
91 Height = 97
92 ItemHeight = 13
93 ParentShowHint = False
94 ShowHint = True
95 TabOrder = 1
96 Visible = False
97 OnClick = lstNotesClick
98 ItemTipColor = clWindow
99 LongList = False
100 end
101 object tvSurgery: TORTreeView
102 Left = 0
103 Top = 0
104 Width = 64
105 Height = 283
106 Align = alClient
107 Constraints.MinWidth = 30
108 DragMode = dmAutomatic
109 HideSelection = False
110 Indent = 19
111 PopupMenu = popNoteList
112 ReadOnly = True
113 TabOrder = 0
114 OnAddition = tvSurgeryAddition
115 OnChange = tvSurgeryChange
116 OnCollapsed = tvSurgeryCollapsed
117 OnDeletion = tvSurgeryDeletion
118 OnExpanded = tvSurgeryExpanded
119 Caption = 'Last 100 Surgery Cases'
120 NodePiece = 0
121 ShortNodeCaptions = True
122 end
123 end
124 end
125 inherited pnlRight: TPanel
126 Left = 68
127 Width = 644
128 Height = 350
129 object sptVert: TSplitter
130 Left = 0
131 Top = 301
132 Width = 644
133 Height = 4
134 Cursor = crVSplit
135 Align = alBottom
136 end
137 object pnlRead: TPanel
138 Left = 0
139 Top = 0
140 Width = 644
141 Height = 301
142 Align = alClient
143 BevelOuter = bvNone
144 TabOrder = 0
145 object lblTitle: TOROffsetLabel
146 Left = 0
147 Top = 0
148 Width = 644
149 Height = 19
150 Align = alTop
151 Caption = 'No Surgery Cases Found'
152 Font.Charset = DEFAULT_CHARSET
153 Font.Color = clWindowText
154 Font.Height = -11
155 Font.Name = 'MS Sans Serif'
156 Font.Style = []
157 HorzOffset = 2
158 ParentFont = False
159 ParentShowHint = False
160 ShowHint = True
161 Transparent = False
162 VertOffset = 6
163 WordWrap = False
164 end
165 object memSurgery: TRichEdit
166 Left = 0
167 Top = 19
168 Width = 644
169 Height = 282
170 Align = alClient
171 Color = clCream
172 Ctl3D = True
173 Font.Charset = DEFAULT_CHARSET
174 Font.Color = clWindowText
175 Font.Height = -11
176 Font.Name = 'Courier New'
177 Font.Style = []
178 Lines.Strings = (
179
180 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRUSTVWXYZabcdefghijkl' +
181 'mnopqrstuvwxyz12')
182 ParentCtl3D = False
183 ParentFont = False
184 PlainText = True
185 PopupMenu = popNoteMemo
186 ReadOnly = True
187 ScrollBars = ssBoth
188 TabOrder = 0
189 WantReturns = False
190 WordWrap = False
191 end
192 end
193 object memPCEShow: TRichEdit
194 Left = 0
195 Top = 305
196 Width = 644
197 Height = 45
198 Align = alBottom
199 Color = clCream
200 Lines.Strings = (
201 '<No encounter information entered>')
202 PlainText = True
203 ReadOnly = True
204 ScrollBars = ssVertical
205 TabOrder = 2
206 WantReturns = False
207 end
208 object pnlWrite: TPanel
209 Left = 0
210 Top = 0
211 Width = 644
212 Height = 301
213 Align = alClient
214 BevelOuter = bvNone
215 TabOrder = 1
216 Visible = False
217 OnResize = pnlWriteResize
218 object memNewNote: TRichEdit
219 Left = 0
220 Top = 67
221 Width = 644
222 Height = 234
223 Align = alClient
224 Font.Charset = DEFAULT_CHARSET
225 Font.Color = clWindowText
226 Font.Height = -11
227 Font.Name = 'Courier New'
228 Font.Style = []
229 ParentFont = False
230 PlainText = True
231 PopupMenu = popNoteMemo
232 ScrollBars = ssBoth
233 TabOrder = 0
234 WantTabs = True
235 OnChange = memNewNoteChange
236 OnKeyDown = memNewNoteKeyDown
237 end
238 object pnlFields: TPanel
239 Left = 0
240 Top = 0
241 Width = 644
242 Height = 67
243 Align = alTop
244 BevelOuter = bvNone
245 TabOrder = 1
246 OnResize = pnlFieldsResize
247 DesignSize = (
248 644
249 67)
250 object bvlNewTitle: TBevel
251 Left = 5
252 Top = 5
253 Width = 117
254 Height = 15
255 end
256 object lblRefDate: TLabel
257 Left = 237
258 Top = 6
259 Width = 97
260 Height = 13
261 Hint = 'Press "Change..." to change date/time of note.'
262 Alignment = taCenter
263 Caption = 'Oct 20,1999@15:30'
264 ParentShowHint = False
265 ShowAccelChar = False
266 ShowHint = True
267 end
268 object lblAuthor: TLabel
269 Left = 426
270 Top = 6
271 Width = 148
272 Height = 13
273 Hint = 'Press "Change..." to select a different author.'
274 Alignment = taRightJustify
275 Anchors = [akTop, akRight]
276 Caption = 'Winchester,Charles Emerson III'
277 ParentShowHint = False
278 ShowAccelChar = False
279 ShowHint = True
280 end
281 object lblVisit: TLabel
282 Left = 6
283 Top = 21
284 Width = 200
285 Height = 13
286 Caption = 'Vst: 10/20/99 Pulmonary Clinic, Dr. Welby'
287 ShowAccelChar = False
288 end
289 object lblCosigner: TLabel
290 Left = 331
291 Top = 21
292 Width = 243
293 Height = 13
294 Hint = 'Press "Change..." to select a different cosigner.'
295 Alignment = taRightJustify
296 Anchors = [akTop, akRight]
297 AutoSize = False
298 Caption = 'Expected Cosigner: Winchester,Charles Emerson III'
299 ParentShowHint = False
300 ShowAccelChar = False
301 ShowHint = True
302 end
303 object lblSubject: TLabel
304 Left = 6
305 Top = 43
306 Width = 39
307 Height = 13
308 Caption = 'Subject:'
309 end
310 object lblNewTitle: TLabel
311 Left = 6
312 Top = 6
313 Width = 115
314 Height = 13
315 Hint = 'Press "Change..." to select a different title.'
316 Caption = ' General Medicine Note '
317 Color = clCream
318 Font.Charset = DEFAULT_CHARSET
319 Font.Color = clWindowText
320 Font.Height = -11
321 Font.Name = 'MS Sans Serif'
322 Font.Style = []
323 ParentColor = False
324 ParentFont = False
325 ParentShowHint = False
326 ShowAccelChar = False
327 ShowHint = True
328 end
329 object cmdChange: TButton
330 Left = 580
331 Top = 6
332 Width = 58
333 Height = 21
334 Anchors = [akTop, akRight]
335 Caption = 'Change...'
336 TabOrder = 0
337 OnClick = cmdChangeClick
338 end
339 object txtSubject: TCaptionEdit
340 Left = 48
341 Top = 40
342 Width = 590
343 Height = 21
344 Hint = 'Subject is limited to a maximum of 80 characters.'
345 Anchors = [akLeft, akTop, akRight]
346 MaxLength = 80
347 ParentShowHint = False
348 ShowHint = True
349 TabOrder = 1
350 Text = 'txtSubject'
351 Caption = 'Subject'
352 end
353 end
354 end
355 end
356 inherited DKLanguageController1: TDKLanguageController
357 LangData = {
358 0A0066726D53757267657279010200000001000000070043617074696F6E0200
359 0000080048656C7046696C6501860000000D0073687050616765426F74746F6D
360 00000700737074486F727A00000700706E6C4C65667400000800706E6C526967
361 6874000008006C626C4361736573010100000003000000070043617074696F6E
362 0009006C626C53706163653100000A00636D644E65774E6F7465010100000004
363 000000070043617074696F6E000600636D645043450101000000050000000700
364 43617074696F6E000A00706E6C4472617765727300000A0073706C4472617765
365 7273000008006C73744E6F746573000009007476537572676572790101000000
366 06000000070043617074696F6E0007007370745665727400000700706E6C5265
367 6164000008006C626C5469746C65010100000007000000070043617074696F6E
368 000A006D656D5375726765727901010000000800000005004C696E6573000A00
369 6D656D50434553686F7701010000000900000005004C696E6573000800706E6C
370 577269746500000A006D656D4E65774E6F746500000900706E6C4669656C6473
371 00000B0062766C4E65775469746C6500000A006C626C52656644617465010200
372 00000B000000070043617074696F6E0A000000040048696E740009006C626C41
373 7574686F7201020000000D000000070043617074696F6E0C000000040048696E
374 740008006C626C566973697401010000000E000000070043617074696F6E000B
375 006C626C436F7369676E6572010200000010000000070043617074696F6E0F00
376 0000040048696E74000A006C626C5375626A6563740101000000110000000700
377 43617074696F6E000B006C626C4E65775469746C650102000000130000000700
378 43617074696F6E12000000040048696E74000900636D644368616E6765010100
379 000014000000070043617074696F6E000A007478745375626A65637401030000
380 0017000000070043617074696F6E15000000040048696E741600000004005465
381 78740008006D6E754E6F746573000007006D6E75566965770101000000180000
382 00070043617074696F6E000C006D6E7556696577436861727401010000001900
383 0000070043617074696F6E000D006D6E754368617274436F7665720101000000
384 1A000000070043617074696F6E000D006D6E75436861727450726F6273010100
385 00001B000000070043617074696F6E000C006D6E7543686172744D6564730101
386 0000001C000000070043617074696F6E000E006D6E7543686172744F72646572
387 7301010000001D000000070043617074696F6E000D006D6E7543686172744E6F
388 74657301010000001E000000070043617074696F6E000D006D6E754368617274
389 43736C747301010000001F000000070043617074696F6E000F006D6E75436861
390 727453757267657279010100000020000000070043617074696F6E000E006D6E
391 754368617274444353756D6D010100000021000000070043617074696F6E000C
392 006D6E7543686172744C616273010100000022000000070043617074696F6E00
393 0F006D6E7543686172745265706F727473010100000023000000070043617074
394 696F6E0012006D6E7556696577496E666F726D6174696F6E0101000000240000
395 00070043617074696F6E000B006D6E755669657744656D6F0101000000250000
396 00070043617074696F6E000D006D6E7556696577566973697473010100000026
397 000000070043617074696F6E0012006D6E75566965775072696D617279436172
398 65010100000027000000070043617074696F6E0013006D6E75566965774D7948
399 65616C746865566574010100000028000000070043617074696F6E000C006D6E
400 75496E737572616E6365010100000029000000070043617074696F6E000C006D
401 6E7556696577466C61677301010000002A000000070043617074696F6E001100
402 6D6E755669657752656D6F74654461746101010000002B000000070043617074
403 696F6E0010006D6E755669657752656D696E6465727301010000002C00000007
404 0043617074696F6E000F006D6E7556696577506F7374696E677301010000002D
405 000000070043617074696F6E0002005A3300000A006D6E7556696577416C6C01
406 010000002E000000070043617074696F6E0010006D6E75566965774279537572
407 67656F6E01010000002F000000070043617074696F6E000D006D6E7556696577
408 427944617465010100000030000000070043617074696F6E0011006D6E755669
409 6577556E636F7369676E6564010100000031000000070043617074696F6E000F
410 006D6E7556696577556E7369676E656401010000003200000007004361707469
411 6F6E000D006D6E7556696577437573746F6D0101000000330000000700436170
412 74696F6E0002004E31000014006D6E755669657753617665417344656661756C
413 74010100000034000000070043617074696F6E00100052657475726E746F4465
414 6661756C7431010100000035000000070043617074696F6E0002005A3100000D
415 006D6E755669657744657461696C010100000036000000070043617074696F6E
416 0002004E3600000D006D6E7549636F6E4C6567656E6401010000003700000007
417 0043617074696F6E0006006D6E75416374010100000038000000070043617074
418 696F6E0009006D6E754163744E6577010200000039000000070043617074696F
419 6E3A000000040048696E74000C006D6E75416374416464656E6401020000003B
420 000000070043617074696F6E3C000000040048696E740010006D6E7541637441
421 64644944456E74727901010000003D000000070043617074696F6E0018006D6E
422 7541637444657461636846726F6D4944506172656E7401010000003E00000007
423 0043617074696F6E0002005A3400000C006D6E754163744368616E6765010100
424 00003F000000070043617074696F6E0010006D6E754163744C6F6164426F696C
425 6572010100000040000000070043617074696F6E0002005A3200000E006D6E75
426 4163745369676E4C697374010200000041000000070043617074696F6E420000
427 00040048696E74000C006D6E7541637444656C65746501010000004300000007
428 0043617074696F6E000A006D6E75416374456469740101000000440000000700
429 43617074696F6E000A006D6E7541637453617665010200000045000000070043
430 617074696F6E46000000040048696E74000A006D6E754163745369676E010100
431 000047000000070043617074696F6E0019006D6E754163744964656E74696679
432 4164646C5369676E657273010100000048000000070043617074696F6E000A00
433 6D6E754F7074696F6E73010100000049000000070043617074696F6E0010006D
434 6E754564697454656D706C6174657301010000004A000000070043617074696F
435 6E000E006D6E754E657754656D706C61746501010000004B0000000700436170
436 74696F6E0002004E32000016006D6E754564697453686172656454656D706C61
437 74657301010000004C000000070043617074696F6E0014006D6E754E65775368
438 6172656454656D706C61746501010000004D000000070043617074696F6E0002
439 004E33000012006D6E75456469744469616C674669656C647301010000004E00
440 0000070043617074696F6E000B00706F704E6F74654D656D6F00000E00706F70
441 4E6F74654D656D6F43757401010000004F000000070043617074696F6E000F00
442 706F704E6F74654D656D6F436F7079010100000050000000070043617074696F
443 6E001000706F704E6F74654D656D6F5061737465010100000051000000070043
444 617074696F6E001100706F704E6F74654D656D6F506173746532010100000052
445 000000070043617074696F6E001300706F704E6F74654D656D6F5265666F726D
446 6174010100000053000000070043617074696F6E001700706F704E6F74654D65
447 6D6F53617665436F6E74696E7565010100000054000000070043617074696F6E
448 0003005A313100000F00706F704E6F74654D656D6F46696E6401010000005500
449 0000070043617074696F6E001200706F704E6F74654D656D6F5265706C616365
450 010100000056000000070043617074696F6E0002004E3700001200706F704E6F
451 74654D656D6F4772616D6D6172010100000057000000070043617074696F6E00
452 1000706F704E6F74654D656D6F5370656C6C0101000000580000000700436170
453 74696F6E0003005A313200001300706F704E6F74654D656D6F54656D706C6174
454 65010100000059000000070043617074696F6E0003005A313000001300706F70
455 4E6F74654D656D6F5369676E4C69737401010000005A00000007004361707469
456 6F6E001100706F704E6F74654D656D6F44656C65746501010000005B00000007
457 0043617074696F6E000F00706F704E6F74654D656D6F4564697401010000005C
458 000000070043617074696F6E001100706F704E6F74654D656D6F416464656E64
459 01010000005D000000070043617074696F6E000F00706F704E6F74654D656D6F
460 5361766501010000005E000000070043617074696F6E000F00706F704E6F7465
461 4D656D6F5369676E01010000005F000000070043617074696F6E001300706F70
462 4E6F74654D656D6F4164646C5369676E01010000006000000007004361707469
463 6F6E0002004E3800001200706F704E6F74654D656D6F50726576696577010100
464 000061000000070043617074696F6E001600706F704E6F74654D656D6F496E73
465 54656D706C617465010100000062000000070043617074696F6E001400706F70
466 4E6F74654D656D6F456E636F756E746572010100000063000000070043617074
467 696F6E000B00706F704E6F74654C69737400000E00706F704E6F74654C697374
468 416C6C010100000064000000070043617074696F6E001400706F704E6F74654C
469 697374427953757267656F6E010100000065000000070043617074696F6E0011
470 00706F704E6F74654C6973744279446174650101000000660000000700436170
471 74696F6E001500706F704E6F74654C697374556E636F7369676E656401010000
472 0067000000070043617074696F6E001300706F704E6F74654C697374556E7369
473 676E6564010100000068000000070043617074696F6E001100706F704E6F7465
474 4C697374437573746F6D010100000069000000070043617074696F6E0002004E
475 3400001900706F704E6F74654C697374457870616E6453656C65637465640101
476 0000006A000000070043617074696F6E001400706F704E6F74654C6973744578
477 70616E64416C6C01010000006B000000070043617074696F6E001B00706F704E
478 6F74654C697374436F6C6C6170736553656C656374656401010000006C000000
479 070043617074696F6E001600706F704E6F74654C697374436F6C6C6170736541
480 6C6C01010000006D000000070043617074696F6E0002004E3500001500706F70
481 4E6F74654C6973744164644944456E74727901010000006E0000000700436170
482 74696F6E001D00706F704E6F74654C69737444657461636846726F6D49445061
483 72656E7401010000006F000000070043617074696F6E000B0074696D4175746F
484 5361766500000B00646C6746696E645465787400000E00646C675265706C6163
485 65546578740000}
486 end
487 object mnuNotes: TMainMenu
488 Left = 600
489 Top = 304
490 object mnuView: TMenuItem
491 Caption = '&View'
492 GroupIndex = 3
493 object mnuViewChart: TMenuItem
494 Caption = 'Chart &Tab'
495 object mnuChartCover: TMenuItem
496 Tag = 1
497 Caption = 'Cover &Sheet'
498 ShortCut = 16467
499 OnClick = mnuChartTabClick
500 end
501 object mnuChartProbs: TMenuItem
502 Tag = 2
503 Caption = '&Problem List'
504 ShortCut = 16464
505 OnClick = mnuChartTabClick
506 end
507 object mnuChartMeds: TMenuItem
508 Tag = 3
509 Caption = '&Medications'
510 ShortCut = 16461
511 OnClick = mnuChartTabClick
512 end
513 object mnuChartOrders: TMenuItem
514 Tag = 4
515 Caption = '&Orders'
516 ShortCut = 16463
517 OnClick = mnuChartTabClick
518 end
519 object mnuChartNotes: TMenuItem
520 Tag = 6
521 Caption = 'Progress &Notes'
522 ShortCut = 16462
523 OnClick = mnuChartTabClick
524 end
525 object mnuChartCslts: TMenuItem
526 Tag = 7
527 Caption = 'Consul&ts'
528 ShortCut = 16468
529 OnClick = mnuChartTabClick
530 end
531 object mnuChartSurgery: TMenuItem
532 Tag = 11
533 Caption = 'S&urgery'
534 ShortCut = 16469
535 OnClick = mnuChartTabClick
536 end
537 object mnuChartDCSumm: TMenuItem
538 Tag = 8
539 Caption = '&Discharge Summaries'
540 ShortCut = 16452
541 OnClick = mnuChartTabClick
542 end
543 object mnuChartLabs: TMenuItem
544 Tag = 9
545 Caption = '&Laboratory'
546 ShortCut = 16460
547 OnClick = mnuChartTabClick
548 end
549 object mnuChartReports: TMenuItem
550 Tag = 10
551 Caption = '&Reports'
552 ShortCut = 16466
553 OnClick = mnuChartTabClick
554 end
555 end
556 object mnuViewInformation: TMenuItem
557 Caption = 'Information'
558 OnClick = mnuViewInformationClick
559 object mnuViewDemo: TMenuItem
560 Tag = 1
561 Caption = 'De&mographics...'
562 OnClick = ViewInfo
563 end
564 object mnuViewVisits: TMenuItem
565 Tag = 2
566 Caption = 'Visits/Pr&ovider...'
567 OnClick = ViewInfo
568 end
569 object mnuViewPrimaryCare: TMenuItem
570 Tag = 3
571 Caption = 'Primary &Care...'
572 OnClick = ViewInfo
573 end
574 object mnuViewMyHealtheVet: TMenuItem
575 Tag = 4
576 Caption = 'MyHealthe&Vet...'
577 OnClick = ViewInfo
578 end
579 object mnuInsurance: TMenuItem
580 Tag = 5
581 Caption = '&Insurance...'
582 OnClick = ViewInfo
583 end
584 object mnuViewFlags: TMenuItem
585 Tag = 6
586 Caption = '&Flags...'
587 OnClick = ViewInfo
588 end
589 object mnuViewRemoteData: TMenuItem
590 Tag = 7
591 Caption = 'Remote &Data...'
592 OnClick = ViewInfo
593 end
594 object mnuViewReminders: TMenuItem
595 Tag = 8
596 Caption = '&Reminders...'
597 Enabled = False
598 OnClick = ViewInfo
599 end
600 object mnuViewPostings: TMenuItem
601 Tag = 9
602 Caption = '&Postings...'
603 OnClick = ViewInfo
604 end
605 end
606 object Z3: TMenuItem
607 Caption = '-'
608 end
609 object mnuViewAll: TMenuItem
610 Tag = 1
611 Caption = '&All Cases'
612 OnClick = mnuViewClick
613 end
614 object mnuViewBySurgeon: TMenuItem
615 Tag = 4
616 Caption = 'Cases by &Surgeon'
617 Enabled = False
618 Visible = False
619 OnClick = mnuViewClick
620 end
621 object mnuViewByDate: TMenuItem
622 Tag = 5
623 Caption = 'Cases by Date &Range'
624 Enabled = False
625 Visible = False
626 OnClick = mnuViewClick
627 end
628 object mnuViewUncosigned: TMenuItem
629 Tag = 3
630 Caption = 'Un&cosigned Notes'
631 Enabled = False
632 Visible = False
633 OnClick = mnuViewClick
634 end
635 object mnuViewUnsigned: TMenuItem
636 Tag = 2
637 Caption = '&Unsigned Notes'
638 Enabled = False
639 Visible = False
640 OnClick = mnuViewClick
641 end
642 object mnuViewCustom: TMenuItem
643 Tag = 6
644 Caption = 'Custo&m View'
645 OnClick = mnuViewClick
646 end
647 object N1: TMenuItem
648 Caption = '-'
649 Enabled = False
650 end
651 object mnuViewSaveAsDefault: TMenuItem
652 Caption = 'Sa&ve as Default View'
653 OnClick = mnuViewSaveAsDefaultClick
654 end
655 object ReturntoDefault1: TMenuItem
656 Caption = 'Return to De&fault View'
657 OnClick = mnuViewReturntoDefaultClick
658 end
659 object Z1: TMenuItem
660 Caption = '-'
661 Enabled = False
662 end
663 object mnuViewDetail: TMenuItem
664 Caption = '&Details'
665 OnClick = mnuViewDetailClick
666 end
667 object N6: TMenuItem
668 Caption = '-'
669 Enabled = False
670 end
671 object mnuIconLegend: TMenuItem
672 Caption = 'Icon Legend'
673 OnClick = mnuIconLegendClick
674 end
675 end
676 object mnuAct: TMenuItem
677 Caption = '&Action'
678 GroupIndex = 4
679 object mnuActNew: TMenuItem
680 Caption = '&New Report'
681 Hint = 'Creates a new operative summary'
682 ShortCut = 24654
683 Visible = False
684 OnClick = mnuActNewClick
685 end
686 object mnuActAddend: TMenuItem
687 Caption = '&Make Addendum...'
688 Hint = 'Makes an addendum for the currently selected report'
689 ShortCut = 24653
690 OnClick = mnuActAddendClick
691 end
692 object mnuActAddIDEntry: TMenuItem
693 Caption = 'Add Ne&w Entry to Interdisciplinary Note'
694 Enabled = False
695 Visible = False
696 end
697 object mnuActDetachFromIDParent: TMenuItem
698 Caption = 'Detac&h from Interdisciplinary Note'
699 Enabled = False
700 Visible = False
701 end
702 object Z4: TMenuItem
703 Caption = '-'
704 Enabled = False
705 end
706 object mnuActChange: TMenuItem
707 Caption = '&Change Title...'
708 ShortCut = 24643
709 OnClick = mnuActChangeClick
710 end
711 object mnuActLoadBoiler: TMenuItem
712 Caption = 'Reload &Boilerplate Text'
713 OnClick = mnuActLoadBoilerClick
714 end
715 object Z2: TMenuItem
716 Caption = '-'
717 Enabled = False
718 end
719 object mnuActSignList: TMenuItem
720 Caption = 'Add to Signature &List'
721 Hint =
722 'Adds the currently displayed report to list of things to be sign' +
723 'ed'
724 OnClick = mnuActSignListClick
725 end
726 object mnuActDelete: TMenuItem
727 Caption = '&Delete Report'
728 ShortCut = 24644
729 OnClick = mnuActDeleteClick
730 end
731 object mnuActEdit: TMenuItem
732 Caption = '&Edit Report...'
733 ShortCut = 24645
734 OnClick = mnuActEditClick
735 end
736 object mnuActSave: TMenuItem
737 Caption = 'S&ave without Signature'
738 Hint = 'Saves the report that is being edited'
739 ShortCut = 24641
740 OnClick = mnuActSaveClick
741 end
742 object mnuActSign: TMenuItem
743 Caption = 'Si&gn Report Now...'
744 ShortCut = 24647
745 OnClick = mnuActSignClick
746 end
747 object mnuActIdentifyAddlSigners: TMenuItem
748 Caption = '&Identify Additional Signers'
749 OnClick = mnuActIdentifyAddlSignersClick
750 end
751 end
752 object mnuOptions: TMenuItem
753 Caption = '&Options'
754 GroupIndex = 4
755 OnClick = mnuOptionsClick
756 object mnuEditTemplates: TMenuItem
757 Caption = 'Edit &Templates...'
758 Enabled = False
759 OnClick = mnuEditTemplatesClick
760 end
761 object mnuNewTemplate: TMenuItem
762 Caption = 'Create &New Template...'
763 Enabled = False
764 OnClick = mnuNewTemplateClick
765 end
766 object N2: TMenuItem
767 Caption = '-'
768 Enabled = False
769 end
770 object mnuEditSharedTemplates: TMenuItem
771 Caption = 'Edit &Shared Templates...'
772 Enabled = False
773 OnClick = mnuEditSharedTemplatesClick
774 end
775 object mnuNewSharedTemplate: TMenuItem
776 Caption = '&Create New Shared Template...'
777 Enabled = False
778 OnClick = mnuNewSharedTemplateClick
779 end
780 object N3: TMenuItem
781 Caption = '-'
782 Enabled = False
783 OnClick = cmdChangeClick
784 end
785 object mnuEditDialgFields: TMenuItem
786 Caption = 'Edit Template &Fields'
787 Enabled = False
788 OnClick = mnuEditDialgFieldsClick
789 end
790 end
791 end
792 object popNoteMemo: TPopupMenu
793 OnPopup = popNoteMemoPopup
794 Left = 540
795 Top = 304
796 object popNoteMemoCut: TMenuItem
797 Caption = 'Cu&t'
798 ShortCut = 16472
799 OnClick = popNoteMemoCutClick
800 end
801 object popNoteMemoCopy: TMenuItem
802 Caption = '&Copy'
803 ShortCut = 16451
804 OnClick = popNoteMemoCopyClick
805 end
806 object popNoteMemoPaste: TMenuItem
807 Caption = '&Paste'
808 ShortCut = 16470
809 OnClick = popNoteMemoPasteClick
810 end
811 object popNoteMemoPaste2: TMenuItem
812 Caption = 'Paste2'
813 ShortCut = 8237
814 Visible = False
815 OnClick = popNoteMemoPasteClick
816 end
817 object popNoteMemoReformat: TMenuItem
818 Caption = 'Reformat Paragraph'
819 ShortCut = 24658
820 OnClick = popNoteMemoReformatClick
821 end
822 object popNoteMemoSaveContinue: TMenuItem
823 Caption = 'Save && Continue Editing'
824 ShortCut = 24659
825 Visible = False
826 OnClick = popNoteMemoSaveContinueClick
827 end
828 object Z11: TMenuItem
829 Caption = '-'
830 end
831 object popNoteMemoFind: TMenuItem
832 Caption = '&Find in Selected Document'
833 OnClick = popNoteMemoFindClick
834 end
835 object popNoteMemoReplace: TMenuItem
836 Caption = '&Replace Text'
837 OnClick = popNoteMemoReplaceClick
838 end
839 object N7: TMenuItem
840 Caption = '-'
841 OnClick = cmdChangeClick
842 end
843 object popNoteMemoGrammar: TMenuItem
844 Caption = 'Check &Grammar'
845 OnClick = popNoteMemoGrammarClick
846 end
847 object popNoteMemoSpell: TMenuItem
848 Caption = 'C&heck Spelling'
849 OnClick = popNoteMemoSpellClick
850 end
851 object Z12: TMenuItem
852 Caption = '-'
853 end
854 object popNoteMemoTemplate: TMenuItem
855 Caption = 'Copy into New &Template'
856 OnClick = popNoteMemoTemplateClick
857 end
858 object Z10: TMenuItem
859 Caption = '-'
860 end
861 object popNoteMemoSignList: TMenuItem
862 Caption = 'Add to Signature &List'
863 OnClick = mnuActSignListClick
864 end
865 object popNoteMemoDelete: TMenuItem
866 Caption = '&Delete Report'
867 OnClick = mnuActDeleteClick
868 end
869 object popNoteMemoEdit: TMenuItem
870 Caption = '&Edit Report'
871 OnClick = mnuActEditClick
872 end
873 object popNoteMemoAddend: TMenuItem
874 Caption = '&Make Addendum'
875 OnClick = mnuActAddendClick
876 end
877 object popNoteMemoSave: TMenuItem
878 Caption = 'S&ave without Signature'
879 OnClick = mnuActSaveClick
880 end
881 object popNoteMemoSign: TMenuItem
882 Caption = '&Sign Report Now'
883 OnClick = mnuActSignClick
884 end
885 object popNoteMemoAddlSign: TMenuItem
886 Caption = '&Identify Additional Signers'
887 OnClick = popNoteMemoAddlSignClick
888 end
889 object N8: TMenuItem
890 Caption = '-'
891 end
892 object popNoteMemoPreview: TMenuItem
893 Caption = 'Previe&w/Print Current Template'
894 ShortCut = 16471
895 OnClick = popNoteMemoPreviewClick
896 end
897 object popNoteMemoInsTemplate: TMenuItem
898 Caption = 'Insert Current Template'
899 ShortCut = 16429
900 OnClick = popNoteMemoInsTemplateClick
901 end
902 object popNoteMemoEncounter: TMenuItem
903 Caption = 'Edit Encounter Information'
904 ShortCut = 16453
905 OnClick = cmdPCEClick
906 end
907 end
908 object popNoteList: TPopupMenu
909 OnPopup = popNoteListPopup
910 Left = 500
911 Top = 305
912 object popNoteListAll: TMenuItem
913 Tag = 1
914 Caption = '&All cases'
915 OnClick = mnuViewClick
916 end
917 object popNoteListBySurgeon: TMenuItem
918 Tag = 4
919 Caption = 'Cases by &Surgeon'
920 Enabled = False
921 Visible = False
922 OnClick = mnuViewClick
923 end
924 object popNoteListByDate: TMenuItem
925 Tag = 5
926 Caption = 'Cases by Date &Range'
927 Enabled = False
928 OnClick = mnuViewClick
929 end
930 object popNoteListUncosigned: TMenuItem
931 Tag = 3
932 Caption = 'Un&cosigned Notes'
933 Enabled = False
934 Visible = False
935 OnClick = mnuViewClick
936 end
937 object popNoteListUnsigned: TMenuItem
938 Tag = 2
939 Caption = '&Unsigned Notes'
940 Enabled = False
941 Visible = False
942 OnClick = mnuViewClick
943 end
944 object popNoteListCustom: TMenuItem
945 Tag = 6
946 Caption = 'Cus&tom List'
947 OnClick = mnuViewClick
948 end
949 object N4: TMenuItem
950 Caption = '-'
951 end
952 object popNoteListExpandSelected: TMenuItem
953 Caption = '&Expand Selected'
954 OnClick = popNoteListExpandSelectedClick
955 end
956 object popNoteListExpandAll: TMenuItem
957 Caption = 'E&xpand All'
958 OnClick = popNoteListExpandAllClick
959 end
960 object popNoteListCollapseSelected: TMenuItem
961 Caption = 'C&ollapse Selected'
962 OnClick = popNoteListCollapseSelectedClick
963 end
964 object popNoteListCollapseAll: TMenuItem
965 Caption = 'Co&llapse All'
966 OnClick = popNoteListCollapseAllClick
967 end
968 object N5: TMenuItem
969 Caption = '-'
970 end
971 object popNoteListAddIDEntry: TMenuItem
972 Caption = 'Add Ne&w Entry to ID Note'
973 Enabled = False
974 end
975 object popNoteListDetachFromIDParent: TMenuItem
976 Caption = 'Detac&h from ID Note'
977 Enabled = False
978 end
979 end
980 object timAutoSave: TTimer
981 Enabled = False
982 Interval = 300000
983 OnTimer = timAutoSaveTimer
984 Left = 592
985 Top = 11
986 end
987 object dlgFindText: TFindDialog
988 Options = [frDown, frHideUpDown]
989 OnFind = dlgFindTextFind
990 Left = 452
991 Top = 312
992 end
993 object dlgReplaceText: TReplaceDialog
994 OnFind = dlgReplaceTextFind
995 OnReplace = dlgReplaceTextReplace
996 Left = 413
997 Top = 312
998 end
999end
Note: See TracBrowser for help on using the repository browser.