The manually entered name of the provider that authorised the Rx medication.
object.ProviderStr
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISRxInstruction interface |
string
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.ProviderStr = "John Smith"
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
In Profile Client v8 on User Interface Provider can be found in
.