source: cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrders.dfm@ 459

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

Adding foia-cprs branch
File size: 13.7 KB
Line 
1inherited frmOrders: TfrmOrders
2 Left = 142
3 Top = 63
4 Width = 698
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 = 528
16 Width = 690
17 end
18 inherited sptHorz: TSplitter
19 Left = 117
20 Height = 528
21 end
22 inherited pnlLeft: TPanel
23 Width = 117
24 Height = 528
25 object OROffsetLabel1: TOROffsetLabel
26 Left = 0
27 Top = 0
28 Width = 117
29 Height = 19
30 Align = alTop
31 Caption = 'View Orders'
32 HorzOffset = 2
33 Transparent = False
34 VertOffset = 6
35 WordWrap = False
36 end
37 object lblWrite: TLabel
38 Left = 0
39 Top = 97
40 Width = 117
41 Height = 19
42 Align = alTop
43 AutoSize = False
44 Caption = 'Write Orders'
45 ParentShowHint = False
46 ShowHint = True
47 Layout = tlBottom
48 OnMouseMove = lblWriteMouseMove
49 end
50 object sptVert: TSplitter
51 Left = 0
52 Top = 75
53 Width = 117
54 Height = 4
55 Cursor = crVSplit
56 Align = alTop
57 end
58 object lstSheets: TORListBox
59 Left = 0
60 Top = 19
61 Width = 117
62 Height = 56
63 Align = alTop
64 ItemHeight = 13
65 ParentShowHint = False
66 ShowHint = True
67 TabOrder = 0
68 OnClick = lstSheetsClick
69 Caption = 'View Orders'
70 ItemTipColor = clWindow
71 LongList = False
72 Pieces = '2'
73 end
74 object lstWrite: TORListBox
75 Left = 0
76 Top = 116
77 Width = 117
78 Height = 412
79 Align = alClient
80 ItemHeight = 13
81 ParentShowHint = False
82 ShowHint = True
83 TabOrder = 2
84 OnClick = lstWriteClick
85 Caption = 'Write Orders'
86 ItemTipColor = clWindow
87 LongList = False
88 Pieces = '2'
89 end
90 object btnDelayedOrder: TORAlignButton
91 Left = 0
92 Top = 79
93 Width = 117
94 Height = 18
95 Caption = 'Write Delayed Orders'
96 TabOrder = 1
97 OnClick = btnDelayedOrderClick
98 Align = alTop
99 Alignment = taLeftJustify
100 end
101 end
102 inherited pnlRight: TPanel
103 Left = 121
104 Width = 569
105 Height = 528
106 ParentColor = True
107 ParentCtl3D = False
108 ParentFont = False
109 OnResize = pnlRightResize
110 object lblOrders: TOROffsetLabel
111 Left = 0
112 Top = 0
113 Width = 569
114 Height = 19
115 Align = alTop
116 Caption = 'Active Orders'
117 HorzOffset = 2
118 Transparent = False
119 VertOffset = 6
120 WordWrap = False
121 end
122 object imgHide: TImage
123 Left = 520
124 Top = 0
125 Width = 16
126 Height = 16
127 Hint = 'All Active Orders not Visible'
128 AutoSize = True
129 ParentShowHint = False
130 Picture.Data = {
131 07544269746D6170F6000000424DF60000000000000076000000280000001000
132 0000100000000100040000000000800000000000000000000000100000001000
133 0000000000000000800000800000008080008000000080008000808000008080
134 8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
135 FF003333000000000EEE33330FF00FBFB0EE33330F0BFB0BFB0E33330FF000BF
136 BFB033330FFF0BFBFBF033300000BF0FBFB0000FBFB0F0FB0BF0E0FB00000000
137 BF00E0BFBFBFBFB0F0F0E0FBFB0000000FF0E0BFBFBFBFB0FFF0E0FBFB00000F
138 0000E00FBFBFB0FF0FF0003000000FFF0F0333330FFFFFFF0033333300000000
139 0333}
140 ShowHint = True
141 Transparent = True
142 end
143 object hdrOrders: THeaderControl
144 Left = 0
145 Top = 19
146 Width = 569
147 Height = 17
148 DragReorder = False
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 = 'Nrs'
182 Width = 40
183 end
184 item
185 ImageIndex = -1
186 MinWidth = 16
187 Text = 'Clk'
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 = 'Sts'
200 Width = 50
201 end
202 item
203 ImageIndex = -1
204 MinWidth = 25
205 Text = 'Location'
206 Width = 40
207 end>
208 OnSectionResize = hdrOrdersSectionResize
209 OnMouseDown = hdrOrdersMouseDown
210 OnMouseUp = hdrOrdersMouseUp
211 end
212 object lstOrders: TCaptionListBox
213 Left = 0
214 Top = 36
215 Width = 569
216 Height = 492
217 Style = lbOwnerDrawVariable
218 Align = alClient
219 Color = clCream
220 Ctl3D = False
221 ItemHeight = 32
222 MultiSelect = True
223 ParentCtl3D = False
224 PopupMenu = popOrder
225 TabOrder = 1
226 OnDblClick = lstOrdersDblClick
227 OnDrawItem = lstOrdersDrawItem
228 OnMeasureItem = lstOrdersMeasureItem
229 RightClickSelect = True
230 Caption = 'Active Orders'
231 end
232 end
233 object mnuOrders: TMainMenu
234 Left = 136
235 Top = 60
236 object mnuView: TMenuItem
237 Caption = '&View'
238 GroupIndex = 3
239 OnClick = mnuViewClick
240 object mnuViewChart: TMenuItem
241 Caption = 'Chart &Tab'
242 object mnuChartCover: TMenuItem
243 Tag = 1
244 Caption = 'Cover &Sheet'
245 ShortCut = 16467
246 OnClick = mnuChartTabClick
247 end
248 object mnuChartProbs: TMenuItem
249 Tag = 2
250 Caption = '&Problem List'
251 ShortCut = 16464
252 OnClick = mnuChartTabClick
253 end
254 object mnuChartMeds: TMenuItem
255 Tag = 3
256 Caption = '&Medications'
257 ShortCut = 16461
258 OnClick = mnuChartTabClick
259 end
260 object mnuChartOrders: TMenuItem
261 Tag = 4
262 Caption = '&Orders'
263 ShortCut = 16463
264 OnClick = mnuChartTabClick
265 end
266 object mnuChartNotes: TMenuItem
267 Tag = 6
268 Caption = 'Progress &Notes'
269 ShortCut = 16462
270 OnClick = mnuChartTabClick
271 end
272 object mnuChartCslts: TMenuItem
273 Tag = 7
274 Caption = 'Consul&ts'
275 ShortCut = 16468
276 OnClick = mnuChartTabClick
277 end
278 object mnuChartSurgery: TMenuItem
279 Tag = 11
280 Caption = 'S&urgery'
281 ShortCut = 16469
282 OnClick = mnuChartTabClick
283 end
284 object mnuChartDCSumm: TMenuItem
285 Tag = 8
286 Caption = '&Discharge Summaries'
287 ShortCut = 16452
288 OnClick = mnuChartTabClick
289 end
290 object mnuChartLabs: TMenuItem
291 Tag = 9
292 Caption = '&Laboratory'
293 ShortCut = 16460
294 OnClick = mnuChartTabClick
295 end
296 object mnuChartReports: TMenuItem
297 Tag = 10
298 Caption = '&Reports'
299 ShortCut = 16466
300 OnClick = mnuChartTabClick
301 end
302 end
303 object Z1: TMenuItem
304 Caption = '-'
305 end
306 object mnuViewActive: TMenuItem
307 Caption = '&Active Orders (includes pending, recent activity)'
308 OnClick = mnuViewActiveClick
309 end
310 object mnuViewCurrent: TMenuItem
311 Caption = 'Current &Orders (active/pending status only)'
312 OnClick = mnuViewCurrentClick
313 end
314 object EventRealeasedOrder1: TMenuItem
315 Caption = 'Auto DC/Release Event Orders'
316 OnClick = EventRealeasedOrder1Click
317 end
318 object mnuViewExpiring: TMenuItem
319 Caption = '&Expiring Orders'
320 OnClick = mnuViewExpiringClick
321 end
322 object mnuViewUnsigned: TMenuItem
323 Caption = '&Unsigned Orders'
324 OnClick = mnuViewUnsignedClick
325 end
326 object mnuViewExpired: TMenuItem
327 Caption = '&Recently Expired Orders'
328 OnClick = mnuViewExpiredClick
329 end
330 object Z2: TMenuItem
331 Caption = '-'
332 end
333 object mnuViewCustom: TMenuItem
334 Caption = '&Custom Order View...'
335 OnClick = mnuViewCustomClick
336 end
337 object Z6: TMenuItem
338 Caption = '-'
339 end
340 object mnuViewDfltSave: TMenuItem
341 Caption = '&Save as Default View...'
342 OnClick = mnuViewDfltSaveClick
343 end
344 object mnuViewDfltShow: TMenuItem
345 Caption = '&Return to Default View'
346 OnClick = mnuViewDfltShowClick
347 end
348 object Z3: TMenuItem
349 Caption = '-'
350 end
351 object mnuViewDetail: TMenuItem
352 Caption = '&Details...'
353 OnClick = mnuViewDetailClick
354 end
355 object mnuViewResult: TMenuItem
356 Caption = '&Results...'
357 OnClick = mnuViewResultClick
358 end
359 object mnuViewResultsHistory: TMenuItem
360 Caption = 'Results History...'
361 OnClick = mnuViewResultsHistoryClick
362 end
363 end
364 object mnuAct: TMenuItem
365 Caption = '&Action'
366 GroupIndex = 4
367 OnClick = mnuActClick
368 object mnuActChange: TMenuItem
369 Caption = '&Change...'
370 OnClick = mnuActChangeClick
371 end
372 object mnuActCopy: TMenuItem
373 Caption = 'Copy to &New Order...'
374 OnClick = mnuActCopyClick
375 end
376 object mnuActDC: TMenuItem
377 Caption = '&Discontinue / Cancel...'
378 OnClick = mnuActDCClick
379 end
380 object mnuActRel: TMenuItem
381 Caption = 'Release Delayed Orders'
382 Visible = False
383 OnClick = mnuActRelClick
384 end
385 object mnuActChgEvnt: TMenuItem
386 Caption = 'Change Release Event'
387 OnClick = mnuActChgEvntClick
388 end
389 object mnuActHold: TMenuItem
390 Caption = '&Hold...'
391 OnClick = mnuActHoldClick
392 end
393 object mnuActUnhold: TMenuItem
394 Caption = 'Re&lease Hold...'
395 OnClick = mnuActUnholdClick
396 end
397 object mnuActRenew: TMenuItem
398 Caption = 'Rene&w...'
399 OnClick = mnuActRenewClick
400 end
401 object Z4: TMenuItem
402 Caption = '-'
403 end
404 object mnuActAlert: TMenuItem
405 Caption = '&Alert when Results...'
406 OnClick = mnuActAlertClick
407 end
408 object mnuActComplete: TMenuItem
409 Caption = 'Co&mplete...'
410 OnClick = mnuActCompleteClick
411 end
412 object mnuActFlag: TMenuItem
413 Caption = '&Flag...'
414 OnClick = mnuActFlagClick
415 end
416 object mnuActUnflag: TMenuItem
417 Caption = '&Unflag...'
418 OnClick = mnuActUnflagClick
419 end
420 object mnuActVerify: TMenuItem
421 Caption = '&Verify...'
422 OnClick = mnuActVerifyClick
423 end
424 object mnuActChartRev: TMenuItem
425 Caption = 'Char&t Review...'
426 OnClick = mnuActChartRevClick
427 end
428 object Z5: TMenuItem
429 Caption = '-'
430 end
431 object mnuActRelease: TMenuItem
432 Caption = 'R&elease without MD Signature...'
433 OnClick = mnuActReleaseClick
434 end
435 object mnuActOnChart: TMenuItem
436 Caption = 'Signature &On Chart...'
437 OnClick = mnuActOnChartClick
438 end
439 object mnuActSign: TMenuItem
440 Caption = 'Si&gn Selected...'
441 OnClick = mnuActSignClick
442 end
443 end
444 object mnuOpt: TMenuItem
445 Caption = '&Options'
446 GroupIndex = 5
447 OnClick = mnuOptClick
448 object mnuOptSaveQuick: TMenuItem
449 Caption = '&Save as Quick Order...'
450 OnClick = mnuOptSaveQuickClick
451 end
452 object mnuOptEditCommon: TMenuItem
453 Caption = '&Edit Common List...'
454 OnClick = mnuOptEditCommonClick
455 end
456 end
457 end
458 object popOrder: TPopupMenu
459 OnPopup = popOrderPopup
460 Left = 445
461 Top = 300
462 object popOrderDetail: TMenuItem
463 Caption = 'Detai&ls...'
464 OnClick = mnuViewDetailClick
465 end
466 object popOrderResult: TMenuItem
467 Caption = '&Results...'
468 OnClick = mnuViewResultClick
469 end
470 object popResultsHistory: TMenuItem
471 Caption = 'Results History...'
472 OnClick = mnuViewResultsHistoryClick
473 end
474 object N1: TMenuItem
475 Caption = '-'
476 end
477 object popOrderChange: TMenuItem
478 Tag = 1
479 Caption = '&Change...'
480 OnClick = mnuActChangeClick
481 end
482 object popOrderRel: TMenuItem
483 Caption = 'Release Delayed Orders'
484 Visible = False
485 OnClick = mnuActRelClick
486 end
487 object mnuChgEvnt: TMenuItem
488 Caption = 'Change Release Event'
489 OnClick = mnuActChgEvntClick
490 end
491 object popOrderCopy: TMenuItem
492 Tag = 1
493 Caption = 'Copy to &New Order...'
494 OnClick = mnuActCopyClick
495 end
496 object popOrderDC: TMenuItem
497 Tag = 1
498 Caption = '&Discontinue...'
499 OnClick = mnuActDCClick
500 end
501 object popOrderRenew: TMenuItem
502 Tag = 1
503 Caption = 'Rene&w...'
504 OnClick = mnuActRenewClick
505 end
506 object sepOrderVerify: TMenuItem
507 Caption = '-'
508 end
509 object popOrderVerify: TMenuItem
510 Tag = 2
511 Caption = '&Verify...'
512 OnClick = mnuActVerifyClick
513 end
514 object popOrderChartRev: TMenuItem
515 Tag = 2
516 Caption = 'Char&t Review'
517 OnClick = mnuActChartRevClick
518 end
519 object popOrderSign: TMenuItem
520 Tag = 1
521 Caption = '&Sign...'
522 OnClick = mnuActSignClick
523 end
524 end
525end
Note: See TracBrowser for help on using the repository browser.