source: cprs/trunk/CPRS-Chart/Encounter/fProcedure.dfm@ 1751

Last change on this file since 1751 was 1679, checked in by healthsevak, 10 years ago

Updating the working copy to CPRS version 28

File size: 6.2 KB
Line 
1inherited frmProcedures: TfrmProcedures
2 Left = 548
3 Top = 172
4 Caption = 'Encounter Procedure'
5 ExplicitWidth = 632
6 ExplicitHeight = 434
7 PixelsPerInch = 96
8 TextHeight = 13
9 object lblProcQty: TLabel [0]
10 Left = 240
11 Top = 375
12 Width = 39
13 Height = 13
14 Caption = 'Quantity'
15 end
16 inherited lblSection: TLabel
17 Width = 88
18 Caption = 'Procedure Section'
19 ExplicitWidth = 88
20 end
21 inherited lblList: TLabel
22 Left = 154
23 ExplicitLeft = 154
24 end
25 inherited bvlMain: TBevel
26 Top = 232
27 Width = 537
28 Height = 166
29 ExplicitTop = 232
30 ExplicitWidth = 537
31 ExplicitHeight = 166
32 end
33 object lblMod: TLabel [5]
34 Left = 358
35 Top = 6
36 Width = 42
37 Height = 13
38 Hint = 'Modifiers'
39 Caption = 'Modifiers'
40 ParentShowHint = False
41 ShowHint = True
42 end
43 object lblProvider: TLabel [6]
44 Left = 6
45 Top = 376
46 Width = 42
47 Height = 13
48 Caption = 'Provider:'
49 end
50 inherited btnOK: TBitBtn
51 Left = 544
52 Top = 344
53 TabOrder = 8
54 ExplicitLeft = 544
55 ExplicitTop = 344
56 end
57 inherited btnCancel: TBitBtn
58 Top = 371
59 TabOrder = 9
60 ExplicitTop = 371
61 end
62 inherited pnlGrid: TPanel
63 Width = 523
64 TabOrder = 1
65 ExplicitWidth = 523
66 inherited lbGrid: TORListBox
67 Tag = 30
68 Width = 523
69 Caption = 'Selected Procedures'
70 Pieces = '1,2'
71 ExplicitWidth = 523
72 end
73 inherited hcGrid: THeaderControl
74 Width = 523
75 Sections = <
76 item
77 ImageIndex = -1
78 MinWidth = 52
79 Text = 'Quantity'
80 Width = 52
81 end
82 item
83 ImageIndex = -1
84 MinWidth = 112
85 Text = 'Selected Procedures'
86 Width = 112
87 end>
88 ExplicitWidth = 523
89 end
90 end
91 inherited edtComment: TCaptionEdit
92 TabOrder = 2
93 end
94 object spnProcQty: TUpDown [11]
95 Left = 353
96 Top = 371
97 Width = 15
98 Height = 21
99 Associate = txtProcQty
100 Min = 1
101 Max = 999
102 Position = 1
103 TabOrder = 5
104 end
105 object txtProcQty: TCaptionEdit [12]
106 Left = 288
107 Top = 371
108 Width = 60
109 Height = 21
110 Enabled = False
111 TabOrder = 4
112 Text = '1'
113 OnChange = txtProcQtyChange
114 Caption = 'Quantity'
115 end
116 object cboProvider: TORComboBox [13]
117 Left = 56
118 Top = 371
119 Width = 177
120 Height = 21
121 Style = orcsDropDown
122 AutoSelect = True
123 Caption = 'Provider'
124 Color = clWindow
125 DropDownCount = 8
126 ItemHeight = 13
127 ItemTipColor = clWindow
128 ItemTipEnable = True
129 ListItemsOnly = True
130 LongList = True
131 LookupPiece = 2
132 MaxLength = 0
133 Pieces = '2,3'
134 Sorted = False
135 SynonymChars = '<>'
136 TabOrder = 3
137 TabStop = True
138 OnChange = cboProviderChange
139 OnNeedData = cboProviderNeedData
140 CharsNeedMatch = 1
141 end
142 inherited btnRemove: TButton
143 Left = 454
144 Top = 371
145 TabOrder = 7
146 ExplicitLeft = 454
147 ExplicitTop = 371
148 end
149 inherited btnSelectAll: TButton
150 Left = 374
151 Top = 371
152 Height = 21
153 TabOrder = 6
154 TabStop = True
155 ExplicitLeft = 374
156 ExplicitTop = 371
157 ExplicitHeight = 21
158 end
159 inherited pnlMain: TPanel
160 TabOrder = 0
161 inherited splLeft: TSplitter
162 Left = 145
163 ExplicitLeft = 145
164 end
165 object splRight: TSplitter [1]
166 Left = 349
167 Top = 0
168 Height = 204
169 Align = alRight
170 OnMoved = splRightMoved
171 end
172 inherited lbxSection: TORListBox
173 Tag = 30
174 Left = 148
175 Width = 201
176 ItemHeight = 14
177 Pieces = '2,3'
178 ExplicitLeft = 148
179 ExplicitWidth = 201
180 end
181 inherited pnlLeft: TPanel
182 Width = 145
183 ExplicitWidth = 145
184 inherited lbSection: TORListBox
185 Tag = 30
186 Width = 145
187 TabOrder = 0
188 ExplicitWidth = 145
189 end
190 inherited btnOther: TButton
191 Tag = 13
192 Left = 3
193 Caption = 'Other Procedure...'
194 TabOrder = 1
195 ExplicitLeft = 3
196 end
197 end
198 object lbMods: TORListBox
199 Left = 352
200 Top = 0
201 Width = 260
202 Height = 204
203 Style = lbOwnerDrawFixed
204 Align = alRight
205 Font.Charset = DEFAULT_CHARSET
206 Font.Color = clWindowText
207 Font.Height = -11
208 Font.Name = 'MS Sans Serif'
209 Font.Style = []
210 ItemHeight = 14
211 ParentFont = False
212 ParentShowHint = False
213 ShowHint = True
214 TabOrder = 2
215 OnExit = lbModsExit
216 Caption = 'Modifiers'
217 ItemTipColor = clWindow
218 LongList = False
219 Pieces = '2,3'
220 TabPosInPixels = True
221 CheckBoxes = True
222 CheckEntireLine = True
223 OnClickCheck = lbModsClickCheck
224 end
225 end
226 inherited amgrMain: TVA508AccessibilityManager
227 Data = (
228 (
229 'Component = lbMods'
230 'Label = lblMod'
231 'Status = stsOK')
232 (
233 'Component = spnProcQty'
234 'Status = stsDefault')
235 (
236 'Component = txtProcQty'
237 'Status = stsDefault')
238 (
239 'Component = cboProvider'
240 'Status = stsDefault')
241 (
242 'Component = edtComment'
243 'Label = lblComment'
244 'Status = stsOK')
245 (
246 'Component = btnRemove'
247 'Status = stsDefault')
248 (
249 'Component = btnSelectAll'
250 'Status = stsDefault')
251 (
252 'Component = pnlMain'
253 'Status = stsDefault')
254 (
255 'Component = lbxSection'
256 'Label = lblList'
257 'Status = stsOK')
258 (
259 'Component = pnlLeft'
260 'Status = stsDefault')
261 (
262 'Component = lbSection'
263 'Label = lblSection'
264 'Status = stsOK')
265 (
266 'Component = btnOther'
267 'Status = stsDefault')
268 (
269 'Component = pnlGrid'
270 'Status = stsDefault')
271 (
272 'Component = lbGrid'
273 'Status = stsDefault')
274 (
275 'Component = hcGrid'
276 'Status = stsDefault')
277 (
278 'Component = btnOK'
279 'Status = stsDefault')
280 (
281 'Component = btnCancel'
282 'Status = stsDefault')
283 (
284 'Component = frmProcedures'
285 'Status = stsDefault'))
286 end
287end
Note: See TracBrowser for help on using the repository browser.