Procedure

TResponses.SetCopyOrder

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Comments

Sets responses to the values for an order that is created by copying

Visibility

Private

Owner

TResponses

Declaration

procedure SetCopyOrder(const AnID: string);

Calls Hierarchy


TResponses.SetCopyOrder
 ├TResponses.Clear
 └LoadResponses
   └ExtractToResponses
     └ExpandOrderObjects
       ├TdmodShared.BoilerplateOK
       │ ├ErrCount
       │ ├AddErr
       │ └TdmodShared.LoadTIUObjects
       │   └GetObjectList
       └GetTemplateText
         └TEncounter.GetVisitStr
           └TEncounter.GetVisitCategory

Called-By Hierarchy


                                   TResponses.SetCopyOrder
                                  TfrmODBase.SetupDialog┘ 
                                   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┘       

Calls

Name Declaration Comments
TResponses.Clear procedure Clear; overload; -
LoadResponses procedure LoadResponses(Dest: TList; const OrderID: string; var HasObjects: boolean); -

Called-By

Name Declaration Comments
TfrmODBase.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); virtual; -


Source

591   procedure TResponses.SetCopyOrder(const AnID: string);
592   { sets responses to the values for an order that is created by copying }
593   var
594     HasObjects: boolean;
595   begin
596     if AnID = '' then
597     begin
598       FCopyOrder := AnID;
599       Exit;
600     end;
601     Clear;
602     LoadResponses(FResponseList, AnID, HasObjects);                      // Example AnID=C123456;1-3604
603     FCopyOrder := Copy(Piece(AnID, '-', 1), 2, Length(AnID));
604     FOrderContainsObjects := HasObjects;
605   end;