source: cprs/branches/tmg-cprs/CPRS-Chart/fNoteCslt.dfm@ 927

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 3.1 KB
Line 
1inherited frmNoteConsult: TfrmNoteConsult
2 Left = 340
3 Top = 431
4 AutoScroll = False
5 Caption = 'Consult Request Selection'
6 ClientWidth = 547
7 Position = poScreenCenter
8 PixelsPerInch = 96
9 TextHeight = 13
10 object Label3: TLabel [0]
11 Left = 8
12 Top = 44
13 Width = 104
14 Height = 13
15 Caption = 'Consult Request Date'
16 end
17 object Label4: TLabel [1]
18 Left = 136
19 Top = 44
20 Width = 36
21 Height = 13
22 Caption = 'Service'
23 end
24 object Label5: TLabel [2]
25 Left = 268
26 Top = 46
27 Width = 49
28 Height = 13
29 Caption = 'Procedure'
30 end
31 object Label6: TLabel [3]
32 Left = 423
33 Top = 45
34 Width = 30
35 Height = 13
36 Caption = 'Status'
37 end
38 object Label7: TLabel [4]
39 Left = 488
40 Top = 44
41 Width = 38
42 Height = 13
43 Caption = '# Notes'
44 end
45 object Label1: TStaticText [5]
46 Left = 8
47 Top = 8
48 Width = 313
49 Height = 17
50 Caption =
51 'This progress note title must be associated with a consult reque' +
52 'st.'
53 Font.Charset = DEFAULT_CHARSET
54 Font.Color = clWindowText
55 Font.Height = -11
56 Font.Name = 'MS Sans Serif'
57 Font.Style = []
58 ParentFont = False
59 TabOrder = 3
60 end
61 object Label2: TStaticText [6]
62 Left = 8
63 Top = 22
64 Width = 335
65 Height = 17
66 Caption =
67 'Select one of the following or press cancel and choose a differe' +
68 'nt title.'
69 TabOrder = 4
70 end
71 object lstRequests: TORListBox [7]
72 Left = 8
73 Top = 58
74 Width = 531
75 Height = 171
76 ItemHeight = 13
77 Items.Strings = (
78 'a^b^c^d^e^f')
79 ParentShowHint = False
80 ShowHint = True
81 TabOrder = 0
82 OnClick = lstRequestsClick
83 Caption = 'Associated Consult Request'
84 ItemTipColor = clWindow
85 LongList = False
86 Pieces = '2,3,4,5,6'
87 TabPositions = '21,43,69,83'
88 end
89 object cmdOK: TButton [8]
90 Left = 378
91 Top = 242
92 Width = 72
93 Height = 21
94 Caption = 'OK'
95 Default = True
96 Enabled = False
97 TabOrder = 1
98 OnClick = cmdOKClick
99 end
100 object cmdCancel: TButton [9]
101 Left = 466
102 Top = 242
103 Width = 72
104 Height = 21
105 Cancel = True
106 Caption = 'Cancel'
107 TabOrder = 2
108 OnClick = cmdCancelClick
109 end
110 inherited DKLanguageController1: TDKLanguageController
111 LangData = {
112 0E0066726D4E6F7465436F6E73756C7401010000000100000007004361707469
113 6F6E010A00000006004C6162656C33010100000002000000070043617074696F
114 6E0006004C6162656C34010100000003000000070043617074696F6E0006004C
115 6162656C35010100000004000000070043617074696F6E0006004C6162656C36
116 010100000005000000070043617074696F6E0006004C6162656C370101000000
117 06000000070043617074696F6E0006004C6162656C3101010000000700000007
118 0043617074696F6E0006004C6162656C32010100000008000000070043617074
119 696F6E000B006C7374526571756573747301020000000A000000070043617074
120 696F6E0900000005004974656D73000500636D644F4B01010000000B00000007
121 0043617074696F6E000900636D6443616E63656C01010000000C000000070043
122 617074696F6E00}
123 end
124end
Note: See TracBrowser for help on using the repository browser.