source: cprs/branches/tmg-cprs/CPRS-Chart/fVisit.dfm@ 837

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

Initial upload of TMG-CPRS 1.0.26.69
File size: 5.3 KB
RevLine 
[453]1object frmVisit: TfrmVisit
2 Left = 426
3 Top = 332
4 BorderIcons = []
5 BorderStyle = bsDialog
6 Caption = 'Visit Selection'
7 ClientHeight = 273
8 ClientWidth = 438
9 Color = clBtnFace
10 Font.Charset = DEFAULT_CHARSET
11 Font.Color = clWindowText
12 Font.Height = -11
13 Font.Name = 'MS Sans Serif'
14 Font.Style = []
15 OldCreateOrder = True
16 Position = poScreenCenter
17 OnCreate = FormCreate
18 PixelsPerInch = 96
19 TextHeight = 13
20 object pnlBase: TORAutoPanel
21 Left = 0
22 Top = 0
23 Width = 438
24 Height = 273
25 Align = alClient
26 BevelOuter = bvNone
27 TabOrder = 0
28 object lblSelect: TLabel
29 Left = 8
30 Top = 97
31 Width = 146
32 Height = 13
33 Caption = 'Scheduled Clinic Appointments'
34 end
35 object lblVisitDate: TLabel
36 Left = 254
37 Top = 97
38 Width = 85
39 Height = 13
40 Caption = 'Date/Time of Visit'
41 Visible = False
42 end
43 object lblInstruct: TStaticText
44 Left = 8
45 Top = 8
46 Width = 426
47 Height = 17
48 Caption =
49 'For outpatient encounters, a visit must be selected before writi' +
50 'ng orders or progress notes.'
51 Color = clBtnFace
52 Font.Charset = DEFAULT_CHARSET
53 Font.Color = clBtnText
54 Font.Height = -11
55 Font.Name = 'MS Sans Serif'
56 Font.Style = [fsUnderline]
57 ParentColor = False
58 ParentFont = False
59 TabOrder = 7
60 end
61 object pnlVisit: TORAutoPanel
62 Left = 8
63 Top = 111
64 Width = 422
65 Height = 118
66 BevelOuter = bvNone
67 TabOrder = 4
68 object timVisitDate: TORDateBox
69 Left = 246
70 Top = 0
71 Width = 175
72 Height = 21
73 TabOrder = 1
74 Text = 'NOW'
75 DateOnly = False
76 RequireTime = True
77 end
78 object cboLocation: TORComboBox
79 Left = 0
80 Top = -5
81 Width = 230
82 Height = 118
83 Style = orcsSimple
84 AutoSelect = True
85 Color = clWindow
86 DropDownCount = 8
87 ItemHeight = 13
88 ItemTipColor = clWindow
89 ItemTipEnable = True
90 ListItemsOnly = False
91 LongList = True
92 LookupPiece = 0
93 MaxLength = 0
94 Pieces = '2'
95 Sorted = False
96 SynonymChars = '<>'
97 TabOrder = 0
98 OnNeedData = cboLocationNeedData
99 CharsNeedMatch = 1
100 end
101 object grpCategory: TGroupBox
102 Left = 248
103 Top = 40
104 Width = 175
105 Height = 73
106 Caption = 'Visit Category'
107 TabOrder = 2
108 object ckbHistorical: TCheckBox
109 Left = 8
110 Top = 32
111 Width = 97
112 Height = 17
113 Caption = 'Historical Visit'
114 TabOrder = 0
115 end
116 end
117 end
118 object lstVisit: TORListBox
119 Left = 8
120 Top = 111
121 Width = 422
122 Height = 118
123 ItemHeight = 13
124 ParentShowHint = False
125 ShowHint = True
126 TabOrder = 3
127 Caption = 'Scheduled Clinic Appointments'
128 ItemTipColor = clWindow
129 LongList = False
130 Pieces = '3,5,4'
131 TabPositions = '20'
132 end
133 object radAppt: TRadioButton
134 Tag = 1
135 Left = 8
136 Top = 30
137 Width = 233
138 Height = 17
139 Caption = 'Choose from &Clinic Appointments'
140 Checked = True
141 TabOrder = 0
142 TabStop = True
143 OnClick = radSelectorClick
144 end
145 object radAdmit: TRadioButton
146 Tag = 2
147 Left = 8
148 Top = 51
149 Width = 201
150 Height = 17
151 Caption = 'Choose from &Hospital Admissions'
152 TabOrder = 1
153 OnClick = radSelectorClick
154 end
155 object radNewVisit: TRadioButton
156 Tag = 3
157 Left = 8
158 Top = 72
159 Width = 189
160 Height = 17
161 Caption = 'Enter a &New Visit'
162 TabOrder = 2
163 OnClick = radSelectorClick
164 end
165 object cmdOK: TButton
166 Left = 270
167 Top = 245
168 Width = 72
169 Height = 21
170 Caption = 'OK'
171 Default = True
172 TabOrder = 5
173 OnClick = cmdOKClick
174 end
175 object cmdCancel: TButton
176 Left = 358
177 Top = 245
178 Width = 72
179 Height = 21
180 Cancel = True
181 Caption = 'Cancel'
182 TabOrder = 6
183 OnClick = cmdCancelClick
184 end
185 end
186 object DKLanguageController1: TDKLanguageController
187 Left = 352
188 Top = 56
189 LangData = {
190 080066726D5669736974010100000001000000070043617074696F6E010F0000
191 000700706E6C42617365000009006C626C53656C656374010100000002000000
192 070043617074696F6E000C006C626C5669736974446174650101000000030000
193 00070043617074696F6E000B006C626C496E7374727563740101000000040000
194 00070043617074696F6E000800706E6C566973697400000C0074696D56697369
195 7444617465010100000005000000040054657874000B0063626F4C6F63617469
196 6F6E00000B0067727043617465676F7279010100000006000000070043617074
197 696F6E000D00636B62486973746F726963616C01010000000700000007004361
198 7074696F6E0008006C7374566973697401010000000800000007004361707469
199 6F6E00070072616441707074010100000009000000070043617074696F6E0008
200 0072616441646D697401010000000A000000070043617074696F6E000B007261
201 644E6577566973697401010000000B000000070043617074696F6E000500636D
202 644F4B01010000000C000000070043617074696F6E000900636D6443616E6365
203 6C01010000000D000000070043617074696F6E00}
204 end
205end
Note: See TracBrowser for help on using the repository browser.