source: cprs/trunk/CPRS-Chart/Orders/fOrdersSign.dfm@ 1722

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

Updating the working copy to CPRS version 28

File size: 9.0 KB
RevLine 
[829]1inherited frmSignOrders: TfrmSignOrders
2 Left = 337
3 Top = 142
[456]4 Caption = 'Sign Orders'
[829]5 ClientHeight = 487
6 ClientWidth = 833
[456]7 OldCreateOrder = True
8 Position = poScreenCenter
9 OnCreate = FormCreate
10 OnDestroy = FormDestroy
11 OnMouseDown = clstOrdersMouseDown
12 OnMouseMove = FormMouseMove
[829]13 OnResize = FormResize
[456]14 OnShow = FormShow
[829]15 ExplicitWidth = 841
[1679]16 ExplicitHeight = 521
[456]17 DesignSize = (
[829]18 833
19 487)
[456]20 PixelsPerInch = 96
21 TextHeight = 13
[829]22 object lblESCode: TLabel [0]
[456]23 Left = 8
[829]24 Top = 449
[456]25 Width = 123
26 Height = 13
27 Anchors = [akLeft, akBottom]
28 Caption = 'Electronic Signature Code'
[829]29 ExplicitTop = 446
[456]30 end
[829]31 object laDiagnosis: TLabel [1]
[456]32 Left = 184
33 Top = 185
34 Width = 46
35 Height = 13
36 Caption = 'Diagnosis'
37 Visible = False
38 end
[829]39 object lblOrderList: TStaticText [2]
[456]40 Left = 8
[829]41 Top = 163
42 Width = 205
[456]43 Height = 17
[829]44 Caption = 'Signature will be Applied to Checked Items'
[456]45 TabOrder = 3
46 TabStop = True
47 end
[829]48 object cmdOK: TButton [3]
49 Left = 673
50 Top = 458
[456]51 Width = 72
52 Height = 21
53 Anchors = [akRight, akBottom]
54 Caption = 'OK'
55 Default = True
56 TabOrder = 1
57 OnClick = cmdOKClick
58 end
[829]59 object cmdCancel: TButton [4]
60 Left = 753
61 Top = 458
[456]62 Width = 72
63 Height = 21
64 Anchors = [akRight, akBottom]
65 Cancel = True
66 Caption = 'Cancel'
67 TabOrder = 2
68 OnClick = cmdCancelClick
69 end
[829]70 object txtESCode: TCaptionEdit [5]
[456]71 Left = 8
[829]72 Top = 463
[456]73 Width = 137
74 Height = 21
75 Anchors = [akLeft, akBottom]
76 PasswordChar = '*'
77 TabOrder = 0
78 Caption = 'Electronic Signature Code'
79 end
[829]80 object clstOrders: TCaptionCheckListBox [6]
[456]81 Left = 8
[829]82 Top = 181
83 Width = 820
84 Height = 262
[456]85 OnClickCheck = clstOrdersClickCheck
86 Anchors = [akLeft, akTop, akRight, akBottom]
87 ItemHeight = 16
88 ParentShowHint = False
89 PopupMenu = poBACopyPaste
90 ShowHint = True
91 Style = lbOwnerDrawVariable
92 TabOrder = 4
93 OnClick = clstOrdersClick
94 OnDrawItem = clstOrdersDrawItem
95 OnKeyUp = clstOrdersKeyUp
96 OnMeasureItem = clstOrdersMeasureItem
97 OnMouseDown = clstOrdersMouseDown
98 OnMouseMove = clstOrdersMouseMove
99 Caption = 'The following orders will be signed -'
100 end
[829]101 object gbdxLookup: TGroupBox [7]
[456]102 Left = 7
[829]103 Top = 157
[456]104 Width = 99
105 Height = 43
106 Caption = 'Lookup Diagnosis'
107 Font.Charset = DEFAULT_CHARSET
[829]108 Font.Color = clWindowText
[456]109 Font.Height = -11
110 Font.Name = 'MS Sans Serif'
111 Font.Style = []
112 ParentFont = False
113 TabOrder = 8
114 TabStop = True
115 Visible = False
116 object buOrdersDiagnosis: TButton
117 Left = 7
118 Top = 16
119 Width = 86
120 Height = 21
121 Caption = '&Diagnosis'
122 Enabled = False
123 TabOrder = 0
124 OnClick = buOrdersDiagnosisClick
125 end
126 end
[829]127 inline fraCoPay: TfraCoPayDesc [8]
128 Left = 0
129 Top = 0
130 Width = 833
131 Height = 157
132 Align = alTop
133 AutoSize = True
134 ParentShowHint = False
135 ShowHint = True
136 TabOrder = 5
137 TabStop = True
138 Visible = False
139 ExplicitWidth = 833
140 inherited pnlRight: TPanel
141 Left = 545
142 ExplicitLeft = 545
143 inherited pnlMain: TPanel
144 inherited pnlHNC: TPanel
145 inherited lblHNC2: TVA508StaticText
146 Width = 129
147 ExplicitWidth = 129
148 end
149 inherited lblHNC: TVA508StaticText
150 Width = 31
151 ExplicitWidth = 31
152 end
153 end
154 inherited pnlMST: TPanel
155 inherited lblMST2: TVA508StaticText
156 Width = 25
157 ExplicitWidth = 25
158 end
159 inherited lblMST: TVA508StaticText
160 Width = 31
161 ExplicitWidth = 31
162 end
163 end
164 inherited pnlSWAC: TPanel
165 inherited lblSWAC2: TVA508StaticText
166 Width = 127
167 ExplicitWidth = 127
168 end
169 inherited lblSWAC: TVA508StaticText
170 Width = 40
171 ExplicitWidth = 40
172 end
173 end
174 inherited pnlIR: TPanel
175 inherited lblIR2: TVA508StaticText
176 Width = 133
177 ExplicitWidth = 133
178 end
179 inherited lblIR: TVA508StaticText
180 Width = 19
181 ExplicitWidth = 19
182 end
183 end
184 inherited pnlAO: TPanel
185 inherited lblAO2: TVA508StaticText
186 Width = 115
187 ExplicitWidth = 115
188 end
189 inherited lblAO: TVA508StaticText
190 Width = 23
191 ExplicitWidth = 23
192 end
193 end
194 inherited pnlCV: TPanel
195 inherited lblCV2: TVA508StaticText
196 Width = 142
197 ExplicitWidth = 142
198 end
199 end
200 inherited pnlSHD: TPanel
201 inherited lblSHAD: TVA508StaticText
202 Width = 33
203 ExplicitWidth = 33
204 end
205 inherited lblSHAD2: TVA508StaticText
206 Width = 159
207 ExplicitWidth = 159
208 end
209 end
210 end
211 end
212 inherited pnlSCandRD: TPanel
213 Width = 545
214 ExplicitWidth = 545
215 inherited lblSCDisplay: TLabel
216 Width = 545
217 ExplicitWidth = 311
218 end
219 inherited memSCDisplay: TCaptionMemo
220 Width = 545
221 ExplicitWidth = 545
222 end
223 end
224 end
225 inherited amgrMain: TVA508AccessibilityManager
226 Data = (
227 (
228 'Component = lblOrderList'
229 'Status = stsDefault')
230 (
231 'Component = cmdOK'
232 'Status = stsDefault')
233 (
234 'Component = cmdCancel'
235 'Status = stsDefault')
236 (
237 'Component = txtESCode'
238 'Status = stsDefault')
239 (
240 'Component = clstOrders'
241 'Status = stsDefault')
242 (
243 'Component = gbdxLookup'
244 'Status = stsDefault')
245 (
246 'Component = buOrdersDiagnosis'
247 'Status = stsDefault')
248 (
249 'Component = fraCoPay'
250 'Status = stsDefault')
251 (
252 'Component = fraCoPay.pnlRight'
253 'Status = stsDefault')
254 (
255 'Component = fraCoPay.lblCaption'
256 'Status = stsDefault')
257 (
258 'Component = fraCoPay.pnlMain'
259 'Status = stsDefault')
260 (
261 'Component = fraCoPay.pnlHNC'
262 'Status = stsDefault')
263 (
264 'Component = fraCoPay.lblHNC2'
265 'Status = stsDefault')
266 (
267 'Component = fraCoPay.lblHNC'
268 'Status = stsDefault')
269 (
270 'Component = fraCoPay.pnlMST'
271 'Status = stsDefault')
272 (
273 'Component = fraCoPay.lblMST2'
274 'Status = stsDefault')
275 (
276 'Component = fraCoPay.lblMST'
277 'Status = stsDefault')
278 (
279 'Component = fraCoPay.pnlSWAC'
280 'Status = stsDefault')
281 (
282 'Component = fraCoPay.lblSWAC2'
283 'Status = stsDefault')
284 (
285 'Component = fraCoPay.lblSWAC'
286 'Status = stsDefault')
287 (
288 'Component = fraCoPay.pnlIR'
289 'Status = stsDefault')
290 (
291 'Component = fraCoPay.lblIR2'
292 'Status = stsDefault')
293 (
294 'Component = fraCoPay.lblIR'
295 'Status = stsDefault')
296 (
297 'Component = fraCoPay.pnlAO'
298 'Status = stsDefault')
299 (
300 'Component = fraCoPay.lblAO2'
301 'Status = stsDefault')
302 (
303 'Component = fraCoPay.lblAO'
304 'Status = stsDefault')
305 (
306 'Component = fraCoPay.pnlSC'
307 'Status = stsDefault')
308 (
309 'Component = fraCoPay.lblSC2'
310 'Status = stsDefault')
311 (
312 'Component = fraCoPay.lblSC'
313 'Status = stsDefault')
314 (
315 'Component = fraCoPay.pnlCV'
316 'Status = stsDefault')
317 (
318 'Component = fraCoPay.lblCV2'
319 'Status = stsDefault')
320 (
321 'Component = fraCoPay.lblCV'
322 'Status = stsDefault')
323 (
324 'Component = fraCoPay.pnlSHD'
325 'Status = stsDefault')
326 (
327 'Component = fraCoPay.lblSHAD'
328 'Status = stsDefault')
329 (
330 'Component = fraCoPay.lblSHAD2'
331 'Status = stsDefault')
332 (
333 'Component = fraCoPay.pnlSCandRD'
334 'Status = stsDefault')
335 (
336 'Component = fraCoPay.memSCDisplay'
337 'Status = stsDefault')
338 (
339 'Component = frmSignOrders'
340 'Status = stsDefault'))
341 end
[456]342 object poBACopyPaste: TPopupMenu
343 Left = 344
344 Top = 296
345 object Copy1: TMenuItem
346 Caption = '&Copy'
347 ShortCut = 16451
348 OnClick = Copy1Click
349 end
350 object Paste1: TMenuItem
351 Caption = '&Paste'
352 Enabled = False
353 ShortCut = 16470
354 OnClick = Paste1Click
355 end
356 object Diagnosis1: TMenuItem
357 Caption = '&Diagnosis...'
358 ShortCut = 32836
359 OnClick = buOrdersDiagnosisClick
360 end
361 object Exit1: TMenuItem
362 Caption = '&Exit'
363 ShortCut = 16453
364 OnClick = Exit1Click
365 end
366 end
367end
Note: See TracBrowser for help on using the repository browser.