USP_DATAFORMTEMPLATE_EDITLOAD_PDACCOUNTCODEMAPTREASURYPAYMENT

The load procedure used by the edit dataform template "Map Treasury 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.
@PAYMENTMETHODS	xml	INOUT	Payment method
@SUBTYPEONE	xml	INOUT	Credit card subtypes
@SUBTYPETWO	xml	INOUT	Other subtypes
@OFFICEID	int	INOUT	Office ID
@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_PDACCOUNTCODEMAPTREASURYPAYMENT(
    @ID uniqueidentifier,
    @DATALOADED bit = 0 output,
    @TSLONG bigint = 0 output,
    @PAYMENTMETHODS  xml = null output,
    @SUBTYPEONE xml = null output,
    @SUBTYPETWO 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;

    set @DATALOADED = 0
    set @TSLONG = 0

    select
        @DATALOADED = 1,
        @TSLONG = TSLONG,
        @PAYMENTMETHODS = dbo.UFN_PDACCOUNTCODEMAPPING_PAYMENTMETHODS_TOITEMLISTXML(@ID),
        @SUBTYPEONE = isnull(dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPEONE_TOITEMLISTXML(@ID, 2),(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, 4),(select '99999999-9999-9999-9999-999999999999' as SUBTYPETWOID for xml raw('ITEM'), type, elements, root('SUBTYPETWO'), BINARY BASE64 )),
        @OFFICEID = OFFICEID,
        @DEBITGLACCOUNTID = DEBITGLACCOUNTID,
        @DEBITPDACCOUNTSEGMENTVALUEID = DEBITPDACCOUNTSEGMENTVALUEID,
        @CREDITGLACCOUNTID = CREDITGLACCOUNTID,
        @CREDITPDACCOUNTSEGMENTVALUEID = CREDITPDACCOUNTSEGMENTVALUEID        
    from dbo.PDACCOUNTCODEMAPPING
    where ID = @ID

    return 0;