USP_DATAFORMTEMPLATE_EDITLOAD_PDACCOUNTCODEMAPDEVELOPMENTPAYMENT

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

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	Revenue types
@APPLICATIONTYPES	xml	INOUT	Application types
@PAYMENTMETHODS	xml	INOUT	Payment types
@SUBTYPEONE	xml	INOUT	Gift-in-kind subtypes
@SUBTYPETWO	xml	INOUT	Credit card subtypes
@SUBTYPETHREE	xml	INOUT	Property subtypes
@SUBTYPEFOUR	xml	INOUT	Other subtypes
@DEBITGLACCOUNTID	uniqueidentifier	INOUT	Account
@DEBITPDACCOUNTSEGMENTVALUEID	uniqueidentifier	INOUT	Account code
@CREDITGLACCOUNTID	uniqueidentifier	INOUT	Account
@CREDITPDACCOUNTSEGMENTVALUEID	uniqueidentifier	INOUT	Account code

Definition

Copy



CREATE procedure dbo.USP_DATAFORMTEMPLATE_EDITLOAD_PDACCOUNTCODEMAPDEVELOPMENTPAYMENT(
    @ID uniqueidentifier,
    @DATALOADED bit = 0 output,
    @TSLONG bigint = 0 output,
    @REVENUETYPES  xml = null output,
    @APPLICATIONTYPES  xml = null output,
    @PAYMENTMETHODS  xml = null output,
    @SUBTYPEONE xml = null output,
    @SUBTYPETWO xml = null output,
    @SUBTYPETHREE xml = null output,
    @SUBTYPEFOUR xml = null output,
    --@OFFICEID int = null output,

    @DEBITGLACCOUNTID uniqueidentifier = null output,
    @DEBITPDACCOUNTSEGMENTVALUEID uniqueidentifier = null output,
    @CREDITGLACCOUNTID uniqueidentifier = null output,
    @CREDITPDACCOUNTSEGMENTVALUEID uniqueidentifier = null output

)
as

    set nocount on;

    -- be sure to set these, in case the select returns no rows

    set @DATALOADED = 0
    set @TSLONG = 0

    -- populate the output parameters, which correspond to fields on the form.  Note that

    -- we set @DATALOADED = 1 to indicate that the load was successful.  Otherwise, the system

    -- will display a "no data loaded" message.  Also note that we fetch the TSLONG so that concurrency

    -- can be considered.

    select
        @DATALOADED = 1,
        @TSLONG = TSLONG,
        @REVENUETYPES = dbo.UFN_PDACCOUNTCODEMAPPING_REVENUETYPES_TOITEMLISTXML(@ID),
        @APPLICATIONTYPES = dbo.UFN_PDACCOUNTCODEMAPPING_APPLICATIONTYPES_TOITEMLISTXML(@ID),
        @PAYMENTMETHODS = dbo.UFN_PDACCOUNTCODEMAPPING_PAYMENTMETHODS_TOITEMLISTXML(@ID),
        @SUBTYPEONE = isnull(dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPEONE_TOITEMLISTXML(@ID, 1),(select '99999999-9999-9999-9999-999999999999' as SUBTYPEONEID for xml raw('ITEM'), type, elements, root('SUBTYPEONE'), BINARY BASE64 )),
        @SUBTYPETWO = isnull(dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPETWO_TOITEMLISTXML(@ID, 2),(select '99999999-9999-9999-9999-999999999999' as SUBTYPETWOID for xml raw('ITEM'), type, elements, root('SUBTYPETWO'), BINARY BASE64 )),
        @SUBTYPETHREE = isnull(dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPETHREE_TOITEMLISTXML(@ID, 3),(select '99999999-9999-9999-9999-999999999999' as SUBTYPETHREEID for xml raw('ITEM'), type, elements, root('SUBTYPETHREE'), BINARY BASE64 )),
        @SUBTYPEFOUR = isnull(dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPEFOUR_TOITEMLISTXML(@ID, 4),(select '99999999-9999-9999-9999-999999999999' as SUBTYPEFOURID for xml raw('ITEM'), type, elements, root('SUBTYPEFOUR'), BINARY BASE64 )),
        --@OFFICEID = OFFICEID,

        @DEBITGLACCOUNTID = DEBITGLACCOUNTID,
        @DEBITPDACCOUNTSEGMENTVALUEID = DEBITPDACCOUNTSEGMENTVALUEID,
        @CREDITGLACCOUNTID = CREDITGLACCOUNTID,
        @CREDITPDACCOUNTSEGMENTVALUEID = CREDITPDACCOUNTSEGMENTVALUEID        
    from dbo.PDACCOUNTCODEMAPPING
    where ID = @ID

    return 0;