Yes, this script is to disable a port.
As Hagemann already mentioned, there should be a configuration under "ems" section that will triger this UPM profile.
If you could provide ems configuration, then we could know the reason.
"set var portb $TCL(string range ${EVENT.LOG_PARAM_0} 36 39)"
With above line, the port number to block (disable) would be extracted from the log message, and then, the port is disabled by "disable port $portb" line.
Lastly, this UPM generates system log message as a result of above behavior by:
"create log entry "Port $portb blocked by UPM"
If this UPM is executed successfully, then there should be log message in the switch with string "Port blocked by UPM".