source: cprs/branches/tmg-cprs/CPRS-Chart/Encounter/fPCEProvider.dfm@ 1802

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 2.7 KB
RevLine 
[453]1object frmPCEProvider: TfrmPCEProvider
2 Left = 192
3 Top = 104
4 BorderIcons = [biSystemMenu]
5 BorderStyle = bsDialog
6 Caption = 'Primary Encounter Provider'
7 ClientHeight = 254
8 ClientWidth = 317
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 = False
16 Position = poScreenCenter
17 OnCreate = FormCreate
18 PixelsPerInch = 96
19 TextHeight = 13
20 object Spacer1: TLabel
21 Left = 0
22 Top = 0
23 Width = 317
24 Height = 13
25 Align = alTop
26 end
27 object lblMsg: TMemo
28 Left = 0
29 Top = 13
30 Width = 317
31 Height = 29
32 TabStop = False
33 Align = alTop
34 Alignment = taCenter
35 BorderStyle = bsNone
36 Color = clBtnFace
37 Font.Charset = DEFAULT_CHARSET
38 Font.Color = clWindowText
39 Font.Height = -11
40 Font.Name = 'MS Sans Serif'
41 Font.Style = [fsBold]
42 Lines.Strings = (
43 'Primary Provider for this Encounter')
44 ParentFont = False
45 ReadOnly = True
46 TabOrder = 4
47 end
48 object cboPrimary: TORComboBox
49 Left = 6
50 Top = 69
51 Width = 307
52 Height = 180
53 Style = orcsSimple
54 AutoSelect = True
55 Caption = 'Primary Provider for this Encounter'
56 Color = clWindow
57 DropDownCount = 8
58 ItemHeight = 13
59 ItemTipColor = clWindow
60 ItemTipEnable = True
61 ListItemsOnly = True
62 LongList = True
63 LookupPiece = 2
64 MaxLength = 0
65 Pieces = '2,3'
66 Sorted = False
67 SynonymChars = '<>'
68 TabOrder = 0
69 TabStop = True
70 Visible = False
71 OnChange = cboPrimaryChange
72 OnNeedData = cboPrimaryNeedData
73 CharsNeedMatch = 1
74 end
75 object btnYes: TButton
76 Left = 158
77 Top = 40
78 Width = 75
79 Height = 21
80 Caption = '&Yes'
81 Default = True
82 ModalResult = 6
83 TabOrder = 1
84 end
85 object btnNo: TButton
86 Left = 238
87 Top = 40
88 Width = 75
89 Height = 21
90 Cancel = True
91 Caption = '&No'
92 ModalResult = 7
93 TabOrder = 2
94 end
95 object btnSelect: TButton
96 Left = 6
97 Top = 40
98 Width = 90
99 Height = 21
100 Caption = '&Select Primary'
101 TabOrder = 3
102 OnClick = btnSelectClick
103 end
104 object DKLanguageController1: TDKLanguageController
105 Left = 152
106 Top = 128
107 LangData = {
108 0E0066726D50434550726F766964657201010000000100000007004361707469
109 6F6E0106000000070053706163657231000006006C626C4D7367010100000002
110 00000005004C696E6573000A0063626F5072696D617279010100000003000000
111 070043617074696F6E00060062746E5965730101000000040000000700436170
112 74696F6E00050062746E4E6F010100000005000000070043617074696F6E0009
113 0062746E53656C656374010100000006000000070043617074696F6E00}
114 end
115end
Note: See TracBrowser for help on using the repository browser.