{* Change packet owner *}

DEFINE Su_cpo
	PARAMETER p_packet_uid
	PARAMETER p_new_owner
	
	LOCAL l_elid
	LOCAL l_sql
	
	IF ((DMS_USER_NAME) <> "medmgr")
		Dms_write_error 720999 3 ("ERROR: Must be medmgr")
		CANCEL
	END_IF
	
	Dms_get_folder_elid p_packet_uid
	LET l_elid Dms_return_val
	
	IF (l_elid == "")
		Dms_write_error 720999 1 ("Packet not found : "+p_packet_uid)
		CANCEL
	END_IF
	
	Dms_check_errors (SET_RUN_SQL_PASSWORD "medmgr")
	Dms_check_errors (ENABLE_RUN_SQL "medmgr")
	
	LET l_sql (FIX_MESG "update {1}.{2} set {3} = '{4}' where {5} = '{6}'"
						{1} Dbr_Prefix 
						{2} Dbr_Elements 
						{3} Db_Owner 
						{4} p_new_owner 
						{5} Db_Elid 
						{6} l_elid)
						
	RUN_SQL l_sql
	
	DISPLAY ("Packet "+p_packet_uid+" now belongs to "+p_new_owner)
	
	Dms_check_errors (DISABLE_RUN_SQL)
END_DEFINE