Class

TfrmConsults

Module

fConsults

Last Modified

7/15/2014 3:26:34 PM

Scope

Interfaced

Inherits from

TfrmHSplit

Declaration


TfrmConsults = class(TfrmHSplit)
  mnuConsults: TMainMenu;
  mnuView: TMenuItem;
  mnuViewChart: TMenuItem;
  mnuChartReports: TMenuItem;
  mnuChartLabs: TMenuItem;
  mnuChartDCSumm: TMenuItem;
  mnuChartCslts: TMenuItem;
  mnuChartNotes: TMenuItem;
  mnuChartOrders: TMenuItem;
  mnuChartMeds: TMenuItem;
  mnuChartProbs: TMenuItem;
  mnuChartCover: TMenuItem;
  mnuAct: TMenuItem;
  Z2: TMenuItem;
  pnlRead: TPanel;
  lblTitle: TOROffsetLabel;
  memConsult: TRichEdit;
  pnlAction: TPanel;
  cmdNewConsult: TORAlignButton;
  Z3: TMenuItem;
  mnuViewAll: TMenuItem;
  mnuViewByService: TMenuItem;
  mnuViewByDate: TMenuItem;
  mnuViewByStatus: TMenuItem;
  cmdNewProc: TORAlignButton;
  N1: TMenuItem;
  mnuActConsultRequest: TMenuItem;
  mnuActReceive: TMenuItem;
  mnuActDeny: TMenuItem;
  mnuActForward: TMenuItem;
  mnuActDiscontinue: TMenuItem;
  mnuActAddComment: TMenuItem;
  mnuActComplete: TMenuItem;
  mnuActNew: TMenuItem;
  mnuActNewConsultRequest: TMenuItem;
  mnuActNewProcedure: TMenuItem;
  mnuActSignatureList: TMenuItem;
  mnuActSignatureSave: TMenuItem;
  mnuActSignatureSign: TMenuItem;
  mnuActMakeAddendum: TMenuItem;
  mnuViewCustom: TMenuItem;
  pnlResults: TPanel;
  memResults: TRichEdit;
  mnuActNoteEdit: TMenuItem;
  mnuActNoteDelete: TMenuItem;
  sptVert: TSplitter;
  memPCEShow: TRichEdit;
  cmdEditResubmit: TORAlignButton;
  cmdPCE: TORAlignButton;
  mnuActConsultResults: TMenuItem;
  N2: TMenuItem;
  lstNotes: TORListBox;
  popNoteMemo: TPopupMenu;
  popNoteMemoCut: TMenuItem;
  popNoteMemoCopy: TMenuItem;
  popNoteMemoPaste: TMenuItem;
  Z10: TMenuItem;
  popNoteMemoSignList: TMenuItem;
  popNoteMemoDelete: TMenuItem;
  popNoteMemoEdit: TMenuItem;
  popNoteMemoSave: TMenuItem;
  popNoteMemoSign: TMenuItem;
  popConsultList: TPopupMenu;
  popConsultAll: TMenuItem;
  popConsultStatus: TMenuItem;
  popConsultService: TMenuItem;
  popConsultDates: TMenuItem;
  popConsultCustom: TMenuItem;
  mnuActPrintSF513: TMenuItem;
  N3: TMenuItem;
  mnuActDisplayDetails: TMenuItem;
  mnuActDisplayResults: TMenuItem;
  mnuActDisplaySF513: TMenuItem;
  mnuActSigFindings: TMenuItem;
  mnuActAdminComplete: TMenuItem;
  mnuActIdentifyAddlSigners: TMenuItem;
  popNoteMemoAddlSign: TMenuItem;
  Z11: TMenuItem;
  popNoteMemoSpell: TMenuItem;
  popNoteMemoGrammar: TMenuItem;
  mnuActEditResubmit: TMenuItem;
  N4: TMenuItem;
  mnuViewSaveAsDefault: TMenuItem;
  mnuViewReturntoDefault: TMenuItem;
  splDrawers: TSplitter;
  N5: TMenuItem;
  popNoteMemoTemplate: TMenuItem;
  mnuOptions: TMenuItem;
  mnuEditTemplates: TMenuItem;
  mnuNewTemplate: TMenuItem;
  splConsults: TSplitter;
  pnlConsultList: TPanel;
  lblConsults: TOROffsetLabel;
  lstConsults: TORListBox;
  N6: TMenuItem;
  mnuEditSharedTemplates: TMenuItem;
  mnuNewSharedTemplate: TMenuItem;
  popNoteMemoPrint: TMenuItem;
  N7: TMenuItem;
  N8: TMenuItem;
  mnuActNotePrint: TMenuItem;
  timAutoSave: TTimer;
  pnlFields: TPanel;
  lblNewTitle: TStaticText;
  lblRefDate: TStaticText;
  lblAuthor: TStaticText;
  lblVisit: TStaticText;
  lblCosigner: TStaticText;
  lblSubject: TStaticText;
  cmdChange: TButton;
  txtSubject: TCaptionEdit;
  mnuActSchedule: TMenuItem;
  popNoteMemoPaste2: TMenuItem;
  popNoteMemoReformat: TMenuItem;
  N9: TMenuItem;
  mnuActChange: TMenuItem;
  mnuActLoadBoiler: TMenuItem;
  bvlNewTitle: TBevel;
  popNoteMemoSaveContinue: TMenuItem;
  mnuActAttachMed: TMenuItem;
  mnuActRemoveMed: TMenuItem;
  N10: TMenuItem;
  mnuEditDialgFields: TMenuItem;
  tvCsltNotes: TORTreeView;
  popNoteList: TPopupMenu;
  popNoteListExpandSelected: TMenuItem;
  popNoteListExpandAll: TMenuItem;
  popNoteListCollapseSelected: TMenuItem;
  popNoteListCollapseAll: TMenuItem;
  N11: TMenuItem;
  popNoteListDetachFromIDParent: TMenuItem;
  N12: TMenuItem;
  mnuActDetachFromIDParent: TMenuItem;
  mnuActAddIDEntry: TMenuItem;
  tvConsults: TORTreeView;
  popNoteListAddIDEntry: TMenuItem;
  N13: TMenuItem;
  mnuIconLegend: TMenuItem;
  dlgFindText: TFindDialog;
  popNoteMemoFind: TMenuItem;
  dlgReplaceText: TReplaceDialog;
  N14: TMenuItem;
  popNoteMemoReplace: TMenuItem;
  mnuChartSurgery: TMenuItem;
  mnuActAttachtoIDParent: TMenuItem;
  popNoteListAttachtoIDParent: TMenuItem;
  popNoteMemoAddend: TMenuItem;
  N15: TMenuItem;
  popNoteMemoPreview: TMenuItem;
  popNoteMemoInsTemplate: TMenuItem;
  popNoteMemoEncounter: TMenuItem;
  mnuViewInformation: TMenuItem;
  mnuViewDemo: TMenuItem;
  mnuViewVisits: TMenuItem;
  mnuViewPrimaryCare: TMenuItem;
  mnuViewMyHealtheVet: TMenuItem;
  mnuInsurance: TMenuItem;
  mnuViewFlags: TMenuItem;
  mnuViewReminders: TMenuItem;
  mnuViewRemoteData: TMenuItem;
  mnuViewPostings: TMenuItem;
  imgLblNotes: TVA508ImageListLabeler;
  imgLblImages: TVA508ImageListLabeler;
  imgLblConsults: TVA508ImageListLabeler;
  popNoteMemoViewCslt: TMenuItem;   //wat cq 17586
  procedure mnuChartTabClick(Sender: TObject);
  procedure lstConsultsClick(Sender: TObject);
  procedure pnlRightResize(Sender: TObject);
  procedure cmdNewConsultClick(Sender: TObject);
  procedure memResultChange(Sender: TObject);
  procedure mnuActCompleteClick(Sender: TObject);
  procedure mnuActAddIDEntryClick(Sender: TObject);
  procedure mnuActSignatureSaveClick(Sender: TObject);
  procedure mnuViewClick(Sender: TObject);
  procedure mnuActSignatureListClick(Sender: TObject);
  procedure mnuActSignatureSignClick(Sender: TObject);
  procedure mnuActMakeAddendumClick(Sender: TObject);
  procedure mnuActDetachFromIDParentClick(Sender: TObject);
  procedure mnuActAttachtoIDParentClick(Sender: TObject);
  procedure cmdPCEClick(Sender: TObject);
  procedure mnuActConsultClick(Sender: TObject);
  procedure mnuActNewConsultRequestClick(Sender: TObject);
  procedure mnuActNoteEditClick(Sender: TObject);
  procedure mnuActNoteDeleteClick(Sender: TObject);
  procedure lstNotesClick(Sender: TObject);
  procedure popNoteMemoCutClick(Sender: TObject);
  procedure popNoteMemoCopyClick(Sender: TObject);
  procedure popNoteMemoPasteClick(Sender: TObject);
  procedure popNoteMemoPopup(Sender: TObject);
  procedure NewPersonNeedData(Sender: TObject; const StartFrom: string;
     Direction, InsertAt: Integer);
  procedure cmdNewProcClick(Sender: TObject);
  procedure mnuActNewProcedureClick(Sender: TObject);
  procedure mnuActDisplayResultsClick(Sender: TObject);
  procedure mnuActDisplaySF513Click(Sender: TObject);
  procedure pnlResultsResize(Sender: TObject);
  procedure mnuActPrintSF513Click(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure mnuActDisplayDetailsClick(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure mnuActIdentifyAddlSignersClick(Sender: TObject);
  procedure popNoteMemoAddlSignClick(Sender: TObject);
  procedure mnuActEditResubmitClick(Sender: TObject);
  procedure EnableDisableOrdering;
  procedure cmdEditResubmitClick(Sender: TObject);
  procedure popNoteMemoSpellClick(Sender: TObject);
  procedure popNoteMemoGrammarClick(Sender: TObject);
  procedure mnuViewSaveAsDefaultClick(Sender: TObject);
  procedure mnuViewReturntoDefaultClick(Sender: TObject);
  procedure popNoteMemoTemplateClick(Sender: TObject);
  procedure mnuEditTemplatesClick(Sender: TObject);
  procedure mnuNewTemplateClick(Sender: TObject);
  procedure pnlLeftResize(Sender: TObject);
  procedure mnuOptionsClick(Sender: TObject);
  procedure mnuEditSharedTemplatesClick(Sender: TObject);
  procedure mnuNewSharedTemplateClick(Sender: TObject);
  procedure popNoteMemoPrintClick(Sender: TObject);
  procedure mnuActNotePrintClick(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure timAutoSaveTimer(Sender: TObject);
  procedure cmdChangeClick(Sender: TObject);
  procedure pnlFieldsResize(Sender: TObject);
  procedure popNoteMemoReformatClick(Sender: TObject);
  procedure mnuActChangeClick(Sender: TObject);
  procedure mnuActLoadBoilerClick(Sender: TObject);
  procedure popNoteMemoSaveContinueClick(Sender: TObject);
  procedure ProcessMedResults(ActionType: string);
  procedure mnuActAttachMedClick(Sender: TObject);
  procedure mnuActRemoveMedClick(Sender: TObject);
  procedure mnuEditDialgFieldsClick(Sender: TObject);
  procedure tvCsltNotesChange(Sender: TObject; Node: TTreeNode);
  procedure tvCsltNotesCollapsed(Sender: TObject; Node: TTreeNode);
  procedure tvCsltNotesExpanded(Sender: TObject; Node: TTreeNode);
  procedure tvCsltNotesStartDrag(Sender: TObject;
    var DragObject: TDragObject);
  procedure tvCsltNotesDragDrop(Sender, Source: TObject; X, Y: Integer);
  procedure tvCsltNotesDragOver(Sender, Source: TObject; X, Y: Integer;
    State: TDragState; var Accept: Boolean);
  procedure popNoteListExpandSelectedClick(Sender: TObject);
  procedure popNoteListExpandAllClick(Sender: TObject);
  procedure popNoteListCollapseSelectedClick(Sender: TObject);
  procedure popNoteListCollapseAllClick(Sender: TObject);
  procedure tvCsltNotesClick(Sender: TObject);
  procedure tvConsultsExpanded(Sender: TObject; Node: TTreeNode);
  procedure tvConsultsCollapsed(Sender: TObject; Node: TTreeNode);
  procedure tvConsultsClick(Sender: TObject);
  procedure tvConsultsChange(Sender: TObject; Node: TTreeNode);
  procedure popNoteListPopup(Sender: TObject);
  procedure mnuIconLegendClick(Sender: TObject);
  procedure popNoteMemoFindClick(Sender: TObject);
  procedure dlgFindTextFind(Sender: TObject);
  procedure dlgReplaceTextFind(Sender: TObject);
  procedure dlgReplaceTextReplace(Sender: TObject);
  procedure popNoteMemoReplaceClick(Sender: TObject);
  procedure tvConsultsKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure memResultsKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure sptHorzCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean);
  procedure popNoteMemoPreviewClick(Sender: TObject);
  procedure popNoteMemoInsTemplateClick(Sender: TObject);
  procedure tvConsultsExit(Sender: TObject);
  procedure FormHide(Sender: TObject);
  procedure FormShow(Sender: TObject);
  procedure ViewInfo(Sender: TObject);
  procedure mnuViewInformationClick(Sender: TObject);
  procedure pnlLeftExit(Sender: TObject);
  procedure pnlRightExit(Sender: TObject);
  procedure cmdEditResubmitExit(Sender: TObject);
  procedure cmdNewConsultExit(Sender: TObject);
  procedure popNoteMemoViewCsltClick(Sender: TObject);   //wat cq 17586
private
  FocusToRightPanel : Boolean;
  FEditingIndex: Integer;      // TIU index of document being currently edited
  FChanged: Boolean;
  FActionType: integer ;
  FEditCtrl: TCustomEdit;
  FSilent: Boolean;
  FCurrentContext: TSelectContext;
  FDefaultContext: TSelectContext;
  FCurrentNoteContext: TTIUContext;
  FOrderID: string;
  FImageFlag: TBitmap;
  FEditNote: TEditNoteRec;
  FVerifyNoteTitle: Integer;
  FDocList: TStringList;
  FConfirmed: boolean;
  FCsltList: TStringList;
  FDeleted: boolean;
  FLastNoteID: string;
  FcmdChangeOKPressed: boolean;
  FNotifPending: boolean;
  FOldFramePnlPatientExit: TNotifyEvent;
  //FMousing: TDateTime;
  procedure DoLeftPanelCustomShiftTab;
  procedure frmFramePnlPatientExit(Sender: TObject);
  procedure DoAutoSave(Suppress: integer = 1);
  function GetTitleText(AnIndex: Integer): string;
  //function MakeTitleText(IsAddendum: Boolean = False): string;
  procedure ClearEditControls;
  procedure LoadForEdit ;
  function LacksRequiredForCreate: Boolean;
  function LacksClinProcFields(AnEditRec: TEditNoteRec; AMenuAccessRec: TMenuAccessRec; var ErrMsg: string): boolean;
  function LacksClinProcFieldsForSignature(NoteIEN: int64; var ErrMsg: string): boolean;
  procedure UpdateList;
  procedure DisplayPCE;
  procedure CompleteConsult(IsIDChild: boolean; AnIDParent: integer; UseClinProcTitles: boolean);
  procedure InsertAddendum;
  procedure SetSubjectVisible(ShouldShow: Boolean);
  procedure SaveCurrentNote(var Saved: Boolean);
  procedure SaveEditedConsult(var Saved: Boolean);
  procedure SetEditingIndex(const Value: Integer);
  procedure ShowPCEControls(ShouldShow: Boolean);
  procedure SetActionMenus ;
  procedure SetResultMenus ;
  procedure RemovePCEFromChanges(IEN: Integer; AVisitStr: string = '');
  procedure ProcessNotifications;
  procedure UMNewOrder(var Message: TMessage);   message UM_NEWORDER;
  procedure SetViewContext(AContext: TSelectContext);
  function GetDrawers: TfrmDrawers;
  function LockConsultRequest(AConsult: Integer): Boolean;
  function LockConsultRequestAndNote(AnIEN: Int64): Boolean;
  function StartNewEdit(NewNoteType: integer): Boolean;
  procedure UnlockConsultRequest(ANote: Int64; AConsult: Integer = 0);
  function CanFinishReminder: boolean;
  property EditingIndex: Integer read FEditingIndex write SetEditingIndex;
  function VerifyNoteTitle: Boolean;
  procedure UpdateNoteTreeView(DocList: TStringList; Tree: TORTreeView; AContext: integer);
  procedure EnableDisableIDNotes;
  procedure LoadConsults;
  procedure UpdateConsultsTreeView(DocList: TStringList; Tree: TORTreeView);
  procedure DoAttachIDChild(AChild, AParent: TORTreeNode);
  function UserIsSigner(NoteIEN: integer): boolean;
public
  function CustomCanFocus(Control: TWinControl): Boolean; //CB
  function LinesVisible(richedit: Trichedit): integer; //CB
  function ActiveEditOf(AnIEN: Int64): Boolean;
  function  AllowContextChange(var WhyNot: string): Boolean; override;
  procedure ClearPtData; override;
  procedure DisplayPage; override;
  procedure SetFontSize(NewFontSize: Integer); override;
  procedure SaveSignItem(const ItemID, ESCode: string);
  procedure RequestPrint; override;
  procedure RequestMultiplePrint(AForm: TfrmPrintList);
  procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override;
  function AuthorizedUser: Boolean;
  procedure AssignRemForm;
  property OrderID: string read FOrderID;
  procedure LstConsultsToPrint;
published
  property Drawers: TfrmDrawers read GetDrawers; // Keep Drawers published
end;

DFM Objects


frmConsults : TfrmConsults
 ├shpPageBottom : TShape
 ├sptHorz : TSplitter
 ├pnlRight : TPanel
 │ ├sptVert : TSplitter
 │ ├pnlRead : TPanel
 │ │ ├lblTitle : TOROffsetLabel
 │ │ └memConsult : TRichEdit
 │ ├memPCEShow : TRichEdit
 │ └pnlResults : TPanel
 │   ├memResults : TRichEdit
 │   └pnlFields : TPanel
 │     ├bvlNewTitle : TBevel
 │     ├lblRefDate : TStaticText
 │     ├lblAuthor : TStaticText
 │     ├lblVisit : TStaticText
 │     ├lblCosigner : TStaticText
 │     ├lblSubject : TStaticText
 │     ├lblNewTitle : TStaticText
 │     ├cmdChange : TButton
 │     └txtSubject : TCaptionEdit
 ├pnlLeft : TPanel
 │ ├splConsults : TSplitter
 │ ├pnlAction : TPanel
 │ │ ├splDrawers : TSplitter
 │ │ ├cmdNewConsult : TORAlignButton
 │ │ ├cmdNewProc : TORAlignButton
 │ │ ├cmdEditResubmit : TORAlignButton
 │ │ ├lstNotes : TORListBox
 │ │ └tvCsltNotes : TORTreeView
 │ ├cmdPCE : TORAlignButton
 │ └pnlConsultList : TPanel
 │   ├lblConsults : TOROffsetLabel
 │   ├lstConsults : TORListBox
 │   └tvConsults : TORTreeView
 ├amgrMain : TVA508AccessibilityManager
 ├popNoteMemo : TPopupMenu
 │ ├popNoteMemoCut : TMenuItem
 │ ├popNoteMemoCopy : TMenuItem
 │ ├popNoteMemoPaste : TMenuItem
 │ ├popNoteMemoPaste2 : TMenuItem
 │ ├popNoteMemoReformat : TMenuItem
 │ ├popNoteMemoSaveContinue : TMenuItem
 │ ├Z11 : TMenuItem
 │ ├popNoteMemoFind : TMenuItem
 │ ├popNoteMemoReplace : TMenuItem
 │ ├N14 : TMenuItem
 │ ├popNoteMemoGrammar : TMenuItem
 │ ├popNoteMemoSpell : TMenuItem
 │ ├N5 : TMenuItem
 │ ├popNoteMemoTemplate : TMenuItem
 │ ├Z10 : TMenuItem
 │ ├popNoteMemoSignList : TMenuItem
 │ ├popNoteMemoDelete : TMenuItem
 │ ├popNoteMemoEdit : TMenuItem
 │ ├popNoteMemoAddend : TMenuItem
 │ ├popNoteMemoSave : TMenuItem
 │ ├popNoteMemoSign : TMenuItem
 │ ├popNoteMemoAddlSign : TMenuItem
 │ ├N7 : TMenuItem
 │ ├popNoteMemoPrint : TMenuItem
 │ ├N15 : TMenuItem
 │ ├popNoteMemoPreview : TMenuItem
 │ ├popNoteMemoInsTemplate : TMenuItem
 │ ├popNoteMemoEncounter : TMenuItem
 │ └popNoteMemoViewCslt : TMenuItem
 ├popConsultList : TPopupMenu
 │ ├popConsultAll : TMenuItem
 │ ├popConsultStatus : TMenuItem
 │ ├popConsultService : TMenuItem
 │ ├popConsultDates : TMenuItem
 │ └popConsultCustom : TMenuItem
 ├mnuConsults : TMainMenu
 │ ├mnuView : TMenuItem
 │ │ ├mnuViewChart : TMenuItem
 │ │ │ ├mnuChartCover : TMenuItem
 │ │ │ ├mnuChartProbs : TMenuItem
 │ │ │ ├mnuChartMeds : TMenuItem
 │ │ │ ├mnuChartOrders : TMenuItem
 │ │ │ ├mnuChartNotes : TMenuItem
 │ │ │ ├mnuChartCslts : TMenuItem
 │ │ │ ├mnuChartSurgery : TMenuItem
 │ │ │ ├mnuChartDCSumm : TMenuItem
 │ │ │ ├mnuChartLabs : TMenuItem
 │ │ │ └mnuChartReports : TMenuItem
 │ │ ├mnuViewInformation : TMenuItem
 │ │ │ ├mnuViewDemo : TMenuItem
 │ │ │ ├mnuViewVisits : TMenuItem
 │ │ │ ├mnuViewPrimaryCare : TMenuItem
 │ │ │ ├mnuViewMyHealtheVet : TMenuItem
 │ │ │ ├mnuInsurance : TMenuItem
 │ │ │ ├mnuViewFlags : TMenuItem
 │ │ │ ├mnuViewRemoteData : TMenuItem
 │ │ │ ├mnuViewReminders : TMenuItem
 │ │ │ └mnuViewPostings : TMenuItem
 │ │ ├Z3 : TMenuItem
 │ │ ├mnuViewAll : TMenuItem
 │ │ ├mnuViewByStatus : TMenuItem
 │ │ ├mnuViewByService : TMenuItem
 │ │ ├mnuViewByDate : TMenuItem
 │ │ ├mnuViewCustom : TMenuItem
 │ │ ├N4 : TMenuItem
 │ │ ├mnuViewSaveAsDefault : TMenuItem
 │ │ ├mnuViewReturntoDefault : TMenuItem
 │ │ ├N13 : TMenuItem
 │ │ └mnuIconLegend : TMenuItem
 │ ├mnuAct : TMenuItem
 │ │ ├mnuActNew : TMenuItem
 │ │ │ ├mnuActNewConsultRequest : TMenuItem
 │ │ │ └mnuActNewProcedure : TMenuItem
 │ │ ├Z2 : TMenuItem
 │ │ ├mnuActConsultRequest : TMenuItem
 │ │ │ ├mnuActReceive : TMenuItem
 │ │ │ ├mnuActSchedule : TMenuItem
 │ │ │ ├mnuActDeny : TMenuItem
 │ │ │ ├mnuActEditResubmit : TMenuItem
 │ │ │ ├mnuActDiscontinue : TMenuItem
 │ │ │ ├mnuActForward : TMenuItem
 │ │ │ ├mnuActAddComment : TMenuItem
 │ │ │ ├mnuActSigFindings : TMenuItem
 │ │ │ ├mnuActAdminComplete : TMenuItem
 │ │ │ ├N3 : TMenuItem
 │ │ │ ├mnuActDisplayDetails : TMenuItem
 │ │ │ ├mnuActDisplayResults : TMenuItem
 │ │ │ ├mnuActDisplaySF513 : TMenuItem
 │ │ │ └mnuActPrintSF513 : TMenuItem
 │ │ ├N1 : TMenuItem
 │ │ └mnuActConsultResults : TMenuItem
 │ │   ├mnuActComplete : TMenuItem
 │ │   ├mnuActMakeAddendum : TMenuItem
 │ │   ├mnuActAddIDEntry : TMenuItem
 │ │   ├mnuActAttachtoIDParent : TMenuItem
 │ │   ├mnuActDetachFromIDParent : TMenuItem
 │ │   ├N12 : TMenuItem
 │ │   ├mnuActAttachMed : TMenuItem
 │ │   ├mnuActRemoveMed : TMenuItem
 │ │   ├N9 : TMenuItem
 │ │   ├mnuActChange : TMenuItem
 │ │   ├mnuActLoadBoiler : TMenuItem
 │ │   ├N2 : TMenuItem
 │ │   ├mnuActSignatureList : TMenuItem
 │ │   ├mnuActNoteDelete : TMenuItem
 │ │   ├mnuActNoteEdit : TMenuItem
 │ │   ├mnuActSignatureSave : TMenuItem
 │ │   ├mnuActSignatureSign : TMenuItem
 │ │   ├mnuActIdentifyAddlSigners : TMenuItem
 │ │   ├N8 : TMenuItem
 │ │   └mnuActNotePrint : TMenuItem
 │ └mnuOptions : TMenuItem
 │   ├mnuEditTemplates : TMenuItem
 │   ├mnuNewTemplate : TMenuItem
 │   ├N6 : TMenuItem
 │   ├mnuEditSharedTemplates : TMenuItem
 │   ├mnuNewSharedTemplate : TMenuItem
 │   ├N10 : TMenuItem
 │   └mnuEditDialgFields : TMenuItem
 ├timAutoSave : TTimer
 ├popNoteList : TPopupMenu
 │ ├popNoteListExpandSelected : TMenuItem
 │ ├popNoteListExpandAll : TMenuItem
 │ ├popNoteListCollapseSelected : TMenuItem
 │ ├popNoteListCollapseAll : TMenuItem
 │ ├N11 : TMenuItem
 │ ├popNoteListAddIDEntry : TMenuItem
 │ ├popNoteListAttachtoIDParent : TMenuItem
 │ └popNoteListDetachFromIDParent : TMenuItem
 ├dlgFindText : TFindDialog
 ├dlgReplaceText : TReplaceDialog
 ├imgLblNotes : TVA508ImageListLabeler
 ├imgLblImages : TVA508ImageListLabeler
 └imgLblConsults : TVA508ImageListLabeler

Class Hierarchy


Class Fields

Name Type Scope Comments
bvlNewTitle TBevel Public/Published -
cmdChange TButton Public/Published -
cmdEditResubmit Simple (unknown) Public/Published -
cmdNewConsult Simple (unknown) Public/Published -
cmdNewProc Simple (unknown) Public/Published -
cmdPCE Simple (unknown) Public/Published -
dlgFindText TFindDialog Public/Published -
dlgReplaceText TReplaceDialog Public/Published -
FActionType Integer Private -
FChanged Boolean Private -
FcmdChangeOKPressed Boolean Private -
FConfirmed Boolean Private -
FCsltList TStringList Private -
FCurrentContext Private -
FCurrentNoteContext Private -
FDefaultContext Private -
FDeleted Boolean Private -
FDocList TStringList Private -
FEditCtrl Simple (unknown) Private -
FEditingIndex Integer Private TIU index of document being currently edited
FEditNote Private -
FImageFlag TBitmap Private -
FLastNoteID UnicodeString Private -
FNotifPending Boolean Private -
FocusToRightPanel Boolean Private -
FOldFramePnlPatientExit TNotifyEvent Private -
FOrderID UnicodeString Private -
FSilent Boolean Private -
FVerifyNoteTitle Integer Private -
imgLblConsults Simple (unknown) Public/Published -
imgLblImages Simple (unknown) Public/Published -
imgLblNotes Simple (unknown) Public/Published -
lblAuthor TStaticText Public/Published -
lblConsults TOROffsetLabel Public/Published -
lblCosigner TStaticText Public/Published -
lblNewTitle TStaticText Public/Published -
lblRefDate TStaticText Public/Published -
lblSubject TStaticText Public/Published -
lblTitle TOROffsetLabel Public/Published -
lblVisit TStaticText Public/Published -
lstConsults TORListBox Public/Published -
lstNotes TORListBox Public/Published -
memConsult TRichEdit Public/Published -
memPCEShow TRichEdit Public/Published -
memResults TRichEdit Public/Published -
mnuAct TMenuItem Public/Published -
mnuActAddComment TMenuItem Public/Published -
mnuActAddIDEntry TMenuItem Public/Published -
mnuActAdminComplete TMenuItem Public/Published -
mnuActAttachMed TMenuItem Public/Published -
mnuActAttachtoIDParent TMenuItem Public/Published -
mnuActChange TMenuItem Public/Published -
mnuActComplete TMenuItem Public/Published -
mnuActConsultRequest TMenuItem Public/Published -
mnuActConsultResults TMenuItem Public/Published -
mnuActDeny TMenuItem Public/Published -
mnuActDetachFromIDParent TMenuItem Public/Published -
mnuActDiscontinue TMenuItem Public/Published -
mnuActDisplayDetails TMenuItem Public/Published -
mnuActDisplayResults TMenuItem Public/Published -
mnuActDisplaySF513 TMenuItem Public/Published -
mnuActEditResubmit TMenuItem Public/Published -
mnuActForward TMenuItem Public/Published -
mnuActIdentifyAddlSigners TMenuItem Public/Published -
mnuActLoadBoiler TMenuItem Public/Published -
mnuActMakeAddendum TMenuItem Public/Published -
mnuActNew TMenuItem Public/Published -
mnuActNewConsultRequest TMenuItem Public/Published -
mnuActNewProcedure TMenuItem Public/Published -
mnuActNoteDelete TMenuItem Public/Published -
mnuActNoteEdit TMenuItem Public/Published -
mnuActNotePrint TMenuItem Public/Published -
mnuActPrintSF513 TMenuItem Public/Published -
mnuActReceive TMenuItem Public/Published -
mnuActRemoveMed TMenuItem Public/Published -
mnuActSchedule TMenuItem Public/Published -
mnuActSigFindings TMenuItem Public/Published -
mnuActSignatureList TMenuItem Public/Published -
mnuActSignatureSave TMenuItem Public/Published -
mnuActSignatureSign TMenuItem Public/Published -
mnuChartCover TMenuItem Public/Published -
mnuChartCslts TMenuItem Public/Published -
mnuChartDCSumm TMenuItem Public/Published -
mnuChartLabs TMenuItem Public/Published -
mnuChartMeds TMenuItem Public/Published -
mnuChartNotes TMenuItem Public/Published -
mnuChartOrders TMenuItem Public/Published -
mnuChartProbs TMenuItem Public/Published -
mnuChartReports TMenuItem Public/Published -
mnuChartSurgery TMenuItem Public/Published -
mnuConsults Simple (unknown) Public/Published -
mnuEditDialgFields TMenuItem Public/Published -
mnuEditSharedTemplates TMenuItem Public/Published -
mnuEditTemplates TMenuItem Public/Published -
mnuIconLegend TMenuItem Public/Published -
mnuInsurance TMenuItem Public/Published -
mnuNewSharedTemplate TMenuItem Public/Published -
mnuNewTemplate TMenuItem Public/Published -
mnuOptions TMenuItem Public/Published -
mnuView TMenuItem Public/Published -
mnuViewAll TMenuItem Public/Published -
mnuViewByDate TMenuItem Public/Published -
mnuViewByService TMenuItem Public/Published -
mnuViewByStatus TMenuItem Public/Published -
mnuViewChart TMenuItem Public/Published -
mnuViewCustom TMenuItem Public/Published -
mnuViewDemo TMenuItem Public/Published -
mnuViewFlags TMenuItem Public/Published -
mnuViewInformation TMenuItem Public/Published -
mnuViewMyHealtheVet TMenuItem Public/Published -
mnuViewPostings TMenuItem Public/Published -
mnuViewPrimaryCare TMenuItem Public/Published -
mnuViewReminders TMenuItem Public/Published -
mnuViewRemoteData TMenuItem Public/Published -
mnuViewReturntoDefault TMenuItem Public/Published -
mnuViewSaveAsDefault TMenuItem Public/Published -
mnuViewVisits TMenuItem Public/Published -
N1 TMenuItem Public/Published -
N10 TMenuItem Public/Published -
N11 TMenuItem Public/Published -
N12 TMenuItem Public/Published -
N13 TMenuItem Public/Published -
N14 TMenuItem Public/Published -
N15 TMenuItem Public/Published -
N2 TMenuItem Public/Published -
N3 TMenuItem Public/Published -
N4 TMenuItem Public/Published -
N5 TMenuItem Public/Published -
N6 TMenuItem Public/Published -
N7 TMenuItem Public/Published -
N8 TMenuItem Public/Published -
N9 TMenuItem Public/Published -
pnlAction TPanel Public/Published -
pnlConsultList TPanel Public/Published -
pnlFields TPanel Public/Published -
pnlRead TPanel Public/Published -
pnlResults TPanel Public/Published -
popConsultAll TMenuItem Public/Published -
popConsultCustom TMenuItem Public/Published -
popConsultDates TMenuItem Public/Published -
popConsultList TPopupMenu Public/Published -
popConsultService TMenuItem Public/Published -
popConsultStatus TMenuItem Public/Published -
popNoteList TPopupMenu Public/Published -
popNoteListAddIDEntry TMenuItem Public/Published -
popNoteListAttachtoIDParent TMenuItem Public/Published -
popNoteListCollapseAll TMenuItem Public/Published -
popNoteListCollapseSelected TMenuItem Public/Published -
popNoteListDetachFromIDParent TMenuItem Public/Published -
popNoteListExpandAll TMenuItem Public/Published -
popNoteListExpandSelected TMenuItem Public/Published -
popNoteMemo TPopupMenu Public/Published -
popNoteMemoAddend TMenuItem Public/Published -
popNoteMemoAddlSign TMenuItem Public/Published -
popNoteMemoCopy TMenuItem Public/Published -
popNoteMemoCut TMenuItem Public/Published -
popNoteMemoDelete TMenuItem Public/Published -
popNoteMemoEdit TMenuItem Public/Published -
popNoteMemoEncounter TMenuItem Public/Published -
popNoteMemoFind TMenuItem Public/Published -
popNoteMemoGrammar TMenuItem Public/Published -
popNoteMemoInsTemplate TMenuItem Public/Published -
popNoteMemoPaste TMenuItem Public/Published -
popNoteMemoPaste2 TMenuItem Public/Published -
popNoteMemoPreview TMenuItem Public/Published -
popNoteMemoPrint TMenuItem Public/Published -
popNoteMemoReformat TMenuItem Public/Published -
popNoteMemoReplace TMenuItem Public/Published -
popNoteMemoSave TMenuItem Public/Published -
popNoteMemoSaveContinue TMenuItem Public/Published -
popNoteMemoSign TMenuItem Public/Published -
popNoteMemoSignList TMenuItem Public/Published -
popNoteMemoSpell TMenuItem Public/Published -
popNoteMemoTemplate TMenuItem Public/Published -
popNoteMemoViewCslt TMenuItem Public/Published Wat cq 17586
splConsults TSplitter Public/Published -
splDrawers TSplitter Public/Published -
sptVert TSplitter Public/Published -
timAutoSave TTimer Public/Published -
tvConsults TORTreeView Public/Published -
tvCsltNotes TORTreeView Public/Published -
txtSubject TCaptionEdit Public/Published -
Z10 TMenuItem Public/Published -
Z11 TMenuItem Public/Published -
Z2 TMenuItem Public/Published -
Z3 TMenuItem Public/Published -

Properties

Name Type Scope Comments
Drawers TfrmDrawers Published Keep Drawers published
EditingIndex Integer Private -
OrderID UnicodeString Public -

Methods

Name Declaration Scope Comments
ActiveEditOf function ActiveEditOf(AnIEN: Int64): Boolean; Public -
AllowContextChange function AllowContextChange(var WhyNot: string): Boolean; override; Public TPage common methods ---------------------------------------------------------------------
AssignRemForm procedure AssignRemForm; Public -
AuthorizedUser function AuthorizedUser: Boolean; Public -
CanFinishReminder function CanFinishReminder: boolean; Private -
ClearEditControls procedure ClearEditControls; Private
Function MakeTitleText(IsAddendum: Boolean = False): string;
General procedures -----------------------------------------------------------------------
ClearPtData procedure ClearPtData; override; Public Clear all controls that contain patient specific information
cmdChangeClick procedure cmdChangeClick(Sender: TObject); Public/Published -
cmdEditResubmitClick procedure cmdEditResubmitClick(Sender: TObject); Public/Published -
cmdEditResubmitExit procedure cmdEditResubmitExit(Sender: TObject); Public/Published -
cmdNewConsultClick procedure cmdNewConsultClick(Sender: TObject); Public/Published Maps 'New Consult' button to the New Consult menu item
cmdNewConsultExit procedure cmdNewConsultExit(Sender: TObject); Public/Published -
cmdNewProcClick procedure cmdNewProcClick(Sender: TObject); Public/Published -
cmdPCEClick procedure cmdPCEClick(Sender: TObject); Public/Published -
CompleteConsult procedure CompleteConsult(IsIDChild: boolean; AnIDParent: integer; UseClinProcTitles: boolean); Private Creates the editing context for a new progress note & inserts stub into top of view list
CustomCanFocus function CustomCanFocus(Control: TWinControl): Boolean; Public
CB
*****************************************************************
                  Delphi's Can Focus has a bug.
     Source: http://qc.embarcadero.com/wc/qcmain.aspx?d=11229
 *****************************************************************
DisplayPage procedure DisplayPage; override; Public Causes page to be visible and conditionally executes initialization code
DisplayPCE procedure DisplayPCE; Private Displays PCE information if appropriate & enables/disables editing of PCE data
dlgFindTextFind procedure dlgFindTextFind(Sender: TObject); Public/Published -
dlgReplaceTextFind procedure dlgReplaceTextFind(Sender: TObject); Public/Published -
dlgReplaceTextReplace procedure dlgReplaceTextReplace(Sender: TObject); Public/Published -
DoAttachIDChild procedure DoAttachIDChild(AChild, AParent: TORTreeNode); Private -
DoAutoSave procedure DoAutoSave(Suppress: integer = 1); Private -
DoLeftPanelCustomShiftTab procedure DoLeftPanelCustomShiftTab; Private FMousing: TDateTime;
EnableDisableIDNotes procedure EnableDisableIDNotes; Private -
EnableDisableOrdering procedure EnableDisableOrdering; Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published
Procedure TfrmConsults.lstNotesDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  x: string;
const
  STD_DATE = 'MMM DD,YY';
begin
  inherited;
   with (Control as TORListBox).Canvas do  {draw on control canvas, not on the form }
    begin
      FImageFlag.LoadFromResourceName(hInstance, 'BMP_IMAGEFLAG_1');
      x := (Control as TORListBox).Items[Index];
      (Control as TORListBox).ItemHeight := HigherOf(TextHeight(x), FImageFlag.Height);
      FillRect(Rect);       {clear the rectangle }
      if StrToIntDef(Piece(x, U, 7), 0) > 0 then
        begin
          if StrToIntDef(Piece(x, U, 7), 0) = 1 then
            FImageFlag.LoadFromResourceName(hInstance, 'BMP_IMAGEFLAG_1')
          else if StrToIntDef(Piece(x, U, 7), 0) = 2 then
            FImageFlag.LoadFromResourceName(hInstance, 'BMP_IMAGEFLAG_2')
          else if StrToIntDef(Piece(x, U, 7), 0) > 2 then
            FImageFlag.LoadFromResourceName(hInstance, 'BMP_IMAGEFLAG_3');
          BrushCopy(Bounds(Rect.Left, Rect.Top, FImageFlag.Width, FImageFlag.Height),
            FImageFlag, Bounds(0, 0, FImageFlag.Width, FImageFlag.Height), clRed); {render ImageFlag}
        end;
      TextOut(Rect.Left + FImageFlag.Width, Rect.Top, Piece(x, U, 2));
      TextOut(Rect.Left + FImageFlag.Width + TextWidth(STD_DATE), Rect.Top, Piece(x, U, 3));
    end;
end;
FormHide procedure FormHide(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
frmFramePnlPatientExit procedure frmFramePnlPatientExit(Sender: TObject); Private -
GetDrawers function GetDrawers: TfrmDrawers; Private -
GetTitleText function GetTitleText(AnIndex: Integer): string; Private Returns non-tabbed text for the title of a note given the ItemIndex in lstNotes
InsertAddendum procedure InsertAddendum; Private Sets up fields of pnlWrite to write an addendum for the selected note
LacksClinProcFields function LacksClinProcFields(AnEditRec: TEditNoteRec; AMenuAccessRec: TMenuAccessRec; var ErrMsg: string): boolean; Private -
LacksClinProcFieldsForSignature function LacksClinProcFieldsForSignature(NoteIEN: int64; var ErrMsg: string): boolean; Private -
LacksRequiredForCreate function LacksRequiredForCreate: Boolean; Private Determines if the fields required to create the note are present
LinesVisible function LinesVisible(richedit: Trichedit): integer; Public CB
LoadConsults procedure LoadConsults; Private =========================== Consults Treeview Code ==================================
LoadForEdit procedure LoadForEdit ; Private Retrieves an existing note and places the data in the fields of pnlWrite
LockConsultRequest function LockConsultRequest(AConsult: Integer): Boolean; Private Returns true if consult successfully locked
LockConsultRequestAndNote function LockConsultRequestAndNote(AnIEN: Int64): Boolean; Private Returns true if note and associated request successfully locked
lstConsultsClick procedure lstConsultsClick(Sender: TObject); Public/Published
Left panel (selector) events ------------------------------------------------------------- 

 loads the text for the selected Consult
LstConsultsToPrint procedure LstConsultsToPrint; Public -
lstNotesClick procedure lstNotesClick(Sender: TObject); Public/Published Loads the text for the selected note or displays the editing panel for the selected note
memResultChange procedure memResultChange(Sender: TObject); Public/Published Sets FChanged to record that the note has really been edited
memResultsKeyDown procedure memResultsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
mnuActAddIDEntryClick procedure mnuActAddIDEntryClick(Sender: TObject); Public/Published
AConsultID: string;
 switches to current new note or creates a new note if none is being edited already
mnuActAttachMedClick procedure mnuActAttachMedClick(Sender: TObject); Public/Published -
mnuActAttachtoIDParentClick procedure mnuActAttachtoIDParentClick(Sender: TObject); Public/Published -
mnuActChangeClick procedure mnuActChangeClick(Sender: TObject); Public/Published -
mnuActCompleteClick procedure mnuActCompleteClick(Sender: TObject); Public/Published Action menu events -----------------------------------------------------------------------
mnuActConsultClick procedure mnuActConsultClick(Sender: TObject); Public/Published I:integer ;
mnuActDetachFromIDParentClick procedure mnuActDetachFromIDParentClick(Sender: TObject); Public/Published -
mnuActDisplayDetailsClick procedure mnuActDisplayDetailsClick(Sender: TObject); Public/Published -
mnuActDisplayResultsClick procedure mnuActDisplayResultsClick(Sender: TObject); Public/Published -
mnuActDisplaySF513Click procedure mnuActDisplaySF513Click(Sender: TObject); Public/Published -
mnuActEditResubmitClick procedure mnuActEditResubmitClick(Sender: TObject); Public/Published -
mnuActIdentifyAddlSignersClick procedure mnuActIdentifyAddlSignersClick(Sender: TObject); Public/Published -
mnuActLoadBoilerClick procedure mnuActLoadBoilerClick(Sender: TObject); Public/Published -
mnuActMakeAddendumClick procedure mnuActMakeAddendumClick(Sender: TObject); Public/Published ANoteID, AConsultID: string;
mnuActNewConsultRequestClick procedure mnuActNewConsultRequestClick(Sender: TObject); Public/Published -
mnuActNewProcedureClick procedure mnuActNewProcedureClick(Sender: TObject); Public/Published -
mnuActNoteDeleteClick procedure mnuActNoteDeleteClick(Sender: TObject); Public/Published Delete the selected progress note & remove from the Encounter object if necessary
mnuActNoteEditClick procedure mnuActNoteEditClick(Sender: TObject); Public/Published
Load the selected progress note for editing 
AConsultID, ANoteID: string;
mnuActNotePrintClick procedure mnuActNotePrintClick(Sender: TObject); Public/Published -
mnuActPrintSF513Click procedure mnuActPrintSF513Click(Sender: TObject); Public/Published -
mnuActRemoveMedClick procedure mnuActRemoveMedClick(Sender: TObject); Public/Published -
mnuActSignatureListClick procedure mnuActSignatureListClick(Sender: TObject); Public/Published Add the note to the Encounter object, see mnuActSignatureSignClick - copied
mnuActSignatureSaveClick procedure mnuActSignatureSaveClick(Sender: TObject); Public/Published
Saves the Consult that is currently being edited 
  i: integer;
mnuActSignatureSignClick procedure mnuActSignatureSignClick(Sender: TObject); Public/Published Sign the currently selected note, save first if necessary
mnuChartTabClick procedure mnuChartTabClick(Sender: TObject); Public/Published Reroute to Chart Tab menu of the parent form: frmFrame
mnuEditDialgFieldsClick procedure mnuEditDialgFieldsClick(Sender: TObject); Public/Published -
mnuEditSharedTemplatesClick procedure mnuEditSharedTemplatesClick(Sender: TObject); Public/Published -
mnuEditTemplatesClick procedure mnuEditTemplatesClick(Sender: TObject); Public/Published -
mnuIconLegendClick procedure mnuIconLegendClick(Sender: TObject); Public/Published -
mnuNewSharedTemplateClick procedure mnuNewSharedTemplateClick(Sender: TObject); Public/Published -
mnuNewTemplateClick procedure mnuNewTemplateClick(Sender: TObject); Public/Published -
mnuOptionsClick procedure mnuOptionsClick(Sender: TObject); Public/Published -
mnuViewClick procedure mnuViewClick(Sender: TObject); Public/Published
View menu events ------------------------------------------------------------------------- 

 changes the list of Consults available for viewing 
tmpNode: TTreeNode;
mnuViewInformationClick procedure mnuViewInformationClick(Sender: TObject); Public/Published -
mnuViewReturntoDefaultClick procedure mnuViewReturntoDefaultClick(Sender: TObject); Public/Published -
mnuViewSaveAsDefaultClick procedure mnuViewSaveAsDefaultClick(Sender: TObject); Public/Published -
NewPersonNeedData procedure NewPersonNeedData(Sender: TObject; const StartFrom: string; Direction, InsertAt: Integer); Public/Published Right panel (editor) events --------------------------------------------------------------
NotifyOrder procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override; Public -
pnlFieldsResize procedure pnlFieldsResize(Sender: TObject); Public/Published Center the reference date on the panel
pnlLeftExit procedure pnlLeftExit(Sender: TObject); Public/Published -
pnlLeftResize procedure pnlLeftResize(Sender: TObject); Public/Published -
pnlResultsResize procedure pnlResultsResize(Sender: TObject); Public/Published -
pnlRightExit procedure pnlRightExit(Sender: TObject); Public/Published Form events -----------------------------------------------------------------
pnlRightResize procedure pnlRightResize(Sender: TObject); Public/Published TRichEdit doesn't repaint appropriately unless its parent panel is refreshed
popNoteListCollapseAllClick procedure popNoteListCollapseAllClick(Sender: TObject); Public/Published -
popNoteListCollapseSelectedClick procedure popNoteListCollapseSelectedClick(Sender: TObject); Public/Published -
popNoteListExpandAllClick procedure popNoteListExpandAllClick(Sender: TObject); Public/Published -
popNoteListExpandSelectedClick procedure popNoteListExpandSelectedClick(Sender: TObject); Public/Published -
popNoteListPopup procedure popNoteListPopup(Sender: TObject); Public/Published -
popNoteMemoAddlSignClick procedure popNoteMemoAddlSignClick(Sender: TObject); Public/Published -
popNoteMemoCopyClick procedure popNoteMemoCopyClick(Sender: TObject); Public/Published -
popNoteMemoCutClick procedure popNoteMemoCutClick(Sender: TObject); Public/Published -
popNoteMemoFindClick procedure popNoteMemoFindClick(Sender: TObject); Public/Published -
popNoteMemoGrammarClick procedure popNoteMemoGrammarClick(Sender: TObject); Public/Published -
popNoteMemoInsTemplateClick procedure popNoteMemoInsTemplateClick(Sender: TObject); Public/Published -
popNoteMemoPasteClick procedure popNoteMemoPasteClick(Sender: TObject); Public/Published -
popNoteMemoPopup procedure popNoteMemoPopup(Sender: TObject); Public/Published -
popNoteMemoPreviewClick procedure popNoteMemoPreviewClick(Sender: TObject); Public/Published -
popNoteMemoPrintClick procedure popNoteMemoPrintClick(Sender: TObject); Public/Published -
popNoteMemoReformatClick procedure popNoteMemoReformatClick(Sender: TObject); Public/Published -
popNoteMemoReplaceClick procedure popNoteMemoReplaceClick(Sender: TObject); Public/Published -
popNoteMemoSaveContinueClick procedure popNoteMemoSaveContinueClick(Sender: TObject); Public/Published -
popNoteMemoSpellClick procedure popNoteMemoSpellClick(Sender: TObject); Public/Published -
popNoteMemoTemplateClick procedure popNoteMemoTemplateClick(Sender: TObject); Public/Published -
popNoteMemoViewCsltClick procedure popNoteMemoViewCsltClick(Sender: TObject); Public/Published
Wat cq 17586
wat cq 17586
ProcessMedResults procedure ProcessMedResults(ActionType: string); Public/Published -
ProcessNotifications procedure ProcessNotifications; Private -
RemovePCEFromChanges procedure RemovePCEFromChanges(IEN: Integer; AVisitStr: string = ''); Private -
RequestMultiplePrint procedure RequestMultiplePrint(AForm: TfrmPrintList); Public -
RequestPrint procedure RequestPrint; override; Public -
SaveCurrentNote procedure SaveCurrentNote(var Saved: Boolean); Private -
SaveEditedConsult procedure SaveEditedConsult(var Saved: Boolean); Private
Validates fields and sends the updated consult result to the server 
 this block executes for Clinical Procedures documents ONLY!!
SaveSignItem procedure SaveSignItem(const ItemID, ESCode: string); Public Saves and optionally signs a progress note or addendum
SetActionMenus procedure SetActionMenus ; Private Set available menu actions based on consult status and user access to consult's service
SetEditingIndex procedure SetEditingIndex(const Value: Integer); Private -
SetFontSize procedure SetFontSize(NewFontSize: Integer); override; Public Adjusts the font size of any controls that don't have ParentFont = True
SetResultMenus procedure SetResultMenus ; Private -
SetSubjectVisible procedure SetSubjectVisible(ShouldShow: Boolean); Private Hide/show subject & resize panel accordingly - leave 6 pixel margin above memNewNote
SetViewContext procedure SetViewContext(AContext: TSelectContext); Private -
ShowPCEControls procedure ShowPCEControls(ShouldShow: Boolean); Private -
sptHorzCanResize procedure sptHorzCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); Public/Published -
StartNewEdit function StartNewEdit(NewNoteType: integer): Boolean; Private If currently editing a note, returns TRUE if the user wants to start a new one
timAutoSaveTimer procedure timAutoSaveTimer(Sender: TObject); Public/Published -
tvConsultsChange procedure tvConsultsChange(Sender: TObject; Node: TTreeNode); Public/Published -
tvConsultsClick procedure tvConsultsClick(Sender: TObject); Public/Published -
tvConsultsCollapsed procedure tvConsultsCollapsed(Sender: TObject; Node: TTreeNode); Public/Published -
tvConsultsExit procedure tvConsultsExit(Sender: TObject); Public/Published -
tvConsultsExpanded procedure tvConsultsExpanded(Sender: TObject; Node: TTreeNode); Public/Published -
tvConsultsKeyUp procedure tvConsultsKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
tvCsltNotesChange procedure tvCsltNotesChange(Sender: TObject; Node: TTreeNode); Public/Published -
tvCsltNotesClick procedure tvCsltNotesClick(Sender: TObject); Public/Published -
tvCsltNotesCollapsed procedure tvCsltNotesCollapsed(Sender: TObject; Node: TTreeNode); Public/Published -
tvCsltNotesDragDrop procedure tvCsltNotesDragDrop(Sender, Source: TObject; X, Y: Integer); Public/Published -
tvCsltNotesDragOver procedure tvCsltNotesDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); Public/Published -
tvCsltNotesExpanded procedure tvCsltNotesExpanded(Sender: TObject; Node: TTreeNode); Public/Published -
tvCsltNotesStartDrag procedure tvCsltNotesStartDrag(Sender: TObject; var DragObject: TDragObject); Public/Published -
UMNewOrder procedure UMNewOrder(var Message: TMessage); message UM_NEWORDER; Private Update consults list if progress note completes consult
UnlockConsultRequest procedure UnlockConsultRequest(ANote: Int64; AConsult: Integer = 0); Private
Var
  x: string;
UpdateConsultsTreeView procedure UpdateConsultsTreeView(DocList: TStringList; Tree: TORTreeView); Private -
UpdateList procedure UpdateList; Private -
UpdateNoteTreeView procedure UpdateNoteTreeView(DocList: TStringList; Tree: TORTreeView; AContext: integer); Private -
UserIsSigner function UserIsSigner(NoteIEN: integer): boolean; Private -
VerifyNoteTitle function VerifyNoteTitle: Boolean; Private
Function TfrmConsults.MakeTitleText(IsAddendum: Boolean = False): string;
{returns display text for list box based on FEditNote }
begin
  Result := FormatFMDateTime('mmm dd,yy', FEditNote.DateTime) + U;
  if IsAddendum and (CompareText(Copy(FEditNote.TitleName, 1, 8), 'Addendum') <> 0)
    then Result := Result + 'Addendum to ';
  Result := Result + FEditNote.TitleName + ', ' + FEditNote.LocationName + ', ' +
            FEditNote.AuthorName;
end;
ViewInfo procedure ViewInfo(Sender: TObject); Public/Published -

Referenced By (3)

Module (line) Referrer Type
fConsults (373) frmConsults Read
fConsults (4868) - Read
fFrame (3394) - Read