pears.AddPhone

CREATE PROCEDURE "pears"."AddPhone"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "cpe" CHAR(2),IN "ptype" CHAR(25),IN "recid" CHAR(20),IN "snumber" CHAR(200) ) 
BEGIN
  DECLARE "tpid" CHAR(20);
  DECLARE "sid" CHAR(20);
  IF "trim"("isnull"("ptype",'')) = '' THEN
    RETURN
  END IF;
  IF "trim"("isnull"("recid",'')) = '' THEN
    RETURN
  END IF;
  IF "trim"("isnull"("snumber",'')) = '' THEN
    RETURN
  END IF;
  IF "cpe" = 'E' THEN
    SET "cpe" = 'CP'
  END IF;
  SET "tpid" = NULL;
  IF "cpe" = 'C' THEN
    SELECT "phonetypeid" INTO "tpid" FROM "phonetype" WHERE "name" = "ptype" AND "company" = 1
  ELSE IF "cpe" = 'P' THEN
      SELECT "phonetypeid" INTO "tpid" FROM "phonetype" WHERE "name" = "ptype" AND "applicant" = 1
    ELSE IF "cpe" = 'CP' THEN
        SELECT "phonetypeid" INTO "tpid" FROM "phonetype" WHERE "name" = "ptype" AND "contact" = 1
      END IF
    END IF END IF;
  IF "tpid" IS NULL THEN
    RETURN
  END IF;
  SET "sid" = "uniquekey"('x');
  INSERT INTO "phone"( "phoneid","phonetypeid","who","whoid","number" ) VALUES( "sid","tpid","cpe","recid","snumber" ) 
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."AddPhone" IS 
{CREATE PROCEDURE AddPhone 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN cpe CHAR(2),IN ptype CHAR(25),IN recid CHAR(20),IN snumber CHAR(200))
BEGIN
  DECLARE tpid CHAR(20);
  DECLARE sid CHAR(20);
  IF TRIM(isnull(ptype,'')) = '' THEN
    RETURN
  END IF;
  IF TRIM(isnull(recid,'')) = '' THEN
    RETURN
  END IF;
  IF TRIM(isnull(snumber,'')) = '' THEN
    RETURN
  END IF;
  IF cpe = 'E' THEN
    SET cpe='CP'
  END IF;
  SET tpid=NULL;
  IF cpe = 'C' THEN
    SELECT phonetypeid INTO tpid FROM phonetype WHERE name = ptype AND company = 1
  ELSE IF cpe = 'P' THEN
      SELECT phonetypeid INTO tpid FROM phonetype WHERE name = ptype AND applicant = 1
    ELSE IF cpe = 'CP' THEN
        SELECT phonetypeid INTO tpid FROM phonetype WHERE name = ptype AND contact = 1
      END IF
    END IF
  END IF;
  IF tpid IS NULL THEN
    RETURN
  END IF;
  SET sid=uniquekey('x');
  INSERT INTO phone(phoneid,phonetypeid,who,whoid,NUMBER) VALUES(sid,tpid,cpe,recid,snumber)
END
}