USP_DATAFORMTEMPLATE_ADD_PDACCOUNTCODEMAPTICKETORDER2

The save procedure used by the add dataform template "Map Ticketing Order 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	Revenue types
@SUBTYPEONE	xml	IN	Resource categories
@DEBITGLACCOUNTID	uniqueidentifier	IN	Account
@DEBITPDACCOUNTSEGMENTVALUEID	uniqueidentifier	IN	Account code
@CREDITGLACCOUNTID	uniqueidentifier	IN	Account
@CREDITPDACCOUNTSEGMENTVALUEID	uniqueidentifier	IN	Account code
@PDACCOUNTSYSTEMID	uniqueidentifier	IN
@SUBTYPETWO	xml	IN	Programs
@SUBTYPETHREE	xml	IN	Fees
@SUBTYPEFOUR	xml	IN	Taxes
@SUBTYPEFIVE	xml	IN	Facilities
@SUBTYPESIX	xml	IN	Merchandise departments
Definition

Copy

CREATE procedure dbo.USP_DATAFORMTEMPLATE_ADD_PDACCOUNTCODEMAPTICKETORDER2
(
    @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,
    @SUBTYPETHREE xml = null,
    @SUBTYPEFOUR xml = null,
    @SUBTYPEFIVE xml = null,
    @SUBTYPESIX 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 @CURRENTDATE datetime
    set @CURRENTDATE = getdate()
    declare @PDACCOUNTCODEMAPOFFICEID uniqueidentifier
    set @PDACCOUNTCODEMAPOFFICEID = '71F4373E-C817-448B-853C-9E48CE6B6F56'
    set @PDACCOUNTSYSTEMID = @SYSTEMID
    declare @OFFICEID int
    set @OFFICEID = 1

    declare @REVENUETYPESTABLE table (NAMEID int);
    insert into @REVENUETYPESTABLE (NAMEID)
    select NameID from dbo.UFN_PDACCOUNTCODEMAPPING_REVENUETYPES_FROMITEMLISTXML(@REVENUETYPES);

    begin try        
        -- for OFFICEID = 1, APPLICATIONTYPE = REVENUETYPE
        -- so just store 1, since mapping is always based on revenue type for OFFICEID 1
        insert into dbo.PDACCOUNTCODEMAPPING
            (ID, REVENUETYPE, APPLICATIONTYPE,PAYMENTMETHOD,PDACCOUNTCODEMAPOFFICEID,OFFICEID, DEBITGLACCOUNTID, DEBITPDACCOUNTSEGMENTVALUEID, CREDITGLACCOUNTID, CREDITPDACCOUNTSEGMENTVALUEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED, PDACCOUNTSYSTEMID)
            values
            (@ID, (select sum(NAMEID) from @REVENUETYPESTABLE), 1, 0,@PDACCOUNTCODEMAPOFFICEID, @OFFICEID, @DEBITGLACCOUNTID, @DEBITPDACCOUNTSEGMENTVALUEID, @CREDITGLACCOUNTID, @CREDITPDACCOUNTSEGMENTVALUEID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE, @SYSTEMID)

        if (exists (select 1 from @REVENUETYPESTABLE where NAMEID = 16))  -- Supply/Equipment resource
        begin
            if @SUBTYPEONE is null or exists (select * from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPEONE_FROMITEMLISTXML(@SUBTYPEONE) where SUBTYPEONEID = '99999999-9999-9999-9999-999999999999') 
                insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                values (7, @ID, '99999999-9999-9999-9999-999999999999', @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE);
            else
                insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                select 7, @ID, SUBTYPEONEID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPEONE_FROMITEMLISTXML(@SUBTYPEONE);
        end

        if exists (select 1 from @REVENUETYPESTABLE where NAMEID = 1)  -- Admissions
        begin
            if @SUBTYPETWO is null or exists (select 1 from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPETWO_FROMITEMLISTXML(@SUBTYPETWO) where SUBTYPETWOID = '99999999-9999-9999-9999-999999999999')
                insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                values (10, @ID, '99999999-9999-9999-9999-999999999999', @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE);
            else
                insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                select 10, @ID, SUBTYPETWOID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPETWO_FROMITEMLISTXML(@SUBTYPETWO);
        end

        if exists (select 1 from @REVENUETYPESTABLE where NAMEID = 2)  -- Fee
        begin
            if @SUBTYPETHREE is null or exists (select 1 from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPETHREE_FROMITEMLISTXML(@SUBTYPETHREE) where SUBTYPETHREEID = '99999999-9999-9999-9999-999999999999')
                insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                values (11, @ID, '99999999-9999-9999-9999-999999999999', @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE);
            else
                insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                select 11, @ID, SUBTYPETHREEID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPETHREE_FROMITEMLISTXML(@SUBTYPETHREE);
        end

        if exists (select 1 from @REVENUETYPESTABLE where NAMEID = 4)  -- Taxes
        begin
            if @SUBTYPEFOUR is null or exists (select 1 from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPEFOUR_FROMITEMLISTXML(@SUBTYPEFOUR) where SUBTYPEFOURID = '99999999-9999-9999-9999-999999999999')
                insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                values (12, @ID, '99999999-9999-9999-9999-999999999999', @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE);
            else
                insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                select 12, @ID, SUBTYPEFOURID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPEFOUR_FROMITEMLISTXML(@SUBTYPEFOUR);
        end

        if exists (select 1 from @REVENUETYPESTABLE where NAMEID = 1024)  -- Facility
        begin
            if @SUBTYPEFIVE is null or exists (select 1 from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPEFIVE_FROMITEMLISTXML(@SUBTYPEFIVE) where SUBTYPEFIVEID = '99999999-9999-9999-9999-999999999999')
                insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                values (13, @ID, '99999999-9999-9999-9999-999999999999', @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE);
            else
                insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                select 13, @ID, SUBTYPEFIVEID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPEFIVE_FROMITEMLISTXML(@SUBTYPEFIVE);
        end

        if exists (select 1 from @REVENUETYPESTABLE where NAMEID = 2048)  -- Merchandise
        begin
            if @SUBTYPESIX is null or exists (select 1 from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPESIX_FROMITEMLISTXML(@SUBTYPESIX) where SUBTYPESIXID = '99999999-9999-9999-9999-999999999999')
                insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                values (14, @ID, '99999999-9999-9999-9999-999999999999', @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE);
            else
                insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                select 14, @ID, SUBTYPESIXID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPESIX_FROMITEMLISTXML(@SUBTYPESIX);
        end
    end try

    begin catch
        exec dbo.USP_RAISE_ERROR
        return 1
    end catch

    return 0;