[453] | 1 | unit fPtDemoEdit;
|
---|
| 2 | //kt Added this entire unit for demographics editing at runtime.
|
---|
| 3 |
|
---|
| 4 | interface
|
---|
| 5 |
|
---|
| 6 | uses
|
---|
| 7 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
---|
[473] | 8 | Dialogs, ComCtrls, StdCtrls, ExtCtrls, DKLang;
|
---|
[453] | 9 |
|
---|
| 10 | type
|
---|
| 11 | BoolUC = (bucFalse, bucTrue, bucUnchanged);
|
---|
| 12 |
|
---|
| 13 | TPatientInfo = class(TObject)
|
---|
| 14 | public
|
---|
| 15 | LName: String;
|
---|
| 16 | FName: String;
|
---|
| 17 | MName: String;
|
---|
| 18 | CombinedName: String;
|
---|
| 19 | Prefix: String;
|
---|
| 20 | Suffix: String;
|
---|
| 21 | Degree: String;
|
---|
| 22 | DOB: String;
|
---|
| 23 | Sex: String;
|
---|
| 24 | SSNum: String;
|
---|
| 25 | AliasInfo : TStringList; //format: s=IEN#, Object is ^tAlias
|
---|
| 26 | AddressLine1: String;
|
---|
| 27 | AddressLine2: String;
|
---|
| 28 | AddressLine3: String;
|
---|
| 29 | City: String;
|
---|
| 30 | State: String;
|
---|
| 31 | Zip4: String;
|
---|
| 32 | BadAddress: BoolUC;
|
---|
| 33 | PhoneNumResidence: String;
|
---|
| 34 | PhoneNumWork: String;
|
---|
| 35 | PhoneNumCell: String;
|
---|
| 36 | PhoneNumTemp: String;
|
---|
| 37 |
|
---|
| 38 | TempAddressLine1: String;
|
---|
| 39 | TempAddressLine2: String;
|
---|
| 40 | TempAddressLine3: String;
|
---|
| 41 | TempCity: String;
|
---|
| 42 | TempState: String;
|
---|
| 43 | TempZip4: String;
|
---|
| 44 | TempStartingDate : String;
|
---|
| 45 | TempEndingDate : String;
|
---|
| 46 | TempAddressActive: BoolUC;
|
---|
| 47 |
|
---|
| 48 | ConfidentalAddressLine1: String;
|
---|
| 49 | ConfidentalAddressLine2: String;
|
---|
| 50 | ConfidentalAddressLine3: String;
|
---|
| 51 | ConfidentalCity: String;
|
---|
| 52 | ConfidentalState: String;
|
---|
| 53 | ConfidentalZip4: String;
|
---|
| 54 | ConfidentalStartingDate : String;
|
---|
| 55 | ConfidentalEndingDate : String;
|
---|
| 56 | ConfAddressActive : BoolUC;
|
---|
| 57 |
|
---|
| 58 | Modified : boolean;
|
---|
| 59 |
|
---|
| 60 | constructor Create;
|
---|
| 61 | destructor Destroy; override;
|
---|
| 62 | procedure ClearAliasInfo;
|
---|
| 63 | procedure Clear;
|
---|
| 64 | procedure Assign(Source : TPatientInfo);
|
---|
| 65 | procedure RemoveUnchanged(OldInfo : TPatientInfo);
|
---|
| 66 | end;
|
---|
| 67 |
|
---|
| 68 | TfrmPtDemoEdit = class(TForm)
|
---|
| 69 | OKBtn: TButton;
|
---|
| 70 | CancelBtn: TButton;
|
---|
| 71 | ApplyBtn: TButton;
|
---|
| 72 | PageControl: TPageControl;
|
---|
| 73 | DemoTabSheet: TTabSheet;
|
---|
| 74 | LNameLabel: TLabel;
|
---|
| 75 | FNameLabel: TLabel;
|
---|
| 76 | MNameLabel: TLabel;
|
---|
| 77 | CombinedNameLabel: TLabel;
|
---|
| 78 | PrefixLabel: TLabel;
|
---|
| 79 | SuffixLabel: TLabel;
|
---|
| 80 | DOBLabel: TLabel;
|
---|
| 81 | SSNumLabel: TLabel;
|
---|
| 82 | CombinedNameEdit: TEdit;
|
---|
| 83 | LNameEdit: TEdit;
|
---|
| 84 | FNameEdit: TEdit;
|
---|
| 85 | MNameEdit: TEdit;
|
---|
| 86 | PrefixEdit: TEdit;
|
---|
| 87 | SuffixEdit: TEdit;
|
---|
| 88 | DOBEdit: TEdit;
|
---|
| 89 | SSNumEdit: TEdit;
|
---|
| 90 | AliasGroupBox: TGroupBox;
|
---|
| 91 | AliasComboBox: TComboBox;
|
---|
| 92 | AliasNameLabel: TLabel;
|
---|
| 93 | AliasSSNumLabel: TLabel;
|
---|
| 94 | AliasNameEdit: TEdit;
|
---|
| 95 | AliasSSNEdit: TEdit;
|
---|
| 96 | AddressGroupBox: TGroupBox;
|
---|
| 97 | AddressRGrp: TRadioGroup;
|
---|
| 98 | AddressLine1Edit: TEdit;
|
---|
| 99 | AddressLine2Edit: TEdit;
|
---|
| 100 | AddressLine3Edit: TEdit;
|
---|
| 101 | CityLabel: TLabel;
|
---|
| 102 | CityEdit: TEdit;
|
---|
| 103 | StateComboBox: TComboBox;
|
---|
| 104 | Zip4Edit: TEdit;
|
---|
| 105 | Zip4Label: TLabel;
|
---|
| 106 | BadAddressCB: TCheckBox;
|
---|
| 107 | TempActiveCB: TCheckBox;
|
---|
| 108 | SexLabel: TLabel;
|
---|
| 109 | SexComboBox: TComboBox;
|
---|
| 110 | DelAliasBtn: TButton;
|
---|
| 111 | StartingDateEdit: TEdit;
|
---|
| 112 | StartingDateLabel: TLabel;
|
---|
| 113 | EndingDateLabel: TLabel;
|
---|
| 114 | EndingDateEdit: TEdit;
|
---|
| 115 | ConfActiveCB: TCheckBox;
|
---|
| 116 | DegreeEdit: TEdit;
|
---|
| 117 | DegreeLabel: TLabel;
|
---|
| 118 | AddAliasBtn: TButton;
|
---|
[473] | 119 | DKLanguageController1: TDKLanguageController;
|
---|
[495] | 120 | GroupBox1: TGroupBox;
|
---|
| 121 | PhoneNumGrp: TRadioGroup;
|
---|
| 122 | PhoneNumEdit: TEdit;
|
---|
[453] | 123 | procedure AliasComboBoxChange(Sender: TObject);
|
---|
| 124 | procedure FormCreate(Sender: TObject);
|
---|
| 125 | procedure AddressRGrpClick(Sender: TObject);
|
---|
| 126 | procedure PhoneNumGrpClick(Sender: TObject);
|
---|
| 127 | procedure DelAliasBtnClick(Sender: TObject);
|
---|
| 128 | procedure FormDestroy(Sender: TObject);
|
---|
| 129 | procedure FormShow(Sender: TObject);
|
---|
| 130 | procedure CombinedNameEditChange(Sender: TObject);
|
---|
| 131 | procedure LNameEditChange(Sender: TObject);
|
---|
| 132 | procedure FNameEditChange(Sender: TObject);
|
---|
| 133 | procedure MNameEditChange(Sender: TObject);
|
---|
| 134 | procedure PrefixEditChange(Sender: TObject);
|
---|
| 135 | procedure SuffixEditChange(Sender: TObject);
|
---|
| 136 | procedure SexComboBoxChange(Sender: TObject);
|
---|
| 137 | procedure AddressLine1EditChange(Sender: TObject);
|
---|
| 138 | procedure AddressLine2EditChange(Sender: TObject);
|
---|
| 139 | procedure AddressLine3EditChange(Sender: TObject);
|
---|
| 140 | procedure CityEditChange(Sender: TObject);
|
---|
| 141 | procedure Zip4EditChange(Sender: TObject);
|
---|
| 142 | procedure StateComboBoxChange(Sender: TObject);
|
---|
| 143 | procedure TempActiveCBClick(Sender: TObject);
|
---|
| 144 | procedure ConfActiveCBClick(Sender: TObject);
|
---|
| 145 | procedure BadAddressCBClick(Sender: TObject);
|
---|
| 146 | procedure DegreeEditChange(Sender: TObject);
|
---|
| 147 | procedure PhoneNumEditChange(Sender: TObject);
|
---|
| 148 | procedure StartingDateEditChange(Sender: TObject);
|
---|
| 149 | procedure EndingDateEditChange(Sender: TObject);
|
---|
| 150 | procedure AliasNameEditChange(Sender: TObject);
|
---|
| 151 | procedure AliasSSNEditChange(Sender: TObject);
|
---|
| 152 | procedure ApplyBtnClick(Sender: TObject);
|
---|
| 153 | procedure AddAliasBtnClick(Sender: TObject);
|
---|
| 154 | procedure OKBtnClick(Sender: TObject);
|
---|
| 155 | procedure CancelBtnClick(Sender: TObject);
|
---|
| 156 | procedure DOBEditChange(Sender: TObject);
|
---|
| 157 | procedure SSNumEditChange(Sender: TObject);
|
---|
| 158 | private
|
---|
| 159 | { Private declarations }
|
---|
| 160 | FCurPatientInfo : TPatientInfo;
|
---|
| 161 | FServerPatientInfo : TPatientInfo;
|
---|
| 162 | FCurAliasEdit : integer;
|
---|
| 163 | ProgAliasChangeOccuring : boolean;
|
---|
| 164 | ProgNameChangeOccuring : boolean;
|
---|
| 165 | ProgPhoneChangeOccuring : boolean;
|
---|
| 166 | ProgAddressChangeOccuring : boolean;
|
---|
| 167 | MaxAliasIEN : integer;
|
---|
| 168 | ChangesMade : boolean;
|
---|
| 169 | procedure GetPtInfo(PatientInfo : TPatientInfo);
|
---|
| 170 | procedure PostChangedInfo(PatientInfo : TPatientInfo);
|
---|
| 171 | procedure ShowAliasInfo(Patient : TPatientInfo);
|
---|
| 172 | procedure ShowPtInfo(Patient : TPatientInfo);
|
---|
| 173 | function CombinedName : string;
|
---|
| 174 | procedure NameParts(CombinedName: string; var LName, FName, MName : string);
|
---|
| 175 | procedure SetModified(value : boolean);
|
---|
| 176 | procedure SetAliasEnabled(value : boolean);
|
---|
| 177 | public
|
---|
| 178 | { Public declarations }
|
---|
| 179 | end;
|
---|
| 180 |
|
---|
| 181 | var
|
---|
| 182 | frmPtDemoEdit: TfrmPtDemoEdit;
|
---|
| 183 |
|
---|
| 184 | implementation
|
---|
| 185 |
|
---|
| 186 | {$R *.dfm}
|
---|
| 187 |
|
---|
| 188 | uses
|
---|
| 189 | IniFiles,Trpcb,ORNet,uCore, mfunstr;
|
---|
| 190 |
|
---|
| 191 | const
|
---|
| 192 | ADD_NEW_ALIAS = '<Add New Alias>';
|
---|
| 193 |
|
---|
| 194 | type
|
---|
| 195 | tAlias= class
|
---|
| 196 | Name : string;
|
---|
| 197 | SSN : string;
|
---|
| 198 | procedure Assign(Source: tAlias);
|
---|
| 199 | end;
|
---|
| 200 |
|
---|
| 201 | procedure tAlias.Assign(Source : tAlias);
|
---|
| 202 | begin
|
---|
| 203 | Name := Source.Name;
|
---|
| 204 | SSN := Source.SSN;
|
---|
| 205 | end;
|
---|
| 206 |
|
---|
| 207 | //=========================================================
|
---|
| 208 | //=========================================================
|
---|
| 209 | //=========================================================
|
---|
| 210 |
|
---|
| 211 | constructor TPatientInfo.Create;
|
---|
| 212 | begin
|
---|
| 213 | AliasInfo := TStringList.Create;
|
---|
| 214 | Clear;
|
---|
| 215 | end;
|
---|
| 216 |
|
---|
| 217 | destructor TPatientInfo.Destroy;
|
---|
| 218 | begin
|
---|
| 219 | ClearAliasInfo;
|
---|
| 220 | AliasInfo.Free;
|
---|
| 221 | inherited Destroy;
|
---|
| 222 | End;
|
---|
| 223 |
|
---|
| 224 | procedure TPatientInfo.ClearAliasInfo;
|
---|
| 225 | var i : integer;
|
---|
| 226 | pAlias : tAlias;
|
---|
| 227 | begin
|
---|
| 228 | for i := 0 to AliasInfo.Count-1 do begin
|
---|
| 229 | pAlias := tAlias(AliasInfo.Objects[i]);
|
---|
| 230 | pAlias.Free;
|
---|
| 231 | end;
|
---|
| 232 | AliasInfo.Clear
|
---|
| 233 | End;
|
---|
| 234 |
|
---|
| 235 | procedure TPatientInfo.Clear;
|
---|
| 236 | begin
|
---|
| 237 | LName:= '';
|
---|
| 238 | FName:= '';
|
---|
| 239 | MName:= '';
|
---|
| 240 | CombinedName:= '';
|
---|
| 241 | Prefix:= '';
|
---|
| 242 | Suffix:= '';
|
---|
| 243 | Degree:= '';
|
---|
| 244 | DOB:= '';
|
---|
| 245 | SSNum:= '';
|
---|
| 246 | ClearAliasInfo;
|
---|
| 247 | AddressLine1:= '';
|
---|
| 248 | AddressLine2:= '';
|
---|
| 249 | AddressLine3:= '';
|
---|
| 250 | City:= '';
|
---|
| 251 | State:= '';
|
---|
| 252 | Zip4:= '';
|
---|
| 253 | TempAddressLine1:= '';
|
---|
| 254 | TempAddressLine2:= '';
|
---|
| 255 | TempAddressLine3:= '';
|
---|
| 256 | TempCity:= '';
|
---|
| 257 | TempState:= '';
|
---|
| 258 | TempZip4:= '';
|
---|
| 259 | TempStartingDate := '';
|
---|
| 260 | TempEndingDate := '';
|
---|
| 261 | ConfidentalAddressLine1:= '';
|
---|
| 262 | ConfidentalAddressLine2:= '';
|
---|
| 263 | ConfidentalAddressLine3:= '';
|
---|
| 264 | ConfidentalCity:= '';
|
---|
| 265 | ConfidentalState:= '';
|
---|
| 266 | ConfidentalZip4:= '';
|
---|
| 267 | ConfidentalStartingDate := '';
|
---|
| 268 | ConfidentalEndingDate := '';
|
---|
| 269 | BadAddress:= bucFalse;
|
---|
| 270 | TempAddressActive:= bucFalse;
|
---|
| 271 | ConfAddressActive := bucFalse;
|
---|
| 272 | Modified := false;
|
---|
| 273 |
|
---|
| 274 | PhoneNumResidence:= '';
|
---|
| 275 | PhoneNumWork:= '';
|
---|
| 276 | PhoneNumCell:= '';
|
---|
| 277 | PhoneNumTemp:= '';
|
---|
| 278 | Sex:= '';
|
---|
| 279 | end;
|
---|
| 280 |
|
---|
| 281 |
|
---|
| 282 | procedure TPatientInfo.Assign(Source : TPatientInfo);
|
---|
| 283 | var i : integer;
|
---|
| 284 | pAlias : tAlias;
|
---|
| 285 | OtherpAlias : tAlias;
|
---|
| 286 | begin
|
---|
| 287 | LName:=Source.LName;
|
---|
| 288 | FName:=Source.FName;
|
---|
| 289 | MName:=Source.MName;
|
---|
| 290 | CombinedName:=Source.CombinedName;
|
---|
| 291 | Prefix:=Source.Prefix;
|
---|
| 292 | Suffix:=Source.Suffix;
|
---|
| 293 | Degree:=Source.Degree;
|
---|
| 294 | DOB:=Source.DOB;
|
---|
| 295 | SSNum:=Source.SSNum;
|
---|
| 296 |
|
---|
| 297 | ClearAliasInfo;
|
---|
| 298 | //Copy pointed to tAlias entries, don't simply copy references
|
---|
| 299 | for i := 0 to Source.AliasInfo.Count-1 do begin
|
---|
| 300 | AliasInfo.Add(Source.AliasInfo.Strings[i]);
|
---|
| 301 | OtherpAlias := tAlias(Source.AliasInfo.Objects[i]);
|
---|
| 302 | if OtherpAlias<>nil then begin
|
---|
| 303 | pAlias := tAlias.Create;
|
---|
| 304 | pAlias.Name := OtherpAlias.Name;
|
---|
| 305 | pAlias.SSN := OtherpAlias.SSN;
|
---|
| 306 | AliasInfo.Objects[i]:=pAlias;
|
---|
| 307 | end;
|
---|
| 308 | end;
|
---|
| 309 | AddressLine1:=Source.AddressLine1;
|
---|
| 310 | AddressLine2:=Source.AddressLine2;
|
---|
| 311 | AddressLine3:=Source.AddressLine3;
|
---|
| 312 | City:=Source.City;
|
---|
| 313 | State:=Source.State;
|
---|
| 314 | Zip4:=Source.Zip4;
|
---|
| 315 | TempAddressLine1:=Source.TempAddressLine1;
|
---|
| 316 | TempAddressLine2:=Source.TempAddressLine2;
|
---|
| 317 | TempAddressLine3:=Source.TempAddressLine3;
|
---|
| 318 | TempCity:=Source.TempCity;
|
---|
| 319 | TempState:=Source.TempState;
|
---|
| 320 | TempZip4:=Source.TempZip4;
|
---|
| 321 | TempStartingDate :=Source.TempStartingDate ;
|
---|
| 322 | TempEndingDate :=Source.TempEndingDate ;
|
---|
| 323 | ConfidentalAddressLine1:=Source.ConfidentalAddressLine1;
|
---|
| 324 | ConfidentalAddressLine2:=Source.ConfidentalAddressLine2;
|
---|
| 325 | ConfidentalAddressLine3:=Source.ConfidentalAddressLine3;
|
---|
| 326 | ConfidentalCity:=Source.ConfidentalCity;
|
---|
| 327 | ConfidentalState:=Source.ConfidentalState;
|
---|
| 328 | ConfidentalZip4:=Source.ConfidentalZip4;
|
---|
| 329 | ConfidentalStartingDate :=Source.ConfidentalStartingDate ;
|
---|
| 330 | ConfidentalEndingDate :=Source.ConfidentalEndingDate ;
|
---|
| 331 | BadAddress:= Source.BadAddress;
|
---|
| 332 | TempAddressActive:= Source.TempAddressActive;
|
---|
| 333 | ConfAddressActive := Source.ConfAddressActive;
|
---|
| 334 | PhoneNumResidence:=Source.PhoneNumResidence;
|
---|
| 335 | PhoneNumWork:=Source.PhoneNumWork;
|
---|
| 336 | PhoneNumCell:=Source.PhoneNumCell;
|
---|
| 337 | PhoneNumTemp:=Source.PhoneNumTemp;
|
---|
| 338 | Sex:=Source.Sex;
|
---|
| 339 | end;
|
---|
| 340 |
|
---|
| 341 |
|
---|
| 342 | procedure TPatientInfo.RemoveUnchanged(OldInfo : TPatientInfo);
|
---|
| 343 | //Will remove entries that are unchanged from OldInfo
|
---|
| 344 | //ALSO, will change AliasInfo entries:
|
---|
| 345 | // Other code adds "IEN" numbers that don't have any corresponding
|
---|
| 346 | // true IEN on the server. This will convert these to +1,+2 etc.
|
---|
| 347 | // And, if there is an alias entry in the OldInfo that is not
|
---|
| 348 | // in this info, then a matching @ entry for that IEN will be generated.
|
---|
| 349 |
|
---|
| 350 | procedure CompStrs(var newS, oldS : string);
|
---|
| 351 | begin
|
---|
| 352 | if newS = oldS then begin
|
---|
| 353 | newS := ''; //no change,
|
---|
| 354 | end else begin
|
---|
| 355 | if (newS = '') and (oldS <> '') then newS := '@' //delete symbol
|
---|
| 356 | end;
|
---|
| 357 | end;
|
---|
| 358 |
|
---|
| 359 | procedure CompBoolUC(var newBN, oldBN : BoolUC);
|
---|
| 360 | begin
|
---|
| 361 | if newBN=oldBN then begin
|
---|
| 362 | newBN := bucUnchanged; //Mark unchanged
|
---|
| 363 | end;
|
---|
| 364 | end;
|
---|
| 365 |
|
---|
| 366 | const
|
---|
| 367 | BOOL_STR : array[false..true] of string =('TRUE','FALSE');
|
---|
| 368 | NO_CHANGE = 1;
|
---|
| 369 | NEW_RECORD = 2;
|
---|
| 370 | DELETED_RECORD = 3;
|
---|
| 371 | CHANGED_RECORD = 4;
|
---|
| 372 |
|
---|
| 373 | function CompAliasRec(curAlias,oldAlias : tAlias) : integer;
|
---|
| 374 | //Returns: NO_CHANGE = 1; NEW_RECORD = 2; DELETED_RECORD = 3; CHANGED_RECORD = 4;
|
---|
| 375 | begin
|
---|
| 376 | Result := NO_CHANGE;
|
---|
| 377 | if (curAlias <> nil) and (oldAlias <> nil) then begin
|
---|
| 378 | if curAlias.Name = '' then begin
|
---|
| 379 | if oldAlias.Name <> '' then Result := DELETED_RECORD;
|
---|
| 380 | end else if curAlias.Name <> oldAlias.Name then begin
|
---|
| 381 | Result := CHANGED_RECORD;
|
---|
| 382 | end;
|
---|
| 383 | if Result = NO_CHANGE then begin
|
---|
| 384 | if curAlias.SSN <> oldAlias.SSN then Result := CHANGED_RECORD;
|
---|
| 385 | end;
|
---|
| 386 | end;
|
---|
| 387 | end;
|
---|
| 388 |
|
---|
| 389 | function CompAlias(IEN : string; pAlias : tAlias; OldInfo : TPatientInfo) : integer;
|
---|
| 390 | //format: s=IEN#, Object is ^tAlias
|
---|
| 391 | //Returns: NO_CHANGE = 1; NEW_RECORD = 2; DELETED_RECORD = 3; CHANGED_RECORD = 4;
|
---|
| 392 | var i : integer;
|
---|
| 393 | oldPAlias : tAlias;
|
---|
| 394 | begin
|
---|
| 395 | Result := NEW_RECORD;
|
---|
| 396 | for i := 0 to OldInfo.AliasInfo.Count-1 do begin
|
---|
| 397 | if OldInfo.AliasInfo.Strings[i] = IEN then begin
|
---|
| 398 | oldPAlias := tAlias(OldInfo.AliasInfo.Objects[i]);
|
---|
| 399 | Result := CompAliasRec(pAlias,oldPAlias);
|
---|
| 400 | break;
|
---|
| 401 | end;
|
---|
| 402 | end;
|
---|
| 403 | end;
|
---|
| 404 |
|
---|
| 405 | var i,j,AddCt : integer;
|
---|
| 406 | pAlias, tempPAlias : tAlias;
|
---|
| 407 |
|
---|
| 408 | begin
|
---|
| 409 | {if OldInfo = This Info, then remove entries}
|
---|
| 410 | CompStrs(LName, OldInfo.LName);
|
---|
| 411 | CompStrs(FName, OldInfo.FName);
|
---|
| 412 | CompStrs(MName, OldInfo.MName);
|
---|
| 413 | CompStrs(CombinedName, OldInfo.CombinedName);
|
---|
| 414 | CompStrs(Prefix, OldInfo.Prefix);
|
---|
| 415 | CompStrs(Suffix, OldInfo.Suffix);
|
---|
| 416 | CompStrs(Degree, OldInfo.Degree);
|
---|
| 417 | CompStrs(DOB, OldInfo.DOB);
|
---|
| 418 | CompStrs(SSNum, OldInfo.SSNum);
|
---|
| 419 |
|
---|
| 420 | CompStrs(AddressLine1, OldInfo.AddressLine1);
|
---|
| 421 | CompStrs(AddressLine2, OldInfo.AddressLine2);
|
---|
| 422 | CompStrs(AddressLine3, OldInfo.AddressLine3);
|
---|
| 423 | CompStrs(City, OldInfo.City);
|
---|
| 424 | CompStrs(State, OldInfo.State);
|
---|
| 425 | CompStrs(Zip4, OldInfo.Zip4);
|
---|
| 426 | CompStrs(TempAddressLine1, OldInfo.TempAddressLine1);
|
---|
| 427 | CompStrs(TempAddressLine2, OldInfo.TempAddressLine2);
|
---|
| 428 | CompStrs(TempAddressLine3, OldInfo.TempAddressLine3);
|
---|
| 429 | CompStrs(TempCity, OldInfo.TempCity);
|
---|
| 430 | CompStrs(TempState, OldInfo.TempState);
|
---|
| 431 | CompStrs(TempZip4, OldInfo.TempZip4);
|
---|
| 432 | CompStrs(TempStartingDate , OldInfo.TempStartingDate );
|
---|
| 433 | CompStrs(TempEndingDate , OldInfo.TempEndingDate );
|
---|
| 434 | CompStrs(ConfidentalAddressLine1, OldInfo.ConfidentalAddressLine1);
|
---|
| 435 | CompStrs(ConfidentalAddressLine2, OldInfo.ConfidentalAddressLine2);
|
---|
| 436 | CompStrs(ConfidentalAddressLine3, OldInfo.ConfidentalAddressLine3);
|
---|
| 437 | CompStrs(ConfidentalCity, OldInfo.ConfidentalCity);
|
---|
| 438 | CompStrs(ConfidentalState, OldInfo.ConfidentalState);
|
---|
| 439 | CompStrs(ConfidentalZip4, OldInfo.ConfidentalZip4);
|
---|
| 440 | CompStrs(ConfidentalStartingDate , OldInfo.ConfidentalStartingDate );
|
---|
| 441 | CompStrs(ConfidentalEndingDate , OldInfo.ConfidentalEndingDate );
|
---|
| 442 |
|
---|
| 443 | CompBoolUC(BadAddress, OldInfo.BadAddress);
|
---|
| 444 | CompBoolUC(TempAddressActive, OldInfo.TempAddressActive);
|
---|
| 445 | CompBoolUC(ConfAddressActive, OldInfo.ConfAddressActive);
|
---|
| 446 |
|
---|
| 447 | CompStrs(PhoneNumResidence, OldInfo.PhoneNumResidence);
|
---|
| 448 | CompStrs(PhoneNumWork, OldInfo.PhoneNumWork);
|
---|
| 449 | CompStrs(PhoneNumCell, OldInfo.PhoneNumCell);
|
---|
| 450 | CompStrs(PhoneNumTemp, OldInfo.PhoneNumTemp);
|
---|
| 451 | CompStrs(Sex, OldInfo.Sex);
|
---|
| 452 |
|
---|
| 453 | //Compare Aliases
|
---|
| 454 | //format: s=IEN#, Object is ^tAlias
|
---|
| 455 |
|
---|
| 456 | //first, see which entries in OldInfo are deleted in CurInfo.
|
---|
| 457 | for i := 0 to OldInfo.AliasInfo.Count-1 do begin
|
---|
| 458 | pAlias := tAlias(OldInfo.AliasInfo.Objects[i]);
|
---|
| 459 | if CompAlias(OldInfo.AliasInfo.Strings[i], pAlias, self) = NEW_RECORD then begin
|
---|
| 460 | //here we have an entry in OldInfo, not in CurInfo, so must represent a Delete
|
---|
| 461 | //This needs to be posted to server with old IEN and @ symbol
|
---|
| 462 | tempPAlias := tAlias.Create;
|
---|
| 463 | tempPAlias.Name := '@';
|
---|
| 464 | AliasInfo.AddObject(OldInfo.AliasInfo.Strings[i],tempPAlias);
|
---|
| 465 | end;
|
---|
| 466 | end;
|
---|
| 467 |
|
---|
| 468 | AddCt := 0;
|
---|
| 469 | //First, see which entries in New PatientInfo are new, or unchanged.
|
---|
| 470 | for i := 0 to AliasInfo.Count-1 do begin
|
---|
| 471 | pAlias := tAlias(AliasInfo.Objects[i]);
|
---|
| 472 | if (pAlias=nil) then continue;
|
---|
| 473 | if pAlias.Name= '@' then continue; //skip those marked as deleted from OldInfo
|
---|
| 474 | case CompAlias(AliasInfo.Strings[i], pAlias, OldInfo) of
|
---|
| 475 | NO_CHANGE : begin //delete unchanged data (no need to repost to server)
|
---|
| 476 | pAlias.Destroy;
|
---|
| 477 | AliasInfo.Strings[i] :='<@>'; //mark for deletion below
|
---|
| 478 | end;
|
---|
| 479 | NEW_RECORD : begin //mark as +1, +2 etc IEN
|
---|
| 480 | AddCt := AddCt + 1;
|
---|
| 481 | AliasInfo.Strings[i] := '+' + IntToStr(AddCt);
|
---|
| 482 | end;
|
---|
| 483 | CHANGED_RECORD : begin end; // do nothing, leave changes in place
|
---|
| 484 | end; {case}
|
---|
| 485 | end;
|
---|
| 486 |
|
---|
| 487 | for i := AliasInfo.Count-1 downto 0 do begin
|
---|
| 488 | if AliasInfo.Strings[i] = '<@>' then AliasInfo.Delete(i);
|
---|
| 489 | end;
|
---|
| 490 |
|
---|
| 491 |
|
---|
| 492 | end;
|
---|
| 493 |
|
---|
| 494 |
|
---|
| 495 | //=========================================================
|
---|
| 496 | //=========================================================
|
---|
| 497 | //=========================================================
|
---|
| 498 |
|
---|
| 499 | procedure TfrmPtDemoEdit.GetPtInfo;
|
---|
| 500 | var tempINI : TMemINIFile; //I do this to make dealing with hash table read easier
|
---|
| 501 | i,index : integer;
|
---|
| 502 | IEN, Key,Value,s : string;
|
---|
| 503 | pAlias : tAlias;
|
---|
| 504 |
|
---|
| 505 | begin
|
---|
| 506 | FServerPatientInfo.Clear;
|
---|
| 507 | tempINI := TMemINIFile.Create('xxx.ini');
|
---|
| 508 |
|
---|
| 509 | RPCBrokerV.remoteprocedure := 'TMG GET PATIENT DEMOGRAPHICS';
|
---|
| 510 | RPCBrokerV.param[0].value := Patient.DFN; RPCBrokerV.param[0].ptype := literal;
|
---|
| 511 | RPCBrokerV.Call;
|
---|
| 512 |
|
---|
| 513 | with FServerPatientInfo do begin
|
---|
| 514 | //Store results in a hash table for easier random access
|
---|
| 515 | //Don't store Alias info in hash table, put directly into AliasInfo stringlist
|
---|
| 516 | for i := 0 to RPCBrokerV.Results.Count-1 do begin
|
---|
| 517 | s := RPCBrokerV.Results.Strings[i];
|
---|
| 518 | if Pos('ALIAS',s)=0 then begin
|
---|
| 519 | Key := piece(s,'=',1);
|
---|
| 520 | Value := piece(s,'=',2);
|
---|
| 521 | tempINI.WriteString('DATA',Key,Value);
|
---|
| 522 | end else begin
|
---|
| 523 | IEN := piece(s,' ',2);
|
---|
| 524 | if StrToInt(IEN)>MaxAliasIEN then MaxAliasIEN := StrToInt(IEN);
|
---|
| 525 | index := AliasInfo.IndexOf(IEN);
|
---|
| 526 | if index <0 then begin
|
---|
| 527 | pAlias := tAlias.Create; //AliasInfo will own these.
|
---|
| 528 | AliasInfo.AddObject(IEN,pAlias);
|
---|
| 529 | end else begin
|
---|
| 530 | pAlias := tAlias(AliasInfo.Objects[index]);
|
---|
| 531 | end;
|
---|
| 532 | if Pos('NAME=',s)>0 then begin
|
---|
| 533 | pAlias.Name := piece(s,'=',2);
|
---|
| 534 | end else if Pos('SSN=',s)>0 then begin
|
---|
| 535 | pAlias.SSN := piece(s,'=',2);
|
---|
| 536 | end;
|
---|
| 537 | end;
|
---|
| 538 | end;
|
---|
| 539 | LName:=tempINI.ReadString('DATA','LNAME','');
|
---|
| 540 | FName:=tempINI.ReadString('DATA','FNAME','');
|
---|
| 541 | MName:=tempINI.ReadString('DATA','MNAME','');
|
---|
| 542 | CombinedName:=tempINI.ReadString('DATA','COMBINED_NAME','');
|
---|
| 543 | Prefix:=tempINI.ReadString('DATA','PREFIX','');
|
---|
| 544 | Suffix:=tempINI.ReadString('DATA','SUFFIX','');
|
---|
| 545 | Degree:=tempINI.ReadString('DATA','DEGREE','');
|
---|
| 546 | DOB:= tempINI.ReadString('DATA','DOB','');
|
---|
| 547 | Sex:= tempINI.ReadString('DATA','SEX','');
|
---|
| 548 | SSNum:= tempINI.ReadString('DATA','SS_NUM','');
|
---|
| 549 | AddressLine1:= tempINI.ReadString('DATA','ADDRESS_LINE_1','');
|
---|
| 550 | AddressLine2:= tempINI.ReadString('DATA','ADDRESS_LINE_2','');
|
---|
| 551 | AddressLine3:= tempINI.ReadString('DATA','ADDRESS_LINE_3','');
|
---|
| 552 | City:= tempINI.ReadString('DATA','CITY','');
|
---|
| 553 | State:= tempINI.ReadString('DATA','STATE','');
|
---|
| 554 | Zip4:= tempINI.ReadString('DATA','ZIP4','');
|
---|
| 555 | BadAddress:= BoolUC(tempINI.ReadString('DATA','BAD_ADDRESS','')<>'');
|
---|
| 556 | TempAddressLine1:= tempINI.ReadString('DATA','TEMP_ADDRESS_LINE_1','');
|
---|
| 557 | TempAddressLine2:= tempINI.ReadString('DATA','TEMP_ADDRESS_LINE_2','');
|
---|
| 558 | TempAddressLine3:= tempINI.ReadString('DATA','TEMP_ADDRESS_LINE_3','');
|
---|
| 559 | TempCity:= tempINI.ReadString('DATA','TEMP_CITY','');
|
---|
| 560 | TempState:=tempINI.ReadString('DATA','TEMP_STATE','');
|
---|
| 561 | TempZip4:= tempINI.ReadString('DATA','TEMP_ZIP4','');
|
---|
| 562 | TempStartingDate :=tempINI.ReadString('DATA','TEMP_STARTING_DATE','');
|
---|
| 563 | TempEndingDate := tempINI.ReadString('DATA','TEMP_ENDING_DATE','');
|
---|
| 564 | TempAddressActive:= BoolUC(tempINI.ReadString('DATA','TEMP_ADDRESS_ACTIVE','')='YES');
|
---|
| 565 | ConfidentalAddressLine1:= tempINI.ReadString('DATA','CONF_ADDRESS_LINE_1','');
|
---|
| 566 | ConfidentalAddressLine2:= tempINI.ReadString('DATA','CONF_ADDRESS_LINE_2','');
|
---|
| 567 | ConfidentalAddressLine3:= tempINI.ReadString('DATA','CONF_ADDRESS_LINE_3','');
|
---|
| 568 | ConfidentalCity:= tempINI.ReadString('DATA','CONF_CITY','');
|
---|
| 569 | ConfidentalState:= tempINI.ReadString('DATA','CONF_STATE','');
|
---|
| 570 | ConfidentalZip4:= tempINI.ReadString('DATA','CONF_ZIP4','');
|
---|
| 571 | ConfidentalStartingDate := tempINI.ReadString('DATA','CONG_STARTING_DATE','');
|
---|
| 572 | ConfidentalEndingDate := tempINI.ReadString('DATA','CONF_ENDING_DATE','');
|
---|
| 573 | ConfAddressActive:= BoolUC(tempINI.ReadString('DATA','CONF_ADDRESS_ACTIVE','')='YES');
|
---|
| 574 | PhoneNumResidence:= tempINI.ReadString('DATA','PHONE_RESIDENCE','');
|
---|
| 575 | PhoneNumWork:= tempINI.ReadString('DATA','PHONE_WORK','');
|
---|
| 576 | PhoneNumCell:= tempINI.ReadString('DATA','PHONE_CELL','');
|
---|
| 577 | PhoneNumTemp:= tempINI.ReadString('DATA','PHONE_TEMP','');
|
---|
| 578 | end;
|
---|
| 579 | FCurPatientInfo.Assign(FServerPatientInfo);
|
---|
| 580 | tempINI.Free; //I don't write out, so should never end up on disk.
|
---|
| 581 | end;
|
---|
| 582 |
|
---|
| 583 | procedure TfrmPtDemoEdit.PostChangedInfo(PatientInfo : TPatientInfo);
|
---|
| 584 |
|
---|
| 585 | procedure CheckBUCPost(Title : string; Value : BoolUC);
|
---|
| 586 | begin
|
---|
| 587 | if Value <> bucUnchanged then begin
|
---|
| 588 | if Value = bucTrue then RPCBrokerV.Param[1].Mult['"'+Title+'"'] := 'YES';
|
---|
| 589 | if Value = bucFalse then RPCBrokerV.Param[1].Mult['"'+Title+'"'] := 'NO';
|
---|
| 590 | end;
|
---|
| 591 | end;
|
---|
| 592 |
|
---|
| 593 | procedure CheckPost(Title, Value : string);
|
---|
| 594 | begin
|
---|
| 595 | if Value <> '' then RPCBrokerV.Param[1].Mult['"'+Title+'"'] := Value;
|
---|
| 596 | end;
|
---|
| 597 |
|
---|
| 598 | var i : integer;
|
---|
| 599 | pAlias : tAlias;
|
---|
| 600 | begin
|
---|
| 601 | RPCBrokerV.remoteprocedure := 'TMG SET PATIENT DEMOGRAPHICS';
|
---|
| 602 | RPCBrokerV.param[0].value := Patient.DFN; RPCBrokerV.param[0].ptype := literal;
|
---|
| 603 |
|
---|
| 604 | RPCBrokerV.Param[1].PType := list;
|
---|
| 605 | with PatientInfo do begin
|
---|
| 606 | CheckPost('COMBINED_NAME',CombinedName);
|
---|
| 607 | //CheckPost('LNAME', LName); //Don't send because data is in COMBINED NAME
|
---|
| 608 | //CheckPost('FNAME',FName);
|
---|
| 609 | //CheckPost('MNAME',MName);
|
---|
| 610 | //CheckPost('PREFIX',Prefix);
|
---|
| 611 | //CheckPost('SUFFIX',Suffix);
|
---|
| 612 | //CheckPost('DEGREE',Degree);
|
---|
| 613 | CheckPost('DOB',DOB);
|
---|
| 614 | CheckPost('SEX',Sex);
|
---|
| 615 | CheckPost('SS_NUM',SSNum);
|
---|
| 616 | CheckPost('ADDRESS_LINE_1',AddressLine1);
|
---|
| 617 | CheckPost('ADDRESS_LINE_2',AddressLine2);
|
---|
| 618 | CheckPost('ADDRESS_LINE_3',AddressLine3);
|
---|
| 619 | CheckPost('CITY',City);
|
---|
| 620 | CheckPost('STATE',State);
|
---|
| 621 | CheckPost('ZIP4',Zip4);
|
---|
| 622 |
|
---|
| 623 | CheckPost('TEMP_ADDRESS_LINE_1',TempAddressLine1);
|
---|
| 624 | CheckPost('TEMP_ADDRESS_LINE_2',TempAddressLine2);
|
---|
| 625 | CheckPost('TEMP_ADDRESS_LINE_3',TempAddressLine3);
|
---|
| 626 | CheckPost('TEMP_CITY',TempCity);
|
---|
| 627 | CheckPost('TEMP_STATE',TempState);
|
---|
| 628 | CheckPost('TEMP_ZIP4',TempZip4);
|
---|
| 629 | CheckPost('TEMP_STARTING_DATE',TempStartingDate );
|
---|
| 630 | CheckPost('TEMP_ENDING_DATE',TempEndingDate );
|
---|
| 631 | CheckPost('CONF_ADDRESS_LINE_1',ConfidentalAddressLine1);
|
---|
| 632 | CheckPost('CONF_ADDRESS_LINE_2',ConfidentalAddressLine2);
|
---|
| 633 | CheckPost('CONF_ADDRESS_LINE_3',ConfidentalAddressLine3);
|
---|
| 634 | CheckPost('CONF_CITY',ConfidentalCity);
|
---|
| 635 | CheckPost('CONF_STATE',ConfidentalState);
|
---|
| 636 | CheckPost('CONF_ZIP4',ConfidentalZip4);
|
---|
| 637 | CheckPost('CONG_STARTING_DATE',ConfidentalStartingDate );
|
---|
| 638 | CheckPost('CONF_ENDING_DATE',ConfidentalEndingDate );
|
---|
| 639 | CheckPost('PHONE_RESIDENCE',PhoneNumResidence);
|
---|
| 640 | CheckPost('PHONE_WORK',PhoneNumWork);
|
---|
| 641 | CheckPost('PHONE_CELL',PhoneNumCell);
|
---|
| 642 | CheckPost('PHONE_TEMP',PhoneNumTemp);
|
---|
| 643 |
|
---|
| 644 | case BadAddress of
|
---|
| 645 | bucTrue: RPCBrokerV.Param[1].Mult['"BAD_ADDRESS"'] := 'UNDELIVERABLE';
|
---|
| 646 | bucFalse: RPCBrokerV.Param[1].Mult['"BAD_ADDRESS"'] := '@';
|
---|
| 647 | end; {case}
|
---|
| 648 | CheckBUCPost('TEMP_ADDRESS_ACTIVE', TempAddressActive);
|
---|
| 649 | CheckBUCPost('CONF_ADDRESS_ACTIVE', ConfAddressActive);
|
---|
| 650 |
|
---|
| 651 | for i := 0 to AliasInfo.Count-1 do begin
|
---|
| 652 | pAlias := tAlias(AliasInfo.Objects[i]);
|
---|
| 653 | if (pAlias=nil) then continue;
|
---|
| 654 | RPCBrokerV.Param[1].Mult['"ALIAS ' + AliasInfo.Strings[i] + ' NAME"'] := pAlias.Name;
|
---|
| 655 | if pAlias.Name <> '@' then begin
|
---|
| 656 | RPCBrokerV.Param[1].Mult['"ALIAS ' + AliasInfo.Strings[i] + ' SSN"'] := pAlias.SSN;
|
---|
| 657 | end;
|
---|
| 658 | end;
|
---|
| 659 |
|
---|
| 660 | RPCBrokerV.Call;
|
---|
| 661 | if RPCBrokerV.Results.Strings[0]<>'1' then begin
|
---|
| 662 | MessageDlg(RPCBrokerV.Results.Strings[0],mtError,[mbOK],0);
|
---|
| 663 | end else begin
|
---|
| 664 | ChangesMade := true;
|
---|
| 665 | end;
|
---|
| 666 | end;
|
---|
| 667 | end;
|
---|
| 668 |
|
---|
| 669 |
|
---|
| 670 | procedure TfrmPtDemoEdit.ShowPtInfo(Patient : TPatientInfo);
|
---|
| 671 | var i : integer;
|
---|
| 672 | pAlias : tAlias;
|
---|
| 673 | begin
|
---|
| 674 | ProgNameChangeOccuring := true;
|
---|
| 675 | With Patient do begin
|
---|
| 676 | LNameEdit.Text := LName;
|
---|
| 677 | FNameEdit.Text := FName;
|
---|
| 678 | MNameEdit.Text := MName;
|
---|
| 679 | CombinedNameEdit.Text := CombinedName;
|
---|
| 680 | PrefixEdit.Text := Prefix;
|
---|
| 681 | SuffixEdit.Text := Suffix;
|
---|
| 682 | DegreeEdit.Text := Degree;
|
---|
| 683 | DOBEdit.Text := DOB;
|
---|
| 684 | SSNumEdit.Text := SSNum;
|
---|
| 685 | if Sex='MALE' then SexComboBox.ItemIndex := 0 else SexComboBox.ItemIndex := 1;
|
---|
| 686 | AliasComboBox.Items.Clear;
|
---|
| 687 | for i := 0 to AliasInfo.Count-1 do begin
|
---|
| 688 | pAlias := tAlias(AliasInfo.Objects[i]);
|
---|
| 689 | if pAlias<>nil then begin
|
---|
| 690 | AliasComboBox.Items.AddObject(pAlias.Name,pAlias);
|
---|
| 691 | end;
|
---|
| 692 | end;
|
---|
| 693 | if AliasComboBox.Items.count>0 then begin
|
---|
| 694 | AliasComboBox.ItemIndex := 0;
|
---|
| 695 | SetAliasEnabled(true);
|
---|
| 696 | end;
|
---|
| 697 | ShowAliasInfo(Patient);
|
---|
| 698 |
|
---|
| 699 | PhoneNumGrp.ItemIndex := 0;
|
---|
| 700 | PhoneNumGrpClick(self);
|
---|
| 701 | end;
|
---|
| 702 |
|
---|
| 703 | BadAddressCB.Visible := false;
|
---|
| 704 | TempActiveCB.Visible := false;
|
---|
| 705 | ProgNameChangeOccuring := false;
|
---|
| 706 | end;
|
---|
| 707 |
|
---|
| 708 | procedure TfrmPtDemoEdit.ShowAliasInfo(Patient : TPatientInfo);
|
---|
| 709 | var i : integer;
|
---|
| 710 | pAlias : tAlias;
|
---|
| 711 | begin
|
---|
| 712 | i := AliasComboBox.ItemIndex;
|
---|
| 713 | if i > -1 then begin
|
---|
| 714 | if i < Patient.AliasInfo.Count then begin
|
---|
| 715 | pAlias := tAlias(Patient.AliasInfo.Objects[i]);
|
---|
| 716 | end else pAlias := nil;
|
---|
| 717 | ProgAliasChangeOccuring := true;
|
---|
| 718 | if pAlias<>nil then begin
|
---|
| 719 | AliasNameEdit.Text := pAlias.Name;
|
---|
| 720 | AliasSSNEdit.Text := pAlias.SSN;
|
---|
| 721 | end else begin
|
---|
| 722 | AliasNameEdit.Text := '';
|
---|
| 723 | AliasSSNEdit.Text := '';
|
---|
| 724 | end;
|
---|
| 725 | ProgAliasChangeOccuring := false;
|
---|
| 726 | end;
|
---|
| 727 | end;
|
---|
| 728 |
|
---|
| 729 |
|
---|
| 730 | procedure TfrmPtDemoEdit.AliasComboBoxChange(Sender: TObject);
|
---|
| 731 | var s : string;
|
---|
| 732 | i : integer;
|
---|
| 733 | begin
|
---|
| 734 | if ProgAliasChangeOccuring=false then begin
|
---|
| 735 | i := AliasCombobox.ItemIndex;
|
---|
| 736 | if i>-1 then begin
|
---|
| 737 | s := AliasCombobox.Items.Strings[i];
|
---|
| 738 | SetAliasEnabled(true);
|
---|
| 739 | end else begin
|
---|
| 740 | SetAliasEnabled(false);
|
---|
| 741 | end;
|
---|
| 742 | ShowAliasInfo(FCurPatientInfo);
|
---|
| 743 | end;
|
---|
| 744 | end;
|
---|
| 745 |
|
---|
| 746 | procedure TfrmPtDemoEdit.FormCreate(Sender: TObject);
|
---|
| 747 | begin
|
---|
| 748 | FCurAliasEdit := -1;
|
---|
| 749 | FCurPatientInfo := TPatientInfo.Create;
|
---|
| 750 | FServerPatientInfo := TPatientInfo.Create;
|
---|
| 751 | ProgAliasChangeOccuring := false;
|
---|
| 752 | ProgNameChangeOccuring := false;
|
---|
| 753 | ProgPhoneChangeOccuring := false;
|
---|
| 754 | ProgAddressChangeOccuring := false;
|
---|
| 755 | MaxAliasIEN := 0;
|
---|
| 756 | ChangesMade := false;
|
---|
| 757 | end;
|
---|
| 758 |
|
---|
| 759 | procedure TfrmPtDemoEdit.FormDestroy(Sender: TObject);
|
---|
| 760 | begin
|
---|
| 761 | FCurPatientInfo.Destroy;
|
---|
| 762 | FServerPatientInfo.Destroy;
|
---|
| 763 | end;
|
---|
| 764 |
|
---|
| 765 |
|
---|
| 766 | procedure TfrmPtDemoEdit.AddressRGrpClick(Sender: TObject);
|
---|
| 767 | begin
|
---|
| 768 | {fill in data for newly selected fields}
|
---|
| 769 | ProgAddressChangeOccuring := true;
|
---|
| 770 | TempActiveCB.Visible := false;
|
---|
| 771 | BadAddressCB.Visible := false;
|
---|
| 772 | ConfActiveCB.Visible := false;
|
---|
| 773 | StartingDateLabel.Visible := false;
|
---|
| 774 | StartingDateEdit.Visible := false;
|
---|
| 775 | EndingDateLabel.Visible := false;
|
---|
| 776 | EndingDateEdit.Visible := false;
|
---|
| 777 | case AddressRGrp.ItemIndex of
|
---|
| 778 | 0 : begin //Permanant
|
---|
| 779 | AddressLine1Edit.Text := FCurPatientInfo.AddressLine1;
|
---|
| 780 | AddressLine2Edit.Text := FCurPatientInfo.AddressLine2;
|
---|
| 781 | AddressLine3Edit.text := FCurPatientInfo.AddressLine3;
|
---|
| 782 | CityEdit.text := FCurPatientInfo.City;
|
---|
| 783 | StateComboBox.text := FCurPatientInfo.State;
|
---|
| 784 | Zip4Edit.text := FCurPatientInfo.Zip4;
|
---|
| 785 | BadAddressCB.Visible := true;
|
---|
| 786 | BadAddressCB.Checked := (FCurPatientInfo.BadAddress=bucTrue);
|
---|
| 787 | end;
|
---|
| 788 | 1 : begin //temp
|
---|
| 789 | AddressLine1Edit.Text := FCurPatientInfo.TempAddressLine1;
|
---|
| 790 | AddressLine2Edit.Text := FCurPatientInfo.TempAddressLine2;
|
---|
| 791 | AddressLine3Edit.Text := FCurPatientInfo.TempAddressLine3;
|
---|
| 792 | CityEdit.Text := FCurPatientInfo.TempCity;
|
---|
| 793 | StateComboBox.Text := FCurPatientInfo.TempState;
|
---|
| 794 | Zip4Edit.Text := FCurPatientInfo.TempZip4;
|
---|
| 795 | StartingDateEdit.Text := FCurPatientInfo.TempStartingDate ;
|
---|
| 796 | EndingDateEdit.Text := FCurPatientInfo.TempEndingDate ;
|
---|
| 797 | StartingDateLabel.Visible := true;
|
---|
| 798 | StartingDateEdit.Visible := true;
|
---|
| 799 | EndingDateLabel.Visible := true;
|
---|
| 800 | EndingDateEdit.Visible := true;
|
---|
| 801 | TempActiveCB.Visible := true;
|
---|
| 802 | TempActiveCB.Checked := (FCurPatientInfo.TempAddressActive=bucTrue);
|
---|
| 803 | end;
|
---|
| 804 | 2 : begin //confidental
|
---|
| 805 | AddressLine1Edit.Text := FCurPatientInfo.ConfidentalAddressLine1;
|
---|
| 806 | AddressLine2Edit.Text := FCurPatientInfo.ConfidentalAddressLine2;
|
---|
| 807 | AddressLine3Edit.Text := FCurPatientInfo.ConfidentalAddressLine3;
|
---|
| 808 | CityEdit.Text := FCurPatientInfo.ConfidentalCity;
|
---|
| 809 | StateComboBox.Text := FCurPatientInfo.ConfidentalState;
|
---|
| 810 | Zip4Edit.Text := FCurPatientInfo.ConfidentalZip4;
|
---|
| 811 | StartingDateEdit.Text := FCurPatientInfo.ConfidentalStartingDate ;
|
---|
| 812 | EndingDateEdit.Text := FCurPatientInfo.ConfidentalEndingDate ;
|
---|
| 813 | StartingDateLabel.Visible := true;
|
---|
| 814 | StartingDateEdit.Visible := true;
|
---|
| 815 | EndingDateLabel.Visible := true;
|
---|
| 816 | EndingDateEdit.Visible := true;
|
---|
| 817 | ConfActiveCB.Visible := true;
|
---|
| 818 | ConfActiveCB.Checked := (FCurPatientInfo.ConfAddressActive=bucTrue);
|
---|
| 819 | end;
|
---|
| 820 | end; {case}
|
---|
| 821 | ProgAddressChangeOccuring := false;
|
---|
| 822 | end;
|
---|
| 823 |
|
---|
| 824 | procedure TfrmPtDemoEdit.PhoneNumGrpClick(Sender: TObject);
|
---|
| 825 | begin
|
---|
| 826 | ProgPhoneChangeOccuring := true;
|
---|
| 827 | case PhoneNumGrp.ItemIndex of
|
---|
| 828 | 0 : begin //Residence
|
---|
| 829 | PhoneNumEdit.Text := FCurPatientInfo.PhoneNumResidence;
|
---|
| 830 | end;
|
---|
| 831 | 1 : begin //work
|
---|
| 832 | PhoneNumEdit.Text := FCurPatientInfo.PhoneNumWork;
|
---|
| 833 | end;
|
---|
| 834 | 2 : begin //cell
|
---|
| 835 | PhoneNumEdit.Text := FCurPatientInfo.PhoneNumCell;
|
---|
| 836 | end;
|
---|
| 837 | 3 : begin //temp
|
---|
| 838 | PhoneNumEdit.Text := FCurPatientInfo.PhoneNumTemp;
|
---|
| 839 | end;
|
---|
| 840 | else begin
|
---|
| 841 | PhoneNumEdit.Text := '';
|
---|
| 842 | end;
|
---|
| 843 | end; {case}
|
---|
| 844 | ProgPhoneChangeOccuring := false;
|
---|
| 845 | end;
|
---|
| 846 |
|
---|
| 847 | procedure TfrmPtDemoEdit.DelAliasBtnClick(Sender: TObject);
|
---|
| 848 | var i, j : integer;
|
---|
| 849 | pAlias : tAlias;
|
---|
| 850 | begin
|
---|
| 851 | i := AliasComboBox.ItemIndex;
|
---|
| 852 | if i > -1 then begin
|
---|
| 853 | pAlias := tAlias(AliasComboBox.Items.Objects[i]);
|
---|
| 854 | if pAlias<>nil then begin
|
---|
| 855 | for j := 0 to FCurPatientInfo.AliasInfo.Count-1 do begin
|
---|
| 856 | if FCurPatientInfo.AliasInfo.Objects[j] = pAlias then begin
|
---|
| 857 | FCurPatientInfo.AliasInfo.Delete(j);
|
---|
| 858 | SetModified(true);
|
---|
| 859 | pAlias.Free;
|
---|
| 860 | AliasComboBox.Items.Delete(i);
|
---|
| 861 | //AliasComboBox.ItemIndex := 0;
|
---|
| 862 | //ShowAliasInfo(FCurPatientInfo);
|
---|
| 863 | ProgAliasChangeOccuring:= true;
|
---|
| 864 | AliasNameEdit.Text:='';
|
---|
| 865 | AliasSSNEdit.Text:='';
|
---|
| 866 | ProgAliasChangeOccuring:= false;
|
---|
| 867 | break;
|
---|
| 868 | end;
|
---|
| 869 | end;
|
---|
| 870 | end;
|
---|
| 871 | end;
|
---|
| 872 | if AliasCombobox.Items.Count=0 then begin
|
---|
| 873 | AliasNameEdit.Text:='';
|
---|
| 874 | AliasSSNEdit.Text:='';
|
---|
| 875 | SetAliasEnabled(false);
|
---|
| 876 | AliasCombobox.Text := '';
|
---|
| 877 | end;
|
---|
| 878 | end;
|
---|
| 879 |
|
---|
| 880 | procedure TfrmPtDemoEdit.FormShow(Sender: TObject);
|
---|
| 881 | begin
|
---|
| 882 | GetPtInfo(FServerPatientInfo);
|
---|
| 883 | FCurPatientInfo.Assign(FServerPatientInfo);
|
---|
| 884 | ShowPtInfo(FCurPatientInfo);
|
---|
| 885 | end;
|
---|
| 886 |
|
---|
| 887 | procedure TfrmPtDemoEdit.CombinedNameEditChange(Sender: TObject);
|
---|
| 888 | var LName,FName,MName : string;
|
---|
| 889 | begin
|
---|
| 890 | if ProgNameChangeOccuring = false then begin
|
---|
| 891 | FCurPatientInfo.CombinedName := CombinedNameEdit.Text;
|
---|
| 892 | SetModified(true);
|
---|
| 893 | if CombinedNameEdit.Text <> CombinedName then begin
|
---|
| 894 | ProgNameChangeOccuring := true;
|
---|
| 895 | NameParts(CombinedNameEdit.Text, LName, FName, MName);
|
---|
| 896 | LNameEdit.Text := LName;
|
---|
| 897 | FNameEdit.Text := FName;
|
---|
| 898 | MNameEdit.Text := MName;
|
---|
| 899 | ProgNameChangeOccuring := false;
|
---|
| 900 | end;
|
---|
| 901 | end;
|
---|
| 902 | end;
|
---|
| 903 |
|
---|
| 904 | procedure TfrmPtDemoEdit.LNameEditChange(Sender: TObject);
|
---|
| 905 | begin
|
---|
| 906 | if ProgNameChangeOccuring = false then begin
|
---|
| 907 | FCurPatientInfo.LName := LNameEdit.Text;
|
---|
| 908 | SetModified(true);
|
---|
| 909 | CombinedNameEdit.Text := CombinedName;
|
---|
| 910 | end;
|
---|
| 911 | end;
|
---|
| 912 |
|
---|
| 913 | procedure TfrmPtDemoEdit.FNameEditChange(Sender: TObject);
|
---|
| 914 | begin
|
---|
| 915 | if ProgNameChangeOccuring = false then begin
|
---|
| 916 | FCurPatientInfo.FName := FNameEdit.Text;
|
---|
| 917 | SetModified(true);
|
---|
| 918 | CombinedNameEdit.Text := CombinedName;
|
---|
| 919 | end
|
---|
| 920 | end;
|
---|
| 921 |
|
---|
| 922 | procedure TfrmPtDemoEdit.MNameEditChange(Sender: TObject);
|
---|
| 923 | begin
|
---|
| 924 | if ProgNameChangeOccuring = false then begin
|
---|
| 925 | FCurPatientInfo.MName := MNameEdit.Text;
|
---|
| 926 | SetModified(true);
|
---|
| 927 | CombinedNameEdit.Text := CombinedName;
|
---|
| 928 | end;
|
---|
| 929 | end;
|
---|
| 930 |
|
---|
| 931 | procedure TfrmPtDemoEdit.PrefixEditChange(Sender: TObject);
|
---|
| 932 | begin
|
---|
| 933 | if ProgNameChangeOccuring = false then begin
|
---|
| 934 | FCurPatientInfo.Prefix := PrefixEdit.Text;
|
---|
| 935 | SetModified(true);
|
---|
| 936 | end;
|
---|
| 937 | end;
|
---|
| 938 |
|
---|
| 939 | procedure TfrmPtDemoEdit.SuffixEditChange(Sender: TObject);
|
---|
| 940 | begin
|
---|
| 941 | if ProgNameChangeOccuring = false then begin
|
---|
| 942 | FCurPatientInfo.Suffix := SuffixEdit.Text;
|
---|
| 943 | SetModified(true);
|
---|
| 944 | CombinedNameEdit.Text := CombinedName;
|
---|
| 945 | end;
|
---|
| 946 | end;
|
---|
| 947 |
|
---|
| 948 | procedure TfrmPtDemoEdit.DOBEditChange(Sender: TObject);
|
---|
| 949 | begin
|
---|
| 950 | if ProgNameChangeOccuring = false then begin
|
---|
| 951 | FCurPatientInfo.DOB := DOBEdit.Text;
|
---|
| 952 | SetModified(true);
|
---|
| 953 | end;
|
---|
| 954 | end;
|
---|
| 955 |
|
---|
| 956 | procedure TfrmPtDemoEdit.SSNumEditChange(Sender: TObject);
|
---|
| 957 | begin
|
---|
| 958 | if ProgNameChangeOccuring = false then begin
|
---|
| 959 | FCurPatientInfo.SSNum := SSNumEdit.Text;
|
---|
| 960 | SetModified(true);
|
---|
| 961 | end;
|
---|
| 962 | end;
|
---|
| 963 |
|
---|
| 964 | procedure TfrmPtDemoEdit.SexComboBoxChange(Sender: TObject);
|
---|
| 965 | begin
|
---|
| 966 | if ProgNameChangeOccuring = false then begin
|
---|
| 967 | FCurPatientInfo.Sex := SexComboBox.Text;
|
---|
| 968 | SetModified(true);
|
---|
| 969 | end;
|
---|
| 970 | end;
|
---|
| 971 |
|
---|
| 972 | procedure TfrmPtDemoEdit.DegreeEditChange(Sender: TObject);
|
---|
| 973 | begin
|
---|
| 974 | if ProgNameChangeOccuring = false then begin
|
---|
| 975 | FCurPatientInfo.Degree := DegreeEdit.Text;
|
---|
| 976 | SetModified(true);
|
---|
| 977 | end;
|
---|
| 978 | end;
|
---|
| 979 |
|
---|
| 980 | procedure TfrmPtDemoEdit.AddressLine1EditChange(Sender: TObject);
|
---|
| 981 | begin
|
---|
| 982 | if ProgAddressChangeOccuring = false then SetModified(true);
|
---|
| 983 | Case AddressRGrp.ItemIndex of
|
---|
| 984 | 0 : FCurPatientInfo.AddressLine1 := AddressLine1Edit.Text;
|
---|
| 985 | 1 : FCurPatientInfo.TempAddressLine1 := AddressLine1Edit.Text;
|
---|
| 986 | 2 : FCurPatientInfo.ConfidentalAddressLine1 := AddressLine1Edit.Text;
|
---|
| 987 | end; {case}
|
---|
| 988 | end;
|
---|
| 989 |
|
---|
| 990 | procedure TfrmPtDemoEdit.AddressLine2EditChange(Sender: TObject);
|
---|
| 991 | begin
|
---|
| 992 | if ProgAddressChangeOccuring = false then SetModified(true);
|
---|
| 993 | Case AddressRGrp.ItemIndex of
|
---|
| 994 | 0 : FCurPatientInfo.AddressLine2 := AddressLine2Edit.Text;
|
---|
| 995 | 1 : FCurPatientInfo.TempAddressLine2 := AddressLine2Edit.Text;
|
---|
| 996 | 2 : FCurPatientInfo.ConfidentalAddressLine2 := AddressLine2Edit.Text;
|
---|
| 997 | end; {case}
|
---|
| 998 | end;
|
---|
| 999 |
|
---|
| 1000 | procedure TfrmPtDemoEdit.AddressLine3EditChange(Sender: TObject);
|
---|
| 1001 | begin
|
---|
| 1002 | if ProgAddressChangeOccuring = false then SetModified(true);
|
---|
| 1003 | Case AddressRGrp.ItemIndex of
|
---|
| 1004 | 0 : FCurPatientInfo.AddressLine3 := AddressLine3Edit.Text;
|
---|
| 1005 | 1 : FCurPatientInfo.TempAddressLine3 := AddressLine3Edit.Text;
|
---|
| 1006 | 2 : FCurPatientInfo.ConfidentalAddressLine3 := AddressLine3Edit.Text;
|
---|
| 1007 | end; {case}
|
---|
| 1008 | end;
|
---|
| 1009 |
|
---|
| 1010 | procedure TfrmPtDemoEdit.CityEditChange(Sender: TObject);
|
---|
| 1011 | begin
|
---|
| 1012 | if ProgAddressChangeOccuring = false then SetModified(true);
|
---|
| 1013 | Case AddressRGrp.ItemIndex of
|
---|
| 1014 | 0 : FCurPatientInfo.City := CityEdit.Text;
|
---|
| 1015 | 1 : FCurPatientInfo.TempCity := CityEdit.Text;
|
---|
| 1016 | 2 : FCurPatientInfo.ConfidentalCity := CityEdit.Text;
|
---|
| 1017 | end; {case}
|
---|
| 1018 | end;
|
---|
| 1019 |
|
---|
| 1020 | procedure TfrmPtDemoEdit.Zip4EditChange(Sender: TObject);
|
---|
| 1021 | begin
|
---|
| 1022 | if ProgAddressChangeOccuring = false then SetModified(true);
|
---|
| 1023 | Case AddressRGrp.ItemIndex of
|
---|
| 1024 | 0 : FCurPatientInfo.Zip4 := Zip4Edit.Text;
|
---|
| 1025 | 1 : FCurPatientInfo.TempZip4 := Zip4Edit.Text;
|
---|
| 1026 | 2 : FCurPatientInfo.ConfidentalZip4 := Zip4Edit.Text;
|
---|
| 1027 | end; {case}
|
---|
| 1028 | end;
|
---|
| 1029 |
|
---|
| 1030 | procedure TfrmPtDemoEdit.StateComboBoxChange(Sender: TObject);
|
---|
| 1031 | begin
|
---|
| 1032 | if ProgAddressChangeOccuring = false then SetModified(true);
|
---|
| 1033 | Case AddressRGrp.ItemIndex of
|
---|
| 1034 | 0 : FCurPatientInfo.State := StateComboBox.Text;
|
---|
| 1035 | 1 : FCurPatientInfo.TempState := StateComboBox.Text;
|
---|
| 1036 | 2 : FCurPatientInfo.ConfidentalState := StateComboBox.Text;
|
---|
| 1037 | end; {case}
|
---|
| 1038 | end;
|
---|
| 1039 |
|
---|
| 1040 | procedure TfrmPtDemoEdit.TempActiveCBClick(Sender: TObject);
|
---|
| 1041 | begin
|
---|
| 1042 | FCurPatientInfo.TempAddressActive := BoolUC(TempActiveCB.Checked);
|
---|
| 1043 | if ProgAddressChangeOccuring = false then SetModified(true);
|
---|
| 1044 | end;
|
---|
| 1045 |
|
---|
| 1046 | procedure TfrmPtDemoEdit.ConfActiveCBClick(Sender: TObject);
|
---|
| 1047 | begin
|
---|
| 1048 | FCurPatientInfo.ConfAddressActive := BoolUC(ConfActiveCB.Checked);
|
---|
| 1049 | if ProgAddressChangeOccuring = false then SetModified(true);
|
---|
| 1050 | end;
|
---|
| 1051 |
|
---|
| 1052 | procedure TfrmPtDemoEdit.BadAddressCBClick(Sender: TObject);
|
---|
| 1053 | begin
|
---|
| 1054 | FCurPatientInfo.BadAddress := BoolUC(BadAddressCB.Checked);
|
---|
| 1055 | if ProgAddressChangeOccuring = false then SetModified(true);
|
---|
| 1056 | end;
|
---|
| 1057 |
|
---|
| 1058 | procedure TfrmPtDemoEdit.PhoneNumEditChange(Sender: TObject);
|
---|
| 1059 | begin
|
---|
| 1060 | if ProgPhoneChangeOccuring = false then SetModified(true);
|
---|
| 1061 | Case PhoneNumGrp.ItemIndex of
|
---|
| 1062 | 0 : FCurPatientInfo.PhoneNumResidence := PhoneNumEdit.Text;
|
---|
| 1063 | 1 : FCurPatientInfo.PhoneNumWork := PhoneNumEdit.Text;
|
---|
| 1064 | 2 : FCurPatientInfo.PhoneNumCell := PhoneNumEdit.Text;
|
---|
| 1065 | 3 : FCurPatientInfo.PhoneNumTemp := PhoneNumEdit.Text;
|
---|
| 1066 | end; {case}
|
---|
| 1067 |
|
---|
| 1068 | end;
|
---|
| 1069 |
|
---|
| 1070 | procedure TfrmPtDemoEdit.StartingDateEditChange(Sender: TObject);
|
---|
| 1071 | begin
|
---|
| 1072 | if ProgAddressChangeOccuring = false then SetModified(true);
|
---|
| 1073 | Case AddressRGrp.ItemIndex of
|
---|
| 1074 | 1 : FCurPatientInfo.TempStartingDate := StartingDateEdit.Text;
|
---|
| 1075 | 2 : FCurPatientInfo.ConfidentalStartingDate := StartingDateEdit.Text;
|
---|
| 1076 | end; {case}
|
---|
| 1077 | end;
|
---|
| 1078 |
|
---|
| 1079 | procedure TfrmPtDemoEdit.EndingDateEditChange(Sender: TObject);
|
---|
| 1080 | begin
|
---|
| 1081 | if ProgAddressChangeOccuring = false then SetModified(true);
|
---|
| 1082 | Case AddressRGrp.ItemIndex of
|
---|
| 1083 | 1 : FCurPatientInfo.TempEndingDate := EndingDateEdit.Text;
|
---|
| 1084 | 2 : FCurPatientInfo.ConfidentalEndingDate := EndingDateEdit.Text;
|
---|
| 1085 | end; {case}
|
---|
| 1086 | end;
|
---|
| 1087 |
|
---|
| 1088 | procedure TfrmPtDemoEdit.AliasNameEditChange(Sender: TObject);
|
---|
| 1089 | var i : integer;
|
---|
| 1090 | pAlias : tAlias;
|
---|
| 1091 | tempB : boolean;
|
---|
| 1092 | begin
|
---|
| 1093 | if ProgAliasChangeOccuring=false then begin
|
---|
| 1094 | i := AliasComboBox.ItemIndex;
|
---|
| 1095 | if i > -1 then begin
|
---|
| 1096 | pAlias := tAlias(AliasComboBox.Items.Objects[i]);
|
---|
| 1097 | if pAlias<>nil then begin
|
---|
| 1098 | pAlias.Name := AliasNameEdit.Text;
|
---|
| 1099 | AliasComboBox.Items.Strings[i]:= AliasNameEdit.Text;
|
---|
| 1100 | AliasComboBox.Text := AliasNameEdit.Text;
|
---|
| 1101 | tempB := ProgAliasChangeOccuring;
|
---|
| 1102 | ProgAliasChangeOccuring:=true;
|
---|
| 1103 | AliasComboBox.ItemIndex := i;
|
---|
| 1104 | ProgAliasChangeOccuring:=tempB;
|
---|
| 1105 | SetModified(true);
|
---|
| 1106 | end;
|
---|
| 1107 | end;
|
---|
| 1108 | end;
|
---|
| 1109 | end;
|
---|
| 1110 |
|
---|
| 1111 |
|
---|
| 1112 | procedure TfrmPtDemoEdit.AliasSSNEditChange(Sender: TObject);
|
---|
| 1113 | var i : integer;
|
---|
| 1114 | pAlias : tAlias;
|
---|
| 1115 | begin
|
---|
| 1116 | if ProgAliasChangeOccuring=false then begin
|
---|
| 1117 | i := AliasComboBox.ItemIndex;
|
---|
| 1118 | if i > -1 then begin
|
---|
| 1119 | pAlias := tAlias(AliasComboBox.Items.Objects[i]);
|
---|
| 1120 | if pAlias<>nil then begin
|
---|
| 1121 | pAlias.SSN := AliasSSNEdit.Text;
|
---|
| 1122 | SetModified(true);
|
---|
| 1123 | end;
|
---|
| 1124 | end;
|
---|
| 1125 | end;
|
---|
| 1126 | end;
|
---|
| 1127 |
|
---|
| 1128 | procedure TfrmPtDemoEdit.SetAliasEnabled(value : boolean);
|
---|
| 1129 | begin
|
---|
| 1130 | AliasNameEdit.Enabled := value;
|
---|
| 1131 | AliasSSNEdit.Enabled := value;
|
---|
| 1132 | if value=true then begin
|
---|
| 1133 | AliasNameEdit.Color := clWindow;
|
---|
| 1134 | AliasSSNEdit.Color := clWindow;
|
---|
| 1135 | end else begin
|
---|
| 1136 | AliasNameEdit.Color := clInactiveBorder;
|
---|
| 1137 | AliasSSNEdit.Color := clInactiveBorder;
|
---|
| 1138 | end;
|
---|
| 1139 | end;
|
---|
| 1140 |
|
---|
| 1141 |
|
---|
| 1142 | function TfrmPtDemoEdit.CombinedName : string;
|
---|
| 1143 | begin
|
---|
| 1144 | Result := '';
|
---|
| 1145 | Result := FNameEdit.Text;
|
---|
| 1146 | if MNameEdit.Text <> '' then Result := Result + ' ' + MNameEdit.Text;
|
---|
| 1147 | if SuffixEdit.Text <> '' then Result := Result + ' ' + SuffixEdit.Text;
|
---|
| 1148 | if Result <> '' then Result := ',' + Result;
|
---|
| 1149 | Result := LNameEdit.Text + Result;
|
---|
| 1150 | end;
|
---|
| 1151 |
|
---|
| 1152 | procedure TfrmPtDemoEdit.NameParts(CombinedName: string; var LName, FName, MName : string);
|
---|
| 1153 | var tempS : string;
|
---|
| 1154 | begin
|
---|
| 1155 | LName := piece(CombinedName,',',1);
|
---|
| 1156 | tempS := piece(CombinedName,',',2);
|
---|
| 1157 | FName := piece(tempS,' ',1);
|
---|
| 1158 | MName := piece(tempS,' ',2,16);
|
---|
| 1159 | end;
|
---|
| 1160 |
|
---|
| 1161 |
|
---|
| 1162 | procedure TfrmPtDemoEdit.ApplyBtnClick(Sender: TObject);
|
---|
| 1163 | var TempPatientInfo : tPatientInfo;
|
---|
| 1164 | begin
|
---|
| 1165 | TempPatientInfo := tPatientInfo.Create;
|
---|
| 1166 | TempPatientInfo.Assign(FCurPatientInfo);
|
---|
| 1167 | TempPatientInfo.RemoveUnchanged(FServerPatientInfo);
|
---|
| 1168 | PostChangedInfo(TempPatientInfo);
|
---|
| 1169 | TempPatientInfo.Destroy;
|
---|
| 1170 | SetModified(false);
|
---|
| 1171 | end;
|
---|
| 1172 |
|
---|
| 1173 | procedure TfrmPtDemoEdit.SetModified(value : boolean);
|
---|
| 1174 | begin
|
---|
| 1175 | FCurPatientInfo.Modified := value;
|
---|
| 1176 | ApplyBtn.Enabled := FCurPatientInfo.Modified;
|
---|
| 1177 | end;
|
---|
| 1178 |
|
---|
| 1179 | procedure TfrmPtDemoEdit.AddAliasBtnClick(Sender: TObject);
|
---|
| 1180 | var pAlias : tAlias;
|
---|
| 1181 | IEN : string;
|
---|
| 1182 | begin
|
---|
| 1183 | pAlias := tAlias.Create;
|
---|
| 1184 | if FCurPatientInfo.AliasInfo.count>0 then begin
|
---|
| 1185 | IEN := FCurPatientInfo.AliasInfo.Strings[FCurPatientInfo.AliasInfo.count-1];
|
---|
| 1186 | end else begin
|
---|
| 1187 | IEN := IntToStr(MaxAliasIEN);
|
---|
| 1188 | end;
|
---|
| 1189 | MaxAliasIEN := StrToInt(IEN)+1;
|
---|
| 1190 | IEN := IntToStr(MaxAliasIEN);
|
---|
| 1191 | FCurPatientInfo.AliasInfo.AddObject(IEN,pAlias);
|
---|
| 1192 | SetModified(true);
|
---|
| 1193 | AliasCombobox.Items.AddObject('<Edit New Alias>',pAlias);
|
---|
| 1194 | //pAlias.Name := '<Edit New Alias>';
|
---|
| 1195 | //AliasCombobox.Items.Add(ADD_NEW_ALIAS);
|
---|
| 1196 | AliasCombobox.ItemIndex := AliasCombobox.Items.Count-1;
|
---|
| 1197 | SetAliasEnabled(true);
|
---|
| 1198 | ShowAliasInfo(FCurPatientInfo);
|
---|
| 1199 | end;
|
---|
| 1200 |
|
---|
| 1201 | procedure TfrmPtDemoEdit.OKBtnClick(Sender: TObject);
|
---|
| 1202 | begin
|
---|
| 1203 | if FCurPatientInfo.Modified = true then begin
|
---|
| 1204 | case MessageDlg('Apply Changes?',mtConfirmation,mbYesNoCancel,0) of
|
---|
| 1205 | mrYes : begin
|
---|
| 1206 | ApplyBtnClick(Sender);
|
---|
| 1207 | frmPtDemoEdit.ModalResult := mrOK; //closes form
|
---|
| 1208 | end;
|
---|
| 1209 | mrNo : begin
|
---|
| 1210 | if ChangesMade = false then frmPtDemoEdit.ModalResult := mrCancel // closes form, signal no need for refresh
|
---|
| 1211 | else frmPtDemoEdit.ModalResult := mrOK; // closes form.
|
---|
| 1212 | end;
|
---|
| 1213 | mrCancel : frmPtDemoEdit.ModalResult := mrNone; //do nothing
|
---|
| 1214 | end; {case}
|
---|
| 1215 | end else begin
|
---|
| 1216 | if ChangesMade = false then frmPtDemoEdit.ModalResult := mrCancel // closes form, signal no need for refresh
|
---|
| 1217 | else frmPtDemoEdit.ModalResult := mrOK; // closes form.
|
---|
| 1218 | end;
|
---|
| 1219 | end;
|
---|
| 1220 |
|
---|
| 1221 | procedure TfrmPtDemoEdit.CancelBtnClick(Sender: TObject);
|
---|
| 1222 | begin
|
---|
| 1223 | if FCurPatientInfo.Modified = true then begin
|
---|
| 1224 | case MessageDlg('Cancel Changes?',mtConfirmation,mbYesNoCancel,0) of
|
---|
| 1225 | mrYes : frmPtDemoEdit.ModalResult := mrCancel; //closes form
|
---|
| 1226 | mrNo : frmPtDemoEdit.ModalResult := mrNone; //do nothing
|
---|
| 1227 | mrCancel : frmPtDemoEdit.ModalResult := mrNone; //do nothing
|
---|
| 1228 | end; {case}
|
---|
| 1229 | end else begin
|
---|
| 1230 | frmPtDemoEdit.ModalResult := mrCancel; // closes form.
|
---|
| 1231 | end;
|
---|
| 1232 |
|
---|
| 1233 | end;
|
---|
| 1234 |
|
---|
| 1235 |
|
---|
| 1236 |
|
---|
| 1237 | end.
|
---|