Function

IsValidIMOLoc

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Comments

IMO: inpatient medication for outpatient

IMO
IMO

Scope

Interfaced

Declaration

function IsValidIMOLoc(LocID: integer; PatientID: string): boolean;   //IMO

Called-By Hierarchy


                                                 IsValidIMOLoc
                                        TResponses.SaveOrder┤ 
                                      TfrmODBase.ValidSave┘ │ 
                               TfrmODBase.cmdAcceptClick┤   │ 
                                   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┘     │   │ 
                               TfrmODBase.FormCloseQuery┤   │ 
                                     TfrmODBase.TabClose┤   │ 
                            TfrmODAllergy.cmdAcceptClick┘   │ 
                                                 IsIMODialog┤ 
                                    ActivateOrderDialog...┘ │ 
                                            AllowActionOnIMO┤ 
                                       IMOActionValidation┘ │ 
                                  ActivateOrderDialog...┤   │ 
                                      ExecuteRenewOrders┘   │ 
                           TfrmOrders.mnuActRenewClick┤     │ 
                             TfrmMeds.mnuActRenewClick┘     │ 
                                        ExecuteReleaseOrders┤ 
                             TfrmOrders.mnuActReleaseClick┘ │ 
                                        ExecuteOnChartOrders┤ 
                             TfrmOrders.mnuActOnChartClick┘ │ 
                                    TfrmODMeds.IfIsIMODialog┤ 
                                     TfrmODMeds.FormCreate┘ │ 
                                       ExecuteRenewOrders...┘ 

Called-By

Name Declaration Comments
AllowActionOnIMO function AllowActionOnIMO(AnEvtTyp: char): boolean; -
ExecuteOnChartOrders function ExecuteOnChartOrders(SelectedList: TList): Boolean; -
ExecuteReleaseOrders function ExecuteReleaseOrders(SelectedList: TList): Boolean; -
ExecuteRenewOrders function ExecuteRenewOrders(var SelectedList: TList): Boolean; -
TfrmODMeds.IfIsIMODialog function IfIsIMODialog: boolean; -
IsIMODialog function IsIMODialog(DlgID: integer): boolean; -
TResponses.SaveOrder procedure SaveOrder(var AnOrder: TOrder; DlgIEN: Integer; IsIMOOrder: boolean = False); -


Source

2483  function IsValidIMOLoc(LocID: integer; PatientID: string): boolean;   //IMO
2484  var
2485    rst: string;
2486  begin
2487    rst := SCallV('ORIMO IMOLOC',[LocID, PatientID]);
2488    Result := StrToIntDef(rst,-1) > -1;
2489  end;