source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YS31POST.m@ 1540

Last change on this file since 1540 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 359 bytes
Line 
1YS31POST ;DALCIOFO/MJD-PATCH YS*5.01*31 POST RTN. ;09/23/97
2 ;;5.01;MENTAL HEALTH;**31**;Dec 30, 1994
3 ;
4 ; Unless the site has modified this file the zero node
5 ; for file #601 MH INSTRUMENT should look like:
6 ; ^YTT(601,0) = MH INSTRUMENT^601^233^88
7 S:$P(^YTT(601,0),U,3)="225" $P(^YTT(601,0),U,3)=233
8 S $P(^YTT(601,0),U,4)=$P(^YTT(601,0),U,4)+8
9 ;
10 QUIT
Note: See TracBrowser for help on using the repository browser.