SUBROUT ;VERZAMELING VAN SUBROUTINES ; [ 03/16/95  10:56 AM ]
 Q
 ;
S7 Set K=$E($P(R,D,3),2,3),K=$S(K="HG":1,K="GR":2,1:3)
 Set K=$$SELECT^KLASS(K) Q:K="-"!(K=".")
 SET R=$$UPTRIMAN^vhRtn1($$GETSORT^KLASS($P(K,D)))_" "
 Q
 ;