source: cprs/branches/tmg-cprs/CPRS-Chart/Orders/fOrders.dfm@ 789

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

Initial upload of TMG-CPRS 1.0.26.69
File size: 21.9 KB
Line 
1inherited frmOrders: TfrmOrders
2 Left = 261
3 Top = 155
4 Width = 774
5 Height = 579
6 HelpContext = 4000
7 Caption = 'Orders Page'
8 HelpFile = 'overvw'
9 Menu = mnuOrders
10 OnDestroy = FormDestroy
11 OnShow = FormShow
12 PixelsPerInch = 96
13 TextHeight = 13
14 inherited shpPageBottom: TShape
15 Top = 520
16 Width = 766
17 end
18 inherited sptHorz: TSplitter
19 Left = 117
20 Height = 520
21 OnMoved = sptHorzMoved
22 end
23 inherited pnlLeft: TPanel
24 Width = 117
25 Height = 520
26 object OROffsetLabel1: TOROffsetLabel
27 Left = 0
28 Top = 0
29 Width = 117
30 Height = 19
31 Align = alTop
32 Caption = 'View Orders'
33 HorzOffset = 2
34 Transparent = False
35 VertOffset = 6
36 WordWrap = False
37 end
38 object lblWrite: TLabel
39 Left = 0
40 Top = 97
41 Width = 117
42 Height = 19
43 Align = alTop
44 AutoSize = False
45 Caption = 'Write Orders'
46 ParentShowHint = False
47 ShowHint = True
48 Layout = tlBottom
49 OnMouseMove = lblWriteMouseMove
50 end
51 object sptVert: TSplitter
52 Left = 0
53 Top = 75
54 Width = 117
55 Height = 4
56 Cursor = crVSplit
57 Align = alTop
58 end
59 object lstSheets: TORListBox
60 Left = 0
61 Top = 19
62 Width = 117
63 Height = 56
64 Align = alTop
65 ItemHeight = 13
66 ParentShowHint = False
67 ShowHint = True
68 TabOrder = 0
69 OnClick = lstSheetsClick
70 Caption = 'View Orders'
71 ItemTipColor = clWindow
72 LongList = False
73 Pieces = '2'
74 end
75 object lstWrite: TORListBox
76 Left = 0
77 Top = 116
78 Width = 117
79 Height = 404
80 Align = alClient
81 ItemHeight = 13
82 ParentShowHint = False
83 ShowHint = True
84 TabOrder = 2
85 OnClick = lstWriteClick
86 Caption = 'Write Orders'
87 ItemTipColor = clWindow
88 LongList = False
89 Pieces = '2'
90 end
91 object btnDelayedOrder: TORAlignButton
92 Left = 0
93 Top = 79
94 Width = 117
95 Height = 18
96 Caption = 'Write Delayed Orders'
97 TabOrder = 1
98 OnClick = btnDelayedOrderClick
99 Align = alTop
100 Alignment = taLeftJustify
101 end
102 end
103 inherited pnlRight: TPanel
104 Left = 121
105 Width = 645
106 Height = 520
107 ParentColor = True
108 ParentCtl3D = False
109 ParentFont = False
110 OnResize = pnlRightResize
111 object lblOrders: TOROffsetLabel
112 Left = 0
113 Top = 0
114 Width = 645
115 Height = 19
116 Align = alTop
117 Caption = 'Active Orders'
118 HorzOffset = 2
119 Transparent = False
120 VertOffset = 6
121 WordWrap = False
122 end
123 object imgHide: TImage
124 Left = 520
125 Top = 0
126 Width = 16
127 Height = 16
128 Hint = 'All Active Orders not Visible'
129 AutoSize = True
130 ParentShowHint = False
131 Picture.Data = {
132 07544269746D6170F6000000424DF60000000000000076000000280000001000
133 0000100000000100040000000000800000000000000000000000100000001000
134 0000000000000000800000800000008080008000000080008000808000008080
135 8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
136 FF003333000000000EEE33330FF00FBFB0EE33330F0BFB0BFB0E33330FF000BF
137 BFB033330FFF0BFBFBF033300000BF0FBFB0000FBFB0F0FB0BF0E0FB00000000
138 BF00E0BFBFBFBFB0F0F0E0FBFB0000000FF0E0BFBFBFBFB0FFF0E0FBFB00000F
139 0000E00FBFBFB0FF0FF0003000000FFF0F0333330FFFFFFF0033333300000000
140 0333}
141 ShowHint = True
142 Transparent = True
143 end
144 object hdrOrders: THeaderControl
145 Left = 0
146 Top = 19
147 Width = 645
148 Height = 17
149 Sections = <
150 item
151 ImageIndex = -1
152 Width = 0
153 end
154 item
155 ImageIndex = -1
156 MinWidth = 16
157 Text = 'Service'
158 Width = 50
159 end
160 item
161 ImageIndex = -1
162 MinWidth = 20
163 Text = 'Order'
164 Width = 210
165 end
166 item
167 ImageIndex = -1
168 MinWidth = 16
169 Text = 'Start / Stop'
170 Width = 100
171 end
172 item
173 ImageIndex = -1
174 MinWidth = 16
175 Text = 'Provider'
176 Width = 60
177 end
178 item
179 ImageIndex = -1
180 MinWidth = 16
181 Text = 'Nurse'
182 Width = 40
183 end
184 item
185 ImageIndex = -1
186 MinWidth = 16
187 Text = 'Clerk'
188 Width = 35
189 end
190 item
191 ImageIndex = -1
192 MinWidth = 16
193 Text = 'Chart'
194 Width = 35
195 end
196 item
197 ImageIndex = -1
198 MinWidth = 16
199 Text = 'Status'
200 Width = 50
201 end
202 item
203 ImageIndex = -1
204 MinWidth = 25
205 Text = 'Location'
206 Width = 40
207 end>
208 OnSectionClick = hdrOrdersSectionClick
209 OnSectionResize = hdrOrdersSectionResize
210 OnMouseDown = hdrOrdersMouseDown
211 OnMouseUp = hdrOrdersMouseUp
212 end
213 object lstOrders: TCaptionListBox
214 Left = 0
215 Top = 36
216 Width = 645
217 Height = 484
218 Style = lbOwnerDrawVariable
219 Align = alClient
220 Color = clCream
221 Ctl3D = False
222 ItemHeight = 32
223 MultiSelect = True
224 ParentCtl3D = False
225 PopupMenu = popOrder
226 TabOrder = 1
227 OnDblClick = lstOrdersDblClick
228 OnDrawItem = lstOrdersDrawItem
229 OnMeasureItem = lstOrdersMeasureItem
230 RightClickSelect = True
231 Caption = 'Active Orders'
232 end
233 end
234 inherited DKLanguageController1: TDKLanguageController
235 LangData = {
236 090066726D4F7264657273010200000001000000070043617074696F6E020000
237 00080048656C7046696C65015C0000000D0073687050616765426F74746F6D00
238 000700737074486F727A00000700706E6C4C65667400000800706E6C52696768
239 7400000E004F524F66667365744C6162656C3101010000000300000007004361
240 7074696F6E0008006C626C577269746501010000000400000007004361707469
241 6F6E00070073707456657274000009006C737453686565747301010000000500
242 0000070043617074696F6E0008006C7374577269746501010000000600000007
243 0043617074696F6E000F0062746E44656C617965644F72646572010100000007
244 000000070043617074696F6E0009006C626C4F72646572730101000000080000
245 00070043617074696F6E000700696D6748696465010100000009000000040048
246 696E740009006864724F726465727301090000000A000000100053656374696F
247 6E735B315D2E546578740B000000100053656374696F6E735B325D2E54657874
248 0C000000100053656374696F6E735B335D2E546578740D000000100053656374
249 696F6E735B345D2E546578740E000000100053656374696F6E735B355D2E5465
250 78740F000000100053656374696F6E735B365D2E546578741000000010005365
251 6374696F6E735B375D2E5465787411000000100053656374696F6E735B385D2E
252 5465787412000000100053656374696F6E735B395D2E546578740009006C7374
253 4F7264657273010100000013000000070043617074696F6E0009006D6E754F72
254 64657273000007006D6E7556696577010100000014000000070043617074696F
255 6E000C006D6E7556696577436861727401010000001500000007004361707469
256 6F6E000D006D6E754368617274436F7665720101000000160000000700436170
257 74696F6E000D006D6E75436861727450726F6273010100000017000000070043
258 617074696F6E000C006D6E7543686172744D6564730101000000180000000700
259 43617074696F6E000E006D6E7543686172744F72646572730101000000190000
260 00070043617074696F6E000D006D6E7543686172744E6F74657301010000001A
261 000000070043617074696F6E000D006D6E75436861727443736C747301010000
262 001B000000070043617074696F6E000F006D6E75436861727453757267657279
263 01010000001C000000070043617074696F6E000E006D6E754368617274444353
264 756D6D01010000001D000000070043617074696F6E000C006D6E754368617274
265 4C61627301010000001E000000070043617074696F6E000F006D6E7543686172
266 745265706F72747301010000001F000000070043617074696F6E0012006D6E75
267 56696577496E666F726D6174696F6E010100000020000000070043617074696F
268 6E000B006D6E755669657744656D6F010100000021000000070043617074696F
269 6E000D006D6E7556696577566973697473010100000022000000070043617074
270 696F6E0012006D6E75566965775072696D617279436172650101000000230000
271 00070043617074696F6E0013006D6E75566965774D794865616C746865566574
272 010100000024000000070043617074696F6E000C006D6E75496E737572616E63
273 65010100000025000000070043617074696F6E000C006D6E7556696577466C61
274 6773010100000026000000070043617074696F6E0011006D6E75566965775265
275 6D6F746544617461010100000027000000070043617074696F6E0010006D6E75
276 5669657752656D696E64657273010100000028000000070043617074696F6E00
277 0F006D6E7556696577506F7374696E6773010100000029000000070043617074
278 696F6E0002005A3100000D006D6E755669657741637469766501010000002A00
279 0000070043617074696F6E000E006D6E755669657743757272656E7401010000
280 002B000000070043617074696F6E0014004576656E745265616C65617365644F
281 726465723101010000002C000000070043617074696F6E000F006D6E75566965
282 774578706972696E6701010000002D000000070043617074696F6E000F006D6E
283 7556696577556E7369676E656401010000002E000000070043617074696F6E00
284 0E006D6E75566965774578706972656401010000002F00000007004361707469
285 6F6E0002005A3200000D006D6E7556696577437573746F6D0101000000300000
286 00070043617074696F6E0002005A3600000F006D6E755669657744666C745361
287 7665010100000031000000070043617074696F6E000F006D6E75566965774466
288 6C7453686F77010100000032000000070043617074696F6E0002005A3300000D
289 006D6E755669657744657461696C010100000033000000070043617074696F6E
290 000D006D6E7556696577526573756C7401010000003400000007004361707469
291 6F6E0015006D6E7556696577526573756C7473486973746F7279010100000035
292 000000070043617074696F6E0006006D6E754163740101000000360000000700
293 43617074696F6E000C006D6E754163744368616E676501010000003700000007
294 0043617074696F6E000A006D6E75416374436F70790101000000380000000700
295 43617074696F6E0008006D6E7541637444430101000000390000000700436170
296 74696F6E0009006D6E7541637452656C01010000003A00000007004361707469
297 6F6E000D006D6E7541637443686745766E7401010000003B0000000700436170
298 74696F6E000A006D6E75416374486F6C6401010000003C000000070043617074
299 696F6E000C006D6E75416374556E686F6C6401010000003D0000000700436170
300 74696F6E000B006D6E7541637452656E657701010000003E0000000700436170
301 74696F6E0002005A3400000B006D6E75416374416C65727401010000003F0000
302 00070043617074696F6E000E006D6E75416374436F6D706C6574650101000000
303 40000000070043617074696F6E000A006D6E75416374466C6167010100000041
304 000000070043617074696F6E000C006D6E75416374556E666C61670101000000
305 42000000070043617074696F6E000C006D6E7541637456657269667901010000
306 0043000000070043617074696F6E000E006D6E75416374436861727452657601
307 0100000044000000070043617074696F6E0002005A3500000D006D6E75416374
308 52656C65617365010100000045000000070043617074696F6E000D006D6E7541
309 63744F6E4368617274010100000046000000070043617074696F6E000A006D6E
310 754163745369676E010100000047000000070043617074696F6E0006006D6E75
311 4F7074010100000048000000070043617074696F6E000F006D6E754F70745361
312 7665517569636B010100000049000000070043617074696F6E0010006D6E754F
313 707445646974436F6D6D6F6E01010000004A000000070043617074696F6E0008
314 00706F704F7264657200000E00706F704F7264657244657461696C0101000000
315 4B000000070043617074696F6E000E00706F704F72646572526573756C740101
316 0000004C000000070043617074696F6E001100706F70526573756C7473486973
317 746F727901010000004D000000070043617074696F6E0002004E3100000E0070
318 6F704F726465724368616E676501010000004E000000070043617074696F6E00
319 0B00706F704F7264657252656C01010000004F000000070043617074696F6E00
320 0A006D6E7543686745766E74010100000050000000070043617074696F6E000C
321 00706F704F72646572436F7079010100000051000000070043617074696F6E00
322 0A00706F704F726465724443010100000052000000070043617074696F6E000D
323 00706F704F7264657252656E6577010100000053000000070043617074696F6E
324 000E007365704F7264657256657269667900000E00706F704F72646572566572
325 696679010100000054000000070043617074696F6E001000706F704F72646572
326 4368617274526576010100000055000000070043617074696F6E000C00706F70
327 4F726465725369676E010100000056000000070043617074696F6E0011006D6E
328 754F7074696D697A654669656C6473010100000057000000070043617074696F
329 6E00}
330 end
331 object mnuOrders: TMainMenu
332 Left = 136
333 Top = 60
334 object mnuView: TMenuItem
335 Caption = '&View'
336 GroupIndex = 3
337 OnClick = mnuViewClick
338 object mnuViewChart: TMenuItem
339 Caption = 'Chart &Tab'
340 object mnuChartCover: TMenuItem
341 Tag = 1
342 Caption = 'Cover &Sheet'
343 ShortCut = 16467
344 OnClick = mnuChartTabClick
345 end
346 object mnuChartProbs: TMenuItem
347 Tag = 2
348 Caption = '&Problem List'
349 ShortCut = 16464
350 OnClick = mnuChartTabClick
351 end
352 object mnuChartMeds: TMenuItem
353 Tag = 3
354 Caption = '&Medications'
355 ShortCut = 16461
356 OnClick = mnuChartTabClick
357 end
358 object mnuChartOrders: TMenuItem
359 Tag = 4
360 Caption = '&Orders'
361 ShortCut = 16463
362 OnClick = mnuChartTabClick
363 end
364 object mnuChartNotes: TMenuItem
365 Tag = 6
366 Caption = 'Progress &Notes'
367 ShortCut = 16462
368 OnClick = mnuChartTabClick
369 end
370 object mnuChartCslts: TMenuItem
371 Tag = 7
372 Caption = 'Consul&ts'
373 ShortCut = 16468
374 OnClick = mnuChartTabClick
375 end
376 object mnuChartSurgery: TMenuItem
377 Tag = 11
378 Caption = 'S&urgery'
379 ShortCut = 16469
380 OnClick = mnuChartTabClick
381 end
382 object mnuChartDCSumm: TMenuItem
383 Tag = 8
384 Caption = '&Discharge Summaries'
385 ShortCut = 16452
386 OnClick = mnuChartTabClick
387 end
388 object mnuChartLabs: TMenuItem
389 Tag = 9
390 Caption = '&Laboratory'
391 ShortCut = 16460
392 OnClick = mnuChartTabClick
393 end
394 object mnuChartReports: TMenuItem
395 Tag = 10
396 Caption = '&Reports'
397 ShortCut = 16466
398 OnClick = mnuChartTabClick
399 end
400 end
401 object mnuViewInformation: TMenuItem
402 Caption = 'Information'
403 OnClick = mnuViewInformationClick
404 object mnuViewDemo: TMenuItem
405 Tag = 1
406 Caption = 'De&mographics...'
407 OnClick = ViewInfo
408 end
409 object mnuViewVisits: TMenuItem
410 Tag = 2
411 Caption = 'Visits/Pr&ovider...'
412 OnClick = ViewInfo
413 end
414 object mnuViewPrimaryCare: TMenuItem
415 Tag = 3
416 Caption = 'Primary &Care...'
417 OnClick = ViewInfo
418 end
419 object mnuViewMyHealtheVet: TMenuItem
420 Tag = 4
421 Caption = 'MyHealthe&Vet...'
422 OnClick = ViewInfo
423 end
424 object mnuInsurance: TMenuItem
425 Tag = 5
426 Caption = '&Insurance...'
427 OnClick = ViewInfo
428 end
429 object mnuViewFlags: TMenuItem
430 Tag = 6
431 Caption = '&Flags...'
432 OnClick = ViewInfo
433 end
434 object mnuViewRemoteData: TMenuItem
435 Tag = 7
436 Caption = 'Remote &Data...'
437 OnClick = ViewInfo
438 end
439 object mnuViewReminders: TMenuItem
440 Tag = 8
441 Caption = '&Reminders...'
442 Enabled = False
443 OnClick = ViewInfo
444 end
445 object mnuViewPostings: TMenuItem
446 Tag = 9
447 Caption = '&Postings...'
448 OnClick = ViewInfo
449 end
450 end
451 object Z1: TMenuItem
452 Caption = '-'
453 end
454 object mnuViewActive: TMenuItem
455 Caption = '&Active Orders (includes pending, recent activity)'
456 OnClick = mnuViewActiveClick
457 end
458 object mnuViewCurrent: TMenuItem
459 Caption = 'Current &Orders (active/pending status only)'
460 OnClick = mnuViewCurrentClick
461 end
462 object EventRealeasedOrder1: TMenuItem
463 Caption = 'Auto DC/Release Event Orders'
464 OnClick = EventRealeasedOrder1Click
465 end
466 object mnuViewExpiring: TMenuItem
467 Caption = '&Expiring Orders'
468 OnClick = mnuViewExpiringClick
469 end
470 object mnuViewUnsigned: TMenuItem
471 Caption = '&Unsigned Orders'
472 OnClick = mnuViewUnsignedClick
473 end
474 object mnuViewExpired: TMenuItem
475 Caption = '&Recently Expired Orders'
476 OnClick = mnuViewExpiredClick
477 end
478 object Z2: TMenuItem
479 Caption = '-'
480 end
481 object mnuViewCustom: TMenuItem
482 Caption = '&Custom Order View...'
483 OnClick = mnuViewCustomClick
484 end
485 object Z6: TMenuItem
486 Caption = '-'
487 end
488 object mnuViewDfltSave: TMenuItem
489 Caption = '&Save as Default View...'
490 OnClick = mnuViewDfltSaveClick
491 end
492 object mnuViewDfltShow: TMenuItem
493 Caption = '&Return to Default View'
494 OnClick = mnuViewDfltShowClick
495 end
496 object Z3: TMenuItem
497 Caption = '-'
498 end
499 object mnuViewDetail: TMenuItem
500 Caption = '&Details...'
501 OnClick = mnuViewDetailClick
502 end
503 object mnuViewResult: TMenuItem
504 Caption = '&Results...'
505 OnClick = mnuViewResultClick
506 end
507 object mnuViewResultsHistory: TMenuItem
508 Caption = 'Results History...'
509 OnClick = mnuViewResultsHistoryClick
510 end
511 end
512 object mnuAct: TMenuItem
513 Caption = '&Action'
514 GroupIndex = 4
515 OnClick = mnuActClick
516 object mnuActChange: TMenuItem
517 Caption = '&Change...'
518 OnClick = mnuActChangeClick
519 end
520 object mnuActCopy: TMenuItem
521 Caption = 'Copy to &New Order...'
522 OnClick = mnuActCopyClick
523 end
524 object mnuActDC: TMenuItem
525 Caption = '&Discontinue / Cancel...'
526 OnClick = mnuActDCClick
527 end
528 object mnuActRel: TMenuItem
529 Caption = 'Release Delayed Orders'
530 Visible = False
531 OnClick = mnuActRelClick
532 end
533 object mnuActChgEvnt: TMenuItem
534 Caption = 'Change Release Event'
535 OnClick = mnuActChgEvntClick
536 end
537 object mnuActHold: TMenuItem
538 Caption = '&Hold...'
539 OnClick = mnuActHoldClick
540 end
541 object mnuActUnhold: TMenuItem
542 Caption = 'Re&lease Hold...'
543 OnClick = mnuActUnholdClick
544 end
545 object mnuActRenew: TMenuItem
546 Caption = 'Rene&w...'
547 OnClick = mnuActRenewClick
548 end
549 object Z4: TMenuItem
550 Caption = '-'
551 end
552 object mnuActAlert: TMenuItem
553 Caption = '&Alert when Results...'
554 OnClick = mnuActAlertClick
555 end
556 object mnuActComplete: TMenuItem
557 Caption = 'Co&mplete...'
558 OnClick = mnuActCompleteClick
559 end
560 object mnuActFlag: TMenuItem
561 Caption = '&Flag...'
562 OnClick = mnuActFlagClick
563 end
564 object mnuActUnflag: TMenuItem
565 Caption = '&Unflag...'
566 OnClick = mnuActUnflagClick
567 end
568 object mnuActVerify: TMenuItem
569 Caption = '&Verify...'
570 OnClick = mnuActVerifyClick
571 end
572 object mnuActChartRev: TMenuItem
573 Caption = 'Char&t Review...'
574 OnClick = mnuActChartRevClick
575 end
576 object Z5: TMenuItem
577 Caption = '-'
578 end
579 object mnuActRelease: TMenuItem
580 Caption = 'R&elease without MD Signature...'
581 OnClick = mnuActReleaseClick
582 end
583 object mnuActOnChart: TMenuItem
584 Caption = 'Signature &On Chart...'
585 OnClick = mnuActOnChartClick
586 end
587 object mnuActSign: TMenuItem
588 Caption = 'Si&gn Selected...'
589 OnClick = mnuActSignClick
590 end
591 end
592 object mnuOpt: TMenuItem
593 Caption = '&Options'
594 GroupIndex = 5
595 OnClick = mnuOptClick
596 object mnuOptSaveQuick: TMenuItem
597 Caption = '&Save as Quick Order...'
598 OnClick = mnuOptSaveQuickClick
599 end
600 object mnuOptEditCommon: TMenuItem
601 Caption = '&Edit Common List...'
602 OnClick = mnuOptEditCommonClick
603 end
604 end
605 end
606 object popOrder: TPopupMenu
607 OnPopup = popOrderPopup
608 Left = 445
609 Top = 300
610 object popOrderDetail: TMenuItem
611 Caption = 'Detai&ls...'
612 OnClick = mnuViewDetailClick
613 end
614 object popOrderResult: TMenuItem
615 Caption = '&Results...'
616 OnClick = mnuViewResultClick
617 end
618 object popResultsHistory: TMenuItem
619 Caption = 'Results History...'
620 OnClick = mnuViewResultsHistoryClick
621 end
622 object N1: TMenuItem
623 Caption = '-'
624 end
625 object popOrderChange: TMenuItem
626 Tag = 1
627 Caption = '&Change...'
628 OnClick = mnuActChangeClick
629 end
630 object popOrderRel: TMenuItem
631 Caption = 'Release Delayed Orders'
632 Visible = False
633 OnClick = mnuActRelClick
634 end
635 object mnuChgEvnt: TMenuItem
636 Caption = 'Change Release Event'
637 OnClick = mnuActChgEvntClick
638 end
639 object popOrderCopy: TMenuItem
640 Tag = 1
641 Caption = 'Copy to &New Order...'
642 OnClick = mnuActCopyClick
643 end
644 object popOrderDC: TMenuItem
645 Tag = 1
646 Caption = '&Discontinue...'
647 OnClick = mnuActDCClick
648 end
649 object popOrderRenew: TMenuItem
650 Tag = 1
651 Caption = 'Rene&w...'
652 OnClick = mnuActRenewClick
653 end
654 object sepOrderVerify: TMenuItem
655 Caption = '-'
656 end
657 object popOrderVerify: TMenuItem
658 Tag = 2
659 Caption = '&Verify...'
660 OnClick = mnuActVerifyClick
661 end
662 object popOrderChartRev: TMenuItem
663 Tag = 2
664 Caption = 'Char&t Review'
665 OnClick = mnuActChartRevClick
666 end
667 object popOrderSign: TMenuItem
668 Tag = 1
669 Caption = '&Sign...'
670 OnClick = mnuActSignClick
671 end
672 object mnuOptimizeFields: TMenuItem
673 Caption = 'Adjust Column Size'
674 Visible = False
675 OnClick = mnuOptimizeFieldsClick
676 end
677 end
678end
Note: See TracBrowser for help on using the repository browser.