Procedure

TfrmDCSumm.mnuActIdentifyAddlSignersClick

Module

fDCSumm

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmDCSumm

Declaration

procedure mnuActIdentifyAddlSignersClick(Sender: TObject);

Calls Hierarchy


TfrmDCSumm.mnuActIdentifyAddlSignersClick
 ├TfrmDCSumm.NoSummSelected
 ├TfrmDCSumm.SaveCurrentSumm
 │ └TfrmDCSumm.SaveEditedSumm
 │   ├TfrmDCSumm.tvSummsChange
 │   │ ├CanBeAttached
 │   │ ├CanReceiveAttachment
 │   │ ├TraverseTree
 │   │ │ ├ContextMatch
 │   │ │ ├TextFound
 │   │ │ ├AddListViewItem
 │   │ │ └..(rec)..
 │   │ ├TfrmDCSumm.lvSummsSelectItem
 │   │ │ └TfrmDCSumm.lstSummsClick
 │   │ │   ├MakeDCSummDisplayText
 │   │ │   ├LoadDocumentText
 │   │ │   ├TfrmDCSumm.DisplayPCE
 │   │ │   │ ├TPCEData.AddStrData
 │   │ │   │ │ ├Add
 │   │ │   │ │ ├TPCEData.StrVisitType
 │   │ │   │ │ │ ├GetPCEDataText
 │   │ │   │ │ │ │ └GetDiagnosisText
 │   │ │   │ │ │ ├TPCEProc.ModText
 │   │ │   │ │ │ │ └ModifierName
 │   │ │   │ │ │ │   └ModifierIdx
 │   │ │   │ │ │ │     ├TPCEData.VisitDateTime
 │   │ │   │ │ │ │     │ └TPCEData.IsSecondaryVisit
 │   │ │   │ │ │ │     ├FMToday
 │   │ │   │ │ │ │     │ └FMNow
 │   │ │   │ │ │ │     └MixedCaseModifier
 │   │ │   │ │ │ └TPCEData.StrVisitType
 │   │ │   │ │ │   └AddTxt
 │   │ │   │ │ ├TPCEData.StrDiagnoses
 │   │ │   │ │ │ └GetPCEDataText...
 │   │ │   │ │ ├TPCEData.StrProcedures
 │   │ │   │ │ │ ├GetPCEDataText...
 │   │ │   │ │ │ └TPCEProc.ModText...
 │   │ │   │ │ ├TPCEData.StrImmunizations
 │   │ │   │ │ │ └GetPCEDataText...
 │   │ │   │ │ ├TPCEData.StrSkinTests
 │   │ │   │ │ │ └GetPCEDataText...
 │   │ │   │ │ ├TPCEData.StrPatientEds
 │   │ │   │ │ │ └GetPCEDataText...
 │   │ │   │ │ ├TPCEData.StrHealthFactors
 │   │ │   │ │ │ └GetPCEDataText...
 │   │ │   │ │ └TPCEData.StrExams
 │   │ │   │ │   └GetPCEDataText...
 │   │ │   │ ├GetVitalsFromDate
 │   │ │   │ │ ├TPCEData.IsSecondaryVisit
 │   │ │   │ │ └GetVitalsFromEncDateTime
 │   │ │   │ ├TPCEData.AddVitalData
 │   │ │   │ │ └FormatVitalForNote
 │   │ │   │ │   └ConvertVitalData
 │   │ │   │ ├CanEditPCE
 │   │ │   │ │ ├GetAskPCE
 │   │ │   │ │ └FutureEncounter
 │   │ │   │ │   └FMToday...
 │   │ │   │ ├TfrmDCSumm.ShowPCEControls
 │   │ │   │ ├TfrmDrawers.DisplayDrawers
 │   │ │   │ │ └..(rec)..
 │   │ │   │ ├ActOnDocument
 │   │ │   │ ├TPCEData.PCEForNote
 │   │ │   │ │ ├TEncounter.GetVisitStr
 │   │ │   │ │ │ └TEncounter.GetVisitCategory
 │   │ │   │ │ ├VisitStrForNote
 │   │ │   │ │ ├TPCEData.GetVisitString
 │   │ │   │ │ │ └TPCEData.VisitDateTime...
 │   │ │   │ │ ├TPCEData.CopyPCEData
 │   │ │   │ │ │ ├TPCEData.Clear
 │   │ │   │ │ │ │ ├ClearList
 │   │ │   │ │ │ │ ├TPCEProc.Clear
 │   │ │   │ │ │ │ │ └TPCEItem.Clear
 │   │ │   │ │ │ │ │   └TPCEItem.SetComment
 │   │ │   │ │ │ │ └TPCEProviderList.Clear
 │   │ │   │ │ │ │   └TPCEProviderList.GetPrimaryIdx
 │   │ │   │ │ │ ├TPCEProc.CopyProc
 │   │ │   │ │ │ │ └TPCEItem.SetComment
 │   │ │   │ │ │ ├TPCEProviderList.Assign
 │   │ │   │ │ │ └TPCEData.CopyPCEItems
 │   │ │   │ │ │   └TPCEItem.Assign
 │   │ │   │ │ │     └TPCEItem.SetComment
 │   │ │   │ │ ├TPCEData.IsSecondaryVisit
 │   │ │   │ │ ├GetLocSecondaryVisitCode
 │   │ │   │ │ ├TPCEData.Clear...
 │   │ │   │ │ ├LoadPCEDataForNote
 │   │ │   │ │ ├ListVisitTypeByLoc
 │   │ │   │ │ ├SetRPCEncLocation
 │   │ │   │ │ ├SCCValue
 │   │ │   │ │ ├TPCEProviderList.Add
 │   │ │   │ │ │ ├TPCEProviderList.GetPrimaryIdx
 │   │ │   │ │ │ ├TPCEProviderList.IndexOfProvider
 │   │ │   │ │ │ └TPCEProviderList.SetPrimaryIdx
 │   │ │   │ │ │   ├TPCEProviderList.GetPrimaryIdx
 │   │ │   │ │ │   └TPCEProviderList.SetPrimary
 │   │ │   │ │ ├AppendComment
 │   │ │   │ │ ├TPCEDiag.SetFromString
 │   │ │   │ │ │ └TPCEItem.SetFromString
 │   │ │   │ │ │   └TPCEItem.SetComment
 │   │ │   │ │ ├TPCEProc.SetFromString
 │   │ │   │ │ │ └TPCEItem.SetFromString...
 │   │ │   │ │ ├TPCEImm.SetFromString
 │   │ │   │ │ │ └TPCEItem.SetFromString...
 │   │ │   │ │ ├TPCESkin.SetFromString
 │   │ │   │ │ │ ├TPCEItem.SetFromString...
 │   │ │   │ │ │ └StrToFMDateTime
 │   │ │   │ │ ├TPCEPat.SetFromString
 │   │ │   │ │ │ └TPCEItem.SetFromString...
 │   │ │   │ │ ├TPCEHealth.SetFromString
 │   │ │   │ │ │ └TPCEItem.SetFromString...
 │   │ │   │ │ └TPCEExams.SetFromString
 │   │ │   │ │   └TPCEItem.SetFromString...
 │   │ │   │ └GetVitalsFromNote
 │   │ │   │   ├TPCEData.IsSecondaryVisit
 │   │ │   │   ├GetVitalsFromEncDateTime
 │   │ │   │   └GetVitalFromNoteIEN
 │   │ │   └NotifyOtherApps
 │   │ │     ├AppNotificationEnabled
 │   │ │     │ └TNotifyAppsThread.CreateThread
 │   │ │     └TNotifyAppsThread.ResumeIfIdle
 │   │ ├TfrmDCSumm.ShowPCEControls
 │   │ └TfrmDCSumm.lstSummsClick...
 │   ├TfrmDCSumm.GetTitleText
 │   ├TfrmDCSumm.mnuActDeleteClick
 │   │ ├TfrmDCSumm.NoSummSelected
 │   │ ├ActOnDocument
 │   │ ├SelectDeleteReason
 │   │ │ ├JustifyDocumentDelete
 │   │ │ └TfrmBase508Form.Create
 │   │ │   ├TfrmBase508Form.UpdateAccessibilityActions
 │   │ │   ├UnfocusableControlEnter
 │   │ │   └AdjustControls
 │   │ │     ├TfrmBase508Form.ModifyUnfocusableControl
 │   │ │     └..(rec)..
 │   │ ├MakeDCSummDisplayText
 │   │ ├TfrmDCSumm.LockSumm
 │   │ │ ├TChanges.Exist
 │   │ │ └LockDocument
 │   │ ├JustifyDocumentDelete
 │   │ ├TfrmDCSumm.SaveCurrentSumm...
 │   │ ├TfrmDCSumm.SetEditingIndex
 │   │ ├VisitStrForNote
 │   │ ├TfrmDCSumm.RemovePCEFromChanges
 │   │ │ ├VisitStrForNote
 │   │ │ └TChanges.Remove
 │   │ │   ├UnlockOrder
 │   │ │   └UnlockDocument
 │   │ ├DeleteDocument
 │   │ ├TChanges.Exist
 │   │ ├UnlockDocument
 │   │ ├TChanges.Remove...
 │   │ ├DeletePCE
 │   │ ├TfrmDCSumm.ClearEditControls
 │   │ │ ├TPCEData.Clear...
 │   │ │ └TfrmDCSumm.SetEditingIndex
 │   │ ├TfrmDCSumm.LoadSumms
 │   │ │ ├KillDocTreeObjects
 │   │ │ │ └ResetDocTreeObjectStrings
 │   │ │ ├ListSummsForTree
 │   │ │ ├CreateListItemsForDocumentTree
 │   │ │ ├TfrmDCSumm.UpdateTreeView
 │   │ │ │ └BuildDocumentTree
 │   │ │ │   ├MakeNoteDisplayText
 │   │ │ │   ├MakeConsultNoteDisplayText
 │   │ │ │   ├MakeDCSummDisplayText
 │   │ │ │   ├MakeNoteTreeObject
 │   │ │ │   │ └MakeNoteDisplayText
 │   │ │ │   ├MakeConsultsNoteTreeObject
 │   │ │ │   │ ├MakeConsultNoteDisplayText
 │   │ │ │   │ └GetConsultOrderIEN
 │   │ │ │   ├MakeDCSummTreeObject
 │   │ │ │   │ └MakeDCSummDisplayText
 │   │ │ │   ├SetTreeNodeImagesAndFormatting
 │   │ │ │   │ ├ExternalName
 │   │ │ │   │ ├TextFound
 │   │ │ │   │ └MakeBold
 │   │ │ │   └..(rec)..
 │   │ │ ├RemoveParentsWithNoChildren
 │   │ │ │ └KillDocTreeNode
 │   │ │ │   └ResetDocTreeObjectStrings
 │   │ │ └TfrmDCSumm.tvSummsChange...
 │   │ ├UpdateReminderFinish
 │   │ │ └TfrmRemDlg.UpdateButtons
 │   │ │   ├TfrmRemDlg.BackReminder
 │   │ │   │ └TfrmRemDlg.GetCurReminderList
 │   │ │   │   └TReminderDialog.GetIEN
 │   │ │   └TfrmRemDlg.NextReminder
 │   │ │     └TfrmRemDlg.GetCurReminderList...
 │   │ ├TfrmDCSumm.ShowPCEControls
 │   │ └TfrmDrawers.DisplayDrawers...
 │   ├TfrmDCSumm.cmdChangeClick
 │   │ ├ExecuteDCSummProperties
 │   │ │ ├TfrmBase508Form.Create...
 │   │ │ ├ListDCSummTitlesShort
 │   │ │ │ └LoadDCSummTitles
 │   │ │ │   └TDCSummTitles.Create
 │   │ │ ├LoadDCUrgencies
 │   │ │ ├TfrmDCSummProperties.ShowAdmissionList
 │   │ │ │ └ListAdmitAll
 │   │ │ ├PrintNameForTitle
 │   │ │ ├StrToFMDateTime
 │   │ │ ├GetDischargeDate
 │   │ │ ├FMNow
 │   │ │ └GetTIUListItem
 │   │ ├TChanges.ReplaceSignState
 │   │ ├MakeDCSummDisplayText
 │   │ ├TChanges.ReplaceText
 │   │ ├TfrmDCSumm.GetTitleText
 │   │ └TfrmDCSumm.mnuActLoadBoilerClick
 │   │   ├TfrmDCSumm.NoSummSelected
 │   │   ├LoadBoilerPlate
 │   │   ├GetLinkedTemplate
 │   │   │ ├GetLinkedTemplateData
 │   │   │ └AddTemplate
 │   │   │   ├TTemplate.Create
 │   │   │   │ └TTemplate.ReminderDialogIEN
 │   │   │   └TTemplate.AddChild
 │   │   │     └TTemplate.GetItems
 │   │   │       └ExpandTemplate
 │   │   │         ├TTemplate.GetChildren
 │   │   │         ├GetTemplateChildren
 │   │   │         ├AddTemplate...
 │   │   │         └TTemplate.ItemIENs
 │   │   │           └TTemplate.GetItems...
 │   │   ├MakeXMLParamTIU
 │   │   │ └ExternalName
 │   │   ├AssignBoilerText
 │   │   │ └QuickCopyWith508Msg
 │   │   │   └SpeakTextInserted
 │   │   ├QueryBoilerPlate
 │   │   │ └TfrmBase508Form.Create...
 │   │   └QuickAddWith508Msg
 │   │     └SpeakTextInserted
 │   ├TPCEData.GetCPTRequired
 │   │ └TPCEData.NeededPCEData
 │   │   ├FutureEncounter...
 │   │   ├PromptForWorkload
 │   │   ├TPCEData.StandAlone
 │   │   │ └HasVisit
 │   │   ├TPCEData.GetHasCPTList
 │   │   │ └AddList
 │   │   │   └TPCEItem.HasCPTStr
 │   │   ├DataHasCPTCodes
 │   │   ├RequireExposures
 │   │   └EligbleConditions
 │   ├RequireMASVerification
 │   ├RequireRelease
 │   ├PutEditedDCSumm
 │   │ └SetText
 │   │   └InitParams
 │   ├TChanges.Remove...
 │   ├UnlockDocument
 │   ├TfrmDCSumm.SetEditingIndex
 │   └TfrmDCSumm.lstSummsClick...
 ├TfrmDCSumm.LoadSumms...
 ├CanChangeCosigner
 ├ActOnDocument
 ├GetCurrentSigners
 ├SelectAdditionalSigners
 │ ├TfrmBase508Form.Create...
 │ └FMToday...
 ├UpdateAdditionalSigners
 ├ChangeAttending
 └TfrmDCSumm.lstSummsClick...

Called-By Hierarchy


TfrmDCSumm.mnuActIdentifyAddlSignersClick
    TfrmDCSumm.popSummMemoAddlSignClick┘ 

Calls

Name Declaration Comments
ActOnDocument procedure ActOnDocument(var AuthSts: TActionRec; IEN: Integer; const ActionName: string); -
CanChangeCosigner function CanChangeCosigner(IEN: integer): boolean; -
ChangeAttending procedure ChangeAttending(IEN: integer; AnAttending: int64); -
GetCurrentSigners function GetCurrentSigners(IEN: integer): TStrings; -
TfrmDCSumm.LoadSumms procedure LoadSumms; -
TfrmDCSumm.lstSummsClick procedure lstSummsClick(Sender: TObject); -
TfrmDCSumm.NoSummSelected function NoSummSelected : Boolean; -
TfrmDCSumm.SaveCurrentSumm procedure SaveCurrentSumm(var Saved: Boolean); -
SelectAdditionalSigners procedure SelectAdditionalSigners(FontSize, NoteIEN, SigAction: Integer; Exclusions: TStrings; var SignerList: TSignerList; TabID: integer; ARefDate: TFMDateTime) ; -
UpdateAdditionalSigners procedure UpdateAdditionalSigners(IEN: integer; Signers: TStrings); -

Called-By

Name Declaration Comments
TfrmDCSumm.popSummMemoAddlSignClick procedure popSummMemoAddlSignClick(Sender: TObject); -


Source

2038  procedure TfrmDCSumm.mnuActIdentifyAddlSignersClick(Sender: TObject);
2039  var
2040    Exclusions: TStrings;
2041    Saved, x, y: boolean;
2042    SignerList: TSignerList;
2043    ActionSts: TActionRec;
2044    SigAction: integer;
2045    SavedDocID: string;
2046    ARefDate: TFMDateTime;
2047  begin
2048    inherited;
2049    if NoSummSelected() then Exit;
2050    if lstSumms.ItemIndex = EditingIndex then
2051      begin
2052        SaveCurrentSumm(Saved);
2053        if not Saved then Exit;
2054        LoadSumms;
2055        with tvSumms do Selected := FindPieceNode(SavedDocID, U, Items.GetFirstNode);
2056      end;
2057    x := CanChangeCosigner(lstSumms.ItemIEN);
2058    ActOnDocument(ActionSts, lstSumms.ItemIEN, 'IDENTIFY SIGNERS');
2059    y := ActionSts.Success;
2060    if x and not y then
2061      begin
2062        if InfoBox(ActionSts.Reason + CRLF + CRLF +
2063                   'Would you like to change the cosigner?',
2064                   TX_IN_AUTH, MB_YESNO or MB_DEFBUTTON2 or MB_ICONQUESTION) = ID_YES then
2065      	SigAction := SG_COSIGNER
2066        else
2067  	Exit;
2068      end
2069    else if y and not x then SigAction := SG_ADDITIONAL
2070    else if x and y then SigAction := SG_BOTH
2071    else
2072      begin
2073        InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK);
2074        Exit;
2075      end;
2076  
2077  //  NEED TO PREVENT CHANGE OF COSIGNER ON DC SUMMARIES?
2078  {  if y then SigAction := SG_ADDITIONAL
2079      else
2080      begin
2081        InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK);
2082        Exit;
2083      end;  }
2084  
2085    Exclusions := GetCurrentSigners(lstSumms.ItemIEN);
2086    ARefDate := ExtractFloat(Piece(Piece(lstSumms.Items[lstSumms.ItemIndex], U, 9), ';', 2));
2087    if ARefDate = 0 then        //no discharge date, so use note date
2088      ARefDate := StrToFloat(Piece(lstSumms.Items[lstSumms.ItemIndex], U, 3));
2089    SelectAdditionalSigners(Font.Size, lstSumms.ItemIEN, SigAction, Exclusions, SignerList, CT_DCSUMM, ARefDate);
2090    with SignerList do
2091      begin
2092        case SigAction of
2093          SG_ADDITIONAL:  if Changed and (Signers <> nil) and (Signers.Count > 0) then
2094                            UpdateAdditionalSigners(lstSumms.ItemIEN, Signers);
2095          SG_COSIGNER:    if Changed then ChangeAttending(lstSumms.ItemIEN, Cosigner);
2096          SG_BOTH:        if Changed then
2097                            begin
2098                              if (Signers <> nil) and (Signers.Count > 0) then
2099                                UpdateAdditionalSigners(lstSumms.ItemIEN, Signers);
2100                              ChangeAttending(lstSumms.ItemIEN, Cosigner);
2101                            end;
2102        end;
2103        lstSummsClick(Self);
2104      end;
2105  end;