Context Navigation

source: cprs/trunk/CPRS-Chart/fNotes.pas@ 1243

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

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

Download in other formats: