source: cprs/trunk/CPRS-Chart/fEncntKEEP.dfm@ 1501

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

Upgrading to version 27
File size: 6.5 KB
Line 
1object frmEncounter: TfrmEncounter
2 Left = 435
3 Top = 175
4 Width = 351
5 Height = 350
6 BorderIcons = [biSystemMenu]
7 Caption = 'Provider & Location for Current Activities'
8 Color = clBtnFace
9 Font.Charset = DEFAULT_CHARSET
10 Font.Color = clWindowText
11 Font.Height = -11
12 Font.Name = 'MS Sans Serif'
13 Font.Style = []
14 OldCreateOrder = True
15 Position = poScreenCenter
16 OnClose = FormClose
17 OnCreate = FormCreate
18 OnDestroy = FormDestroy
19 DesignSize = (
20 343
21 323)
22 PixelsPerInch = 96
23 TextHeight = 13
24 object lblInstruct: TLabel
25 Left = 6
26 Top = 6
27 Width = 253
28 Height = 31
29 AutoSize = False
30 Caption =
31 'Select the appointment or visit that should be associated with t' +
32 'he note or orders .'
33 Visible = False
34 WordWrap = True
35 end
36 object lblLocation: TLabel
37 Tag = 9
38 Left = 6
39 Top = 133
40 Width = 93
41 Height = 13
42 Caption = 'Encounter Location'
43 end
44 object lblProvider: TLabel
45 Left = 6
46 Top = 6
47 Width = 91
48 Height = 13
49 Caption = 'Encounter Provider'
50 end
51 object cmdOK: TButton
52 Left = 250
53 Top = 20
54 Width = 72
55 Height = 21
56 Caption = 'OK'
57 Default = True
58 TabOrder = 4
59 OnClick = cmdOKClick
60 end
61 object cmdCancel: TButton
62 Left = 250
63 Top = 49
64 Width = 72
65 Height = 21
66 Cancel = True
67 Caption = 'Cancel'
68 TabOrder = 5
69 OnClick = cmdCancelClick
70 end
71 object txtLocation: TCaptionEdit
72 Tag = 9
73 Left = 6
74 Top = 147
75 Width = 212
76 Height = 21
77 Color = clBtnFace
78 ReadOnly = True
79 TabOrder = 1
80 Text = '< Select a location from the tabs below.... >'
81 Caption = 'Encounter Location'
82 end
83 object pgeVisit: TPageControl
84 Tag = 9
85 Left = 6
86 Top = 171
87 Width = 331
88 Height = 147
89 ActivePage = tabClinic
90 Anchors = [akLeft, akTop, akBottom]
91 TabIndex = 0
92 TabOrder = 2
93 OnChange = pgeVisitChange
94 object tabClinic: TTabSheet
95 Caption = 'Clinic Appointments'
96 DesignSize = (
97 323
98 119)
99 object lblClinic: TLabel
100 Left = 4
101 Top = 4
102 Width = 127
103 Height = 13
104 Caption = 'Clinic Appointments / Visits'
105 end
106 object lblDateRange: TLabel
107 Left = 138
108 Top = 4
109 Width = 71
110 Height = 13
111 Caption = '(T-30 thru T+1)'
112 end
113 object lstClinic: TORListBox
114 Left = 0
115 Top = 18
116 Width = 321
117 Height = 97
118 Anchors = [akLeft, akTop, akBottom]
119 ItemHeight = 13
120 ParentShowHint = False
121 ShowHint = True
122 TabOrder = 0
123 OnDblClick = cmdOKClick
124 Caption = 'Clinic Appointments / Visits (T-30 thru T+1)'
125 ItemTipColor = clWindow
126 LongList = False
127 Pieces = '3,2,4'
128 TabPositions = '20'
129 OnChange = lstClinicChange
130 end
131 end
132 object tabAdmit: TTabSheet
133 Caption = 'Hospital Admissions'
134 object lblAdmit: TLabel
135 Left = 4
136 Top = 4
137 Width = 93
138 Height = 13
139 Caption = 'Hospital Admissions'
140 end
141 object lstAdmit: TORListBox
142 Left = 4
143 Top = 18
144 Width = 352
145 Height = 117
146 ItemHeight = 13
147 ParentShowHint = False
148 ShowHint = True
149 TabOrder = 0
150 OnDblClick = cmdOKClick
151 Caption = 'Hospital Admissions'
152 ItemTipColor = clWindow
153 LongList = False
154 Pieces = '3,5,4'
155 TabPositions = '20'
156 OnChange = lstAdmitChange
157 end
158 end
159 object tabNewVisit: TTabSheet
160 Caption = 'New Visit'
161 object lblVisitDate: TLabel
162 Left = 220
163 Top = 4
164 Width = 85
165 Height = 13
166 Caption = 'Date/Time of Visit'
167 Visible = False
168 end
169 object lblNewVisit: TLabel
170 Left = 4
171 Top = 4
172 Width = 63
173 Height = 13
174 Caption = 'Visit Location'
175 end
176 object calVisitDate: TORDateBox
177 Left = 220
178 Top = 18
179 Width = 140
180 Height = 21
181 TabOrder = 1
182 Text = 'NOW'
183 OnChange = calVisitDateChange
184 OnExit = calVisitDateExit
185 DateOnly = False
186 RequireTime = True
187 end
188 object ckbHistorical: TORCheckBox
189 Left = 220
190 Top = 50
191 Width = 140
192 Height = 81
193 Caption =
194 'Historical Visit: a visit that occurred at some time in the past' +
195 ' or at some other location (possibly non-VA) but is not used for' +
196 ' workload credit.'
197 ParentShowHint = False
198 ShowHint = True
199 TabOrder = 2
200 OnClick = ckbHistoricalClick
201 WordWrap = True
202 AutoSize = True
203 end
204 object cboNewVisit: TORComboBox
205 Left = 4
206 Top = 18
207 Width = 208
208 Height = 117
209 Style = orcsSimple
210 AutoSelect = True
211 Caption = 'Visit Location'
212 Color = clWindow
213 DropDownCount = 8
214 ItemHeight = 13
215 ItemTipColor = clWindow
216 ItemTipEnable = True
217 ListItemsOnly = True
218 LongList = True
219 LookupPiece = 0
220 MaxLength = 0
221 Pieces = '2'
222 Sorted = False
223 SynonymChars = '<>'
224 TabOrder = 0
225 OnChange = cboNewVisitChange
226 OnDblClick = cmdOKClick
227 OnNeedData = cboNewVisitNeedData
228 CharsNeedMatch = 1
229 end
230 end
231 end
232 object cmdDateRange: TButton
233 Tag = 9
234 Left = 224
235 Top = 145
236 Width = 90
237 Height = 21
238 Caption = 'Date Range...'
239 TabOrder = 3
240 OnClick = cmdDateRangeClick
241 end
242 object cboPtProvider: TORComboBox
243 Left = 6
244 Top = 20
245 Width = 235
246 Height = 93
247 Style = orcsSimple
248 AutoSelect = True
249 Caption = 'Encounter Provider'
250 Color = clWindow
251 DropDownCount = 8
252 ItemHeight = 13
253 ItemTipColor = clWindow
254 ItemTipEnable = True
255 ListItemsOnly = True
256 LongList = True
257 LookupPiece = 2
258 MaxLength = 0
259 Pieces = '2,3'
260 Sorted = False
261 SynonymChars = '<>'
262 TabOrder = 0
263 OnDblClick = cmdOKClick
264 OnNeedData = cboPtProviderNeedData
265 CharsNeedMatch = 1
266 end
267 object dlgDateRange: TORDateRangeDlg
268 DateOnly = True
269 Instruction = 'Show appointments / visits in the date range:'
270 LabelStart = 'From'
271 LabelStop = 'Through'
272 RequireTime = False
273 Format = 'mmm d,yyyy'
274 Left = 264
275 Top = 4
276 end
277end
Note: See TracBrowser for help on using the repository browser.