pears.psHealthUpdatePhone

Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
Original SQL

CREATE PROCEDURE "pears"."psHealthUpdatePhone"( IN "PID" CHAR(20),IN "typeid" CHAR(20),IN "num" CHAR(100) ) 
BEGIN
  -- check email, prim or sec
  IF "typeid" = (SELECT FIRST "phonetypeid" FROM "phonetype" WHERE "name" = 'E-Mail' AND "applicant" = 1) THEN
    UPDATE "psHealthPerson" SET "transferbatch" = 0,"email" = "num" WHERE "personid" = "Pid"
  ELSEIF "typeid" = (SELECT FIRST "phonetypeid" FROM "phonetype" WHERE "name" = 'Mobile' AND "applicant" = 1) THEN
    UPDATE "psHealthPerson" SET "transferbatch" = 0,"primarytelephone" = "num" WHERE "personid" = "Pid"
  ELSEIF "typeid" = (SELECT FIRST "phonetypeid" FROM "phonetype" WHERE "name" = 'Home Telephone' AND "applicant" = 1) THEN
    UPDATE "psHealthPerson" SET "transferbatch" = 0,"secondarytelephone" = "num" WHERE "personid" = "Pid"
  END IF
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."psHealthUpdatePhone" IS 
{CREATE PROCEDURE pears."psHealthUpdatePhone"( IN PID CHAR(20), IN typeid CHAR(20), IN num CHAR(100)) 
BEGIN
  -- check email, prim or sec
  IF "typeid" = (SELECT FIRST "phonetypeid" FROM "phonetype" WHERE "name" = 'E-Mail' AND "applicant" = 1) THEN
    UPDATE "psHealthPerson" SET "transferbatch" = 0,"email" = "num" WHERE "personid" = "Pid"
  ELSEIF "typeid" = (SELECT FIRST "phonetypeid" FROM "phonetype" WHERE "name" = 'Mobile' AND "applicant" = 1) THEN
    UPDATE "psHealthPerson" SET "transferbatch" = 0,"primarytelephone" = "num" WHERE "personid" = "Pid"
  ELSEIF "typeid" = (SELECT FIRST "phonetypeid" FROM "phonetype" WHERE "name" = 'Home Telephone' AND "applicant" = 1) THEN
    UPDATE "psHealthPerson" SET "transferbatch" = 0,"secondarytelephone" = "num" WHERE "personid" = "Pid"
  END IF
END
}