ISRxInstruction.RxToTake

Description

The Rx medication taken by the patient.

Syntax

object.RxToTake

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

Return Value

ISRx

Example

Fill in the Instruction Params form.

sub main()

  Dim aFilter
  Dim aConcepts, aConcept
  Dim aInstruction
  Dim aMedData  
   
  Set aFilter = Profile.CreateConceptsFilter
  aFilter.AddConceptRef "RX-MIMS", "RxFM1", False           
  set aConcepts = Profile.LoadConcepts(aFilter)
  set aConcept = aConcepts.Item(0)
  
  set aInstruction = InstructionParams.Instruction
  set aMedData = InstructionParams.MedData  
  
  aInstruction.ProviderID = Profile.LoadProvider("MM").ID
  set aInstruction.DosageUnit = aConcept  
  aInstruction.FreqStr = "as directed"
  aInstruction.Generically = False
  aInstruction.Notes = "Take after food"
  aInstruction.Route = Profile.LoadShortCodeByCodeType("PO", 152) 'sscMedicationRoute 
  aInstruction.StartDate = Now
  aInstruction.ExpectedEndDate = Now + 5
  aInstruction.RxToTake.Name = "Ferbidol" 
  aMedData.Date = Now
  aMedData.Diagnosis = Profile.LoadDisease("LETH")
  aMedData.DoseMax24h = 6
  aMedData.Stat = True
  aMedData.MedicationMethodId =_
    Profile.LoadShortCodeByCodeType("INSTRUCTION", 160).ID 'sscMedOrderItemMethod
  aMedData.MedicationTypeId =_
    Profile.LoadShortCodeByCodeType("REGULAR", 158).ID 'sscMedicationType
  
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 Rx To Take can be found in Clinical > Medical Record > MedChart > New > Instruction Params form > Take field

Version information

Added in v7.10.90