Previous Topic

Next Topic

Book Contents
Stratified by Site randomization

The following example illustrates a randomization rule for a Stratified by Site (Type 4) randomization scheme. In this example, the patient's site and height determine the randomization source list from which the InForm application gets the next sequence number. This example uses the Oracle randomization source lists SR_PF_HT45 and SR_PF_HT75 and the Beth Israel randomization source lists SR_BID_HT45 and SR_BID_HT75.

Function GetRndSourceList()
szSite = Patient.GetSiteName();
ht = Patient.GetValueRF("0.Visit1.DEM.DEM.0.HEIGHT", "", 0,0,0)

SELECT CASE szSite
CASE "PhaseForward"
IF (ht > 30 AND ht <= 45) THEN
GetRndSourceList = "SR_PF_HT45"
ELSEIF (ht > 45 AND < 75) THEN
GetRndSourceList = "SR_PF_HT75
ELSE
GetRndSourceList = ""
END IF

CASE "Beth Israel"
IF (ht > 30 AND ht <= 45) THEN
GetRndSourceList = "SR_BID_HT45"
ELSEIF (ht > 45 AND < 75) THEN
GetRndSourceList = "SR_BID_HT75
ELSE
GetRndSourceList = ""
END IF

CASE ELSE
GetRndSourceList = ""
END SELECT
End Function

'setup randomization object properties
Randomization.SiteID = Patient.GetSiteID
Randomization.Type = 4
Randomization.Source = GetRndSourceList
Randomization.PatientID = Patient.GetID
Randomization.Revision = 0
'randomize the patient and return result
SeqNum = Randomization.GetNextKit(KitInfo)
Result.Result= SeqNum + " / " + KitInfo

Send Feedback