USP_DATAFORMTEMPLATE_VIEW_APPLICATIONRULES

The load procedure used by the view dataform template "Application Rules View Data Form"

Parameters

Parameter	Parameter Type	Mode	Description
@DATALOADED	bit	INOUT	Output parameter indicating whether or not data was actually loaded.
@ACCOUNTINGMETHODCODE	tinyint	INOUT	Accounting Method Code
@PAYMENT	bit	INOUT	A payment
@CREDIT	bit	INOUT	A credit
@CHARGE	bit	INOUT	A charge

Definition

Copy



            CREATE procedure dbo.USP_DATAFORMTEMPLATE_VIEW_APPLICATIONRULES
            (
                @DATALOADED bit = 0 output,
                @ACCOUNTINGMETHODCODE tinyint = null output,
                @PAYMENT bit = null output,
                @CREDIT bit = null output,
                @CHARGE bit = null output
            )
            as
                set nocount on;

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

                set @DATALOADED = 0;

        -- an application rule record must always exist if there is't one we create it here

        if (not exists (select ID from dbo.APPLICATIONRULES))
        begin
          declare @CHANGEAGENTID uniqueidentifier;
                    exec dbo.USP_CHANGEAGENT_GETORCREATECHANGEAGENT @CHANGEAGENTID output;

                    declare @CHANGEDATE datetime;
                    set @CHANGEDATE = GETDATE();

                    insert into dbo.APPLICATIONRULES
                        (ID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                    values
                        (NEWID(), @CHANGEAGENTID, @CHANGEAGENTID, @CHANGEDATE, @CHANGEDATE);                    
        end

           -- 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.

        select @DATALOADED = 1,
             @ACCOUNTINGMETHODCODE = ACCOUNTINGMETHODCODE,
             @PAYMENT = PAYMENT,
             @CREDIT = CREDIT,
             @CHARGE = CHARGE
        from dbo.APPLICATIONRULES

                return 0;