source: cprs/branches/tmg-cprs/CPRS-Chart/fEncnt.dfm@ 1591

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

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