source: cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsultAct.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: 8.9 KB
Line 
1object frmConsultAction: TfrmConsultAction
2 Left = 277
3 Top = 217
4 Width = 600
5 Height = 406
6 BorderIcons = []
7 Caption = 'frmConsultAction'
8 Color = clBtnFace
9 Constraints.MinHeight = 406
10 Constraints.MinWidth = 600
11 Font.Charset = DEFAULT_CHARSET
12 Font.Color = clWindowText
13 Font.Height = -11
14 Font.Name = 'MS Sans Serif'
15 Font.Style = []
16 OldCreateOrder = True
17 Position = poScreenCenter
18 PixelsPerInch = 96
19 TextHeight = 13
20 object pnlBase: TPanel
21 Left = 0
22 Top = 0
23 Width = 592
24 Height = 379
25 Align = alClient
26 BevelOuter = bvNone
27 TabOrder = 0
28 object pnlForward: TPanel
29 Left = 0
30 Top = 0
31 Width = 224
32 Height = 379
33 Align = alLeft
34 BevelOuter = bvNone
35 TabOrder = 0
36 object lblToService: TOROffsetLabel
37 Left = 2
38 Top = 0
39 Width = 120
40 Height = 19
41 Caption = 'To service'
42 HorzOffset = 2
43 Transparent = False
44 VertOffset = 6
45 WordWrap = False
46 end
47 object lblAttentionOf: TOROffsetLabel
48 Left = 2
49 Top = 325
50 Width = 44
51 Height = 19
52 Caption = 'Attention'
53 HorzOffset = 2
54 Transparent = False
55 VertOffset = 6
56 WordWrap = False
57 end
58 object lblUrgency: TOROffsetLabel
59 Left = 2
60 Top = 277
61 Width = 42
62 Height = 19
63 Caption = 'Urgency'
64 HorzOffset = 2
65 Transparent = False
66 VertOffset = 6
67 WordWrap = False
68 end
69 object Label1: TMemo
70 Left = 18
71 Top = 123
72 Width = 185
73 Height = 65
74 TabStop = False
75 Alignment = taCenter
76 BorderStyle = bsNone
77 Color = clBtnFace
78 Lines.Strings = (
79 'A procedure can only be forwarded to '
80 'other services defined as being able to '
81 'perform that procedure. Valid '
82 'selections for this procedure are listed '
83 'in the drop-down box above.')
84 ReadOnly = True
85 TabOrder = 4
86 end
87 object cboAttentionOf: TORComboBox
88 Left = 2
89 Top = 344
90 Width = 212
91 Height = 21
92 Style = orcsDropDown
93 AutoSelect = True
94 Caption = 'Attention'
95 Color = clWindow
96 DropDownCount = 8
97 ItemHeight = 13
98 ItemTipColor = clWindow
99 ItemTipEnable = True
100 ListItemsOnly = True
101 LongList = True
102 LookupPiece = 2
103 MaxLength = 0
104 Pieces = '2,3'
105 Sorted = False
106 SynonymChars = '<>'
107 TabOrder = 3
108 OnNeedData = NewPersonNeedData
109 end
110 object cboUrgency: TORComboBox
111 Left = 2
112 Top = 297
113 Width = 212
114 Height = 21
115 Style = orcsDropDown
116 AutoSelect = True
117 Caption = 'Urgency'
118 Color = clWindow
119 DropDownCount = 8
120 ItemHeight = 13
121 ItemTipColor = clWindow
122 ItemTipEnable = True
123 ListItemsOnly = True
124 LongList = False
125 LookupPiece = 0
126 MaxLength = 0
127 Pieces = '2'
128 Sorted = False
129 SynonymChars = '<>'
130 TabOrder = 2
131 end
132 object treService: TORTreeView
133 Left = 2
134 Top = 100
135 Width = 212
136 Height = 182
137 HideSelection = False
138 Indent = 19
139 ReadOnly = True
140 TabOrder = 1
141 OnChange = treServiceChange
142 OnExit = treServiceExit
143 Caption = 'To service'
144 NodePiece = 0
145 end
146 object cboService: TORComboBox
147 Left = 2
148 Top = 23
149 Width = 212
150 Height = 75
151 Style = orcsSimple
152 AutoSelect = True
153 Caption = 'To service'
154 Color = clWindow
155 DropDownCount = 8
156 ItemHeight = 13
157 ItemTipColor = clWindow
158 ItemTipEnable = True
159 ListItemsOnly = True
160 LongList = False
161 LookupPiece = 0
162 MaxLength = 0
163 Pieces = '2'
164 Sorted = True
165 SynonymChars = '<>'
166 TabOrder = 0
167 OnKeyPause = cboServiceSelect
168 OnMouseClick = cboServiceSelect
169 end
170 end
171 object pnlOther: TPanel
172 Left = 224
173 Top = 0
174 Width = 368
175 Height = 379
176 Align = alClient
177 BevelOuter = bvNone
178 TabOrder = 1
179 object pnlSigFind: TPanel
180 Left = 0
181 Top = 0
182 Width = 368
183 Height = 57
184 Align = alTop
185 BevelOuter = bvNone
186 TabOrder = 0
187 object grpSigFindings: TRadioGroup
188 Left = 9
189 Top = 7
190 Width = 350
191 Height = 41
192 Caption = 'Significant Findings - Current status: '
193 Columns = 3
194 Ctl3D = True
195 Items.Strings = (
196 '&Yes'
197 '&No'
198 '&Unknown')
199 ParentCtl3D = False
200 TabOrder = 0
201 end
202 end
203 object pnlComments: TPanel
204 Left = 0
205 Top = 57
206 Width = 368
207 Height = 224
208 Align = alClient
209 Alignment = taLeftJustify
210 BevelOuter = bvNone
211 TabOrder = 1
212 object lblComments: TOROffsetLabel
213 Left = 0
214 Top = 0
215 Width = 368
216 Height = 19
217 Align = alTop
218 Caption = 'Comments'
219 HorzOffset = 2
220 Transparent = False
221 VertOffset = 6
222 WordWrap = False
223 end
224 object memComments: TCaptionMemo
225 Left = 0
226 Top = 19
227 Width = 368
228 Height = 170
229 Align = alClient
230 Font.Charset = ANSI_CHARSET
231 Font.Color = clWindowText
232 Font.Height = -11
233 Font.Name = 'Courier New'
234 Font.Style = []
235 ParentFont = False
236 ScrollBars = ssVertical
237 TabOrder = 0
238 Caption = 'Comments'
239 end
240 object pnlAlert: TPanel
241 Left = 0
242 Top = 189
243 Width = 368
244 Height = 35
245 Align = alBottom
246 BevelOuter = bvNone
247 TabOrder = 1
248 object lblAutoAlerts: TStaticText
249 Left = 6
250 Top = 1
251 Width = 4
252 Height = 4
253 TabOrder = 1
254 end
255 object ckAlert: TCheckBox
256 Left = 6
257 Top = 17
258 Width = 129
259 Height = 17
260 Caption = 'Send additional alerts'
261 TabOrder = 0
262 OnClick = ckAlertClick
263 end
264 end
265 end
266 object pnlAllActions: TPanel
267 Left = 0
268 Top = 281
269 Width = 368
270 Height = 98
271 Align = alBottom
272 BevelOuter = bvNone
273 TabOrder = 2
274 DesignSize = (
275 368
276 98)
277 object lblActionBy: TOROffsetLabel
278 Left = 138
279 Top = -4
280 Width = 215
281 Height = 19
282 Caption = 'Action by'
283 HorzOffset = 2
284 Transparent = False
285 VertOffset = 6
286 WordWrap = False
287 end
288 object lblDateofAction: TOROffsetLabel
289 Left = 5
290 Top = -4
291 Width = 112
292 Height = 19
293 Caption = 'Date/time of this action'
294 HorzOffset = 2
295 Transparent = False
296 VertOffset = 6
297 WordWrap = False
298 end
299 object calDateofAction: TORDateBox
300 Left = 5
301 Top = 15
302 Width = 116
303 Height = 21
304 TabOrder = 0
305 Text = 'Now'
306 DateOnly = False
307 RequireTime = False
308 Caption = 'Date/time of this action'
309 end
310 object cmdOK: TORAlignButton
311 Left = 201
312 Top = 62
313 Width = 75
314 Height = 22
315 Anchors = [akRight, akBottom]
316 Caption = 'OK'
317 TabOrder = 2
318 OnClick = cmdOKClick
319 end
320 object cmdCancel: TORAlignButton
321 Left = 286
322 Top = 62
323 Width = 75
324 Height = 22
325 Anchors = [akRight, akBottom]
326 Cancel = True
327 Caption = 'Cancel'
328 TabOrder = 3
329 OnClick = cmdCancelClick
330 end
331 object cboPerson: TORComboBox
332 Left = 137
333 Top = 15
334 Width = 220
335 Height = 21
336 Style = orcsDropDown
337 AutoSelect = True
338 Caption = 'Action by'
339 Color = clWindow
340 DropDownCount = 8
341 ItemHeight = 13
342 ItemTipColor = clWindow
343 ItemTipEnable = True
344 ListItemsOnly = True
345 LongList = True
346 LookupPiece = 2
347 MaxLength = 0
348 Pieces = '2,3'
349 Sorted = False
350 SynonymChars = '<>'
351 TabOrder = 1
352 TabStop = True
353 OnNeedData = NewPersonNeedData
354 end
355 end
356 end
357 end
358end
Note: See TracBrowser for help on using the repository browser.