source: cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit/fPtAdd.dfm

Last change on this file was 541, checked in by Kevin Toppenberg, 15 years ago

TMG Ver 1.1 Added HTML Support, better demographics editing

File size: 7.8 KB
Line 
1object frmPtAdd: TfrmPtAdd
2 Left = 438
3 Top = 165
4 Width = 289
5 Height = 300
6 Caption = 'Add A Patient'
7 Color = clBtnFace
8 Font.Charset = DEFAULT_CHARSET
9 Font.Color = clWindowText
10 Font.Height = -11
11 Font.Name = 'MS Sans Serif'
12 Font.Style = []
13 KeyPreview = True
14 OldCreateOrder = False
15 Position = poMainFormCenter
16 OnCreate = FormCreate
17 OnDestroy = FormDestroy
18 OnShow = OnShow
19 PixelsPerInch = 96
20 TextHeight = 13
21 object LNameLabel: TLabel
22 Left = 33
23 Top = 20
24 Width = 70
25 Height = 13
26 Caption = 'Family/Last:'
27 Font.Charset = DEFAULT_CHARSET
28 Font.Color = clWindowText
29 Font.Height = -11
30 Font.Name = 'MS Sans Serif'
31 Font.Style = [fsBold]
32 ParentFont = False
33 end
34 object FNameLabel: TLabel
35 Left = 33
36 Top = 44
37 Width = 68
38 Height = 13
39 Caption = 'Given/First:'
40 Font.Charset = DEFAULT_CHARSET
41 Font.Color = clWindowText
42 Font.Height = -11
43 Font.Name = 'MS Sans Serif'
44 Font.Style = [fsBold]
45 ParentFont = False
46 end
47 object MNameLabel: TLabel
48 Left = 64
49 Top = 68
50 Width = 34
51 Height = 13
52 Caption = 'Middle:'
53 end
54 object SuffixLabel: TLabel
55 Left = 70
56 Top = 92
57 Width = 26
58 Height = 13
59 Caption = 'Suffix'
60 end
61 object DOBLabel: TLabel
62 Left = 24
63 Top = 117
64 Width = 73
65 Height = 13
66 Caption = 'Date of Birth'
67 Font.Charset = DEFAULT_CHARSET
68 Font.Color = clWindowText
69 Font.Height = -11
70 Font.Name = 'MS Sans Serif'
71 Font.Style = [fsBold]
72 ParentFont = False
73 end
74 object SSNumLabel: TLabel
75 Left = 8
76 Top = 139
77 Width = 79
78 Height = 13
79 Caption = 'Social Sec Num.'
80 Font.Charset = DEFAULT_CHARSET
81 Font.Color = clWindowText
82 Font.Height = -11
83 Font.Name = 'MS Sans Serif'
84 Font.Style = []
85 ParentFont = False
86 end
87 object SexLabel: TLabel
88 Left = 74
89 Top = 164
90 Width = 22
91 Height = 13
92 Caption = 'Sex'
93 Font.Charset = DEFAULT_CHARSET
94 Font.Color = clWindowText
95 Font.Height = -11
96 Font.Name = 'MS Sans Serif'
97 Font.Style = [fsBold]
98 ParentFont = False
99 end
100 object PrefixLabel: TLabel
101 Left = 25
102 Top = 187
103 Width = 73
104 Height = 13
105 Caption = 'Patient Type'
106 Font.Charset = DEFAULT_CHARSET
107 Font.Color = clWindowText
108 Font.Height = -11
109 Font.Name = 'MS Sans Serif'
110 Font.Style = [fsBold]
111 ParentFont = False
112 Visible = False
113 end
114 object Label1: TLabel
115 Left = 16
116 Top = 232
117 Width = 39
118 Height = 13
119 Caption = 'Label1'
120 Color = clRed
121 Font.Charset = DEFAULT_CHARSET
122 Font.Color = clWindowText
123 Font.Height = -11
124 Font.Name = 'MS Sans Serif'
125 Font.Style = [fsBold]
126 ParentColor = False
127 ParentFont = False
128 Visible = False
129 end
130 object SSNHelpBtn: TSpeedButton
131 Left = 245
132 Top = 136
133 Width = 23
134 Height = 22
135 Glyph.Data = {
136 36010000424D3601000000000000760000002800000014000000100000000100
137 040000000000C000000000000000000000001000000000000000000000000000
138 8000008000000080800080000000800080008080000080808000C0C0C0000000
139 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFF000FFF
140 FFFFFFFF0000FFFFF06660FFFFFFFFFF0000FFFFF06660FFFFFFFFFF0000FFFF
141 FF000FFFFFFFFFFF0000FFFFF06660FFFFFFFFFF0000FFFFF06660FFFFFFFFFF
142 0000FFFFF066660FFFFFFFFF0000FFFFFF066660FFFFFFFF0000FFFFFFF06666
143 0FFFFFFF0000FFF000FF06660FFFFFFF0000FF06660006660FFFFFFF0000FF06
144 666666660FFFFFFF0000FF06666666660FFFFFFF0000FFF006666600FFFFFFFF
145 0000FFFFF00000FFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000}
146 OnClick = SSNHelpBtnClick
147 end
148 object Label2: TLabel
149 Left = 206
150 Top = 117
151 Width = 65
152 Height = 13
153 Caption = '(mm/dd/yy)'
154 Font.Charset = DEFAULT_CHARSET
155 Font.Color = clWindowText
156 Font.Height = -11
157 Font.Name = 'MS Sans Serif'
158 Font.Style = [fsBold]
159 ParentFont = False
160 end
161 object SexComboBox: TComboBox
162 Left = 103
163 Top = 160
164 Width = 167
165 Height = 21
166 ItemHeight = 13
167 TabOrder = 6
168 Text = '<Sex>'
169 OnChange = SexComboBoxChange
170 OnKeyPress = SexComboBoxKeyPress
171 Items.Strings = (
172 'MALE'
173 'FEMALE')
174 end
175 object SSNumEdit: TEdit
176 Left = 103
177 Top = 136
178 Width = 138
179 Height = 21
180 TabOrder = 5
181 OnChange = SSNumEditChange
182 OnExit = SSNumEditExit
183 OnKeyPress = SSNumEditKeyPress
184 end
185 object DOBEdit: TEdit
186 Left = 103
187 Top = 112
188 Width = 99
189 Height = 21
190 TabOrder = 4
191 OnChange = DOBEditChange
192 OnExit = DOBEditExit
193 OnKeyPress = DOBEditKeyPress
194 end
195 object SuffixEdit: TEdit
196 Left = 103
197 Top = 88
198 Width = 167
199 Height = 21
200 TabOrder = 3
201 OnChange = SuffixEditChange
202 OnKeyPress = SuffixEditKeyPress
203 end
204 object MNameEdit: TEdit
205 Left = 103
206 Top = 64
207 Width = 167
208 Height = 21
209 TabOrder = 2
210 OnChange = MNameEditChange
211 OnKeyPress = MNameEditKeyPress
212 end
213 object FNameEdit: TEdit
214 Left = 103
215 Top = 40
216 Width = 167
217 Height = 21
218 TabOrder = 1
219 OnChange = FNameEditChange
220 OnKeyPress = FNameEditKeyPress
221 end
222 object LNameEdit: TEdit
223 Left = 103
224 Top = 16
225 Width = 167
226 Height = 21
227 TabOrder = 0
228 OnChange = LNameEditChange
229 OnKeyPress = LNameEditKeyPress
230 end
231 object PtTypeComboBox: TComboBox
232 Left = 103
233 Top = 184
234 Width = 167
235 Height = 21
236 ItemHeight = 13
237 TabOrder = 7
238 Text = '<Pt Type>'
239 Visible = False
240 OnChange = PtTypeComboBoxChange
241 OnKeyPress = PtTypeComboBoxKeyPress
242 Items.Strings = (
243 'ACTIVE DUTY'
244 'ALLIED VETERAN'
245 'COLLATERAL'
246 'EMPLOYEE'
247 'MILITARY RETIREE'
248 'NON-VETERAN (OTHER)'
249 'NSC VETERAN'
250 'SC VETERAN'
251 'TRICARE')
252 end
253 object VeteranCheckBox: TCheckBox
254 Left = 104
255 Top = 208
256 Width = 161
257 Height = 17
258 Caption = 'Patient Is A Veteran'
259 TabOrder = 8
260 Visible = False
261 OnClick = VeteranCheckBoxClick
262 end
263 object OkButton: TButton
264 Left = 92
265 Top = 231
266 Width = 89
267 Height = 25
268 Caption = '&Add Patient'
269 TabOrder = 9
270 OnClick = OkButtonClick
271 end
272 object CloseButton: TButton
273 Left = 188
274 Top = 231
275 Width = 81
276 Height = 25
277 Caption = '&Cancel'
278 TabOrder = 10
279 OnClick = CancelButtonClick
280 end
281 object DKLanguageController1: TDKLanguageController
282 Left = 8
283 Top = 152
284 LangData = {
285 080066726D5074416464010100000001000000070043617074696F6E01160000
286 0006004C6162656C31010100000002000000070043617074696F6E0006004C61
287 62656C32010100000003000000070043617074696F6E000A004C4E616D654C61
288 62656C010100000004000000070043617074696F6E000A00464E616D654C6162
289 656C010100000005000000070043617074696F6E000A004D4E616D654C616265
290 6C010100000006000000070043617074696F6E000B005375666669784C616265
291 6C010100000007000000070043617074696F6E000800444F424C6162656C0101
292 00000008000000070043617074696F6E000A0053534E756D4C6162656C010100
293 000009000000070043617074696F6E0008005365784C6162656C01010000000A
294 000000070043617074696F6E000B005072656669784C6162656C01010000000B
295 000000070043617074696F6E000A0053534E48656C7042746E00000B00536578
296 436F6D626F426F7801020000000D00000005004974656D730C00000004005465
297 787400090053534E756D4564697400000700444F424564697400000A00537566
298 66697845646974000009004D4E616D654564697400000900464E616D65456469
299 74000009004C4E616D654564697400000E00507454797065436F6D626F426F78
300 01020000000F00000005004974656D730E000000040054657874000F00566574
301 6572616E436865636B426F78010100000010000000070043617074696F6E0008
302 004F6B427574746F6E010100000011000000070043617074696F6E000B00436C
303 6F7365427574746F6E010100000012000000070043617074696F6E00}
304 end
305end
Note: See TracBrowser for help on using the repository browser.