Function

IsActiveICDCode

Module

rPCE

Last Modified

10/7/2014 12:48:38 PM

Comments

Procedure GetI10Alternatives(Dest: TStrings; SCTCode: string);
TODO: Code for I10 mapped alternatives - remove if not reinstated as requirement
procedure GetI10Alternatives(Dest: TStrings; SCTCode: string);
begin
  CallV('ORWLEX GETALTS', [SCTCode, 'SCT']);
  FastAssign(RPCBrokerV.Results, Dest);
end;

Scope

Interfaced

Declaration

function  IsActiveICDCode(ACode: string; ADate: TFMDateTime = 0): boolean;

Calls Hierarchy


IsActiveICDCode
 └IsActiveCode

Called-By Hierarchy


                                         IsActiveICDCode
                   TfrmODProc.GetProvDxandValidateCode┤ 
                              TfrmODProc.SetupDialog┤ │ 
                            TfrmODProc.cboProcSelect┘ │ 
                   TfrmODCslt.GetProvDxandValidateCode┤ 
                              TfrmODCslt.SetupDialog┤ │ 
                         TfrmODCslt.treServiceChange┤ │ 
                      TfrmODCslt.treServiceKeyDown┘ │ │ 
                         TfrmODCslt.cboServiceSelect┘ │ 
                         TfrmODCslt.cboServiceExit┘   │ 
                                   ActivateOrderDialog┤ 
                           TfrmRemDlg.btnFinishClick┤ │ 
           TfrmConsults.mnuActNewConsultRequestClick┤ │ 
                   TfrmConsults.cmdNewConsultClick┘ │ │ 
                TfrmConsults.mnuActNewProcedureClick┤ │ 
                      TfrmConsults.cmdNewProcClick┘ │ │ 
                                        ChangeOrders┤ │ 
                      TfrmOrders.mnuActChangeClick┤ │ │ 
                        TfrmMeds.mnuActChangeClick┘ │ │ 
                                     ChangeOrdersEvt┤ │ 
                                          CopyOrders┤ │ 
                        TfrmOrders.mnuActCopyClick┤ │ │ 
                          TfrmMeds.mnuActCopyClick┤ │ │ 
                           TfrmODActive.btnOKClick┘ │ │ 
                                      TransferOrders┤ │ 
                        TfrmOrders.mnuActCopyClick┤ │ │ 
                          TfrmMeds.mnuActCopyClick┤ │ │ 
                           TfrmODActive.btnOKClick┘ │ │ 
                            TfrmOrders.lstWriteClick┤ │ 
               TfrmOrders.PlaceOrderForDefaultDialog┤ │ 
                  TfrmOrders.DisplayDefaultDlgList┤ │ │ 
                       TfrmOrders.ResetOrderPage┘ │ │ │ 
               TfrmOrders.btnDelayedOrderClick┘   │ │ │ 
                                 DisplayEvntDialog┤ │ │ 
                             SetDelayEventForMed┘ │ │ │ 
                      TfrmMeds.mnuActCopyClick┘   │ │ │ 
                                 DisplayEvntDialog┤ │ │ 
                                  SetViewForCopy┘ │ │ │ 
                    TfrmOrders.mnuActCopyClick┘   │ │ │ 
                                 DisplayEvntDialog┘ │ │ 
                                ExecuteChangeEvt┘   │ │ 
                 TfrmOrders.mnuActChgEvntClick┘     │ │ 
                             TfrmMeds.mnuActNewClick┤ │ 
                           TfrmOMNavA.ActivateDialog┤ │ 
                         TfrmOMNavA.grdMenuKeyDown┤ │ │ 
                         TfrmOMNavA.grdMenuMouseUp┘ │ │ 
                                TfrmOMSet.DoNextItem┘ │ 
                              TfrmOMSet.InsertList┤   │ 
                               ActivateOrderList┘ │   │ 
                     TfrmRemDlg.btnFinishClick┤   │   │ 
                             ActivateOrderHTML┤   │   │ 
                    TfrmOrders.lstWriteClick┤ │   │   │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┘ │   │   │ 
                              ActivateOrderSet┤   │   │ 
                   TfrmRemDlg.btnFinishClick┤ │   │   │ 
TfrmConsults.mnuActNewConsultRequestClick...┤ │   │   │ 
     TfrmConsults.mnuActNewProcedureClick...┤ │   │   │ 
                    TfrmOrders.lstWriteClick┤ │   │   │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┤ │   │   │ 
                     TfrmMeds.mnuActNewClick┤ │   │   │ 
                TfrmOMNavA.ActivateDialog...┤ │   │   │ 
                     TfrmOMSet.DoNextItem...┘ │   │   │ 
                       TfrmOMNavA.DoSelectList┘   │   │ 
                     TfrmOMNavA.grdMenuKeyUp┤     │   │ 
                   TfrmOMNavA.grdMenuMouseUp┘     │   │ 
                                        SkipToNext┤   │ 
                         TfrmOMSet.DoNextItem...┘ │   │ 
                            TfrmOMSet.UMDelayEvent┘   │ 
                            TfrmProblems.UpdateProblem┤ 
                       TfrmProblems.lstProbActsClick┘ │ 
                   TfrmProblems.wgProbDataDblClick┤   │ 
                         TfrmProblems.lstViewClick┘   │ 
                 TfrmProblems.HighlightDuplicate┘     │ 
                       TfrmProblems.AddProblem┤       │ 
            TfrmProblems.lstProbActsClick...┤ │       │ 
               TfrmProblems.lstProbPickClick┤ │       │ 
            TfrmProblems.lstProbPickDblClick┤ │       │ 
            TfrmProblems.edProbEntKeyPress┘ │ │       │ 
                    TfrmProblems.UMPLLexicon┘ │       │ 
                 TfrmdlgProb.bbChangeProbClick┘       │ 
                           TfrmProblems.RestoreProblem┤ 
                    TfrmProblems.lstProbActsClick...┘ │ 
                               TfrmdlgProb.bbFileClick┘ 

Calls

Name Declaration Comments
IsActiveCode function IsActiveCode(ACode: string; LexApp: integer; ADate: TFMDateTime = 0): boolean; -

Called-By

Name Declaration Comments
ActivateOrderDialog function ActivateOrderDialog(const AnID: string; AnEvent: TOrderDelayEvent; AnOwner: TComponent; ARefNum: Integer; ANeedVerify: boolean = True): Boolean; -
TfrmdlgProb.bbFileClick procedure bbFileClick(Sender: TObject); -
TfrmODProc.GetProvDxandValidateCode procedure GetProvDxandValidateCode(AResponses: TResponses); -
TfrmODCslt.GetProvDxandValidateCode procedure GetProvDxandValidateCode(AResponses: TResponses); -
TfrmProblems.RestoreProblem procedure RestoreProblem; -
TfrmProblems.UpdateProblem procedure UpdateProblem(const why:char;Line: string;AllProblemsIndex:integer); -


Source

283   function  IsActiveICDCode(ACode: string; ADate: TFMDateTime = 0): boolean;
284   begin
285     Result := IsActiveCode(ACode, LX_ICD, ADate);
286   end;