sSQL = "[ng_add_person] <@i output>,<@s output>,'00001','0001',NULL,'Test','Himport',0,NULL,NULL,'H.',NULL,'6027 W. Parker Rd','suite 30H','Plano','Tx','75093',NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,'4693265176',NULL,'4633265177',NULL,NULL,'19650315','M','223564714','4633265177','N',NULL,'N','N','N','N','N','N','N','N','N','11111111-1234-5678-3333-111122223333','2F1F13FF-EA73-4DE9-8BAE-61EBC8478BC4',NULL,NULL,'Declined to Specify','English',NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,'some@email.com',NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,'N',NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,'N',NULL,NULL,NULL,NULL,NULL,NULL,'AE027C2F-31E9-49F0-88CE-BA0279CCEF75',NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,'N',NULL,NULL,NULL,NULL,NULL,'N','N','N','N','N','N','N',NULL,NULL,NULL,NULL"
oResults = sqlMS.CreateCallStatement(sSQL, Null)
Dim rsStatus As ResultSet = sqlMS.ExecCall(oResults)
Do While rsStatus.NextRow
Log(rsStatus.GetString2(0))
Log(rsStatus.GetString2(1))
Loop