Context Navigation

source: cprs/branches/tmg-cprs/CPRS-Chart/fNotes.pas@ 856

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

Rev	Line
[541]	1	//kt -- Modified with SourceScanner on 7/19/2007, also 8/09
[453]	2	unit fNotes;
	3	{$O-}
	4
	5	interface
	6
	7	uses
	8	Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
	9	fHSplit, StdCtrls, ExtCtrls, Menus, ComCtrls, ORCtrls, ORFn, uConst, ORDtTm,
	10	uPCE, ORClasses, fDrawers, ImgList, rTIU, uTIU, uDocTree, fRptBox, fPrintList,
[541]	11	MSHTML,TMGHTML2,ActiveX, //kt added this line 8/09 for HTML editing
	12	fNoteST, ORNet, fNoteSTStop, OleCtrls, SHDocVw, DKLang, Buttons, ToolWin;
[453]	13
	14	type
[541]	15	TEditModes = (emNone,emText,emHTML); //kt 8/09
	16	TViewModes = (vmEdit,vmView,vmText,vmHTML); //kt 8/09
	17	TViewModeSet = Set of TViewModes; //kt 8/09
	18	const
	19	vmHTML_MODE : array [false..true] of TViewModes = (vmText,vmHTML); //kt 8/09
	20	emHTML_MODE : array [false..true] of TEditModes = (emText,emHTML); //kt 8/09
	21
	22	type
[453]	23	TfrmNotes = class(TfrmHSplit)
	24	mnuNotes: TMainMenu;
	25	mnuView: TMenuItem;
	26	mnuViewChart: TMenuItem;
	27	mnuChartReports: TMenuItem;
	28	mnuChartLabs: TMenuItem;
	29	mnuChartDCSumm: TMenuItem;
	30	mnuChartCslts: TMenuItem;
	31	mnuChartNotes: TMenuItem;
	32	mnuChartOrders: TMenuItem;
	33	mnuChartMeds: TMenuItem;
	34	mnuChartProbs: TMenuItem;
	35	mnuChartCover: TMenuItem;
	36	Z1: TMenuItem;
	37	mnuViewDetail: TMenuItem;
	38	mnuAct: TMenuItem;
	39	mnuActNew: TMenuItem;
	40	Z2: TMenuItem;
	41	mnuActSave: TMenuItem;
	42	mnuActDelete: TMenuItem;
	43	mnuActEdit: TMenuItem;
	44	mnuActSign: TMenuItem;
	45	mnuActAddend: TMenuItem;
	46	lblNotes: TOROffsetLabel;
	47	pnlRead: TPanel;
	48	lblTitle: TOROffsetLabel;
	49	memNote: TRichEdit;
	50	pnlWrite: TPanel;
	51	memNewNote: TRichEdit;
	52	WebBrowser1: TWebBrowser; //kt added (and WebBrowser1 object in form file)
	53	Z3: TMenuItem;
	54	mnuViewAll: TMenuItem;
	55	mnuViewByAuthor: TMenuItem;
	56	mnuViewByDate: TMenuItem;
	57	mnuViewUncosigned: TMenuItem;
	58	mnuViewUnsigned: TMenuItem;
	59	mnuActSignList: TMenuItem;
	60	cmdNewNote: TORAlignButton;
	61	cmdPCE: TORAlignButton;
	62	lblSpace1: TLabel;
	63	popNoteMemo: TPopupMenu;
	64	popNoteMemoCut: TMenuItem;
	65	popNoteMemoCopy: TMenuItem;
	66	popNoteMemoPaste: TMenuItem;
	67	Z10: TMenuItem;
	68	popNoteMemoSignList: TMenuItem;
	69	popNoteMemoDelete: TMenuItem;
	70	popNoteMemoEdit: TMenuItem;
	71	popNoteMemoSave: TMenuItem;
	72	popNoteMemoSign: TMenuItem;
	73	popNoteList: TPopupMenu;
	74	popNoteListAll: TMenuItem;
	75	popNoteListByAuthor: TMenuItem;
	76	popNoteListByDate: TMenuItem;
	77	popNoteListUncosigned: TMenuItem;
	78	popNoteListUnsigned: TMenuItem;
	79	sptVert: TSplitter;
	80	memPCEShow: TRichEdit;
	81	mnuActIdentifyAddlSigners: TMenuItem;
	82	popNoteMemoAddlSign: TMenuItem;
	83	Z11: TMenuItem;
	84	popNoteMemoSpell: TMenuItem;
	85	popNoteMemoGrammar: TMenuItem;
	86	mnuViewCustom: TMenuItem;
	87	N1: TMenuItem;
	88	mnuViewSaveAsDefault: TMenuItem;
	89	ReturntoDefault1: TMenuItem;
	90	pnlDrawers: TPanel;
	91	lstNotes: TORListBox;
	92	splDrawers: TSplitter;
	93	popNoteMemoTemplate: TMenuItem;
	94	Z12: TMenuItem;
	95	mnuOptions: TMenuItem;
	96	mnuEditTemplates: TMenuItem;
	97	mnuNewTemplate: TMenuItem;
	98	N2: TMenuItem;
	99	mnuEditSharedTemplates: TMenuItem;
	100	mnuNewSharedTemplate: TMenuItem;
	101	popNoteMemoAddend: TMenuItem;
	102	pnlFields: TPanel;
	103	lblNewTitle: TStaticText;
	104	lblRefDate: TStaticText;
	105	lblAuthor: TStaticText;
	106	lblVisit: TStaticText;
	107	lblCosigner: TStaticText;
	108	cmdChange: TButton;
	109	lblSubject: TStaticText;
	110	txtSubject: TCaptionEdit;
	111	timAutoSave: TTimer;
	112	popNoteMemoPaste2: TMenuItem;
	113	popNoteMemoReformat: TMenuItem;
	114	Z4: TMenuItem;
	115	mnuActChange: TMenuItem;
	116	mnuActLoadBoiler: TMenuItem;
	117	bvlNewTitle: TBevel;
	118	popNoteMemoSaveContinue: TMenuItem;
	119	N3: TMenuItem;
	120	mnuEditDialgFields: TMenuItem;
	121	tvNotes: TORTreeView;
	122	lvNotes: TCaptionListView;
	123	sptList: TSplitter;
	124	N4: TMenuItem;
	125	popNoteListExpandSelected: TMenuItem;
	126	popNoteListExpandAll: TMenuItem;
	127	popNoteListCollapseSelected: TMenuItem;
	128	popNoteListCollapseAll: TMenuItem;
	129	popNoteListCustom: TMenuItem;
	130	mnuActDetachFromIDParent: TMenuItem;
	131	N5: TMenuItem;
	132	popNoteListDetachFromIDParent: TMenuItem;
	133	popNoteListAddIDEntry: TMenuItem;
	134	mnuActAddIDEntry: TMenuItem;
	135	mnuIconLegend: TMenuItem;
	136	N6: TMenuItem;
	137	popNoteMemoFind: TMenuItem;
	138	dlgFindText: TFindDialog;
	139	dlgReplaceText: TReplaceDialog;
	140	popNoteMemoReplace: TMenuItem;
	141	N7: TMenuItem;
	142	mnuChartSurgery: TMenuItem;
	143	mnuActAttachtoIDParent: TMenuItem;
	144	popNoteListAttachtoIDParent: TMenuItem;
	145	N8: TMenuItem;
	146	popNoteMemoPreview: TMenuItem;
	147	popNoteMemoInsTemplate: TMenuItem;
	148	popNoteMemoEncounter: TMenuItem;
	149	mnuSearchForText: TMenuItem;
	150	popSearchForText: TMenuItem;
	151	mnuViewInformation: TMenuItem;
	152	mnuViewDemo: TMenuItem;
	153	mnuViewVisits: TMenuItem;
	154	mnuViewPrimaryCare: TMenuItem;
	155	mnuViewMyHealtheVet: TMenuItem;
	156	mnuInsurance: TMenuItem;
	157	mnuViewFlags: TMenuItem;
	158	mnuViewReminders: TMenuItem;
	159	mnuViewRemoteData: TMenuItem;
	160	mnuViewPostings: TMenuItem;
[541]	161	pnlHtmlViewer: TPanel; //kt 8/09
	162	pnlTextWrite: TPanel; //kt 8/09
	163	popNoteMemoHTMLFormat: TMenuItem; //kt 8/09
	164	pnlHTMLWrite: TPanel; //kt 8/09
	165	pnlHTMLEdit: TPanel; //kt 8/09
	166	ToolBar: TToolBar; //kt 8/09
	167	cbFontNames: TComboBox; //kt 8/09
	168	cbFontSize: TComboBox; //kt 8/09
	169	btnFonts: TSpeedButton; //kt 8/09
	170	btnItalic: TSpeedButton; //kt 8/09
	171	btnBold: TSpeedButton; //kt 8/09
	172	btnUnderline: TSpeedButton; //kt 8/09
	173	btnBullets: TSpeedButton; //kt 8/09
	174	btnNumbers: TSpeedButton; //kt 8/09
	175	btnLeftAlign: TSpeedButton; //kt 8/09
	176	btnCenterAlign: TSpeedButton; //kt 8/09
	177	btnRightAlign: TSpeedButton; //kt 8/09
	178	btnMoreIndent: TSpeedButton; //kt 8/09
	179	btnLessIndent: TSpeedButton; //kt 8/09
	180	btnTextColor: TSpeedButton; //kt 8/09
	181	btnBackColor: TSpeedButton; //kt 8/09
[801]	182	btnImage: TSpeedButton;
	183	popupAddImage: TPopupMenu;
	184	mnuSelectExistingImage: TMenuItem;
[809]	185	mnuAddNewImage: TMenuItem;
	186	mnuSearchNotes: TMenuItem; //kt 4/10
[453]	187	procedure mnuChartTabClick(Sender: TObject);
	188	procedure lstNotesClick(Sender: TObject);
	189	procedure pnlRightResize(Sender: TObject);
	190	procedure cmdNewNoteClick(Sender: TObject);
	191	procedure mnuActNewClick(Sender: TObject);
	192	procedure mnuActAddIDEntryClick(Sender: TObject);
	193	procedure mnuActSaveClick(Sender: TObject);
	194	procedure mnuViewClick(Sender: TObject);
	195	procedure mnuActAddendClick(Sender: TObject);
	196	procedure mnuActDetachFromIDParentClick(Sender: TObject);
	197	procedure mnuActSignListClick(Sender: TObject);
	198	procedure mnuActDeleteClick(Sender: TObject);
	199	procedure mnuActEditClick(Sender: TObject);
	200	procedure mnuActSignClick(Sender: TObject);
	201	procedure cmdPCEClick(Sender: TObject);
	202	procedure popNoteMemoCutClick(Sender: TObject);
	203	procedure popNoteMemoCopyClick(Sender: TObject);
	204	procedure popNoteMemoPasteClick(Sender: TObject);
	205	procedure popNoteMemoPopup(Sender: TObject);
	206	procedure pnlWriteResize(Sender: TObject);
	207	procedure FormCreate(Sender: TObject);
	208	procedure mnuViewDetailClick(Sender: TObject);
	209	procedure FormClose(Sender: TObject; var Action: TCloseAction);
	210	procedure mnuActIdentifyAddlSignersClick(Sender: TObject);
	211	procedure popNoteMemoAddlSignClick(Sender: TObject);
	212	procedure popNoteMemoSpellClick(Sender: TObject);
	213	procedure popNoteMemoGrammarClick(Sender: TObject);
	214	procedure mnuViewSaveAsDefaultClick(Sender: TObject);
	215	procedure mnuViewReturntoDefaultClick(Sender: TObject);
	216	procedure popNoteMemoTemplateClick(Sender: TObject);
	217	procedure mnuEditTemplatesClick(Sender: TObject);
	218	procedure mnuNewTemplateClick(Sender: TObject);
	219	procedure mnuEditSharedTemplatesClick(Sender: TObject);
	220	procedure mnuNewSharedTemplateClick(Sender: TObject);
	221	procedure mnuOptionsClick(Sender: TObject);
	222	procedure FormDestroy(Sender: TObject);
	223	procedure cmdChangeClick(Sender: TObject);
	224	procedure pnlFieldsResize(Sender: TObject);
	225	procedure timAutoSaveTimer(Sender: TObject);
	226	procedure memNewNoteChange(Sender: TObject);
	227	procedure popNoteMemoReformatClick(Sender: TObject);
	228	procedure mnuActChangeClick(Sender: TObject);
	229	procedure mnuActLoadBoilerClick(Sender: TObject);
	230	procedure popNoteMemoSaveContinueClick(Sender: TObject);
	231	procedure mnuEditDialgFieldsClick(Sender: TObject);
	232	procedure tvNotesChange(Sender: TObject; Node: TTreeNode);
	233	procedure tvNotesClick(Sender: TObject);
	234	procedure tvNotesCollapsed(Sender: TObject; Node: TTreeNode);
	235	procedure tvNotesExpanded(Sender: TObject; Node: TTreeNode);
	236	procedure tvNotesStartDrag(Sender: TObject;
	237	var DragObject: TDragObject);
	238	procedure tvNotesDragDrop(Sender, Source: TObject; X, Y: Integer);
	239	procedure tvNotesDragOver(Sender, Source: TObject; X, Y: Integer;
	240	State: TDragState; var Accept: Boolean);
	241	procedure lvNotesColumnClick(Sender: TObject; Column: TListColumn);
	242	procedure lvNotesCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
	243	procedure lvNotesSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
	244	procedure popNoteListExpandAllClick(Sender: TObject);
	245	procedure popNoteListCollapseAllClick(Sender: TObject);
	246	procedure popNoteListExpandSelectedClick(Sender: TObject);
	247	procedure popNoteListCollapseSelectedClick(Sender: TObject);
	248	procedure popNoteListPopup(Sender: TObject);
	249	procedure lvNotesResize(Sender: TObject);
	250	procedure mnuIconLegendClick(Sender: TObject);
	251	procedure popNoteMemoFindClick(Sender: TObject);
	252	procedure dlgFindTextFind(Sender: TObject);
	253	procedure popNoteMemoReplaceClick(Sender: TObject);
	254	procedure dlgReplaceTextReplace(Sender: TObject);
	255	procedure dlgReplaceTextFind(Sender: TObject);
	256	procedure mnuActAttachtoIDParentClick(Sender: TObject);
	257	procedure memNewNoteKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
	258	procedure sptHorzCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean);
[541]	259	//kt procedure WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); //kt added
[453]	260	procedure popNoteMemoInsTemplateClick(Sender: TObject);
	261	procedure popNoteMemoPreviewClick(Sender: TObject);
	262	procedure tvNotesAddition(Sender: TObject; Node: TTreeNode);
	263	procedure tvNotesDeletion(Sender: TObject; Node: TTreeNode);
	264	procedure tvNotesExit(Sender: TObject);
	265	procedure pnlReadExit(Sender: TObject);
	266	procedure cmdNewNoteExit(Sender: TObject);
	267	procedure FormHide(Sender: TObject);
	268	procedure FormShow(Sender: TObject);
	269	procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
	270	Y: Integer);
	271	procedure memNewNoteKeyPress(Sender: TObject; var Key: Char);
	272	procedure memNewNoteKeyUp(Sender: TObject; var Key: Word;
	273	Shift: TShiftState);
	274	procedure memPCEShowExit(Sender: TObject);
	275	procedure cmdChangeExit(Sender: TObject);
	276	procedure cmdPCEExit(Sender: TObject);
	277	procedure ViewInfo(Sender: TObject);
	278	procedure mnuViewInformationClick(Sender: TObject);
[541]	279	procedure btnBackColorClick(Sender: TObject); //kt 8/09
	280	procedure btnBoldClick(Sender: TObject); //kt 8/09
	281	procedure btnBulletsClick(Sender: TObject); //kt 8/09
	282	procedure btnCenterAlignClick(Sender: TObject); //kt 8/09
	283	procedure btnFontsClick(Sender: TObject); //kt 8/09
	284	procedure btnItalicClick(Sender: TObject); //kt 8/09
	285	procedure btnLeftAlignClick(Sender: TObject); //kt 8/09
	286	procedure btnLessIndentClick(Sender: TObject); //kt 8/09
	287	procedure btnMoreIndentClick(Sender: TObject); //kt 8/09
	288	procedure btnNumbersClick(Sender: TObject); //kt 8/09
	289	procedure btnRightAlignClick(Sender: TObject); //kt 8/09
	290	procedure btnTextColorClick(Sender: TObject); //kt 8/09
	291	procedure btnUnderlineClick(Sender: TObject); //kt 8/09
	292	procedure cbFontNamesChange(Sender: TObject); //kt 8/09
	293	procedure cbFontSizeChange(Sender: TObject); //kt 8/09
[793]	294	procedure btnImageClick(Sender: TObject); //kt 4/10
[801]	295	procedure popNoteMemoHTMLFormatClick(Sender: TObject);
	296	procedure mnuAddNewImageClick(Sender: TObject);
[809]	297	procedure mnuSelectExistingImageClick(Sender: TObject);
	298	procedure mnuSearchNotesClick(Sender: TObject); //kt 8/09
[453]	299	private
	300	FNavigatingTab : Boolean; //Currently Using tab to navigate
	301	FEditingIndex: Integer; // index of note being currently edited
	302	FChanged: Boolean; // true if any text has changed in the note
	303	FEditCtrl: TCustomEdit;
	304	FSilent: Boolean;
	305	FCurrentContext: TTIUContext;
	306	FDefaultContext: TTIUContext;
	307	FOrderID: string;
	308	FImageFlag: TBitmap;
	309	FEditNote: TEditNoteRec;
[541]	310	FViewNote : TStringList; //kt 8/09
	311	FWarmedUp : boolean; //kt 8/09
[453]	312	FVerifyNoteTitle: Integer;
	313	FDocList: TStringList;
	314	FConfirmed: boolean;
	315	FLastNoteID: string;
	316	FNewIDChild: boolean;
	317	FEditingNotePCEObj: boolean;
	318	FDeleted: boolean;
	319	FOldFramePnlPatientExit: TNotifyEvent;
	320	FOldDrawerPnlTemplatesButtonExit: TNotifyEvent;
	321	FOldDrawerPnlEncounterButtonExit: TNotifyEvent;
	322	FOldDrawerEdtSearchExit: TNotifyEvent;
	323	FMousing: TDateTime;
	324	FStarting: boolean;
	325	LastAuthor: Int64; //kt 6-1-05
	326	LastAuthorName: string; //kt 6-1-05
[541]	327	FHTMLEditMode : TEditModes; //kt 7/09 This is the mode of the note being edited (even if not actively displayed)
	328	FViewMode : TViewModeSet; //kt 7/09 This is the status of the display
[453]	329	procedure frmFramePnlPatientExit(Sender: TObject);
	330	procedure frmDrawerPnlTemplatesButtonExit(Sender: TObject);
	331	procedure frmDrawerPnlEncounterButtonExit(Sender: TObject);
	332	procedure frmDrawerEdtSearchExit(Sender: TObject);
	333	procedure ClearEditControls;
	334	procedure DoAutoSave(Suppress: integer = 1);
	335	function GetTitleText(AnIndex: Integer): string;
	336	procedure InsertAddendum;
	337	procedure InsertNewNote(IsIDChild: boolean; AnIDParent: integer);
	338	function LacksRequiredForCreate: Boolean;
	339	procedure LoadForEdit;
	340	function LockConsultRequest(AConsult: Integer): Boolean;
	341	function LockConsultRequestAndNote(AnIEN: Int64): Boolean;
	342	procedure RemovePCEFromChanges(IEN: Int64; AVisitStr: string = '');
	343	procedure SaveEditedNote(var Saved: Boolean);
	344	procedure SaveCurrentNote(var Saved: Boolean);
	345	procedure SetEditingIndex(const Value: Integer);
	346	procedure SetSubjectVisible(ShouldShow: Boolean);
	347	procedure ShowPCEControls(ShouldShow: Boolean);
	348	function StartNewEdit(NewNoteType: integer): Boolean;
	349	procedure UnlockConsultRequest(ANote: Int64; AConsult: Integer = 0);
	350	procedure ProcessNotifications;
	351	procedure SetViewContext(AContext: TTIUContext);
	352	property EditingIndex: Integer read FEditingIndex write SetEditingIndex;
	353	function GetDrawers: TFrmDrawers;
	354	function CanFinishReminder: boolean;
	355	procedure DisplayPCE;
	356	function VerifyNoteTitle: Boolean;
	357	// added for treeview
	358	procedure LoadNotes;
	359	procedure UpdateTreeView(DocList: TStringList; Tree: TORTreeView);
	360	procedure EnableDisableIDNotes;
	361	procedure ShowPCEButtons(Editing: boolean);
	362	procedure DoAttachIDChild(AChild, AParent: TORTreeNode);
	363	function SetNoteTreeLabel(AContext: TTIUContext): string;
	364	procedure UpdateNoteAuthor(DocInfo: string);
[541]	365	procedure SetHTMLEditMode(HTMLEditMode : boolean; Quiet : Boolean=false); //kt
	366	procedure ToggleHTMLEditMode; //kt
	367	procedure BroadcastImages(Note: TStrings); //kt
	368	procedure ProperRepaint(Editing : Boolean); //kt
	369	procedure SetEditorFocus; //kt
	370	function EditorHasText : boolean; //kt
[819]	371	procedure ChangeToNote(IEN : String; ADFN : String = '-1'); //kt 6/26/10
[453]	372	public
[541]	373	HtmlEditor : THtmlObj; //kt 8/09
	374	HtmlViewer : THtmlObj; //kt 8/09
	375	procedure SetDisplayToHTMLvsText(Mode :TViewModeSet; Lines : TStrings; ActivateOnly : boolean=False); //kt 8/09
[453]	376	function ActiveEditOf(AnIEN: Int64; ARequest: integer): Boolean;
	377	function AllowContextChange(var WhyNot: string): Boolean; override;
	378	procedure ClearPtData; override;
	379	procedure DisplayPage; override;
	380	procedure RequestPrint; override;
	381	procedure RequestMultiplePrint(AForm: TfrmPrintList);
	382	procedure SetFontSize(NewFontSize: Integer); override;
	383	procedure SaveSignItem(const ItemID, ESCode: string);
	384	procedure AssignRemForm;
	385	property OrderID: string read FOrderID;
[541]	386	property ViewMode :TViewModeSet read FViewMode; //kt 8/09
[453]	387	procedure LstNotesToPrint;
[541]	388	constructor Create(AOwner: TComponent); override; //kt 8/09
	389	destructor Destroy; override; //kt 8/09
[453]	390	published
	391	property Drawers: TFrmDrawers read GetDrawers; // Keep Drawers published
	392	end;
	393
	394	var
	395	frmNotes: TfrmNotes;
	396	SearchTextStopFlag: Boolean; // Text Search CQ: HDS00002856
	397
	398	implementation
	399
	400	{$R *.DFM}
	401
	402	uses fFrame, fVisit, fEncnt, rCore, uCore, fNoteBA, fNoteBD, fSignItem, fEncounterFrame,
	403	rPCE, Clipbrd, fNoteCslt, fNotePrt, rVitals, fAddlSigners, fNoteDR, fConsults, uSpell,
	404	fTIUView, fTemplateEditor, uReminders, fReminderDialog, uOrders, rConsults, fReminderTree,
	405	fNoteProps, fNotesBP, fTemplateFieldEditor, dShared, rTemplates,
	406	FIconLegend, fPCEEdit, fNoteIDParents, rSurgery, uSurgery, uTemplates,
	407	uAccessibleTreeView, uAccessibleTreeNode, fTemplateDialog, DateUtils,
	408	StrUtils {//KT added 1-1-05},
[541]	409	//fImages, {//kt added 9-20-05}
	410	fOptionsNotes, //kt 8/09
[801]	411	fImagePickExisting, //kt 6/16/10
[809]	412	rHTMLTools, fImages, UploadImages, {//kt added 5-27-05 for IsHTMLDocument}
	413	fPtDocSearch; //kt 6/21/10
[453]	414
	415	const
	416
	417	NT_NEW_NOTE = -10; // Holder IEN for a new note
	418	NT_ADDENDUM = -20; // Holder IEN for a new addendum
	419
	420	NT_ACT_NEW_NOTE = 2;
	421	NT_ACT_ADDENDUM = 3;
	422	NT_ACT_EDIT_NOTE = 4;
	423	NT_ACT_ID_ENTRY = 5;
	424
[541]	425	VIEW_ACTIVATE_ONLY = true; //kt 8/09
	426
[453]	427	//TX_NEED_VISIT = 'A visit is required before creating a new progress note.'; <-- original line. //kt 7/19/2007
	428	//TX_CREATE_ERR = 'Error Creating Note'; <-- original line. //kt 7/19/2007
	429	//TX_UPDATE_ERR = 'Error Updating Note'; <-- original line. //kt 7/19/2007
	430	//TX_NO_NOTE = 'No progress note is currently being edited'; <-- original line. //kt 7/19/2007
	431	//TX_SAVE_NOTE = 'Save Progress Note'; <-- original line. //kt 7/19/2007
	432	//TX_ADDEND_NO = 'Cannot make an addendum to a note that is being edited'; <-- original line. //kt 7/19/2007
	433	//TX_DEL_OK = CRLF + CRLF + 'Delete this progress note?'; <-- original line. //kt 7/19/2007
	434	//TX_DEL_ERR = 'Unable to Delete Note'; <-- original line. //kt 7/19/2007
	435	//TX_SIGN = 'Sign Note'; <-- original line. //kt 7/19/2007
	436	//TX_COSIGN = 'Cosign Note'; <-- original line. //kt 7/19/2007
	437	//TX_SIGN_ERR = 'Unable to Sign Note'; <-- original line. //kt 7/19/2007
	438	// TX_SCREQD = 'This progress note title requires the service connected questions to be '+
	439	// 'answered. The Encounter form will now be opened. Please answer all '+
	440	// 'service connected questions.';
	441	// TX_SCREQD_T = 'Response required for SC questions.';
	442	//TX_NONOTE = 'No progress note is currently selected.'; <-- original line. //kt 7/19/2007
	443	//TX_NONOTE_CAP = 'No Note Selected'; <-- original line. //kt 7/19/2007
	444	//TX_NOPRT_NEW = 'This progress note may not be printed until it is saved'; <-- original line. //kt 7/19/2007
	445	//TX_NOPRT_NEW_CAP = 'Save Progress Note'; <-- original line. //kt 7/19/2007
	446	//TX_NO_ALERT = 'There is insufficient information to process this alert.' + CRLF + <-- original line. //kt 7/19/2007
	447	// 'Either the alert has already been deleted, or it contained invalid data.' + CRLF + CRLF + <-- original line. //kt 7/19/2007
	448	// 'Click the NEXT button if you wish to continue processing more alerts.'; <-- original line. //kt 7/19/2007
	449	//TX_CAP_NO_ALERT = 'Unable to Process Alert'; <-- original line. //kt 7/19/2007
	450	//TX_ORDER_LOCKED = 'This record is locked by an action underway on the Consults tab'; <-- original line. //kt 7/19/2007
	451	//TC_ORDER_LOCKED = 'Unable to access record'; <-- original line. //kt 7/19/2007
	452	//TX_NO_ORD_CHG = 'The note is still associated with the previously selected request.' + CRLF + <-- original line. //kt 7/19/2007
	453	// 'Finish the pending action on the consults tab, then try again.'; <-- original line. //kt 7/19/2007
	454	//TC_NO_ORD_CHG = 'Locked Consult Request'; <-- original line. //kt 7/19/2007
	455	//TX_NEW_SAVE1 = 'You are currently editing:' + CRLF + CRLF; <-- original line. //kt 7/19/2007
	456	//TX_NEW_SAVE2 = CRLF + CRLF + 'Do you wish to save this note and begin a new one?'; <-- original line. //kt 7/19/2007
	457	//TX_NEW_SAVE3 = CRLF + CRLF + 'Do you wish to save this note and begin a new addendum?'; <-- original line. //kt 7/19/2007
	458	//TX_NEW_SAVE4 = CRLF + CRLF + 'Do you wish to save this note and edit the one selected?'; <-- original line. //kt 7/19/2007
	459	//TX_NEW_SAVE5 = CRLF + CRLF + 'Do you wish to save this note and begin a new Interdisciplinary entry?'; <-- original line. //kt 7/19/2007
	460	//TC_NEW_SAVE2 = 'Create New Note'; <-- original line. //kt 7/19/2007
	461	//TC_NEW_SAVE3 = 'Create New Addendum'; <-- original line. //kt 7/19/2007
	462	//TC_NEW_SAVE4 = 'Edit Different Note'; <-- original line. //kt 7/19/2007
	463	//TC_NEW_SAVE5 = 'Create New Interdisciplinary Entry'; <-- original line. //kt 7/19/2007
	464	//TX_EMPTY_NOTE = CRLF + CRLF + 'This note contains no text and will not be saved.' + CRLF + <-- original line. //kt 7/19/2007
	465	// 'Do you wish to delete this note?'; <-- original line. //kt 7/19/2007
	466	//TC_EMPTY_NOTE = 'Empty Note'; <-- original line. //kt 7/19/2007
	467	//TX_EMPTY_NOTE1 = 'This note contains no text and can not be signed.'; <-- original line. //kt 7/19/2007
	468	//TC_NO_LOCK = 'Unable to Lock Note'; <-- original line. //kt 7/19/2007
	469	//TX_ABSAVE = 'It appears the session terminated abnormally when this' + CRLF + <-- original line. //kt 7/19/2007
	470	// 'note was last edited. Some text may not have been saved.' + CRLF + CRLF + <-- original line. //kt 7/19/2007
	471	// 'Do you wish to continue and sign the note?'; <-- original line. //kt 7/19/2007
	472	//TC_ABSAVE = 'Possible Missing Text'; <-- original line. //kt 7/19/2007
	473	//TX_NO_BOIL = 'There is no boilerplate text associated with this title.'; <-- original line. //kt 7/19/2007
	474	//TC_NO_BOIL = 'Load Boilerplate Text'; <-- original line. //kt 7/19/2007
	475	//TX_BLR_CLEAR = 'Do you want to clear the previously loaded boilerplate text?'; <-- original line. //kt 7/19/2007
	476	//TC_BLR_CLEAR = 'Clear Previous Boilerplate Text'; <-- original line. //kt 7/19/2007
	477	//TX_DETACH_CNF = 'Confirm Detachment'; <-- original line. //kt 7/19/2007
	478	//TX_DETACH_FAILURE = 'Detach failed'; <-- original line. //kt 7/19/2007
	479	//TX_RETRACT_CAP = 'Retraction Notice'; <-- original line. //kt 7/19/2007
	480	//TX_RETRACT = 'This document will now be RETRACTED. As Such, it has been removed' +CRLF + <-- original line. //kt 7/19/2007
	481	// ' from public view, and from typical Releases of Information,' +CRLF + <-- original line. //kt 7/19/2007
	482	// ' but will remain indefinitely discoverable to HIMS.' +CRLF +CRLF; <-- original line. //kt 7/19/2007
	483	//TX_AUTH_SIGNED = 'Author has not signed, are you SURE you want to sign.' +CRLF; <-- original line. //kt 7/19/2007
	484	{
	485	type
	486	//CQ8300
	487	ClipboardData = record
	488	Text: array[0..255] of char;
	489	end;
	490	}
	491
	492
	493	var
	494	TX_NEED_VISIT : string; //kt
	495	TX_CREATE_ERR : string; //kt
	496	TX_UPDATE_ERR : string; //kt
	497	TX_NO_NOTE : string; //kt
	498	TX_SAVE_NOTE : string; //kt
	499	TX_ADDEND_NO : string; //kt
	500	TX_DEL_OK : string; //kt
	501	TX_DEL_ERR : string; //kt
	502	TX_SIGN : string; //kt
	503	TX_COSIGN : string; //kt
	504	TX_SIGN_ERR : string; //kt
	505	TX_NONOTE : string; //kt
	506	TX_NONOTE_CAP : string; //kt
	507	TX_NOPRT_NEW : string; //kt
	508	TX_NOPRT_NEW_CAP : string; //kt
	509	TX_NO_ALERT : string; //kt
	510	TX_CAP_NO_ALERT : string; //kt
	511	TX_ORDER_LOCKED : string; //kt
	512	TC_ORDER_LOCKED : string; //kt
	513	TX_NO_ORD_CHG : string; //kt
	514	TC_NO_ORD_CHG : string; //kt
	515	TX_NEW_SAVE1 : string; //kt
	516	TX_NEW_SAVE2 : string; //kt
	517	TX_NEW_SAVE3 : string; //kt
	518	TX_NEW_SAVE4 : string; //kt
	519	TX_NEW_SAVE5 : string; //kt
	520	TC_NEW_SAVE2 : string; //kt
	521	TC_NEW_SAVE3 : string; //kt
	522	TC_NEW_SAVE4 : string; //kt
	523	TC_NEW_SAVE5 : string; //kt
	524	TX_EMPTY_NOTE : string; //kt
	525	TC_EMPTY_NOTE : string; //kt
	526	TX_EMPTY_NOTE1 : string; //kt
	527	TC_NO_LOCK : string; //kt
	528	TX_ABSAVE : string; //kt
	529	TC_ABSAVE : string; //kt
	530	TX_NO_BOIL : string; //kt
	531	TC_NO_BOIL : string; //kt
	532	TX_BLR_CLEAR : string; //kt
	533	TC_BLR_CLEAR : string; //kt
	534	TX_DETACH_CNF : string; //kt
	535	TX_DETACH_FAILURE : string; //kt
	536	TX_RETRACT_CAP : string; //kt
	537	TX_RETRACT : string; //kt
	538	TX_AUTH_SIGNED : string; //kt
	539
	540	procedure SetupVars;
	541	//kt Added entire function to replace constant declarations 7/19/2007
	542	begin
	543	TX_NEED_VISIT := DKLangConstW('fNotes_A_visit_is_required_before_creating_a_new_progress_notex');
	544	TX_CREATE_ERR := DKLangConstW('fNotes_Error_Creating_Note');
	545	TX_UPDATE_ERR := DKLangConstW('fNotes_Error_Updating_Note');
	546	TX_NO_NOTE := DKLangConstW('fNotes_No_progress_note_is_currently_being_edited');
	547	TX_SAVE_NOTE := DKLangConstW('fNotes_Save_Progress_Note');
	548	TX_ADDEND_NO := DKLangConstW('fNotes_Cannot_make_an_addendum_to_a_note_that_is_being_edited');
	549	TX_DEL_OK := CRLF + CRLF + DKLangConstW('fNotes_Delete_this_progress_notex');
	550	TX_DEL_ERR := DKLangConstW('fNotes_Unable_to_Delete_Note');
	551	TX_SIGN := DKLangConstW('fNotes_Sign_Note');
	552	TX_COSIGN := DKLangConstW('fNotes_Cosign_Note');
	553	TX_SIGN_ERR := DKLangConstW('fNotes_Unable_to_Sign_Note');
	554	TX_NONOTE := DKLangConstW('fNotes_No_progress_note_is_currently_selectedx');
	555	TX_NONOTE_CAP := DKLangConstW('fNotes_No_Note_Selected');
	556	TX_NOPRT_NEW := DKLangConstW('fNotes_This_progress_note_may_not_be_printed_until_it_is_saved');
	557	TX_NOPRT_NEW_CAP := DKLangConstW('fNotes_Save_Progress_Note');
	558	TX_NO_ALERT := DKLangConstW('fNotes_There_is_insufficient_information_to_process_this_alertx') + CRLF +
	559	DKLangConstW('fNotes_Either_the_alert_has_already_been_deletedx_or_it_contained_invalid_datax') + CRLF + CRLF +
	560	DKLangConstW('fNotes_Click_the_NEXT_button_if_you_wish_to_continue_processing_more_alertsx');
	561	TX_CAP_NO_ALERT := DKLangConstW('fNotes_Unable_to_Process_Alert');
	562	TX_ORDER_LOCKED := DKLangConstW('fNotes_This_record_is_locked_by_an_action_underway_on_the_Consults_tab');
	563	TC_ORDER_LOCKED := DKLangConstW('fNotes_Unable_to_access_record');
	564	TX_NO_ORD_CHG := DKLangConstW('fNotes_The_note_is_still_associated_with_the_previously_selected_requestx') + CRLF +
	565	DKLangConstW('fNotes_Finish_the_pending_action_on_the_consults_tabx_then_try_againx');
	566	TC_NO_ORD_CHG := DKLangConstW('fNotes_Locked_Consult_Request');
	567	TX_NEW_SAVE1 := DKLangConstW('fNotes_You_are_currently_editingx') + CRLF + CRLF;
	568	TX_NEW_SAVE2 := CRLF + CRLF + DKLangConstW('fNotes_Do_you_wish_to_save_this_note_and_begin_a_new_onex');
	569	TX_NEW_SAVE3 := CRLF + CRLF + DKLangConstW('fNotes_Do_you_wish_to_save_this_note_and_begin_a_new_addendumx');
	570	TX_NEW_SAVE4 := CRLF + CRLF + DKLangConstW('fNotes_Do_you_wish_to_save_this_note_and_edit_the_one_selectedx');
	571	TX_NEW_SAVE5 := CRLF + CRLF + DKLangConstW('fNotes_Do_you_wish_to_save_this_note_and_begin_a_new_Interdisciplinary_entryx');
	572	TC_NEW_SAVE2 := DKLangConstW('fNotes_Create_New_Note');
	573	TC_NEW_SAVE3 := DKLangConstW('fNotes_Create_New_Addendum');
	574	TC_NEW_SAVE4 := DKLangConstW('fNotes_Edit_Different_Note');
	575	TC_NEW_SAVE5 := DKLangConstW('fNotes_Create_New_Interdisciplinary_Entry');
	576	TX_EMPTY_NOTE := CRLF + CRLF + DKLangConstW('fNotes_This_note_contains_no_text_and_will_not_be_savedx') + CRLF +
	577	DKLangConstW('fNotes_Do_you_wish_to_delete_this_notex');
	578	TC_EMPTY_NOTE := DKLangConstW('fNotes_Empty_Note');
	579	TX_EMPTY_NOTE1 := DKLangConstW('fNotes_This_note_contains_no_text_and_can_not_be_signedx');
	580	TC_NO_LOCK := DKLangConstW('fNotes_Unable_to_Lock_Note');
	581	TX_ABSAVE := DKLangConstW('fNotes_It_appears_the_session_terminated_abnormally_when_this') + CRLF +
	582	DKLangConstW('fNotes_note_was_last_editedx_Some_text_may_not_have_been_savedx') + CRLF + CRLF +
	583	DKLangConstW('fNotes_Do_you_wish_to_continue_and_sign_the_notex');
	584	TC_ABSAVE := DKLangConstW('fNotes_Possible_Missing_Text');
	585	TX_NO_BOIL := DKLangConstW('fNotes_There_is_no_boilerplate_text_associated_with_this_titlex');
	586	TC_NO_BOIL := DKLangConstW('fNotes_Load_Boilerplate_Text');
	587	TX_BLR_CLEAR := DKLangConstW('fNotes_Do_you_want_to_clear_the_previously_loaded_boilerplate_textx');
	588	TC_BLR_CLEAR := DKLangConstW('fNotes_Clear_Previous_Boilerplate_Text');
	589	TX_DETACH_CNF := DKLangConstW('fNotes_Confirm_Detachment');
	590	TX_DETACH_FAILURE := DKLangConstW('fNotes_Detach_failed');
	591	TX_RETRACT_CAP := DKLangConstW('fNotes_Retraction_Notice');
	592	TX_RETRACT := DKLangConstW('fNotes_This_document_will_now_be_RETRACTEDx__As_Suchx_it_has_been_removed') +CRLF +
	593	DKLangConstW('fNotes_from_public_viewx_and_from_typical_Releases_of_Informationx') +CRLF +
	594	DKLangConstW('fNotes_but_will_remain_indefinitely_discoverable_to_HIMSx') +CRLF +CRLF;
	595	TX_AUTH_SIGNED := DKLangConstW('fNotes_Author_has_not_signedx_are_you_SURE_you_want_to_signx') +CRLF;
	596	end;
[819]	597
[453]	598	var
	599	uPCEShow, uPCEEdit: TPCEData;
	600	ViewContext: Integer;
	601	frmDrawers: TfrmDrawers;
	602	uTIUContext: TTIUContext;
	603	ColumnToSort: Integer;
	604	ColumnSortForward: Boolean;
	605	uChanging: Boolean;
	606	uIDNotesActive: Boolean;
	607
[541]	608	constructor TfrmNotes.Create(AOwner: TComponent);
	609	//kt Added function 8/09
	610	begin
	611	inherited Create(AOwner);
	612	FViewNote := TStringList.Create;
	613	end;
[453]	614
[541]	615	destructor TfrmNotes.Destroy;
	616	//kt Added function 8/09
	617	begin
	618	FViewNote.Free;
	619	FEditNote.Lines.Free; //kt
	620	inherited Destroy;
	621	end;
	622
	623
[453]	624	{ TPage common methods --------------------------------------------------------------------- }
	625	function TfrmNotes.AllowContextChange(var WhyNot: string): Boolean;
	626	begin
	627	dlgFindText.CloseDialog;
	628	Result := inherited AllowContextChange(WhyNot); // sets result = true
	629	if Assigned(frmTemplateDialog) then
	630	if Screen.ActiveForm = frmTemplateDialog then
	631	//if (fsModal in frmTemplateDialog.FormState) then
	632	case BOOLCHAR[frmFrame.CCOWContextChanging] of
	633	'1': begin
	634	// WhyNot := 'A template in progress will be aborted. '; <-- original line. //kt 7/19/2007
	635	WhyNot := DKLangConstW('fNotes_A_template_in_progress_will_be_abortedx'); //kt added 7/19/2007
	636	Result := False;
	637	end;
	638	'0': begin
	639	// if WhyNot = 'COMMIT' then <-- original line. //kt 7/19/2007
	640	if WhyNot = DKLangConstW('fNotes_COMMIT') then //kt added 7/19/2007
	641	begin
	642	FSilent := True;
	643	frmTemplateDialog.Silent := True;
	644	frmTemplateDialog.ModalResult := mrCancel;
	645	end;
	646	end;
	647	end;
	648	if Assigned(frmRemDlg) then
	649	case BOOLCHAR[frmFrame.CCOWContextChanging] of
	650	'1': begin
	651	// WhyNot := 'All current reminder processing information will be discarded. '; <-- original line. //kt 7/19/2007
	652	WhyNot := DKLangConstW('fNotes_All_current_reminder_processing_information_will_be_discardedx'); //kt added 7/19/2007
	653	Result := False;
	654	end;
	655	'0': begin
	656	if WhyNot = 'COMMIT' then
	657	begin
	658	FSilent := True;
	659	frmRemDlg.Silent := True;
	660	frmRemDlg.btnCancelClick(Self);
	661	end;
	662	end;
	663	end;
	664	if EditingIndex <> -1 then
	665	case BOOLCHAR[frmFrame.CCOWContextChanging] of
	666	'1': begin
[541]	667	if ((vmHTML in FViewMode) and (HTMLEditor.Text <> '')) //kt 8/09
	668	or ((not (vmHTML in FViewMode)) and (memNewNote.GetTextLen > 0 )) then begin //kt
[453]	669	// WhyNot := WhyNot + 'A note in progress will be saved as unsigned. ' <-- original line. //kt 7/19/2007
	670	WhyNot := WhyNot + DKLangConstW('fNotes_A_note_in_progress_will_be_saved_as_unsignedx') //kt added 7/19/2007
[541]	671	end else begin //kt
[453]	672	// WhyNot := WhyNot + 'An empty note in progress will be deleted. '; <-- original line. //kt 7/19/2007
	673	WhyNot := WhyNot + DKLangConstW('fNotes_An_empty_note_in_progress_will_be_deletedx'); //kt added 7/19/2007
[541]	674	end; //kt
[453]	675	Result := False;
	676	end;
	677	'0': begin
	678	// if WhyNot = 'COMMIT' then FSilent := True; <-- original line. //kt 7/19/2007
	679	if WhyNot = DKLangConstW('fNotes_COMMIT') then FSilent := True; //kt added 7/19/2007
	680	SaveCurrentNote(Result)
	681	end;
	682	end;
	683	if Assigned(frmEncounterFrame) then
	684	if Screen.ActiveForm = frmEncounterFrame then
	685	//if (fsModal in frmEncounterFrame.FormState) then
	686	case BOOLCHAR[frmFrame.CCOWContextChanging] of
	687	'1': begin
	688	// WhyNot := WhyNot + 'Encounter information being edited will not be saved'; <-- original line. //kt 7/19/2007
	689	WhyNot := WhyNot + DKLangConstW('fNotes_Encounter_information_being_edited_will_not_be_saved'); //kt added 7/19/2007
	690	Result := False;
	691	end;
	692	'0': begin
	693	if WhyNot = 'COMMIT' then
	694	begin
	695	FSilent := True;
	696	frmEncounterFrame.Abort := False;
	697	frmEncounterFrame.Cancel := True;
	698	end;
	699	end;
	700	end;
	701	end;
	702
	703	procedure TfrmNotes.LstNotesToPrint;
	704	var
	705	AParentID: string;
	706	SavedDocID: string;
	707	Saved: boolean;
	708	begin
	709	inherited;
	710	if not uIDNotesActive then exit;
	711	if lstNotes.ItemIEN = 0 then exit;
	712	SavedDocID := lstNotes.ItemID;
	713	if EditingIndex <> -1 then
	714	begin
	715	SaveCurrentNote(Saved);
	716	if not Saved then Exit;
	717	LoadNotes;
	718	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
	719	end;
	720	if tvNotes.Selected = nil then exit;
	721	AParentID := frmPrintList.SelectParentFromList(tvNotes,CT_NOTES);
	722	if AParentID = '' then exit;
	723	with tvNotes do Selected := FindPieceNode(AParentID, 1, U, Items.GetFirstNode);
	724	end;
	725
	726	procedure TfrmNotes.ClearPtData;
	727	{ clear all controls that contain patient specific information }
	728	begin
	729	inherited ClearPtData;
	730	ClearEditControls;
	731	uChanging := True;
	732	tvNotes.Items.BeginUpdate;
	733	KilldocTreeObjects(tvNotes);
	734	tvNotes.Items.Clear;
	735	tvNotes.Items.EndUpdate;
	736	lvNotes.Items.Clear;
	737	uChanging := False;
	738	lstNotes.Clear;
	739	memNote.Clear;
[541]	740	HTMLViewer.Clear; //kt
	741	HTMLEditor.Clear; //kt
	742	FWarmedUp := false; //kt
	743	SetDisplayToHTMLvsText([vmText,vmView],nil,VIEW_ACTIVATE_ONLY); //kt
[453]	744	memPCEShow.Clear;
	745	uPCEShow.Clear;
	746	uPCEEdit.Clear;
	747	frmDrawers.ResetTemplates;
	748	end;
	749
	750	procedure TfrmNotes.DisplayPage;
	751	{ causes page to be visible and conditionally executes initialization code }
	752	begin
	753	inherited DisplayPage;
	754	frmFrame.ShowHideChartTabMenus(mnuViewChart);
	755	frmFrame.mnuFilePrint.Tag := CT_NOTES;
	756	frmFrame.mnuFilePrint.Enabled := True;
	757	frmFrame.mnuFilePrintSetup.Enabled := True;
	758	frmFrame.mnuFilePrintSelectedItems.Enabled := True;
	759	if InitPage then
	760	begin
	761	EnableDisableIDNotes;
	762	FDefaultContext := GetCurrentTIUContext;
	763	FCurrentContext := FDefaultContext;
	764	popNoteMemoSpell.Visible := SpellCheckAvailable;
	765	popNoteMemoGrammar.Visible := popNoteMemoSpell.Visible;
	766	Z11.Visible := popNoteMemoSpell.Visible;
	767	timAutoSave.Interval := User.AutoSave * 1000; // convert seconds to milliseconds
	768	SetEqualTabStops(memNewNote);
	769	end;
	770	// to indent the right margin need to set Paragraph.RightIndent for each paragraph?
	771	if InitPatient and not (CallingContext = CC_NOTIFICATION) then
	772	begin
	773	SetViewContext(FDefaultContext);
	774	end;
	775	case CallingContext of
	776	CC_INIT_PATIENT: if not InitPatient then
	777	begin
	778	SetViewContext(FDefaultContext);
	779	end;
	780	CC_NOTIFICATION: ProcessNotifications;
	781	end;
	782	end;
	783
	784	procedure TfrmNotes.RequestPrint;
	785	var
	786	Saved: Boolean;
	787	begin
	788	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	789	with lstNotes do
	790	begin
	791	if ItemIndex = EditingIndex then
	792	//if ItemIEN < 0 then
	793	begin
	794	SaveCurrentNote(Saved);
	795	if not Saved then Exit;
	796	end;
	797	if ItemIEN > 0 then PrintNote(ItemIEN, MakeNoteDisplayText(Items[ItemIndex])) else
	798	begin
	799	if ItemIEN = 0 then InfoBox(TX_NONOTE, TX_NONOTE_CAP, MB_OK);
	800	if ItemIEN < 0 then InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK);
	801	end;
	802	end;
	803	end;
	804
	805	{for printing multiple notes}
	806	procedure TfrmNotes.RequestMultiplePrint(AForm: TfrmPrintList);
	807	var
	808	NoteIEN: int64;
	809	i: integer;
	810	begin
	811	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	812	with AForm.lbIDParents do
	813	begin
	814	for i := 0 to Items.Count - 1 do
	815	begin
	816	if Selected[i] then
	817	begin
	818	NoteIEN := StrToInt64def(Piece(TStringList(Items.Objects[i])[0],U,1),0);
	819	if NoteIEN > 0 then PrintNote(NoteIEN, Items[i], TRUE) else
	820	begin
	821	if NoteIEN = 0 then InfoBox(TX_NONOTE, TX_NONOTE_CAP, MB_OK);
	822	if NoteIEN < 0 then InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK);
	823	end;
	824	end; {if selected}
	825	end; {for}
	826	end; {with}
	827	end;
	828
	829	procedure TfrmNotes.SetFontSize(NewFontSize: Integer);
	830	{ adjusts the font size of any controls that don't have ParentFont = True }
	831	begin
	832	inherited SetFontSize(NewFontSize);
	833	frmDrawers.Font.Size := NewFontSize;
	834	SetEqualTabStops(memNewNote);
	835	end;
	836
	837	procedure TfrmNotes.mnuChartTabClick(Sender: TObject);
	838	{ reroute to Chart Tab menu of the parent form: frmFrame }
	839	begin
	840	inherited;
	841	frmFrame.mnuChartTabClick(Sender);
	842	end;
	843
	844	{ General procedures ----------------------------------------------------------------------- }
	845
	846	procedure TfrmNotes.ClearEditControls;
	847	{ resets controls used for entering a new progress note }
	848	begin
	849	// clear FEditNote (should FEditNote be an object with a clear method?)
	850	with FEditNote do
	851	begin
	852	DocType := 0;
	853	Title := 0;
	854	TitleName := '';
	855	DateTime := 0;
	856	Author := 0;
	857	AuthorName := '';
	858	Cosigner := 0;
	859	CosignerName := '';
	860	Subject := '';
	861	Location := 0;
	862	LocationName := '';
	863	PkgIEN := 0;
	864	PkgPtr := '';
	865	PkgRef := '';
	866	NeedCPT := False;
	867	Addend := 0;
	868	{LastCosigner & LastCosignerName aren't cleared because they're used as default for next note.}
[541]	869	//kt 8/09 Lines := nil;
	870	if Assigned (Lines) then Lines.Clear; //kt 8/09
[453]	871	PRF_IEN := 0;
	872	ActionIEN := '';
	873	end;
	874	// clear the editing controls (also clear the new labels?)
	875	txtSubject.Text := '';
	876	if memNewNote <> nil then memNewNote.Clear; //CQ7012 Added test for nil
[541]	877	HTMLEditor.Clear; //kt 8/09
	878	HTMLViewer.Clear; //kt 8/09
	879	FHTMLEditMode := emNone; //kt 8/09
[453]	880	timAutoSave.Enabled := False;
	881	// clear the PCE object for editing
	882	uPCEEdit.Clear;
	883	// set the tracking variables to initial state
	884	EditingIndex := -1;
	885	FChanged := False;
	886	end;
	887
	888	procedure TfrmNotes.ShowPCEControls(ShouldShow: Boolean);
	889	begin
	890	sptVert.Visible := ShouldShow;
	891	memPCEShow.Visible := ShouldShow;
	892	if(ShouldShow) then
	893	sptVert.Top := memPCEShow.Top - sptVert.Height;
[541]	894	if (vmHTML in FViewMode) then begin //kt 8/09
	895	HTMLViewer.Invalidate; //kt 8/09
	896	end else begin //kt 8/09
	897	memNote.Invalidate;
	898	end; //kt 8/09
[453]	899	end;
	900
	901	procedure TfrmNotes.DisplayPCE;
	902	{ displays PCE information if appropriate & enables/disabled editing of PCE data }
	903	var
	904	EnableList, ShowList: TDrawers;
	905	VitalStr: TStringlist;
	906	NoPCE: boolean;
	907	ActionSts: TActionRec;
	908	AnIEN: integer;
	909	begin
	910	memPCEShow.Clear;
	911	with lstNotes do if ItemIndex = EditingIndex then
	912	begin
	913	with uPCEEdit do
	914	begin
	915	AddStrData(memPCEShow.Lines);
	916	NoPCE := (memPCEShow.Lines.Count = 0);
	917	VitalStr := TStringList.create;
	918	try
	919	GetVitalsFromDate(VitalStr, uPCEEdit);
	920	AddVitalData(VitalStr, memPCEShow.Lines);
	921	finally
	922	VitalStr.free;
	923	end;
	924	ShowPCEButtons(TRUE);
	925	ShowPCEControls(cmdPCE.Enabled or (memPCEShow.Lines.Count > 0));
	926	if(NoPCE and memPCEShow.Visible) then
	927	memPCEShow.Lines.Insert(0, TX_NOPCE);
	928	memPCEShow.SelStart := 0;
	929
	930	if(InteractiveRemindersActive) then
	931	begin
	932	if(GetReminderStatus = rsNone) then
	933	EnableList := [odTemplates]
	934	else
	935	EnableList := [odTemplates, odReminders];
	936	ShowList := [odTemplates, odReminders];
	937	end
	938	else
	939	begin
	940	EnableList := [odTemplates];
	941	ShowList := [odTemplates];
	942	end;
	943	frmDrawers.DisplayDrawers(TRUE, EnableList, ShowList);
	944	end;
	945	end else
	946	begin
	947	ShowPCEButtons(FALSE);
	948	frmDrawers.DisplayDrawers(TRUE, [odTemplates], [odTemplates]);
	949	AnIEN := lstNotes.ItemIEN;
	950	ActOnDocument(ActionSts, AnIEN, 'VIEW');
	951	if ActionSts.Success then
	952	begin
	953	// StatusText('Retrieving encounter information...'); <-- original line. //kt 7/19/2007
	954	StatusText(DKLangConstW('fNotes_Retrieving_encounter_informationxxx')); //kt added 7/19/2007
	955	with uPCEShow do
	956	begin
	957	NoteDateTime := MakeFMDateTime(Piece(lstNotes.Items[lstNotes.ItemIndex], U, 3));
	958	PCEForNote(AnIEN, uPCEEdit);
	959	AddStrData(memPCEShow.Lines);
	960	NoPCE := (memPCEShow.Lines.Count = 0);
	961	VitalStr := TStringList.create;
	962	try
	963	GetVitalsFromNote(VitalStr, uPCEShow, AnIEN);
	964	AddVitalData(VitalStr, memPCEShow.Lines);
	965	finally
	966	VitalStr.free;
	967	end;
	968	ShowPCEControls(memPCEShow.Lines.Count > 0);
	969	if(NoPCE and memPCEShow.Visible) then
	970	memPCEShow.Lines.Insert(0, TX_NOPCE);
	971	memPCEShow.SelStart := 0;
	972	end;
	973	StatusText('');
	974	end
	975	else
	976	ShowPCEControls(FALSE);
	977	end; {if ItemIndex}
	978	end;
	979
	980	{ supporting calls for writing notes }
	981
	982	function TfrmNotes.GetTitleText(AnIndex: Integer): string;
	983	{ returns non-tabbed text for the title of a note given the ItemIndex in lstNotes }
	984	begin
	985	with lstNotes do
	986	Result := FormatFMDateTime('mmm dd,yy', MakeFMDateTime(Piece(Items[AnIndex], U, 3))) +
	987	' ' + Piece(Items[AnIndex], U, 2) + ', ' + Piece(Items[AnIndex], U, 6) + ', ' +
	988	Piece(Piece(Items[AnIndex], U, 5), ';', 2)
	989	end;
	990
	991	function TfrmNotes.LacksRequiredForCreate: Boolean;
	992	{ determines if the fields required to create the note are present }
	993	var
	994	CurTitle: Integer;
	995	begin
	996	Result := False;
	997	with FEditNote do
	998	begin
	999	if Title <= 0 then Result := True;
	1000	if Author <= 0 then Result := True;
	1001	if DateTime <= 0 then Result := True;
	1002	if IsConsultTitle(Title) and (PkgIEN = 0) then Result := True;
	1003	if IsSurgeryTitle(Title) and (PkgIEN = 0) then Result := True;
	1004	if IsPRFTitle(Title) and (PRF_IEN = 0) and (not DocType = TYP_ADDENDUM) then Result := True;
	1005	if (DocType = TYP_ADDENDUM) then
	1006	begin
	1007	if AskCosignerForDocument(Addend, Author) and (Cosigner <= 0) then Result := True;
	1008	end else
	1009	begin
	1010	if Title > 0 then CurTitle := Title else CurTitle := DocType;
	1011	if AskCosignerForTitle(CurTitle, Author, DateTime) and (Cosigner <= 0) then Result := True;
	1012	end;
	1013	end;
	1014	end;
	1015
	1016	function TfrmNotes.VerifyNoteTitle: Boolean;
	1017	const
	1018	VNT_UNKNOWN = 0;
	1019	VNT_NO = 1;
	1020	VNT_YES = 2;
	1021	var
	1022	AParam: string;
	1023	begin
	1024	if FVerifyNoteTitle = VNT_UNKNOWN then
	1025	begin
	1026	AParam := GetUserParam('ORWOR VERIFY NOTE TITLE');
	1027	if AParam = '1' then FVerifyNoteTitle := VNT_YES else FVerifyNoteTitle := VNT_NO;
	1028	end;
	1029	Result := FVerifyNoteTitle = VNT_YES;
	1030	end;
	1031
	1032	procedure TfrmNotes.SetSubjectVisible(ShouldShow: Boolean);
	1033	{ hide/show subject & resize panel accordingly - leave 6 pixel margin above memNewNote }
	1034	begin
	1035	if ShouldShow then
	1036	begin
	1037	lblSubject.Visible := True;
	1038	txtSubject.Visible := True;
	1039	pnlFields.Height := txtSubject.Top + txtSubject.Height + 6;
	1040	end else
	1041	begin
	1042	lblSubject.Visible := False;
	1043	txtSubject.Visible := False;
	1044	pnlFields.Height := lblVisit.Top + lblVisit.Height + 6;
	1045	end;
	1046	end;
	1047
	1048	{ consult request and note locking }
	1049
	1050	function TfrmNotes.LockConsultRequest(AConsult: Integer): Boolean;
	1051	{ returns true if consult successfully locked }
	1052	begin
	1053	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	1054	// *** I'm not sure about the FOrderID field - if the user is editing one note and
	1055	// deletes another, FOrderID will be for editing note, then delete note, then null
	1056	Result := True;
	1057	FOrderID := GetConsultOrderIEN(AConsult);
	1058	if (FOrderID <> '') and (FOrderID = frmConsults.OrderID) then
	1059	begin
	1060	InfoBox(TX_ORDER_LOCKED, TC_ORDER_LOCKED, MB_OK);
	1061	Result := False;
	1062	Exit;
	1063	end;
	1064	if (FOrderId <> '') then
	1065	if not OrderCanBeLocked(FOrderID) then Result := False;
	1066	if not Result then FOrderID := '';
	1067	end;
	1068
	1069	function TfrmNotes.LockConsultRequestAndNote(AnIEN: Int64): Boolean;
	1070	{ returns true if note and associated request successfully locked }
	1071	var
	1072	AConsult: Integer;
	1073	LockMsg, x: string;
	1074	begin
	1075	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	1076	Result := True;
	1077	AConsult := 0;
	1078	if frmConsults.ActiveEditOf(AnIEN) then
	1079	begin
	1080	InfoBox(TX_ORDER_LOCKED, TC_ORDER_LOCKED, MB_OK);
	1081	Result := False;
	1082	Exit;
	1083	end;
	1084	if Changes.Exist(CH_DOC, IntToStr(AnIEN)) then Exit; // already locked
	1085	// try to lock the consult request first, if there is one
	1086	if IsConsultTitle(TitleForNote(AnIEN)) then
	1087	begin
	1088	x := GetPackageRefForNote(lstNotes.ItemIEN);
	1089	AConsult := StrToIntDef(Piece(x, ';', 1), 0);
	1090	Result := LockConsultRequest(AConsult);
	1091	end;
	1092	// now try to lock the note
	1093	if Result then
	1094	begin
	1095	LockDocument(AnIEN, LockMsg);
	1096	if LockMsg <> '' then
	1097	begin
	1098	Result := False;
	1099	// if can't lock the note, unlock the consult request that was just locked
	1100	if AConsult > 0 then
	1101	begin
	1102	UnlockOrderIfAble(FOrderID);
	1103	FOrderID := '';
	1104	end;
	1105	InfoBox(LockMsg, TC_NO_LOCK, MB_OK);
	1106	end;
	1107	end;
	1108	end;
	1109
	1110	procedure TfrmNotes.UnlockConsultRequest(ANote: Int64; AConsult: Integer = 0);
	1111	(*var
	1112	x: string;*)
	1113	begin
	1114	(* if (AConsult = 0) and IsConsultTitle(TitleForNote(ANote)) then
	1115	begin
	1116	x := GetPackageRefForNote(ANote);
	1117	AConsult := StrToIntDef(Piece(x, ';', 1), 0);
	1118	end;
	1119	if AConsult = 0 then Exit;*)
	1120	if AConsult = 0 then AConsult := GetConsultIENForNote(ANote);
	1121	if AConsult <= 0 then exit;
	1122	FOrderID := GetConsultOrderIEN(AConsult);
	1123	UnlockOrderIfAble(FOrderID);
	1124	FOrderID := '';
	1125	end;
	1126
	1127	function TfrmNotes.ActiveEditOf(AnIEN: Int64; ARequest: integer): Boolean;
	1128	begin
	1129	Result := False;
	1130	if EditingIndex < 0 then Exit;
	1131	if lstNotes.GetIEN(EditingIndex) = AnIEN then
	1132	begin
	1133	Result := True;
	1134	Exit;
	1135	end;
	1136	with FEditNote do if (PkgIEN = ARequest) and (PkgPtr = PKG_CONSULTS) then Result := True;
	1137	end;
	1138
	1139	{ create, edit & save notes }
	1140
	1141	procedure TfrmNotes.InsertNewNote(IsIDChild: boolean; AnIDParent: integer);
	1142	{ creates the editing context for a new progress note & inserts stub into top of view list }
	1143	var
	1144	EnableAutosave, HaveRequired: Boolean;
	1145	CreatedNote: TCreatedDoc;
	1146	TmpBoilerPlate: TStringList;
	1147	tmpNode: TTreeNode;
	1148	x, WhyNot, DocInfo: string;
	1149	tempPos : integer; //kt 6-1-05
[541]	1150	Mode : TViewModeSet; //kt 8/09
	1151	BoilerplateIsHTML : boolean;//kt 8/09
[453]	1152
	1153	begin
	1154	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	1155	if frmFrame.Timedout then Exit;
	1156
	1157	FNewIDChild := IsIDChild;
	1158	EnableAutosave := FALSE;
	1159	TmpBoilerPlate := nil;
	1160	try
	1161	ClearEditControls;
[541]	1162	FEditNote.Lines.Free; //(done d/t full wipe-out on line below} //kt 8/09
[453]	1163	FillChar(FEditNote, SizeOf(FEditNote), 0); //v15.7
[541]	1164	FEditNote.Lines := TStringList.Create; //Freed in Destructor //kt 8/09
[453]	1165	with FEditNote do
	1166	begin
	1167	DocType := TYP_PROGRESS_NOTE;
	1168	IsNewNote := True;
	1169	Title := DfltNoteTitle;
	1170	TitleName := DfltNoteTitleName;
	1171	if IsIDChild and (not CanTitleBeIDChild(Title, WhyNot)) then
	1172	begin
	1173	Title := 0;
	1174	TitleName := '';
	1175	end;
	1176	if IsSurgeryTitle(Title) then // Don't want surgery title sneaking in unchallenged
	1177	begin
	1178	Title := 0;
	1179	TitleName := '';
	1180	end;
[541]	1181	//DateTime := FMNow; //kt 6-1-05
	1182	DateTime := Encounter.DateTime; //kt 6-1-05
[453]	1183	//kt begin changes -------------- 6-1-05
	1184	if LastAuthor<>0 then begin
	1185	Author := LastAuthor;
	1186	AuthorName := LastAuthorName;
	1187	end else begin
	1188	Author := User.DUZ;
	1189	AuthorName := User.Name;
	1190	end;
	1191	//kt 6-1-05 Author := User.DUZ;
	1192	//kt 6-1-05 AuthorName := User.Name;
	1193	//kt end changes -------------- 6-1-05
	1194	Location := Encounter.Location;
	1195	LocationName := Encounter.LocationName;
	1196	VisitDate := Encounter.DateTime;
	1197	if IsIDChild then
	1198	IDParent := AnIDParent
	1199	else
	1200	IDParent := 0;
	1201	// Cosigner & PkgRef, if needed, will be set by fNoteProps
	1202	end;
	1203	// check to see if interaction necessary to get required fields
	1204	GetUnresolvedConsultsInfo;
	1205	if LacksRequiredForCreate or VerifyNoteTitle or uUnresolvedConsults.UnresolvedConsultsExist
	1206	then HaveRequired := ExecuteNoteProperties(FEditNote, CT_NOTES, IsIDChild, FNewIDChild, '', 0)
	1207	else HaveRequired := True;
	1208	//kt begin addition 6-1-05 -----------------
	1209	LastAuthor := FEditNote.Author;
	1210	LastAuthorName := FEditNote.AuthorName;
	1211	tempPos := Pos(' - ',LastAuthorName);
	1212	if tempPos>0 then begin //trim off title, e.g. "Jones,John - Physician
	1213	LastAuthorName:=UpperCase(Trim(MidStr(LastAuthorName,1,tempPos)));
	1214	end;
	1215	//kt end addition 6-1-05 -----------------
	1216	// lock the consult request if there is a consult
	1217	with FEditNote do if (PkgIEN > 0) and (PkgPtr = PKG_CONSULTS) then HaveRequired := LockConsultRequest(PkgIEN);
	1218	if HaveRequired then
	1219	begin
	1220	// set up uPCEEdit for entry of new note
	1221	uPCEEdit.UseEncounter := True;
	1222	uPCEEdit.NoteDateTime := FEditNote.DateTime;
	1223	uPCEEdit.PCEForNote(USE_CURRENT_VISITSTR, uPCEShow);
	1224	FEditNote.NeedCPT := uPCEEdit.CPTRequired;
	1225	// create the note
	1226	PutNewNote(CreatedNote, FEditNote);
	1227	uPCEEdit.NoteIEN := CreatedNote.IEN;
	1228	if CreatedNote.IEN > 0 then LockDocument(CreatedNote.IEN, CreatedNote.ErrorText);
	1229	if CreatedNote.ErrorText = '' then
	1230	begin
	1231	//x := $$RESOLVE^TIUSRVLO formatted string
	1232	//7348^Note Title^3000913^NERD, YOURA (N0165)^1329;Rich Vertigan;VERTIGAN,RICH^8E REHAB MED^complete^Adm: 11/05/98;2981105.095547^ ;^^0^^^2
	1233	with FEditNote do
	1234	begin
	1235	x := IntToStr(CreatedNote.IEN) + U + TitleName + U + FloatToStr(FEditNote.DateTime) + U +
	1236	Patient.Name + U + IntToStr(Author) + ';' + AuthorName + U + LocationName + U + 'new' + U +
	1237	U + U + U + U + U + U + U;
	1238	//Link Note to PRF Action
	1239	if PRF_IEN <> 0 then
	1240	if sCallV('TIU LINK TO FLAG', [CreatedNote.IEN,PRF_IEN,ActionIEN,Patient.DFN]) = '0' then
	1241	ShowMessage('TIU LINK TO FLAG: FAILED');
	1242	end;
	1243
	1244	lstNotes.Items.Insert(0, x);
	1245	uChanging := True;
	1246	tvNotes.Items.BeginUpdate;
	1247	if IsIDChild then
	1248	begin
	1249	tmpNode := tvNotes.FindPieceNode(IntToStr(AnIDParent), 1, U, tvNotes.Items.GetFirstNode);
	1250	tmpNode.ImageIndex := IMG_IDNOTE_OPEN;
	1251	tmpNode.SelectedIndex := IMG_IDNOTE_OPEN;
	1252	tmpNode := tvNotes.Items.AddChildObjectFirst(tmpNode, MakeNoteDisplayText(x), MakeNoteTreeObject(x));
	1253	tmpNode.ImageIndex := IMG_ID_CHILD;
	1254	tmpNode.SelectedIndex := IMG_ID_CHILD;
	1255	end
	1256	else
	1257	begin
	1258	// tmpNode := tvNotes.Items.AddObjectFirst(tvNotes.Items.GetFirstNode, 'New Note in Progress', <-- original line. //kt 7/19/2007
	1259	tmpNode := tvNotes.Items.AddObjectFirst(tvNotes.Items.GetFirstNode, DKLangConstW('fNotes_New_Note_in_Progress'), //kt added 7/19/2007
	1260	MakeNoteTreeObject('NEW^New Note in Progress^^^^^^^^^^^%^0'));
	1261	TORTreeNode(tmpNode).StringData := 'NEW^New Note in Progress^^^^^^^^^^^%^0';
	1262	tmpNode.ImageIndex := IMG_TOP_LEVEL;
	1263	tmpNode := tvNotes.Items.AddChildObjectFirst(tmpNode, MakeNoteDisplayText(x), MakeNoteTreeObject(x));
	1264	tmpNode.ImageIndex := IMG_SINGLE;
	1265	tmpNode.SelectedIndex := IMG_SINGLE;
	1266	end;
	1267	tmpNode.StateIndex := IMG_NO_IMAGES;
	1268	TORTreeNode(tmpNode).StringData := x;
	1269	tvNotes.Selected := tmpNode;
	1270	tvNotes.Items.EndUpdate;
	1271	uChanging := False;
	1272	Changes.Add(CH_DOC, IntToStr(CreatedNote.IEN), GetTitleText(0), '', CH_SIGN_YES);
	1273	lstNotes.ItemIndex := 0;
	1274	EditingIndex := 0;
	1275	SetSubjectVisible(AskSubjectForNotes);
	1276	if not assigned(TmpBoilerPlate) then
	1277	TmpBoilerPlate := TStringList.Create;
	1278	LoadBoilerPlate(TmpBoilerPlate, FEditNote.Title);
	1279	FChanged := False;
	1280	cmdChangeClick(Self); // will set captions, sign state for Changes
[541]	1281	Mode := [vmEdit] + [vmHTML_MODE[fOptionsNotes.DefaultEditHTMLMode]]; //kt 8/09
	1282	SetDisplayToHTMLvsText(Mode, nil, VIEW_ACTIVATE_ONLY); // kt 8/09
[453]	1283	lstNotesClick(Self); // will make pnlWrite visible
	1284	if timAutoSave.Interval <> 0 then EnableAutosave := TRUE;
[541]	1285	//kt 6/3/09 original --> if txtSubject.Visible then txtSubject.SetFocus else memNewNote.SetFocus;
	1286	if txtSubject.Visible then begin //kt 8/09
	1287	txtSubject.SetFocus; //kt 8/09
	1288	end else begin //kt 8/09
	1289	SetEditorFocus; //kt memNewNote.SetFocus; //kt 8/09
	1290	end; //kt 8/09
[453]	1291	end else
	1292	begin
	1293	// if note creation failed or failed to get note lock (both unlikely), unlock consult
	1294	with FEditNote do if (PkgIEN > 0) and (PkgPtr = PKG_CONSULTS) then UnlockConsultRequest(0, PkgIEN);
	1295	InfoBox(CreatedNote.ErrorText, TX_CREATE_ERR, MB_OK);
	1296	HaveRequired := False;
	1297	end; {if CreatedNote.IEN}
	1298	end; {if HaveRequired}
	1299	if not HaveRequired then
	1300	begin
	1301	ClearEditControls;
	1302	ShowPCEButtons(False);
	1303	end;
	1304	finally
	1305	if assigned(TmpBoilerPlate) then
	1306	begin
	1307	DocInfo := MakeXMLParamTIU(IntToStr(CreatedNote.IEN), FEditNote);
	1308	ExecuteTemplateOrBoilerPlate(TmpBoilerPlate, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo);
[541]	1309	//kt original --> memNewNote.Lines.Assign(TmpBoilerPlate);
	1310	BoilerplateIsHTML := rHTMLTools.IsHTML(TmpBoilerPlate.Text); //kt 8/09
	1311	FEditNote.Lines.Assign(TmpBoilerPlate); //kt 8/09
	1312	if not ((vmHTML in FViewMode)) and BoilerplateIsHTML then begin //kt 8/09
	1313	FViewMode := FViewMode - [vmText] + [vmHTML]; //kt 8/09
	1314	end; //kt 8/09
	1315	SetDisplayToHTMLvsText(FViewMode,FEditNote.Lines); //kt 8/09
	1316	if (vmHTML in FViewMode) then begin //kt 8/09
	1317	HtmlEditor.MoveCaretToEnd; //kt 8/09
	1318	Application.ProcessMessages; //kt 8/09
	1319	end; //kt 8/09
[453]	1320	UpdateNoteAuthor(DocInfo);
	1321	TmpBoilerPlate.Free;
	1322	end;
	1323	if EnableAutosave then // Don't enable autosave until after dialog fields have been resolved
	1324	timAutoSave.Enabled := True;
	1325	end;
	1326	frmNotes.pnlWriteResize(Self);
	1327	end;
	1328
[541]	1329
	1330	procedure TfrmNotes.SetEditorFocus;
	1331	//kt added function 8/09
	1332	begin
	1333	try
	1334	if (vmHTML in FViewMode) then begin //kt 8/09
	1335	HtmlEditor.SetFocus; //kt 8/09
	1336	end else begin //kt 8/09
	1337	memNewNote.SetFocus;
	1338	end; //kt 8/09
	1339	except
	1340	on E: Exception do begin
	1341	// ignore error. Info in E
	1342	end;
	1343	end;
	1344	end;
	1345
	1346
[453]	1347	procedure TfrmNotes.InsertAddendum;
	1348	{ sets up fields of pnlWrite to write an addendum for the selected note }
	1349	const
	1350	AS_ADDENDUM = True;
	1351	IS_ID_CHILD = False;
	1352	var
	1353	HaveRequired: Boolean;
	1354	CreatedNote: TCreatedDoc;
	1355	tmpNode: TTreeNode;
	1356	x: string;
	1357	begin
	1358	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	1359	ClearEditControls;
	1360	with FEditNote do
	1361	begin
	1362	DocType := TYP_ADDENDUM;
	1363	IsNewNote := False;
	1364	Title := TitleForNote(lstNotes.ItemIEN);
	1365	TitleName := Piece(lstNotes.Items[lstNotes.ItemIndex], U, 2);
	1366	if Copy(TitleName,1,1) = '+' then TitleName := Copy(TitleName, 3, 199);
	1367	DateTime := FMNow;
	1368	Author := User.DUZ;
	1369	AuthorName := User.Name;
	1370	x := GetPackageRefForNote(lstNotes.ItemIEN);
	1371	if Piece(x, U, 1) <> '-1' then
	1372	begin
	1373	PkgRef := GetPackageRefForNote(lstNotes.ItemIEN);
	1374	PkgIEN := StrToIntDef(Piece(PkgRef, ';', 1), 0);
	1375	PkgPtr := Piece(PkgRef, ';', 2);
	1376	end;
	1377	Addend := lstNotes.ItemIEN;
	1378	//Lines := memNewNote.Lines;
	1379	// Cosigner, if needed, will be set by fNoteProps
	1380	// Location info will be set after the encounter is loaded
	1381	end;
	1382	// check to see if interaction necessary to get required fields
	1383	if LacksRequiredForCreate
	1384	then HaveRequired := ExecuteNoteProperties(FEditNote, CT_NOTES, IS_ID_CHILD, False, '', 0)
	1385	else HaveRequired := True;
	1386	// lock the consult request if there is a consult
	1387	if HaveRequired then
	1388	with FEditNote do
	1389	if (PkgIEN > 0) and (PkgPtr = PKG_CONSULTS) then HaveRequired := LockConsultRequest(PkgIEN);
	1390	if HaveRequired then
	1391	begin
	1392	uPCEEdit.NoteDateTime := FEditNote.DateTime;
	1393	uPCEEdit.PCEForNote(FEditNote.Addend, uPCEShow);
	1394	FEditNote.Location := uPCEEdit.Location;
	1395	FEditNote.LocationName := ExternalName(uPCEEdit.Location, 44);
	1396	FEditNote.VisitDate := uPCEEdit.DateTime;
	1397	PutAddendum(CreatedNote, FEditNote, FEditNote.Addend);
	1398	uPCEEdit.NoteIEN := CreatedNote.IEN;
	1399	if CreatedNote.IEN > 0 then LockDocument(CreatedNote.IEN, CreatedNote.ErrorText);
	1400	if CreatedNote.ErrorText = '' then
	1401	begin
	1402	with FEditNote do
	1403	begin
	1404	x := IntToStr(CreatedNote.IEN) + U + 'Addendum to ' + TitleName + U + FloatToStr(DateTime) + U +
	1405	Patient.Name + U + IntToStr(Author) + ';' + AuthorName + U + LocationName + U + 'new' + U +
	1406	U + U + U + U + U + U + U;
	1407	end;
	1408
	1409	lstNotes.Items.Insert(0, x);
	1410	uChanging := True;
	1411	tvNotes.Items.BeginUpdate;
	1412	// tmpNode := tvNotes.Items.AddObjectFirst(tvNotes.Items.GetFirstNode, 'New Addendum in Progress', <-- original line. //kt 7/19/2007
	1413	tmpNode := tvNotes.Items.AddObjectFirst(tvNotes.Items.GetFirstNode, DKLangConstW('fNotes_New_Addendum_in_Progress'), //kt added 7/19/2007
	1414	MakeNoteTreeObject('ADDENDUM^New Addendum in Progress^^^^^^^^^^^%^0'));
	1415	TORTreeNode(tmpNode).StringData := 'ADDENDUM^New Addendum in Progress^^^^^^^^^^^%^0';
	1416	tmpNode.ImageIndex := IMG_TOP_LEVEL;
	1417	tmpNode := tvNotes.Items.AddChildObjectFirst(tmpNode, MakeNoteDisplayText(x), MakeNoteTreeObject(x));
	1418	TORTreeNode(tmpNode).StringData := x;
	1419
	1420	tmpNode.ImageIndex := IMG_ADDENDUM;
	1421	tmpNode.SelectedIndex := IMG_ADDENDUM;
	1422	tvNotes.Selected := tmpNode;
	1423	tvNotes.Items.EndUpdate;
	1424	uChanging := False;
	1425	Changes.Add(CH_DOC, IntToStr(CreatedNote.IEN), GetTitleText(0), '', CH_SIGN_YES);
	1426	lstNotes.ItemIndex := 0;
	1427	EditingIndex := 0;
	1428	SetSubjectVisible(AskSubjectForNotes);
	1429	cmdChangeClick(Self); // will set captions, sign state for Changes
	1430	lstNotesClick(Self); // will make pnlWrite visible
	1431	if timAutoSave.Interval <> 0 then timAutoSave.Enabled := True;
[541]	1432	SetEditorFocus; //kt memNewNote.SetFocus; //kt 8/09
[453]	1433	end else
	1434	begin
	1435	// if note creation failed or failed to get note lock (both unlikely), unlock consult
	1436	with FEditNote do if (PkgIEN > 0) and (PkgPtr = PKG_CONSULTS) then UnlockConsultRequest(0, PkgIEN);
	1437	InfoBox(CreatedNote.ErrorText, TX_CREATE_ERR, MB_OK);
	1438	HaveRequired := False;
	1439	end; {if CreatedNote.IEN}
	1440	end; {if HaveRequired}
	1441	if not HaveRequired then ClearEditControls;
	1442	end;
	1443
	1444	procedure TfrmNotes.LoadForEdit;
	1445	{ retrieves an existing note and places the data in the fields of pnlWrite }
	1446	var
	1447	tmpNode: TTreeNode;
	1448	x: string;
[541]	1449	Mode : TViewModeSet; //kt
	1450
[453]	1451	begin
	1452	ClearEditControls;
	1453	if not LockConsultRequestAndNote(lstNotes.ItemIEN) then Exit;
	1454	EditingIndex := lstNotes.ItemIndex;
	1455	Changes.Add(CH_DOC, lstNotes.ItemID, GetTitleText(EditingIndex), '', CH_SIGN_YES);
	1456	GetNoteForEdit(FEditNote, lstNotes.ItemIEN);
[541]	1457	Mode := [vmEdit] + [vmHTML_MODE[IsHTML(FEditNote.Lines) or (vmHTML in FViewMode)]]; //kt 8/09
	1458	SetDisplayToHTMLvsText(Mode,FEditNote.Lines); //kt 8/09
	1459	//kt memNewNote.Lines.Assign(FEditNote.Lines); //kt 8/09
[453]	1460	FChanged := False;
	1461	if FEditNote.Title = TYP_ADDENDUM then
	1462	begin
	1463	FEditNote.DocType := TYP_ADDENDUM;
	1464	FEditNote.TitleName := Piece(lstNotes.Items[lstNotes.ItemIndex], U, 2);
	1465	if Copy(FEditNote.TitleName,1,1) = '+' then FEditNote.TitleName := Copy(FEditNote.TitleName, 3, 199);
	1466	// if CompareText(Copy(FEditNote.TitleName, 1, 8), 'Addendum') <> 0 <-- original line. //kt 7/19/2007
	1467	if CompareText(Copy(FEditNote.TitleName, 1, 8), DKLangConstW('fNotes_Addendum')) <> 0 //kt added 7/19/2007
	1468	// then FEditNote.TitleName := FEditNote.TitleName + 'Addendum to '; <-- original line. //kt 7/19/2007
	1469	then FEditNote.TitleName := FEditNote.TitleName + DKLangConstW('fNotes_Addendum_to'); //kt added 7/19/2007
	1470	end;
	1471
	1472	uChanging := True;
	1473	tvNotes.Items.BeginUpdate;
	1474
	1475	tmpNode := tvNotes.FindPieceNode('EDIT', 1, U, nil);
	1476	if tmpNode = nil then
	1477	begin
	1478	// tmpNode := tvNotes.Items.AddObjectFirst(tvNotes.Items.GetFirstNode, 'Note being edited', <-- original line. //kt 7/19/2007
	1479	tmpNode := tvNotes.Items.AddObjectFirst(tvNotes.Items.GetFirstNode, DKLangConstW('fNotes_Note_being_edited'), //kt added 7/19/2007
	1480	MakeNoteTreeObject('EDIT^Note being edited^^^^^^^^^^^%^0'));
	1481	TORTreeNode(tmpNode).StringData := 'EDIT^Note being edited^^^^^^^^^^^%^0';
	1482	end
	1483	else
	1484	tmpNode.DeleteChildren;
	1485	x := lstNotes.Items[lstNotes.ItemIndex];
	1486	tmpNode.ImageIndex := IMG_TOP_LEVEL;
	1487	tmpNode := tvNotes.Items.AddChildObjectFirst(tmpNode, MakeNoteDisplayText(x), MakeNoteTreeObject(x));
	1488	TORTreeNode(tmpNode).StringData := x;
	1489	//if CompareText(Copy(FEditNote.TitleName, 1, 8), 'Addendum') <> 0 then <-- original line. //kt 7/19/2007
	1490	if CompareText(Copy(FEditNote.TitleName, 1, 8), DKLangConstW('fNotes_Addendum')) <> 0 then //kt added 7/19/2007
	1491	tmpNode.ImageIndex := IMG_SINGLE
	1492	else
	1493	tmpNode.ImageIndex := IMG_ADDENDUM;
	1494	tmpNode.SelectedIndex := tmpNode.ImageIndex;
	1495	tvNotes.Selected := tmpNode;
	1496	tvNotes.Items.EndUpdate;
	1497	uChanging := False;
	1498
	1499	uPCEEdit.NoteDateTime := MakeFMDateTime(Piece(lstNotes.Items[lstNotes.ItemIndex], U, 3));
	1500	uPCEEdit.PCEForNote(lstNotes.ItemIEN, uPCEShow);
	1501	FEditNote.NeedCPT := uPCEEdit.CPTRequired;
	1502	txtSubject.Text := FEditNote.Subject;
	1503	SetSubjectVisible(AskSubjectForNotes);
	1504	cmdChangeClick(Self); // will set captions, sign state for Changes
	1505	lstNotesClick(Self); // will make pnlWrite visible
	1506	if timAutoSave.Interval <> 0 then timAutoSave.Enabled := True;
[541]	1507	SetEditorFocus; //kt memNewNote.SetFocus; //kt 8/09
[453]	1508	end;
	1509
	1510	procedure TfrmNotes.SaveEditedNote(var Saved: Boolean);
	1511	{ validates fields and sends the updated note to the server }
	1512	var
	1513	UpdatedNote: TCreatedDoc;
	1514	x: string;
[541]	1515	EmptyNote : boolean; //kt
	1516
[453]	1517	begin
	1518	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	1519	Saved := False;
[541]	1520	if not (vmHTML in FViewMode) then begin //kt 8/09
	1521	EmptyNote := (memNewNote.GetTextLen = 0) //kt 8/09
	1522	or (not ContainsVisibleChar(memNewNote.Text)); //kt 8/09
	1523	end else begin //kt 8/09
	1524	EmptyNote := (HtmlEditor.GetTextLen = 0) //kt 8/09
	1525	or (not ContainsVisibleChar(HtmlEditor.Text)); //kt 8/09
	1526	end; //kt 8/09
	1527	//kt 8/09 if (memNewNote.GetTextLen = 0) or (not ContainsVisibleChar(memNewNote.Text)) then
	1528	//kt 8/09 begin
	1529	if EmptyNote then begin
[453]	1530	lstNotes.ItemIndex := EditingIndex;
	1531	x := lstNotes.ItemID;
	1532	uChanging := True;
	1533	tvNotes.Selected := tvNotes.FindPieceNode(x, 1, U, tvNotes.Items.GetFirstNode);
	1534	uChanging := False;
	1535	tvNotesChange(Self, tvNotes.Selected);
	1536	if FSilent or
	1537	((not FSilent) and
	1538	(InfoBox(GetTitleText(EditingIndex) + TX_EMPTY_NOTE, TC_EMPTY_NOTE, MB_YESNO) = IDYES))
	1539	then
	1540	begin
	1541	FConfirmed := True;
	1542	mnuActDeleteClick(Self);
	1543	Saved := True;
	1544	FDeleted := True;
	1545	end
	1546	else
	1547	FConfirmed := False;
	1548	Exit;
	1549	end;
	1550	//ExpandTabsFilter(memNewNote.Lines, TAB_STOP_CHARS);
[541]	1551	if FEditNote.Lines = nil then FEditNote.Lines := TStringList.Create; //kt
	1552	//kt 8/09 FEditNote.Lines := memNewNote.Lines;
	1553	if (vmHTML in FViewMode) then begin //kt 8/09
	1554	SplitToArray(WrapHTML(HtmlEditor.HTMLText), FEditNote.Lines); //kt 8/09
[793]	1555	rHTMLTools.InsertSubs(FEditNote.Lines); //kt 4/21/10
[541]	1556	end else begin //kt 8/09
	1557	FEditNote.Lines.Assign(memNewNote.Lines); //kt 8/09
	1558	end; //kt 8/09
[453]	1559	//FEditNote.Lines:= SetLinesTo74ForSave(memNewNote.Lines, Self);
	1560	FEditNote.Subject := txtSubject.Text;
	1561	FEditNote.NeedCPT := uPCEEdit.CPTRequired;
	1562	timAutoSave.Enabled := False;
	1563	try
	1564	PutEditedNote(UpdatedNote, FEditNote, lstNotes.GetIEN(EditingIndex));
	1565	finally
	1566	timAutoSave.Enabled := True;
	1567	end;
	1568	// there's no unlocking here since the note is still in Changes after a save
	1569	if UpdatedNote.IEN > 0 then
	1570	begin
	1571	if lstNotes.ItemIndex = EditingIndex then
	1572	begin
	1573	EditingIndex := -1;
	1574	lstNotesClick(Self);
	1575	end;
	1576	EditingIndex := -1; // make sure EditingIndex reset even if not viewing edited note
	1577	Saved := True;
	1578	FNewIDChild := False;
	1579	FChanged := False;
[541]	1580	HTMLEditor.KeyStruck := false; //kt
[453]	1581	end else
	1582	begin
	1583	if not FSilent then
	1584	InfoBox(TX_SAVE_ERROR1 + UpdatedNote.ErrorText + TX_SAVE_ERROR2, TC_SAVE_ERROR, MB_OK or MB_ICONWARNING);
	1585	end;
	1586	end;
	1587
	1588	procedure TfrmNotes.SaveCurrentNote(var Saved: Boolean);
	1589	{ called whenever a note should be saved - uses IEN to call appropriate save logic }
	1590	begin
	1591	if EditingIndex < 0 then Exit;
	1592	SaveEditedNote(Saved);
	1593	end;
	1594
	1595	{ Form events ------------------------------------------------------------------------------ }
	1596
	1597	procedure TfrmNotes.FormCreate(Sender: TObject);
	1598	var
	1599	CacheDir : AnsiString; //kt 9-05
	1600	begin
	1601	inherited;
[541]	1602	//kt --- Begin Modification 9-2005, 8/09 -------------
[686]	1603	fOptionsNotes.Loaded; //ported from version .15 1-27-10
[453]	1604	CacheDir := ExtractFilePath(ParamStr(0))+ 'Cache'; //kt 9-05
[541]	1605	if not DirectoryExists(CacheDir) then CreateDir(CacheDir);
	1606	//kt HTMLfilename := CacheDir + '\html_note.html'; //kt 5-05
[453]	1607	LastAuthor :=0; //kt 5-05
	1608	LastAuthorName:=''; //kt 5-05
[541]	1609	DesiredHTMLFontSize := 2; //Used later to downsize during printing.
	1610	SetRegHTMLFontSize(DesiredHTMLFontSize); //0=SMALLEST ... 4=LARGEST
	1611	//kt Note: On creation, THtmlObj will remember Application.OnMessage. But if
	1612	// another object (say a prior THtmlObj) has become active and already
	1613	// changed the handler, then there will be a problem. So probably best
[819]	1614	// to create them all at once. //kt
[541]	1615	HtmlViewer := THtmlObj.Create(pnlHTMLViewer,Application);
	1616	HtmlEditor := THtmlObj.Create(pnlHTMLEdit,Application);
	1617	TWinControl(HtmlViewer).Parent:=pnlHTMLViewer;
	1618	TWinControl(HtmlViewer).Align:=alClient;
	1619	HtmlEditor.PrevControl := cmdPCE;
	1620	HtmlEditor.NextControl := cmdChange;
	1621	//Note: A 'loaded' function will initialize the THtmlObj's, but it can't be
	1622	// done until after this constructor is done, and this TfrmNotes has been
	1623	// assigned a parent. So done elsewhere.
	1624	HtmlViewer.PopupMenu := popNoteMemo;
	1625	TWinControl(HtmlEditor).Parent:=pnlHTMLEdit;
	1626	TWinControl(HtmlEditor).Align:=alClient;
	1627	HtmlEditor.PopupMenu := popNoteMemo;
	1628	cbFontNames.Items.Assign(Screen.Fonts);
	1629	FViewMode := [vmView,vmText];
	1630	FHTMLEditMode := emNone;
	1631	HTMLViewer.BackgroundColor := ReadOnlyColor;
	1632	//kt --- End Modification 9-2005, 8/09 ------
[453]	1633	PageID := CT_NOTES;
	1634	memNote.Color := ReadOnlyColor;
	1635	memPCEShow.Color := ReadOnlyColor;
	1636	lblNewTitle.Color := ReadOnlyColor;
	1637	EditingIndex := -1;
	1638	FEditNote.LastCosigner := 0;
	1639	FEditNote.LastCosignerName := '';
	1640	FLastNoteID := '';
	1641	frmDrawers := TfrmDrawers.CreateDrawers(Self, pnlDrawers, [],[]);
	1642	frmDrawers.Align := alBottom;
	1643	frmDrawers.RichEditControl := memNewNote;
[541]	1644	frmDrawers.HTMLEditControl := HtmlEditor; //kt 8/09
	1645	frmDrawers.HTMLModeSwitcher := SetHTMLEditMode; //kt 8/09
[453]	1646	frmDrawers.NewNoteButton := cmdNewNote;
	1647	frmDrawers.Splitter := splDrawers;
	1648	frmDrawers.DefTempPiece := 1;
	1649	tvNotes.Images := dmodShared.imgNotes;
	1650	tvNotes.StateImages := dmodShared.imgImages;
	1651	lvNotes.StateImages := dmodShared.imgImages;
	1652	lvNotes.SmallImages := dmodShared.imgNotes;
	1653	FImageFlag := TBitmap.Create;
	1654	FDocList := TStringList.Create;
	1655	TAccessibleTreeView.WrapControl(tvNotes);
[541]	1656	RestoreRegHTMLFontSize; //kt, elh 8/09
[453]	1657	end;
	1658
	1659	procedure TfrmNotes.pnlRightResize(Sender: TObject);
	1660	{ memNote (TRichEdit) doesn't repaint appropriately unless it's parent panel is refreshed }
	1661	begin
	1662	inherited;
	1663	pnlRight.Refresh;
[541]	1664	if (vmHTML in FViewMode) then begin //kt 8/09
	1665	HTMLViewer.Repaint; //kt 8/09
	1666	end else begin //kt 8/09
	1667	memNote.Repaint
	1668	end; //kt 8/09
[453]	1669	end;
	1670
	1671	procedure TfrmNotes.pnlWriteResize(Sender: TObject);
	1672	const
	1673	LEFT_MARGIN = 4;
	1674	begin
	1675	inherited;
[541]	1676	//kt NOTE: I don't know how to do the equivalent for HTML. Actually, I don't think it applies.
[453]	1677	LimitEditWidth(memNewNote, MAX_PROGRESSNOTE_WIDTH - 1);
	1678
	1679	//CQ7012 Added test for nil
	1680	if memNewNote <> nil then
	1681	memNewNote.Constraints.MinWidth := TextWidthByFont(memNewNote.Font.Handle, StringOfChar('X', MAX_PROGRESSNOTE_WIDTH)) + (LEFT_MARGIN * 2) + ScrollBarWidth;
	1682	//CQ7012 Added test for nil
	1683	if (Self <> nil) and (pnlLeft <> nil) and (pnlWrite <> nil) and (sptHorz <> nil) then
	1684	pnlLeft.Width := self.ClientWidth - pnlWrite.Width - sptHorz.Width;
	1685	end;
	1686
	1687	{ Left panel (selector) events ------------------------------------------------------------- }
	1688
	1689	procedure TfrmNotes.lstNotesClick(Sender: TObject);
	1690	{ loads the text for the selected note or displays the editing panel for the selected note }
	1691	var
[541]	1692	Note : TStrings; //kt 6/09. Will be pointer to FViewNote, or FEditNote.Lines
	1693	Editing : boolean; //kt 8/09
	1694	Mode : TViewModeSet; //kt 8/09
	1695	IsHTML : boolean; //kt 8/09
	1696
[453]	1697	begin
	1698	inherited;
[541]	1699	//kt 8/09 with lstNotes do if ItemIndex = -1 then Exit
	1700	//kt 8/09 else if ItemIndex = EditingIndex then
[453]	1701
[541]	1702	with lstNotes do begin //kt 8/09
	1703	if ItemIndex = -1 then Exit; //kt 8/09
	1704	Editing := (ItemIndex = EditingIndex); //kt 8/09
	1705	if Editing then begin //kt 8/09
	1706	if FEditNote.Lines = nil then FEditNote.Lines := TStringList.Create; //kt 8/09
	1707	Note := FEditNote.Lines; //kt 8/09
	1708	mnuViewDetail.Enabled := False;
	1709	if (FEditNote.IDParent <> 0) and (not FNewIDChild) then
	1710	mnuActChange.Enabled := False
	1711	else
	1712	mnuActChange.Enabled := True;
	1713	mnuActLoadBoiler.Enabled := True;
	1714	UpdateReminderFinish;
	1715	Mode := [vmEdit] + [vmHTML_MODE[(FHTMLEditMode=emHTML)]]; //kt 8/09
	1716	SetDisplayToHTMLvsText(Mode,FEditNote.Lines,VIEW_ACTIVATE_ONLY); //kt 8/09
	1717	FWarmedUp := true; //kt 8/09
	1718	end else begin
	1719	// StatusText('Retrieving selected progress note...'); <-- original line. //kt 7/19/2007
	1720	StatusText(DKLangConstW('fNotes_Retrieving_selected_progress_notexxx')); //kt added 7/19/2007
	1721	Screen.Cursor := crAppStart; //kt changed from crHourGlass; 1/1/05
	1722	//kt 8/09 pnlRead.Visible := True;
	1723	//kt 8/09 pnlWrite.Visible := False;
	1724	UpdateReminderFinish;
	1725	lblTitle.Caption := Piece(Piece(Items[ItemIndex], U, 8), ';', 1) + #9 + Piece(Items[ItemIndex], U, 2) + ', ' +
	1726	Piece(Items[ItemIndex], U, 6) + ', ' + Piece(Piece(Items[ItemIndex], U, 5), ';', 2) +
	1727	' (' + FormatFMDateTime('mmm dd,yy@hh:nn', MakeFMDateTime(Piece(Items[ItemIndex], U, 3)))
	1728	+ ')';
	1729	lvNotes.Caption := lblTitle.Caption;
	1730	//kt 8/09 LoadDocumentText(memNote.Lines, ItemIEN);
	1731	LoadDocumentText(FViewNote, ItemIEN); //kt 8/09
	1732	Note := FViewNote; //kt 8/09
	1733	memNote.SelStart := 0;
	1734	mnuViewDetail.Enabled := True;
	1735	mnuViewDetail.Checked := False;
	1736	mnuActChange.Enabled := False;
	1737	mnuActLoadBoiler.Enabled := False;
	1738	Screen.Cursor := crDefault;
	1739	StatusText('');
	1740	IsHTML := rHTMLTools.IsHTML(FViewNote); //kt 8/09
	1741	Mode := [vmView] + [vmHTML_MODE[IsHTML]]; //kt 8/09
	1742	SetDisplayToHTMLvsText(Mode,FViewNote); //kt 8/09
	1743	if not FWarmedUp and IsHTML then begin //kt 8/09
	1744	FWarmedUp := true; //kt 8/09
	1745	//First HTML page won't display without this... //kt 8/09
	1746	SetDisplayToHTMLvsText(Mode,FViewNote); //kt 8/09
	1747	end; //kt 8/09
	1748	end;
	1749	end; //kt 8/09
[453]	1750
[541]	1751	if(assigned(frmReminderTree)) then frmReminderTree.EnableActions;
[453]	1752	//DisplayPCE; //kt 5-31-05 (moved down below)
	1753	pnlRight.Refresh;
[541]	1754	ProperRepaint(Editing); //kt 8/09
	1755	//kt 8/09 memNewNote.Repaint;
	1756	//kt 8/09 memNote.Repaint;
[453]	1757	NotifyOtherApps(NAE_REPORT, 'TIU^' + lstNotes.ItemID);
[729]	1758	frmImages.NewNoteSelected(Editing); //kt 9/05
[541]	1759	DisplayPCE; //kt 5-31-05 (move down from above)
	1760	BroadcastImages(Note); //kt 8/09
[453]	1761
	1762	//-----------------------------
[541]	1763	//kt RESTORE LATER... frmImages.NewNoteSelected(lstNotes.ItemIndex=EditingIndex); //kt added 9-20-05
	1764	end;
	1765
	1766	procedure TfrmNotes.ProperRepaint(Editing : Boolean);
	1767	//kt Added function 8/09
	1768	begin
	1769	if Editing then begin
	1770	if (vmHTML in FViewMode) then begin
	1771	HtmlEditor.Repaint;
	1772	end else begin
	1773	memNewNote.Repaint;
	1774	end;
	1775	end else begin
	1776	if (vmHTML in FViewMode) then begin
	1777	HtmlViewer.Repaint;
	1778	end else begin
	1779	memNote.Repaint;
	1780	end;
	1781	end;
	1782	Application.ProcessMessages;
	1783	end;
	1784
	1785	procedure TfrmNotes.BroadcastImages(Note: TStrings);
	1786	//kt added function 8/09
	1787	var
	1788	ImageList : TStringList;
	1789	i : integer;
	1790	begin
[453]	1791	ImageList := TStringList.Create;
[541]	1792	if rHTMLTools.CheckForImageLink(Note, ImageList) then begin
[453]	1793	for i:= 0 to ImageList.Count-1 do begin
	1794	NotifyOtherApps(NAE_REPORT, 'IMAGE^' + ImageList.Strings[i]);
	1795	end;
	1796	end;
	1797	ImageList.Free;
	1798	end;
	1799
[541]	1800	function TfrmNotes.EditorHasText : boolean;
	1801	//kt added function 8/09
	1802	begin
	1803	if (vmHTML in FViewMode) then begin
	1804	Result := (HTMLViewer.Text <> '');
	1805	end else begin
	1806	Result := (memNote.Lines.Count > 0);
	1807	end;
	1808	end;
	1809
[453]	1810	procedure TfrmNotes.cmdNewNoteClick(Sender: TObject);
	1811	//{ maps 'New Note' button to the New Progress Note menu item } <-- original line. //kt 7/19/2007
	1812	{ maps DKLangConstW('fNotes_New_Note') button to the New Progress Note menu item } //kt added 7/19/2007
	1813	begin
	1814	inherited;
	1815	mnuActNewClick(Self);
	1816	end;
	1817
	1818	procedure TfrmNotes.cmdPCEClick(Sender: TObject);
	1819	var
	1820	Refresh: boolean;
	1821	ActionSts: TActionRec;
	1822	AnIEN: integer;
	1823	PCEObj, tmpPCEEdit: TPCEData;
	1824
	1825	procedure UpdateEncounterInfo;
	1826	begin
	1827	if not FEditingNotePCEObj then
	1828	begin
	1829	PCEObj := nil;
	1830	AnIEN := lstNotes.ItemIEN;
[541]	1831	//kt 8/09 if (AnIEN <> 0) and (memNote.Lines.Count > 0) then
	1832	if (AnIEN <> 0) and EditorHasText then //kt 8/09
[453]	1833	begin
	1834	ActOnDocument(ActionSts, AnIEN, 'VIEW');
	1835	if ActionSts.Success then
	1836	begin
	1837	uPCEShow.CopyPCEData(uPCEEdit);
	1838	PCEObj := uPCEEdit;
	1839	end;
	1840	end;
	1841	Refresh := EditPCEData(PCEObj);
	1842	end
	1843	else
	1844	begin
	1845	UpdatePCE(uPCEEdit);
	1846	Refresh := TRUE;
	1847	end;
	1848	if Refresh and (not frmFrame.Closing) then
	1849	DisplayPCE;
	1850	end;
	1851
	1852	begin
	1853	inherited;
	1854	cmdPCE.Enabled := FALSE;
	1855	if lstNotes.ItemIndex <> EditingIndex then
	1856	// save uPCEEdit for note being edited, before updating current note's encounter, then restore (RV - TAM-0801-31056)
	1857	begin
	1858	tmpPCEEdit := TPCEData.Create;
	1859	try
	1860	uPCEEdit.CopyPCEData(tmpPCEEdit);
	1861	UpdateEncounterInfo;
	1862	tmpPCEEdit.CopyPCEData(uPCEEdit);
	1863	finally
	1864	tmpPCEEdit.Free;
	1865	end;
	1866	end
	1867	else
	1868	// no other note being edited, so just proceed as before.
	1869	UpdateEncounterInfo;
	1870	if cmdPCE <> nil then
	1871	cmdPCE.Enabled := TRUE
	1872	end;
	1873
	1874	{ Right panel (editor) events -------------------------------------------------------------- }
	1875
	1876	procedure TfrmNotes.mnuActChangeClick(Sender: TObject);
	1877	begin
	1878	inherited;
	1879	if (FEditingIndex < 0) or (lstNotes.ItemIndex <> FEditingIndex) then Exit;
	1880	cmdChangeClick(Sender);
	1881	end;
	1882
	1883	procedure TfrmNotes.mnuActLoadBoilerClick(Sender: TObject);
	1884	var
	1885	NoteEmpty: Boolean;
	1886	BoilerText: TStringList;
	1887	DocInfo: string;
	1888
	1889	procedure AssignBoilerText;
	1890	begin
	1891	ExecuteTemplateOrBoilerPlate(BoilerText, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo);
[541]	1892	SetDisplayToHTMLvsText([vmHTML,vmEdit],BoilerText); //kt 8/09
	1893	//kt 8/09 memNewNote.Lines.Assign(BoilerText);
[453]	1894	UpdateNoteAuthor(DocInfo);
	1895	FChanged := False;
	1896	end;
	1897
	1898	begin
	1899	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	1900	inherited;
	1901	if (FEditingIndex < 0) or (lstNotes.ItemIndex <> FEditingIndex) then Exit;
	1902	BoilerText := TStringList.Create;
	1903	try
[541]	1904	if (vmHTML in FViewMode) then begin //kt 8/09
	1905	NoteEmpty := (HTMLEditor.Text = ''); //kt 8/09
	1906	end else begin //kt 8/09
	1907	NoteEmpty := memNewNote.Text = '';
	1908	end; //kt 8/09
[453]	1909	LoadBoilerPlate(BoilerText, FEditNote.Title);
	1910	if (BoilerText.Text <> '') or
	1911	assigned(GetLinkedTemplate(IntToStr(FEditNote.Title), ltTitle)) then
	1912	begin
	1913	DocInfo := MakeXMLParamTIU(IntToStr(lstNotes.ItemIEN), FEditNote);
	1914	if NoteEmpty then AssignBoilerText else
	1915	begin
	1916	case QueryBoilerPlate(BoilerText) of
	1917	0: { do nothing } ; // ignore
	1918	1: begin
	1919	ExecuteTemplateOrBoilerPlate(BoilerText, FEditNote.Title, ltTitle, Self, 'Title: ' + FEditNote.TitleName, DocInfo);
[541]	1920	if (vmHTML in FViewMode) then begin //kt 8/09
	1921	HTMLEditor.Text := HTMLEditor.Text + Text2HTML(BoilerText); //kt 8/09
	1922	end else begin //kt 8/09
	1923	memNewNote.Lines.AddStrings(BoilerText); // append
	1924	end; //kt 8/09
[453]	1925	UpdateNoteAuthor(DocInfo);
	1926	end;
	1927	2: AssignBoilerText; // replace
	1928	end;
	1929	end;
	1930	end else
	1931	begin
	1932	if Sender = mnuActLoadBoiler
	1933	then InfoBox(TX_NO_BOIL, TC_NO_BOIL, MB_OK)
	1934	else
	1935	begin
	1936	if not NoteEmpty then
	1937	// if not FChanged and (InfoBox(TX_BLR_CLEAR, TC_BLR_CLEAR, MB_YESNO) = ID_YES)
[541]	1938	if (InfoBox(TX_BLR_CLEAR, TC_BLR_CLEAR, MB_YESNO) = ID_YES) then begin
	1939	if (vmHTML in FViewMode) then begin //kt 8/09
	1940	HTMLEditor.Clear; //kt 8/09
	1941	end else begin //kt 8/09
	1942	memNewNote.Lines.Clear;
	1943	end; //kt 8/09
	1944	end;
[453]	1945	end;
	1946	end; {if BoilerText.Text <> ''}
	1947	finally
	1948	BoilerText.Free;
	1949	end;
	1950	end;
	1951
	1952	procedure TfrmNotes.cmdChangeClick(Sender: TObject);
	1953	var
	1954	LastTitle, LastConsult: Integer;
	1955	OKPressed, IsIDChild: Boolean;
	1956	x: string;
	1957	DisAssoText : String;
	1958	begin
	1959	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	1960	inherited;
	1961	IsIDChild := uIDNotesActive and (FEditNote.IDParent > 0);
	1962	LastTitle := FEditNote.Title;
	1963	FEditNote.IsNewNote := False;
	1964	DisAssoText := '';
	1965	if (FEditNote.PkgPtr = PKG_CONSULTS) then
	1966	// DisAssoText := 'Consults'; <-- original line. //kt 7/19/2007
	1967	DisAssoText := DKLangConstW('fNotes_Consults'); //kt added 7/19/2007
	1968	if (FEditNote.PkgPtr = PKG_PRF) then
	1969	// DisAssoText := 'Patient Record Flags'; <-- original line. //kt 7/19/2007
	1970	DisAssoText := DKLangConstW('fNotes_Patient_Record_Flags'); //kt added 7/19/2007
	1971	if (DisAssoText <> '') and (Sender <> Self) then
	1972	// if InfoBox('If this title is changed, Any '+DisAssoText+' will be disassociated'+ <-- original line. //kt 7/19/2007
	1973	if InfoBox(DKLangConstW('fNotes_If_this_title_is_changedx_Any')+' '+DisAssoText+DKLangConstW('fNotes_will_be_disassociated')+ //kt added 7/19/2007
	1974	// ' with this note', <-- original line. //kt 7/19/2007
	1975	DKLangConstW('fNotes_with_this_note'), //kt added 7/19/2007
	1976	// 'Disassociate '+DisAssoText+'?',MB_OKCANCEL) = IDCANCEL then <-- original line. //kt 7/19/2007
	1977	DKLangConstW('fNotes_Disassociate')+DisAssoText+'?',MB_OKCANCEL) = IDCANCEL then //kt added 7/19/2007
	1978	exit;
	1979	if FEditNote.PkgPtr = PKG_CONSULTS then LastConsult := FEditNote.PkgIEN else LastConsult := 0;;
	1980	if Sender <> Self then OKPressed := ExecuteNoteProperties(FEditNote, CT_NOTES, IsIDChild, FNewIDChild, '', 0)
	1981	else OKPressed := True;
	1982	if not OKPressed then Exit;
	1983	// update display fields & uPCEEdit
	1984	lblNewTitle.Caption := ' ' + FEditNote.TitleName + ' ';
	1985	//if (FEditNote.Addend > 0) and (CompareText(Copy(lblNewTitle.Caption, 2, 8), 'Addendum') <> 0) <-- original line. //kt 7/19/2007
	1986	if (FEditNote.Addend > 0) and (CompareText(Copy(lblNewTitle.Caption, 2, 8), DKLangConstW('fNotes_Addendum')) <> 0) //kt added 7/19/2007
	1987	// then lblNewTitle.Caption := ' Addendum to:' + lblNewTitle.Caption; <-- original line. //kt 7/19/2007
	1988	then lblNewTitle.Caption := DKLangConstW('fNotes_Addendum_tox') + lblNewTitle.Caption; //kt added 7/19/2007
	1989	with lblNewTitle do bvlNewTitle.SetBounds(Left - 1, Top - 1, Width + 2, Height + 2);
	1990	lblRefDate.Caption := FormatFMDateTime('mmm dd,yyyy@hh:nn', FEditNote.DateTime);
	1991	lblAuthor.Caption := FEditNote.AuthorName;
	1992	if uPCEEdit.Inpatient then x := 'Adm: ' else x := 'Vst: ';
	1993	x := x + FormatFMDateTime('mm/dd/yy', FEditNote.VisitDate) + ' ' + FEditNote.LocationName;
	1994	lblVisit.Caption := x;
	1995	if Length(FEditNote.CosignerName) > 0
	1996	// then lblCosigner.Caption := 'Expected Cosigner: ' + FEditNote.CosignerName <-- original line. //kt 7/19/2007
	1997	then lblCosigner.Caption := DKLangConstW('fNotes_Expected_Cosignerx') + FEditNote.CosignerName //kt added 7/19/2007
	1998	else lblCosigner.Caption := '';
	1999	uPCEEdit.NoteTitle := FEditNote.Title;
	2000	// modify signature requirements if author or cosigner changed
	2001	if (User.DUZ <> FEditNote.Author) and (User.DUZ <> FEditNote.Cosigner)
	2002	then Changes.ReplaceSignState(CH_DOC, lstNotes.ItemID, CH_SIGN_NA)
	2003	else Changes.ReplaceSignState(CH_DOC, lstNotes.ItemID, CH_SIGN_YES);
	2004	x := lstNotes.Items[EditingIndex];
	2005	SetPiece(x, U, 2, lblNewTitle.Caption);
	2006	SetPiece(x, U, 3, FloatToStr(FEditNote.DateTime));
	2007	tvNotes.Selected.Text := MakeNoteDisplayText(x);
	2008	TORTreeNode(tvNotes.Selected).StringData := x;
	2009	lstNotes.Items[EditingIndex] := x;
	2010	Changes.ReplaceText(CH_DOC, lstNotes.ItemID, GetTitleText(EditingIndex));
	2011	with FEditNote do
	2012	begin
	2013	if (PkgPtr = PKG_CONSULTS) and (LastConsult <> PkgIEN) then
	2014	begin
	2015	// try to lock the new consult, reset to previous if unable
	2016	if (PkgIEN > 0) and not LockConsultRequest(PkgIEN) then
	2017	begin
	2018	Infobox(TX_NO_ORD_CHG, TC_NO_ORD_CHG, MB_OK);
	2019	PkgIEN := LastConsult;
	2020	end else
	2021	begin
	2022	// unlock the previous consult
	2023	if LastConsult > 0 then UnlockOrderIfAble(GetConsultOrderIEN(LastConsult));
	2024	if PkgIEN = 0 then FOrderID := '';
	2025	end;
	2026	end;
	2027	//Link Note to PRF Action
	2028	if PRF_IEN <> 0 then
	2029	if sCallV('TIU LINK TO FLAG', [lstNotes.ItemIEN,PRF_IEN,ActionIEN,Patient.DFN]) = '0' then
	2030	ShowMessage('TIU LINK TO FLAG: FAILED');
	2031	end;
	2032
	2033	if LastTitle <> FEditNote.Title then mnuActLoadBoilerClick(Self);
	2034	end;
	2035
	2036	procedure TfrmNotes.memNewNoteChange(Sender: TObject);
	2037	begin
	2038	inherited;
[541]	2039	//kt 8/09 NOTE: the equivalent functionality for HTML is HTMLEditor.Keystruck. Don't have to set here.
[453]	2040	FChanged := True;
	2041	end;
	2042
	2043	procedure TfrmNotes.pnlFieldsResize(Sender: TObject);
	2044	{ center the reference date on the panel }
	2045	begin
	2046	inherited;
	2047	lblRefDate.Left := (pnlFields.Width - lblRefDate.Width) div 2;
	2048	if lblRefDate.Left < (lblNewTitle.Left + lblNewTitle.Width + 6)
	2049	then lblRefDate.Left := (lblNewTitle.Left + lblNewTitle.Width);
	2050	end;
	2051
	2052	procedure TfrmNotes.DoAutoSave(Suppress: integer = 1);
	2053	var
	2054	ErrMsg: string;
[541]	2055	Changed : boolean; //kt 8/09
[453]	2056	begin
[541]	2057	Changed := false; //kt 8/09
	2058	if (vmHTML in FViewMode) then begin //kt 8/09
	2059	Changed := HTMLEditor.KeyStruck; //kt 8/09
	2060	end else begin //kt 8/09
	2061	Changed := FChanged; //kt 8/09
	2062	end; //kt 8/09
	2063	//kt 8/09 if (EditingIndex > -1) and FChanged then
	2064	if (EditingIndex > -1) and Changed then //kt 8/09
[453]	2065	begin
	2066	// StatusText('Autosaving note...'); <-- original line. //kt 7/19/2007
	2067	StatusText(DKLangConstW('fNotes_Autosaving_notexxx')); //kt added 7/19/2007
	2068	//PutTextOnly(ErrMsg, memNewNote.Lines, lstNotes.GetIEN(EditingIndex));
	2069	timAutoSave.Enabled := False;
	2070	try
[541]	2071	if (vmHTML in FViewMode) then begin //kt
	2072	rHTMLTools.SplitToArray (HTMLEditor.HTMLText, FEditNote.Lines); //kt
	2073	SetText(ErrMsg, FEditNote.Lines, lstNotes.GetIEN(EditingIndex),Suppress);//kt
	2074	end else begin //kt
[453]	2075	SetText(ErrMsg, memNewNote.Lines, lstNotes.GetIEN(EditingIndex), Suppress);
[541]	2076	end; //kt
[453]	2077	finally
	2078	timAutoSave.Enabled := True;
	2079	end;
	2080	FChanged := False;
[541]	2081	HTMLEditor.KeyStruck := false; //kt
[453]	2082	StatusText('');
	2083	end;
	2084	if ErrMsg <> '' then
	2085	InfoBox(TX_SAVE_ERROR1 + ErrMsg + TX_SAVE_ERROR2, TC_SAVE_ERROR, MB_OK or MB_ICONWARNING);
	2086	//Assert(ErrMsg = '', 'AutoSave: ' + ErrMsg);
	2087	end;
	2088
	2089	procedure TfrmNotes.timAutoSaveTimer(Sender: TObject);
	2090	begin
	2091	inherited;
	2092	DoAutoSave;
	2093	end;
	2094
	2095	{ View menu events ------------------------------------------------------------------------- }
	2096
	2097	procedure TfrmNotes.mnuViewClick(Sender: TObject);
	2098	{ changes the list of notes available for viewing }
	2099	var
	2100	AuthCtxt: TAuthorContext;
	2101	SearchCtxt: TSearchContext; // Text Search CQ: HDS00002856
	2102	DateRange: TNoteDateRange;
	2103	Saved: Boolean;
	2104	begin
	2105	inherited;
	2106	// save note at EditingIndex?
	2107	if EditingIndex <> -1 then
	2108	begin
	2109	SaveCurrentNote(Saved);
	2110	if not Saved then Exit;
	2111	end;
	2112	FLastNoteID := lstNotes.ItemID;
	2113	mnuViewDetail.Checked := False;
	2114	//StatusText('Retrieving progress note list...'); <-- original line. //kt 7/19/2007
	2115	StatusText(DKLangConstW('fNotes_Retrieving_progress_note_listxxx')); //kt added 7/19/2007
	2116	if Sender is TMenuItem then ViewContext := TMenuItem(Sender).Tag
	2117	else if FCurrentContext.Status <> '' then ViewContext := NC_CUSTOM
	2118	else ViewContext := NC_RECENT;
	2119	case ViewContext of
	2120	NC_RECENT: begin
	2121	FillChar(FCurrentContext, SizeOf(FCurrentContext), 0);
	2122	// lblNotes.Caption := 'Last ' + IntToStr(ReturnMaxNotes) + ' Notes'; <-- original line. //kt 7/19/2007
	2123	lblNotes.Caption := DKLangConstW('fNotes_Last') + IntToStr(ReturnMaxNotes) + DKLangConstW('fNotes_Notes'); //kt added 7/19/2007
	2124	FCurrentContext.Status := IntToStr(ViewContext);
	2125	FCurrentContext.MaxDocs := ReturnMaxNotes;
	2126	LoadNotes;
	2127	end;
	2128	NC_ALL: begin
	2129	FillChar(FCurrentContext, SizeOf(FCurrentContext), 0);
	2130	// lblNotes.Caption := 'All Signed Notes'; <-- original line. //kt 7/19/2007
	2131	lblNotes.Caption := DKLangConstW('fNotes_All_Signed_Notes'); //kt added 7/19/2007
	2132	FCurrentContext.Status := IntToStr(ViewContext);
	2133	LoadNotes;
	2134	end;
	2135	NC_UNSIGNED: begin
	2136	FillChar(FCurrentContext, SizeOf(FCurrentContext), 0);
	2137	// lblNotes.Caption := 'Unsigned Notes'; <-- original line. //kt 7/19/2007
	2138	lblNotes.Caption := DKLangConstW('fNotes_Unsigned_Notes'); //kt added 7/19/2007
	2139	FCurrentContext.Status := IntToStr(ViewContext);
	2140	LoadNotes;
	2141	end;
	2142	// Text Search CQ: HDS00002856 --------------------
	2143	NC_SEARCHTEXT: begin;
	2144	SearchTextStopFlag := False;
	2145	SelectSearchText(Font.Size, FCurrentContext.SearchString, SearchCtxt );
	2146	with SearchCtxt do if Changed then
	2147	begin
	2148	//FCurrentContext.Status := IntToStr(ViewContext);
	2149	frmSearchStop.Show;
	2150	// lblNotes.Caption := 'Search: '+ SearchString; <-- original line. //kt 7/19/2007
	2151	lblNotes.Caption := DKLangConstW('fNotes_Searchx')+ SearchString; //kt added 7/19/2007
	2152	frmSearchStop.lblSearchStatus.Caption := lblNotes.Caption;
	2153	FCurrentContext.SearchString := SearchString;
	2154	LoadNotes;
	2155	end;
	2156	// Only do LoadNotes if something changed
	2157	end;
	2158	// Text Search CQ: HDS00002856 --------------------
	2159	NC_UNCOSIGNED: begin
	2160	FillChar(FCurrentContext, SizeOf(FCurrentContext), 0);
	2161	// lblNotes.Caption := 'Uncosigned Notes'; <-- original line. //kt 7/19/2007
	2162	lblNotes.Caption := DKLangConstW('fNotes_Uncosigned_Notes'); //kt added 7/19/2007
	2163	FCurrentContext.Status := IntToStr(ViewContext);
	2164	LoadNotes;
	2165	end;
	2166	NC_BY_AUTHOR: begin
	2167	SelectAuthor(Font.Size, FCurrentContext, AuthCtxt);
	2168	with AuthCtxt do if Changed then
	2169	begin
	2170	FillChar(FCurrentContext, SizeOf(FCurrentContext), 0);
	2171	// lblNotes.Caption := AuthorName + ': Signed Notes'; <-- original line. //kt 7/19/2007
	2172	lblNotes.Caption := AuthorName + DKLangConstW('fNotes_x_Signed_Notes'); //kt added 7/19/2007
	2173	FCurrentContext.Status := IntToStr(NC_BY_AUTHOR);
	2174	FCurrentContext.Author := Author;
	2175	FCurrentContext.TreeAscending := Ascending;
	2176	LoadNotes;
	2177	end;
	2178	end;
	2179	NC_BY_DATE: begin
	2180	SelectNoteDateRange(Font.Size, FCurrentContext, DateRange);
	2181	with DateRange do if Changed then
	2182	begin
	2183	FillChar(FCurrentContext, SizeOf(FCurrentContext), 0);
	2184	lblNotes.Caption := FormatFMDateTime('mmm dd,yy', FMBeginDate) + ' to ' +
	2185	FormatFMDateTime('mmm dd,yy', FMEndDate) + ': Signed Notes';
	2186	FCurrentContext.BeginDate := BeginDate;
	2187	FCurrentContext.EndDate := EndDate;
	2188	FCurrentContext.FMBeginDate := FMBeginDate;
	2189	FCurrentContext.FMEndDate := FMEndDate;
	2190	FCurrentContext.TreeAscending := Ascending;
	2191	FCurrentContext.Status := IntToStr(NC_BY_DATE);
	2192	LoadNotes;
	2193	end;
	2194	end;
	2195	NC_CUSTOM: begin
	2196	if Sender is TMenuItem then
	2197	begin
	2198	SelectTIUView(Font.Size, True, FCurrentContext, uTIUContext);
	2199	//lblNotes.Caption := 'Custom List';
	2200	end;
	2201	with uTIUContext do if Changed then
	2202	begin
	2203	//if not (Sender is TMenuItem) then lblNotes.Caption := 'Default List';
	2204	//if MaxDocs = 0 then MaxDocs := ReturnMaxNotes;
	2205	FCurrentContext.BeginDate := BeginDate;
	2206	FCurrentContext.EndDate := EndDate;
	2207	FCurrentContext.FMBeginDate := FMBeginDate;
	2208	FCurrentContext.FMEndDate := FMEndDate;
	2209	FCurrentContext.Status := Status;
	2210	FCurrentContext.Author := Author;
	2211	FCurrentContext.MaxDocs := MaxDocs;
	2212	FCurrentContext.ShowSubject := ShowSubject;
	2213	// NEW PREFERENCES:
	2214	FCurrentContext.SortBy := SortBy;
	2215	FCurrentContext.ListAscending := ListAscending;
	2216	FCurrentContext.GroupBy := GroupBy;
	2217	FCurrentContext.TreeAscending := TreeAscending;
	2218	FCurrentContext.SearchField := SearchField;
	2219	FCurrentContext.Keyword := Keyword;
	2220	FCurrentContext.Filtered := Filtered;
	2221	LoadNotes;
	2222	end;
	2223	end;
	2224	end; {case}
	2225	lblNotes.Caption := SetNoteTreeLabel(FCurrentContext);
	2226	// Text Search CQ: HDS00002856 --------------------
	2227	If FCurrentContext.SearchString <> '' then
	2228	// lblNotes.Caption := lblNotes.Caption+', containing "'+FCurrentContext.SearchString+'"'; <-- original line. //kt 7/19/2007
	2229	lblNotes.Caption := lblNotes.Caption+DKLangConstW('fNotes_x_containing_x')+FCurrentContext.SearchString+'"'; //kt added 7/19/2007
	2230	If SearchTextStopFlag=True then begin;
	2231	// lblNotes.Caption := 'Search for "'+FCurrentContext.SearchString+'" was stopped!'; <-- original line. //kt 7/19/2007
	2232	lblNotes.Caption := DKLangConstW('fNotes_Search_for_x')+FCurrentContext.SearchString+DKLangConstW('fNotes_x_was_stoppedx'); //kt added 7/19/2007
	2233	end;
	2234	frmSearchStop.Hide;
	2235	// Text Search CQ: HDS00002856 --------------------
	2236	lblNotes.hint := lblNotes.Caption;
	2237	tvNotes.Caption := lblNotes.Caption;
	2238	StatusText('');
	2239	end;
	2240
	2241	{ Action menu events ----------------------------------------------------------------------- }
	2242
	2243	function TfrmNotes.StartNewEdit(NewNoteType: integer): Boolean;
	2244	{ if currently editing a note, returns TRUE if the user wants to start a new one }
	2245	var
	2246	Saved: Boolean;
	2247	Msg, CapMsg: string;
	2248	begin
	2249	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	2250	FStarting := False;
	2251	Result := True;
	2252	cmdNewNote.Enabled := False;
	2253	if EditingIndex > -1 then
	2254	begin
	2255	FStarting := True;
	2256	case NewNoteType of
	2257	NT_ACT_ADDENDUM: begin
	2258	Msg := TX_NEW_SAVE1 + MakeNoteDisplayText(lstNotes.Items[EditingIndex]) + TX_NEW_SAVE3;
	2259	CapMsg := TC_NEW_SAVE3;
	2260	end;
	2261	NT_ACT_EDIT_NOTE: begin
	2262	Msg := TX_NEW_SAVE1 + MakeNoteDisplayText(lstNotes.Items[EditingIndex]) + TX_NEW_SAVE4;
	2263	CapMsg := TC_NEW_SAVE4;
	2264	end;
	2265	NT_ACT_ID_ENTRY: begin
	2266	Msg := TX_NEW_SAVE1 + MakeNoteDisplayText(lstNotes.Items[EditingIndex]) + TX_NEW_SAVE5;
	2267	CapMsg := TC_NEW_SAVE5;
	2268	end;
	2269	else
	2270	begin
	2271	Msg := TX_NEW_SAVE1 + MakeNoteDisplayText(lstNotes.Items[EditingIndex]) + TX_NEW_SAVE2;
	2272	CapMsg := TC_NEW_SAVE2;
	2273	end;
	2274	end;
	2275	if InfoBox(Msg, CapMsg, MB_YESNO) = IDNO then
	2276	begin
	2277	Result := False;
	2278	FStarting := False;
	2279	end
	2280	else
	2281	begin
	2282	SaveCurrentNote(Saved);
	2283	if not Saved then Result := False else LoadNotes;
	2284	FStarting := False;
	2285	end;
	2286	end;
	2287	cmdNewNote.Enabled := (Result = False) and (FStarting = False);
	2288	end;
	2289
	2290	procedure TfrmNotes.mnuActNewClick(Sender: TObject);
	2291	const
	2292	IS_ID_CHILD = False;
	2293	{ switches to current new note or creates a new note if none is being edited already }
	2294	begin
	2295	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	2296	inherited;
	2297	if not StartNewEdit(NT_ACT_NEW_NOTE) then Exit;
	2298	//LoadNotes;
	2299	// make sure a visit (time & location) is available before creating the note
	2300	if Encounter.NeedVisit then
	2301	begin
	2302	UpdateVisit(Font.Size, DfltTIULocation);
	2303	frmFrame.DisplayEncounterText;
	2304	end;
	2305	if Encounter.NeedVisit then
	2306	begin
	2307	InfoBox(TX_NEED_VISIT, TX_NO_VISIT, MB_OK or MB_ICONWARNING);
	2308	ShowPCEButtons(False);
	2309	Exit;
	2310	end;
	2311	InsertNewNote(IS_ID_CHILD, 0);
	2312	end;
	2313
	2314	procedure TfrmNotes.mnuActAddIDEntryClick(Sender: TObject);
	2315	const
	2316	IS_ID_CHILD = True;
	2317	var
	2318	AnIDParent: integer;
	2319	{ switches to current new note or creates a new note if none is being edited already }
	2320	begin
	2321	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	2322	inherited;
	2323	AnIDParent := lstNotes.ItemIEN;
	2324	if not StartNewEdit(NT_ACT_ID_ENTRY) then Exit;
	2325	//LoadNotes;
	2326	with tvNotes do Selected := FindPieceNode(IntToStr(AnIDParent), U, Items.GetFirstNode);
	2327	// make sure a visit (time & location) is available before creating the note
	2328	if Encounter.NeedVisit then
	2329	begin
	2330	UpdateVisit(Font.Size, DfltTIULocation);
	2331	frmFrame.DisplayEncounterText;
	2332	end;
	2333	if Encounter.NeedVisit then
	2334	begin
	2335	InfoBox(TX_NEED_VISIT, TX_NO_VISIT, MB_OK or MB_ICONWARNING);
	2336	Exit;
	2337	end;
	2338	InsertNewNote(IS_ID_CHILD, AnIDParent);
	2339	end;
	2340
	2341	procedure TfrmNotes.mnuActAddendClick(Sender: TObject);
	2342	{ make an addendum to an existing note }
	2343	var
	2344	ActionSts: TActionRec;
	2345	ANoteID: string;
	2346	begin
	2347	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	2348	inherited;
	2349	if lstNotes.ItemIEN <= 0 then Exit;
	2350	ANoteID := lstNotes.ItemID;
	2351	if not StartNewEdit(NT_ACT_ADDENDUM) then Exit;
	2352	//LoadNotes;
	2353	with tvNotes do Selected := FindPieceNode(ANoteID, 1, U, Items.GetFirstNode);
	2354	if lstNotes.ItemIndex = EditingIndex then
	2355	begin
	2356	InfoBox(TX_ADDEND_NO, TX_ADDEND_MK, MB_OK);
	2357	Exit;
	2358	end;
	2359	ActOnDocument(ActionSts, lstNotes.ItemIEN, 'MAKE ADDENDUM');
	2360	if not ActionSts.Success then
	2361	begin
	2362	InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK);
	2363	Exit;
	2364	end;
	2365	with lstNotes do if TitleForNote(lstNotes.ItemIEN) = TYP_ADDENDUM then
	2366	begin
	2367	InfoBox(TX_ADDEND_AD, TX_ADDEND_MK, MB_OK);
	2368	Exit;
	2369	end;
	2370	InsertAddendum;
	2371	end;
	2372
	2373	procedure TfrmNotes.mnuActDetachFromIDParentClick(Sender: TObject);
	2374	var
	2375	DocID, WhyNot: string;
	2376	Saved: boolean;
	2377	SavedDocID: string;
	2378	begin
	2379	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	2380	if lstNotes.ItemIEN = 0 then exit;
	2381	SavedDocID := lstNotes.ItemID;
	2382	if EditingIndex <> -1 then
	2383	begin
	2384	SaveCurrentNote(Saved);
	2385	if not Saved then Exit;
	2386	LoadNotes;
	2387	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
	2388	end;
	2389	if not CanBeAttached(PDocTreeObject(tvNotes.Selected.Data)^.DocID, WhyNot) then
	2390	begin
	2391	WhyNot := StringReplace(WhyNot, 'ATTACH', 'DETACH', [rfIgnoreCase]);
	2392	WhyNot := StringReplace(WhyNot, 'to an ID', 'from an ID', [rfIgnoreCase]);
	2393	InfoBox(WhyNot, TX_DETACH_FAILURE, MB_OK);
	2394	Exit;
	2395	end;
	2396	if (InfoBox('DETACH: ' + tvNotes.Selected.Text + CRLF + CRLF +
	2397	' FROM: ' + tvNotes.Selected.Parent.Text + CRLF + CRLF +
	2398	// 'Are you sure?', TX_DETACH_CNF, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) <> IDYES) <-- original line. //kt 7/19/2007
	2399	DKLangConstW('fNotes_Are_you_surex'), TX_DETACH_CNF, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) <> IDYES) //kt added 7/19/2007
	2400	then Exit;
	2401	DocID := PDocTreeObject(tvNotes.Selected.Data)^.DocID;
	2402	SavedDocID := PDocTreeObject(tvNotes.Selected.Parent.Data)^.DocID;
	2403	if DetachEntryFromParent(DocID, WhyNot) then
	2404	begin
	2405	LoadNotes;
	2406	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
	2407	if tvNotes.Selected <> nil then tvNotes.Selected.Expand(False);
	2408	end
	2409	else
	2410	begin
	2411	WhyNot := StringReplace(WhyNot, 'ATTACH', 'DETACH', [rfIgnoreCase]);
	2412	WhyNot := StringReplace(WhyNot, 'to an ID', 'from an ID', [rfIgnoreCase]);
	2413	InfoBox(WhyNot, TX_DETACH_FAILURE, MB_OK);
	2414	end;
	2415	end;
	2416
	2417	procedure TfrmNotes.mnuActSignListClick(Sender: TObject);
	2418	{ add the note to the Encounter object, see mnuActSignClick - copied}
	2419	const
	2420	SIG_COSIGN = 'COSIGNATURE';
	2421	SIG_SIGN = 'SIGNATURE';
	2422	var
	2423	ActionType, SignTitle: string;
	2424	ActionSts: TActionRec;
	2425	begin
	2426	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	2427	inherited;
	2428	if lstNotes.ItemIEN = 0 then Exit;
	2429	if lstNotes.ItemIndex = EditingIndex then Exit; // already in signature list
	2430	if not NoteHasText(lstNotes.ItemIEN) then
	2431	begin
	2432	InfoBox(TX_EMPTY_NOTE1, TC_EMPTY_NOTE, MB_OK or MB_ICONERROR);
	2433	Exit;
	2434	end;
	2435	if not LastSaveClean(lstNotes.ItemIEN) and
	2436	(InfoBox(TX_ABSAVE, TC_ABSAVE, MB_YESNO or MB_DEFBUTTON2 or MB_ICONWARNING) <> IDYES) then Exit;
	2437	if CosignDocument(lstNotes.ItemIEN) then
	2438	begin
	2439	SignTitle := TX_COSIGN;
	2440	ActionType := SIG_COSIGN;
	2441	end else
	2442	begin
	2443	SignTitle := TX_SIGN;
	2444	ActionType := SIG_SIGN;
	2445	end;
	2446	ActOnDocument(ActionSts, lstNotes.ItemIEN, ActionType);
	2447	if not ActionSts.Success then
	2448	begin
	2449	InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK);
	2450	Exit;
	2451	end;
	2452	LockConsultRequestAndNote(lstNotes.ItemIEN);
	2453	with lstNotes do Changes.Add(CH_DOC, ItemID, GetTitleText(ItemIndex), '', CH_SIGN_YES);
	2454	end;
	2455
	2456	procedure TfrmNotes.RemovePCEFromChanges(IEN: Int64; AVisitStr: string = '');
	2457	begin
	2458	if IEN = NT_ADDENDUM then Exit; // no PCE information entered for an addendum
	2459	// do we need to call DeletePCE(AVisitStr), as was done with NT_NEW_NOTE (ien=-10)???
	2460	if AVisitStr = '' then AVisitStr := VisitStrForNote(IEN);
	2461	Changes.Remove(CH_PCE, 'V' + AVisitStr);
	2462	Changes.Remove(CH_PCE, 'P' + AVisitStr);
	2463	Changes.Remove(CH_PCE, 'D' + AVisitStr);
	2464	Changes.Remove(CH_PCE, 'I' + AVisitStr);
	2465	Changes.Remove(CH_PCE, 'S' + AVisitStr);
	2466	Changes.Remove(CH_PCE, 'A' + AVisitStr);
	2467	Changes.Remove(CH_PCE, 'H' + AVisitStr);
	2468	Changes.Remove(CH_PCE, 'E' + AVisitStr);
	2469	Changes.Remove(CH_PCE, 'T' + AVisitStr);
	2470	end;
	2471
	2472	procedure TfrmNotes.mnuActDeleteClick(Sender: TObject);
	2473	{ delete the selected progress note & remove from the Encounter object if necessary }
	2474	var
	2475	DeleteSts, ActionSts: TActionRec;
	2476	SaveConsult, SavedDocIEN: Integer;
	2477	ReasonForDelete, AVisitStr, SavedDocID, x: string;
	2478	Saved: boolean;
	2479	begin
	2480	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	2481	inherited;
	2482	if lstNotes.ItemIEN = 0 then Exit;
	2483	ActOnDocument(ActionSts, lstNotes.ItemIEN, 'DELETE RECORD');
	2484	if ShowMsgOn(not ActionSts.Success, ActionSts.Reason, TX_IN_AUTH) then Exit;
	2485	ReasonForDelete := SelectDeleteReason(lstNotes.ItemIEN);
	2486	if ReasonForDelete = DR_CANCEL then Exit;
	2487	// suppress prompt for deletion when called from SaveEditedNote (Sender = Self)
	2488	if (Sender <> Self) and (InfoBox(MakeNoteDisplayText(lstNotes.Items[lstNotes.ItemIndex]) + TX_DEL_OK,
	2489	TX_DEL_CNF, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) <> IDYES) then Exit;
	2490	// do the appropriate locking
	2491	if not LockConsultRequestAndNote(lstNotes.ItemIEN) then Exit;
	2492	// retraction notification message
	2493	if JustifyDocumentDelete(lstNotes.ItemIEN) then
	2494	InfoBox(TX_RETRACT, TX_RETRACT_CAP, MB_OK);
	2495	SavedDocID := lstNotes.ItemID;
	2496	SavedDocIEN := lstNotes.ItemIEN;
	2497	if (EditingIndex > -1) and (not FConfirmed) and (lstNotes.ItemIndex <> EditingIndex) and (memNewNote.GetTextLen > 0) then
	2498	begin
	2499	SaveCurrentNote(Saved);
	2500	if not Saved then Exit;
	2501	end;
	2502	EditingIndex := -1;
	2503	FConfirmed := False;
	2504	(* if Saved then
	2505	begin
	2506	EditingIndex := -1;
	2507	mnuViewClick(Self);
	2508	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
	2509	end;*)
	2510	// remove the note
	2511	DeleteSts.Success := True;
	2512	x := GetPackageRefForNote(SavedDocIEN);
	2513	SaveConsult := StrToIntDef(Piece(x, ';', 1), 0);
	2514	AVisitStr := VisitStrForNote(SavedDocIEN);
	2515	RemovePCEFromChanges(SavedDocIEN, AVisitStr);
	2516	if (SavedDocIEN > 0) and (lstNotes.ItemIEN = SavedDocIEN) then DeleteDocument(DeleteSts, SavedDocIEN, ReasonForDelete);
	2517	if not Changes.Exist(CH_DOC, SavedDocID) then UnlockDocument(SavedDocIEN);
	2518	Changes.Remove(CH_DOC, SavedDocID); // this will unlock the document if in Changes
	2519	UnlockConsultRequest(0, SaveConsult); // note has been deleted, so 1st param = 0
	2520	// reset the display now that the note is gone
	2521	if DeleteSts.Success then
	2522	begin
	2523	DeletePCE(AVisitStr); // removes PCE data if this was the only note pointing to it
	2524	ClearEditControls;
	2525	//ClearPtData; WRONG - fixed in v15.10 - RV
	2526	LoadNotes;
	2527	(* with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
	2528	if tvNotes.Selected <> nil then tvNotesChange(Self, tvNotes.Selected) else
	2529	begin*)
[541]	2530	FHTMLEditMode := emNone; //kt 8/09
[453]	2531	pnlWrite.Visible := False;
	2532	pnlRead.Visible := True;
	2533	UpdateReminderFinish;
	2534	ShowPCEControls(False);
	2535	frmDrawers.DisplayDrawers(TRUE, [odTemplates], [odTemplates]); //FALSE);
	2536	ShowPCEButtons(FALSE);
	2537	//end; {if ItemIndex}
	2538	end {if DeleteSts}
	2539	else InfoBox(DeleteSts.Reason, TX_DEL_ERR, MB_OK or MB_ICONWARNING);
	2540	end;
	2541
	2542	procedure TfrmNotes.mnuActEditClick(Sender: TObject);
	2543	{ load the selected progress note for editing }
	2544	var
	2545	ActionSts: TActionRec;
	2546	ANoteID: string;
	2547	begin
	2548	inherited;
	2549	if lstNotes.ItemIndex = EditingIndex then Exit;
	2550	ANoteID := lstNotes.ItemID;
	2551	if not StartNewEdit(NT_ACT_EDIT_NOTE) then Exit;
	2552	//LoadNotes;
	2553	with tvNotes do Selected := FindPieceNode(ANoteID, 1, U, Items.GetFirstNode);
	2554	ActOnDocument(ActionSts, lstNotes.ItemIEN, 'EDIT RECORD');
	2555	if not ActionSts.Success then
	2556	begin
	2557	InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK);
	2558	Exit;
	2559	end;
	2560	LoadForEdit;
	2561	end;
	2562
	2563	procedure TfrmNotes.mnuActSaveClick(Sender: TObject);
	2564	{ saves the note that is currently being edited }
	2565	var
	2566	Saved: Boolean;
	2567	SavedDocID: string;
	2568	begin
	2569	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	2570	inherited;
	2571	if EditingIndex > -1 then
	2572	begin
	2573	SavedDocID := Piece(lstNotes.Items[EditingIndex], U, 1);
	2574	FLastNoteID := SavedDocID;
	2575	SaveCurrentNote(Saved);
	2576	if Saved and (EditingIndex < 0) and (not FDeleted) then
	2577	//if Saved then
	2578	begin
	2579	LoadNotes;
	2580	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
	2581	end;
	2582	end
	2583	else InfoBox(TX_NO_NOTE, TX_SAVE_NOTE, MB_OK or MB_ICONWARNING);
	2584	end;
	2585
	2586	procedure TfrmNotes.mnuActSignClick(Sender: TObject);
	2587	{ sign the currently selected note, save first if necessary }
	2588	const
	2589	SIG_COSIGN = 'COSIGNATURE';
	2590	SIG_SIGN = 'SIGNATURE';
	2591	var
	2592	Saved, NoteUnlocked: Boolean;
	2593	ActionType, ESCode, SignTitle: string;
	2594	ActionSts, SignSts: TActionRec;
	2595	OK: boolean;
	2596	SavedDocID, tmpItem: string;
	2597	EditingID: string; //v22.12 - RV
	2598	tmpNode: TTreeNode;
	2599	begin
	2600	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	2601	inherited;
	2602	(* if lstNotes.ItemIndex = EditingIndex then //v22.12 - RV
	2603	begin //v22.12 - RV
	2604	SaveCurrentNote(Saved); //v22.12 - RV
	2605	if (not Saved) or FDeleted then Exit; //v22.12 - RV
	2606	end //v22.12 - RV
	2607	else if EditingIndex > -1 then //v22.12 - RV
	2608	tmpItem := lstNotes.Items[EditingIndex]; //v22.12 - RV
	2609	SavedDocID := lstNotes.ItemID;*) //v22.12 - RV
	2610	SavedDocID := lstNotes.ItemID; //v22.12 - RV
	2611	FLastNoteID := SavedDocID; //v22.12 - RV
	2612	if lstNotes.ItemIndex = EditingIndex then //v22.12 - RV
	2613	begin //v22.12 - RV
	2614	SaveCurrentNote(Saved); //v22.12 - RV
	2615	if (not Saved) or FDeleted then Exit; //v22.12 - RV
	2616	end //v22.12 - RV
	2617	else if EditingIndex > -1 then //v22.12 - RV
	2618	begin //v22.12 - RV
	2619	tmpItem := lstNotes.Items[EditingIndex]; //v22.12 - RV
	2620	EditingID := Piece(tmpItem, U, 1); //v22.12 - RV
	2621	end; //v22.12 - RV
	2622	if not NoteHasText(lstNotes.ItemIEN) then
	2623	begin
	2624	InfoBox(TX_EMPTY_NOTE1, TC_EMPTY_NOTE, MB_OK or MB_ICONERROR);
	2625	Exit;
	2626	end;
	2627	if not LastSaveClean(lstNotes.ItemIEN) and
	2628	(InfoBox(TX_ABSAVE, TC_ABSAVE, MB_YESNO or MB_DEFBUTTON2 or MB_ICONWARNING) <> IDYES) then Exit;
	2629	if CosignDocument(lstNotes.ItemIEN) then
	2630	begin
	2631	SignTitle := TX_COSIGN;
	2632	ActionType := SIG_COSIGN;
	2633	end else
	2634	begin
	2635	SignTitle := TX_SIGN;
	2636	ActionType := SIG_SIGN;
	2637	end;
	2638	if not LockConsultRequestAndNote(lstNotes.ItemIEN) then Exit;
	2639	// no exits after things are locked
	2640	NoteUnlocked := False;
	2641	ActOnDocument(ActionSts, lstNotes.ItemIEN, ActionType);
	2642	if ActionSts.Success then
	2643	begin
	2644	OK := IsOK2Sign(uPCEShow, lstNotes.ItemIEN);
	2645	if frmFrame.Closing then exit;
	2646	if(uPCEShow.Updated) then
	2647	begin
	2648	uPCEShow.CopyPCEData(uPCEEdit);
	2649	uPCEShow.Updated := FALSE;
	2650	lstNotesClick(Self);
	2651	end;
	2652	if not AuthorSignedDocument(lstNotes.ItemIEN) then
	2653	begin
	2654	if (InfoBox(TX_AUTH_SIGNED +
	2655	GetTitleText(lstNotes.ItemIndex),TX_SIGN ,MB_YESNO)= ID_NO) then exit;
	2656	end;
	2657	if(OK) then
	2658	begin
	2659	with lstNotes do SignatureForItem(Font.Size, MakeNoteDisplayText(Items[ItemIndex]), SignTitle, ESCode);
	2660	if Length(ESCode) > 0 then
	2661	begin
	2662	SignDocument(SignSts, lstNotes.ItemIEN, ESCode);
	2663	RemovePCEFromChanges(lstNotes.ItemIEN);
	2664	NoteUnlocked := Changes.Exist(CH_DOC, lstNotes.ItemID);
	2665	Changes.Remove(CH_DOC, lstNotes.ItemID); // this will unlock if in Changes
	2666	if SignSts.Success then
	2667	begin
	2668	SendMessage(frmConsults.Handle, UM_NEWORDER, ORDER_SIGN, 0); {REV}
	2669	lstNotesClick(Self);
	2670	end
	2671	else InfoBox(SignSts.Reason, TX_SIGN_ERR, MB_OK);
	2672	end {if Length(ESCode)}
	2673	else
	2674	NoteUnlocked := Changes.Exist(CH_DOC, lstNotes.ItemID);
	2675	end;
	2676	end
	2677	else InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK);
	2678	if not NoteUnlocked then UnlockDocument(lstNotes.ItemIEN);
	2679	UnlockConsultRequest(lstNotes.ItemIEN);
	2680	//SetViewContext(FCurrentContext); //v22.12 - RV
	2681	LoadNotes; //v22.12 - RV
	2682	//if EditingIndex > -1 then //v22.12 - RV
	2683	if (EditingID <> '') then //v22.12 - RV
	2684	begin
	2685	lstNotes.Items.Insert(0, tmpItem);
	2686	// tmpNode := tvNotes.Items.AddObjectFirst(tvNotes.Items.GetFirstNode, 'Note being edited', <-- original line. //kt 7/19/2007
	2687	tmpNode := tvNotes.Items.AddObjectFirst(tvNotes.Items.GetFirstNode, DKLangConstW('fNotes_Note_being_edited'), //kt added 7/19/2007
	2688	MakeNoteTreeObject('EDIT^Note being edited^^^^^^^^^^^%^0'));
	2689	TORTreeNode(tmpNode).StringData := 'EDIT^Note being edited^^^^^^^^^^^%^0';
	2690	tmpNode.ImageIndex := IMG_TOP_LEVEL;
	2691	tmpNode := tvNotes.Items.AddChildObjectFirst(tmpNode, MakeNoteDisplayText(tmpItem), MakeNoteTreeObject(tmpItem));
	2692	TORTreeNode(tmpNode).StringData := tmpItem;
	2693	SetTreeNodeImagesAndFormatting(TORTreeNode(tmpNode), FCurrentContext, CT_NOTES);
	2694	EditingIndex := lstNotes.SelectByID(EditingID); //v22.12 - RV
	2695	end;
	2696	//with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode); //v22.12 - RV
	2697	with tvNotes do //v22.12 - RV
	2698	begin //v22.12 - RV
	2699	Selected := FindPieceNode(FLastNoteID, U, Items.GetFirstNode); //v22.12 - RV
	2700	if Selected <> nil then
	2701	tvNotesChange(Self, Selected) //v22.12 - RV
	2702	else
	2703	tvNotes.Selected := tvNotes.Items[0]; //first Node in treeview
	2704	end; //v22.12 - RV
	2705	end;
	2706
	2707	procedure TfrmNotes.SaveSignItem(const ItemID, ESCode: string);
	2708	{ saves and optionally signs a progress note or addendum }
	2709	const
	2710	SIG_COSIGN = 'COSIGNATURE';
	2711	SIG_SIGN = 'SIGNATURE';
	2712	var
	2713	AnIndex, IEN, i: Integer;
	2714	Saved, ContinueSign: Boolean; {RAB 8/26/99}
	2715	ActionSts, SignSts: TActionRec;
	2716	APCEObject: TPCEData;
	2717	OK: boolean;
	2718	ActionType, SignTitle: string;
	2719	begin
	2720	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	2721	AnIndex := -1;
	2722	IEN := StrToIntDef(ItemID, 0);
	2723	if IEN = 0 then Exit;
	2724	if frmFrame.TimedOut and (EditingIndex <> -1) then FSilent := True;
	2725	with lstNotes do for i := 0 to Items.Count - 1 do if lstNotes.GetIEN(i) = IEN then
	2726	begin
	2727	AnIndex := i;
	2728	break;
	2729	end;
	2730	if (AnIndex > -1) and (AnIndex = EditingIndex) then
	2731	begin
	2732	SaveCurrentNote(Saved);
	2733	if not Saved then Exit;
	2734	if FDeleted then
	2735	begin
	2736	FDeleted := False;
	2737	Exit;
	2738	end;
	2739	AnIndex := lstNotes.SelectByIEN(IEN);
	2740	//IEN := lstNotes.GetIEN(AnIndex); // saving will change IEN
	2741	end;
	2742	if Length(ESCode) > 0 then
	2743	begin
	2744	if CosignDocument(IEN) then
	2745	begin
	2746	SignTitle := TX_COSIGN;
	2747	ActionType := SIG_COSIGN;
	2748	end else
	2749	begin
	2750	SignTitle := TX_SIGN;
	2751	ActionType := SIG_SIGN;
	2752	end;
	2753	ActOnDocument(ActionSts, IEN, ActionType);
	2754	if not ActionSts.Success then
	2755	begin
	2756	InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK);
	2757	ContinueSign := False;
	2758	end
	2759	else if not NoteHasText(IEN) then
	2760	begin
	2761	InfoBox(TX_EMPTY_NOTE1, TC_EMPTY_NOTE, MB_OK or MB_ICONERROR);
	2762	ContinueSign := False;
	2763	end
	2764	else if not LastSaveClean(IEN) and
	2765	(InfoBox(TX_ABSAVE, TC_ABSAVE, MB_YESNO or MB_DEFBUTTON2 or MB_ICONWARNING) <> IDYES)
	2766	then ContinueSign := False
	2767	else ContinueSign := True;
	2768	if ContinueSign then
	2769	begin
	2770	if (AnIndex >= 0) and (AnIndex = lstNotes.ItemIndex) then
	2771	APCEObject := uPCEShow
	2772	else
	2773	APCEObject := nil;
	2774	OK := IsOK2Sign(APCEObject, IEN);
	2775	if frmFrame.Closing then exit;
	2776	if(assigned(APCEObject)) and (uPCEShow.Updated) then
	2777	begin
	2778	uPCEShow.CopyPCEData(uPCEEdit);
	2779	uPCEShow.Updated := FALSE;
	2780	lstNotesClick(Self);
	2781	end
	2782	else
	2783	uPCEEdit.Clear;
	2784	if(OK) then
	2785	begin
	2786	//if ((not FSilent) and IsSurgeryTitle(TitleForNote(IEN))) then DisplayOpTop(IEN);
	2787	SignDocument(SignSts, IEN, ESCode);
	2788	if not SignSts.Success then InfoBox(SignSts.Reason, TX_SIGN_ERR, MB_OK);
	2789	end; {if OK}
	2790	end; {if ContinueSign}
	2791	end; {if Length(ESCode)}
	2792
	2793	UnlockConsultRequest(IEN);
	2794	if (AnIndex = lstNotes.ItemIndex) and (not frmFrame.ContextChanging) then
	2795	begin
	2796	LoadNotes;
	2797	with tvNotes do Selected := FindPieceNode(IntToStr(IEN), U, Items.GetFirstNode);
	2798	end;
	2799	end;
	2800
	2801	procedure TfrmNotes.popNoteMemoPopup(Sender: TObject);
[541]	2802	const FORMAT_MODE : array[false..true] of string = ('fNotes_Formatted_Text','fNotes_Plain_Text'); //kt 8/09
[453]	2803	begin
	2804	inherited;
	2805	if PopupComponent(Sender, popNoteMemo) is TCustomEdit
	2806	then FEditCtrl := TCustomEdit(PopupComponent(Sender, popNoteMemo))
	2807	else FEditCtrl := nil;
	2808	if FEditCtrl <> nil then
	2809	begin
	2810	popNoteMemoCut.Enabled := FEditCtrl.SelLength > 0;
	2811	popNoteMemoCopy.Enabled := popNoteMemoCut.Enabled;
	2812	popNoteMemoPaste.Enabled := (not TORExposedCustomEdit(FEditCtrl).ReadOnly) and
	2813	Clipboard.HasFormat(CF_TEXT);
	2814	popNoteMemoTemplate.Enabled := frmDrawers.CanEditTemplates and popNoteMemoCut.Enabled;
	2815	popNoteMemoFind.Enabled := FEditCtrl.GetTextLen > 0;
	2816	end else
	2817	begin
[541]	2818	popNoteMemoHTMLFormat.Enabled := False; //kt 8/09
[453]	2819	popNoteMemoCut.Enabled := False;
	2820	popNoteMemoCopy.Enabled := False;
	2821	popNoteMemoPaste.Enabled := False;
	2822	popNoteMemoTemplate.Enabled := False;
	2823	end;
[541]	2824	popNoteMemoHTMLFormat.Caption := DKLangConstW('fNotes_Change_Edit_Mode_To') + ' ' + //kt 8/09
	2825	DKLangConstW(FORMAT_MODE[(vmHTML in FViewMode)]); //kt 8/09
	2826	popNoteMemoHTMLFormat.Enabled := pnlWrite.Visible; //kt 8/09
[453]	2827	if pnlWrite.Visible then
	2828	begin
[541]	2829	//kt 8/09 popNoteMemoSpell.Enabled := True;
	2830	//kt 8/09 popNoteMemoGrammar.Enabled := True;
	2831	//kt 8/09 popNoteMemoReformat.Enabled := True;
	2832	popNoteMemoSpell.Enabled := not pnlHTMLWrite.Visible; //kt 8/09
	2833	popNoteMemoGrammar.Enabled := not pnlHTMLWrite.Visible; //kt 8/09
	2834	popNoteMemoReformat.Enabled := not pnlHTMLWrite.Visible; //kt 8/09
[453]	2835	popNoteMemoReplace.Enabled := (FEditCtrl.GetTextLen > 0);
	2836	popNoteMemoPreview.Enabled := (frmDrawers.TheOpenDrawer = odTemplates) and Assigned(frmDrawers.tvTemplates.Selected);
	2837	popNoteMemoInsTemplate.Enabled := (frmDrawers.TheOpenDrawer = odTemplates) and Assigned(frmDrawers.tvTemplates.Selected);
	2838	end else
	2839	begin
	2840	popNoteMemoSpell.Enabled := False;
	2841	popNoteMemoGrammar.Enabled := False;
	2842	popNoteMemoReformat.Enabled := False;
	2843	popNoteMemoReplace.Enabled := False;
	2844	popNoteMemoPreview.Enabled := False;
	2845	popNoteMemoInsTemplate.Enabled := False;
	2846	end;
	2847	end;
	2848
[541]	2849	(*//kt 8/09 NOTICE:
	2850	On the form, popNoteMenu was edited to add a new item as below
	2851	popNoteMemoHTMLFormat : TMenuItem
	2852	Captions: ~ Edit as Formatted Text
	2853	OnClick -- popNoteMemoHTMLFormatClick
	2854	*)
	2855
	2856	procedure TfrmNotes.popNoteMemoHTMLFormatClick(Sender: TObject);
	2857	//kt added function 8/09
	2858	begin
	2859	inherited;
	2860	ToggleHTMLEditMode;
	2861	end;
	2862
[453]	2863	procedure TfrmNotes.popNoteMemoCutClick(Sender: TObject);
	2864	begin
	2865	inherited;
	2866	FEditCtrl.CutToClipboard;
	2867	end;
	2868
	2869	procedure TfrmNotes.popNoteMemoCopyClick(Sender: TObject);
	2870	begin
	2871	inherited;
	2872	FEditCtrl.CopyToClipboard;
	2873	end;
	2874
	2875	procedure TfrmNotes.popNoteMemoPasteClick(Sender: TObject);
	2876	begin
	2877	inherited;
	2878	FEditCtrl.SelText := Clipboard.AsText; {KCM}
	2879	frmNotes.pnlWriteResize(Self);
	2880	//FEditCtrl.PasteFromClipboard; // use AsText to prevent formatting
	2881	end;
	2882
	2883	procedure TfrmNotes.popNoteMemoReformatClick(Sender: TObject);
	2884	begin
	2885	inherited;
	2886	if Screen.ActiveControl <> memNewNote then Exit;
	2887	ReformatMemoParagraph(memNewNote);
	2888	end;
	2889
	2890	procedure TfrmNotes.popNoteMemoSaveContinueClick(Sender: TObject);
	2891	begin
	2892	inherited;
	2893	FChanged := True;
	2894	DoAutoSave;
	2895	end;
	2896
	2897	procedure TfrmNotes.popNoteMemoFindClick(Sender: TObject);
	2898	//var
	2899	//hData: THandle; //CQ8300
	2900	//pData: ^ClipboardData; //CQ8300
	2901	begin
	2902	inherited;
	2903	SendMessage(TRichEdit(popNoteMemo.PopupComponent).Handle, WM_VSCROLL, SB_TOP, 0);
	2904	with dlgFindText do
	2905	begin
	2906	Position := Point(Application.MainForm.Left + pnlLeft.Width, Application.MainForm.Top);
	2907	FindText := '';
	2908	Options := [frDown, frHideUpDown];
	2909	{
	2910	//CQ8300
	2911	OpenClipboard(dlgFindText.Handle);
	2912	hData := GetClipboardData(CF_TEXT);
	2913	pData := GlobalLock(hData);
	2914	FindText := pData^.Text;
	2915	GlobalUnlock(hData);
	2916	CloseClipboard;
	2917	//end CQ8300
	2918	}
	2919	Execute;
	2920	end;
	2921	end;
	2922
	2923	procedure TfrmNotes.dlgFindTextFind(Sender: TObject);
	2924	begin
	2925	dmodShared.FindRichEditText(dlgFindText, TRichEdit(popNoteMemo.PopupComponent));
	2926	end;
	2927
	2928	procedure TfrmNotes.popNoteMemoReplaceClick(Sender: TObject);
	2929	begin
	2930	inherited;
	2931	SendMessage(TRichEdit(popNoteMemo.PopupComponent).Handle, WM_VSCROLL, SB_TOP, 0);
	2932	with dlgReplaceText do
	2933	begin
	2934	Position := Point(Application.MainForm.Left + pnlLeft.Width, Application.MainForm.Top);
	2935	FindText := '';
	2936	ReplaceText := '';
	2937	Options := [frDown, frHideUpDown];
	2938	Execute;
	2939	end;
	2940	end;
	2941
	2942	procedure TfrmNotes.dlgReplaceTextFind(Sender: TObject);
	2943	begin
	2944	inherited;
	2945	dmodShared.FindRichEditText(dlgFindText, TRichEdit(popNoteMemo.PopupComponent));
	2946	end;
	2947
	2948	procedure TfrmNotes.dlgReplaceTextReplace(Sender: TObject);
	2949	begin
	2950	inherited;
	2951	dmodShared.ReplaceRichEditText(dlgReplaceText, TRichEdit(popNoteMemo.PopupComponent));
	2952	end;
	2953
	2954	procedure TfrmNotes.popNoteMemoSpellClick(Sender: TObject);
	2955	begin
	2956	inherited;
	2957	DoAutoSave(0);
	2958	timAutoSave.Enabled := False;
	2959	try
	2960	SpellCheckForControl(memNewNote);
	2961	finally
	2962	FChanged := True;
	2963	DoAutoSave(0);
	2964	timAutoSave.Enabled := True;
	2965	end;
	2966	end;
	2967
	2968	procedure TfrmNotes.popNoteMemoGrammarClick(Sender: TObject);
	2969	begin
	2970	inherited;
	2971	DoAutoSave(0);
	2972	timAutoSave.Enabled := False;
	2973	try
	2974	GrammarCheckForControl(memNewNote);
	2975	finally
	2976	FChanged := True;
	2977	DoAutoSave(0);
	2978	timAutoSave.Enabled := True;
	2979	end;
	2980	end;
	2981
	2982	procedure TfrmNotes.mnuViewDetailClick(Sender: TObject);
	2983	begin
	2984	inherited;
	2985	if lstNotes.ItemIEN <= 0 then Exit;
	2986	mnuViewDetail.Checked := not mnuViewDetail.Checked;
	2987	if mnuViewDetail.Checked then
	2988	begin
	2989	// StatusText('Retrieving progress note details...'); <-- original line. //kt 7/19/2007
	2990	StatusText(DKLangConstW('fNotes_Retrieving_progress_note_detailsxxx')); //kt added 7/19/2007
	2991	Screen.Cursor := crAppStart; //kt, was crHourGlass;
[541]	2992	//kt LoadDetailText(memNote.Lines, lstNotes.ItemIEN);
	2993	LoadDetailText(FViewNote, lstNotes.ItemIEN); //kt 8/09
	2994	SetDisplayToHTMLvsText(FViewMode,FViewNote); //kt 8/09
[453]	2995	Screen.Cursor := crDefault;
	2996	StatusText('');
	2997	memNote.SelStart := 0;
[541]	2998	if not (vmHTML in FViewMode) then //kt 8/09
	2999	memNote.Repaint;
[453]	3000	end
	3001	else
	3002	lstNotesClick(Self);
[541]	3003	if (vmHTML in FViewMode) then begin //kt 8/09
	3004	SendMessage(HTMLViewer.Handle, WM_VSCROLL, SB_TOP, 0); //kt 8/09
	3005	end else begin //kt 8/09
	3006	SendMessage(memNote.Handle, WM_VSCROLL, SB_TOP, 0);
	3007	end; //kt 8/09
[453]	3008	end;
	3009
	3010	procedure TfrmNotes.FormClose(Sender: TObject; var Action: TCloseAction);
	3011	var
	3012	Saved: Boolean;
	3013	IEN: Int64;
	3014	ErrMsg: string;
	3015	DeleteSts: TActionRec;
	3016	begin
	3017	inherited;
	3018	if frmFrame.TimedOut and (EditingIndex <> -1) then
	3019	begin
	3020	FSilent := True;
[541]	3021	//kt 8/09 if memNewNote.GetTextLen > 0 then SaveCurrentNote(Saved)
	3022	if EditorHasText then SaveCurrentNote(Saved) //kt 8/09
[453]	3023	else
	3024	begin
	3025	IEN := lstNotes.GetIEN(EditingIndex);
	3026	if not LastSaveClean(IEN) then // means note hasn't been committed yet
	3027	begin
	3028	LockDocument(IEN, ErrMsg);
	3029	if ErrMsg = '' then
	3030	begin
	3031	DeleteDocument(DeleteSts, IEN, '');
	3032	UnlockDocument(IEN);
	3033	end; {if ErrMsg}
	3034	end; {if not LastSaveClean}
	3035	end; {else}
	3036	end; {if frmFrame}
	3037	end;
	3038
	3039	procedure TfrmNotes.mnuActIdentifyAddlSignersClick(Sender: TObject);
	3040	var
	3041	Exclusions: TStrings;
	3042	Saved, x, y: boolean;
	3043	SignerList: TSignerList;
	3044	ActionSts: TActionRec;
	3045	SigAction: integer;
	3046	SavedDocID: string;
	3047	ARefDate: TFMDateTime;
	3048	begin
	3049	inherited;
	3050	if lstNotes.ItemIEN = 0 then exit;
	3051	SavedDocID := lstNotes.ItemID;
	3052	if lstNotes.ItemIndex = EditingIndex then
	3053	begin
	3054	SaveCurrentNote(Saved);
	3055	if not Saved then Exit;
	3056	LoadNotes;
	3057	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
	3058	end;
	3059	x := CanChangeCosigner(lstNotes.ItemIEN);
	3060	ActOnDocument(ActionSts, lstNotes.ItemIEN, 'IDENTIFY SIGNERS');
	3061	y := ActionSts.Success;
	3062	if x and not y then
	3063	begin
	3064	if InfoBox(ActionSts.Reason + CRLF + CRLF +
	3065	// 'Would you like to change the cosigner?', <-- original line. //kt 7/19/2007
	3066	DKLangConstW('fNotes_Would_you_like_to_change_the_cosignerx'), //kt added 7/19/2007
	3067	TX_IN_AUTH, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) = ID_YES then
	3068	SigAction := SG_COSIGNER
	3069	else
	3070	Exit;
	3071	end
	3072	else if y and not x then SigAction := SG_ADDITIONAL
	3073	else if x and y then SigAction := SG_BOTH
	3074	else
	3075	begin
	3076	InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK);
	3077	Exit;
	3078	end;
	3079
	3080	if not LockConsultRequestAndNote(lstNotes.ItemIEN) then Exit;
	3081	Exclusions := GetCurrentSigners(lstNotes.ItemIEN);
	3082	ARefDate := StrToFloat(Piece(lstNotes.Items[lstNotes.ItemIndex], U, 3));
	3083	SelectAdditionalSigners(Font.Size, lstNotes.ItemIEN, SigAction, Exclusions, SignerList, CT_NOTES, ARefDate);
	3084	with SignerList do
	3085	begin
	3086	case SigAction of
	3087	SG_ADDITIONAL: if Changed and (Signers <> nil) and (Signers.Count > 0) then
	3088	UpdateAdditionalSigners(lstNotes.ItemIEN, Signers);
	3089	SG_COSIGNER: if Changed then ChangeCosigner(lstNotes.ItemIEN, Cosigner);
	3090	SG_BOTH: if Changed then
	3091	begin
	3092	if (Signers <> nil) and (Signers.Count > 0) then
	3093	UpdateAdditionalSigners(lstNotes.ItemIEN, Signers);
	3094	ChangeCosigner(lstNotes.ItemIEN, Cosigner);
	3095	end;
	3096	end;
	3097	lstNotesClick(Self);
	3098	end;
	3099	UnlockDocument(lstNotes.ItemIEN);
	3100	UnlockConsultRequest(lstNotes.ItemIEN);
	3101	end;
	3102
	3103	procedure TfrmNotes.popNoteMemoAddlSignClick(Sender: TObject);
	3104	begin
	3105	inherited;
	3106	mnuActIdentifyAddlSignersClick(Self);
	3107	end;
	3108
	3109	procedure TfrmNotes.ProcessNotifications;
	3110	var
	3111	x: string;
	3112	Saved: boolean;
	3113	tmpNode: TTreeNode;
	3114	AnObject: PDocTreeObject;
	3115	begin
	3116	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	3117	if EditingIndex <> -1 then
	3118	begin
	3119	SaveCurrentNote(Saved);
	3120	if not Saved then Exit;
	3121	end;
	3122	lblNotes.Caption := Notifications.Text;
	3123	tvNotes.Caption := Notifications.Text;
	3124	EditingIndex := -1;
	3125	lstNotes.Enabled := True ;
	3126	pnlRead.BringToFront ;
	3127	// show ALL unsigned/uncosigned for a patient, not just the alerted one
	3128	// what about cosignature? How to get correct list? ORB FOLLOWUP TYPE = OR alerts only
	3129	x := Notifications.AlertData;
	3130	if StrToIntDef(Piece(x, U, 1), 0) = 0 then
	3131	begin
	3132	InfoBox(TX_NO_ALERT, TX_CAP_NO_ALERT, MB_OK);
	3133	Exit;
	3134	end;
	3135	uChanging := True;
	3136	tvNotes.Items.BeginUpdate;
	3137	lstNotes.Clear;
	3138	KillDocTreeObjects(tvNotes);
	3139	tvNotes.Items.Clear;
	3140	lstNotes.Items.Add(x);
	3141	AnObject := MakeNoteTreeObject('ALERT^Alerted Note^^^^^^^^^^^%^0');
	3142	tmpNode := tvNotes.Items.AddObjectFirst(tvNotes.Items.GetFirstNode, AnObject.NodeText, AnObject);
	3143	TORTreeNode(tmpNode).StringData := 'ALERT^Alerted Note^^^^^^^^^^^%^0';
	3144	tmpNode.ImageIndex := IMG_TOP_LEVEL;
	3145	AnObject := MakeNoteTreeObject(x);
	3146	tmpNode := tvNotes.Items.AddChildObjectFirst(tmpNode, AnObject.NodeText, AnObject);
	3147	TORTreeNode(tmpNode).StringData := x;
	3148	SetTreeNodeImagesAndFormatting(TORTreeNode(tmpNode), FCurrentContext, CT_NOTES);
	3149	tvNotes.Selected := tmpNode;
	3150	tvNotes.Items.EndUpdate;
	3151	uChanging := False;
	3152	tvNotesChange(Self, tvNotes.Selected);
	3153	case Notifications.Followup of
	3154	NF_NOTES_UNSIGNED_NOTE: ; //Automatically deleted by sig action!!!
	3155	end;
	3156	if Copy(Piece(Notifications.RecordID, U, 2), 1, 6) = 'TIUADD' then Notifications.Delete;
	3157	if Copy(Piece(Notifications.RecordID, U, 2), 1, 5) = 'TIUID' then Notifications.Delete;
	3158	end;
	3159
	3160	procedure TfrmNotes.SetViewContext(AContext: TTIUContext);
	3161	var
	3162	Saved: boolean;
	3163	begin
	3164	if EditingIndex <> -1 then
	3165	begin
	3166	SaveCurrentNote(Saved);
	3167	if not Saved then Exit;
	3168	end;
	3169	FCurrentContext := AContext;
	3170	EditingIndex := -1;
	3171	tvNotes.Enabled := True ;
	3172	pnlRead.BringToFront ;
	3173	if FCurrentContext.Status <> '' then with uTIUContext do
	3174	begin
	3175	BeginDate := FCurrentContext.BeginDate;
	3176	EndDate := FCurrentContext.EndDate;
	3177	FMBeginDate := FCurrentContext.FMBeginDate;
	3178	FMEndDate := FCurrentContext.FMEndDate;
	3179	Status := FCurrentContext.Status;
	3180	Author := FCurrentContext.Author;
	3181	MaxDocs := FCurrentContext.MaxDocs;
	3182	ShowSubject := FCurrentContext.ShowSubject;
	3183	GroupBy := FCurrentContext.GroupBy;
	3184	SortBy := FCurrentContext.SortBy;
	3185	ListAscending := FCurrentContext.ListAscending;
	3186	TreeAscending := FCurrentContext.TreeAscending;
	3187	Keyword := FCurrentContext.Keyword;
	3188	SearchField := FCurrentContext.SearchField;
	3189	Filtered := FCurrentContext.Filtered;
	3190	Changed := True;
	3191	mnuViewClick(Self);
	3192	end
	3193	else
	3194	begin
	3195	ViewContext := NC_RECENT ;
	3196	mnuViewClick(Self);
	3197	end;
	3198	end;
	3199
	3200	procedure TfrmNotes.mnuViewSaveAsDefaultClick(Sender: TObject);
	3201	//const
	3202	//TX_NO_MAX = 'You have not specified a maximum number of notes to be returned.' + CRLF + <-- original line. //kt 7/19/2007
	3203	// 'If you save this preference, the result will be that ALL notes for every' + CRLF + <-- original line. //kt 7/19/2007
	3204	// 'patient will be saved as your default view.' + CRLF + CRLF + <-- original line. //kt 7/19/2007
	3205	// 'For patients with large numbers of notes, this could result in some lengthy' + CRLF + <-- original line. //kt 7/19/2007
	3206	// 'delays in loading the list of notes.' + CRLF + CRLF + <-- original line. //kt 7/19/2007
	3207	// 'Are you sure you mean to do this?'; <-- original line. //kt 7/19/2007
	3208	//TX_REPLACE = 'Replace current defaults?'; <-- original line. //kt 7/19/2007
	3209	var
	3210	TX_NO_MAX : string; //kt
	3211	TX_REPLACE : string; //kt
	3212
	3213	begin
	3214	inherited;
	3215	TX_NO_MAX := DKLangConstW('fNotes_You_have_not_specified_a_maximum_number_of_notes_to_be_returnedx') + CRLF + //kt added 7/19/2007
	3216	DKLangConstW('fNotes_If_you_save_this_preferencex_the_result_will_be_that_ALL_notes_for_every') + CRLF + //kt added 7/19/2007
	3217	DKLangConstW('fNotes_patient_will_be_saved_as_your_default_viewx') + CRLF + CRLF + //kt added 7/19/2007
	3218	DKLangConstW('fNotes_For_patients_with_large_numbers_of_notesx_this_could_result_in_some_lengthy') + CRLF + //kt added 7/19/2007
	3219	DKLangConstW('fNotes_delays_in_loading_the_list_of_notesx') + CRLF + CRLF + //kt added 7/19/2007
	3220	DKLangConstW('fNotes_Are_you_sure_you_mean_to_do_thisx'); //kt added 7/19/2007
	3221	TX_REPLACE := DKLangConstW('fNotes_Replace_current_defaultsx'); //kt added 7/19/2007
	3222	if FCurrentContext.MaxDocs = 0 then
	3223	if InfoBox(TX_NO_MAX,'Warning', MB_YESNO or MB_ICONWARNING) = IDNO then
	3224	begin
	3225	mnuViewClick(mnuViewCustom);
	3226	Exit;
	3227	end;
	3228	if InfoBox(TX_REPLACE,'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then
	3229	begin
	3230	SaveCurrentTIUContext(FCurrentContext);
	3231	FDefaultContext := FCurrentContext;
	3232	//lblNotes.Caption := 'Default List';
	3233	end;
	3234	end;
	3235
	3236	procedure TfrmNotes.mnuViewReturntoDefaultClick(Sender: TObject);
	3237	begin
	3238	inherited;
	3239	SetViewContext(FDefaultContext);
	3240	end;
	3241
	3242	procedure TfrmNotes.popNoteMemoTemplateClick(Sender: TObject);
	3243	begin
	3244	inherited;
	3245	EditTemplates(Self, TRUE, FEditCtrl.SelText);
	3246	end;
	3247
	3248	procedure TfrmNotes.popNoteListPopup(Sender: TObject);
	3249	begin
	3250	inherited;
	3251	N4.Visible := (popNoteList.PopupComponent is TORTreeView);
	3252	popNoteListExpandAll.Visible := N4.Visible;
	3253	popNoteListExpandSelected.Visible := N4.Visible;
	3254	popNoteListCollapseAll.Visible := N4.Visible;
	3255	popNoteListCollapseSelected.Visible := N4.Visible;
	3256	end;
	3257
	3258	procedure TfrmNotes.popNoteListExpandAllClick(Sender: TObject);
	3259	begin
	3260	inherited;
	3261	tvNotes.FullExpand;
	3262	end;
	3263
	3264	procedure TfrmNotes.popNoteListCollapseAllClick(Sender: TObject);
	3265	begin
	3266	inherited;
	3267	tvNotes.Selected := nil;
	3268	lvNotes.Items.Clear;
	3269	memNote.Clear;
[541]	3270	HTMLViewer.Clear; //kt 8/09
[453]	3271	tvNotes.FullCollapse;
	3272	tvNotes.Selected := tvNotes.TopItem;
	3273	end;
	3274
	3275	procedure TfrmNotes.popNoteListExpandSelectedClick(Sender: TObject);
	3276	begin
	3277	inherited;
	3278	if tvNotes.Selected = nil then exit;
	3279	with tvNotes.Selected do if HasChildren then Expand(True);
	3280	end;
	3281
	3282	procedure TfrmNotes.popNoteListCollapseSelectedClick(Sender: TObject);
	3283	begin
	3284	inherited;
	3285	if tvNotes.Selected = nil then exit;
	3286	with tvNotes.Selected do if HasChildren then Collapse(True);
	3287	end;
	3288
	3289	procedure TfrmNotes.mnuEditTemplatesClick(Sender: TObject);
	3290	begin
	3291	inherited;
	3292	EditTemplates(Self);
	3293	end;
	3294
	3295	procedure TfrmNotes.mnuNewTemplateClick(Sender: TObject);
	3296	begin
	3297	inherited;
	3298	EditTemplates(Self, TRUE);
	3299	end;
	3300
	3301	procedure TfrmNotes.mnuEditSharedTemplatesClick(Sender: TObject);
	3302	begin
	3303	inherited;
	3304	EditTemplates(Self, FALSE, '', TRUE);
	3305	end;
	3306
	3307	procedure TfrmNotes.mnuNewSharedTemplateClick(Sender: TObject);
	3308	begin
	3309	inherited;
	3310	EditTemplates(Self, TRUE, '', TRUE);
	3311	end;
	3312
	3313	procedure TfrmNotes.mnuOptionsClick(Sender: TObject);
	3314	begin
	3315	inherited;
	3316	mnuEditTemplates.Enabled := frmDrawers.CanEditTemplates;
	3317	mnuNewTemplate.Enabled := frmDrawers.CanEditTemplates;
	3318	mnuEditSharedTemplates.Enabled := frmDrawers.CanEditShared;
	3319	mnuNewSharedTemplate.Enabled := frmDrawers.CanEditShared;
	3320	mnuEditDialgFields.Enabled := CanEditTemplateFields;
	3321	end;
	3322
	3323	procedure TfrmNotes.SetEditingIndex(const Value: Integer);
	3324	begin
	3325	FEditingIndex := Value;
	3326	if(FEditingIndex < 0) then
	3327	KillReminderDialog(Self);
	3328	if(assigned(frmReminderTree)) then
	3329	frmReminderTree.EnableActions;
	3330	end;
	3331
	3332	function TfrmNotes.CanFinishReminder: boolean;
	3333	begin
	3334	if(EditingIndex < 0) then
	3335	Result := FALSE
	3336	else
	3337	Result := (lstNotes.ItemIndex = EditingIndex);
	3338	end;
	3339
	3340	procedure TfrmNotes.FormDestroy(Sender: TObject);
	3341	begin
	3342	//kt note: The Images tab will delete all files in .\Cache, which
	3343	// might include HTMLfilename. No harm if already deleted.
[541]	3344	//kt 8/09 DeleteFile(HTMLfilename); //kt added 5-2-05
[453]	3345	TAccessibleTreeView.UnwrapControl(tvNotes);
	3346	FDocList.Free;
	3347	FImageFlag.Free;
	3348	KillDocTreeObjects(tvNotes);
[541]	3349	HtmlEditor.Free; //kt 6/7/09
	3350	HtmlViewer.Free; //kt 6/7/09
[453]	3351	inherited;
	3352	end;
	3353
	3354	function TfrmNotes.GetDrawers: TFrmDrawers;
	3355	begin
	3356	Result := frmDrawers;
	3357	end;
	3358
	3359	procedure TfrmNotes.AssignRemForm;
	3360	begin
[541]	3361	//kt 8/09 ReminderDialog interaction has not yet been debugged with HTML formatted text.
[453]	3362	with RemForm do
	3363	begin
	3364	Form := Self;
	3365	PCEObj := uPCEEdit;
	3366	RightPanel := pnlRight;
	3367	CanFinishProc := CanFinishReminder;
	3368	DisplayPCEProc := DisplayPCE;
	3369	Drawers := frmDrawers;
	3370	NewNoteRE := memNewNote;
[541]	3371	NewNoteHTMLE := HTMLEditor; //kt
[453]	3372	NoteList := lstNotes;
	3373	end;
	3374	end;
	3375
	3376	procedure TfrmNotes.mnuEditDialgFieldsClick(Sender: TObject);
	3377	begin
	3378	inherited;
	3379	EditDialogFields;
	3380	end;
	3381
	3382	//=================== Added for sort/search enhancements ======================
	3383	procedure TfrmNotes.LoadNotes;
	3384	const
	3385	INVALID_ID = -1;
	3386	INFO_ID = 1;
	3387	var
	3388	tmpList: TStringList;
	3389	ANode: TORTreeNode;
	3390	x,xx,noteId: integer; // Text Search CQ: HDS00002856
	3391	Dest: TStrings; // Text Search CQ: HDS00002856
	3392	KeepFlag: Boolean; // Text Search CQ: HDS00002856
	3393	NoteCount, NoteMatches: integer; // Text Search CQ: HDS00002856
	3394	begin
	3395	tmpList := TStringList.Create;
	3396	try
	3397	FDocList.Clear;
	3398	uChanging := True;
	3399	RedrawSuspend(memNote.Handle);
[541]	3400	RedrawSuspend(HTMLViewer.Handle); //kt 8/09
[453]	3401	RedrawSuspend(lvNotes.Handle);
	3402	tvNotes.Items.BeginUpdate;
	3403	lstNotes.Items.Clear;
	3404	KillDocTreeObjects(tvNotes);
	3405	tvNotes.Items.Clear;
	3406	tvNotes.Items.EndUpdate;
	3407	lvNotes.Items.Clear;
	3408	memNote.Clear;
[541]	3409	HTMLViewer.Clear; //kt 8/09
[453]	3410	memNote.Invalidate;
	3411	lblTitle.Caption := '';
	3412	lvNotes.Caption := '';
	3413	with FCurrentContext do
	3414	begin
	3415	if Status <> IntToStr(NC_UNSIGNED) then
	3416	begin
	3417	ListNotesForTree(tmpList, NC_UNSIGNED, 0, 0, 0, 0, TreeAscending);
	3418	if tmpList.Count > 0 then
	3419	begin
	3420	CreateListItemsforDocumentTree(FDocList, tmpList, NC_UNSIGNED, GroupBy, TreeAscending, CT_NOTES);
	3421	UpdateTreeView(FDocList, tvNotes);
	3422	end;
	3423	tmpList.Clear;
	3424	FDocList.Clear;
	3425	end;
	3426	if Status <> IntToStr(NC_UNCOSIGNED) then
	3427	begin
	3428	ListNotesForTree(tmpList, NC_UNCOSIGNED, 0, 0, 0, 0, TreeAscending);
	3429	if tmpList.Count > 0 then
	3430	begin
	3431	CreateListItemsforDocumentTree(FDocList, tmpList, NC_UNCOSIGNED, GroupBy, TreeAscending, CT_NOTES);
	3432	UpdateTreeView(FDocList, tvNotes);
	3433	end;
	3434	tmpList.Clear;
	3435	FDocList.Clear;
	3436	end;
	3437	ListNotesForTree(tmpList, StrToIntDef(Status, 0), FMBeginDate, FMEndDate, Author, MaxDocs, TreeAscending);
	3438	CreateListItemsforDocumentTree(FDocList, tmpList, StrToIntDef(Status, 0), GroupBy, TreeAscending, CT_NOTES);
	3439
	3440	// Text Search CQ: HDS00002856 ---------------------------------------
	3441	if FCurrentContext.SearchString<>'' then // Text Search CQ: HDS00002856
	3442	begin
	3443	NoteMatches := 0;
	3444	Dest:=TStringList.Create;
	3445	NoteCount:=FDocList.Count-1;
	3446	if FDocList.Count>0 then
	3447	for x := FDocList.Count-1 downto 1 do begin; // Don't do 0, because it's informational
	3448	KeepFlag:=False;
	3449	// lblNotes.Caption:='Scanning '+IntToStr(NoteCount-x+1)+' of '+IntToStr(NoteCount)+', '+IntToStr(NoteMatches); <-- original line. //kt 7/19/2007
	3450	lblNotes.Caption:=DKLangConstW('fNotes_Scanning')+' '+IntToStr(NoteCount-x+1)+DKLangConstW('fNotes_of')+IntToStr(NoteCount)+', '+IntToStr(NoteMatches); //kt added 7/19/2007
	3451	If NoteMatches=1 then lblNotes.Caption:=lblNotes.Caption+' match' else
	3452	lblNotes.Caption:=lblNotes.Caption+' matches';
	3453	frmSearchStop.lblSearchStatus.Caption := lblNotes.Caption;
	3454	frmSearchStop.lblSearchStatus.Repaint;
	3455	lblNotes.Repaint;
	3456	// Free up some ticks so they can click the "Stop" button
	3457	application.processmessages;
	3458	application.processmessages;
	3459	application.processmessages;
	3460	If SearchTextStopFlag = False then begin
	3461	noteId := StrToIntDef(Piece(FDocList.Strings[x],'^',1),-1);
	3462	if (noteId = INVALID_ID) or (noteId = INFO_ID) then
	3463	Continue;
	3464	CallV('TIU GET RECORD TEXT', [Piece(FDocList.Strings[x],'^',1)]);
	3465	Dest.Assign(RPCBrokerV.Results);
	3466	If Dest.Count > 0 then
	3467	for xx := 0 to Dest.Count-1 do
	3468	begin
	3469	//Dest.Strings[xx] := StringReplace(Dest.Strings[xx],'#13',' ',[rfReplaceAll, rfIgnoreCase]);
	3470	if Pos(Uppercase(FCurrentContext.SearchString),Uppercase(Dest.Strings[xx]))>0 then
	3471	keepflag:=true;
	3472	end;
	3473	If KeepFlag=False then begin;
	3474	if FDocList.Count >= x then
	3475	FDocList.Delete(x);
	3476	if (tmpList.Count >= x) and (x > 0) then
	3477	tmpList.Delete(x-1);
	3478	end else
	3479	Inc(NoteMatches);
	3480	end;
	3481	end;
	3482	Dest.Free;
	3483	end;
	3484	// Text Search CQ: HDS00002856 ---------------------------------------
	3485
	3486	UpdateTreeView(FDocList, tvNotes);
	3487	end;
	3488	with tvNotes do
	3489	begin
	3490	uChanging := True;
	3491	tvNotes.Items.BeginUpdate;
	3492	RemoveParentsWithNoChildren(tvNotes, FCurrentContext); // moved here in v15.9 (RV)
	3493	if FLastNoteID <> '' then
	3494	Selected := FindPieceNode(FLastNoteID, 1, U, nil);
	3495	if Selected = nil then
	3496	begin
	3497	if (FCurrentContext.GroupBy <> '') or (FCurrentContext.Filtered) then
	3498	begin
	3499	ANode := TORTreeNode(Items.GetFirstNode);
	3500	while ANode <> nil do
	3501	begin
	3502	ANode.Expand(False);
	3503	Selected := ANode;
	3504	ANode := TORTreeNode(ANode.GetNextSibling);
	3505	end;
	3506	end
	3507	else
	3508	begin
	3509	ANode := tvNotes.FindPieceNode(FCurrentContext.Status, 1, U, nil);
	3510	if ANode <> nil then ANode.Expand(False);
	3511	ANode := tvNotes.FindPieceNode(IntToStr(NC_UNSIGNED), 1, U, nil);
	3512	if ANode = nil then
	3513	ANode := tvNotes.FindPieceNode(IntToStr(NC_UNCOSIGNED), 1, U, nil);
	3514	if ANode = nil then
	3515	ANode := tvNotes.FindPieceNode(FCurrentContext.Status, 1, U, nil);
	3516	if ANode <> nil then
	3517	begin
	3518	if ANode.getFirstChild <> nil then
	3519	Selected := ANode.getFirstChild
	3520	else
	3521	Selected := ANode;
	3522	end;
	3523	end;
	3524	end;
	3525	memNote.Clear;
[541]	3526	HTMLViewer.Clear; //kt 8/09
[453]	3527	with lvNotes do
	3528	begin
	3529	Selected := nil;
	3530	if FCurrentContext.SortBy <> '' then
	3531	ColumnToSort := Pos(FCurrentContext.SortBy, 'RDSAL') - 1;
	3532	if not FCurrentContext.ShowSubject then
	3533	begin
	3534	Columns[1].Width := 2 * (Width div 5);
	3535	Columns[2].Width := 0;
	3536	end
	3537	else
	3538	begin
	3539	Columns[1].Width := Width div 5;
	3540	Columns[2].Width := Columns[1].Width;
	3541	end;
	3542	end;
	3543	//RemoveParentsWithNoChildren(tvNotes, FCurrentContext); // moved FROM here in v15.9 (RV)
	3544	tvNotes.Items.EndUpdate;
	3545	uChanging := False;
	3546	SendMessage(tvNotes.Handle, WM_VSCROLL, SB_TOP, 0);
	3547	if Selected <> nil then tvNotesChange(Self, Selected);
	3548	end;
	3549	finally
[541]	3550	//kt NOTE: Is this enough??
	3551	if (vmHTML in FViewMode) then begin //kt 8/09
	3552	RedrawActivate(HtmlViewer.Handle); //kt 8/09
	3553	end else begin //kt 8/09
	3554	RedrawActivate(memNote.Handle);
	3555	end; //kt 8/09
[453]	3556	RedrawActivate(lvNotes.Handle);
	3557	tmpList.Free;
	3558	end;
	3559	end;
	3560
	3561	procedure TfrmNotes.UpdateTreeView(DocList: TStringList; Tree: TORTreeView);
	3562	begin
	3563	with Tree do
	3564	begin
	3565	uChanging := True;
	3566	Items.BeginUpdate;
	3567	lstNotes.Items.AddStrings(DocList);
	3568	BuildDocumentTree(DocList, '0', Tree, nil, FCurrentContext, CT_NOTES);
	3569	Items.EndUpdate;
	3570	uChanging := False;
	3571	end;
	3572	end;
	3573
	3574	procedure TfrmNotes.tvNotesChange(Sender: TObject; Node: TTreeNode);
	3575	var
	3576	x, MySearch, MyNodeID: string;
	3577	i: integer;
	3578	WhyNot: string;
[541]	3579	Mode : TViewModeSet; //kt 8/09
[453]	3580	begin
	3581	if uChanging then Exit;
	3582	//This gives the change a chance to occur when keyboarding, so that WindowEyes
	3583	//doesn't use the old value.
	3584	Application.ProcessMessages;
	3585	with tvNotes do
	3586	begin
	3587	memNote.Clear;
[541]	3588	HTMLViewer.Clear; //kt 8/09
[453]	3589	if Selected = nil then Exit;
	3590	if uIDNotesActive then
	3591	begin
	3592	mnuActDetachFromIDParent.Enabled := (Selected.ImageIndex in [IMG_ID_CHILD, IMG_ID_CHILD_ADD]);
	3593	popNoteListDetachFromIDParent.Enabled := mnuActDetachFromIDParent.Enabled;
	3594	if (Selected.ImageIndex in [IMG_SINGLE, IMG_PARENT, IMG_ID_CHILD, IMG_ID_CHILD_ADD]) then
	3595	mnuActAttachtoIDParent.Enabled := CanBeAttached(PDocTreeObject(Selected.Data)^.DocID, WhyNot)
	3596	else
	3597	mnuActAttachtoIDParent.Enabled := False;
	3598	popNoteListAttachtoIDParent.Enabled := mnuActAttachtoIDParent.Enabled;
	3599	if (Selected.ImageIndex in [IMG_SINGLE, IMG_PARENT,
	3600	IMG_IDNOTE_OPEN, IMG_IDNOTE_SHUT,
	3601	IMG_IDPAR_ADDENDA_OPEN, IMG_IDPAR_ADDENDA_SHUT]) then
	3602	mnuActAddIDEntry.Enabled := CanReceiveAttachment(PDocTreeObject(Selected.Data)^.DocID, WhyNot)
	3603	else
	3604	mnuActAddIDEntry.Enabled := False;
	3605	popNoteListAddIDEntry.Enabled := mnuActAddIDEntry.Enabled
	3606	end;
	3607	RedrawSuspend(lvNotes.Handle);
	3608	RedrawSuspend(memNote.Handle);
[541]	3609	RedrawSuspend(HTMLViewer.Handle); //kt 8/09
[453]	3610	popNoteListExpandSelected.Enabled := Selected.HasChildren;
	3611	popNoteListCollapseSelected.Enabled := Selected.HasChildren;
	3612	x := TORTreeNode(Selected).StringData;
	3613	if (Selected.ImageIndex in [IMG_TOP_LEVEL, IMG_GROUP_OPEN, IMG_GROUP_SHUT]) then
	3614	begin
	3615	lvNotes.Visible := True;
	3616	lvNotes.Items.Clear;
	3617	lvNotes.Height := (2 * lvNotes.Parent.Height) div 5;
	3618	with lblTitle do
	3619	begin
	3620	Caption := Trim(Selected.Text);
	3621	if (FCurrentContext.SearchField <> '') and (FCurrentContext.Filtered) then
	3622	begin
	3623	case FCurrentContext.SearchField[1] of
	3624	'T': MySearch := 'TITLE';
	3625	'S': MySearch := 'SUBJECT';
	3626	'B': MySearch := 'TITLE or SUBJECT';
	3627	end;
	3628	// Caption := Caption + ' where ' + MySearch + ' contains "' + UpperCase(FCurrentContext.Keyword) + '"'; <-- original line. //kt 7/19/2007
	3629	Caption := Caption + DKLangConstW('fNotes_where') + MySearch + DKLangConstW('fNotes_contains_x') + UpperCase(FCurrentContext.Keyword) + '"'; //kt added 7/19/2007
	3630	end;
	3631	lvNotes.Caption := Caption;
	3632	end;
	3633
	3634	if Selected.ImageIndex = IMG_TOP_LEVEL then
	3635	MyNodeID := Piece(TORTreeNode(Selected).StringData, U, 1)
	3636	else if Selected.Parent.ImageIndex = IMG_TOP_LEVEL then
	3637	MyNodeID := Piece(TORTreeNode(Selected.Parent).StringData, U, 1)
	3638	else if Selected.Parent.Parent.ImageIndex = IMG_TOP_LEVEL then
	3639	MyNodeID := Piece(TORTreeNode(Selected.Parent.Parent).StringData, U, 1);
	3640
	3641	uChanging := True;
	3642	TraverseTree(tvNotes, lvNotes, Selected.GetFirstChild, MyNodeID, FCurrentContext);
	3643	with lvNotes do
	3644	begin
	3645	for i := 0 to Columns.Count - 1 do
	3646	Columns[i].ImageIndex := IMG_NONE;
	3647	ColumnSortForward := FCurrentContext.ListAscending;
	3648	if ColumnToSort = 5 then ColumnToSort := 0;
	3649	if ColumnSortForward then
	3650	Columns[ColumnToSort].ImageIndex := IMG_ASCENDING
	3651	else
	3652	Columns[ColumnToSort].ImageIndex := IMG_DESCENDING;
	3653	if ColumnToSort = 0 then ColumnToSort := 5;
	3654	AlphaSort;
	3655	Columns[5].Width := 0;
	3656	Columns[6].Width := 0;
	3657	end;
	3658	uChanging := False;
	3659	with lvNotes do
	3660	if Items.Count > 0 then
	3661	begin
	3662	Selected := Items[0];
	3663	lvNotesSelectItem(Self, Selected, True);
	3664	end
	3665	else
	3666	begin
	3667	Selected := nil;
	3668	lstNotes.ItemIndex := -1;
	3669	memPCEShow.Clear;
	3670	ShowPCEControls(False);
	3671	end;
[541]	3672	//kt 8/09
	3673	//kt NOTE: At this point the list has changed. But what is the new note-to-view's format?
	3674	// We can't just use FViewMode. Because that just states what mode was used on the last note.
	3675	Mode := [vmView] + [vmHTML_MODE[vmHTML in FViewMode]]; //kt 8/09
	3676	SetDisplayToHTMLvsText(Mode,nil,VIEW_ACTIVATE_ONLY); //kt 8/09
	3677	//kt 8/09 pnlWrite.Visible := False;
	3678	//kt 8/09 pnlRead.Visible := True;
[453]	3679	// uncommented next 4 lines in v17.5 (RV)
	3680	//-----------------------------
	3681	UpdateReminderFinish;
	3682	ShowPCEControls(False);
	3683	frmDrawers.DisplayDrawers(TRUE, [odTemplates], [odTemplates]); //FALSE);
	3684	ShowPCEButtons(FALSE);
	3685	//-----------------------------
	3686	//memNote.Clear;
	3687	end
	3688	else if StrToIntDef(Piece(x, U, 1), 0) > 0 then
	3689	begin
	3690	memNote.Clear;
[541]	3691	HTMLViewer.Clear; //kt 8/09
[453]	3692	lvNotes.Visible := False;
	3693	lstNotes.SelectByID(Piece(x, U, 1));
	3694	lstNotesClick(Self);
[541]	3695	if (vmHTML in FViewMode) then begin //kt 8/09
	3696	SendMessage(HTMLViewer.Handle, WM_VSCROLL, SB_TOP, 0); //kt 8/09
	3697	end else begin //kt 8/09
	3698	SendMessage(memNote.Handle, WM_VSCROLL, SB_TOP, 0);
	3699	end; //kt 8/09
[453]	3700	end;
	3701	SendMessage(tvNotes.Handle, WM_HSCROLL, SB_THUMBTRACK, 0);
	3702	RedrawActivate(lvNotes.Handle);
[541]	3703	if (vmHTML in FViewMode) then begin //kt 8/09
	3704	RedrawActivate(HtmlViewer.Handle); //kt 8/09
	3705	end else begin //kt 8/09
	3706	RedrawActivate(memNote.Handle);
	3707	end; //kt 8/09
[453]	3708	end;
	3709	end;
	3710
	3711	procedure TfrmNotes.tvNotesCollapsed(Sender: TObject; Node: TTreeNode);
	3712	begin
	3713	with Node do
	3714	begin
	3715	if (ImageIndex in [IMG_GROUP_OPEN, IMG_IDNOTE_OPEN, IMG_IDPAR_ADDENDA_OPEN]) then
	3716	ImageIndex := ImageIndex - 1;
	3717	if (SelectedIndex in [IMG_GROUP_OPEN, IMG_IDNOTE_OPEN, IMG_IDPAR_ADDENDA_OPEN]) then
	3718	SelectedIndex := SelectedIndex - 1;
	3719	end;
	3720	end;
	3721
	3722	procedure TfrmNotes.tvNotesExpanded(Sender: TObject; Node: TTreeNode);
	3723
	3724	function SortByTitle(Node1, Node2: TTreeNode; Data: Longint): Integer; stdcall;
	3725	begin
	3726	{ Within an ID parent node, sorts in ascending order by title
	3727	BUT - addenda to parent document are always at the top of the sort, in date order}
	3728	if (Copy(PDocTreeObject(Node1.Data)^.DocTitle, 1, 8) = 'Addendum') and
	3729	(Copy(PDocTreeObject(Node2.Data)^.DocTitle, 1, 8) = 'Addendum') then
	3730	begin
	3731	Result := AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocFMDate),
	3732	PChar(PDocTreeObject(Node2.Data)^.DocFMDate));
	3733	end
	3734	else if Copy(PDocTreeObject(Node1.Data)^.DocTitle, 1, 8) = 'Addendum' then Result := -1
	3735	else if Copy(PDocTreeObject(Node2.Data)^.DocTitle, 1, 8) = 'Addendum' then Result := 1
	3736	else
	3737	begin
	3738	if Data = 0 then
	3739	Result := AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocTitle),
	3740	PChar(PDocTreeObject(Node2.Data)^.DocTitle))
	3741	else
	3742	Result := -AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocTitle),
	3743	PChar(PDocTreeObject(Node2.Data)^.DocTitle));
	3744	end
	3745	end;
	3746
	3747	function SortByDate(Node1, Node2: TTreeNode; Data: Longint): Integer; stdcall;
	3748	begin
	3749	{ Within an ID parent node, sorts in ascending order by document date
	3750	BUT - addenda to parent document are always at the top of the sort, in date order}
	3751	if (Copy(PDocTreeObject(Node1.Data)^.DocTitle, 1, 8) = 'Addendum') and
	3752	(Copy(PDocTreeObject(Node2.Data)^.DocTitle, 1, 8) = 'Addendum') then
	3753	begin
	3754	Result := AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocFMDate),
	3755	PChar(PDocTreeObject(Node2.Data)^.DocFMDate));
	3756	end
	3757	else if Copy(PDocTreeObject(Node1.Data)^.DocTitle, 1, 8) = 'Addendum' then Result := -1
	3758	else if Copy(PDocTreeObject(Node2.Data)^.DocTitle, 1, 8) = 'Addendum' then Result := 1
	3759	else
	3760	begin
	3761	if Data = 0 then
	3762	Result := AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocFMDate),
	3763	PChar(PDocTreeObject(Node2.Data)^.DocFMDate))
	3764	else
	3765	Result := -AnsiStrIComp(PChar(PDocTreeObject(Node1.Data)^.DocFMDate),
	3766	PChar(PDocTreeObject(Node2.Data)^.DocFMDate));
	3767	end;
	3768	end;
	3769
	3770	begin
	3771	with Node do
	3772	begin
	3773	if Assigned(Data) then
	3774	if (Pos('<', PDocTreeObject(Data)^.DocHasChildren) > 0) then
	3775	begin
	3776	if (PDocTreeObject(Node.Data)^.OrderByTitle) then
	3777	CustomSort(@SortByTitle, 0)
	3778	else
	3779	CustomSort(@SortByDate, 0);
	3780	end;
	3781	if (ImageIndex in [IMG_GROUP_SHUT, IMG_IDNOTE_SHUT, IMG_IDPAR_ADDENDA_SHUT]) then
	3782	ImageIndex := ImageIndex + 1;
	3783	if (SelectedIndex in [IMG_GROUP_SHUT, IMG_IDNOTE_SHUT, IMG_IDPAR_ADDENDA_SHUT]) then
	3784	SelectedIndex := SelectedIndex + 1;
	3785	end;
	3786	end;
	3787
	3788	procedure TfrmNotes.tvNotesClick(Sender: TObject);
	3789	begin
	3790	(* if tvNotes.Selected = nil then exit;
	3791	if (tvNotes.Selected.ImageIndex in [IMG_TOP_LEVEL, IMG_GROUP_OPEN, IMG_GROUP_SHUT]) then
	3792	begin
	3793	uChanging := True;
	3794	lvNotes.Selected := nil;
	3795	uChanging := False;
	3796	memNote.Clear;
	3797	end;*)
	3798	end;
	3799
	3800	procedure TfrmNotes.tvNotesDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
	3801	var
	3802	AnItem: TORTreeNode;
	3803	begin
	3804	Accept := False;
	3805	if not uIDNotesActive then exit;
	3806	AnItem := TORTreeNode(tvNotes.GetNodeAt(X, Y));
	3807	if (AnItem = nil) or (AnItem.ImageIndex in [IMG_GROUP_OPEN, IMG_GROUP_SHUT, IMG_TOP_LEVEL]) then Exit;
	3808	with tvNotes.Selected do
	3809	if (ImageIndex in [IMG_SINGLE, IMG_PARENT, IMG_ID_CHILD, IMG_ID_CHILD_ADD]) then
	3810	Accept := (AnItem.ImageIndex in [IMG_SINGLE, IMG_PARENT,
	3811	IMG_IDNOTE_OPEN, IMG_IDNOTE_SHUT,
	3812	IMG_IDPAR_ADDENDA_OPEN, IMG_IDPAR_ADDENDA_SHUT])
	3813	else if (ImageIndex in [IMG_IDNOTE_OPEN, IMG_IDNOTE_SHUT, IMG_IDPAR_ADDENDA_OPEN, IMG_IDPAR_ADDENDA_SHUT]) then
	3814	Accept := (AnItem.ImageIndex in [IMG_GROUP_OPEN, IMG_GROUP_SHUT, IMG_TOP_LEVEL])
	3815	else if (ImageIndex in [IMG_ADDENDUM, IMG_GROUP_OPEN, IMG_GROUP_SHUT, IMG_TOP_LEVEL]) then
	3816	Accept := False;
	3817	end;
	3818
	3819	procedure TfrmNotes.tvNotesDragDrop(Sender, Source: TObject; X, Y: Integer);
	3820	var
	3821	HT: THitTests;
	3822	Saved: boolean;
	3823	ADestNode: TORTreeNode;
	3824	begin
	3825	if not uIDNotesActive then
	3826	begin
	3827	CancelDrag;
	3828	exit;
	3829	end;
	3830	if tvNotes.Selected = nil then exit;
	3831	if EditingIndex <> -1 then
	3832	begin
	3833	SaveCurrentNote(Saved);
	3834	if not Saved then Exit;
	3835	end;
	3836	HT := tvNotes.GetHitTestInfoAt(X, Y);
	3837	ADestNode := TORTreeNode(tvNotes.GetNodeAt(X, Y));
	3838	DoAttachIDChild(TORTreeNode(tvNotes.Selected), ADestNode);
	3839	end;
	3840
	3841	procedure TfrmNotes.tvNotesStartDrag(Sender: TObject; var DragObject: TDragObject);
	3842	//const
	3843	//TX_CAP_NO_DRAG = 'Item cannot be moved'; <-- original line. //kt 7/19/2007
	3844	//TX_NO_EDIT_DRAG = 'Items can not be dragged while a note is being edited.'; <-- original line. //kt 7/19/2007
	3845	var
	3846	WhyNot: string;
	3847	//Saved: boolean;
	3848	TX_CAP_NO_DRAG : string; //kt
	3849	TX_NO_EDIT_DRAG : string; //kt
	3850	begin
	3851	TX_CAP_NO_DRAG := DKLangConstW('fNotes_Item_cannot_be_moved'); //kt added 7/19/2007
	3852	TX_NO_EDIT_DRAG := DKLangConstW('fNotes_Items_can_not_be_dragged_while_a_note_is_being_editedx'); //kt added 7/19/2007
	3853	if EditingIndex <> -1 then
	3854	begin
	3855	InfoBox(TX_NO_EDIT_DRAG, TX_CAP_NO_DRAG, MB_ICONERROR or MB_OK);
	3856	CancelDrag;
	3857	Exit;
	3858	end;
	3859	if (tvNotes.Selected.ImageIndex in [IMG_ADDENDUM, IMG_GROUP_OPEN, IMG_GROUP_SHUT, IMG_TOP_LEVEL]) or
	3860	(not uIDNotesActive) or
	3861	(lstNotes.ItemIEN = 0) then
	3862	begin
	3863	CancelDrag;
	3864	Exit;
	3865	end;
	3866	(* if EditingIndex <> -1 then
	3867	begin
	3868	SaveCurrentNote(Saved);
	3869	if not Saved then Exit;
	3870	end;*)
	3871	if not CanBeAttached(PDocTreeObject(tvNotes.Selected.Data)^.DocID, WhyNot) then
	3872	begin
	3873	InfoBox(WhyNot, TX_CAP_NO_DRAG, MB_OK);
	3874	CancelDrag;
	3875	end;
	3876	end;
	3877
	3878	//===================== Listview events =================================
	3879
	3880	procedure TfrmNotes.lvNotesColumnClick(Sender: TObject; Column: TListColumn);
	3881	var
	3882	i, ClickedColumn: Integer;
	3883	begin
	3884	if Column.Index = 0 then ClickedColumn := 5 else ClickedColumn := Column.Index;
	3885	if ClickedColumn = ColumnToSort then
	3886	ColumnSortForward := not ColumnSortForward
	3887	else
	3888	ColumnSortForward := True;
	3889	for i := 0 to lvNotes.Columns.Count - 1 do
	3890	lvNotes.Columns[i].ImageIndex := IMG_NONE;
	3891	if ColumnSortForward then lvNotes.Columns[Column.Index].ImageIndex := IMG_ASCENDING
	3892	else lvNotes.Columns[Column.Index].ImageIndex := IMG_DESCENDING;
	3893	ColumnToSort := ClickedColumn;
	3894	case ColumnToSort of
	3895	5: FCurrentContext.SortBy := 'R';
	3896	1: FCurrentContext.SortBy := 'D';
	3897	2: FCurrentContext.SortBy := 'S';
	3898	3: FCurrentContext.SortBy := 'A';
	3899	4: FCurrentContext.SortBy := 'L';
	3900	else
	3901	FCurrentContext.SortBy := 'R';
	3902	end;
	3903	FCurrentContext.ListAscending := ColumnSortForward;
	3904	(Sender as TCustomListView).AlphaSort;
	3905	//with lvNotes do if Selected <> nil then Scroll(0, Selected.Top - TopItem.Top);
	3906	end;
	3907
	3908	procedure TfrmNotes.lvNotesCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
	3909	var
	3910	ix: Integer;
	3911	begin
	3912	if ColumnToSort = 0 then
	3913	Compare := CompareText(Item1.Caption,Item2.Caption)
	3914	else begin
	3915	ix := ColumnToSort - 1;
	3916	Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
	3917	end;
	3918	if not ColumnSortForward then Compare := -Compare;
	3919	end;
	3920
	3921	procedure TfrmNotes.lvNotesSelectItem(Sender: TObject; Item: TListItem;
	3922	Selected: Boolean);
	3923	begin
	3924	if uChanging or (not Selected) then Exit;
	3925	with lvNotes do
	3926	begin
	3927	// StatusText('Retrieving selected progress note...'); <-- original line. //kt 7/19/2007
	3928	StatusText(DKLangConstW('fNotes_Retrieving_selected_progress_notexxx')); //kt added 7/19/2007
	3929	lstNotes.SelectByID(Item.SubItems[5]);
	3930	lstNotesClick(Self);
[541]	3931	if (vmHTML in FViewMode) then begin //kt 8/09
	3932	SendMessage(HTMLViewer.Handle, WM_VSCROLL, SB_TOP, 0); //kt 8/09
	3933	end else begin //kt 8/09
	3934	SendMessage(memNote.Handle, WM_VSCROLL, SB_TOP, 0);
	3935	end; //kt 8/09
[453]	3936	end;
	3937	end;
	3938
	3939	procedure TfrmNotes.lvNotesResize(Sender: TObject);
	3940	begin
	3941	inherited;
	3942	with lvNotes do
	3943	begin
	3944	if not FCurrentContext.ShowSubject then
	3945	begin
	3946	Columns[1].Width := 2 * (Width div 5);
	3947	Columns[2].Width := 0;
	3948	end
	3949	else
	3950	begin
	3951	Columns[1].Width := Width div 5;
	3952	Columns[2].Width := Columns[1].Width;
	3953	end;
	3954	end;
	3955	end;
	3956
	3957	procedure TfrmNotes.EnableDisableIDNotes;
	3958	begin
	3959	uIDNotesActive := IDNotesInstalled;
	3960	mnuActDetachFromIDParent.Visible := uIDNotesActive;
	3961	popNoteListDetachFromIDParent.Visible := uIDNotesActive;
	3962	mnuActAddIDEntry.Visible := uIDNotesActive;
	3963	popNoteListAddIDEntry.Visible := uIDNotesActive;
	3964	mnuActAttachtoIDParent.Visible := uIDNotesActive;
	3965	popNoteListAttachtoIDParent.Visible := uIDNotesActive;
	3966	if uIDNotesActive then
	3967	tvNotes.DragMode := dmAutomatic
	3968	else
	3969	tvNotes.DragMode := dmManual;
	3970	end;
	3971
	3972	procedure TfrmNotes.ShowPCEButtons(Editing: boolean);
	3973	begin
	3974	if frmFrame.Timedout then Exit;
	3975
	3976	FEditingNotePCEObj := Editing;
	3977	if Editing or AnytimeEncounters then
	3978	begin
	3979	cmdPCE.Visible := TRUE;
	3980	if Editing then
	3981	begin
	3982	cmdPCE.Enabled := CanEditPCE(uPCEEdit);
	3983	cmdNewNote.Visible := AnytimeEncounters;
	3984	cmdNewNote.Enabled := FALSE;
	3985	end
	3986	else
	3987	begin
	3988	cmdPCE.Enabled := (GetAskPCE(0) <> apDisable);
	3989	cmdNewNote.Visible := TRUE;
	3990	cmdNewNote.Enabled := (FStarting = False); //TRUE;
	3991	end;
	3992	if cmdNewNote.Visible then
	3993	cmdPCE.Top := cmdNewNote.Top-cmdPCE.Height;
	3994	end
	3995	else
	3996	begin
	3997	cmdPCE.Enabled := FALSE;
	3998	cmdPCE.Visible := FALSE;
	3999	cmdNewNote.Visible := TRUE;
	4000	cmdNewNote.Enabled := (FStarting = False); //TRUE;
	4001	end;
	4002	if cmdPCE.Visible then
	4003	lblSpace1.Top := cmdPCE.Top - lblSpace1.Height
	4004	else
	4005	lblSpace1.Top := cmdNewNote.Top - lblSpace1.Height;
	4006	popNoteMemoEncounter.Enabled := cmdPCE.Enabled;
	4007	popNoteMemoEncounter.Visible := cmdPCE.Visible;
	4008	end;
	4009
	4010	procedure TfrmNotes.mnuIconLegendClick(Sender: TObject);
	4011	begin
	4012	inherited;
	4013	ShowIconLegend(ilNotes);
	4014	end;
	4015
	4016	procedure TfrmNotes.mnuActAttachtoIDParentClick(Sender: TObject);
	4017	var
	4018	AChildNode: TORTreeNode;
	4019	AParentID: string;
	4020	SavedDocID: string;
	4021	Saved: boolean;
	4022	begin
	4023	inherited;
	4024	if not uIDNotesActive then exit;
	4025	if lstNotes.ItemIEN = 0 then exit;
	4026	SavedDocID := lstNotes.ItemID;
	4027	if EditingIndex <> -1 then
	4028	begin
	4029	SaveCurrentNote(Saved);
	4030	if not Saved then Exit;
	4031	LoadNotes;
	4032	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
	4033	end;
	4034	if tvNotes.Selected = nil then exit;
	4035	AChildNode := TORTreeNode(tvNotes.Selected);
	4036	AParentID := SelectParentNodeFromList(tvNotes);
	4037	if AParentID = '' then exit;
	4038	with tvNotes do Selected := FindPieceNode(AParentID, 1, U, Items.GetFirstNode);
	4039	DoAttachIDChild(AChildNode, TORTreeNode(tvNotes.Selected));
	4040	end;
	4041
	4042	procedure TfrmNotes.DoAttachIDChild(AChild, AParent: TORTreeNode);
	4043	//const
	4044	//TX_ATTACH_CNF = 'Confirm Attachment'; <-- original line. //kt 7/19/2007
	4045	//TX_ATTACH_FAILURE = 'Attachment failed'; <-- original line. //kt 7/19/2007
	4046	var
	4047	ErrMsg, WhyNot: string;
	4048	SavedDocID: string;
	4049	TX_ATTACH_CNF : string; //kt
	4050	TX_ATTACH_FAILURE : string; //kt
	4051	begin
	4052	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	4053	TX_ATTACH_CNF := DKLangConstW('fNotes_Confirm_Attachment'); //kt added 7/19/2007
	4054	TX_ATTACH_FAILURE := DKLangConstW('fNotes_Attachment_failed'); //kt added 7/19/2007
	4055	if (AChild = nil) or (AParent = nil) then exit;
	4056	ErrMsg := '';
	4057	if not CanBeAttached(PDocTreeObject(AChild.Data)^.DocID, WhyNot) then
	4058	ErrMsg := ErrMsg + WhyNot + CRLF + CRLF;
	4059	if not CanReceiveAttachment(PDocTreeObject(AParent.Data)^.DocID, WhyNot) then
	4060	ErrMsg := ErrMsg + WhyNot;
	4061	if ErrMsg <> '' then
	4062	begin
	4063	InfoBox(ErrMsg, TX_ATTACH_FAILURE, MB_OK);
	4064	Exit;
	4065	end
	4066	else
	4067	begin
	4068	WhyNot := '';
	4069	if (InfoBox('ATTACH: ' + AChild.Text + CRLF + CRLF +
	4070	' TO: ' + AParent.Text + CRLF + CRLF +
	4071	// 'Are you sure?', TX_ATTACH_CNF, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) <> IDYES) <-- original line. //kt 7/19/2007
	4072	DKLangConstW('fNotes_Are_you_surex'), TX_ATTACH_CNF, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) <> IDYES) //kt added 7/19/2007
	4073	then Exit;
	4074	SavedDocID := PDocTreeObject(AParent.Data)^.DocID;
	4075	end;
	4076	if AChild.ImageIndex in [IMG_ID_CHILD, IMG_ID_CHILD_ADD] then
	4077	begin
	4078	if DetachEntryFromParent(PDocTreeObject(AChild.Data)^.DocID, WhyNot) then
	4079	begin
	4080	if AttachEntryToParent(PDocTreeObject(AChild.Data)^.DocID, PDocTreeObject(AParent.Data)^.DocID, WhyNot) then
	4081	begin
	4082	LoadNotes;
	4083	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
	4084	if tvNotes.Selected <> nil then tvNotes.Selected.Expand(False);
	4085	end
	4086	else
	4087	InfoBox(WhyNot, TX_ATTACH_FAILURE, MB_OK);
	4088	end
	4089	else
	4090	begin
	4091	WhyNot := StringReplace(WhyNot, 'ATTACH', 'DETACH', [rfIgnoreCase]);
	4092	WhyNot := StringReplace(WhyNot, 'to an ID', 'from an ID', [rfIgnoreCase]);
	4093	InfoBox(WhyNot, TX_DETACH_FAILURE, MB_OK);
	4094	Exit;
	4095	end;
	4096	end
	4097	else
	4098	begin
	4099	if AttachEntryToParent(PDocTreeObject(AChild.Data)^.DocID, PDocTreeObject(AParent.Data)^.DocID, WhyNot) then
	4100	begin
	4101	LoadNotes;
	4102	with tvNotes do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
	4103	if tvNotes.Selected <> nil then tvNotes.Selected.Expand(False);
	4104	end
	4105	else
	4106	InfoBox(WhyNot, TX_ATTACH_FAILURE, MB_OK);
	4107	end;
	4108	end;
	4109
	4110	function TfrmNotes.SetNoteTreeLabel(AContext: TTIUContext): string;
	4111	var
	4112	x: string;
	4113
	4114	function SetDateRangeText(AContext: TTIUContext): string;
	4115	var
	4116	x1: string;
	4117	begin
	4118	with AContext do
	4119	if BeginDate <> '' then
	4120	begin
	4121	x1 := ' from ' + UpperCase(BeginDate);
	4122	// if EndDate <> '' then x1 := x1 + ' to ' + UpperCase(EndDate) <-- original line. //kt 7/19/2007
	4123	if EndDate <> '' then x1 := x1 + DKLangConstW('fNotes_to') + UpperCase(EndDate) //kt added 7/19/2007
	4124	else x1 := x1 + ' to TODAY';
	4125	end;
	4126	Result := x1;
	4127	end;
	4128
	4129	begin
	4130	with AContext do
	4131	begin
	4132	// if MaxDocs > 0 then x := 'Last ' + IntToStr(MaxDocs) + ' ' else x := 'All '; <-- original line. //kt 7/19/2007
	4133	if MaxDocs > 0 then x := DKLangConstW('fNotes_Last') + IntToStr(MaxDocs) + ' ' else x := DKLangConstW('fNotes_All'); //kt added 7/19/2007
	4134	case StrToIntDef(Status, 0) of
	4135	// NC_ALL : x := x + 'Signed Notes'; <-- original line. //kt 7/19/2007
	4136	NC_ALL : x := x + DKLangConstW('fNotes_Signed_Notes'); //kt added 7/19/2007
	4137	NC_UNSIGNED : begin
	4138	// x := x + 'Unsigned Notes for '; <-- original line. //kt 7/19/2007
	4139	x := x + DKLangConstW('fNotes_Unsigned_Notes_for'); //kt added 7/19/2007
	4140	if Author > 0 then x := x + ExternalName(Author, 200)
	4141	else x := x + User.Name;
	4142	x := x + SetDateRangeText(AContext);
	4143	end;
	4144	NC_UNCOSIGNED : begin
	4145	// x := x + 'Uncosigned Notes for '; <-- original line. //kt 7/19/2007
	4146	x := x + DKLangConstW('fNotes_Uncosigned_Notes_for'); //kt added 7/19/2007
	4147	if Author > 0 then x := x + ExternalName(Author, 200)
	4148	else x := x + User.Name;
	4149	x := x + SetDateRangeText(AContext);
	4150	end;
	4151	// NC_BY_AUTHOR : x := x + 'Signed Notes for ' + ExternalName(Author, 200) + SetDateRangeText(AContext); <-- original line. //kt 7/19/2007
	4152	NC_BY_AUTHOR : x := x + DKLangConstW('fNotes_Signed_Notes_for') + ExternalName(Author, 200) + SetDateRangeText(AContext); //kt added 7/19/2007
	4153	// NC_BY_DATE : x := x + 'Signed Notes ' + SetDateRangeText(AContext); <-- original line. //kt 7/19/2007
	4154	NC_BY_DATE : x := x + DKLangConstW('fNotes_Signed_Notes') + SetDateRangeText(AContext); //kt added 7/19/2007
	4155	else
	4156	// x := 'Custom List'; <-- original line. //kt 7/19/2007
	4157	x := DKLangConstW('fNotes_Custom_List'); //kt added 7/19/2007
	4158	end;
	4159	end;
	4160	Result := x;
	4161	end;
	4162
	4163	procedure TfrmNotes.memNewNoteKeyDown(Sender: TObject; var Key: Word;
	4164	Shift: TShiftState);
	4165	begin
	4166	inherited;
	4167	FNavigatingTab := (Key = VK_TAB) and ([ssShift,ssCtrl] * Shift <> []);
	4168	if FNavigatingTab then
	4169	Key := 0;
	4170	end;
	4171
	4172	procedure TfrmNotes.UpdateNoteAuthor(DocInfo: string);
	4173	//const
	4174	//TX_INVALID_AUTHOR1 = 'The author returned by the template ('; <-- original line. //kt 7/19/2007
	4175	//TX_INVALID_AUTHOR2 = ') is not valid.' + #13#10 + 'The note''s author will remain as '; <-- original line. //kt 7/19/2007
	4176	//TC_INVALID_AUTHOR = 'Invalid Author'; <-- original line. //kt 7/19/2007
	4177	//TX_COSIGNER_REQD = ' requires a cosigner for this note.'; <-- original line. //kt 7/19/2007
	4178	//TC_COSIGNER_REQD = 'Cosigner Required'; <-- original line. //kt 7/19/2007
	4179	var
	4180	NewAuth, NewAuthName, AuthNameCheck, x: string;
	4181	ADummySender: TObject;
	4182	TX_INVALID_AUTHOR1 : string; //kt
	4183	TX_INVALID_AUTHOR2 : string; //kt
	4184	TC_INVALID_AUTHOR : string; //kt
	4185	TX_COSIGNER_REQD : string; //kt
	4186	TC_COSIGNER_REQD : string; //kt
	4187	begin
	4188	TX_INVALID_AUTHOR1 := DKLangConstW('fNotes_The_author_returned_by_the_template_x'); //kt added 7/19/2007
	4189	TX_INVALID_AUTHOR2 := DKLangConstW('fNotes_x_is_not_validx') + #13#10 + DKLangConstW('fNotes_The_notexxs_author_will_remain_as'); //kt added 7/19/2007
	4190	TC_INVALID_AUTHOR := DKLangConstW('fNotes_Invalid_Author'); //kt added 7/19/2007
	4191	TX_COSIGNER_REQD := DKLangConstW('fNotes_requires_a_cosigner_for_this_notex'); //kt added 7/19/2007
	4192	TC_COSIGNER_REQD := DKLangConstW('fNotes_Cosigner_Required'); //kt added 7/19/2007
	4193	SetupVars; //kt added 7/19/2007 to replace constants with vars.
	4194	if DocInfo = '' then Exit;
	4195	NewAuth := GetXMLParamReturnValueTIU(DocInfo, 'AUTHOR_IEN');
	4196	if NewAuth = '' then Exit;
	4197	AuthNameCheck := ExternalName(StrToInt64Def(NewAuth, 0), 200);
	4198	if AuthNameCheck = '' then
	4199	begin
	4200	NewAuthName := GetXMLParamReturnValueTIU(DocInfo, 'AUTHOR_NAME');
	4201	InfoBox(TX_INVALID_AUTHOR1 + UpperCase(NewAuthName) + TX_INVALID_AUTHOR2 + UpperCase(FEditNote.AuthorName),
	4202	TC_INVALID_AUTHOR, MB_OK and MB_ICONERROR);
	4203	Exit;
	4204	end;
	4205	with FEditNote do if StrToInt64Def(NewAuth, 0) <> Author then
	4206	begin
	4207	Author := StrToInt64Def(NewAuth, 0);
	4208	AuthorName := AuthNameCheck;
	4209	x := lstNotes.Items[EditingIndex];
	4210	SetPiece(x, U, 5, NewAuth + ';' + AuthNameCheck);
	4211	lstNotes.Items[EditingIndex] := x;
	4212	if AskCosignerForTitle(Title, Author, DateTime) then
	4213	begin
	4214	InfoBox(UpperCase(AuthNameCheck) + TX_COSIGNER_REQD, TC_COSIGNER_REQD, MB_OK);
	4215	//Cosigner := 0; CosignerName := ''; // not sure about this yet
	4216	ADummySender := TObject.Create;
	4217	try
	4218	cmdChangeClick(ADummySender);
	4219	finally
	4220	FreeAndNil(ADummySender);
	4221	end;
	4222	end
	4223	else cmdChangeClick(Self);
	4224	end;
	4225	end;
	4226
	4227	procedure TfrmNotes.sptHorzCanResize(Sender: TObject; var NewSize: Integer;
	4228	var Accept: Boolean);
	4229	begin
	4230	inherited;
	4231	if pnlWrite.Visible then
	4232	if NewSize > frmNotes.ClientWidth - memNewNote.Constraints.MinWidth - sptHorz.Width then
	4233	NewSize := frmNotes.ClientWidth - memNewNote.Constraints.MinWidth - sptHorz.Width;
	4234	end;
	4235
[541]	4236	(*
[453]	4237	//kt 5-2-05 added following function (initially copied from fReports.pas)
	4238	procedure TfrmNotes.WebBrowser1DocumentComplete(Sender: TObject;
	4239	const pDisp: IDispatch; var URL: OleVariant);
	4240	var
	4241	WebDoc: IHtmlDocument2;
	4242	v: variant;
	4243	begin
	4244	{
	4245	inherited;
	4246	if uHTMLDoc = '' then Exit;
	4247	if not(uReportType = 'H') then Exit; //this can be removed if & when browser replaces memtext control
	4248	if not Assigned(WebBrowser1.Document) then Exit;
	4249	WebDoc := WebBrowser1.Document as IHtmlDocument2;
	4250	v := VarArrayCreate([0, 0], varVariant);
	4251	v[0] := uHTMLDoc;
	4252	WebDoc.write(PSafeArray(TVarData(v).VArray));
	4253	WebDoc.close;
	4254	//uHTMLDoc := '';
	4255	}
	4256	end;
[541]	4257	*)
[453]	4258
	4259	procedure TfrmNotes.popNoteMemoInsTemplateClick(Sender: TObject);
	4260	begin
	4261	frmDrawers.mnuInsertTemplateClick(Sender);
	4262	end;
	4263
	4264	procedure TfrmNotes.popNoteMemoPreviewClick(Sender: TObject);
	4265	begin
	4266	frmDrawers.mnuPreviewTemplateClick(Sender);
	4267	end;
	4268
	4269	procedure TfrmNotes.tvNotesAddition(Sender: TObject; Node: TTreeNode);
	4270	begin
	4271	inherited;
	4272	TAccessibleTreeNode.WrapControl(Node as TORTreeNode);
	4273	end;
	4274
	4275	procedure TfrmNotes.tvNotesDeletion(Sender: TObject; Node: TTreeNode);
	4276	begin
	4277	TAccessibleTreeNode.UnwrapControl(Node as TORTreeNode);
	4278	inherited;
	4279	end;
	4280
	4281	{Tab Order tricks. Need to change
	4282	tvNotes
	4283
	4284	frmDrawers.pnlTemplateButton
	4285	frmDrawers.pnlEncounterButton
	4286	cmdNewNote
	4287	cmdPCE
	4288
	4289	lvNotes
	4290	memNote
	4291
	4292	to
	4293	tvNotes
	4294
	4295	lvNotes
	4296	memNote
	4297
	4298	frmDrawers.pnlTemplateButton
	4299	frmDrawers.pnlEncounterButton
	4300	cmdNewNote
	4301	cmdPCE
	4302	}
	4303
	4304	procedure TfrmNotes.tvNotesExit(Sender: TObject);
	4305	begin
	4306	if IncSecond(FMousing,1) < Now then
	4307	begin
	4308	if (Screen.ActiveControl = frmDrawers.pnlTemplatesButton) or
	4309	(Screen.ActiveControl = frmDrawers.pnlEncounterButton) or
	4310	(Screen.ActiveControl = cmdNewNote) or
	4311	(Screen.ActiveControl = cmdPCE) then
	4312	FindNextControl( cmdPCE, True, True, False).SetFocus;
	4313	end;
	4314	FMousing := 0;
	4315	end;
	4316
	4317	procedure TfrmNotes.pnlReadExit(Sender: TObject);
	4318	begin
	4319	inherited;
	4320	if IncSecond(FMousing,1) < Now then
	4321	begin
	4322	if (Screen.ActiveControl = frmFrame.pnlPatient) then
	4323	FindNextControl( tvNotes, True, True, False).SetFocus
	4324	else
	4325	if (Screen.ActiveControl = frmDrawers.pnlTemplatesButton) or
	4326	(Screen.ActiveControl = frmDrawers.pnlEncounterButton) or
	4327	(Screen.ActiveControl = cmdNewNote) or
	4328	(Screen.ActiveControl = cmdPCE) then
	4329	FindNextControl( frmDrawers.pnlTemplatesButton, False, True, False).SetFocus;
	4330	end;
	4331	FMousing := 0;
	4332	end;
	4333
	4334	procedure TfrmNotes.cmdNewNoteExit(Sender: TObject);
	4335	begin
	4336	inherited;
	4337	if IncSecond(FMousing,1) < Now then
	4338	begin
	4339	if (Screen.ActiveControl = lvNotes) or
	4340	(Screen.ActiveControl = memNote) then
	4341	frmFrame.pnlPatient.SetFocus
	4342	else
	4343	if (Screen.ActiveControl = tvNotes) then
	4344	FindNextControl( frmFrame.pnlPatient, False, True, False).SetFocus;
	4345	end;
	4346	FMousing := 0;
	4347	end;
	4348
	4349	procedure TfrmNotes.frmFramePnlPatientExit(Sender: TObject);
	4350	begin
	4351	FOldFramePnlPatientExit(Sender);
	4352	if IncSecond(FMousing,1) < Now then
	4353	begin
	4354	if (Screen.ActiveControl = lvNotes) or
	4355	(Screen.ActiveControl = memNote) then
	4356	FindNextControl( lvNotes, False, True, False).SetFocus;
	4357	end;
	4358	FMousing := 0;
	4359	end;
	4360
	4361	procedure TfrmNotes.FormHide(Sender: TObject);
	4362	begin
	4363	inherited;
	4364	frmFrame.pnlPatient.OnExit := FOldFramePnlPatientExit;
	4365	frmDrawers.pnlTemplatesButton.OnExit := FOldDrawerPnlTemplatesButtonExit;
	4366	frmDrawers.pnlEncounterButton.OnExit := FOldDrawerPnlEncounterButtonExit;
	4367	frmDrawers.edtSearch.OnExit := FOldDrawerEdtSearchExit;
	4368	end;
	4369
	4370	procedure TfrmNotes.FormShow(Sender: TObject);
	4371	begin
	4372	inherited;
	4373	FOldFramePnlPatientExit := frmFrame.pnlPatient.OnExit;
	4374	frmFrame.pnlPatient.OnExit := frmFramePnlPatientExit;
	4375	FOldDrawerPnlTemplatesButtonExit := frmDrawers.pnlTemplatesButton.OnExit;
	4376	frmDrawers.pnlTemplatesButton.OnExit := frmDrawerPnlTemplatesButtonExit;
	4377	FOldDrawerPnlEncounterButtonExit := frmDrawers.pnlEncounterButton.OnExit;
	4378	frmDrawers.pnlEncounterButton.OnExit := frmDrawerPnlEncounterButtonExit;
	4379	FOldDrawerEdtSearchExit := frmDrawers.edtSearch.OnExit;
	4380	frmDrawers.edtSearch.OnExit := frmDrawerEdtSearchExit;
	4381	end;
	4382
	4383	procedure TfrmNotes.frmDrawerEdtSearchExit(Sender: TObject);
	4384	begin
	4385	FOldDrawerEdtSearchExit(Sender);
	4386	cmdNewNoteExit(Sender);
	4387	end;
	4388
	4389	procedure TfrmNotes.frmDrawerPnlTemplatesButtonExit(Sender: TObject);
	4390	begin
	4391	FOldDrawerPnlTemplatesButtonExit(Sender);
	4392	if Boolean(Hi(GetKeyState(VK_TAB))) and (memNewNote.CanFocus) and
	4393	Boolean(Hi(GetKeyState(VK_SHIFT))) then
	4394	memNewNote.SetFocus
	4395	else
	4396	cmdNewNoteExit(Sender);
	4397	end;
	4398
	4399	procedure TfrmNotes.frmDrawerPnlEncounterButtonExit(Sender: TObject);
	4400	begin
	4401	FOldDrawerPnlEncounterButtonExit(Sender);
	4402	cmdNewNoteExit(Sender);
	4403	end;
	4404
	4405	procedure TfrmNotes.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
	4406	Y: Integer);
	4407	begin
	4408	inherited;
	4409	FMousing := Now;
	4410	end;
	4411
[541]	4412	procedure TfrmNotes.SetHTMLEditMode(HTMLEditMode : boolean; Quiet : boolean);
	4413	//kt added function 7/09
	4414	var Mode : TViewModeSet; //kt
	4415	const HTML_MODE_S : Array[false..true] of string[16] = ('PLAIN','FORMATTED');
	4416	begin
	4417	if FEditNote.Lines = nil then FEditNote.Lines := TStringList.Create; //kt
	4418	if HTMLEditMode then begin
	4419	if (FViewMode = [vmHTML,vmEdit]) then exit; //no change needed.
	4420	FEditNote.Lines.Assign(memNewNote.Lines);
	4421	end else begin
	4422	if (FViewMode = [vmText,vmEdit]) then exit; //no change needed.
	4423	if HtmlEditor.GetTextLen > 0 then begin
	4424	if MessageDlg('Do you want to convert this note to PLAIN TEXT?'+#10#13+
	4425	'(May cause loss of formatting information.)',mtWarning, mbOKCancel,0) <> mrOK then begin
	4426	exit;
	4427	end;
	4428	end;
	4429	FEditNote.Lines.Text := HTMLEditor.Text;
	4430	end;
	4431	Mode := [vmEdit] + [vmHTML_MODE[HTMLEditMode]]; //kt
	4432	SetDisplayToHTMLvsText(Mode,FEditNote.Lines);
	4433	if not Quiet then begin
	4434	if MessageDlg('Start new notes in '+HTML_MODE_S[HTMLEditMode]+' TEXT by default?',mtConfirmation,[mbYES,mbNO],0) = mrYES then begin
	4435	fOptionsNotes.SetDefaultEditHTMLMode(HTMLEditMode);
	4436	end;
	4437	end;
	4438	end;
	4439
	4440	procedure TfrmNotes.ToggleHTMLEditMode;
	4441	//kt added function 6/09
	4442	var NewHTMLMode: boolean;
	4443	begin
	4444	if not (vmEdit in FViewMode) then exit; //quit if not in edit mode
	4445	NewHTMLMode := not (vmHTML in FViewMode);
	4446	SetHTMLEditMode(NewHTMLMode);
	4447	end;
	4448
	4449
	4450	procedure TfrmNotes.SetDisplayToHTMLvsText(Mode : TViewModeSet;
	4451	Lines : TStrings;
	4452	ActivateOnly : boolean {default=False});
	4453	//kt added function 7/09
	4454	//If ActivateOnly=True, then the visibility is set, but the control is not filled with text.
	4455
	4456	type
	4457	TPanelVisibilityMode = (pvmReadMode, pvmWriteMode); //kt
	4458
	4459	procedure SetPanelVisibility(Mode: TPanelVisibilityMode; HTMLMode : boolean);
	4460
	4461	procedure SetpnlReadVisibility(Visible : boolean; HTMLMode : boolean);
	4462	begin
	4463	pnlRead.Visible := Visible;
	4464	if Visible then begin
	4465	memNote.Visible := not HTMLMode;
	4466	memNote.TabStop := not HTMLMode;
	4467	pnlHTMLViewer.Visible := HTMLMode;
	4468	HTMLViewer.Visible := HTMLMode;
	4469	if HTMLMode then begin
	4470	HtmlViewer.BringToFront;
	4471	end else begin
	4472	MemNote.BringToFront;
	4473	end;
	4474	end else begin
	4475	memNote.Visible := false;
	4476	memNote.TabStop := false;
	4477	pnlHTMLViewer.Visible := false;
	4478	HTMLViewer.Visible := false;
	4479	end;
	4480	end; {SetDisplayToHTMLvsText.SetPanelVisibility.SetpnlReadVisibility}
	4481
	4482	procedure SetpnlWriteVisibility(Visible : boolean; HTMLMode : boolean);
	4483	begin
	4484	pnlWrite.Visible := Visible;
	4485	if Visible then begin
	4486	pnlHTMLWrite.Visible := HTMLMode;
	4487	pnlHTMLEdit.Visible := HTMLMode;
	4488	HTMLEditor.Visible := HTMLMode;
	4489	pnlTextWrite.Visible := not HTMLMode;
	4490	MemNewNote.Visible := not HTMLMode;
	4491	if HTMLMode then begin
	4492	HTMLEditor.BringToFront;
	4493	end else begin
	4494	MemNewNote.BringToFront;
	4495	end;
	4496	end else begin
	4497	pnlHTMLWrite.Visible := false;
	4498	pnlHTMLEdit.Visible := false;
	4499	HTMLEditor.Visible := false;
	4500	pnlTextWrite.Visible := false;
	4501	memNewNote.Visible := false;
	4502	end;
	4503	end; {SetDisplayToHTMLvsText.SetPanelVisibility.SetpnlWriteVisibility}
	4504
	4505	begin {SetDisplayToHTMLvsText.SetPanelVisibility}
	4506	SetpnlReadVisibility ((Mode=pvmReadMode), HTMLMode);
	4507	SetpnlWriteVisibility((Mode=pvmWriteMode),HTMLMode);
	4508	Application.ProcessMessages;
	4509	end; {SetDisplayToHTMLvsText.SetPanelVisibility}
	4510
	4511	procedure SetHTMLorTextEditor(HTMLEditMode : boolean;
	4512	Lines : TStrings;
	4513	ActivateOnly : boolean {default=False});
	4514	procedure ActivateHtmlEditor(Lines : TStrings);
	4515	var HTMLText : string;
	4516	begin
	4517	HtmlEditor.Editable := true;
	4518	if ActivateOnly=false then begin
	4519	if Lines <> nil then begin
	4520	if rHTMLTools.IsHTML(Lines) then begin
	4521	HTMLText := Lines.Text;
	4522	end else begin
	4523	HTMLText := Text2HTML(Lines);
	4524	if HTMLText='' then HTMLText := ' ';
	4525	end;
	4526	end else HTMLText := ' ';
	4527	HtmlEditor.HTMLText := HTMLText;
	4528	HTMLEditor.KeyStruck := false;
	4529	end;
	4530	end; {SetDisplayToHTMLvsText.SetHTMLorTextEditor.ActivateHtmlEditor}
	4531
	4532	procedure ActiveMemoEditor(Lines : TStrings);
	4533	begin
	4534	if ActivateOnly=false then begin
	4535	memNewNote.Lines.Assign(Lines); //kt new
	4536	end;
	4537	//kt HtmlEditor.Active := false; //stop intercepting OnMessages
	4538	HtmlEditor.Clear;
	4539	end; {SetDisplayToHTMLvsText.SetHTMLorTextEditor.ActiveMemoEditor}
	4540
	4541	begin {SetDisplayToHTMLvsText.SetHTMLorTextEditor}
	4542	FHTMLEditMode := emHTML_MODE[HTMLEditMode];
	4543	FViewMode := [vmEdit] + [vmHTML_MODE[HTMLEditMode]];
	4544	SetPanelVisibility(pvmWriteMode,HTMLEditMode);
	4545	pnlRight.Repaint; //kt TEMP
	4546	if HTMLEditMode then begin
	4547	ActivateHtmlEditor(Lines);
	4548	end else begin
	4549	ActiveMemoEditor(Lines);
	4550	end;
	4551	pnlRight.Repaint; //kt TEMP
	4552	end; {SetDisplayToHTMLvsText.SetHTMLorTextEditor}
	4553
	4554	procedure SetHTMLorTextViewer(HTMLViewMode : boolean;
	4555	Lines : TStrings;
	4556	ActivateOnly : boolean); //kt
	4557	//Set forms such that either HTML Viewer is visible, or standard edit window.
	4558	procedure ActivateHtmlViewer(Lines : TStrings);
	4559	begin
	4560	with frmNotes do begin
[729]	4561
[541]	4562	pnlHtmlViewer.Visible := true;
	4563	//memNote.Visible := false;
	4564	//memNote.TabStop := false;
	4565	HtmlViewer.BringToFront;
	4566	if ActivateOnly=False then begin
	4567	FixHTML(Lines);
	4568	HtmlViewer.HTMLText := Lines.Text;
	4569	end;
	4570	HtmlViewer.Editable := false;
	4571	HtmlViewer.BackgroundColor := clCream;
	4572	HtmlViewer.TabStop := true;
	4573	RedrawActivate(HtmlViewer.Handle);
	4574	end;
	4575	end; {SetDisplayToHTMLvsText.SetHTMLorTextViewer.ActivateHtmlViewer}
	4576
	4577	procedure ActivateMemoViewer(Lines : TStrings);
	4578	begin
	4579	with frmNotes do begin
	4580	pnlHtmlViewer.Visible := false;
	4581	HtmlViewer.Clear;
	4582	//HtmlEditor.Clear; //don't this here. Only clear in ClearEditControls...
	4583	HtmlViewer.TabStop := false;
	4584	if ActivateOnly=False then memNote.Lines.Assign(Lines); //new
	4585	memNote.Visible := true;
	4586	memNote.TabStop := true;
	4587	memNote.BringToFront;
	4588	RedrawActivate(memNote.Handle);
	4589	end;
	4590	end; {SetDisplayToHTMLvsText.SetHTMLorTextViewer.ActivateMemoViewer}
	4591
	4592	begin {SetHTMLorTextViewer}
	4593	FViewMode := [vmView] + [vmHTML_MODE[HTMLViewMode]];
	4594	SetPanelVisibility(pvmReadMode,HTMLviewMode);
	4595	//pnlRight.Repaint; //kt TEMP
	4596	if HTMLViewMode then begin
	4597	ActivateHtmlViewer(Lines);
	4598	end else begin
	4599	ActivateMemoViewer(Lines);
	4600	HtmlViewer.Clear;
	4601	end;
	4602	pnlRight.Repaint; //kt TEMP
	4603	end; {SetDisplayToHTMLvsText.SetHTMLorTextViewer}
	4604
	4605	begin {SetDisplayToHTMLvsText}
	4606	if vmEdit in Mode then begin
	4607	SetHTMLorTextEditor((vmHTML in Mode),Lines,ActivateOnly);
	4608	end else begin
	4609	SetHTMLorTextViewer((vmHTML in Mode),Lines,ActivateOnly);
	4610	end;
	4611	end; {SetDisplayToHTMLvsText}
	4612
	4613	procedure TfrmNotes.btnBoldClick(Sender: TObject);
	4614	//kt added function
	4615	begin
	4616	inherited;
	4617	HtmlEditor.ToggleBold;
	4618	end;
	4619
	4620	procedure TfrmNotes.btnItalicClick(Sender: TObject);
	4621	//kt added function
	4622	begin
	4623	inherited;
	4624	HtmlEditor.ToggleItalic;
	4625	end;
	4626
	4627	procedure TfrmNotes.btnLessIndentClick(Sender: TObject);
	4628	//kt added function
	4629	begin
	4630	inherited;
	4631	HtmlEditor.Outdent;
	4632	end;
	4633
	4634	procedure TfrmNotes.btnMoreIndentClick(Sender: TObject);
	4635	//kt added function
	4636	begin
	4637	inherited;
	4638	HtmlEditor.Indent;
	4639	end;
	4640
	4641	procedure TfrmNotes.btnRightAlignClick(Sender: TObject);
	4642	//kt added function
	4643	begin
	4644	inherited;
	4645	HtmlEditor.AlignRight;
	4646	end;
	4647
[793]	4648	procedure TfrmNotes.btnImageClick(Sender: TObject);
	4649	//kt added function
[801]	4650	begin
	4651	if frmImages.ImagesCount > 0 then begin
	4652	popupAddImage.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
	4653	//Will allow user to :
	4654	// Cancel, or trigger mnuAddNewImageClick or mnuSelectExistingImageClick
	4655	end else begin
	4656	mnuAddNewImageClick(self);
	4657	end;
	4658	end;
	4659
	4660	procedure TfrmNotes.mnuAddNewImageClick(Sender: TObject);
	4661	//kt added function
[793]	4662	var
	4663	i, AddResult: integer;
	4664	oneImage: string;
[800]	4665	ImageFName : string;
[793]	4666	begin
	4667	inherited;
[800]	4668	UploadForm.AllowNonImages := false; //only allow selection of IMAGES
[793]	4669	AddResult := UploadForm.ShowModal;
[800]	4670	UploadForm.AllowNonImages := true; // restore to allow any file
[793]	4671	if IsAbortResult(AddResult) then exit;
	4672	for i := 0 to UploadForm.UploadedImages.Count-1 do begin
[800]	4673	ImageFName := CPRSDir+'\Cache\' + UploadForm.UploadedImages.Strings[i];
	4674	oneImage := '<img src="'+ ImageFName + '" ' + ALT_IMG_TAG_CONVERT + ' >';
[793]	4675	HTMLEditor.InsertHTMLAtCaret(oneImage+#13#10);
	4676	end;
	4677	end;
	4678
[801]	4679	procedure TfrmNotes.mnuSelectExistingImageClick(Sender: TObject);
	4680	//kt added function
	4681	var
	4682	oneImage: string;
	4683	ImageFName : string;
	4684	begin
	4685	inherited;
	4686	frmImagePickExisting := TfrmImagePickExisting.Create(Self);
	4687	if frmImagePickExisting.ShowModal = mrOK then begin
	4688	ImageFName := frmImagePickExisting.SelectedImageFName;
	4689	if ImageFName <> '' then begin
	4690	if frmImages.ThumbnailIndexForFName(ImageFName) = IMAGE_INDEX_IMAGE then begin
	4691	oneImage := '<img src="'+ ImageFName + '" ' + ALT_IMG_TAG_CONVERT + ' >';
	4692	end else begin
	4693	oneImage := '<embed src="'+ ImageFName + '" ' + ALT_IMG_TAG_CONVERT + ' >';
	4694	end;
	4695	HTMLEditor.InsertHTMLAtCaret(oneImage+#13#10);
	4696	end;
	4697	end;
	4698	FreeAndNil(frmImagePickExisting);
	4699	end;
	4700
	4701
[541]	4702	procedure TfrmNotes.btnCenterAlignClick(Sender: TObject);
	4703	//kt added function
	4704	begin
	4705	inherited;
	4706	HtmlEditor.AlignCenter;
	4707	end;
	4708
	4709	procedure TfrmNotes.btnLeftAlignClick(Sender: TObject);
	4710	//kt added function
	4711	begin
	4712	inherited;
	4713	HtmlEditor.AlignLeft;
	4714	end;
	4715
	4716	procedure TfrmNotes.btnNumbersClick(Sender: TObject);
	4717	//kt added function
	4718	begin
	4719	inherited;
	4720	HtmlEditor.ToggleNumbering;
	4721	end;
	4722
	4723	procedure TfrmNotes.btnBulletsClick(Sender: TObject);
	4724	//kt added function
	4725	begin
	4726	inherited;
	4727	HtmlEditor.ToggleBullet;
	4728	end;
	4729
	4730	procedure TfrmNotes.btnUnderlineClick(Sender: TObject);
	4731	//kt added function
	4732	begin
	4733	inherited;
	4734	HtmlEditor.ToggleUnderline;
	4735	end;
	4736
	4737	procedure TfrmNotes.btnTextColorClick(Sender: TObject);
	4738	//kt added function
	4739	begin
	4740	inherited;
	4741	HtmlEditor.TextForeColorDialog;
	4742	end;
	4743
	4744	procedure TfrmNotes.btnBackColorClick(Sender: TObject);
	4745	//kt added function
	4746	begin
	4747	inherited;
	4748	HtmlEditor.TextBackColorDialog;
	4749	end;
	4750
	4751	procedure TfrmNotes.btnFontsClick(Sender: TObject);
	4752	//kt added function
	4753	begin
	4754	inherited;
	4755	HtmlEditor.FontDialog;
	4756	end;
	4757
	4758	procedure TfrmNotes.cbFontSizeChange(Sender: TObject);
	4759	//kt added function
	4760	const
	4761	FontSizes : array [0..6] of byte = (8,10,12,14,18,24,36);
	4762	begin
	4763	inherited;
	4764	//HtmlEditor.FontSize := StrToInt(cbFontSize.Text);
	4765	HtmlEditor.FontSize := FontSizes[cbFontSize.ItemIndex];
	4766	end;
	4767
	4768	procedure TfrmNotes.cbFontNamesChange(Sender: TObject);
	4769	//kt added function
	4770	var i : integer;
	4771	FontName : string;
	4772	const
	4773	TEXT_BAR = '---------------';
	4774	begin
	4775	inherited;
	4776	if cbFontNames.Text[1]='<' then exit;
	4777	FontName := cbFontNames.Text;
	4778	HtmlEditor.FontName := FontName;
	4779	i := cbFontNames.Items.IndexOf(TEXT_BAR);
	4780	if i < 1 then cbFontNames.Items.Insert(0,TEXT_BAR);
	4781	if i > 5 then cbFontNames.Items.Delete(5);
	4782	if cbFontNames.Items.IndexOf(FontName)> i then begin
	4783	cbFontNames.Items.Insert(0,FontName);
	4784	end;
	4785	end;
	4786
	4787	(*
[453]	4788	//kt made this entire temp function
	4789	procedure TfrmNotes.WebBrowser1CommandStateChange(Sender: TObject;
	4790	Command: Integer; Enable: WordBool);
	4791
	4792	var
	4793	s,ts: String;
	4794	Buff : array[0..255] of char;
	4795	pBuff : pChar;
	4796
	4797	begin
	4798	inherited;
	4799	pBuff := @Buff;
	4800	case Command of
	4801	// CSC_UPDATECOMMANDS: ts := '<Some property>'; <-- original line. //kt 7/19/2007
	4802	// CSC_UPDATECOMMANDS: ts := DKLangConstW('fNotes_xSome_propertyx'); //kt added 7/19/2007
	4803	-1: ts := DKLangConstW('fNotes_xSome_propertyx'); //kt changed 9/7/07
	4804	CSC_NAVIGATEFORWARD: ts := ''; //'<Navigate Forward>';
	4805	CSC_NAVIGATEBACK: ts := ''; //'<Nagivate Backwards>';
	4806	else ts := '??';
	4807	end; {case}
	4808	if ts<>'' then begin
	4809	// s := 'Browser Status change: ' + ts + '; Enabled= ' + BoolToStr(Enable); <-- original line. //kt 7/19/2007
	4810	s := DKLangConstW('fNotes_Browser_Status_changex')+' ' + ts + DKLangConstW('fNotes_x_Enabledx') + BoolToStr(Enable); //kt added 7/19/2007
	4811	//Application.MessageBox(StrPCopy(pBuff,s),'Note');
	4812	end;
	4813	end;
[541]	4814	*)
[453]	4815
	4816	procedure TfrmNotes.memNewNoteKeyPress(Sender: TObject; var Key: Char);
	4817	begin
	4818	inherited;
	4819	if FNavigatingTab then
	4820	Key := #0; //Disable shift-tab processinend;
	4821	end;
	4822
	4823	procedure TfrmNotes.memNewNoteKeyUp(Sender: TObject; var Key: Word;
	4824	Shift: TShiftState);
	4825	begin
	4826	inherited;
	4827	if FNavigatingTab then
	4828	begin
	4829	if ssShift in Shift then
	4830	FindNextControl(Sender as TWinControl, False, True, False).SetFocus //previous control
	4831	else if ssCtrl in Shift then
	4832	if frmDrawers.pnlTemplatesButton.CanFocus then
	4833	frmDrawers.pnlTemplatesButton.SetFocus
	4834	else
	4835	FindNextControl(Sender as TWinControl, True, True, False).SetFocus; //next control
	4836	FNavigatingTab := False;
	4837	end;
	4838	if (key = VK_ESCAPE) then begin
	4839	FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control
	4840	key := 0;
	4841	end;
	4842	end;
	4843
	4844	procedure TfrmNotes.memPCEShowExit(Sender: TObject);
	4845	begin
	4846	inherited;
	4847	//Fix the Tab Order Make Drawers Buttons Accessible
	4848	if Boolean(Hi(GetKeyState(VK_TAB))) then
	4849	if Boolean(Hi(GetKeyState(VK_SHIFT))) then
	4850	cmdPCE.SetFocus
	4851	else
	4852	frmFrame.pnlPatient.SetFocus;
	4853	end;
	4854
	4855	procedure TfrmNotes.cmdChangeExit(Sender: TObject);
	4856	begin
	4857	inherited;
	4858	//Fix the Tab Order Make Drawers Buttons Accessible
	4859	if Boolean(Hi(GetKeyState(VK_TAB))) and
	4860	Boolean(Hi(GetKeyState(VK_SHIFT))) then
	4861	tvNotes.SetFocus;
	4862	end;
	4863
	4864	procedure TfrmNotes.cmdPCEExit(Sender: TObject);
	4865	begin
	4866	inherited;
	4867	//Fix the Tab Order Make Drawers Buttons Accessible
	4868	if Boolean(Hi(GetKeyState(VK_TAB))) and
	4869	Not Boolean(Hi(GetKeyState(VK_SHIFT))) then
	4870	if memPCEShow.Visible then //CQ7120
	4871	memPCEShow.SetFocus; //CQ7120
	4872	end;
	4873
	4874	procedure TfrmNotes.ViewInfo(Sender: TObject);
	4875	begin
	4876	inherited;
	4877	frmFrame.ViewInfo(Sender);
	4878	end;
	4879
	4880	procedure TfrmNotes.mnuViewInformationClick(Sender: TObject);
	4881	begin
	4882	inherited;
	4883	mnuViewDemo.Enabled := frmFrame.pnlPatient.Enabled;
	4884	mnuViewVisits.Enabled := frmFrame.pnlVisit.Enabled;
	4885	mnuViewPrimaryCare.Enabled := frmFrame.pnlPrimaryCare.Enabled;
	4886	mnuViewMyHealtheVet.Enabled := not (Copy(frmFrame.laMHV.Hint, 1, 2) = 'No');
	4887	mnuInsurance.Enabled := not (Copy(frmFrame.laVAA2.Hint, 1, 2) = 'No');
	4888	mnuViewFlags.Enabled := frmFrame.lblFlag.Enabled;
	4889	mnuViewRemoteData.Enabled := frmFrame.lblCirn.Enabled;
	4890	mnuViewReminders.Enabled := frmFrame.pnlReminders.Enabled;
	4891	mnuViewPostings.Enabled := frmFrame.pnlPostings.Enabled;
	4892	end;
	4893
[809]	4894	procedure TfrmNotes.mnuSearchNotesClick(Sender: TObject);
[819]	4895	//kt added
[809]	4896	begin
	4897	inherited;
	4898	Application.CreateForm(TfrmPtDocSearch, frmPtDocSearch);
[819]	4899	if frmPtDocSearch.ShowModal > -1 then begin
	4900	//open diff note it selected
	4901
	4902	end;
[809]	4903	frmPtDocSearch.Free;
	4904	end;
[801]	4905
[819]	4906	procedure TfrmNotes.ChangeToNote(IEN : String; ADFN : String = '-1');
	4907	//kt added 6/26/10
	4908	//Effect changing note by simulating a notification click.
	4909	begin
	4910	end;
	4911
	4912
[453]	4913	initialization
	4914	uPCEEdit := TPCEData.Create;
	4915	uPCEShow := TPCEData.Create;
	4916
	4917	finalization
	4918	if (uPCEEdit <> nil) then uPCEEdit.Free; //CQ7012 Added test for nil
	4919	if (uPCEShow <> nil) then uPCEShow.Free; //CQ7012 Added test for nil
	4920
	4921	end.
	4922

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

Download in other formats: