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

Last change on this file since 611 was 541, checked in by Kevin Toppenberg, 15 years ago

TMG Ver 1.1 Added HTML Support, better demographics editing

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