Previous Topic

Next Topic

Book Contents
Simple Site randomization

The following example illustrates a randomization rule for a Simple Site (Type 3) randomization scheme. In this example, the patient's site determines the randomization source list from which the InForm application gets the next sequence number.

Function GetRndSourceList()
szSite = Patient.GetSiteName();

IF (szSite = "PhaseForward") THEN
GetRndSourceList = "SS_PF"
ELSEIF (szSite = "Beth Israel") THEN
GetRndSourceList = "SS_BID"
ELSE
GetRndSourceList = ""
END IF
End Function

'set properties
Randomization.SiteID = Patient.GetSiteID
Randomization.Type = 3
Randomization.Source = GetRndSourceList
Randomization.PatientID = Patient.GetID
Randomization.Revision = 0
'run the randomization and return result
SeqNum = Randomization.GetNextKit(KitInfo)
Result.Result= SeqNum + " / " + KitInfo

Send Feedback