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 ---[H[J[2J[HYS31POST 369 printed Dec 13, 2024@02:12:55 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
