pears.NetOwnerCandidateProfileEdit

CREATE PROCEDURE "pears"."NetOwnerCandidateProfileEdit"( IN "pWebUserID" CHAR(20),IN "pPersonID" CHAR(20) ) 
RESULT( "PersonID" CHAR(20),"Forenames" CHAR(50),"Surname" CHAR(50),"Gender" CHAR(1),"DOB" DATE,"HomePhone" CHAR(250),"DayPhone" CHAR(250),"Mobile" CHAR(250),"Email" CHAR(250),"Addr1" CHAR(50),"Addr2" CHAR(50),"Addr3" CHAR(50),"Town" CHAR(50),"County" CHAR(50),"Country" CHAR(50),"Postcode" CHAR(50) ) 
BEGIN
  IF((SELECT "count"() FROM "person" WHERE "person"."personid" = "pPersonID") = 0) THEN
    SELECT '','','','',NULL,'','','','','','','','','','',''
  ELSE
    SELECT FIRST "person"."personid","person"."forenames","person"."surname","person"."sex","person"."dob",
      "getphone"('P','Home Telephone',"person"."personid") AS "HomePhone","getphone"('P','Day Telephone',"person"."personid") AS "DayPhone",
      "getphone"('P','Mobile',"person"."personid") AS "Mobile","getphone"('P','E-mail',"person"."personid") AS "Email",
      "person"."addr1","person"."addr2","person"."addr3","person"."town","person"."county","person"."country","person"."postcode"
      FROM "person" WHERE "person"."personid" = "pPersonID"
  END IF
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetOwnerCandidateProfileEdit" IS 
{CREATE PROCEDURE pears."NetOwnerCandidateProfileEdit"( IN "pWebUserID" CHAR(20),IN "pPersonID" CHAR(20) ) 
RESULT( "PersonID" CHAR(20),"Forenames" CHAR(50),"Surname" CHAR(50),"Gender" CHAR(1),"DOB" DATE,"HomePhone" CHAR(250),"DayPhone" CHAR(250),"Mobile" CHAR(250),"Email" CHAR(250),"Addr1" CHAR(50),"Addr2" CHAR(50),"Addr3" CHAR(50),"Town" CHAR(50),"County" CHAR(50),"Country" CHAR(50),"Postcode" CHAR(50) ) 
BEGIN
  IF((SELECT "count"() FROM "person" WHERE "person"."personid" = "pPersonID") = 0) THEN
    SELECT '','','','',NULL,'','','','','','','','','','',''
  ELSE
    SELECT FIRST "person"."personid","person"."forenames","person"."surname","person"."sex","person"."dob",
      "getphone"('P','Home Telephone',"person"."personid") AS "HomePhone","getphone"('P','Day Telephone',"person"."personid") AS "DayPhone",
      "getphone"('P','Mobile',"person"."personid") AS "Mobile","getphone"('P','E-mail',"person"."personid") AS "Email",
      "person"."addr1","person"."addr2","person"."addr3","person"."town","person"."county","person"."country","person"."postcode"
      FROM "person" WHERE "person"."personid" = "pPersonID"
  END IF
END
}