SELECT ;
PADR(ALLTRIM(UIndivul.cLastName) + ", " + ALLTRIM(UIndivul.cFirstName) + " " + ALLTRIM(UIndivul.cMiddleName),60) as cContact,;
UIndivul.iId AS iIndivId,;
UIndivul.cFirstName,;
UIndivul.cMiddleName,;
UIndivul.cLastName,;
UIndivul.cSSN,;
UContact.iId AS iContId,;
UContact.iLocationId,;
UContact.iIndividualId,;
UPatCont.iId AS iPatContId,;
UPatCont.iPatientId,;
UPatCont.iContactId,;
UPatCont.iRelationId,;
UPatCont.iContactOrder,;
UPatCont.lCareGiver,;
ULocatn.iId AS iLocatnId,;
ULocatn.cAddress1,;
ULocatn.cAddress2,;
ULocatn.iCityId,;
ULocatn.cState,;
ULocatn.cZIP,;
ULocatn.iCountyId,;
SRelatn.cName AS cRelation,;
UCnCnMet.cValue AS cContactValue,;
SCntMeth.cName AS cType ;
FROM ;
Impact!UContact ;
INNER JOIN Impact!UPatCont ;
ON UPatCont.iContactId = UContact.iId ;
INNER JOIN Impact!UIndivul ;
ON UIndivul.iId = UContact.iIndividualId ;
INNER JOIN Impact!ULocatn ;
ON ULocatn.iId = UContact.iLocationId ;
INNER JOIN Impact!SRelatn ;
ON SRelatn.iId = UPatCont.iRelationId ;
LEFT JOIN Impact!UCnCnMet ;
ON UCnCnMet.iContactId = UContact.iId ;
INNER JOIN Impact!SCntMeth ;
ON SCntMeth.iId = UCnCnMet.iContactMethodId ;
WHERE ;
UPatCont.iPatientId = ?vp_IPatientId AND ;
UCnCnMet.iOrder = 1 ;
into cursor rex