pears.iqacCreateNominal

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

CREATE PROCEDURE "pears"."iqacCreateNominal"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "pNominalCode" CHAR(12),IN "pNominalType" CHAR(1),IN "pName" CHAR(50),IN "pNominalGroup" CHAR(12),IN "pLedgerRelationship" CHAR(30),IN "pLedgerID" CHAR(12),IN "pAccountCode" CHAR(12),OUT "oResult" CHAR(250) ) 
BEGIN
  IF("isnull"("pNominalCode",'') = '') THEN
    SET "oResult" = '99:~Missing input';
    RETURN
  END IF;
  IF EXISTS(SELECT "NominalCode" FROM "iqacnominal" WHERE "NominalCode" = "pNominalCode") THEN
    -- dont care about ledger 
    SET "oResult" = '0:~Already exists';
    RETURN
  END IF;
  INSERT INTO "iqacnominal"( "NominalCode","NominalType","Name","NominalGroup","LedgerRelationship","LedgerID","AccountCode" ) VALUES( "pNominalCode","pNominalType","pName","pNominalGroup","pLedgerRelationship","pLedgerID","pAccountCode" ) ;
  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"."iqacCreateNominal" IS 
{CREATE PROCEDURE iqacCreateNominal 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN pNominalCode CHAR(12),IN pNominalType CHAR(1),IN pName CHAR(50),IN pNominalGroup CHAR(12),IN pLedgerRelationship CHAR(30),IN pLedgerID CHAR(12),IN pAccountCode CHAR(12),OUT oResult CHAR(250))
BEGIN
  IF(isnull(pNominalCode,'') = '') THEN
    SET oResult='99:~Missing input';
    RETURN
  END IF;
  IF EXISTS(SELECT NominalCode FROM iqacnominal WHERE NominalCode = pNominalCode) THEN
  -- dont care about ledger 
    SET oResult='0:~Already exists';
    RETURN
  END IF;
  INSERT INTO iqacnominal( NominalCode,NominalType,Name,NominalGroup,LedgerRelationship,LedgerID,AccountCode) VALUES( pNominalCode,pNominalType,pName,pNominalGroup,pLedgerRelationship,pLedgerID,pAccountCode) ;
  IF @@rowcount = 0 THEN
    SET oResult='1:~Insert failed';
    RETURN
  END IF;
  SET oResult='0:~Success'
exception
  WHEN others THEN
    resignal
END
}