USP_DATAFORMTEMPLATE_ADD_TRACKITEMDAILYADMISSION

The save procedure used by the add dataform template "Track Item Daily Admission Add Data Form".

Parameters

Parameter	Parameter Type	Mode	Description
@ID	uniqueidentifier	INOUT	The output parameter indicating the ID of the record added.
@TRACKID	uniqueidentifier	IN	Input parameter indicating the context ID for the record being added.
@CHANGEAGENTID	uniqueidentifier	IN	Input parameter indicating the ID of the change agent invoking the procedure.
@PROGRAMID	uniqueidentifier	IN	Program
@STARTDAY	tinyint	IN	Day
@STARTTIME	UDT_HOURMINUTE	IN	Start time
@ENDTIME	UDT_HOURMINUTE	IN	End time
@NOTES	nvarchar(500)	IN	Notes
@RESOURCES	xml	IN	Additional supplies/equipment resources
@STAFFRESOURCES	xml	IN	Staffing resources

Definition

Copy



                    CREATE procedure dbo.USP_DATAFORMTEMPLATE_ADD_TRACKITEMDAILYADMISSION
                    (
                        @ID uniqueidentifier = null output,
                        @TRACKID uniqueidentifier,
                        @CHANGEAGENTID uniqueidentifier = null,
                        @PROGRAMID uniqueidentifier = null,
                        @STARTDAY tinyint = 0,
                        @STARTTIME dbo.UDT_HOURMINUTE = null,
                        @ENDTIME dbo.UDT_HOURMINUTE = null,
                        @NOTES nvarchar(500) = '',
                        @RESOURCES xml = null,
                        @STAFFRESOURCES 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();

                        -- Since daily admission programs are only on one day if the end time is midnight,

                        -- we are assuming the user wants the track item to go to the end of the day

                        if @ENDTIME = '0000'
                            set @ENDTIME = '2359';

                        begin try
                            if dbo.UFN_PROGRAM_ISDAILYADMISSION(@PROGRAMID) = 0
                                raiserror('ERR_PROGRAMIDNOTDAILYADMISSION', 13, 1);

                            insert into dbo.TRACKITEM
                            (
                                ID,
                                TRACKID,
                                NAME,
                                PROGRAMID,
                                STARTDAY,
                                STARTTIME,
                                ENDDAY,
                                ENDTIME,
                                NOTES,
                                TYPECODE,
                                ADDEDBYID,
                                CHANGEDBYID,
                                DATEADDED,
                                DATECHANGED
                            )
                            values
                            (
                                @ID,
                                @TRACKID,
                                dbo.UFN_PROGRAM_GETNAME(@PROGRAMID),
                                @PROGRAMID,
                                @STARTDAY,
                                @STARTTIME,
                                @STARTDAY,
                                @ENDTIME,
                                @NOTES,
                                1,
                                @CHANGEAGENTID,
                                @CHANGEAGENTID,
                                @CURRENTDATE,
                                @CURRENTDATE
                            );

                            exec dbo.USP_TRACKITEMRESOURCE_GETRESOURCES_ADDFROMXML @ID, @RESOURCES, @CHANGEAGENTID;
                            exec dbo.USP_TRACKITEM_GETSTAFFRESOURCES_ADDFROMXML @ID, @STAFFRESOURCES, @CHANGEAGENTID;
                        end try

                        begin catch
                            exec dbo.USP_RAISE_ERROR;
                            return 1;
                        end catch

                        return 0;