Previous Topic

Next Topic

Book Contents

Getting a set of named values from the Patient object

On error resume next
aeserval_m = Global.GetNamedValue("aeserval")
if aeserval_m = "Y" then
ptinit_m = Global.GetNamedValue("ptinit")
aedate_m = Global.GetNamedValue("aedate")
aeevent_m = Global.GetNamedValue("aeevent")
site_m = Global.GetNamedValue("sitenm")
emailtxt="An SAE has occured at Site: "&site_m&" for Patient: "&ptinit_m &" on AE Date: "&aedate_m&". The event is : "&aeevent_m&".
call Global.EmailtoInternetUser "test@phaseforward.com","SAE Occurrence",emailtxt
end if

Send Feedback