Context Navigation

fNotes.pas@ 1712

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

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

Context Navigation

source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fNotes.pas@ 1712

Download in other formats: