|
|
|
|
GetNextKit method (KitInfo)
Gets the next sequence number from the randomization source specified in the Randomization.Source property. If the next number in the sequence has additional kit information associated with it, GetNextKit also returns the corresponding kit information.
Argument
Kit information associated with the returned sequence number, if provided.
Examples
The following example illustrates a randomization rule for a Simple Central (Type 1) randomization scheme.
Randomization.SiteID = Patient.GetSiteID
Randomization.Type = 1
Randomization.Source = "SimpleCentral"
Randomization.PatientID = Patient.GetID
Randomization.Revision = 0
SeqNum = Randomization.GetNextKit(KitInfo)
Result.Result= SeqNum + " / " + KitInfo
The following example illustrates a randomization rule for a Central Stratified (Type 2) randomization scheme. In this example, the stratification is based on the subject's weight, as entered in the Demographics form in Visit 1. Based on the subject's weight, the InForm software gets the next sequence number from either the CS_WT150 or the CS_WT275 randomization source list.
Function GetRndSourceList()
wt = Patient.GetValue("0.Visit1.DEM.DEM.0.WEIGHT", "", 0,0,0)
IF (wt > 90 AND wt < 150) THEN
GetRndSourceList = "CS_WT150"
ELSEIF (wt > 150 AND wt < 275) THEN
GetRndSourceList = "CS_WT275"
ELSE
GetRndSourceList = ""
END IF
End Function
'set properties
Randomization.SiteID = Patient.GetSiteID
Randomization.Type = 2
Randomization.Source = GetRndSourceList
Randomization.PatientID = Patient.GetID
Randomization.Revision = 0
'randomize the patient and return result
SeqNum = Randomization.GetNextKit(KitInfo)
Result.Result= SeqNum + " / " + KitInfo
The following example illustrates a randomization rule for a Simple Site (Type 3) randomization scheme. In this example, the subject's site determines the randomization source list from which the InForm application gets the next sequence number.
Function GetRndSourceList()
szSite = Patient.GetSiteName();
IF (szSite = "Mass General") 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
The following example illustrates a randomization rule for a Stratified by Site (Type 4) randomization scheme. In this example, the subject'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.GetValue("0.Visit1.DEM.DEM.0.HEIGHT", "", 0,0,0)
SELECT CASE szSite
CASE "Mass General"
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
