source: cprs/branches/tmg-cprs/CPRS-Chart/fDCSumm.dfm@ 797

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 34.0 KB
Line 
1inherited frmDCSumm: TfrmDCSumm
2 Left = 222
3 Top = 126
4 Width = 687
5 Height = 409
6 HelpContext = 7000
7 Caption = 'Discharge Summary Page'
8 HelpFile = 'overvw'
9 Menu = mnuSumms
10 OnDestroy = FormDestroy
11 PixelsPerInch = 96
12 TextHeight = 13
13 inherited shpPageBottom: TShape
14 Top = 350
15 Width = 679
16 end
17 inherited sptHorz: TSplitter
18 Left = 64
19 Width = 3
20 Height = 350
21 OnCanResize = sptHorzCanResize
22 end
23 inherited pnlLeft: TPanel
24 Width = 64
25 Height = 350
26 object lblSumms: TOROffsetLabel
27 Left = 0
28 Top = 0
29 Width = 64
30 Height = 19
31 Align = alTop
32 Caption = 'Last 100 Summaries'
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 = 326
43 Width = 64
44 Height = 3
45 Align = alBottom
46 AutoSize = False
47 Caption = ' '
48 end
49 object cmdNewSumm: TORAlignButton
50 Left = 0
51 Top = 305
52 Width = 64
53 Height = 21
54 Caption = 'New Summary'
55 TabOrder = 1
56 OnClick = cmdNewSummClick
57 Align = alBottom
58 end
59 object cmdPCE: TORAlignButton
60 Left = 0
61 Top = 329
62 Width = 64
63 Height = 21
64 Caption = 'Encounter'
65 TabOrder = 2
66 Visible = False
67 OnClick = cmdPCEClick
68 Align = alBottom
69 end
70 object pnlDrawers: TPanel
71 Left = 0
72 Top = 19
73 Width = 64
74 Height = 286
75 Align = alClient
76 BevelOuter = bvNone
77 TabOrder = 0
78 object splDrawers: TSplitter
79 Left = 0
80 Top = 283
81 Width = 64
82 Height = 3
83 Cursor = crVSplit
84 Align = alBottom
85 end
86 object lstSumms: TORListBox
87 Left = 0
88 Top = 0
89 Width = 64
90 Height = 33
91 TabStop = False
92 Ctl3D = True
93 ItemHeight = 13
94 ParentCtl3D = False
95 ParentShowHint = False
96 PopupMenu = popSummList
97 ShowHint = True
98 TabOrder = 0
99 Visible = False
100 OnClick = lstSummsClick
101 ItemTipColor = clWindow
102 LongList = False
103 Pieces = '2,3'
104 TabPositions = '10,20'
105 end
106 object tvSumms: TORTreeView
107 Left = 0
108 Top = 0
109 Width = 64
110 Height = 283
111 Align = alClient
112 Constraints.MinWidth = 30
113 HideSelection = False
114 Indent = 19
115 PopupMenu = popSummList
116 ReadOnly = True
117 TabOrder = 1
118 OnAddition = tvSummsAddition
119 OnChange = tvSummsChange
120 OnClick = tvSummsClick
121 OnCollapsed = tvSummsCollapsed
122 OnDeletion = tvSummsDeletion
123 OnDragDrop = tvSummsDragDrop
124 OnDragOver = tvSummsDragOver
125 OnExpanded = tvSummsExpanded
126 OnStartDrag = tvSummsStartDrag
127 Caption = 'Last 100 Summaries'
128 NodePiece = 0
129 ShortNodeCaptions = True
130 end
131 end
132 end
133 inherited pnlRight: TPanel
134 Left = 67
135 Width = 612
136 Height = 350
137 object sptVert: TSplitter
138 Left = 0
139 Top = 301
140 Width = 612
141 Height = 4
142 Cursor = crVSplit
143 Align = alBottom
144 end
145 object memPCEShow: TRichEdit
146 Left = 0
147 Top = 305
148 Width = 612
149 Height = 45
150 Align = alBottom
151 Color = clCream
152 Lines.Strings = (
153 '<No encounter information entered>')
154 PlainText = True
155 ReadOnly = True
156 ScrollBars = ssVertical
157 TabOrder = 2
158 WantReturns = False
159 WordWrap = False
160 end
161 object pnlWrite: TPanel
162 Left = 0
163 Top = 0
164 Width = 612
165 Height = 301
166 Align = alClient
167 BevelOuter = bvNone
168 TabOrder = 1
169 Visible = False
170 OnResize = pnlWriteResize
171 object memNewSumm: TRichEdit
172 Left = 0
173 Top = 52
174 Width = 612
175 Height = 249
176 Align = alClient
177 Font.Charset = DEFAULT_CHARSET
178 Font.Color = clWindowText
179 Font.Height = -11
180 Font.Name = 'Courier New'
181 Font.Style = []
182 ParentFont = False
183 PlainText = True
184 PopupMenu = popSummMemo
185 ScrollBars = ssVertical
186 TabOrder = 1
187 WantTabs = True
188 OnChange = memNewSummChange
189 OnKeyUp = memNewSummKeyUp
190 end
191 object pnlFields: TORAutoPanel
192 Left = 0
193 Top = 0
194 Width = 612
195 Height = 52
196 Align = alTop
197 BevelOuter = bvNone
198 TabOrder = 0
199 DesignSize = (
200 612
201 52)
202 object bvlNewTitle: TBevel
203 Left = 5
204 Top = 5
205 Width = 102
206 Height = 15
207 end
208 object lblNewTitle: TStaticText
209 Left = 6
210 Top = 6
211 Width = 104
212 Height = 17
213 Hint = 'Press "Change..." to select a different title.'
214 Caption = ' Discharge Summary '
215 Color = clCream
216 Font.Charset = DEFAULT_CHARSET
217 Font.Color = clWindowText
218 Font.Height = -11
219 Font.Name = 'MS Sans Serif'
220 Font.Style = []
221 ParentColor = False
222 ParentFont = False
223 ParentShowHint = False
224 ShowAccelChar = False
225 ShowHint = True
226 TabOrder = 1
227 end
228 object lblVisit: TStaticText
229 Left = 6
230 Top = 21
231 Width = 123
232 Height = 17
233 Caption = 'Adm: 10/20/99 2BMED'
234 ShowAccelChar = False
235 TabOrder = 2
236 end
237 object lblRefDate: TStaticText
238 Left = 237
239 Top = 6
240 Width = 101
241 Height = 17
242 Hint = 'Press "Change..." to change date/time of summary.'
243 Alignment = taCenter
244 Caption = 'Oct 20,1999@15:30'
245 ParentShowHint = False
246 ShowAccelChar = False
247 ShowHint = True
248 TabOrder = 3
249 end
250 object lblCosigner: TStaticText
251 Left = 307
252 Top = 21
253 Width = 199
254 Height = 13
255 Hint = 'Press "Change..." to select a different attending.'
256 Alignment = taRightJustify
257 Anchors = [akTop, akRight]
258 AutoSize = False
259 Caption = 'Attending: Winchester,Charles Emerson III'
260 ParentShowHint = False
261 ShowAccelChar = False
262 ShowHint = True
263 TabOrder = 4
264 end
265 object lblDictator: TStaticText
266 Left = 402
267 Top = 6
268 Width = 152
269 Height = 17
270 Hint = 'Press "Change..." to select a different author.'
271 Alignment = taRightJustify
272 Anchors = [akTop, akRight]
273 Caption = 'Winchester,Charles Emerson III'
274 ParentShowHint = False
275 ShowAccelChar = False
276 ShowHint = True
277 TabOrder = 5
278 end
279 object lblDischarge: TStaticText
280 Left = 6
281 Top = 34
282 Width = 71
283 Height = 17
284 Caption = 'Dis: 03/20/00'
285 ShowAccelChar = False
286 TabOrder = 6
287 end
288 object cmdChange: TButton
289 Left = 554
290 Top = 10
291 Width = 58
292 Height = 21
293 Anchors = [akTop, akRight]
294 Caption = 'Change...'
295 TabOrder = 0
296 OnClick = cmdChangeClick
297 end
298 end
299 end
300 object pnlRead: TPanel
301 Left = 0
302 Top = 0
303 Width = 612
304 Height = 301
305 Align = alClient
306 BevelOuter = bvNone
307 TabOrder = 0
308 object lblTitle: TOROffsetLabel
309 Left = 0
310 Top = 0
311 Width = 612
312 Height = 19
313 Hint = 'No Discharge Summaries Found'
314 Align = alTop
315 Caption = 'No Discharge Summaries Found'
316 Font.Charset = DEFAULT_CHARSET
317 Font.Color = clWindowText
318 Font.Height = -11
319 Font.Name = 'MS Sans Serif'
320 Font.Style = []
321 HorzOffset = 2
322 ParentFont = False
323 ParentShowHint = False
324 ShowHint = True
325 Transparent = False
326 VertOffset = 6
327 WordWrap = False
328 end
329 object sptList: TSplitter
330 Left = 0
331 Top = 113
332 Width = 612
333 Height = 3
334 Cursor = crVSplit
335 Align = alTop
336 end
337 object memSumm: TRichEdit
338 Left = 0
339 Top = 116
340 Width = 612
341 Height = 185
342 Align = alClient
343 Color = clCream
344 Ctl3D = True
345 Font.Charset = DEFAULT_CHARSET
346 Font.Color = clWindowText
347 Font.Height = -11
348 Font.Name = 'Courier New'
349 Font.Style = []
350 Lines.Strings = (
351
352 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRUSTVWXYZabcdefghijkl' +
353 'mnopqrstuvwxyz12')
354 ParentCtl3D = False
355 ParentFont = False
356 PlainText = True
357 PopupMenu = popSummMemo
358 ReadOnly = True
359 ScrollBars = ssBoth
360 TabOrder = 0
361 WantReturns = False
362 WordWrap = False
363 end
364 object lvSumms: TCaptionListView
365 Left = 0
366 Top = 19
367 Width = 612
368 Height = 94
369 Align = alTop
370 Columns = <
371 item
372 Caption = 'Date'
373 Width = 100
374 end
375 item
376 AutoSize = True
377 Caption = 'Title'
378 end
379 item
380 AutoSize = True
381 Caption = 'Subject'
382 end
383 item
384 AutoSize = True
385 Caption = 'Author'
386 end
387 item
388 AutoSize = True
389 Caption = 'Location'
390 end
391 item
392 Caption = 'fmdate'
393 Width = 0
394 end
395 item
396 Caption = 'TIUDA'
397 Width = 0
398 end>
399 Constraints.MinHeight = 50
400 HideSelection = False
401 ReadOnly = True
402 RowSelect = True
403 TabOrder = 1
404 ViewStyle = vsReport
405 Visible = False
406 OnColumnClick = lvSummsColumnClick
407 OnCompare = lvSummsCompare
408 OnResize = lvSummsResize
409 OnSelectItem = lvSummsSelectItem
410 Caption = 'No Discharge Summaries Found'
411 end
412 end
413 end
414 inherited DKLanguageController1: TDKLanguageController
415 LangData = {
416 090066726D444353756D6D010200000001000000070043617074696F6E020000
417 00080048656C7046696C6501890000000D0073687050616765426F74746F6D00
418 000700737074486F727A00000700706E6C4C65667400000800706E6C52696768
419 74000008006C626C53756D6D73010100000003000000070043617074696F6E00
420 09006C626C53706163653100000A00636D644E657753756D6D01010000000400
421 0000070043617074696F6E000600636D64504345010100000005000000070043
422 617074696F6E000A00706E6C4472617765727300000A0073706C447261776572
423 73000008006C737453756D6D7300000700747653756D6D730101000000060000
424 00070043617074696F6E0007007370745665727400000A006D656D5043455368
425 6F7701010000000700000005004C696E6573000800706E6C577269746500000A
426 006D656D4E657753756D6D00000900706E6C4669656C647300000B0062766C4E
427 65775469746C6500000B006C626C4E65775469746C6501020000000900000007
428 0043617074696F6E08000000040048696E740008006C626C5669736974010100
429 00000A000000070043617074696F6E000A006C626C5265664461746501020000
430 000C000000070043617074696F6E0B000000040048696E74000B006C626C436F
431 7369676E657201020000000E000000070043617074696F6E0D00000004004869
432 6E74000B006C626C4469637461746F7201020000001000000007004361707469
433 6F6E0F000000040048696E74000C006C626C4469736368617267650101000000
434 11000000070043617074696F6E000900636D644368616E676501010000001200
435 0000070043617074696F6E000700706E6C52656164000008006C626C5469746C
436 65010200000014000000070043617074696F6E13000000040048696E74000700
437 7370744C697374000007006D656D53756D6D01010000001500000005004C696E
438 65730007006C7653756D6D7301080000001D000000070043617074696F6E1600
439 00001200436F6C756D6E735B305D2E43617074696F6E170000001200436F6C75
440 6D6E735B315D2E43617074696F6E180000001200436F6C756D6E735B325D2E43
441 617074696F6E190000001200436F6C756D6E735B335D2E43617074696F6E1A00
442 00001200436F6C756D6E735B345D2E43617074696F6E1B0000001200436F6C75
443 6D6E735B355D2E43617074696F6E1C0000001200436F6C756D6E735B365D2E43
444 617074696F6E0008006D6E7553756D6D73000007006D6E755669657701010000
445 001E000000070043617074696F6E000C006D6E75566965774368617274010100
446 00001F000000070043617074696F6E000D006D6E754368617274436F76657201
447 0100000020000000070043617074696F6E000D006D6E75436861727450726F62
448 73010100000021000000070043617074696F6E000C006D6E7543686172744D65
449 6473010100000022000000070043617074696F6E000E006D6E7543686172744F
450 7264657273010100000023000000070043617074696F6E000D006D6E75436861
451 727453756D6D73010100000024000000070043617074696F6E000D006D6E7543
452 6861727443736C7473010100000025000000070043617074696F6E000F006D6E
453 75436861727453757267657279010100000026000000070043617074696F6E00
454 0E006D6E754368617274444353756D6D01010000002700000007004361707469
455 6F6E000C006D6E7543686172744C616273010100000028000000070043617074
456 696F6E000F006D6E7543686172745265706F7274730101000000290000000700
457 43617074696F6E0012006D6E7556696577496E666F726D6174696F6E01010000
458 002A000000070043617074696F6E000B006D6E755669657744656D6F01010000
459 002B000000070043617074696F6E000D006D6E75566965775669736974730101
460 0000002C000000070043617074696F6E0012006D6E75566965775072696D6172
461 794361726501010000002D000000070043617074696F6E0013006D6E75566965
462 774D794865616C74686556657401010000002E000000070043617074696F6E00
463 0C006D6E75496E737572616E636501010000002F000000070043617074696F6E
464 000C006D6E7556696577466C616773010100000030000000070043617074696F
465 6E0011006D6E755669657752656D6F7465446174610101000000310000000700
466 43617074696F6E0010006D6E755669657752656D696E64657273010100000032
467 000000070043617074696F6E000F006D6E7556696577506F7374696E67730101
468 00000033000000070043617074696F6E0002005A3300000A006D6E7556696577
469 416C6C010100000034000000070043617074696F6E000F006D6E755669657742
470 79417574686F72010100000035000000070043617074696F6E000D006D6E7556
471 696577427944617465010100000036000000070043617074696F6E0011006D6E
472 7556696577556E636F7369676E6564010100000037000000070043617074696F
473 6E000F006D6E7556696577556E7369676E656401010000003800000007004361
474 7074696F6E000D006D6E7556696577437573746F6D0101000000390000000700
475 43617074696F6E0002004E31000014006D6E7556696577536176654173446566
476 61756C7401010000003A000000070043617074696F6E0016006D6E7556696577
477 52657475726E546F44656661756C7401010000003B000000070043617074696F
478 6E0002005A3100000D006D6E755669657744657461696C01010000003C000000
479 070043617074696F6E0002004E3700000D006D6E7549636F6E4C6567656E6401
480 010000003D000000070043617074696F6E0006006D6E7541637401010000003E
481 000000070043617074696F6E0009006D6E754163744E657701020000003F0000
482 00070043617074696F6E40000000040048696E74000C006D6E75416374416464
483 656E64010200000041000000070043617074696F6E42000000040048696E7400
484 10006D6E754163744164644944456E7472790101000000430000000700436170
485 74696F6E0016006D6E75416374417474616368746F4944506172656E74010100
486 000044000000070043617074696F6E0018006D6E754163744465746163684672
487 6F6D4944506172656E74010100000045000000070043617074696F6E0002005A
488 3200000C006D6E754163744368616E6765010100000046000000070043617074
489 696F6E0010006D6E754163744C6F6164426F696C657201010000004700000007
490 0043617074696F6E0002005A3400000E006D6E754163745369676E4C69737401
491 0200000048000000070043617074696F6E49000000040048696E74000C006D6E
492 7541637444656C65746501010000004A000000070043617074696F6E000A006D
493 6E754163744564697401010000004B000000070043617074696F6E000A006D6E
494 754163745361766501020000004C000000070043617074696F6E4D0000000400
495 48696E74000A006D6E754163745369676E01010000004E000000070043617074
496 696F6E0019006D6E754163744964656E746966794164646C5369676E65727301
497 010000004F000000070043617074696F6E000A006D6E754F7074696F6E730101
498 00000050000000070043617074696F6E0010006D6E754564697454656D706C61
499 746573010100000051000000070043617074696F6E000E006D6E754E65775465
500 6D706C617465010100000052000000070043617074696F6E0002004E33000016
501 006D6E754564697453686172656454656D706C61746573010100000053000000
502 070043617074696F6E0014006D6E754E657753686172656454656D706C617465
503 010100000054000000070043617074696F6E0002004E34000012006D6E754564
504 69744469616C674669656C6473010100000055000000070043617074696F6E00
505 0B00706F7053756D6D4D656D6F00000E00706F7053756D6D4D656D6F43757401
506 0100000056000000070043617074696F6E000F00706F7053756D6D4D656D6F43
507 6F7079010100000057000000070043617074696F6E001000706F7053756D6D4D
508 656D6F5061737465010100000058000000070043617074696F6E001100706F70
509 53756D6D4D656D6F506173746532010100000059000000070043617074696F6E
510 001300706F7053756D6D4D656D6F5265666F726D617401010000005A00000007
511 0043617074696F6E001700706F7053756D6D4D656D6F53617665436F6E74696E
512 756501010000005B000000070043617074696F6E0003005A313100000F00706F
513 7053756D6D4D656D6F46696E6401010000005C000000070043617074696F6E00
514 1200706F7053756D6D4D656D6F5265706C61636501010000005D000000070043
515 617074696F6E0002004E3800001200706F7053756D6D4D656D6F4772616D6D61
516 7201010000005E000000070043617074696F6E001000706F7053756D6D4D656D
517 6F5370656C6C01010000005F000000070043617074696F6E0002004E32000013
518 00706F7053756D6D4D656D6F54656D706C617465010100000060000000070043
519 617074696F6E0003005A313000001300706F7053756D6D4D656D6F5369676E4C
520 697374010100000061000000070043617074696F6E001100706F7053756D6D4D
521 656D6F44656C657465010100000062000000070043617074696F6E000F00706F
522 7053756D6D4D656D6F45646974010100000063000000070043617074696F6E00
523 1100706F7053756D6D4D656D6F416464656E6401010000006400000007004361
524 7074696F6E000F00706F7053756D6D4D656D6F53617665010100000065000000
525 070043617074696F6E000F00706F7053756D6D4D656D6F5369676E0101000000
526 66000000070043617074696F6E001300706F7053756D6D4D656D6F4164646C53
527 69676E010100000067000000070043617074696F6E0002004E3900001200706F
528 7053756D6D4D656D6F5072657669657701010000006800000007004361707469
529 6F6E001600706F7053756D6D4D656D6F496E7354656D706C6174650101000000
530 69000000070043617074696F6E001400706F7053756D6D4D656D6F456E636F75
531 6E74657201010000006A000000070043617074696F6E000B00706F7053756D6D
532 4C69737400000E00706F7053756D6D4C697374416C6C01010000006B00000007
533 0043617074696F6E001300706F7053756D6D4C6973744279417574686F720101
534 0000006C000000070043617074696F6E001100706F7053756D6D4C6973744279
535 4461746501010000006D000000070043617074696F6E001500706F7053756D6D
536 4C697374556E636F7369676E656401010000006E000000070043617074696F6E
537 001300706F7053756D6D4C697374556E7369676E656401010000006F00000007
538 0043617074696F6E001100706F7053756D6D4C697374437573746F6D01010000
539 0070000000070043617074696F6E0002004E3500001900706F7053756D6D4C69
540 7374457870616E6453656C656374656401010000007100000007004361707469
541 6F6E001400706F7053756D6D4C697374457870616E64416C6C01010000007200
542 0000070043617074696F6E001B00706F7053756D6D4C697374436F6C6C617073
543 6553656C6563746564010100000073000000070043617074696F6E001600706F
544 7053756D6D4C697374436F6C6C61707365416C6C010100000074000000070043
545 617074696F6E0002004E3600001500706F7053756D6D4C697374416464494445
546 6E747279010100000075000000070043617074696F6E001B00706F7053756D6D
547 4C697374417474616368746F4944506172656E74010100000076000000070043
548 617074696F6E001D00706F7053756D6D4C69737444657461636846726F6D4944
549 506172656E74010100000077000000070043617074696F6E000B0074696D4175
550 746F5361766500000B00646C6746696E645465787400000E00646C675265706C
551 616365546578740000}
552 end
553 object mnuSumms: TMainMenu
554 Left = 596
555 Top = 305
556 object mnuView: TMenuItem
557 Caption = '&View'
558 GroupIndex = 3
559 object mnuViewChart: TMenuItem
560 Caption = 'Chart &Tab'
561 object mnuChartCover: TMenuItem
562 Tag = 1
563 Caption = 'Cover &Sheet'
564 ShortCut = 16467
565 OnClick = mnuChartTabClick
566 end
567 object mnuChartProbs: TMenuItem
568 Tag = 2
569 Caption = '&Problem List'
570 ShortCut = 16464
571 OnClick = mnuChartTabClick
572 end
573 object mnuChartMeds: TMenuItem
574 Tag = 3
575 Caption = '&Medications'
576 ShortCut = 16461
577 OnClick = mnuChartTabClick
578 end
579 object mnuChartOrders: TMenuItem
580 Tag = 4
581 Caption = '&Orders'
582 ShortCut = 16463
583 OnClick = mnuChartTabClick
584 end
585 object mnuChartSumms: TMenuItem
586 Tag = 6
587 Caption = 'Progress &Notes'
588 ShortCut = 16462
589 OnClick = mnuChartTabClick
590 end
591 object mnuChartCslts: TMenuItem
592 Tag = 7
593 Caption = 'Consul&ts'
594 ShortCut = 16468
595 OnClick = mnuChartTabClick
596 end
597 object mnuChartSurgery: TMenuItem
598 Tag = 11
599 Caption = 'S&urgery'
600 ShortCut = 16469
601 OnClick = mnuChartTabClick
602 end
603 object mnuChartDCSumm: TMenuItem
604 Tag = 8
605 Caption = '&Discharge Summaries'
606 ShortCut = 16452
607 OnClick = mnuChartTabClick
608 end
609 object mnuChartLabs: TMenuItem
610 Tag = 9
611 Caption = '&Laboratory'
612 ShortCut = 16460
613 OnClick = mnuChartTabClick
614 end
615 object mnuChartReports: TMenuItem
616 Tag = 10
617 Caption = '&Reports'
618 ShortCut = 16466
619 OnClick = mnuChartTabClick
620 end
621 end
622 object mnuViewInformation: TMenuItem
623 Caption = 'Information'
624 OnClick = mnuViewInformationClick
625 object mnuViewDemo: TMenuItem
626 Tag = 1
627 Caption = 'De&mographics...'
628 OnClick = ViewInfo
629 end
630 object mnuViewVisits: TMenuItem
631 Tag = 2
632 Caption = 'Visits/Pr&ovider...'
633 OnClick = ViewInfo
634 end
635 object mnuViewPrimaryCare: TMenuItem
636 Tag = 3
637 Caption = 'Primary &Care...'
638 OnClick = ViewInfo
639 end
640 object mnuViewMyHealtheVet: TMenuItem
641 Tag = 4
642 Caption = 'MyHealthe&Vet...'
643 OnClick = ViewInfo
644 end
645 object mnuInsurance: TMenuItem
646 Tag = 5
647 Caption = '&Insurance...'
648 OnClick = ViewInfo
649 end
650 object mnuViewFlags: TMenuItem
651 Tag = 6
652 Caption = '&Flags...'
653 OnClick = ViewInfo
654 end
655 object mnuViewRemoteData: TMenuItem
656 Tag = 7
657 Caption = 'Remote &Data...'
658 OnClick = ViewInfo
659 end
660 object mnuViewReminders: TMenuItem
661 Tag = 8
662 Caption = '&Reminders...'
663 Enabled = False
664 OnClick = ViewInfo
665 end
666 object mnuViewPostings: TMenuItem
667 Tag = 9
668 Caption = '&Postings...'
669 OnClick = ViewInfo
670 end
671 end
672 object Z3: TMenuItem
673 Caption = '-'
674 end
675 object mnuViewAll: TMenuItem
676 Tag = 1
677 Caption = '&Signed Summaries (All)'
678 OnClick = mnuViewClick
679 end
680 object mnuViewByAuthor: TMenuItem
681 Tag = 4
682 Caption = 'Signed Summaries by &Author'
683 OnClick = mnuViewClick
684 end
685 object mnuViewByDate: TMenuItem
686 Tag = 5
687 Caption = 'Signed Summaries by Date &Range'
688 OnClick = mnuViewClick
689 end
690 object mnuViewUncosigned: TMenuItem
691 Tag = 3
692 Caption = 'Un&cosigned Summaries'
693 OnClick = mnuViewClick
694 end
695 object mnuViewUnsigned: TMenuItem
696 Tag = 2
697 Caption = '&Unsigned Summaries'
698 OnClick = mnuViewClick
699 end
700 object mnuViewCustom: TMenuItem
701 Tag = 6
702 Caption = 'Custo&m View'
703 OnClick = mnuViewClick
704 end
705 object N1: TMenuItem
706 Caption = '-'
707 end
708 object mnuViewSaveAsDefault: TMenuItem
709 Caption = 'Sa&ve as Default View'
710 OnClick = mnuViewSaveAsDefaultClick
711 end
712 object mnuViewReturnToDefault: TMenuItem
713 Caption = 'Return to De&fault View'
714 OnClick = mnuViewReturntoDefaultClick
715 end
716 object Z1: TMenuItem
717 Caption = '-'
718 end
719 object mnuViewDetail: TMenuItem
720 Caption = '&Details'
721 OnClick = mnuViewDetailClick
722 end
723 object N7: TMenuItem
724 Caption = '-'
725 end
726 object mnuIconLegend: TMenuItem
727 Caption = 'Icon Legend'
728 OnClick = mnuIconLegendClick
729 end
730 end
731 object mnuAct: TMenuItem
732 Caption = '&Action'
733 GroupIndex = 4
734 object mnuActNew: TMenuItem
735 Caption = '&New Discharge Summary...'
736 Hint = 'Creates a new Discharge Summary'
737 ShortCut = 24654
738 OnClick = mnuActNewClick
739 end
740 object mnuActAddend: TMenuItem
741 Caption = '&Make Addendum...'
742 Hint = 'Makes an addendum for the currently selected Discharge Summary'
743 ShortCut = 24653
744 OnClick = mnuActAddendClick
745 end
746 object mnuActAddIDEntry: TMenuItem
747 Caption = 'Add Ne&w Entry to Interdisciplinary Note'
748 OnClick = mnuActAddIDEntryClick
749 end
750 object mnuActAttachtoIDParent: TMenuItem
751 Caption = 'A&ttach to Interdisciplinary Note'
752 OnClick = mnuActAttachtoIDParentClick
753 end
754 object mnuActDetachFromIDParent: TMenuItem
755 Caption = 'Detac&h from Interdisciplinary Note'
756 OnClick = mnuActDetachFromIDParentClick
757 end
758 object Z2: TMenuItem
759 Caption = '-'
760 end
761 object mnuActChange: TMenuItem
762 Caption = '&Change Title...'
763 ShortCut = 24643
764 OnClick = mnuActChangeClick
765 end
766 object mnuActLoadBoiler: TMenuItem
767 Caption = 'Reload &Boilerplate Text'
768 OnClick = mnuActLoadBoilerClick
769 end
770 object Z4: TMenuItem
771 Caption = '-'
772 end
773 object mnuActSignList: TMenuItem
774 Caption = 'Add to Signature &List'
775 Hint =
776 'Adds the currently displayed Discharge Summary to list of things' +
777 ' to be signed'
778 OnClick = mnuActSignListClick
779 end
780 object mnuActDelete: TMenuItem
781 Caption = '&Delete Discharge Summary...'
782 ShortCut = 24644
783 OnClick = mnuActDeleteClick
784 end
785 object mnuActEdit: TMenuItem
786 Caption = '&Edit Discharge Summary...'
787 ShortCut = 24645
788 OnClick = mnuActEditClick
789 end
790 object mnuActSave: TMenuItem
791 Caption = 'S&ave without Signature'
792 Hint = 'Saves the Discharge Summary that is being edited'
793 ShortCut = 24641
794 OnClick = mnuActSaveClick
795 end
796 object mnuActSign: TMenuItem
797 Caption = 'Si&gn Discharge Summary Now...'
798 ShortCut = 24647
799 OnClick = mnuActSignClick
800 end
801 object mnuActIdentifyAddlSigners: TMenuItem
802 Caption = '&Identify Additional Signers'
803 OnClick = mnuActIdentifyAddlSignersClick
804 end
805 end
806 object mnuOptions: TMenuItem
807 Caption = '&Options'
808 GroupIndex = 4
809 OnClick = mnuOptionsClick
810 object mnuEditTemplates: TMenuItem
811 Caption = 'Edit &Templates...'
812 OnClick = mnuEditTemplatesClick
813 end
814 object mnuNewTemplate: TMenuItem
815 Caption = 'Create &New Template...'
816 OnClick = mnuNewTemplateClick
817 end
818 object N3: TMenuItem
819 Caption = '-'
820 end
821 object mnuEditSharedTemplates: TMenuItem
822 Caption = 'Edit &Shared Templates...'
823 OnClick = mnuEditSharedTemplatesClick
824 end
825 object mnuNewSharedTemplate: TMenuItem
826 Caption = '&Create New Shared Template...'
827 OnClick = mnuNewSharedTemplateClick
828 end
829 object N4: TMenuItem
830 Caption = '-'
831 end
832 object mnuEditDialgFields: TMenuItem
833 Caption = 'Edit Template &Fields'
834 OnClick = mnuEditDialgFieldsClick
835 end
836 end
837 end
838 object popSummMemo: TPopupMenu
839 OnPopup = popSummMemoPopup
840 Left = 539
841 Top = 304
842 object popSummMemoCut: TMenuItem
843 Caption = 'Cu&t'
844 ShortCut = 16472
845 OnClick = popSummMemoCutClick
846 end
847 object popSummMemoCopy: TMenuItem
848 Caption = '&Copy'
849 ShortCut = 16451
850 OnClick = popSummMemoCopyClick
851 end
852 object popSummMemoPaste: TMenuItem
853 Caption = '&Paste'
854 ShortCut = 16470
855 OnClick = popSummMemoPasteClick
856 end
857 object popSummMemoPaste2: TMenuItem
858 Caption = 'Paste2'
859 ShortCut = 8237
860 Visible = False
861 OnClick = popSummMemoPasteClick
862 end
863 object popSummMemoReformat: TMenuItem
864 Caption = 'Re&format Paragraph'
865 ShortCut = 24658
866 OnClick = popSummMemoReformatClick
867 end
868 object popSummMemoSaveContinue: TMenuItem
869 Caption = 'Save && Continue Editing'
870 ShortCut = 24659
871 Visible = False
872 OnClick = popSummMemoSaveContinueClick
873 end
874 object Z11: TMenuItem
875 Caption = '-'
876 end
877 object popSummMemoFind: TMenuItem
878 Caption = '&Find in Selected Summary'
879 OnClick = popSummMemoFindClick
880 end
881 object popSummMemoReplace: TMenuItem
882 Caption = '&Replace Text'
883 OnClick = popSummMemoReplaceClick
884 end
885 object N8: TMenuItem
886 Caption = '-'
887 end
888 object popSummMemoGrammar: TMenuItem
889 Caption = 'Check &Grammar'
890 OnClick = popSummMemoGrammarClick
891 end
892 object popSummMemoSpell: TMenuItem
893 Caption = 'C&heck Spelling'
894 OnClick = popSummMemoSpellClick
895 end
896 object N2: TMenuItem
897 Caption = '-'
898 end
899 object popSummMemoTemplate: TMenuItem
900 Caption = 'Copy Into New &Template'
901 OnClick = popSummMemoTemplateClick
902 end
903 object Z10: TMenuItem
904 Caption = '-'
905 end
906 object popSummMemoSignList: TMenuItem
907 Caption = 'Add to Signature &List'
908 OnClick = mnuActSignListClick
909 end
910 object popSummMemoDelete: TMenuItem
911 Caption = '&Delete Discharge Summary...'
912 OnClick = mnuActDeleteClick
913 end
914 object popSummMemoEdit: TMenuItem
915 Caption = '&Edit Discharge Summary...'
916 OnClick = mnuActEditClick
917 end
918 object popSummMemoAddend: TMenuItem
919 Caption = '&Make Addendum...'
920 OnClick = mnuActAddendClick
921 end
922 object popSummMemoSave: TMenuItem
923 Caption = 'S&ave without Signature'
924 OnClick = mnuActSaveClick
925 end
926 object popSummMemoSign: TMenuItem
927 Caption = '&Sign Discharge Summary Now...'
928 OnClick = mnuActSignClick
929 end
930 object popSummMemoAddlSign: TMenuItem
931 Caption = '&Identify Additional Signers'
932 OnClick = popSummMemoAddlSignClick
933 end
934 object N9: TMenuItem
935 Caption = '-'
936 end
937 object popSummMemoPreview: TMenuItem
938 Caption = 'Previe&w/Print Current Template'
939 ShortCut = 16471
940 OnClick = popSummMemoPreviewClick
941 end
942 object popSummMemoInsTemplate: TMenuItem
943 Caption = 'Insert Current Template'
944 ShortCut = 16429
945 OnClick = popSummMemoInsTemplateClick
946 end
947 object popSummMemoEncounter: TMenuItem
948 Caption = 'Edit Encounter Information'
949 ShortCut = 16453
950 OnClick = cmdPCEClick
951 end
952 end
953 object popSummList: TPopupMenu
954 OnPopup = popSummListPopup
955 Left = 500
956 Top = 304
957 object popSummListAll: TMenuItem
958 Tag = 1
959 Caption = '&Signed Discharge Summaries (All)'
960 OnClick = mnuViewClick
961 end
962 object popSummListByAuthor: TMenuItem
963 Tag = 4
964 Caption = 'Signed Discharge Summaries by &Author'
965 OnClick = mnuViewClick
966 end
967 object popSummListByDate: TMenuItem
968 Tag = 5
969 Caption = 'Signed Discharge Summaries by Date &Range'
970 OnClick = mnuViewClick
971 end
972 object popSummListUncosigned: TMenuItem
973 Tag = 3
974 Caption = 'Un&cosigned Discharge Summaries'
975 OnClick = mnuViewClick
976 end
977 object popSummListUnsigned: TMenuItem
978 Tag = 2
979 Caption = '&Unsigned Discharge Summaries'
980 OnClick = mnuViewClick
981 end
982 object popSummListCustom: TMenuItem
983 Tag = 6
984 Caption = 'Cus&tom View'
985 OnClick = mnuViewClick
986 end
987 object N5: TMenuItem
988 Caption = '-'
989 end
990 object popSummListExpandSelected: TMenuItem
991 Caption = '&Expand Selected'
992 OnClick = popSummListExpandSelectedClick
993 end
994 object popSummListExpandAll: TMenuItem
995 Caption = 'E&xpand All'
996 OnClick = popSummListExpandAllClick
997 end
998 object popSummListCollapseSelected: TMenuItem
999 Caption = 'C&ollapse Selected'
1000 OnClick = popSummListCollapseSelectedClick
1001 end
1002 object popSummListCollapseAll: TMenuItem
1003 Caption = 'Co&llapse All'
1004 OnClick = popSummListCollapseAllClick
1005 end
1006 object N6: TMenuItem
1007 Caption = '-'
1008 end
1009 object popSummListAddIDEntry: TMenuItem
1010 Caption = 'Add Ne&w Entry to Interdisciplinary Note'
1011 OnClick = mnuActAddIDEntryClick
1012 end
1013 object popSummListAttachtoIDParent: TMenuItem
1014 Caption = 'A&ttach to Interdisciplinary Note'
1015 OnClick = mnuActAttachtoIDParentClick
1016 end
1017 object popSummListDetachFromIDParent: TMenuItem
1018 Caption = 'Detac&h from Interdisciplinary Note'
1019 OnClick = mnuActDetachFromIDParentClick
1020 end
1021 end
1022 object timAutoSave: TTimer
1023 Enabled = False
1024 Interval = 300000
1025 OnTimer = timAutoSaveTimer
1026 Left = 560
1027 Top = 61
1028 end
1029 object dlgFindText: TFindDialog
1030 Options = [frDown, frHideUpDown]
1031 OnFind = dlgFindTextFind
1032 Left = 452
1033 Top = 312
1034 end
1035 object dlgReplaceText: TReplaceDialog
1036 OnFind = dlgReplaceTextFind
1037 OnReplace = dlgReplaceTextReplace
1038 Left = 409
1039 Top = 313
1040 end
1041end
Note: See TracBrowser for help on using the repository browser.