ISRxMedDataTemplate.Diagnosis

Description

The disease code that is linked to the medication.

Syntax

object.Diagnosis

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

Return Value

ISDisease

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 = True
  aInstruction.Notes = "Take after food"
  aInstruction.Route = Profile.LoadShortCodeByCodeType("PO", 152) 'sscMedicationRoute 
  aInstruction.StartDate = Now
  aInstruction.ExpectedEndDate = Now + 5
  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 Diagnosis can be found in Clinical > Medical Record > MedChart > New > Formulary > Select the medication > Instruction Params form > Indication field.

Version information

Added in v7.10.90