Context Navigation

fPtDemoEdit.pas@ 1096

Last change on this file since 1096 was 819, checked in by Kevin Toppenberg, 15 years ago
Fixed crash on non-login
File size: 67.0 KB

Rev	Line
[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,
[819]	8	Dialogs, ComCtrls, StdCtrls, ExtCtrls, DKLang, Grids, SortStringGrid;
[453]	9
	10	type
	11	BoolUC = (bucFalse, bucTrue, bucUnchanged);
[541]	12
	13	tFileEntry = record
	14	Field : string;
	15	FileNum : string;
	16	FieldName : String;
	17	IENS : string;
	18	oldValue,newValue : string;
	19	end;
	20
	21	TGridInfo = class; //forward declaration
	22	TGridDataLoader = procedure (GridInfo: TGridInfo) of object;
	23	TGridInfo = class (TObject)
	24	public
[819]	25	Grid : TSortStringGrid; //doesn't own object
[541]	26	FileNum : string;
	27	IENS : string;
	28	BasicMode : Boolean;
	29	Data : TStringList; //doesn't own object
	30	Message : string; //optional text.
	31	DataLoadProc : TGridDataLoader;
	32	ApplyBtn : TButton;
	33	RevertBtn : TButton;
	34	end;
	35
[453]	36	TPatientInfo = class(TObject)
	37	public
	38	LName: String;
	39	FName: String;
	40	MName: String;
	41	CombinedName: String;
	42	Prefix: String;
	43	Suffix: String;
	44	Degree: String;
	45	DOB: String;
	46	Sex: String;
	47	SSNum: String;
[496]	48	EMail: String;
[453]	49	AliasInfo : TStringList; //format: s=IEN#, Object is ^tAlias
	50	AddressLine1: String;
	51	AddressLine2: String;
	52	AddressLine3: String;
	53	City: String;
	54	State: String;
	55	Zip4: String;
	56	BadAddress: BoolUC;
	57	PhoneNumResidence: String;
	58	PhoneNumWork: String;
	59	PhoneNumCell: String;
	60	PhoneNumTemp: String;
	61
	62	TempAddressLine1: String;
	63	TempAddressLine2: String;
	64	TempAddressLine3: String;
	65	TempCity: String;
	66	TempState: String;
	67	TempZip4: String;
	68	TempStartingDate : String;
	69	TempEndingDate : String;
	70	TempAddressActive: BoolUC;
	71
	72	ConfidentalAddressLine1: String;
	73	ConfidentalAddressLine2: String;
	74	ConfidentalAddressLine3: String;
	75	ConfidentalCity: String;
	76	ConfidentalState: String;
[496]	77	ConfidentalZip: String;
[453]	78	ConfidentalStartingDate : String;
	79	ConfidentalEndingDate : String;
	80	ConfAddressActive : BoolUC;
	81
	82	Modified : boolean;
[541]	83
[453]	84	constructor Create;
	85	destructor Destroy; override;
	86	procedure ClearAliasInfo;
	87	procedure Clear;
	88	procedure Assign(Source : TPatientInfo);
	89	procedure RemoveUnchanged(OldInfo : TPatientInfo);
	90	end;
	91
	92	TfrmPtDemoEdit = class(TForm)
	93	OKBtn: TButton;
	94	CancelBtn: TButton;
	95	ApplyBtn: TButton;
	96	PageControl: TPageControl;
	97	DemoTabSheet: TTabSheet;
	98	LNameLabel: TLabel;
	99	FNameLabel: TLabel;
	100	MNameLabel: TLabel;
	101	CombinedNameLabel: TLabel;
	102	PrefixLabel: TLabel;
	103	SuffixLabel: TLabel;
	104	DOBLabel: TLabel;
	105	SSNumLabel: TLabel;
	106	CombinedNameEdit: TEdit;
	107	LNameEdit: TEdit;
	108	FNameEdit: TEdit;
	109	MNameEdit: TEdit;
	110	PrefixEdit: TEdit;
	111	SuffixEdit: TEdit;
	112	DOBEdit: TEdit;
	113	SSNumEdit: TEdit;
	114	AliasGroupBox: TGroupBox;
	115	AliasComboBox: TComboBox;
	116	AliasNameLabel: TLabel;
	117	AliasSSNumLabel: TLabel;
	118	AliasNameEdit: TEdit;
	119	AliasSSNEdit: TEdit;
	120	AddressGroupBox: TGroupBox;
	121	AddressRGrp: TRadioGroup;
	122	AddressLine1Edit: TEdit;
	123	AddressLine2Edit: TEdit;
	124	AddressLine3Edit: TEdit;
	125	CityLabel: TLabel;
	126	CityEdit: TEdit;
	127	StateComboBox: TComboBox;
	128	Zip4Edit: TEdit;
	129	Zip4Label: TLabel;
	130	BadAddressCB: TCheckBox;
	131	TempActiveCB: TCheckBox;
	132	SexLabel: TLabel;
	133	SexComboBox: TComboBox;
	134	DelAliasBtn: TButton;
	135	StartingDateEdit: TEdit;
	136	StartingDateLabel: TLabel;
	137	EndingDateLabel: TLabel;
	138	EndingDateEdit: TEdit;
	139	ConfActiveCB: TCheckBox;
	140	DegreeEdit: TEdit;
	141	DegreeLabel: TLabel;
	142	AddAliasBtn: TButton;
[495]	143	GroupBox1: TGroupBox;
	144	PhoneNumGrp: TRadioGroup;
	145	PhoneNumEdit: TEdit;
[496]	146	Label1: TLabel;
	147	Label2: TLabel;
	148	Label3: TLabel;
[498]	149	DKLanguageController1: TDKLanguageController;
[496]	150	EMailEdit: TEdit;
[541]	151	Advanced: TTabSheet;
[819]	152	gridPatientDemo: TSortStringGrid;
[453]	153	procedure AliasComboBoxChange(Sender: TObject);
	154	procedure FormCreate(Sender: TObject);
	155	procedure AddressRGrpClick(Sender: TObject);
	156	procedure PhoneNumGrpClick(Sender: TObject);
	157	procedure DelAliasBtnClick(Sender: TObject);
	158	procedure FormDestroy(Sender: TObject);
	159	procedure FormShow(Sender: TObject);
	160	procedure CombinedNameEditChange(Sender: TObject);
	161	procedure LNameEditChange(Sender: TObject);
	162	procedure FNameEditChange(Sender: TObject);
	163	procedure MNameEditChange(Sender: TObject);
	164	procedure PrefixEditChange(Sender: TObject);
	165	procedure SuffixEditChange(Sender: TObject);
	166	procedure SexComboBoxChange(Sender: TObject);
[498]	167	procedure EMailEditChange(Sender: TObject);
[453]	168	procedure AddressLine1EditChange(Sender: TObject);
	169	procedure AddressLine2EditChange(Sender: TObject);
	170	procedure AddressLine3EditChange(Sender: TObject);
	171	procedure CityEditChange(Sender: TObject);
	172	procedure Zip4EditChange(Sender: TObject);
	173	procedure StateComboBoxChange(Sender: TObject);
	174	procedure TempActiveCBClick(Sender: TObject);
	175	procedure ConfActiveCBClick(Sender: TObject);
	176	procedure BadAddressCBClick(Sender: TObject);
	177	procedure DegreeEditChange(Sender: TObject);
	178	procedure PhoneNumEditChange(Sender: TObject);
	179	procedure StartingDateEditChange(Sender: TObject);
	180	procedure EndingDateEditChange(Sender: TObject);
	181	procedure AliasNameEditChange(Sender: TObject);
	182	procedure AliasSSNEditChange(Sender: TObject);
	183	procedure ApplyBtnClick(Sender: TObject);
	184	procedure AddAliasBtnClick(Sender: TObject);
	185	procedure OKBtnClick(Sender: TObject);
	186	procedure CancelBtnClick(Sender: TObject);
	187	procedure DOBEditChange(Sender: TObject);
	188	procedure SSNumEditChange(Sender: TObject);
[541]	189	procedure PageControlChange(Sender: TObject);
	190	procedure gridPatientDemoSelectCell(Sender: TObject; ACol,
	191	ARow: Integer; var CanSelect: Boolean);
	192	procedure gridPatientDemoSetEditText(Sender: TObject; ACol,
	193	ARow: Integer; const Value: String);
	194	procedure PageControlChanging(Sender: TObject;
	195	var AllowChange: Boolean);
[453]	196	private
	197	{ Private declarations }
	198	FCurPatientInfo : TPatientInfo;
	199	FServerPatientInfo : TPatientInfo;
	200	FCurAliasEdit : integer;
[541]	201	CurrentAnyFileData : TStringList;
[453]	202	ProgAliasChangeOccuring : boolean;
[541]	203	CurrentPatientData : TStringList;
[453]	204	ProgNameChangeOccuring : boolean;
	205	ProgPhoneChangeOccuring : boolean;
[541]	206	FLastSelectedRow,FLastSelectedCol : integer;
[453]	207	ProgAddressChangeOccuring : boolean;
[541]	208	DataForGrid : TStringList;
[453]	209	MaxAliasIEN : integer;
[541]	210	Data : TStringList;
[453]	211	ChangesMade : boolean;
[541]	212	BasicTemplate : TStringList;
	213	FLoadingGrid: boolean;
	214	CachedWPField : TStringList;
[453]	215	procedure GetPtInfo(PatientInfo : TPatientInfo);
	216	procedure PostChangedInfo(PatientInfo : TPatientInfo);
	217	procedure ShowAliasInfo(Patient : TPatientInfo);
[541]	218	procedure GetPatientInfo(GridInfo: TGridInfo);
[453]	219	procedure ShowPtInfo(Patient : TPatientInfo);
	220	function CombinedName : string;
[819]	221	procedure AddGridInfo(Grid: TSortStringGrid;
[541]	222	Data : TStringList;
	223	BasicMode : boolean;
	224	DataLoader : TGridDataLoader;
	225	FileNum : string);
[453]	226	procedure NameParts(CombinedName: string; var LName, FName, MName : string);
[541]	227	function ExtractNum (S : String; StartPos : integer) : string;
[453]	228	procedure SetModified(value : boolean);
	229	procedure SetAliasEnabled(value : boolean);
[819]	230	function PostChanges(Grid : TSortStringGrid) : TModalResult;
	231	procedure CompileChanges(Grid : TSortStringGrid; CurrentUserData,Changes : TStringList);
[541]	232	procedure RegisterGridInfo(GridInfo : TGridInfo);
[453]	233	public
	234	{ Public declarations }
[819]	235	function GetInfoForGrid(Grid : TSortStringGrid) : TGridInfo;
	236	procedure LoadAnyGrid(Grid : TSortStringGrid; BasicMode: boolean; FileNum : string;
[541]	237	IENS : string;
	238	CurrentData : TStringList);
	239	procedure LoadAnyGridFromInfo(GridInfo : TGridInfo);
	240	function IsWPField(FileNum,FieldNum : string) : boolean;
	241	function IsSubFile(FieldDef: string ; var SubFileNum : string) : boolean;
[819]	242	function GetInfoIndexForGrid(Grid : TSortStringGrid) : integer;
[541]	243	function PostVisibleGrid: TModalResult;
[819]	244	function GetLineInfo(Grid : TSortStringGrid; CurrentUserData : TStringList; ARow: integer) : tFileEntry;
[541]	245	procedure GetOneRecord(FileNum, IENS : string; Data, BlankFileInfo: TStringList);
	246	//procedure GridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
[819]	247	function GetUserLine(CurrentUserData : TStringList; Grid : TSortStringGrid; ARow: integer) : integer;
[541]	248	function FindInStrings(fieldNum : string; Strings : TStringList; var fileNum : string) : integer;
[453]	249	end;
	250
	251	var
	252	frmPtDemoEdit: TfrmPtDemoEdit;
	253
[541]	254	Const
	255	DEF_GRID_ROW_HEIGHT = 17;
	256	CLICK_FOR_SUBS = '<CLICK for Sub-Entries>';
	257	COMPUTED_FIELD = '<Computed Field --> CAN''T EDIT>';
	258	CLICK_TO_EDIT = '<CLICK to Edit Text>';
	259	HIDDEN_FIELD = '<Hidden>';
	260
[453]	261	implementation
	262
	263	{$R *.dfm}
	264
	265	uses
[541]	266	IniFiles,Trpcb,ORNet,uCore, mfunstr, subfilesU, strutils, LookupU, SetSelU,
	267	SelDateTimeU, PostU, EditTextU, FMErrorU;
[453]	268
	269	const
	270	ADD_NEW_ALIAS = '<Add New Alias>';
	271
	272	type
	273	tAlias= class
	274	Name : string;
	275	SSN : string;
	276	procedure Assign(Source: tAlias);
	277	end;
	278
	279	procedure tAlias.Assign(Source : tAlias);
	280	begin
	281	Name := Source.Name;
	282	SSN := Source.SSN;
	283	end;
	284
	285	//=========================================================
	286	//=========================================================
	287	//=========================================================
	288
	289	constructor TPatientInfo.Create;
	290	begin
	291	AliasInfo := TStringList.Create;
[541]	292
[453]	293	Clear;
	294	end;
	295
	296	destructor TPatientInfo.Destroy;
	297	begin
	298	ClearAliasInfo;
	299	AliasInfo.Free;
	300	inherited Destroy;
	301	End;
	302
	303	procedure TPatientInfo.ClearAliasInfo;
	304	var i : integer;
	305	pAlias : tAlias;
	306	begin
	307	for i := 0 to AliasInfo.Count-1 do begin
	308	pAlias := tAlias(AliasInfo.Objects[i]);
	309	pAlias.Free;
	310	end;
	311	AliasInfo.Clear
	312	End;
	313
	314	procedure TPatientInfo.Clear;
	315	begin
	316	LName:= '';
	317	FName:= '';
	318	MName:= '';
	319	CombinedName:= '';
	320	Prefix:= '';
	321	Suffix:= '';
	322	Degree:= '';
	323	DOB:= '';
	324	SSNum:= '';
[541]	325	EMail:= '';
[453]	326	ClearAliasInfo;
	327	AddressLine1:= '';
	328	AddressLine2:= '';
	329	AddressLine3:= '';
	330	City:= '';
	331	State:= '';
	332	Zip4:= '';
	333	TempAddressLine1:= '';
	334	TempAddressLine2:= '';
	335	TempAddressLine3:= '';
	336	TempCity:= '';
	337	TempState:= '';
	338	TempZip4:= '';
	339	TempStartingDate := '';
	340	TempEndingDate := '';
	341	ConfidentalAddressLine1:= '';
	342	ConfidentalAddressLine2:= '';
	343	ConfidentalAddressLine3:= '';
	344	ConfidentalCity:= '';
	345	ConfidentalState:= '';
[496]	346	ConfidentalZip:= '';
[453]	347	ConfidentalStartingDate := '';
	348	ConfidentalEndingDate := '';
	349	BadAddress:= bucFalse;
	350	TempAddressActive:= bucFalse;
	351	ConfAddressActive := bucFalse;
	352	Modified := false;
	353
	354	PhoneNumResidence:= '';
	355	PhoneNumWork:= '';
	356	PhoneNumCell:= '';
	357	PhoneNumTemp:= '';
	358	Sex:= '';
	359	end;
	360
	361
	362	procedure TPatientInfo.Assign(Source : TPatientInfo);
	363	var i : integer;
	364	pAlias : tAlias;
	365	OtherpAlias : tAlias;
	366	begin
	367	LName:=Source.LName;
	368	FName:=Source.FName;
	369	MName:=Source.MName;
	370	CombinedName:=Source.CombinedName;
	371	Prefix:=Source.Prefix;
	372	Suffix:=Source.Suffix;
	373	Degree:=Source.Degree;
	374	DOB:=Source.DOB;
	375	SSNum:=Source.SSNum;
[541]	376	EMail:=Source.EMail;
[453]	377
	378	ClearAliasInfo;
	379	//Copy pointed to tAlias entries, don't simply copy references
	380	for i := 0 to Source.AliasInfo.Count-1 do begin
	381	AliasInfo.Add(Source.AliasInfo.Strings[i]);
	382	OtherpAlias := tAlias(Source.AliasInfo.Objects[i]);
	383	if OtherpAlias<>nil then begin
	384	pAlias := tAlias.Create;
	385	pAlias.Name := OtherpAlias.Name;
	386	pAlias.SSN := OtherpAlias.SSN;
	387	AliasInfo.Objects[i]:=pAlias;
	388	end;
	389	end;
	390	AddressLine1:=Source.AddressLine1;
	391	AddressLine2:=Source.AddressLine2;
	392	AddressLine3:=Source.AddressLine3;
	393	City:=Source.City;
	394	State:=Source.State;
	395	Zip4:=Source.Zip4;
	396	TempAddressLine1:=Source.TempAddressLine1;
	397	TempAddressLine2:=Source.TempAddressLine2;
	398	TempAddressLine3:=Source.TempAddressLine3;
	399	TempCity:=Source.TempCity;
	400	TempState:=Source.TempState;
	401	TempZip4:=Source.TempZip4;
	402	TempStartingDate :=Source.TempStartingDate ;
	403	TempEndingDate :=Source.TempEndingDate ;
	404	ConfidentalAddressLine1:=Source.ConfidentalAddressLine1;
	405	ConfidentalAddressLine2:=Source.ConfidentalAddressLine2;
	406	ConfidentalAddressLine3:=Source.ConfidentalAddressLine3;
	407	ConfidentalCity:=Source.ConfidentalCity;
	408	ConfidentalState:=Source.ConfidentalState;
[496]	409	ConfidentalZip:=Source.ConfidentalZip;
[453]	410	ConfidentalStartingDate :=Source.ConfidentalStartingDate ;
	411	ConfidentalEndingDate :=Source.ConfidentalEndingDate ;
	412	BadAddress:= Source.BadAddress;
	413	TempAddressActive:= Source.TempAddressActive;
	414	ConfAddressActive := Source.ConfAddressActive;
	415	PhoneNumResidence:=Source.PhoneNumResidence;
	416	PhoneNumWork:=Source.PhoneNumWork;
	417	PhoneNumCell:=Source.PhoneNumCell;
	418	PhoneNumTemp:=Source.PhoneNumTemp;
	419	Sex:=Source.Sex;
[498]	420	EMail := Source.EMail;
[453]	421	end;
	422
	423
	424	procedure TPatientInfo.RemoveUnchanged(OldInfo : TPatientInfo);
	425	//Will remove entries that are unchanged from OldInfo
	426	//ALSO, will change AliasInfo entries:
	427	// Other code adds "IEN" numbers that don't have any corresponding
	428	// true IEN on the server. This will convert these to +1,+2 etc.
	429	// And, if there is an alias entry in the OldInfo that is not
	430	// in this info, then a matching @ entry for that IEN will be generated.
	431
	432	procedure CompStrs(var newS, oldS : string);
	433	begin
	434	if newS = oldS then begin
	435	newS := ''; //no change,
	436	end else begin
	437	if (newS = '') and (oldS <> '') then newS := '@' //delete symbol
	438	end;
	439	end;
	440
	441	procedure CompBoolUC(var newBN, oldBN : BoolUC);
	442	begin
	443	if newBN=oldBN then begin
	444	newBN := bucUnchanged; //Mark unchanged
	445	end;
	446	end;
	447
	448	const
	449	BOOL_STR : array[false..true] of string =('TRUE','FALSE');
	450	NO_CHANGE = 1;
	451	NEW_RECORD = 2;
	452	DELETED_RECORD = 3;
	453	CHANGED_RECORD = 4;
	454
	455	function CompAliasRec(curAlias,oldAlias : tAlias) : integer;
	456	//Returns: NO_CHANGE = 1; NEW_RECORD = 2; DELETED_RECORD = 3; CHANGED_RECORD = 4;
	457	begin
	458	Result := NO_CHANGE;
	459	if (curAlias <> nil) and (oldAlias <> nil) then begin
	460	if curAlias.Name = '' then begin
	461	if oldAlias.Name <> '' then Result := DELETED_RECORD;
	462	end else if curAlias.Name <> oldAlias.Name then begin
	463	Result := CHANGED_RECORD;
	464	end;
	465	if Result = NO_CHANGE then begin
	466	if curAlias.SSN <> oldAlias.SSN then Result := CHANGED_RECORD;
	467	end;
	468	end;
	469	end;
	470
	471	function CompAlias(IEN : string; pAlias : tAlias; OldInfo : TPatientInfo) : integer;
	472	//format: s=IEN#, Object is ^tAlias
	473	//Returns: NO_CHANGE = 1; NEW_RECORD = 2; DELETED_RECORD = 3; CHANGED_RECORD = 4;
	474	var i : integer;
	475	oldPAlias : tAlias;
	476	begin
	477	Result := NEW_RECORD;
	478	for i := 0 to OldInfo.AliasInfo.Count-1 do begin
	479	if OldInfo.AliasInfo.Strings[i] = IEN then begin
	480	oldPAlias := tAlias(OldInfo.AliasInfo.Objects[i]);
	481	Result := CompAliasRec(pAlias,oldPAlias);
	482	break;
	483	end;
	484	end;
	485	end;
	486
	487	var i,j,AddCt : integer;
	488	pAlias, tempPAlias : tAlias;
	489
	490	begin
	491	{if OldInfo = This Info, then remove entries}
	492	CompStrs(LName, OldInfo.LName);
	493	CompStrs(FName, OldInfo.FName);
	494	CompStrs(MName, OldInfo.MName);
	495	CompStrs(CombinedName, OldInfo.CombinedName);
	496	CompStrs(Prefix, OldInfo.Prefix);
	497	CompStrs(Suffix, OldInfo.Suffix);
	498	CompStrs(Degree, OldInfo.Degree);
	499	CompStrs(DOB, OldInfo.DOB);
	500	CompStrs(SSNum, OldInfo.SSNum);
[541]	501	CompStrs(EMail, OldInfo.EMail);
[453]	502
	503	CompStrs(AddressLine1, OldInfo.AddressLine1);
	504	CompStrs(AddressLine2, OldInfo.AddressLine2);
	505	CompStrs(AddressLine3, OldInfo.AddressLine3);
	506	CompStrs(City, OldInfo.City);
	507	CompStrs(State, OldInfo.State);
	508	CompStrs(Zip4, OldInfo.Zip4);
	509	CompStrs(TempAddressLine1, OldInfo.TempAddressLine1);
	510	CompStrs(TempAddressLine2, OldInfo.TempAddressLine2);
	511	CompStrs(TempAddressLine3, OldInfo.TempAddressLine3);
	512	CompStrs(TempCity, OldInfo.TempCity);
	513	CompStrs(TempState, OldInfo.TempState);
	514	CompStrs(TempZip4, OldInfo.TempZip4);
	515	CompStrs(TempStartingDate , OldInfo.TempStartingDate );
	516	CompStrs(TempEndingDate , OldInfo.TempEndingDate );
	517	CompStrs(ConfidentalAddressLine1, OldInfo.ConfidentalAddressLine1);
	518	CompStrs(ConfidentalAddressLine2, OldInfo.ConfidentalAddressLine2);
	519	CompStrs(ConfidentalAddressLine3, OldInfo.ConfidentalAddressLine3);
	520	CompStrs(ConfidentalCity, OldInfo.ConfidentalCity);
	521	CompStrs(ConfidentalState, OldInfo.ConfidentalState);
[496]	522	CompStrs(ConfidentalZip, OldInfo.ConfidentalZip);
[453]	523	CompStrs(ConfidentalStartingDate , OldInfo.ConfidentalStartingDate );
	524	CompStrs(ConfidentalEndingDate , OldInfo.ConfidentalEndingDate );
	525
	526	CompBoolUC(BadAddress, OldInfo.BadAddress);
	527	CompBoolUC(TempAddressActive, OldInfo.TempAddressActive);
	528	CompBoolUC(ConfAddressActive, OldInfo.ConfAddressActive);
	529
	530	CompStrs(PhoneNumResidence, OldInfo.PhoneNumResidence);
	531	CompStrs(PhoneNumWork, OldInfo.PhoneNumWork);
	532	CompStrs(PhoneNumCell, OldInfo.PhoneNumCell);
	533	CompStrs(PhoneNumTemp, OldInfo.PhoneNumTemp);
	534	CompStrs(Sex, OldInfo.Sex);
	535
	536	//Compare Aliases
	537	//format: s=IEN#, Object is ^tAlias
	538
	539	//first, see which entries in OldInfo are deleted in CurInfo.
	540	for i := 0 to OldInfo.AliasInfo.Count-1 do begin
	541	pAlias := tAlias(OldInfo.AliasInfo.Objects[i]);
	542	if CompAlias(OldInfo.AliasInfo.Strings[i], pAlias, self) = NEW_RECORD then begin
	543	//here we have an entry in OldInfo, not in CurInfo, so must represent a Delete
	544	//This needs to be posted to server with old IEN and @ symbol
	545	tempPAlias := tAlias.Create;
	546	tempPAlias.Name := '@';
	547	AliasInfo.AddObject(OldInfo.AliasInfo.Strings[i],tempPAlias);
	548	end;
	549	end;
	550
	551	AddCt := 0;
	552	//First, see which entries in New PatientInfo are new, or unchanged.
	553	for i := 0 to AliasInfo.Count-1 do begin
	554	pAlias := tAlias(AliasInfo.Objects[i]);
	555	if (pAlias=nil) then continue;
	556	if pAlias.Name= '@' then continue; //skip those marked as deleted from OldInfo
	557	case CompAlias(AliasInfo.Strings[i], pAlias, OldInfo) of
	558	NO_CHANGE : begin //delete unchanged data (no need to repost to server)
	559	pAlias.Destroy;
	560	AliasInfo.Strings[i] :='<@>'; //mark for deletion below
	561	end;
	562	NEW_RECORD : begin //mark as +1, +2 etc IEN
	563	AddCt := AddCt + 1;
	564	AliasInfo.Strings[i] := '+' + IntToStr(AddCt);
	565	end;
	566	CHANGED_RECORD : begin end; // do nothing, leave changes in place
	567	end; {case}
	568	end;
	569
	570	for i := AliasInfo.Count-1 downto 0 do begin
	571	if AliasInfo.Strings[i] = '<@>' then AliasInfo.Delete(i);
	572	end;
	573
	574
	575	end;
	576
	577
	578	//=========================================================
	579	//=========================================================
	580	//=========================================================
	581
	582	procedure TfrmPtDemoEdit.GetPtInfo;
	583	var tempINI : TMemINIFile; //I do this to make dealing with hash table read easier
	584	i,index : integer;
	585	IEN, Key,Value,s : string;
	586	pAlias : tAlias;
	587
	588	begin
	589	FServerPatientInfo.Clear;
	590	tempINI := TMemINIFile.Create('xxx.ini');
	591
	592	RPCBrokerV.remoteprocedure := 'TMG GET PATIENT DEMOGRAPHICS';
	593	RPCBrokerV.param[0].value := Patient.DFN; RPCBrokerV.param[0].ptype := literal;
[793]	594	//RPCBrokerV.Call;
	595	CallBroker;
	596
[453]	597	with FServerPatientInfo do begin
	598	//Store results in a hash table for easier random access
	599	//Don't store Alias info in hash table, put directly into AliasInfo stringlist
	600	for i := 0 to RPCBrokerV.Results.Count-1 do begin
	601	s := RPCBrokerV.Results.Strings[i];
	602	if Pos('ALIAS',s)=0 then begin
	603	Key := piece(s,'=',1);
	604	Value := piece(s,'=',2);
	605	tempINI.WriteString('DATA',Key,Value);
	606	end else begin
	607	IEN := piece(s,' ',2);
	608	if StrToInt(IEN)>MaxAliasIEN then MaxAliasIEN := StrToInt(IEN);
	609	index := AliasInfo.IndexOf(IEN);
	610	if index <0 then begin
	611	pAlias := tAlias.Create; //AliasInfo will own these.
	612	AliasInfo.AddObject(IEN,pAlias);
	613	end else begin
	614	pAlias := tAlias(AliasInfo.Objects[index]);
	615	end;
	616	if Pos('NAME=',s)>0 then begin
	617	pAlias.Name := piece(s,'=',2);
	618	end else if Pos('SSN=',s)>0 then begin
	619	pAlias.SSN := piece(s,'=',2);
	620	end;
	621	end;
	622	end;
	623	LName:=tempINI.ReadString('DATA','LNAME','');
	624	FName:=tempINI.ReadString('DATA','FNAME','');
	625	MName:=tempINI.ReadString('DATA','MNAME','');
	626	CombinedName:=tempINI.ReadString('DATA','COMBINED_NAME','');
	627	Prefix:=tempINI.ReadString('DATA','PREFIX','');
	628	Suffix:=tempINI.ReadString('DATA','SUFFIX','');
	629	Degree:=tempINI.ReadString('DATA','DEGREE','');
	630	DOB:= tempINI.ReadString('DATA','DOB','');
	631	Sex:= tempINI.ReadString('DATA','SEX','');
	632	SSNum:= tempINI.ReadString('DATA','SS_NUM','');
[541]	633	EMail:= tempINI.ReadString('DATA','EMAIL','');
[453]	634	AddressLine1:= tempINI.ReadString('DATA','ADDRESS_LINE_1','');
	635	AddressLine2:= tempINI.ReadString('DATA','ADDRESS_LINE_2','');
	636	AddressLine3:= tempINI.ReadString('DATA','ADDRESS_LINE_3','');
	637	City:= tempINI.ReadString('DATA','CITY','');
	638	State:= tempINI.ReadString('DATA','STATE','');
	639	Zip4:= tempINI.ReadString('DATA','ZIP4','');
	640	BadAddress:= BoolUC(tempINI.ReadString('DATA','BAD_ADDRESS','')<>'');
	641	TempAddressLine1:= tempINI.ReadString('DATA','TEMP_ADDRESS_LINE_1','');
	642	TempAddressLine2:= tempINI.ReadString('DATA','TEMP_ADDRESS_LINE_2','');
	643	TempAddressLine3:= tempINI.ReadString('DATA','TEMP_ADDRESS_LINE_3','');
	644	TempCity:= tempINI.ReadString('DATA','TEMP_CITY','');
	645	TempState:=tempINI.ReadString('DATA','TEMP_STATE','');
	646	TempZip4:= tempINI.ReadString('DATA','TEMP_ZIP4','');
	647	TempStartingDate :=tempINI.ReadString('DATA','TEMP_STARTING_DATE','');
	648	TempEndingDate := tempINI.ReadString('DATA','TEMP_ENDING_DATE','');
	649	TempAddressActive:= BoolUC(tempINI.ReadString('DATA','TEMP_ADDRESS_ACTIVE','')='YES');
	650	ConfidentalAddressLine1:= tempINI.ReadString('DATA','CONF_ADDRESS_LINE_1','');
	651	ConfidentalAddressLine2:= tempINI.ReadString('DATA','CONF_ADDRESS_LINE_2','');
	652	ConfidentalAddressLine3:= tempINI.ReadString('DATA','CONF_ADDRESS_LINE_3','');
	653	ConfidentalCity:= tempINI.ReadString('DATA','CONF_CITY','');
	654	ConfidentalState:= tempINI.ReadString('DATA','CONF_STATE','');
[496]	655	ConfidentalZip:= tempINI.ReadString('DATA','CONF_ZIP','');
[453]	656	ConfidentalStartingDate := tempINI.ReadString('DATA','CONG_STARTING_DATE','');
	657	ConfidentalEndingDate := tempINI.ReadString('DATA','CONF_ENDING_DATE','');
	658	ConfAddressActive:= BoolUC(tempINI.ReadString('DATA','CONF_ADDRESS_ACTIVE','')='YES');
	659	PhoneNumResidence:= tempINI.ReadString('DATA','PHONE_RESIDENCE','');
	660	PhoneNumWork:= tempINI.ReadString('DATA','PHONE_WORK','');
	661	PhoneNumCell:= tempINI.ReadString('DATA','PHONE_CELL','');
	662	PhoneNumTemp:= tempINI.ReadString('DATA','PHONE_TEMP','');
	663	end;
	664	FCurPatientInfo.Assign(FServerPatientInfo);
	665	tempINI.Free; //I don't write out, so should never end up on disk.
	666	end;
	667
	668	procedure TfrmPtDemoEdit.PostChangedInfo(PatientInfo : TPatientInfo);
	669
	670	procedure CheckBUCPost(Title : string; Value : BoolUC);
	671	begin
	672	if Value <> bucUnchanged then begin
	673	if Value = bucTrue then RPCBrokerV.Param[1].Mult['"'+Title+'"'] := 'YES';
	674	if Value = bucFalse then RPCBrokerV.Param[1].Mult['"'+Title+'"'] := 'NO';
	675	end;
	676	end;
	677
	678	procedure CheckPost(Title, Value : string);
	679	begin
	680	if Value <> '' then RPCBrokerV.Param[1].Mult['"'+Title+'"'] := Value;
	681	end;
	682
	683	var i : integer;
	684	pAlias : tAlias;
	685	begin
	686	RPCBrokerV.remoteprocedure := 'TMG SET PATIENT DEMOGRAPHICS';
	687	RPCBrokerV.param[0].value := Patient.DFN; RPCBrokerV.param[0].ptype := literal;
	688
	689	RPCBrokerV.Param[1].PType := list;
	690	with PatientInfo do begin
	691	CheckPost('COMBINED_NAME',CombinedName);
	692	//CheckPost('LNAME', LName); //Don't send because data is in COMBINED NAME
	693	//CheckPost('FNAME',FName);
	694	//CheckPost('MNAME',MName);
	695	//CheckPost('PREFIX',Prefix);
	696	//CheckPost('SUFFIX',Suffix);
	697	//CheckPost('DEGREE',Degree);
	698	CheckPost('DOB',DOB);
	699	CheckPost('SEX',Sex);
	700	CheckPost('SS_NUM',SSNum);
[541]	701	CheckPost('EMAIL',EMail);
[453]	702	CheckPost('ADDRESS_LINE_1',AddressLine1);
	703	CheckPost('ADDRESS_LINE_2',AddressLine2);
	704	CheckPost('ADDRESS_LINE_3',AddressLine3);
	705	CheckPost('CITY',City);
	706	CheckPost('STATE',State);
	707	CheckPost('ZIP4',Zip4);
	708
	709	CheckPost('TEMP_ADDRESS_LINE_1',TempAddressLine1);
	710	CheckPost('TEMP_ADDRESS_LINE_2',TempAddressLine2);
	711	CheckPost('TEMP_ADDRESS_LINE_3',TempAddressLine3);
	712	CheckPost('TEMP_CITY',TempCity);
	713	CheckPost('TEMP_STATE',TempState);
	714	CheckPost('TEMP_ZIP4',TempZip4);
	715	CheckPost('TEMP_STARTING_DATE',TempStartingDate );
	716	CheckPost('TEMP_ENDING_DATE',TempEndingDate );
	717	CheckPost('CONF_ADDRESS_LINE_1',ConfidentalAddressLine1);
	718	CheckPost('CONF_ADDRESS_LINE_2',ConfidentalAddressLine2);
	719	CheckPost('CONF_ADDRESS_LINE_3',ConfidentalAddressLine3);
	720	CheckPost('CONF_CITY',ConfidentalCity);
	721	CheckPost('CONF_STATE',ConfidentalState);
[496]	722	CheckPost('CONF_ZIP',ConfidentalZip);
[453]	723	CheckPost('CONG_STARTING_DATE',ConfidentalStartingDate );
	724	CheckPost('CONF_ENDING_DATE',ConfidentalEndingDate );
	725	CheckPost('PHONE_RESIDENCE',PhoneNumResidence);
	726	CheckPost('PHONE_WORK',PhoneNumWork);
	727	CheckPost('PHONE_CELL',PhoneNumCell);
	728	CheckPost('PHONE_TEMP',PhoneNumTemp);
	729
	730	case BadAddress of
	731	bucTrue: RPCBrokerV.Param[1].Mult['"BAD_ADDRESS"'] := 'UNDELIVERABLE';
	732	bucFalse: RPCBrokerV.Param[1].Mult['"BAD_ADDRESS"'] := '@';
	733	end; {case}
	734	CheckBUCPost('TEMP_ADDRESS_ACTIVE', TempAddressActive);
	735	CheckBUCPost('CONF_ADDRESS_ACTIVE', ConfAddressActive);
	736
	737	for i := 0 to AliasInfo.Count-1 do begin
	738	pAlias := tAlias(AliasInfo.Objects[i]);
	739	if (pAlias=nil) then continue;
	740	RPCBrokerV.Param[1].Mult['"ALIAS ' + AliasInfo.Strings[i] + ' NAME"'] := pAlias.Name;
	741	if pAlias.Name <> '@' then begin
	742	RPCBrokerV.Param[1].Mult['"ALIAS ' + AliasInfo.Strings[i] + ' SSN"'] := pAlias.SSN;
	743	end;
	744	end;
	745
[793]	746	//RPCBrokerV.Call;
	747	CallBroker;
[453]	748	if RPCBrokerV.Results.Strings[0]<>'1' then begin
	749	MessageDlg(RPCBrokerV.Results.Strings[0],mtError,[mbOK],0);
	750	end else begin
	751	ChangesMade := true;
	752	end;
	753	end;
	754	end;
	755
	756
	757	procedure TfrmPtDemoEdit.ShowPtInfo(Patient : TPatientInfo);
	758	var i : integer;
	759	pAlias : tAlias;
	760	begin
	761	ProgNameChangeOccuring := true;
	762	With Patient do begin
	763	LNameEdit.Text := LName;
	764	FNameEdit.Text := FName;
	765	MNameEdit.Text := MName;
	766	CombinedNameEdit.Text := CombinedName;
	767	PrefixEdit.Text := Prefix;
	768	SuffixEdit.Text := Suffix;
	769	DegreeEdit.Text := Degree;
	770	DOBEdit.Text := DOB;
	771	SSNumEdit.Text := SSNum;
[541]	772	EMailEdit.Text := EMail;
[453]	773	if Sex='MALE' then SexComboBox.ItemIndex := 0 else SexComboBox.ItemIndex := 1;
	774	AliasComboBox.Items.Clear;
	775	for i := 0 to AliasInfo.Count-1 do begin
	776	pAlias := tAlias(AliasInfo.Objects[i]);
	777	if pAlias<>nil then begin
	778	AliasComboBox.Items.AddObject(pAlias.Name,pAlias);
	779	end;
	780	end;
	781	if AliasComboBox.Items.count>0 then begin
	782	AliasComboBox.ItemIndex := 0;
	783	SetAliasEnabled(true);
	784	end;
	785	ShowAliasInfo(Patient);
	786
	787	PhoneNumGrp.ItemIndex := 0;
	788	PhoneNumGrpClick(self);
	789	end;
	790
	791	BadAddressCB.Visible := false;
	792	TempActiveCB.Visible := false;
	793	ProgNameChangeOccuring := false;
	794	end;
	795
	796	procedure TfrmPtDemoEdit.ShowAliasInfo(Patient : TPatientInfo);
	797	var i : integer;
	798	pAlias : tAlias;
	799	begin
	800	i := AliasComboBox.ItemIndex;
	801	if i > -1 then begin
	802	if i < Patient.AliasInfo.Count then begin
	803	pAlias := tAlias(Patient.AliasInfo.Objects[i]);
	804	end else pAlias := nil;
	805	ProgAliasChangeOccuring := true;
	806	if pAlias<>nil then begin
	807	AliasNameEdit.Text := pAlias.Name;
	808	AliasSSNEdit.Text := pAlias.SSN;
	809	end else begin
	810	AliasNameEdit.Text := '';
	811	AliasSSNEdit.Text := '';
	812	end;
	813	ProgAliasChangeOccuring := false;
	814	end;
	815	end;
	816
	817
	818	procedure TfrmPtDemoEdit.AliasComboBoxChange(Sender: TObject);
	819	var s : string;
	820	i : integer;
	821	begin
	822	if ProgAliasChangeOccuring=false then begin
	823	i := AliasCombobox.ItemIndex;
	824	if i>-1 then begin
	825	s := AliasCombobox.Items.Strings[i];
	826	SetAliasEnabled(true);
	827	end else begin
	828	SetAliasEnabled(false);
	829	end;
	830	ShowAliasInfo(FCurPatientInfo);
[541]	831	end;
[453]	832	end;
	833
	834	procedure TfrmPtDemoEdit.FormCreate(Sender: TObject);
	835	begin
	836	FCurAliasEdit := -1;
	837	FCurPatientInfo := TPatientInfo.Create;
	838	FServerPatientInfo := TPatientInfo.Create;
[541]	839	DataForGrid := TStringList.Create; //will own GridInfo objects.
[453]	840	ProgAliasChangeOccuring := false;
	841	ProgNameChangeOccuring := false;
	842	ProgPhoneChangeOccuring := false;
	843	ProgAddressChangeOccuring := false;
	844	MaxAliasIEN := 0;
	845	ChangesMade := false;
[541]	846	CurrentPatientData := TStringList.Create;
	847	AddGridInfo(GridPatientDemo,CurrentPatientData,false,GetPatientInfo,'2');
	848
[453]	849	end;
	850
	851	procedure TfrmPtDemoEdit.FormDestroy(Sender: TObject);
	852	begin
[541]	853	DataForGrid.Free;
[453]	854	FCurPatientInfo.Destroy;
	855	FServerPatientInfo.Destroy;
[541]	856	CurrentPatientData.Free;
[453]	857	end;
	858
	859
	860	procedure TfrmPtDemoEdit.AddressRGrpClick(Sender: TObject);
	861	begin
	862	{fill in data for newly selected fields}
	863	ProgAddressChangeOccuring := true;
	864	TempActiveCB.Visible := false;
	865	BadAddressCB.Visible := false;
	866	ConfActiveCB.Visible := false;
	867	StartingDateLabel.Visible := false;
	868	StartingDateEdit.Visible := false;
	869	EndingDateLabel.Visible := false;
	870	EndingDateEdit.Visible := false;
	871	case AddressRGrp.ItemIndex of
	872	0 : begin //Permanant
	873	AddressLine1Edit.Text := FCurPatientInfo.AddressLine1;
	874	AddressLine2Edit.Text := FCurPatientInfo.AddressLine2;
	875	AddressLine3Edit.text := FCurPatientInfo.AddressLine3;
	876	CityEdit.text := FCurPatientInfo.City;
	877	StateComboBox.text := FCurPatientInfo.State;
	878	Zip4Edit.text := FCurPatientInfo.Zip4;
	879	BadAddressCB.Visible := true;
	880	BadAddressCB.Checked := (FCurPatientInfo.BadAddress=bucTrue);
	881	end;
	882	1 : begin //temp
	883	AddressLine1Edit.Text := FCurPatientInfo.TempAddressLine1;
	884	AddressLine2Edit.Text := FCurPatientInfo.TempAddressLine2;
	885	AddressLine3Edit.Text := FCurPatientInfo.TempAddressLine3;
	886	CityEdit.Text := FCurPatientInfo.TempCity;
	887	StateComboBox.Text := FCurPatientInfo.TempState;
	888	Zip4Edit.Text := FCurPatientInfo.TempZip4;
	889	StartingDateEdit.Text := FCurPatientInfo.TempStartingDate ;
	890	EndingDateEdit.Text := FCurPatientInfo.TempEndingDate ;
	891	StartingDateLabel.Visible := true;
	892	StartingDateEdit.Visible := true;
	893	EndingDateLabel.Visible := true;
	894	EndingDateEdit.Visible := true;
	895	TempActiveCB.Visible := true;
	896	TempActiveCB.Checked := (FCurPatientInfo.TempAddressActive=bucTrue);
	897	end;
	898	2 : begin //confidental
	899	AddressLine1Edit.Text := FCurPatientInfo.ConfidentalAddressLine1;
	900	AddressLine2Edit.Text := FCurPatientInfo.ConfidentalAddressLine2;
	901	AddressLine3Edit.Text := FCurPatientInfo.ConfidentalAddressLine3;
	902	CityEdit.Text := FCurPatientInfo.ConfidentalCity;
	903	StateComboBox.Text := FCurPatientInfo.ConfidentalState;
[496]	904	Zip4Edit.Text := FCurPatientInfo.ConfidentalZip;
[453]	905	StartingDateEdit.Text := FCurPatientInfo.ConfidentalStartingDate ;
	906	EndingDateEdit.Text := FCurPatientInfo.ConfidentalEndingDate ;
	907	StartingDateLabel.Visible := true;
	908	StartingDateEdit.Visible := true;
	909	EndingDateLabel.Visible := true;
	910	EndingDateEdit.Visible := true;
	911	ConfActiveCB.Visible := true;
	912	ConfActiveCB.Checked := (FCurPatientInfo.ConfAddressActive=bucTrue);
	913	end;
	914	end; {case}
	915	ProgAddressChangeOccuring := false;
	916	end;
	917
	918	procedure TfrmPtDemoEdit.PhoneNumGrpClick(Sender: TObject);
	919	begin
	920	ProgPhoneChangeOccuring := true;
	921	case PhoneNumGrp.ItemIndex of
	922	0 : begin //Residence
	923	PhoneNumEdit.Text := FCurPatientInfo.PhoneNumResidence;
	924	end;
	925	1 : begin //work
	926	PhoneNumEdit.Text := FCurPatientInfo.PhoneNumWork;
	927	end;
	928	2 : begin //cell
	929	PhoneNumEdit.Text := FCurPatientInfo.PhoneNumCell;
	930	end;
	931	3 : begin //temp
	932	PhoneNumEdit.Text := FCurPatientInfo.PhoneNumTemp;
	933	end;
	934	else begin
	935	PhoneNumEdit.Text := '';
	936	end;
	937	end; {case}
	938	ProgPhoneChangeOccuring := false;
	939	end;
	940
	941	procedure TfrmPtDemoEdit.DelAliasBtnClick(Sender: TObject);
	942	var i, j : integer;
	943	pAlias : tAlias;
	944	begin
	945	i := AliasComboBox.ItemIndex;
	946	if i > -1 then begin
	947	pAlias := tAlias(AliasComboBox.Items.Objects[i]);
	948	if pAlias<>nil then begin
	949	for j := 0 to FCurPatientInfo.AliasInfo.Count-1 do begin
	950	if FCurPatientInfo.AliasInfo.Objects[j] = pAlias then begin
	951	FCurPatientInfo.AliasInfo.Delete(j);
	952	SetModified(true);
	953	pAlias.Free;
	954	AliasComboBox.Items.Delete(i);
	955	//AliasComboBox.ItemIndex := 0;
	956	//ShowAliasInfo(FCurPatientInfo);
	957	ProgAliasChangeOccuring:= true;
	958	AliasNameEdit.Text:='';
	959	AliasSSNEdit.Text:='';
	960	ProgAliasChangeOccuring:= false;
	961	break;
	962	end;
	963	end;
	964	end;
	965	end;
	966	if AliasCombobox.Items.Count=0 then begin
	967	AliasNameEdit.Text:='';
	968	AliasSSNEdit.Text:='';
	969	SetAliasEnabled(false);
	970	AliasCombobox.Text := '';
	971	end;
	972	end;
	973
	974	procedure TfrmPtDemoEdit.FormShow(Sender: TObject);
	975	begin
[541]	976	PageControl.ActivePageIndex := 0;
[453]	977	GetPtInfo(FServerPatientInfo);
	978	FCurPatientInfo.Assign(FServerPatientInfo);
[541]	979	ShowPtInfo(FCurPatientInfo);
[453]	980	end;
	981
	982	procedure TfrmPtDemoEdit.CombinedNameEditChange(Sender: TObject);
	983	var LName,FName,MName : string;
	984	begin
	985	if ProgNameChangeOccuring = false then begin
	986	FCurPatientInfo.CombinedName := CombinedNameEdit.Text;
	987	SetModified(true);
	988	if CombinedNameEdit.Text <> CombinedName then begin
	989	ProgNameChangeOccuring := true;
	990	NameParts(CombinedNameEdit.Text, LName, FName, MName);
	991	LNameEdit.Text := LName;
	992	FNameEdit.Text := FName;
	993	MNameEdit.Text := MName;
	994	ProgNameChangeOccuring := false;
	995	end;
	996	end;
	997	end;
	998
	999	procedure TfrmPtDemoEdit.LNameEditChange(Sender: TObject);
	1000	begin
	1001	if ProgNameChangeOccuring = false then begin
	1002	FCurPatientInfo.LName := LNameEdit.Text;
	1003	SetModified(true);
	1004	CombinedNameEdit.Text := CombinedName;
	1005	end;
	1006	end;
	1007
	1008	procedure TfrmPtDemoEdit.FNameEditChange(Sender: TObject);
	1009	begin
	1010	if ProgNameChangeOccuring = false then begin
	1011	FCurPatientInfo.FName := FNameEdit.Text;
	1012	SetModified(true);
	1013	CombinedNameEdit.Text := CombinedName;
	1014	end
	1015	end;
	1016
	1017	procedure TfrmPtDemoEdit.MNameEditChange(Sender: TObject);
	1018	begin
	1019	if ProgNameChangeOccuring = false then begin
	1020	FCurPatientInfo.MName := MNameEdit.Text;
	1021	SetModified(true);
	1022	CombinedNameEdit.Text := CombinedName;
	1023	end;
	1024	end;
	1025
	1026	procedure TfrmPtDemoEdit.PrefixEditChange(Sender: TObject);
	1027	begin
	1028	if ProgNameChangeOccuring = false then begin
	1029	FCurPatientInfo.Prefix := PrefixEdit.Text;
	1030	SetModified(true);
	1031	end;
	1032	end;
	1033
	1034	procedure TfrmPtDemoEdit.SuffixEditChange(Sender: TObject);
	1035	begin
	1036	if ProgNameChangeOccuring = false then begin
	1037	FCurPatientInfo.Suffix := SuffixEdit.Text;
	1038	SetModified(true);
	1039	CombinedNameEdit.Text := CombinedName;
	1040	end;
	1041	end;
	1042
	1043	procedure TfrmPtDemoEdit.DOBEditChange(Sender: TObject);
	1044	begin
	1045	if ProgNameChangeOccuring = false then begin
	1046	FCurPatientInfo.DOB := DOBEdit.Text;
	1047	SetModified(true);
	1048	end;
	1049	end;
	1050
	1051	procedure TfrmPtDemoEdit.SSNumEditChange(Sender: TObject);
	1052	begin
	1053	if ProgNameChangeOccuring = false then begin
	1054	FCurPatientInfo.SSNum := SSNumEdit.Text;
	1055	SetModified(true);
	1056	end;
	1057	end;
	1058
[498]	1059	procedure TfrmPtDemoEdit.EMailEditChange(Sender: TObject);
	1060	begin
	1061	if ProgNameChangeOccuring = false then begin
	1062	FCurPatientInfo.EMail := EMailEdit.Text;
	1063	SetModified(true);
	1064	end;
	1065	end;
	1066
[453]	1067	procedure TfrmPtDemoEdit.SexComboBoxChange(Sender: TObject);
	1068	begin
	1069	if ProgNameChangeOccuring = false then begin
	1070	FCurPatientInfo.Sex := SexComboBox.Text;
	1071	SetModified(true);
	1072	end;
	1073	end;
	1074
	1075	procedure TfrmPtDemoEdit.DegreeEditChange(Sender: TObject);
	1076	begin
	1077	if ProgNameChangeOccuring = false then begin
	1078	FCurPatientInfo.Degree := DegreeEdit.Text;
	1079	SetModified(true);
	1080	end;
	1081	end;
	1082
	1083	procedure TfrmPtDemoEdit.AddressLine1EditChange(Sender: TObject);
	1084	begin
	1085	if ProgAddressChangeOccuring = false then SetModified(true);
	1086	Case AddressRGrp.ItemIndex of
	1087	0 : FCurPatientInfo.AddressLine1 := AddressLine1Edit.Text;
	1088	1 : FCurPatientInfo.TempAddressLine1 := AddressLine1Edit.Text;
	1089	2 : FCurPatientInfo.ConfidentalAddressLine1 := AddressLine1Edit.Text;
	1090	end; {case}
	1091	end;
	1092
	1093	procedure TfrmPtDemoEdit.AddressLine2EditChange(Sender: TObject);
	1094	begin
	1095	if ProgAddressChangeOccuring = false then SetModified(true);
	1096	Case AddressRGrp.ItemIndex of
	1097	0 : FCurPatientInfo.AddressLine2 := AddressLine2Edit.Text;
	1098	1 : FCurPatientInfo.TempAddressLine2 := AddressLine2Edit.Text;
	1099	2 : FCurPatientInfo.ConfidentalAddressLine2 := AddressLine2Edit.Text;
	1100	end; {case}
	1101	end;
	1102
	1103	procedure TfrmPtDemoEdit.AddressLine3EditChange(Sender: TObject);
	1104	begin
	1105	if ProgAddressChangeOccuring = false then SetModified(true);
	1106	Case AddressRGrp.ItemIndex of
	1107	0 : FCurPatientInfo.AddressLine3 := AddressLine3Edit.Text;
	1108	1 : FCurPatientInfo.TempAddressLine3 := AddressLine3Edit.Text;
	1109	2 : FCurPatientInfo.ConfidentalAddressLine3 := AddressLine3Edit.Text;
	1110	end; {case}
	1111	end;
	1112
	1113	procedure TfrmPtDemoEdit.CityEditChange(Sender: TObject);
	1114	begin
	1115	if ProgAddressChangeOccuring = false then SetModified(true);
	1116	Case AddressRGrp.ItemIndex of
	1117	0 : FCurPatientInfo.City := CityEdit.Text;
	1118	1 : FCurPatientInfo.TempCity := CityEdit.Text;
	1119	2 : FCurPatientInfo.ConfidentalCity := CityEdit.Text;
	1120	end; {case}
	1121	end;
	1122
	1123	procedure TfrmPtDemoEdit.Zip4EditChange(Sender: TObject);
	1124	begin
	1125	if ProgAddressChangeOccuring = false then SetModified(true);
	1126	Case AddressRGrp.ItemIndex of
	1127	0 : FCurPatientInfo.Zip4 := Zip4Edit.Text;
	1128	1 : FCurPatientInfo.TempZip4 := Zip4Edit.Text;
[496]	1129	2 : FCurPatientInfo.ConfidentalZip := leftstr(Zip4Edit.Text,5);
[453]	1130	end; {case}
	1131	end;
	1132
	1133	procedure TfrmPtDemoEdit.StateComboBoxChange(Sender: TObject);
	1134	begin
	1135	if ProgAddressChangeOccuring = false then SetModified(true);
	1136	Case AddressRGrp.ItemIndex of
	1137	0 : FCurPatientInfo.State := StateComboBox.Text;
	1138	1 : FCurPatientInfo.TempState := StateComboBox.Text;
	1139	2 : FCurPatientInfo.ConfidentalState := StateComboBox.Text;
	1140	end; {case}
	1141	end;
	1142
	1143	procedure TfrmPtDemoEdit.TempActiveCBClick(Sender: TObject);
	1144	begin
	1145	FCurPatientInfo.TempAddressActive := BoolUC(TempActiveCB.Checked);
	1146	if ProgAddressChangeOccuring = false then SetModified(true);
	1147	end;
	1148
	1149	procedure TfrmPtDemoEdit.ConfActiveCBClick(Sender: TObject);
	1150	begin
	1151	FCurPatientInfo.ConfAddressActive := BoolUC(ConfActiveCB.Checked);
	1152	if ProgAddressChangeOccuring = false then SetModified(true);
	1153	end;
	1154
	1155	procedure TfrmPtDemoEdit.BadAddressCBClick(Sender: TObject);
	1156	begin
	1157	FCurPatientInfo.BadAddress := BoolUC(BadAddressCB.Checked);
	1158	if ProgAddressChangeOccuring = false then SetModified(true);
	1159	end;
	1160
	1161	procedure TfrmPtDemoEdit.PhoneNumEditChange(Sender: TObject);
	1162	begin
	1163	if ProgPhoneChangeOccuring = false then SetModified(true);
	1164	Case PhoneNumGrp.ItemIndex of
	1165	0 : FCurPatientInfo.PhoneNumResidence := PhoneNumEdit.Text;
	1166	1 : FCurPatientInfo.PhoneNumWork := PhoneNumEdit.Text;
	1167	2 : FCurPatientInfo.PhoneNumCell := PhoneNumEdit.Text;
	1168	3 : FCurPatientInfo.PhoneNumTemp := PhoneNumEdit.Text;
	1169	end; {case}
	1170
	1171	end;
	1172
	1173	procedure TfrmPtDemoEdit.StartingDateEditChange(Sender: TObject);
	1174	begin
	1175	if ProgAddressChangeOccuring = false then SetModified(true);
	1176	Case AddressRGrp.ItemIndex of
	1177	1 : FCurPatientInfo.TempStartingDate := StartingDateEdit.Text;
	1178	2 : FCurPatientInfo.ConfidentalStartingDate := StartingDateEdit.Text;
	1179	end; {case}
	1180	end;
	1181
	1182	procedure TfrmPtDemoEdit.EndingDateEditChange(Sender: TObject);
	1183	begin
	1184	if ProgAddressChangeOccuring = false then SetModified(true);
	1185	Case AddressRGrp.ItemIndex of
	1186	1 : FCurPatientInfo.TempEndingDate := EndingDateEdit.Text;
	1187	2 : FCurPatientInfo.ConfidentalEndingDate := EndingDateEdit.Text;
	1188	end; {case}
	1189	end;
	1190
	1191	procedure TfrmPtDemoEdit.AliasNameEditChange(Sender: TObject);
	1192	var i : integer;
	1193	pAlias : tAlias;
	1194	tempB : boolean;
	1195	begin
	1196	if ProgAliasChangeOccuring=false then begin
	1197	i := AliasComboBox.ItemIndex;
	1198	if i > -1 then begin
	1199	pAlias := tAlias(AliasComboBox.Items.Objects[i]);
	1200	if pAlias<>nil then begin
	1201	pAlias.Name := AliasNameEdit.Text;
	1202	AliasComboBox.Items.Strings[i]:= AliasNameEdit.Text;
	1203	AliasComboBox.Text := AliasNameEdit.Text;
	1204	tempB := ProgAliasChangeOccuring;
	1205	ProgAliasChangeOccuring:=true;
	1206	AliasComboBox.ItemIndex := i;
	1207	ProgAliasChangeOccuring:=tempB;
	1208	SetModified(true);
	1209	end;
	1210	end;
	1211	end;
	1212	end;
	1213
	1214
	1215	procedure TfrmPtDemoEdit.AliasSSNEditChange(Sender: TObject);
	1216	var i : integer;
	1217	pAlias : tAlias;
	1218	begin
	1219	if ProgAliasChangeOccuring=false then begin
	1220	i := AliasComboBox.ItemIndex;
	1221	if i > -1 then begin
	1222	pAlias := tAlias(AliasComboBox.Items.Objects[i]);
	1223	if pAlias<>nil then begin
	1224	pAlias.SSN := AliasSSNEdit.Text;
	1225	SetModified(true);
	1226	end;
	1227	end;
	1228	end;
	1229	end;
	1230
	1231	procedure TfrmPtDemoEdit.SetAliasEnabled(value : boolean);
	1232	begin
	1233	AliasNameEdit.Enabled := value;
	1234	AliasSSNEdit.Enabled := value;
	1235	if value=true then begin
	1236	AliasNameEdit.Color := clWindow;
	1237	AliasSSNEdit.Color := clWindow;
	1238	end else begin
	1239	AliasNameEdit.Color := clInactiveBorder;
	1240	AliasSSNEdit.Color := clInactiveBorder;
	1241	end;
	1242	end;
	1243
	1244
	1245	function TfrmPtDemoEdit.CombinedName : string;
	1246	begin
	1247	Result := '';
	1248	Result := FNameEdit.Text;
	1249	if MNameEdit.Text <> '' then Result := Result + ' ' + MNameEdit.Text;
	1250	if SuffixEdit.Text <> '' then Result := Result + ' ' + SuffixEdit.Text;
	1251	if Result <> '' then Result := ',' + Result;
	1252	Result := LNameEdit.Text + Result;
	1253	end;
	1254
	1255	procedure TfrmPtDemoEdit.NameParts(CombinedName: string; var LName, FName, MName : string);
	1256	var tempS : string;
	1257	begin
	1258	LName := piece(CombinedName,',',1);
	1259	tempS := piece(CombinedName,',',2);
	1260	FName := piece(tempS,' ',1);
	1261	MName := piece(tempS,' ',2,16);
	1262	end;
	1263
	1264
	1265	procedure TfrmPtDemoEdit.ApplyBtnClick(Sender: TObject);
	1266	var TempPatientInfo : tPatientInfo;
	1267	begin
[541]	1268	if pagecontrol.ActivePageIndex = 0 then begin
[453]	1269	TempPatientInfo := tPatientInfo.Create;
	1270	TempPatientInfo.Assign(FCurPatientInfo);
	1271	TempPatientInfo.RemoveUnchanged(FServerPatientInfo);
	1272	PostChangedInfo(TempPatientInfo);
	1273	TempPatientInfo.Destroy;
	1274	SetModified(false);
[541]	1275	end else begin
	1276	PostVisibleGrid;
	1277	SetModified(false);
[453]	1278	end;
[541]	1279	end;
	1280	function TfrmPtDemoEdit.PostVisibleGrid: TModalResult;
	1281	begin
	1282	result := PostChanges(gridPatientDemo);
	1283	end;
[453]	1284
[819]	1285	function TfrmPtDemoEdit.PostChanges(Grid : TSortStringGrid) : TModalResult;
[541]	1286	//Results: mrNone -- no post done (not needed)
	1287	// mrCancel -- user pressed cancel on confirmation screen.
	1288	// mrNo -- signals posting error.
	1289	var Changes : TStringList;
	1290	PostResult : TModalResult;
	1291	CurrentData : TStringList;
	1292	GridInfo : TGridInfo;
	1293	IENS : string;
	1294	begin
	1295	Result := mrNone; //default to No changes
	1296	GridInfo := GetInfoForGrid(Grid);
	1297	if GridInfo=nil then exit;
	1298	CurrentData := GridInfo.Data;
	1299	if CurrentData=nil then exit;
	1300	if CurrentData.Count = 0 then exit;
	1301	IENS := Patient.DFN;
	1302	if IENS='' then exit;
	1303	Changes := TStringList.Create;
	1304	CompileChanges(Grid,CurrentData,Changes);
	1305	if Changes.Count>0 then begin
	1306	PostForm.PrepForm(Changes);
	1307	PostResult := PostForm.ShowModal;
	1308	if PostResult = mrOK then begin
	1309	//if DisuserChanged(Changes) then begin //looks for change in file 200, field 4
	1310	// InitializeUsersTreeView;
	1311	//end else begin
	1312	if Pos('+',IENS)>0 then begin
	1313	GridInfo.IENS := PostForm.GetNewIENS(IENS);
	1314	end;
	1315	if assigned(GridInfo.DataLoadProc) then begin
	1316	GridInfo.DataLoadProc(GridInfo);
	1317	end;
	1318	{
	1319	if CurrentData = CurrentUserData then begin
	1320	LoadUserData(IENS,CurrentData); //reload record from server.
	1321	end else if CurrentData = CurrentSettingsData then begin
	1322	GetSettingsInfo(GridInfo.FileNum, GridInfo.IENS, CurrentData);
	1323	end else if CurrentData = CurrentPatientData then begin
	1324	GetPatientInfo(GridInfo.IENS, CurrentData);
	1325	end else if CurrentData = CurrentAnyFileData then begin
	1326	GetAnyFileInfo(GridInfo.FileNum, GridInfo.IENS, CurrentData);
	1327	end;
	1328	}
	1329	//end;
	1330	end else if PostResult = mrNo then begin //mrNo is signal of post Error
	1331	// show error...
	1332	end;
	1333	Result := PostResult;
	1334	end else begin
	1335	Result := mrNone;
	1336	end;
	1337	Changes.Free;
	1338	end;
	1339
[819]	1340	procedure TfrmPtDemoEdit.CompileChanges(Grid : TSortStringGrid; CurrentUserData,Changes : TStringList);
[541]	1341	//Output format:
	1342	// FileNum^IENS^FieldNum^FieldName^newValue^oldValue
	1343
	1344	var row : integer;
	1345	Entry : tFileEntry;
	1346	oneEntry : string;
	1347	begin
	1348	for row := 1 to Grid.RowCount-1 do begin
	1349	Entry := GetLineInfo(Grid,CurrentUserData, row);
	1350	if Entry.oldValue <> Entry.newValue then begin
	1351	if (Entry.newValue <> CLICK_FOR_SUBS) and
	1352	(Entry.newValue <> COMPUTED_FIELD) and
	1353	(Entry.newValue <> CLICK_TO_EDIT) then begin
	1354	oneEntry := Entry.FileNum + '^' + Entry.IENS + '^' + Entry.Field + '^' + Entry.FieldName;
	1355	oneEntry := oneEntry + '^' + Entry.newValue + '^' + Entry.oldValue;
	1356	Changes.Add(oneEntry);
	1357	end;
	1358	end;
	1359	end;
	1360	end;
	1361
[453]	1362	procedure TfrmPtDemoEdit.SetModified(value : boolean);
	1363	begin
	1364	FCurPatientInfo.Modified := value;
	1365	ApplyBtn.Enabled := FCurPatientInfo.Modified;
	1366	end;
	1367
	1368	procedure TfrmPtDemoEdit.AddAliasBtnClick(Sender: TObject);
	1369	var pAlias : tAlias;
	1370	IEN : string;
	1371	begin
	1372	pAlias := tAlias.Create;
	1373	if FCurPatientInfo.AliasInfo.count>0 then begin
	1374	IEN := FCurPatientInfo.AliasInfo.Strings[FCurPatientInfo.AliasInfo.count-1];
	1375	end else begin
	1376	IEN := IntToStr(MaxAliasIEN);
	1377	end;
	1378	MaxAliasIEN := StrToInt(IEN)+1;
	1379	IEN := IntToStr(MaxAliasIEN);
	1380	FCurPatientInfo.AliasInfo.AddObject(IEN,pAlias);
	1381	SetModified(true);
	1382	AliasCombobox.Items.AddObject('<Edit New Alias>',pAlias);
	1383	//pAlias.Name := '<Edit New Alias>';
	1384	//AliasCombobox.Items.Add(ADD_NEW_ALIAS);
	1385	AliasCombobox.ItemIndex := AliasCombobox.Items.Count-1;
	1386	SetAliasEnabled(true);
	1387	ShowAliasInfo(FCurPatientInfo);
	1388	end;
	1389
	1390	procedure TfrmPtDemoEdit.OKBtnClick(Sender: TObject);
	1391	begin
	1392	if FCurPatientInfo.Modified = true then begin
	1393	case MessageDlg('Apply Changes?',mtConfirmation,mbYesNoCancel,0) of
	1394	mrYes : begin
[541]	1395	ApplyBtnClick(Sender);
	1396	frmPtDemoEdit.ModalResult := mrOK; //closes form
[453]	1397	end;
	1398	mrNo : begin
	1399	if ChangesMade = false then frmPtDemoEdit.ModalResult := mrCancel // closes form, signal no need for refresh
	1400	else frmPtDemoEdit.ModalResult := mrOK; // closes form.
	1401	end;
	1402	mrCancel : frmPtDemoEdit.ModalResult := mrNone; //do nothing
	1403	end; {case}
	1404	end else begin
	1405	if ChangesMade = false then frmPtDemoEdit.ModalResult := mrCancel // closes form, signal no need for refresh
	1406	else frmPtDemoEdit.ModalResult := mrOK; // closes form.
	1407	end;
	1408	end;
	1409
	1410	procedure TfrmPtDemoEdit.CancelBtnClick(Sender: TObject);
	1411	begin
	1412	if FCurPatientInfo.Modified = true then begin
	1413	case MessageDlg('Cancel Changes?',mtConfirmation,mbYesNoCancel,0) of
	1414	mrYes : frmPtDemoEdit.ModalResult := mrCancel; //closes form
	1415	mrNo : frmPtDemoEdit.ModalResult := mrNone; //do nothing
	1416	mrCancel : frmPtDemoEdit.ModalResult := mrNone; //do nothing
	1417	end; {case}
	1418	end else begin
	1419	frmPtDemoEdit.ModalResult := mrCancel; // closes form.
	1420	end;
	1421
	1422	end;
	1423
	1424
[541]	1425	procedure TfrmPtDemoEdit.PageControlChange(Sender: TObject);
	1426	var
	1427	GridInfo : TGridInfo;
	1428	IEN : longInt;
	1429	ModalResult : TModalResult;
[453]	1430
[541]	1431	begin
	1432	if pagecontrol.ActivePageIndex = 0 then begin
	1433	GetPtInfo(FServerPatientInfo);
	1434	FCurPatientInfo.Assign(FServerPatientInfo);
	1435	ShowPtInfo(FCurPatientInfo);
	1436	end else begin
	1437	IEN := strtoint(patient.dfn); //get info from selected patient
	1438	if IEN = 0 then exit;
	1439	GridInfo := GetInfoForGrid(gridPatientDemo);
	1440	if GridInfo = nil then exit;
	1441	GridInfo.IENS := IntToStr(IEN)+',';
	1442	GetPatientInfo(GridInfo);
	1443	end;
	1444
	1445	end;
	1446
	1447	procedure TfrmPtDemoEdit.GetPatientInfo(GridInfo: TGridInfo);
	1448
	1449	var cmd,RPCResult : string;
	1450	IENS : String;
[819]	1451	grid : TSortStringGrid;
[541]	1452	begin
	1453	// IENS := Patient.DFN;
	1454	IENS := GridInfo.IENS;
	1455	// Data := GridInfo.Data;
	1456	grid := GridInfo.Grid;
	1457	grid.Cells[0,1] := '';
	1458	grid.Cells[1,1] := '';
	1459	grid.Cells[2,1] := '';
	1460	grid.RowCount :=2;
	1461	grid.Cursor := crHourGlass;
	1462	if IENS <> '0,' then begin
	1463	RPCBrokerV.remoteprocedure := 'TMG CHANNEL';
	1464	RPCBrokerV.param[0].ptype := list;
	1465	cmd := 'GET ONE RECORD^2^' + IENS;
	1466	RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
[793]	1467	//RPCBrokerV.Call;
	1468	CallBroker;
[541]	1469	RPCResult := RPCBrokerV.Results[0]; //returns: error: -1; success=1
	1470	//Results[1]='FileNum^IENS^FieldNum^ExtValue^FieldName^DDInfo...
	1471	//Results[2]='FileNum^IENS^FieldNum^ExtValue^FieldName^DDInfo...
	1472	if piece(RPCResult,'^',1)='-1' then begin
	1473	messagedlg(RPCBrokerV.Results[1],mtError,mbOKCancel,0);
	1474	//FMErrorForm.Memo.Lines.Assign(RPCBrokerV.Results);
	1475	end else begin
	1476	GridInfo.Data.Assign(RPCBrokerV.results);
	1477	//LoadAnyGrid(grid,false,'2',IENS,Data);
	1478	LoadAnyGridFromInfo(GridInfo);
	1479	end;
	1480	end;
	1481	gridPatientDemo.Cursor := crDefault;
	1482	end;
	1483
[819]	1484	procedure TfrmPtDemoEdit.LoadAnyGrid(Grid : TSortStringGrid; //the TSortStringGrid to load
[541]	1485	BasicMode: boolean;
	1486	FileNum : string;
	1487	IENS : string;
	1488	CurrentData : TStringList);
	1489	var
	1490	GridInfo : TGridInfo;
	1491	begin
	1492	GridInfo := TGridInfo.Create;
	1493	//This stores load information into a GridInfo
	1494	GridInfo.Grid := Grid;
	1495	GridInfo.BasicMode := BasicMode;
	1496	GridInfo.FileNum := FileNum;
	1497	GridInfo.IENS := IENS;
	1498	GridInfo.Data := CurrentData;
	1499	LoadAnyGridFromInfo(GridInfo);
	1500	GridInfo.Free;
	1501	end;
	1502
	1503	procedure TfrmPtDemoEdit.LoadAnyGridFromInfo(GridInfo : TGridInfo);
	1504	//This assumes that GridInfo already has loaded info.
	1505	var
[819]	1506	Grid : TSortStringGrid; //the TSortStringGrid to load
[541]	1507	BasicMode: boolean;
	1508	FileNum : string;
	1509	IENS : string;
	1510	CurrentData : TStringList;
	1511
[819]	1512	procedure LoadOneLine (Grid : TSortStringGrid; oneEntry : string; GridRow : integer);
[541]	1513	var
	1514	tempFile,IENS : string;
	1515	fieldNum,fieldName,fieldDef : string;
	1516	subFileNum : string;
	1517	value : string;
	1518	begin
	1519	tempFile := Piece(oneEntry,'^',1);
	1520	if tempFile = FileNum then begin //handle subfiles later...
	1521	IENS := Piece(oneEntry,'^',2);
	1522	fieldNum := Piece(oneEntry,'^',3);
	1523	value := Piece(oneEntry,'^',4);
	1524	fieldName := Piece(oneEntry,'^',5);
	1525	fieldDef := Piece(oneEntry,'^',6);
	1526	Grid.RowCount := GridRow + 1;
	1527	Grid.Cells[0,GridRow] := fieldNum;
	1528	Grid.Cells[1,GridRow] := fieldName;
	1529	if Pos('W',fieldDef)>0 then begin
	1530	Grid.Cells[2,GridRow] := CLICK_TO_EDIT;
	1531	end else if IsSubFile(fieldDef, subFileNum) then begin
	1532	if IsWPField(FileNum,fieldNum) then begin
	1533	Grid.Cells[2,GridRow] := CLICK_TO_EDIT;
	1534	end else begin
	1535	Grid.Cells[2,GridRow] := CLICK_FOR_SUBS;
	1536	end;
	1537	end else if Pos('C',fieldDef)>0 then begin
	1538	Grid.Cells[2,GridRow] := COMPUTED_FIELD;
	1539	end else begin
	1540	Grid.Cells[2,GridRow] := value;
	1541	end;
	1542	Grid.RowHeights[GridRow] := DEF_GRID_ROW_HEIGHT;
	1543	end;
	1544	end;
	1545
	1546	function getOneLine(CurrentData : TStringList; oneFileNum,oneFieldNum : string) : string;
	1547	var i : integer;
	1548	FileNum,FieldNum : string;
	1549	begin
	1550	result := '';
	1551	// FileNum^IENS^FieldNum^FieldName^newValue^oldValue
	1552	for i := 1 to CurrentData.Count - 1 do begin
	1553	FileNum := piece(CurrentData.Strings[i],'^',1);
	1554	if FileNum <> oneFileNum then continue;
	1555	FieldNum := piece(CurrentData.Strings[i],'^',3);
	1556	if FieldNum <> oneFieldNum then continue;
	1557	result := CurrentData.Strings[i];
	1558	break;
	1559	end;
	1560	end;
	1561
	1562	var i : integer;
	1563	oneEntry : string;
	1564	oneFileNum,oneFieldNum : string;
	1565	gridRow : integer;
	1566
	1567	begin
	1568	FLoadingGrid := true;
	1569	if GridInfo=nil then exit;
	1570	Grid := GridInfo.Grid;
	1571	BasicMode := GridInfo.BasicMode;
	1572	FileNum := GridInfo.FileNum;
	1573	IENS := GridInfo.IENS;
	1574	CurrentData := GridInfo.Data;
	1575
	1576	Grid.Cells[0,1] := '';
	1577	Grid.Cells[1,1] := '';
	1578	Grid.Cells[2,1] := '';
	1579	Grid.RowCount :=2;
	1580	Grid.ColWidths[0] := 50;
	1581	Grid.ColWidths[1] := 200;
	1582	Grid.ColWidths[2] := 300;
	1583	Grid.Cells[0,0] := '#';
	1584	Grid.Cells[1,0] := 'Name';
	1585	Grid.Cells[2,0] := 'Value';
	1586
	1587	if BasicMode=false then begin
	1588	for i := 1 to CurrentData.Count-1 do begin //start at 1 because [0] = 1^Success
	1589	oneEntry := CurrentData.Strings[i];
	1590	LoadOneLine (Grid,oneEntry,i);
	1591	end;
	1592	end else if BasicMode=true then begin
	1593	gridRow := 1;
	1594	for i := 0 to BasicTemplate.Count-1 do begin
	1595	oneFileNum := Piece(BasicTemplate.Strings[i],'^',1);
	1596	if oneFileNum <> fileNum then continue;
	1597	oneFieldNum := Piece(BasicTemplate.Strings[i],'^',2);
	1598	oneEntry := getOneLine(CurrentData,oneFileNum,oneFieldNum);
	1599	LoadOneLine (Grid,oneEntry,gridRow);
	1600	Inc(GridRow);
	1601	end;
	1602	end;
	1603	FLoadingGrid := false;
	1604	end;
	1605
[819]	1606	function TfrmPtDemoEdit.GetInfoForGrid(Grid : TSortStringGrid) : TGridInfo;
[541]	1607	var i : integer;
	1608	begin
	1609	i := GetInfoIndexForGrid(Grid);
	1610	if i > -1 then begin
	1611	result := TGridInfo(DataForGrid.Objects[i]);
	1612	end else begin
	1613	result := nil;
	1614	end;
	1615	end;
	1616
	1617
[819]	1618	function TfrmPtDemoEdit.GetInfoIndexForGrid(Grid : TSortStringGrid) : integer;
[541]	1619	var s : string;
	1620	begin
	1621	s := IntToStr(integer(Grid));
	1622	result := Dataforgrid.indexof(s);
	1623	end;
	1624
	1625	function TfrmPtDemoEdit.IsSubFile(FieldDef: string ; var SubFileNum : string) : boolean;
	1626	//SubFileNum is OUT parameter
	1627	begin
	1628	SubFileNum := ExtractNum(FieldDef,1);
	1629	result := (SubFileNum <> '');
	1630	end;
	1631
	1632	function TfrmPtDemoEdit.IsWPField(FileNum,FieldNum : string) : boolean;
	1633	var RPCResult : string;
	1634	SrchStr : string;
	1635	Idx: integer;
	1636	begin
	1637	SrchStr := FileNum + '^' + FieldNum + '^';
	1638	//Idx := CachedWPField.IndexOf(SrchStr + 'YES');
	1639	//if Idx > -1 then begin Result := true; exit; end;
	1640	//Idx := CachedWPField.IndexOf(SrchStr + 'NO');
	1641	//if Idx > -1 then begin Result := false; exit; end;
	1642
	1643	result := false;
	1644	RPCBrokerV.remoteprocedure := 'TMG CHANNEL';
	1645	RPCBrokerV.param[0].ptype := list;
	1646	RPCBrokerV.Param[0].Mult['"REQUEST"'] := 'IS WP FIELD^' + FileNum + '^' + FieldNum;
[793]	1647	//RPCBrokerV.Call;
	1648	CallBroker;
[541]	1649	RPCResult := RPCBrokerV.Results[0]; //returns: error: -1; success=1
	1650	if piece(RPCResult,'^',1)='-1' then begin
	1651	//FMErrorForm.Memo.Lines.Assign(RPCBrokerV.Results);
	1652	//FMErrorForm.PrepMessage;
	1653	//FMErrorForm.ShowModal;
	1654	end else begin
	1655	RPCResult := piece(RPCResult,'^',3);
	1656	result := (RPCResult = 'YES');
	1657	//CachedWPField.Add(SrchStr + RPCResult);
	1658	end;
	1659	end;
	1660
	1661	function TfrmPtDemoEdit.ExtractNum (S : String; StartPos : integer) : string;
	1662	var i : integer;
	1663	ch : char;
	1664	begin
	1665	result := '';
	1666	if (S = '') or (StartPos < 0) then exit;
	1667	i := StartPos;
	1668	repeat
	1669	ch := S[i];
	1670	i := i + 1;
	1671	if ch in ['0'..'9','.'] then begin
	1672	Result := Result + ch;
	1673	end;
	1674	until (i > length(S)) or not (ch in ['0'..'9','.'])
	1675	end;
	1676
	1677	procedure TfrmPtDemoEdit.gridPatientDemoSelectCell(Sender: TObject; ACol,
	1678	ARow: Integer; var CanSelect: Boolean);
	1679	(*
	1680	For Field def, here is the legend
	1681	character meaning
	1682
	1683	BC The data is Boolean Computed (true or false).
	1684	C The data is Computed.
	1685	Cm The data is multiline Computed.
	1686	DC The data is Date-valued, Computed.
	1687	D The data is Date-valued.
	1688	F The data is Free text.
	1689	I The data is uneditable.
	1690	Pn The data is a Pointer reference to file "n".
	1691	S The data is from a discrete Set of codes.
	1692
	1693	N The data is Numeric-valued.
	1694
	1695	Jn To specify a print length of n characters.
	1696	Jn,d To specify printing n characters with decimals.
	1697
	1698	V The data is a Variable pointer.
	1699	W The data is Word processing.
	1700	WL The Word processing data is normally printed in Line mode (i.e., without word wrap).
	1701	*)
	1702	var oneEntry,FieldDef : string;
	1703	date,time: string;
	1704	FileNum,FieldNum,SubFileNum : string;
	1705	GridFileNum : string;
	1706	UserLine : integer;
[819]	1707	Grid : TSortStringGrid;
[541]	1708	IEN : int64;
	1709	IENS : string;
	1710	CurrentData : TStringList;
	1711	GridInfo : TGridInfo;
	1712	SubFileForm : TSubFileForm;
	1713	begin
	1714	if FLoadingGrid then exit; //prevent pseudo-clicks during loading...
[819]	1715	Grid := (Sender as TSortStringGrid);
[541]	1716	GridInfo := GetInfoForGrid(Grid);
	1717	if GridInfo=nil then exit;
	1718	GridFileNum := GridInfo.FileNum;
	1719	CanSelect := false; //default to NOT selectable.
	1720	CurrentData := GridInfo.Data;
	1721	if CurrentData=nil then exit;
	1722	if CurrentData.Count = 0 then exit;
	1723	UserLine := GetUserLine(CurrentData,Grid,ARow);
	1724	if UserLine = -1 then exit;
	1725	oneEntry := CurrentData.Strings[UserLine];
	1726	FieldDef := Piece(oneEntry,'^',6);
	1727	if Pos('F',FieldDef)>0 then begin //Free text
	1728	CanSelect := true;
	1729	end else if IsSubFile(FieldDef,SubFileNum) then begin //Subfiles.
	1730	FileNum := Piece(oneEntry,'^',1);
	1731	FieldNum := Piece(oneEntry,'^',3);
	1732	if IsWPField(FileNum,FieldNum) then begin
	1733	IENS := Piece(oneEntry,'^',2);
	1734	EditTextForm.PrepForm(FileNum,FieldNum,IENS);
	1735	EditTextForm.ShowModal;
	1736	end else begin
	1737	//handle subfiles here
	1738	IENS := '';
	1739	if GridInfo.Message = MSG_SUB_FILE then begin //used message from subfile Grid
	1740	IENS := GridInfo.IENS;
	1741	end; // else if LastSelTreeNode <> nil then begin //this is one of the selction trees.
	1742	IEN := strtoint(Patient.DFN); //longInt(LastSelTreeNode.Data);
	1743	if IEN > 0 then IENS := InttoStr(IEN) + ',';
	1744	if GridInfo.Data = CurrentAnyFileData then begin
	1745	IEN := strtoint(patient.dfn); //get info from selected record
	1746	if IEN > 0 then IENS := InttoStr(IEN) + ',';
	1747	end;
	1748	if IENS <> '' then begin
	1749	SubFileForm := TSubFileForm.Create(self);
	1750	SubFileForm.PrepForm(SubFileNum,IENS);
	1751	SubfileForm.ShowModal; // note: may call this function again recursively for sub-sub-files etc.
	1752	SubFileForm.Free;
	1753	end else begin
	1754	MessageDlg('IENS for File="". Can''t process.',mtInformation,[MBOK],0);
	1755	end;
	1756	end;
	1757	end else if Pos('C',FieldDef)>0 then begin //computed fields.
	1758	CanSelect := false;
	1759	end else if Pos('D',FieldDef)>0 then begin //date field
	1760	date := piece(Grid.Cells[ACol,ARow],'@',1);
	1761	time := piece(Grid.Cells[ACol,ARow],'@',2);
	1762	if date <> '' then begin
	1763	SelDateTimeForm.DateTimePicker.Date := StrToDate(date);
	1764	end else begin
	1765	SelDateTimeForm.DateTimePicker.Date := SysUtils.Date;
	1766	end;
	1767	if SelDateTimeForm.ShowModal = mrOK then begin
	1768	date := DateToStr(SelDateTimeForm.DateTimePicker.Date);
	1769	time := TimeToStr(SelDateTimeForm.DateTimePicker.Time);
	1770	if time <> '' then date := date; // + '@' + time; elh 8/15/08
	1771	Grid.Cells[ACol,ARow] := date;
	1772	end;
	1773	CanSelect := true;
	1774	end else if Pos('S',FieldDef)>0 then begin //Set of Codes
	1775	SetSelForm.PrepForm(Piece(oneEntry,'^',7));
	1776	if SetSelForm.ShowModal = mrOK then begin
	1777	Grid.Cells[ACol,ARow] := SetSelForm.ComboBox.Text;
	1778	CanSelect := true;
	1779	end;
	1780	end else if Pos('I',FieldDef)>0 then begin //uneditable
	1781	ShowMessage('Sorry. Flagged as UNEDITABLE.');
	1782	end else if Pos('P',FieldDef)>0 then begin //Pointer to file.
	1783	FileNum := ExtractNum (FieldDef,Pos('P',FieldDef)+1);
	1784	//check for validity here...
	1785	FieldLookupForm.PrepForm(FileNum,Grid.Cells[ACol,ARow]);
	1786	if FieldLookupForm.ShowModal = mrOK then begin
	1787	Grid.Cells[ACol,ARow] := FieldLookupForm.ORComboBox.Text;
	1788	CanSelect := true;
	1789	end;
	1790	end;
	1791	if CanSelect then begin
	1792	FLastSelectedRow := ARow;
	1793	FLastSelectedCol := ACol;
	1794	SetModified(True);
	1795	end;
	1796	//GridInfo.ApplyBtn.Enabled := true;
	1797	//GridInfo.RevertBtn.Enabled := true;
	1798	end;
	1799
[819]	1800	function TfrmPtDemoEdit.GetLineInfo(Grid : TSortStringGrid; CurrentUserData : TStringList; ARow: integer) : tFileEntry;
[541]	1801	var fieldNum : string;
	1802	oneEntry : string;
	1803	fileNum : string;
	1804	gridRow : integer;
	1805	begin
	1806	fieldNum := Grid.Cells[0,ARow];
	1807	gridRow := FindInStrings(fieldNum, CurrentUserData, fileNum);
	1808	if gridRow > -1 then begin
	1809	oneEntry := CurrentUserData.Strings[gridRow];
	1810	Result.Field := fieldNum;
	1811	Result.FieldName := Grid.Cells[1,ARow];
	1812	Result.FileNum := fileNum;
	1813	Result.IENS := Piece(oneEntry,'^',2);
	1814	Result.oldValue := Piece(oneEntry,'^',4);
	1815	Result.newValue := Grid.Cells[2,ARow];
	1816	end else begin
	1817	Result.Field := '';
	1818	Result.FieldName := '';
	1819	Result.FileNum := '';
	1820	Result.IENS := '';
	1821	Result.oldValue := '';
	1822	Result.newValue := '';
	1823	end;
	1824	end;
	1825
	1826	procedure TfrmPtDemoEdit.GetOneRecord(FileNum, IENS : string; Data, BlankFileInfo: TStringList);
	1827	var cmd,RPCResult : string;
	1828	i : integer;
	1829	oneEntry : string;
	1830	begin
	1831	Data.Clear;
	1832	if (IENS='') then exit;
	1833	if Pos('+',IENS)=0 then begin //don't ask server to load +1 records.
	1834	RPCBrokerV.remoteprocedure := 'TMG CHANNEL';
	1835	RPCBrokerV.Param[0].Value := '.X'; // not used
	1836	RPCBrokerV.param[0].ptype := list;
	1837	cmd := 'GET ONE RECORD^' + FileNum + '^' + IENS;
	1838	RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
[793]	1839	//RPCBrokerV.Call;
	1840	CallBroker;
[541]	1841	RPCResult := RPCBrokerV.Results[0]; //returns: error: -1; success=1
	1842	if piece(RPCResult,'^',1)='-1' then begin
	1843	FMErrorForm.Memo.Lines.Assign(RPCBrokerV.Results);
	1844	FMErrorForm.PrepMessage;
	1845	FMErrorForm.ShowModal;
	1846	end else begin
	1847	Data.Assign(RPCBrokerV.Results);
	1848	end;
	1849	end else begin
	1850	Data.Add('1^Success'); //to keep same as call to server
	1851	if BlankFileInfo.Count = 0 then begin
	1852	//Format is: FileNum^^FieldNum^^DDInfo...
	1853	// elh GetBlankFileInfo(FileNum,BlankFileInfo);
	1854	end;
	1855	for i := 1 to BlankFileInfo.Count-1 do begin //0 is 1^success
	1856	oneEntry := BlankFileInfo.Strings[i];
	1857	// elh SetPiece(oneEntry,'^',2,IENS);
	1858	Data.Add(oneEntry);
	1859	end;
	1860	end;
	1861	end;
	1862
[819]	1863	function TfrmPtDemoEdit.GetUserLine(CurrentUserData : TStringList; Grid : TSortStringGrid; ARow: integer) : integer;
[541]	1864	var fieldNum: string;
	1865	tempFileNum : string;
	1866	begin
	1867	fieldNum := Grid.Cells[0,ARow];
	1868	Result := FindInStrings(fieldNum,CurrentUserData,tempFileNum);
	1869	end;
	1870
	1871	function TfrmPtDemoEdit.FindInStrings(fieldNum : string; Strings : TStringList; var fileNum : string) : integer;
	1872	//Note: if fileNum is passed blank, then first matching file will be placed in it (i.e. OUT parameter)
	1873	var tempFieldNum : string;
	1874	oneEntry,tempFile : string;
	1875	i : integer;
	1876	begin
	1877	result := -1;
	1878	fileNum := '';
	1879	for i := 1 to Strings.Count-1 do begin //0 --> 1^success
	1880	oneEntry := Strings.Strings[i];
	1881	tempFile := Piece(oneEntry,'^',1);
	1882	if fileNum='' then fileNum := tempFile;
	1883	if tempFile <> fileNum then continue; //ignore subfiles
	1884	tempFieldNum := Piece(oneEntry,'^',3);
	1885	if tempFieldNum <> fieldNum then continue;
	1886	Result := i;
	1887	break;
	1888	end;
	1889	end;
	1890
[819]	1891	procedure TfrmPtDemoEdit.AddGridInfo(Grid: TSortStringGrid;
[541]	1892	Data : TStringList;
	1893	BasicMode : boolean;
	1894	DataLoader : TGridDataLoader;
	1895	FileNum : string);
	1896	var tempGridInfo : TGridInfo;
	1897	begin
	1898	tempGridInfo := TGridInfo.Create;
	1899	tempGridInfo.Grid := Grid;
	1900	tempGridInfo.Data := Data;
	1901	tempGridInfo.BasicMode := BasicMode;
	1902	tempGridInfo.FileNum := FileNum;
	1903	tempGridInfo.DataLoadProc := DataLoader;
	1904	//tempGridInfo.ApplyBtn := ApplyBtn;
	1905	//tempGridInfo.RevertBtn := RevertBtn;
	1906	RegisterGridInfo(tempGridInfo);
	1907	end;
	1908
	1909	procedure TfrmPtDemoEdit.RegisterGridInfo(GridInfo : TGridInfo);
	1910	var s : string;
	1911	begin
	1912	if GridInfo = nil then exit;
	1913	s := IntToStr(integer(GridInfo.Grid));
	1914	DataForGrid.AddObject(s,GridInfo);
	1915	end;
	1916
	1917	procedure TfrmPtDemoEdit.gridPatientDemoSetEditText(Sender: TObject; ACol,
	1918	ARow: Integer; const Value: String);
	1919	begin
	1920	SetModified(True);
	1921	end;
	1922
	1923	procedure TfrmPtDemoEdit.PageControlChanging(Sender: TObject;
	1924	var AllowChange: Boolean);
	1925	var
	1926	intAnswer : Integer;
	1927	begin
	1928	//Before changing the form, find out if changes need to be applied and
	1929	//prompt user. elh
	1930	if ApplyBtn.enabled = True then begin
	1931	intAnswer := messagedlg('Do you want to apply your changes?', mtWarning,mbYesNoCancel,0);
	1932	if intAnswer = mrYes then begin //Yes
	1933	ApplyBtnClick(Sender);
	1934	//messagedlg('Changes Saved.', mtWarning,[mbOK],0);
	1935	SetModified(False);
	1936	end else if intAnswer = mrNo then begin //No
	1937	SetModified(False);
	1938	end else if intAnswer = mrCancel then begin //Cancel
	1939	AllowChange := False;
	1940	end;
	1941	end;
	1942	end;
[453]	1943	end.

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtDemoEdit.pas@ 1096

Download in other formats: