Create Sage account

IF EXISTS ( SELECT  * FROM  sys.objects WHERE   object_id = OBJECT_ID(N'_as_AddUpdateGL_SCOA') AND type IN ( N'P', N'PC' ) ) 
DROP PROCEDURE _as_AddUpdateGL_SCOA


SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Create date: 07-12-2014
-- Description:	Simpler version to add or update GL accounts.
-- NOTE: NO SUB ACCOUNTS IMPLEMENTED YET!
-- =============================================
CREATE PROCEDURE _as_AddUpdateGL_SCOA
	-- Add the parameters for the stored procedure here
	  @GLCode varchar(50)
	, @GLDescription varchar(100)
	, @AccountTypeDesc varchar(100)
	, @RepCatCode varchar(50)
	, @iAllowPurchases bit
	, @iAllowSales bit
	, @Segment0Code varchar(50)
	, @Segment1Code	varchar(50)
	, @Segment2Code	varchar(50)
	, @Segment3Code	varchar(50)
	, @Segment4Code	varchar(50)
	, @Segment5Code	varchar(50)
	, @Segment6Code	varchar(50)

AS
BEGIN
	-- SET NOCOUNT ON added to prevent extra result sets from
	-- interfering with SELECT statements.
	SET NOCOUNT ON;
	--DECLARES:
	DECLARE @RC int
	DECLARE @GLAccountID int
	DECLARE @AccountLevel int
	DECLARE @AccountType int
	DECLARE @iReportCategoryID int

	--SETTING VARIABLES:
	SELECT @AccountType = (SELECT idGLAccountType FROM _etblGLAccountTypes WHERE cAccountTypeDescription = @AccountTypeDesc)
	SELECT @GLAccountID = COALESCE((SELECT AccountLink FROM Accounts WHERE Master_Sub_Account = @GLCode),0)
	SELECT @AccountLevel = COALESCE((SELECT AccountLevel FROM Accounts WHERE Master_Sub_Account = @GLCode),0)
	SELECT @iReportCategoryID = COALESCE((SELECT idReportCategory from _etblGLReportCategory WHERE cCode = @RepCatCode),0)


	DECLARE @iGLSegment0ID int
	DECLARE @iGLSegment1ID int
	DECLARE @iGLSegment2ID int
	DECLARE @iGLSegment3ID int
	DECLARE @iGLSegment4ID int
	DECLARE @iGLSegment5ID int
	DECLARE @iGLSegment6ID int
	Select @iGLSegment0ID = idSegment from  _etblGLSegment where cCode =@Segment0Code 
	Select @iGLSegment1ID = idSegment from  _etblGLSegment where cCode =@Segment1Code 
	Select @iGLSegment2ID = idSegment from  _etblGLSegment where cCode =@Segment2Code 
	Select @iGLSegment3ID = idSegment from  _etblGLSegment where cCode =@Segment3Code 
	Select @iGLSegment4ID = idSegment from  _etblGLSegment where cCode =@Segment4Code 
	Select @iGLSegment5ID = idSegment from  _etblGLSegment where cCode =@Segment5Code
	Select @iGLSegment6ID = idSegment from  _etblGLSegment where cCode =@Segment6Code 


--ADD / UPDATE GL ACCOUNT:
EXECUTE @RC = [dbo].[_bspAddUpdateGLAccount] 
   @GLAccountID
  ,0 --@iBranchID
  ,@GLCode
  ,@AccountLevel
  ,@GLCode
  ,0 --@SubAccOfLink
  ,0 --@Dept
  ,0 --@Brch
  ,@AccountType
  ,1 --@AllowJr
  ,@GLDescription
  ,'' --@CaseAcc
  ,1 --@Active
  ,'' --@NextChequeNum
  ,@iReportCategoryID
  ,@iGLSegment0ID
  ,@iGLSegment1ID
  ,@iGLSegment2ID
  ,@iGLSegment3ID
  ,@iGLSegment4ID
  ,@iGLSegment5ID
  ,@iGLSegment6ID
  ,0 --@iGLSegment7ID
  ,0 --@iGLSegment8ID
  ,0 --@iGLSegment9ID
  ,@GLDescription
  ,0 --@INVTaxTypeID
  ,0 --@CRNTaxTypeID
  ,0 --@GRVTaxTypeID
  ,0 --@RTSTaxTypeID
  ,@iAllowSales
  ,@iAllowPurchases
  ,0 --@OldSubAccOfLink
  ,0 --@MBReportingCategoryID
  ,0 --@MBCashFlowCategoryID
  ,0 --@MBIsAsset
  ,0 --@MBIsGrant
  ,0 --@MBAssetClassificationID
  ,0 --@MBAssetCategoryID
  ,0 --@MBAssetTypeID
  ,0 --@MBGrantLevel1TypeID
  ,0 --@MBGrantLevel2TypeID
  ,0 --@MBGrantLevel3TypeID
  ,0 --@IsBranchLoanAccount
  ,0 --@IsForBankCurAcc
  ,0 --@ForBankCurID
  ,0 --@ForeignPEXAccID
  ,0 --@ForeignLEXAccID
  ,0 --@RevalueWithSellingRate
  ,0 --@IncludeInPaymentsBasedTax
  ,'' --@BankName
  ,'' --@BankAccountName
  ,'' --@BankCode
  ,'' --@AccountNumber
  ,'' --@BranchName
  ,'' --@BranchNumber
  ,'' --@BankRefNumber

END