Changeset 1679 for cprs/trunk/CPRS-Chart/Options
- Timestamp:
- May 7, 2015, 12:34:29 PM (10 years ago)
- Location:
- cprs/trunk/CPRS-Chart/Options
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/trunk/CPRS-Chart/Options/fOptions.dfm
r829 r1679 2 2 Left = 315 3 3 Top = 110 4 Width = 4355 4 Height = 397 6 5 HelpContext = 9999 … … 11 10 Font.Name = 'Tahoma' 12 11 HelpFile = 'CPRSWT.HLP' 13 OldCreateOrder = True14 12 Position = poScreenCenter 15 13 OnCreate = FormCreate 16 OnDestroy = FormDestroy17 ExplicitWidth = 43518 14 ExplicitHeight = 397 19 15 PixelsPerInch = 96 … … 1359 1355 end 1360 1356 object memReport2: TMemo 1361 Left = 1 281362 Top = 21 31357 Left = 135 1358 Top = 212 1363 1359 Width = 273 1364 Height = 4 71360 Height = 48 1365 1361 TabStop = False 1366 1362 BorderStyle = bsNone -
cprs/trunk/CPRS-Chart/Options/fOptions.pas
r829 r1679 5 5 uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 6 6 Buttons, ComCtrls, ExtCtrls, ORCtrls, OrFn, Dialogs, ORDtTmRng, fBAOptionsDiagnoses, 7 uBAGlobals, fBase508Form, VA508AccessibilityManager ;7 uBAGlobals, fBase508Form, VA508AccessibilityManager, fAutoSz; 8 8 9 9 type 10 TfrmOptions = class(Tfrm Base508Form)10 TfrmOptions = class(TfrmAutoSz) 11 11 pnlMain: TPanel; 12 12 pnlBottom: TPanel; -
cprs/trunk/CPRS-Chart/Options/fOptionsCombinations.pas
r829 r1679 185 185 if copy(valuesource, 1, 1) = '&' then 186 186 valuesource := copy(valuesource, 2, length(valuesource) - 1); 187 valuename := Piece(lstAddBy.DisplayText[lstAddBy.ItemIndex], '-', 1); 187 { if radAddByType.ItemIndex = 2 then 188 valuename := Piece(lstAddBy.DisplayText[lstAddBy.ItemIndex], '-', 1) 189 else } //Removed per PTM 274 - should not peice by the "-" at all 190 valuename := lstAddBy.DisplayText[lstAddBy.ItemIndex]; 188 191 valueien := Piece(lstAddBy.Items[lstAddBy.ItemIndex], '^', 1); 189 192 if Duplicate(valueien, valuesource) then exit; // check for duplicates -
cprs/trunk/CPRS-Chart/Options/fOptionsLists.dfm
r829 r1679 12 12 OnCreate = FormCreate 13 13 OnShow = FormShow 14 ExplicitLeft = 354 15 ExplicitTop = 178 16 ExplicitWidth = 415 17 ExplicitHeight = 469 14 ExplicitWidth = 413 15 ExplicitHeight = 474 18 16 PixelsPerInch = 96 19 17 TextHeight = 13 … … 123 121 SynonymChars = '<>' 124 122 TabOrder = 1 123 OnChange = lstAddByChange 125 124 OnClick = lstAddByClick 126 OnKeyPress = lstAddByKeyPress127 125 OnNeedData = lstAddByNeedData 128 126 CharsNeedMatch = 1 -
cprs/trunk/CPRS-Chart/Options/fOptionsLists.pas
r829 r1679 58 58 procedure lstAddByKeyPress(Sender: TObject; var Key: Char); 59 59 procedure grpVisibilityClick(Sender: TObject); 60 procedure lstAddByChange(Sender: TObject); 60 61 private 61 62 { Private declarations } … … 146 147 case radAddByType.ItemIndex of 147 148 0: begin 148 ListItemsOnly := true;149 ListItemsOnly := false; 149 150 LongList := true; 150 151 InitLongList(''); … … 256 257 end; 257 258 259 procedure TfrmOptionsLists.lstAddByChange(Sender: TObject); 260 procedure ShowMatchingPatients; 261 begin 262 with lstAddBy do begin 263 if ShortCount > 0 then begin 264 if ShortCount = 1 then begin 265 ItemIndex := 0; 266 end; 267 Items.Add(LLS_LINE); 268 Items.Add(LLS_SPACE); 269 end; 270 InitLongList(''); 271 end; 272 end; 273 274 begin 275 inherited; 276 if radAddByType.ItemIndex = 0 {patient} then begin 277 with lstAddBy do 278 if frmPtSelOptns.IsLast5(Text) then begin 279 ListPtByLast5(Items, Text); 280 ShowMatchingPatients; 281 end 282 else if frmPtSelOptns.IsFullSSN(Text) then begin 283 ListPtByFullSSN(Items, Text); 284 ShowMatchingPatients; 285 end; 286 end; 287 end; 288 289 258 290 procedure TfrmOptionsLists.lstAddByClick(Sender: TObject); 259 291 var … … 266 298 if lstAddBy.ItemIndex < 0 then exit; 267 299 ien := Piece(lstAddBy.Items[lstAddBy.ItemIndex], '^', 1); 300 If ien = '' then exit; 268 301 case radAddByType.ItemIndex of 269 302 0: -
cprs/trunk/CPRS-Chart/Options/fOptionsNotes.pas
r829 r1679 32 32 procedure cboCosignerExit(Sender: TObject); 33 33 private 34 FStartingCosigner: Int64; 34 35 { Private declarations } 35 36 public … … 98 99 cboCosigner.InitLongList(cosignername); 99 100 cboCosigner.SelectByIEN(cosigner); 100 cboCosigner.Tag:= cosigner;101 FStartingCosigner := cosigner; 101 102 chkAskSubject.Checked := rpcGetSubject; 102 103 if chkAskSubject.Checked then chkAskSubject.Tag := 1; … … 126 127 rpcSetSubject(Checked); 127 128 with cboCosigner do 128 if Tag<> ItemIEN then129 if FStartingCosigner <> ItemIEN then 129 130 rpcSetDefaultCosigner(ItemIEN); 130 131 ResetTIUPreferences; -
cprs/trunk/CPRS-Chart/Options/fOptionsOther.dfm
r829 r1679 13 13 Position = poScreenCenter 14 14 ShowHint = True 15 OnCloseQuery = FormCloseQuery 15 16 OnCreate = FormCreate 16 17 OnShow = FormShow … … 97 98 ModalResult = 2 98 99 TabOrder = 1 100 OnClick = btnCancelClick 99 101 end 100 102 end -
cprs/trunk/CPRS-Chart/Options/fOptionsOther.pas
r829 r1679 48 48 procedure txtEncStopExit(Sender: TObject); 49 49 procedure btnEncDefaultsClick(Sender: TObject); 50 procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); 51 procedure btnCancelClick(Sender: TObject); 50 52 private 51 53 { Private declarations } … … 53 55 FstopDt: TFMDateTime; 54 56 FEncStartDays, FEncStopDays, FEncDefStartDays, FEncDefStopDays: integer; 57 OK2Closed: boolean; 55 58 //FDefaultEvent: string; 56 59 public … … 107 110 values, tab: string; 108 111 begin 112 OK2Closed := True; 109 113 FastAssign(rpcGetOtherTabs, cboTab.Items); 110 114 if (cboTab.Items.IndexOf('Surgery') > -1) and (not ShowSurgeryTab) then … … 142 146 values, theVal: string; 143 147 begin 148 OK2Closed := True; 144 149 values := ''; 145 150 if cboTab.ItemIEN <> cboTab.Tag then … … 154 159 values := values + '^^'; 155 160 rpcSetOther(values); 161 if (dtStart.Text = '') and (dtStop.Text = '') then 162 begin 163 if InfoBox('A date range is not set for the meds tab. Continue?', 'No Date Range Defined', MB_YESNO) = ID_NO then 164 begin 165 dtStart.SetFocus; 166 OK2Closed := false; 167 Exit; 168 end; 169 end 170 else if (dtStart.Text = '') or (dtStop.Text = '') then 171 begin 172 ShowMsg('A complete date range needs to be set. '); 173 if dtStart.Text = '' then dtStart.SetFocus 174 else dtStop.SetFocus; 175 OK2Closed := false; 176 Exit; 177 end; 178 //if Pos('Y', Uppercase(dtStart.Text))>0 then 179 if Uppercase(Copy(dtStart.Text, Length(dtStart.Text), Length(dtStart.Text))) = 'Y' then 180 181 begin 182 ShowMsg('Start Date relative date cannot have a Y'); 183 OK2Closed := false; 184 dtStart.SetFocus; 185 Exit; 186 end; 187 //if Pos('Y', Uppercase(dtStop.Text))>0 then 188 if Uppercase(Copy(dtStop.Text, Length(dtStop.Text), Length(dtStop.Text))) = 'Y' then 189 begin 190 ShowMsg('Stop Date relative date cannot have a Y'); 191 OK2Closed := false; 192 dtStart.SetFocus; 193 Exit; 194 end; 156 195 if (dtStop.FMDateTime > 0) and (dtStart.FMDateTime > 0) then 157 196 begin … … 161 200 dtStop.FMDateTime := FMToday; 162 201 dtStop.SetFocus; 202 OK2Closed := false; 163 203 Exit; 164 204 end; … … 173 213 end; 174 214 215 procedure TfrmOptionsOther.FormCloseQuery(Sender: TObject; 216 var CanClose: Boolean); 217 begin 218 inherited; 219 CanClose := OK2Closed; 220 221 end; 222 175 223 procedure TfrmOptionsOther.FormCreate(Sender: TObject); 176 224 begin … … 204 252 procedure TfrmOptionsOther.dtStartChange(Sender: TObject); 205 253 begin 206 if (dtStart.FMDateTime > FMToday) then254 (* if (dtStart.FMDateTime > FMToday) then 207 255 begin 208 256 ShowMsg('Start time can not greater than today.'); … … 210 258 dtStart.SetFocus; 211 259 Exit; 212 end; 260 end; *) 213 261 end; 214 262 … … 265 313 end; 266 314 315 procedure TfrmOptionsOther.btnCancelClick(Sender: TObject); 316 begin 317 inherited; 318 OK2Closed := True; 319 end; 320 267 321 procedure TfrmOptionsOther.btnEncDefaultsClick(Sender: TObject); 268 322 begin
Note:
See TracChangeset
for help on using the changeset viewer.