tell application id "com.omnigroup.OmniOutlinerPro3"
	tell (make new row at end of rows of front document)
		set {value of cell "Date", topic} to ¬
			{current date, text returned of (display dialog "Activity" default answer "" buttons {"OK"} default button 1)}
		duplicate children of (first row of parent where value of cell "Type" contains "Template") to after children
		hoist
	end tell
end tell