1 1 1 1 K:%String 1 K:%String 1 J:%Integer,R:%String 1 K:%String,N:%String 1 K 1 K 1 1 1 K:%String,Z:%Integer,I:%Integer N") . F S J=$O(K(J)) Q:J="" D .. I $E(J,1,$L(C))'=C K K(J) Q .. I $P(J,C,2)'?.N K K(J) Q .. S L=$P(J,C,2) .. I L?.N1"S" K K(J) Q .. I L?.N1"M" K K(J) Q I I S J="" K L D . F L=0:1 S J=$O(K(J)) Q:J="" S L(L+1)=J . K K M K=L K L Q ]]> 1 K:%Integer 1 K:%Integer 1:"s",1:"")_" ",1:"")_(K\3600#24)_":"_$E("0"_(K#3600\60),$L(K#3600\60),3)_":"_$E("0"_(K#3600#60),$L(K#3600#60),3) ]]> 1 K:%String