source: cprs/branches/foia-cprs/CPRS-Chart/fVisit.dfm@ 962

Last change on this file since 962 was 459, checked in by Kevin Toppenberg, 17 years ago

Adding foia-cprs branch
File size: 4.2 KB
Line 
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 end
100 object grpCategory: TGroupBox
101 Left = 248
102 Top = 40
103 Width = 175
104 Height = 73
105 Caption = 'Visit Category'
106 TabOrder = 2
107 object ckbHistorical: TCheckBox
108 Left = 8
109 Top = 32
110 Width = 97
111 Height = 17
112 Caption = 'Historical Visit'
113 TabOrder = 0
114 end
115 end
116 end
117 object lstVisit: TORListBox
118 Left = 8
119 Top = 111
120 Width = 422
121 Height = 118
122 ItemHeight = 13
123 ParentShowHint = False
124 ShowHint = True
125 TabOrder = 3
126 Caption = 'Scheduled Clinic Appointments'
127 ItemTipColor = clWindow
128 LongList = False
129 Pieces = '3,5,4'
130 TabPositions = '20'
131 end
132 object radAppt: TRadioButton
133 Tag = 1
134 Left = 8
135 Top = 30
136 Width = 233
137 Height = 17
138 Caption = 'Choose from &Clinic Appointments'
139 Checked = True
140 TabOrder = 0
141 TabStop = True
142 OnClick = radSelectorClick
143 end
144 object radAdmit: TRadioButton
145 Tag = 2
146 Left = 8
147 Top = 51
148 Width = 201
149 Height = 17
150 Caption = 'Choose from &Hospital Admissions'
151 TabOrder = 1
152 OnClick = radSelectorClick
153 end
154 object radNewVisit: TRadioButton
155 Tag = 3
156 Left = 8
157 Top = 72
158 Width = 189
159 Height = 17
160 Caption = 'Enter a &New Visit'
161 TabOrder = 2
162 OnClick = radSelectorClick
163 end
164 object cmdOK: TButton
165 Left = 270
166 Top = 245
167 Width = 72
168 Height = 21
169 Caption = 'OK'
170 Default = True
171 TabOrder = 5
172 OnClick = cmdOKClick
173 end
174 object cmdCancel: TButton
175 Left = 358
176 Top = 245
177 Width = 72
178 Height = 21
179 Cancel = True
180 Caption = 'Cancel'
181 TabOrder = 6
182 OnClick = cmdCancelClick
183 end
184 end
185end
Note: See TracBrowser for help on using the repository browser.