USP_DATAFORMTEMPLATE_ADD_PROJECT

The save procedure used by the add dataform template "Project Add Form".

Parameters

Parameter	Parameter Type	Mode	Description
@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.
@SHORTID	nvarchar(100)	IN	ID
@DESCRIPTION	nvarchar(60)	IN	Description
@TYPECODEID	uniqueidentifier	IN	Type
@LOCATIONCODEID	uniqueidentifier	IN	Location
@DIVISIONCODEID	uniqueidentifier	IN	Division
@DEPARTMENTCODEID	uniqueidentifier	IN	Department
@STARTDATE	datetime	IN	Start date
@ENDDATE	datetime	IN	End date

Definition

Copy



CREATE procedure dbo.USP_DATAFORMTEMPLATE_ADD_PROJECT
(
    @ID uniqueidentifier = null output,
    @CHANGEAGENTID uniqueidentifier = null,
    @SHORTID nvarchar(100) = '',
    @DESCRIPTION nvarchar(60) = '',
    @TYPECODEID uniqueidentifier = null,
    @LOCATIONCODEID uniqueidentifier = null,
    @DIVISIONCODEID uniqueidentifier = null,
    @DEPARTMENTCODEID uniqueidentifier = null,
    @STARTDATE datetime = null,
    @ENDDATE datetime = null
)
as

set nocount on;

declare @PDACCOUNTSYSTEMID uniqueidentifier
set @PDACCOUNTSYSTEMID = '4B121C2C-CCE6-440D-894C-EA0DEF80D50B'

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 @GLACCOUNTSTRUCTUREID uniqueidentifier
select @GLACCOUNTSTRUCTUREID = ID from dbo.PDACCOUNTSTRUCTURE WHERE ELEMENTDEFINITIONCODE = 7 and PDACCOUNTSYSTEMID = @PDACCOUNTSYSTEMID and ISBASICGL = 0

begin try

    --Populate the accounting element table first for common fields

  exec dbo.USP_DATAELEMENT_ADD @ID output, @SHORTID, @DESCRIPTION, 7,0,null,null,0,null,null, @GLACCOUNTSTRUCTUREID, @CHANGEAGENTID

    -- handle inserting the data

    insert into dbo.PROJECT
        (ID, PROJECTTYPECODEID,PROJECTLOCATIONCODEID,PROJECTDIVISIONCODEID,PROJECTDEPARTMENTCODEID,STARTDATE,ENDDATE, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
    values
        (@ID, @TYPECODEID, @LOCATIONCODEID, @DIVISIONCODEID, @DEPARTMENTCODEID,@STARTDATE,@ENDDATE, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE)

end try

begin catch
    exec dbo.USP_RAISE_ERROR
    return 1
end catch

return 0