Changeset 1703 for cprs/branches/HealthSevak-CPRS/CPRS-Chart
- Timestamp:
- May 9, 2015, 7:38:52 AM (10 years ago)
- Location:
- cprs/branches/HealthSevak-CPRS/CPRS-Chart
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/HealthSevak-CPRS/CPRS-Chart/fNotes.dfm
r830 r1703 4 4 HelpContext = 5000 5 5 Caption = 'Progress Notes Page' 6 ClientHeight = 3946 ClientHeight = 573 7 7 ClientWidth = 679 8 8 HelpFile = 'overvw' … … 12 12 OnShow = FormShow 13 13 ExplicitWidth = 687 14 ExplicitHeight = 44014 ExplicitHeight = 627 15 15 PixelsPerInch = 96 16 16 TextHeight = 13 17 17 inherited shpPageBottom: TShape 18 Top = 38918 Top = 568 19 19 Width = 679 20 ExplicitTop = 35820 ExplicitTop = 408 21 21 ExplicitWidth = 679 22 22 end 23 23 inherited sptHorz: TSplitter 24 24 Left = 64 25 Height = 38925 Height = 568 26 26 OnCanResize = sptHorzCanResize 27 27 ExplicitLeft = 64 28 ExplicitHeight = 35828 ExplicitHeight = 408 29 29 end 30 30 inherited pnlLeft: TPanel 31 31 Width = 64 32 Height = 389 32 Height = 568 33 Constraints.MinWidth = 37 33 34 ExplicitWidth = 64 34 ExplicitHeight = 38935 ExplicitHeight = 548 35 36 object lblNotes: TOROffsetLabel 36 37 Left = 0 … … 49 50 object lblSpace1: TLabel 50 51 Left = 0 51 Top = 34452 Top = 523 52 53 Width = 64 53 54 Height = 3 … … 55 56 AutoSize = False 56 57 Caption = ' ' 57 ExplicitTop = 3 1358 ExplicitTop = 363 58 59 end 59 60 object cmdNewNote: TORAlignButton 60 61 Left = 0 61 Top = 34762 Top = 526 62 63 Width = 64 63 64 Height = 21 … … 67 68 OnClick = cmdNewNoteClick 68 69 OnExit = cmdNewNoteExit 70 ExplicitTop = 506 69 71 end 70 72 object cmdPCE: TORAlignButton 71 73 Left = 0 72 Top = 36874 Top = 547 73 75 Width = 64 74 76 Height = 21 … … 79 81 OnClick = cmdPCEClick 80 82 OnExit = cmdPCEExit 83 ExplicitTop = 527 81 84 end 82 85 object pnlDrawers: TPanel … … 84 87 Top = 19 85 88 Width = 64 86 Height = 32589 Height = 504 87 90 Align = alClient 88 91 BevelOuter = bvNone 89 92 TabOrder = 0 93 ExplicitHeight = 484 90 94 object splDrawers: TSplitter 91 95 Left = 0 92 Top = 32296 Top = 501 93 97 Width = 64 94 98 Height = 3 95 99 Cursor = crVSplit 96 100 Align = alBottom 97 ExplicitTop = 291101 ExplicitTop = 342 98 102 end 99 103 object lstNotes: TORListBox … … 121 125 Top = 0 122 126 Width = 64 123 Height = 322127 Height = 501 124 128 Align = alClient 125 129 Constraints.MinWidth = 30 … … 142 146 NodePiece = 0 143 147 ShortNodeCaptions = True 148 ExplicitHeight = 481 144 149 end 145 150 end … … 148 153 Left = 68 149 154 Width = 611 150 Height = 389 155 Height = 568 156 Constraints.MinWidth = 30 151 157 ExplicitLeft = 68 152 158 ExplicitWidth = 611 153 ExplicitHeight = 389159 ExplicitHeight = 548 154 160 object sptVert: TSplitter 155 161 Left = 0 156 Top = 340162 Top = 519 157 163 Width = 611 158 164 Height = 4 159 165 Cursor = crVSplit 160 166 Align = alBottom 161 ExplicitTop = 3 09167 ExplicitTop = 359 162 168 end 163 169 object memPCEShow: TRichEdit 164 170 Left = 0 165 Top = 344171 Top = 523 166 172 Width = 611 167 173 Height = 45 … … 175 181 TabOrder = 2 176 182 OnExit = memPCEShowExit 183 ExplicitTop = 503 177 184 end 178 185 object pnlWrite: TPanel … … 180 187 Top = 0 181 188 Width = 611 182 Height = 340189 Height = 519 183 190 Align = alClient 184 191 BevelOuter = bvNone … … 186 193 Visible = False 187 194 OnResize = pnlWriteResize 195 ExplicitHeight = 499 188 196 object memNewNote: TRichEdit 189 197 Left = 0 190 198 Top = 67 191 199 Width = 611 192 Height = 273200 Height = 452 193 201 Align = alClient 194 202 Font.Charset = DEFAULT_CHARSET … … 197 205 Font.Name = 'Courier New' 198 206 Font.Style = [] 207 MaxLength = 2147483645 199 208 ParentFont = False 200 209 PlainText = True … … 207 216 OnKeyPress = memNewNoteKeyPress 208 217 OnKeyUp = memNewNoteKeyUp 218 ExplicitHeight = 432 209 219 end 210 220 object pnlFields: TPanel … … 295 305 Font.Charset = DEFAULT_CHARSET 296 306 Font.Color = clWindowText 297 Font.Height = -1 1307 Font.Height = -12 298 308 Font.Name = 'MS Sans Serif' 299 309 Font.Style = [] … … 335 345 Top = 0 336 346 Width = 611 337 Height = 340347 Height = 519 338 348 Align = alClient 339 349 BevelOuter = bvNone 340 350 TabOrder = 0 341 351 OnExit = pnlReadExit 352 ExplicitHeight = 499 342 353 object lblTitle: TOROffsetLabel 343 354 Left = 0 … … 354 365 object sptList: TSplitter 355 366 Left = 0 356 Top = 1 13367 Top = 19 357 368 Width = 611 358 369 Height = 3 359 370 Cursor = crVSplit 360 371 Align = alTop 372 ExplicitTop = 113 361 373 end 362 374 object memNote: TRichEdit … … 364 376 Top = 116 365 377 Width = 611 366 Height = 224378 Height = 403 367 379 Align = alClient 368 380 Color = clCream … … 385 397 TabOrder = 1 386 398 WordWrap = False 399 ExplicitHeight = 383 387 400 end 388 401 object lvNotes: TCaptionListView 389 402 Left = 0 390 Top = 19403 Top = 22 391 404 Width = 611 392 405 Height = 94 … … 860 873 OnClick = popNoteMemoGrammarClick 861 874 end 875 object popNoteMemoSpellOpenSource: TMenuItem 876 Caption = 'Chec&k Spelling (OpenSource based)' 877 ShortCut = 118 878 OnClick = popNoteMemoSpellClick 879 end 862 880 object popNoteMemoSpell: TMenuItem 863 Caption = 'C&heck Spelling '881 Caption = 'C&heck Spelling (MS Office based)' 864 882 OnClick = popNoteMemoSpellClick 865 883 end -
cprs/branches/HealthSevak-CPRS/CPRS-Chart/fNotes.pas
r830 r1703 9 9 uPCE, ORClasses, fDrawers, ImgList, rTIU, uTIU, uDocTree, fRptBox, fPrintList, 10 10 fNoteST, ORNet, fNoteSTStop, fBase508Form, VA508AccessibilityManager, 11 VA508ImageListLabeler ;11 VA508ImageListLabeler, RichEdit; 12 12 13 13 type … … 153 153 imgLblNotes: TVA508ImageListLabeler; 154 154 imgLblImages: TVA508ImageListLabeler; 155 popNoteMemoSpellOpenSource: TMenuItem; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 155 156 procedure mnuChartTabClick(Sender: TObject); 156 157 procedure lstNotesClick(Sender: TObject); … … 416 417 uChanging: Boolean; 417 418 uIDNotesActive: Boolean; 419 NoteTotal: string; 418 420 419 421 … … 453 455 frmRemDlg.btnCancelClick(Self); 454 456 end; 457 //agp fix for a problem with reminders not clearing out when switching patients 458 if WhyNot = '' then 459 begin 460 frmRemDlg.btnCancelClick(Self); 461 if assigned(frmRemDlg) then 462 begin 463 result := false; 464 exit; 465 end; 466 end; 455 467 end; 456 468 end; … … 466 478 '0': begin 467 479 if WhyNot = 'COMMIT' then FSilent := True; 468 SaveCurrentNote(Result) 480 SaveCurrentNote(Result); 469 481 end; 470 482 end; … … 529 541 uPCEEdit.Clear; 530 542 frmDrawers.ResetTemplates; 543 NoteTotal := sCallV('ORCNOTE GET TOTAL', [Patient.DFN]); 531 544 end; 532 545 … … 546 559 FCurrentContext := FDefaultContext; 547 560 popNoteMemoSpell.Visible := SpellCheckAvailable; 561 popNoteMemoSpellOpenSource.Visible := SpellCheckAvailable; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 548 562 popNoteMemoGrammar.Visible := popNoteMemoSpell.Visible; 549 563 Z11.Visible := popNoteMemoSpell.Visible; … … 592 606 begin 593 607 with AForm.lbIDParents do 594 for i := 0 to Items.Count - 1 do 595 if Selected[i] then 596 begin 597 NoteIEN := StrToInt64def(Piece(Items[i], U, 1), 0); 598 if NoteIEN > 0 then PrintNote(NoteIEN, DisplayText[i], TRUE) 599 else if NoteIEN = 0 then InfoBox(TX_NONOTE, TX_NONOTE_CAP, MB_OK) 600 else InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK); 601 end; 608 begin 609 for i := 0 to Items.Count - 1 do 610 begin 611 if Selected[i] then 612 begin 613 AForm.lbIDParents.ItemIndex := i; 614 NoteIEN := ItemIEN; //StrToInt64def(Piece(TStringList(Items.Objects[i])[0],U,1),0); 615 if NoteIEN > 0 then PrintNote(NoteIEN, DisplayText[i], TRUE) else 616 begin 617 if NoteIEN = 0 then InfoBox(TX_NONOTE, TX_NONOTE_CAP, MB_OK); 618 if NoteIEN < 0 then InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK); 619 end; 620 end; {if selected} 621 end; {for} 622 end; {with} 602 623 end; 603 624 … … 649 670 // clear the editing controls (also clear the new labels?) 650 671 txtSubject.Text := ''; 651 //lblNotes.Caption := '';672 lblNotes.Caption := ''; 652 673 SearchTextStopFlag := false; 653 674 if memNewNote <> nil then memNewNote.Clear; //CQ7012 Added test for nil … … 703 724 EnableList := [odTemplates] 704 725 else 705 EnableList := [odTemplates, odReminders]; 706 ShowList := [odTemplates, odReminders]; 726 if FutureEncounter(uPCEEdit) then 727 begin 728 EnableList := [odTemplates]; 729 ShowList := [odTemplates]; 730 end 731 else 732 begin 733 EnableList := [odTemplates, odReminders]; 734 ShowList := [odTemplates, odReminders]; 735 end; 707 736 end 708 737 else … … 1359 1388 if(assigned(frmReminderTree)) then 1360 1389 frmReminderTree.EnableActions; 1361 DisplayPCE; 1390 DisplayPCE; 1362 1391 pnlRight.Refresh; 1363 1392 memNewNote.Repaint; … … 1373 1402 inherited; 1374 1403 mnuActNewClick(Self); 1375 1404 end; 1376 1405 1377 1406 procedure TfrmNotes.cmdPCEClick(Sender: TObject); … … 1484 1513 if not NoteEmpty then 1485 1514 // if not FChanged and (InfoBox(TX_BLR_CLEAR, TC_BLR_CLEAR, MB_YESNO) = ID_YES) 1486 if (InfoBox(TX_BLR_CLEAR, TC_BLR_CLEAR, MB_YESNO) = ID_YES) 1515 if (InfoBox(TX_BLR_CLEAR, TC_BLR_CLEAR, 1516 MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON2) = ID_YES) 1487 1517 then memNewNote.Lines.Clear; 1488 1518 end; … … 1659 1689 NC_SEARCHTEXT: begin; 1660 1690 SearchTextStopFlag := False; 1661 SelectSearchText(Font.Size, FCurrentContext.SearchString, SearchCtxt );1691 SelectSearchText(Font.Size, FCurrentContext.SearchString, SearchCtxt, StringReplace(TMenuItem(Sender).Caption, '&', '', [rfReplaceAll]) ); 1662 1692 with SearchCtxt do if Changed then 1663 1693 begin … … 1743 1773 lblNotes.Caption := 'Search for "'+FCurrentContext.SearchString+'" was stopped!'; 1744 1774 end; 1775 //Clear the search text. We are done searching 1776 FCurrentContext.SearchString := ''; 1745 1777 frmSearchStop.Hide; 1746 1778 // Text Search CQ: HDS00002856 -------------------- 1779 lblNotes.Caption := lblNotes.Caption + ' (Total: ' + NoteTotal + ')'; 1747 1780 lblNotes.hint := lblNotes.Caption; 1748 1781 tvNotes.Caption := lblNotes.Caption; … … 1984 2017 inherited; 1985 2018 if lstNotes.ItemIEN = 0 then Exit; 2019 if assigned(frmRemDlg) then 2020 begin 2021 frmRemDlg.btnCancelClick(Self); 2022 if assigned(frmRemDlg) then exit; 2023 end; 1986 2024 ActOnDocument(ActionSts, lstNotes.ItemIEN, 'DELETE RECORD'); 1987 2025 if ShowMsgOn(not ActionSts.Success, ActionSts.Reason, TX_IN_AUTH) then Exit; … … 2322 2360 begin 2323 2361 popNoteMemoSpell.Enabled := True; 2362 popNoteMemoSpellOpenSource.Enabled := True; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 2324 2363 popNoteMemoGrammar.Enabled := True; 2325 2364 popNoteMemoReformat.Enabled := True; … … 2331 2370 begin 2332 2371 popNoteMemoSpell.Enabled := False; 2372 popNoteMemoSpellOpenSource.Enabled := False; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 2333 2373 popNoteMemoGrammar.Enabled := False; 2334 2374 popNoteMemoReformat.Enabled := False; … … 2355 2395 begin 2356 2396 inherited; 2357 FEditCtrl.SelText := Clipboard.AsText; {*KCM*}2397 Sendmessage(FEditCtrl.Handle,EM_PASTESPECIAL,CF_TEXT,0); 2358 2398 frmNotes.pnlWriteResize(Self); 2359 2399 //FEditCtrl.PasteFromClipboard; // use AsText to prevent formatting … … 2437 2477 timAutoSave.Enabled := False; 2438 2478 try 2439 SpellCheckForControl(memNewNote );2479 SpellCheckForControl(memNewNote, Sender = popNoteMemoSpellOpenSource); //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 2440 2480 finally 2441 2481 FChanged := True; … … 2945 2985 end; 2946 2986 Dest.Free; 2947 end; 2987 end else 2988 //Reset the caption 2989 lblNotes.Caption := SetNoteTreeLabel(FCurrentContext); 2990 2948 2991 // Text Search CQ: HDS00002856 --------------------------------------- 2949 2992
Note:
See TracChangeset
for help on using the changeset viewer.