| [453] | 1 | inherited 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 | 
|---|
|  | 124 | end | 
|---|