USP_DATAFORMTEMPLATE_EDITLOAD_PDACCOUNTCODEMAPDEVELOPMENTPLEDGES2

The load procedure used by the edit dataform template "Map Development Pledges Edit Form 2"

Parameters

Parameter	Parameter Type	Mode	Description
@ID	uniqueidentifier	IN	The input ID parameter used to load the fields defined on the form.
@DATALOADED	bit	INOUT	Output parameter indicating whether or not data was actually loaded.
@TSLONG	bigint	INOUT	Output parameter indicating the TSLONG value of the record being edited. This is used to manage multi-user concurrency issues when multiple users access the same record.
@REVENUETYPES	xml	INOUT	Transaction types
@SUBTYPEONE	xml	INOUT	Pledges
@DEBITGLACCOUNTID	uniqueidentifier	INOUT	Account
@DEBITPDACCOUNTSEGMENTVALUEID	uniqueidentifier	INOUT	Account code
@CREDITGLACCOUNTID	uniqueidentifier	INOUT	Account
@CREDITPDACCOUNTSEGMENTVALUEID	uniqueidentifier	INOUT	Account code
@PDACCOUNTSYSTEMID	uniqueidentifier	INOUT
@SUBTYPETWO	xml	INOUT

Definition

Copy


    CREATE procedure dbo.USP_DATAFORMTEMPLATE_EDITLOAD_PDACCOUNTCODEMAPDEVELOPMENTPLEDGES2(
        @ID uniqueidentifier,
        @DATALOADED bit = 0 output,
        @TSLONG bigint = 0 output,
        @REVENUETYPES  xml = null output,
        @SUBTYPEONE xml = null output,
        @DEBITGLACCOUNTID uniqueidentifier = null output,
        @DEBITPDACCOUNTSEGMENTVALUEID uniqueidentifier = null output,
        @CREDITGLACCOUNTID uniqueidentifier = null output,
        @CREDITPDACCOUNTSEGMENTVALUEID uniqueidentifier = null output,
      @PDACCOUNTSYSTEMID uniqueidentifier = null output,
    @SUBTYPETWO xml = null output
    )
    as

        set nocount on;

        set @DATALOADED = 0
        set @TSLONG = 0

        select
            @DATALOADED = 1,
            @TSLONG = TSLONG,
            @REVENUETYPES = dbo.UFN_PDACCOUNTCODEMAPPING_REVENUETYPES_TOITEMLISTXML(@ID),
            @SUBTYPEONE = case when (REVENUETYPE & 11)<>0 then dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPEONE_TOITEMLISTXML(@ID, 5) else null end,
            @DEBITGLACCOUNTID = DEBITGLACCOUNTID,
            @DEBITPDACCOUNTSEGMENTVALUEID = DEBITPDACCOUNTSEGMENTVALUEID,
            @CREDITGLACCOUNTID = CREDITGLACCOUNTID,
            @CREDITPDACCOUNTSEGMENTVALUEID = CREDITPDACCOUNTSEGMENTVALUEID,        
            @PDACCOUNTSYSTEMID = PDACCOUNTSYSTEMID,
            @SUBTYPETWO = case when (REVENUETYPE & 4)<>0 then dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPETWO_TOITEMLISTXML(@ID, 15)  else null end
        from dbo.PDACCOUNTCODEMAPPING
        where ID = @ID

        return 0;