pears.IQXNetSetPhones

CREATE PROCEDURE "pears"."IQXNetSetPhones"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "pWebUserID" CHAR(20),IN "cpe" CHAR(2),IN "ptype" CHAR(25),IN "snumber" CHAR(250) ) 
BEGIN -- For phones for web logins which link to multiple company employments
  FOR "emploop" AS "empcur" no scroll cursor FOR
    SELECT "employmentid","personid" FROM "iqxnetuserlink" WHERE "iqxnetuserid" = "pWebUserID" FOR READ ONLY do
    IF "cpe" = 'P' AND "personid" IS NOT NULL THEN
      CALL "SetPhone"("cpe","ptype","personid","snumber")
    ELSE IF "employmentid" IS NOT NULL THEN
        CALL "SetPhone"("cpe","ptype","employmentid","snumber")
      END IF
    END IF
  END FOR
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."IQXNetSetPhones" IS 
{CREATE PROCEDURE IQXNetSetPhones 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN pWebUserID CHAR(20),IN cpe CHAR(2),IN ptype CHAR(25),IN snumber CHAR(250))
BEGIN -- For phones for web logins which link to multiple company employments
  FOR emploop AS empcur no scroll cursor FOR
    SELECT employmentid,personid FROM iqxnetuserlink WHERE iqxnetuserid = pWebUserID FOR READ ONLY do
    IF cpe = 'P' AND personid IS NOT NULL THEN
      CALL SetPhone(cpe,ptype,personid,snumber)
    ELSE IF employmentid IS NOT NULL THEN
        CALL SetPhone(cpe,ptype,employmentid,snumber)
      END IF
    END IF END FOR
END
}