ISRxInstruction.ExpectedEndDate

Description

The date when the medication is expected to end.

Syntax

object.ExpectedEndDate

Part	Attribute	Type	Description
`object`	Required	ISRxInstruction	The `object` always implements the ISRxInstruction interface

Return Value

DateTime

Example

Fill in the Instruction Params form.

sub main()

  Dim aFilter
  Dim aConcepts, aConcept
  Dim aInstruction

  Set aFilter = Profile.CreateConceptsFilter
  aFilter.AddConceptRef "RX-MIMS", "RxFM1", False           
  set aConcepts = Profile.LoadConcepts(aFilter)
  set aConcept = aConcepts.Item(0)

  set aInstruction = InstructionParams.Instruction 

  aInstruction.ProviderID = Profile.LoadProvider("MM").ID
  
  if InstructionParams.Patient.Sex = "M" then
    aInstruction.Dosage = 2
    aInstruction.Dosage2 = 3
  else
    aInstruction.Dosage = 3
    aInstruction.Dosage2 = 4
  end if 
  set aInstruction.DosageUnit = aConcept  
  aInstruction.FreqStr = "as directed"
  aInstruction.FreqValue = 0
  aInstruction.Generically = True
  aInstruction.Notes = "Take after food"
  aInstruction.Route = Profile.LoadShortCodeByCodeType("PO", 152) 'sscMedicationRoute
  aInstruction.StartDate = Now
  aInstruction.ExpectedEndDate = Now + 5
  
  InstructionParams.MedData.Date = Now
  
end sub

Note: The object with the ISRxInstructionParams interface cannot be created explicitly. It is available only in the context of the macro that runs when the form for creating a new instruction is being opened.

In Profile Client v8 on User Interface End Date can be found in Clinical > Medical Record > MedChart > New > Instruction Params form > End field.

Version information

Added in v7.10.90