Context Navigation

fNotes.pas@ 1747

Last change on this file since 1747 was 460, checked in by Kevin Toppenberg, 17 years ago
Uploading from OR_30_258
File size: 137.7 KB

Line
1	unit fNotes;
2	{$O-}
3
4	interface
5
6	uses
7	Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8	fHSplit, StdCtrls, ExtCtrls, Menus, ComCtrls, ORCtrls, ORFn, uConst, ORDtTm,
9	uPCE, ORClasses, fDrawers, ImgList, rTIU, uTIU, uDocTree, fRptBox, fPrintList,
10	fNoteST, ORNet, fNoteSTStop;
11
12	type
13	TfrmNotes = class(TfrmHSplit)
14	mnuNotes: TMainMenu;
15	mnuView: TMenuItem;
16	mnuViewChart: TMenuItem;
17	mnuChartReports: TMenuItem;
18	mnuChartLabs: TMenuItem;
19	mnuChartDCSumm: TMenuItem;
20	mnuChartCslts: TMenuItem;
21	mnuChartNotes: TMenuItem;
22	mnuChartOrders: TMenuItem;
23	mnuChartMeds: TMenuItem;
24	mnuChartProbs: TMenuItem;
25	mnuChartCover: TMenuItem;
26	Z1: TMenuItem;
27	mnuViewDetail: TMenuItem;
28	mnuAct: TMenuItem;
29	mnuActNew: TMenuItem;
30	Z2: TMenuItem;
31	mnuActSave: TMenuItem;
32	mnuActDelete: TMenuItem;
33	mnuActEdit: TMenuItem;
34	mnuActSign: TMenuItem;
35	mnuActAddend: TMenuItem;
36	lblNotes: TOROffsetLabel;
37	pnlRead: TPanel;
38	lblTitle: TOROffsetLabel;
39	memNote: TRichEdit;
40	pnlWrite: TPanel;
41	memNewNote: TRichEdit;
42	Z3: TMenuItem;
43	mnuViewAll: TMenuItem;
44	mnuViewByAuthor: TMenuItem;
45	mnuViewByDate: TMenuItem;
46	mnuViewUncosigned: TMenuItem;
47	mnuViewUnsigned: TMenuItem;
48	mnuActSignList: TMenuItem;
49	cmdNewNote: TORAlignButton;
50	cmdPCE: TORAlignButton;
51	lblSpace1: TLabel;
52	popNoteMemo: TPopupMenu;
53	popNoteMemoCut: TMenuItem;
54	popNoteMemoCopy: TMenuItem;
55	popNoteMemoPaste: TMenuItem;
56	Z10: TMenuItem;
57	popNoteMemoSignList: TMenuItem;
58	popNoteMemoDelete: TMenuItem;
59	popNoteMemoEdit: TMenuItem;
60	popNoteMemoSave: TMenuItem;
61	popNoteMemoSign: TMenuItem;
62	popNoteList: TPopupMenu;
63	popNoteListAll: TMenuItem;
64	popNoteListByAuthor: TMenuItem;
65	popNoteListByDate: TMenuItem;
66	popNoteListUncosigned: TMenuItem;
67	popNoteListUnsigned: TMenuItem;
68	sptVert: TSplitter;
69	memPCEShow: TRichEdit;
70	mnuActIdentifyAddlSigners: TMenuItem;
71	popNoteMemoAddlSign: TMenuItem;
72	Z11: TMenuItem;
73	popNoteMemoSpell: TMenuItem;
74	popNoteMemoGrammar: TMenuItem;
75	mnuViewCustom: TMenuItem;
76	N1: TMenuItem;
77	mnuViewSaveAsDefault: TMenuItem;
78	ReturntoDefault1: TMenuItem;
79	pnlDrawers: TPanel;
80	lstNotes: TORListBox;
81	splDrawers: TSplitter;
82	popNoteMemoTemplate: TMenuItem;
83	Z12: TMenuItem;
84	mnuOptions: TMenuItem;
85	mnuEditTemplates: TMenuItem;
86	mnuNewTemplate: TMenuItem;
87	N2: TMenuItem;
88	mnuEditSharedTemplates: TMenuItem;
89	mnuNewSharedTemplate: TMenuItem;
90	popNoteMemoAddend: TMenuItem;
91	pnlFields: TPanel;
92	lblNewTitle: TStaticText;
93	lblRefDate: TStaticText;
94	lblAuthor: TStaticText;
95	lblVisit: TStaticText;
96	lblCosigner: TStaticText;
97	cmdChange: TButton;
98	lblSubject: TStaticText;
99	txtSubject: TCaptionEdit;
100	timAutoSave: TTimer;
101	popNoteMemoPaste2: TMenuItem;
102	popNoteMemoReformat: TMenuItem;
103	Z4: TMenuItem;
104	mnuActChange: TMenuItem;
105	mnuActLoadBoiler: TMenuItem;
106	bvlNewTitle: TBevel;
107	popNoteMemoSaveContinue: TMenuItem;
108	N3: TMenuItem;
109	mnuEditDialgFields: TMenuItem;
110	tvNotes: TORTreeView;
111	lvNotes: TCaptionListView;
112	sptList: TSplitter;
113	N4: TMenuItem;
114	popNoteListExpandSelected: TMenuItem;
115	popNoteListExpandAll: TMenuItem;
116	popNoteListCollapseSelected: TMenuItem;
117	popNoteListCollapseAll: TMenuItem;
118	popNoteListCustom: TMenuItem;
119	mnuActDetachFromIDParent: TMenuItem;
120	N5: TMenuItem;
121	popNoteListDetachFromIDParent: TMenuItem;
122	popNoteListAddIDEntry: TMenuItem;
123	mnuActAddIDEntry: TMenuItem;
124	mnuIconLegend: TMenuItem;
125	N6: TMenuItem;
126	popNoteMemoFind: TMenuItem;
127	dlgFindText: TFindDialog;
128	dlgReplaceText: TReplaceDialog;
129	popNoteMemoReplace: TMenuItem;
130	N7: TMenuItem;
131	mnuChartSurgery: TMenuItem;
132	mnuActAttachtoIDParent: TMenuItem;
133	popNoteListAttachtoIDParent: TMenuItem;
134	N8: TMenuItem;
135	popNoteMemoPreview: TMenuItem;
136	popNoteMemoInsTemplate: TMenuItem;
137	popNoteMemoEncounter: TMenuItem;
138	mnuSearchForText: TMenuItem;
139	popSearchForText: TMenuItem;
140	mnuViewInformation: TMenuItem;
141	mnuViewDemo: TMenuItem;
142	mnuViewVisits: TMenuItem;
143	mnuViewPrimaryCare: TMenuItem;
144	mnuViewMyHealtheVet: TMenuItem;
145	mnuInsurance: TMenuItem;
146	mnuViewFlags: TMenuItem;
147	mnuViewReminders: TMenuItem;
148	mnuViewRemoteData: TMenuItem;
149	mnuViewPostings: TMenuItem;
150	procedure mnuChartTabClick(Sender: TObject);
151	procedure lstNotesClick(Sender: TObject);
152	procedure pnlRightResize(Sender: TObject);
153	procedure cmdNewNoteClick(Sender: TObject);
154	procedure mnuActNewClick(Sender: TObject);
155	procedure mnuActAddIDEntryClick(Sender: TObject);
156	procedure mnuActSaveClick(Sender: TObject);
157	procedure mnuViewClick(Sender: TObject);
158	procedure mnuActAddendClick(Sender: TObject);
159	procedure mnuActDetachFromIDParentClick(Sender: TObject);
160	procedure mnuActSignListClick(Sender: TObject);
161	procedure mnuActDeleteClick(Sender: TObject);
162	procedure mnuActEditClick(Sender: TObject);
163	procedure mnuActSignClick(Sender: TObject);
164	procedure cmdPCEClick(Sender: TObject);
165	procedure popNoteMemoCutClick(Sender: TObject);
166	procedure popNoteMemoCopyClick(Sender: TObject);
167	procedure popNoteMemoPasteClick(Sender: TObject);
168	procedure popNoteMemoPopup(Sender: TObject);
169	procedure pnlWriteResize(Sender: TObject);
170	procedure FormCreate(Sender: TObject);
171	procedure mnuViewDetailClick(Sender: TObject);
172	procedure FormClose(Sender: TObject; var Action: TCloseAction);
173	procedure mnuActIdentifyAddlSignersClick(Sender: TObject);
174	procedure popNoteMemoAddlSignClick(Sender: TObject);
175	procedure popNoteMemoSpellClick(Sender: TObject);
176	procedure popNoteMemoGrammarClick(Sender: TObject);
177	procedure mnuViewSaveAsDefaultClick(Sender: TObject);
178	procedure mnuViewReturntoDefaultClick(Sender: TObject);
179	procedure popNoteMemoTemplateClick(Sender: TObject);
180	procedure mnuEditTemplatesClick(Sender: TObject);
181	procedure mnuNewTemplateClick(Sender: TObject);
182	procedure mnuEditSharedTemplatesClick(Sender: TObject);
183	procedure mnuNewSharedTemplateClick(Sender: TObject);
184	procedure mnuOptionsClick(Sender: TObject);
185	procedure FormDestroy(Sender: TObject);
186	procedure cmdChangeClick(Sender: TObject);
187	procedure pnlFieldsResize(Sender: TObject);
188	procedure timAutoSaveTimer(Sender: TObject);
189	procedure memNewNoteChange(Sender: TObject);
190	procedure popNoteMemoReformatClick(Sender: TObject);
191	procedure mnuActChangeClick(Sender: TObject);
192	procedure mnuActLoadBoilerClick(Sender: TObject);
193	procedure popNoteMemoSaveContinueClick(Sender: TObject);
194	procedure mnuEditDialgFieldsClick(Sender: TObject);
195	procedure tvNotesChange(Sender: TObject; Node: TTreeNode);
196	procedure tvNotesClick(Sender: TObject);
197	procedure tvNotesCollapsed(Sender: TObject; Node: TTreeNode);
198	procedure tvNotesExpanded(Sender: TObject; Node: TTreeNode);
199	procedure tvNotesStartDrag(Sender: TObject;
200	var DragObject: TDragObject);
201	procedure tvNotesDragDrop(Sender, Source: TObject; X, Y: Integer);
202	procedure tvNotesDragOver(Sender, Source: TObject; X, Y: Integer;
203	State: TDragState; var Accept: Boolean);
204	procedure lvNotesColumnClick(Sender: TObject; Column: TListColumn);
205	procedure lvNotesCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
206	procedure lvNotesSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
207	procedure popNoteListExpandAllClick(Sender: TObject);
208	procedure popNoteListCollapseAllClick(Sender: TObject);
209	procedure popNoteListExpandSelectedClick(Sender: TObject);
210	procedure popNoteListCollapseSelectedClick(Sender: TObject);
211	procedure popNoteListPopup(Sender: TObject);
212	procedure lvNotesResize(Sender: TObject);
213	procedure mnuIconLegendClick(Sender: TObject);
214	procedure popNoteMemoFindClick(Sender: TObject);
215	procedure dlgFindTextFind(Sender: TObject);
216	procedure popNoteMemoReplaceClick(Sender: TObject);
217	procedure dlgReplaceTextReplace(Sender: TObject);
218	procedure dlgReplaceTextFind(Sender: TObject);
219	procedure mnuActAttachtoIDParentClick(Sender: TObject);
220	procedure memNewNoteKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
221	procedure sptHorzCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean);
222	procedure popNoteMemoInsTemplateClick(Sender: TObject);
223	procedure popNoteMemoPreviewClick(Sender: TObject);
224	procedure tvNotesAddition(Sender: TObject; Node: TTreeNode);
225	procedure tvNotesDeletion(Sender: TObject; Node: TTreeNode);
226	procedure tvNotesExit(Sender: TObject);
227	procedure pnlReadExit(Sender: TObject);
228	procedure cmdNewNoteExit(Sender: TObject);
229	procedure FormHide(Sender: TObject);
230	procedure FormShow(Sender: TObject);
231	procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
232	Y: Integer);
233	procedure memNewNoteKeyPress(Sender: TObject; var Key: Char);
234	procedure memNewNoteKeyUp(Sender: TObject; var Key: Word;
235	Shift: TShiftState);
236	procedure memPCEShowExit(Sender: TObject);
237	procedure cmdChangeExit(Sender: TObject);
238	procedure cmdPCEExit(Sender: TObject);
239	procedure ViewInfo(Sender: TObject);
240	procedure mnuViewInformationClick(Sender: TObject);
241	private
242	FNavigatingTab : Boolean; //Currently Using tab to navigate
243	FEditingIndex: Integer; // index of note being currently edited
244	FChanged: Boolean; // true if any text has changed in the note
245	FEditCtrl: TCustomEdit;
246	FSilent: Boolean;
247	FCurrentContext: TTIUContext;
248	FDefaultContext: TTIUContext;
249	FOrderID: string;
250	FImageFlag: TBitmap;
251	FEditNote: TEditNoteRec;
252	FVerifyNoteTitle: Integer;
253	FDocList: TStringList;
254	FConfirmed: boolean;
255	FLastNoteID: string;
256	FNewIDChild: boolean;
257	FEditingNotePCEObj: boolean;
258	FDeleted: boolean;
259	FOldFramePnlPatientExit: TNotifyEvent;
260	FOldDrawerPnlTemplatesButtonExit: TNotifyEvent;
261	FOldDrawerPnlEncounterButtonExit: TNotifyEvent;
262	FOldDrawerEdtSearchExit: TNotifyEvent;
263	FMousing: TDateTime;
264	FStarting: boolean;
265	procedure frmFramePnlPatientExit(Sender: TObject);
266	procedure frmDrawerPnlTemplatesButtonExit(Sender: TObject);
267	procedure frmDrawerPnlEncounterButtonExit(Sender: TObject);
268	procedure frmDrawerEdtSearchExit(Sender: TObject);
269	procedure ClearEditControls;
270	procedure DoAutoSave(Suppress: integer = 1);
271	function GetTitleText(AnIndex: Integer): string;
272	procedure InsertAddendum;
273	procedure InsertNewNote(IsIDChild: boolean; AnIDParent: integer);
274	function LacksRequiredForCreate: Boolean;
275	procedure LoadForEdit;
276	function LockConsultRequest(AConsult: Integer): Boolean;
277	function LockConsultRequestAndNote(AnIEN: Int64): Boolean;
278	procedure RemovePCEFromChanges(IEN: Int64; AVisitStr: string = '');
279	procedure SaveEditedNote(var Saved: Boolean);
280	procedure SaveCurrentNote(var Saved: Boolean);
281	procedure SetEditingIndex(const Value: Integer);
282	procedure SetSubjectVisible(ShouldShow: Boolean);
283	procedure ShowPCEControls(ShouldShow: Boolean);
284	function StartNewEdit(NewNoteType: integer): Boolean;
285	procedure UnlockConsultRequest(ANote: Int64; AConsult: Integer = 0);
286	procedure ProcessNotifications;
287	procedure SetViewContext(AContext: TTIUContext);
288	property EditingIndex: Integer read FEditingIndex write SetEditingIndex;
289	function GetDrawers: TFrmDrawers;
290	function CanFinishReminder: boolean;
291	procedure DisplayPCE;
292	function VerifyNoteTitle: Boolean;
293	// added for treeview
294	procedure LoadNotes;
295	procedure UpdateTreeView(DocList: TStringList; Tree: TORTreeView);
296	procedure EnableDisableIDNotes;
297	procedure ShowPCEButtons(Editing: boolean);
298	procedure DoAttachIDChild(AChild, AParent: TORTreeNode);
299	function SetNoteTreeLabel(AContext: TTIUContext): string;
300	procedure UpdateNoteAuthor(DocInfo: string);
301	public
302	function ActiveEditOf(AnIEN: Int64; ARequest: integer): Boolean;
303	function AllowContextChange(var WhyNot: string): Boolean; override;
304	procedure ClearPtData; override;
305	procedure DisplayPage; override;
306	procedure RequestPrint; override;
307	procedure RequestMultiplePrint(AForm: TfrmPrintList);
308	procedure SetFontSize(NewFontSize: Integer); override;
309	procedure SaveSignItem(const ItemID, ESCode: string);
310	procedure AssignRemForm;
311	property OrderID: string read FOrderID;
312	procedure LstNotesToPrint;
313	published
314	property Drawers: TFrmDrawers read GetDrawers; // Keep Drawers published
315	end;
316
317	var
318	frmNotes: TfrmNotes;
319	SearchTextStopFlag: Boolean; // Text Search CQ: HDS00002856
320
321	implementation
322
323	{$R *.DFM}
324
325	uses fFrame, fVisit, fEncnt, rCore, uCore, fNoteBA, fNoteBD, fSignItem, fEncounterFrame,
326	rPCE, Clipbrd, fNoteCslt, fNotePrt, rVitals, fAddlSigners, fNoteDR, fConsults, uSpell,
327	fTIUView, fTemplateEditor, uReminders, fReminderDialog, uOrders, rConsults, fReminderTree,
328	fNoteProps, fNotesBP, fTemplateFieldEditor, dShared, rTemplates,
329	FIconLegend, fPCEEdit, fNoteIDParents, rSurgery, uSurgery, uTemplates,
330	uAccessibleTreeView, uAccessibleTreeNode, fTemplateDialog, DateUtils;
331
332	const
333
334	NT_NEW_NOTE = -10; // Holder IEN for a new note
335	NT_ADDENDUM = -20; // Holder IEN for a new addendum
336
337	NT_ACT_NEW_NOTE = 2;
338	NT_ACT_ADDENDUM = 3;
339	NT_ACT_EDIT_NOTE = 4;
340	NT_ACT_ID_ENTRY = 5;
341
342	TX_NEED_VISIT = 'A visit is required before creating a new progress note.';
343	TX_CREATE_ERR = 'Error Creating Note';
344	TX_UPDATE_ERR = 'Error Updating Note';
345	TX_NO_NOTE = 'No progress note is currently being edited';
346	TX_SAVE_NOTE = 'Save Progress Note';
347	TX_ADDEND_NO = 'Cannot make an addendum to a note that is being edited';
348	TX_DEL_OK = CRLF + CRLF + 'Delete this progress note?';
349	TX_DEL_ERR = 'Unable to Delete Note';
350	TX_SIGN = 'Sign Note';
351	TX_COSIGN = 'Cosign Note';
352	TX_SIGN_ERR = 'Unable to Sign Note';
353	// TX_SCREQD = 'This progress note title requires the service connected questions to be '+
354	// 'answered. The Encounter form will now be opened. Please answer all '+
355	// 'service connected questions.';
356	// TX_SCREQD_T = 'Response required for SC questions.';
357	TX_NONOTE = 'No progress note is currently selected.';
358	TX_NONOTE_CAP = 'No Note Selected';
359	TX_NOPRT_NEW = 'This progress note may not be printed until it is saved';
360	TX_NOPRT_NEW_CAP = 'Save Progress Note';
361	TX_NO_ALERT = 'There is insufficient information to process this alert.' + CRLF +
362	'Either the alert has already been deleted, or it contained invalid data.' + CRLF + CRLF +
363	'Click the NEXT button if you wish to continue processing more alerts.';
364	TX_CAP_NO_ALERT = 'Unable to Process Alert';
365	TX_ORDER_LOCKED = 'This record is locked by an action underway on the Consults tab';
366	TC_ORDER_LOCKED = 'Unable to access record';
367	TX_NO_ORD_CHG = 'The note is still associated with the previously selected request.' + CRLF +
368	'Finish the pending action on the consults tab, then try again.';
369	TC_NO_ORD_CHG = 'Locked Consult Request';
370	TX_NEW_SAVE1 = 'You are currently editing:' + CRLF + CRLF;
371	TX_NEW_SAVE2 = CRLF + CRLF + 'Do you wish to save this note and begin a new one?';
372	TX_NEW_SAVE3 = CRLF + CRLF + 'Do you wish to save this note and begin a new addendum?';
373	TX_NEW_SAVE4 = CRLF + CRLF + 'Do you wish to save this note and edit the one selected?';
374	TX_NEW_SAVE5 = CRLF + CRLF + 'Do you wish to save this note and begin a new Interdisciplinary entry?';
375	TC_NEW_SAVE2 = 'Create New Note';
376	TC_NEW_SAVE3 = 'Create New Addendum';
377	TC_NEW_SAVE4 = 'Edit Different Note';
378	TC_NEW_SAVE5 = 'Create New Interdisciplinary Entry';
379	TX_EMPTY_NOTE = CRLF + CRLF + 'This note contains no text and will not be saved.' + CRLF +
380	'Do you wish to delete this note?';
381	TC_EMPTY_NOTE = 'Empty Note';
382	TX_EMPTY_NOTE1 = 'This note contains no text and can not be signed.';
383	TC_NO_LOCK = 'Unable to Lock Note';
384	TX_ABSAVE = 'It appears the session terminated abnormally when this' + CRLF +
385	'note was last edited. Some text may not have been saved.' + CRLF + CRLF +
386	'Do you wish to continue and sign the note?';
387	TC_ABSAVE = 'Possible Missing Text';
388	TX_NO_BOIL = 'There is no boilerplate text associated with this title.';
389	TC_NO_BOIL = 'Load Boilerplate Text';
390	TX_BLR_CLEAR = 'Do you want to clear the previously loaded boilerplate text?';
391	TC_BLR_CLEAR = 'Clear Previous Boilerplate Text';
392	TX_DETACH_CNF = 'Confirm Detachment';
393	TX_DETACH_FAILURE = 'Detach failed';
394	TX_RETRACT_CAP = 'Retraction Notice';
395	TX_RETRACT = 'This document will now be RETRACTED. As Such, it has been removed' +CRLF +
396	' from public view, and from typical Releases of Information,' +CRLF +
397	' but will remain indefinitely discoverable to HIMS.' +CRLF +CRLF;
398	TX_AUTH_SIGNED = 'Author has not signed, are you SURE you want to sign.' +CRLF;
399	{
400	type
401	//CQ8300
402	ClipboardData = record
403	Text: array[0..255] of char;
404	end;
405	}
406	var
407	uPCEShow, uPCEEdit: TPCEData;
408	ViewContext: Integer;
409	frmDrawers: TfrmDrawers;
410	uTIUContext: TTIUContext;
411	ColumnToSort: Integer;
412	ColumnSortForward: Boolean;
413	uChanging: Boolean;
414	uIDNotesActive: Boolean;
415
416
417	{ TPage common methods --------------------------------------------------------------------- }
418	function TfrmNotes.AllowContextChange(var WhyNot: string): Boolean;
419	begin
420	dlgFindText.CloseDialog;
421	Result := inherited AllowContextChange(WhyNot); // sets result = true
422	if Assigned(frmTemplateDialog) then
423	if Screen.ActiveForm = frmTemplateDialog then
424	//if (fsModal in frmTemplateDialog.FormState) then
425	case BOOLCHAR[frmFrame.CCOWContextChanging] of
426	'1': begin
427	WhyNot := 'A template in progress will be aborted. ';
428	Result := False;
429	end;
430	'0': begin
431	if WhyNot = 'COMMIT' then
432	begin
433	FSilent := True;
434	frmTemplateDialog.Silent := True;
435	frmTemplateDialog.ModalResult := mrCancel;
436	end;
437	end;
438	end;
439	if Assigned(frmRemDlg) then
440	case BOOLCHAR[frmFrame.CCOWContextChanging] of
441	'1': begin
442	WhyNot := 'All current reminder processing information will be discarded. ';
443	Result := False;
444	end;
445	'0': begin
446	if WhyNot = 'COMMIT' then
447	begin
448	FSilent := True;
449	frmRemDlg.Silent := True;
450	frmRemDlg.btnCancelClick(Self);
451	end;
452	end;
453	end;
454	if EditingIndex <> -1 then
455	case BOOLCHAR[frmFrame.CCOWContextChanging] of
456	'1': begin
457	if memNewNote.GetTextLen > 0 then
458	WhyNot := WhyNot + 'A note in progress will be saved as unsigned. '
459	else
460	WhyNot := WhyNot + 'An empty note in progress will be deleted. ';
461	Result := False;
462	end;
463	'0': begin
464	if WhyNot = 'COMMIT' then FSilent := True;
465	SaveCurrentNote(Result)
466	end;
467	end;
468	if Assigned(frmEncounterFrame) then
469	if Screen.ActiveForm = frmEncounterFrame then
470	//if (fsModal in frmEncounterFrame.FormState) then
471	case BOOLCHAR[frmFrame.CCOWContextChanging] of
472	'1': begin
473	WhyNot := WhyNot + 'Encounter information being edited will not be saved';
474	Result := False;
475	end;
476	'0': begin
477	if WhyNot = 'COMMIT' then
478	begin
479	FSilent := True;
480	frmEncounterFrame.Abort := False;
481	frmEncounterFrame.Cancel := True;
482	end;
483	end;
484	end;
485	end;
486
487	procedure TfrmNotes.LstNotesToPrint;
488	var
489	AParentID: string;
490	SavedDocID: string;
491	Saved: boolean;
492	begin
493	inherited;
494	if not uIDNotesActive then exit;
495	if lstNotes.ItemIEN = 0 then exit;
496	SavedDocID := lstNotes.ItemID;
497	if EditingIndex <> -1 then
498	begin
499	SaveCurrentNote(Saved);
500	if not Saved then Exit;
501	LoadNotes;
502	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
503	end;
504	if tvNotes.Selected = nil then exit;
505	AParentID := frmPrintList.SelectParentFromList(tvNotes,CT_NOTES);
506	if AParentID = '' then exit;
507	with tvNotes do Selected := FindPieceNode(AParentID, 1, U, Items.GetFirstNode);
508	end;
509
510	procedure TfrmNotes.ClearPtData;
511	{ clear all controls that contain patient specific information }
512	begin
513	inherited ClearPtData;
514	ClearEditControls;
515	uChanging := True;
516	tvNotes.Items.BeginUpdate;
517	KilldocTreeObjects(tvNotes);
518	tvNotes.Items.Clear;
519	tvNotes.Items.EndUpdate;
520	lvNotes.Items.Clear;
521	uChanging := False;
522	lstNotes.Clear;
523	memNote.Clear;
524	memPCEShow.Clear;
525	uPCEShow.Clear;
526	uPCEEdit.Clear;
527	frmDrawers.ResetTemplates;
528	end;
529
530	procedure TfrmNotes.DisplayPage;
531	{ causes page to be visible and conditionally executes initialization code }
532	begin
533	inherited DisplayPage;
534	frmFrame.ShowHideChartTabMenus(mnuViewChart);
535	frmFrame.mnuFilePrint.Tag := CT_NOTES;
536	frmFrame.mnuFilePrint.Enabled := True;
537	frmFrame.mnuFilePrintSetup.Enabled := True;
538	frmFrame.mnuFilePrintSelectedItems.Enabled := True;
539	if InitPage then
540	begin
541	EnableDisableIDNotes;
542	FDefaultContext := GetCurrentTIUContext;
543	FCurrentContext := FDefaultContext;
544	popNoteMemoSpell.Visible := SpellCheckAvailable;
545	popNoteMemoGrammar.Visible := popNoteMemoSpell.Visible;
546	Z11.Visible := popNoteMemoSpell.Visible;
547	timAutoSave.Interval := User.AutoSave * 1000; // convert seconds to milliseconds
548	SetEqualTabStops(memNewNote);
549	end;
550	// to indent the right margin need to set Paragraph.RightIndent for each paragraph?
551	if InitPatient and not (CallingContext = CC_NOTIFICATION) then
552	begin
553	SetViewContext(FDefaultContext);
554	end;
555	case CallingContext of
556	CC_INIT_PATIENT: if not InitPatient then
557	begin
558	SetViewContext(FDefaultContext);
559	end;
560	CC_NOTIFICATION: ProcessNotifications;
561	end;
562	end;
563
564	procedure TfrmNotes.RequestPrint;
565	var
566	Saved: Boolean;
567	begin
568	with lstNotes do
569	begin
570	if ItemIndex = EditingIndex then
571	//if ItemIEN < 0 then
572	begin
573	SaveCurrentNote(Saved);
574	if not Saved then Exit;
575	end;
576	if ItemIEN > 0 then PrintNote(ItemIEN, MakeNoteDisplayText(Items[ItemIndex])) else
577	begin
578	if ItemIEN = 0 then InfoBox(TX_NONOTE, TX_NONOTE_CAP, MB_OK);
579	if ItemIEN < 0 then InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK);
580	end;
581	end;
582	end;
583
584	{for printing multiple notes}
585	procedure TfrmNotes.RequestMultiplePrint(AForm: TfrmPrintList);
586	var
587	NoteIEN: int64;
588	i: integer;
589	begin
590	with AForm.lbIDParents do
591	begin
592	for i := 0 to Items.Count - 1 do
593	begin
594	if Selected[i] then
595	begin
596	NoteIEN := StrToInt64def(Piece(TStringList(Items.Objects[i])[0],U,1),0);
597	if NoteIEN > 0 then PrintNote(NoteIEN, Items[i], TRUE) else
598	begin
599	if NoteIEN = 0 then InfoBox(TX_NONOTE, TX_NONOTE_CAP, MB_OK);
600	if NoteIEN < 0 then InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK);
601	end;
602	end; {if selected}
603	end; {for}
604	end; {with}
605	end;
606
607	procedure TfrmNotes.SetFontSize(NewFontSize: Integer);
608	{ adjusts the font size of any controls that don't have ParentFont = True }
609	begin
610	inherited SetFontSize(NewFontSize);
611	frmDrawers.Font.Size := NewFontSize;
612	SetEqualTabStops(memNewNote);
613	end;
614
615	procedure TfrmNotes.mnuChartTabClick(Sender: TObject);
616	{ reroute to Chart Tab menu of the parent form: frmFrame }
617	begin
618	inherited;
619	frmFrame.mnuChartTabClick(Sender);
620	end;
621
622	{ General procedures ----------------------------------------------------------------------- }
623
624	procedure TfrmNotes.ClearEditControls;
625	{ resets controls used for entering a new progress note }
626	begin
627	// clear FEditNote (should FEditNote be an object with a clear method?)
628	with FEditNote do
629	begin
630	DocType := 0;
631	Title := 0;
632	TitleName := '';
633	DateTime := 0;
634	Author := 0;
635	AuthorName := '';
636	Cosigner := 0;
637	CosignerName := '';
638	Subject := '';
639	Location := 0;
640	LocationName := '';
641	PkgIEN := 0;
642	PkgPtr := '';
643	PkgRef := '';
644	NeedCPT := False;
645	Addend := 0;
646	{LastCosigner & LastCosignerName aren't cleared because they're used as default for next note.}
647	Lines := nil;
648	PRF_IEN := 0;
649	ActionIEN := '';
650	end;
651	// clear the editing controls (also clear the new labels?)
652	txtSubject.Text := '';
653	if memNewNote <> nil then memNewNote.Clear; //CQ7012 Added test for nil
654	timAutoSave.Enabled := False;
655	// clear the PCE object for editing
656	uPCEEdit.Clear;
657	// set the tracking variables to initial state
658	EditingIndex := -1;
659	FChanged := False;
660	end;
661
662	procedure TfrmNotes.ShowPCEControls(ShouldShow: Boolean);
663	begin
664	sptVert.Visible := ShouldShow;
665	memPCEShow.Visible := ShouldShow;
666	if(ShouldShow) then
667	sptVert.Top := memPCEShow.Top - sptVert.Height;
668	memNote.Invalidate;
669	end;
670
671	procedure TfrmNotes.DisplayPCE;
672	{ displays PCE information if appropriate & enables/disabled editing of PCE data }
673	var
674	EnableList, ShowList: TDrawers;
675	VitalStr: TStringlist;
676	NoPCE: boolean;
677	ActionSts: TActionRec;
678	AnIEN: integer;
679	begin
680	memPCEShow.Clear;
681	with lstNotes do if ItemIndex = EditingIndex then
682	begin
683	with uPCEEdit do
684	begin
685	AddStrData(memPCEShow.Lines);
686	NoPCE := (memPCEShow.Lines.Count = 0);
687	VitalStr := TStringList.create;
688	try
689	GetVitalsFromDate(VitalStr, uPCEEdit);
690	AddVitalData(VitalStr, memPCEShow.Lines);
691	finally
692	VitalStr.free;
693	end;
694	ShowPCEButtons(TRUE);
695	ShowPCEControls(cmdPCE.Enabled or (memPCEShow.Lines.Count > 0));
696	if(NoPCE and memPCEShow.Visible) then
697	memPCEShow.Lines.Insert(0, TX_NOPCE);
698	memPCEShow.SelStart := 0;
699
700	if(InteractiveRemindersActive) then
701	begin
702	if(GetReminderStatus = rsNone) then
703	EnableList := [odTemplates]
704	else
705	EnableList := [odTemplates, odReminders];
706	ShowList := [odTemplates, odReminders];
707	end
708	else
709	begin
710	EnableList := [odTemplates];
711	ShowList := [odTemplates];
712	end;
713	frmDrawers.DisplayDrawers(TRUE, EnableList, ShowList);
714	end;
715	end else
716	begin
717	ShowPCEButtons(FALSE);
718	frmDrawers.DisplayDrawers(TRUE, [odTemplates], [odTemplates]);
719	AnIEN := lstNotes.ItemIEN;
720	ActOnDocument(ActionSts, AnIEN, 'VIEW');
721	if ActionSts.Success then
722	begin
723	StatusText('Retrieving encounter information...');
724	with uPCEShow do
725	begin
726	NoteDateTime := MakeFMDateTime(Piece(lstNotes.Items[lstNotes.ItemIndex], U, 3));
727	PCEForNote(AnIEN, uPCEEdit);
728	AddStrData(memPCEShow.Lines);
729	NoPCE := (memPCEShow.Lines.Count = 0);
730	VitalStr := TStringList.create;
731	try
732	GetVitalsFromNote(VitalStr, uPCEShow, AnIEN);
733	AddVitalData(VitalStr, memPCEShow.Lines);
734	finally
735	VitalStr.free;
736	end;
737	ShowPCEControls(memPCEShow.Lines.Count > 0);
738	if(NoPCE and memPCEShow.Visible) then
739	memPCEShow.Lines.Insert(0, TX_NOPCE);
740	memPCEShow.SelStart := 0;
741	end;
742	StatusText('');
743	end
744	else
745	ShowPCEControls(FALSE);
746	end; {if ItemIndex}
747	end;
748
749	{ supporting calls for writing notes }
750
751	function TfrmNotes.GetTitleText(AnIndex: Integer): string;
752	{ returns non-tabbed text for the title of a note given the ItemIndex in lstNotes }
753	begin
754	with lstNotes do
755	Result := FormatFMDateTime('mmm dd,yy', MakeFMDateTime(Piece(Items[AnIndex], U, 3))) +
756	' ' + Piece(Items[AnIndex], U, 2) + ', ' + Piece(Items[AnIndex], U, 6) + ', ' +
757	Piece(Piece(Items[AnIndex], U, 5), ';', 2)
758	end;
759
760	function TfrmNotes.LacksRequiredForCreate: Boolean;
761	{ determines if the fields required to create the note are present }
762	var
763	CurTitle: Integer;
764	begin
765	Result := False;
766	with FEditNote do
767	begin
768	if Title <= 0 then Result := True;
769	if Author <= 0 then Result := True;
770	if DateTime <= 0 then Result := True;
771	if IsConsultTitle(Title) and (PkgIEN = 0) then Result := True;
772	if IsSurgeryTitle(Title) and (PkgIEN = 0) then Result := True;
773	if IsPRFTitle(Title) and (PRF_IEN = 0) and (not DocType = TYP_ADDENDUM) then Result := True;
774	if (DocType = TYP_ADDENDUM) then
775	begin
776	if AskCosignerForDocument(Addend, Author) and (Cosigner <= 0) then Result := True;
777	end else
778	begin
779	if Title > 0 then CurTitle := Title else CurTitle := DocType;
780	if AskCosignerForTitle(CurTitle, Author, DateTime) and (Cosigner <= 0) then Result := True;
781	end;
782	end;
783	end;
784
785	function TfrmNotes.VerifyNoteTitle: Boolean;
786	const
787	VNT_UNKNOWN = 0;
788	VNT_NO = 1;
789	VNT_YES = 2;
790	var
791	AParam: string;
792	begin
793	if FVerifyNoteTitle = VNT_UNKNOWN then
794	begin
795	AParam := GetUserParam('ORWOR VERIFY NOTE TITLE');
796	if AParam = '1' then FVerifyNoteTitle := VNT_YES else FVerifyNoteTitle := VNT_NO;
797	end;
798	Result := FVerifyNoteTitle = VNT_YES;
799	end;
800
801	procedure TfrmNotes.SetSubjectVisible(ShouldShow: Boolean);
802	{ hide/show subject & resize panel accordingly - leave 6 pixel margin above memNewNote }
803	begin
804	if ShouldShow then
805	begin
806	lblSubject.Visible := True;
807	txtSubject.Visible := True;
808	pnlFields.Height := txtSubject.Top + txtSubject.Height + 6;
809	end else
810	begin
811	lblSubject.Visible := False;
812	txtSubject.Visible := False;
813	pnlFields.Height := lblVisit.Top + lblVisit.Height + 6;
814	end;
815	end;
816
817	{ consult request and note locking }
818
819	function TfrmNotes.LockConsultRequest(AConsult: Integer): Boolean;
820	{ returns true if consult successfully locked }
821	begin
822	// *** I'm not sure about the FOrderID field - if the user is editing one note and
823	// deletes another, FOrderID will be for editing note, then delete note, then null
824	Result := True;
825	FOrderID := GetConsultOrderIEN(AConsult);
826	if (FOrderID <> '') and (FOrderID = frmConsults.OrderID) then
827	begin
828	InfoBox(TX_ORDER_LOCKED, TC_ORDER_LOCKED, MB_OK);
829	Result := False;
830	Exit;
831	end;
832	if (FOrderId <> '') then
833	if not OrderCanBeLocked(FOrderID) then Result := False;
834	if not Result then FOrderID := '';
835	end;
836
837	function TfrmNotes.LockConsultRequestAndNote(AnIEN: Int64): Boolean;
838	{ returns true if note and associated request successfully locked }
839	var
840	AConsult: Integer;
841	LockMsg, x: string;
842	begin
843	Result := True;
844	AConsult := 0;
845	if frmConsults.ActiveEditOf(AnIEN) then
846	begin
847	InfoBox(TX_ORDER_LOCKED, TC_ORDER_LOCKED, MB_OK);
848	Result := False;
849	Exit;
850	end;
851	if Changes.Exist(CH_DOC, IntToStr(AnIEN)) then Exit; // already locked
852	// try to lock the consult request first, if there is one
853	if IsConsultTitle(TitleForNote(AnIEN)) then
854	begin
855	x := GetPackageRefForNote(lstNotes.ItemIEN);
856	AConsult := StrToIntDef(Piece(x, ';', 1), 0);
857	Result := LockConsultRequest(AConsult);
858	end;
859	// now try to lock the note
860	if Result then
861	begin
862	LockDocument(AnIEN, LockMsg);
863	if LockMsg <> '' then
864	begin
865	Result := False;
866	// if can't lock the note, unlock the consult request that was just locked
867	if AConsult > 0 then
868	begin
869	UnlockOrderIfAble(FOrderID);
870	FOrderID := '';
871	end;
872	InfoBox(LockMsg, TC_NO_LOCK, MB_OK);
873	end;
874	end;
875	end;
876
877	procedure TfrmNotes.UnlockConsultRequest(ANote: Int64; AConsult: Integer = 0);
878	(*var
879	x: string;*)
880	begin
881	(* if (AConsult = 0) and IsConsultTitle(TitleForNote(ANote)) then
882	begin
883	x := GetPackageRefForNote(ANote);
884	AConsult := StrToIntDef(Piece(x, ';', 1), 0);
885	end;
886	if AConsult = 0 then Exit;*)
887	if AConsult = 0 then AConsult := GetConsultIENForNote(ANote);
888	if AConsult <= 0 then exit;
889	FOrderID := GetConsultOrderIEN(AConsult);
890	UnlockOrderIfAble(FOrderID);
891	FOrderID := '';
892	end;
893
894	function TfrmNotes.ActiveEditOf(AnIEN: Int64; ARequest: integer): Boolean;
895	begin
896	Result := False;
897	if EditingIndex < 0 then Exit;
898	if lstNotes.GetIEN(EditingIndex) = AnIEN then
899	begin
900	Result := True;
901	Exit;
902	end;
903	with FEditNote do if (PkgIEN = ARequest) and (PkgPtr = PKG_CONSULTS) then Result := True;
904	end;
905
906	{ create, edit & save notes }
907
908	procedure TfrmNotes.InsertNewNote(IsIDChild: boolean; AnIDParent: integer);
909	{ creates the editing context for a new progress note & inserts stub into top of view list }
910	var
911	EnableAutosave, HaveRequired: Boolean;
912	CreatedNote: TCreatedDoc;
913	TmpBoilerPlate: TStringList;
914	tmpNode: TTreeNode;
915	x, WhyNot, DocInfo: string;
916	begin
917	if frmFrame.Timedout then Exit;
918
919	FNewIDChild := IsIDChild;
920	EnableAutosave := FALSE;
921	TmpBoilerPlate := nil;
922	try
923	ClearEditControls;
924	FillChar(FEditNote, SizeOf(FEditNote), 0); //v15.7
925	with FEditNote do
926	begin
927	DocType := TYP_PROGRESS_NOTE;
928	IsNewNote := True;
929	Title := DfltNoteTitle;
930	TitleName := DfltNoteTitleName;
931	if IsIDChild and (not CanTitleBeIDChild(Title, WhyNot)) then
932	begin
933	Title := 0;
934	TitleName := '';
935	end;
936	if IsSurgeryTitle(Title) then // Don't want surgery title sneaking in unchallenged
937	begin
938	Title := 0;
939	TitleName := '';
940	end;
941	DateTime := FMNow;
942	Author := User.DUZ;
943	AuthorName := User.Name;
944	Location := Encounter.Location;
945	LocationName := Encounter.LocationName;
946	VisitDate := Encounter.DateTime;
947	if IsIDChild then
948	IDParent := AnIDParent
949	else
950	IDParent := 0;
951	// Cosigner & PkgRef, if needed, will be set by fNoteProps
952	end;
953	// check to see if interaction necessary to get required fields
954	GetUnresolvedConsultsInfo;
955	if LacksRequiredForCreate or VerifyNoteTitle or uUnresolvedConsults.UnresolvedConsultsExist
956	then HaveRequired := ExecuteNoteProperties(FEditNote, CT_NOTES, IsIDChild, FNewIDChild, '', 0)
957	else HaveRequired := True;
958	// lock the consult request if there is a consult
959	with FEditNote do if (PkgIEN > 0) and (PkgPtr = PKG_CONSULTS) then HaveRequired := LockConsultRequest(PkgIEN);
960	if HaveRequired then
961	begin
962	// set up uPCEEdit for entry of new note
963	uPCEEdit.UseEncounter := True;
964	uPCEEdit.NoteDateTime := FEditNote.DateTime;
965	uPCEEdit.PCEForNote(USE_CURRENT_VISITSTR, uPCEShow);
966	FEditNote.NeedCPT := uPCEEdit.CPTRequired;
967	// create the note
968	PutNewNote(CreatedNote, FEditNote);
969	uPCEEdit.NoteIEN := CreatedNote.IEN;
970	if CreatedNote.IEN > 0 then LockDocument(CreatedNote.IEN, CreatedNote.ErrorText);
971	if CreatedNote.ErrorText = '' then
972	begin
973	//x := $$RESOLVE^TIUSRVLO formatted string
974	//7348^Note Title^3000913^NERD, YOURA (N0165)^1329;Rich Vertigan;VERTIGAN,RICH^8E REHAB MED^complete^Adm: 11/05/98;2981105.095547^ ;^^0^^^2
975	with FEditNote do
976	begin
977	x := IntToStr(CreatedNote.IEN) + U + TitleName + U + FloatToStr(FEditNote.DateTime) + U +
978	Patient.Name + U + IntToStr(Author) + ';' + AuthorName + U + LocationName + U + 'new' + U +
979	U + U + U + U + U + U + U;
980	//Link Note to PRF Action
981	if PRF_IEN <> 0 then
982	if sCallV('TIU LINK TO FLAG', [CreatedNote.IEN,PRF_IEN,ActionIEN,Patient.DFN]) = '0' then
983	ShowMessage('TIU LINK TO FLAG: FAILED');
984	end;
985
986	lstNotes.Items.Insert(0, x);
987	uChanging := True;
988	tvNotes.Items.BeginUpdate;
989	if IsIDChild then
990	begin
991	tmpNode := tvNotes.FindPieceNode(IntToStr(AnIDParent), 1, U, tvNotes.Items.GetFirstNode);
992	tmpNode.ImageIndex := IMG_IDNOTE_OPEN;
993	tmpNode.SelectedIndex := IMG_IDNOTE_OPEN;
994	tmpNode := tvNotes.Items.AddChildObjectFirst(tmpNode, MakeNoteDisplayText(x), MakeNoteTreeObject(x));
995	tmpNode.ImageIndex := IMG_ID_CHILD;
996	tmpNode.SelectedIndex := IMG_ID_CHILD;
997	end
998	else
999	begin
1000	tmpNode := tvNotes.Items.AddObjectFirst(tvNotes.Items.GetFirstNode, 'New Note in Progress',
1001	MakeNoteTreeObject('NEW^New Note in Progress^^^^^^^^^^^%^0'));
1002	TORTreeNode(tmpNode).StringData := 'NEW^New Note in Progress^^^^^^^^^^^%^0';
1003	tmpNode.ImageIndex := IMG_TOP_LEVEL;
1004	tmpNode := tvNotes.Items.AddChildObjectFirst(tmpNode, MakeNoteDisplayText(x), MakeNoteTreeObject(x));
1005	tmpNode.ImageIndex := IMG_SINGLE;
1006	tmpNode.SelectedIndex := IMG_SINGLE;
1007	end;
1008	tmpNode.StateIndex := IMG_NO_IMAGES;
1009	TORTreeNode(tmpNode).StringData := x;
1010	tvNotes.Selected := tmpNode;
1011	tvNotes.Items.EndUpdate;
1012	uChanging := False;
1013	Changes.Add(CH_DOC, IntToStr(CreatedNote.IEN), GetTitleText(0), '', CH_SIGN_YES);
1014	lstNotes.ItemIndex := 0;
1015	EditingIndex := 0;
1016	SetSubjectVisible(AskSubjectForNotes);
1017	if not assigned(TmpBoilerPlate) then
1018	TmpBoilerPlate := TStringList.Create;
1019	LoadBoilerPlate(TmpBoilerPlate, FEditNote.Title);
1020	FChanged := False;
1021	cmdChangeClick(Self); // will set captions, sign state for Changes
1022	lstNotesClick(Self); // will make pnlWrite visible
1023	if timAutoSave.Interval <> 0 then EnableAutosave := TRUE;
1024	if txtSubject.Visible then txtSubject.SetFocus else memNewNote.SetFocus;
1025	end else
1026	begin
1027	// if note creation failed or failed to get note lock (both unlikely), unlock consult
1028	with FEditNote do if (PkgIEN > 0) and (PkgPtr = PKG_CONSULTS) then UnlockConsultRequest(0, PkgIEN);
1029	InfoBox(CreatedNote.ErrorText, TX_CREATE_ERR, MB_OK);
1030	HaveRequired := False;
1031	end; {if CreatedNote.IEN}
1032	end; {if HaveRequired}
1033	if not HaveRequired then
1034	begin
1035	ClearEditControls;
1036	ShowPCEButtons(False);
1037	end;
1038	finally
1039	if assigned(TmpBoilerPlate) then
1040	begin
1041	DocInfo := MakeXMLParamTIU(IntToStr(CreatedNote.IEN), FEditNote);
1042	ExecuteTemplateOrBoilerPlate(TmpBoilerPlate, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo);
1043	memNewNote.Lines.Assign(TmpBoilerPlate);
1044	UpdateNoteAuthor(DocInfo);
1045	TmpBoilerPlate.Free;
1046	end;
1047	if EnableAutosave then // Don't enable autosave until after dialog fields have been resolved
1048	timAutoSave.Enabled := True;
1049	end;
1050	frmNotes.pnlWriteResize(Self);
1051	end;
1052
1053	procedure TfrmNotes.InsertAddendum;
1054	{ sets up fields of pnlWrite to write an addendum for the selected note }
1055	const
1056	AS_ADDENDUM = True;
1057	IS_ID_CHILD = False;
1058	var
1059	HaveRequired: Boolean;
1060	CreatedNote: TCreatedDoc;
1061	tmpNode: TTreeNode;
1062	x: string;
1063	begin
1064	ClearEditControls;
1065	with FEditNote do
1066	begin
1067	DocType := TYP_ADDENDUM;
1068	IsNewNote := False;
1069	Title := TitleForNote(lstNotes.ItemIEN);
1070	TitleName := Piece(lstNotes.Items[lstNotes.ItemIndex], U, 2);
1071	if Copy(TitleName,1,1) = '+' then TitleName := Copy(TitleName, 3, 199);
1072	DateTime := FMNow;
1073	Author := User.DUZ;
1074	AuthorName := User.Name;
1075	x := GetPackageRefForNote(lstNotes.ItemIEN);
1076	if Piece(x, U, 1) <> '-1' then
1077	begin
1078	PkgRef := GetPackageRefForNote(lstNotes.ItemIEN);
1079	PkgIEN := StrToIntDef(Piece(PkgRef, ';', 1), 0);
1080	PkgPtr := Piece(PkgRef, ';', 2);
1081	end;
1082	Addend := lstNotes.ItemIEN;
1083	//Lines := memNewNote.Lines;
1084	// Cosigner, if needed, will be set by fNoteProps
1085	// Location info will be set after the encounter is loaded
1086	end;
1087	// check to see if interaction necessary to get required fields
1088	if LacksRequiredForCreate
1089	then HaveRequired := ExecuteNoteProperties(FEditNote, CT_NOTES, IS_ID_CHILD, False, '', 0)
1090	else HaveRequired := True;
1091	// lock the consult request if there is a consult
1092	if HaveRequired then
1093	with FEditNote do
1094	if (PkgIEN > 0) and (PkgPtr = PKG_CONSULTS) then HaveRequired := LockConsultRequest(PkgIEN);
1095	if HaveRequired then
1096	begin
1097	uPCEEdit.NoteDateTime := FEditNote.DateTime;
1098	uPCEEdit.PCEForNote(FEditNote.Addend, uPCEShow);
1099	FEditNote.Location := uPCEEdit.Location;
1100	FEditNote.LocationName := ExternalName(uPCEEdit.Location, 44);
1101	FEditNote.VisitDate := uPCEEdit.DateTime;
1102	PutAddendum(CreatedNote, FEditNote, FEditNote.Addend);
1103	uPCEEdit.NoteIEN := CreatedNote.IEN;
1104	if CreatedNote.IEN > 0 then LockDocument(CreatedNote.IEN, CreatedNote.ErrorText);
1105	if CreatedNote.ErrorText = '' then
1106	begin
1107	with FEditNote do
1108	begin
1109	x := IntToStr(CreatedNote.IEN) + U + 'Addendum to ' + TitleName + U + FloatToStr(DateTime) + U +
1110	Patient.Name + U + IntToStr(Author) + ';' + AuthorName + U + LocationName + U + 'new' + U +
1111	U + U + U + U + U + U + U;
1112	end;
1113
1114	lstNotes.Items.Insert(0, x);
1115	uChanging := True;
1116	tvNotes.Items.BeginUpdate;
1117	tmpNode := tvNotes.Items.AddObjectFirst(tvNotes.Items.GetFirstNode, 'New Addendum in Progress',
1118	MakeNoteTreeObject('ADDENDUM^New Addendum in Progress^^^^^^^^^^^%^0'));
1119	TORTreeNode(tmpNode).StringData := 'ADDENDUM^New Addendum in Progress^^^^^^^^^^^%^0';
1120	tmpNode.ImageIndex := IMG_TOP_LEVEL;
1121	tmpNode := tvNotes.Items.AddChildObjectFirst(tmpNode, MakeNoteDisplayText(x), MakeNoteTreeObject(x));
1122	TORTreeNode(tmpNode).StringData := x;
1123
1124	tmpNode.ImageIndex := IMG_ADDENDUM;
1125	tmpNode.SelectedIndex := IMG_ADDENDUM;
1126	tvNotes.Selected := tmpNode;
1127	tvNotes.Items.EndUpdate;
1128	uChanging := False;
1129	Changes.Add(CH_DOC, IntToStr(CreatedNote.IEN), GetTitleText(0), '', CH_SIGN_YES);
1130	lstNotes.ItemIndex := 0;
1131	EditingIndex := 0;
1132	SetSubjectVisible(AskSubjectForNotes);
1133	cmdChangeClick(Self); // will set captions, sign state for Changes
1134	lstNotesClick(Self); // will make pnlWrite visible
1135	if timAutoSave.Interval <> 0 then timAutoSave.Enabled := True;
1136	memNewNote.SetFocus;
1137	end else
1138	begin
1139	// if note creation failed or failed to get note lock (both unlikely), unlock consult
1140	with FEditNote do if (PkgIEN > 0) and (PkgPtr = PKG_CONSULTS) then UnlockConsultRequest(0, PkgIEN);
1141	InfoBox(CreatedNote.ErrorText, TX_CREATE_ERR, MB_OK);
1142	HaveRequired := False;
1143	end; {if CreatedNote.IEN}
1144	end; {if HaveRequired}
1145	if not HaveRequired then ClearEditControls;
1146	end;
1147
1148	procedure TfrmNotes.LoadForEdit;
1149	{ retrieves an existing note and places the data in the fields of pnlWrite }
1150	var
1151	tmpNode: TTreeNode;
1152	x: string;
1153	begin
1154	ClearEditControls;
1155	if not LockConsultRequestAndNote(lstNotes.ItemIEN) then Exit;
1156	EditingIndex := lstNotes.ItemIndex;
1157	Changes.Add(CH_DOC, lstNotes.ItemID, GetTitleText(EditingIndex), '', CH_SIGN_YES);
1158	GetNoteForEdit(FEditNote, lstNotes.ItemIEN);
1159	memNewNote.Lines.Assign(FEditNote.Lines);
1160	FChanged := False;
1161	if FEditNote.Title = TYP_ADDENDUM then
1162	begin
1163	FEditNote.DocType := TYP_ADDENDUM;
1164	FEditNote.TitleName := Piece(lstNotes.Items[lstNotes.ItemIndex], U, 2);
1165	if Copy(FEditNote.TitleName,1,1) = '+' then FEditNote.TitleName := Copy(FEditNote.TitleName, 3, 199);
1166	if CompareText(Copy(FEditNote.TitleName, 1, 8), 'Addendum') <> 0
1167	then FEditNote.TitleName := FEditNote.TitleName + 'Addendum to ';
1168	end;
1169
1170	uChanging := True;
1171	tvNotes.Items.BeginUpdate;
1172
1173	tmpNode := tvNotes.FindPieceNode('EDIT', 1, U, nil);
1174	if tmpNode = nil then
1175	begin
1176	tmpNode := tvNotes.Items.AddObjectFirst(tvNotes.Items.GetFirstNode, 'Note being edited',
1177	MakeNoteTreeObject('EDIT^Note being edited^^^^^^^^^^^%^0'));
1178	TORTreeNode(tmpNode).StringData := 'EDIT^Note being edited^^^^^^^^^^^%^0';
1179	end
1180	else
1181	tmpNode.DeleteChildren;
1182	x := lstNotes.Items[lstNotes.ItemIndex];
1183	tmpNode.ImageIndex := IMG_TOP_LEVEL;
1184	tmpNode := tvNotes.Items.AddChildObjectFirst(tmpNode, MakeNoteDisplayText(x), MakeNoteTreeObject(x));
1185	TORTreeNode(tmpNode).StringData := x;
1186	if CompareText(Copy(FEditNote.TitleName, 1, 8), 'Addendum') <> 0 then
1187	tmpNode.ImageIndex := IMG_SINGLE
1188	else
1189	tmpNode.ImageIndex := IMG_ADDENDUM;
1190	tmpNode.SelectedIndex := tmpNode.ImageIndex;
1191	tvNotes.Selected := tmpNode;
1192	tvNotes.Items.EndUpdate;
1193	uChanging := False;
1194
1195	uPCEEdit.NoteDateTime := MakeFMDateTime(Piece(lstNotes.Items[lstNotes.ItemIndex], U, 3));
1196	uPCEEdit.PCEForNote(lstNotes.ItemIEN, uPCEShow);
1197	FEditNote.NeedCPT := uPCEEdit.CPTRequired;
1198	txtSubject.Text := FEditNote.Subject;
1199	SetSubjectVisible(AskSubjectForNotes);
1200	cmdChangeClick(Self); // will set captions, sign state for Changes
1201	lstNotesClick(Self); // will make pnlWrite visible
1202	if timAutoSave.Interval <> 0 then timAutoSave.Enabled := True;
1203	memNewNote.SetFocus;
1204	end;
1205
1206	procedure TfrmNotes.SaveEditedNote(var Saved: Boolean);
1207	{ validates fields and sends the updated note to the server }
1208	var
1209	UpdatedNote: TCreatedDoc;
1210	x: string;
1211	begin
1212	Saved := False;
1213	if (memNewNote.GetTextLen = 0) or (not ContainsVisibleChar(memNewNote.Text)) then
1214	begin
1215	lstNotes.ItemIndex := EditingIndex;
1216	x := lstNotes.ItemID;
1217	uChanging := True;
1218	tvNotes.Selected := tvNotes.FindPieceNode(x, 1, U, tvNotes.Items.GetFirstNode);
1219	uChanging := False;
1220	tvNotesChange(Self, tvNotes.Selected);
1221	if FSilent or
1222	((not FSilent) and
1223	(InfoBox(GetTitleText(EditingIndex) + TX_EMPTY_NOTE, TC_EMPTY_NOTE, MB_YESNO) = IDYES))
1224	then
1225	begin
1226	FConfirmed := True;
1227	mnuActDeleteClick(Self);
1228	Saved := True;
1229	FDeleted := True;
1230	end
1231	else
1232	FConfirmed := False;
1233	Exit;
1234	end;
1235	//ExpandTabsFilter(memNewNote.Lines, TAB_STOP_CHARS);
1236	FEditNote.Lines := memNewNote.Lines;
1237	//FEditNote.Lines:= SetLinesTo74ForSave(memNewNote.Lines, Self);
1238	FEditNote.Subject := txtSubject.Text;
1239	FEditNote.NeedCPT := uPCEEdit.CPTRequired;
1240	timAutoSave.Enabled := False;
1241	try
1242	PutEditedNote(UpdatedNote, FEditNote, lstNotes.GetIEN(EditingIndex));
1243	finally
1244	timAutoSave.Enabled := True;
1245	end;
1246	// there's no unlocking here since the note is still in Changes after a save
1247	if UpdatedNote.IEN > 0 then
1248	begin
1249	if lstNotes.ItemIndex = EditingIndex then
1250	begin
1251	EditingIndex := -1;
1252	lstNotesClick(Self);
1253	end;
1254	EditingIndex := -1; // make sure EditingIndex reset even if not viewing edited note
1255	Saved := True;
1256	FNewIDChild := False;
1257	FChanged := False;
1258	end else
1259	begin
1260	if not FSilent then
1261	InfoBox(TX_SAVE_ERROR1 + UpdatedNote.ErrorText + TX_SAVE_ERROR2, TC_SAVE_ERROR, MB_OK or MB_ICONWARNING);
1262	end;
1263	end;
1264
1265	procedure TfrmNotes.SaveCurrentNote(var Saved: Boolean);
1266	{ called whenever a note should be saved - uses IEN to call appropriate save logic }
1267	begin
1268	if EditingIndex < 0 then Exit;
1269	SaveEditedNote(Saved);
1270	end;
1271
1272	{ Form events ------------------------------------------------------------------------------ }
1273
1274	procedure TfrmNotes.FormCreate(Sender: TObject);
1275	begin
1276	inherited;
1277	PageID := CT_NOTES;
1278	memNote.Color := ReadOnlyColor;
1279	memPCEShow.Color := ReadOnlyColor;
1280	lblNewTitle.Color := ReadOnlyColor;
1281	EditingIndex := -1;
1282	FEditNote.LastCosigner := 0;
1283	FEditNote.LastCosignerName := '';
1284	FLastNoteID := '';
1285	frmDrawers := TfrmDrawers.CreateDrawers(Self, pnlDrawers, [],[]);
1286	frmDrawers.Align := alBottom;
1287	frmDrawers.RichEditControl := memNewNote;
1288	frmDrawers.NewNoteButton := cmdNewNote;
1289	frmDrawers.Splitter := splDrawers;
1290	frmDrawers.DefTempPiece := 1;
1291	tvNotes.Images := dmodShared.imgNotes;
1292	tvNotes.StateImages := dmodShared.imgImages;
1293	lvNotes.StateImages := dmodShared.imgImages;
1294	lvNotes.SmallImages := dmodShared.imgNotes;
1295	FImageFlag := TBitmap.Create;
1296	FDocList := TStringList.Create;
1297	TAccessibleTreeView.WrapControl(tvNotes);
1298	end;
1299
1300	procedure TfrmNotes.pnlRightResize(Sender: TObject);
1301	{ memNote (TRichEdit) doesn't repaint appropriately unless it's parent panel is refreshed }
1302	begin
1303	inherited;
1304	pnlRight.Refresh;
1305	memNote.Repaint;
1306	end;
1307
1308	procedure TfrmNotes.pnlWriteResize(Sender: TObject);
1309	const
1310	LEFT_MARGIN = 4;
1311	begin
1312	inherited;
1313	LimitEditWidth(memNewNote, MAX_PROGRESSNOTE_WIDTH - 1);
1314
1315	//CQ7012 Added test for nil
1316	if memNewNote <> nil then
1317	memNewNote.Constraints.MinWidth := TextWidthByFont(memNewNote.Font.Handle, StringOfChar('X', MAX_PROGRESSNOTE_WIDTH)) + (LEFT_MARGIN * 2) + ScrollBarWidth;
1318	//CQ7012 Added test for nil
1319	if (Self <> nil) and (pnlLeft <> nil) and (pnlWrite <> nil) and (sptHorz <> nil) then
1320	pnlLeft.Width := self.ClientWidth - pnlWrite.Width - sptHorz.Width;
1321	end;
1322
1323	{ Left panel (selector) events ------------------------------------------------------------- }
1324
1325	procedure TfrmNotes.lstNotesClick(Sender: TObject);
1326	{ loads the text for the selected note or displays the editing panel for the selected note }
1327	begin
1328	inherited;
1329	with lstNotes do if ItemIndex = -1 then Exit
1330	else if ItemIndex = EditingIndex then
1331	begin
1332	pnlWrite.Visible := True;
1333	pnlRead.Visible := False;
1334	mnuViewDetail.Enabled := False;
1335	if (FEditNote.IDParent <> 0) and (not FNewIDChild) then
1336	mnuActChange.Enabled := False
1337	else
1338	mnuActChange.Enabled := True;
1339	mnuActLoadBoiler.Enabled := True;
1340	UpdateReminderFinish;
1341	end else
1342	begin
1343	StatusText('Retrieving selected progress note...');
1344	Screen.Cursor := crHourGlass;
1345	pnlRead.Visible := True;
1346	pnlWrite.Visible := False;
1347	UpdateReminderFinish;
1348	lblTitle.Caption := Piece(Piece(Items[ItemIndex], U, 8), ';', 1) + #9 + Piece(Items[ItemIndex], U, 2) + ', ' +
1349	Piece(Items[ItemIndex], U, 6) + ', ' + Piece(Piece(Items[ItemIndex], U, 5), ';', 2) +
1350	' (' + FormatFMDateTime('mmm dd,yy@hh:nn', MakeFMDateTime(Piece(Items[ItemIndex], U, 3)))
1351	+ ')';
1352	lvNotes.Caption := lblTitle.Caption;
1353	LoadDocumentText(memNote.Lines, ItemIEN);
1354	memNote.SelStart := 0;
1355	mnuViewDetail.Enabled := True;
1356	mnuViewDetail.Checked := False;
1357	mnuActChange.Enabled := False;
1358	mnuActLoadBoiler.Enabled := False;
1359	Screen.Cursor := crDefault;
1360	StatusText('');
1361	end;
1362	if(assigned(frmReminderTree)) then
1363	frmReminderTree.EnableActions;
1364	DisplayPCE;
1365	pnlRight.Refresh;
1366	memNewNote.Repaint;
1367	memNote.Repaint;
1368	NotifyOtherApps(NAE_REPORT, 'TIU^' + lstNotes.ItemID);
1369	end;
1370
1371	procedure TfrmNotes.cmdNewNoteClick(Sender: TObject);
1372	{ maps 'New Note' button to the New Progress Note menu item }
1373	begin
1374	inherited;
1375	mnuActNewClick(Self);
1376	end;
1377
1378	procedure TfrmNotes.cmdPCEClick(Sender: TObject);
1379	var
1380	Refresh: boolean;
1381	ActionSts: TActionRec;
1382	AnIEN: integer;
1383	PCEObj, tmpPCEEdit: TPCEData;
1384
1385	procedure UpdateEncounterInfo;
1386	begin
1387	if not FEditingNotePCEObj then
1388	begin
1389	PCEObj := nil;
1390	AnIEN := lstNotes.ItemIEN;
1391	if (AnIEN <> 0) and (memNote.Lines.Count > 0) then
1392	begin
1393	ActOnDocument(ActionSts, AnIEN, 'VIEW');
1394	if ActionSts.Success then
1395	begin
1396	uPCEShow.CopyPCEData(uPCEEdit);
1397	PCEObj := uPCEEdit;
1398	end;
1399	end;
1400	Refresh := EditPCEData(PCEObj);
1401	end
1402	else
1403	begin
1404	UpdatePCE(uPCEEdit);
1405	Refresh := TRUE;
1406	end;
1407	if Refresh and (not frmFrame.Closing) then
1408	DisplayPCE;
1409	end;
1410
1411	begin
1412	inherited;
1413	cmdPCE.Enabled := FALSE;
1414	if lstNotes.ItemIndex <> EditingIndex then
1415	// save uPCEEdit for note being edited, before updating current note's encounter, then restore (RV - TAM-0801-31056)
1416	begin
1417	tmpPCEEdit := TPCEData.Create;
1418	try
1419	uPCEEdit.CopyPCEData(tmpPCEEdit);
1420	UpdateEncounterInfo;
1421	tmpPCEEdit.CopyPCEData(uPCEEdit);
1422	finally
1423	tmpPCEEdit.Free;
1424	end;
1425	end
1426	else
1427	// no other note being edited, so just proceed as before.
1428	UpdateEncounterInfo;
1429	if cmdPCE <> nil then
1430	cmdPCE.Enabled := TRUE
1431	end;
1432
1433	{ Right panel (editor) events -------------------------------------------------------------- }
1434
1435	procedure TfrmNotes.mnuActChangeClick(Sender: TObject);
1436	begin
1437	inherited;
1438	if (FEditingIndex < 0) or (lstNotes.ItemIndex <> FEditingIndex) then Exit;
1439	cmdChangeClick(Sender);
1440	end;
1441
1442	procedure TfrmNotes.mnuActLoadBoilerClick(Sender: TObject);
1443	var
1444	NoteEmpty: Boolean;
1445	BoilerText: TStringList;
1446	DocInfo: string;
1447
1448	procedure AssignBoilerText;
1449	begin
1450	ExecuteTemplateOrBoilerPlate(BoilerText, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo);
1451	memNewNote.Lines.Assign(BoilerText);
1452	UpdateNoteAuthor(DocInfo);
1453	FChanged := False;
1454	end;
1455
1456	begin
1457	inherited;
1458	if (FEditingIndex < 0) or (lstNotes.ItemIndex <> FEditingIndex) then Exit;
1459	BoilerText := TStringList.Create;
1460	try
1461	NoteEmpty := memNewNote.Text = '';
1462	LoadBoilerPlate(BoilerText, FEditNote.Title);
1463	if (BoilerText.Text <> '') or
1464	assigned(GetLinkedTemplate(IntToStr(FEditNote.Title), ltTitle)) then
1465	begin
1466	DocInfo := MakeXMLParamTIU(IntToStr(lstNotes.ItemIEN), FEditNote);
1467	if NoteEmpty then AssignBoilerText else
1468	begin
1469	case QueryBoilerPlate(BoilerText) of
1470	0: { do nothing } ; // ignore
1471	1: begin
1472	ExecuteTemplateOrBoilerPlate(BoilerText, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo);
1473	memNewNote.Lines.AddStrings(BoilerText); // append
1474	UpdateNoteAuthor(DocInfo);
1475	end;
1476	2: AssignBoilerText; // replace
1477	end;
1478	end;
1479	end else
1480	begin
1481	if Sender = mnuActLoadBoiler
1482	then InfoBox(TX_NO_BOIL, TC_NO_BOIL, MB_OK)
1483	else
1484	begin
1485	if not NoteEmpty then
1486	// if not FChanged and (InfoBox(TX_BLR_CLEAR, TC_BLR_CLEAR, MB_YESNO) = ID_YES)
1487	if (InfoBox(TX_BLR_CLEAR, TC_BLR_CLEAR, MB_YESNO) = ID_YES)
1488	then memNewNote.Lines.Clear;
1489	end;
1490	end; {if BoilerText.Text <> ''}
1491	finally
1492	BoilerText.Free;
1493	end;
1494	end;
1495
1496	procedure TfrmNotes.cmdChangeClick(Sender: TObject);
1497	var
1498	LastTitle, LastConsult: Integer;
1499	OKPressed, IsIDChild: Boolean;
1500	x: string;
1501	DisAssoText : String;
1502	begin
1503	inherited;
1504	IsIDChild := uIDNotesActive and (FEditNote.IDParent > 0);
1505	LastTitle := FEditNote.Title;
1506	FEditNote.IsNewNote := False;
1507	DisAssoText := '';
1508	if (FEditNote.PkgPtr = PKG_CONSULTS) then
1509	DisAssoText := 'Consults';
1510	if (FEditNote.PkgPtr = PKG_PRF) then
1511	DisAssoText := 'Patient Record Flags';
1512	if (DisAssoText <> '') and (Sender <> Self) then
1513	if InfoBox('If this title is changed, Any '+DisAssoText+' will be disassociated'+
1514	' with this note',
1515	'Disassociate '+DisAssoText+'?',MB_OKCANCEL) = IDCANCEL then
1516	exit;
1517	if FEditNote.PkgPtr = PKG_CONSULTS then LastConsult := FEditNote.PkgIEN else LastConsult := 0;;
1518	if Sender <> Self then OKPressed := ExecuteNoteProperties(FEditNote, CT_NOTES, IsIDChild, FNewIDChild, '', 0)
1519	else OKPressed := True;
1520	if not OKPressed then Exit;
1521	// update display fields & uPCEEdit
1522	lblNewTitle.Caption := ' ' + FEditNote.TitleName + ' ';
1523	if (FEditNote.Addend > 0) and (CompareText(Copy(lblNewTitle.Caption, 2, 8), 'Addendum') <> 0)
1524	then lblNewTitle.Caption := ' Addendum to:' + lblNewTitle.Caption;
1525	with lblNewTitle do bvlNewTitle.SetBounds(Left - 1, Top - 1, Width + 2, Height + 2);
1526	lblRefDate.Caption := FormatFMDateTime('mmm dd,yyyy@hh:nn', FEditNote.DateTime);
1527	lblAuthor.Caption := FEditNote.AuthorName;
1528	if uPCEEdit.Inpatient then x := 'Adm: ' else x := 'Vst: ';
1529	x := x + FormatFMDateTime('mm/dd/yy', FEditNote.VisitDate) + ' ' + FEditNote.LocationName;
1530	lblVisit.Caption := x;
1531	if Length(FEditNote.CosignerName) > 0
1532	then lblCosigner.Caption := 'Expected Cosigner: ' + FEditNote.CosignerName
1533	else lblCosigner.Caption := '';
1534	uPCEEdit.NoteTitle := FEditNote.Title;
1535	// modify signature requirements if author or cosigner changed
1536	if (User.DUZ <> FEditNote.Author) and (User.DUZ <> FEditNote.Cosigner)
1537	then Changes.ReplaceSignState(CH_DOC, lstNotes.ItemID, CH_SIGN_NA)
1538	else Changes.ReplaceSignState(CH_DOC, lstNotes.ItemID, CH_SIGN_YES);
1539	x := lstNotes.Items[EditingIndex];
1540	SetPiece(x, U, 2, lblNewTitle.Caption);
1541	SetPiece(x, U, 3, FloatToStr(FEditNote.DateTime));
1542	tvNotes.Selected.Text := MakeNoteDisplayText(x);
1543	TORTreeNode(tvNotes.Selected).StringData := x;
1544	lstNotes.Items[EditingIndex] := x;
1545	Changes.ReplaceText(CH_DOC, lstNotes.ItemID, GetTitleText(EditingIndex));
1546	with FEditNote do
1547	begin
1548	if (PkgPtr = PKG_CONSULTS) and (LastConsult <> PkgIEN) then
1549	begin
1550	// try to lock the new consult, reset to previous if unable
1551	if (PkgIEN > 0) and not LockConsultRequest(PkgIEN) then
1552	begin
1553	Infobox(TX_NO_ORD_CHG, TC_NO_ORD_CHG, MB_OK);
1554	PkgIEN := LastConsult;
1555	end else
1556	begin
1557	// unlock the previous consult
1558	if LastConsult > 0 then UnlockOrderIfAble(GetConsultOrderIEN(LastConsult));
1559	if PkgIEN = 0 then FOrderID := '';
1560	end;
1561	end;
1562	//Link Note to PRF Action
1563	if PRF_IEN <> 0 then
1564	if sCallV('TIU LINK TO FLAG', [lstNotes.ItemIEN,PRF_IEN,ActionIEN,Patient.DFN]) = '0' then
1565	ShowMessage('TIU LINK TO FLAG: FAILED');
1566	end;
1567
1568	if LastTitle <> FEditNote.Title then mnuActLoadBoilerClick(Self);
1569	end;
1570
1571	procedure TfrmNotes.memNewNoteChange(Sender: TObject);
1572	begin
1573	inherited;
1574	FChanged := True;
1575	end;
1576
1577	procedure TfrmNotes.pnlFieldsResize(Sender: TObject);
1578	{ center the reference date on the panel }
1579	begin
1580	inherited;
1581	lblRefDate.Left := (pnlFields.Width - lblRefDate.Width) div 2;
1582	if lblRefDate.Left < (lblNewTitle.Left + lblNewTitle.Width + 6)
1583	then lblRefDate.Left := (lblNewTitle.Left + lblNewTitle.Width);
1584	end;
1585
1586	procedure TfrmNotes.DoAutoSave(Suppress: integer = 1);
1587	var
1588	ErrMsg: string;
1589	begin
1590	if (EditingIndex > -1) and FChanged then
1591	begin
1592	StatusText('Autosaving note...');
1593	//PutTextOnly(ErrMsg, memNewNote.Lines, lstNotes.GetIEN(EditingIndex));
1594	timAutoSave.Enabled := False;
1595	try
1596	SetText(ErrMsg, memNewNote.Lines, lstNotes.GetIEN(EditingIndex), Suppress);
1597	finally
1598	timAutoSave.Enabled := True;
1599	end;
1600	FChanged := False;
1601	StatusText('');
1602	end;
1603	if ErrMsg <> '' then
1604	InfoBox(TX_SAVE_ERROR1 + ErrMsg + TX_SAVE_ERROR2, TC_SAVE_ERROR, MB_OK or MB_ICONWARNING);
1605	//Assert(ErrMsg = '', 'AutoSave: ' + ErrMsg);
1606	end;
1607
1608	procedure TfrmNotes.timAutoSaveTimer(Sender: TObject);
1609	begin
1610	inherited;
1611	DoAutoSave;
1612	end;
1613
1614	{ View menu events ------------------------------------------------------------------------- }
1615
1616	procedure TfrmNotes.mnuViewClick(Sender: TObject);
1617	{ changes the list of notes available for viewing }
1618	var
1619	AuthCtxt: TAuthorContext;
1620	SearchCtxt: TSearchContext; // Text Search CQ: HDS00002856
1621	DateRange: TNoteDateRange;
1622	Saved: Boolean;
1623	begin
1624	inherited;
1625	// save note at EditingIndex?
1626	if EditingIndex <> -1 then
1627	begin
1628	SaveCurrentNote(Saved);
1629	if not Saved then Exit;
1630	end;
1631	FLastNoteID := lstNotes.ItemID;
1632	mnuViewDetail.Checked := False;
1633	StatusText('Retrieving progress note list...');
1634	if Sender is TMenuItem then ViewContext := TMenuItem(Sender).Tag
1635	else if FCurrentContext.Status <> '' then ViewContext := NC_CUSTOM
1636	else ViewContext := NC_RECENT;
1637	case ViewContext of
1638	NC_RECENT: begin
1639	FillChar(FCurrentContext, SizeOf(FCurrentContext), 0);
1640	lblNotes.Caption := 'Last ' + IntToStr(ReturnMaxNotes) + ' Notes';
1641	FCurrentContext.Status := IntToStr(ViewContext);
1642	FCurrentContext.MaxDocs := ReturnMaxNotes;
1643	LoadNotes;
1644	end;
1645	NC_ALL: begin
1646	FillChar(FCurrentContext, SizeOf(FCurrentContext), 0);
1647	lblNotes.Caption := 'All Signed Notes';
1648	FCurrentContext.Status := IntToStr(ViewContext);
1649	LoadNotes;
1650	end;
1651	NC_UNSIGNED: begin
1652	FillChar(FCurrentContext, SizeOf(FCurrentContext), 0);
1653	lblNotes.Caption := 'Unsigned Notes';
1654	FCurrentContext.Status := IntToStr(ViewContext);
1655	LoadNotes;
1656	end;
1657	// Text Search CQ: HDS00002856 --------------------
1658	NC_SEARCHTEXT: begin;
1659	SearchTextStopFlag := False;
1660	SelectSearchText(Font.Size, FCurrentContext.SearchString, SearchCtxt );
1661	with SearchCtxt do if Changed then
1662	begin
1663	//FCurrentContext.Status := IntToStr(ViewContext);
1664	frmSearchStop.Show;
1665	lblNotes.Caption := 'Search: '+ SearchString;
1666	frmSearchStop.lblSearchStatus.Caption := lblNotes.Caption;
1667	FCurrentContext.SearchString := SearchString;
1668	LoadNotes;
1669	end;
1670	// Only do LoadNotes if something changed
1671	end;
1672	// Text Search CQ: HDS00002856 --------------------
1673	NC_UNCOSIGNED: begin
1674	FillChar(FCurrentContext, SizeOf(FCurrentContext), 0);
1675	lblNotes.Caption := 'Uncosigned Notes';
1676	FCurrentContext.Status := IntToStr(ViewContext);
1677	LoadNotes;
1678	end;
1679	NC_BY_AUTHOR: begin
1680	SelectAuthor(Font.Size, FCurrentContext, AuthCtxt);
1681	with AuthCtxt do if Changed then
1682	begin
1683	FillChar(FCurrentContext, SizeOf(FCurrentContext), 0);
1684	lblNotes.Caption := AuthorName + ': Signed Notes';
1685	FCurrentContext.Status := IntToStr(NC_BY_AUTHOR);
1686	FCurrentContext.Author := Author;
1687	FCurrentContext.TreeAscending := Ascending;
1688	LoadNotes;
1689	end;
1690	end;
1691	NC_BY_DATE: begin
1692	SelectNoteDateRange(Font.Size, FCurrentContext, DateRange);
1693	with DateRange do if Changed then
1694	begin
1695	FillChar(FCurrentContext, SizeOf(FCurrentContext), 0);
1696	lblNotes.Caption := FormatFMDateTime('mmm dd,yy', FMBeginDate) + ' to ' +
1697	FormatFMDateTime('mmm dd,yy', FMEndDate) + ': Signed Notes';
1698	FCurrentContext.BeginDate := BeginDate;
1699	FCurrentContext.EndDate := EndDate;
1700	FCurrentContext.FMBeginDate := FMBeginDate;
1701	FCurrentContext.FMEndDate := FMEndDate;
1702	FCurrentContext.TreeAscending := Ascending;
1703	FCurrentContext.Status := IntToStr(NC_BY_DATE);
1704	LoadNotes;
1705	end;
1706	end;
1707	NC_CUSTOM: begin
1708	if Sender is TMenuItem then
1709	begin
1710	SelectTIUView(Font.Size, True, FCurrentContext, uTIUContext);
1711	//lblNotes.Caption := 'Custom List';
1712	end;
1713	with uTIUContext do if Changed then
1714	begin
1715	//if not (Sender is TMenuItem) then lblNotes.Caption := 'Default List';
1716	//if MaxDocs = 0 then MaxDocs := ReturnMaxNotes;
1717	FCurrentContext.BeginDate := BeginDate;
1718	FCurrentContext.EndDate := EndDate;
1719	FCurrentContext.FMBeginDate := FMBeginDate;
1720	FCurrentContext.FMEndDate := FMEndDate;
1721	FCurrentContext.Status := Status;
1722	FCurrentContext.Author := Author;
1723	FCurrentContext.MaxDocs := MaxDocs;
1724	FCurrentContext.ShowSubject := ShowSubject;
1725	// NEW PREFERENCES:
1726	FCurrentContext.SortBy := SortBy;
1727	FCurrentContext.ListAscending := ListAscending;
1728	FCurrentContext.GroupBy := GroupBy;
1729	FCurrentContext.TreeAscending := TreeAscending;
1730	FCurrentContext.SearchField := SearchField;
1731	FCurrentContext.Keyword := Keyword;
1732	FCurrentContext.Filtered := Filtered;
1733	LoadNotes;
1734	end;
1735	end;
1736	end; {case}
1737	lblNotes.Caption := SetNoteTreeLabel(FCurrentContext);
1738	// Text Search CQ: HDS00002856 --------------------
1739	If FCurrentContext.SearchString <> '' then
1740	lblNotes.Caption := lblNotes.Caption+', containing "'+FCurrentContext.SearchString+'"';
1741	If SearchTextStopFlag=True then begin;
1742	lblNotes.Caption := 'Search for "'+FCurrentContext.SearchString+'" was stopped!';
1743	end;
1744	frmSearchStop.Hide;
1745	// Text Search CQ: HDS00002856 --------------------
1746	lblNotes.hint := lblNotes.Caption;
1747	tvNotes.Caption := lblNotes.Caption;
1748	StatusText('');
1749	end;
1750
1751	{ Action menu events ----------------------------------------------------------------------- }
1752
1753	function TfrmNotes.StartNewEdit(NewNoteType: integer): Boolean;
1754	{ if currently editing a note, returns TRUE if the user wants to start a new one }
1755	var
1756	Saved: Boolean;
1757	Msg, CapMsg: string;
1758	begin
1759	FStarting := False;
1760	Result := True;
1761	cmdNewNote.Enabled := False;
1762	if EditingIndex > -1 then
1763	begin
1764	FStarting := True;
1765	case NewNoteType of
1766	NT_ACT_ADDENDUM: begin
1767	Msg := TX_NEW_SAVE1 + MakeNoteDisplayText(lstNotes.Items[EditingIndex]) + TX_NEW_SAVE3;
1768	CapMsg := TC_NEW_SAVE3;
1769	end;
1770	NT_ACT_EDIT_NOTE: begin
1771	Msg := TX_NEW_SAVE1 + MakeNoteDisplayText(lstNotes.Items[EditingIndex]) + TX_NEW_SAVE4;
1772	CapMsg := TC_NEW_SAVE4;
1773	end;
1774	NT_ACT_ID_ENTRY: begin
1775	Msg := TX_NEW_SAVE1 + MakeNoteDisplayText(lstNotes.Items[EditingIndex]) + TX_NEW_SAVE5;
1776	CapMsg := TC_NEW_SAVE5;
1777	end;
1778	else
1779	begin
1780	Msg := TX_NEW_SAVE1 + MakeNoteDisplayText(lstNotes.Items[EditingIndex]) + TX_NEW_SAVE2;
1781	CapMsg := TC_NEW_SAVE2;
1782	end;
1783	end;
1784	if InfoBox(Msg, CapMsg, MB_YESNO) = IDNO then
1785	begin
1786	Result := False;
1787	FStarting := False;
1788	end
1789	else
1790	begin
1791	SaveCurrentNote(Saved);
1792	if not Saved then Result := False else LoadNotes;
1793	FStarting := False;
1794	end;
1795	end;
1796	cmdNewNote.Enabled := (Result = False) and (FStarting = False);
1797	end;
1798
1799	procedure TfrmNotes.mnuActNewClick(Sender: TObject);
1800	const
1801	IS_ID_CHILD = False;
1802	{ switches to current new note or creates a new note if none is being edited already }
1803	begin
1804	inherited;
1805	if not StartNewEdit(NT_ACT_NEW_NOTE) then Exit;
1806	//LoadNotes;
1807	// make sure a visit (time & location) is available before creating the note
1808	if Encounter.NeedVisit then
1809	begin
1810	UpdateVisit(Font.Size, DfltTIULocation);
1811	frmFrame.DisplayEncounterText;
1812	end;
1813	if Encounter.NeedVisit then
1814	begin
1815	InfoBox(TX_NEED_VISIT, TX_NO_VISIT, MB_OK or MB_ICONWARNING);
1816	ShowPCEButtons(False);
1817	Exit;
1818	end;
1819	InsertNewNote(IS_ID_CHILD, 0);
1820	end;
1821
1822	procedure TfrmNotes.mnuActAddIDEntryClick(Sender: TObject);
1823	const
1824	IS_ID_CHILD = True;
1825	var
1826	AnIDParent: integer;
1827	{ switches to current new note or creates a new note if none is being edited already }
1828	begin
1829	inherited;
1830	AnIDParent := lstNotes.ItemIEN;
1831	if not StartNewEdit(NT_ACT_ID_ENTRY) then Exit;
1832	//LoadNotes;
1833	with tvNotes do Selected := FindPieceNode(IntToStr(AnIDParent), U, Items.GetFirstNode);
1834	// make sure a visit (time & location) is available before creating the note
1835	if Encounter.NeedVisit then
1836	begin
1837	UpdateVisit(Font.Size, DfltTIULocation);
1838	frmFrame.DisplayEncounterText;
1839	end;
1840	if Encounter.NeedVisit then
1841	begin
1842	InfoBox(TX_NEED_VISIT, TX_NO_VISIT, MB_OK or MB_ICONWARNING);
1843	Exit;
1844	end;
1845	InsertNewNote(IS_ID_CHILD, AnIDParent);
1846	end;
1847
1848	procedure TfrmNotes.mnuActAddendClick(Sender: TObject);
1849	{ make an addendum to an existing note }
1850	var
1851	ActionSts: TActionRec;
1852	ANoteID: string;
1853	begin
1854	inherited;
1855	if lstNotes.ItemIEN <= 0 then Exit;
1856	ANoteID := lstNotes.ItemID;
1857	if not StartNewEdit(NT_ACT_ADDENDUM) then Exit;
1858	//LoadNotes;
1859	with tvNotes do Selected := FindPieceNode(ANoteID, 1, U, Items.GetFirstNode);
1860	if lstNotes.ItemIndex = EditingIndex then
1861	begin
1862	InfoBox(TX_ADDEND_NO, TX_ADDEND_MK, MB_OK);
1863	Exit;
1864	end;
1865	ActOnDocument(ActionSts, lstNotes.ItemIEN, 'MAKE ADDENDUM');
1866	if not ActionSts.Success then
1867	begin
1868	InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK);
1869	Exit;
1870	end;
1871	with lstNotes do if TitleForNote(lstNotes.ItemIEN) = TYP_ADDENDUM then
1872	begin
1873	InfoBox(TX_ADDEND_AD, TX_ADDEND_MK, MB_OK);
1874	Exit;
1875	end;
1876	InsertAddendum;
1877	end;
1878
1879	procedure TfrmNotes.mnuActDetachFromIDParentClick(Sender: TObject);
1880	var
1881	DocID, WhyNot: string;
1882	Saved: boolean;
1883	SavedDocID: string;
1884	begin
1885	if lstNotes.ItemIEN = 0 then exit;
1886	SavedDocID := lstNotes.ItemID;
1887	if EditingIndex <> -1 then
1888	begin
1889	SaveCurrentNote(Saved);
1890	if not Saved then Exit;
1891	LoadNotes;
1892	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
1893	end;
1894	if not CanBeAttached(PDocTreeObject(tvNotes.Selected.Data)^.DocID, WhyNot) then
1895	begin
1896	WhyNot := StringReplace(WhyNot, 'ATTACH', 'DETACH', [rfIgnoreCase]);
1897	WhyNot := StringReplace(WhyNot, 'to an ID', 'from an ID', [rfIgnoreCase]);
1898	InfoBox(WhyNot, TX_DETACH_FAILURE, MB_OK);
1899	Exit;
1900	end;
1901	if (InfoBox('DETACH: ' + tvNotes.Selected.Text + CRLF + CRLF +
1902	' FROM: ' + tvNotes.Selected.Parent.Text + CRLF + CRLF +
1903	'Are you sure?', TX_DETACH_CNF, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) <> IDYES)
1904	then Exit;
1905	DocID := PDocTreeObject(tvNotes.Selected.Data)^.DocID;
1906	SavedDocID := PDocTreeObject(tvNotes.Selected.Parent.Data)^.DocID;
1907	if DetachEntryFromParent(DocID, WhyNot) then
1908	begin
1909	LoadNotes;
1910	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
1911	if tvNotes.Selected <> nil then tvNotes.Selected.Expand(False);
1912	end
1913	else
1914	begin
1915	WhyNot := StringReplace(WhyNot, 'ATTACH', 'DETACH', [rfIgnoreCase]);
1916	WhyNot := StringReplace(WhyNot, 'to an ID', 'from an ID', [rfIgnoreCase]);
1917	InfoBox(WhyNot, TX_DETACH_FAILURE, MB_OK);
1918	end;
1919	end;
1920
1921	procedure TfrmNotes.mnuActSignListClick(Sender: TObject);
1922	{ add the note to the Encounter object, see mnuActSignClick - copied}
1923	const
1924	SIG_COSIGN = 'COSIGNATURE';
1925	SIG_SIGN = 'SIGNATURE';
1926	var
1927	ActionType, SignTitle: string;
1928	ActionSts: TActionRec;
1929	begin
1930	inherited;
1931	if lstNotes.ItemIEN = 0 then Exit;
1932	if lstNotes.ItemIndex = EditingIndex then Exit; // already in signature list
1933	if not NoteHasText(lstNotes.ItemIEN) then
1934	begin
1935	InfoBox(TX_EMPTY_NOTE1, TC_EMPTY_NOTE, MB_OK or MB_ICONERROR);
1936	Exit;
1937	end;
1938	if not LastSaveClean(lstNotes.ItemIEN) and
1939	(InfoBox(TX_ABSAVE, TC_ABSAVE, MB_YESNO or MB_DEFBUTTON2 or MB_ICONWARNING) <> IDYES) then Exit;
1940	if CosignDocument(lstNotes.ItemIEN) then
1941	begin
1942	SignTitle := TX_COSIGN;
1943	ActionType := SIG_COSIGN;
1944	end else
1945	begin
1946	SignTitle := TX_SIGN;
1947	ActionType := SIG_SIGN;
1948	end;
1949	ActOnDocument(ActionSts, lstNotes.ItemIEN, ActionType);
1950	if not ActionSts.Success then
1951	begin
1952	InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK);
1953	Exit;
1954	end;
1955	LockConsultRequestAndNote(lstNotes.ItemIEN);
1956	with lstNotes do Changes.Add(CH_DOC, ItemID, GetTitleText(ItemIndex), '', CH_SIGN_YES);
1957	end;
1958
1959	procedure TfrmNotes.RemovePCEFromChanges(IEN: Int64; AVisitStr: string = '');
1960	begin
1961	if IEN = NT_ADDENDUM then Exit; // no PCE information entered for an addendum
1962	// do we need to call DeletePCE(AVisitStr), as was done with NT_NEW_NOTE (ien=-10)???
1963	if AVisitStr = '' then AVisitStr := VisitStrForNote(IEN);
1964	Changes.Remove(CH_PCE, 'V' + AVisitStr);
1965	Changes.Remove(CH_PCE, 'P' + AVisitStr);
1966	Changes.Remove(CH_PCE, 'D' + AVisitStr);
1967	Changes.Remove(CH_PCE, 'I' + AVisitStr);
1968	Changes.Remove(CH_PCE, 'S' + AVisitStr);
1969	Changes.Remove(CH_PCE, 'A' + AVisitStr);
1970	Changes.Remove(CH_PCE, 'H' + AVisitStr);
1971	Changes.Remove(CH_PCE, 'E' + AVisitStr);
1972	Changes.Remove(CH_PCE, 'T' + AVisitStr);
1973	end;
1974
1975	procedure TfrmNotes.mnuActDeleteClick(Sender: TObject);
1976	{ delete the selected progress note & remove from the Encounter object if necessary }
1977	var
1978	DeleteSts, ActionSts: TActionRec;
1979	SaveConsult, SavedDocIEN: Integer;
1980	ReasonForDelete, AVisitStr, SavedDocID, x: string;
1981	Saved: boolean;
1982	begin
1983	inherited;
1984	if lstNotes.ItemIEN = 0 then Exit;
1985	ActOnDocument(ActionSts, lstNotes.ItemIEN, 'DELETE RECORD');
1986	if ShowMsgOn(not ActionSts.Success, ActionSts.Reason, TX_IN_AUTH) then Exit;
1987	ReasonForDelete := SelectDeleteReason(lstNotes.ItemIEN);
1988	if ReasonForDelete = DR_CANCEL then Exit;
1989	// suppress prompt for deletion when called from SaveEditedNote (Sender = Self)
1990	if (Sender <> Self) and (InfoBox(MakeNoteDisplayText(lstNotes.Items[lstNotes.ItemIndex]) + TX_DEL_OK,
1991	TX_DEL_CNF, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) <> IDYES) then Exit;
1992	// do the appropriate locking
1993	if not LockConsultRequestAndNote(lstNotes.ItemIEN) then Exit;
1994	// retraction notification message
1995	if JustifyDocumentDelete(lstNotes.ItemIEN) then
1996	InfoBox(TX_RETRACT, TX_RETRACT_CAP, MB_OK);
1997	SavedDocID := lstNotes.ItemID;
1998	SavedDocIEN := lstNotes.ItemIEN;
1999	if (EditingIndex > -1) and (not FConfirmed) and (lstNotes.ItemIndex <> EditingIndex) and (memNewNote.GetTextLen > 0) then
2000	begin
2001	SaveCurrentNote(Saved);
2002	if not Saved then Exit;
2003	end;
2004	EditingIndex := -1;
2005	FConfirmed := False;
2006	(* if Saved then
2007	begin
2008	EditingIndex := -1;
2009	mnuViewClick(Self);
2010	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
2011	end;*)
2012	// remove the note
2013	DeleteSts.Success := True;
2014	x := GetPackageRefForNote(SavedDocIEN);
2015	SaveConsult := StrToIntDef(Piece(x, ';', 1), 0);
2016	AVisitStr := VisitStrForNote(SavedDocIEN);
2017	RemovePCEFromChanges(SavedDocIEN, AVisitStr);
2018	if (SavedDocIEN > 0) and (lstNotes.ItemIEN = SavedDocIEN) then DeleteDocument(DeleteSts, SavedDocIEN, ReasonForDelete);
2019	if not Changes.Exist(CH_DOC, SavedDocID) then UnlockDocument(SavedDocIEN);
2020	Changes.Remove(CH_DOC, SavedDocID); // this will unlock the document if in Changes
2021	UnlockConsultRequest(0, SaveConsult); // note has been deleted, so 1st param = 0
2022	// reset the display now that the note is gone
2023	if DeleteSts.Success then
2024	begin
2025	DeletePCE(AVisitStr); // removes PCE data if this was the only note pointing to it
2026	ClearEditControls;
2027	//ClearPtData; WRONG - fixed in v15.10 - RV
2028	LoadNotes;
2029	(* with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
2030	if tvNotes.Selected <> nil then tvNotesChange(Self, tvNotes.Selected) else
2031	begin*)
2032	pnlWrite.Visible := False;
2033	pnlRead.Visible := True;
2034	UpdateReminderFinish;
2035	ShowPCEControls(False);
2036	frmDrawers.DisplayDrawers(TRUE, [odTemplates], [odTemplates]); //FALSE);
2037	ShowPCEButtons(FALSE);
2038	//end; {if ItemIndex}
2039	end {if DeleteSts}
2040	else InfoBox(DeleteSts.Reason, TX_DEL_ERR, MB_OK or MB_ICONWARNING);
2041	end;
2042
2043	procedure TfrmNotes.mnuActEditClick(Sender: TObject);
2044	{ load the selected progress note for editing }
2045	var
2046	ActionSts: TActionRec;
2047	ANoteID: string;
2048	begin
2049	inherited;
2050	if lstNotes.ItemIndex = EditingIndex then Exit;
2051	ANoteID := lstNotes.ItemID;
2052	if not StartNewEdit(NT_ACT_EDIT_NOTE) then Exit;
2053	//LoadNotes;
2054	with tvNotes do Selected := FindPieceNode(ANoteID, 1, U, Items.GetFirstNode);
2055	ActOnDocument(ActionSts, lstNotes.ItemIEN, 'EDIT RECORD');
2056	if not ActionSts.Success then
2057	begin
2058	InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK);
2059	Exit;
2060	end;
2061	LoadForEdit;
2062	end;
2063
2064	procedure TfrmNotes.mnuActSaveClick(Sender: TObject);
2065	{ saves the note that is currently being edited }
2066	var
2067	Saved: Boolean;
2068	SavedDocID: string;
2069	begin
2070	inherited;
2071	if EditingIndex > -1 then
2072	begin
2073	SavedDocID := Piece(lstNotes.Items[EditingIndex], U, 1);
2074	FLastNoteID := SavedDocID;
2075	SaveCurrentNote(Saved);
2076	if Saved and (EditingIndex < 0) and (not FDeleted) then
2077	//if Saved then
2078	begin
2079	LoadNotes;
2080	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
2081	end;
2082	end
2083	else InfoBox(TX_NO_NOTE, TX_SAVE_NOTE, MB_OK or MB_ICONWARNING);
2084	end;
2085
2086	procedure TfrmNotes.mnuActSignClick(Sender: TObject);
2087	{ sign the currently selected note, save first if necessary }
2088	const
2089	SIG_COSIGN = 'COSIGNATURE';
2090	SIG_SIGN = 'SIGNATURE';
2091	var
2092	Saved, NoteUnlocked: Boolean;
2093	ActionType, ESCode, SignTitle: string;
2094	ActionSts, SignSts: TActionRec;
2095	OK: boolean;
2096	SavedDocID, tmpItem: string;
2097	EditingID: string; //v22.12 - RV
2098	tmpNode: TTreeNode;
2099	begin
2100	inherited;
2101	(* if lstNotes.ItemIndex = EditingIndex then //v22.12 - RV
2102	begin //v22.12 - RV
2103	SaveCurrentNote(Saved); //v22.12 - RV
2104	if (not Saved) or FDeleted then Exit; //v22.12 - RV
2105	end //v22.12 - RV
2106	else if EditingIndex > -1 then //v22.12 - RV
2107	tmpItem := lstNotes.Items[EditingIndex]; //v22.12 - RV
2108	SavedDocID := lstNotes.ItemID;*) //v22.12 - RV
2109	SavedDocID := lstNotes.ItemID; //v22.12 - RV
2110	FLastNoteID := SavedDocID; //v22.12 - RV
2111	if lstNotes.ItemIndex = EditingIndex then //v22.12 - RV
2112	begin //v22.12 - RV
2113	SaveCurrentNote(Saved); //v22.12 - RV
2114	if (not Saved) or FDeleted then Exit; //v22.12 - RV
2115	end //v22.12 - RV
2116	else if EditingIndex > -1 then //v22.12 - RV
2117	begin //v22.12 - RV
2118	tmpItem := lstNotes.Items[EditingIndex]; //v22.12 - RV
2119	EditingID := Piece(tmpItem, U, 1); //v22.12 - RV
2120	end; //v22.12 - RV
2121	if not NoteHasText(lstNotes.ItemIEN) then
2122	begin
2123	InfoBox(TX_EMPTY_NOTE1, TC_EMPTY_NOTE, MB_OK or MB_ICONERROR);
2124	Exit;
2125	end;
2126	if not LastSaveClean(lstNotes.ItemIEN) and
2127	(InfoBox(TX_ABSAVE, TC_ABSAVE, MB_YESNO or MB_DEFBUTTON2 or MB_ICONWARNING) <> IDYES) then Exit;
2128	if CosignDocument(lstNotes.ItemIEN) then
2129	begin
2130	SignTitle := TX_COSIGN;
2131	ActionType := SIG_COSIGN;
2132	end else
2133	begin
2134	SignTitle := TX_SIGN;
2135	ActionType := SIG_SIGN;
2136	end;
2137	if not LockConsultRequestAndNote(lstNotes.ItemIEN) then Exit;
2138	// no exits after things are locked
2139	NoteUnlocked := False;
2140	ActOnDocument(ActionSts, lstNotes.ItemIEN, ActionType);
2141	if ActionSts.Success then
2142	begin
2143	OK := IsOK2Sign(uPCEShow, lstNotes.ItemIEN);
2144	if frmFrame.Closing then exit;
2145	if(uPCEShow.Updated) then
2146	begin
2147	uPCEShow.CopyPCEData(uPCEEdit);
2148	uPCEShow.Updated := FALSE;
2149	lstNotesClick(Self);
2150	end;
2151	if not AuthorSignedDocument(lstNotes.ItemIEN) then
2152	begin
2153	if (InfoBox(TX_AUTH_SIGNED +
2154	GetTitleText(lstNotes.ItemIndex),TX_SIGN ,MB_YESNO)= ID_NO) then exit;
2155	end;
2156	if(OK) then
2157	begin
2158	with lstNotes do SignatureForItem(Font.Size, MakeNoteDisplayText(Items[ItemIndex]), SignTitle, ESCode);
2159	if Length(ESCode) > 0 then
2160	begin
2161	SignDocument(SignSts, lstNotes.ItemIEN, ESCode);
2162	RemovePCEFromChanges(lstNotes.ItemIEN);
2163	NoteUnlocked := Changes.Exist(CH_DOC, lstNotes.ItemID);
2164	Changes.Remove(CH_DOC, lstNotes.ItemID); // this will unlock if in Changes
2165	if SignSts.Success then
2166	begin
2167	SendMessage(frmConsults.Handle, UM_NEWORDER, ORDER_SIGN, 0); {REV}
2168	lstNotesClick(Self);
2169	end
2170	else InfoBox(SignSts.Reason, TX_SIGN_ERR, MB_OK);
2171	end {if Length(ESCode)}
2172	else
2173	NoteUnlocked := Changes.Exist(CH_DOC, lstNotes.ItemID);
2174	end;
2175	end
2176	else InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK);
2177	if not NoteUnlocked then UnlockDocument(lstNotes.ItemIEN);
2178	UnlockConsultRequest(lstNotes.ItemIEN);
2179	//SetViewContext(FCurrentContext); //v22.12 - RV
2180	LoadNotes; //v22.12 - RV
2181	//if EditingIndex > -1 then //v22.12 - RV
2182	if (EditingID <> '') then //v22.12 - RV
2183	begin
2184	lstNotes.Items.Insert(0, tmpItem);
2185	tmpNode := tvNotes.Items.AddObjectFirst(tvNotes.Items.GetFirstNode, 'Note being edited',
2186	MakeNoteTreeObject('EDIT^Note being edited^^^^^^^^^^^%^0'));
2187	TORTreeNode(tmpNode).StringData := 'EDIT^Note being edited^^^^^^^^^^^%^0';
2188	tmpNode.ImageIndex := IMG_TOP_LEVEL;
2189	tmpNode := tvNotes.Items.AddChildObjectFirst(tmpNode, MakeNoteDisplayText(tmpItem), MakeNoteTreeObject(tmpItem));
2190	TORTreeNode(tmpNode).StringData := tmpItem;
2191	SetTreeNodeImagesAndFormatting(TORTreeNode(tmpNode), FCurrentContext, CT_NOTES);
2192	EditingIndex := lstNotes.SelectByID(EditingID); //v22.12 - RV
2193	end;
2194	//with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); //v22.12 - RV
2195	with tvNotes do //v22.12 - RV
2196	begin //v22.12 - RV
2197	Selected := FindPieceNode(FLastNoteID, U, Items.GetFirstNode); //v22.12 - RV
2198	if Selected <> nil then
2199	tvNotesChange(Self, Selected) //v22.12 - RV
2200	else
2201	tvNotes.Selected := tvNotes.Items[0]; //first Node in treeview
2202	end; //v22.12 - RV
2203	end;
2204
2205	procedure TfrmNotes.SaveSignItem(const ItemID, ESCode: string);
2206	{ saves and optionally signs a progress note or addendum }
2207	const
2208	SIG_COSIGN = 'COSIGNATURE';
2209	SIG_SIGN = 'SIGNATURE';
2210	var
2211	AnIndex, IEN, i: Integer;
2212	Saved, ContinueSign: Boolean; {RAB 8/26/99}
2213	ActionSts, SignSts: TActionRec;
2214	APCEObject: TPCEData;
2215	OK: boolean;
2216	ActionType, SignTitle: string;
2217	begin
2218	AnIndex := -1;
2219	IEN := StrToIntDef(ItemID, 0);
2220	if IEN = 0 then Exit;
2221	if frmFrame.TimedOut and (EditingIndex <> -1) then FSilent := True;
2222	with lstNotes do for i := 0 to Items.Count - 1 do if lstNotes.GetIEN(i) = IEN then
2223	begin
2224	AnIndex := i;
2225	break;
2226	end;
2227	if (AnIndex > -1) and (AnIndex = EditingIndex) then
2228	begin
2229	SaveCurrentNote(Saved);
2230	if not Saved then Exit;
2231	if FDeleted then
2232	begin
2233	FDeleted := False;
2234	Exit;
2235	end;
2236	AnIndex := lstNotes.SelectByIEN(IEN);
2237	//IEN := lstNotes.GetIEN(AnIndex); // saving will change IEN
2238	end;
2239	if Length(ESCode) > 0 then
2240	begin
2241	if CosignDocument(IEN) then
2242	begin
2243	SignTitle := TX_COSIGN;
2244	ActionType := SIG_COSIGN;
2245	end else
2246	begin
2247	SignTitle := TX_SIGN;
2248	ActionType := SIG_SIGN;
2249	end;
2250	ActOnDocument(ActionSts, IEN, ActionType);
2251	if not ActionSts.Success then
2252	begin
2253	InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK);
2254	ContinueSign := False;
2255	end
2256	else if not NoteHasText(IEN) then
2257	begin
2258	InfoBox(TX_EMPTY_NOTE1, TC_EMPTY_NOTE, MB_OK or MB_ICONERROR);
2259	ContinueSign := False;
2260	end
2261	else if not LastSaveClean(IEN) and
2262	(InfoBox(TX_ABSAVE, TC_ABSAVE, MB_YESNO or MB_DEFBUTTON2 or MB_ICONWARNING) <> IDYES)
2263	then ContinueSign := False
2264	else ContinueSign := True;
2265	if ContinueSign then
2266	begin
2267	if (AnIndex >= 0) and (AnIndex = lstNotes.ItemIndex) then
2268	APCEObject := uPCEShow
2269	else
2270	APCEObject := nil;
2271	OK := IsOK2Sign(APCEObject, IEN);
2272	if frmFrame.Closing then exit;
2273	if(assigned(APCEObject)) and (uPCEShow.Updated) then
2274	begin
2275	uPCEShow.CopyPCEData(uPCEEdit);
2276	uPCEShow.Updated := FALSE;
2277	lstNotesClick(Self);
2278	end
2279	else
2280	uPCEEdit.Clear;
2281	if(OK) then
2282	begin
2283	//if ((not FSilent) and IsSurgeryTitle(TitleForNote(IEN))) then DisplayOpTop(IEN);
2284	SignDocument(SignSts, IEN, ESCode);
2285	if not SignSts.Success then InfoBox(SignSts.Reason, TX_SIGN_ERR, MB_OK);
2286	end; {if OK}
2287	end; {if ContinueSign}
2288	end; {if Length(ESCode)}
2289
2290	UnlockConsultRequest(IEN);
2291	if (AnIndex = lstNotes.ItemIndex) and (not frmFrame.ContextChanging) then
2292	begin
2293	LoadNotes;
2294	with tvNotes do Selected := FindPieceNode(IntToStr(IEN), U, Items.GetFirstNode);
2295	end;
2296	end;
2297
2298	procedure TfrmNotes.popNoteMemoPopup(Sender: TObject);
2299	begin
2300	inherited;
2301	if PopupComponent(Sender, popNoteMemo) is TCustomEdit
2302	then FEditCtrl := TCustomEdit(PopupComponent(Sender, popNoteMemo))
2303	else FEditCtrl := nil;
2304	if FEditCtrl <> nil then
2305	begin
2306	popNoteMemoCut.Enabled := FEditCtrl.SelLength > 0;
2307	popNoteMemoCopy.Enabled := popNoteMemoCut.Enabled;
2308	popNoteMemoPaste.Enabled := (not TORExposedCustomEdit(FEditCtrl).ReadOnly) and
2309	Clipboard.HasFormat(CF_TEXT);
2310	popNoteMemoTemplate.Enabled := frmDrawers.CanEditTemplates and popNoteMemoCut.Enabled;
2311	popNoteMemoFind.Enabled := FEditCtrl.GetTextLen > 0;
2312	end else
2313	begin
2314	popNoteMemoCut.Enabled := False;
2315	popNoteMemoCopy.Enabled := False;
2316	popNoteMemoPaste.Enabled := False;
2317	popNoteMemoTemplate.Enabled := False;
2318	end;
2319	if pnlWrite.Visible then
2320	begin
2321	popNoteMemoSpell.Enabled := True;
2322	popNoteMemoGrammar.Enabled := True;
2323	popNoteMemoReformat.Enabled := True;
2324	popNoteMemoReplace.Enabled := (FEditCtrl.GetTextLen > 0);
2325	popNoteMemoPreview.Enabled := (frmDrawers.TheOpenDrawer = odTemplates) and Assigned(frmDrawers.tvTemplates.Selected);
2326	popNoteMemoInsTemplate.Enabled := (frmDrawers.TheOpenDrawer = odTemplates) and Assigned(frmDrawers.tvTemplates.Selected);
2327	end else
2328	begin
2329	popNoteMemoSpell.Enabled := False;
2330	popNoteMemoGrammar.Enabled := False;
2331	popNoteMemoReformat.Enabled := False;
2332	popNoteMemoReplace.Enabled := False;
2333	popNoteMemoPreview.Enabled := False;
2334	popNoteMemoInsTemplate.Enabled := False;
2335	end;
2336	end;
2337
2338	procedure TfrmNotes.popNoteMemoCutClick(Sender: TObject);
2339	begin
2340	inherited;
2341	FEditCtrl.CutToClipboard;
2342	end;
2343
2344	procedure TfrmNotes.popNoteMemoCopyClick(Sender: TObject);
2345	begin
2346	inherited;
2347	FEditCtrl.CopyToClipboard;
2348	end;
2349
2350	procedure TfrmNotes.popNoteMemoPasteClick(Sender: TObject);
2351	begin
2352	inherited;
2353	FEditCtrl.SelText := Clipboard.AsText; {KCM}
2354	frmNotes.pnlWriteResize(Self);
2355	//FEditCtrl.PasteFromClipboard; // use AsText to prevent formatting
2356	end;
2357
2358	procedure TfrmNotes.popNoteMemoReformatClick(Sender: TObject);
2359	begin
2360	inherited;
2361	if Screen.ActiveControl <> memNewNote then Exit;
2362	ReformatMemoParagraph(memNewNote);
2363	end;
2364
2365	procedure TfrmNotes.popNoteMemoSaveContinueClick(Sender: TObject);
2366	begin
2367	inherited;
2368	FChanged := True;
2369	DoAutoSave;
2370	end;
2371
2372	procedure TfrmNotes.popNoteMemoFindClick(Sender: TObject);
2373	//var
2374	//hData: THandle; //CQ8300
2375	//pData: ^ClipboardData; //CQ8300
2376	begin
2377	inherited;
2378	SendMessage(TRichEdit(popNoteMemo.PopupComponent).Handle, WM_VSCROLL, SB_TOP, 0);
2379	with dlgFindText do
2380	begin
2381	Position := Point(Application.MainForm.Left + pnlLeft.Width, Application.MainForm.Top);
2382	FindText := '';
2383	Options := [frDown, frHideUpDown];
2384	{
2385	//CQ8300
2386	OpenClipboard(dlgFindText.Handle);
2387	hData := GetClipboardData(CF_TEXT);
2388	pData := GlobalLock(hData);
2389	FindText := pData^.Text;
2390	GlobalUnlock(hData);
2391	CloseClipboard;
2392	//end CQ8300
2393	}
2394	Execute;
2395	end;
2396	end;
2397
2398	procedure TfrmNotes.dlgFindTextFind(Sender: TObject);
2399	begin
2400	dmodShared.FindRichEditText(dlgFindText, TRichEdit(popNoteMemo.PopupComponent));
2401	end;
2402
2403	procedure TfrmNotes.popNoteMemoReplaceClick(Sender: TObject);
2404	begin
2405	inherited;
2406	SendMessage(TRichEdit(popNoteMemo.PopupComponent).Handle, WM_VSCROLL, SB_TOP, 0);
2407	with dlgReplaceText do
2408	begin
2409	Position := Point(Application.MainForm.Left + pnlLeft.Width, Application.MainForm.Top);
2410	FindText := '';
2411	ReplaceText := '';
2412	Options := [frDown, frHideUpDown];
2413	Execute;
2414	end;
2415	end;
2416
2417	procedure TfrmNotes.dlgReplaceTextFind(Sender: TObject);
2418	begin
2419	inherited;
2420	dmodShared.FindRichEditText(dlgFindText, TRichEdit(popNoteMemo.PopupComponent));
2421	end;
2422
2423	procedure TfrmNotes.dlgReplaceTextReplace(Sender: TObject);
2424	begin
2425	inherited;
2426	dmodShared.ReplaceRichEditText(dlgReplaceText, TRichEdit(popNoteMemo.PopupComponent));
2427	end;
2428
2429	procedure TfrmNotes.popNoteMemoSpellClick(Sender: TObject);
2430	begin
2431	inherited;
2432	DoAutoSave(0);
2433	timAutoSave.Enabled := False;
2434	try
2435	SpellCheckForControl(memNewNote);
2436	finally
2437	FChanged := True;
2438	DoAutoSave(0);
2439	timAutoSave.Enabled := True;
2440	end;
2441	end;
2442
2443	procedure TfrmNotes.popNoteMemoGrammarClick(Sender: TObject);
2444	begin
2445	inherited;
2446	DoAutoSave(0);
2447	timAutoSave.Enabled := False;
2448	try
2449	GrammarCheckForControl(memNewNote);
2450	finally
2451	FChanged := True;
2452	DoAutoSave(0);
2453	timAutoSave.Enabled := True;
2454	end;
2455	end;
2456
2457	procedure TfrmNotes.mnuViewDetailClick(Sender: TObject);
2458	begin
2459	inherited;
2460	if lstNotes.ItemIEN <= 0 then Exit;
2461	mnuViewDetail.Checked := not mnuViewDetail.Checked;
2462	if mnuViewDetail.Checked then
2463	begin
2464	StatusText('Retrieving progress note details...');
2465	Screen.Cursor := crHourGlass;
2466	LoadDetailText(memNote.Lines, lstNotes.ItemIEN);
2467	Screen.Cursor := crDefault;
2468	StatusText('');
2469	memNote.SelStart := 0;
2470	memNote.Repaint;
2471	end
2472	else
2473	lstNotesClick(Self);
2474	SendMessage(memNote.Handle, WM_VSCROLL, SB_TOP, 0);
2475	end;
2476
2477	procedure TfrmNotes.FormClose(Sender: TObject; var Action: TCloseAction);
2478	var
2479	Saved: Boolean;
2480	IEN: Int64;
2481	ErrMsg: string;
2482	DeleteSts: TActionRec;
2483	begin
2484	inherited;
2485	if frmFrame.TimedOut and (EditingIndex <> -1) then
2486	begin
2487	FSilent := True;
2488	if memNewNote.GetTextLen > 0 then SaveCurrentNote(Saved)
2489	else
2490	begin
2491	IEN := lstNotes.GetIEN(EditingIndex);
2492	if not LastSaveClean(IEN) then // means note hasn't been committed yet
2493	begin
2494	LockDocument(IEN, ErrMsg);
2495	if ErrMsg = '' then
2496	begin
2497	DeleteDocument(DeleteSts, IEN, '');
2498	UnlockDocument(IEN);
2499	end; {if ErrMsg}
2500	end; {if not LastSaveClean}
2501	end; {else}
2502	end; {if frmFrame}
2503	end;
2504
2505	procedure TfrmNotes.mnuActIdentifyAddlSignersClick(Sender: TObject);
2506	var
2507	Exclusions: TStrings;
2508	Saved, x, y: boolean;
2509	SignerList: TSignerList;
2510	ActionSts: TActionRec;
2511	SigAction: integer;
2512	SavedDocID: string;
2513	ARefDate: TFMDateTime;
2514	begin
2515	inherited;
2516	if lstNotes.ItemIEN = 0 then exit;
2517	SavedDocID := lstNotes.ItemID;
2518	if lstNotes.ItemIndex = EditingIndex then
2519	begin
2520	SaveCurrentNote(Saved);
2521	if not Saved then Exit;
2522	LoadNotes;
2523	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
2524	end;
2525	x := CanChangeCosigner(lstNotes.ItemIEN);
2526	ActOnDocument(ActionSts, lstNotes.ItemIEN, 'IDENTIFY SIGNERS');
2527	y := ActionSts.Success;
2528	if x and not y then
2529	begin
2530	if InfoBox(ActionSts.Reason + CRLF + CRLF +
2531	'Would you like to change the cosigner?',
2532	TX_IN_AUTH, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) = ID_YES then
2533	SigAction := SG_COSIGNER
2534	else
2535	Exit;
2536	end
2537	else if y and not x then SigAction := SG_ADDITIONAL
2538	else if x and y then SigAction := SG_BOTH
2539	else
2540	begin
2541	InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK);
2542	Exit;
2543	end;
2544
2545	if not LockConsultRequestAndNote(lstNotes.ItemIEN) then Exit;
2546	Exclusions := GetCurrentSigners(lstNotes.ItemIEN);
2547	ARefDate := StrToFloat(Piece(lstNotes.Items[lstNotes.ItemIndex], U, 3));
2548	SelectAdditionalSigners(Font.Size, lstNotes.ItemIEN, SigAction, Exclusions, SignerList, CT_NOTES, ARefDate);
2549	with SignerList do
2550	begin
2551	case SigAction of
2552	SG_ADDITIONAL: if Changed and (Signers <> nil) and (Signers.Count > 0) then
2553	UpdateAdditionalSigners(lstNotes.ItemIEN, Signers);
2554	SG_COSIGNER: if Changed then ChangeCosigner(lstNotes.ItemIEN, Cosigner);
2555	SG_BOTH: if Changed then
2556	begin
2557	if (Signers <> nil) and (Signers.Count > 0) then
2558	UpdateAdditionalSigners(lstNotes.ItemIEN, Signers);
2559	ChangeCosigner(lstNotes.ItemIEN, Cosigner);
2560	end;
2561	end;
2562	lstNotesClick(Self);
2563	end;
2564	UnlockDocument(lstNotes.ItemIEN);
2565	UnlockConsultRequest(lstNotes.ItemIEN);
2566	end;
2567
2568	procedure TfrmNotes.popNoteMemoAddlSignClick(Sender: TObject);
2569	begin
2570	inherited;
2571	mnuActIdentifyAddlSignersClick(Self);
2572	end;
2573
2574	procedure TfrmNotes.ProcessNotifications;
2575	var
2576	x: string;
2577	Saved: boolean;
2578	tmpNode: TTreeNode;
2579	AnObject: PDocTreeObject;
2580	begin
2581	if EditingIndex <> -1 then
2582	begin
2583	SaveCurrentNote(Saved);
2584	if not Saved then Exit;
2585	end;
2586	lblNotes.Caption := Notifications.Text;
2587	tvNotes.Caption := Notifications.Text;
2588	EditingIndex := -1;
2589	lstNotes.Enabled := True ;
2590	pnlRead.BringToFront ;
2591	// show ALL unsigned/uncosigned for a patient, not just the alerted one
2592	// what about cosignature? How to get correct list? ORB FOLLOWUP TYPE = OR alerts only
2593	x := Notifications.AlertData;
2594	if StrToIntDef(Piece(x, U, 1), 0) = 0 then
2595	begin
2596	InfoBox(TX_NO_ALERT, TX_CAP_NO_ALERT, MB_OK);
2597	Exit;
2598	end;
2599	uChanging := True;
2600	tvNotes.Items.BeginUpdate;
2601	lstNotes.Clear;
2602	KillDocTreeObjects(tvNotes);
2603	tvNotes.Items.Clear;
2604	lstNotes.Items.Add(x);
2605	AnObject := MakeNoteTreeObject('ALERT^Alerted Note^^^^^^^^^^^%^0');
2606	tmpNode := tvNotes.Items.AddObjectFirst(tvNotes.Items.GetFirstNode, AnObject.NodeText, AnObject);
2607	TORTreeNode(tmpNode).StringData := 'ALERT^Alerted Note^^^^^^^^^^^%^0';
2608	tmpNode.ImageIndex := IMG_TOP_LEVEL;
2609	AnObject := MakeNoteTreeObject(x);
2610	tmpNode := tvNotes.Items.AddChildObjectFirst(tmpNode, AnObject.NodeText, AnObject);
2611	TORTreeNode(tmpNode).StringData := x;
2612	SetTreeNodeImagesAndFormatting(TORTreeNode(tmpNode), FCurrentContext, CT_NOTES);
2613	tvNotes.Selected := tmpNode;
2614	tvNotes.Items.EndUpdate;
2615	uChanging := False;
2616	tvNotesChange(Self, tvNotes.Selected);
2617	case Notifications.Followup of
2618	NF_NOTES_UNSIGNED_NOTE: ; //Automatically deleted by sig action!!!
2619	end;
2620	if Copy(Piece(Notifications.RecordID, U, 2), 1, 6) = 'TIUADD' then Notifications.Delete;
2621	if Copy(Piece(Notifications.RecordID, U, 2), 1, 5) = 'TIUID' then Notifications.Delete;
2622	end;
2623
2624	procedure TfrmNotes.SetViewContext(AContext: TTIUContext);
2625	var
2626	Saved: boolean;
2627	begin
2628	if EditingIndex <> -1 then
2629	begin
2630	SaveCurrentNote(Saved);
2631	if not Saved then Exit;
2632	end;
2633	FCurrentContext := AContext;
2634	EditingIndex := -1;
2635	tvNotes.Enabled := True ;
2636	pnlRead.BringToFront ;
2637	if FCurrentContext.Status <> '' then with uTIUContext do
2638	begin
2639	BeginDate := FCurrentContext.BeginDate;
2640	EndDate := FCurrentContext.EndDate;
2641	FMBeginDate := FCurrentContext.FMBeginDate;
2642	FMEndDate := FCurrentContext.FMEndDate;
2643	Status := FCurrentContext.Status;
2644	Author := FCurrentContext.Author;
2645	MaxDocs := FCurrentContext.MaxDocs;
2646	ShowSubject := FCurrentContext.ShowSubject;
2647	GroupBy := FCurrentContext.GroupBy;
2648	SortBy := FCurrentContext.SortBy;
2649	ListAscending := FCurrentContext.ListAscending;
2650	TreeAscending := FCurrentContext.TreeAscending;
2651	Keyword := FCurrentContext.Keyword;
2652	SearchField := FCurrentContext.SearchField;
2653	Filtered := FCurrentContext.Filtered;
2654	Changed := True;
2655	mnuViewClick(Self);
2656	end
2657	else
2658	begin
2659	ViewContext := NC_RECENT ;
2660	mnuViewClick(Self);
2661	end;
2662	end;
2663
2664	procedure TfrmNotes.mnuViewSaveAsDefaultClick(Sender: TObject);
2665	const
2666	TX_NO_MAX = 'You have not specified a maximum number of notes to be returned.' + CRLF +
2667	'If you save this preference, the result will be that ALL notes for every' + CRLF +
2668	'patient will be saved as your default view.' + CRLF + CRLF +
2669	'For patients with large numbers of notes, this could result in some lengthy' + CRLF +
2670	'delays in loading the list of notes.' + CRLF + CRLF +
2671	'Are you sure you mean to do this?';
2672	TX_REPLACE = 'Replace current defaults?';
2673	begin
2674	inherited;
2675	if FCurrentContext.MaxDocs = 0 then
2676	if InfoBox(TX_NO_MAX,'Warning', MB_YESNO or MB_ICONWARNING) = IDNO then
2677	begin
2678	mnuViewClick(mnuViewCustom);
2679	Exit;
2680	end;
2681	if InfoBox(TX_REPLACE,'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then
2682	begin
2683	SaveCurrentTIUContext(FCurrentContext);
2684	FDefaultContext := FCurrentContext;
2685	//lblNotes.Caption := 'Default List';
2686	end;
2687	end;
2688
2689	procedure TfrmNotes.mnuViewReturntoDefaultClick(Sender: TObject);
2690	begin
2691	inherited;
2692	SetViewContext(FDefaultContext);
2693	end;
2694
2695	procedure TfrmNotes.popNoteMemoTemplateClick(Sender: TObject);
2696	begin
2697	inherited;
2698	EditTemplates(Self, TRUE, FEditCtrl.SelText);
2699	end;
2700
2701	procedure TfrmNotes.popNoteListPopup(Sender: TObject);
2702	begin
2703	inherited;
2704	N4.Visible := (popNoteList.PopupComponent is TORTreeView);
2705	popNoteListExpandAll.Visible := N4.Visible;
2706	popNoteListExpandSelected.Visible := N4.Visible;
2707	popNoteListCollapseAll.Visible := N4.Visible;
2708	popNoteListCollapseSelected.Visible := N4.Visible;
2709	end;
2710
2711	procedure TfrmNotes.popNoteListExpandAllClick(Sender: TObject);
2712	begin
2713	inherited;
2714	tvNotes.FullExpand;
2715	end;
2716
2717	procedure TfrmNotes.popNoteListCollapseAllClick(Sender: TObject);
2718	begin
2719	inherited;
2720	tvNotes.Selected := nil;
2721	lvNotes.Items.Clear;
2722	memNote.Clear;
2723	tvNotes.FullCollapse;
2724	tvNotes.Selected := tvNotes.TopItem;
2725	end;
2726
2727	procedure TfrmNotes.popNoteListExpandSelectedClick(Sender: TObject);
2728	begin
2729	inherited;
2730	if tvNotes.Selected = nil then exit;
2731	with tvNotes.Selected do if HasChildren then Expand(True);
2732	end;
2733
2734	procedure TfrmNotes.popNoteListCollapseSelectedClick(Sender: TObject);
2735	begin
2736	inherited;
2737	if tvNotes.Selected = nil then exit;
2738	with tvNotes.Selected do if HasChildren then Collapse(True);
2739	end;
2740
2741	procedure TfrmNotes.mnuEditTemplatesClick(Sender: TObject);
2742	begin
2743	inherited;
2744	EditTemplates(Self);
2745	end;
2746
2747	procedure TfrmNotes.mnuNewTemplateClick(Sender: TObject);
2748	begin
2749	inherited;
2750	EditTemplates(Self, TRUE);
2751	end;
2752
2753	procedure TfrmNotes.mnuEditSharedTemplatesClick(Sender: TObject);
2754	begin
2755	inherited;
2756	EditTemplates(Self, FALSE, '', TRUE);
2757	end;
2758
2759	procedure TfrmNotes.mnuNewSharedTemplateClick(Sender: TObject);
2760	begin
2761	inherited;
2762	EditTemplates(Self, TRUE, '', TRUE);
2763	end;
2764
2765	procedure TfrmNotes.mnuOptionsClick(Sender: TObject);
2766	begin
2767	inherited;
2768	mnuEditTemplates.Enabled := frmDrawers.CanEditTemplates;
2769	mnuNewTemplate.Enabled := frmDrawers.CanEditTemplates;
2770	mnuEditSharedTemplates.Enabled := frmDrawers.CanEditShared;
2771	mnuNewSharedTemplate.Enabled := frmDrawers.CanEditShared;
2772	mnuEditDialgFields.Enabled := CanEditTemplateFields;
2773	end;
2774
2775	procedure TfrmNotes.SetEditingIndex(const Value: Integer);
2776	begin
2777	FEditingIndex := Value;
2778	if(FEditingIndex < 0) then
2779	KillReminderDialog(Self);
2780	if(assigned(frmReminderTree)) then
2781	frmReminderTree.EnableActions;
2782	end;
2783
2784	function TfrmNotes.CanFinishReminder: boolean;
2785	begin
2786	if(EditingIndex < 0) then
2787	Result := FALSE
2788	else
2789	Result := (lstNotes.ItemIndex = EditingIndex);
2790	end;
2791
2792	procedure TfrmNotes.FormDestroy(Sender: TObject);
2793	begin
2794	TAccessibleTreeView.UnwrapControl(tvNotes);
2795	FDocList.Free;
2796	FImageFlag.Free;
2797	KillDocTreeObjects(tvNotes);
2798	inherited;
2799	end;
2800
2801	function TfrmNotes.GetDrawers: TFrmDrawers;
2802	begin
2803	Result := frmDrawers;
2804	end;
2805
2806	procedure TfrmNotes.AssignRemForm;
2807	begin
2808	with RemForm do
2809	begin
2810	Form := Self;
2811	PCEObj := uPCEEdit;
2812	RightPanel := pnlRight;
2813	CanFinishProc := CanFinishReminder;
2814	DisplayPCEProc := DisplayPCE;
2815	Drawers := frmDrawers;
2816	NewNoteRE := memNewNote;
2817	NoteList := lstNotes;
2818	end;
2819	end;
2820
2821	procedure TfrmNotes.mnuEditDialgFieldsClick(Sender: TObject);
2822	begin
2823	inherited;
2824	EditDialogFields;
2825	end;
2826
2827	//=================== Added for sort/search enhancements ======================
2828	procedure TfrmNotes.LoadNotes;
2829	const
2830	INVALID_ID = -1;
2831	INFO_ID = 1;
2832	var
2833	tmpList: TStringList;
2834	ANode: TORTreeNode;
2835	x,xx,noteId: integer; // Text Search CQ: HDS00002856
2836	Dest: TStrings; // Text Search CQ: HDS00002856
2837	KeepFlag: Boolean; // Text Search CQ: HDS00002856
2838	NoteCount, NoteMatches: integer; // Text Search CQ: HDS00002856
2839	begin
2840	tmpList := TStringList.Create;
2841	try
2842	FDocList.Clear;
2843	uChanging := True;
2844	RedrawSuspend(memNote.Handle);
2845	RedrawSuspend(lvNotes.Handle);
2846	tvNotes.Items.BeginUpdate;
2847	lstNotes.Items.Clear;
2848	KillDocTreeObjects(tvNotes);
2849	tvNotes.Items.Clear;
2850	tvNotes.Items.EndUpdate;
2851	lvNotes.Items.Clear;
2852	memNote.Clear;
2853	memNote.Invalidate;
2854	lblTitle.Caption := '';
2855	lvNotes.Caption := '';
2856	with FCurrentContext do
2857	begin
2858	if Status <> IntToStr(NC_UNSIGNED) then
2859	begin
2860	ListNotesForTree(tmpList, NC_UNSIGNED, 0, 0, 0, 0, TreeAscending);
2861	if tmpList.Count > 0 then
2862	begin
2863	CreateListItemsforDocumentTree(FDocList, tmpList, NC_UNSIGNED, GroupBy, TreeAscending, CT_NOTES);
2864	UpdateTreeView(FDocList, tvNotes);
2865	end;
2866	tmpList.Clear;
2867	FDocList.Clear;
2868	end;
2869	if Status <> IntToStr(NC_UNCOSIGNED) then
2870	begin
2871	ListNotesForTree(tmpList, NC_UNCOSIGNED, 0, 0, 0, 0, TreeAscending);
2872	if tmpList.Count > 0 then
2873	begin
2874	CreateListItemsforDocumentTree(FDocList, tmpList, NC_UNCOSIGNED, GroupBy, TreeAscending, CT_NOTES);
2875	UpdateTreeView(FDocList, tvNotes);
2876	end;
2877	tmpList.Clear;
2878	FDocList.Clear;
2879	end;
2880	ListNotesForTree(tmpList, StrToIntDef(Status, 0), FMBeginDate, FMEndDate, Author, MaxDocs, TreeAscending);
2881	CreateListItemsforDocumentTree(FDocList, tmpList, StrToIntDef(Status, 0), GroupBy, TreeAscending, CT_NOTES);
2882
2883	// Text Search CQ: HDS00002856 ---------------------------------------
2884	if FCurrentContext.SearchString<>'' then // Text Search CQ: HDS00002856
2885	begin
2886	NoteMatches := 0;
2887	Dest:=TStringList.Create;
2888	NoteCount:=FDocList.Count-1;
2889	if FDocList.Count>0 then
2890	for x := FDocList.Count-1 downto 1 do begin; // Don't do 0, because it's informational
2891	KeepFlag:=False;
2892	lblNotes.Caption:='Scanning '+IntToStr(NoteCount-x+1)+' of '+IntToStr(NoteCount)+', '+IntToStr(NoteMatches);
2893	If NoteMatches=1 then lblNotes.Caption:=lblNotes.Caption+' match' else
2894	lblNotes.Caption:=lblNotes.Caption+' matches';
2895	frmSearchStop.lblSearchStatus.Caption := lblNotes.Caption;
2896	frmSearchStop.lblSearchStatus.Repaint;
2897	lblNotes.Repaint;
2898	// Free up some ticks so they can click the "Stop" button
2899	application.processmessages;
2900	application.processmessages;
2901	application.processmessages;
2902	If SearchTextStopFlag = False then begin
2903	noteId := StrToIntDef(Piece(FDocList.Strings[x],'^',1),-1);
2904	if (noteId = INVALID_ID) or (noteId = INFO_ID) then
2905	Continue;
2906	CallV('TIU GET RECORD TEXT', [Piece(FDocList.Strings[x],'^',1)]);
2907	Dest.Assign(RPCBrokerV.Results);
2908	If Dest.Count > 0 then
2909	for xx := 0 to Dest.Count-1 do
2910	begin
2911	//Dest.Strings[xx] := StringReplace(Dest.Strings[xx],'#13',' ',[rfReplaceAll, rfIgnoreCase]);
2912	if Pos(Uppercase(FCurrentContext.SearchString),Uppercase(Dest.Strings[xx]))>0 then
2913	keepflag:=true;
2914	end;
2915	If KeepFlag=False then begin;
2916	if FDocList.Count >= x then
2917	FDocList.Delete(x);
2918	if (tmpList.Count >= x) and (x > 0) then
2919	tmpList.Delete(x-1);
2920	end else
2921	Inc(NoteMatches);
2922	end;
2923	end;
2924	Dest.Free;
2925	end;
2926	// Text Search CQ: HDS00002856 ---------------------------------------
2927
2928	UpdateTreeView(FDocList, tvNotes);
2929	end;
2930	with tvNotes do
2931	begin
2932	uChanging := True;
2933	tvNotes.Items.BeginUpdate;
2934	RemoveParentsWithNoChildren(tvNotes, FCurrentContext); // moved here in v15.9 (RV)
2935	if FLastNoteID <> '' then
2936	Selected := FindPieceNode(FLastNoteID, 1, U, nil);
2937	if Selected = nil then
2938	begin
2939	if (FCurrentContext.GroupBy <> '') or (FCurrentContext.Filtered) then
2940	begin
2941	ANode := TORTreeNode(Items.GetFirstNode);
2942	while ANode <> nil do
2943	begin
2944	ANode.Expand(False);
2945	Selected := ANode;
2946	ANode := TORTreeNode(ANode.GetNextSibling);
2947	end;
2948	end
2949	else
2950	begin
2951	ANode := tvNotes.FindPieceNode(FCurrentContext.Status, 1, U, nil);
2952	if ANode <> nil then ANode.Expand(False);
2953	ANode := tvNotes.FindPieceNode(IntToStr(NC_UNSIGNED), 1, U, nil);
2954	if ANode = nil then
2955	ANode := tvNotes.FindPieceNode(IntToStr(NC_UNCOSIGNED), 1, U, nil);
2956	if ANode = nil then
2957	ANode := tvNotes.FindPieceNode(FCurrentContext.Status, 1, U, nil);
2958	if ANode <> nil then
2959	begin
2960	if ANode.getFirstChild <> nil then
2961	Selected := ANode.getFirstChild
2962	else
2963	Selected := ANode;
2964	end;
2965	end;
2966	end;
2967	memNote.Clear;
2968	with lvNotes do
2969	begin
2970	Selected := nil;
2971	if FCurrentContext.SortBy <> '' then
2972	ColumnToSort := Pos(FCurrentContext.SortBy, 'RDSAL') - 1;
2973	if not FCurrentContext.ShowSubject then
2974	begin
2975	Columns[1].Width := 2 * (Width div 5);
2976	Columns[2].Width := 0;
2977	end
2978	else
2979	begin
2980	Columns[1].Width := Width div 5;
2981	Columns[2].Width := Columns[1].Width;
2982	end;
2983	end;
2984	//RemoveParentsWithNoChildren(tvNotes, FCurrentContext); // moved FROM here in v15.9 (RV)
2985	tvNotes.Items.EndUpdate;
2986	uChanging := False;
2987	SendMessage(tvNotes.Handle, WM_VSCROLL, SB_TOP, 0);
2988	if Selected <> nil then tvNotesChange(Self, Selected);
2989	end;
2990	finally
2991	RedrawActivate(memNote.Handle);
2992	RedrawActivate(lvNotes.Handle);
2993	tmpList.Free;
2994	end;
2995	end;
2996
2997	procedure TfrmNotes.UpdateTreeView(DocList: TStringList; Tree: TORTreeView);
2998	begin
2999	with Tree do
3000	begin
3001	uChanging := True;
3002	Items.BeginUpdate;
3003	lstNotes.Items.AddStrings(DocList);
3004	BuildDocumentTree(DocList, '0', Tree, nil, FCurrentContext, CT_NOTES);
3005	Items.EndUpdate;
3006	uChanging := False;
3007	end;
3008	end;
3009
3010	procedure TfrmNotes.tvNotesChange(Sender: TObject; Node: TTreeNode);
3011	var
3012	x, MySearch, MyNodeID: string;
3013	i: integer;
3014	WhyNot: string;
3015	begin
3016	if uChanging then Exit;
3017	//This gives the change a chance to occur when keyboarding, so that WindowEyes
3018	//doesn't use the old value.
3019	Application.ProcessMessages;
3020	with tvNotes do
3021	begin
3022	memNote.Clear;
3023	if Selected = nil then Exit;
3024	if uIDNotesActive then
3025	begin
3026	mnuActDetachFromIDParent.Enabled := (Selected.ImageIndex in [IMG_ID_CHILD, IMG_ID_CHILD_ADD]);
3027	popNoteListDetachFromIDParent.Enabled := mnuActDetachFromIDParent.Enabled;
3028	if (Selected.ImageIndex in [IMG_SINGLE, IMG_PARENT, IMG_ID_CHILD, IMG_ID_CHILD_ADD]) then
3029	mnuActAttachtoIDParent.Enabled := CanBeAttached(PDocTreeObject(Selected.Data)^.DocID, WhyNot)
3030	else
3031	mnuActAttachtoIDParent.Enabled := False;
3032	popNoteListAttachtoIDParent.Enabled := mnuActAttachtoIDParent.Enabled;
3033	if (Selected.ImageIndex in [IMG_SINGLE, IMG_PARENT,
3034	IMG_IDNOTE_OPEN, IMG_IDNOTE_SHUT,
3035	IMG_IDPAR_ADDENDA_OPEN, IMG_IDPAR_ADDENDA_SHUT]) then
3036	mnuActAddIDEntry.Enabled := CanReceiveAttachment(PDocTreeObject(Selected.Data)^.DocID, WhyNot)
3037	else
3038	mnuActAddIDEntry.Enabled := False;
3039	popNoteListAddIDEntry.Enabled := mnuActAddIDEntry.Enabled
3040	end;
3041	RedrawSuspend(lvNotes.Handle);
3042	RedrawSuspend(memNote.Handle);
3043	popNoteListExpandSelected.Enabled := Selected.HasChildren;
3044	popNoteListCollapseSelected.Enabled := Selected.HasChildren;
3045	x := TORTreeNode(Selected).StringData;
3046	if (Selected.ImageIndex in [IMG_TOP_LEVEL, IMG_GROUP_OPEN, IMG_GROUP_SHUT]) then
3047	begin
3048	lvNotes.Visible := True;
3049	lvNotes.Items.Clear;
3050	lvNotes.Height := (2 * lvNotes.Parent.Height) div 5;
3051	with lblTitle do
3052	begin
3053	Caption := Trim(Selected.Text);
3054	if (FCurrentContext.SearchField <> '') and (FCurrentContext.Filtered) then
3055	begin
3056	case FCurrentContext.SearchField[1] of
3057	'T': MySearch := 'TITLE';
3058	'S': MySearch := 'SUBJECT';
3059	'B': MySearch := 'TITLE or SUBJECT';
3060	end;
3061	Caption := Caption + ' where ' + MySearch + ' contains "' + UpperCase(FCurrentContext.Keyword) + '"';
3062	end;
3063	lvNotes.Caption := Caption;
3064	end;
3065
3066	if Selected.ImageIndex = IMG_TOP_LEVEL then
3067	MyNodeID := Piece(TORTreeNode(Selected).StringData, U, 1)
3068	else if Selected.Parent.ImageIndex = IMG_TOP_LEVEL then
3069	MyNodeID := Piece(TORTreeNode(Selected.Parent).StringData, U, 1)
3070	else if Selected.Parent.Parent.ImageIndex = IMG_TOP_LEVEL then
3071	MyNodeID := Piece(TORTreeNode(Selected.Parent.Parent).StringData, U, 1);
3072
3073	uChanging := True;
3074	TraverseTree(tvNotes, lvNotes, Selected.GetFirstChild, MyNodeID, FCurrentContext);
3075	with lvNotes do
3076	begin
3077	for i := 0 to Columns.Count - 1 do
3078	Columns[i].ImageIndex := IMG_NONE;
3079	ColumnSortForward := FCurrentContext.ListAscending;
3080	if ColumnToSort = 5 then ColumnToSort := 0;
3081	if ColumnSortForward then
3082	Columns[ColumnToSort].ImageIndex := IMG_ASCENDING
3083	else
3084	Columns[ColumnToSort].ImageIndex := IMG_DESCENDING;
3085	if ColumnToSort = 0 then ColumnToSort := 5;
3086	AlphaSort;
3087	Columns[5].Width := 0;
3088	Columns[6].Width := 0;
3089	end;
3090	uChanging := False;
3091	with lvNotes do
3092	if Items.Count > 0 then
3093	begin
3094	Selected := Items[0];
3095	lvNotesSelectItem(Self, Selected, True);
3096	end
3097	else
3098	begin
3099	Selected := nil;
3100	lstNotes.ItemIndex := -1;
3101	memPCEShow.Clear;
3102	ShowPCEControls(False);
3103	end;
3104	pnlWrite.Visible := False;
3105	pnlRead.Visible := True;
3106	// uncommented next 4 lines in v17.5 (RV)
3107	//-----------------------------
3108	UpdateReminderFinish;
3109	ShowPCEControls(False);
3110	frmDrawers.DisplayDrawers(TRUE, [odTemplates], [odTemplates]); //FALSE);
3111	ShowPCEButtons(FALSE);
3112	//-----------------------------
3113	//memNote.Clear;
3114	end
3115	else if StrToIntDef(Piece(x, U, 1), 0) > 0 then
3116	begin
3117	memNote.Clear;
3118	lvNotes.Visible := False;
3119	lstNotes.SelectByID(Piece(x, U, 1));
3120	lstNotesClick(Self);
3121	SendMessage(memNote.Handle, WM_VSCROLL, SB_TOP, 0);
3122	end;
3123	SendMessage(tvNotes.Handle, WM_HSCROLL, SB_THUMBTRACK, 0);
3124	RedrawActivate(lvNotes.Handle);
3125	RedrawActivate(memNote.Handle);
3126	end;
3127	end;
3128
3129	procedure TfrmNotes.tvNotesCollapsed(Sender: TObject; Node: TTreeNode);
3130	begin
3131	with Node do
3132	begin
3133	if (ImageIndex in [IMG_GROUP_OPEN, IMG_IDNOTE_OPEN, IMG_IDPAR_ADDENDA_OPEN]) then
3134	ImageIndex := ImageIndex - 1;
3135	if (SelectedIndex in [IMG_GROUP_OPEN, IMG_IDNOTE_OPEN, IMG_IDPAR_ADDENDA_OPEN]) then
3136	SelectedIndex := SelectedIndex - 1;
3137	end;
3138	end;
3139
3140	procedure TfrmNotes.tvNotesExpanded(Sender: TObject; Node: TTreeNode);
3141
3142	function SortByTitle(Node1, Node2: TTreeNode; Data: Longint): Integer; stdcall;
3143	begin
3144	{ Within an ID parent node, sorts in ascending order by title
3145	BUT - addenda to parent document are always at the top of the sort, in date order}
3146	if (Copy(PDocTreeObject(Node1.Data)^.DocTitle, 1, 8) = 'Addendum') and
3147	(Copy(PDocTreeObject(Node2.Data)^.DocTitle, 1, 8) = 'Addendum') then
3148	begin
3149	Result := AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocFMDate),
3150	PChar(PDocTreeObject(Node2.Data)^.DocFMDate));
3151	end
3152	else if Copy(PDocTreeObject(Node1.Data)^.DocTitle, 1, 8) = 'Addendum' then Result := -1
3153	else if Copy(PDocTreeObject(Node2.Data)^.DocTitle, 1, 8) = 'Addendum' then Result := 1
3154	else
3155	begin
3156	if Data = 0 then
3157	Result := AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocTitle),
3158	PChar(PDocTreeObject(Node2.Data)^.DocTitle))
3159	else
3160	Result := -AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocTitle),
3161	PChar(PDocTreeObject(Node2.Data)^.DocTitle));
3162	end
3163	end;
3164
3165	function SortByDate(Node1, Node2: TTreeNode; Data: Longint): Integer; stdcall;
3166	begin
3167	{ Within an ID parent node, sorts in ascending order by document date
3168	BUT - addenda to parent document are always at the top of the sort, in date order}
3169	if (Copy(PDocTreeObject(Node1.Data)^.DocTitle, 1, 8) = 'Addendum') and
3170	(Copy(PDocTreeObject(Node2.Data)^.DocTitle, 1, 8) = 'Addendum') then
3171	begin
3172	Result := AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocFMDate),
3173	PChar(PDocTreeObject(Node2.Data)^.DocFMDate));
3174	end
3175	else if Copy(PDocTreeObject(Node1.Data)^.DocTitle, 1, 8) = 'Addendum' then Result := -1
3176	else if Copy(PDocTreeObject(Node2.Data)^.DocTitle, 1, 8) = 'Addendum' then Result := 1
3177	else
3178	begin
3179	if Data = 0 then
3180	Result := AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocFMDate),
3181	PChar(PDocTreeObject(Node2.Data)^.DocFMDate))
3182	else
3183	Result := -AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocFMDate),
3184	PChar(PDocTreeObject(Node2.Data)^.DocFMDate));
3185	end;
3186	end;
3187
3188	begin
3189	with Node do
3190	begin
3191	if Assigned(Data) then
3192	if (Pos('<', PDocTreeObject(Data)^.DocHasChildren) > 0) then
3193	begin
3194	if (PDocTreeObject(Node.Data)^.OrderByTitle) then
3195	CustomSort(@SortByTitle, 0)
3196	else
3197	CustomSort(@SortByDate, 0);
3198	end;
3199	if (ImageIndex in [IMG_GROUP_SHUT, IMG_IDNOTE_SHUT, IMG_IDPAR_ADDENDA_SHUT]) then
3200	ImageIndex := ImageIndex + 1;
3201	if (SelectedIndex in [IMG_GROUP_SHUT, IMG_IDNOTE_SHUT, IMG_IDPAR_ADDENDA_SHUT]) then
3202	SelectedIndex := SelectedIndex + 1;
3203	end;
3204	end;
3205
3206	procedure TfrmNotes.tvNotesClick(Sender: TObject);
3207	begin
3208	(* if tvNotes.Selected = nil then exit;
3209	if (tvNotes.Selected.ImageIndex in [IMG_TOP_LEVEL, IMG_GROUP_OPEN, IMG_GROUP_SHUT]) then
3210	begin
3211	uChanging := True;
3212	lvNotes.Selected := nil;
3213	uChanging := False;
3214	memNote.Clear;
3215	end;*)
3216	end;
3217
3218	procedure TfrmNotes.tvNotesDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
3219	var
3220	AnItem: TORTreeNode;
3221	begin
3222	Accept := False;
3223	if not uIDNotesActive then exit;
3224	AnItem := TORTreeNode(tvNotes.GetNodeAt(X, Y));
3225	if (AnItem = nil) or (AnItem.ImageIndex in [IMG_GROUP_OPEN, IMG_GROUP_SHUT, IMG_TOP_LEVEL]) then Exit;
3226	with tvNotes.Selected do
3227	if (ImageIndex in [IMG_SINGLE, IMG_PARENT, IMG_ID_CHILD, IMG_ID_CHILD_ADD]) then
3228	Accept := (AnItem.ImageIndex in [IMG_SINGLE, IMG_PARENT,
3229	IMG_IDNOTE_OPEN, IMG_IDNOTE_SHUT,
3230	IMG_IDPAR_ADDENDA_OPEN, IMG_IDPAR_ADDENDA_SHUT])
3231	else if (ImageIndex in [IMG_IDNOTE_OPEN, IMG_IDNOTE_SHUT, IMG_IDPAR_ADDENDA_OPEN, IMG_IDPAR_ADDENDA_SHUT]) then
3232	Accept := (AnItem.ImageIndex in [IMG_GROUP_OPEN, IMG_GROUP_SHUT, IMG_TOP_LEVEL])
3233	else if (ImageIndex in [IMG_ADDENDUM, IMG_GROUP_OPEN, IMG_GROUP_SHUT, IMG_TOP_LEVEL]) then
3234	Accept := False;
3235	end;
3236
3237	procedure TfrmNotes.tvNotesDragDrop(Sender, Source: TObject; X, Y: Integer);
3238	var
3239	HT: THitTests;
3240	Saved: boolean;
3241	ADestNode: TORTreeNode;
3242	begin
3243	if not uIDNotesActive then
3244	begin
3245	CancelDrag;
3246	exit;
3247	end;
3248	if tvNotes.Selected = nil then exit;
3249	if EditingIndex <> -1 then
3250	begin
3251	SaveCurrentNote(Saved);
3252	if not Saved then Exit;
3253	end;
3254	HT := tvNotes.GetHitTestInfoAt(X, Y);
3255	ADestNode := TORTreeNode(tvNotes.GetNodeAt(X, Y));
3256	DoAttachIDChild(TORTreeNode(tvNotes.Selected), ADestNode);
3257	end;
3258
3259	procedure TfrmNotes.tvNotesStartDrag(Sender: TObject; var DragObject: TDragObject);
3260	const
3261	TX_CAP_NO_DRAG = 'Item cannot be moved';
3262	TX_NO_EDIT_DRAG = 'Items can not be dragged while a note is being edited.';
3263	var
3264	WhyNot: string;
3265	//Saved: boolean;
3266	begin
3267	if EditingIndex <> -1 then
3268	begin
3269	InfoBox(TX_NO_EDIT_DRAG, TX_CAP_NO_DRAG, MB_ICONERROR or MB_OK);
3270	CancelDrag;
3271	Exit;
3272	end;
3273	if (tvNotes.Selected.ImageIndex in [IMG_ADDENDUM, IMG_GROUP_OPEN, IMG_GROUP_SHUT, IMG_TOP_LEVEL]) or
3274	(not uIDNotesActive) or
3275	(lstNotes.ItemIEN = 0) then
3276	begin
3277	CancelDrag;
3278	Exit;
3279	end;
3280	(* if EditingIndex <> -1 then
3281	begin
3282	SaveCurrentNote(Saved);
3283	if not Saved then Exit;
3284	end;*)
3285	if not CanBeAttached(PDocTreeObject(tvNotes.Selected.Data)^.DocID, WhyNot) then
3286	begin
3287	InfoBox(WhyNot, TX_CAP_NO_DRAG, MB_OK);
3288	CancelDrag;
3289	end;
3290	end;
3291
3292	//===================== Listview events =================================
3293
3294	procedure TfrmNotes.lvNotesColumnClick(Sender: TObject; Column: TListColumn);
3295	var
3296	i, ClickedColumn: Integer;
3297	begin
3298	if Column.Index = 0 then ClickedColumn := 5 else ClickedColumn := Column.Index;
3299	if ClickedColumn = ColumnToSort then
3300	ColumnSortForward := not ColumnSortForward
3301	else
3302	ColumnSortForward := True;
3303	for i := 0 to lvNotes.Columns.Count - 1 do
3304	lvNotes.Columns[i].ImageIndex := IMG_NONE;
3305	if ColumnSortForward then lvNotes.Columns[Column.Index].ImageIndex := IMG_ASCENDING
3306	else lvNotes.Columns[Column.Index].ImageIndex := IMG_DESCENDING;
3307	ColumnToSort := ClickedColumn;
3308	case ColumnToSort of
3309	5: FCurrentContext.SortBy := 'R';
3310	1: FCurrentContext.SortBy := 'D';
3311	2: FCurrentContext.SortBy := 'S';
3312	3: FCurrentContext.SortBy := 'A';
3313	4: FCurrentContext.SortBy := 'L';
3314	else
3315	FCurrentContext.SortBy := 'R';
3316	end;
3317	FCurrentContext.ListAscending := ColumnSortForward;
3318	(Sender as TCustomListView).AlphaSort;
3319	//with lvNotes do if Selected <> nil then Scroll(0, Selected.Top - TopItem.Top);
3320	end;
3321
3322	procedure TfrmNotes.lvNotesCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
3323	var
3324	ix: Integer;
3325	begin
3326	if ColumnToSort = 0 then
3327	Compare := CompareText(Item1.Caption,Item2.Caption)
3328	else begin
3329	ix := ColumnToSort - 1;
3330	Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
3331	end;
3332	if not ColumnSortForward then Compare := -Compare;
3333	end;
3334
3335	procedure TfrmNotes.lvNotesSelectItem(Sender: TObject; Item: TListItem;
3336	Selected: Boolean);
3337	begin
3338	if uChanging or (not Selected) then Exit;
3339	with lvNotes do
3340	begin
3341	StatusText('Retrieving selected progress note...');
3342	lstNotes.SelectByID(Item.SubItems[5]);
3343	lstNotesClick(Self);
3344	SendMessage(memNote.Handle, WM_VSCROLL, SB_TOP, 0);
3345	end;
3346	end;
3347
3348	procedure TfrmNotes.lvNotesResize(Sender: TObject);
3349	begin
3350	inherited;
3351	with lvNotes do
3352	begin
3353	if not FCurrentContext.ShowSubject then
3354	begin
3355	Columns[1].Width := 2 * (Width div 5);
3356	Columns[2].Width := 0;
3357	end
3358	else
3359	begin
3360	Columns[1].Width := Width div 5;
3361	Columns[2].Width := Columns[1].Width;
3362	end;
3363	end;
3364	end;
3365
3366	procedure TfrmNotes.EnableDisableIDNotes;
3367	begin
3368	uIDNotesActive := IDNotesInstalled;
3369	mnuActDetachFromIDParent.Visible := uIDNotesActive;
3370	popNoteListDetachFromIDParent.Visible := uIDNotesActive;
3371	mnuActAddIDEntry.Visible := uIDNotesActive;
3372	popNoteListAddIDEntry.Visible := uIDNotesActive;
3373	mnuActAttachtoIDParent.Visible := uIDNotesActive;
3374	popNoteListAttachtoIDParent.Visible := uIDNotesActive;
3375	if uIDNotesActive then
3376	tvNotes.DragMode := dmAutomatic
3377	else
3378	tvNotes.DragMode := dmManual;
3379	end;
3380
3381	procedure TfrmNotes.ShowPCEButtons(Editing: boolean);
3382	begin
3383	if frmFrame.Timedout then Exit;
3384
3385	FEditingNotePCEObj := Editing;
3386	if Editing or AnytimeEncounters then
3387	begin
3388	cmdPCE.Visible := TRUE;
3389	if Editing then
3390	begin
3391	cmdPCE.Enabled := CanEditPCE(uPCEEdit);
3392	cmdNewNote.Visible := AnytimeEncounters;
3393	cmdNewNote.Enabled := FALSE;
3394	end
3395	else
3396	begin
3397	cmdPCE.Enabled := (GetAskPCE(0) <> apDisable);
3398	cmdNewNote.Visible := TRUE;
3399	cmdNewNote.Enabled := (FStarting = False); //TRUE;
3400	end;
3401	if cmdNewNote.Visible then
3402	cmdPCE.Top := cmdNewNote.Top-cmdPCE.Height;
3403	end
3404	else
3405	begin
3406	cmdPCE.Enabled := FALSE;
3407	cmdPCE.Visible := FALSE;
3408	cmdNewNote.Visible := TRUE;
3409	cmdNewNote.Enabled := (FStarting = False); //TRUE;
3410	end;
3411	if cmdPCE.Visible then
3412	lblSpace1.Top := cmdPCE.Top - lblSpace1.Height
3413	else
3414	lblSpace1.Top := cmdNewNote.Top - lblSpace1.Height;
3415	popNoteMemoEncounter.Enabled := cmdPCE.Enabled;
3416	popNoteMemoEncounter.Visible := cmdPCE.Visible;
3417	end;
3418
3419	procedure TfrmNotes.mnuIconLegendClick(Sender: TObject);
3420	begin
3421	inherited;
3422	ShowIconLegend(ilNotes);
3423	end;
3424
3425	procedure TfrmNotes.mnuActAttachtoIDParentClick(Sender: TObject);
3426	var
3427	AChildNode: TORTreeNode;
3428	AParentID: string;
3429	SavedDocID: string;
3430	Saved: boolean;
3431	begin
3432	inherited;
3433	if not uIDNotesActive then exit;
3434	if lstNotes.ItemIEN = 0 then exit;
3435	SavedDocID := lstNotes.ItemID;
3436	if EditingIndex <> -1 then
3437	begin
3438	SaveCurrentNote(Saved);
3439	if not Saved then Exit;
3440	LoadNotes;
3441	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
3442	end;
3443	if tvNotes.Selected = nil then exit;
3444	AChildNode := TORTreeNode(tvNotes.Selected);
3445	AParentID := SelectParentNodeFromList(tvNotes);
3446	if AParentID = '' then exit;
3447	with tvNotes do Selected := FindPieceNode(AParentID, 1, U, Items.GetFirstNode);
3448	DoAttachIDChild(AChildNode, TORTreeNode(tvNotes.Selected));
3449	end;
3450
3451	procedure TfrmNotes.DoAttachIDChild(AChild, AParent: TORTreeNode);
3452	const
3453	TX_ATTACH_CNF = 'Confirm Attachment';
3454	TX_ATTACH_FAILURE = 'Attachment failed';
3455	var
3456	ErrMsg, WhyNot: string;
3457	SavedDocID: string;
3458	begin
3459	if (AChild = nil) or (AParent = nil) then exit;
3460	ErrMsg := '';
3461	if not CanBeAttached(PDocTreeObject(AChild.Data)^.DocID, WhyNot) then
3462	ErrMsg := ErrMsg + WhyNot + CRLF + CRLF;
3463	if not CanReceiveAttachment(PDocTreeObject(AParent.Data)^.DocID, WhyNot) then
3464	ErrMsg := ErrMsg + WhyNot;
3465	if ErrMsg <> '' then
3466	begin
3467	InfoBox(ErrMsg, TX_ATTACH_FAILURE, MB_OK);
3468	Exit;
3469	end
3470	else
3471	begin
3472	WhyNot := '';
3473	if (InfoBox('ATTACH: ' + AChild.Text + CRLF + CRLF +
3474	' TO: ' + AParent.Text + CRLF + CRLF +
3475	'Are you sure?', TX_ATTACH_CNF, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) <> IDYES)
3476	then Exit;
3477	SavedDocID := PDocTreeObject(AParent.Data)^.DocID;
3478	end;
3479	if AChild.ImageIndex in [IMG_ID_CHILD, IMG_ID_CHILD_ADD] then
3480	begin
3481	if DetachEntryFromParent(PDocTreeObject(AChild.Data)^.DocID, WhyNot) then
3482	begin
3483	if AttachEntryToParent(PDocTreeObject(AChild.Data)^.DocID, PDocTreeObject(AParent.Data)^.DocID, WhyNot) then
3484	begin
3485	LoadNotes;
3486	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
3487	if tvNotes.Selected <> nil then tvNotes.Selected.Expand(False);
3488	end
3489	else
3490	InfoBox(WhyNot, TX_ATTACH_FAILURE, MB_OK);
3491	end
3492	else
3493	begin
3494	WhyNot := StringReplace(WhyNot, 'ATTACH', 'DETACH', [rfIgnoreCase]);
3495	WhyNot := StringReplace(WhyNot, 'to an ID', 'from an ID', [rfIgnoreCase]);
3496	InfoBox(WhyNot, TX_DETACH_FAILURE, MB_OK);
3497	Exit;
3498	end;
3499	end
3500	else
3501	begin
3502	if AttachEntryToParent(PDocTreeObject(AChild.Data)^.DocID, PDocTreeObject(AParent.Data)^.DocID, WhyNot) then
3503	begin
3504	LoadNotes;
3505	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
3506	if tvNotes.Selected <> nil then tvNotes.Selected.Expand(False);
3507	end
3508	else
3509	InfoBox(WhyNot, TX_ATTACH_FAILURE, MB_OK);
3510	end;
3511	end;
3512
3513	function TfrmNotes.SetNoteTreeLabel(AContext: TTIUContext): string;
3514	var
3515	x: string;
3516
3517	function SetDateRangeText(AContext: TTIUContext): string;
3518	var
3519	x1: string;
3520	begin
3521	with AContext do
3522	if BeginDate <> '' then
3523	begin
3524	x1 := ' from ' + UpperCase(BeginDate);
3525	if EndDate <> '' then x1 := x1 + ' to ' + UpperCase(EndDate)
3526	else x1 := x1 + ' to TODAY';
3527	end;
3528	Result := x1;
3529	end;
3530
3531	begin
3532	with AContext do
3533	begin
3534	if MaxDocs > 0 then x := 'Last ' + IntToStr(MaxDocs) + ' ' else x := 'All ';
3535	case StrToIntDef(Status, 0) of
3536	NC_ALL : x := x + 'Signed Notes';
3537	NC_UNSIGNED : begin
3538	x := x + 'Unsigned Notes for ';
3539	if Author > 0 then x := x + ExternalName(Author, 200)
3540	else x := x + User.Name;
3541	x := x + SetDateRangeText(AContext);
3542	end;
3543	NC_UNCOSIGNED : begin
3544	x := x + 'Uncosigned Notes for ';
3545	if Author > 0 then x := x + ExternalName(Author, 200)
3546	else x := x + User.Name;
3547	x := x + SetDateRangeText(AContext);
3548	end;
3549	NC_BY_AUTHOR : x := x + 'Signed Notes for ' + ExternalName(Author, 200) + SetDateRangeText(AContext);
3550	NC_BY_DATE : x := x + 'Signed Notes ' + SetDateRangeText(AContext);
3551	else
3552	x := 'Custom List';
3553	end;
3554	end;
3555	Result := x;
3556	end;
3557
3558	procedure TfrmNotes.memNewNoteKeyDown(Sender: TObject; var Key: Word;
3559	Shift: TShiftState);
3560	begin
3561	inherited;
3562	FNavigatingTab := (Key = VK_TAB) and ([ssShift,ssCtrl] * Shift <> []);
3563	if FNavigatingTab then
3564	Key := 0;
3565	end;
3566
3567	procedure TfrmNotes.UpdateNoteAuthor(DocInfo: string);
3568	const
3569	TX_INVALID_AUTHOR1 = 'The author returned by the template (';
3570	TX_INVALID_AUTHOR2 = ') is not valid.' + #13#10 + 'The note''s author will remain as ';
3571	TC_INVALID_AUTHOR = 'Invalid Author';
3572	TX_COSIGNER_REQD = ' requires a cosigner for this note.';
3573	TC_COSIGNER_REQD = 'Cosigner Required';
3574	var
3575	NewAuth, NewAuthName, AuthNameCheck, x: string;
3576	ADummySender: TObject;
3577	begin
3578	if DocInfo = '' then Exit;
3579	NewAuth := GetXMLParamReturnValueTIU(DocInfo, 'AUTHOR_IEN');
3580	if NewAuth = '' then Exit;
3581	AuthNameCheck := ExternalName(StrToInt64Def(NewAuth, 0), 200);
3582	if AuthNameCheck = '' then
3583	begin
3584	NewAuthName := GetXMLParamReturnValueTIU(DocInfo, 'AUTHOR_NAME');
3585	InfoBox(TX_INVALID_AUTHOR1 + UpperCase(NewAuthName) + TX_INVALID_AUTHOR2 + UpperCase(FEditNote.AuthorName),
3586	TC_INVALID_AUTHOR, MB_OK and MB_ICONERROR);
3587	Exit;
3588	end;
3589	with FEditNote do if StrToInt64Def(NewAuth, 0) <> Author then
3590	begin
3591	Author := StrToInt64Def(NewAuth, 0);
3592	AuthorName := AuthNameCheck;
3593	x := lstNotes.Items[EditingIndex];
3594	SetPiece(x, U, 5, NewAuth + ';' + AuthNameCheck);
3595	lstNotes.Items[EditingIndex] := x;
3596	if AskCosignerForTitle(Title, Author, DateTime) then
3597	begin
3598	InfoBox(UpperCase(AuthNameCheck) + TX_COSIGNER_REQD, TC_COSIGNER_REQD, MB_OK);
3599	//Cosigner := 0; CosignerName := ''; // not sure about this yet
3600	ADummySender := TObject.Create;
3601	try
3602	cmdChangeClick(ADummySender);
3603	finally
3604	FreeAndNil(ADummySender);
3605	end;
3606	end
3607	else cmdChangeClick(Self);
3608	end;
3609	end;
3610
3611	procedure TfrmNotes.sptHorzCanResize(Sender: TObject; var NewSize: Integer;
3612	var Accept: Boolean);
3613	begin
3614	inherited;
3615	if pnlWrite.Visible then
3616	if NewSize > frmNotes.ClientWidth - memNewNote.Constraints.MinWidth - sptHorz.Width then
3617	NewSize := frmNotes.ClientWidth - memNewNote.Constraints.MinWidth - sptHorz.Width;
3618	end;
3619
3620	procedure TfrmNotes.popNoteMemoInsTemplateClick(Sender: TObject);
3621	begin
3622	frmDrawers.mnuInsertTemplateClick(Sender);
3623	end;
3624
3625	procedure TfrmNotes.popNoteMemoPreviewClick(Sender: TObject);
3626	begin
3627	frmDrawers.mnuPreviewTemplateClick(Sender);
3628	end;
3629
3630	procedure TfrmNotes.tvNotesAddition(Sender: TObject; Node: TTreeNode);
3631	begin
3632	inherited;
3633	TAccessibleTreeNode.WrapControl(Node as TORTreeNode);
3634	end;
3635
3636	procedure TfrmNotes.tvNotesDeletion(Sender: TObject; Node: TTreeNode);
3637	begin
3638	TAccessibleTreeNode.UnwrapControl(Node as TORTreeNode);
3639	inherited;
3640	end;
3641
3642	{Tab Order tricks. Need to change
3643	tvNotes
3644
3645	frmDrawers.pnlTemplateButton
3646	frmDrawers.pnlEncounterButton
3647	cmdNewNote
3648	cmdPCE
3649
3650	lvNotes
3651	memNote
3652
3653	to
3654	tvNotes
3655
3656	lvNotes
3657	memNote
3658
3659	frmDrawers.pnlTemplateButton
3660	frmDrawers.pnlEncounterButton
3661	cmdNewNote
3662	cmdPCE
3663	}
3664
3665	procedure TfrmNotes.tvNotesExit(Sender: TObject);
3666	begin
3667	if IncSecond(FMousing,1) < Now then
3668	begin
3669	if (Screen.ActiveControl = frmDrawers.pnlTemplatesButton) or
3670	(Screen.ActiveControl = frmDrawers.pnlEncounterButton) or
3671	(Screen.ActiveControl = cmdNewNote) or
3672	(Screen.ActiveControl = cmdPCE) then
3673	FindNextControl( cmdPCE, True, True, False).SetFocus;
3674	end;
3675	FMousing := 0;
3676	end;
3677
3678	procedure TfrmNotes.pnlReadExit(Sender: TObject);
3679	begin
3680	inherited;
3681	if IncSecond(FMousing,1) < Now then
3682	begin
3683	if (Screen.ActiveControl = frmFrame.pnlPatient) then
3684	FindNextControl( tvNotes, True, True, False).SetFocus
3685	else
3686	if (Screen.ActiveControl = frmDrawers.pnlTemplatesButton) or
3687	(Screen.ActiveControl = frmDrawers.pnlEncounterButton) or
3688	(Screen.ActiveControl = cmdNewNote) or
3689	(Screen.ActiveControl = cmdPCE) then
3690	FindNextControl( frmDrawers.pnlTemplatesButton, False, True, False).SetFocus;
3691	end;
3692	FMousing := 0;
3693	end;
3694
3695	procedure TfrmNotes.cmdNewNoteExit(Sender: TObject);
3696	begin
3697	inherited;
3698	if IncSecond(FMousing,1) < Now then
3699	begin
3700	if (Screen.ActiveControl = lvNotes) or
3701	(Screen.ActiveControl = memNote) then
3702	frmFrame.pnlPatient.SetFocus
3703	else
3704	if (Screen.ActiveControl = tvNotes) then
3705	FindNextControl( frmFrame.pnlPatient, False, True, False).SetFocus;
3706	end;
3707	FMousing := 0;
3708	end;
3709
3710	procedure TfrmNotes.frmFramePnlPatientExit(Sender: TObject);
3711	begin
3712	FOldFramePnlPatientExit(Sender);
3713	if IncSecond(FMousing,1) < Now then
3714	begin
3715	if (Screen.ActiveControl = lvNotes) or
3716	(Screen.ActiveControl = memNote) then
3717	FindNextControl( lvNotes, False, True, False).SetFocus;
3718	end;
3719	FMousing := 0;
3720	end;
3721
3722	procedure TfrmNotes.FormHide(Sender: TObject);
3723	begin
3724	inherited;
3725	frmFrame.pnlPatient.OnExit := FOldFramePnlPatientExit;
3726	frmDrawers.pnlTemplatesButton.OnExit := FOldDrawerPnlTemplatesButtonExit;
3727	frmDrawers.pnlEncounterButton.OnExit := FOldDrawerPnlEncounterButtonExit;
3728	frmDrawers.edtSearch.OnExit := FOldDrawerEdtSearchExit;
3729	end;
3730
3731	procedure TfrmNotes.FormShow(Sender: TObject);
3732	begin
3733	inherited;
3734	FOldFramePnlPatientExit := frmFrame.pnlPatient.OnExit;
3735	frmFrame.pnlPatient.OnExit := frmFramePnlPatientExit;
3736	FOldDrawerPnlTemplatesButtonExit := frmDrawers.pnlTemplatesButton.OnExit;
3737	frmDrawers.pnlTemplatesButton.OnExit := frmDrawerPnlTemplatesButtonExit;
3738	FOldDrawerPnlEncounterButtonExit := frmDrawers.pnlEncounterButton.OnExit;
3739	frmDrawers.pnlEncounterButton.OnExit := frmDrawerPnlEncounterButtonExit;
3740	FOldDrawerEdtSearchExit := frmDrawers.edtSearch.OnExit;
3741	frmDrawers.edtSearch.OnExit := frmDrawerEdtSearchExit;
3742	end;
3743
3744	procedure TfrmNotes.frmDrawerEdtSearchExit(Sender: TObject);
3745	begin
3746	FOldDrawerEdtSearchExit(Sender);
3747	cmdNewNoteExit(Sender);
3748	end;
3749
3750	procedure TfrmNotes.frmDrawerPnlTemplatesButtonExit(Sender: TObject);
3751	begin
3752	FOldDrawerPnlTemplatesButtonExit(Sender);
3753	if Boolean(Hi(GetKeyState(VK_TAB))) and (memNewNote.CanFocus) and
3754	Boolean(Hi(GetKeyState(VK_SHIFT))) then
3755	memNewNote.SetFocus
3756	else
3757	cmdNewNoteExit(Sender);
3758	end;
3759
3760	procedure TfrmNotes.frmDrawerPnlEncounterButtonExit(Sender: TObject);
3761	begin
3762	FOldDrawerPnlEncounterButtonExit(Sender);
3763	cmdNewNoteExit(Sender);
3764	end;
3765
3766	procedure TfrmNotes.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
3767	Y: Integer);
3768	begin
3769	inherited;
3770	FMousing := Now;
3771	end;
3772
3773	procedure TfrmNotes.memNewNoteKeyPress(Sender: TObject; var Key: Char);
3774	begin
3775	inherited;
3776	if FNavigatingTab then
3777	Key := #0; //Disable shift-tab processinend;
3778	end;
3779
3780	procedure TfrmNotes.memNewNoteKeyUp(Sender: TObject; var Key: Word;
3781	Shift: TShiftState);
3782	begin
3783	inherited;
3784	if FNavigatingTab then
3785	begin
3786	if ssShift in Shift then
3787	FindNextControl(Sender as TWinControl, False, True, False).SetFocus //previous control
3788	else if ssCtrl in Shift then
3789	if frmDrawers.pnlTemplatesButton.CanFocus then
3790	frmDrawers.pnlTemplatesButton.SetFocus
3791	else
3792	FindNextControl(Sender as TWinControl, True, True, False).SetFocus; //next control
3793	FNavigatingTab := False;
3794	end;
3795	if (key = VK_ESCAPE) then begin
3796	FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control
3797	key := 0;
3798	end;
3799	end;
3800
3801	procedure TfrmNotes.memPCEShowExit(Sender: TObject);
3802	begin
3803	inherited;
3804	//Fix the Tab Order Make Drawers Buttons Accessible
3805	if Boolean(Hi(GetKeyState(VK_TAB))) then
3806	if Boolean(Hi(GetKeyState(VK_SHIFT))) then
3807	cmdPCE.SetFocus
3808	else
3809	frmFrame.pnlPatient.SetFocus;
3810	end;
3811
3812	procedure TfrmNotes.cmdChangeExit(Sender: TObject);
3813	begin
3814	inherited;
3815	//Fix the Tab Order Make Drawers Buttons Accessible
3816	if Boolean(Hi(GetKeyState(VK_TAB))) and
3817	Boolean(Hi(GetKeyState(VK_SHIFT))) then
3818	tvNotes.SetFocus;
3819	end;
3820
3821	procedure TfrmNotes.cmdPCEExit(Sender: TObject);
3822	begin
3823	inherited;
3824	//Fix the Tab Order Make Drawers Buttons Accessible
3825	if Boolean(Hi(GetKeyState(VK_TAB))) and
3826	Not Boolean(Hi(GetKeyState(VK_SHIFT))) then
3827	if memPCEShow.Visible then //CQ7120
3828	memPCEShow.SetFocus; //CQ7120
3829	end;
3830
3831	procedure TfrmNotes.ViewInfo(Sender: TObject);
3832	begin
3833	inherited;
3834	frmFrame.ViewInfo(Sender);
3835	end;
3836
3837	procedure TfrmNotes.mnuViewInformationClick(Sender: TObject);
3838	begin
3839	inherited;
3840	mnuViewDemo.Enabled := frmFrame.pnlPatient.Enabled;
3841	mnuViewVisits.Enabled := frmFrame.pnlVisit.Enabled;
3842	mnuViewPrimaryCare.Enabled := frmFrame.pnlPrimaryCare.Enabled;
3843	mnuViewMyHealtheVet.Enabled := not (Copy(frmFrame.laMHV.Hint, 1, 2) = 'No');
3844	mnuInsurance.Enabled := not (Copy(frmFrame.laVAA2.Hint, 1, 2) = 'No');
3845	mnuViewFlags.Enabled := frmFrame.lblFlag.Enabled;
3846	mnuViewRemoteData.Enabled := frmFrame.lblCirn.Enabled;
3847	mnuViewReminders.Enabled := frmFrame.pnlReminders.Enabled;
3848	mnuViewPostings.Enabled := frmFrame.pnlPostings.Enabled;
3849	end;
3850
3851	initialization
3852	uPCEEdit := TPCEData.Create;
3853	uPCEShow := TPCEData.Create;
3854
3855	finalization
3856	if (uPCEEdit <> nil) then uPCEEdit.Free; //CQ7012 Added test for nil
3857	if (uPCEShow <> nil) then uPCEShow.Free; //CQ7012 Added test for nil
3858
3859	end.
3860

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

Context Navigation

source: cprs/branches/foia-cprs/CPRS-Chart/fNotes.pas@ 1747

Download in other formats: