source: cprs/trunk/CPRS-Chart/fEncnt.dfm@ 924

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

Upgrading to version 27
File size: 9.7 KB
Line 
1inherited frmEncounter: TfrmEncounter
2 Left = 481
3 Top = 242
4 Anchors = [akTop]
5 BorderIcons = [biSystemMenu]
6 Caption = 'Provider & Location for Current Activities'
7 ClientHeight = 423
8 ClientWidth = 462
9 Constraints.MinWidth = 470
10 OldCreateOrder = True
11 Position = poScreenCenter
12 Scaled = False
13 OnClose = FormClose
14 OnCreate = FormCreate
15 OnDestroy = FormDestroy
16 OnResize = FormResize
17 OnShow = FormShow
18 ExplicitWidth = 470
19 ExplicitHeight = 450
20 DesignSize = (
21 462
22 423)
23 PixelsPerInch = 96
24 TextHeight = 13
25 object lblInstruct: TLabel [0]
26 Left = 6
27 Top = 6
28 Width = 253
29 Height = 31
30 AutoSize = False
31 Caption =
32 'Select the appointment or visit that should be associated with t' +
33 'he note or orders .'
34 Visible = False
35 WordWrap = True
36 end
37 object lblLocation: TLabel [1]
38 Tag = 9
39 Left = 6
40 Top = 140
41 Width = 93
42 Height = 13
43 Anchors = [akLeft, akBottom]
44 Caption = 'Encounter Location'
45 Constraints.MinHeight = 12
46 end
47 object lblProvider: TLabel [2]
48 Left = 6
49 Top = 6
50 Width = 91
51 Height = 13
52 Caption = 'Encounter Provider'
53 end
54 object cboPtProvider: TORComboBox [3]
55 Left = 6
56 Top = 20
57 Width = 331
58 Height = 117
59 Anchors = [akLeft, akTop, akRight, akBottom]
60 Style = orcsSimple
61 AutoSelect = True
62 Caption = 'Encounter Provider'
63 Color = clWindow
64 DropDownCount = 8
65 ItemHeight = 13
66 ItemTipColor = clWindow
67 ItemTipEnable = True
68 ListItemsOnly = True
69 LongList = True
70 LookupPiece = 2
71 MaxLength = 0
72 Pieces = '2,3'
73 Sorted = False
74 SynonymChars = '<>'
75 TabOrder = 0
76 OnDblClick = cmdOKClick
77 OnNeedData = cboPtProviderNeedData
78 CharsNeedMatch = 1
79 end
80 object cmdDateRange: TButton [4]
81 Tag = 9
82 Left = 266
83 Top = 153
84 Width = 84
85 Height = 25
86 Anchors = [akLeft, akBottom]
87 Caption = 'Date Range...'
88 Constraints.MinHeight = 21
89 Constraints.MinWidth = 21
90 TabOrder = 2
91 OnClick = cmdDateRangeClick
92 end
93 object txtLocation: TCaptionEdit [5]
94 Tag = 9
95 Left = 6
96 Top = 154
97 Width = 258
98 Height = 21
99 Anchors = [akLeft, akBottom]
100 AutoSize = False
101 Color = clBtnFace
102 Constraints.MinHeight = 21
103 ReadOnly = True
104 TabOrder = 1
105 Text = '< Select a location from the tabs below.... >'
106 Caption = 'Encounter Location'
107 end
108 object cmdCancel: TButton [6]
109 Left = 341
110 Top = 45
111 Width = 84
112 Height = 23
113 Anchors = [akTop, akRight]
114 Cancel = True
115 Caption = 'Cancel'
116 Constraints.MinHeight = 21
117 Constraints.MinWidth = 21
118 TabOrder = 4
119 OnClick = cmdCancelClick
120 end
121 object cmdOK: TButton [7]
122 Left = 340
123 Top = 20
124 Width = 84
125 Height = 23
126 Anchors = [akTop, akRight]
127 Caption = 'OK'
128 Constraints.MinHeight = 21
129 Constraints.MinWidth = 21
130 Default = True
131 TabOrder = 3
132 OnClick = cmdOKClick
133 end
134 object Panel1: TPanel [8]
135 Left = 0
136 Top = 179
137 Width = 460
138 Height = 243
139 Anchors = [akLeft, akRight, akBottom]
140 TabOrder = 6
141 DesignSize = (
142 460
143 243)
144 object pgeVisit: TPageControl
145 Tag = 9
146 Left = 4
147 Top = 5
148 Width = 452
149 Height = 232
150 ActivePage = tabNewVisit
151 Anchors = [akLeft, akTop, akRight, akBottom]
152 Constraints.MinHeight = 150
153 RaggedRight = True
154 TabOrder = 0
155 OnChange = pgeVisitChange
156 OnMouseDown = pgeVisitMouseDown
157 object tabClinic: TTabSheet
158 Caption = 'Clinic Appointments'
159 ExplicitLeft = 0
160 ExplicitTop = 0
161 ExplicitWidth = 0
162 ExplicitHeight = 0
163 object lstClinic: TORListBox
164 Left = 0
165 Top = 20
166 Width = 444
167 Height = 184
168 Align = alClient
169 Constraints.MinHeight = 21
170 ItemHeight = 13
171 ParentShowHint = False
172 ScrollWidth = 353
173 ShowHint = True
174 TabOrder = 0
175 OnDblClick = cmdOKClick
176 Caption = 'Clinic Appointments / Visits (T-30 thru T+1)'
177 ItemTipColor = clWindow
178 LongList = False
179 Pieces = '3,2,4'
180 TabPositions = '30,50'
181 OnChange = lstClinicChange
182 end
183 object Panel2: TPanel
184 Left = 0
185 Top = 0
186 Width = 444
187 Height = 20
188 Align = alTop
189 TabOrder = 2
190 object lblDateRange: TLabel
191 Left = 138
192 Top = 4
193 Width = 71
194 Height = 13
195 Caption = '(T-30 thru T+1)'
196 end
197 object lblClinic: TLabel
198 Left = 4
199 Top = 4
200 Width = 127
201 Height = 13
202 Caption = 'Clinic Appointments / Visits'
203 end
204 end
205 end
206 object tabAdmit: TTabSheet
207 Caption = 'Hospital Admissions'
208 ExplicitLeft = 0
209 ExplicitTop = 0
210 ExplicitWidth = 0
211 ExplicitHeight = 0
212 object lstAdmit: TORListBox
213 Left = 0
214 Top = 17
215 Width = 444
216 Height = 187
217 Align = alClient
218 ItemHeight = 13
219 ParentShowHint = False
220 ShowHint = True
221 TabOrder = 0
222 OnDblClick = cmdOKClick
223 Caption = 'Hospital Admissions'
224 ItemTipColor = clWindow
225 LongList = False
226 Pieces = '3,5,4'
227 TabPositions = '20'
228 OnChange = lstAdmitChange
229 end
230 object Panel3: TPanel
231 Left = 0
232 Top = 0
233 Width = 444
234 Height = 17
235 Align = alTop
236 TabOrder = 2
237 object lblAdmit: TLabel
238 Left = 4
239 Top = 1
240 Width = 93
241 Height = 13
242 Caption = 'Hospital Admissions'
243 end
244 end
245 end
246 object tabNewVisit: TTabSheet
247 Caption = 'New Visit'
248 ExplicitLeft = 0
249 ExplicitTop = 0
250 ExplicitWidth = 0
251 ExplicitHeight = 0
252 object lblVisitDate: TLabel
253 Left = 220
254 Top = 4
255 Width = 85
256 Height = 13
257 Caption = 'Date/Time of Visit'
258 Visible = False
259 end
260 object lblNewVisit: TLabel
261 Left = 4
262 Top = 4
263 Width = 63
264 Height = 13
265 Caption = 'Visit Location'
266 end
267 object calVisitDate: TORDateBox
268 Left = 220
269 Top = 18
270 Width = 140
271 Height = 21
272 TabOrder = 1
273 Text = 'NOW'
274 OnChange = calVisitDateChange
275 OnExit = calVisitDateExit
276 DateOnly = False
277 RequireTime = True
278 end
279 object ckbHistorical: TORCheckBox
280 Left = 220
281 Top = 50
282 Width = 140
283 Height = 81
284 Caption =
285 'Historical Visit: a visit that occurred at some time in the past' +
286 ' or at some other location (possibly non-VA) but is not used for' +
287 ' workload credit.'
288 ParentShowHint = False
289 ShowHint = True
290 TabOrder = 2
291 WordWrap = True
292 OnClick = ckbHistoricalClick
293 AutoSize = True
294 end
295 object cboNewVisit: TORComboBox
296 Left = 4
297 Top = 18
298 Width = 208
299 Height = 117
300 Style = orcsSimple
301 AutoSelect = True
302 Caption = 'Visit Location'
303 Color = clWindow
304 DropDownCount = 8
305 ItemHeight = 13
306 ItemTipColor = clWindow
307 ItemTipEnable = True
308 ListItemsOnly = True
309 LongList = True
310 LookupPiece = 0
311 MaxLength = 0
312 Pieces = '2'
313 Sorted = False
314 SynonymChars = '<>'
315 TabOrder = 0
316 OnChange = cboNewVisitChange
317 OnDblClick = cmdOKClick
318 OnNeedData = cboNewVisitNeedData
319 CharsNeedMatch = 1
320 end
321 end
322 end
323 end
324 inherited amgrMain: TVA508AccessibilityManager
325 Data = (
326 (
327 'Component = cboPtProvider'
328 'Status = stsDefault')
329 (
330 'Component = cmdDateRange'
331 'Status = stsDefault')
332 (
333 'Component = txtLocation'
334 'Status = stsDefault')
335 (
336 'Component = cmdCancel'
337 'Status = stsDefault')
338 (
339 'Component = cmdOK'
340 'Status = stsDefault')
341 (
342 'Component = Panel1'
343 'Status = stsDefault')
344 (
345 'Component = pgeVisit'
346 'Status = stsDefault')
347 (
348 'Component = tabClinic'
349 'Status = stsDefault')
350 (
351 'Component = lstClinic'
352 'Status = stsDefault')
353 (
354 'Component = Panel2'
355 'Status = stsDefault')
356 (
357 'Component = tabAdmit'
358 'Status = stsDefault')
359 (
360 'Component = lstAdmit'
361 'Status = stsDefault')
362 (
363 'Component = Panel3'
364 'Status = stsDefault')
365 (
366 'Component = tabNewVisit'
367 'Status = stsDefault')
368 (
369 'Component = calVisitDate'
370 'Status = stsDefault')
371 (
372 'Component = ckbHistorical'
373 'Status = stsDefault')
374 (
375 'Component = cboNewVisit'
376 'Status = stsDefault')
377 (
378 'Component = frmEncounter'
379 'Status = stsDefault'))
380 end
381 object dlgDateRange: TORDateRangeDlg
382 DateOnly = True
383 Instruction = 'Show appointments / visits in the date range:'
384 LabelStart = 'From'
385 LabelStop = 'Through'
386 RequireTime = False
387 Format = 'mmm d,yyyy'
388 Left = 264
389 Top = 4
390 end
391end
Note: See TracBrowser for help on using the repository browser.