source: cprs/branches/tmg-cprs/CPRS-Chart/Consults/fConsults.dfm@ 568

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

Initial upload of TMG-CPRS 1.0.26.69
File size: 40.4 KB
RevLine 
[453]1inherited frmConsults: TfrmConsults
2 Left = 247
3 Top = 174
4 Width = 723
5 Height = 467
6 HelpContext = 6000
7 Caption = 'Consults Page'
8 Menu = mnuConsults
9 OnDestroy = FormDestroy
10 OnHide = FormHide
11 OnMouseMove = FormMouseMove
12 OnShow = FormShow
13 PixelsPerInch = 96
14 TextHeight = 13
15 inherited shpPageBottom: TShape
16 Top = 408
17 Width = 715
18 end
19 inherited sptHorz: TSplitter
20 Left = 83
21 Width = 2
22 Height = 408
23 OnCanResize = sptHorzCanResize
24 end
25 inherited pnlRight: TPanel [2]
26 Left = 85
27 Width = 630
28 Height = 408
29 OnResize = pnlRightResize
30 object sptVert: TSplitter
31 Left = 0
32 Top = 342
33 Width = 630
34 Height = 4
35 Cursor = crVSplit
36 Align = alBottom
37 end
38 object pnlRead: TPanel
39 Left = 0
40 Top = 0
41 Width = 630
42 Height = 342
43 Align = alClient
44 BevelOuter = bvNone
45 TabOrder = 0
46 OnExit = pnlResultsExit
47 object lblTitle: TOROffsetLabel
48 Left = 0
49 Top = 0
50 Width = 630
51 Height = 19
52 Align = alTop
53 Caption = 'Details of Selected Consult'
54 Font.Charset = DEFAULT_CHARSET
55 Font.Color = clWindowText
56 Font.Height = -11
57 Font.Name = 'MS Sans Serif'
58 Font.Style = []
59 HorzOffset = 2
60 ParentFont = False
61 ParentShowHint = False
62 ShowHint = True
63 Transparent = False
64 VertOffset = 6
65 WordWrap = False
66 end
67 object memConsult: TRichEdit
68 Left = 0
69 Top = 19
70 Width = 630
71 Height = 323
72 Align = alClient
73 Color = clCream
74 Ctl3D = True
75 Font.Charset = DEFAULT_CHARSET
76 Font.Color = clWindowText
77 Font.Height = -11
78 Font.Name = 'Courier New'
79 Font.Style = []
80 Lines.Strings = (
81
82 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRUSTVWXYZabcdefghijkl' +
83 'mnopqrstuvwxyz12')
84 ParentCtl3D = False
85 ParentFont = False
86 PlainText = True
87 PopupMenu = popNoteMemo
88 ReadOnly = True
89 ScrollBars = ssBoth
90 TabOrder = 0
91 WantReturns = False
92 WordWrap = False
93 OnMouseMove = FormMouseMove
94 end
95 end
96 object memPCEShow: TRichEdit
97 Left = 0
98 Top = 346
99 Width = 630
100 Height = 62
101 Align = alBottom
102 Color = clCream
103 TabOrder = 2
104 WantReturns = False
105 end
106 object pnlResults: TPanel
107 Left = 0
108 Top = 0
109 Width = 630
110 Height = 342
111 Align = alClient
112 BevelOuter = bvNone
113 TabOrder = 1
114 OnExit = pnlResultsExit
115 OnResize = pnlResultsResize
116 object memResults: TRichEdit
117 Left = 0
118 Top = 67
119 Width = 630
120 Height = 275
121 Align = alClient
122 Font.Charset = ANSI_CHARSET
123 Font.Color = clWindowText
124 Font.Height = -11
125 Font.Name = 'Courier New'
126 Font.Style = []
127 ParentFont = False
128 PopupMenu = popNoteMemo
129 ScrollBars = ssBoth
130 TabOrder = 1
131 WantTabs = True
132 OnChange = memResultChange
133 OnKeyDown = memResultsKeyDown
134 OnMouseMove = FormMouseMove
135 end
136 object pnlFields: TPanel
137 Left = 0
138 Top = 0
139 Width = 630
140 Height = 67
141 Align = alTop
142 BevelOuter = bvNone
143 TabOrder = 0
144 OnResize = pnlFieldsResize
145 DesignSize = (
146 630
147 67)
148 object bvlNewTitle: TBevel
149 Left = 5
150 Top = 5
151 Width = 117
152 Height = 15
153 end
154 object lblRefDate: TStaticText
155 Left = 237
156 Top = 6
157 Width = 101
158 Height = 17
159 Hint = 'Press "Change..." to change date/time of note.'
160 Alignment = taCenter
161 Caption = 'Oct 20,1999@15:30'
162 ParentShowHint = False
163 ShowAccelChar = False
164 ShowHint = True
165 TabOrder = 3
166 end
167 object lblAuthor: TStaticText
168 Left = 402
169 Top = 6
170 Width = 152
171 Height = 17
172 Hint = 'Press "Change..." to select a different author.'
173 Alignment = taRightJustify
174 Anchors = [akTop, akRight]
175 Caption = 'Winchester,Charles Emerson III'
176 ParentShowHint = False
177 ShowAccelChar = False
178 ShowHint = True
179 TabOrder = 4
180 end
181 object lblVisit: TStaticText
182 Left = 6
183 Top = 21
184 Width = 204
185 Height = 17
186 Caption = 'Vst: 10/20/99 Pulmonary Clinic, Dr. Welby'
187 ShowAccelChar = False
188 TabOrder = 5
189 end
190 object lblCosigner: TStaticText
191 Left = 307
192 Top = 21
193 Width = 243
194 Height = 13
195 Hint = 'Press "Change..." to select a different cosigner.'
196 Alignment = taRightJustify
197 Anchors = [akTop, akRight]
198 AutoSize = False
199 Caption = 'Expected Cosigner: Winchester,Charles Emerson III'
200 ParentShowHint = False
201 ShowAccelChar = False
202 ShowHint = True
203 TabOrder = 6
204 end
205 object lblSubject: TStaticText
206 Left = 6
207 Top = 43
208 Width = 43
209 Height = 17
210 Caption = 'Subject:'
211 TabOrder = 7
212 end
213 object lblNewTitle: TStaticText
214 Left = 6
215 Top = 6
216 Width = 119
217 Height = 17
218 Hint = 'Press "Change..." to select a different title.'
219 Caption = ' General Medicine Note '
220 Color = clCream
221 Font.Charset = DEFAULT_CHARSET
222 Font.Color = clWindowText
223 Font.Height = -11
224 Font.Name = 'MS Sans Serif'
225 Font.Style = []
226 ParentColor = False
227 ParentFont = False
228 ParentShowHint = False
229 ShowAccelChar = False
230 ShowHint = True
231 TabOrder = 2
232 end
233 object cmdChange: TButton
234 Left = 556
235 Top = 6
236 Width = 58
237 Height = 21
238 Anchors = [akTop, akRight]
239 Caption = 'Change...'
240 TabOrder = 0
241 OnClick = cmdChangeClick
242 OnMouseMove = FormMouseMove
243 end
244 object txtSubject: TCaptionEdit
245 Left = 48
246 Top = 40
247 Width = 566
248 Height = 21
249 Hint = 'Subject is limited to a maximum of 80 characters.'
250 Anchors = [akLeft, akTop, akRight]
251 MaxLength = 80
252 ParentShowHint = False
253 ShowHint = True
254 TabOrder = 1
255 Text = 'txtSubject'
256 OnMouseMove = FormMouseMove
257 Caption = 'Subject'
258 end
259 end
260 end
261 end
262 inherited pnlLeft: TPanel [3]
263 Width = 83
264 Height = 408
265 OnResize = pnlLeftResize
266 object splConsults: TSplitter
267 Left = 0
268 Top = 161
269 Width = 83
270 Height = 3
271 Cursor = crVSplit
272 Align = alTop
273 end
274 object pnlAction: TPanel
275 Left = 0
276 Top = 164
277 Width = 83
278 Height = 223
279 Align = alClient
280 BevelOuter = bvNone
281 TabOrder = 1
282 OnExit = pnlActionExit
283 object splDrawers: TSplitter
284 Left = 0
285 Top = 220
286 Width = 83
287 Height = 3
288 Cursor = crVSplit
289 Align = alBottom
290 end
291 object cmdNewConsult: TORAlignButton
292 Left = 0
293 Top = 21
294 Width = 83
295 Height = 21
296 Caption = 'New Consult'
297 Constraints.MinHeight = 21
298 TabOrder = 2
299 OnClick = cmdNewConsultClick
300 OnMouseMove = FormMouseMove
301 Align = alTop
302 end
303 object cmdNewProc: TORAlignButton
304 Left = 0
305 Top = 42
306 Width = 83
307 Height = 21
308 Caption = 'New Procedure'
309 Constraints.MinHeight = 21
310 TabOrder = 3
311 OnClick = cmdNewProcClick
312 OnMouseMove = FormMouseMove
313 Align = alTop
314 end
315 object cmdEditResubmit: TORAlignButton
316 Left = 0
317 Top = 0
318 Width = 83
319 Height = 21
320 Caption = 'Edit/Resubmit'
321 Constraints.MinHeight = 21
322 Font.Charset = DEFAULT_CHARSET
323 Font.Color = clWindowText
324 Font.Height = -11
325 Font.Name = 'MS Sans Serif'
326 Font.Style = []
327 ParentFont = False
328 TabOrder = 1
329 Visible = False
330 OnClick = cmdEditResubmitClick
331 OnMouseMove = FormMouseMove
332 Align = alTop
333 end
334 object lstNotes: TORListBox
335 Left = 0
336 Top = 63
337 Width = 83
338 Height = 24
339 Style = lbOwnerDrawFixed
340 ItemHeight = 13
341 ParentShowHint = False
342 PopupMenu = popNoteMemo
343 ShowHint = True
344 TabOrder = 4
345 Visible = False
346 OnClick = lstNotesClick
347 OnMouseMove = FormMouseMove
348 ItemTipColor = clWindow
349 LongList = False
350 Pieces = '2,3'
351 TabPositions = '10'
352 end
353 object tvCsltNotes: TORTreeView
354 Left = 0
355 Top = 63
356 Width = 83
357 Height = 157
358 Align = alClient
359 Constraints.MinWidth = 30
360 HideSelection = False
361 Indent = 19
362 PopupMenu = popNoteList
363 ReadOnly = True
364 TabOrder = 0
365 OnChange = tvCsltNotesChange
366 OnClick = tvCsltNotesClick
367 OnCollapsed = tvCsltNotesCollapsed
368 OnDragDrop = tvCsltNotesDragDrop
369 OnDragOver = tvCsltNotesDragOver
370 OnExpanded = tvCsltNotesExpanded
371 OnMouseMove = FormMouseMove
372 OnStartDrag = tvCsltNotesStartDrag
373 Caption = 'Consult Notes'
374 NodePiece = 0
375 end
376 end
377 object cmdPCE: TORAlignButton
378 Left = 0
379 Top = 387
380 Width = 83
381 Height = 21
382 Caption = 'Encounter'
383 Enabled = False
384 TabOrder = 2
385 Visible = False
386 OnClick = cmdPCEClick
387 OnExit = pnlActionExit
388 OnMouseMove = FormMouseMove
389 Align = alBottom
390 end
391 object pnlConsultList: TPanel
392 Left = 0
393 Top = 0
394 Width = 83
395 Height = 161
396 Align = alTop
397 BevelOuter = bvNone
398 TabOrder = 0
399 object lblConsults: TOROffsetLabel
400 Left = 0
401 Top = 0
402 Width = 83
403 Height = 19
404 Align = alTop
405 Caption = 'Consults'
406 HorzOffset = 2
407 Transparent = True
408 VertOffset = 6
409 WordWrap = False
410 end
411 object lstConsults: TORListBox
412 Left = 0
413 Top = 19
414 Width = 83
415 Height = 142
416 Align = alClient
417 Ctl3D = True
418 ItemHeight = 13
419 ParentCtl3D = False
420 ParentShowHint = False
421 PopupMenu = popConsultList
422 ShowHint = True
423 TabOrder = 1
424 Visible = False
425 OnClick = lstConsultsClick
426 ItemTipColor = clWindow
427 LongList = False
428 Pieces = '2,3,4,5'
429 TabPositions = '10,15,42'
430 end
431 object tvConsults: TORTreeView
432 Left = 0
433 Top = 19
434 Width = 83
435 Height = 142
436 Align = alClient
437 HideSelection = False
438 Indent = 15
439 PopupMenu = popNoteList
440 ReadOnly = True
441 TabOrder = 0
442 OnAddition = tvConsultsAddition
443 OnClick = tvConsultsClick
444 OnCollapsed = tvConsultsCollapsed
445 OnDeletion = tvConsultsDeletion
446 OnExit = tvConsultsExit
447 OnExpanded = tvConsultsExpanded
448 OnKeyUp = tvConsultsKeyUp
449 OnMouseMove = FormMouseMove
450 Caption = 'Consults'
451 NodePiece = 0
452 ShortNodeCaptions = True
453 end
454 end
455 end
456 inherited DKLanguageController1: TDKLanguageController
457 Left = 456
458 Top = 65528
459 LangData = {
460 0B0066726D436F6E73756C7473010100000001000000070043617074696F6E01
461 A50000000D0073687050616765426F74746F6D00000700737074486F727A0000
462 0700706E6C4C65667400000800706E6C52696768740000070073707456657274
463 00000700706E6C52656164000008006C626C5469746C65010100000002000000
464 070043617074696F6E000A006D656D436F6E73756C7401010000000300000005
465 004C696E6573000A006D656D50434553686F7700000A00706E6C526573756C74
466 7300000A006D656D526573756C747300000900706E6C4669656C647300000B00
467 62766C4E65775469746C6500000A006C626C5265664461746501020000000500
468 0000070043617074696F6E04000000040048696E740009006C626C417574686F
469 72010200000007000000070043617074696F6E06000000040048696E74000800
470 6C626C5669736974010100000008000000070043617074696F6E000B006C626C
471 436F7369676E657201020000000A000000070043617074696F6E090000000400
472 48696E74000A006C626C5375626A65637401010000000B000000070043617074
473 696F6E000B006C626C4E65775469746C6501020000000D000000070043617074
474 696F6E0C000000040048696E74000900636D644368616E676501010000000E00
475 0000070043617074696F6E000A007478745375626A6563740103000000110000
476 00070043617074696F6E0F000000040048696E7410000000040054657874000B
477 0073706C436F6E73756C747300000900706E6C416374696F6E00000A0073706C
478 4472617765727300000D00636D644E6577436F6E73756C740101000000120000
479 00070043617074696F6E000A00636D644E657750726F63010100000013000000
480 070043617074696F6E000F00636D644564697452657375626D69740101000000
481 14000000070043617074696F6E0008006C73744E6F74657300000B0074764373
482 6C744E6F746573010100000015000000070043617074696F6E000600636D6450
483 4345010100000016000000070043617074696F6E000E00706E6C436F6E73756C
484 744C69737400000B006C626C436F6E73756C7473010100000017000000070043
485 617074696F6E000B006C7374436F6E73756C747300000A007476436F6E73756C
486 7473010100000018000000070043617074696F6E000B00706F704E6F74654D65
487 6D6F00000E00706F704E6F74654D656D6F437574010100000019000000070043
488 617074696F6E000F00706F704E6F74654D656D6F436F707901010000001A0000
489 00070043617074696F6E001000706F704E6F74654D656D6F5061737465010100
490 00001B000000070043617074696F6E001100706F704E6F74654D656D6F506173
491 74653201010000001C000000070043617074696F6E001300706F704E6F74654D
492 656D6F5265666F726D617401010000001D000000070043617074696F6E001700
493 706F704E6F74654D656D6F53617665436F6E74696E756501010000001E000000
494 070043617074696F6E0003005A313100000F00706F704E6F74654D656D6F4669
495 6E6401010000001F000000070043617074696F6E001200706F704E6F74654D65
496 6D6F5265706C616365010100000020000000070043617074696F6E0003004E31
497 3400001200706F704E6F74654D656D6F4772616D6D6172010100000021000000
498 070043617074696F6E001000706F704E6F74654D656D6F5370656C6C01010000
499 0022000000070043617074696F6E0002004E3500001300706F704E6F74654D65
500 6D6F54656D706C617465010100000023000000070043617074696F6E0003005A
501 313000001300706F704E6F74654D656D6F5369676E4C69737401010000002400
502 0000070043617074696F6E001100706F704E6F74654D656D6F44656C65746501
503 0100000025000000070043617074696F6E000F00706F704E6F74654D656D6F45
504 646974010100000026000000070043617074696F6E001100706F704E6F74654D
505 656D6F416464656E64010100000027000000070043617074696F6E000F00706F
506 704E6F74654D656D6F53617665010100000028000000070043617074696F6E00
507 0F00706F704E6F74654D656D6F5369676E010100000029000000070043617074
508 696F6E001300706F704E6F74654D656D6F4164646C5369676E01010000002A00
509 0000070043617074696F6E0002004E3700001000706F704E6F74654D656D6F50
510 72696E7401010000002B000000070043617074696F6E0003004E313500001200
511 706F704E6F74654D656D6F5072657669657701010000002C0000000700436170
512 74696F6E001600706F704E6F74654D656D6F496E7354656D706C617465010100
513 00002D000000070043617074696F6E001400706F704E6F74654D656D6F456E63
514 6F756E74657201010000002E000000070043617074696F6E000E00706F70436F
515 6E73756C744C69737400000D00706F70436F6E73756C74416C6C01010000002F
516 000000070043617074696F6E001000706F70436F6E73756C7453746174757301
517 0100000030000000070043617074696F6E001100706F70436F6E73756C745365
518 7276696365010100000031000000070043617074696F6E000F00706F70436F6E
519 73756C744461746573010100000032000000070043617074696F6E001000706F
520 70436F6E73756C74437573746F6D010100000033000000070043617074696F6E
521 000B006D6E75436F6E73756C7473000007006D6E755669657701010000003400
522 0000070043617074696F6E000C006D6E75566965774368617274010100000035
523 000000070043617074696F6E000D006D6E754368617274436F76657201010000
524 0036000000070043617074696F6E000D006D6E75436861727450726F62730101
525 00000037000000070043617074696F6E000C006D6E7543686172744D65647301
526 0100000038000000070043617074696F6E000E006D6E7543686172744F726465
527 7273010100000039000000070043617074696F6E000D006D6E7543686172744E
528 6F74657301010000003A000000070043617074696F6E000D006D6E7543686172
529 7443736C747301010000003B000000070043617074696F6E000F006D6E754368
530 6172745375726765727901010000003C000000070043617074696F6E000E006D
531 6E754368617274444353756D6D01010000003D000000070043617074696F6E00
532 0C006D6E7543686172744C61627301010000003E000000070043617074696F6E
533 000F006D6E7543686172745265706F72747301010000003F0000000700436170
534 74696F6E0012006D6E7556696577496E666F726D6174696F6E01010000004000
535 0000070043617074696F6E000B006D6E755669657744656D6F01010000004100
536 0000070043617074696F6E000D006D6E75566965775669736974730101000000
537 42000000070043617074696F6E0012006D6E75566965775072696D6172794361
538 7265010100000043000000070043617074696F6E0013006D6E75566965774D79
539 4865616C746865566574010100000044000000070043617074696F6E000C006D
540 6E75496E737572616E6365010100000045000000070043617074696F6E000C00
541 6D6E7556696577466C616773010100000046000000070043617074696F6E0011
542 006D6E755669657752656D6F7465446174610101000000470000000700436170
543 74696F6E0010006D6E755669657752656D696E64657273010100000048000000
544 070043617074696F6E000F006D6E7556696577506F7374696E67730101000000
545 49000000070043617074696F6E0002005A3300000A006D6E7556696577416C6C
546 01010000004A000000070043617074696F6E000F006D6E755669657742795374
547 6174757301010000004B000000070043617074696F6E0010006D6E7556696577
548 42795365727669636501010000004C000000070043617074696F6E000D006D6E
549 755669657742794461746501010000004D000000070043617074696F6E000D00
550 6D6E7556696577437573746F6D01010000004E000000070043617074696F6E00
551 02004E34000014006D6E755669657753617665417344656661756C7401010000
552 004F000000070043617074696F6E0016006D6E755669657752657475726E746F
553 44656661756C74010100000050000000070043617074696F6E0003004E313300
554 000D006D6E7549636F6E4C6567656E6401010000005100000007004361707469
555 6F6E0006006D6E75416374010100000052000000070043617074696F6E000900
556 6D6E754163744E6577010200000053000000070043617074696F6E5400000004
557 0048696E740017006D6E754163744E6577436F6E73756C745265717565737401
558 0200000055000000070043617074696F6E56000000040048696E740012006D6E
559 754163744E657750726F63656475726501020000005700000007004361707469
560 6F6E58000000040048696E740002005A32000014006D6E75416374436F6E7375
561 6C7452657175657374010200000059000000070043617074696F6E5A00000004
562 0048696E74000D006D6E754163745265636569766501010000005B0000000700
563 43617074696F6E000E006D6E754163745363686564756C6501010000005C0000
564 00070043617074696F6E000A006D6E7541637444656E7901010000005D000000
565 070043617074696F6E0012006D6E754163744564697452657375626D69740101
566 0000005E000000070043617074696F6E0011006D6E75416374446973636F6E74
567 696E756501010000005F000000070043617074696F6E000D006D6E7541637446
568 6F7277617264010100000060000000070043617074696F6E0010006D6E754163
569 74416464436F6D6D656E74010100000061000000070043617074696F6E001100
570 6D6E7541637453696746696E64696E6773010100000062000000070043617074
571 696F6E0013006D6E7541637441646D696E436F6D706C65746501010000006300
572 0000070043617074696F6E0002004E33000014006D6E75416374446973706C61
573 7944657461696C73010100000064000000070043617074696F6E0014006D6E75
574 416374446973706C6179526573756C7473010100000065000000070043617074
575 696F6E0012006D6E75416374446973706C617953463531330101000000660000
576 00070043617074696F6E0010006D6E754163745072696E745346353133010100
577 000067000000070043617074696F6E0002004E31000014006D6E75416374436F
578 6E73756C74526573756C7473010100000068000000070043617074696F6E000E
579 006D6E75416374436F6D706C657465010100000069000000070043617074696F
580 6E0012006D6E754163744D616B65416464656E64756D01020000006A00000007
581 0043617074696F6E6B000000040048696E740010006D6E754163744164644944
582 456E74727901010000006C000000070043617074696F6E0016006D6E75416374
583 417474616368746F4944506172656E7401010000006D00000007004361707469
584 6F6E0018006D6E7541637444657461636846726F6D4944506172656E74010100
585 00006E000000070043617074696F6E0003004E313200000F006D6E7541637441
586 74746163684D656401010000006F000000070043617074696F6E000F006D6E75
587 41637452656D6F76654D6564010100000070000000070043617074696F6E0002
588 004E3900000C006D6E754163744368616E676501010000007100000007004361
589 7074696F6E0010006D6E754163744C6F6164426F696C65720101000000720000
590 00070043617074696F6E0002004E32000013006D6E754163745369676E617475
591 72654C697374010200000073000000070043617074696F6E7400000004004869
592 6E740010006D6E754163744E6F746544656C6574650101000000750000000700
593 43617074696F6E000E006D6E754163744E6F7465456469740101000000760000
594 00070043617074696F6E0013006D6E754163745369676E617475726553617665
595 010200000077000000070043617074696F6E78000000040048696E740013006D
596 6E754163745369676E61747572655369676E0101000000790000000700436170
597 74696F6E0019006D6E754163744964656E746966794164646C5369676E657273
598 01010000007A000000070043617074696F6E0002004E3800000F006D6E754163
599 744E6F74655072696E7401010000007B000000070043617074696F6E000A006D
600 6E754F7074696F6E7301010000007C000000070043617074696F6E0010006D6E
601 754564697454656D706C6174657301010000007D000000070043617074696F6E
602 000E006D6E754E657754656D706C61746501010000007E000000070043617074
603 696F6E0002004E36000016006D6E754564697453686172656454656D706C6174
604 657301010000007F000000070043617074696F6E0014006D6E754E6577536861
605 72656454656D706C617465010100000080000000070043617074696F6E000300
606 4E3130000012006D6E75456469744469616C674669656C647301010000008100
607 0000070043617074696F6E000B0074696D4175746F5361766500000B00706F70
608 4E6F74654C69737400001900706F704E6F74654C697374457870616E6453656C
609 6563746564010100000082000000070043617074696F6E001400706F704E6F74
610 654C697374457870616E64416C6C010100000083000000070043617074696F6E
611 001B00706F704E6F74654C697374436F6C6C6170736553656C65637465640101
612 00000084000000070043617074696F6E001600706F704E6F74654C697374436F
613 6C6C61707365416C6C010100000085000000070043617074696F6E0003004E31
614 3100001500706F704E6F74654C6973744164644944456E747279010100000086
615 000000070043617074696F6E001B00706F704E6F74654C697374417474616368
616 746F4944506172656E74010100000087000000070043617074696F6E001D0070
617 6F704E6F74654C69737444657461636846726F6D4944506172656E7401010000
618 0088000000070043617074696F6E000B00646C6746696E645465787400000E00
619 646C675265706C616365546578740000}
620 end
621 object popNoteMemo: TPopupMenu
622 OnPopup = popNoteMemoPopup
623 Left = 589
624 Top = 304
625 object popNoteMemoCut: TMenuItem
626 Caption = 'Cu&t'
627 ShortCut = 16472
628 OnClick = popNoteMemoCutClick
629 end
630 object popNoteMemoCopy: TMenuItem
631 Caption = '&Copy'
632 ShortCut = 16451
633 OnClick = popNoteMemoCopyClick
634 end
635 object popNoteMemoPaste: TMenuItem
636 Caption = '&Paste'
637 ShortCut = 16470
638 OnClick = popNoteMemoPasteClick
639 end
640 object popNoteMemoPaste2: TMenuItem
641 Caption = 'Paste2'
642 ShortCut = 8237
643 Visible = False
644 OnClick = popNoteMemoPasteClick
645 end
646 object popNoteMemoReformat: TMenuItem
647 Caption = 'Re&format Paragraph'
648 ShortCut = 24658
649 OnClick = popNoteMemoReformatClick
650 end
651 object popNoteMemoSaveContinue: TMenuItem
652 Caption = 'Save && Continue Editing'
653 ShortCut = 24659
654 Visible = False
655 OnClick = popNoteMemoSaveContinueClick
656 end
657 object Z11: TMenuItem
658 Caption = '-'
659 end
660 object popNoteMemoFind: TMenuItem
661 Caption = '&Find in Selected Note/Consult'
662 OnClick = popNoteMemoFindClick
663 end
664 object popNoteMemoReplace: TMenuItem
665 Caption = '&Replace Text'
666 OnClick = popNoteMemoReplaceClick
667 end
668 object N14: TMenuItem
669 Caption = '-'
670 end
671 object popNoteMemoGrammar: TMenuItem
672 Caption = 'Check &Grammar'
673 OnClick = popNoteMemoGrammarClick
674 end
675 object popNoteMemoSpell: TMenuItem
676 Caption = 'C&heck Spelling'
677 OnClick = popNoteMemoSpellClick
678 end
679 object N5: TMenuItem
680 Caption = '-'
681 end
682 object popNoteMemoTemplate: TMenuItem
683 Caption = 'Copy into New &Template'
684 OnClick = popNoteMemoTemplateClick
685 end
686 object Z10: TMenuItem
687 Caption = '-'
688 end
689 object popNoteMemoSignList: TMenuItem
690 Caption = 'Add to Signature &List'
691 OnClick = mnuActSignatureListClick
692 end
693 object popNoteMemoDelete: TMenuItem
694 Caption = '&Delete Note...'
695 OnClick = mnuActNoteDeleteClick
696 end
697 object popNoteMemoEdit: TMenuItem
698 Caption = '&Edit Note...'
699 OnClick = mnuActNoteEditClick
700 end
701 object popNoteMemoAddend: TMenuItem
702 Caption = '&Make Addendum...'
703 OnClick = mnuActMakeAddendumClick
704 end
705 object popNoteMemoSave: TMenuItem
706 Caption = 'S&ave without Signature'
707 OnClick = mnuActSignatureSaveClick
708 end
709 object popNoteMemoSign: TMenuItem
710 Caption = '&Sign Note Now...'
711 OnClick = mnuActSignatureSignClick
712 end
713 object popNoteMemoAddlSign: TMenuItem
714 Caption = '&Identify Additional Signers'
715 OnClick = popNoteMemoAddlSignClick
716 end
717 object N7: TMenuItem
718 Caption = '-'
719 end
720 object popNoteMemoPrint: TMenuItem
721 Caption = 'P&rint Note'
722 OnClick = popNoteMemoPrintClick
723 end
724 object N15: TMenuItem
725 Caption = '-'
726 end
727 object popNoteMemoPreview: TMenuItem
728 Caption = 'Previe&w/Print Current Template'
729 ShortCut = 16471
730 OnClick = popNoteMemoPreviewClick
731 end
732 object popNoteMemoInsTemplate: TMenuItem
733 Caption = 'Insert Current Template'
734 ShortCut = 16429
735 OnClick = popNoteMemoInsTemplateClick
736 end
737 object popNoteMemoEncounter: TMenuItem
738 Caption = 'Edit Encounter Information'
739 ShortCut = 16453
740 OnClick = cmdPCEClick
741 end
742 end
743 object popConsultList: TPopupMenu
744 Left = 523
745 Top = 308
746 object popConsultAll: TMenuItem
747 Tag = 1
748 Caption = '&All Consults'
749 OnClick = mnuViewClick
750 end
751 object popConsultStatus: TMenuItem
752 Tag = 2
753 Caption = 'Consults by Stat&us'
754 OnClick = mnuViewClick
755 end
756 object popConsultService: TMenuItem
757 Tag = 4
758 Caption = 'Consults by &Service'
759 OnClick = mnuViewClick
760 end
761 object popConsultDates: TMenuItem
762 Tag = 5
763 Caption = 'Consults by Date &Range'
764 OnClick = mnuViewClick
765 end
766 object popConsultCustom: TMenuItem
767 Tag = 6
768 Caption = '&Custom View..'
769 OnClick = mnuViewClick
770 end
771 end
772 object mnuConsults: TMainMenu
773 Left = 461
774 Top = 305
775 object mnuView: TMenuItem
776 Caption = '&View'
777 GroupIndex = 3
778 object mnuViewChart: TMenuItem
779 Caption = 'Chart &Tab'
780 object mnuChartCover: TMenuItem
781 Tag = 1
782 Caption = 'Cover &Sheet'
783 ShortCut = 16467
784 OnClick = mnuChartTabClick
785 end
786 object mnuChartProbs: TMenuItem
787 Tag = 2
788 Caption = '&Problem List'
789 ShortCut = 16464
790 OnClick = mnuChartTabClick
791 end
792 object mnuChartMeds: TMenuItem
793 Tag = 3
794 Caption = '&Medications'
795 ShortCut = 16461
796 OnClick = mnuChartTabClick
797 end
798 object mnuChartOrders: TMenuItem
799 Tag = 4
800 Caption = '&Orders'
801 ShortCut = 16463
802 OnClick = mnuChartTabClick
803 end
804 object mnuChartNotes: TMenuItem
805 Tag = 6
806 Caption = 'Progress &Notes'
807 ShortCut = 16462
808 OnClick = mnuChartTabClick
809 end
810 object mnuChartCslts: TMenuItem
811 Tag = 7
812 Caption = 'Consul&ts'
813 ShortCut = 16468
814 OnClick = mnuChartTabClick
815 end
816 object mnuChartSurgery: TMenuItem
817 Tag = 11
818 Caption = 'S&urgery'
819 ShortCut = 16469
820 OnClick = mnuChartTabClick
821 end
822 object mnuChartDCSumm: TMenuItem
823 Tag = 8
824 Caption = '&Discharge Summaries'
825 ShortCut = 16452
826 OnClick = mnuChartTabClick
827 end
828 object mnuChartLabs: TMenuItem
829 Tag = 9
830 Caption = '&Laboratory'
831 ShortCut = 16460
832 OnClick = mnuChartTabClick
833 end
834 object mnuChartReports: TMenuItem
835 Tag = 10
836 Caption = '&Reports'
837 ShortCut = 16466
838 OnClick = mnuChartTabClick
839 end
840 end
841 object mnuViewInformation: TMenuItem
842 Caption = 'Information'
843 OnClick = mnuViewInformationClick
844 object mnuViewDemo: TMenuItem
845 Tag = 1
846 Caption = 'De&mographics...'
847 OnClick = ViewInfo
848 end
849 object mnuViewVisits: TMenuItem
850 Tag = 2
851 Caption = 'Visits/Pr&ovider...'
852 OnClick = ViewInfo
853 end
854 object mnuViewPrimaryCare: TMenuItem
855 Tag = 3
856 Caption = 'Primary &Care...'
857 OnClick = ViewInfo
858 end
859 object mnuViewMyHealtheVet: TMenuItem
860 Tag = 4
861 Caption = 'MyHealthe&Vet...'
862 OnClick = ViewInfo
863 end
864 object mnuInsurance: TMenuItem
865 Tag = 5
866 Caption = '&Insurance...'
867 OnClick = ViewInfo
868 end
869 object mnuViewFlags: TMenuItem
870 Tag = 6
871 Caption = '&Flags...'
872 OnClick = ViewInfo
873 end
874 object mnuViewRemoteData: TMenuItem
875 Tag = 7
876 Caption = 'Remote &Data...'
877 OnClick = ViewInfo
878 end
879 object mnuViewReminders: TMenuItem
880 Tag = 8
881 Caption = '&Reminders...'
882 Enabled = False
883 OnClick = ViewInfo
884 end
885 object mnuViewPostings: TMenuItem
886 Tag = 9
887 Caption = '&Postings...'
888 OnClick = ViewInfo
889 end
890 end
891 object Z3: TMenuItem
892 Caption = '-'
893 end
894 object mnuViewAll: TMenuItem
895 Tag = 1
896 Caption = '&All Consults'
897 OnClick = mnuViewClick
898 end
899 object mnuViewByStatus: TMenuItem
900 Tag = 2
901 Caption = 'Consults by Stat&us'
902 OnClick = mnuViewClick
903 end
904 object mnuViewByService: TMenuItem
905 Tag = 4
906 Caption = 'Consults by &Service'
907 OnClick = mnuViewClick
908 end
909 object mnuViewByDate: TMenuItem
910 Tag = 5
911 Caption = 'Consults by Date &Range'
912 OnClick = mnuViewClick
913 end
914 object mnuViewCustom: TMenuItem
915 Tag = 6
916 Caption = 'Custo&m View'
917 OnClick = mnuViewClick
918 end
919 object N4: TMenuItem
920 Caption = '-'
921 end
922 object mnuViewSaveAsDefault: TMenuItem
923 Caption = 'Sa&ve as Default View'
924 OnClick = mnuViewSaveAsDefaultClick
925 end
926 object mnuViewReturntoDefault: TMenuItem
927 Caption = 'Return to De&fault View'
928 OnClick = mnuViewReturntoDefaultClick
929 end
930 object N13: TMenuItem
931 Caption = '-'
932 end
933 object mnuIconLegend: TMenuItem
934 Caption = 'Icon Legend'
935 OnClick = mnuIconLegendClick
936 end
937 end
938 object mnuAct: TMenuItem
939 Caption = '&Action'
940 GroupIndex = 4
941 object mnuActNew: TMenuItem
942 Caption = '&New...'
943 Hint = 'Add consults or procedures'
944 object mnuActNewConsultRequest: TMenuItem
945 Tag = 1
946 Caption = '&Consult...'
947 Hint = 'Creates a new consult'
948 OnClick = mnuActNewConsultRequestClick
949 end
950 object mnuActNewProcedure: TMenuItem
951 Tag = 9
952 Caption = '&Procedure...'
953 Hint = 'Creates a new procedure'
954 OnClick = mnuActNewProcedureClick
955 end
956 end
957 object Z2: TMenuItem
958 Caption = '-'
959 end
960 object mnuActConsultRequest: TMenuItem
961 Caption = '&Consult Tracking...'
962 Hint = 'Actions related to the selected consult'
963 object mnuActReceive: TMenuItem
964 Tag = 1
965 Caption = '&Receive'
966 OnClick = mnuActConsultClick
967 end
968 object mnuActSchedule: TMenuItem
969 Tag = 10
970 Caption = 'Schedu&le'
971 OnClick = mnuActConsultClick
972 end
973 object mnuActDeny: TMenuItem
974 Tag = 2
975 Caption = '&Cancel (Deny)'
976 OnClick = mnuActConsultClick
977 end
978 object mnuActEditResubmit: TMenuItem
979 Caption = '&Edit/Resubmit'
980 OnClick = mnuActEditResubmitClick
981 end
982 object mnuActDiscontinue: TMenuItem
983 Tag = 3
984 Caption = '&Discontinue'
985 OnClick = mnuActConsultClick
986 end
987 object mnuActForward: TMenuItem
988 Tag = 4
989 Caption = '&Forward'
990 OnClick = mnuActConsultClick
991 end
992 object mnuActAddComment: TMenuItem
993 Tag = 5
994 Caption = '&Add Comment'
995 OnClick = mnuActConsultClick
996 end
997 object mnuActSigFindings: TMenuItem
998 Tag = 8
999 Caption = '&Significant Findings'
1000 OnClick = mnuActConsultClick
1001 end
1002 object mnuActAdminComplete: TMenuItem
1003 Tag = 9
1004 Caption = 'Ad&ministrative Complete'
1005 OnClick = mnuActConsultClick
1006 end
1007 object N3: TMenuItem
1008 Caption = '-'
1009 end
1010 object mnuActDisplayDetails: TMenuItem
1011 Caption = 'Display De&tails'
1012 OnClick = mnuActDisplayDetailsClick
1013 end
1014 object mnuActDisplayResults: TMenuItem
1015 Caption = 'Display Res&ults'
1016 OnClick = mnuActDisplayResultsClick
1017 end
1018 object mnuActDisplaySF513: TMenuItem
1019 Caption = 'Display SF &513'
1020 OnClick = mnuActDisplaySF513Click
1021 end
1022 object mnuActPrintSF513: TMenuItem
1023 Caption = '&Print SF 513'
1024 OnClick = mnuActPrintSF513Click
1025 end
1026 end
1027 object N1: TMenuItem
1028 Caption = '-'
1029 end
1030 object mnuActConsultResults: TMenuItem
1031 Caption = 'Consult &Results...'
1032 object mnuActComplete: TMenuItem
1033 Tag = 6
1034 Caption = 'Complete/&Update Results...'
1035 ShortCut = 24661
1036 OnClick = mnuActCompleteClick
1037 end
1038 object mnuActMakeAddendum: TMenuItem
1039 Tag = 7
1040 Caption = '&Make Addendum...'
1041 Hint = 'Makes an addendum for the currently selected consult'
1042 ShortCut = 24653
1043 OnClick = mnuActMakeAddendumClick
1044 end
1045 object mnuActAddIDEntry: TMenuItem
1046 Caption = 'Add Ne&w Entry to Interdisciplinary Note'
1047 OnClick = mnuActAddIDEntryClick
1048 end
1049 object mnuActAttachtoIDParent: TMenuItem
1050 Caption = 'Attach to Interdisciplinary Note'
1051 OnClick = mnuActAttachtoIDParentClick
1052 end
1053 object mnuActDetachFromIDParent: TMenuItem
1054 Caption = 'Detac&h from Interdisciplinary Note'
1055 OnClick = mnuActDetachFromIDParentClick
1056 end
1057 object N12: TMenuItem
1058 Caption = '-'
1059 end
1060 object mnuActAttachMed: TMenuItem
1061 Caption = 'A&ttach Medicine Results'
1062 OnClick = mnuActAttachMedClick
1063 end
1064 object mnuActRemoveMed: TMenuItem
1065 Caption = 'Remo&ve Medicine Results'
1066 OnClick = mnuActRemoveMedClick
1067 end
1068 object N9: TMenuItem
1069 Caption = '-'
1070 end
1071 object mnuActChange: TMenuItem
1072 Caption = '&Change Title...'
1073 ShortCut = 24643
1074 OnClick = mnuActChangeClick
1075 end
1076 object mnuActLoadBoiler: TMenuItem
1077 Caption = 'Reload &Boilerplate Text'
1078 OnClick = mnuActLoadBoilerClick
1079 end
1080 object N2: TMenuItem
1081 Caption = '-'
1082 end
1083 object mnuActSignatureList: TMenuItem
1084 Caption = 'Add to Signature &List'
1085 Hint =
1086 'Adds the currently displayed consult to list of things to be sig' +
1087 'ned'
1088 OnClick = mnuActSignatureListClick
1089 end
1090 object mnuActNoteDelete: TMenuItem
1091 Caption = '&Delete Note...'
1092 ShortCut = 24644
1093 OnClick = mnuActNoteDeleteClick
1094 end
1095 object mnuActNoteEdit: TMenuItem
1096 Caption = '&Edit Note...'
1097 ShortCut = 24645
1098 OnClick = mnuActNoteEditClick
1099 end
1100 object mnuActSignatureSave: TMenuItem
1101 Caption = 'S&ave Without Signature'
1102 Hint = 'Saves the consult that is being edited'
1103 ShortCut = 24641
1104 OnClick = mnuActSignatureSaveClick
1105 end
1106 object mnuActSignatureSign: TMenuItem
1107 Caption = 'Si&gn Note Now...'
1108 ShortCut = 24647
1109 OnClick = mnuActSignatureSignClick
1110 end
1111 object mnuActIdentifyAddlSigners: TMenuItem
1112 Caption = '&Identify Additional Signers'
1113 OnClick = mnuActIdentifyAddlSignersClick
1114 end
1115 object N8: TMenuItem
1116 Caption = '-'
1117 end
1118 object mnuActNotePrint: TMenuItem
1119 Caption = 'P&rint Note'
1120 OnClick = mnuActNotePrintClick
1121 end
1122 end
1123 end
1124 object mnuOptions: TMenuItem
1125 Caption = '&Options'
1126 GroupIndex = 4
1127 OnClick = mnuOptionsClick
1128 object mnuEditTemplates: TMenuItem
1129 Caption = 'Edit &Templates...'
1130 OnClick = mnuEditTemplatesClick
1131 end
1132 object mnuNewTemplate: TMenuItem
1133 Caption = 'Create &New Template...'
1134 OnClick = mnuNewTemplateClick
1135 end
1136 object N6: TMenuItem
1137 Caption = '-'
1138 end
1139 object mnuEditSharedTemplates: TMenuItem
1140 Caption = 'Edit &Shared Templates...'
1141 OnClick = mnuEditSharedTemplatesClick
1142 end
1143 object mnuNewSharedTemplate: TMenuItem
1144 Caption = '&Create New Shared Template...'
1145 OnClick = mnuNewSharedTemplateClick
1146 end
1147 object N10: TMenuItem
1148 Caption = '-'
1149 end
1150 object mnuEditDialgFields: TMenuItem
1151 Caption = 'Edit Template &Fields'
1152 OnClick = mnuEditDialgFieldsClick
1153 end
1154 end
1155 end
1156 object timAutoSave: TTimer
1157 Enabled = False
1158 Interval = 300000
1159 OnTimer = timAutoSaveTimer
1160 Left = 602
1161 Top = 110
1162 end
1163 object popNoteList: TPopupMenu
1164 OnPopup = popNoteListPopup
1165 Left = 395
1166 Top = 307
1167 object popNoteListExpandSelected: TMenuItem
1168 Caption = '&Expand Selected'
1169 OnClick = popNoteListExpandSelectedClick
1170 end
1171 object popNoteListExpandAll: TMenuItem
1172 Caption = 'E&xpand All'
1173 OnClick = popNoteListExpandAllClick
1174 end
1175 object popNoteListCollapseSelected: TMenuItem
1176 Caption = 'C&ollapse Selected'
1177 OnClick = popNoteListCollapseSelectedClick
1178 end
1179 object popNoteListCollapseAll: TMenuItem
1180 Caption = 'Co&llapse All'
1181 OnClick = popNoteListCollapseAllClick
1182 end
1183 object N11: TMenuItem
1184 Caption = '-'
1185 end
1186 object popNoteListAddIDEntry: TMenuItem
1187 Caption = 'Add Ne&w Entry to Interdisciplinary Note'
1188 OnClick = mnuActAddIDEntryClick
1189 end
1190 object popNoteListAttachtoIDParent: TMenuItem
1191 Caption = 'Attach to Interdisciplinary Note'
1192 OnClick = mnuActAttachtoIDParentClick
1193 end
1194 object popNoteListDetachFromIDParent: TMenuItem
1195 Caption = 'Detac&h from Interdisciplinary Note'
1196 OnClick = mnuActDetachFromIDParentClick
1197 end
1198 end
1199 object dlgFindText: TFindDialog
1200 Options = [frDown, frHideUpDown]
1201 OnFind = dlgFindTextFind
1202 Left = 628
1203 Top = 303
1204 end
1205 object dlgReplaceText: TReplaceDialog
1206 OnFind = dlgReplaceTextFind
1207 OnReplace = dlgReplaceTextReplace
1208 Left = 665
1209 Top = 303
1210 end
1211end
Note: See TracBrowser for help on using the repository browser.