source: cprs/branches/foia-cprs/CPRS-Chart/fReview.dfm@ 1141

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

Uploading from OR_30_258
File size: 8.4 KB
Line 
1object frmReview: TfrmReview
2 Left = 358
3 Top = 136
4 AutoScroll = False
5 BorderIcons = [biMaximize]
6 Caption = 'Review / Sign Changes'
7 ClientHeight = 497
8 ClientWidth = 602
9 Color = clBtnFace
10 Font.Charset = DEFAULT_CHARSET
11 Font.Color = clWindowText
12 Font.Height = -11
13 Font.Name = 'MS Sans Serif'
14 Font.Style = []
15 KeyPreview = True
16 OldCreateOrder = True
17 Position = poScreenCenter
18 OnClose = FormClose
19 OnCreate = FormCreate
20 OnDestroy = FormDestroy
21 OnKeyDown = FormKeyDown
22 OnKeyUp = FormKeyUp
23 OnMouseDown = FormMouseDown
24 OnMouseMove = FormMouseMove
25 OnShow = FormShow
26 DesignSize = (
27 602
28 497)
29 PixelsPerInch = 96
30 TextHeight = 13
31 object laDiagnosis: TLabel
32 Left = 256
33 Top = 135
34 Width = 46
35 Height = 13
36 Caption = 'Diagnosis'
37 Visible = False
38 end
39 object pnlSignature: TPanel
40 Left = 8
41 Top = 423
42 Width = 373
43 Height = 65
44 Anchors = [akLeft, akBottom]
45 BevelOuter = bvNone
46 TabOrder = 0
47 object lblESCode: TLabel
48 Left = 0
49 Top = 0
50 Width = 123
51 Height = 13
52 Caption = 'Electronic Signature Code'
53 end
54 object txtESCode: TCaptionEdit
55 Left = 0
56 Top = 14
57 Width = 137
58 Height = 21
59 PasswordChar = '*'
60 TabOrder = 0
61 OnChange = txtESCodeChange
62 Caption = 'Electronic Signature Code'
63 end
64 end
65 object pnlOrderAction: TPanel
66 Left = 8
67 Top = 423
68 Width = 373
69 Height = 65
70 Anchors = [akLeft, akBottom]
71 BevelOuter = bvNone
72 TabOrder = 1
73 Visible = False
74 object Label1: TStaticText
75 Left = 0
76 Top = 0
77 Width = 111
78 Height = 17
79 Caption = 'For orders, select from:'
80 TabOrder = 4
81 end
82 object radSignChart: TRadioButton
83 Left = 0
84 Top = 16
85 Width = 101
86 Height = 17
87 Caption = '&Signed on Chart'
88 TabOrder = 0
89 OnClick = radReleaseClick
90 end
91 object radHoldSign: TRadioButton
92 Left = 0
93 Top = 36
94 Width = 101
95 Height = 17
96 Caption = '&Hold until Signed'
97 Checked = True
98 TabOrder = 1
99 TabStop = True
100 OnClick = radReleaseClick
101 end
102 object grpRelease: TGroupBox
103 Left = 120
104 Top = 16
105 Width = 241
106 Height = 42
107 TabOrder = 3
108 Visible = False
109 object radVerbal: TRadioButton
110 Left = 8
111 Top = 19
112 Width = 53
113 Height = 17
114 Caption = '&Verbal'
115 Enabled = False
116 TabOrder = 0
117 end
118 object radPhone: TRadioButton
119 Left = 80
120 Top = 19
121 Width = 77
122 Height = 17
123 Caption = '&Telephone'
124 Enabled = False
125 TabOrder = 1
126 end
127 object radPolicy: TRadioButton
128 Left = 168
129 Top = 19
130 Width = 49
131 Height = 17
132 Caption = '&Policy'
133 Enabled = False
134 TabOrder = 2
135 end
136 end
137 object radRelease: TRadioButton
138 Left = 128
139 Top = 16
140 Width = 113
141 Height = 17
142 Caption = '&Release to Service'
143 TabOrder = 2
144 Visible = False
145 OnClick = radReleaseClick
146 end
147 end
148 object cmdOK: TButton
149 Left = 442
150 Top = 471
151 Width = 72
152 Height = 21
153 Anchors = [akRight, akBottom]
154 Caption = 'OK'
155 Default = True
156 TabOrder = 2
157 OnClick = cmdOKClick
158 end
159 object cmdCancel: TButton
160 Left = 522
161 Top = 471
162 Width = 72
163 Height = 21
164 Anchors = [akRight, akBottom]
165 Cancel = True
166 Caption = 'Cancel'
167 TabOrder = 3
168 OnClick = cmdCancelClick
169 end
170 object lstReview: TCaptionCheckListBox
171 Left = 8
172 Top = 154
173 Width = 587
174 Height = 264
175 OnClickCheck = lstReviewClickCheck
176 Anchors = [akLeft, akTop, akRight, akBottom]
177 ItemHeight = 15
178 ParentShowHint = False
179 PopupMenu = poBACopyPaste
180 ShowHint = True
181 Style = lbOwnerDrawVariable
182 TabOrder = 6
183 OnClick = lstReviewClick
184 OnDrawItem = lstReviewDrawItem
185 OnKeyUp = lstReviewKeyUp
186 OnMeasureItem = lstReviewMeasureItem
187 OnMouseDown = lstReviewMouseDown
188 OnMouseMove = lstReviewMouseMove
189 Caption = 'Signature will be Applied to Checked Items'
190 end
191 inline fraCoPay: TfraCoPayDesc
192 Left = 0
193 Top = 0
194 Width = 602
195 Height = 129
196 Align = alTop
197 AutoScroll = False
198 AutoSize = True
199 ParentShowHint = False
200 ShowHint = True
201 TabOrder = 4
202 Visible = False
203 inherited pnlRight: TPanel
204 Left = 392
205 Height = 129
206 inherited lblCaption: TStaticText
207 Caption = 'Patient Orders Related To:'
208 end
209 inherited pnlMain: TPanel
210 Height = 112
211 inherited Panel7: TPanel
212 inherited lblHNC2: TORStaticText
213 OnEnter = fraCoPayLabel23Enter
214 OnExit = fraCoPayLabel23Exit
215 end
216 inherited lblHNC: TORStaticText
217 OnEnter = fraCoPayLabel23Enter
218 OnExit = fraCoPayLabel23Exit
219 end
220 end
221 inherited Panel8: TPanel
222 inherited Label12: TORStaticText
223 OnEnter = fraCoPayLabel23Enter
224 OnExit = fraCoPayLabel23Exit
225 end
226 inherited Label11: TORStaticText
227 OnEnter = fraCoPayLabel23Enter
228 OnExit = fraCoPayLabel23Exit
229 end
230 end
231 inherited Panel9: TPanel
232 inherited Label14: TORStaticText
233 OnEnter = fraCoPayLabel23Enter
234 OnExit = fraCoPayLabel23Exit
235 end
236 inherited Label13: TORStaticText
237 OnEnter = fraCoPayLabel23Enter
238 OnExit = fraCoPayLabel23Exit
239 end
240 end
241 inherited Panel10: TPanel
242 inherited Label16: TORStaticText
243 OnEnter = fraCoPayLabel23Enter
244 OnExit = fraCoPayLabel23Exit
245 end
246 inherited Label15: TORStaticText
247 OnEnter = fraCoPayLabel23Enter
248 OnExit = fraCoPayLabel23Exit
249 end
250 end
251 inherited Panel11: TPanel
252 inherited Label18: TORStaticText
253 OnEnter = fraCoPayLabel23Enter
254 OnExit = fraCoPayLabel23Exit
255 end
256 inherited Label17: TORStaticText
257 OnEnter = fraCoPayLabel23Enter
258 OnExit = fraCoPayLabel23Exit
259 end
260 end
261 inherited Panel12: TPanel
262 inherited Label24: TORStaticText
263 OnEnter = fraCoPayLabel23Enter
264 OnExit = fraCoPayLabel23Exit
265 end
266 inherited Label23: TORStaticText
267 OnEnter = fraCoPayLabel23Enter
268 OnExit = fraCoPayLabel23Exit
269 end
270 end
271 inherited Panel1: TPanel
272 inherited StaticText4: TORStaticText
273 OnEnter = fraCoPayLabel23Enter
274 OnExit = fraCoPayLabel23Exit
275 end
276 inherited StaticText1: TORStaticText
277 OnEnter = fraCoPayLabel23Enter
278 OnExit = fraCoPayLabel23Exit
279 end
280 end
281 end
282 end
283 inherited pnlSC: TPanel
284 Width = 392
285 Height = 129
286 inherited lblSCDisplay: TLabel
287 Width = 392
288 end
289 inherited memSCDisplay: TCaptionMemo
290 Width = 392
291 Height = 112
292 end
293 end
294 end
295 object lblSig: TStaticText
296 Left = 8
297 Top = 136
298 Width = 205
299 Height = 17
300 Caption = 'Signature will be Applied to Checked Items'
301 TabOrder = 5
302 TabStop = True
303 end
304 object gbxDxLookup: TGroupBox
305 Left = 8
306 Top = 136
307 Width = 101
308 Height = 48
309 Caption = 'Lookup Diagnosis'
310 TabOrder = 8
311 TabStop = True
312 Visible = False
313 object buDiagnosis: TButton
314 Left = 7
315 Top = 21
316 Width = 88
317 Height = 21
318 Caption = '&Diagnosis'
319 Enabled = False
320 TabOrder = 0
321 OnClick = buDiagnosisClick
322 end
323 end
324 object poBACopyPaste: TPopupMenu
325 Left = 384
326 Top = 280
327 object Copy1: TMenuItem
328 Caption = '&Copy'
329 ShortCut = 16451
330 OnClick = Copy1Click
331 end
332 object Paste1: TMenuItem
333 Caption = '&Paste'
334 Enabled = False
335 ShortCut = 16470
336 OnClick = Paste1Click
337 end
338 object Diagnosis1: TMenuItem
339 Caption = '&Diagnosis...'
340 ShortCut = 32836
341 OnClick = buDiagnosisClick
342 end
343 object Exit1: TMenuItem
344 Caption = '&Exit'
345 ShortCut = 16453
346 OnClick = Exit1Click
347 end
348 end
349end
Note: See TracBrowser for help on using the repository browser.