Procedure

PushKeyVars

Module

uODBase

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

procedure PushKeyVars(const NewVals: string);

Called-By Hierarchy


                                             PushKeyVars
                                   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┘   │ 
                                 TfrmOMNavA.SetNewMenu┤ 
                                   ActivateOrderMenu┘ │ 
                         TfrmRemDlg.btnFinishClick┤   │ 
      TfrmConsults.mnuActNewConsultRequestClick...┤   │ 
           TfrmConsults.mnuActNewProcedureClick...┤   │ 
                          TfrmOrders.lstWriteClick┤   │ 
          TfrmOrders.PlaceOrderForDefaultDialog...┤   │ 
                           TfrmMeds.mnuActNewClick┤   │ 
                           TfrmOMSet.DoNextItem...┘   │ 
                               TfrmOMNavA.cmdNextClick┤ 
                          TfrmOMNavA.ActivateDialog...┤ 
                               TfrmOMSet.InsertList...┘ 

Called-By

Name Declaration Comments
TfrmOMNavA.ActivateDialog procedure ActivateDialog(AnItem: TOrderMenuItem); -
ActivateOrderDialog function ActivateOrderDialog(const AnID: string; AnEvent: TOrderDelayEvent; AnOwner: TComponent; ARefNum: Integer; ANeedVerify: boolean = True): Boolean; -
TfrmOMNavA.cmdNextClick procedure cmdNextClick(Sender: TObject); -
TfrmOMSet.InsertList procedure InsertList(SetList: TStringList; AnOwner: TComponent; ARefNum: Integer; const KeyVarStr: string; AnEventType:Char =#0); -
TfrmOMNavA.SetNewMenu procedure SetNewMenu(MenuIEN: Integer; AnOwner: TComponent; ARefNum: Integer); -


Source

115   procedure PushKeyVars(const NewVals: string);
116   var
117     i: Integer;
118     x: string;
119   begin
120     if uKeyVarList.Count > 0 then x := uKeyVarList[uKeyVarList.Count - 1] else x := '';
121     for i := 1 to MAX_KEYVARS do
122       if Piece(NewVals, U, i) <> '' then SetPiece(x, U, i, Piece(NewVals, U, i));
123     uKeyVarList.Add(x);
124   end;