This seems like something that could (should?) go in a personal config, as a custom function, or advice.
You could, for example do something like this (lightly tested)
#+BEGIN_SRC emacs-lisp
(defun my-put (property value here)
(interactive (list nil nil current-prefix-arg))
(if (null here)
(org-set-property property value)
(let* ((property (or property (org-read-property-name)))
(value (or value (org-read-property-value property))))
(save-excursion
(beginning-of-line)
(search-forward ":")
(backward-char)
(insert (format ":%s: %s\n" property value))))))
#+END_SRC
if you call it as M-x my-put, it just uses org-set-property.
If you call it as C-u M-x my-put, it inserts the property before the point. It does not check you are in a property drawer, which could be a good idea.
John
-----------------------------------
Professor John Kitchin (he/him/his)
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803