YS31POST ;DALCIOFO/MJD-PATCH YS*5.01*31 POST RTN. ;09/23/97
 ;;5.01;MENTAL HEALTH;**31**;Dec 30, 1994
 ;
 ; Unless the site has modified this file the zero node
 ; for file #601 MH INSTRUMENT should look like:
 ; ^YTT(601,0) = MH INSTRUMENT^601^233^88
 S:$P(^YTT(601,0),U,3)="225" $P(^YTT(601,0),U,3)=233
 S $P(^YTT(601,0),U,4)=$P(^YTT(601,0),U,4)+8
 ;
 QUIT