USP_DATAFORMTEMPLATE_ADD_PDACCOUNTCODEMAPDEVELOPMENTPLEDGES2

The save procedure used by the add dataform template "Map Development Pledges Add Form 2".

Parameters

Parameter	Parameter Type	Mode	Description
@SYSTEMID	uniqueidentifier	IN	Input parameter indicating the context ID for the record being added.
@ID	uniqueidentifier	INOUT	The output parameter indicating the ID of the record added.
@CHANGEAGENTID	uniqueidentifier	IN	Input parameter indicating the ID of the change agent invoking the procedure.
@REVENUETYPES	xml	IN	Transaction types
@SUBTYPEONE	xml	IN	Pledge subtypes
@DEBITGLACCOUNTID	uniqueidentifier	IN	Account
@DEBITPDACCOUNTSEGMENTVALUEID	uniqueidentifier	IN	Account code
@CREDITGLACCOUNTID	uniqueidentifier	IN	Account
@CREDITPDACCOUNTSEGMENTVALUEID	uniqueidentifier	IN	Account code
@PDACCOUNTSYSTEMID	uniqueidentifier	IN
@SUBTYPETWO	xml	IN

Definition

Copy


CREATE procedure dbo.USP_DATAFORMTEMPLATE_ADD_PDACCOUNTCODEMAPDEVELOPMENTPLEDGES2
(
    @SYSTEMID uniqueidentifier,
    @ID uniqueidentifier = null output,
    @CHANGEAGENTID uniqueidentifier = null,
    @REVENUETYPES xml = null,
    @SUBTYPEONE xml = null,
    @DEBITGLACCOUNTID uniqueidentifier = null,
    @DEBITPDACCOUNTSEGMENTVALUEID uniqueidentifier = null,
    @CREDITGLACCOUNTID uniqueidentifier = null,
    @CREDITPDACCOUNTSEGMENTVALUEID uniqueidentifier = null,
    @PDACCOUNTSYSTEMID uniqueidentifier = null,
  @SUBTYPETWO xml = null
)
        as

        set nocount on;

        if @ID is null
            set @ID = newid()

        if @CHANGEAGENTID is null  
            exec dbo.USP_CHANGEAGENT_GETORCREATECHANGEAGENT @CHANGEAGENTID output

    declare @ALLCODES uniqueidentifier = '99999999-9999-9999-9999-999999999999'
        declare @CURRENTDATE datetime
        set @CURRENTDATE = getdate()
        declare @PDACCOUNTCODEMAPOFFICEID uniqueidentifier
        set @PDACCOUNTCODEMAPOFFICEID = '4C565937-8A30-42D0-A0FC-64D269DBC898'
        set @PDACCOUNTSYSTEMID = @SYSTEMID
        declare @OFFICEID int

    declare @REVTYPEMASK integer
    select @REVTYPEMASK=sum(NAMEID) from dbo.UFN_PDACCOUNTCODEMAPPING_REVENUETYPES_FROMITEMLISTXML(@REVENUETYPES)

        set @OFFICEID = 4
        begin try
            begin tran
                insert into dbo.PDACCOUNTCODEMAPPING
                    (ID, REVENUETYPE, PDACCOUNTCODEMAPOFFICEID, OFFICEID, DEBITGLACCOUNTID, DEBITPDACCOUNTSEGMENTVALUEID, CREDITGLACCOUNTID, CREDITPDACCOUNTSEGMENTVALUEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED,PDACCOUNTSYSTEMID)
                values
                    (@ID, @REVTYPEMASK, @PDACCOUNTCODEMAPOFFICEID, @OFFICEID, @DEBITGLACCOUNTID, @DEBITPDACCOUNTSEGMENTVALUEID, @CREDITGLACCOUNTID, @CREDITPDACCOUNTSEGMENTVALUEID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE, @SYSTEMID)

      if (@REVTYPEMASK & 11)<>0
                if not exists (select * from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPEONE_FROMITEMLISTXML(@SUBTYPEONE) where SUBTYPEONEID = @ALLCODES) 
                    insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                    select 5, @ID, SUBTYPEONEID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPEONE_FROMITEMLISTXML(@SUBTYPEONE)
                else
                    insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                    values (5, @ID, @ALLCODES, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE)

      if (@REVTYPEMASK & 4)=4
                if (@SUBTYPETWO is null) or (not exists (select * from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPETWO_FROMITEMLISTXML(@SUBTYPETWO) where SUBTYPETWOID = @ALLCODES))
                    insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                    select 15, @ID, SUBTYPETWOID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPETWO_FROMITEMLISTXML(@SUBTYPETWO)
                else
                    insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                    values (15, @ID, @ALLCODES, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE)

            commit

        end try

        begin catch
            exec dbo.USP_RAISE_ERROR
            return 1
        end catch

        return 0