source: cprs/branches/tmg-cprs/CPRS-Chart/fNoteCPFields.dfm@ 611

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 3.9 KB
Line 
1object frmNoteCPFields: TfrmNoteCPFields
2 Left = 508
3 Top = 307
4 Width = 257
5 Height = 178
6 Caption = 'Enter Required Fields'
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 OldCreateOrder = True
14 Position = poScreenCenter
15 OnCreate = FormCreate
16 PixelsPerInch = 96
17 TextHeight = 13
18 object lblAuthor: TLabel
19 Left = 7
20 Top = 5
21 Width = 94
22 Height = 13
23 AutoSize = False
24 Caption = 'Author:'
25 end
26 object lblProcSummCode: TOROffsetLabel
27 Left = 4
28 Top = 50
29 Width = 125
30 Height = 15
31 Caption = 'Procedure Summary Code'
32 HorzOffset = 2
33 Transparent = False
34 VertOffset = 2
35 WordWrap = False
36 end
37 object lblProcDateTime: TOROffsetLabel
38 Left = 4
39 Top = 96
40 Width = 105
41 Height = 15
42 Caption = 'Procedure Date/Time'
43 HorzOffset = 2
44 Transparent = False
45 VertOffset = 2
46 WordWrap = False
47 end
48 object cboAuthor: TORComboBox
49 Left = 4
50 Top = 17
51 Width = 239
52 Height = 21
53 Style = orcsDropDown
54 AutoSelect = True
55 Caption = 'Author'
56 Color = clWindow
57 DropDownCount = 8
58 ItemHeight = 13
59 ItemTipColor = clWindow
60 ItemTipEnable = True
61 ListItemsOnly = False
62 LongList = True
63 LookupPiece = 2
64 MaxLength = 0
65 ParentShowHint = False
66 Pieces = '2,3'
67 ShowHint = True
68 Sorted = False
69 SynonymChars = '<>'
70 TabOrder = 0
71 OnNeedData = cboAuthorNeedData
72 CharsNeedMatch = 1
73 end
74 object cboProcSummCode: TORComboBox
75 Left = 4
76 Top = 66
77 Width = 142
78 Height = 21
79 Style = orcsDropDown
80 AutoSelect = True
81 Caption = 'Procedure Summary Code'
82 Color = clWindow
83 DropDownCount = 8
84 Items.Strings = (
85 '1^Normal'
86 '2^Abnormal'
87 '3^Borderline'
88 '4^Incomplete')
89 ItemHeight = 13
90 ItemTipColor = clWindow
91 ItemTipEnable = True
92 ListItemsOnly = False
93 LongList = False
94 LookupPiece = 0
95 MaxLength = 0
96 Pieces = '2'
97 Sorted = False
98 SynonymChars = '<>'
99 TabOrder = 1
100 CharsNeedMatch = 1
101 end
102 object calProcDateTime: TORDateBox
103 Left = 4
104 Top = 112
105 Width = 142
106 Height = 21
107 TabOrder = 2
108 DateOnly = False
109 RequireTime = True
110 Caption = 'Procedure Date/Time'
111 end
112 object cmdOK: TButton
113 Left = 166
114 Top = 78
115 Width = 72
116 Height = 21
117 Hint =
118 'Save these items, and continue to enter text interpretation of r' +
119 'esults.'
120 Caption = 'Save'
121 Default = True
122 ParentShowHint = False
123 ShowHint = True
124 TabOrder = 3
125 OnClick = cmdOKClick
126 end
127 object cmdCancel: TButton
128 Left = 166
129 Top = 105
130 Width = 72
131 Height = 21
132 Hint =
133 'Enter text interpretation of results now, and enter these items ' +
134 'later.'
135 Cancel = True
136 Caption = 'Enter Later'
137 ParentShowHint = False
138 ShowHint = True
139 TabOrder = 4
140 OnClick = cmdCancelClick
141 end
142 object DKLanguageController1: TDKLanguageController
143 Left = 112
144 Top = 72
145 LangData = {
146 0F0066726D4E6F746543504669656C6473010100000001000000070043617074
147 696F6E010800000009006C626C417574686F7201010000000200000007004361
148 7074696F6E000F006C626C50726F6353756D6D436F6465010100000003000000
149 070043617074696F6E000F006C626C50726F634461746554696D650101000000
150 04000000070043617074696F6E00090063626F417574686F7201010000000500
151 0000070043617074696F6E000F0063626F50726F6353756D6D436F6465010200
152 000006000000070043617074696F6E0700000005004974656D73000F0063616C
153 50726F634461746554696D65010100000008000000070043617074696F6E0005
154 00636D644F4B01020000000A000000070043617074696F6E0900000004004869
155 6E74000900636D6443616E63656C01020000000C000000070043617074696F6E
156 0B000000040048696E7400}
157 end
158end
Note: See TracBrowser for help on using the repository browser.