source: cprs/branches/tmg-cprs/CPRS-Chart/Encounter/fProcedure.dfm@ 1725

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

Initial upload of TMG-CPRS 1.0.26.69
File size: 5.9 KB
RevLine 
[453]1inherited frmProcedures: TfrmProcedures
2 Left = 295
3 Top = 212
4 Caption = 'Encounter Procedure'
5 PixelsPerInch = 96
6 TextHeight = 13
7 object lblProcQty: TLabel [0]
8 Left = 240
9 Top = 375
10 Width = 39
11 Height = 13
12 Caption = 'Quantity'
13 end
14 inherited lblSection: TLabel
15 Width = 88
16 Caption = 'Procedure Section'
17 end
18 inherited lblList: TLabel
19 Left = 154
20 end
21 inherited bvlMain: TBevel
22 Top = 232
23 Width = 537
24 Height = 166
25 end
26 object lblMod: TLabel [5]
27 Left = 358
28 Top = 6
29 Width = 42
30 Height = 13
31 Hint = 'Modifiers'
32 Caption = 'Modifiers'
33 ParentShowHint = False
34 ShowHint = True
35 end
36 object lblProvider: TLabel [6]
37 Left = 6
38 Top = 376
39 Width = 42
40 Height = 13
41 Caption = 'Provider:'
42 end
43 inherited btnOK: TBitBtn
44 Left = 544
45 Top = 344
46 TabOrder = 8
47 end
48 inherited btnCancel: TBitBtn
49 Top = 371
50 TabOrder = 9
51 end
52 inherited pnlGrid: TPanel
53 Width = 523
54 TabOrder = 1
55 inherited lbGrid: TORListBox
56 Tag = 30
57 Width = 523
58 Caption = 'Selected Procedures'
59 Pieces = '1,2'
60 end
61 inherited hcGrid: THeaderControl
62 Width = 523
63 Sections = <
64 item
65 ImageIndex = -1
66 MinWidth = 52
67 Text = 'Quantity'
68 Width = 52
69 end
70 item
71 ImageIndex = -1
72 MinWidth = 112
73 Text = 'Selected Procedures'
74 Width = 112
75 end>
76 end
77 end
78 inherited edtComment: TCaptionEdit
79 TabOrder = 2
80 end
81 inherited btnRemove: TButton
82 Left = 454
83 Top = 371
84 TabOrder = 7
85 end
86 inherited btnSelectAll: TButton
87 Left = 374
88 Top = 371
89 Height = 21
90 TabOrder = 6
91 TabStop = True
92 end
93 object spnProcQty: TUpDown [13]
94 Left = 348
95 Top = 371
96 Width = 15
97 Height = 21
98 Associate = txtProcQty
99 Min = 1
100 Position = 1
101 TabOrder = 5
102 end
103 object txtProcQty: TCaptionEdit [14]
104 Left = 288
105 Top = 371
106 Width = 60
107 Height = 21
108 Enabled = False
109 TabOrder = 4
110 Text = '1'
111 OnChange = txtProcQtyChange
112 Caption = 'Quantity'
113 end
114 object cboProvider: TORComboBox [15]
115 Left = 56
116 Top = 371
117 Width = 177
118 Height = 21
119 Style = orcsDropDown
120 AutoSelect = True
121 Caption = 'Provider'
122 Color = clWindow
123 DropDownCount = 8
124 ItemHeight = 13
125 ItemTipColor = clWindow
126 ItemTipEnable = True
127 ListItemsOnly = True
128 LongList = True
129 LookupPiece = 2
130 MaxLength = 0
131 Pieces = '2,3'
132 Sorted = False
133 SynonymChars = '<>'
134 TabOrder = 3
135 TabStop = True
136 OnChange = cboProviderChange
137 OnNeedData = cboProviderNeedData
138 CharsNeedMatch = 1
139 end
140 inherited pnlMain: TPanel
141 TabOrder = 0
142 inherited splLeft: TSplitter
143 Left = 145
144 end
145 object splRight: TSplitter [1]
146 Left = 349
147 Top = 0
148 Height = 204
149 Align = alRight
150 OnMoved = splRightMoved
151 end
152 inherited lbxSection: TORListBox
153 Tag = 30
154 Left = 148
155 Width = 201
156 ItemHeight = 14
157 Pieces = '2,3'
158 end
159 inherited pnlLeft: TPanel
160 Width = 145
161 inherited lbSection: TORListBox
162 Tag = 30
163 Width = 145
164 TabOrder = 0
165 end
166 inherited btnOther: TButton
167 Tag = 13
168 Left = 3
169 Caption = 'Other Procedure...'
170 TabOrder = 1
171 end
172 end
173 object lbMods: TORListBox
174 Left = 352
175 Top = 0
176 Width = 260
177 Height = 204
178 Style = lbOwnerDrawFixed
179 Align = alRight
180 Font.Charset = DEFAULT_CHARSET
181 Font.Color = clWindowText
182 Font.Height = -11
183 Font.Name = 'MS Sans Serif'
184 Font.Style = []
185 ItemHeight = 14
186 ParentFont = False
187 ParentShowHint = False
188 ShowHint = True
189 TabOrder = 2
190 Caption = 'Modifiers'
191 ItemTipColor = clWindow
192 LongList = False
193 Pieces = '2,3'
194 TabPosInPixels = True
195 CheckBoxes = True
196 CheckEntireLine = True
197 OnClickCheck = lbModsClickCheck
198 end
199 end
200 inherited DKLanguageController1: TDKLanguageController
201 LangData = {
202 0D0066726D50726F63656475726573010100000001000000070043617074696F
203 6E011A000000050062746E4F4B010100000002000000070043617074696F6E00
204 090062746E43616E63656C010100000003000000070043617074696F6E000700
205 706E6C47726964010100000004000000070043617074696F6E0006006C624772
206 696401010000000E000000070043617074696F6E000600686347726964010200
207 00000F000000100053656374696F6E735B305D2E546578741000000010005365
208 6374696F6E735B315D2E54657874000A006C626C53656374696F6E0101000000
209 05000000070043617074696F6E0007006C626C4C697374010100000006000000
210 070043617074696F6E000A006C626C436F6D6D656E7401010000000700000007
211 0043617074696F6E00070062766C4D61696E00000A00656474436F6D6D656E74
212 010100000008000000070043617074696F6E00090062746E52656D6F76650101
213 00000009000000070043617074696F6E000C0062746E53656C656374416C6C01
214 010000000A000000070043617074696F6E000700706E6C4D61696E0000070073
215 706C4C65667400000A006C627853656374696F6E01010000000B000000070043
216 617074696F6E000700706E6C4C656674000009006C6253656374696F6E010100
217 00000C000000070043617074696F6E00080062746E4F7468657201010000000D
218 000000070043617074696F6E000A006C626C50726F6351747901010000001100
219 0000070043617074696F6E0006006C626C4D6F64010200000013000000070043
220 617074696F6E12000000040048696E74000B006C626C50726F76696465720101
221 00000014000000070043617074696F6E00080073706C5269676874000006006C
222 624D6F6473010100000015000000070043617074696F6E000A0073706E50726F
223 6351747900000A0074787450726F635174790101000000160000000700436170
224 74696F6E000B0063626F50726F76696465720101000000170000000700436170
225 74696F6E00}
226 end
227end
Note: See TracBrowser for help on using the repository browser.