source: cprs/branches/foia-cprs/CPRS-Chart/fEncnt.dfm@ 1568

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

Uploading from OR_30_258
File size: 8.1 KB
RevLine 
[459]1object frmEncounter: TfrmEncounter
[460]2 Left = 481
3 Top = 242
4 Width = 470
5 Height = 450
6 Anchors = [akTop]
[459]7 BorderIcons = [biSystemMenu]
8 Caption = 'Provider & Location for Current Activities'
9 Color = clBtnFace
[460]10 Constraints.MinWidth = 470
[459]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
[460]18 Scaled = False
[459]19 OnClose = FormClose
20 OnCreate = FormCreate
21 OnDestroy = FormDestroy
[460]22 OnResize = FormResize
23 OnShow = FormShow
[459]24 DesignSize = (
[460]25 462
26 423)
[459]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
[460]44 Top = 140
[459]45 Width = 93
46 Height = 13
47 Anchors = [akLeft, akBottom]
48 Caption = 'Encounter Location'
[460]49 Constraints.MinHeight = 12
[459]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
[460]61 Width = 331
[459]62 Height = 117
[460]63 Anchors = [akLeft, akTop, akRight, akBottom]
[459]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
[460]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 TabIndex = 2
159 TabOrder = 0
160 OnChange = pgeVisitChange
161 object tabClinic: TTabSheet
162 Caption = 'Clinic Appointments'
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 object lstAdmit: TORListBox
209 Left = 0
210 Top = 17
211 Width = 444
212 Height = 187
213 Align = alClient
214 ItemHeight = 13
215 ParentShowHint = False
216 ShowHint = True
217 TabOrder = 0
218 OnDblClick = cmdOKClick
219 Caption = 'Hospital Admissions'
220 ItemTipColor = clWindow
221 LongList = False
222 Pieces = '3,5,4'
223 TabPositions = '20'
224 OnChange = lstAdmitChange
225 end
226 object Panel3: TPanel
227 Left = 0
228 Top = 0
229 Width = 444
230 Height = 17
231 Align = alTop
232 TabOrder = 2
233 object lblAdmit: TLabel
234 Left = 4
235 Top = 1
236 Width = 93
237 Height = 13
238 Caption = 'Hospital Admissions'
239 end
240 end
241 end
242 object tabNewVisit: TTabSheet
243 Caption = 'New Visit'
244 object lblVisitDate: TLabel
245 Left = 220
246 Top = 4
247 Width = 85
248 Height = 13
249 Caption = 'Date/Time of Visit'
250 Visible = False
251 end
252 object lblNewVisit: TLabel
253 Left = 4
254 Top = 4
255 Width = 63
256 Height = 13
257 Caption = 'Visit Location'
258 end
259 object calVisitDate: TORDateBox
260 Left = 220
261 Top = 18
262 Width = 140
263 Height = 21
264 TabOrder = 1
265 Text = 'NOW'
266 OnChange = calVisitDateChange
267 OnExit = calVisitDateExit
268 DateOnly = False
269 RequireTime = True
270 end
271 object ckbHistorical: TORCheckBox
272 Left = 220
273 Top = 50
274 Width = 140
275 Height = 81
276 Caption =
277 'Historical Visit: a visit that occurred at some time in the past' +
278 ' or at some other location (possibly non-VA) but is not used for' +
279 ' workload credit.'
280 ParentShowHint = False
281 ShowHint = True
282 TabOrder = 2
283 OnClick = ckbHistoricalClick
284 WordWrap = True
285 AutoSize = True
286 end
287 object cboNewVisit: TORComboBox
288 Left = 4
289 Top = 18
290 Width = 208
291 Height = 117
292 Style = orcsSimple
293 AutoSelect = True
294 Caption = 'Visit Location'
295 Color = clWindow
296 DropDownCount = 8
297 ItemHeight = 13
298 ItemTipColor = clWindow
299 ItemTipEnable = True
300 ListItemsOnly = True
301 LongList = True
302 LookupPiece = 0
303 MaxLength = 0
304 Pieces = '2'
305 Sorted = False
306 SynonymChars = '<>'
307 TabOrder = 0
308 OnChange = cboNewVisitChange
309 OnDblClick = cmdOKClick
310 OnNeedData = cboNewVisitNeedData
311 CharsNeedMatch = 1
312 end
313 end
314 end
315 end
[459]316 object dlgDateRange: TORDateRangeDlg
317 DateOnly = True
318 Instruction = 'Show appointments / visits in the date range:'
319 LabelStart = 'From'
320 LabelStop = 'Through'
321 RequireTime = False
322 Format = 'mmm d,yyyy'
323 Left = 264
324 Top = 4
325 end
326end
Note: See TracBrowser for help on using the repository browser.