pears.iqacCreateAccount

CREATE PROCEDURE "pears"."iqacCreateAccount"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "pLedgerID" CHAR(12),IN "pAccountCode" CHAR(12),IN "pName" CHAR(50),OUT "oResult" CHAR(250) ) 
BEGIN
  IF("isnull"("pledgerid",'') = '') OR("isnull"("paccountcode",'') = '') OR("isnull"("pname",'') = '') THEN
    SET "oresult" = '99:~Missing input';
    RETURN
  END IF;
  IF EXISTS(SELECT "ledgerid","accountcode" FROM "iqacaccount" WHERE "ledgerid" = "pledgerid" AND "accountcode" = "paccountcode") THEN
    SET "oresult" = '0:~Already exists';
    RETURN
  END IF;
  INSERT INTO "iqacaccount"( "AccountCode","LedgerID","Name" ) VALUES( "paccountcode","pLedgerID","pname" ) ;
  IF @@rowcount = 0 THEN
    SET "oresult" = '1:~Insert failed';
    RETURN
  END IF;
  SET "oresult" = '0:~Success'
exception
  WHEN others THEN
    resignal
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."iqacCreateAccount" IS 
{CREATE PROCEDURE iqacCreateAccount 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN pLedgerID CHAR(12),IN pAccountCode CHAR(12),IN pName CHAR(50),OUT oResult CHAR(250))
BEGIN
  IF(isnull(pledgerid,'') = '') OR(isnull(paccountcode,'') = '') OR(isnull(pname,'') = '') THEN
    SET oresult='99:~Missing input';
    RETURN
  END IF;
  IF EXISTS(SELECT ledgerid,accountcode FROM iqacaccount WHERE ledgerid = pledgerid AND accountcode = paccountcode) THEN
    SET oresult='0:~Already exists';
    RETURN
  END IF;
  INSERT INTO iqacaccount( AccountCode,LedgerID,Name) VALUES( paccountcode,pLedgerID,pname) ;
  IF @@rowcount = 0 THEN
    SET oresult='1:~Insert failed';
    RETURN
  END IF;
  SET oresult='0:~Success'
exception
  WHEN others THEN
    resignal
END
}