YS31POST.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---YS31POST   369     printed  Apr 09, 2024@21:18:24                                                                                                                                                                                                     Page 2

YS31POST  ;DALCIOFO/MJD-PATCH YS*5.01*31 POST RTN. ;09/23/97

 +1       ;;5.01;MENTAL HEALTH;**31**;Dec 30, 1994

 +2       ;

 +3       ; Unless the site has modified this file the zero node

 +4       ; for file #601 MH INSTRUMENT should look like:

 +5       ; ^YTT(601,0) = MH INSTRUMENT^601^233^88

 +6        if $PIECE(^YTT(601,0),U,3)="225"

               SET $PIECE(^YTT(601,0),U,3)=233

 +7        SET $PIECE(^YTT(601,0),U,4)=$PIECE(^YTT(601,0),U,4)+8

 +8       ;

 +9        QUIT