source: cprs/trunk/CPRS-Chart/fVisit.dfm@ 1245

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

Upgrading to version 27

File size: 5.2 KB
Line 
1inherited frmVisit: TfrmVisit
2 Left = 426
3 Top = 332
4 BorderIcons = []
5 BorderStyle = bsDialog
6 Caption = 'Visit Selection'
7 ClientHeight = 273
8 ClientWidth = 438
9 OldCreateOrder = True
10 Position = poScreenCenter
11 OnCreate = FormCreate
12 PixelsPerInch = 96
13 TextHeight = 13
14 object pnlBase: TORAutoPanel [0]
15 Left = 0
16 Top = 0
17 Width = 438
18 Height = 273
19 Align = alClient
20 BevelOuter = bvNone
21 TabOrder = 0
22 object lblSelect: TLabel
23 Left = 8
24 Top = 97
25 Width = 146
26 Height = 13
27 Caption = 'Scheduled Clinic Appointments'
28 end
29 object lblVisitDate: TLabel
30 Left = 254
31 Top = 97
32 Width = 85
33 Height = 13
34 Caption = 'Date/Time of Visit'
35 Visible = False
36 end
37 object lblInstruct: TStaticText
38 Left = 8
39 Top = 8
40 Width = 426
41 Height = 17
42 Caption =
43 'For outpatient encounters, a visit must be selected before writi' +
44 'ng orders or progress notes.'
45 Color = clBtnFace
46 Font.Charset = DEFAULT_CHARSET
47 Font.Color = clBtnText
48 Font.Height = -11
49 Font.Name = 'MS Sans Serif'
50 Font.Style = [fsUnderline]
51 ParentColor = False
52 ParentFont = False
53 TabOrder = 7
54 end
55 object pnlVisit: TORAutoPanel
56 Left = 8
57 Top = 111
58 Width = 422
59 Height = 118
60 BevelOuter = bvNone
61 TabOrder = 4
62 object timVisitDate: TORDateBox
63 Left = 246
64 Top = 0
65 Width = 175
66 Height = 21
67 TabOrder = 1
68 Text = 'NOW'
69 DateOnly = False
70 RequireTime = True
71 end
72 object cboLocation: TORComboBox
73 Left = 0
74 Top = -5
75 Width = 230
76 Height = 118
77 Style = orcsSimple
78 AutoSelect = True
79 Color = clWindow
80 DropDownCount = 8
81 ItemHeight = 13
82 ItemTipColor = clWindow
83 ItemTipEnable = True
84 ListItemsOnly = False
85 LongList = True
86 LookupPiece = 0
87 MaxLength = 0
88 Pieces = '2'
89 Sorted = False
90 SynonymChars = '<>'
91 TabOrder = 0
92 OnNeedData = cboLocationNeedData
93 CharsNeedMatch = 1
94 end
95 object grpCategory: TGroupBox
96 Left = 248
97 Top = 40
98 Width = 175
99 Height = 73
100 Caption = 'Visit Category'
101 TabOrder = 2
102 object ckbHistorical: TCheckBox
103 Left = 8
104 Top = 32
105 Width = 97
106 Height = 17
107 Caption = 'Historical Visit'
108 TabOrder = 0
109 end
110 end
111 end
112 object lstVisit: TORListBox
113 Left = 8
114 Top = 111
115 Width = 422
116 Height = 118
117 ItemHeight = 13
118 ParentShowHint = False
119 ShowHint = True
120 TabOrder = 3
121 Caption = 'Scheduled Clinic Appointments'
122 ItemTipColor = clWindow
123 LongList = False
124 Pieces = '3,5,4'
125 TabPositions = '20'
126 end
127 object radAppt: TRadioButton
128 Tag = 1
129 Left = 8
130 Top = 30
131 Width = 233
132 Height = 17
133 Caption = 'Choose from &Clinic Appointments'
134 Checked = True
135 TabOrder = 0
136 TabStop = True
137 OnClick = radSelectorClick
138 end
139 object radAdmit: TRadioButton
140 Tag = 2
141 Left = 8
142 Top = 51
143 Width = 201
144 Height = 17
145 Caption = 'Choose from &Hospital Admissions'
146 TabOrder = 1
147 OnClick = radSelectorClick
148 end
149 object radNewVisit: TRadioButton
150 Tag = 3
151 Left = 8
152 Top = 72
153 Width = 189
154 Height = 17
155 Caption = 'Enter a &New Visit'
156 TabOrder = 2
157 OnClick = radSelectorClick
158 end
159 object cmdOK: TButton
160 Left = 270
161 Top = 245
162 Width = 72
163 Height = 21
164 Caption = 'OK'
165 Default = True
166 TabOrder = 5
167 OnClick = cmdOKClick
168 end
169 object cmdCancel: TButton
170 Left = 358
171 Top = 245
172 Width = 72
173 Height = 21
174 Cancel = True
175 Caption = 'Cancel'
176 TabOrder = 6
177 OnClick = cmdCancelClick
178 end
179 end
180 inherited amgrMain: TVA508AccessibilityManager
181 Data = (
182 (
183 'Component = pnlBase'
184 'Status = stsDefault')
185 (
186 'Component = lblInstruct'
187 'Status = stsDefault')
188 (
189 'Component = pnlVisit'
190 'Status = stsDefault')
191 (
192 'Component = timVisitDate'
193 'Status = stsDefault')
194 (
195 'Component = cboLocation'
196 'Status = stsDefault')
197 (
198 'Component = grpCategory'
199 'Status = stsDefault')
200 (
201 'Component = ckbHistorical'
202 'Status = stsDefault')
203 (
204 'Component = lstVisit'
205 'Status = stsDefault')
206 (
207 'Component = radAppt'
208 'Status = stsDefault')
209 (
210 'Component = radAdmit'
211 'Status = stsDefault')
212 (
213 'Component = radNewVisit'
214 'Status = stsDefault')
215 (
216 'Component = cmdOK'
217 'Status = stsDefault')
218 (
219 'Component = cmdCancel'
220 'Status = stsDefault')
221 (
222 'Component = frmVisit'
223 'Status = stsDefault'))
224 end
225end
Note: See TracBrowser for help on using the repository browser.