source: cprs/trunk/CPRS-Chart/Orders/fOrdersTS.dfm@ 1679

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

Updating the working copy to CPRS version 28
File size: 7.4 KB
RevLine 
[456]1inherited frmOrdersTS: TfrmOrdersTS
2 Left = 84
3 Top = 77
4 Caption = 'Release Orders'
[829]5 ClientHeight = 351
6 ClientWidth = 456
[456]7 Constraints.MinHeight = 365
8 Constraints.MinWidth = 310
9 OnClose = FormClose
10 OnCreate = FormCreate
[829]11 ExplicitWidth = 464
12 ExplicitHeight = 385
[456]13 PixelsPerInch = 96
14 TextHeight = 13
[829]15 object pnlMiddle: TPanel [0]
[456]16 Left = 0
[1679]17 Top = 60
[456]18 Width = 456
19 Height = 56
20 Align = alTop
21 Constraints.MinHeight = 45
[1679]22 TabOrder = 1
[456]23 object grpChoice: TGroupBox
24 Left = 1
25 Top = 1
26 Width = 454
27 Height = 54
28 Align = alClient
29 Constraints.MinHeight = 45
30 TabOrder = 0
31 DesignSize = (
32 454
33 54)
34 object radReleaseNow: TRadioButton
35 Left = 20
36 Top = 13
37 Width = 333
38 Height = 17
39 Caption = ' &Release new orders immediately'
40 Enabled = False
41 TabOrder = 0
42 OnClick = radReleaseNowClick
43 end
44 object radDelayed: TRadioButton
45 Left = 20
46 Top = 29
47 Width = 329
48 Height = 21
49 Caption = ' &Delay release of new order(s) until'
50 TabOrder = 1
51 OnClick = radDelayedClick
52 end
53 object cmdOK: TButton
54 Left = 355
55 Top = 9
56 Width = 75
57 Height = 20
58 Anchors = [akRight, akBottom]
59 Caption = 'OK'
60 Default = True
61 TabOrder = 2
62 OnClick = cmdOKClick
63 end
64 object cmdCancel: TButton
65 Left = 355
66 Top = 31
67 Width = 75
68 Height = 20
69 Anchors = [akRight, akBottom]
70 Cancel = True
71 Caption = 'Cancel'
72 TabOrder = 3
73 OnClick = cmdCancelClick
74 end
75 end
76 end
[829]77 object pnlTop: TPanel [1]
[456]78 Left = 0
79 Top = 0
80 Width = 456
[1679]81 Height = 60
[456]82 Align = alTop
83 Anchors = [akLeft, akTop, akRight, akBottom]
84 AutoSize = True
85 BorderStyle = bsSingle
[1679]86 TabOrder = 0
87 object lblPtInfo: TVA508StaticText
88 Name = 'lblPtInfo'
[456]89 Left = 1
90 Top = 1
[1679]91 Width = 450
[456]92 Height = 34
93 Align = alTop
[1679]94 Alignment = taLeftJustify
[456]95 Constraints.MinHeight = 34
[1679]96 TabOrder = 0
97 ShowAccelChar = True
[456]98 end
99 object pnldif: TPanel
100 Left = 1
101 Top = 35
102 Width = 450
[1679]103 Height = 20
[456]104 Align = alTop
105 Anchors = [akLeft, akTop, akRight, akBottom]
[1679]106 TabOrder = 1
[456]107 object Image1: TImage
108 Left = 1
109 Top = 1
110 Width = 24
[1679]111 Height = 18
[456]112 Align = alLeft
113 AutoSize = True
114 Enabled = False
115 Picture.Data = {
116 07544269746D61707E010000424D7E0100000000000076000000280000001800
117 000016000000010004000000000008010000C40E0000C40E0000100000000000
118 0000000000000000800000800000008080008000000080008000808000008080
119 8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
120 FF008000000000000000000000080777777777777777777777700F7777777777
121 7777777777700F88888888888888888887700F88888888888888888887700F88
122 888808888888888887700F88888800888888888887700F8888880B0888888888
123 87700F8888880BB00008888887700F888800BBCCBBB0088887700F8880BBBCCC
124 CBBBB08887700F880BBBBBBBBBBBBB0887700F880BBBBBCCBBBBBB0887700F88
125 0BBBBBCCBBBBBB0887700F880BBBBBCCBBBBBB0887700F8880BBBBCCBBBBB088
126 87700F888800BBBBBBB0088887700F88888800000008888887700F8888888888
127 8888888887700F88888888888888888887700FFFFFFFFFFFFFFFFFFFFF708000
128 00000000000000000008}
129 Transparent = True
[829]130 ExplicitHeight = 36
[456]131 end
[1679]132 object lblUseAdmit: TVA508StaticText
133 Name = 'lblUseAdmit'
[456]134 Left = 34
135 Top = 4
[1679]136 Width = 329
137 Height = 15
138 Alignment = taLeftJustify
[456]139 Caption =
140 'Use Admit: if patient is newly admitted to the hospital or nursi' +
141 'ng home.'
[1679]142 TabOrder = 0
143 ShowAccelChar = True
[456]144 end
[1679]145 object lblUseTransfer: TVA508StaticText
146 Name = 'lblUseTransfer'
[456]147 Left = 34
148 Top = 21
[1679]149 Width = 363
150 Height = 15
151 Alignment = taLeftJustify
[456]152 Caption =
153 'Use Transfer: if inpatient will move from one ward or treating t' +
154 'eam to another.'
[1679]155 TabOrder = 1
156 Visible = False
157 ShowAccelChar = True
[456]158 end
159 end
160 end
[1679]161 object pnlBottom: TPanel [2]
[456]162 Left = 0
[1679]163 Top = 116
[456]164 Width = 456
[1679]165 Height = 235
[456]166 Align = alClient
167 TabOrder = 2
[1679]168 ExplicitTop = 112
169 ExplicitHeight = 239
[456]170 inline fraEvntDelayList: TfraEvntDelayList
171 Left = 1
172 Top = 1
173 Width = 454
[1679]174 Height = 233
[456]175 Align = alClient
[829]176 AutoScroll = True
[456]177 TabOrder = 0
178 Visible = False
[829]179 ExplicitLeft = 1
180 ExplicitTop = 1
181 ExplicitWidth = 454
[1679]182 ExplicitHeight = 237
[456]183 inherited pnlDate: TPanel
184 Left = 349
[1679]185 Height = 233
[829]186 ExplicitLeft = 349
[1679]187 ExplicitHeight = 237
[456]188 inherited lblEffective: TLabel
189 Left = 453
[829]190 Width = 71
191 ExplicitLeft = 453
192 ExplicitWidth = 71
[456]193 end
194 inherited orDateBox: TORDateBox
195 Left = 453
[829]196 ExplicitLeft = 453
[456]197 end
198 end
199 inherited pnlList: TPanel
200 Width = 349
[1679]201 Height = 233
[829]202 ExplicitWidth = 349
[1679]203 ExplicitHeight = 237
[456]204 inherited lblEvntDelayList: TLabel
205 Width = 347
[829]206 ExplicitWidth = 80
[456]207 end
208 inherited mlstEvents: TORListBox
209 Width = 347
[1679]210 Height = 197
[456]211 OnDblClick = cmdOKClick
[1679]212 OnChange = fraEvntDelayListmlstEventsChange
[829]213 ExplicitWidth = 347
[1679]214 ExplicitHeight = 201
[456]215 end
216 inherited edtSearch: TCaptionEdit
217 Width = 347
[829]218 ExplicitWidth = 347
[456]219 end
220 end
221 end
222 end
[829]223 inherited amgrMain: TVA508AccessibilityManager
224 Data = (
225 (
226 'Component = pnlMiddle'
227 'Status = stsDefault')
228 (
229 'Component = grpChoice'
230 'Status = stsDefault')
231 (
232 'Component = radReleaseNow'
233 'Status = stsDefault')
234 (
235 'Component = radDelayed'
236 'Status = stsDefault')
237 (
238 'Component = cmdOK'
239 'Status = stsDefault')
240 (
241 'Component = cmdCancel'
242 'Status = stsDefault')
243 (
244 'Component = pnlTop'
245 'Status = stsDefault')
246 (
247 'Component = pnldif'
248 'Status = stsDefault')
249 (
[1679]250 'Component = pnlBottom'
[829]251 'Status = stsDefault')
252 (
253 'Component = fraEvntDelayList'
254 'Status = stsDefault')
255 (
256 'Component = fraEvntDelayList.pnlDate'
257 'Status = stsDefault')
258 (
259 'Component = fraEvntDelayList.orDateBox'
260 'Status = stsDefault')
261 (
262 'Component = fraEvntDelayList.pnlList'
263 'Status = stsDefault')
264 (
265 'Component = fraEvntDelayList.mlstEvents'
266 'Status = stsDefault')
267 (
268 'Component = fraEvntDelayList.edtSearch'
269 'Status = stsDefault')
270 (
271 'Component = frmOrdersTS'
[1679]272 'Status = stsDefault')
273 (
274 'Component = lblUseTransfer'
275 'Status = stsDefault')
276 (
277 'Component = lblPtInfo'
278 'Status = stsDefault')
279 (
280 'Component = lblUseAdmit'
[829]281 'Status = stsDefault'))
282 end
[456]283end
Note: See TracBrowser for help on using the repository browser.