source: cprs/trunk/CPRS-Chart/fReview.dfm@ 1501

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

Upgrading to version 27
File size: 12.8 KB
RevLine 
[830]1inherited frmReview: TfrmReview
2 Left = 141
3 Top = 70
[456]4 BorderIcons = [biMaximize]
5 Caption = 'Review / Sign Changes'
[830]6 ClientHeight = 522
7 ClientWidth = 705
[456]8 OldCreateOrder = True
9 Position = poScreenCenter
10 OnClose = FormClose
11 OnCreate = FormCreate
12 OnDestroy = FormDestroy
13 OnKeyUp = FormKeyUp
14 OnMouseDown = FormMouseDown
15 OnMouseMove = FormMouseMove
[830]16 OnResize = FormResize
[456]17 OnShow = FormShow
[830]18 ExplicitWidth = 713
19 ExplicitHeight = 549
[456]20 DesignSize = (
[830]21 705
22 522)
[456]23 PixelsPerInch = 96
24 TextHeight = 13
[830]25 object laDiagnosis: TLabel [0]
[456]26 Left = 256
27 Top = 135
28 Width = 46
29 Height = 13
30 Caption = 'Diagnosis'
31 Visible = False
32 end
[830]33 object pnlSignature: TPanel [1]
[456]34 Left = 8
[830]35 Top = 452
[456]36 Width = 373
37 Height = 65
38 Anchors = [akLeft, akBottom]
39 BevelOuter = bvNone
40 TabOrder = 0
41 object lblESCode: TLabel
42 Left = 0
43 Top = 0
44 Width = 123
45 Height = 13
46 Caption = 'Electronic Signature Code'
47 end
48 object txtESCode: TCaptionEdit
49 Left = 0
50 Top = 14
51 Width = 137
52 Height = 21
53 PasswordChar = '*'
54 TabOrder = 0
55 OnChange = txtESCodeChange
56 Caption = 'Electronic Signature Code'
57 end
58 end
[830]59 object pnlOrderAction: TPanel [2]
60 Left = 2
61 Top = 454
[456]62 Width = 373
63 Height = 65
64 Anchors = [akLeft, akBottom]
65 BevelOuter = bvNone
66 TabOrder = 1
67 Visible = False
68 object Label1: TStaticText
69 Left = 0
70 Top = 0
71 Width = 111
72 Height = 17
73 Caption = 'For orders, select from:'
74 TabOrder = 4
75 end
76 object radSignChart: TRadioButton
77 Left = 0
78 Top = 16
79 Width = 101
80 Height = 17
81 Caption = '&Signed on Chart'
82 TabOrder = 0
83 OnClick = radReleaseClick
84 end
85 object radHoldSign: TRadioButton
86 Left = 0
87 Top = 36
88 Width = 101
89 Height = 17
90 Caption = '&Hold until Signed'
91 Checked = True
92 TabOrder = 1
93 TabStop = True
94 OnClick = radReleaseClick
95 end
96 object grpRelease: TGroupBox
97 Left = 120
98 Top = 16
99 Width = 241
100 Height = 42
101 TabOrder = 3
102 Visible = False
103 object radVerbal: TRadioButton
104 Left = 8
105 Top = 19
106 Width = 53
107 Height = 17
108 Caption = '&Verbal'
109 Enabled = False
110 TabOrder = 0
111 end
112 object radPhone: TRadioButton
113 Left = 80
114 Top = 19
115 Width = 77
116 Height = 17
117 Caption = '&Telephone'
118 Enabled = False
119 TabOrder = 1
120 end
121 object radPolicy: TRadioButton
122 Left = 168
123 Top = 19
124 Width = 49
125 Height = 17
126 Caption = '&Policy'
127 Enabled = False
128 TabOrder = 2
129 end
130 end
131 object radRelease: TRadioButton
132 Left = 128
133 Top = 16
134 Width = 113
135 Height = 17
136 Caption = '&Release to Service'
137 TabOrder = 2
138 Visible = False
139 OnClick = radReleaseClick
140 end
141 end
[830]142 object cmdOK: TButton [3]
143 Left = 545
144 Top = 496
[456]145 Width = 72
146 Height = 21
147 Anchors = [akRight, akBottom]
148 Caption = 'OK'
149 Default = True
150 TabOrder = 2
151 OnClick = cmdOKClick
152 end
[830]153 object cmdCancel: TButton [4]
154 Left = 625
155 Top = 496
[456]156 Width = 72
157 Height = 21
158 Anchors = [akRight, akBottom]
159 Cancel = True
160 Caption = 'Cancel'
161 TabOrder = 3
162 OnClick = cmdCancelClick
163 end
[830]164 object lstReview: TCaptionCheckListBox [5]
165 Left = 0
166 Top = 177
167 Width = 690
168 Height = 275
[456]169 OnClickCheck = lstReviewClickCheck
170 Anchors = [akLeft, akTop, akRight, akBottom]
171 ItemHeight = 15
172 ParentShowHint = False
173 PopupMenu = poBACopyPaste
174 ShowHint = True
175 Style = lbOwnerDrawVariable
176 TabOrder = 6
177 OnClick = lstReviewClick
178 OnDrawItem = lstReviewDrawItem
179 OnKeyUp = lstReviewKeyUp
180 OnMeasureItem = lstReviewMeasureItem
181 OnMouseDown = lstReviewMouseDown
182 OnMouseMove = lstReviewMouseMove
183 Caption = 'Signature will be Applied to Checked Items'
184 end
[830]185 inline fraCoPay: TfraCoPayDesc [6]
186 Left = 6
187 Top = 1
[456]188 Width = 602
[830]189 Height = 152
190 Anchors = [akLeft, akTop, akRight]
[456]191 AutoSize = True
192 ParentShowHint = False
193 ShowHint = True
194 TabOrder = 4
[830]195 TabStop = True
[456]196 Visible = False
[830]197 ExplicitLeft = 6
198 ExplicitTop = 1
199 ExplicitWidth = 602
200 ExplicitHeight = 152
[456]201 inherited pnlRight: TPanel
[830]202 Left = 336
203 Width = 266
204 Height = 152
205 AutoSize = True
206 ExplicitLeft = 336
207 ExplicitWidth = 266
208 ExplicitHeight = 152
209 inherited Spacer2: TLabel
210 Width = 266
211 ExplicitWidth = 266
212 end
[456]213 inherited lblCaption: TStaticText
[830]214 Width = 266
[456]215 Caption = 'Patient Orders Related To:'
[830]216 ExplicitWidth = 266
[456]217 end
218 inherited pnlMain: TPanel
[830]219 Left = 24
220 Top = 12
221 Width = 233
222 Height = 132
223 ExplicitLeft = 24
224 ExplicitTop = 12
225 ExplicitWidth = 233
226 ExplicitHeight = 132
227 inherited spacer1: TLabel
228 Width = 229
229 ExplicitWidth = 229
230 end
231 inherited pnlHNC: TPanel
232 Width = 229
233 ExplicitWidth = 229
234 inherited lblHNC2: TVA508StaticText
235 Width = 129
236 ExplicitWidth = 129
[456]237 end
[830]238 inherited lblHNC: TVA508StaticText
239 Width = 31
240 ExplicitWidth = 31
[456]241 end
242 end
[830]243 inherited pnlMST: TPanel
244 Width = 229
245 ExplicitWidth = 229
246 inherited lblMST2: TVA508StaticText
247 Width = 25
248 ExplicitWidth = 25
[456]249 end
[830]250 inherited lblMST: TVA508StaticText
251 Width = 31
252 ExplicitWidth = 31
[456]253 end
254 end
[830]255 inherited pnlSWAC: TPanel
256 Width = 229
257 ExplicitWidth = 229
258 inherited lblSWAC2: TVA508StaticText
259 Width = 127
260 ExplicitWidth = 127
[456]261 end
[830]262 inherited lblSWAC: TVA508StaticText
263 Width = 40
264 ExplicitWidth = 40
[456]265 end
266 end
[830]267 inherited pnlIR: TPanel
268 Width = 229
269 ExplicitWidth = 229
270 inherited lblIR2: TVA508StaticText
271 Width = 133
272 ExplicitWidth = 133
[456]273 end
[830]274 inherited lblIR: TVA508StaticText
275 Width = 19
276 ExplicitWidth = 19
[456]277 end
278 end
[830]279 inherited pnlAO: TPanel
280 Width = 229
281 ExplicitWidth = 229
282 inherited lblAO2: TVA508StaticText
283 Width = 115
284 ExplicitWidth = 115
[456]285 end
[830]286 inherited lblAO: TVA508StaticText
287 Width = 23
288 ExplicitWidth = 23
[456]289 end
290 end
[830]291 inherited pnlSC: TPanel
292 Width = 229
293 ExplicitWidth = 229
294 end
295 inherited pnlCV: TPanel
296 Width = 229
297 ExplicitWidth = 229
298 inherited lblCV2: TVA508StaticText
299 Width = 142
300 ExplicitWidth = 142
[456]301 end
302 end
[830]303 inherited pnlSHD: TPanel
304 Width = 229
305 ExplicitWidth = 229
306 inherited lblSHAD: TVA508StaticText
307 Width = 33
308 ExplicitWidth = 33
[456]309 end
[830]310 inherited lblSHAD2: TVA508StaticText
311 Width = 159
312 ExplicitWidth = 159
[456]313 end
314 end
315 end
316 end
[830]317 inherited pnlSCandRD: TPanel
318 Width = 336
319 Height = 152
320 ExplicitWidth = 336
321 ExplicitHeight = 152
[456]322 inherited lblSCDisplay: TLabel
[830]323 Width = 336
324 ExplicitWidth = 336
[456]325 end
326 inherited memSCDisplay: TCaptionMemo
[830]327 Width = 336
328 Height = 135
329 ExplicitWidth = 336
330 ExplicitHeight = 135
[456]331 end
332 end
333 end
334 object lblSig: TStaticText
335 Left = 8
[830]336 Top = 160
[456]337 Width = 205
338 Height = 17
339 Caption = 'Signature will be Applied to Checked Items'
340 TabOrder = 5
341 TabStop = True
342 end
343 object gbxDxLookup: TGroupBox
344 Left = 8
[830]345 Top = 156
[456]346 Width = 101
[830]347 Height = 43
[456]348 Caption = 'Lookup Diagnosis'
349 TabOrder = 8
350 TabStop = True
351 Visible = False
352 object buDiagnosis: TButton
[830]353 Left = 10
354 Top = 15
355 Width = 83
[456]356 Height = 21
357 Caption = '&Diagnosis'
358 Enabled = False
359 TabOrder = 0
360 OnClick = buDiagnosisClick
361 end
362 end
[830]363 inherited amgrMain: TVA508AccessibilityManager
364 Data = (
365 (
366 'Component = pnlSignature'
367 'Status = stsDefault')
368 (
369 'Component = txtESCode'
370 'Status = stsDefault')
371 (
372 'Component = pnlOrderAction'
373 'Status = stsDefault')
374 (
375 'Component = Label1'
376 'Status = stsDefault')
377 (
378 'Component = radSignChart'
379 'Status = stsDefault')
380 (
381 'Component = radHoldSign'
382 'Status = stsDefault')
383 (
384 'Component = grpRelease'
385 'Status = stsDefault')
386 (
387 'Component = radVerbal'
388 'Status = stsDefault')
389 (
390 'Component = radPhone'
391 'Status = stsDefault')
392 (
393 'Component = radPolicy'
394 'Status = stsDefault')
395 (
396 'Component = radRelease'
397 'Status = stsDefault')
398 (
399 'Component = cmdOK'
400 'Status = stsDefault')
401 (
402 'Component = cmdCancel'
403 'Status = stsDefault')
404 (
405 'Component = lstReview'
406 'Status = stsDefault')
407 (
408 'Component = fraCoPay'
409 'Status = stsDefault')
410 (
411 'Component = fraCoPay.pnlRight'
412 'Status = stsDefault')
413 (
414 'Component = fraCoPay.lblCaption'
415 'Status = stsDefault')
416 (
417 'Component = fraCoPay.pnlMain'
418 'Status = stsDefault')
419 (
420 'Component = fraCoPay.pnlHNC'
421 'Status = stsDefault')
422 (
423 'Component = fraCoPay.lblHNC2'
424 'Status = stsDefault')
425 (
426 'Component = fraCoPay.lblHNC'
427 'Status = stsDefault')
428 (
429 'Component = fraCoPay.pnlMST'
430 'Status = stsDefault')
431 (
432 'Component = fraCoPay.lblMST2'
433 'Status = stsDefault')
434 (
435 'Component = fraCoPay.lblMST'
436 'Status = stsDefault')
437 (
438 'Component = fraCoPay.pnlSWAC'
439 'Status = stsDefault')
440 (
441 'Component = fraCoPay.lblSWAC2'
442 'Status = stsDefault')
443 (
444 'Component = fraCoPay.lblSWAC'
445 'Status = stsDefault')
446 (
447 'Component = fraCoPay.pnlIR'
448 'Status = stsDefault')
449 (
450 'Component = fraCoPay.lblIR2'
451 'Status = stsDefault')
452 (
453 'Component = fraCoPay.lblIR'
454 'Status = stsDefault')
455 (
456 'Component = fraCoPay.pnlAO'
457 'Status = stsDefault')
458 (
459 'Component = fraCoPay.lblAO2'
460 'Status = stsDefault')
461 (
462 'Component = fraCoPay.lblAO'
463 'Status = stsDefault')
464 (
465 'Component = fraCoPay.pnlSC'
466 'Status = stsDefault')
467 (
468 'Component = fraCoPay.lblSC2'
469 'Status = stsDefault')
470 (
471 'Component = fraCoPay.lblSC'
472 'Status = stsDefault')
473 (
474 'Component = fraCoPay.pnlCV'
475 'Status = stsDefault')
476 (
477 'Component = fraCoPay.lblCV2'
478 'Status = stsDefault')
479 (
480 'Component = fraCoPay.lblCV'
481 'Status = stsDefault')
482 (
483 'Component = fraCoPay.pnlSHD'
484 'Status = stsDefault')
485 (
486 'Component = fraCoPay.lblSHAD'
487 'Status = stsDefault')
488 (
489 'Component = fraCoPay.lblSHAD2'
490 'Status = stsDefault')
491 (
492 'Component = fraCoPay.pnlSCandRD'
493 'Status = stsDefault')
494 (
495 'Component = fraCoPay.memSCDisplay'
496 'Status = stsDefault')
497 (
498 'Component = lblSig'
499 'Status = stsDefault')
500 (
501 'Component = gbxDxLookup'
502 'Status = stsDefault')
503 (
504 'Component = buDiagnosis'
505 'Status = stsDefault')
506 (
507 'Component = frmReview'
508 'Status = stsDefault'))
509 end
[456]510 object poBACopyPaste: TPopupMenu
511 Left = 384
512 Top = 280
513 object Copy1: TMenuItem
514 Caption = '&Copy'
515 ShortCut = 16451
516 OnClick = Copy1Click
517 end
518 object Paste1: TMenuItem
519 Caption = '&Paste'
520 Enabled = False
521 ShortCut = 16470
522 OnClick = Paste1Click
523 end
524 object Diagnosis1: TMenuItem
525 Caption = '&Diagnosis...'
526 ShortCut = 32836
527 OnClick = buDiagnosisClick
528 end
529 object Exit1: TMenuItem
530 Caption = '&Exit'
531 ShortCut = 16453
532 OnClick = Exit1Click
533 end
534 end
535end
Note: See TracBrowser for help on using the repository browser.