The medication dosage frequency that is returned as a concept.
object.FreqUnit
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISRxInstruction interface |
Fill in the Instruction Params form.
sub main()
Dim aFilter
Dim aConcepts, aConcept
Dim aInstruction
Set aFilter = Profile.CreateConceptsFilter
aFilter.AddConceptRef "RX-MIMS", "RxDFAD", 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
aInstruction.FreqStr = "as directed"
set aInstruction.FreqUnit = aConcept
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
In Profile Client v8 on User Interface Frequency Unit can be found in
.