Creating a calendar event based on vales from Aqpplescript

I have the below script that I use to set up project folders based on a template folder and names them with the entered values:

Job Number
Job Name

and allows to have a shortcut to a designated email using the variable named

JobMgr

Is there a way I could also have a date picker pop up to choose a date/time and have it enter a 1 hour meeting in a calendar i have called “Work time” with the meeting called "DESIGN PREP ‘job number’ -‘jobName’ " If a date picker is not available the a 1 hour meeting at 9am on the day for date entered?

My existing script is below:

global jobNum
global newJobFolder
set jobNum to text returned of (display dialog “Enter a job number:” default answer “”)
set jobName to text returned of (display dialog “Enter a job name:” default answer “”)
set jobMgr to text returned of (display dialog “Enter account manager email:” default answer “”)
set folderpath to (choose folder with prompt “Select client folder”)
set newJobFolder to my newFold(jobNum, jobName, folderpath, jobMgr)

on newFold(theNumber, theName, thefolder, jobMgr)
set emailAddress to jobMgr
set emailSubject to theNumber & " -" & theName
set bodyText to “”
set emailLinkFileName to theNumber & " -" & theName

set subNameList to {"Designs", "Documents", "Received"}
set itemCount to count of subNameList
set linkBody to "mailto:" & emailAddress & "?subject=" & my replace_chars(emailSubject, " ", "%20") & "&body=" & my replace_chars(bodyText, " ", "%20")
tell application "Finder"
	set newJobFolder to (make new folder at thefolder with properties ¬
		{name:theNumber & " " & theName})
	repeat with i from 1 to itemCount
		set aSubFolder to make new folder at newJobFolder with properties {name:jobNum & " " & item i of subNameList}
		set theMailto to make new internet location file to linkBody at aSubFolder with properties {name:emailLinkFileName, name extension:"mailloc"}
		set the name extension of theMailto to "mailloc"
	end repeat
	duplicate file "Users:ace:Dropbox:Company:0000-1_E.xlsx" of startup disk to folder (jobNum & " Documents") of newJobFolder
	set name of the result to jobNum & " E.xlsx"
	set theMailto to make new internet location file to linkBody at newJobFolder with properties {name:emailLinkFileName, name extension:"mailloc"}
	set the name extension of theMailto to "mailloc"
end tell

end newFold

– Generic find and replace functionality
on replace_chars(this_text, search_string, replacement_string)
set AppleScript’s text item delimiters to the search_string
set the item_list to every text item of this_text
set AppleScript’s text item delimiters to the replacement_string
set this_text to the item_list as string
set AppleScript’s text item delimiters to “”
return this_text
end replace_chars