source: cprs/branches/tmg-cprs/CPRS-Chart/Orders/fOrdersTS.dfm@ 895

Last change on this file since 895 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

File size: 6.2 KB
RevLine 
[453]1inherited frmOrdersTS: TfrmOrdersTS
2 Left = 84
3 Top = 77
4 Width = 464
5 Height = 385
6 Caption = 'Release Orders'
7 Constraints.MinHeight = 365
8 Constraints.MinWidth = 310
9 OnClose = FormClose
10 OnCreate = FormCreate
11 OnKeyDown = FormKeyDown
12 PixelsPerInch = 96
13 TextHeight = 13
14 object pnlMiddle: TPanel [0]
15 Left = 0
16 Top = 78
17 Width = 456
18 Height = 56
19 Align = alTop
20 Constraints.MinHeight = 45
21 TabOrder = 0
22 object grpChoice: TGroupBox
23 Left = 1
24 Top = 1
25 Width = 454
26 Height = 54
27 Align = alClient
28 Constraints.MinHeight = 45
29 TabOrder = 0
30 DesignSize = (
31 454
32 54)
33 object radReleaseNow: TRadioButton
34 Left = 20
35 Top = 13
36 Width = 333
37 Height = 17
38 BiDiMode = bdRightToLeft
39 Caption = ' &Release new orders immediately'
40 Enabled = False
41 ParentBiDiMode = False
42 TabOrder = 0
43 OnClick = radReleaseNowClick
44 end
45 object radDelayed: TRadioButton
46 Left = 20
47 Top = 29
48 Width = 329
49 Height = 21
50 Caption = ' &Delay release of new order(s) until'
51 TabOrder = 1
52 OnClick = radDelayedClick
53 end
54 object cmdOK: TButton
55 Left = 355
56 Top = 9
57 Width = 75
58 Height = 20
59 Anchors = [akRight, akBottom]
60 Caption = 'OK'
61 Default = True
62 TabOrder = 2
63 OnClick = cmdOKClick
64 end
65 object cmdCancel: TButton
66 Left = 355
67 Top = 31
68 Width = 75
69 Height = 20
70 Anchors = [akRight, akBottom]
71 Cancel = True
72 Caption = 'Cancel'
73 TabOrder = 3
74 OnClick = cmdCancelClick
75 end
76 end
77 end
78 object pnlTop: TPanel [1]
79 Left = 0
80 Top = 0
81 Width = 456
82 Height = 78
83 Align = alTop
84 Anchors = [akLeft, akTop, akRight, akBottom]
85 AutoSize = True
86 BorderStyle = bsSingle
87 TabOrder = 1
88 object lblPtInfo: TLabel
89 Left = 1
90 Top = 1
91 Width = 450
92 Height = 34
93 Align = alTop
94 Color = clBtnFace
95 Constraints.MinHeight = 34
96 ParentColor = False
97 Layout = tlCenter
98 end
99 object pnldif: TPanel
100 Left = 1
101 Top = 35
102 Width = 450
103 Height = 38
104 Align = alTop
105 Anchors = [akLeft, akTop, akRight, akBottom]
106 TabOrder = 0
107 object Image1: TImage
108 Left = 1
109 Top = 1
110 Width = 24
111 Height = 36
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
130 end
131 object Label1: TLabel
132 Left = 34
133 Top = 4
134 Width = 327
135 Height = 13
136 Caption =
137 'Use Admit: if patient is newly admitted to the hospital or nursi' +
138 'ng home.'
139 end
140 object Label2: TLabel
141 Left = 34
142 Top = 21
143 Width = 361
144 Height = 13
145 Caption =
146 'Use Transfer: if inpatient will move from one ward or treating t' +
147 'eam to another.'
148 end
149 end
150 end
151 object Panel1: TPanel [2]
152 Left = 0
153 Top = 134
154 Width = 456
155 Height = 217
156 Align = alClient
157 TabOrder = 2
158 inline fraEvntDelayList: TfraEvntDelayList
159 Left = 1
160 Top = 1
161 Width = 454
162 Height = 215
163 Align = alClient
164 AutoScroll = False
165 TabOrder = 0
166 Visible = False
167 inherited pnlDate: TPanel
168 Left = 349
169 Height = 215
170 inherited lblEffective: TLabel
171 Left = 453
172 end
173 inherited orDateBox: TORDateBox
174 Left = 453
175 end
176 end
177 inherited pnlList: TPanel
178 Width = 349
179 Height = 215
180 inherited lblEvntDelayList: TLabel
181 Width = 347
182 end
183 inherited mlstEvents: TORListBox
184 Width = 347
185 Height = 179
186 OnDblClick = cmdOKClick
187 end
188 inherited edtSearch: TCaptionEdit
189 Width = 347
190 end
191 end
192 end
193 end
194 inherited DKLanguageController1: TDKLanguageController
195 LangData = {
196 0B0066726D4F72646572735453010100000001000000070043617074696F6E01
197 0E0000000900706E6C4D6964646C650000090067727043686F69636500000D00
198 72616452656C656173654E6F77010100000002000000070043617074696F6E00
199 0A0072616444656C61796564010100000003000000070043617074696F6E0005
200 00636D644F4B010100000004000000070043617074696F6E000900636D644361
201 6E63656C010100000005000000070043617074696F6E000600706E6C546F7000
202 0009006C626C5074496E666F00000600706E6C64696600000600496D61676531
203 000006004C6162656C31010100000006000000070043617074696F6E0006004C
204 6162656C32010100000007000000070043617074696F6E00060050616E656C31
205 0000100066726145766E7444656C61794C6973740001070000000700706E6C44
206 61746500000C006C626C45666665637469766501010000000800000007004361
207 7074696F6E0009006F7244617465426F7801020000000A000000070043617074
208 696F6E09000000040054657874000700706E6C4C697374000010006C626C4576
209 6E7444656C61794C69737401010000000B000000070043617074696F6E000A00
210 6D6C73744576656E7473000009006564745365617263680000}
211 end
212end
Note: See TracBrowser for help on using the repository browser.